From 5894881103d1ed1bf56ca262456f83f18a05393a Mon Sep 17 00:00:00 2001 From: Alex Date: Tue, 7 Oct 2025 13:56:38 -0600 Subject: [PATCH] Added 1980's Data --- Data/Pop_1980s.xls | Bin 0 -> 128512 bytes Scripts/Data_Load.r | 37 ++++++++++++++++++++++++++++++++++--- 2 files changed, 34 insertions(+), 3 deletions(-) create mode 100644 Data/Pop_1980s.xls diff --git a/Data/Pop_1980s.xls b/Data/Pop_1980s.xls new file mode 100644 index 0000000000000000000000000000000000000000..e1e14fcae491aa21ea9604298309401fd84015e1 GIT binary patch literal 128512 zcmeFac|euL`}co~JMR0AM^pp^+)+Rf*>{muL6HL-1O*PVh`0cmiKQa0Ws9k0nwpuV zshJ%uHJ3ECtSn8f%oeSzY%_bV>zZpuGe0@c?|J_D{+`eM`AjnJb1yURd7bN?nR_|! zo@jMp%}bpx8h0&zMqT69UyY3hcj$HR_}ge{7y)=^;pS zAz?hYbD0m?0!RxX)j(PVsTR^=NJ}6sg|rOPa!4y6JqqbDNGl;d4(SORNGBk@3+W`JQ;<$WdJoe3kj_B*0Mdt$K7w=>(#McKfpiYic}Sl^x&Y}Sq)U)K zgY-G1FCblp^d+P#kiLTSHKcDKeGBO-q-&7AgY-S5A0SHe#9{b?usiUI#X%<=u_`La~!d$IYzNl}gPEtkjcA#THiTOQldM4W!~E zm4;GjAeBZ^ah7{-ER_wLc+d7ysV7U=L@NHz^EyqXGH-)_9lHilujZhLzgnulTESmv zd!^AD{`yzjD~&eyU#0E+S7~?uRodTwl@9k`<-Qv>-P#x6quIi<-$?WHDtI zS@TVa9`PQgKubY!X|XAww8&yE?Ne;ZvSeBc3UbYPCioXV@u_E*3TI|4Lp+vY*Z@phVRCeLcQpB$-~&@`L8i5+&{_ng z%QBT)N_^l8ZA!?on5@~^U?Uh)Txg+xg+V6gLTho!KYVjBK}ib4{_;w*U|%_wA`28F z$Ec=Ak#58mSqh;svP>D}-guDYa;QhaL{kvTCHa1OE90BOlYzM^Qi%ZCQC4%>=c?T z!F)KrD8T|%f(5Ds3seafs1httC0IZ-;rA?bOH=)TAEL0^} zs7kOHOpP@_sv zqe@VtN>HOpP@_svqe@VtN>HOpP@_t)NR?obD#0REf<>wXi&O~~sS+$wC0L|Nut=3) zkt)F=Rf0vT1dCJ&YN>mJEmNz?Qme{RtIATV%2KP!Qme{RtIATV%2KP!Qme{RtIATV z%2G>ZvB!@4-RIg4M#S-W>o_@_5Cf7-+XfhLxEs^yNPqA7(gub9*x-5I;GaDU+F;5* zHrU7;{Ij1y8x;LxgH61_KfA89LGeE}*vuRJvm;9zl>B3Z7kGnz_DE=h(tm8Qr9O_9 zaOw?5OUdTq9P{K{iz%?Ayu!{NbQ~>(OohoE%3&ur1IFUm37!EYh%Rqc=9|=^oB_i@ zR!)F&=UDK+fB(Pd05PIQ$qOYTa+F-PKq_*ST-97Ea+F+kaX*u#M#-P-V?~aVtD>Z$ zM#)du`~|N#z-bNhPZ+sosCYF)#j6<py0UDW>&pp=hRW`S>h#c1ogNyh(?dgbdT6Ll4-M7np`kiGG*qXDhU)Zy z2z55<*|nxC3oYQf!pOV~b3wTbWQ{10-FmVP1+qqTI_rF}4h6DCDv%kS&JkRVR3P*J zLMjSm@AJHl0=b`5B*?~9xs?Rj|BO^5$o@8|NRVx69SL$(_wxjDBM8l%4bO{p2;@cz zNfp8YD*Pyd7q=_;Yne%fk_$6yh z&aTQ8&Ne1zC(RPhHYR5u@vRzAGUr2btuZ-UvFf1p+n|qFL1*_2cwRE`C@l=C=VZZrCOjbk=9-$}i8< zKTFOwCTDN07S1+S&Nf!gHdf9yR?aq7&Nf!gHdf9yR?aq7&Nf!gHdfAJdC}Q+bQP?H z(F~o9vt~{<#pO=56rs8HWNt=%asGu1lCVKV19ASfCv&^zA8gvJT{&54Pv)NYANS-Z zL#MHV=4PeG&N}z?R94X3fUa*hJ2twM6*Mv=C+=)?T-_`O<@HKyEAU! z8(!u@R?ytngZA(D+Mmw~nw$J=-45PgPa<>e$=u)VMEtc^=GrTB?UlLq%3OP8uDvqX zUYTpJ%(YkM+ADMImAP0tG`B6?GJt)XfZU0uFl$kP3<*uh+evV>0G)0^-d=(^eeByb zxg8Q7c$;e1M1_Q^Kcpfzrb%^&PLqb)sRAfjnybkg@G9*+ze}EMk z5)9V^3xBlz2f&r(8^>Hiee%Y?KX1TxDNpDf!xzd@X7%d~K?HZK`~2s(fv#d~K?H zZK`~2s(fv#d~K?HZK`~2s(i&DF9Jd{@|6Mt%;4q0>=Dd7Bh1anT)M0Q!2%a|ccEiw zxR;Kd^t<(TupjKI(*eY8#E$R-bpNgouvweIg@n$=boerh95%pOl|%FQsvH`>L*>x) z+c`A+xcUsMdZ!~P7q&)6CehM<^-`R`^1UUbLS9_&B@KxuXJDW#d4{jjY$ul znf!h`si1$+@2#D%uKR<$6?!=Kg-M6fo|w%F`gpGFn?DX-et;G9@{9DUlc`6lSV2Eu z9q%!sL2Id?r*G!%@9@Z}3WB&fL7dW1_=+VK(>cwRug#UO&6Tgsm9Nc}ug#UO&6Tgs zm9Nc}ug#UOcr5g_6$Azh4vh@}EYMn(XQ2^g3o>>$pV3;7u?|pBG`0m9oA|Jc$EsH= zsIo1{*aLyTZi;ItDvR^HV57scal?b9g2q1g%E_<)=qeR7w#>fiOQ)ixg2viMAHNwk zN-AjV;hjg<*^XE8vC!D$CEZRuyG|-->`-&tT^Hw9lCgLmfy*jvYzt*<3uSBzWo!#& zYzt*<3uSBzWo!#&Yzt*<3uSBzWo!#LvM{#gZDWHhX6`DqBxCp25yZA6V~@Z$3yp0_ z#$Ni~^UU&gIaJw}WNed;zG2pWxvZeEL*D-QInSr0g2tAAn(y^Ou2j(2g;Q2s>a$-e zXzaRe*G3hdkO~_6=FVbo_{Vk3`5}+p68(%$aGvOFOiONV1gtKhLw2GFeRaT`ls~IP z&!ZDX=!YwPe*0p65wC-7aQ??*o=Q;Sy7nD0q1P%C-!KaSg1UOCA*@%D~HbG}< z0{aLj^W$R^sb;VrPzV38ch0w^Qo$y;e12K=OS=+y9c%)h@aTDQ4Wxoiu)RzAf|cXr zc^&k%y1ejE-`#PnU=xh=?;G-cpj43U)5o6rsp6Z_ybk&5`EIAc=SGvSc$$FPL3z>F z&dS%$%Gb`ySLhwW8e%;;Le{SRc-Quqvjl2gC~PEcdhzLp zKNnziq4U|1DK8ufuN0l!E^vXavvIS_mCMHmi%xDALe_5I**P6=iB4`8LiWS1OP7Co zV=@`pg^=xUS@TJwL6cZPYuB9{I>PR$9J00xS^G7g=ej6syC`eBC~LbYYr809yC`eB zC~LbYYr80GyC`eBC~LbwScMpv?yPVK=3ndbaLycC7zb|rHga7^w>=GO4Zt}B`A zG(4mE12%Em>PqImn0958+b*dfx2ZXqHx_+6n=I%`=05%G%r^VCzHkFD~ zTURo7c4?27wj2^Mxht7#x21tNc*RuZOJ_`SI6)X774B2*~ z*}fr9vVy*T{!`)FCAO8UU_2;z{_D?!N*`qffm|!rjQ% zAsfohJuzqrLEDXdJq0Hl{GNAHzIIc-c2mA~Q@(anzIIc-c2mA~Q@(anzIIc-c2mA~ zgVLd|9SjHZwFSn5XiFAcs4cLV0<2|dr~}!Hod=OadoM$04r77?+1o43~&D~Iw*S`pe$%_Yq&KC!!6C}#F@)rpizuob|+`| zP8ZI0r+`oZx4@yZ-O1U8UoCIHdYl-*b|+^uKYgIdPpMKtXKfCyuX#=pL)z{X5KjF$ zdh78eVo2MaqV3{Cf9}cM{}y@Fot%9j_4|4)e}9t|1ox?)pL+kqml(Q}vj+lC?P~Vj zeqINiy*54T$32Vole68)*(FPav)z@m-IcT5m9yQIv)z@m-IcT5m9yQIv)z@m-IcT5 zm9yQUEa+@o!$i)~$cv_PigUAQzRX14?uJj%X%l&ickQ9KCi3=rSD!(Tc#fjlnaJD4 z#g%_{`7xFi^!8jMOMTZx;#6)TZ+jVb9o}p&PWLAA_VV@<(ame5fV5H zmmPAZ7FtC|!bILCHB!Mlag4sqf+h^43J&Cc$|asWmBYP0Cx7^46rhH7RdR z%3G82)}*{ODQ`{6Ta)tE1Z6>Q+Za8_Tk0gl!%Sp}bt1*v9%SuQ7`vmjJ;>UPy@jg64J(RUQl(jvSwLO%zJ(RUQl(jvSwLO%zJ(RUQl(jvSwLPFL!dk~Wtc6=<^31t3 z5$Qc_UPItwq>j-5L5dqHp z5Nn$nfz|>TvlXk0tUbxwBjW_NJ;~cMa8oZvgr4LrY-m({e~f(VN#3Gjq`kumdW%a{ zl2p)JT3qB-h%GGvM|msq7NvSeSiy*ZOVu?I$9s~uBwY}3yeD-NNJ%|N*!CoEFTu^z zh;2{hZBONGPvvb-h zna*Rq$k{V4!dZxru(o%aaJCmYyJ10TP|hzqss6pl+1#ZKav~~sv4YONkrg(%&swRV zv(GFF>0h{CZiUVcesyBS!ERDPXX7eQ=67>>mG^_r_L?1c@GI+fRxlvceg9<6`KMlC z1*uI>*n4Si@GInOFLE|+lyJ6}a<-RpwwH3YmvXk3a<-RpwwH3YmvXk3a<-RpwwH3Y z7nDT=1c;wTP-;8*1 zcFAX5SV4Qg-LkUJhuu4|g7)rBzIpTJo_4IDy{CQN8S7Toh7}|?Cf?`UhhA?*_BxTh za2_Umos_*!%3ddBuamOZN!jb9>~&K1Iw^adl)X;MUMFR*6O;w*?P&BNds`YNysDOm zljx?f+`PPE>_PM)f2junAHyQ1(fg3mcTbn&>Nt&lkJWJs=kC?p!RqM#JtoonP*?35 zpGN!832&pyQP@y9H2w&W$@@?so~?3dc#6v5yp1d5kmWwg>^{ouKFaJq%IrSM>^{ou zKFaJq%IrSM>^{ouKFaJqaAY*QmElZgH#P!`tk%i$5}Px*d_F`_>`dlfj}sI-lclhg zVdRLI=u8xo@}pGHM_T6WAl978KvK3#1u3TGDXE~5wB$+!&7|dRxo4!97PC~)R9e0g z@z#?rtc-P5#yTrwot3f9%2;P*tTU8F7z-yah`%(8 z9#)!XDWMq~7c%yDm;=S|;6ldMs2s9-P2~{L2xi5Fzi!#kcndYKQb5W+bDAQb&X)ek% z7dSGS*4BU%5p}iTiydvX7G)M$v&lDC@+}FjOkl}f$+xqR!?5Z~K=%6nlx5si@qmOY z0l973YR^{Jq=G;uwtCvBg<1za+_*d<@8~$W4*K}*zU!a8oh=>?aV0Mg9p2UOYP6V) zaHVeSZnu%|jNc+ABV6elp4#I;l~=|igt{x8wf=nM*XroT4^vomB_QqKqAPmqs=Reo z-nuGpU6r@4%3D|Et*i3ZRe9^GymeLHx+-s7p-$*+JEJdoOTjG`XJf+P3Itr6Yy%(Q z9PK}XWZ!$n)b_ACatec9wYa;RO!e&W6J++@pP>Ku{si0M-k)H5-1`#@6nB4uWb~!> z38^DE=}T=>qjJdmHI+l&J$Y)kFYHasi}zJ+(pR-fU)3gkRh#rxZPHh@Nnh0_eN~(E zRc+E&wMkz%7Pd(n!;RWR42Vk$vdjgUG}qupEixOX@UT*D)DX8Ihq$|u{a05%(f`S( z7ZY%9WP8mg8%HI(EMW!hK6I|l0nc4hL7N{-`#GS+?@~c~Gkb3hH*QG5DQn%7 zwQkB!z%AQ`WjEYu%tM!diE>Hl)asZ-qxU_|8~&vexdkI%K9hSqp2z z6YZaob?)l)wt9e6kZN42j$Yz*p?WJX#RFGU;Y}O0@XtBGp*j-udt}J#}7P~8p-Ic}e%3^nAvAeR^U0Lj| zEOv*Zqs6TZ4=4kl;(|&uthv+!_8^1pVLlhx^&o?{FuNXPZvC8N9y9lgr`tS;-S^&` z=9n^GDrjy{gV?A)v!#OO?l>MlZFf_tpt<%JH_p7+PXuod3e_DQ8reE_5W(AnLcxp|?^g8MkoSPx~ahcebf8S9~p z^-#uoC}Ta8u^!4;4`r-}GS)*G>j8BV#`e2yY*=YlvA9avkBq$mXMLR2?{}NrmR0_+ zJ}eClhbQYeWE*ucPV^(MBSti_bgU!hSNf6Hi+etNbl7j=GJQYlR;=G+yw&nesi4`Cd??;{8w|1U;_{z&O$+dpub$HIuZrAc>u!113d@-_a^!VwlAjlm$zI$%s z)^b)5s zzs_6XclPr`!E5b~>|q6~S~z{km$q(F!K%JiXXl0iAH2rvU{#mzd+12(gRfCl`%_i- z<_oO)b5+|K1E{Jr5Q#NUg+UHHLWWHJ~pxXWpXWDwu=@|fD z6TBZ}VE_JuMZS&94-xscGVdw!?PPwa$hVjIVIto_=DkF|Bj*S77x_*yKS1O=%ltq* z=ME&#>6}Xw{BVaBnmmv!zcy1?K9B&Lv|Ly|kSy;Xczlg(lQ*f-1Ih9)w?}*Z`SE^M z5U`XV^Ik~rE7w8G50yBDwy!T0wERf;fYoF7$gL2tjEPgtnekFV%Qv(<9XY$9RM7I1 zYrYyX{>|ElSiwd(`qHhQCKbK@@B^%1BTPE^uv7XI zRn!QBs1Xjrh0S_)O`yEk2z8CvQP2XI#TK|Di}v4kZ6f<}{aLn^WhRMq4#nK+ov(zMbqave09wpuS0G@6v$x5?B6 zg0)|g%;@QD^8h!3H@$izXG4o(h*RLdb$%i~ab92$F4E$LJdWj2KtnF}V;SizI( zc!N(Bo>a%RunpGHlj=C+z*}*RU&*JEcv2mk-WpfqIZrBBN3WNjT>9NMsbEWf|J%>* zZWpA2bzC~NRjX&tN(Jk9?DWJF-@hpptmB9_HT}MsAr-9Sgg2T-+_)xAIi6I`kL5}QD|qIO?e%v*>9q1EsbD1o>p5K=;w$FP zh7qaT8rn74I!`KC$*F@!EO>m2RIn8v9C2pU*+WvnN{;=Y&eoLIq=J<^6D487u9b!uAJrfOzHi)QquYI=_q)%2!n!nW{6B4MOARg;tqaly%(&R?X=k%|nfhQCy> znzYoH3RaVrNpjCvO%7Q$+< z2flHkDBoIW%@dO&QM@JjiF5bvqf4n9=Tk384jS~*fG*q*Pf z_SjbcjZ$6*D|#m4(W8w&6_M44MjkE)s+^bDO9d<1*8963W3Pxf>O<#`OG9T@v>hel zs1H>%=1j_gfkO&;&)A-w4_=wu_e4Hb)Q2iM6`~G~@_e{E-qILORVH#HbBi+Q#^>Qw zQx7J0xcFuQ2}tg6s_8_Rwm+Rq5DX5dnmXn?HEh3Aa5|it^hz7k)Af=C%fsoLIrW2t ztJkKbQVEAsP3Qc$f%oP|DTmWo`yLzI{U~K` zew1=J4ax7Z!QGEi_U1<^httUY9vj^KC}nSWlv3EL`4o6>n|KO*IJPQq)&g2hJ{*6~ zr@(vL@G0>2hA&}D9iY3uroII4`F7_ku+h=biczp@py)a-yczqSTz6xGn1+T9zyiVNkzW)i{ zyPpGgvI%&7b>Velczt!@bz*pZb>Y2T2hCR)I5E7wy6`$NyuLI$bq^NreuaS(!|Mxe zs0FVR!Q000BY2w_5!RdnnCX&dQa>U$CRvc{N91nH5#;*aK9dd>GcJC&&!itq1<9qQ zyO^i(qp(ZL6uFK%lm4}v81$oFAFUHE6?GPM8=u3$lj;u2v zUW*)FSeOf60FgsrkEk4m+3OIh#b*fWTD2Dpulu2!Ej~j)kHGLygX6!Jz)w! ze1;be9*3zH45uR$lp_?BBNUV)bfI*%Z6hd0=tAktP>#@r(wU(gp$nxmLpeehN@s?0 zgf5iM4CM%2D4iL~5xP)1Gn6Bs#k9hyGeOzP@Fyr~2pwrI&$Q4G+Mk%jN3W0re+s64 zJe}-M!L;cUwdJWBL=W1Zg6Y+j{VgjTMK9Z*`mmWtzWM3oIH@3?FPF}XKmDuR3K=~X zJ2__YYf?c@8#es(#a5%Gf~=N4d$QGkx5 zsU4ITx%F4v`YUez6}SGn+`8Cy5V!ui+`2Hg{<_?{Ft`4?+`2Hg{<_?{Ft`4?+`2Hg z{<_?{Ft`4?+`2Hg{?LY6+`4c#U?g$d#NannU^f6esUwM8_zYe{{0*IcM-sg#)b9VD z6**s-?)U>M@{;Y=@lui9feXi^LLFJy&-Y(SMRo^FA4vrX#wFeLI`3I_2eu|kMRo_a z4v-2Gj7#iIxgUASHvQut{E_03isF%q;*pBtk-8MS@=I+->Qd~=6pz%U*p(?BsY|gd zQ#?|aVppbkq%Os-Oz}uvid~uFk-8MSGQ}fxDRw1_Tf$ElV3&X<5a2yF;=Kw1gz#CO zKnNgw?d(KPHh_X}V(X5f9xh_?DS(1+yz8~@&K^=hbXU~vd~vo}Dv0h=?Soy;1xp3d zJv4pS!20#1g6LLEe?I@I4pKpM%jTv&;?_tii0--K?rR>)7Sk62)RV1o`>@@W)oK2C zvIwBydkIR9*aj$U0~EFa3fll(Z2Q{wQt%DX#kMbF8=#AAU&b~-7u&v!ZGbMeeHq&T zU2OX@wgI}>_GN4Xbg}Kr*akqWY6aiEjBVg;Y~i&P;#sml!uB$NiWmeEwgb7(5J=d% zF76kY_?emge?o4rzF2(LlagZ*>?o4rzF2(LlagZ*>?o4rzF2(LlaS*hl7RByF zaeMfYC3X3l?#m6xgUJNCl`fb-evWUY3nqxq@U3*g6oNmPeE74`Ef*71!4!hu@%7E9 z-$yD4@U!6wb8D?qL4dtl)a|)6ODYJk!-We`C;CeT0j^A2pVwflR1o0WnK4)XOqB`( z9MkLp&*N>Rf&e$UF>ssxo?7ZT1XBo}4&}w3L$HE3Siu{t;0@M=*TZ&%;0@M=*Ms2= z)`i!D;SJV>*Ms2=)`i!D;SJV>*Ms2=)`i!D;SJV>*Ms2=hBnlK*MmcF2!~*}T%T#p zQ?s`rM6O-6=sbiFxgmQ+pErcah3()MPQ*?!96~uOCuh{U9POs#35ZmkF?LKq(St^L_kh!l196u!$47lIEvf1V9PG%2oC0nrVSA*Vz&2E28>+AkRoI5=V%y*LHDMd7i*0|# zHdGhe{)}y?F1Gy{+fZF>`!lwoy4dz-Y(sUi?a$bT>SEiUu?>Yb)C#!$3ENgi7-38E zyCd@o;W-|>031f#(gk3+TLTyQNKP0reD6=N2Yl~OuqS-)Pmu3>e}bIf`xE5--k%`% z_x=R=zxxv$hlWx3p2VZlFq*E|t#a67cH}W%7;G;d=?PQ(hbjKUbon1(yGHzn>GD5- z`47|Oe*p6zrpx~T=08lA{{hT@m@fYVnExVeVE)6PjkNe5K>W8g!ij&n z4KmO=*@E}X(=>Bls$_aHc#J#)W6uNUCi#b*vFq^_@ zIQ2M+3|qH;!=!>pn@jg>yWB=9h;kRN+^aVRN(B+FaT&Mmh@(^x-N(Eed{?iXJQjxT zN%29Sp8BDZkAcq=niCb!*$Ue$moXaqC1e$4cA3?Afp?ui|#;1H(VFpfsAfAw4oNd0|{NYgNM+i z*9HXTn&F|eEJbew(YpfLAA?*3(YqGz|3P{qh~By1v^_O!S1s`qLG%t^f9QkEiDL8> zLG-q3wfm6wAgLg|!+Sj*8F5)|h4g+Hp0Z=p2U0h;)(wF~&@Nbmd}3uc#@=TpZcg6N&i4^2fVdLtCQ5sKajU3v%EZV5b5(cM#JXp-b-|rZ+;D-a$-ngf6{*Y01xrAJ3u}3`G*Tr+Nxu}h;C&D})oL=w3H({1mqe^=ZG z7D?outMT8s^Es&?xvx~jR=yQ46(l!wjL)T?a;1XgPTCjl{n-$yAh{pLtb2F)w2gc$ zjJszyc36IO{RUQ$+{QacZI6FrJ&_wpu1YZL55?$oZ#Vmc{(e|@UBJeU+%YLCM(FW(}unFv44n1Eu(0*qW1&o zPer^a6=e9Q?`q=u^pFZNTr>Qu7@s-f34^G=^&O%V!%>RiD8+D;F2h4?w}{~=U51A+ z!%?~n4`GI*bQvDP3`glQJcJpJ(q(uEGaRMM@DOG=N|)gw%y1O6p%%kKh~X9nJW&AA zx1j-~j)Gr~#6e#)@q70mNqmAgo!$KjvK>t{`W=Mk`XI6{*pR)M#B&J#BVGYP2q?o=j@A zE~%bOYP2q?o=j@AE~%bOYP2q?o=j@AE~%bOYP2q?o=j>qw3rsDoPgVkpAm4PDqvh#@Ao*Q9@RHE#+<#u$pQ7jI^_g{#r5Ae+@Ay8gL! ziByo!v&WXieY{*M7-5s!WnB9Byi}0W{a?*Hx9JzDAgimdCl@8umkRQlRX*r&!C!@Z zEM)fh(B3I;FB2D&V<^IUKzWhd7{zUj;x7qZP+J4yHb$4*q0DWJF1JIO+ZbJL zhcdS@y4((BZew)09m?Fs=yE%hxsB1~b|`Zj18u0q?NII|jN)EGjJX7UOTsK~KpREm z!e@rjNL;)fMf8#~{|6#w6cLO{Vcd0AFtXxOdrB%uFfRR9O9ctW<@-hV*g`bA(m*qyRU$R#1hpQuVX15d&B#yL=H)wt#U|l zw#p&Fb5#!MJ+E>|?hchhYM)a%B=(fbA+61MJ|R|-8mmZ+Riwu1lImq^PNc@_lIq2z z#_E#l#iYjSlIq2z#_E#l#iYjSlIq2z#_E#l#iYjSlIq2z#zKo}k?O_$gwaGQ^%DZk z@Dtue*cTYBqOEDzXZ{V~eO{w)M_ag^2DX8v9lieCNcX$q@6g()>oBZ-U56&(tv90y z+LSX}gJ1Ienu6hIg4Zr^*04)GzF`Fcp6uTw>xrgPL5N@2aB50~qudHX_C4a7+T13> z{%CqM$d;0^rL?tF5a=6~`={hB7IzGdrpdAsb!PRw{KsWJ7J|L@_>;3ve=HRlidVmX znL_bs1^8$M_-FA1>BnfAFT_xHv>Le z7jSO|e6%j$-VFF?Xh$u;y*U)a`zK{64$hirDdKC)afJAEcvc#NX&mAGJ52l{{&7U_ zLz6qbJpZh?R1in>Hml5=mN!BwNUz7>3qwCG6;lFnbYJD5p<%BUoE4J|aWq^z{D|!n zzc0iTMI6!FI;yN&>g(bO>^Pci*syx(#JHQ{y%ljpZ@mqXCua63B6{QK`r795ub{W3zDsvcN8$e%H91pt;0Uc!yBda~! zogqHMsOk+l?7GA&F5?xK@ruiMT`q^)Iun=ix?B!tF5`8%9L`+E>vB1qxs2E4ayWAt zugm3d<}zNF%i+vrye^l+nag-+F|CL?oVaXlBoLSMqbJe1S!I^u671V1+_P_sP$Y=p z+E@hF1PZPNm)oY@Tsw!tTLJ~wu!tGm;_Sqmpb}^%_oZnc_FJ=3u7h2J#p@4$H)yGN zH&g-z*NAf?D%$@#oA-mz?%CM1`d63P{^H08ZZ^NiDuDuPbG{m#KtXlS^^`W9E5*+o zBv4S@%U6FB6ub!v-UJ12f-bziHV1+?K^Im1(_3D<%i0@p;s zwQTW$w?}xbA*vzH3un&SV&(R$ri^HvyNH{O`NVN$23 zSwURS+}wLT=$WTjL0r$j<@Vmrz$aM2SlhZ`#$^9`;!d_i!uHYesqc-BT}hB93Tz=B zW6Vud*d{7$6BV|Jy4d>J90}V*U2Odr+eBS#{TSOsU2Odr+eBS#{TSOsU2Odr+eBS# z{TSOsU2Odr+eBzpEo}V=+qOm$VcXP*$+cz_!Eg4+_cJ6By4&2v={Jec#T<5HlL%ed z&@g^qPdFtJx}=1NYq3cbX-RocDu^yETb}2w5M5f57qM=(M{4tcLbxGq>JtdMmGuCSqt3}gl-EX85rPeW>KZZ^y??dL~R;( z8k33IBb@}b$wY0o=g5O*Ul9b8iP|?F&8nNZUn&@ItDc^`=YeHU5?jgCnJxZc?Yehu zBA6yq|6oujYf?kATnDKQ=|5=ld(-89klNvo-Mr?vON7^CqBj5H`*!d27B>MWQ^4JR zeAl1p+aD!rlZo2d+{sN=)FvxxlNGhey43pHT#4FbU26TA+GJg7{h8WiU26TA+GJg7 z{h8WiU26TA+GJg7{h8WiU26TA+GJ>FEo%LV+BOEfL{Cl|M4JoL&}$5lTf|pV#}K*G zA&2pH43T?jy}4nO`&goK43T?qKt$!%Iw`CmxgqKHJ&SszvV!sU!SIJ3xc0<2RxsWM zx<{n1S|is%au=UnTEC{9RFK?X0s|J5ua|qqu7Yo`n_g|w<za>wYBJCeyAqf72cCU=Z3xg(j}F}mcA zWOB#ok~@;g9ivO`NG5j-w4oNcBZ=Jh2E6AG$fZjON#+7mg1NZZl9z}5+_3~Nb|pj( zZ%@FV`apQc61*F7KKgCm$Gr%{u>@~Ivz32+{JT^T-qKN_usvlHt~v7 z5MGb9iOJ1Y%dHUJMfOKdP2bUzw?cRmKmVoI&2Jo8L3mqDdH03EOM9?_@J@Tb=NDU3 zOa$*(g4Yqsi|~$B@QzjRj#coE)rB{}Hjv;Qs|#-c!#h?N-T;PotS-C(4DVQ7cmo*T zvAXaEFuY@R;SFGT$Lhix!0?WRHq?SQfZ%Ouq!7G~j97D#`Wd7Y!ZxE_9l|z+Vy;76 z9RsmVx!uP-`aXe^qWZX1ubyEAv883u2dt<*?lGyzKCW%6RAe95|B_T>AJ^t86~q=7 ze|xE@KJMFR2-_6G)^$=H!Zt-=o1(ByQP`&FVjF1lBy3Z3u?=KwQ*^NnWNcG(u?=Kw zQ*^NnWNcG(u?=KwQ*^NnWNcG(u?=KwQ*^Nn2`6U+8nB41|(sh$4fiaoDp?qvn3 zecqw6;JHVog4CXH`S7G&zc+Xtq;^!lHphII$#sz0zGK=x^U~{5L27qrztr)SoqLJe zRH8O}h6uK)irQ2~ZK|R+RhQZzn>SILs!MGUQ=6(wZ4gtNs!MGUQ=6(wZ4gtNs!MGU zQ=6(wZ4gtNs!MGUQ=1BHs1&1f9w}-w2ih{O5p#+bO+;j z!qNlg=n<3g6jkkbMt?j-)vix=j8FSoT%;XOQME()W62M+s-kE(p60urZvJEXC(p}u z5K+_gnxTUtrGl7tm^C56_cw8AcRXFT{mpmpt04`gg1EkyxNY+>V+QXTk!`%JwtxHW z<*XpKjs7@vYHipwe^FjUcRyToMs&w3bjK@n$18Nl>!KTC3m|mI>!KUN=#JM#H-yn0 zuZwO7qdQ&~-4I51ye_&SjP7_{bVC^3@w(`SFuLQR#k8Vo2%+1`NF#LVj+$6&84tbE zh+7AEdIvd3BW{0(TNAJkn?~GrF#m9~k>7SACylsWwnN{VfF2#TWjBs+`;Q0 zx6dre4GH7-*r(Bq*K=o(nl87Ywh-brO_$qH<~B{2+fe2b78;nem^U6@KrTJDsu2;oZH9i zAh@(uvQ!XUQqI|U9R!z@A{zzV2?TCPr2uz=0(XJ}cY*?Uf-bmWwg>`uf-bmW4DJM7 zaKjkf3A*5hF}M?S!3|?@C+LD3#^6rS1viYrouCVD7=t?j+E5GJFzzd)LyL1?Auy+O zVwt%_JQJBt=w9O|Y0?SZN$~Ul#@uv5_h8G2#H0ZdB{dF*SL-4x;<}4#(@g=1gV<(H+pgx!GKZ`x9$UAL8KGrH-z=!P@8>AL8KGrH-z=!P@8>AL8KGrH-z=!P@8>ClE+=!SD&!A$5H_ zH`CRzy2CbaG$I7;X1Y4oD6!X4=PS9yt(mxO&fJ<6w`RqyS#fLDv9`G+_o_?h+BFJJ+#yU zuPU|BoL2^sE1yEhAad8jby6fZgUG%3>Y<@4*9^89C? z_mc{C7LMlHpMJWvR50SspXu^wx5Z0&D9cXpjjNtX&n+{i1T&+Tm>6^ytwx0-t{ z-LZtX!id{)^T%rjl`J80GX%MF<2ShiM(EZ&jKfooxOz>n9x`9voo&EBKG*%E@`;ez&J1-TNaWg6C4(#`# zeOZRMXq!nvcfymQA(evx4ZZIv4$9m#-38 zL3DRG9eI28n+b$&CZX%i7j`ohx|s^yOoeWyF1k^+6hb#s7u_gEH&YkgC`LC^7u_gE zH&YkgC`LC^7u_gEH&YkgC`LC^7u_gEHxt@W3*9J2H|sXK$vGBtNgn(vGxiX&2wi)) zi%R5hs`gTfKsSrfy;4$n`F%Gry3ZnXi#yDpR{PyH!YPaT3lmoyyS49)msr85JN2)R zLuYoE3P#;wzgGwyo>%y{AjUI)<~d+INTn_lAm zAX(I3cIHEy3w{YLN`kn-DpNPOBdZ}MmI|r z-DpNPOBdZ}MmI|r-DpNPOBdZ}MmI|r-DpNP3tCkR-DpM^rVnU{77ssPn41N6CBW}W zAgmTb_j-GAY1cwgH=|ly+O-h6u%Y4K^drK_Lg1eafczB(DmHWe^cz!6A7?vLU;AT4dpuurGn@t z?_3yo_2+C}2hkmKb;dV42TKLf?fPJ`bGLn2ybhu}Y4R6CR|jXZg6J-r;`^gl-3(R` z-Iig;*Ka$J&I)!I2EX;zhwdd42;FQ#_dItPvI*FFcC8G!Kn=B}0cnuAoS&7ONL3x! zK%8JEQdMu*ixbR5s%o8rqgOr}G?xxGk*eyl@0np&AC(GLb*O3JvQE3Cf>mwVCdccd zS_i9o-n-q=DX%}o`@yQZoU{8}#UTeAKuHc^$0kyv+5D z9y>LgsydOX8UT-<;NL)8u7u3!#T*N>~4BhIJS z-J?Ht5yi}*>Q=A)U})yAQo-tO_Y7Wh=n+xf9O??Tvzuz$bxtZ+-3~uKZCzF*6|C;+ z*0U?tT$TI5>b@{0v0bN?Qo-t`ugY{?=pz-ZuHVQO1^rt-MAglq>Mnuu*0XC0mBe2^ zuV)PG-+!>k7 zN6;xhK;-dP&?!H#o?ROwmrSRDqdXVjmnoMlU;DfuESD_b_^lu;mn`r2=0m=9haIOj z&V?PquLd|rWH|pN6}0>Tr=v5X^H1(sS_R7c!2L<+*~ekI?ewP#3fuUbQ|Z zA#No6<~%BB`rj3_{qG7I|91tg|GR?b|6M`*|E^#I{9VB&xUIA`CQ&0aHR4M%@+^1E z^-rQ!*y1f(VG^}M>rl}Olc*J7L&IqKGWjrxT7i^KudsrxK#Q+bh6=jg3j$s1+trD{P^kO>P2p#8#+l#Eya{ zz$`Yw9a;4Mjx3sgM;4vGBa61*kwwq%$fDtQWYKNTwlyY0nfdGykUPlD6!n3)LOz-1`1-kgzHh==ajknY zS^e&WC6{s|W|GyD$?DE<6&^$CWDcoqjlA2njW!n{T-E~odgoDXD>$O&QEl<5JRDr- zQEkuE3^aBQ5~a+e+CDya+O9_}qLg_wLU|@Ra&gn! z%chCgm`7mUIN16|9cwkYmPfT6{B(WCun@Tpf;IoEl#-uk%01)PyE-|hW>&`sskV7k z+pqZqlBc?Pd8(V2r@DE0y4}1)TLpFV@^rg-iQLW0)9vOZayKtex0{#9-Ml>AZeAjH z^YV1Nd5PT3%hT=VC2}_}Pq&+w$lbg=XhW@TULtk#+8FtSE}fY0OPXaC?=#LPa!>JZ zf8>i36aV%{K9M_cXMPXc4~vPfd?L5GQ%%2@Zi!jOd?L4ZM7Lu}gT+i_K7``VhX3?A z^(HNn3Vu(&a(?8M3#-H&XFiep{P;Qc{l<&A(tINK(Z;*>m$}PzklgC_Z#ln{CXa>W zzL;9_eeCCpiQIf5cPh_l<|}gZ6}kC}+C{+C{+C{+lZf2*MgfuA+=wrOyQJviryN}u5WH#K z>rkLAAb4SABYnc>glho-jEb@P3s$gaMN9H!R^&O||9!cRJg2XIUG4_~#%1*-so;qQ z7u%z9D|t@0)yj3$Iep1zd@KZ*wsMgQ-Y|vBg`Y0@I8`=t7)qn@bQE z=t7*#5Etk|oXijx=t7*#5Etk|oXijx=t7*#5Etk|oXijx=t7*#5EnqJX+fM!5Vtn0 z(8TgboXxpK)?9kGrj-D``>j~mqp%XpDcqy563CCM9723h7i^?Ii z_)-;d1O#@s%GpEtR;V0;x5P zwdw*oh5@ze0y>5Pwdw*oh5@ze0y>5Pwdw*oh5@xgi)jHmh5;?S4QMFbD-ACaLP!b; zP$!-QDkLZm@+43pK{@S-HC=zWmQC@kkh%w*tcPE1+g(fo6;k&ga9i8lzV>n*1hn4p zryAwvWbsxAsawdrS2F5J1wjq?{Ka!udr1XhZ4(=E%lr8Z-U_4Zd!#f4qPz&A^g13WFMDWsYb;MaSC!696i*gGl(o0*4 zMCjdNz<8<~tcX`Vaj7y+`_msVAK-8+(xIMsBViE%9lJKxXI992gj5j${nN+YpZUDm z`>bGB;rh4lyz$N!xefyT(l;}__P%kN*Fm5crQJAi^QKe~=qHz%cz0pNnO)64A7b&2N6wpPwK&RSP5YR=s zK&LX$MY=$zGSEf3K&LX$MY=$zGSEf3K&LX$MY=$zGSEf3K&LX$MbL&?K&KMWZH!_- zlV1!QUkY#A%(YTKqL^TA&mGEQg4q=&oN$7yn8|4_sP+t+eih; z9rDGqpO?KTrtyktn!#a3zpYo!h-tiHnjm|=?PG8DbDK#l7mK@3;=gJa)n7csQcTkf zuKoMnoY!<3uY=_NK4#3(FHEJZAi4Hk`V9LOUgwRypkg971a7Ux4sfv|w^)%|tjI0a zC3l?daU!=^m)vnoZm}-8 zTteucoA-g~Qm8<;gl4h}mbQN8quLVQ3ejD6cue8q=cW+4C4}yN9=nw&bW0SvB?{dV zU3ACWRuQ@-y6BE)bW3#69na{N=%PEG(Jj$McRZt8qKoc$Mz=&4-SLcWi7vY18Ql_H zbjK6At&CDax3Q6c*CXWQSSfLv#!qCG61N^pM93{AZm}0pwfIdUrbO*}vw%z0Dyd*+ftDk3KgcaD&q@V53$)nFtuW-$@|skTTUzoC5Vxho?UF4bw2-yp zI_Xpb_o01=QQQDHmHGu|XO`;2A8?bM@!+cFh!jbq|&jWQK*{R6~^ zsf@U#AlO@s*UG4)fJ#-PGsJcobrevsotEp!fb0K>RAj)lWr^`x8FdtJE2F18mJGO6 zZ;8=andsy85~H&+#ci45woGwbrps+Qw|SW^x9QAnnJ%~K%x#%2x9QAnnJ%}t>(Jre zkQCkZh<`eBTc*oxI&)j5%WXPyTc*oxI&s^^m<9y!=#1XD&9^U1BXV~K3v#CsxtGm? z+-XGa1FiSgZ1a1A7@S7rJ`pzD@m8!j#ZMCvcVE4Lq-PHBIv8=Eo;N@E>aByUV8neZ zY~-+IUWZsgawm>H{#Mm1QbBUBEnWA)!fLq{M%-J!K6?6SwcIn3J7?RpEWb+8RhUNP zrfn1vcbX!1nj&|aB6pfDxn^*zf#D90wSmLk1*G)NL z+Z@JX7;wu8+ig7sw&jHFipPJk_extwxRn#Ot43BFOy4Ws@>)*V?$7^m=`UZ2H^G)u zz4dF#%}Ysvhbbx7Qid;+ zpDxhF*T3-M?rt(6#?uMoQ#>~|oiP4*kNcp0qaP-arW3}Em*qU(;HgEd;6UxWKgS>Dp` zGtCvZ;7q4$Yy}@XKRbW*62f>oVZ4HG!I`cwo~|&St}vdii*crH2Vp#27voIEc)Bje znT+vtU5qmsXEMgqburFljHl~joXHqZ*Tp!KF`f>ss)cbTV+^lJgMLF(BiUS> zW1bAJ(c;HjW)Q|9FpfiXXArs>%R~g8p}M?PnWCF8gV2Rt8C55wBIg*4g;G&-3=5=! z=+airr6Rk$RTuXYx-)2Qj8^(&A1jD1Z51UI+2u8!5HHV|LFl%AP()4UGj!3-VsvNdqMOC&&d^0Si_x8-i*6R9J3|-UEJk;RF1lHa?hIXYvl!hO zy69#xx-)?RzCk$wE)K`%SuBMJ>r6t|4qiJTa(HizfS>$h4sUW(!ZSp-H-(Ak@AiBvu9^2!`O9j#OTX}3@%>*%JJCkM^tj+zmFF01l zTVd2a?o{&CXpgC^Ai7tceR)Ao*HTsx-B}T1zmBpip{P5P&^^yrBxWjfXDW1ODs*S+ zqHD43C3I)%qHAGvXX>JBVRUEeqHAGvXX>JBVRUEeqHAGvXX>JBVRUEeqHAGvXF?ll zMO_P_+uE2#=+f`dBwLH*)3CD$+*>gM+*uTJ&u0p7XA!u~+U*LS(`z@OGmF5z^~Q<1 z@9&ceg8TUX$G=@zEENRTsYAghlPaWw;6BI%x)&uX>4Bxhcz@0_l?uK_b*LeV{HyaYfUteWpm(~r5m`iIdIK_Z?#t7%I3gT0pDVr*H4B=4sTzOs-VDC zlOY0E1qCj9xGxsZxD~3iXe7T*!K6ZU7LCc`CB7B6=SSyAMRpdA7o;LPi$<1IWM|QM zUhWwK7cFsn_*k;DXzURIuz~^?tHB0P~1uFyqzA|qU(i||B7 zxB}Wk3*m{}ZG<=K$!=qer7Y82Tq2&AsU(Qk4iOMn62t?C$s9h{=HMf9c$fCA;WCG3 z-AgKm;KryNLfc&B5ZE|xxgEk9H&o^jRQtg)huy;217!~H(r!IK09vUcYo&^;l`67U z>SCE=J3?4i>SCG0SXSy{nZsCC>SCG0SXSy{nZsCC>SCG0SXSy{nZsCC>SCG0SXM%d zX22CvF+50L&vY>^)po)-u4(4Mpu2xZ8Jv=rxBdSu&=~Pi%4Gjre z(a{j|K2;P~bDz2S$=;9TI*8}CLcgxbuS*3H-LSyN>78V$Af~f_I9j)Qlb9Q-qCxnv zxpBP?t`_r9Rdn6y)JBh9ElO%B(pFJi9pc+AXzOc>D6UpfT#bX$V>GQ&*j6cQs}#0X zy4dF0juW<3y4dD2wpF^=<}$Wby4dD2wpF^=<}$Wby4dD2wpF^=<}$Wby4dD2wpGyb zTG-|iwk@cek3Sy}Z!Im#w0PIEs{*MGkUY&W4e%P;-wpmd4E_r*{DHr``kM-^g{APC z)?Da4WLt|&@g?xiOE*)XwX~ol*HSE2j4mz6&CD${=jEbiG8b7)*+tfTQ=&(_hbhof zP+VGU3MehIm`nQ{4Omfn|utG7KAFDzW0fUiUmUl}sL< z4t39?Kz}DUABu{*&w@b>?ta|A@BTm4A~@4pV9n3XG>t4U=am=d7Mp@{r{)%eBTyT4 z9FKbNE4esuY5`y37;6c7TLc0gc#>gqba!_&`I_JZQ*J?~wW!cq1f|O|m0L=DaNao~ z$6~T(XM>Gk4E#7c{VNQDH|1N4Oa9@TiwR0nAoiD6ng#oUH{MvF7&%5Y6(ikmUwf{CUeluPn01toAy)5t6kbBjx$K-kLI^5F&0)?gpx-Awqd-1+ck<9)w&U*kRwL5Zp0|$h*7N@F$y_iRO?2JLXH^K zx)Gz0BSy7u#33OQm_>qd-1h#1(w^Hc-RQw=;%HSj!YV6k3n*tPfzuhfda z+N!_WslVE*zwkP~Sg)h{tCRW*LmPfNUzK3KD#3hJg88Zh^9eDrg)G5*fQtZ|IH;19woKHZPz9v7@m4Afk#~MBESC99!`03o~+J&Hj9m} z4*H_)n{{w*QLY+5$Hy0#{C`{Q4ZAw>`1r5RULJv!w%5O3X?6A_*7@H(zW$!|*8D#? z{=d!tVmtlGX+9KX0i=bHY9K9wR10Y_B)Fg1SPBWQIU36$t$_3>q{kqwg!DM1Cm=lu z=_yF7AUzFfHKa9=)A3F#E1(~#bS^gg6BkUoI)A*7EWorUxmmz%#=?bK;Abkz#8%W7`_OMjK zzg3VLH)>=U_3ImXjSn{rfKyzZs`mI_I1$zTU+ukld=A(9|35`7v1OGgBGxR3eP41* zh=_#9B9@5USx887M;1veaVtfu)UIj^swhnt;K#(1T4*Uq91gKcKnbsp{TU#}SbOEnj*7+f6xjh`tH zg6-9=*<$npda9u6zwx_DJ+D6$nZ8Ir^a9i;{MpwjRv^K9APe}M)b)bn~a-T(Rml#2W;lx|Kb zVVd3e?+r1#*RV9Y*407$pS(&O@hYh-=I(&K3F120Tc(S6ieXDxNC{h4G1o?0Y4O6a zSfi~f?!#07{L5J!3>#czh7lwFx4gLjRuQ#rRWL2=is!$L85MZ9lt}l~ZfS9CKDAp$ z)FlVNb-fQ%Y)9!kkpXDTrrhV>;lpl$;o9kIO$oe5xr54U<-| z{3F;S_uHxc(zK7uLzWV0)!)VPkdXdW+HWcM%hEnBUs+0cq|)Q^l~74)AD6EzC0tVb zxO`z-$MjYkHzJvk)E`1b54`-zCSt!FvMb@l2r#?AFUlA-|34SCm42TW*p< zej6RWRcXj?ds9-#Z{r>vMSfe(kwSi3N=PBUOE?YtU7K~eW_xjegE zo?R}_E|+JQ%d^Yn+2!)=a(Q;SJi82~kSOLq=3sSLRS5Hay=>F za_=kN_g76N1~ceE3nHI*yRfBas_s|0=ry+U9P|`!#RV?ZrHX~75Dsw%eYPl zt}z2fJFwA)T|TTQrUk@7xIHYyVmP4DH8Z}fRN0LbF#20d+~Uh^<%59^XmoNy#JDRz z%Etg5L}(I=Ak{on`DkCt8H^5Yw`FSMc{wU)Fxq+K=6{a=HBu>X(%U0j>}hY6UqXVG z^flx2Zu|DN-_?v~vdG2JD0~b0hssyg{(9ufh@xfpIvLv;duN3fjLWc+coLEc>c>H$U*^TAXNCA&` zUJV<3<0HxkJYMhKCF+IE3wCw*yBpUJ+8zaS7MJVvB&W1 zGH6srk1=S7`;h749+J+$_G5Yl7IJ~FK8Ndc1`!jC-;=|c*be0ckjRVBydx3HmuD%!%? zwT{2PiWD%pt<`nMwP~cV$(HeGa#c3DDw|xDO|Hr&S7no{vdLB1A&}IoKU~=Ji8SOtxBLz&JK63tb?|r0z$*VTs?~`?$6fpUV?KvF+TayAN z&)ME~e1Rt^VDdM{z}He-NMVz&rlQG?Y_cPp?8qiNvdNBYvLl=9$R<0o$&PHYBb)5V zCd0FvV6un!1u)ss5Fs^Ktb~~kNtHEt!OfY-PclVV2ZM0FHLW-n4WGIKs0nOWh;e3f!$uSFUdy*RPgPVBW4 zd+o$tJF(YJ?6nhn?ZjR?vDZ%QwG(>{Psf7SE+Sv>8doJ3i#HY~=B1~D&CaIHla^x9 zolTp+TCNnZ`PanAiIu0XPzu;QZ|anTzi%c5<3>)OmGxpt0h$&FkLmn6V&knNq;!?|xpE@T3KuA=td?P^GVm>fR+!$of_lvU$`-MyPB!vi1q zk-{c_P>d$Ku*oiLvJ0CG%*lBX7dF|2O?F|EUD#w7Hra(uc43p@kq1z>iW)}w|;M^eD&S#|FI_05wc zl@Ivr>QVl$r07JYfX~ero=X1R)2bBkdBAfra?8-j7vd^yU zvn%@yM@paFl+QudjI2b#GR-WxvCsD2hw+@<*yoZXa?ZmIeHIxQ_75(pG#r~xeXA6T z%?T~8DurUReIh9on@h@GQ)wtRTW(Ssip?c+DQAk!_A_#>$qjwR^YI{se70}6j6S=u z&u;9q8~g0WKD)8cZtSxg`|QR(yRpx1?6VvD438_x*jx>Lma#c49Y3T4I9Fqvjn{Tz z(czAQYPvp=qvL95bL^m9>kF&N&kR+=u(9L(=9mq4r?&?=_z^@Lzk5 zQh?+)$9Mee=Co|3fXCnd`u-`ePev+*JT{Dx=y7%SxH@}WojtD39#?0NtFy<|+2iW$ zadq~%I(uB5J%%SprN?kxDv!IR707Ogs8{hFB)q+FaFogiJf2dRb+FM+`gQQQ ztEEx!!yr~Ow>eQg=mS#NV|!opSiCtUj)Fmq_~0V{i#Qgupoug<_!s44Mh2?kslrGIbH%+ z1B3G88nNxPc2cV~f;1Gf8y$-~|FOx~6HgqqMB1X|(vVnM?ybH|&&HWkLxl!1KrPx7Rh^ zK??9ZC^hN#cYbV zbWJw8CL3Lojjk!qP{xc}Xf(#<5Hagv1^;T99+$}3x>}~kSLFb#7Q(#Be%W)}MpD4z zRSO-rd4E@o-qb>v^P9ze)AKtyTCRmK2X8)Jd2j2*Dh+si<5AX%*(D2=0v>0s{qaV( zyah@Dk5hVVK9XUdrxftGc0ys@pAXDY3dD@oYx1uwYB^ge?D2`2=y5IfxE6a{i#@Kz z9@k=zYq7_**yCF4aV_?^7JFQaJ+39r2RwE+JkeuZ?ms*wS-f_Wnc@{_%Ll7HO{>+! zsHbW5q3KuS6j8pl5)my*o z;hcG2Ho%@{+=wVZt3BCjPqx~Vt@dQAJ=tncw%U`e_GGI)*=kR=+LNvJ6z2n0I~%pp zYFs=c(wZ-BzF_2muDUPcURiJ{Yn9#Ck%R6#_{hjlmb96srOxnM@ggr z&#lc5VW1=Tq06<|<=X6WZFadfyIh-HuFWpjW|wQT%eC3% z+U#;|cDc4VA8^@KJnIM183!16OFSnn8J|D!GJQ6BU@5%VXT#o0DG;20soAmRTW$I% z1!$g?GydNizeXqpe7;gX;FZS7sefDCX zz1U|j_SuVl_F|vC*k>>H*^7Pl66XUxyBKxQXY6c5iKjerZNo4=*D-C*m9eglY4e#C zXki`1IpXh3k3T1_R0`O9sifJ(;gd-Lo8w;@I=SirItp;^Q_*VMTbUHV`9ovYi2GI< z=j&k5@Nu|$a`7%1=j&k5_-I$_Va>Xd0yz6zb11yIZ<+dauzAR!s#D^wwX+tT9B^HB zEb1c7Z7hjC*}X_XnnP`SdhU>sxGviK-LSfYRxI8eYfu`nIjYRe3L7TL zu14LbXqLCJ>axvs+2*=zb6vK%F56s}ZLZ5U*JYdQvdwkb=DKWiU2#4#YSdFvBgmF1 z?qTKNa&q8vJ=5nFpQ4BL*k}9bBT9j&0h|4yoLZ`f(HW)quT>iG8PoJ51$@TMmyQCQ zaSNoJ(Pxm#$bo)6^ce*EeHr)bq0gWgS7qFc}u*JGdSvCs9`=X&gO zJ@&aC`&^HGuE##tW1s7>&-K{ndZJw5v$IiOoEA)Ih$*3Nw!C5KR%`?7n=bz-=j%l@ zB`;=3-|HjIYu?W5mimWW+^IggoHnOyYUubK=yHAR)a^+Q8R5Nx6mWUvJHgGe_R&$` za;r~=6@6KY6mU6m{K<@3zVurVo9n+G`Q;tkR+TdZjnZdNrhdC*i&B8*gy`MZCwC`> zT|V;(x?G=KuFo#lXP4`<%k|mi`s{LjcDX*gT%TR8&o0+zm+Oo3kwK#Yx-92O(^E3D z#dn+l<_4zC>t*k?foXHXDlAq5w0Y+74L<*j|3E1aG)~5k_xCzQ3c&o&gV0%h4wC{l zS1Uc}c=yYc57?YGWAo>Y8Qh-@bwkr?qbAze(6rj9s}zVE=Tg(hCVG(qR=b?}?o7MsbyOO# zI=uSY)vY#pDFv*4Ql(U_nHio+0juu@eEfRu_cfFPR{ykNq4$N_)s+H7?~Z-^`0*|` zr2x^VJAOT&alVUEfau;)9e;Y`b0?*+)rKPy-H@$r$W}LGs~fV_4cY33Y;{Anx*=QL zkgaaWRySm;8;bJ*t33>Fv>NY#N7~Zi!6mN{aR(p=dLrKF_5aK?d!ymc&oo1Fu>A$e z!TaZvyNTpb1233=_Qr0XI4|+;oos@=v7tnzSPnkCu|I-}r4TLk<^XPZVj z6mK(tC&gN z0orlfN(#`9+Y(Z^l}sZAXvggk<;*5qNdek%yF+Klv~SpgCi}3-K5ViNo9x3T`>@GA zY_boV?87Geu*p7bvJac=BhE*f>?=-7Jya8t2e-K(r1+X9U(G>td`**^Wh;fcBF08a z16bpxruuvlXjEp7Qb)1LC6Y;BljNBNDh-<)AxZW%Nw$;1CadR+eNB=r@`~^^Nj@9q3E-p z>GPTySav_t=Z$iKYd?g!{=-u#ara08pEnm2w{f~p3cwuWw5(xOP6IxFI4?B)NF1dB zn19;)%lC(d(r zsFN4}1?uMczreNG$h;OT(O4sm%x-x}f2DB1DT!AK2b^O0&{HFkyS#JIi0h~k*HI&` zqefgujkt~)aUC_{I%>pq)QIb-5!X>8@mo+wE=FUlBdm(3yv$^4W)jYsG&U~<`%FCL z#^$B)m=vg%d&P^IEnYTDrGZOf#^n$D#QMr9fW{bd4qkCN&}IiIVE?=EzXewPn-s7; zslmpc#uHM&?#Fj)jjs74DG=A&_WikIY#}KSauQd5-)mhvQo!c5#^tJZo)P3W*^DPZ!pV^IY=E0F>wJ6!v4?6syc(EDRY(8IHQiHExk^!^w!7XNnTXnZRf z=>0KdO#8j#0iVz548i27AI)C>_c&6>WaH0iXtF<>?9V3qv&sH!vOk;b&nEk`$^LAz zKb!2&Ci}C={^EROAEl{ja!6jXda$giY4VAD3w$NGscEvK-6D<=oA^rb;#WL}%C7`B zMbAS6DyDe6BIk*kVmO~w@699a{wl(nYKrk=^)6$-;}@iW=l`Y-?)l~^IrHBXyDa;+ zUwQNPC-TNnQ}n!NYTH`(Gh_$7DSE!}<6fo12g~kAQ}o>3;dxn15tXo^llcet4-j_Rp};S+Yy8Z-omP?kh@twM!{* zJ!g$>{Xyt!HO;-UE4&CQZO9H|s2x$kG=-aXlz6e#)d3OkD3AJ|kHD7n|%I$OpJ$W#iH zeAUVKV~;qdD+Nk!on`qYV||)Zpyahn=ltHT{V=6K$$$7hz8NL+VTwF|QA76@wwI0+yz7*YDTv%!! zUy5!nE-$r@FGV*O7n$0}m!g}COHJ-K$CtL7iwjQe<4fDk#Tlx7@zS=7(E|O)_8M<; zh_`sa{uZYF9VJvPO#46DhlOi_*ITooW6S+2exVew|A(#N?f<<*X~6!0zovhb(1_B2 z{ReX!_NewMDPaFsJ)0K~*hNQy{fWayS(Bnj0sGfDp6>N}Ia0v>lgsb49`ny$_3L1N z|HkK+$2w6Ow*Rla!hR?h*k9J@-ak6BYlKvw0-jZ%3Z7M<5}s9{8lF|4BA!*CDxOuK zGM-hSI!wjIXlYhRRH`i})s~qC71GkIkeL&(xGl{JDUiMSmRKQuPkZ*8zDxGzTVeoo z4ejv9zAmyi-x330(bB6w4Yf^G`9OsnpIQ3PPF1ET1uA6ztR>%mG4l36GJbBT@O zRQ%1>W{E9wklz|h+|c3Rnkhb{K#AK=>pG!jN}f6jO1wIGP~~~w<|+kBT=r;AoNa~pR(0aP~sNtTsN+FA_Yo3^pAfpEUGGlers%JhqX*` zZ|Iq&j-nD937MkAu0|UyF*Y+{R<9o7)t6y7E@|^rd1at)W0u#*z}(tkd0QXYA6a1w zDNx=@PvT~@nMw+jxBaHYa~^Ca1G%;TP*~5-bt1|= zA_WTj#P{^KtIEn-bZxP6>&-rSY*jf@ps;6~+|255mX3nLR(04{F=iksfOGoTZ~mD2 z8=WB+cIG%yST_S!P*RUkMccBo<-4d5G~1a4p1u(a)6Oh#S2=sv4hwwyn~qCQ{zMAY z?(Nje)fYY@1qvKgrs2KTowuocpun5Um8!ULDk)IlQLO^res2RQP`eWY&h@!?kQ6BJ zfb*|x9QYY2P~cPHMI$N{k^%*ud!os$sllXhfnBzV0y`S*vB3B^(*T=z83W4N-YlzS z0G?xev#j<(N`Y9_dvTk$f4UQ=6ew%u2jvcK96wkoP}UCqolgg5#w!KN>by7f(^|LaF>TYzvvQ{-h#Jardwg`pi4rY=2e}bpc!7OrbXW7DZ%Mr&fQGiqJE3QvoW2{nTvdQvnXL!q`(E_-?7f1!_z-jY2X4ndu`)KLw1pZ zQDgqEjl!*@K-8#MG;mU!GbwNZrO$~za-u8c3@Du}Q|n^!()B85KxwsY_mZUT>y!d0 zeRqA=ifThYR0^XMzZOyI%qVqclsYp?u;SoLECZA}>rv{A6F&c^@iG@JN}X|vNRx{e zrOr61q{&5#QfJ}HOMHPLau-CYq7iCK%@ng!)cSNWIXW$)eHW9X#yhc=x|pp`D>)a^ z1w)d^QLJ4`3b#JB<(x_v3`v+~B&Ffj=ReAsTc4h!aO>l|L;X5%gj@P{rEu%xO$u}L z%68PJ^^MY<}Ery#^^Ot7^9;y90f2&0gO=qV-%prC_s-f?Rr@YlTvVKXE7-fuV(>Q7L%ffvKMASiYhId zSvY77rGZB6-oj=n^XtmqoCPUL`s(hZlX0W~MW5tNjXM1&9R(B}jTq5;)@P&uMdiwU z_pwu7QXm-Ry?@ea`AqtC2u3T;pYG+{loX(-OqcEUew9gKii|7_Mi!>X!W3DUB8#3P zi=HBjo+68$B8#3Pi=HBjo+68$B8%`<)2MYtiYgjvT|H{lx|$rlaThu2${fwy_fRP` zi%u6mBT>N)DF=cucmqpo_6y6QRVs^iGf2t zuqM{RlxwX8nh@FLAPbhjRy`3z4%PxO7{xey^zip31t5y@yI*-e(Be)y>2B1 zAX-wbyYH3mqyR(*NAGCyY8g@hqN34jGnTlM0ubd-9`sh@@}vMnS8{4Ee|M-HDhA>Z zbw=Y0Znul&P%+RPq8jlCQ6NJU$PfiGM1gvU0`(9D>LCi$LlmfoC{PbkpdO+?Jw$=R z>6Zp0MJwwkr-2guzPL!Ys%|~Un2z}vW!~S;vyXd5V_viX3YJS6oBaA+BPZvw@CqrY(H=4 zIBO0m5Q%ygRPn0Wj1-DQMu`m}3Sx+Y7@{DCC`b=ckRGBSJw!ozh=TMG1?eFQ(nA!a zhbTz+`cjBojBct$6SHPPsVRlxi)h$0>c$+E)W3oC-;Fs+sP=QOTN5SDd~>3UKt* zwTGp~dfid^07pYd#e9|ZBc%b3st3$W-L#k#=4ixidvF zDg{tFKjQHBeH~{h1yK6BbLYfYy-5L--tQSbd8UmNK&gGz()H#flL9DtUcDN2ycsEg z()jq*>179y0w~QK+xzyvgGd3CdRLy%=9mj9fKtWZTWogNMQ6w;705S+yE97N8Kv%w zQg=N{-SsGS*Q3;3k5YF%O5OD+b=RZRU5`?C;pYR zm^rc^I;a%tWE(4SP;}4yiQ6k$ue}3`xPvQ8059%p3*lISSTu6s+ecSkFZfAw3u(qy7S=07MTCuju*aqj!}8!RVLa z={tNHzo!&{=#48u`q{YWGC~j{oHy#4o+X~2hub6}NYV2TqRYR)knP2P z0jgg77oh9Ke*wx~{1>3@#eV_nUi=rJ@5O%s3ZMTA%!h@TvzV47WG@7Vd=TUewNhco zQ$xNqq%lO~B_E>?VH!i2#t=P?A$l4^^fZR(X$;ZR7^0^!L{DRgp2iU2*-L43HF_eA z_&`pOZA1z@`H9{2o@Q9HkHKo{X@)fqyHWta3#%3mc_mRkY1R|l#Y)o7n~@Anp@09Z48<2HX)mlOc%-410RlyRfqg0MC` zs@r#`ewNR%^hA(8`t8cq$=?^LGvu&#Lauz%lR@gqAoXOBdg?*ysRya29;BXnkb3Gt z>Zu2*ryiu9dXRbwr(X(^JKhP0ZzPFfU$-=?co`y@Sqe2-ijegZYO-W`2Wu)6rw}IJ zbv@N?hwLARB1@fCA3UElO!lEektH{$od-L#Bn4RNRR6tRp||KLVCh27f!o%dCk0q) zzwW2d@ry|TmKK)`9O(c14E5{4(qH%5zk7Ve+e(2Za$23YU(dHrQwp zDU?|X)w2|;XDL+AQmCG#P(4ebdX_@3KhP-lqDCV7X~GK7`j(VMuzzKH$Ga` z%jD?xa;%eHCP%Z^Dg|Pa?|?aB?@V5&6le?sN0*#geL~(^>xCR$nPK^G`v;@|M_Y;_ z#_x|J1vu)_zvJ~sX`}#0!}s>=@O^7ifTIh&SDlzwAaB3*!p805hwk(4tzM&k9XP76 zz0cODJ*$<%9KE|58@FD}Q7`7G7jx80&rvTuN4@kM_0n_HOV3d+Jx9It9QD$3)JyoP z;V8`HNIY#CXw4obI$N$r7;=Pdo`_bkHE9A}lQ5H}tMaB>n4BG7I_=Js9rEFqA^x3jjaCZKwBwy>pER94Rw+PJ!!^4dBK{et z6ricWgoGubACm%6>CuB3k=}Jk0h(rXy3@PkBvP0r)xw1_O<_z^7}FG{rzuQNQ<$En zFg;CSdYZ!YG==GD3e(dRCVYJq^X=CczNAIGZn69DqPQ0xSpwS;paC}!x1OTj!q=Bld3lSYkIB)rpOKM19F4Lfe^Cl> z1l!D0q);?!R!j;-qlcF%AK(bKs|BP`G_rsHP~{99!B+Cd1El~*u-V_ZuM~<#CG|)l zjx0CtVKnN)9Q9$2`Y=a*^c?lkbJR!AQ6D`=ee@jl(R0*C&ru&eM}36T8jd1FMX2S5 zMQ6#YcV4Dg)}fja@qe~*5y;c??H{aW6M3I|~xWXVxnUye#%?Y_5^6)SD@HKUTaIV-tv!^KsN zgf6!&p3X*T&vvht_N*x1FYk+J4LrB8`=&NOB0hZ)u~I?f+Fh@6S1Ay(Mp!B)FRDZe zAokIkQzJv`(ouj|=db(*RVlfnjsnC=1}1LEb0!54`+fYrk?FJK{pY^efja)mxJI}B zxuuQ*#8wn^MUp-=d^@#P=Bi2`sSYJJ2ef5a- z)g#td_^Jt6k%$;h6?9J?mXfXR%0x0`##K3Ri!>p-DyIu0k)t<8RR3h!MN**Yt2{ov zAU%K-;K;w#)wbW|$pKd+KDE-aZOEsY7v<)$1GM&f%a&SCkr27NBy z@`=Qb_?qH5!y+Hcw}m2+qcUrH9UtqRjT}Yd^yT`(*j~qX%Pv%;IS+m{6FG`xjv|?( zNaiR~&rzhFqewkRk$R3I^&Ca&If~SC6shMZQpb^-5rrJ#nnvA6Su=BZ@-oUK$#@Iv zDas_N%L=8yq!VsMq);cyNGF9lQN|iMc@>2u;ZcdjDj#n29xqi2H+r`hD}@`qGV(rQ zlsTlc$UA;f<{g#t@(yH_Nm9E7NKzD&6vZS(F-cK+lA`n^Md?Y3(vuXWCn-u#Qk0&g zC_PD0I+C1?Xe0?2L=8_%&QHk^AKR%WR9G78`JNK=kD^VS9?Ez6qcJdL-g1q9ykZho zdNek0A)#YxMV68)0YqaTYE!|5rpp&n8ff5Vtv>vqD1X+0 zLjmn&yoo`GX7}D*J}!?Gh)K2A&0KfiffRsfpk>jKGPNlmfat^DUtcr4`Z5G01|d54 zc=s>eRxVKrK=keY#%Hz%Em8_VVoZp3y^Ap^h9Qb! zh+-I`7(GNWdWd555XI;riqS(9qlYL)4^fOBq8Q=yOM6MKMn8n8lF>WOmY6NpcBdJF zekMp4Y26e2-P@L>+#F`8pl9zfc2BV>Ex_)WxECWO=GPGww za_OXfq(CsTFB`FI!d%(aiNy|5&iNIqPL#+%6N?PBtZwU9&Pr*3q2OjMN1Pc=`2a(m z-hF((%MKYFW3hvjaqVoWuN%<$07F}k?f5rgE1felWS1SJSY{}e8H#0wV)YEg>KTgF zGZd?5C|1un~ zt>wa+$h#N)k)to0hmPO)%0P7#a1@;2P%pdAAf-Son%MJ=3HKMtyCD6Mqo5|C2}_q# z8sKQw#W}Cea3cjc`Xeat?ZVZRGsL3K^&hu)NuXZ`j@mu>^Kji3^4>{*vr)73$5_;# zIqJ_G^=FRy>pAML=cvD)qyBo1`s+FBuji=0o}>PHj`|BK6V*ql5UFv?;Os{Bb zPLBHO@PMaKYK;gCFi|qs_@K*?$3iH};%siPD? zso-qAn;QpuDTPCl;e{v-V3Y6^^GjoNuj<`i61G{H?la8!hNGd^y>tXeZ@J1Xdpv0kRck#5DnBrG*A!G zKs`hQ^$-ozLo`qi(Lg;!1N9IM)In6$7=#dE-zdnIjLYQ=G8yvSf^|QL88Qy;Pzo?K zaY@9Z&Np`|1sHm`t#a3pxLryCh9(Wm-(iv&N&$w}dXCThU;!z> z&~e`jCrdTmqtXCFeVV!)?L3##07H%XyRO{yIVr%<&Y_z;wrnSb7&5-ujSLN9h6XW1 zgP5T~dWHt+85*Q#Xpo+vL3)M;=@}ZNXK0X~p+Umemj)saBMuqDuVMs?#ql!JQoMY! za{YZ_)E{TUWCUV$#+fh~&6UCd$!Mk&3P=Vk9FPoum4*Y7(O4-IkPO35DHM=xk~dHWUCPDVU}g!geHZ278_9dA-}a5L6X zyh+h++1kY;Mef$0AD8d4Ri%M&v}#w#&Tk%*0u&wU_hiM{UfWa}plIdnwBQi6R$x4i z*FHEmr|Y*PDGh|9DYI?`mdPgtC>qtkz0yz1DQBQ)L$fjeh7BSGC_3U{oO1e|&XC)- z_3{%j@k~)XQxwk>#p@}G*HaX)rzl=eQM{g_cs)h&dWz!p6vYc)UrLd)F$5`cFe1{e zxw-s3z9A+?{bYw|2xDYVI*33FL5#%VhSBs(rBJJ8Z@ynC+^PkCp%iM>><{-Tg<3Ux z04dz6UD>PBP^)H-C55`#_A4bS4Ry2a*`zQ=C--158p0S2VT^__Mnm)%4bfvXM32!B zJw`+H7!A>5G(?Zl5IsgibQrlB34#LkIoP1oykYs)T=`r{f(cT>Fs!Bo2FWNMsTAlQ zed+jp=SQE)TkHwgs%@S>qr%RtOqB*e8gioP{(>qQN&%22hdHnBJtJKy0Mg&v>i$xH z(g>vhNX?s7>C)%naHRl9E6z0;zQ&sr0O^gb7q(^U_9X8{5s!|vvBNahP zV2~0Rqyz>jK@U=b9;5_4NC|q767(P?=s`-*gOs2LDM9%9(s<-#SP>*_)q03;DkkGH za8{Edi>x)PNzubmSVvY2N5%dhm!H=oPbm^d&AxE#XwR!Ql@CyK&-2#bk8F}gD?T{#z*yJ*m#-yzR_tV#ZnyqJ zBUG|y#ZGqlnEG>kZcDDLX5UCWK@4|9tW1%WDY7y}Ry{>lJw;YMMOHmURy{>lJw;YM zMOHmURvkqyMj}##v)MiJQpBP;DLC>^G&xdFG$xuH6)(WrPDGBbeR}Y>e>com3UK7J zee%qZTk>V{MC7Rc58r-&qbVs6jgF)_oL=Tk3Phu6V|^FYnl(q|0~}5KddJCu38X+Y z>UF!v2fNFX0?}y3lPYcIY@4l)f@tKp{?hW6>PydwCP$TKBS(qMQ6h7c$Q&i=IZD)X zl&I$@QO{ALo})xPM~Qll67?J<3SVCuja-c+vsnwVX6N#4kt7qO5*ZSbo&qTmD=rB^ z`n!Ebpl_g6DF9N?vMv{Y_$Xc}(5yKGFN=6>j=TwygaN5V(+dvyiSm|55(cCpi+cq7 zd@65nB;jD~MYK}5 zS+hqWNJ$J*5`&b)ASLNRO45Urqz5TU4^omIq$E8^NqUfy^dKb(Uo{{ln;^xerdV^+ z#aE1A`Y721X_CBeo@|1&U5=rW5v1F><8Pg9EJsYq*gwi~pH?vQfgI%}V?-J@|LBvw zdp2R^CL>6r{=3v;Y;95?BDMRwsMQb6HmWobkz5IDKrmhsq~FfAR@tL z*-HwK*qU5aX=ub&5>5(@*evttC;$n!FX*>u#8%=*3XRw-)8vhj6rP7HX+R2rWG{6d zBT@>3l)@mTFi0tSkW%y@rRYIQ(Swwt2Ps7lQi>j=6g@~OdXR>S+M*F#dWuziMIjTv z%R1BqNqj96V$@I*q^oiaHxwgMn{Cb3MJyu)Kq{WTrf^#pDF9OJ_US?QejBRt0g(FN z8*_JiD^dWYniF$;YVA!{X#k|*BW|`W?w+I+0BP>X&cC)VEgROM7?B)9j;-E&AVH;p zh}3HT{tHcVhbV*a=v+2XkVwV(P7Q@V9-yT8No{|P(?GGm?cjD~Ru`h?Tbgtz=3S2*B>(o2eCvKuj1I3=2w7UGer(RbI7u)_i7JHZ~wwsZP z#m0xJBgL0TQ^hl|a*Up87Tu7et5mb-1@gyJWgGNMlkiKv@|07t4VtpzeA}cyNr9qo zZPR`E!M9}5Q?U(lD>bTQ#}!hb=900$)$z2Wjo zGwpA60BbSLw13{$N`c7j@x>dROSe0w6d*6tCp6LLKT^Q{2@Q{o3C}pL(g1m$uO9#N zUppyaziZr=@BTECjsp9S?6sWkJdu72?9cc;Dt-57M^!#x|ATz*f2aO*L@8kZ<$A5& zyP8M}+wXHk*bn7;{%dk+SOMnu+#t>KUz1D2N_aNS^Iwxo!-{w|>QAOT)@|HqEnN zlXEqOV}(>QqVf{q>)$;4Iozy~ezFrZ+^muPvNJUtF9?x=VK{z*o(#te0+s4plmaz^ zTW3P|HuyDaBfSD;iPbl+=Wl) zR21cX=5unxu{!vpZ^N-Jp4xrpb8^G+VtDGW&wNg9I9>`*{q>p8$qg50Usd>ppRsc_ zMu?KAmM1W6m=~-giKFuortK#tV8KV2w$HRH1-md!=T?6!ozlRCP!xav?yrUnf+Mgm z{ABw0Pj>C2G+_I})v>jAyiW>T2rUyIjeAY4Wi$e9cWqtkmC}APypF&@)y3+69t=BA zzYexH^}Vro$VGXVYy{eVV#w_4X`%A2-3W7Zo-h_e@CX%xU5#|JGaZ3@Z*swo1u623)3M|$V}t*D>vK|| zNS=b8g@HRU5lf!Vows!EyrpyJEnVMvOV@Ya()FFUbbaS7UEg_2*LU91^_{nLedjG* z`1;aOfQylVAYoGimrt@)t`C-Ba#TDWYcj*+Xw6Kez!lVDdq$m-pJyoruAnLnXEfcU zJ_(+I95o27b+lhAIWLugExBd%q%y?&$_JW~wSy-)G#xBw&N7gr z1r>Je%WpzyfTJnZ_WOJtFXy*1@Cy2PQ0~Ks8+1O*k(lv&vVe}FHn3zSr2&+1 zoBh4|EeJ`lmH3iEC|!MY9Z||;lrkBmOhzeFk5Z-{rA$3anR=8m^(bZPQOeY#l&ME4 zQ~3H)l$;Hlu$?~OV@=DprQupUHpJ*fZ`j!wC!<7;I&3CRCGxI{&FoTnWnvZEFfw5s zs}G0TFfvJnjv}0lgbZ~Q;be$ccA?X4!^nh3l~5W7asId!Q$B=~VJC%f0tF(Ijd8Lu zPBzBLrpL*q$H}J0$)?B2rpL*q$H}J0$)?B2rpGBu)P%xGevlRyo6F*;WO!MzBC|}4 zyoM?T8n}W*%WM98pA?8n)oq7Ab*(KYC$bQupv|snjT|TqM5QvFmXuFRO;-5;Mva4~ zZb>Xd3Sbm?XQOd$t5EANr$y^av}>SCq~Sw^GOFa>z{=U+`GF2Hq}g%(-m1} z7f~z{1sG*9Mp=we7Gsp9$0$pWQI;N~EIme9dW^F47-i`(%F<($CA@!WRH|l-M2s;0 z^vF&TAFsymxI+XOX`+-YXTwJ_O7_x+5rL5ykqXmFRm|V{l~Mqu(1kY&vX97t??^=H z*O|`i_r#I{C{-FU;hfQcjslbdmUru%Jf0LlsobUxNh4;{QGn8tN8PWj%b+yS!1?Z) z_G`~RbUqM~`ne7AU-a;hIv#kG*XY!NIgm;^(c+hqcl>F z(nvi@BlRea6u!O`C3hnmQNp!UBW+0|=zF`sQZ}<>-~XkhtWirSu+kiCcH^`K{~^X* zo=wj%mMp z&uNtg(0V8S_XCd~lLBaM-MA>S!vQ)9(DK=L^|wpcC=H-Bf0gSyzmz5g(7MuK{(?8Q zol-e7TJN1gw6YnkY(^`a(aP4Nm90lBTaQ+@9<6LWTG@KEvh`?X>(R;E|?#w3zLe#y@<1KZ@TgJIXRJ$gVO?QUElqpX=6E&kt6RiN8ND?YbGB6&cRNTU$dr< zr&f}4d{oTL+k(*w5NKFp5b`CYX+x@8)s>?B3JI9g8Q4VvI!yM%>M>%?qa`YVK z=sC*KbCjd!C`Zpxj-I0&Jx4h@j$Dmg=1S!`9DM5Cda!rszB`jeUe|j_ka7{E%sI|0znPhTv(8Ss#p43I!y? zkPGkRGDx`$QZ9p(s|P7p4^plkq+C5nxq6Ut^&sWyLCV#Gl&b^D$;d;HDj3l)LrGHt zc_u~Y__AP0Z&Cmwmtz%H-@Hag0Y)vZr)>V@8s!WaRgSK_q~q(P z07iGuS*m=sloY_|orSpzZv90HV6<}3#a>$@C}+kfc{5@(iZL3+7>#0#M(HscrN?NL z9-~ouj7I4(8l}f*lpdo|dW=R1Utiigax(G}qY6e$T4pXUl9F#ywCgkEA)hI-XUgGH zJ_jS?sJ#D~j}$==u>{I~Z$36@pcoBguREV7lYuIpHev!MV4-|kDbpHegF<$x)`f)(e;;qi{RcQUP)_!Fl(L&0Y2=1sb(QA)V?z ziI9y^0dn+YZ<)Y;D`i7dfE+EGI<5P?Cts?gfTR5(UE9rVe^4pF(XhV9_S?6R0vz3+ zv+DfxDRdM>qbGkZIDKRaaXIU0q?5ib1|R+wSMCautfNIk4mXhL*hIaYNcLNx!q zKOEY}%Vw_-gVEBiMPDZDmTNB+B1HQ#ex38jowe#HXwp8Ns6>nYKv>-y1A z08!f-Z?&p;`vY|pKy;;Txmyvw?<)l$ns#PkX1T+3J^)dN6Wb3ij4oDb2qL3+2{vhk z3{fFNRLBq&>LDuBLsY1Ts8A14p&p__Jw%0ihzj)(6$)Qp3X!WZ8X=M|0q17=d-Y38 z$%h3AMe8+zEt~dzQz;OYD$GrNuk4a{lmdOE2mcN}HvPL< zN&%oAejOeVYBU2int>Xv2Wqq)sL^_$M(cqZtp{qf9;nfJphoL~ z8ZCU)05wJd6>H5&wT=)A6a?ksGc{w($TaJ7tfnz0NN>wA+ZgU9*^^{rHio-N_T!|` zn9Z0@3Xj>|CWX35_9~=MH_3jDev7(E#^t^0d;lca>|vx(H_2F3qS7!(i6scq7zSw! zgEWRg8lwkkj2@&hdXUEGK^mh6X^bAEF?x{3=s_Bz2WhMVNqkQwTHG#)N>542f>GO8 z6C^`U(2O-f$|}Ta8jB#UteZGtOUKblfr!-qpZs2b*+>D9(p)n9-`hz?0Z6eO{kKL9 zCIvw1vhe8i8AIgs&{&*{v{kWeefwy>${9d9)-d-@U;j}`0g!IL|H<3+{PL6nAdL$h z@MBmhI%ftcD+fUu%OH(qkj64dWAz}7)q^xv57JmYNMrRNjn#uRRu9rxJxF7PuP=>A z&c-+d30K^WwPn-$F5^s$_I!esG|t56582%whZt3M+tGbe{hcZeVDx0q@zQ7ak^&gL zx9`25rst3X7&Uayyga;!6u@YKcWj#9SKaT89==(Ks8%7-z^+=dv9V~oZzM&lTxae9o#=`k9o$7q}$qj7qS z#_2H{r^jfV9;0!>X$?k23Zq!@xVkwNS!80gQdV1$iP1heA5g^2nh`6Tz9Mecj1h7X zr6P0mKZz7-){Kuxp=QlUCWV?cV=d*(&06FxM5M?Z{qK@E79mEWIELX$3S%^C2VzuY mR2GK7ZQLRTs)&IqVxWrjKo#kMD$)a0qz9@<4^+{!K>a^NBU6q5 literal 0 HcmV?d00001 diff --git a/Scripts/Data_Load.r b/Scripts/Data_Load.r index 88a4851..b9b33cf 100644 --- a/Scripts/Data_Load.r +++ b/Scripts/Data_Load.r @@ -1,7 +1,7 @@ library(rvest) library(tidyverse) library(readxl) - +#setwd("../") ########County, Death, Birth and Migration Data #Data found on the page http://eadiv.state.wy.us/pop/ PAGE <- read_html("http://eadiv.state.wy.us/pop/BirthDeathMig.htm") @@ -118,6 +118,37 @@ TEMP <- TEMP[1:which(TEMP[,1]=="Wind River Res."),] TEMP <- pivot_longer(TEMP,all_of(colnames(TEMP)[-1]),names_to="Year",values_to="Population") %>% mutate(Year=as.integer(Year),Population=as.numeric(Population)) TEMP_COUNTY <- TEMP[grepl("Cnty",TEMP %>% pull(County),ignore.case=TRUE),] -TEMP_CITY <- TEMP[grep("Cnty",TEMP %>% pull(County),ignore.case=TRUE,invert=TRUE),] -TEMP_CITY +TEMP_COUNTY$County <- gsub(" ","_",gsub(" "," ",gsub(" Cnty","",TEMP_COUNTY$County,ignore.case=TRUE))) + +TEMP_CITY <- TEMP[grep("Cnty",TEMP %>% pull(County),ignore.case=TRUE,invert=TRUE),] +TEMP_CITY$County <- gsub("E_Therm","East_Therm",gsub(" ","_",gsub(" ","",TEMP_CITY %>% pull(County)))) +TEMP_CITY <- TEMP_CITY %>% rename(City=County) +TEMP_CITY %>% pull(City) %>% unique %>% sort +CITY_POP <- rbind(TEMP_CITY,CITY_POP) +CITY_POP %>% pull(City) %>% unique %>% sort +COUNTY_POP <- rbind(TEMP_COUNTY,COUNTY_POP) +#ggplot(aes(x=Year,y=Population,group=County,color=County),data=COUNTY_POP)+geom_line() +try(rm(TEMP_CITY,TEMP_COUNTY,TEMP)) +####################County and City Population DAta for 1980-1990 +if(!file.exists("./Data/Pop_1980s.xls")){download.file('http://eadiv.state.wy.us/pop/C&SC8090.xls',"./Data/Pop_1980s.xls")} +TEMP <- read_xls("Data/Pop_1980s.xls",skip=2)[-1:-4,] +colnames(TEMP)[1] <- "County" +TEMP <- TEMP[2:which(TEMP[,1]=="Upton"),1:(min(which(is.na(TEMP[2,])))-1)] +TEMP <- pivot_longer(TEMP,all_of(colnames(TEMP)[-1]),names_to="Year",values_to="Population") %>% mutate(Year=as.integer(Year),Population=as.numeric(Population)) + +TEMP_COUNTY <- TEMP[grepl("Cty",TEMP %>% pull(County),ignore.case=TRUE),] +TEMP_COUNTY$County <- gsub(" ","_",gsub(" "," ",gsub(" Cty","",TEMP_COUNTY$County,ignore.case=TRUE))) + +TEMP_CITY <- TEMP[grep("Cty",TEMP %>% pull(County),ignore.case=TRUE,invert=TRUE),] +TEMP_CITY$County <-gsub("Frannie_","Frannie", gsub("Mtn._View","Mountain_View",gsub("E._Therm","East_Therm",gsub(" ","_",gsub(" ","",TEMP_CITY %>% pull(County)))))) +TEMP_CITY <- TEMP_CITY %>% rename(City=County) + +CITY_POP <- rbind(TEMP_CITY,CITY_POP) +COUNTY_POP <- rbind(TEMP_COUNTY,COUNTY_POP) +#ggplot(aes(x=Year,y=Population,group=County,color=County),data=COUNTY_POP)+geom_line() +try(rm(TEMP_CITY,TEMP_COUNTY,TEMP)) + + + +