From ed6df162d6995431ca04fd2e5d76c375994a753d Mon Sep 17 00:00:00 2001 From: Mark Rembert Date: Mon, 17 Jul 2023 15:18:50 -0400 Subject: [PATCH 1/2] Adding ability to pull data for wia --- R/geo_codes.R | 12 ++++++++++++ R/get_qwi.R | 27 +++++++++++++++++++-------- data/geo_codes.rda | Bin 0 -> 52542 bytes 3 files changed, 31 insertions(+), 8 deletions(-) create mode 100644 R/geo_codes.R create mode 100644 data/geo_codes.rda diff --git a/R/geo_codes.R b/R/geo_codes.R new file mode 100644 index 0000000..6ce5114 --- /dev/null +++ b/R/geo_codes.R @@ -0,0 +1,12 @@ +#' Geographic Codes +#' +#' @format a dataframe with 5423 rows and 3 columns: +#' \describe{ +#' \item{geography}{geography} +#' \item{label}{label} +#' \item{geolevel}{geolevel} +#' ... +#' } +#' @source \url{https://lehd.ces.census.gov/data/schema/latest/label_geography.csv} + +"geo_codes" diff --git a/R/get_qwi.R b/R/get_qwi.R index 85f6fd2..13c717a 100644 --- a/R/get_qwi.R +++ b/R/get_qwi.R @@ -203,13 +203,23 @@ get_qwi <- function(years, A02 = "&ownercode=A02") } - if(!geography %in% c("cbsa", "county")){ + if(!geography %in% c("cbsa", "county", "wia")){ stop("Please enter a county or cbsa in the `geography` field") } if(geography == "cbsa"){ geography <- "metropolitan+statistical+area/micropolitan+statistical+area" - } else{ + } + if(geography == "wia"){ + geography <- "workforce+investment+area" + wia_codes <- geo_codes %>% + filter(geo_level == "W") %>% + mutate(state_fips = substr(geography, start = 1, stop = 2), + geography = substr(geography, start = 3, stop = nchar(geography)) + ) %>% + filter(state_fips %in% states) %>% + pull(geography) + }else{ geography <- geography } @@ -229,15 +239,16 @@ get_qwi <- function(years, industries, states) %>% dplyr::mutate(url = paste( - "https://api.census.gov/data/timeseries/qwi/",endpoint_to_retrieve,"?get=", + "https://api.census.gov/data/timeseries/qwi/", endpoint_to_retrieve, "?get=", variables, - "&for=",geography,":*&in=state:", - states, - "&year=",year_collapsed, - "&quarter=",quarter_collapsed, + "&for=", geography, ifelse(geography == "county" | geography == "state", ":*", ""), + ifelse(geography == "wia", paste0(":",paste0(wia_codes, collapse=","))), + "&in=state:", states, + "&year=", year_collapsed, + "&quarter=", quarter_collapsed, cross_tab, owner_code, - "&seasonadj=",seasonadj, + "&seasonadj=", seasonadj, "&industry=", industries, "&key=", diff --git a/data/geo_codes.rda b/data/geo_codes.rda new file mode 100644 index 0000000000000000000000000000000000000000..5987c1127c132919befa7c938185c2c8b2eb8f3e GIT binary patch literal 52542 zcmd?R1z1#F*EbG0BHi815F#L=Gy}sBQiC+ooeI(+I7kd7-QdtjH%KEPEh&wJba&&2 z-g@8n^St-}eV#YJ_x*od>sn{+y$*BES^KxwUVE)GLmP~S^y3e8>q^IkN+6O8V|ljD zD^3O;9eq;Jn-`R~zMVHaV>5{C`t-B#9s^u1fkdB1kKSvq?HIrkl`hrTUHb#q(C-eW!Ayw0MO zM9=QMy`1sBzTt6g*OyFZ^Q-OJCxn=#@Nb7*U%bjpzSTLZtA2ajBzU)j|G>PcjrFbY z+1IFhsiWlA2j}ir8)AO6mIsm##2gP=`NYbWrR&ZHEnhk&(KaYcQ@nh)+w)pq>vR;S zsdiqYIkG4~A6cJbH%ssm<8;X9-qve<h*y% zoWEj(>)dHLHw?KPJzk;N2E~k!JIO}?Grs(W+4iF>a~j+*#bKCI2>qS;q6r2fezMv?L@?Sf7J%j+i1@+ops8fG5wY<|$;n3$Jo$$r0_=y`$}$;_ zRv$({&N9jH>ie~3{J?j54(TF_g2AY8q9)*N^iX}?2p_rOs#kz2x~(99`lJ*<P-d~pf6aGT~ zgg?PQ<1hGk`~{%-T-M24>oR@giu5M!Y6|}PMQVSC;mqas*`nR&_L+jaAuT-bjUqm z7zk{pL-9q!V&J|J{s73$6r#kh!2iV@@j!R*e=$;gM|{u?o4P@$Zrf)`8<8IjJa7x} zx8wb%q5mb8B(uFj3+H^o^cYWZD~(Dp$3DUGsToCFLWgPgUx@y?Q3T(iABqNE;k&t4 zaYhthQ><7X%?^VEERMe4&HV?M`Tq=Nx<7&W2G+lU`3BKGFnX;7as+Y)qp6ZJnWQ zIT6@anc&dq+z5gPD(Mip5g9lI8Ub;$s zpxhL}54ZdSSef5P$q$W)LHW1g`Z-vkKY{fFVL#mR&)M+@v~Hw7pmihtfEGS-K>^N? z;vLHz--=<-GYPgn-G;%8#}X&nH3i6}}%V z@AwVlVB}B}DgMt;SP_OG-D`eQkEFDRBHWI-OY}!WXoqO0{z?6T;$FW{`~Q+g5O&e-8=LD%V`59@h?ISBv& z|J}>S_lbUp2g1E!ujm?S=w$wxunu7F+`Mz+*5&v!v8B3uYb&~1gjwV2U6LI3{Mmy-eq^HJ~7E-;~gdX zPwmFY&I>0XR!Numvqk-)bN{Xr_EIMeKTU#B!VmHqBNUC80-v3aLDd4BI}oV+XT?q6 z@B@L2H_^b4Og^{~7iFSYH0E(ZFcnzkcPvy(K4v#D=)v=T{how}`dxuvg%y zT2SW>2r8%je=3GkC2~ak6g@Dm4vEg!*c|(wtS06RJWxurPL&uF_A7G3&^;ikU529I z2Xg%$R{nghW)%63)MN|=38KW;Kt6P+1wr}%6F4mgA)y5FONC*G+$MI%U_T^MU1iH1 zc%uAWAw=Zo48+({CYnqGR!BlE0@4R?q|&H^{$61_VdeLmC4V#N_XzN3DEP-ViWfWp z0oeY|sKEmuz%M2R&;<|tWPe&LuLkMm(j=oL0)T!vPz>sHB0(^lW1z|^o)kLRCpvJt zDfD;Bf$^teOuDjLEWSg8{u>+OgiL-cG8hWsM2U24d>|DISmppgHVr*e;{Odr9^*Kw z9t-04=iPE4n%n_ae1TdtWemKOPP+<|xS;ks7Q*;{MUe`%5Xl&Dhol{aNNkY%eZG%T zXilX430U#}fI_5&O&JLK*PlAt!WgBLUMpQilC1Yo`Q4yo76dnjLPXW-pKZ(;DP%kd zhgj2veio-Fe8s1I%d!G>$O1cakV58vr~>2<@x=;7C8xmV<)bjM;OiW)2u~ZNlg#*^ zr+5My`-}bIZ<&+-$PV*wKY^~uqJnI|f(J2ZB%aak0|`bBCAmd$7nM&N>u(i|$e|Dv zickO_1$wx*=wr&<{?UJpd`5GB5ZME@41V=L6XnDo8^ga@Z+u1r6V*b0kX!}NU<(+R z;Ag^11su-s`#-_(@MoCuk{~t|rIu~k_(>3eQSNW)ikrpi_hie>iq%}BoK^t+uc0Xi zxtsjn&xGPl2Ir52;vc!hKj(79^FV%Okbg*5?;!sRX**C2RwlNt^x!{*{GShyeE=Dw z-3g_q;`>({xvQi9qv_d5?*CL00hQFiGa8})^)!f(=>6Y89`&FTSKsYD)R{%>+K-fu zZyv7FJR1<1Mf|gh5j=|jHd0L``-kLM&6g|7^E<8DSq{t$A?mU~E{}b;V^L@BV%O?W z+?@0e6hMKTUlBg&PZ9o2tp76|CIUw4rTk|T#Ym7I{sMA_SbY20Z%5r*l$ z=xzQca4cG4Bh=qXgcI9clj5+1Z&liI;LQ*M()a%xa%@9sljN})!TQf4_BO2l$>c6d zap=jndS)?jFo;;m0DY47O?`tZLW}($RFN zKSIgxRfm6(i1}~s{QGLdUzQ;LYdb-5d@^uUwm~{(icGL?v_&`pwo3YcZzs8mk$-eN zJ+qlO+(OE9AgCKb90THD_f=O#EzHHzhLTsL^ZthwfrhnW}6qZbJ z^%va3a#|o?Z@WJNH_s*fq|BO{_P2_1)hg}prMVyextizI_|K@EvD*Oix468=L^C_o zbn=G9RDG`{{;DAUDERy;BmOB5{5=_r1PW@4W7x}*@nj>=|0{7wC+IMi0iGpe#1^TU zCq-UxN0w8H;BiEo3R5Z3jhF|!W#>;*Lhjydwu+pTcE{$QX&B1vV`YS!llcj^0>6?& z=s$5|xW&T0y;A_nTga2io5ZggqzA)OWyD`hZtP}--nB5soE(SoS0Qf1YMw!SI2Tii ztu56oKh85sotYMY=aMvP8w=@RfWd}AzR>tOPF3wN{!RL;Z_VgM?RYX5e@<}Ungr%R z%OlAtyd$`uThGydFa0JD`g2A6Rkr=Reb67-x*O?d zwyxP~0LUzv5sek9!pkSu^}X?F8%w0_{^4f-K)KLA*=T(^Q9%i!gE(>)-} zF8SZxNC%S=1{Ma7*ZyLEuE`hO&)mRT6O^p&4==h88UrHC|Bl!qndLUfGgH=bVxoGE{{0OcZ8Mhv-a6md3F?a8ZG@@wox9~i76~(;p3Q%& zN)9LH_m^c7S^!2pcsl;$lYxbyH|)2O{9||P`}>qF)eGXop&Gs_e&8+Sey>j;Yw!-P8TJE;krNQ@NU zQgT7!BdZ#+^h`u@Z&R1PHxPt3Sa91mdew~cAQD= z=f_j*QW91iJQucgdZnCxFNkCr8-rvmt?zPMGd4M^L~J?%mT7Qok}mP2R1mzdqX`pf z6Gf>L1@>Ac9AgGHZPQg`Py|tele7VUdec`E->#~H+|c|f7So9^lCIQKcKEB1+BuE{ zCpLMr@hiK@wV+~MD(5mYSWBru1X-sl`u!>92@=^?S_w{jqXus}FYj;+)v`v4P$d`f z$e3laeC&1LbAQ)zeXQ!A;33#*HqNx4oQiKedSB$Jv_`;Z5yVXc&M&2HE%dck9(S73Ewo$qhSQBPF#&rx6E$Rta>JOPKFWDiH z1rT~R^Kg`t4;n#q*4%L6kIYjH?@WdQO<0=DY$I%}q0l;xMht>cOO2k)f?U=~n==C) zrX>xc0~-~%8Quc}m4R~gl;c_%XD~s#FvsUC)Br{6v(Y)MN&dhVo_Ck*l(G(QWEL<+ zosVxWOp;p`);o=#J6T4a;`Azyk;mnUyj*P=47;j3i0e^g0)c6v4B&$^yHsGb-V0xd zcB7BuXjK+5i_rM(NQ}=s6Wc~+J!;(V#_Ypv2rP$&I0zyYx_ey#C9*{Ewq>lf2I7w) zT~*@DbzfxJ>TfYYeJW(93v^XphVm|AO`7Pu+=3T3sIo+?1Fy$xWsL5u)r1wQ;y*`?qJV#qQ{G@Gmu=VJNt>x)ggTjOMW39R4AvUcmOHa-11n!N}q_%6^Mg1IDsnij=kdG(UnQgDj!c(3p7^HSv-y^b1 z8IOfAvW5g07J14}cDvynEWS`YjXNRzP^vhtAlO8M>9)v81)i9VN^mi(*Ihe2L4m<- z%0$UzJJ3Be9K%M1uQl+2MO01JaR?nMTf*=XzcP-lkz~>u1toiWu+7~_8A^V*G;Zw_ zNiGpa5&wjO6v6xIvScpFUO{5hN`m+;nV{mDZ<8h(hC`X@dQn0AI{fdrCv1aFo>AZL ziO8Jdw75^MN-mGlYdOi!01t_X6rXjp&gU){ajupkFmLJJdnbPkCOFX-O4%6qN@~-R zx!shW$(e7WWy0u4&6$`M+G{g;1E$as2R>juG0R>axa$Dn0iod?_N#1R!f4>1xWyL8 zHCW4#0Pn@XHR5OMlxK@p1HLQOgw9QB;@u&k$R6_jw+Xl!5Fd+qgRT1%bQ{YTAcVmRPpev;eH%6oTc*VuC zhm$b7Lu_g})s{J4u(q0OqVh7v^!COEo^`VcrOgCP-d{K4JtKlhztXd zG69sWrNOrBt}?uZ{+nzBk@4s#Ow7ek)GrbxW*S^eG*1)dnyIF1+-4Ea?_l6yP9Q6+ z0A%Z^3!t61R(gsva6f3A(H;6+mni}*YtuH$^`k`;H5GQ!CcIdpev_@fF(cE$zvDtM zNp;*SaveX01Z#pt>i#Cao=FFzutInzr|DqoqYqISPY}FDFap(YRnmtkmNkYk&ls(pUEjp-9qu+Q^OS$%LDg(50l?cI7%F~vPe z-~^~wyJCW+j^Tc4&uYIaf`Ikj-7JOLZa=L7COh_so7(~pgoEo)Zf-Dh8%7=7~o8!|!J+YwZ`xhWVySu%PH95jJ^Qp*JT zdrU@AHTRUuLQU76!)1l{m3fKv_l7j1T-l=bIm({e-j;zDXVzBP1)EuDMc4(m4C_#_?OW?0=7)|o8TRn!?W=FdMtJfopI2x5LjuiF%yNkBc~dI9Q& zLL*`&rIRI@Or><0yN}x}$cRSREKO9*6r~yijO8jb^pZPBu|>CF$7 ztCG@P*Rbq}SoZ1-qJTlxK}@f5LoTfV52F|u3K@Fki*d;kHiMX|5>oN-63T&WP`JWt zuF%_NEo$xy7-5kR&#mraU9E_ielS5!QfhYx7w~Rk8UX*e?RJWSvx<#BNpf1w(ws$^ z=l!jJ(3@u zf8(yqAe59zU_XSyG59`TVxKa>$8HuU4WTDUpcp#zre zm)nR3Kar2)i*FMmFC!x~jS0J1ZH{e-nLPrvOc~e!0!c(vY{O*{5cFOMUWsl4N;!TA zlqUP>swr?v@wQ}D4p~8U;U3E?dF>|=L@!48dCOY}MVLz?j-L+_>)%GM#-2PPcl-Pt z-wc`fwgs_lsezEhJy}_*WW}J1VoY~--V?AHv!)0&ZJR~~2jV6|BpI=bO2@=-`fNf~ z09KKbr8*9)dBSXsnyj1@9X|+eVG&A~hQQUy@4A~zqLf==syc)L6h>rL30YQ09Rp7nU3FLlCa#d2xshh=f zPDH{Ex=gp(nVn@Zh~QV1Q~vUDy%0yx{9OikDugAX2uP9+4Ax+dj!vjE;!{;J+lFfm zNRTiGGjiq+tFqYpsR)Di)Ow1w4`q^oY=O$vruP9EC9+yoj2m0e!*Sjc>DOtqc%Z~k zVKb8P-tHcbCz7DM-AI_gTuFKNJ|zz(#Q6)Ns=YmyFu~8q@MbjSbp|rmWK<&^LYRn$ z3BkZK$UP~28V)z}xlQpE+D!?io?Z%DMIc<4PObeWuzIukl94-D-PDoJNR^0@j<8Ff zsr~9jm0d|+g0N^!jr24Y=~-^DY<&sCPX3KsNPi^Y)QUC9wEgI7Pa%Fx$1PD?#D;Bz zs%AusQ*_os6>C&K4nKTlTfY0!(Jw?~h%L3wmS8mcYlxr75QY}=nVDgJMTum8rx(am zN>S$KVpF{31#wtLJn%S==uLR9$RN9KQl&yVkB>q+p#r4aJ7P14h8(Vi!%4k9mmd)= z`4sHA)!FMRj>vbX;z(-4k<%e{ux^dW?CGwOS;vZ^9>lUYj*@L9O9D@XMAmeNFx__p zJf|n1dl4I?g=imWXJQXtYYRG>WEx^hK?AGcsjw8t0pYKs(Fy%}hpNT1_SStOMfQl_ zAo0WFf};5rIA%c;nVM{|j^G>j#!q>d!cw`rva6^!#3dw}D8n$E-h7`avhvBaHyiwl zxk)NwWIvzIpzPDD?I&j;z(G z+G5qXJ&74F+!TBLfepb@e%K>w)_!vVCL$Ir7GC+AB5^w)9g-&6@=9*^r7&nG7qIh@ zVB{-v?t%OODsM}0TARR_AK>{BKnWjx(uj36I|Wgy4YNB$cYp)T1wmJ8kqd$8FEn69 zy6Ed+gpQp`yAlj7i}J9rMsx}$7K@2^1k?a_oQ9q_%gol#uRYJ~Dkt|mU*`E8#obz7 zP*gDBC>PzIR7P1c3UL|v=p;KFDIggj!c9=W`glNz4aDICm@y!%P*qg6k{J-=Yhio} zD{?|-hY_lZvjF>;Er=2kb}XRcKBo5e*T<6RwIs|I?h$ksj|T+kTI%`$4Q~jhI|%DL z<#s7JKmt517vX>e8`y*@&jJ)u=fh5zw73z)URxR(u3v5dxE|1l+P@T0M(F z5I%#6PN1KAF35`@p23{C(ATdBvF=6~#D@a50toA;6u2E^VZ3@U zyIu6Wast0il9_6Pkg{-t@hAXw6`^CYf-*-0&?LpeH4=d>3B%X{6n-K&{HQdbCObnnQ4CCOhzs2lO!(u(-)Yc0dQx)q|0IL!Z@Wv0#it+%|#X z7=Az5eH#$-8huuqX|*vD@%9M}LWG_e#6tForRAa&u%kv8noP9=AqY8(L|mxC9+sld z(lW1Rzcq-C2YjkPPt;>s#fw8Yy@avQ!y*1}q_Y9VF9}r*S#wcjx#bknBczOFf&pG? zgolGNyNUuWFPvdHn}98ULM){i1A}D1RW^a+wG6kvT6)C%BC{L}BL%QiNN`xJFz|v2 zv}6Q(H~DW zLl%qEh&eS~nAspYgj#l2f(bO%0A^(DKuDpZvdD6C%EHDp(IG(D0U=RPp=Wx8lhI`n zU=hNcTdOoM#nCc{hOS4$w7MKS=VSt#S0M=XB*K;?455uh*om|V9Rga9naJFkTPU*t zeOQDe_^cLg;Ra~A0NZxL&;r6|*@Pj4F>}mLFhv3M#P=*@j&z{>4!~jn6WI%PkaT_< z-3IvCTYwq{x;unvl{5kYm4~$y5FBF3D>FtQW?4anO0fB20<4!YbHpkz`x1hB1vxAS z&5$=S295=QyH$i((J=<`1%TE9CX2g~bE7V>G&cgQ-Y7DYLD#c*gfj=IdH`TN&TQcl zju-{OXzbA`6qsE1QVr(d052fnp{DErkQ?+Q4sgVX?vMU>fRB-<({ONHuw?*zV;nhd zR}f6F7I5pv4@AZzq+MZp=y1?%aKtwPzE_XAQH@~s>IABoEMz_`AnQGVq^p`-f~%3$#t@mVSD@(O{rBw>m10AhUf+9}rD zHTi)?HW1-z8yzD=1OlrXKtJDL$-R`_J%0#leFx~vCcxr|GcfqrMimYx&ekfhHRrG`u0&fPG@OAaStXkfEX=5Y4{1f)Nv|o&MCporHm@e|UD6eND#yRJ zS{Kxqzgid8xUpIXZ%kVC5IUa?YjjE9(N#2ue)H6pvZT&Zi0)5!6q0jEcYG*!VnWeT zPF-0{U77QfM!$ruKa)PHbEFuJ%L7u6zJ(m+K(8!?>LkogzZn`l*;?Vf@??~w?K-qmeR+@l+p=ah zF2Cuyt?Ko24ms&l97a!R=oxMLF^%-n8yCr1X$FB^+_&mbZD~uwtXm?P8K1Jod(8)N+*5i!hEa=5hu9xMAC~>8d z)YcQ|h3bfC`_}N_>4wFn6W_HUg*SC*Q&@+-^kQ+w-q^q1J*yR@WX^wMY9VOi#aMRE z7{Z&YFufvdh(*pEns~-ctu1vSIOyq|ezpldn1C;r6ZV<2CVo=n(@(Kz6db&COg~!# z9}L5nGYI>nS+#LfEM5u@y03ya(g+I!6f0;v1+8#<2>aP+K91$6MSq4)g4a0ZKAs9e zYbmolc(E6EhNm0#*iYS3zMJDlRh{9;D(8~nsFa=NB}!e%8af#T*+O>TTg&yTPmK}t z$%Os{2F|H2(E|={@LC_RfjH}}^cpGj+%$R?K2)53cmh3lk{PbVs~XE11{S9C9mEMz zdp#Up(+G1Sd6frf&Yt_NCCsHd)f6*uyhF&Zj=lmKX%`aQIO@n9Z zQY$*dDbF?>Ly8H%KlfE|e;vEvm%LTa{KkR@eq+zmzd52ch3#(q z#>Cz}Q(JlNaqHv9tlv%ehn>#M-Yfn9{BZ6yU!GX#x>DM85y8Ir4~tsTG^G+;y!g$! zHJ(4Fl18>+qo?4HGc(SIb6;u}i&9T6Uh*QmodoAtM{m`9N6+mhr43+;)LNK)4%BTl%97e^3}2Lbei-UTSjieZtejd9UD71_14Q;` ze;&~U(SM0$9RVKk-rUp-(4;!Moc4nN; z8c1_Y-J-oc16S-ApY@Rhm^1L9vb1%Yux9vatS-f`Yg=4V@fD zPxcQtOz?Nc^1+6Dy$nky{HHp`hMLTBREHIgDsbzHRN9Fse0ebYa$)}61=|C zb>3IorvDd!@4GC!87$*#+hj(RiZ3~fKW_i$$E?{!FCXV06|S(o)wgv&q3(Rke`SW* zpA-EO=N$L#b|;_Mi?t!?=c!qTJWWPgIZ|E$z)vdfm|vCT!~%|XhS|@H79FFTsJ-6o zoq*5DK2F_u&+RV9#O{5z4V}=dxAER@m(Skx$FT^~o>%;Ez27}^6Ln6;d5DDfePUCCU2JNG%_mCp>y~&bPB7YP;~=;@>?r zY0OU74xRVN+Nw~9zKQopS~a>sqi5ojPEN*-)}csnM{RQ6WlCjh9= zQLKHoTk$~Po_2A^t@HOh?ECiCb(hLvcf)F%SDpoJd_I^@=)w28a4!}Xp(ZK}g zUF@Aad%LnIyP@zPF}b=bXx_wRir8F$OEh*VztzgBX;v5h>4iD7i zj3OwOa@0~@)~I0zNPTg35wt9`A@#i!q$Tcavx!^m%H34b9=(XYE7~B8zWVa$gAs?4 z?A8;dS-Cn`tBIFK>24_V)=ORL3%s`# z<1F7Xnh834UQG37?QMR3WKYP)QOA)??@EmcttGhYljIPC)a#9;1xXrzOFtPe)~0%j zw{eE?apQ%oifRH-5S7xtxs!j~r42bOyY+b_Yc3m!3OqII0e~h6QKmcR}}_ z#1AxG7)HK*m~mP}raSq{hT^=aVx+B4Q?!385c?BLS}BKJi_}DHSdV=ZMOaVC>#%2e zk9CR?6b%%xEsO=ba?H<~D)=cLmj)!A%^lWK$qlTwDGK_~*u=83hU?8z4V;tsW&46g zoA45{qd>1LXeRyK?J!YR2S2;LbTe85eF%a&L5b2=-2_S)89-{@k^06lI=-Hcua;;u zJ42gAfQs1}hV*i3J71(L)oxAY!U0-1ydrl7hSb$U?YT9o@^D`+fI~Bk9*L4}dDfUp zZ}5J!!L2%YWf85QLj$C1-|(c%onttnQ5VJzDh_1-)rh?pHrq1%k;PbVuW zQHDOP+lh+Yh2)fV-~1>=CG~>nhnJNc%P&l;>p63YjUrw0H|8y0N!C}yotQp3*&lYG z^0l!wC&mfB9pf-`x2^xofX+dUH7nV;M^TzsLLJ_csut%*CYkiiktNr34MEmrC2rL#dqth`W(s)gLV)b|0y>6VZ1ER~j48bt*^wY6n)EUnh;q}ZK-sKWL2 zJTfhs%a$XKxoNHfWi1pFr#dF+e6NF~&&#V1imh>MO-CYYFYj4BARPVNGsNmhHTwNI+iy=1R zTK6Il6?PY)j&qi7KpKy$JCmAcT6}-Bxul*PuZ?cBH4vMEwYTW|(3yI!WK5Dfw+Qd@ z{Vn}rocBBo__)$Xh!Q@*Dy(lRHr=hQ!I$!3 zFwzW6g4kB3c}*&vm+s3N>dpJcFAX0WWY*+}Dc;MQpWIkCbLVNd*O{#;%LHFty3G1) zMu*@ZcEZ?&@`#&h>N#id9$NO4y--q3i#A^HMd7)-vs~zVY2GU(T&S;${?udC?HUyA z5#`7xr z8$|iqW?9Uwu?>&oab4wrcq~6h6EUApK+{##Q>xQawOFzb2ax+mGv zRNt37=o}$vfo#|XBu`NCbbI3Rkkj4EtXXZ9UsE&jxm52HfL7P+9u#l^_+xb?vgvZU z+qQ*J4vZh628Dzc5I~-GveUm6yCv6InS3mL@uX+E8+{prK%vv|xuVVjaikIB(DT&p zZ8m3wRI1f;`e6+tO`J^_c?j0D^0Z6ljp|a`Xqd%#Z*jG!wioW$H!INz;`*Q-1jf}PWo#=yoDAbRUO|S7jmOSRcTZ`4-LrdOXB(cY9Qdjv zcq|NiA-j@;Lcu3rF647}>XMCG6VZ(BEC=LjL3J+AhRY^LwT;`ZI8!E4bR_QD>VQ5`bEdCE1rlb`Ih8lUfa#e8#O?>M`UvZL5zZ~ZNkO22Qen%4$@u^I(uCjF}s zD(zV0Cvljcc-x|hMq}pbl4K7hxJx=9Yf1azsOs0e%`k1*&XU^b2iouIDi$tO!>8#B zm3cIz{fMbczqT?y_Fei4F)8bP@%qKds)bx+umKwGmqEX5iz{E+{8yUtVv0(DmS@S! zaU;zg`NQ@!N;}w{-LGSTpDgt;N{BtM9=*j0LO1g)NjNdBrDOB8f2KbCO6WFVV0}3^ zkLycZ`yA1IyOfpdszAz8C%x%`CE8{h9XJ>5gzViQOz5P;PLrzf&4Isec!^;ux7K;z z0_pBEg^z@Tq8xG9VA?g+Gmwc}jl#)XyCy8#T(Q|0{OO<^ng8XPo7Y8q7N@aD=SN}~ zr%slR{ALjG%EF#@)k*|Mb*h9D(|k&h(eV7hV|J{mQp&ofRpjvsvWAm3YHj>XzEtn< zp_-wwtQdg3vwj?5?dO;YikH-RnJ)(ENLw$TkL}MqmSvAE)M3%n3$i!04@-gu+diGw zqenZRPo0sGwi`xgtkG!je!KXn_|f)dxe$&06Lbr|GYJyvuJhRAyZCA-1{%x+lfJiH zUK-YO2Jp<@@(?G9vdYR^pVVEH$hNfSZLU@S602rCT$Xc^+tE! zwC?8Z=Hls5Eg8}DgKFADq;hiy4*fR7`J<1B=kmA+;+`~V-)`9?dx{guk z6QdakUJXpc1hdoJU^}hU7!V87wUUIY*>+NFm8F`~Rzssj+ zRQy*U`EPcz9;rxvxAeGabpOfF+HeoQccPg&%ZK_In+Z}lnkx2hc#$Kp>@Jo}$ zb{F~7wG{O5Q$FED802)hWBbj8)B`*z-2IlUn3$Od4+slpCNCZ}y}{Y!`da+TwfXXW z;)YPXqJNvRtM;nrrk$kG+;+u1b(y>SjWJhc)6=P_`S91oaq8K$fvNm?cRC+5^cNzr zI8ZM=^u>7bK-!cB;o>+M-LwCwDITXSK0;f9i?WpM`Cw>%{;Rr|?&M7K*pn>O=(ppS z{I1C6;*F6?6iE(hE|!oqXEWWd%T|;O_UQtYaz9?ltJ?2*GH8)x=_(lBN>XHw&$kyG z;IZHwAj=$)vO-ubfI9F5MPak+Lset*a#0PgniC1VE#K#XWo^>FTU#zvxu3I5AKTD# z+)oXbh>1@@6!>@NzY-~nEMYP@>i3J!!-TI*Qb!_GYxtMfCd!2Rh|~9;h78)Qj75H+ zwIjXqGr(xRp(F%Spzt~S#XC~p^<~ws?;wjw=!%@1$3C7E5iHbi zxo#(jl?gR0efCQ3&WiI*O5-#$hdPjR7`_dHT5XRaA3R6^pi5{^bae?zhEcIywewEV zN9a`qzMk=4|L+!)j^BXpgO2N6&ZEiqdb7 zlYK%9WZJ*;aXX#lMF=F_UZQNNJM4h6^og)Amtu!Q7!8e%fNaqwq@is(2IXsQr zT{+?0UN-JDiwpY86eaNERt0`Z3L%KyLrm#u|L5~m;!W;abIl^2T572)&y$h``1>(8 zcc*=J3Qu3MQS8>{v6#^M)i@u(54 z`Q-)|5@k9O^i-ZY$OozB4#X*(%S{@|vt;cU5pKu%0?9z>y(AK6lvPrZ49e?I!DxAJ zU{47nIQRpw-W2ce+W=oV7B5%qPrvpr$VigR?IXzB5s7=3EK1s4)2boU3gu{4ug*5X z*m`F7zO`=Db+fa*4vb7~v8rh{+6!=sfkKTW$kG_&0yu<)CY^7Q1Q*AreAY*#1U9b4c*s-Np27W8>& zKkp{QC3RneO?Oh^N!3yOwuzzxui?C2WQux)$7}2p1thHLE=DApVeCD(2PK&v*mDN7 zlyn^GNL%_Nr?+a&tj)w59y~-EccN4--|*+{)9WU`)a!oqL2uIMc|O)ee2Tx#)a|po zq2S;T3QQ;bHaW@z9wavl129LuhSO z=*On^t>~0RT!pBO!_ysXz9~y1}sKRwpBvhK=+r z{!-z+VJH_t-r)sTb>5&9Lv9Eve)WP+ojuw7@|ZSpN88l%W>SzhUw*Ft2dc)e7i+tydgqi zv5#DQh3Fj;e!x|tnpC}h`F{T4v~5@;hVlgAF83R{m$+~9TNcuow}@r}(fq5vK{bE;7H zfM7lybBlYA+IC%ORy3S(>~md}lJl|WF%q$#t5be(T6h;a_&$(wuX9kVe|y7-%4!s~ z!d5jkWpVC7PTg1lc53MJ;oIB}i!t0~go0@u7@gp+^wy_?aHI!0B0#lg&dH`dT%{;T z`6S}_tk-fKh-u(#C7^&m?T+Jh0U6R!svmjY8XJGtM8`B*{b<%w^@?BblI;e)#`tGf zv=6Do;x&Z!6I)iAdMPVLryp!NeLtvKBVDbZA$e3EP6yeadbOi;jHTk$?A;6WFWEa% z;CvWZ&DU{N_FRyT>#*#ct|N1gz@Oo|1YHVZbVxgt3jAo_ZW}cgn_4PTkM7{)>|Gbh zXF*R3;H`s(-J?pnt!i@Lk?o_Pjlne5cu@^(XTzEvIALRuyjDq_lV)+-&9RGuQUj&G zJn5|~$oG!*L(+;%*J`?+EmwXm5dibd@yE*1lfv+M$gy*=_jA$VDYIvbrHc)r_B+J= zv6x8LK#Z&pW*_q@9`fdv?stfw5GY(w3c0Pke;v+%QFqdzyCEJ%)-!ZHZtE!=bYbGe z+2P^#WlI-LptCq2a;3yr(nrLSzoC1}?deKOr|t)blxGJUugcLEVw>*zk4H&A3(jBb z@1>BYjzXeWFRF5mqp1hMcBe@_Bslo`iy~-@d z0jrsnL}n^2E9|~js+}ZQorL%Uo=pV2+(x7YH73~3r=%x8D#4Sn?nyT!K=Ofx6^IbJ z7Aayz8c03b5S~vW^dWH6=+4+^a_}vgHgzQ6>WlZTHMPq$B4U+y`UB}?sB*t@i@Jot z;@PO|k@@JX3+``1z1Ek`#ldKuNthP>?cLfP*F$0DOv7|QfIP`=8dC>c(g9Gbh^>CS)N2+I%4Ik1f;BS@P=OoVezgK#z_icTeG7n93 zx>Fs|9T~3l$+p}30CE;QQLC^tle=B7^+qD)$q)_KpRsn_z|Gq3*x0tJUDJWj7Xo0% zhf*C_=?07>pdvaFLoV6lP%d($%CBwMK>sBVf#jPOdwFXD?rhJ~BPrxJso}+RUu1B; ztj``!+i}LW&KXq`jM7mAK4hL~U3p|#N#gT(3%A~d?rROnK}o&02#w6Pn{qfNgs-d8 z&S%ec25B*E>Q+}9jNJ#?RM@$$b!;4?I(RiH7Qx|ZU5y38;H2{t4t+#KF*q&!{9Wt* zKKnv5h`MA2C_eX=m z`S9>Ka{QqHdwej+|2ienNtAv{5r!s3Ypa@G6{7ub^Q-by(`A>ri)CyncIarp2VnjbMNyjq0KJH zU8$iraSM;~ODiP_1V@&9ONz{aEnGe-eEc@ZM~3$&)liH^!yvh9V6em3EO01!5pqqQ zslX(8vATe|w=7ooZO&qK@Og{%!LhrtVGQ$|#;djKyKj_L}ZYPl`UkYT1yBg@qPC%lkih?$1rLdwF#-cA@M7@bN)Ox(SMhGse7! z`B_d@)mZDJLlRiV1(vtl)qprQ_Z8=d8%&{|5f$w_XO5osws}a0MQej}ZY0$P_=-I? zPfBk*9)P5D{op+N0_ag4z&XlR&v5`PZ591;Ao4VeFMw9JE8=dRqPQV1Muk04xEmHO zO{XR2Psbp85UIyLSX4K9ya1^qGjNqC5eDdIbr?$*jlB31w(-foP3>W-MS~{b&APr3 zP@KEasK(`HZ?2g)mpv}~)n!TE<2)9}c7$dIXx>b%Zsw!mc#=E$Xpbd=Vsznxh6C_n z9ds2yOWRZDCc=Q{K2${j;4<3a8MwT12X(G6L@7rg1mR%do7}}^cViVWzNze-(q%qZ z%xX8zb~t?>WfLP6_}a#x@05vq!9QhVaOScEAC`KF0El9+6{6Jg#&BX~PXVz~Ch6oD zVkaO!6Lrz8(+vQ8s17Jm41cCWA~z8$_+|xk0py=Upbr>bC5!5`K>v=wj0N&hytD|Vy?gA1( zgWNmv1E@MHPD-4EPhISr))C#BjK;G3h~A&TT2@?;4ezDL-P$4Z>!^J@(~$ryzpBmp zIm@eRSmqMo;y~~ey^=T{y&C6q8;6BhkmN>^i`8ZRbA`AbS>T0N!887v(Q%&Q+A=P( zUEw_5K#%*en_Ec?SHq*-f?}tVQwX`sIntHMHzV z;9s$f)k=^~9OfadZw|O&dqv-eGK7M5^CiJk%)MnlwNSwMN{SA0A@YU$18AGwE&BNY zr}{C$i1`ltHzMnFd_k`wV8w4J-t!qw-NXI-B5KR>e!s{iyV)nz9M0UzJ}tjILLUqn zproa`Qwf=j3(`WtQJBX!+s)LRO;OgeU4*c`nX*0Rb+C(4#NWvOO zbaX5KK{TV;2H4!2c{?LIFUQW90*bj?d2SN=8bU5FZF8<_VjJXD)Z9l3x7Rv$x8~eZ z|GEeEuMSzk%?f&cM)iUmCG+WEf?axHnRYGufDw36cyo2eNB)cFQ_R*J@44I#iTqb$ zvNsZB0fsC++zvx%2*zS{lTT(o3M|o`xM&K9@It(T%wjmjTf zV-s-5b?!{6MbDNG%aegoFXz!$oM77g^ZeMujU<@R3C zoznrvF*eqTUpk9$$YQs1w;{4QS+nzi5gJ+5j}XMC2mm#w_@I^t6KKfSycPuc_`a9h z(U?jHNVC&0rpmo5B??tnCAo$JZhi`gvo)~;8P^NT8Qdcz0fc8(HqUZrd;zH~k{Q)Y zI^3ONv*5-Etg!+s3bV6Qx=4PEyouPy-PxI5UY(DM8v%S}#nHb`J!ystUXh%3c_P}u zy9%3Q)kemQ4Q`(UaQ60@TU{F)Gs@S+WrPwgsJUDnmL~wjt3uol)|W!jA{V6L6{y_L z-QxYgZ}YPjUI1!>^DrpfadU4PRVB9w_9U>es-^$A)>&M^n__%kiAf2*LXfHYX?h}h zw6cFODNjy{b5ZgjA68=VK0dGva?sp;^LW+DKwe5-8OU8au#L4VqAy@}*eB&!j86!2 z!;N^G4==1se zUTcjY$a#NIh!GOIDFjFl+aw1$_a;JsENp@tXx-_|LRwzVaZGcHEs+m!V4A2AjGZ@6 zj(ctwf#e5aJ7q|1o&%6NHeGt&cdw4Q4Ok0Q=QjF%I_7cw^Yr5c9QZHaC^SUm&cS)EBH_7#e9N44#!{hC@lh zjTsYQn%EbLorxO?)6%%tWmc!B*-3fqvbQIM)n9@VcCQ8c-II( z-W);i9AL63vO=eS|7IUf3lV zj|H3YBCL6yfSdMmkoQZ`+NUq=nkt5^Cgd07we;^#^x-uDA80zH#m3VBpL{<(wZe95 zGarlgG#7tO`ZKqKxMw39F(p(T0-_?Q*QU8vG{oiTK#~#%KD;i92|fEUMzl>3IsjB&<_r}djf#9c9f_qeL!c|ib`?yb?k*qG&HPW;3V*BB zTyBO+>l>{%Y?3mZ6#m`O09)R$42y1`8A4GY3kj)tPJlEAjsUR7lAl_2M8*KDoiw17 z*Q^A-ZZ$v+ChO4?Yc<4j0jvU8By3+094emQ~*RO zAkoaFH@Q1E@#r<~kvw~EruO9M#9?mK{-hG68plSi%S!X!M+Gv~(mO!vfYbn~<#(>i z%kLq*N-7+RQbr6Opmt{=-)1oewT_0dH-|1ck2iB)%)PwRaqz@9iUc--0?xK}9w zT@g_l>_|Kk!BY`x^&tizPve!y$dAtLdKgKFcR}Rpjx6&ZN9CG*h{py6Vs1k%5OW)X zKn$QJo-z-qH}y*APfR6 zhJ4KxWq>?#SCo5hOAlqyN;yCqdrQvta!^ehgGR1mXIe9d2C_mi;|l*m1!rq6WH=j` zU~=>Js$p$f2}Nt?b8ecmPXfTh1B(7BhR8CY0mYAI)NBaLsGIlCxLAEJ&smytFbp-B z@()TEVC2mn5B0=d;Q{2_yGjD2JaM`efHcxn16kUddZDZVkUNTh-_n9U@k6&={q29` zt&Jg~dhq=86w3vHq5-VDoaU$bVCn?jfZh9Co(Yg;w1YG3+^=>EtO~e516p-2-MS|{ zu}!;E(Z)x6{nzEtbJ38;PA}$Z9x>z$|2ECBfO}GKV?>rX*gH7xaD8;PsoZ;Q0#-jO z$SCnyL6LKkw_f0Qg?CzcFb=DJHIgkp%Ed4|IU2CykPsE)D451zZjF!#OTQlSt?@}ZlJ`!lyR z*z=T!0BNI5ez&Et&!K#W@c(-imX}SmF#VYi^&pDBeDEzUF~B zZY|wD*Mdc;;7ysIxkrk*U=w+s3+@lA;b|^N~iU3;-_P{sY+@m9lY`nOxRh>RjOugL+#Ikg#oq z;S2T}=rU0_(knF%kjrDVO zoM|gRvE%A^D8L$ZG1nR7F33gK%mucUE}El)^rl^Y?KU^P0_uCcLbPm$TGCvbaJLplWMH%vSFbp}v>X za!||hp;`@omIjR^LwP`L~$z5A)gvi>qY?D0hhNWd=7AQe6nTTRN;yLJYXh1#LVz zvLipf8Q2}O6fE=Trhf5@%QoV60KAKKst3opSW&!#h8~L@G*otMS+*CV1MX&1WnA^6 zR{|1|{*U?TMHxYC6XhOR>n`}IDB>y-QoouIAdfanXB&mNRyL~%#U*vpBD_0w?eEjz zH7UOVGOnqW?@D*+5gb};%>%gO+7p+*HxH=E?ap-tARpY535;iZI>gGG11&!!MSee` zuP>@vOlcsoQZsyb?EUcUc5#6i!XY`Jd^z&3v++>vkhO$2E#qvj%hOW)H>KD{P|T0HnE5VMrZKkK4XS4-|}?V*qDsg2*srf8Z67 z+|q->9@^a5J!A@Z$^p{20U*Q@-zD~iE&c%(w3S@p+iKvgj~HYn^Rq(C4qgL?QEu*h z8Bi%FVlm6a)6I$C~+*w3tr3}y~1}YGWhuETvPK92xh96 z_5Mx(_~e}jw#{PTgJ5%wwGxss zH5$hK+3Qno1H7}vsOn2T3pW#f!Xblz7~S5TK25vGBfymzlQ*% z7Bm_6%V{whx&_BDzM|k}1;+qJ)k5|+JL+s> zYY33yv=lVEv}d=-vCQImHDvL@SRqS&$;0ab#aYZZiuy+P<0O&t(30n`Z8n*vaE79h*?^0GuO_2_6shhxF>R>|KtACV(4BCF*~ zE=oSY$1YF_SMV<8c|piz^eAL9`dXr7^t_GmP#wF&B+o(}!BlK4-fn;Yb=X)2?{oVP zfR;8U&bv4Omc1DsmLh*+cRqkjwKWXm*&N+CLJfdA$X5VZNpVPV$uLu}$Aetqwu2iG z9KIl%JvEIy+i75UOGxELsFO_H%yK!Nr8!>#r85oMuV^(K^!~?$$#opL4 znc%2A+P`>DF&+vD8`K_*2)mpPBJ{N_IinBTL4Y*ICtT>DWr_3IqmAO{v}g@=fnfun8Mgt+&R=Wi| zla&CZH-0AL>Iy)hdke7IxFMu17jr=r0N`(3xVG(L+&`bX+fuGA*qt!wrQeYdSHqG* zUv_FcumD-zu|v?NA4dH8)N6n;%=2)YyIUe{tIq-7E28=S@YuyB^W zd~ogp5^!&VD9DgT6bmifv%>$-E=SQEe_6-4gC!G}BU;Qa<=i~_!S<_k5qfxx8^I$W zJNA*bG0$=CLjUln3zFrMja3qZe#|eu4H6@(532_p4%BIL3ex5PaCA8)gNQQ#20`M0 z1Ai5DtkM8lask2wz`Jh*z@tsO_05!;_C=|1e&xEh^2-w!JX3&t@K7$-cnAQ5oW}}L ztkI7FXiyVF0QsOL^-hi%Yax*P!|N1a;e-naK?}nOxAQ420W8dNM}YYUNkXzd;4+qQ zmgRoGsJ!<&1%3~5fT-0=Dp$y1T<;j7`PKkPHrz#`{--%p37+xQsaZtl(? zLs=S3LAlL*Vq}cF#YsMtjovNJ-L)oUn*LmjL_Z$w-t=oNC>Ny5x?G@Y4ttDhuYCVL z8n))R$9=-%9u%d$bc)!dVj_S)b>Mjv(j4Ie;0bvtCJ$e%kj9pYphSW70p?STZ?Rtan)xj z9u87@lRHu0j7*%xn?WmHW*xCSH**G~V z>KoKU)&rC-ka_?(9z66>4gwIKq6n~uoB5>=D$dzRhv0Q}01K*hgpDq|MLMGkF*^dN zj`ZinelE<1I4In((ExfgK zd8Tf-`{TOZ(Zfw3#+jz_~&nE0AIm8fXF=o!_< zbmVLn4?*dcpSt-C%8O0%qahV-0Ih6R!`4o9d07Y`$=_Z(7l6%WJOZW>`o={F@_0X^ z0D$LJ0_<_UIPKBuCoEfE*#|&vJHpM}s!juCgkD>^7)Ox$3WOW#BD;u8zuFe48!sOO zxEm6{(Hu4y^!)U4>f+i2&?>o5HYW*2_9CASuxHJggi*aDH|r5rXpbrRh3wc4Y4j2D zV8;_829pYGRP?ynR7Vfk;Zsv+|%Gr!yRj+9?n$1Sb?BJ%VC@kGB@S$svKU3JY?h` zNO_55ATb+0Y8YoY8kJX9*qS2>VJ1kr;ajXy%m?-3b6oe2R#K0;`tPL`d;6FRB!r_7 zqbwZB0w`QTK&C-)IwtuQG7U)CEHaIVE8YMIcoG-fs$Ji?V9+#TCVwpqsK^V{T|z^_ zW=jtsi~|;cHG2!`rLC%eAv)t8n=C|iBg!+u4vGUA=VXgFZdiD5lB;Nfpg^XwUgg}- z?Hkb>KBjSXFWm8zlq3KP2Q{wmWqBfzFTE^Xummpll9Xg;qQ-EVLx}gN@H_A#Zc*A{p+kKk@KJr(s^X1(X`v$)t^ z|BaPv#VV)`^dL{85(PxH;Kz+*29KDg5o)gy1w8fnmxln)zfjOy?_oi&|Ku$DC$dEk z_vwKENe1;1nDaRCQmp3sR*q|G^pl+9?K%0uFxIzKE|vy9ZNwczLpd&6hXCPhbZy;4 z9OFhDQj8L@AR9#{pz=Y^xO0aSa-c-)aQFsH^<#_-IV!KBg>W>oizA}TWxE6Qs}h?~ z?@3$^LLhUw=7i3j#xpNtt54|Mq2nUIkUPnea|RTsYUy3lYh!1}BLREfe{b;n=w)L7 z*=+8Ko?K)jd&3;FEpLqc8)^Z9H=lrwg7H@4Tokojr^IF~Z|45RP_A(^uVY6bh|pij za{lG20QuFX+q{}&{gz}%FKre-p%}r& zGM63ei5N9^k)4IxHkAHq)}vjhq^%dmjio+ZuU3 z%ayS(#>Ga}_~b^6-gIyhFLfWF?s5h)mXK>%YIVEF-?th*8`@RBE&&A_K^Y*&rD&&< z^4!G+WGcPk2|%i$3y+U^bDDv_a}l6@XO?o$J-k~o92ZR_p^F|5_;kDyRSCNqb?buVoJ$2t;|7Gg`s44(`H)|H3(_ zaSLAN{>?8g_LANY8p~N)dYO-Y&P6V|uNz+p?zZyMlF7K1V7Z3M?mD8eFRS6t`9RcK zzpu`N6&_86HjIk1Gl6+jUPf(a4_-#SlMmvwpc9b90X7`h0tvu^C?1*+L~(?S1o?m^ zA$N~nWQ}&RU|51Jy^)v-D|DA4j}Yn^SL2}!xMVqJrYKwRV8@>qAWQ8>hoEUh8X@Wl zG;?}7zAD7}c(CJ-zJXuhwGL15t6Fvr#lFu4F~JEV)Zg6qGHyC^G!c_|pztITn)-ct z+1jZDS*;MPwn~PI!;vL4w!Tf`mb|Wg4Y<_neEMEe%){4C4I%is1r?`aCcKIS(<32` zyslr>gdC-ir)-YlP}0}yLE#k}P{<#;LXYa;(44^nPH?z($(mUTcox>GpEu;%ck>U< zBR@d=MLHlZB*BKbW;_kMw74Vo^=P-e8vEC15cZ*H?dKPwCzkOGKDX;4l8Y**Cnu6s zJ=nb&3JywUPJ=Mhb4Kc5XlBf{AbAyUL`p3H$pR5|Uzw6v`F8sRoisznK<&xlim<;F!rs&}4W87$CLd8h7y^ zA5;`zWg^Lh`H6*IcB&XXR0+SAWV=v4bzY%_AO7o^26_ zd0XUXQUJCPv5mm%omi~+ASd8$@qT(H>gT&(KnAD$(01~gyO!;G_;zZ!lpwYTZ>M81 z2+eDu0rHe$QEX74hKc;}*afc0`_b$?A@D&yvCBm?+{L-D*m2%SeLpD5=)}5w*!MPH zP}Mm-)jfzr1ipF*Jq(shJYlhvyy9#DK13%_GQJjb&lY+D=Crv28}ZC&pqCG)6S+zr z9$v??=ffj<-d=1x;mK#nRMf76+|;8&j?R;#b2@%p*4|c-v7Af=p&V70Eq8w^>KsK| zH@zY~EXD4ybmT({aH$`z#x5WsXZhhOl2m@M2ZU20u)fO&t#`#J1`b>QZr6}FBEKu? zV~Y3aG&$v6|+ zopUDVHVJ?_PC2K)pXMi+ew~Y29@1{>XoS1a+~9I82jz5vrRYtda~vBhflcc7g}A*O z$cL-5Fe{pi5o>Nx0aE*UFyyGJoI@Z(ez0sd$2L6pL8i&Tm#%98B&eTzSKnp=fFxB! zwQ*X@Qttw)P0&^bD7}haocf0yIqQ~PB@;R(Vb&%vP5{6enu~g`SpUc#=d@yQk#(3p5Jw_~GkWnp(hdI!d)C-#u)o)$x3h$j+& z%Nv)4bFvGNhZ~oqo}K_`b>r&FR$(`fp9DU(A%fCwPez0fHr*`=X9=p)03zenAp*$r zx*&_bi2!m$k^qF)D!9F5=Gyq?b57Q(BCL57ncElissZ$*F$nSD^SDJ0Ub*`m%#7Aq zJk-szO5E+*TLzjl9b6UeAj_RW^(og}-;asGx4_|bX;+D;q#;~8Sf?`>f zqTc2b3Nj6*AG`@7z<9ZYR=_*ZjIGw9aVu2rJkRd(|Xu&2Zm=ykqhAE=#s=N_St$>mczpSzIWE^HIF z-hFAFxMEUr;N!++fQJbz*8x^7axyAU&t{-AY|?H|6h92vU!#TPl7}v=-D#Ddi)@!Sg3~`fq#%_uQ}^WX zs+v2l_O$ap-WlrfCOnf(FiI|Vl>b~@%N7S6DmPhdv9}mCGj(|RmYZ>GdnU-oTRXxQ z=_7cJ9x4lyHakFpM{-dhJ~%tev)7Lch>^+b5b|i@f);uDALFTmnOcv z$HTN8;xuvlo?l*7QIltPhbK<0(ej~oKf?S!4a|QWF@~j=R<@7$@C;=%x8zaTM?2M3 zJjG~+3&5LU|2!_eXXS&jyRhVC*}z)pVK`N&_V)i}y&%Z}^duCONaSY*2A%5MU^ibXaZMnYQ%vd8oIt{k1&^LE~{ zM=&w#t4>fKdn0C8NWv-@a+kwkLC&qJy`zr9kZp`BcLmCj#+r^Hb{)7oy#OJ1BCntkCMSPg#*pkLBiu)bxqBu`|`OMh&FDzM| z$)P{U`{jFzCCt5~FkP+vQQ=n(H@69i!wC6I%DE0N^0RUxa*_AuP|V!Q;jp5I1IfRb z+hX^V3wNLfQ1cWmqvL4hjP5u;zbO4pMF2jg`7~Q!QiAF?8Mzxj<`?Cq zD7Q(|PM1>0A+$I9hy+;kD#kH~<{srg`R0aT-_F(pGc9lB{zSvYg2_ez)us?3y|P`M zp4P$umkWw%Ms8(xcU#SkY$!Vf8+TH-l`KTI72@o5z;Lc0*flabQk-JTKugNyg0_$G z<0=XH=#lPgGJ9tH4Ykh(W`{gAWrsF!P(B`sMrQ-Lf;}IjY8DO`t9{(K0U_)=l=9DD z@|ap-xf-73?pO}EYEwXjjH0H$v3o-0xmcL|{qqvBuh1&3{eb{DC~|rl9ZTA+s85ky zCIa6>(mq6F*_Z%wrnh+=|BTzlq4pqKSzGe)Xw=4noQJNVoDC4y*W5<~#2)x1rPf!& zoTa%M<}CG%6IT_UAmCER#pLG#r^`x)qlrknn@>Q}xWjQp&2AT*-9ntI0HP3e?#?hk z9&P3~&Cb%m8q+Su6g*rIREN-HkmU)}%K|}C?ex4YaM=1{>O5jj+7(f3myOOQ+2vu@=ck>wt~wv#e-zF&-O zH*b;M);I!&wd!9GeFxF zOZc+kd*#6P=0X6OlLZKQyG<$qsbg(3s{QFCKg(TQ4DQqkQZ6C0z!~EL$GjIbB z&&iFu5}3}5lj_Fv|4=e8#;`VyM)V@M<;H^U!b67K;diB6kKitYurVF3#FD{tHRiPQ zA}RZ!gaM{p-CglHd2&>KS9Wsn>d;=_~h9Flp{6KEl z0BZt%1i(XkuJytB7}HC;bPL4vc&D1Q4zEVuQIX3AvmplU+D>~~W>8qB9E9GzmXTv) z-;~wK$d6b9tKZz?hBdDkaVd@n39#u&?M)V7tL{m<`k^`=jQT}71~|13;vyojf-mA) zK5pa$j(mRlm#G&g4ni!DjWe>=1IUVl`1lk4T6LgdL?Dj{I?Ux1znqRF#GXMW{zV#|^&N8CKARS! zYAkY2FD2#Xj*5pIiUX#E52X>3L_^79QRsv~8?vrNE zzsb-3_J1$1R}c0oIa~HbQaPPEgWeGFi%D2{W7*g6FU_K@8@oTM`cc_O2R@DucGDhT z{`Nnn#Xt_-LFGf2gf;tbQzFXKxU@ZR4ExQJtw;H-rSX>2@FIq%WD{g3a^}NB_lTRo z>P(Ja7Nbi`zSw-e<>1L9*e;2%KjY|r>a39LrZ=9H63G+)x{fD3M1EA|t&M@;R1UUj z$qM^%G@AZ}h=4MS#qq;rDp%>syW(sHrw2wzAHFLKD*%eQdPieD5Nzk+kNL^8UkNtz zV?Gs}`7vp#N0a)tbz`>%e;OXdsC8)J%V!(IA>FAD*Y>U>zN z(e?Rxb!C54?t&*|VCPnD@OCvh7g$!G)1zQkf*4~rzJ5M^pSuvo8@p>SH)fji>*iFn zwl^L32Sw}fyvoU-j`2EwfjTZ7H|b@5I(7yToRLhl$MJLo^J?zyZvL`Xsm&iEE9IY* z0*O!p259p*J7@FH9s2ua&URP~E^z|CI->izQ%jv|hc^Sus$F2<@cF@!-Q5wZi$^-B zoO4-#{{5S3cu5ZwU)g=uDfFyVd|CDZ5b~~UkeANLof9@fWIvj2%P7bJD*(eekF&il z=%VAoA$iloVsLn- zCO}r64_b|o6M%oHFHl|aHGc{qkI=Oy9An7bjoW8w< z5PNQNTK16t(O!NwtOjDJDI%cduGrvj_nZfdb97$YJ6yAUjQjc2h2+mm7YYWOzhcii z_Gsurdhm48W0%eQs65QIB70^&4+|^kW4nJ%F)l5kc)R&|?YR%l!8zi>PI!HHx5b*N zb7x@^04px?-N4;71>n;yT3N-gAr8)MY0ib%LljT_1Ep&lqrNkx3?G*5adkYzte@}X zLt378)<*rxIYNeSe{jzdk|%F5UfZpPXI|;IwlU1li}Dij?&aRm79e!Hf*rL|;3*yb z0QBHZeuafv`#+IS!rIY!H64>Z%zl0`UVCS|HxG>k zBado&dXikSs@gvfWm6oR;I( z{z*B$s@BLG(JsUj$K6A=U)QBa)1TLlDb{JD^ba|H<8zSMpVxJfib~e@mH%J|C|^6U z2jYR_!944S)vyu;9vx0BPjCnR09!qz*^TS}+KQz8i=tSw0>pS69wFg{^20?*b|pL& zF3Vpk0V>B{LBh21f)_%i6Hb(`S+11K23$G>qEjoiYujz*D zpEoYR%wWT}#?~(Ye!X4LwbPmpleI>BxewJ5ay;Cgj(qe!1_e)5Zll{ZyjL>9A3J!X zBjPr`9QcT8bK3Z+H*}@5>cpwLxZd#0dH^}+AA4vn0JeN!&s_s-@E3=ZBELMT^2wa~ zz;hwM?lWUe-rsGyi6OI$wZln%>G+%7r>=9l-`#2~WdDKuEZsM925yCvw^Z|i=tAZ% z{5w}4ilO~pyLN<+UlQ`taz@Hz8Kny!627j|1E$SYXn_9u*fQMO0Ag=rZR@D@XZ!aH zH*w{0`c zkE#i16`AtxAduJ$hZ-w2qxRi#z1Rf6szmz`5+g z8M9d$prfQGWytU+_oRmJEr-)tJE$(N@?ka8iLdO=O;Ul~E&5ffu~!M7fA6Kj1GfV0 z4l=InhDZUeYU7<3e9Y@R*Ny;K-M3qSJy4w#*w5eWJ8RC$o@B=3^7689yP;o&A=ASH zi)wO#*nV$8mv$Swu}7EzSzFkXxbriL2lDZOmGUn0c-Ve>Pz=X;zZ&Fg&gzF;{l~T= z&J;D|`t-mF==4PDv|mcJB(AnzdJoM2{<^-?$%j_B8O@IF7xp`mz}m)#YFJyMG0r0& zX=6MVL-fZZa=%@pR_?!3^iyDo)Au>KcLH(F>z?94Z%c*PdMHA||SK z_TnhYKsV^8&WDDFZi~XMIawyaDA^6K9OZBOc!q#iR0~ocw%7_9v%M zO7f`yUfr1oMa6aiE`48&r&j=&y&Z~L@`VecwYFKFoXir&Q}Tu??9|1TTajZrn7EMK z0rudnJ0NlcX<=Ayb%R6o=rDJl3+LEBD=|!(BQFnzH#eE-_7Oc6F_v@k*aPFd%SYvV znQ{53>brYTZjcpePph$@aVyiF=8_Jc9#b%Z5lQ(@xa0E2`AvW1-u&V9^zjwUqqb9$ zn6}gCQ@?$kTYfMt?UA7zOfRNZ96isS<|$-ZdTq~e2>A2|y7{sPbbI8tW#P*`S`zZE zY|=9g?<;zM=T(S8xmlItW^W77Wf#W?Ay2oeVmfM_{>cg%bhF7>cj_2X0rL3OX?|X{ z>If|X{59Kd{J8eYN=Wuktmxe!G`zB6%f?KGFKhd;ACBe~U*48OY*$Td; zISJ5>wO4knzmhk>zjKn=%W_1KQ|MZBZ+~94FT7&jNh6K9-76N}=<36-jsW~TysNk7 zND;q%$?>%CQ7Vsd+qx6)0$*w>y9&PtbO?bVyL<5x571N-@a#|na0x^m}_ zJ?BQYMi*m2OqxF)tOy8rmbS~EWPhK(f8Tg!1mK^%TBeOt5)kXp3{Pbf-BCf--q!JKyL}ytdsz)pXiXo*s7oC zpeY>Fb>L+&SmXGKJbjH8jfbR;0~B|B`E_+skvT?yd>5?!{5?My|8eWwRy4knJ^2?$ z(yoSQL3j&7*Zk>Y4?u2G;K>c-*LxIsz}Dz>PrJE028wR%O^5EB#7(4&6AJVvy8FbR zA_KqRSfj;giZpyMxT#%Z7{-1uTuZG&l#}=Hu%Oa7{{P?{)Lb03wY`#_2gonnf?M00 zrToV(=!HE{PemtJ-jN&M(8YY>o*(BY?)`LxjK=i*0Jjn?=K}OT93qU*hKqdms*&pE zZpQHeq;YNzrJlIcPU~%cRh}X?euF1~?z!K|Du268k@PD%O?cYnG}dNMGgB8hGl1|( zi2(F#xHd2j(2s77vPmms(c6fZVH_Hhet+=e8l72xoSR+`wam%cga+V0>|a{Bd5soV zzZ`hYh3({<=WDMvW*f0TzGyVkJPdY=oL*idXz8GEwoU=?Tlbc8XwaHPf4Dt6(}!1N z5-@^-cK<3zWfLOe6`X{s(Pa$%`j~DLZ2Q(ceKf-3FF0<5ypJ|W{p}da>%*ooE_nD& z&H4g()lF^Pxd3HHMK1r6OehTt;?r0Ynzo{=Pr}IrM)32BC=29k^Jj*j{`=FaW}=a@B-`}^UclOBqfDkN3R?6&!?N@bw_UQ-s(Pl__Q(8ZFcYQ zK4Aa$`JntcKPe{X)B}H2>VxD#mRVsV z!i-`?DEE+pW1i80Fo6D%Wr{WS3wcL<+TWSM`bF@1T?-Cd0o8J&k_eD{ZT?XePii(A z56h#y;E)nvWEMCxYoFF30O)FEdUh_pxPt-9%iQ$lwNFO9e@z0IyPgTane#%__D>sW zfOM@Cg`8W@Z*2wGeMmZ(Mx!2MH*nO=ob&~6Z9fYDKiVX#o9P&{KH4tc+HoO<9AKY$ zv#e@x(K_^UP54CK(O#_K+&k6uGG9A7FHfq|eEJh2|K10}83PO*L;~=MR~q=kF~FDi zN*@{rAhnwYch)Nt>%|zrU%#OMKV%rXceu7|_qkoU5j}C=%Sj!_56W3tunv#2wpUE- zW?y1;D`d4t_5q@uZ|l&b0rKtP`Kb8dm4KVocw7dX!QEf5RfW7?HaE>~`>RQNuTgO= zZ<0cG1dz{~3!=5=a27s&OY*SO#dtBZNkW!;v@GQP&1OEBlw{$!*7#+u9aTOA^ImgJ z^P4S-cT$ap_G4fbwPqn?TJdi@IuR-Wzr{E+wTf;py3KlCUx9`~f7;2(xXJO!+Hu}* zQu7h~GG%2{c#g6%%JB;okWuOT%th1h&*(KcOC=|RqIKl9xxJvOutZ4JhB01if>Z9< z&RLGW7hTG`t-WTf0m~ox@jFY2Bd@b~`)bV=juFUPiGbl#doC$%>^|J60K=C#8tDk- zeTE{e$PF4=f&^!s4QHwu(#sozD`%7zAS)ZgVQa&C!w29K%S*|&tbQ>(z{$~~5y^tr z5qbMGCl=1RBYcZ zs|LU~-eAHvWQ_vXcoPn;odPb`4?_gt!yS77^UEyMwnICmr;-NtTXHjOHP^-T!QIE$ zlc^B%!v%II_{Hm--uC_3itfR)EqwfX*RoquIXYX2I)N?TorX8e0`S+u4bUBqqh_E_ zAa^tbnq^vOc9j6BWrD^783%>l`!3EzOP1dFI8t24VSZ*M+-m@Rewa@OPRekapb~4l z`@|oQ?cu~Svl6R&N^vPkj)*DpK1(K0uQz&c?UIDD_lBX&r~)*+e-R)LH;c>i^e-iV z=tT)~EI$RFh)Lq~^e@6i^DeEA|Dk-5>E?KPV_F7dVfTAt9*dRx$j z;e=b97sbeKoy|cpz`yg0#ELp(B|RVa6I@6*CU{N@&_4!$*tPv(PO*}5PnWZZ$>HT9 zCu2k&EOy-wu++VpR^Q+`)w=EHnz%`wKaBKlY3qler&JU*sb+d!VS~m0#KaS`$;%V z`*T*!<-!?oYhcB)dijTgCEp7N80o|Xk0~1s2xIm)xbC){F*9ckhiCUV=l~(~z8@(+0%V?b^Imj^ut(mQe$#A< z%}CKvndQdag~#%s?B_SrAr28KwMQ56z%3t5NtDJ8zvBo^T-e>t9eCB@-Y+=!^N?+h z>h~S@f{orS+P}U1c?tu^`kJDvmf`U73l@dmbg8Jw#JA=Bg2Ts;-2=w8?$G-jCvEO-8)5P=IGMmVL2>nYX|P_ zVR=#e3

