From b4eeb55e29b5a6d60588d639ee97c9f6f6ccd09a Mon Sep 17 00:00:00 2001
From: Nicholas Clark <uqnclar2@uq.edu.au>
Date: Thu, 16 Nov 2023 09:02:33 +1000
Subject: [PATCH] bug in summary when multiple random effects are used

---
 R/add_MACor.R             |  90 ++++++++++++++++++++++++++++----------
 R/summary.mvgam.R         |   4 +-
 src/mvgam.dll             | Bin 1064960 -> 1064960 bytes
 tests/testthat/Rplots.pdf | Bin 22890 -> 22884 bytes
 4 files changed, 68 insertions(+), 26 deletions(-)

diff --git a/R/add_MACor.R b/R/add_MACor.R
index 984db65d..10ff6a23 100644
--- a/R/add_MACor.R
+++ b/R/add_MACor.R
@@ -294,10 +294,17 @@ add_MaCor = function(model_file,
 
       if(add_cor){
         if(trend_model %in% c('AR1', 'RW')){
-          model_file[max(grep('= b_raw[',
-                          model_file, fixed = TRUE))] <-
-            paste0(model_file[max(grep('= b_raw[',
-                                       model_file, fixed = TRUE))],
+          if(any(grepl('= mu_raw[',
+                      model_file, fixed = TRUE))){
+            insert_line <- max(grep('= mu_raw[',
+                                    model_file, fixed = TRUE))
+          } else if(any(grepl('= b_raw[',
+                              model_file, fixed = TRUE))){
+            insert_line <- max(grep('= b_raw[',
+                                    model_file, fixed = TRUE))
+          }
+          model_file[insert_line] <-
+            paste0(model_file[insert_line],
                    '\n// derived latent states\n',
                    'trend_raw[1] = ',
                    if(drift){ 'drift + '} else {NULL},
@@ -328,10 +335,17 @@ add_MaCor = function(model_file,
         }
 
         if(trend_model == 'AR2'){
-          model_file[max(grep('= b_raw[',
-                              model_file, fixed = TRUE))] <-
-            paste0(model_file[max(grep('= b_raw[',
-                                       model_file, fixed = TRUE))],
+          if(any(grepl('= mu_raw[',
+                       model_file, fixed = TRUE))){
+            insert_line <- max(grep('= mu_raw[',
+                                    model_file, fixed = TRUE))
+          } else if(any(grepl('= b_raw[',
+                              model_file, fixed = TRUE))){
+            insert_line <- max(grep('= b_raw[',
+                                    model_file, fixed = TRUE))
+          }
+          model_file[insert_line] <-
+            paste0(model_file[insert_line],
                    '\n// derived latent states\n',
                    'trend_raw[1] = ',
                    if(drift){ 'drift + '} else {NULL},
@@ -371,10 +385,17 @@ add_MaCor = function(model_file,
         }
 
         if(trend_model == 'AR3'){
-          model_file[max(grep('= b_raw[',
-                              model_file, fixed = TRUE))] <-
-            paste0(model_file[max(grep('= b_raw[',
-                                       model_file, fixed = TRUE))],
+          if(any(grepl('= mu_raw[',
+                       model_file, fixed = TRUE))){
+            insert_line <- max(grep('= mu_raw[',
+                                    model_file, fixed = TRUE))
+          } else if(any(grepl('= b_raw[',
+                              model_file, fixed = TRUE))){
+            insert_line <- max(grep('= b_raw[',
+                                    model_file, fixed = TRUE))
+          }
+          model_file[insert_line] <-
+            paste0(model_file[insert_line],
                    '\n// derived latent states\n',
                    'trend_raw[1] = ',
                    if(drift){ 'drift + '} else {NULL},
@@ -426,10 +447,17 @@ add_MaCor = function(model_file,
 
       } else {
         if(trend_model %in% c('AR1', 'RW')){
-          model_file[max(grep('= b_raw[',
-                              model_file, fixed = TRUE))] <-
-            paste0(model_file[max(grep('= b_raw[',
-                                       model_file, fixed = TRUE))],
+          if(any(grepl('= mu_raw[',
+                       model_file, fixed = TRUE))){
+            insert_line <- max(grep('= mu_raw[',
+                                    model_file, fixed = TRUE))
+          } else if(any(grepl('= b_raw[',
+                              model_file, fixed = TRUE))){
+            insert_line <- max(grep('= b_raw[',
+                                    model_file, fixed = TRUE))
+          }
+          model_file[insert_line] <-
+            paste0(model_file[insert_line],
                    'for(j in 1:n_series){\n',
                    'trend[1, j] = ',
                    if(drift){ 'drift[j] + '} else {NULL},
@@ -448,10 +476,17 @@ add_MaCor = function(model_file,
         }
 
         if(trend_model == 'AR2'){
-          model_file[max(grep('= b_raw[',
-                              model_file, fixed = TRUE))] <-
-            paste0(model_file[max(grep('= b_raw[',
-                                       model_file, fixed = TRUE))],
+          if(any(grepl('= mu_raw[',
+                       model_file, fixed = TRUE))){
+            insert_line <- max(grep('= mu_raw[',
+                                    model_file, fixed = TRUE))
+          } else if(any(grepl('= b_raw[',
+                              model_file, fixed = TRUE))){
+            insert_line <- max(grep('= b_raw[',
+                                    model_file, fixed = TRUE))
+          }
+          model_file[insert_line] <-
+            paste0(model_file[insert_line],
                    'for(j in 1:n_series){\n',
                    'trend[1, j] = ',
                    if(drift){ 'drift[j] + '} else {NULL},
@@ -475,10 +510,17 @@ add_MaCor = function(model_file,
         }
 
         if(trend_model == 'AR3'){
-          model_file[max(grep('= b_raw[',
-                              model_file, fixed = TRUE))] <-
-            paste0(model_file[max(grep('= b_raw[',
-                                       model_file, fixed = TRUE))],
+          if(any(grepl('= mu_raw[',
+                       model_file, fixed = TRUE))){
+            insert_line <- max(grep('= mu_raw[',
+                                    model_file, fixed = TRUE))
+          } else if(any(grepl('= b_raw[',
+                              model_file, fixed = TRUE))){
+            insert_line <- max(grep('= b_raw[',
+                                    model_file, fixed = TRUE))
+          }
+          model_file[insert_line] <-
+            paste0(model_file[insert_line],
                    'for(j in 1:n_series){\n',
                    'trend[1, j] = ',
                    if(drift){ 'drift[j] + '} else {NULL},
diff --git a/R/summary.mvgam.R b/R/summary.mvgam.R
index 34b8d30f..67c6acc4 100644
--- a/R/summary.mvgam.R
+++ b/R/summary.mvgam.R
@@ -197,7 +197,7 @@ if(all(is.na(object$sp_names))){
 
 } else {
   if(any(unlist(purrr::map(object$mgcv_model$smooth, inherits, 'random.effect')))){
-    re_labs <- unlist(lapply(purrr::map(object$mgcv_model$smooth, 'term'),
+    re_labs <- unlist(lapply(purrr::map(object$mgcv_model$smooth, 'label'),
                              paste, collapse = ','))[
                                unlist(purrr::map(object$mgcv_model$smooth, inherits, 'random.effect'))]
     re_sds <- mcmc_summary(object$model_output, 'sigma_raw',
@@ -601,7 +601,7 @@ if(!is.null(object$trend_call)){
 
   } else {
     if(any(unlist(purrr::map(object$trend_mgcv_model$smooth, inherits, 'random.effect')))){
-      re_labs <- unlist(lapply(purrr::map(object$trend_mgcv_model$smooth, 'term'),
+      re_labs <- unlist(lapply(purrr::map(object$trend_mgcv_model$smooth, 'label'),
                                paste, collapse = ','))[
                                  unlist(purrr::map(object$trend_mgcv_model$smooth, inherits, 'random.effect'))]
       re_labs <- gsub('series', 'trend', re_labs)
diff --git a/src/mvgam.dll b/src/mvgam.dll
index 2161ca821a5edcb6456981b031a7acf4b0321970..a8ea964988923fdde9d8056c6717ba9b91155529 100644
GIT binary patch
delta 78
zcmV-U0I~mofI)zOL6C?8kwjIIi%kPb6cK^jh1&sz+X98#1BKfJh1&&%+XjW(2Zh@R
kh1&^*+X{u-3x(SZh1(5<+YYtc4=LpXkVI9t2j&m?Su9Z^g#Z8m

delta 78
zcmV~$y$wK66b8_6as9J~G2Q^GSJ~z&zC@y-lGsCpRlb@Xbj~qzW^S3}R=>`@Y<oKr
i48RZ+Fal#R0ToQa49vj-EWrw_4>sK+m-<uR<{N%kwIeJ5

diff --git a/tests/testthat/Rplots.pdf b/tests/testthat/Rplots.pdf
index fa7aa8e773ccbd9706afd57a623733b8dad19905..16ddf518c968b01ec8f785addab644513e128192 100644
GIT binary patch
delta 8461
zcmZvA2Ut_-7A-|ZQN)IY78NN9f}qq;91$D@1av5&s+7=!3IRensACxrPy$3c0*Z8!
zK&T0zVn84uB}yWpH$xIy2;FyZoO$=%`}o57&UeB-|1N8-y*J-+{9`!&=UUq}&S|M@
zzR)}J_YD@-BFnFVRy8|}w&WKDI?IqX<_rL6uJb+eEpwgHf0+Ne?7nj{*o#k_1BFXa
zF;mCqIIaefGt1wgV&|WVwclok$Bll_Ht{8gQbOC9wq^6H1I)pOb@1Xc8d<mMQ(47u
zAud)~yZ9wlS-Ak~OI*=11JBng4a-Gk-<d9?wfPv%=4M&s%IZQH3F?UW5=5LIEZba1
z<ORll0U}q(0LrP%1vp*i(h4-JU9Wh@ENif{7_S|qg%k0k&SW~HY_P%EC87|`FE0zM
zi(9xBFX)n1*kPIE;KB9bHkD1>C-mm3rUELd5ctu)`6R)aK~3Cm6Y<TZp&@b!&YCPM
z19;;qBx6kjGZdyu+pKoeb6UrpLNLKV&JNTnr3p+kuk7ZXdC%S#m$|YS2GqH44{!BZ
z;JMVU8;+%~3o9-F7o<!udAFrlFqZxN#URnQ_AWn`Hs}ylrImb7C-#blO41K<)&>jG
zu)#$%tgwJ}I)oIqF)>+&Bt|YFfba+&3j!!V80F#zBi9BDFj+r(m`oS1BR_m3{J2$-
zbJ|4ohP;`80TyklU?>Ru7{|X*ILQy3D9V4eiR*uE6vp)J=CiS?%iSdOS5qAxZdP?X
zo{^7zL|WX9x1tjI*_e*U#q8asxUaq~C!Gs{vTu!5tYl|Doey8sS!J4ZDO?K{6^36q
zdQR<9a9aEtuAlRM!ce3C65x?l<g3=xIaS(IZn2@v#Y%p4Mvq5Lwr<iA$w0!QS4qGB
z8&Zif-A~e@XXNh3A}+RmS(jFw{&B&(wtY1;)7~#`p}uY^en}fb^R4L&_lmIFO@X7i
z!TBrxI1^uzpWYO%dAY_p)j*{*UoOo*k86YYsNooI{%i*l@}<befd}h!8uPK|_-Uj;
z*iV$P_i8ASUTVM>-8B<*`59&4!X#G1JeC$wY*mM_hv02=L_ApSsiy%spD%fIMx1&t
z`7zhRr$6uL+CyqZ(5`+emSCM_p+~jL-^F}Ltu5G4AgA(deD!*0nplztt3x92j#`8y
z;xpTbiC|p*vPL7*r`A(6&mnr<h+I^?b>EyEf?Dda^ny`39myaA5(MRV_doG}aL*Av
zlEPA!7LmStb-w`-8*<uSdXTq2vM@i)Nw9iFfuL27V~m%dostGZFuCSQeRxi8iG71L
z8j+kY>cb?3%19fKU`UDL{aH3i-sNw?Q@uBQOi3`g66$%0)e0QK#wCPvKFz#WVWS;M
zoPySfS8V#XY62FRe1r`%)5hW0zL-9{=2S<oN*kCS0Xmh|>@YM}gJ5G<J0zY~lD`KG
z)_;H|j-|PyM?z~5OMUMK?8a4{STi;e?RHMzI;@Et-8y2Ry#$Y<NraR<`nV(L6i4ay
zd6)!CbYYkQd-h$KY;T<+iqG`uNYy<&6KM|}f3MR8h}*yhcvl&rH9QR;`{uRelzM#e
zkq{vsB^G<Iq!Lw>Ssa?=ar5i|RP^Ixc7}QdF(H`hVLMOBrHA*>|Cl52lIrnFG1P?M
zWcNoRlZ?=w+FI~d3kP1R(7`qvKJygo=(3rN0iC+w!yEg}pWEEy<9uB8*0c343;IX`
z*crRCgt!H1*i+n+1AZx0RdZ9gruDn^S7oSU3tjGN-3!+dp3J7qe0v976@7%6>pZ2y
z)r*3e?{MgWGQ&$R42l!oI7&<Ja`YTjQsr@;&zN2o#;%K$1Lj>0X_^WPHO`v6vNE{p
z?s9o{hKfrW0TLKK%V1|nWW|R~HUXZ!L_GV+p|i}8PdaO2OF3ZDddk80a*~@T7AZPe
zYhQO~SX_ow$eX8Pm+af07>zDc9)7M2ga1WoXMBb-VR@iMTQ<i{RFj@hEXFB0=rBDm
zxG@qKuyz!yReI3>$8?5@f#T;(rmIvdG)8<jm@V2n+&7lt{^K@j0DvATh4Uz>$7p0o
z-!%LR3O-;nzKqw|m<es(ytp{NX~|U~Lt|DRXsg3%ADVBg_dsLtQK~=2GK`ELt2}Pn
zl;bEdVL1>UrPgu(Ob;}eeeH{}O-!>+FI8^tnQ`=4!jPv?`|X4JBIEh!dwz~0><rn%
z1*Z>p_xa#E`V}0}_R5C<dnk|MeaPG19JlMr66K@^<3*8`CfAHn(_>#7OnM?K{S6w!
zBY(fkDUJ`4<tPpGLPO!Iw+U%AbYWL39_99*KGCmZE?Z1&OlOQ^zfDg$dVH8jk58+M
zVbs)BW(Si(HG(+B*zaZx*y2F&JOxMVkmycrWgGj>P)kE1PyjrI6Q2CJ{XK>HN3#u%
zF#mD^Rxq{P1G}0VlT;j<(VUqd1`pkHv@8tHRqltXWU3E9!;~9|cspAtv|A$d!VF`@
z`EW;dFzHxZT`)s8tXlIB(-)3F!9$gxVeoskWT=X<0SMk&(+ZT!<t(uF=WW>;LB}RM
zhnDa`P=E@T<LDlZtqV>j`@;QDlf$Fq3(v_k_84gLi2<v1XTPhzp9%H`iW=)|2WH++
ze=0*Z)p(J!K#cA`!lOJ&(Q{FG&%CE+vXMc=@2Q*MhMcz@Vp=b?W!(MEJZCbALO~(b
z^@;d&ks82P|FTQPBm*{ckTOpi98)b$0hUG=@tQ>ZTWfqU$)63dgFBRx-9+;o+JZhi
zKecORz@p2-kyLz`KD2GUA{<H56}ti=ei?M_8oa#BU(`J!c_w2#bOyXsJXi_h%&gH_
zbES*OiZ7`?o~@Y(V;6r;v;Le?hvUcFYl{@|SVn8sQ@xL<Kp?l~19SzDiKXI#+0RG=
zS*<v=9|4adN)%TNWA~PhDsyhNJ)#88Pj^Gx&NqLa$_>smC*m*Lucy^7JTTbFQOb?d
zz7@P+Slkst4e%=>Uz0SyCD(VQD5W^jqziwy!$NVsmz6GZ_su1ZrWQE71D$UtjP+Qe
z3=e42zeik`Ga~+IVT1y~cxh6q+vj(*tqKf)(y>In%77I+ScLiwd{7LVY{pk}c1U&p
zUS~u^%u~eE=<HGdqCT4^oR9q-s5O69W@}FHVV}UkRw(m(S*!R{-b}x}r$@1@&&gFi
z3gz|%R<W7SsrLl4<0VO#g=|fzW=Q#o!IF%{CzHd}fW&+N#5f%1$I~c<R1r|fm#t6>
zgSH-fP2=+*W^QDir{m}y4qZ@FAikYoSNEcmQU#Bm2BC4RRic1vmg48cIh&Eu7lujf
zr@G%}#4{|DABDQ0OkwdhS&aVkTy_QmCCH=T&O+eu&~|q@&J6D)s6+-~_=aYDG*c!X
zIL7Sfig7$Q?&*?9;q~1!GWIFoL^tclR7+<v6j@Kg;IPgK)>Ou8dicRtaHBe}Y*0x#
z&<<WTgaOOV&FG}u&KQ;o*K5^i>hC7ryH(oqWz=JFgc(%Ln?NC%9HtY`g(1rIP>yD-
zh=2R>%>s49vOChD{o7h(BHp<T4otpt%;Uh#-Psj`&Gz)oH+s+UMSc0i=iG|x%GWw-
zLS1QT6H8B)-p<Q4vXW-v73t?gePy$Z{lCO7SxyYzO<JTReNLm_h}e`3h5x0oWVU3N
zi}o$E&E>t;!?@o{3801bLy{d{8+5fJmMBRzsyzAIKSGiT8x<*Q0l-)dpvALIRlJts
zmoDuvA3Q<?qv{3I>Zk8cNb~QGtY2uZAcake?u<F1X!MZ&u_3x#0fk+X-+wr87#Sg^
z?08FYI;w=cp;(|BepTyK&@@y8rt<JE&ZVbAPfsoMLv``omBQ)5^%g(5&cv2$XQsXF
z1wUkpenkbPmA;|p?OFh2Rga!qOE?yTIUP9s{nAzYySRlCeN3KzL1yyIO&v0(!oNWB
zd7+8<^eOXv80wkBn`dyHLXF^lOuVLxIWqyr_tF8WdUNsY*%Oyd`D^T>eGl}0IB_!&
z{W<0M9dwRRbYLTOlf`%K2smlHUaXSSDsLXh<8GK8+3TE9XX2|19ItLoH{;crh@s(f
z339e?R>WIRX*yGDTNxKj{JY0hS#I-pR;tma`zn2|0!6gL30<!p17ET4Du16;Hj$>Q
zquai-bEdo9j>&Ahi^&(7n0eRiKG5&3QM)g=0M%I1`Uvr6?VGHN*<fwk;e$^X2W$;?
zcs(kgZn%G8b7wv6ht)o5{D<)I27@No$Oq*0Ebw<**77d>Ibe_eTvJW>g<*s3Dd6Wv
z{Dbzg>o;%ga~f|D@2q!Lv&C(2-zq!L=!t!cUW4t_>otxxUn264NT6{SP5~2bhzh4D
z6?%8EN-s~~Lr0i*UauRidHWp|3H}U%zQ^Q9>=BI2eH*Jj;W0iHiP*abnoQp^3%vHd
z^^QpJp;;<3y}v8kzmZW5K)me~urf@a7b$*LO6zv<54-4jB{ib<A#~Pb*Z8w?8>^)4
zExhagw_k)zNNg*#&l<a~hi(IEQ&-0YbS`RIx^x*_eeQh*mmvGH+h@<QyLn=T2Go<3
zOE&(qSj45|-f;`6>7oM8&<33&OVjw|?Jx+AP>veR4(wCwp1!_-W^ShGbE+b)Cder|
zHlaiM^g+uhi+9dWeH8NCDL0c>enlM#rmjJllBZ|i`$ges)T)JoBklm6p`ZLH7<cC6
zH1Cg-YF&GImS+sj#M{p(Eas=QLYG%5ANIhmQwe<@yP}B74#NfS$M55?c7v4sH*#xT
zX|4r3&%s9ZFhh5X{%|`ze0jY86y_5g9!zVxqID3L*9F?O_P$kdd-Czm&l(Cv9i-NL
z=fn=wJtYy99?y{=3ke_w6R19C#PQjEJo7-w2lf35i}G!@UvyVC-bH2?-|&>EB<2m7
z)D=Izl<#Lr)mW3uLRoFaJoScEebOcUh)RlgR?Mvv7a|YCzrTvHdLxBPY09dFTuMGf
zBhZxizbU$<?LAG~;a=IVxzZbhgCQU>#2l>`5uu&30nJ9z!jjK)x^(ZrgoQU+AKo`T
z-jGt2t#rD=uM*aME=C#6);I?69B~(Xum9<r?<85aZQY9jDUO&$%m`s*9}!A4Odr42
zQSi~|qU&pP|LdDsm~HRzADo(P1tEG$ZEvV<FSiZx|0eio(@i)JJ0#Np`IVSQ!Mdl5
znix`k67H2Hh{+o&pFD`#$&Vh^u&GVz6S9KPYXZ`hz?|T|f}I_|y)qC9W4|Aqg(#Z}
z`#Ja}4+)=jQ=I6fm#R)OeuWliWQCU!aavSy#w`jT(Zp`Qy6=XwN`BYij<^%chCIWT
zgiCarG}-FNo&9fwYCI(p`#c86exB;56kSlX^zJTxpW4*`-y7SAG^5zzvHh#oT`WNV
zqU!J7wi%)_|JGB+v}LadJ;%?|CM^POK~zZNE@6+?yn=mE(>|<ty5+CwI&<$Mvgw{&
zv3*vS)IpKDtC3A<*Og5_(Tx36U??3V>{Y2E2w@t5lwo0hI*mJFCtU7?3OPgI<+@Eh
z<r0-DV+8lLL^WKC|FH-x-Cz|i9Puq}``dfuwL38A+Yowo@jqZ-xz?O5e)3mXr|b>9
z1!^Jw_bkruhZ^)V!jYBs#So5Vap*7fm)5L3-(Ifq6Ae{!PAce#DG*3uD^gDwUdVRS
zyjSk`vuH*gpGs{Vi4Sm_QBlE>@7H_<e>u*7uFsu&Q9s8ox7d$KU+GN*!4&tJ|3|?}
zMjOS&>H%itLO5n4fACD>@cnER%QsT9E+7)C4F5)A0c!F9&Iqme|FU37I>%pDyM{P<
zz%(~l(kuy$&{p08T;PK~t6LoclG0w;tkc_qZ0r`s76Q!rUm)ZAq_GcaFIeKuSN_gG
z!-u_Iki{jeQn;#N`@350!^y{s-X68qdwJ-aK(o)K_qhj}hmzN3i`YV#pu*5U4#@UV
zxQW|~)oIF+n{lLA4$8XWr54D?gOeWF6Rc;FvfBX**OB&;iz*S~?bQ<QwBdH?@bt;Q
zqp-=z?vTQv1nswyK;W{%d)nOb49OT`=zX_S5w9_O?Bf04(1;VSNdf^Nqx_%}I)jwh
ze*nv^eO{8P9YZLRr{*B$LG1yh=kU-n_s`L=K~vvR6T3pBm4)pZAa;{>EbPZeXjPLC
z<&2vN_v@N-ce%GC;Wi?SuD(R#`GtRJbAzDhc8l*G?r*!0CMnwzFdHlBWO(NL>961W
zcN)nK@P_F%pWXAXTxd5AX?--+;jVHSacqYjjJ}GD<i6ehQwAb*C!J9YPzM}bol3yD
z-@M90^H1Yf4Zs8Zt=T*Npz5_**jin>a-~1+MHqeHyyfSAF>`1ezwj{0mvd#8^UW`|
zPAKdbB3+ShFuT|wUF2c>J=b4EGu&`$5h#`N3+|M?{EKMX$=;CDXZS3M`3Wdkzyo~7
z4%402Y6ln9=KaLr?}tXe9mVZ4hHbI5O+W_SXRE!c*nlp81_9Zf|H;<~rHc^e?!byx
ztJ|8}q!6X2gM4<^d+$ywMw~2+KMs7&&sAXl@pVk$zLN;->o-rR@7+aneXd&n6NY44
zW9;iUhA9?t2kIHcPoz%SVwE@S3p1t81-Kqtk3HJ#ZjvE2Bx`s+{{+3S)R?ZPRLuiT
zfgE3InrjNupDGT@i<){}LDg&2MCndor1`BF%^Zq{4pJ7BO}+m_I(HAtI37Ow+_UZx
zF!xLD*X#oPso4m#xJR-Vtrc>D?a$@Clm`lSCvu;huUj|*S~3r9X~XH%@jbA2`d>8^
zeEw0E2|Jqw$BA-4OZ#fT!M7hXwCy}Kb%omY+;Ql+S3acD*>njRx;OdQh(Z(j+NHyH
zyeg#b_$-=7E=Vf5fyiuoEYX*DYgByUK(;mQqqg<IxZH-PESX1}8j_?1MEZRv>gkGD
zn)7WwDNJ+QA&{H@ajt*5`ifdpm~u+Fv?c{82;mkHNBSO&!=E8X(<Q>w?;9rf&O%8F
z)2XqboNA|g)`iB&um0VhSgu$JH{z>TQVR#X;lZ7^Qw|l5WgYsO`D7X+8=j8X1wo5=
zqon1oKK`h6VmB*?#SVQrl}5Xv(xT5LU>Dm;(cJBkF=vT+{Bb#h8=uwbv%-!TAf2qx
zLn*~(AT+-z`y^I^EedyNbr^@zBmBcg@2maAn&j&<--;(K>1$Tk)nn+aqW!7%^ii?0
z+^9=HGi8QSwNU>{NS7<3+MGjbn&=v6l)j_2A9+uft``DX#tN@nK*B(gE9y9)gv2BT
zxRrX+6^i^KpjoNcHJD&*b>sT$o3dBmP@EA+6&7p1c;G4%S!Nzt1x0+)QQ!Ki)}z~y
z;3cPrRy2?XN<#FsoSmK7owX6}a?35|e<~FWs{)CEcEXtEqQcL}g_j2ZH*b=S{*et3
zS*gMMQppBiL$o{ZOn{ucwIVd>;Q!9uM7?1!J|P-gtE4Y{$nQu4{jV(vOPMi5#JQVY
zN%3VzB)153Nu8UCbGldCV^D7LX%!DZQS+1IJC7#Gy8Go4FunsjmFZFJB|<EYu+?;L
zfK4|@X(fWjS*w@7Y5ygJk8D@Y-9sv0n0<VkkNnKii7>v|S`s~+mwxb=)?<P62abDf
zKQO$%8HHsj1o$22b*V?WZpZ`_O9Yr@=6v`)HP6m^G+R*8wXt$eZ2RPhAioaU<f1fS
zAV99TXt-E<T)Ct4Y<(895j&Fa7ADeLBZvu0JU_xO>3aXA{3r9gEJ-bbUa4Ew*kjZg
zOpsn9c4e2AhKLpw+USsag1t<;E)drzD2cvzd3J8ZrzHW!N3O^lcF<F%&vp!NlN^23
zvW6s0kAn&)<iMY~!WW0lv)@6y=>*t+Iv?eF_F};6e)FR%AzrF(CVEk>3N?IbcVOZ7
zRB1c7BI>{W5-HJuXPQ2{v>qRLxnn!R+Q;I)x-6-7xG^odYFD~SZ-iUM)kf81rM^aY
zZkqfqEyDV0`x^3ZbrI4c81Rz`{A9WFJ49&HVf%%&s8ZWBv5X9$p<K){xmOT;>%+<#
zrR&c@L(zaezvc)1M%5Ggd}PZ9oKdm0eNP!q9or<Ck<G7%RGb#Zf+deSQ453uitVzI
zE>{SAmq-0DeElK6oR#u*7n;~3>Ds!j9&1?QF-S0J#5RRahpe4hUe0#-nIOw<_5Hv;
z+|#oM17^UJwxkf0vo${Qs{D{$Rh|)y57G2?G%c2&EzX`5Ti=ek7^#l<4R(E(*2jc5
z3>~*3<qgmsA+5*1z{U}jq-RCB(xY76`RZT$5Sn6kR4eLMK4=K+fI=WuJ7L#FhmKyI
zZGQWlRhxJqpcpcAbQSoe42`PcU#GxgoAfaQJAysgb06Cj_$7V#t23%yMD*Y2x|zrh
z9W~we_R)+x2aaVaHd_2M-3i6@Zx7uOhjp6@+jX@d7V>)@=)GQ}DtAAHEFTXp2!dJ~
z?WND|xXnf16o@-p>cUA2|8CS@%;S&a&h1B!T(Spdx-cCF0(@sLefc%3vRq-}yLF>n
zZLaUrR(OrX9>2SD=<E2AfK(|faA>PpKhw~go!O|GIOOhuAtnQt|7^rYM!C|!&EYiI
zy}{y=uYi&6$mZXkW!?DYP^lnWz@29P)q0Y?9ov?$1(ORKOU5lDZ1t_73-~pI|C7Jt
za@EjkrEZr<$n@aAO#qzMEF$qYfmNd5TcLnGvdeO=EgG>`L5HQm1Zt3&?l@7Rl-A?m
zR!F0&VgY8mX|<pK<c5F%S=`pVIp6ak@P4AU*lL&7glv0yYO!;!K3Jpsu3LMKmz$H1
zH{JTaE2?2}Tih!*JImNAog^B_EZzBLxaF5&iP^92TZCwiTruLI+iWf#BeKMk-~CEc
zM3k#I)Zo7BKv#}%)_1L!BTRioL2^iJbmwaEd-RLTC;0i%_{+M$E)w)l3mHwm_r{%#
zs&ZkKW6n?FF&9DbZrdt&{xO_&-BUu5p?MBsw9Xk^pFjvs$PXR;O|Nn#zj^jidFp-F
z@VV_2Zz+As!U@yw{E~_jVl**atv;j?d*^4~>mH(L+~595V3ccNCjp;9+PTaZ=Om;B
zXi$I7JwKW4)kSt!3<U83iP>u4Kl^vh+y;G*<iY{R^zZWTlnrA&tAw;Bz)_1n)l`+{
zijhr<a#d<lH*XmctMROBX7GNsZ|K*;&<_W|Vh(+&O{5V%t_o^VMFV_G-e>K-_UFvv
zQ#pR}(Y~oZZNOc{(Hn$sS!X?BQZwHEcp6u~5xWV}=s-3-fN-NL&KUu%R^%&RF5c7$
zPnR&%cnj*2+jsO{*s1AUR`uSe|3ffTwz3xebmhSS-?hr;wYP{oq&_9~XKD;vw~e*9
zKXHD2nf~4-<mr~H0JvE~1B!K&!NOZT7}^Ghio~ve9J?#LVf~(^1DX8zT;vQGAr^bx
zX2<>PzZz97ZNP!>XKp~8?9`OrlC^Ai2@10Iaj8(ij7}rAaxdh_i=XF7?2z;sZyAZf
zfcUz2^gp;|(WpwQ(^WcJhy)Jzgo66wA|wTla>4KIZzTUA0LDi<qOB0K`|UPKx{#Lf
zk*c=O;2Qc*1xxw36XqN(iA%Y2d~vaYl7`1U!v9jD?S$on&Lj>6@4a-`auloudwwfG
z5Hg^nA@O6Nfc(WTPA(6Qt^&fg50&ycdj9qC1VAAhxwZVH-4I5`5IMD?LzCVb^Z#DD
zAwyp!A@^O;+Jk#%ZK~D-5y!M9j^}v6k(2aL#^30VaxIdCh5sePPiBL@{8HEmB`r;Z
zEo4kOCU)0TK8OVh#8nDP_SElNX;VIVnz<!Bd$iu{j07;1bzpB=*cka&)_+!CvbffB
z?b%6ZN(3L7#vhjyv<%K}&oeR~iVS^SlvI)=FG|j^L1z@f6}lmGFOnb%mT?cfLnz>x
ztd{pweDHK?CFeS*c6Wx3QfitSHq32W5_B3>RlHV(4O>QDCPcaJ9Rm{t{QTbnWawpS
zo&1)5>@AbC4eDTou+H<7CEt2v$?PTFf9td*ls0>`G)iS+*8K$HN(3dDtl3}NNZoIg
zpBRwxuL~;;d8N)z{>~pa=U46Bh*fpc09EPPxo%RtuTbw8A9*J{nq+kV_1jXxmcoK4
zNWA!s@0b&E|G>WZ9RW%w2mK9B?hCIQM*eIh2i7SuZ8qVdno+K8E+JfS@!i^+L3(U}
zjZj2OBY&gXaRDuBqRcOY{=?)BAP~2|W$;L&gZQA=ytl{DQH$9DQu*Y%e=s94=nOyE
z?g7I1k<wlYXuLO|nDAb7iu6f;@!!|ku!>T9mIk>$WdT$L8O{B;Jn2TP$CV_TIHg7w
zNXf0Ct6^nLwIsZY-ei+3_&b=-rn6O>9;MP|8qUDi-y5;)M%6Y0Er^Qw6QwN$+Z9=&
z=60toBg(bj@F(9uy8XgbkEN3ED=8$|zu_<@%5{{F9Q8zXvtljmQvynW9L-PWOQ@3)
zl`#cTL^rrN@@tYbAF^B7<it*sd9x*j%gfTEUzd%%Wmep6*GDQOfF6!TggjM$ocAu~
z!zy+WLSqj`tf&+wnH1s&uU-|=*VH<GZtLf`|8e1;H>%od8k+y}?1Jk5=b8FBG~Dj?
x^$Y6%_2+78Y8TG^&$ILA|NAI4wewp4{aVoUyarkVX1q&FU07Du$ii6o{{RfFP80wD

delta 8463
zcmZu#c|4Tu*Edv>w5TkZNJWaM?8Z`g<R`m?Av{^Lj8U?T?M6G1Oc7%#M0RE@S!Pf%
zG1-!_3}fue82cEE<-JwU?|t9j`_5<nn7Quz+~+#ye9!lMuX_{=nZ`n5Rdy?0R8_eA
zN<;AXj}rJd2~Oq9Xc*)SU|1wufuIiBFUX>GjIIwRAtIEngb5%J@1oKtKi{+FuH<nS
zoE(%}n-_0TC0=Eu=aG5E>?70viaryUo|;%u6Ushcq*b%E**RFdwW&B;kymRGMBnVv
z2W*&K7AO%WlhIuS1aIm|hpdkw2_K7q&Dl=5TK3byjcF!bP7`K}?DoYk4$6gYR+v>a
z(zUcUJGE*HyXQ3DbR)-VwSv!E4>6U~^0V&`AQ1#j+=v~KLM_rF*x3hvL_^L>0PFn5
zj`>UKg!S2=RHDEA=2WNLc2zTaYmp@t_$C(s?rdx8$ss+O_vUHN%4yYxu0*XYbteF;
z%a-=(7%@pai2{|h1xg>JTy~{ol3vDp*~S}&FEcY92fexDzgM>{cpYCmfaTO2D_bKP
z+ir>9Hwq1Zv!<04lc{f360>6EcLDXTirc(Eu6AvM`BEr;<7TNWD;Sf|yxrNhHA^W1
zSS^-=8^pBj<pDZN3n-&AaasU-eU^>{WFtnHI3!_f*1oxIdyP4UEQ{JMi!NWcsa;Lh
zL~orn;H)i18%Sw$ZLdz@;-pSNfP41HW9u@QXpdJ)Tvmu$DFjYDs$6@kyf^j^wW@FZ
zac}#=&=ia0qAlq*Jw4grqV0mr3oh!f`(dyf(J8)(2qEBmXJd7!?V-4}*a>F_YY6AT
ze9DMnhf0emjAz`aaE4Y1#=K-!Pa>HGct1HC!<nL{T&wPm?4~8<5CdRPlF-|T9C5p4
z!B!bT<N|@BhN-#(6DY-ACo5!ds%?CeV(ZducYA>3ct+IW%9TX9uG$#+G(#n4X;(s-
z76xf^u*$PTt6LwvVxdLPY046D!*^jy__`gBWP}e8nYmr$5VDWpS`s-3(~^3YrJc}I
zdE2#C0S<Jlv-O^$apx}pkC-<+I)8o~ARbqQ+q;B(x1LgXTPE+3wUL-_i}nhFkxj%z
z$VUpC(ZhLS9(`4hJn2@H+_r2{kNi#rVhP!hp{q)+sc;yNCKH}B6+MvDcTwo6kpSL&
z7OF-Mqn$A~ucQWy^L-algg5pSEnD0oVrt;kNxiy(umLfI7=Y|qFW<bUY<aNL!=f_5
z%^2z9)4$@q&0w-eGnv8fwg9^=<u#Xu!o5GIFwOyv*Zs@NDypG~-2BuKF+|?cqNHG)
zdWe+`t3_mCb)m(9p${|8yHQ4N>olj^+bp(3k>hdijiuQx%*QNET<>4eKiWLIqX_7{
ztMs|};H3uuYTf11`3nW*mrn}hnHG$^vG91)<yifY0I%6Cn#LX%%^R$#?<-g9S1xiU
z6GL#GX6kaR7J~IBkv#RRyp)05m%@2b)s?xd6xWIbBaad4S{5s#ti6YW+>XaRYjHx9
zYJGni<a#N0UbNKW);L#*PyrlGj2JNX$PTvRw*CU-k^zain*Jb+V!?0-$$$zcN5Opp
zCmMU6laEu&pdNM~g#QwpO}WsnK}89Oqy@RUl}jMgI~okAm687E{TEwV7wJ<}lx3iF
zplh%B{GQnq=a8%Rtkx>h_(J@x{2*iMQT7ECMa@a0a5Tla=K_i@IdU#XGaqG0g;!PH
z1QgoOSl5NV)ATitD$6MvhZl#ch}srC(@~{X341J|%zGs@f?NT+;8a9AWeKGmJ;q9W
zDM=C{r!I9Z-;GVbz-*M)adaQBTxoTXlj*}T)7J;(3(lUfw?_Kjo-Jq*dA)YK2*d8~
z#=YI$bA;8JP-ICtIBiJ755P!{<yOf66?O5r?_54xT!*BVifs*jjF)PHkrYm@`^?F>
z!#$1WZVN?s*!^soe7KUSCr=i|<0d^iRPalGKVVQRW&2=(t{PFV!N`P{Q)Y%-*rf@+
z7Xvdiy6%3fk-+2LGW*aPgn_M2n0=^4x<)rqEzVy+kv7*a_VG&|=q9ut2(I=Q2=Q2H
zO%m=Sigiu7>IS+FSd6XW)HY}IfU_NH>2j>6${FD5CHsrn;|3Tju9-c7uJ;5kj*Hdc
zzI~f#jShm|HT0K9sPF{o?+`pLUjW8)6Vp5}+}C#|wc}qU4Fb@DXK>HY+4nk*SNVJ0
z=9^8C5Xd<v@T1EE*Mhc?6$Bd7XH&YQewHRV9f_Gq(fM9;+A_myI<W?)o@Rme7obOf
zeHi3g)_NM{8j>%Ka-GVeHo>9};|9JDSO`T``3s!BeN)EvYZ8W)?H^CPpPk{8co?IF
z4-cA{B}Y)##(RI_agDk1DAx}EK`>}{VsCvx;*8hVMlVKWH)sN^wYmzosLyyB-tv_2
zkbbF}_9ik$%Z5JfdLqzu!2$*kijFUQV39X$sJqfi%HR!jwUyLBxtelyWCvw@X40rP
z;&-Ql$V7QQ+tUvtU9RqgAM3bbNL6jkT5f&VQ5@vj!QBxVG%>c`4i?>`7tFg<4qlQ}
zoQ0Fms+0@?B)g-6T%V5@Q~P21%BO=Srbfn=VkdvpXy9?zixg3=-9$W2#wRLuGDQbi
z8eeX$x?on?<^F*+8eHVC(t!85<I>h0rLIMa_SVqbOu^&!SC2CT<c}{g&$GvjD&I+t
z*i6mjyIPKP!dTO6;<$D?P&z?{H@?Kx%qgSxdjMIRDw{KgAl|xWQb4e#v2Ep}Bzn1~
z$oFka1y5OE{o{wF(^8l-sco%T8EZ|LeQIQezd%s1^PEh!{PzTkcCVHM7``YhXriJ2
zMUd;@pw~-hExU7_Ic-EE<I)LCM*=0NCEB)0?Av<T%2dkOg9zsE)?YK1$Z2em772jb
zB<5Bc4<cuq9H)hLcHSD=$F{aye0u!EZK5spOFVDN)M)1i|9IEPjE<l=bxfe^^U_si
z)WmM!5EXtsoc3s-#lIxN#o@k;sfOS1-F@;on%3u1&!OMBjwPj8jON$`JdBq=hUK}g
z3G+x*Z!mkNi1R-%*V;Q<`h;-&krsgUrw%wE><zJZ?=Zl=9P#Rf=?8g8%*mA8GDaZ=
zzDk2};XcjnInnm7>JRPft6p(lo~(Nn&wX>xp+A(^)&B5eq&B7d3wS&L@rAT@tk^TG
z5mYXaB<#_Y^eprx4ku&?lkPljTT1pSIHPuPPS-=Sy7Mxo)bB@Hime+Tpo<Ee2nvv-
z_#sEu?|J08K25AyTE?jt_&O?pU6nueCO_nj+kh%AWJ&ZZeu+Vipu&C5PRV>+ikhs$
zzlvcQQE&JNHo@{LigA+ofm@=9hyrAyYoI=S+^;;#f8};WkZbRgj5BjH<X${Z-JT@V
z2_prD``()i=9?yMk%8hh-;lpNUt}UPSW62JTvmc>uz*Xm#AN7+HPk>VPnLfnL31)i
zy3K4hMbSqc?JxU6vmX|fn1~_}H|JZ&TprBPb@JtF9u}SLl?<THrttdc5JYc9Cz9#j
zb1lpn@?bZ6c`}@RHC>vd(*Ywb*`c(WHr}$vL(xq5Vs9_tb9%?-6(LRWO=V}O{db*D
z8nL*%u55hl8vLAK_IQ8IC5E97TRX@cb%eHZ!$-R}Rq^^$uQ{*omn$Y4568|=rO>g=
zu@&<)K#vMfkJdnIkSEVj=v|W`Zf(wRE6L;)yP2FZi>ZSOOBg)vJMoQiQ1v>zZ>4j5
z>pn0FRI0Enld5kdB9cXI7X63uVpRA~gG9ux?Isvql0k&o8_=u$L!TB4Va-PGMK{()
z7E8GsZJqiYA$vOzJw5dKSb5xmp1}UvxaKd}kF?!uZZC?{olT5ZJgO?QbuHY?Heb1i
zrHNIxj3)B;>PgrddW7{XL2Qb=I=f1<xGe1e{)Z5pTw+N;;x)lS+00Cd?!?e#i5#2U
zYzf%ih+sW>d^04+DkAQOUXl@RS*XH5xb1;CViqeWh9o4BC7dA_D`p((CT*;58|XtS
zts_18e}1jctZtfrkd8U3VUo#JzJlcTuJT67NPnp9`sxr>t=AbVmCegt)H-lRN%RoV
z?_`w49>|Prl0Tw{hHYF%OIF&}?9XhXD(HFr7`w!9TJ*S`)hY3;4{;_zob-Ci`-wTU
zs5;q$!hBJEruU3rqJF{$?)I4<3d4p8mD8L)>moeQV3h{Ker?>IPeniR4u)RI(iaE`
zRQuZ_ly78vn0T__T_?chwsAP1Y+GF2#O3)~GXO*oH+H>T)7t%VjYo6gNbvBsQ1Eby
z4+{Ai*moKHZj0?sw9l-|I$6~WD5j$DPK8cvx~XkV&xE<R$KREQ0zXC{#nhbsdURMC
zja4`UOn1(e4TSsa$Ge2QCkUQAR(5!kb10y54jpF1VW%dDtoa1xDUHmvILRH*d-pYZ
zubmMkHEB<HF8OR_7T*}QFpH4xtj5p9da^EaNb&2r!Mf&?hGcuMpeuKE`Bw^HpSY0m
zCarrtj@^QX1<Q>|3OsiuTz!|z)RXO!uguTO0qkYpaXsK-?%vGUm6LT!8Xj>D-xw>d
zYyE!R@xri-)7Ty{wxpAu?Uob%ua~D_PKxKO(-9f@<xEC!C&?K{g+^H^+S>A2-cIx3
zDcl|D>1CVXkl}>WZQgZs9bIf`S+;afod<4qm*S2a{b4oWEbTz@7J2u}ep;tDzXEva
zJd~0j`LA`K^M{4+J`Iw3BQ9BBXY^i6^+Y*rb-nfLez+OAyvwD@Onw@BELH8csFX+)
z=-k~Mdl0W0AIX7M)STeI?FF$%v|ab}^2-VK^UFRF{77D0e;>jI5pNK^e$DT$fe_*$
zwr>U#yyH`u_+$QZw4@!Yv?M?eusmXarst<3EOze;k5eX-#_>gks73bU%`5Qib|v>9
zy?V4C+-Yw*!i22EmP`vYRid|)OlBSPk(|IZpcdkCRw{)Au8p|f%Mz^;a_$qy2yf)D
z#hvutBl24K>+sjgr(!`{3rq;w7%zoku9WmhNAk-xonB4Wr$t7oAB76}zC#UTkAm6a
z=1RB{Dv!MSJ6pRF*y89}C1Ieg(#fqSb8oLvwTd0jYG;j>6`MBLb5QnoeEao%O~{__
zDndLnS%#X-bWbwIF>$5v<EK=N$9MhM$nGy#Pj|y7dK{vM6u{_^rL$jjL$!YIFOGLE
zz|7(y9@eMS>~1sInr-*GCD2EPm)mEc;2~(e$1j;`0UX;kao;Yo9eQ-Vvv@*tgKv8X
zo7oOlgoopTIPbhisjXux9=Vt!_zMhwd9RzzbJmRc$kvn2etLevB;xI2pz7l-CGY+9
zVpU?-;*a)~_sP^VwZ9E7Uh3Q9T-K|+_A?3#M~Xx_Oy}Z@`(+-z;D=I{Ep9T>8@*Z5
zg%N-k3le$Nta>_FC^1&zae0A~ewHZwnt)(YhmurY3!&-PuGv<x{U&eq6QNOWj*fm^
z9ynVT#cx!)zVDfo6#d|&<3v<!-|gl&Y`G~#KRz|a*5V^QvOF4FUVxmqd9&FCuPV@>
z=?hJbWNb<at2u-q^%?1q&s<w-8e5$J#kef5)xNm$Pr`dt8=M*M%ntla^qKv4QTqkR
zU%rO4N`wLQ7Ohhugwv)Q>kk%tyWC4cYqU$oU;W<q{IK~qPAidLP^7FDCNya-k6SI{
zH)6Es6ky{LKiaW%#*B0q=WgjjyQ^^EN;0f=XwwstAmNP2C{N&cJB<xIDb`VLO5W){
z_Zz>E9Jc*)qt$t$NJ=;<y?x$xB`q|M<0*Fp;Yy-k9k3girXKhWr_A%u<ej1<E&nGN
z$F0<25~|*ej;^RCSREfIjChSks><#FZfaLv#^<EnD(XM3P;Ty>&MzKsnizVEJ<Sl!
z({SJ}JIz~sqm-}N9fw@hpNU;DLW+?-3(9|$$;UX};lV~m@^n4atG{4UBdMT%-gLiL
z<-ywNP;Yp4lCFfQ*(O8yn}E6-vU+t5wys2=-`aE-o@^;GNXCRGRmk6eeH2iSelA}@
zwVv+$yKz9O^MLCLZA4w{7v{?OcOzzFyF}Xf5hBiIVDT_^vKZ#L)l3WTnbT9!c&EBR
zPZ$N!AGU`EHWbBA=>Z`{#P$#7=)U4Miar7eOXGZ<!O@#?VA(@t>K5ocL>3{Trx9Ij
z&PY!!T#*LqO66C!`1-x)VV;GgxakrWKJ!l3C(j1zO1Z~O$lRaGm6uFD<~|+orlfi!
zc8DgTTJ^;I=gs0S+~LR@RdZh|d@@KzFYmsMo{!`0z>w^oQ7`W=#)5U*m^S5g!cjE^
z*a5Bh<(ehc1kY&SGHhe6@__Y%<z7_P58&$Ee0p%Qh<5zX#m-x=+dE9l9Y?8tto`Q8
zh~RFLlNi{dyRU{_`y@wUn{rxV2-81!3!U79cGE;&GoRw_%-{0@Idg|_oj%s`!Z|oI
z7_*g+Cja3+GsbD1-5j}XIhl3>$u!UGdj1IXtTO&ZuuVhn#Z?vMCx`MufPsXIt^4Lg
zDt$LqgU*5Z0%@n8m0yJ;R(^8~g~+*F5@F|t&iLxJSB-l6<}_I#pi4jrKKPfp*ww9K
zV_j2nPH~edXZ3Mxab<^J&*+YS=U<c^E}|dY_qkQhG@={BEPgn8p8UaHzYE8;$4lm6
z?ct11GC4S|8mGJC3QpC1U3aUW?q-2K4*aI3&ej&|hg%K$SuV=Va`U$SV?)L@LS@&g
z-CX@9C@8A4UUYk_zFP1j5+@fwqGDc-`iEV_cw1YJFGn|(6z}@DPiNVP_sP+vQ90jm
z?3TBS|JG;FGUXcOBSS(5mn^Q|!%f-ai~zCyo6|_{sU#>Ma8{ScixYzn%1Uqd3OEoi
z?6BFo*Qb~!*H(Yc4+Z`omU3%vbv~SMopQM1`rxQCxV|$gJU^Kl9#<;7BnPqnfJnZn
zIHa;3)uU-PiTpAI+in!@`Qvy``#pG#!C{aZ%Ku@+n6XCq&H5iTBT;cYbl~1da%2Ku
zpS0ZttI)=~%B_|4L}3*tJ-%A-a$)bYSVYp7=jE7*fb>7x))c6|N)|cZcS-KOpC3ym
zUhn;lExm9C>TM|eGjT0`{!;I|tcg46PIq4%!M4lx&89wmPRP+<M$Fs<sW?<ww>xF>
zzK!RU1fTcOVBKum-zUcDp=(6ci_46e<CHbOFAVH;IK=`Zq5ob?Hm}=J`kxV!^=pJQ
zw6+8uD8q|M+`@etARG@DG-{N#(}g_VicINEK~A6&{t%)YBmqBvU%TenKD3|a?OTk1
z7Rkj-d@sIyiP1`N-XUlu{o)>5i_fnr|4|(~yjStEVK$yU&rXm^R0{%cFRjqM+dfr9
z!7Hr|%+{Qv|J=DWm85qN9;_yVKC2}PbP3X&TGmM<(k8s3==(0Q%IC2Xit6Jp;|}N#
zVFPX{_IZge>HeD);<<WS=2#h-Be3Exi`*h|6RNHKQp?IR+q7VkAqdcM7TeV9l0`y;
zZg@Il*dNwWv0y8Q4gqQG#gr7f1>eRWVrmmq4D)N5GTN?_JVyuGW+$7{5>EeZ9{;*5
zy3Y>ld-{_nR~3b#)ZAB2NHI1%hhdUSMp<sPb4#gVZnh&3sAD}@e)V(f7d8_DmA~fO
z8_zx~h#WI*eZC*64KcbZ`&8NisW_XCH$M7FDK=>GcwNbss0x`+Mbg;R;f$e~OmNKv
z2T{ly5v)^RX#*@_Wp#%+i1~jHS08-cX`;$S^y46w8s9e*X?C{dQYjzgB9{I=bgWGz
z;JnVmrb|8Hjt$05{9@6^`ol>Y&B6;DF(p^N9~qPUVSE5e5w*k`-`Cc7L#h&`^=xoJ
zF?*o&6SNC0hv*{Z2WeIsb(d6icZnh2Ka$De_BPNzPUr$guzZ71qq<9?ku`r<+pqW-
zE%6{tNI%!Pec^Dl`?)rbm@<y~H!jL|Mn^t0#7ZzZV&0E(dNw-C>GWKuyd$Jb{^2kd
zBxb?o0)%M7+4+uE;LbQ#+!*d?$$>mimGmZ<uwMC|hY+o>=3EI~$ka2mo<+L+96(w7
zxx<`dw4N;vC}j^6^Ib^cZuXoGlxF3BsQ+uAzosTh7@H|tcj>iIev9*~2!pzkkTA#p
z_Q<nvK;;R4u$XbZO-*$Yj|zD+Qor85YP@Mq<ziL-O)%_|D-1%6C*)ZpMHYfx_@hf;
zJ<SKc3#$N)aXbNzPpw-B2y~d^!=)b!E4SveXP^F#GSlPKNvFd$lC+-x<&t@@uEa|(
z3d=!_FeNIBaP=$p4@s}`%7$;aQzNjM{N67l4Dr6-ENs`o?Hu&pA0jfyyxjYg%B@na
z#X&5G5Suvy^t(MD3i5damI3a&fvF@gOs~Vg!=y!-ic@^gNzkmc>Mkw+q4jXb)#45=
zmBzT-?y01?_WqIR1XE5GGN(7}UhVN<1Jt*;8+DiBPnz)dlBjJC6w9!*nm>GV0E**X
z+z)kZYG?7kHWSf`{g-iFNnn`c^y%c<AuY&lG~t>kL=-)6%^Hv)w7vzCAXxQpb|(F>
zqCudzxQK68&y_{(ex=Ppl&uZxoO#xFYmqc&x%OcXb63p!U2-DTGi5WUPeGt`Zk4PM
zSXz>q5*<ugNDX()dnb<LCiC#!!G=R>G+C3Zfk(E!1lvQ^GC8}Tj(VL)<Rh6`yNn$r
z4*XGVnsp_c5S4O1hluKjq*I$?tXEqDd@GiD4eO)Iyerv*u&_W5qDchu@)OU_k7ppn
zaY)R2<VdxhB)gpg<_X%wrQ!l=w!dlJ-oz#r?_Q|KZN+10>3my!7&`X41nq6YMIU!;
zVDvgi41zlb4$AASSH1-~2utpmsm&ipRG!4$xvEH=Hg`Wu>zV&1n0D3nDYDKnVF&le
z*kghN#<EdGgMU#JWgh<#_G}KKf?p^nvFg3fG0m=f7rUZ!jMq7c0nxdt%I|JAp(Fni
zhj5_t|569^x<3@8aeuB>*G5<Js5Cki#rM<a7x+Jt)ZT<S%H*soXqUSScKG>z)cZ$L
zfQ<n*^68J+O53GEghLkc-Y?_`b?|~OM3knJo<^8sL(R47YZl!TTq;TjybaiXq5dYu
z)zm34`)n?6PZ4heX0Km)ryxYEu7nP75F6EkVaioI{l8y=Z~c?!<3etgamRnU!be7#
z0ARu$?INOXZfZ6;e>}`s;UEUj4F-s4tor%P{08@@EFO5xDM3U<5BndaaN8)pwBl50
z<lnGPFr$#IKu_zCm;&F`&id!EDWV-`XhIps@qk+P%wzq6UC<F`B8#yx{!4LjtB}F2
zu;P3m((1RWIju=6<ft3Qt<!hpQtvzPnQ=MBYEG{*UzU%ko!k+oJ8I>iw<iFWk1J*>
zyb9DxKaJ{27~R*VpD?MEHBc)3j_*k9>4X!3Z}<@hfg$mA@Qet6heSqQ$@HgHju;)D
zh$G1i1%*WsH0j*3C11raX{YoNB-F2sH{hEg3HQPr|HpZli+IRO9V`<33P~xM@qo|v
zAg#wY%+ce7rtB$D5rXO8uR?Bq)gUN$#QS^r#XpIe<ATz~!W@JBQC1ht8GuaIQgE0f
z;ecA}llr+QWm&(Pps7^uzKMXK36DzoLGKr`UI`gHN47s?VGEgV!BFohJ-QB#9uaPp
zCs)3&^219HV~xPtOSy4etdx1z*x?s7Ft*b@1}pC?xQO$jU<)+zb1B5!nLCQyUfEY?
z3;EQ}AFT}}zl{18E3t#MdO6)EGK77?h=W?dKl2q#Y7DEcq$wH69gt@eT2-+h>T{^0
zRK9wNp+2`mP9+X?CAVT^2wz`?If7*W{@;=&86yVL56wsRhMS%1@IEyNu@4gCX7_Bv
zS@6|s-)V5?d!RRW)dHlxfoVw0TIfG`6Qfyeb3h#rSlE_^Tt6%~p&91L;2<`uZA__J
zeKTsS-{b8Wct9Y=G4KE=v!P4Jrb5tz>fA6241Yr932uBRN~mJr6UPfHw$r<y(g&bl
zRFzjNYMb`K%|KX77~0?23y0q12Mcn0ryu}$pam<^>C4(-t-+zL(cHpbk)jYu+FP!!
z8K1B9%7@BGaUi=yLWqsNPOoYW>q@{H<4^oLzf*_~%HM=RJnk<2g79xUCRZx?Yo-$T
zEcsNFvPgSCf;fD=kM)WXmIS2<4H<MO-?%3CO_K={+7<+)6%oyo86??sk>L&yexnqI
z?yd-=a=)zp&RC2XMBRhGzrh)E0T}9H`~7kV^2!P~tw)L0lgxq4sl}pC>d8Vh(8hZA
zK<pp>HYiwUb9~Tu!_1sBW?|PLgEy#k&TqmHp1m`GR$a`$4bzgt9O)cHci2YQY~GAE
z7&-+6BPGnSi;$~|*!}}y#}k_OkBIAoRr2sNcN_c0*`FHb_+l*sxrnJ1>ud&d?dhx<
zwhOw%-+!Nu9G|Xt8UY?h?}F07(X#PyY2n9%-_wW2l`9@)GYfY2iEDr678t>Jz(FYH
ziG%501}MAOWuJEKpm>k^i-qig!JF|vkEmGeSJ@NW&j=8LuS1}eEeQV{s0m(!Zyq>_
z%`5<Ephb9!ywyNt2@xCR%tV^xs)q%$p_`acU<y{Ua;{d;?hN_mhwXO1ZSa)<MEZmt
z7T0^@2A`&i!pVy}pOaoE_x<{DN%gX_{Qp@~xcvXDDJr4wSUH#}Uiy#QFJHc_p!9#%
j<Q4wY)#c0bs{i>|&{W|v`WXB=kLsm;5)wMb*Z2Jw=u1wv