w+y<~0+!_jIu%qCC4~D+?3v5cc5u2rd-^ap2)YZ-EXaD9$0DbP>kzG41 z$+@AmNjEy-+hczP+3bTMIBesa5g;qC=|pqo9Ml8wkrhkEm9ydru={i%l;12|B*TL4 zooCr@fU!q=06htTZrz<{Qxi_q_9+4)&4P3Yf`Uj>dQDJ7@Q(sY?@}aELk|#|bktA; zX`!ezrT1P$q?gcJ=p~^90)!R<$;~Ht=6P|yy64R9><2hAyL-;Lt{?9-dR5u}AG$l@ zbGt;Z+y<>0McLbGB-TInCN%Ntl-ut5rY5BWJ%rK zLwZuowSl;K15H@|8FnP~CX}0zxysXUd^qAh4^7 zFU9az>Rmg^t}$mozbpmc-d7Kf$|#C+rTuPsWoKNR!$@#ts=N()YH@uHFT&QQ%YtYj zW3ywRr&o%b^+3H$_EhJg+UVx23ZD?kZPFC#NlH*T-SMe!@U1{=u>Xs<0vccPMk~3G z=1#pMKIqg!g7dWF!{MBR#l%a2`Fa}rcI@p3&j?+kz3J#O!e(w&y7kz%kEaG6ULx&_ zU=BpfiCB`g(a}5lTgz6}ZrH|X??Ayq48t;#n8Cm4NxlT$UI{g{0=U9 z-kD+mp%u{m%_Y_PVy4=*Y}-6Y zxwI>*R<-Inz;;rb=p7rETMrU@#Qrm~r)#&Axl=KeObV6AmiV;lWTCXUD|LOELx@tL z;_wgO?XGocYSQMuL-J{%9rj|IB}E(Uyl9&$(y>reUE~Ur(co%k;gwGGoF~egQz|g) zv{KGQm@`tqyhVTwBSVxmpU|w7=g50+ab~TlrLEq?@Z2bIFr4(Fsjj4fF0Ty9P_jR; zyA|`3#l+i)%7u_R`*&J5oVn^A96fO7NSgM{4uBIIZab{v%A9hlp|~ihbE_JWz2Usb zbKbDyM*+6jAGDwd*3{K7&PCK(in=D}%9h{%YR6{EL3@TN7yn-SI>>|iaW{SCj-%M< z2odRvI(!DIcbXQFu%CKY#>%hj+KF|`&gmAc*_Py&pO;2b&doOe=pi_<1900GM76cl z5Jz6O($@4WPxijRae}HBB*>%L(3M>Siy#`#Fb-2lpHAl?;UO z2R~Ars%pvPEqG@%@o|h$x#|L3JcR#!KjJ%6ZXxToXg9@|vS&+LhNJVMLl2Sv&B#)S z(-7}#pI&{v=RS`%{OLb_c19D0ve@X3WH4?3{M&i={-)YL0bxR{vN!E=)#(ytuYLf3 zqo1{6)L0@BkJ0m#hn{J1lI~wpSqAi> zf*pB+Zt)6hZ(gF0sostzJ-zN|aiihCfZNyxj#x#N;qt@JO7=YQEYeCzm+FG^2 zOE2cS8UD9d6ZszEQeqmf?Lw+%9zYFa)RVXt})TH_+xRGdGqlPAd@cnEjSuC$X zLvy@?qj34a<0-Q7%Y_?~DSyD59N0&ay#AK;FxV_dpwn^)*kjEzjYHFnP(yxjj*05j zu1j)Kk9dB7WiNVXCfkV_<+3z}WGPd$2Le^AF$uDbi|WtWLb{kKu#sBkF+AfxpA~y|j%VKXdoHpb%l@5O?D6!7*CBVo=^_JmIY{eAA1ueYCcM`w zooYf6zVWo8%kzdw$aZa2jeMBmJHh5R_(v~7gR~`VgyH%!Z3efhOyZs{Mp6*w)1UFo zWxv*ShCe$yS#GQbT;G~Z^_^~s^$ObPl=9bgfhmbC=zCcFS{&C6!XcQa-2^GjJQ8hN z2mL5~16L}AC3x64*9Em}e!Um1_0Raz(4=idtTnv}UZ{@F&9G7sRdTtu83cLqQzW>? zTCSjla#FH+NF@!dY`Em;j@as(_n1$LhPa;23-zngTCY&l6t6f$(1Zld0Q~)Zh5!pw z4+X@~et}vj{F#e=KL33^IYp+5!r`5nNN17Z=XmBqbqK0Ec}~Tam4D^iU8EYv9$KKq znQi%W7RM4?xn-;tlA1V&GHz$xMRlv7bB9UMhZY3yac2{R2*^bT)=n*~7joi2Vc(2| z>li%vRZPtl^ZF{)tkJk7<@BS3a-(_ecfl`dH;n^1D5fj-IbQ=BV7@H;x4fbyWLw7E z;H?+TWH3Z(wQMZ^dkB3raXCjH--1qnFw7hBtCd{1KH2C@|1z%KGfZW_6>THJ6~q#- z@^MMw$280_pC?LPHRcXwLyfeL<_blq<`DH@*XP0wUjE`et9%Cw%7D*i2ky#aFPkiC zEB*{Aw>;Wh;rG0?7O|m6sHzOu1+0RRgjue-mID7WBYr zfBySbvE=MS8A2nO4*rqqa8f*ANT|$n($u$W_L?t(1ifd*vhak*S2iC^8H@ezAGrO?KrpXP^=!$eN@D!ZWAhqfMJ%u`q?uzzntga=?BqzQ zXVxSrJ7?B%AP4QoBXVU+>Hk1z`tQS60&>d1-ya7idbo2)@@}`-cRz-Cid~Ef{vl=W z`Du-P@4SVGhY!@Vz4Do%44c{z9*(c^x$h35^R?X^OP!E+;)4bXkV(tg?ABB zp<7BysR@bA_|;Fou`gNd%>i%J^gbm-tu-mDDthQnP1H3U5?v|HMMxEnfc*r29A8x z-aNnm2jBGg8Xb)yBq@y|{RaC8z&&Z!R7NkJB`~v=MJIPq`ckfNAb;HNYg=8iwY7ks z-Piib2Ps}QqE5p+1&GzKrsYzFZ|w(qw{1n)OGo%p3Oi3DIYyD2rZ-`1CMb!hMdj3< zJ$FB^M+yT;oi9CntOoTk;AnlAFCtDMgI9(r`wsnx;;3&tskug>1b|zey4b%5$h_g{ zCXw&&viR-t{Hw?xJ|0XE&$q(bVrRklCru&9a*J!0R>P+=uxFsw=o;|FMd+o@QD_kB zqfI(annSO`)zgpj+YDka3_+T#6vf_$MN=o5-jGf`C8Qh+6WwNEG~o|1ut(fGT&uer zbU~%A?q(3gh&IN`x8C^~*hPYtXp~y`3V4Vn10CUxTXcWdNGey0pv+=oCP<)YH6 z53PBH(w+Kw?H&h(+r`}N-!?kW?v7id>n=H13RH?*B1Dyvn{ls~(M~+XR_# zZddJZbAp`=HG6AX7XZh|1sX-ry&H+YIdE4UHm657MkKQyC@g#}=|I`=NK3}a`0^}d zAG{d6yKA^+JFjBG-h21hm$j=|_oHdIi5sXrEhzqEni!545Iy7>B6bbU-JW0rS+O180w? zj}aBl$06!zTk)#+CQl2-EMZ!s$Hbx?)rTxrq2lN4hqcp+j9p*r6_6{2cia26kaMy& zvLpUw&9|C1FyRbfRwRpO6}3rd&|sGQv-4Y)KJ&TVQkz_`qx{0jRKn2Q56dV)!ZU2@ zdgHtWrd^Z)V|cf1vEXgoBT}Tx!$(2&MRNTr#YJ$bK|7~6DZ~V$w0~Ew^XMnj%eNd) zH!kx2V(?-)g5_OPb!%QsM^-ECaT}^`SVNAWY_bzZT+;ho`*ryu!yoe&tK5LLGvJ5( z*n0*KfII%Fuy+yB)RqgEa%dj9nY9_pl*RU%RXN{_fql}(TqfNu9L}3#@_37McJY%- zpX2Z^jqFC^2_GvHoVFa5J}rtP=BU^@v7PE@-<9?gEU^Ti;n_dsz0>W z%#6JoAO`owsBEA0{*HgJEiB(l@C(rz<1gM<_MdTOY>hMDm!rIo6a zDxfJswgMCwsepWUZe=V4WxP(Omjlp0Pq|(PHK!h8;UuA&7w&ZOBU>)KoGY5Fy%pV& zbWVG@KhlF5mIe6?@U6ys{@l>=$8VwO9wA4HDaxCI|DwpYZdeMEAFO5HT*Vu_(SZuf zS?o-}mhG?Mb#bRPnuJTu-8Wn(KE(XB!s<^%<@?K^z>E852aXJ%-O%~XNKE>6bkwj3 zi_CKn(qUNwMl!diKKmtsFNLC)Q4MVFLS(=NHOoRmejl@55SUDdoj085X#^9nfhn< zTcE8K#9MS9Q4<~Qn;ZS+wupru5HUODA3o<=vomdm3KSUNH;^;|jZh{%s54qx$j`gM zi#XlB6xV&RaM~E(7|%E_YqByGAVk%b$)Dr(b9|`QGmD(P?#fJnZX3GAfAK{;*$oUy z@z;eTyN#NAlI)>O4&xEZ;Xj69E1To9X>LPxA%!H8Z+J^NM0)#rX&RhIYP#X9j1*-O zBCXpK=vAy#^4rITp6|7g4P$I${K<>r_YG4#xRO7^eTy0R;^8@8va!=fnmq7WYf4z5o>R#~Vk{bU% zV$`3azz8;HMnolDtFu;|!$4%&B6)>ym2UUKM|L?;6ODCmp}?n##NkVx*9Tcod(c1% zDPgW%i_;6`?(yLb-cR+!+4 zsXFpj_S{L71t!AAVzF4uC+d_2HYsAc)Il-ShIq`45BRpI0}{mjK@dfFs7;6Df2QLu z4m_kQX6c&HUGr8%4Q6{L`G6$rm2*O``WV?O?hzDjlAE5v9*Y^)Tm+p+bb;mv2(`m1 zcgimoB^{P7r!Fj2Sw3PNmgckBb={|4ktFoj%>~&5=l%9k%3=O;;BsOMIjEU1FfVVn z$5kYx>r58DA?$*@bF>_z%7eqOuhl|*bqZ|R&p^cCvxO6vQ&?o+$?L%o5)E+Tlq31( z1MG6kqo@tty7INmy~~F${$96lF#M!98F7ah*6pe@i_dOMBmNRMiJyqTA4D6F{8*gF zqXON6x-QF}(z~U!^S@h!UO6DXdgAE3GhQnM_uMZ9PS`A?)6XRVuRh=5s&&VBUe#Nw z3#{uSZy|7Kr5@MCFdfy0C7%^0u)KnO2i|Cod~$1bDi`YDyAN)r&N5|V$Z5T#zlG5z0FY=!$P`#yeR0_%SktFL2K8mYtf58XaTyzl#raowa?p}^8LD5S^qf~ zav6nR!8hc8;|1}+Dto9IJW_mFUGq~&W8qkepzGklaEtQ%Sx9sHn&}5K#gjM_vDD|x z-|H1FRa6V=8DIR%%(@|UbYdMGyQ9_l5_sso$J=?AxegE;8(94QvL32XEYsqZ9X`I+ z3(4mkoh`J1`21)Umm9q}D}ypo`R%-DliIg&dpIL}FyK4%H{)O_qmr*(JYoz7;(GR* za~e=6Jmeq0h10CxSnOfDh=%d(E-eTnRX4F`K>xja14}((*fT!NKC#yj_ZNtR=*iI% z=(8%~Up`oTtWe07M(h%Kf({}S_}iUTTsXQ#NoFwOfx#QOvP(v#B_oaa_wsV6QcKd&S-vU;R9)zX;-W|@BCE7#>Mwg0ssLE=2|+qFb482w+jhWU zn5W*@MwbicZ3W`wWDCT)ieDMCbH|L{YdOcw!gS9{1!nhtwB4X8=&mZYR0%pcpvibt z)E?=JzoP72?9axtAq}mDMXH_Xn$!P_D4Oyrbl{>o8ux)`+&ViXG&xSzA*36!OTZ*V zE?q>u>ijLLzslkTfC#AhD}|B9W2=GDgG{%)oxLP%H+y!Q#4d1x@w)AJ={e8F3|rti ze0QC%%bai4?ta(LUr}}_l4k&YdN3HKUGS)@!f;^NtNOC|swXf0iB{spkZhq?x87#X z_lfe|n=_JkqJ31-$1jk(?<%xEx{xuBbB8Iw>W#KnhR)yse_L~4`l(^Pm8I2PUkG3@ z_)^`;tbD=nuy}>Z(c{sTTEHqK#X-DqDodm4>uuQ<)qpmdKaepUhGd)S{NSt;Gs#EF z!mLk1+`cXS@@d)uWo0jn73dnG`0CC#h*e7g=}FX!uR9A23}7;uMX19Ym5K&=0eh@U znU_c3tRTCyow}2fnAiU>O0NFLW0{U4pJ=DQN?VrnSc4{;G`1uC6o7>gP-FVeb!8|1YBk)^v>#DO2tFh=xO? z!(ou!oOsAeBH2d?;udTd2w4uc9ga!Q9;gAwz8}Uwq^IrL0@B78#aw0CB}-)ogdfHc zD}ck#+Cq8_c7}kB9WaSE;4~z6+pxE@Z#ktvFP7ghJWyivz3)40QETS-OnEi4X$;H2 z0e{Z0X;=<;Aw@Ob)WiM+#co<|Sj>PPafY=X+sUTMN9@)ZF5O<2#~bgq*NAJVEG^8; zK`ztfKbu;86g)E3taaiIc=gWOJENnTb2VO@yU-}KM*{K%t5kj1QGNd6TAQqubOXbi zi7stu4#miO$Q`%_2HQ}}xmPXNqLlDwG4!#;%0I3F zer|k}?OGkP+u)A20;Ab)8x-GQdFZ-VRKeABCO# z;=(Y6vjR>fFT`K$e!FQ89IW=Snv+)3Cy5@wvGT5WuzzHRk~Hw5FyHTuKvC)w>(64r z*ZMv*stjS!zuFUzCw#)!>Z=uag0xgZ()9JE&!sRp`|5$d-m2_{)y~%g%CbYeDpjKe z8i&I=9SxbFKltJ#YKwM%8R&^ty(W-%=;|HQM3i4O^`cuUvul>#9T5UU$x*cLQ=HtN z)X#NpRj^b)DqaxrEZ;zwms(Drz{nN}U690YIBEkKNxmPvUrG>-Y<9}}B}H@xrw zIB~Z7-Pa@$Y8|V&kFhzf|BM}j@&x68ME}YDy*Q_h6FU)yo~o6qYs+@pv_ni1p@7-h zfGl0F!E^U4d%UAa)#USsF=`7Qd6Qo8KfM{-T&MHw_Al&QVG^b)CuUvg;$G$L`iz=h z>*S>XG2i>vyG_L8Q}11{ZWHzCZC&YNNSylGb|8~9Y;~Bj+IDk%ck3w-huzQfNXSd* znt4G?dbl=|(;u39akBA2Nu|{kB@UXHYITNJKFR(OUvKHZZ*A_CW#uKD`)0hXAj8by z`gwMAHonGpz@}5Dy#)Wsu!H0d?DkfKbbt<=y_y>&gcU$bUo}*Jlra5g-XpnMNiy;b zV?Qb|FP1y9!IBL3UMp2lZz-eJ-+apvsD`;r+c~d&rK(+3^5>blIkd@BVYyTBFz58; zMB!T5#%79*A$%l1t8ra_mPkRLY;$|?KuyyLlp+R&mH4Umwx2yrkaXOY{rMf?O@sP}!)cbdC2T%^m7gB{8IX=UHRfH{Jrl2c)Q^a>ao zRbFp4>_2SzOD+ogkWU2?sS4*gEU=Hc#!dJ)QuNgK+JZ($# zXV|Jsa{R4}BN$-e@6xB0vXiEb5}-qS;EwOz>+mtp%CE?kqccSW1{p}Kkt@!+Je(!T zoCb8wK64vo^|}!>8`J5sNNG(z&`{*k_x>}lk-t%0+~DBoN#3g19Pjo_4#`m1~0owp@-IAQ|Bouu<&JfVE zx5)dwIShWQ6$IYM2k-Ony~?&cJAND3?ec?g&eWH+p$kv=TjlZidi4(R1M87Wc@#j5 zxv9xj@mTCDTkU&=n!|f9?P&xE{dM=AGuwWA*bp=G;t%F+V4yAcP1`=fMkR-5J@8I^ zzvXv#^|{hkW0XBr$Xbnr`%}Bq`zQ1_b0=K=y}r(oaJqJ9=d}ybVVlx)yM?|xikWe{ zDSN%9!^TGeNXnf8Nov#2(zI@+O8?#dQSE8H6tqte5dSH3(%)+_vde=MYY)*q-$Zy8E z+=^YYww;fc(_DOZqghXxYB;XT_%)^l6^5Va2$Q%!44MMd+E`J9inpE0&f^5Ih2#j;e(tqn5i0auE9t9z* z#ge`28U{^f_o@;1WPd2;f*6{%IF;^w;8=8p{o%uFY~^q*ZZsmkjrXslz50xaAHWd; z7Y$@UYh<`wbxDbHK6{NT}}O@PU-hT) z8Unxc{(*C|m!}{`_B#{w4c_yj?#ZvS>)CD$g|>1%slL_=_rN&O=2TPWm56r|5a?vV zon?dTia_m`WFyN8iJLdLVOA{_$EwQSW%r~NfraD7!HTp)@+^s}u6;d`8>f<+T%K?B z3_8JxVGcw7y}GL@NZHKs5=|?NU|BNxop9!$O%}uNOU!oBeNGRlnz2j&SmF4P4{r2C zo0-NKLFpFcgFZOc5V1fD3ck`SRVO}m+0*z0!>)RZvf}7pA1@=lE zsxBO|w8}gR_OD}P>2bl}wvaZrEmtxo(EAB-x7p|G$hEHFj+_Fua_J>6q#ydX1-D{WO<70_e;)9z$;N1{1zEWu4+0R>z$_YCYj^3#r@ zKBN)GHKL^SZW>i#8*6W5lL?${7P^G{`vqqSIdk7G!oH~&(N2AS5=a>Cca?chTz7f= zyDUR>pzrny|4TU**1V%(m-gS`cNf#QlySg7aP|@rs$ZVt6fEA3uS)8P+o9k@CVRfR`Vx%g2n? zBPRkLd%%I09nqNJlRAz$3FbrFBSrzAq+=HaKRGL0aLI~xg&?Vt>nlV$m^d`$Z?l1t z{;Tu=k_@i3qjESWX00Cf%SnQQx}T`IpZ@9hyE4IhyN?3xE-6S=6;6Oj_mMFo6B!zW zAAhKFT1D{E73Sf(OS4@D*=VHir%@VCfNF8Av8`5K{*N=MHd>;p3&`<&--LRp&DY$E z*WF?Gbm>h?=u4jz5I#BP)M=);a|?EuoIYI!pmmEt*A!Qx{n6HXcbAw8Ph1Y~0ft44 z%~@2|21GNq`)@Gk|2a4{&oim#P4#YX`xB6~^xdVBT z+ljQuYX^hO;_iJ|)s@`Ec)U?r^IEJvzkNP?0B5-TIGdxF*W=$=4a(E&1mm?f@TC_H zPQvetPtrbR;zduTh+d;e@*-}xM zIJI)}Vu!eGznFhLnIPQE8`J!S0A;mUj`tPZw|Uu_4SpHr%?1ZPv^R9DAW25o+hn7P zaM%|&sl-7juY;MaP9eGbU9FN|06WPFJ2>%a$g|A(^aH44`NkS>Dc#jFUp%hl?8}t{ z08H_?@--T|1NbInelj}u2H3PAMC(bG|5od3N#~q3qN%N-&pYSVm)`8D&Rm)rnfocA z1@@v?nOXW;cG#J{=BjlIgL z)~TmYc_seRizMt^2&I45SZviy%1;0Oh*WP~kw+et;YHG|3cQoBB=!CIorV_r6}LG& zpqYQ$b(^NPQ!?#~aEhd2Pp4MoWp95qY@_1YrMTj;i+%$w`Cayzt=Y|YhRc0s66X>( zz8ZbK%(fbbGcxd*pG>Nx@>fC4QSYxv(Gkz?F?bO%@9l&d`=eim0-fxig^Kg`Xb=(< z!XKBRV;dYk4%x+tb1dE3O2KQ!)x7&v2KE!ec5{TlUNE&&uCWhS#1x5696VL5Sww`d zS9@D#04W9Ls515sVjgO+SB$*nsK2!klFL>QD>r_)&Hwn<;?MdghXXu@(#8Mizy@zv zeEX^aCk~Zn4%>l;bxH`fYOd0eH`c4^xIo|@rjSN%b-dtnb?Zyzz)c0U*C_U#tm7#+ z4;`#?!K&ojZwvp4E|q{eBmLXH8+R}NePVyM77*>5oWpSA$GR>Zdq+$et2p^lEzfCa zCS|dIPP^8zQch6Zf6z?^Pq0&ZO2fKfwgBWwc+EH8DU8G?+}N>C!7Jf0Q+io94f(b{ z^`iR2kNTOz%n_CzJ15BtIj6e=KB(GKGaZEC-Ljo8OvhkgNb8~%B$7X)da2#CUYs@` z|0)VH4cifC6qhY$ZXQNZriZUK9|xSh4A)^moATD*{#LisDmGu}g?;$D#0o-Rf1`m# z6KJQg|09h=?rui?P+ivJ$5s{#U9$|RlRb=YpL{UYaP2L<>(o%tKgGu9=g$Ase(dBq zDjiR&cgU{l4LTo`jjLY1DQVnK`@4$unAS00#F@YFg{NU(&H5{dN5GHPe850nbKb-&ot}O> z8|+>EhMK-N(`Wg+H?0fQED|s7rR5IY^SvUCXTt|=b3dS$>c zgL_%kLAcB-Ll*3!G8osU$opVk64Q!#*m}y7f0`wD`_oww$xpeLHHA;bx%`;oVr%@x z#_Z2fsk8TSxqfFSky*Ad>`yK2kKm|yQD37=uSXPlh_~@WqsqaX0eTkXl4`%R=h%Mf zwEFiOG}c%Ne_cRAx`L_4`VpUSu>Sp+Q)Ds!P4{xF8l81)Iyz5C2}M0zVk9Qdxo?gT zh`zLdgLjBub;dM2WZTIdYqlhevSJQ9Zr%h?3XjAwBoR_!er6GWabv)ZO1eC zPgNVyxY>-G4Sbt=-hns zUwv6FCro#Y0KnLNVjmB9@>9?htMW`KBz^61lNNc9=FYzGx!GYiY7g)qaiis)j7M(< z?)g~yPD0gxl++GlF!C#>c>NGB^LQNE`xSa}Z3;i`xTH!)LzvFw`p2ukvY1~N=jqBK zcI|FU#)k=nlLlfqHBaO>LZgiR+l*r0{!E!rlba-Q{N)Z?eKM|ByZB8R(3wWHpe6`c zli`j{HU3wCR&-6YdO!WOHc8!Kn_zb4`sOTb{Dz@IyRhByZ_wGqDV@zt4O#M#Cq43A znBeKggDtyxj$!UI!vW>EffW(Uji)_bi4U(u{Dk$fMQ4kYUH(x;AugN;Kp*tM^t$mp zNX-sT=7n!~$8XW$amdkY9R&4;q<1&`^k0>|ytnEZwJ!tb%{H^P4q+<@&h4ADC;pdx zH>3PQuHOBf>rm={LEH$xmrD`q30QOpB!Lt~ZLG>LT9To1A&`Ic90H6ktl(BmdtJOO zHe?dyps^k6nQ66`%t>g4V80|d8%2qSV?`fr54gz~0JB{|LeUEjzCBZz} zPhC!kcpzo>xU|#8$I3DQk8xzJ`B)|uIM@j;ztk{DUNdh72Fd&b*B#`Nc<8Di4^SD? zUy!?VEkjH=?v|Z2<1<9EPoS4{VEXOP(3LGJ(T)x9gG{9<{*2?i`hi!K(vzSOql3!9 zNA^1{$NnZei)do$dHZ#Am^FWm9O>&2USZbFyBWdpmK8CXMScm{8l~7N+)1} zGh=OJmn>#C&yZf7wIFn)YK3#ahEP+LTv4)r1!vqX&mL*aOnZ92Ea++dz54&^9K8B)nzbXjSrPvqTbkOqG{6;Fu=Xxd1$Dei5l;$-jDhs}EiPT9aN}qkg5xT~G@ZPnvedkMQE$5>Q z#?hrMMr>u|&+iL#j#bA@S>d%*COl65Hca8mV6E(#gj4QP7;Q!5kiKvND Date: Mon, 17 Jul 2023 16:33:50 -0400 Subject: [PATCH 2/2] Adding ability to pull data for wia --- R/get_qwi.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/get_qwi.R b/R/get_qwi.R index 13c717a..0741b21 100644 --- a/R/get_qwi.R +++ b/R/get_qwi.R @@ -242,7 +242,7 @@ get_qwi <- function(years, "https://api.census.gov/data/timeseries/qwi/", endpoint_to_retrieve, "?get=", variables, "&for=", geography, ifelse(geography == "county" | geography == "state", ":*", ""), - ifelse(geography == "wia", paste0(":",paste0(wia_codes, collapse=","))), + ifelse(geography == "workforce+investment+area", paste0(":",paste0(wia_codes, collapse=",")),""), "&in=state:", states, "&year=", year_collapsed, "&quarter=", quarter_collapsed,