From a49e633c9c51f963b76ad465d82f9f26e6c0468c Mon Sep 17 00:00:00 2001
From: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
Date: Fri, 20 Dec 2024 10:03:24 +0000
Subject: [PATCH] Built site for AMR@2.1.1.9122: 2e31ec1

---
 404.html                                      |   2 +-
 LICENSE-text.html                             |   2 +-
 articles/AMR.html                             |  10 +-
 .../figure-html/unnamed-chunk-10-1.png        | Bin 54795 -> 54740 bytes
 articles/AMR_for_Python.html                  |   2 +-
 articles/AMR_with_tidymodels.html             | 156 ++++++++----------
 articles/EUCAST.html                          |   2 +-
 articles/MDR.html                             |   2 +-
 articles/PCA.html                             |   2 +-
 .../figure-html/unnamed-chunk-6-1.png         | Bin 94603 -> 94627 bytes
 .../figure-html/unnamed-chunk-7-1.png         | Bin 94763 -> 94774 bytes
 articles/WHONET.html                          |   2 +-
 .../figure-html/unnamed-chunk-7-1.png         | Bin 62375 -> 62423 bytes
 articles/datasets.html                        |   4 +-
 articles/index.html                           |   4 +-
 articles/resistance_predict.html              |   2 +-
 .../figure-html/unnamed-chunk-5-1.png         | Bin 76254 -> 76285 bytes
 .../figure-html/unnamed-chunk-5-2.png         | Bin 73739 -> 73766 bytes
 articles/welcome_to_AMR.html                  |   2 +-
 authors.html                                  |   2 +-
 index.html                                    |   2 +-
 news/index.html                               |  16 +-
 pkgdown.yml                                   |   2 +-
 reference/AMR-options.html                    |   2 +-
 reference/AMR.html                            |   2 +-
 reference/WHOCC.html                          |   2 +-
 reference/WHONET.html                         |   2 +-
 reference/ab_from_text.html                   |   2 +-
 reference/ab_property.html                    |   2 +-
 reference/add_custom_antimicrobials.html      |   2 +-
 reference/add_custom_microorganisms.html      |   2 +-
 reference/age.html                            |  22 +--
 reference/age_groups.html                     |   2 +-
 reference/antibiogram-2.png                   | Bin 48455 -> 48370 bytes
 reference/antibiogram.html                    |   2 +-
 reference/antibiotic_class_selectors.html     |   2 +-
 reference/antibiotics.html                    |   2 +-
 reference/as.ab.html                          |   2 +-
 reference/as.av.html                          |   2 +-
 reference/as.disk.html                        |   2 +-
 reference/as.mic-2.png                        | Bin 34740 -> 34744 bytes
 reference/as.mic.html                         |   2 +-
 reference/as.mo.html                          |   2 +-
 reference/as.sir.html                         |  22 +--
 reference/atc_online.html                     |   2 +-
 reference/av_from_text.html                   |   2 +-
 reference/av_property.html                    |   2 +-
 reference/availability.html                   |   2 +-
 reference/bug_drug_combinations.html          |   2 +-
 reference/clinical_breakpoints.html           |   2 +-
 reference/count.html                          |   2 +-
 reference/custom_eucast_rules.html            |   2 +-
 reference/dosage.html                         |   2 +-
 reference/eucast_rules.html                   |   2 +-
 reference/example_isolates.html               |   2 +-
 reference/example_isolates_unclean.html       |   2 +-
 reference/export_ncbi_biosample.html          |   2 +-
 reference/first_isolate.html                  |   2 +-
 reference/g.test.html                         |   2 +-
 reference/get_episode.html                    |   2 +-
 reference/ggplot_pca.html                     |   2 +-
 reference/ggplot_sir-10.png                   | Bin 46620 -> 46623 bytes
 reference/ggplot_sir.html                     |   6 +-
 reference/guess_ab_col.html                   |   2 +-
 reference/index.html                          |   2 +-
 reference/intrinsic_resistant.html            |   2 +-
 reference/italicise_taxonomy.html             |   2 +-
 reference/join.html                           |   2 +-
 reference/key_antimicrobials.html             |   2 +-
 reference/kurtosis.html                       |   2 +-
 reference/like.html                           |   2 +-
 reference/mdro.html                           |   2 +-
 reference/mean_amr_distance.html              |   2 +-
 reference/microorganisms.codes.html           |   2 +-
 reference/microorganisms.groups.html          |   2 +-
 reference/microorganisms.html                 |   2 +-
 reference/mo_matching_score.html              |   2 +-
 reference/mo_property.html                    |   2 +-
 reference/mo_source.html                      |   2 +-
 reference/pca.html                            |   2 +-
 reference/plot-13.png                         | Bin 55741 -> 55743 bytes
 reference/plot-15.png                         | Bin 0 -> 28723 bytes
 reference/plot-16.png                         | Bin 0 -> 19541 bytes
 reference/plot-17.png                         | Bin 0 -> 29791 bytes
 reference/plot-5.png                          | Bin 40070 -> 40072 bytes
 reference/plot.html                           |  72 +++++++-
 reference/proportion.html                     |   2 +-
 reference/random.html                         |   2 +-
 reference/resistance_predict.html             |   2 +-
 reference/skewness.html                       |   2 +-
 reference/translate.html                      |   2 +-
 search.json                                   |   2 +-
 92 files changed, 248 insertions(+), 202 deletions(-)
 create mode 100644 reference/plot-15.png
 create mode 100644 reference/plot-16.png
 create mode 100644 reference/plot-17.png

diff --git a/404.html b/404.html
index 5b80acd1..532d4b19 100644
--- a/404.html
+++ b/404.html
@@ -30,7 +30,7 @@
 
     <a class="navbar-brand me-2" href="https://msberends.github.io/AMR/index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/LICENSE-text.html b/LICENSE-text.html
index 4c5b7495..66b0453f 100644
--- a/LICENSE-text.html
+++ b/LICENSE-text.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/AMR.html b/articles/AMR.html
index 035e9c5f..4d8be45b 100644
--- a/articles/AMR.html
+++ b/articles/AMR.html
@@ -29,7 +29,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -88,7 +88,7 @@
 website update since they are based on randomly created values and the
 page was written in <a href="https://rmarkdown.rstudio.com/" class="external-link">R
 Markdown</a>. However, the methodology remains unchanged. This page was
-generated on 19 December 2024.</p>
+generated on 20 December 2024.</p>
 <div class="section level2">
 <h2 id="introduction">Introduction<a class="anchor" aria-label="anchor" href="#introduction"></a>
 </h2>
@@ -144,21 +144,21 @@ make the structure of your data generally look like this:</p>
 </tr></thead>
 <tbody>
 <tr class="odd">
-<td align="center">2024-12-19</td>
+<td align="center">2024-12-20</td>
 <td align="center">abcd</td>
 <td align="center">Escherichia coli</td>
 <td align="center">S</td>
 <td align="center">S</td>
 </tr>
 <tr class="even">
-<td align="center">2024-12-19</td>
+<td align="center">2024-12-20</td>
 <td align="center">abcd</td>
 <td align="center">Escherichia coli</td>
 <td align="center">S</td>
 <td align="center">R</td>
 </tr>
 <tr class="odd">
-<td align="center">2024-12-19</td>
+<td align="center">2024-12-20</td>
 <td align="center">efgh</td>
 <td align="center">Escherichia coli</td>
 <td align="center">R</td>
diff --git a/articles/AMR_files/figure-html/unnamed-chunk-10-1.png b/articles/AMR_files/figure-html/unnamed-chunk-10-1.png
index fb9ce7c438be55e725764ff2b458bf469e57c6ca..576d16485b7953a5a713faf4e3951bf5b4114ad7 100644
GIT binary patch
literal 54740
zcmeFZ2T)aMn=O14F@m%iB&h@ghys!%DheVB1_UH00f~}xFeie5h-4HI6amROm<W<Z
zauNxLjN}ae+H~9f-Km<I`D^aIb*E~m>XL@TIeWkF6V_VKdiTQ%a?;crcW)$-NYpZC
zPF*6AC?iNDih}iP@sm$?+G6m}S{+&GQ}`EOvy$0v_-Dh7GgqxhB*y#1f2+K^N3W4c
zdq^^;PAJ%i47NI1hh7O4{~;gL^X(gJRNc+5Q9B;(*<Ph`m#z48_sd&U#d{(IA4Pop
zAwPO+pDd%a{wX@H&ZD<}m`d%sB|*97#9GSI8~N*3KYmQrz0d#g^-WPS*Zq2?rK4Y5
z_w{8runMXnUyU`6B8$$KPv;1ixVBd|8syuE;%gOgh3*^aFAuFIz9Yq)Uv0SZ&7(gg
zD2Q(^+#&5I{&nBCri%ENw0*BTai64!^{b8%|B_Cxk63w^11Cw;#Q#fd`A@&agTz`c
z_ZLnx9rt6^SCiiFY-(yss+OXsjvd-2FXF={`%EEYA1UH#R#uitYOP`|7ll@+?%MzI
zr~c<J{BwiRE|Q0a>@&`i!|5%)^yWF-)9r3<P0h``+8^(jq_^5OI*>z?=ZCWmZd3Ee
z*amL5Zm}rp{;-a@?1<~=<8wjBt{0F)ZhYL3IS`*+H^V@Z+D~2`*&I}8s4GIcaB#Ju
zmU4XVRFm_3bGw|9l2UjPxiUPQ-YjFUK+6qDInl}Q&V#zlrT4`qUVN{wS9){lZ2$1E
zoSohD?(k%j#v~=@&7??gtDDv4=XF!KnMg6)R~>s_m$$q)LcX<$>x}PU?sS__*AvO4
z687L%Z{8flb~}uI*~M!&+@f~l1Lf?fw_C`Y%hCGNt#%2PwIqos!CfShR?M2J0+md1
zn3LlXL3!b!l(G<^<jN^*K}uShei5TxnV0bJ^X0|%<?_cz@{~O<U6l^8D5R_9TIIgc
zlIw!7)Nv{L&Q<O&Vg~y9`rg=Xp(_7GBd#{IRk?C<VxsH)r_H6jl_GvD-Xc8G3>Kf?
zPft#}El)f2zlpYNycW>?WtV2z-CY{bRn0QlD#hka^2S3)CN#=y?d-@jZZncSWr2R#
z!&w|dLqpe%jZ4b{dB<<kIPbx$yE%s4s$ZTKT3#5p8ZQ@!j*Mh6cNtI}_wjaSRW(UG
z?W>31X7;{(JeJ+Q$c4Xev~4!E>hh7+&mKynA2n7@(vztWUtVaj@APz7nk6Ss)~S+z
zeWIysZktNu8`d3e$;_PiCTlf6lpdX%D;jK)BxBp|GR<IJb>jN<>vZqWWBa(W2b0ts
zy8UNMHJ5zL1=>ZNhEkO_3;u9dvnuBk>h$2X{3f&iTBYdpV2znz(F_qK7DbHp^NG#1
z;)*U~CHoD?p>}fL++2zg`Fi<_Q?i#YU*^hR7&{^E>w;hP$ZF1Anrd?zAtGvrkkl_D
zV=RIcz3H)cY4ReYr=D?Mz0~nYOYe{a*AuECXRQqK>e!L|ATmXz__FiJv<7amZQ`{+
z_X8HMV*X|mUc>pYu&@@((!-exW2IKOo2cmM{mo|Crc=%4`GZ*l@pQbemlwOTv$J^(
zDnit3YOgr_xVi3IZLR;o%dhpKLv6q2%?}47f~FjnB#Z^U^*rP+`B=2kRvKPWQVNJm
zYkJ#sjr7i{%zf=WleQcOhn_$KU)FVu)>RLtQZ3a#7$@ZN8-zLN=bLi4j5xKI4mKvw
zn`q)9<FoqT5}zhC*Bfbt+CY=F+`c$$Cp2Eho9sM0)@GWI5Fej!Ult>WSjn-=g*^9m
zorrWf8AgPLU8{|foKW}E!IT=gPp+m`J!K`=qeJV+lPy-2qC{9*e!nQ)Ey+B0AwLZX
zAv8ajY*l@F*QA3pwm4AO&dhZxIlTK_a>ds=Rr6K@Cj$cmvDp&&o|66HgD!&|_n9jY
z&mo%2bM=9I#)?_l+4Btd{iQ5D*3CI~4=7)soZK569GqOrm91A1B9u9jH=oq$B|Oz^
z=d0#C`lWApxMFF3q}{yzlaLh2LyfJH()UFu4V7Jpip_GZ2y;eHknvdSh--RfTCiEx
zL4j85%U(h~&lxO>_bxWs+Sqh&(wsRtjJpu?Zg-s@%3PdkUJ2AP-pX@UR#xF7(~Xs`
z{K#j`aDI-WqD@>Gdjd3F9l}X=@A*RR3m5KZp(lHek}d=z$DhQ7+!Z%%N_o^;y@bCn
zBla@VTkJT>k9L25|C~uU&$Y98OOpu(_Ze-^sH&<KdeHfKd3m+COt%WncKKPgIgqcR
z0+zlGHaq@fNnU($g2A!(h0wyUPegIFwzciSl9yi#P=A)-wm5J#&E%>rQk=nQFtPE*
zC+cMDzHe%lC2T??IpbqTmdB3Fb{}yQ`au=>Vy40_&u<!gJliWR9`tbAe*MOzYne-P
z1LJY#E*#=BA80HKR;|<fcxQu4Q(2g(@Gf=hi?7cIKO-t`pqPu}?%lh;Rag6<;&LHI
zRmA2SEA^)a8|ehh)XcNZ-R7GekZQ@ZJ;7x9_8BQ8LNY6dKDSFZhi0GMUV(4AIpzG#
zU5NhDXtBvRA`?}TnO(lJjs{}XUv92rdM;$u)AddE2;;Ah)}ueaWOhGO<#An@aorX8
zNtD>phgLWB%E=TgqPxz#brSo9y%Zoma(uSZEzhn!e{sm%3bn3hFuAe<)r;3<Zo;*w
zGt6nY<duw{C9aE1ZEi2=+m%?vRH~FeS4({S%3|YJ(`lLG6~aWGUTaFZK3n9rP-K$T
z_nMAZ{~W3_k9k|p!d!j+uw5A66Cbb9l3zs*XfoelcZ8l^H4v3)MP`>7IemdGr~9yZ
z$%g$QPh|YqsqHUX|N5}bz*}^x7@vPhQ!|`sweLTy#YU-*4Vk+M%Z$ZpE*e!Wj%1JI
z&35e<4}A9Q+4tJoYYQ`@vlG$cq1?KKU4aH+B~K4tCaT+{>+<W@uNhotIvNclJ;y$7
zI?~k_9nLgm>{OrK=HKZpo;Q6mD>0GVX(ZRK4LQAECZFzXXlUqc+jL$)U0q#>RfP~y
znQIyv8s>whQHL1Z7DlfUMFD-X%@&1wc5%cld~R;enWz~l*K3HY#{Uw{SZLr~a-A~y
zjMwM|F1>Y0$c|`yR=uX%qPr|ri}QH7j4zGz4+<Bqnfp#2q!^E_<kclXmFuJ&xt=IY
zJO7wWaC6C<EjOQPoOWuTZ*v~D3YYbD?VMPc9k=TCS7Mi`5F&@<jCz_6GS;V~ZaOc|
zx68Y@xR~XP7K%)MznnY7galwM87*QCC#oV-?7e&U&V?T5D`K!ZmoJc4ua}|g%#(u(
zNkdANB~epdMRD<cm6~c(Mb4RT9T}cBkMMpLKT+-NYTd9)(A>F`-tXOvV850aVt&f$
zU0$A;@Zfty$0z2cU+(R0xMNvgk?9tzPj3&GxXYTbmY@Uqvbu2X_Uj_L<+CH2VV^b&
zbDlqco+3^CYW;bE*6-2kNjhoO63Nv>+-oOj3O&^oVVInp6#C&#;mexd=4hNhv`fQY
z+gC5#WvXv{=7#qclK;h@YJ2FGW(zJ9y)g=-VX*mrk)k53&92?W@11hkKvaN6zso{=
z_V8KX9JK2)W6k*{*C7=Z6-#srb{X{MXKh7F6_;Ems-^F%8%I$Yga{N;NDL*dS$9;A
zL%cuZwQytpx8t{BoAvz8YmCl|O*QCd_P>p_1lZ6+-ykYS_z)W0=LpmN@?j!BI=AhY
zJLhYHRi`l1bkNT2r|f9jJ?NAW;*v7w5wVWh`KXK~ic|MG)Qa8Hi!+_x)2_K=C#~M|
z?eyz1HFr`S&R<?Sk?!3^OH)s5w3>DG>C9grHxW2)TCA<DElirpf%Wq1bA8j}+%39m
zB(6Ob+;v7{)>-RSrvhK)Iz>$l-6(9WN#d8C4!9{^x21)1fjn#_rJZv@b)jMC3tV|K
zKg9$NwwtE6S{Bk7bhR%HwOiJl7r2J5UW%pnEAiV;<23ukN4fc*aA^E09G$T6fGmNv
z%xX(uMx`Y1pK7NV{qEg$8H?h}<Kp9f;R|}6l~-#{4{0U8QPg-qZF_=WIa}VP|FQ$n
z%$%qzQg<@gB`0lO<Gt1iUn={^g4(#bkkgNMvX$%>SIiz;?X-tQwD1$3P5*b`(}Of3
zza(~YDnFqXXgOL^DlUm)ubj_M6f*^>zlxbZZS)}rvG@Gs)iOk_J24O>;$X?-GEpsN
zel{QLCgYoymUf~!F30D`c%^tdIg#i)z$+T@nLR;mS35jCJ%wg|+_plgnf6LexR=Vf
z(uA^CnvmLv1sZQ(Z?AGE<rSWpFD-BDCM=r8muD-{bzOZ63k#hmV>Qb?=y<<<`{s*s
z^C~``tF^T?ci>>Yieg)J-W~r{W8zDl;!}YKkA1g&yz2<lgix$TMEu*Jq71y0xF7s>
ziG@G{tJX0*0p?j)AdAb7jTM<F@%_EMYsHyk?pocfsHiy6&Kf4}=IT3f)lw(ohJy`<
zK|})6B?O+({xEwTF<cq>;r_7V#p(8Nj`)my<Zw4vuAE;V7wX*>l{BWa>ZvoQ{@&Ko
z-DtF?sM5L2+POekkKOY9jp>&^i7!anw%XL63lU75zIVJN=t$XFq7ho+XOr^+RUXl)
zsbgHfjI-lAcB-2Ayjng_tz?6ApqjBy^&S;&pRHi+%cXT$7%d`VZxE=OqGDn9F!$;R
zo{&xN7BdU9jCt&AY$hvSX=J)ujg4ivVmmggeEQm%RI8{;oso;OSQ9N@NvsEY%8})f
z<;8q!fNTTt`9_ZXf{iM{|AggLb#-+)WFKn@(Uke(52|h85cfK6J6OP6mjOim$aPt%
z`Q6oIU)FjxtMfhO!2(^j=8iSNzO1`6oh?SnUnuesy$NiC;r-AV@6oSURVZ3JTo16H
z4|*z)(?Lz(!m;m{<+}y)XV3fIG~ek@wM@I}0$l}VT^q{Sr&R$SGiXJ@tbyFRQbEDN
zPRwqls%^e{UzF1=?@hejc|@aSKFbaXzqj`Nm|6#b8iQpk3uC8W>YreTh%=QyAuIh6
z^>T0F;S7SVIAH1KTc`|yEQoKN46>=}iL_)T@Zfkci}!>^PA)=Q2-Vf<1LZCc!{vdX
z4cpkewuR4}^6lzmUbc_VUz)SFww^H4%(A}Dgf120wls^@g6dbVAE0h414bY=9#~0~
zFi@eAvF_4w5DIcl_|il~yVa{A`_jYd=X}*%CTl-w1a(zO(wz5Iv+uY|&<wvE=h57(
z4ki}Tp`y%!rdj;WQ@16uTgAt_oBZBApIvBfU*eAru{`U$BRN}%@A|h_gQ@izGQPUr
zqWs=sbB09a$Cn6Tnh>gKO>1jtdfsGQqjk-Br{={$1MyP4JQ!d&-tL@6p0h(3_8`Qz
z>AH-@W{3MPx1vi;{JH-`{Hn~C8Ho7-&L1)ev5+G82%qa3JJ6=mfc%ASZI^H$5Iuqz
zicYuq0YPT9PgMd$6L9^0>WEG4i~CGLcQ@_o*_A(YIuG5GYA(lZvEFTHd^y3nn}Y!P
z<I&=a2bt%p?$4Q^E0re|F*)f0u`Sm9Wa#5=GYEIF#1?enMb};DYQkTm56Tc&iN-;(
z?kjn*Un&3W3fFb1`>58s(y%(!w0a5P9O5$7I13C`Z{A!aHkH`+#N~?S%*S10WbtJo
zqVS0=je1WvF99~?wbRaY`N{X(7hmXzurUE;zU}(aaF0Lj-(f^xW|i33*wT4ml|f+e
z%)ZybV?<5PTwa<d^3a1`fQ!hg&BB9EM5h`e?HE6GxQ5rr2_IHcvp7w#Ly@JK&cI{W
zFX@*D`AcpVVhuLWn?3GUotXx}ZCS=$)CFwg7N7C+QH$e1oWswD`@env{uFSO69lZx
zEPJTVX<Lkcp*M4Q_(Ioy0x$;>6==MtytF6SJj^b4Kz%kle?Gg-yB`&KYTlJasIcbs
z`O>Qfq5i1M;%*C_%ueQyzSq?7cGZiRwPXyYHJb(U8p!!hRJ@IyK>4r?*+kV!++faR
zoO$^yIXoPE@Gv7IBauH|f<GUWJ?GXf;3q0Nu$E<~r$7&2>Xl(A4V;>JA_Qbf1~XY9
zxzu-*=1^$E5f;2e@olwh55->ccNTh<f?I{+Z-hsj$-?W@zv}%j3*GNnH$`>pt;3(P
z(9yGuNUluu=5eG!N@bDF&7}WDC*ppYs&un|?$>?skmxYSL&RF2HdCZ}H;+YKn=5pn
zV6JR;6^U>7O?22-;u;cli}b%fJy^@N4q}zEH`FVm0_4?rB=h0{EagD%#j0;nvR2Ke
z>D`yZ=M;Qbaz5XCfDp)@>QNiI?|x6P(BL)HD;)U5I>w1ZN|gBJyAeoad|KaL$;@`p
zxIO1c$l)OX)zVl%KEYNRLH3goDh74$uD(Ga*#_co3LFd1ub18;uy>7n^_TPOS7|MF
zu-_q3B>&e{u0OT4U_@K0tTH(zH8twRi@h>Dh*RuT&et6mH_WB-r>3R7MlX;_()w@<
z^<OD--=P;#QEWhrGQP;!*SO5DJK|JPb?>*PrKa+A7I`OV@kMHaY_gww{)F{vj=jZk
zVc}S{E&f#qRgeQ#8EI+h<HwJ`C4SV<@Eo9?RR%a0Wm>KKQOq6SCR__!bpnYhl<t4O
zqWGWJ_WoU6lUTS2Uq?sBq#GR{7y9Jgz7D0ghY@@ndEhV}+#ZtPGGr{-RD_`6b($I^
z6qKvLTCe59!$49vz?7W&2L>Le5-~xF;p5vO(T=U3?Geat92xB{4WN0mc$-G-`4P9-
zQkO8d<;7_-G=a(;N@_lYWOd!h=&ijf@u%)83YTSXK>0I3J1HTHO=pIn%?XWu-gdvm
zmJqw}9U+J?IRE-E`{jtM4^#(E6m>I#4HFPHI^5OqOY@4b`~7Xu#t5i5fk#~WWE;^Z
z2%VK+agt_Ev)uvF+1bJ)_C>;DgkDx&UXJ)IEu=ROxhyBd26m7Mwmc5bs+e+^xG;&h
zw{J*}8CW9AzNi3pnaxlcU7L$gm!@;bqB6da5MJn*u86`$fu!RcW=u1n%xp6Jt=2WG
z!jn-E*<{ReC+i;lwM5tWY_@&uFfuon_dN%gg%6|<GeC;U_)0Uor0AF`P2;nB2qJky
z6_K~pW4@&CIaDugV`G!6S&#K8qaAtk{nnLvo56-e$vmF}18KGMHnq#Vj&VzN&-0{s
zxP-zM;~YhbpkO5GhJLNPb;Yf2(s-yUAyp=S^-%_?$E-(kex39Uxc&1cQN(4EAWk41
zrZ?xXT+hxT#2%vDt!?3lUP9<N3BS(PnVXuL)^gokt)i+5@tQIvB}E~7&Bm&P#lxy;
zCJm-ojU#t7Zd-H~PKN1T6h;Qsw6v%V@x;6bK|aREcO{$Z&^dg#!t2L9-H$)<QHRB9
zkm8TiTe1FLIJzpCk)nHw@!cX%hKGmS5|kEa$Y+}3&E_Wh8WA<?TKFBtx;Vj&tI`Hy
zfs@;G=djAq@S^`pZoXs3Ci3=1YZ@25UCgrXyJVgcug@x5&WY<g#T#RM5!4l0i7zYg
zU0;9yTg%f5w_M}SqbhjP@v@`D%P6XmcSp~SAKdJ|w5H0zq3_;@I!!rWKx9^q)#NJ%
z$Gl$+^%F3b&<byxEe~ieAMZ_@yaKJr{6ePvsLlszPb~49)YQ~zb1jsGZ~-!HE{NgW
zM6COZgr1%rZ8s5z5??kivJrvnDB=P%9N$bcJg$y=^X5&uW&oFZ5Co?~N~hS4@$*kj
z4J2JFO|l>Tx$*<t+uADG0Iu2u3QQ^{3^sVNCODKE`?5k`ZHc&9OsLGPjXIAHAFA6)
z#B9W~4H14Tcw4>2VZ4WWCWPp0GD(2HO7H%R>ciV448F{HaMWw$0oKl$jtmZ#`73Dz
zvMxR=rj_|CCE4AV#NFo8-GZT%sJSgp&O+G<i;@jsznVBaCbK{EX?%QqSr8uwW(5|f
zf9GBnfyRt>T|7uk6149#*3B=Y4j6Qos!sN}h0nK;$Gq%vA~okBiwNuwwf^QlA9mcv
zh!_BzFh6kAH%+pe{mvqmak8yNZ)suHOi_tt!r0Wv)O1Ka$?(H1O0$#7ELc}Z^Q80}
z9VZ3KRnPxfppU*w^D=OYWvcx0cvtoYZBIiZqqDNIvc5Y6c#&~Uzw0xH*p7aEo75L*
z5D03Si2*Hk`7mhqq&gwpSapdg>Yaw~=4P}4=OGM-GcV5+1&TV^n&r**l!c3n6Nm?z
zbSQy7Tuu(2P5ZO#o#x}C$f^rm)fyg{ge<FL=Z!G-qpLF3Uu%6WaFu#+nS1<seTjPf
zSThiPVDT!&zZo-Kv@({UC@`$H>=(b1eP_$ni7yFPve#fI>n!yD)1xVmINMdEgs#+S
zQH7zcQeByJs!A*G;r^BwZ|&%$X2BaOUfZyl2oci%m6_Ln+@WYySB7y~E>(ZtySD0I
z_bzpCW#o30Ga+~6g;BuKeU;@6Sxs!D?;@*?eScmp61$H(nW**=&y@e|YW{B=+Wp5j
z@PA`;_}}d+Rz`^=()+jdZPOQ0WodoL`X=f~F;X4f-{Firh?FROvrNRQUiGegMf~2V
z&X9@4gN8&(t)%*EGJBNRT=$>vhNwvc`+5KE@b%dbQp6!=Dva_-M&Z8^miF3-13Uoy
zMgi|D=y-d&r!No<six-g7o(UvM2{M%udWywex!RrQ?q^EZBd0@aikuN>X71PI{)GN
zE6ZVVacD8ejvZ5YA5?8V*bpGE&KTTu6mKcE2q~Z;Xl7nzQ-by@MMh>+CS{kFdH_6s
zlH+zdaaU&ofI>8$bRGJveK)F>OY06ejHcD1%ER_nm4SMd^%0Y?u8faRIknSGO-u%@
zUdU@wQ&XSpUFHp1e)eujSczk?KPNW<*ip><n1|xPe1mw^NUSTR)&Z$y!$hX*=H>~u
z8wNr^dfFa8rQEbrZ+5KvN_@<m%3Jk<^{MIU)409(t@+uhRS9u%ao0^u&iQhxWxW5o
z!!yKH-GYiJod#l<{*7OWH|#njTE{OSKqGw43Byw9?OOFO(W%ZoKe|_j7%QOr9a2g$
zqb+xn#Td9|1@!Jnc$u8c3v_rT-l!`iJ;8ok9I$f9BUg36V}Fj_nUgMq=0G=+l9FI9
zzP<Gy0CO^5&Qrut)?t{Q(>P@C+Y3Ns?|-+@{&$h|f7=@=RLsUkkmihpCd1#Ve|&#<
z?q~g5!lAI4`+o}Sf2B(TPGDUVyq;ZNe$&K8)%@~^YaALFY%_b@U%$?o%Da!{ejp;C
zJ75$*>;P#8i@RJBybi<&RMK%6Wcw+Lm*C4v-4%xfW{!Mm!rf0VCr#FUJWae_YjH0C
z8uVdF$2R)5U-w+SVLQmtAtv40wUnfSA5!Dd;m%_lNbZw2NylZ7kt+lCbaCi@Lj5t3
zmoT}84q1L%Y~;DFSBX>Gc-U69o!mk7H_yGJ+(3N7Ko&PD*s%-@B>h;SN|^7ar(fsN
z_MCh3e&W{!XSdcURn^q^H6|PEFNq0ir6PWM!E|-6(l2OyQ7|SDIF$$TyHUW3!{(@w
zGR52uH4H~(e8CF^!D@`1hs|BbgNY&d?0EQc2r&dD1UGmWhM~Z8?r3H&d3pMAl414B
zRq39L!u+U~#>=aXlmY3(J5@HxMi73H>^pB&7iqtL<bHFv{^+IH<-EGTzFpd!pY+0G
z`8I?*kMQIxc<uBoUF_XX-ll<sJGJwvD8%euvWIi-`4I3uFE6i>JLYcwr-!bT_I&Fj
z>LYLu0&VuXzIvEIIej6Ej}^1zY7#5xFx6;a1wwEQHi^pm{H000c;-;n05waQisJ+C
zR;8a0=06NkcvMAU`K!j;-Zl*vV%i+OEDs(0tiM7<f5LS^qd3jxrlz+FGTpuPOGObt
zz4(onYi)vLBH}<hy;bWr^&!`bB0+9FiX*}3UDsMNEUvtL&2wmS{IzDi=)gQ};@p6_
znVB3gu>adP42w<ElLCBvQQ#D3YZc_8id;!^+awY`5RM+!6+REy;zYOrMjH%vEf&OB
zpYRj_-$UN*0_3eE^fLmQ6XRq;30I1>CN|amE%7#lU4>PsH{y2POwQG0{YfViSb>U}
zoCbaRYNE*vy58lmf`ovI9|t8EjhJu5lxu7%J>R9kl-@Mu;xjJwtev&>d7u!l0l=p_
z%UJ@irNvhjad>@bNYr%_PkW<je4F59ll};0s%%r}%CH@9D3|x9fu>?G!me8sFX%Ef
zJj^s%RMhU%G+2MCy}!QcmFE2(f3aDr_hMTmXnqpvmnNhrFe!aZ@;|jzVs0OV3+{%W
zrx<aUQAl!3$esGC;WWh8JB7VV_!O_Z=XPZu6Qc%XX^1wH@t&d$bB&QDn~vlh{ps@k
zY<@gd%EZ9NKf7w~{;nf=GdgH@LW@~HX~BmlTo-IHBVXyM)d{giW@b!NMSjA<!Zo$E
zSE?PQ#w%O!PEUS!*Cf3XU$_PoGvE5W`Ci#<xB@`h<mvMuh+{q!V|j%oJ<od!!PJp*
zP67HVS=Mj3e=d7Wxtbap_Nwob&);k^)>X2jm0992?V{bLLtQHq1wAM%%%gLU;S##$
zOVB5l_)Wz2X{G!jK@$PtgHQ~8^+s~1nMRj-Dnf%_@tgS)+92tu!s^~tgl`1&_$zy`
zi7$LF9)_B*I#@%DO=B&=$l&tBG2*2pDaut7BraG5SWEWaXBc}_=>iwgil&I^y0V62
zUsPLB0OwU-NWMbhvt@9?5Ss1)21Y!TD`nu_?Up+?_z0^Gp{BByR0xkOJgOYQ<NyQK
zAlW0i)>UMP<NSo`!=Xs<7E*!X9(RrM5FsmHR!j_y3q9$lA6146TIf`O0~7P^%%QYq
z9@xF060j14RKM)G4<W}ACLgGyX9HGv&wIHo5()ZPrAp{f`HH6eZT6iE_CIb4{VJf?
zbY+Fk9i96hM)Cg&J^UYb_5Z_R`X573f^E}gf$M-9$w7Sm`kebn{{3$a4a#4P4oNa6
z2(Cp#c3Bc{s{Lq8doZ7n4D*s;I002LG^D*auR?HuL|siW8%AN<!I))HhM`HNlW^`q
zTXS62#Mic>sGS<0&b(Wie@m2dO0A4FRgq_)!<?R;zI1wes$X@{9{l13`kWlwTt?lT
z4Php|#O5EVIXR$(eh4j5GwST2=x@41kihP>re$Vk{#-R-xD=?GYaSF7B;{gw;Z3-}
zV%G50_M!*1nr^zfy61Cb-e^v8kUp`vGo1!g;mFFbW~xt1PmcxznpU3yOH#;u=@Wa3
zx&CB6F)gaN_bq|rJHAKZ)_C==^ax6S75z@pf9O%XShkgE&dkrpgluRi8aZna4^Je9
z2D#>fcGlLfl9Q9aUhzB^<=QqekY(V)%tA0FIC|&@ZES5{M@B~Cw;`^k1RsKW>c>i`
zVn4q;j#aBIzT!COR&K0uxq5Nc_tmQ=4txVg9okw)cvoG#WDYZgtJqVsq|O14=w2fD
zCdlTugllnP6>%eL=N#yViVRZfH8)U9>K<kYAYS@H)3`>WUNiN^Iin6f(z}6{JAV+B
z^Z$sO`9F@e|DLI<oG_GJDF)VDMmTDW0xn%4+@|Qk*wg3Y7@^j3-QUff*0j<o-kYIw
ztg{4lCg(5D=dajGL5^YBDSM`B7KmvhF&rnlTL@v1MQ+t{rRzL9torO)>9Z)zo0_5&
zuE@*F<0pzkJadF$*=n*@iA)&s;?moK?lZdzmOeXN3d7mhYk}N@a425}>I^4L5OlnS
z&doNSD~5F~(R83=f;ME%^~cVeI?eS(k5AOdlQGsPBd%=!ir<&Pwn00=Ht?MRrdZ?t
z3C?VAr1rQslK}%@nd`xX`&!;Y_Ynh3IxFBT2=R9AV!3W;Xzw3;?dXcl-F>nF)57tz
z^xVTVVl!H)vM;{AmJ1Cc^xgm;))jk@aosyk<@Z{}reUsgeS~|8n6CIpGhKauyzZV*
z9}$lOi7>uJ3pkq@8WzJ&7l;WsC&cY?m<EX9J={Cp_=6HyWC_pmYvljeE0;@&vAqc#
zMJ^x7Fqv`zjjIw?9>8~E7>iYsb#ihV&Ka+89#C!n+EwBgtIT)%PX?<cYKsM#b|rkp
z`atU=$+<AgY-2xHd}qV9B)A%T3MgnG+~|oS1N|gvM2|t<knzPNOiW4B#fI>?Ogaq%
zpz^|eK=_CVG(*@530E(!+$FVCpBm2JC2=P^rkz)2mn;@UZ&L+xas|G;8|eG!uD+T7
zJz15^s5gNbUGbSuT~$qL=Uyx4m$6+gWvfxUwC((1zRRVQyb7N!k33GeXUuhA9|do|
zct+0}o&u7jS$MsTh5CJ=N{6udvJYj!PQ%itR=&(G!i>Fuu{B8q*rn08GX8z@5JrwV
ziOTk{d8lXgAm%>nBwm0n6R(!(+uahcp8Z~#Q<-z87o+gn0*r?37bojCP*Z;?D!Tvc
z*9|FergFrA+M|&oW;ep<*nx>T%h97xFbVqA9iZtO7B+k-r$XnrW!L(I{H5dC+S)TS
zGZ*4iQcda^g)Hv~v^)DbPWE?@$<hzEvLPTTVJqu^p>S4X{8z^(jK`N>T#7oo{fI`0
zl;`e5i1#M^s?Uro!^JCSMmu35-0bS=st~8*kHO#lSFc{F)t@_a=4hRVw|Aw@AVvt7
zzj9ZKj8pC4Q2bn4`uN8WEjUpupx&E&4$<W1<~C``*y6sG?d%`hwsjtx9rS24d5z&m
zic#&?zS&!1(nT4!#7gl4x`Cca-f7TN?L_5}v_C9%E-x+4(}_6?67O4C={+|&fPH2K
zRe3sae3|`<#N!8lezm+T>v1#MmYb8a@!0(my`Na#S5DKz?=*6QE=S8*5HobaHlx%r
zc-^&9Rp|Ill+$d6Y=sqLYXvn@jjp8K(Q$Sb866!3i@Ape!QgifEX{hjC9t=*mop(j
zIq?>*;6kk8VI3Wvv7DkZ?nV=S90HK^W)e;EC<!@}-e}@M%Y6&!yj;q|E+iC~YFwXW
zJEQ`}LfKOpE`NVB<Ct2FSvs$In@E=JP|&q9%tjkhu5U{=sMN20d&S<~{tsqm`CP}z
zGcq#Vg^YqX+<jQ2d2p}rpGam}c8{s?3cx?gheh_d7&Z9h`SUY6I{RXk67-9o>{ZLL
z-y$xaFG4OQct_zVtYBdy16F?R<X&2(27^AsT|XbCq#S#v$bqnQC=_>@v&KpWTq^^E
z_)Po<GEh<%r@CR&CadeMFJEmm-16s_kLpwG6kH-CP~N+D?%Y{jJ`RTzUCAK$fk=Jg
zKwTWKZ{+QDG!-_3#E0tgap<wGV%fJZgnfVnIrjPC*^owrwjtaf&-6?+h=K6o>l^gm
zoE&b=woALyU5jf1T+stPbBLeCWK~~Q%pgs_d^c*>S==D??qkKHu5hqR;-kjZjtDTj
zEpVGQr<Ff*wp|xoUU-Xg6Y1BlUlAxwW}2Tq_><QUyFDA`x%Ty`NeQ`(OD#hJDRAc8
zxrKV2uMf9Y?fdI1{XOEiND!&V!y@IOg(^FH_9(Cvk73mw65%gD{4k&q^Ycv-pYBm-
zqNZ7fPJ0Tp?b)-({Yd_TuNAq1&i|E#g@wYKOO)<@`{k2d7w1gs&6-jkBKdX~pGlDq
z=J&+b>LfRwIe(swi_0s^W`Kx?fVUBhc>mi82}kfId_Bp{L#PMLB$MVePY5*zneBKt
zB(qnoQTLAzw^K};>jc{oOCqYe3vj(ffoQ)&y@0zAZ|$*@*6Z^!>>VeA`AyHr$>~FY
z2sv)^RoSXO9>Ya)sDxCwdC_aXS(~n6AI|(^hV}7`*>)p6DCP|&{ID?!TJ=y3)F(va
zQf9-J;R7#BjNEbhV#$Ee$!ZZ<J33)oP9`QM9K5NSNw(<zx<f}-*HiJhVyu6dsM8Y1
zXqVK6e*#4r8|2V&cbB`zomyxV(nC$DqvPW&f`ZSPL>+(OJk2lopSzD&!v8~4fLpaX
z*UKbq>k+4#zWNum4KiKu7o85=vUUIWhXn-^=h(M>d9;H?L?i@0KKf3=NH)}jcW4!C
zOEaZkoS)u*;J|vnk~=sl($Udj(wgPJmU?#=T~V#;Z1*l?m{D0kBU*qy14g6uInc;j
z;O2f_uK#EUhm`-JD-XQ9V3QD&kP3c6wAZXKY{>ldNHlu?%<QZ-PvEbqsn?SCH#@^t
zD<Q>aZ(_pP?zSxY={`*~wxBSG&$vzxcUb6Lv2`k*mRskJ#R86GU|fG`ID14aCpVWn
z@Emgb0u1B31<cA2rem#QohYSPVIJ}Q!2;&|b9;s7Ew8bBYzbr8UY=|nt)6XL9jkPt
zv+~{-ofo!4O|TH$hO9?Z9OJdzzPvP@@TJS+Um`eTw6iE#w`g;afO%N=<mb<)h;o!}
z)_MRP*K;@DPgHd|at7Yu&6U`lq>=pPyc%xw#x*?r0mk2BE{0h^u6qVwduv}N(uKC9
zGb1B|lkDr~*NCb_VmxjgAs2dFj*R5eLclr{`ZVGliQ{7-VX_D{<b{OPT|2oUF6<QA
z_0hKh;&Az?)iWSyqR#qTI&xW24nxj4<HvqJ#A_2ZHQSy&BzK~O)lY_?ply7-^YCgO
z-%nneDjAo1mP*;qJ}tI+7s+fXr|D2Kga8zkwd+Hicm>~szhk#sojYf~bH>i6?mPdg
zO<Ulec7=sW^3tWP^a5sG%S$86D|O~j9pt@>QD=83CTI*<dtvGFC8Sb&v45f6YAPy0
zKF^u>jJ6}N9SW^&PA(XE-I=a+G2>M-CfDAIP)RkicXA@rJ^plAUev!cvut29?a@8;
z4hstl9<TJBot@)NWrO%lgYcV&C|9n>i!9jv9`5EdBGH-3j&Y3VQq%L7UH@`J`&!$R
zG4xlnaPeefhg*}a15oqGj!V!s1iYYyT>akBb@uNB+QLorUYKR>K$rAENA-L9^z(<?
z>*xe;L~y^p5~~;@>croiiexCNuixd4UU^Mu8Yh5m^nGI^MF-~#b;dN5KV-280pRPN
zM9-ruLdPnz+3Z)Mm%?%5GzL*tA^{HS(%$_of?In@0Y@||EJE`0-Mq*Q{^=yBeib&N
z(znw0Z1@I<Ok0FcET5i?KcJfS&LRh$RIP~Lq~VY3*0AmYfLt4gxW8^{m$dvy2=eNX
zQan|GdH$ke*J#)7Qa*L{KY`GxQ}M=FpF>yP9=-N;yDr6ti3#gSMoE2KrBwJ2IQIo)
zUs_G{R!bC0nclp4lPf{}58G@}&Cc;;FAo3a_^%-%6`rx9J5FColI)pIiK#15E6;Tp
z*AGy+uGiB)zhT(LYgS!YAb!cRz~A7)Q*oNv7i&`ff&>pTSgr0}?>SH69cWHJ@}#<F
zFF*gz;s&*fYWZm(Ca$JEHz7Zj3ofA|Suq-?HzU}*RqM*tZZ1H5A`6LGjTkXAGpB#P
zpujWzQ|!hM37>b`{K0)yFDRZQ?$tjbAZxwOPOP--;g6iHWkp_$RtNLYAk`|HP53u6
z9$zDYBv1=VjybUE@b9j}B_k`#>*eR?7wUCTHI4JIN($)*GK8ds9#10VJt4D@9=Q)6
zJ`|2ZOS5Ej>aBXgFv6D4lWtRNZ1w5s)9omOn+u@I4Ww;sdg(jcM(D#Mhpd#S>3BX1
z4!7kBA3S*QbdsD#%Pc3ad5pb{`9v9dr(aySgIv6sg;nazjD4q|mD3aBj=80h--+Zi
za4*txtpv)M6~i?Ao2%c$GP8Btwug@%tzK$;^*&~HcD6d=1O;g)m)dh(aqZx8sc<ou
zmb7@(OjMfHTCG_&z<1n5i3vGlkE-EQ%6Bz;{36EQ!J#@)SDJ*bfyyBNNH6prHT~|&
zVc>reDD@#?E?H;lzIqCWcdOgAUSohSM>zBoAd>wrt$@y8F_+^g$aaoghYuevt+dey
zcG$_s7IFHourkx0?62*_;%Na{u(GrJ`ugf9q&E%O;+q-Z?(4O0cfb%L5bp$ku2o3#
ziQ8*I)YiHK%2;%Kq~zSW2@a}*O~ECsR!KQ1bm)Ee(NtH{iN2d2Y6gm5gO+MJkfmGb
z!R>|WQifwmf_B3UPextYSy}&}qa)5qxqIX_0>;=GQ=R@Y`go1|O^S6}@tZuCc@K?p
z+w9OyySUz8E8XchJ#1=nJdhcAfb*1EiOQsgJQv~gc2{An*G4pCcI;YdrGcd-5AJyX
zp+k>=F}_jT&C=M3mR40=h$K%$oVcx=apT3s#?WWa3IT};ulUuB8`^n4H_^}-z<5(Q
zkHoJ)TQ;nUSOxiq6mh-gHNvrLyrNb1?;_))+AuZL>;SKv;rEy=2sCg6E&gEiDrE5L
z)vIGv)45_5<9OoxYGZfR#wt}>$R#(H75lKPYRI-bLV~QmPeViFv=eV2w&52>3ajWA
z?>J5L-ptPz$KC0Cd2}(?(FT;{RHT$=j8Z~abDc}?i~II4)_aVEyDd4KeR@DUCw%YT
zy)f*w3ofIQZ29AlA8C`1zrhe&o?+4HF@lrF^4Qx%WzNDy%C&39U{&V@ab2CTje(&I
zQ1aLG^g5nHwW#JUMs@FGBqT`s$#gU{G-dj{1VxEe^sLu#@&xk(g-}k^x$9HFMTK?5
zwT%L1&`*!yjNy;Y&f6t=A3-RMYTqUTZ63GoEx>U?@+A}WH5NWTe=rP!n{|@sa2%1>
zF~P~+{ui!xN6+CKoBoNy&)0w+f7Hl}ms_a;awR)2Ba3%jIU^T%jvcyz6qv6S!(}W9
zI+15WLV{|27!Gzm(<rO}HaH3@u#bhMHOuxQJs8fWoty<VHOXh{-)Q6>fB5jBP}+Wr
zv_MU~t&qbQD^RSZD#NhjGlWJ`^|w!fINp$~^<g!ThWaDphWFZpFQ90AX=#ao4LDrz
zDQfnS@4vu>_lWK!(`J6Lxn34{@J`|l*KgeT(S*NqXz0AMGA%*g00X<h>`$FOO*ce;
z&$0Wr7hsL$wm<%mK%(9Bn4%06u$fOsYA5P^*;tpLDL+3ov|;`Fg68I6ToQJQ^XJc>
zzeYzb=CjaYLC7BhMRDtVUXPW&d;k7A4DpVcwLHfl(X#*hL0rktsnliaP+>d37hd?)
z9wT}#;2?vDh{yr;tYhUte7Zoj3__M`KyXgRb&|<N`@@|-0<=9BcN24&pJL<Wq=Kgb
zug?HD>1|Bj58T~@8dDZ38~`9G(0XmHov19795k>3NF>+Wa)b~mGjns_(o9ufMn=ve
zE)FWbdtPdRZ3{z`0(^ZbxJhwPDV_oM@I78V7>bI!Zjsj(CMJ!BX1h)GBWHiNH?!k-
zukW!+-eA|=#@kYIK#pnY(_t!A<<hjnEQ4Oub)0a#a30<pf<z;39`g~hp#I|Aq}k(x
z$zT0Bw(Z#AA7z&mtEOI~lbFGvsxeKsb?eVDHSFfZV51+hI_p^8(bW_b#0iz8lurj9
zfHEIwNwz*3T%KZF?}h8_7VH5S`C1=B08=<taSSY~z+wmAKMeUnvnR877}~G1i_7(f
z_Z_L5rBB6g`PbjSii%1kC@bb}dm;@|I1US+>gxH23vM}>@<Q^y4xsVGL|M{kd({ic
z1Z{<VmT?FF>2RlY`oF(1Yu_$+%8c{u-{ky3Gs;VUZEO+1H|<faf|ZZvp8Olh`J9A1
zd@FEbR-N{PmJ|Zl4cgA9Zf0p$_~)(n?K^$)??MI$cyQ~#e87V<J{MN2{N9sOrykw;
zC-nF2yTtl0sBw$WzJI|84<2ma@J~LUI`!(zzx3<>=pzr<#!>w7n<=}sW6YXhv!3!2
zg4&qz)`Kp|7h9{4t~@w&GyI6s9TVbA8?oQub<37a{*C_bVMn!BLxfOIB>i(Y3&9J^
zBcXT;Szisu0hRlE_EAPK{Y_no+u3+!l?$@R?#tfa&|=>{fxwe&5fl^@tvl}j20#xU
zwCH`mCHe0!%f{MUEcq4Ccp!Q=X4!B66cS_~tn=C1E3r$#+W)*$ael;w4TjmR6~1h;
zB!V2-4AcpEErRXf>=GMp!QQmv<6S}n0Tt%9=~pPz-=X(goxz20ZuB3;vl^D9qvb+-
zzrWd5U0p5YHIK7vNJocfT~_+xu5$;?b0-zGPyVw+J_F}o9E#A@(eda+IqeaQH>eCN
z97R9sYt0q_4F!G-z|$G1+^Zv{$Kg5NLQAXs{K-ZWlqzQ&+Q{@G7%Was$$OD2Lxqcw
z{EZ-wc#|m0?yn*^@I&Abl;R9wy}v)yXFvt}25U067ursr^*N{z;!86uB;>0uh*M!E
zq+`pUpEtmEN>5UZSCi4x)6+hA=xBDU9EeJou4R(jva6H_?agw1UXA(5dd*q<cQw<J
z?c&9YsGFIGHU8zZ)bUx+5ei2kXbxMK0U&vFE<=sGT7g<5<;8HFH6kCLcjIU7wzPsb
z_IQgg+2_T}oIU%qR!Q@Vesc8-$#utV`tJk;?Ak9Eq6JF^gP8Mk8u5iE5JyuVy!;LE
z5N%7_->#cL0(<CU5)`eAwkAvhsfmH=mo^Rsir33-q)q+#jh2^t==ZvUG{1_Du6eI5
znPoTPm7Xqu_KuMckL{o`D(!=Z4?9p{PydnlJ3zYF*w`o^f4Kz?-;!x1R|I|G(XJz2
zV6xy2LKUg5i;lotgfN|E1(EBcP9o9%qU&ErMQveZJWn){&6^9Mbv}9WN0?*(L6Gwb
z0EWN;7ie2PsP^B0Bo8UXxO;okz@0$FAov7Sh&;DpsZ4C)mt^N+1Hij%ea1dWZ_t9a
z(9y{Nf1?k*P|LJTF>eneHf?FaAwAB97g8*PxN8WMnjpmLMKl{+8v0>Y-HXig*pI;F
z_d(~_qjkY8DTuBIw62kpVX*+Ryn{W&_@h}m9(uw<!n!{l%0XAZcrh1X%Z-o!_r8|=
zKu-lSey<WY*pyn@_x#SCH2@TMpy|XW<bCB1%yyhKg78J?Shm2o)UmZeQRibnp@2Z~
zjY3m9B`xg-h41XyjT<&>;Dp*qTxg=s>8X+S5$jeg$JXuJPfZWE!gRj@)PseM?Jm(~
zO`DGG<~KQmNEO0H#gE)A*Jn9&Xk%>cqgtbDsLYvOcD3N72QR){1J&=?IJuIHWJ1Tf
zu`pwSPKXPjIdS3ygnD7+IK}jL4w0&<MmxH{`bXkY&xMPHLO_6g3L2CB*IJ2*i4`U$
z3v@$L0t#RK3usL^l*Q`OaX!A(qaAA7psaPG!;utXE_~>Fjvl${7vR#OvBkr`BIk^v
z*Ut|SxQ>f5Z`($(qSndDRdD;vgQBgbqYQ{oY92av{o5TDX|Ee_Mj!@v5=&XG|H&wo
zKoEJ$OHM@Vo!B-<plQJI{i33wfZ$1XBN~@3U3%YW^6K^LF{tK89me#4ex*m+a;-cG
zNe=wra=Mv1fFo+p8=v+=F-jT^cZ-Y9T)KR@4_u1K%S9Yxu$r5=4(uQSG)E_7`RZbo
zL+tp(#4F$d0%8!d0@$<0z>}8v3!)LwR<so++1c4GiGhZY+mC`(of#`iO7TMQD|dJI
zk9RtEqOf!zn!0<dBiB$;ZrQn0Dp|ig=3?Z%nvKI)V$xp#D5T<QyqXZn6(~ZjUQSlF
z)Pm)dU&&Kl|Jk_y{^>4#dpEOtP6yt_w%-o!5Y40;e(`=n&0Nkg{<N&yv_bbEc}U95
z&1_<(^+Tgo4qaP7a0k;y$;!!|uEBOqflp4Bye+r8yjiq!46FCOeEBjdR5MYBk_7Vq
z>SCl6p+|zn>d{#tX|`_NN?H$T*kK4tZ<0YJ6Y>R`K7=wlGNGsSeT%~IWyATPV<omj
zK!Fap;8iowIg&j`Cni`~S?_>;RVN$B6Q&kpPC~*Z;gIoWj9ay#Exl7s_d<EkauyFH
z&d5tSLrE-s_FN$F+|xr>9zA%l9!;(x*GT|%`*4+tK=97PDpfB}Z|a<<Pn0~RfhKBJ
z_b$-K9p^`dB=1p`ShkHe?{QzpWM9z75a^bD2|$%t^ZPW+{9ZUbU4j$ujqkN7rrVs3
zAgC~e(W7$%CHxW2n#}8UcJ%vq1x%W(&MCNI;s<+dV_zojk?;gLx5{d4oOX&cPJrxt
zHSfs9m!J6_eRhe@i@sH5mAllNsqaQ}>(;IKi>$+u<e){-^;A?jQa%~p!ePexcW0Hg
zp>bO+xZS&z<>S^9@5&D(EHr$=GV(@!WpLQQBw2A;_-Ft8^yp~GSYIQ(f0%LI{PfgR
zVRQ5R?$e!O!%Nwk@orvsMxo?Y;6z-~c1f^Z=m8ak#)gasHeau_Kce&JPf`rrRC!DD
zJq@yP+Mn)S^{sSBY#y>6YTDtBofSHN!JubgKo*k~D-pNZv1|I3VV;d9?ECiJLTl&I
zEu=y)Y<%jThCdmoqb@#Un0;vnU~pJxCLsJM!qx(5SAlkl2OJatCI~uC9Kcb_IPUyb
zGXpe|bCABF>O#bp!)5hBdl_m@uT(s32ElsSto!?2Z9FxEit+eUoCPs3PVg0qM<Vi~
zUMa?@e8JDILrQ=_P0EWhBR%V6>W|`ub-!>7p9YPDFHamFhI5+~JX>o6okR_u&89O3
z3a~Du&qBM0Zh(6!M~P5ID1c9C&HU<+;<YVW)a#kK9~BUw<Yi^BR1}%KB>o#VU77$I
zCLWGMdVoomB{4^2-M_yk&&5eZRP_4y7@r!kDnuhi$Oz>#dTBG0$}rK{uQZDY?ZU!4
zgheW^&RQRA746OuG#G6drL3^MJsfARZv6cG(7DoX=9hNlK4&O7cfBgBC7pnF6y7QO
zAPB9xinqK|jI9>h1HOqf=v7%Z#>5gphRVFrvD&ykJ_;p<pcY+ST_#q-jv8cEQBlU&
z+WwU3be4EDflHZ|*Wjc&0fZtWBjb#o{XI^#{`&BRje+j*V3FvM>v)*7!0u>7C;mWs
zcEDnHlqn|J`<S2}7l(OO#0l+>2cIHU+>y1Hp;e<6viofi7bh0zIiTs2>UF&kt*^#&
zC~`(V5J?vk3T!qK9O&pIgzb}(lA*3wa5ES!rMtHFVxW+;u&zTtbHAvPXuWDjX3uxC
zUa6Plx8(k>0kOhQg#E(8;`8Tu(LPGYX!wH5Z7;X@A<TDL3w*MoTx5KKS30s(x2LAF
zOaE-}Ib+)ZutxHv7g+lP6K__CB&u97dltj@M(XV55wj4-e(ScU<a{nHTzvsEymaRv
zYXBgUlz$3_b6bm`zLZTn3)>B^;TgL#yr9qp5yc)8dYN<QKI<oIr#E|w5I<_juwa4e
zf2}#qwD7eHYJQ7Ny*l0#U~yOa7vIJwdnKVNQ)7&<i$B=2t4j|nzN!F^95YlXE)@rY
zrqDuS6Jy@OqV;KJtwG%jm||F&<gdCa(37oE`kg}|1|w_{35*bk2?GXcg+fKl?_!sA
zpEg40z3HK6W5yh1iqC)~RWiDOCOl5>7{AbZyg7daU~0|UwLkm%HZ0U^?v}E}BPvc-
zz92g;R$G<Z(?GKE;FofYr!%`p?jIR3ciwp5;K9D#(hBy&_VIxZPEH2K?cHy2&FRaM
zQ&LNTSPTX{Rz#}13LosbT$FV&bAad)@lbVU<_%g-pFR7i#wd!u9LE(uBfv0`E-Y$F
zP|N&?4i|5sa5tLlxEV~kv%SDEz5*giQ{1>rwIP%=B<xx!4Eh8>9%y$Sr+(sdhSDAu
z0YdA_uJ-Bx!;sqi4zuN16@dc>9^l~s5B5slI|`yeO!}Zs6Q|6934Y*|{ywyfW*a=#
zfa6D4P9tXF4?I1;R8}65&5K77@L&=R!q0fDd#ju$rR_cks4gY!!9b=EkA6t{LLhUN
zj(KRhmtUNu>{PS27feh{g!Xq2w`_%Egit+Lm+|rAM~r~@ADwe?cJ2k4z+9Ay_NY6`
zWuo?{wdwH=ksJz?$Mj4XdJW|-;=u%+Nb=ZijEv>P<B@V*vEzlK&|y^@ZagZ3bVXgT
zGF`Bd&X0lg-mN^_Ju`C>0QAw(zu8R5W0vI<V3N*V2O$k6<jp<8HSc!0#rUunT033+
zaAR`O^T<8(JE@pNo}*&Y*VX{p>Ee*(DJdy5vD3I@k4HM|q+i?@c6>%OCkZJ^i=KTY
z(AF>DR=vRP<M?DW7)Jd$uksXe?|jVGT+e9N;xmu~G0rk*Jx+X&tm;KTJ?l!A#9>Fz
zM`lGwcC;Kkbm;5#`?ql*ey2Nft?k#{t;34FYmVtnh%-T!lJ;g|Lw!PugA*u)Iggcy
zxakr?(x9y{q1011ESpMuF|0~5581JOyPg6+s*t8!LMs$b_v!+T-`q2v8byUAbD{J|
zK8Y^eBp(KYXNwh3uZZHSoTT?~G$_(k8aKQt$2Ii0jdHpfBZNQ$)LtBw^Z_SbMJF@b
zlxl47Cc?(~Qg8pu;)SF}lN>a05~c?%r9yrspJ7d1Q$W~p_!2s|8D+Y>EU0!88duT?
zpNhQ{^{A$vaRUJZMT(3WN62tlSgJ?vVTe<R@9FNoHnFQR?()aD;=>zy%TW1S^K|D^
zZGnkd9;&4p)pC+C<3dYYo1|zZtd{58ICH*{c$na4AE1+!uQM79E)n$!nluYF2AO!E
z)zv~AnY@gV%`=R1SJRdlO5aL8ifkp+SpfBJjFvkm`f8-ES>u*H7mqNMSW0_Pred52
z4ObQq19^i^kT&l1Y7T}3I07sjG^Cv~*_;@^MB8S!8aDa_gs3!z3R$f!&h7S$+}+$d
zWYQ6?xn2+&DV1J|k&j!3=qeYM<8DhL0G2<&8jF(xwZJBT+6p&E;?a@$qqm<1Mt*Zb
zFNGz@9iV4V=lun2-TuReJ<$;M$d3FT?Lw%)Gj=Zi2-i6&9eXdf`P1>OACXeTI>hAJ
zC}d?_esd}6xv(AA6CXVrlS}phe-w1J)pr}^4PZu)kb1Gwc@J}&@YAEG*${Vv!|E2-
zHE9ioI6_L^#NJ}b96WPMxHG1(!n}E_62D^Q;mpAp=e)3N5w%Ts+wT0**Gg~3!<Xm?
zyOqT`Knw>Mu|mT(QBidv_quV_ganTJ*i$+S{;1(Pdo8_?^LLM@>^!q)q$%|=${^1E
zpTqFi!*=UtuR9Y^;AI1OuDN?KT)fCeYo0yC-`SAJoe(KL4mn{KNYtuKzMJrJ;8AO|
z?W%EgYDM0dnL?n<IA&*PcmM^348Q=qQ*PLOQGuaS4}%b3rt&^o>1$3Plpggw`%`MZ
zeLJAY>7??#x>HyH4ih;i`RLcLx9-}tE@I#J*ahPqRYagevLl|!K|llC0ZjYc@XicQ
zsT+)Qpjv`4J%tLmb?44|n7QaD2f|;2xv!jp!gj(fj_NH`VS(?)AW>HXMw|`cA|Tzd
zV^1+b#6$4bMBdE(D^ee*sRCmOI8qT61XHF$!&0BC5YeH@bE>2~KsIi6hmx38{1e$0
zV4(&AvWLZ@{|r<9RFg4!7hAm$Sk=tJcx7@<k0Ff{PC08OHzuWgE?(#^uKx1*GwqHB
z2k4xIj)e4uc;ix6y5RM80&7SBA`{%KcqOb|B;t`b&jdex{OImsWNA>ZzL+O84oe*E
z&_y1r?XSe}ygACIh%x=C1l9=1QgSF*bjJ+;fZ?SFxQlh~-kVT5kLnfwfssN-irZNJ
z8(bVAhQ`Dkz?`ZWDDXMI>244fc1}*t%JS`dBj4qlx91TOGur(qj6hX6ICK%eKkcuT
zDfWzq08S$8q!JY_p~5!(pMla=hG5s*eFzg16|-0fN+f9K8_wWgix98C)9FiULGP};
zDTKz$jn!ayl2`;i{?iN;9gnm67?uH^fz+`I3JNwyk25Cbj~3Er_GCcL_4K60a*T}S
z@|iY$e=vee>cZn(bldY>uBx<ZWLn;Z5<o}47yekw?%t+U4iYpsHZifbGjEyU4}yb7
zH&x|2tXvR8uEq~xWJ5v#vh3Zvs@Q(yXJ@D9z*v%TJr`ySLN@)|pIn^H!N4HQW$G%4
zIQ1AapG~*JVYMUZF!6XEAXuV@Vo4e@t@Z;b=pm&<@XQ{GLS{~-uPwg^Z>Khv0+~%5
zj=!4xTDEgz)AB6ny$5;^L~U5g=ukbe`_Ip@pY=a<8nO<ws+Z8GodLWW<HJQ9cp#{J
zGT|qJ5}nxNi_Ql<9vC=I+_-TR&mi0jt|%`y`#ED6)L81;q@TQ4pg{;+7wdSMZZr(p
z28@`ara*~c#KeaH4rt4xQ&arI)tEn^L*p?RCcBRr7C-^}G1j6)3=#1PEXhrH=pbA{
zFeglGu#arpxl`YSHn8z8ogaybX&LQ^I`9GneLO~MlSBL>cH})e6_S$}7s1yC=>g(r
zvpJf4sB>#6P*KvvPcv)*36#EMYz_~(3`}rH*nc|AeQCsPc~b%4!VEOh-fvNx&`4gQ
zsuQL%%*mf2r?(S)Y=@2D?@G1r>edPr6*yap`vi;Fok;#1N+1*Y5(A>pDH*Wm(3z@1
zPEMXY2@#&~4`Q~omWs9ji{A*GRkL$5bUMrj$5G<(tebO9X{N?0H>o#lcmeYKPBT9Y
zgBGxP9W`=8!>|6g{UHRsh=|xD2W=;c?TiNc9Co1tLm)g{Vwd$`gAarqUH)K9c=muG
z5-vh0EXjyNliHHmj-jD)xW=w#Ssx^P36+&J7{n0FLBN~|V@+Gf1js`SBKA*+iJb6A
z&NgfsIOLbl54T~!^#U5KLwswrJoAcW2Qw-35g<+?=<t}<Ks>T0R$>|<?wL?FBx>on
zD0MmJ{CfG&<Ni@XS-dC&Yqbj8R|$C$S}>u_VpMc@!(aZ(Q>Q+&VS2)KW#-wTD~B}w
z3yA0bBz1&i8~33qVyHSdJrbUv%!?lKN-04@O88+;4(z$JO&L`t{8pI9-@11nLrota
zAE2+Dy>n>Vna3(j_-o?Tg^9wLFblL>fgq(5b+k^iy1kZK2W-lr0$L7{Lu09Cau8R?
zCdX}94k=Jhgxa;0Kroe&m#?%y%&#iulO4%u!?^Eg$M3rQ;6bs?s|y=?u^acO=uSdD
z3>jwHP=yf{2|94!v0(G`W}K6wA_0hSo%<(d_E|C>R9HO+9S`NH#c){EdFBQxbdrYy
z9zV<-TuxvlI8S*TCk!E0mw>Q8c=YHcY%WqG2LFs;AP_rjKeP&uwIrsn#IzTnlz1!)
zgu9!tw9x7fXLN2(Gi{bauYi=&12<d*!T=7=N5t+@tlRtpqdDXq;d|KVBKdbr@3V9{
z@SXk6X0+{2q{naaPY_<LrG7<-3=FA2&6|-@KY@#MQNsq?^O+&1qsM|L93Wz=w6v7*
z#Xn1x;U62!a@N*NMuLKvq{6j_39f{m9xKKQgg*`oRTZZy0G$d%{1xi`u*#+1P!yIF
z-MdB~I?7O>D`3mRkeCvr2r%+CB;6Ze<#tEd{<-{m?)3c;j99PJsN+ZuZ6G#<w+at|
z9_V9hRTN}@W5AUSEZ$m0Lj54LQXJfX<yj7t=L`G|Uy$z#PfP#x#RaA-0~PqV9(sH4
z7ZVGEi3=c!1PP%B@2*Rz`Ebag&eudr)4<r!lA80+5~vw$40TUyGyx*t{}kuBkWCm*
z%AtN?t`Aj_+jYSnjQoJ&J6e#9LwF|Kew0F8*g>Ac<BlI~%x)d_a{8@VZ`tBAa0cQx
zI4+(pcxx5K+8e_yLL?M-X>=bFq-Y(eDa5=4a{-DQ5I5lv`2;Z;Y(5g%fz^d4Rk>L8
zU*AwB@uQjubbi961(A?23B%A?P+Gc)K%6+Oe*&A{fWZ?KAOj>b34H@za=I}4pBv_;
zhDt#iF&5|n*49Hyy_?VR`^_z6zR8-a5Bzbei(N5hV=wwN1>v;7u6cC*f9$<^IMw_9
zKD?@3n$TQADoUxSWX#Y=lvGGcRL0C>GAj)#6p|uTl$nruSk0!)!wRt~GoehYWm)|0
zw|(~6`?-G4bNznbXZYiLJ!fCnIoCcNv3x%7_iMOc_v^mJy)bnE;D{K)<3-L-^C*}_
zq__d_7yz!@cDLU@-(CYr^{;<u0T`XNwYAM4!w`Q1L{|!KfVIB?0n_*Gn~5R+rvK^2
z$?n><%nSO@o-+P29uv|O)Rm=<qGDoV1U_5p|Bn}?JimTcuIJR`!qvNc5U9~blHtJi
zFmbykJZ<EnTEdc<!^L;%x9MML_I;8Ss{@15HydKizSt-2UlcHNljcmqtRV#q7_*Dk
ztntS<ouHTq`T8Er*$MUY_uvil$U4NHnfdqNCxCbV)6+J~wwxqX%bjL*n~(+%sjCYE
z00-mne8y?S2r{<A_XIWN%kuQUKlv95292EOQm;KQ8u^P0aB7u|oe*J|lLLh)j-*_Q
zvK%M;AjlSa`~JRVR(q_<xK`rl;!=m<Kh0+~{&D&_6OV0^{`-p$*ggB3xb^>NDEogo
z2ezv{tfKPfLMnbsFnJ!=?!d#x0W(NF)!ka)>TjQ<PhE58!&|_q5Bqgf^a_xQK7~nD
z_GADXK%GZG!K>chC=^JM0)e;N1gHV&xzj~prI?-}kQtIM=PwrlyJSB?7eb;TWZXXY
zkLjiW1$@Wt$1nhXD0;T-Hfcq+oj!ngg;VnuQ!iXzlGhOpOPIr5Etw7FUy&q1l8Llx
z$>kZ;K6GfVyvxWrG(a?2xvYQAofmI5L+}FZ;*GbNigFKh)5n%aaB87iH1jLwP2Yiq
z6dCR`;?4S>rcSrZjms_#pb-Ub7y>Zd@Qf5nB~&#tUs}@@;!h@p_KyPwssVHlOguf`
zqq}MyrULJwc1);3AlW>J?3YX-LB>#bW28kvWd!o|W|==HO(1XzgGjHVr-&<p*i4=y
z5`L=(%TmvMR13x8f`U%JANT|aN|Mcen065+7McZuhGHdIHT8m&)oShK{~mwa9VXLb
z3h5+W6gF<0<Aul^@c8j3AVQD*Swm%FGXO`$m6<p9UxMkuTaf6paYxW=EWq=43*0Z`
zG^vIG*T|DOq(wzUnkzJwaRhc_PCwG$98%!QK&-ur(HU?LOn$u)UDEM5K;sHG-wJ?G
zY3COU$zhN`@z$1y41Rd@zcV%x!n@m2=OQ&LsN?{a0SH3<C$zF0EOtEcQ?E=HgA|#F
zO#@KVyH4Lcz3Fd8K=HOW0o(OnnFiDjZ#kJrIfq7yFvhnvKg0+x=-xfbo>QkDmYEBn
z)RK1{!vQA)S`@GEK^4W%!vutIX#fD92g?S<fN{<xoXmV6LKHW&>u%V<0da~G!3zZ-
zJ_Sl)l2ZXG9nHJcZ|Bzm!R$F-QN%n&t%UfWZq*_iGT32;rxUf9jvPw*!Fk-=QUjG1
zk{a=vn-N)0Vd72DRM4(x>kS$o$Dfk+8?-vYP{t2ItOxks^Ep+pEJTds9P%#+C}-PD
z7aaYY=8>~OddWxX)a34!XzA=KFnM)j+O2W>xwn^=!cB$`Y2}O2N$)}Jhl^?J+>cB&
zqY6`N6koc9`1;xmb8QMz@IkOk?Dz-&&*vT(uFhDre0hi65$z%x%7(RqPy1ELN`^G@
z&CyC!LYxQ;xR^{_C7zvzbIGl}kopr1poxwX#-pSP!ti9ts#S-;Y9?@2?U=A+Sb4W|
zco0f<FwuP9TOYNB4!AWrVd&lo7K9fFsTcbQMz}sczxV}3`%d5HuBohlFi^7oz_6Y$
z$|>mQ(jSA^x2mM11oP}QKw&{TevdJKu%(8g^7EHb;Wra7a_4#tpy2VwL-s=;vGVdR
zRlv3+^K|Vau=xzq8&R-w04)HeiPzK9Gt;8+Er?h{^7L=-Zu;H+33k8=Sp{Y8ez1$l
zv>6b@CtRSHr<0Th`;f44q4oih)4@y_?L-G;2NTccJphz;B1KOg%<=ScOH}KHv<e&%
z)a~I`?cF}+h>M!Zx{pwik)0KAwFw0rl_OD0xL!E*Y3I~qP_c3y2RwuR=Iq#&*$DZk
zSjl`d&HDEF@y|cu|634!G~v;{H(7b__zq5+p>~xy+-pG3cy^ff;a@WVjNgVbUWkLW
zIb(Z#bh&YQfV3W=Np>}(sioi<2yfs1vg(%%NyR`sAN*Ny0guJ}gSSi4>dPTS3c?Wq
zxdf0WsBDB(2KX5_RMhIuhIC-oRWH<du}>g|QVs6{McOPcP`0aM?>XH>hMmb%*-EF=
zEr%zY|0W#;oVg)rn-9gfttp<U%J(R(U;Y(qbTiJOLH_s<oy6*-U1pdzr8s(Dz52U5
z>MrG>tfL6(I8uERK8@$3TU062j6mWP2zHdvTq;Ouh!PVAo$NXK($H{my#^c=esZew
z<6`|z=9i}!1CnY1PzYFCzBGtioELIK-Znv}tc;)lZvR>=Sm3*$CLj?Bh5aS-BloI5
zZjhA?MRX&35TH<i7=nAtNzm~eqj22Tr93?IUIT9bva>7WA9?%BPACTGQN{+QJ7X_j
zkGJ~nqsxKQyl-yi{VlvWJcoM(r_)zve$A5eKfk`Qpcl3rx+;KQ1gR9?Qw19zSV0mO
zxy_FV?B&bZH@^>q7RpW$A9*=BUs{4@+`jAcmrJ9v&1?{IwtcUSu`FMaw2PR@WbX8m
zjuR50&XP(le}yV^x-an6jTI0(sEO^qG;!ihI7+kaVd*iNkd)V<;B6P9+g^~N<l-U=
z^0VNM9RaujHJAzQD|h-Qt1WBc-{3W2N|3c8#Bg6*WZo~}AVJmO{pIrN%qYz3X6sP_
z2a%CBLNgj=BH>|bA(;i_-;9=AP6$4~{2LZPH__<|?HV2t0q`hD?g(#&JAZ-1Gy_ce
z`)=iZ-IngSJOBFipq5wW*b1m$+Px)UEp%v$?DHFbd0=2ENRycVwpz8r4EI{e^H)N1
zX8X-@<0zb0yr3J%*4v>cGPBaL;2(vN)n+^(EdFpz_N0FSM6tDvaBcuSmm$~9@HKoT
z_(o^dj2Sa_nO1q>kqiN4wFL<xYG*Ef!;f<u{0(yiKVEH0HQ*pzDgbZD9^0Col~1^1
zoDVulwp@x};g`SyVAa3vUi~P(^WlQ+_&6vy6yzZXf0}H3Dwc2hYfdu*&WLp)9IlPh
zI=mMU6jI4Y=*f_Q8^(7Ir!C#1a()f&`KwM868IB|R;cnn$>~4F2Nc%^V>RG|lJVC3
z!N~(?%r=8$u)t7Ahd*ptE1vQmCC3qr%je5Yq5r<(+p8-kmcn=D0)AFQ^4Y$jeE;8Q
z_6=UO75gR3(=zFo`Wo4uCb+oYH){26s^wu+J;QuKXY3k}Gk<h-g`_xsi)<f8(?f<;
zzk3r>(q5_L1pI^ln6*rKrZXtJ7$T>GL?5pici~l#jg3$=mSfLE*<}I!n60`!_dAw1
zrxyXPc#ezDa>Lu49V+z~(7fCHR)7o>%X6nfy0}0GLWM>7sN{CA<ku0t{$r1AH8W}P
zT4k5F+3(vOGbZ4_hMrRrr+mrGOa$4MLdvL0=bdGb-K;=!#Z`?#d&>-Mb9wQ1dHv-C
z@`TmMs>$zn#IOP8Tm3*V-OG!DwuclUu=U`lpjmYY_<%-Kv@IJ1sy#~I>jLCF`ZH*s
z(~J%$+v64g1j*jSxjZ%CJ9Ip}QAgG+5gZPQvXkDp@nh`kiaRBSI~$0gD_R8Gp4_W;
zn$Igy*nwSQxEsp9&RFHA5JFA*d!7|5<``-Q?amwMWt2aHoX<PcyMc{lukSLb<3kyH
zpW`&6+#|&>)(6uNmcm4s3;$Uh#r_v?Tdiyy3MrJLN_H8jRdwQ13A-P=7aXtAW`6n?
zaEp|;M`?*TA_5NW5<Wf)q5b@P)5xt%W+ny1j$M)$9xHklmN6P$UDOaP1Qp^Q1aJKT
z*pfXtgHJ&2K4)1+rY^p)7ys%H-uldA;2IHBHhLU;0<rp31>_iX0gG0z4(({tD{z@X
z5DS2FUcL-bfV|nFVyL~=@7x)Pk2!-UxDtehufX?b7t>x`@oyi-6GEr<6?}{j(9i4W
zvtIVkM^f}3kd}b7{2_yFn8tq;Ti`MAOBuN`ZM5@}n@mDe;qiY~S&u)>>jKcZblI|Y
zhsOp%@?L;F+6D*ppNy_?ZePsBC;b{7k14%S9#fLbE-u*Ojs?A9)|`dsFh3(%?BW6r
z)Y+iaFi~}3UbGQ>IkKw>-ZQQhA*CbQnt%*PKxUeZq-1_>yez?E1Tozq;K#*zfuvH$
zUX8Tt*j6Z0%|<^SjjR9XVg`BBSZOu{<qxZl5@#IkJg}uk(hKR4P|IW0@*N;>kfl(`
z6k*XUyfpz-Ne=Ec?NHcngUZ4CckjH>EA6oTegHenvAER{=8T@&n}80klWhk?PQYc*
z2wH{Z#7-z2i2RfXk0PcZhhLw`G<rSS*=e@vFT`a1_nD|4Ljqj@_LXW6Sp!wlk({vK
z{^$t0izTa9tKv}%FE=*^@G{a{UuG&C5JD<d{HMNy30^Fra+zNK&0>+P5B}_xWJQPW
zdxzV=KS3srLMzJ*rJ`OUvwjTYOm<759l?U<{VqOiwxcZ<)9;hj0HV$-oBBiKA0+nw
zA`x6|?q7h*fdh8mdOLjr!$tnRWAtBSga0GH{;vq=$A6sW0G|HmKeURt)ePNfEbGO;
z7q8KHY+e%oZ-#u%Y>+L+2^Bnx@_+xg{W}Hxe}l06i)qjF92=1Tl$=|*a>~_sXULbO
zOV-Zc6kM!!VUe?GwYSgOdu>l|dyN!tJ~8`tgG=1D;1e@~&)l6G{C0-7-L3VTkL|mh
z=yi3I&tB0Q8?^<`4p!aUtx{|h_=wFCq!u)~isqE-H9q<^>as@QQDZu7JaP1_xqE}l
zV21XzoXWnxJRtwlg8YB=58l62TKT%u9NNSV^O}R9C{OgWJ=REC{Ist4n9a!My6(7h
z*@N>>ex&TzfF)jNnEuq(=IpVP1s<7o$Sh`KVTuk!_w(Y#xQQ<{H9NZ*@80Nn%8&5T
zpgp!ORqw{zoeK}(FRH0;Pu{=3(w2XI(YN>6Gc6W)PpSUmE=G0VCtHx=7~Yggvv&tG
z;KknHI(7Mvmt+0<(An{7s<2mSw>3pRl}rZZ!|d3GQH?>pJRnF(9)nokHNTqUvg%W_
zZe=P|%no7Q&O1Ktu8XDhM@QE1%~nAdQBSCJKp}@$Q;off*3@BbZhrX8nKSsRNEe0&
z#bxOp?)4}ulln%K>Kx6QTfvYL2kWgg<|h)lxy`{@+IM%XncpUhPNp<`E)Zrj?=7pP
z+nQW;QJ}Scy*;NQ+v*etV5US}x7D;(D3E53SHxp_unofBj!7olt?lvc)$k#dd_TWj
zh6zsvp~&dgzpgWP<^9pt)X?w%?dV3H)or2Oi^-SbQFVBikd+sNQqE+vufFE}*~qn$
zSYk7?(VC?_*b3n3ckWT{bDN;Cwtlp5F8>ec>75V>7EyF^a*}!(I==m50qxDPQ^Nbt
z^UR6wnv`AEP;%_ljVpG1t*?4V)1T+&<yo3&;qRDbrapb?F~^lXT4k?$_<7B}Q)1+=
zJcCk9CokVeN7HU-5IMi9J0{H~{BilYGe7Sxnn{l2vA@)KuKy*v^PfK;&xP`z=P@m}
z_uu(^_?-6>J?Bc~Fu{bEBKm@$7c^pDVHf(ua!|2|$E6W5aAOn@n;X%Bks80FQ|LP?
zuw|w-m^N+Aka=ciw-8#DO29l{`WS?_c^3{b6TgcTD~Qf&dWGy3ECClxCTog7n8`e9
zcvG;dBiIi3=iK&1dxVKt8c`%A8cM`cf~?!^l9Gyn+!HY&B4UVg6F=XfE;BwV+Y{{(
zGYm&BLPTi35j_14EU0p`WJ?f2hlvR+(a_v^{_Qm=M-sPM%tW0TdGv7D9C{uJBx;7d
z1+_UjjlDzzp0X+Eq16olfr=$JicEptK6_J7{+P0mYi4(ORZGiR=HS@a*qoEov0(e<
z%X3DIF&@_oG^Cw%Do0RevGXt+*$vFsglIDo*9U9Y=4QM1i<ST7yjq(n^5?Ibx7Mrm
z8f2e|Tct{1rCX;sFS{87h{7Q{dV^v#1a@fNrqOroJk>TdWL7ggi8&$Qb(UMdnzf6D
zRra?V+Y&w6Wcy?@EUn=MBk^Vu{9fKuYVKGdJ^#9Pdvdb?iP%McytLP5z3;Ne*3ba0
zOCnIl7G<A2L-k;vq!N^c<S+vXZ`ZIs8A;5?ihULfuGUm@Cy`pUO%@Y2zt*2SPE9;z
z_!NH3fYRFD`ntQe63Jl*y}gp#yq+GQ6fA~1?zG(<3S~ZfNa{c~gf)@3SWu}Q20IR1
z;M9`G0Xa7yj#{Y119WXaEGMR!!*EEHHwkxaQ0k&JHa<d!HO6cL8vNy8%l^vI9m^Uj
zNeJJWyg$g6Kh)Pe71DH>2`;P4$0T=gey~-$QDJA1RQSMiQ)1B5mkVc|*UjpGMY*wL
zhJ&K&^AqH>Ou#AU6FE_jU3%l#ll}19{M_e+%=L-b^bu>2$nm<Eov<-MSE>kTxz|Y+
zBo$(~RMlmUo*)6s>bweTO|7hwna(eH=a+3ihF@0VY1zLLO=&il+Q*Dj&re*;i;t;x
zv9iX$RnadRyWQ-}-uSVB{J)OFn)*>QUtXc)az8(@8HN-Wrww7BcypD~*)4R-QQ=2K
zYm+=BvdQ*H%DPo)RyXXbcMx|tYKqwDSEdPO-Id+BM=hI)tMEsE{xD*KQvy72wQlw6
zZCD=q*9*@*&rhm}p-s=o+Sr@roR4i=UUETm>MWDP<zLA=c}?5tB)mvFx#kmFuo+t=
zC^x?IVO9=S+M}Vvi-JQn?OXGCWNj;CUX7G~%a?b}NiM(J`e!c3`ysiUjUz$+PEyh~
zz_coXK&duD?)9{H0&0a^A(ThK%2qtILN!S7CfCkdHQ#L)ZNH4$B>ZneL8IPIUb~m#
zn=iQMfpyf>=?G#``A3yj{JSov{5F1KoYpsVcZztB9^JWXvU=K6!>hbwG2ayRMBIJi
z0XuD!1ss*Qd^*mH1PLpW$hoPEvy~T4f5RK=o%X~?x<$Zw7Ohi$Iaef*%z9n;D8rW1
zBM89ANe?PmsTfuXN5aP}NQi^aW>4$yk5Vg6D3a^{daRhgN(D^BjxWF)R04@16v(G;
zR8Inmm_Q*dVM13V*ba(kU6=|CGURdiorpN``0{C?=IwLmK5<2ygR)^$cV9i`#vuSn
zapGi%9n~<gI3biHfOlzFzUUx+*2Fj$@{!LDPiw}0PM-TDh!~;}`J&8mHcn|N++4%(
z+%o;Orhm(YRuMD)bV^_Mm#6w)*6IKG1M(Ir%l`8`$Ya>^_i?x(dHK{|TmZ^{yTfxs
zB9|gbe|i2!LKFHinA&MFbDlqcex<(d=8ggR<o)Nv7hX47wW&>ZmkgKn>Cy4V6Y!wQ
zOc#MF#9{m4KE~07*GI)a_odv#D5Rcm_l>uIMeF5WNgaoF`ygK>C)b`iLyNO?m8TV<
zVIxghoq_MorfmN|`?b5a{RJenwmeboEy`X^D^LBiK?8xSZ%r?Er)6^2XE3?skWZ|S
zNsJyxAl>9=j&2QJX2`H?l2Rke=&h|0q^{7?Q2bb*J@cjGA64GP81|p0^>B`9un@*2
zNTcO;p#T`t9PM2;qpRA`7GipAibl;uS1QpPc@~zx61Qx(@tU>e0#=>=vVjZ|fzkMY
zsu&Err`!f{1bOoP(DepaIb%|(lXq#mvdn06>l{`#1Y3>Y`z%(u@iBX&%YjN;AUBp^
z`_z7oN4HlPipOLG?J*VN)dVfR+&5aBx&^LN$Fg_Kf6_`m@}7Zby=CVVm@1NqcTdD=
zGM&NX<4k;^(7WT~eoNiHf)=T(wi(nhlTE(nj(f~>U3rW7Kap-xKgQcR><kdq^6?+N
zy{kv$pXrTqkJ%=9yi$c-))N8RfxFltI9o30<J;GV&v}v;t+b)3t~JGCa6<4JIn@8T
z-2eUV?|;(N|K`EHa4KrSDphRNJ|OO5SpPc)pg0uMy)NSH$t6Ehh3;lot{nMxUY4qq
zv%&z8%ixUqfw(VvFo-}c7%mmWX_wei!`a6A+;#HRl;#J@Hg#{X6KmI?WAYrb^`x$u
zHsOkp-wiCg5`2XSv?U6pW{oPF?vg&g_@m0v2HvdE2?<+n^4T3as=#cAs{!e+NMQnb
zz{fB@AmtQV8B>S2KYx-h#l;IHxfP~oLM6%yLjigzcUSFLkIoH#<Jh=sekDo1&`Sx%
z0#zt$p|IE_R07xPrY`!#FM%oBz;^O0NhVC|>_4ggqiWVGpvpoeAXi~8qo#`v+h6NL
zfrReeoGAL|_u_5no;fFv@UWfb4F}55qXh}U86JgLuT*RygzSmiDEbZJaSo$H3$OZy
z)A}UfgPx#{BoX=4mw$IAQc4jzD-Jo%wp{j(<boncFa=0t^G&dA;X?>J!)^tb)sRRh
znA{h9Ddf8m|3I<?I%j$gXxhIcKf&Zq9e4j%GllqkWqJKgG*c7{erWv@KCp_U%QIbm
zX+T;G-aTUA*GxfcqovCny%W38+MKg9C{n1PLAijYE?8&4<J&hzGSB3~4BI59Q%!S6
zTP5@I^0LMYknCJMmp7l8!dG;07buVDPOeWjTKy(_wKgU5s79Qoh(xZ>n;$46r!9Ah
z*Z4|Zo4t{q>5x}?>`<ek5=fjUn!gfHV$!U+7iL0%unR7$N$S;<*ODaHy~@nAs&|zd
zOWKS#_vS5s)hta9xz`w~ve;pSp`n5qd1m#35@PvCtcCw<W%_ROy+sFeCg-I-hW=gy
zy9`+8b#K0a54UFFiyU;2Gvq_P`is!RZ=ugT4X5^o6oF5SOZEE7%0(wRs*w0zD!4+-
zwHRymfkLF==-|8aCJA!kQOb9Z1}2`)5Sa!I57zAm=GjqwgusswkZkyRJN72prc#NQ
zw*AdGH@s(OzP@B)>Q<C=<xl5P@Jp!YOQFIE6A$=7r<M0k_xh&0@NTdzl5D3;AM{}4
zDNJ=jA@XS8L`mdC$v;nI9c0@L{AD((z`iqU#Kj#@CX>JrLM2nb1*Qzb8s?C5S#@Y;
zx9sn#n+o?);=^=Tu|!R(<vy`M<c(+~+Z86roWv-B=pfJ0o=^VH%l_ZWbNkLg5lRLu
zAbWgK7rZt~@fS6R$HV9oosS_X#2G*Bz3^lQZYa@B)pcrdoVIH~uK{9%5Ej@fz*TvK
z>8Kn~7(da)<XfK$Te62%jXfT_ri(EhuWFB)JK%NVAI`47tiJyLRXRVz<p^GV_797s
zJEFOpum_|Y*d95>j1<SZ@Eq*}@^0)t{Ypq*gbOj7XoU}8;k_$+eeXB@$qxM?teX8P
z0-g_7Y73i#b?<=K3_}HZgGz-=*W({(?EJR*tn0@DXC;>1B86nWU0b>n+rl4L95^e7
zO{qr;?k<7t-U1Wn6n?+qmL%Vp2!;~_XQ2{|F74jV6Q2HY#C(OgcnHaS_YoYbzU%So
z&GH%BS1mMmn6Z5kb-X@h=>1Z4Ar<I)(Z8C-h7iNiVB7v5KP+q{>dJ5?J+(hNVnD~4
ze8YtZqHk%-h4#iA?RUqra05%n#$ec-mHOeB6b1qbzI{08k-M^2_ZnfnH`ulXjWDk+
z=O~%rmu3$@$(=KK4g!Fn^z^~m^uM0iknsy;7F14N9SN6}ATDUt<WrIyMYLW6g;4TN
zf6{5=XmsjF14$@;Q-4fs(7Do;SZoTb5EFr~W~+Kz#~ZRb4Fp)H0twD$PJY2NtwRs+
z$-p<9{sn8pS~YoSPKCqa)Bm%Lmwt+eHsrX9VxjtHD4aX}!Eda&`*r$Xo-CRcVy95%
z|7CLc??2d)xLCXZ^gsJ|oKiw6lg!8|8RDzN(IJ=l5i4I|fNa)d5MoIdvx;94*AzKy
z0|H~~8P1sOq|?lK!-^gp5mqVu{Xq;GU=bx#OvNc-0cNpsZ{Zh}A<$llox6hqH1NA%
z7q!`N&FF~{xlF_HgLQVm8@h0U5+=UX*9QwVUW^GRu0QgS8Z{h)U*^8P-*>3L?`+k}
zm&WxDrb|dj7=d5fh#jTz#HYGNSQsY85>#dwl^Dv@49d+pG0g4x`yDZb3VU4CS&<UK
zGS^4Z9|YQNJ7Qb~Ld9dk@T-YdaW2~38n7R#?LcMJ36v7r!$xXyCpa-l7(~&GoVoUG
z*3O5Cy$=aLJW^J=-&p(fi>|{wRh-<V=QkoqEpx`YKmsc!HlR)1FPtoBC3aNsAI`x>
zo%n_KKDo4l9EH(1^$wf}cdDa>nT`}~Pf-s9tIGk7BHs^j)U!BpTTxOdOnl?k_CSAg
zG)^;KCOOzMB)XG<^(K4xKuEDZ|BO?27r_Ff9oz}~F8RhO4+^NdQ>nx0E)`M73p~xo
zJr+A!s14Es3l;B$W@*vspUn?4*jR6oA%^JWd1V#!TM`$lEN8m<jZ1@cO}ct-EsI0;
z=&0<}@BOvugVwj~==3FF>GG+gnIC>}&ADT_W>1Lfb7Ht298@DP@s)##C@<69nVNy?
zs2`UQdl3wE1(k94Br20J+VrtAbwjNRSf>w!R9Yv;vKY+5@{CkxMT7(55(LQd)MvTg
z=iSa0B_nrYiJ?K|MNzEC5;?2^oH^o1z-*?nn=!*&enQ##w0w*Vm^lD6sg<is9Z?1f
zt3<98sGoDfK2B3rTbs7AD>Y|0p=+|K7D|aB#9=*n^n@h-3Q?NQ!QDy+1BN&P7`u?!
zTp+ol#Ge7Pvl`&w!%_za7r67UbZI!21Yq9ev8@tX%#7+DD~r|5Cp=lFbqad<x-$z&
zea73%-rvg}{ana$@${_y5@@iek{)tbc~tIWT@-`+d12&;;-%40<tUe_h7tC&-q^{h
zG{4cwZ9S}6an5H(*?t8l9q6854+Z8ICi-==I%IE{{rLtoy7m-ZbUmf*U7x9I{eOJ+
zRMdbv*z_NRgrgiD5;1zW?~RMG`X%h>7r}8RnNQ&d^4#_EHq@7;s3IWF9{slS%>(9_
zE`<<A!Js=q9)}@x+6iJ<1z@%Z=E*r5$=HKSw)+X6OZU_34K~P@S_2-NgH?5~xkvn!
zEKk2XcL_W5U7&;=4kV@w%vwcuExBCI_~~}wT)jYzeOGSi5HiVe`y!nom*1N09@Nce
zTy%d|PEAyj(gmBBB_V|)&tGL_(XMTn28)M+BA03QSB<<~Af|b=Ff255WO5s^Mu#?J
z)Q~;%)OeD$`xd~GW`Ty78kA4l6z6=q!JC<|+v4^Bdwg=t#I>7st5tE)tR5CFr8dkd
zSFg$LW-mM`&+^cLle$0X-$Er=1bYaIhIL;JWsYGOM-`D_ju2vYD=UUZLdk5}fgU>q
zT)!)VE#>bfIlh^_a+yNX0@3Uzb~TDs5E^X-x7HX-U(BC36(93o`utS1_J{czh&ic}
zOG<mZJ?-M?7g1M{y9Y<*2*PR%ow*zmOTnbo7Nzu^MTq(3Pk5L-5@woe@?;vZqlmB8
zgtJ3-0D(`}xg$92v2sA4)#0wJ=>~yJmx#mKtO&h8x#3UZ!FQ@a?55hSY=ei|sbMF9
z->*5y0H)nOlBJ8KxkrZY6dD^Fb4u8S#g5q$Mb}Alpwc>;>;xCRC|aLqY!PHUG;+j*
zOQ2p6N<zT?LPiL6(jCP5l{GAI%C(s-$mBuf*A{hGRKcQ$PDskP6)h|db2?p5L1<I&
z=e!N>R3F*Q7Yu6^y4bVMq;T5UXGR&TeRIs?KqO1o1hZ9}3aAR1qcQ{Mv|AW4YGEfC
zJ=)gZ@`}IDvy2q4(kyE!xwu(acOYIoq?QAHMph9I(H@nh#mLOm@tgyI?mrR3IT)Jn
zLcv=)gM;rL85&>+<r>K8)I?;6RRT#3W9?EK7HBv<Y-7F`RtO++J-~8EaKW&r26Gpf
zwK77Buq;Zf_Ou4#n}A{4*Qf|<MF?k+hTu}u#U5B!L#i%3{8H0qj4{YKt`J2I@kNEL
z!)20y_%PUUrscJ2UEBnL*$V@JtS5e$D3+n0tHH#d)SYPf5<XGo?qVHS2CWkl(0)W#
z;b>AYjigF7y=$ni>C;CTR8M1UEjoAYraxM#cX=I29w{b!LL#*<qiX|VFOdUfPPj1S
z3zd+jll<y{?q4f)F-R5G_|vU|+vBHqfoT3w7`hNi0qe`}c!|H^LSD(lq56V?v8FBP
zW4~<d`UU;l4Jza(cle4|6l0Z$)OsZ974g|0!ELd_h_3_U{wZ4-sN5o52Xcggp)pY-
z(X7QIAp}eEVLl>9IXN|;5N^lnvmyD08&v$Izx$Ax7&A(7JSvpYf)GoJJY+63gISl?
z;Iumh8sdW_Zbeuut)2S5lKPO?-KRxjpz`8GGn)4ZJezc5{!5OI9hj^pZY@HOMNC{6
z`CaldSm$)vrkr-Zd4l{+OweACfefa$z#)ebz=$bDL1(oFlc`P9wO1pvNiyqF8EU3a
zN=E*EFHDRhCwjH1rKFG{#w(z)CtHN!Tsa^Du&Kcv;F0Mi<9X#1-#lbm41>tDs?_7O
zULgq$DuJHN5YG}PDyxOGl&E$}a1A374o+siqa&q}GB*wQ#q@Lov!7#)AH^`8LnAFn
zW~4)R^e5Ki3==1Dh2ck)?F6tOcN>e&3Z!j8w>FGfbAyE|xzRiE(uuauBSlY-OIWe-
z<&)V-KJyoTH=L68Tfz~=sL#))tAk@)-H04#?tev}-K&iNQE7;Z2;(vp^2W#;#vu$&
z@dG_&3pV=`>t5nuDHKJ!=#pQT41v?`P7F9v565YiPQwRy^(Gy^Gmsz2V<jUb4f}jk
zYilwvyho}Al|i-#`aYFF@&i=@$vH2%v9uTCsw^tIpV@Ei8AezxC{)YHg(dx@GcrRB
zP++W(8v%iZz@!l=kqqAr8!>P)LHyrBZX2`^PCYUn8rP09DG$}kd6ImobaRa6WM&sF
z1@5BOouTH*aYwAN&RKy2Y+jglb~>Y@2*IsXPQxt@rIn%xG8bKg^de@2`4jVln8$IM
z)<HxJa=Ss$e~3Ej2WW;e?f3Q%A+035h`I0j0XstxbcpY(1gg7zU#bH%7T;$}83IRR
zSK3D2f#`4;1Qz1>PoGW;MSu?%EiKi6VURvwW{jBH7et(A;0<<)M>3CqiBsFuMCgEI
zu#fj1pFf4MSHeh#5R(iCg_xz<g@Hm$&;}y7-MjaznB7$)u@Kc$Bq<a@v_Fb(-ocd-
z;m#DB8WP*m_YKK0(IN|Al?Ru?@2{cMv)FpU&G0AS5)(+7etI~A#)2ru07=M=wnhAa
zjRFw~X(N+`;~va}BHZz_$+^Ap9xM-Md92aPladF&Xga2D4Scgo9U~D1NwUYE4dcb9
z4^6^r@})LiEYgV-PQiImAX|?(I64|(9M2wO3(53E2NC)KoX@tC3kePsWH&#TwtQlb
zPLkstY@b2wGEEd&I)P2C`fJ)qv<6&}oOlx$8euJHii|ch5@I|N_S>-rb|etgg$ZTR
z!r$K~I;E(@;!GSQEsT6OqERaY^Htp9^Gj5GCO7#n#rCjZv*AvN5<qH<LF$Noq@5!y
z0B!||(!sc*ig`cM4wHy*U-fxtp{~0J_ERSC8^GCgGa?+}S)>$B{krQZM|v7PNC~LY
zJ;9hKVHA-fE^Qmk*);uU)%O{gyLeU>5~e4<6_zGM_3;u(WEs&^s34bBhw9;u2N*-3
zCL#-nM0lo$0}rBiawnqg4@gz2=ndvzl1%pNNn9uF6MTqS11zF8N}4&L5(%0vX-?`!
z*mm5av|m!5!%{Nv>B2JeU9z{SLU6pT#2uFWD7CRkbm!4IIfOnxm^C<v%IuM>qZug#
z@J)moZEpS|)e^~mjjV)_0&1atKm3!NJw~Dg>K}WK&{(WK7FaAtaN3@G;v@=`q65<G
zVFS4%Oa|1CxoTtVY4eCRt`=C3%MuEsG4MMEE<Gx}ZfZn*ifH3$SIjOex^DNmFs?8%
zzqJVZG?}V{DFc2T9;ZZtUF0uBe_@r?nwp!JJ=|fi)8f=%S*P9L6fVN)xRjXQR=PG_
z5!W#d243w13ji%Rgj`buS|+I)3C!!Fnsz>th<!py{HhSIf4zzb4Tz!IBROX~(xB;;
zoxX$`)EJLwRxhig?+TzNVs8e3vKU($qy!*;l2#__j3#r7gxe1TfduCtM?BrBZWi%{
z9({eG(H4hyUd5+LzezjHY|7}8%t+E?u!k~V;be?Dw^m2?4mS>Ykada%L(X~^|Gmys
z-B+f^%Oy(3c6|iu%1l>er4z((q-kQ>0}U8OCtll+(L-6i!#@j?TjDK$@Kn{8X;<iY
z{JNuWkw$%cE<<frH!&_l!J*7&djKt+xbsju8LB}n*aA_qVNmhtF%Qvd<dl0;jHyX|
zwOOt|-*61WjiD18IOTYvW?WoYIw(gq6e7f~Fd*O>nu2tkV4*m-tNL83<Do^Q^u;qR
zz4Z}IvN$X~9wX4peD#_&RG;D@L8_}5MRpJA8iJiQ_4$Y-9})0fgY_N4Awhj|9%ncJ
zLLn@PQ8*Hwj7XQnNhYKhd~}iuw&+`iAxfqg^&*$V>pq-7Ssgzy8LX{WLdp~cx&}M{
zEy<-h-*0a*3+=`A2*djngG9Pr$CkbB#IGeVT6@1}uxbuM{SaVEA(iKay;bd~2tFar
z<ditOp;l5E8c**EG(=?`+{HCEf-lpY*$Ob$1agJW&CRV1U9Ujd4u_!|HvS~L9@`&H
zp_L7H>lny*ea0T$(2w*=t5Lc5kSLcm9X;BLCMjLgNoVsiX|fZ58d}WH91a98UJ;@s
zp5=0-2AXUJUM=x2=!jNq9FY!=^mMFMld8Ay#Ctqh_*>LE4E}!H1h0v~ynuvf>?g&A
zGE(q8(;_R7|4FN^Rsd4{pq91sczx|<VseWmR7SizbZdfx*oN;WZ5oY2>L=7H8Dm-f
z1yJ=Vcrhg~^-G|jS450~*e7DZ3W}T%BC9S&<0XBpI+AKht)ikwy#t}U{=?3?g{+pr
zvDG2%qXyqR*)&frkE|Rgov|!BLsQ{}BK&WI=|q`@q)HJ*d^kxQnWR6?8Ld3)P;Fda
zLm!ru(mFHR*U_e-!(=uvTAcLNR%Of7ss`dWOX=(adaKvGFGpRdgvaD@0E)^T7@rK<
zPq`ztXPQnDPFT6DXoAOzbEB8!&~26uvSdXOC6kAqsy1TS8;a$Rf=(y-qVG-SDdlhi
zen7w~_ccTzRde3XGMBNAp&f#aFV~dGM+4xe(LKg%BL|j$x}P;X=|be-BBRG19v@(n
z_elmgdhS!a^xsN>nw|COgZgCZV{YD;u?BzDm4DWBQqJ0>|5>}Qk-?H3JfuhM4>I5M
z7Z>1+oq@Yz<4ex_cbz-9UE^swo&{95$GOl{F@K?5&_Bx8HZ=AUtBj>~BQ*8#-7DQ-
z6*YwPTesC@H1%12%h(SVF;wPKocQ?#wO8;kHO)>PW(869_(IYF<K<XyNwNMh@ho4L
z+{~!E3ZaUVZHmdxNxJHebTNV2gshGs*})tIv`}I?Y0;H!N@?qsH3N8&9C?e*B&*Y@
zez-esJSRlHs38ASy?YMqL9OtiZI0@@AAJ~YyfBF7>Lk;CL{A{HyoX)itmD~yK)-7R
zHhOzAxW_Vn@b<AfRtIS&JH_{PSH2kcXv7;kE}k;<tBpmU@|c{coXW3ckfas7-QM8t
z*Y1SDkg2Ed(t6#WHg%4%BjQ7h4!d}cPCklW(qyGJIG8X<$ER{1&@Q>5yb@+inRNHG
zl&<iQtdPRa$mq(@tjs~}DHc~fwJ#^q@*;h3FgJ#pD<v%0jii%8r!y;@#$?!UqN#=S
z;rytAf&%)*kqosEMp-X6XS|kv6w**u)(%nnS0|i16NGT~ocydWc83X-dBAwkTK|W0
z>&b8#5<S_YKMjY)7p*!Hn$_{iDyQRtP)W72K)B&M;rb4fba~W5VQy21IgbEpND{+!
z$gGBw`%peL5jiDZaw8~!%F3fA@M%)VGEzFov`1#0D1Gtqeu9J$4X4gdn)V06J|eY`
zU5pZQs%%&qG)p@OxoHnP6cO+h12vS?tYi#HN?Zc!N(`@3^l-x#@?)VKw1q={)^36*
z!0qADz;yezK);xL5&E*NBmzS2=+hU6TD4$j0-^+~Zz~)AT+^k%2E=uyL+Bd@nw1zY
zLLlk~`7t0gI9~c<TjW<b1@N@;xH5n6AOa!e;8f8Ciwc(@K#X%LmVUF+7uY^QzDLTe
z-vmh~P)&S7@-&r-I#EXblITn-4uD10B$lHvGr~e4DS=SizbvJP+m&uEc#t<STGpH5
zqYXK2Ez(|)Ttu3J3cwF&XQDc-N)ftu!`kxE4g;l>b8A(e_gGfQL2@mH%xDNMBa%`H
zxwfF;O<V5PDzJV82{9Y83WF=%2ka&Kh#X7u)*^I%B5lmZN{>t$qU<izbfG&4H*h#3
z#eExkMcqQ&Ax5aOC;83E_hr83P`D?AFnM-}iaeOi3={KYmPr_Bwm3v0-~t)!AkU3V
znqXSK!E;pGQ_Go+zBzF#9o&{6i{G+FY2V(3f(0VfGwSC9M#@BEBwL5-DB$+<O>o|e
zz;?n{<dphyOvedKRF+7}*-MQ^<mrI)MlBumm+g%eDj|_eyh1uE&008xo>7aYh8(UW
zoq^uG<;jKPy`{okq$DMUIS77(htj@DkKT~VUsrNt_l45tDJ;dEl_?A!lpQR)iyADn
zP2KslN)1{C%;a{$45R|fOs9GJgxHe?@<h@<gB}u+;})}@`T6uE)GgYbw#Dmij)ZpN
z7EiiO4o40SC!}hhb<`rKd>SpI5)1<USovYm93kPyHv0nG0T!fuDRFo`gQFeQ$dN!O
zpec|7vhe41F(DPm>}HqRj(N@EisjQT%?K{)#I()W$aRwdBOxmoI+d^N^2K)l{_1T$
z_NKQ#Cf`pF7}YfHS2_rhnqQ&pU&E18Zqp&fn4gLnbuq1QEMwxG;>7-x(Gl3gK2NhE
zBXpw2bJ5DGf<xiw6}RCq`X>SwiQ#Tc_d<{|$*xhaly39IsJ+fYvEEUWQ3*Uju@t3L
z2SLDcP!X69)NG-jpB@tk3NQ}^a<Yy)^9Q4{H_#ZBJax7br=uZ(p-ubwhTCI1;g)uE
zAwXw!S|>!ZPO}T~?saY6%yu7}Bw#&I3>zcf!ik}>EnO=~C0l1g7xOgL7)X+5O>PL$
ztudENLHS!MN6c)s{b$s7tq2?5bZ5vJ0Cb1tD9O)T$|TSL_>Hl9@6<*4%f=7o_Xq{2
zj58ebsmLbwU_WY$UT__oEcD+`syhW%W97+Coi)_L7y1e-Nxcz1J%>FZ!*%qr^bQQ=
zQ`}fdiC?V2xe8B6&W(RD7*e_4b<UBF2;IUyq8OZmZT>BuwRGkO0-6W~yJu0?+MpYk
zaHpmy+l_p=E7hPcRnH>k*Y=+t$-7=MqN8_5XW)s$lHz=0z_oQaf`B#T?y4!GcvPZF
z?GfS~iy4|ML}#Hn^Aq~A(lIhI<IWyr<o`tM56MbL?Mwoe4Bnyn+bcsk`)fQ0#RMW1
z#;fn1)XPJ`Vm>}eK;2T0^xC7lM`bsL+*NcRodnd)77DgDh_HD(Pok?Ztd`|E#)fD#
zEivyM*Y2$(F^IT3qc2rU`{t6I(*N=cgFYO=(ER9dczjZSYE+*Q+KEWE6Ixb(9;iGi
z7OH!X2#fCKdUvWz>!ACfYfyeG1Asv=<^xo<q4BZfEey<qb!6yU#8{nUlS6}O2XBVD
z|HM2we&oYY+F1<ynV*Xk9vJRdKmGFD-V{As;O`B-waox>_z>|3N>1xyR+CuJ!&2$3
zVYsfLp+oyRkuo((B_F2L(IcbRR+Lt)O&`qRw61VePjlwk>zp{AVDK`bg15AJ1cF_y
zefb6k@mW0)tPTJUXNLD$>kp%3c(-M+-`Ov%z|S^^5i%SXLC7wozrsB<XhqMf?Lkjh
z9Q(A~MK8}Xx%ct&uF-}U$w}w8HyY0vK{re)#~47lOWtmbdz?=P`Vl7gTfpP@H<^z6
z8c<H_MkF)>Gef2ya-P7@3Cf6WonS6t<qaVa6Ly>oMs{0Pnv*13E=RB!fytjYOQvY8
zkCe4^k~}9|x$LBm%n-TyWNXp=G(K^S{WG2$c}qKpC*kZIniX^6bkdEm+viRjKjL|?
zvY_I@Nv_}rp$w6W4Z(>E?dKlcfBl$dJEKUa(wNHPubA<^yK7h{A^5e-U^;l}Y&S;h
zV0xtA(5COOctc8Dh|$VE=o&z!7jgs}EUsO@zD`Dl2Wy2mo^vR)<}7I7EnBhTJ60EN
zMn(!C$u0~lf04Swq=Ik9BDj*8e#uUKx!3x3*QZC`5Qu=*{~J18|8sFg#SMJ9{~CD_
zi>gdX^-ZFpL@E12CHDHS;QxRqMt*)iOmV)A-SdC=a24jSC&jlzel_7?F+3%Uf4Yur
z)C<=wF?u#G%nKT|5;Ty&_qaji`VDxoQM<>+=B4qzVdNMeShhGFb)v&u((B!~*T?{t
z*=GaR{{abTKLz*kCny5n&ap*tLr{APW%1b!wJ@o>YY88U`MlR6BO}l7{!zbf+e^q`
z3yO*!)wr3)$y9)LUrg#cC=s(izJGrX5+uY58G3tH@i@Xc#fjO8;?#u3){kV4R$N-T
zWb}{hXP-Mvc0p|1@1cpI;aA`(*QiuQI6>NAZgL*qg5m|IMITnw;E&b<UTnOc%C=bt
z(BmNGHFTvujKcoz_=yu&F*BIuW%cVB2BSpW17+5VUktQ1dbKZZF63EX`V&z2)9B~}
zM?&KiVB_=QI}dhKh!7ec;R?8`Am85XEbN$UfH2Z=<=(FwckDR6^+C-gbu+0~%a05!
zxHj?P?3m(C5HJsdt@`1?P<FO-wL(YimPg1ai@gfz8cajew^(r&vH%97QYZY?%pSeZ
zE_}R$yum3`Xwb}i+tJ9be`X2<T^b@uKs;_?F`Y<tT-g37JUr=FH4$a(-i_bk1Jqxj
zp&k$(?uVx3opJgtYHj+wg$v&UAL0%x-}tNqw#Q<nRKt=bu)I2T<k}3{h2^7f-oD-E
zhF0ynwdNEMtB-i~U;FwN<hA%ix5#wd0AdapVSD;`@GM_`9k&c9!wTp<1;q;It{D~2
z(Z>rQLP2DE9<q2h!6teNuTKcQhWgZ%mX+1kF#()NbUbn4Ua;U@UkcS9iiH<okZk(-
z<x}ImSKQQax~e8&_c0IgegFCM>u@=Yx~H&~FVR5+G>@|4_=`S#I1fPeGN6)cV*-jE
zx>4USQd)Fz&mq^xM}<Z83w?1`H2R@snpV}0QQJI79K@pcQ&m;P?_wUy+QXa~5YJMo
zOvg8W3rXAjD_Hpdjwc(MdVM#vL)QM#I3VSh2LWHv9}seVZMP#VV(*b73yB8D$UqA(
zL?<b_G8f7x+<|xn+`lihF({4u$@Q~218_pRcmMu1T=8GNhgDUNq^KLb0exwv4YL*G
zF=$$#LYxCN*b6Z#5Za;8#GhP(y7lvFHa_vSn>WojI;Cx_eQE$v+y<t2`mfnvU4DJD
zk$wqBkNqt%EnLy8S2oL*E)`S|WEc#wjmLYBvLKF-SnXbOit_z=SinHh$B(yNZ{NDL
z7gEv?rMv~@j;9=kZI~<EFxs+t^Of43Wz|U_8{Yez@gO2XbcJx1HC@lBCB*$^ZBJcK
zVY%_rfP5n(Bcc{1!Ct<JroE*<W^7A{pt!h36bs_`MTo`laPpbGV8uBQ3Rdst;o*7F
zq%M2$Ictyel$~t&_nh2X5AhbbZGYde555LOEYMH1te+msA2?7ZW;|EjfeN5PwgsXx
zTi?EWR~@Gz{4FImWmQk%#8ya8#aFZ8fcDF|mln;sKXWdH$ccmxu$auAOOH>uzO0!<
zxzGlEVd5`?YjXvH6SoyEL($>ackhqZC?5A38*hY+z)L9U?oWc{azpnd%DHRs_F9J+
z^Ls&4#;ok7^3eu&8K3n~C&S?C9Y)1OtPi+#Uy~Wm-{lHW7+%H=Bv^h9a_0W(;pf#k
z2wi~}9lv)+B}*L(lU(ieuzxG%l|n_Ve$5?y!9%Q`yqyxic%<OJ3Z-1sKLYQMit!AE
zAzChC7)0Og&Alq?G`!3?{9uH&^Uf^eht#D~7BfPxO`^l6E!>AKb0R&lY}vB4Qc|>`
z)qt{U*%f7FhY#>pUA=1N{j44iU@574b6Sad&yMbUmT(-non`P!nuXGKu5ewv))vIn
z^@@u62ec{4@4QUkiZvhO5H<9EX22_H5nFaesJXbfcu^b=d~>!q{HCZm#M_-t&cD2V
z|Cz((fB3C9S$A-oh{jDW{#}dtv{Ls5D8_Tfw}DgC;#82I|DIPfiVEmtg_q>pdLIxx
z>PJ>z$}4EHTojzNUyyf5Jh0jLpamoXo<O|$!r{+&n(x;sLL6b)`WBd9?XcaY`fJb9
zj~Ku_h3<MTRpV73G_NH#>r!Y!>9MhM@sNmk!!FN0NaY~hZ1fnYdg^WUmFSz5pHmHA
z#T$GjB7kpR4b{{0+m?3C*$50vk2j%BtUjwPs%-S6&_pxk`t|D+-C4@%d=^R`-W%J8
z#teB%%X>?37{sWt3NuVI*~fWjuN@C=N-kl{Odb!1RqyF6D?gAEDOCck7doO;INC#2
zP~PvmTib)9Rm*hEk>`_jm<!j08$Qy(DH}Y+5X~1}yBIKnT(-!FGQtix*1Vy9shSNp
zzihP1@cB#pqbv+gLS<uCdh{|n=IZQgZ4t_vt;5>9Eg*FL&9!GAlo>>`DZ6gk1dQot
z+w9%?S^;I{g|e(fHZt>Kqn9-vT0s{%USr<*wAMX+Tfxxi40rj{J%z&TTM^tn=gHeS
zZky(=N;A0rWANgPUby>xpR6lXo~${<YQgRCE#Gyg$vcr{=lUd;1yv!RTW2m^%KVuM
zZ`jo>Q|RU#^K1?U85kI(n$?R?l2_X9bP#*xs9kU5lsg5iky6!Hm|Om!_u7io@?H5N
zP3oa$&sh<lpR8Q7yqb;WrZ6*2BgaUt?tF)yB@i_B!miUD>hZPn4|X2ky|X6gwwdC#
zMfV1Xc-E#ZTb4G_V~-1d(|{h?Rs7w&`pME>g>%X5ley}nQT{PnzD-Me3iAeME~mLa
znJ`+jO)soRq2~uQJtT4kR;`M4-h2K9>u5}^Cc`LJ{?tW9KY3H-YXM`*N=ozfkK{&%
zhTaCLEvFuFCZzTPbTXbdIS5p-W;Y6itz#K%k$c3T4AADbGhK~JkJtV(EO@%!^7IEY
z|AVoUH5!xgCKl<9*TxdWdP+-67iQ3FJv4dZWj#$EQWr=GaX9Gc@W2X`bI<OV6y0zl
zM@|%XASfT*cp~P)r3=!WhCS!F>*s8{PpSI+<U=>?s_uNTi1&lY@*O^RFOR;@crB@r
zl3LtTn`3X1`uupt`8k}??X|gn7RR_gp(--9xIB}8axt>}oQUNgww}0MYU%J>>EgxB
za1Pm=nZy$u2d$h7tixKC?Ok04nErgGdMXYL4ZZJDsoSKStO|ijaCBvXBq+^Y{?#SQ
z4RW|@F5Z|!&Eq`)Ve$`8*e*@?puLyG`FdFP{-F1>4>!04l2KAcm404Zmz0Ebd>tC~
zXuYmrSVFOp7rb41+`fNi$5K@p*&}c>;)V9<J}WEH`Sa)7z<o$fLAx|~vq4sKDkK)+
z3ZywfRM>N`96E5|TBk|Wt)Jkmry@Z~^Krp(fCuo<tYZ-zJT?cFkJp9pUAd1mGnv#`
zF21D*lU7I17#0g4{xyD{sD4XL<&zw5;&YB)8Jew|zTXMW+SIBsSHbo}s~_d(%h{S%
z)x~K@IM1DTd!a_zFBA(iZJtLTQd2vK0EwHsu=Y)A@ZA@&m5GU40cLQ#T@lW|XQ_NW
zz0A@MrW~XMA%!b|q~+9!p*!8)b**^DahvtA82gj);lqbhR1bNIyJxgd#-~q5AZ>W7
zaNnqq`U?Es4(!uovoV<3jbb7(t_}NpYU0~pur$loiTx4eUgNQcw?Nojktr@B6?}8!
zf@L4##}&0$Gm>tUHL2&WT(M%~ipPfiG4ptX->9;*)aK~+aBbS@GoI<TUGzzRx*a=y
z)YLF)eXhE~wTaXK^(a=5do)iPRZ6z~a6eJ|MLxAmfg<vSRM8C^4!%0i<O%DU$8UIu
z<|G>~ed));%W=v*scGry2lM1TCbCcYzA)Kp4v37p)sD4d*|NE6q9P*ujvrr4a>ZkL
z*OO6Yn1KIr%%eLrKor-E!YA*d8O74%7+P`B*<!E9jr9Xsa@9sTDP0{Mw+>pW@?Id<
z{+`6idNz8qS@1bg#*S?9(oocqFm1bC8Q-MO(?U-(y7S^}Lauds<E}e5?q7Iq>h|N-
zn2C|mI$>dDK2whSeF_(^C9*Xmpe3j^>{kAY8lTJEy;3yMA#yxhYts1jDV7SuuVzo|
z!=6HT7eaOGI;zd}aM}a7a?_MUbEC^qGoC|XL&L+UVWHXmqShS}Z?+!$4?0XCPUPyA
z)~)e<MTLqm#O9<Smv<BTg<mo8euuL27v#{^DJlw}U|FfK-$Nm7U{*)r>Z&mnr(93C
z&%jgpNp$od5c^4xY~k=_U(K6)%;j5DuL5)9s7GR_ycbJirsJg5NiOxqd}r}im%eQ+
zgK>WOU^HDuGvnw<#c)7k_u7<|5s6aA&OFOJcP-%VtdYWoSOqQ5xD!hwe}UHF?d!V`
zI@e3kHZLyxj!t(;lNj|tR!vd-iANHPZZLP-?O*YPDE%#4z8rG32ez&#CjMW5vfpA5
zxWlgfklL<P-(2@Q_p%PIYP`p>CXI9T>*65I`Z+S&mbf_ng4X>4yqlE^c7yp9(mALk
zsad=(w4*}9@|ftm+k31V{Epg;Elc+?Psj>Kza)-eR|S#Smc7E78)a5M6_JF#<q`dJ
z_p%@H%R*3Z7G#gU;(ms1i(VG6@3^Cmj?M+%JYTtEDO|k02VVF7T&CVzRm<A$q7>1z
z76e@{^e%FstV>`1xfU9X2OJ*x=Dj=L?WANqb_*Sxpp?`~bblFg=gLa`k0;w@&{wHF
zt}8Y(vmf$mHC?Q`?Ph&?aM?F2yY9^n{0SvjbwW9}d>SuUtW<c`GRk=IN@E4T38TGx
zXOMFN!1j^Zf^!2=9d@g>y`R-l`Kg$$;fjd(7BTSs1?8hh{VVi&<XvT)l3dh81h&<M
zZaY_O`4c^FsE1|ef=>gBH&N9yQjR&S-rJ;pXP!tj+m03QGZmCU$0NjQVQ8ihOEBIk
zto)==zqW*qXwY(F_lDvw&4Y~1!GAQ0=PI;B3VXc&L=RK@Y+fI46wj_3BZij0c1Nky
zqdz|4NVm!|Pfp3?$rY|oiKhig<lt<fT->y2)1szo6fL%1FW^C$OpRA)jpcmUqp+?|
zVbp;6<TR6+eOROGXb3l-^b?g28}}P!)wru$EQ%kf43pv}hKJG*H8T1Jy87Z+D9J-}
zqh%#)mY^Q*|1xygxbeogXGTgKReX3IZ9k*l{7jERV^m1?@+;%f!Vk-P($dnd(Iw_9
zQ9kvldR#g8f@Q}mS<8lS?(LO6#<|@0vpBRgpeZHPR0IkRI*e<T61N?+2bISdN=<{e
z2K4hTsV&`f>})RgD%NbLfR_=UR6dnnxRxg|Gkr*N<As&m1uDx{v0FscJ+yur7F=lx
ztgjGGU%7uzPKt!;=GmuGcGT6G{BV#(Ma>O0tmROxRKm%o>@lV0E_kOZkf3VRuxC~0
zU@@nT*9+a0*|TTgXclgt(F9+F59>ArzbU@)qsowXM5#n%{lkrR#z#kSG9fSS{o5I}
zpU<5;ODo<k<=rJcRQD0owjFSksO{r99#GObdM#5w%d+`o)}oGEi%!1(2$e1TZug)S
zjD?*){`lh@v_ns2m@S8P<$(k7izUN2kxAa6rTMU8ALYVMlCd94+s?${e@mRfKYW{m
z@_7%^g^%XO_DmCF@9~>vf-*8Xk4Fk%mx^vKoKt;;ye2wEFErd2d(9x;OI#HL9zD7R
zIR4=0>@}5#mRI1Em|3Kp$>JgnH8wI{LKUn<h4BZcTwQIZ(I&??XkxzFNW+tK+xSnA
zB&s2atH!T@Y4)^|vd^qw-vO<Ho1jA7-fv|3i)eLXCF?EdcQzy4$6>{F4oR0l7Q`5u
zLJXGPpY%-Q$X-t=U!VV}6rX1Evl%4cLnq?4DY_GnRUnN#ES{})hoV&FRaB~sYJDLR
z;u_1TkR81YrP%&c0~`*r4oXUMP{BRx<1n5jep@aNm0zpduv%8Nv=YM;+VkL1?c4g~
zQculnIKN%S+~pT6LE+w@nf_dTl!2?YzSJI0f^ackQoU4IJz^RAE6hAT!_JLF5Qv5O
zc;EA~^Azifc`m6sdLY1wsFp(k^u4{*kP3_`p6Lr9SJe$;5tvwdETG$ii1CI-(~h2X
zD(_NK_KKF6-PApWej9a{IVx?ouA7~KOov2-7fKuu4ULR|h|zy~%&o};+2F`T#V5s+
zS|lMqkvUJiVTwT9AqF*u#>QyDX5tgpjWnX|2{5mXT~qEr54tsXRHL_9i5A03I3yyr
zeDwOP^XZLSGX!kv&Ci`%i#p*YY-Vw;9%kwYc8{a=gKYcFci;BF(&;A#U+P<3)E{o2
z0p_fDK}3AX{UtY^eSnGG9W>8t*RG|2eb>-q2OYLl$bPr{e!H|q*svwWV*<bGop&Mf
zJZCPK0+w(vhz4>1kB&v4M@9G~Cvmk@0!JAkPM_Z~Vtorx-y3)XVMN~`saYKw>OdKe
z0nu6`@3MCD<`PZD6}xScr&sN)orJuj&xi)R2#IR$z0gpR6_!RV9Iu)bVN45<mb)7s
zHJBrtyXY$!-E*INESXKIg6JXfpP4&%u1x}|;MwEYg$r(QSKn^-u5P7|wx08Bs3nAD
zN8-AlvDzQPO>yga9<tC;KZ4`Y#n-4A9CG1|vBPOVx7=!p8F$)?`wt#mK!Nss_E{K-
zQTDVaW;OSd;|qV=RO9m1ATX?eG<)5btRI6~{V6^J8vJDozSbwPmLIHlA5uHn_AvA{
z<{QFXD??zSyNZA^zN;nX6R4VVi~7Nj5+{44JD7g+nWvdv7kJWt-IDc8zE~-}W5;5w
zBY%K^Ddbz1EnB&=4Hc!*v19i-zwG=vo^*Emr}85iU0$M_H&^o|AGkAb$a84zwH1aU
zSF6L^nTn2qhb6mhxMZ|r=Xc!RrFz%4r)I;BD?$Nq7RWX(OBI&flvZiFCDFnFbKGt;
zvRncRiK*Y_q1c{nW592WwgOttS7BZIZtvRQ5|OT?7|Cw6cF=UI0D!;@;tksU&!6F2
z(rjKmbFC$Pw(bR2NKdpqIAgUqNU(9v@zbZxHjVH4`YO#9;+z`1*H)juc*$M;N$f(V
zLi=8Ci#8WIK|#Z2p#k*8scw7s1+9-#k^6eOJy6|b&5jG#jIUgKpfIO{LRr35<-lG|
zyND8ou=?dKb}4qE&a10n`7jsQ@1ja##6c;|GMUxEai(M}nZrR~*#=mVCdl~IihRHN
zjKAHk6vULE;+>CBWx2Y|y}4R#F9X!H?bREhox5$I=<MpJ$osdhd!Zq6bvTz0aQDS6
z(T))F#<b@z^tAc|*zR}|&}{v%V1Col!=W?pGiKe+{*4oVohn>RFQZ41K(JU02vPn0
z%Gd}<GahJ;I+%}5c%SPH`0uX~t^<4V&Wf!Q_3jMR#;3$KiJ`6DlcN~r^7MmnI%~)2
z*XX1(CW5QcPRCi6c-%@>=djZ`D^Nu<&~l6{Jzy|Ds_Vd5(z9^idwq2lOU$3MN47>G
z=196bSvK^J+l8&uKNxoo6XLcpm$Z!<&dIttBzpu5-(OLudG<w8X)n2{9A02>m^wuE
zYWSZUcCh%ixp&pAdn<F|_cQG6>~@Wn2-G~iW=wA5Ah6M&Cd<^UUa<Cj_*fLp9+GIv
zvgY>m^i+HQGCn44toDwy>XgRvcDn-y58mnmpqJ#J@6mHf&{3dDF$^*Clv(l-9i2y)
zzxB1X8HC<E9bv9>(d*Gb*)i9(kyQAY19%~Y+jsGiw_Z&)aO*fA5Y3m?`$c<<5r0zi
z03*)d+uPgPXFz+77NcHLxA9eg=kkGPwh4D``<j2Mv7j_D{d|9zm!CNQ@cb^%WR*&3
z*ij?PzJq`4aa~<s>q6!nFWaL%y`d|`Kb0TI5ZhDxOdTTua5nD}*O|#I=)F^t_lj^<
z$Xy?r1P;T~^kkD((|UEu?kAxD>b}?<6YTn;IXrYfIQTpu!%ZS0Z{gVap6>4Mp6bwZ
zqWn8Y<96BeS_+F5q@=XdgH<!Cqg9qdzm|kZtf@$}%ry8T{D#G)ea?<Hi0W_~KW;xa
z?D(TgFhlRzrh=&b9+2{f8FS2Dt!{iNYjb7pym@;Ofo-6NT>jvk%a+65C({tOp&vi{
z_2|d2%)UiPb#N{{^V~9)#_=Teyu<W8O80SXyfNXMXtz{*S!1S!cV-Fi-rck9@H)@j
zzl8)zvEi4FX`<-5Zx<6&xAz3@y3E@$hi_oxGt8l$p7IIE8a%;+5cc8Obw0MT5v7#7
zWJY3Cp4^otzdX}(f~Hq2VdQnA@?mDU*xB5={&}Au+p}Wv8yNMyh>Y?PiQhk(Q_C)1
zu)yy9^(LAol=!#05gpov?kS;BHO0yr`cL=fg^FpE?+|6Nz`(wJOV7b!7ls_WaEr2z
zkGBGfIIgJ~Et7w9qQI@PPM|*IfnDAoBcpZDzeUI6lX-OX3`C&AJvFFeQ(;`3uZ9++
zjcKeo*Bb_>XaA$DD?=(i!iDpy%oIDS&lbAn#Es2LKKP>4j2f`9cJEDu&iWn&wF`;K
z+@^ii;RCK|+ae;k)yDA_l6b_5$F{g^-!U41)+J174?4+5W{L$uyY1S2o(|;oHTRDC
zHEr7_*WX&uysP7n^Dj!Ub-Thc$l+AIQSM4-x8sXj28lOX!PF(G%xt?3)#tAw2j0w;
zU9>oMO-sy}@|YH{@oFudmY6941-H*97#(Ss(<o{RCr1l3{qYlLd5QK$zM8`LWqs0n
z3`{gT#vMccM|s!&4&~ZLN0N$aOG0!Sa!8^`X$#3<mvM-W<dABIQln`nG1QivRaByk
zkjW%eBd4O05+;YC1BPtLshKq8)HM3m+YkHtzQ5tSE<a@ECGWh?b3f}|_qy*@#n1EL
z517-4ebkk>z*o0Y$9V#36nzi6Q>V|RfBxCaRp%WFn3ghBAzvgbnji+cLc_b%WBtoE
z$G+z^v0)H*X_Iy^b24Ny+{Xx#k2iD8l#c5{>HM=|wHxB?DcoHzwS(E>xK+Q>Kv6dJ
zcFk9{`_m5^#kF0n_mspPHc=zkYf`>gQ-DWbF1+8m#^69oTC|^McurL>NHnhrlg5Sy
z$3u=;is2j1s$0U-WW`}TtAmG-j!o~g`rEj6)(Ir6*bNyR&OG#W@+dPfxONsQY!m?0
zHM$m%D$+>#yjZl9=iP<P#)_#si#A4!lai7MtC8g7<mqZSgQ}qvB+iX>*Bxj<8!4ju
z6JoLd1Fg^e@*Po=fTzS>xqE#$c;f`Gek;2MwZ9#8oW0dE>nO)k-}Aby-~;{yz3|4S
zs=kfZJKtrT^*Y(;uy<2z$Gv!93=#>#nj6spwOp=J!}gnGlYUDsW*0m}AIAc<18+{q
zQd3*YrnpN75&P@Is9exwT-^D?VzD?@z!<F4eivzvS_q7JV=i8t>;5QMslE6J(bOnq
zc}?^X)hTBS`kCPpT95G<I-Fv_A$x=7ddu-uBwWw?v+8cCC(8|^DZ*~cma2)bebw26
zP=n0dAA~VvK>xp~s^+@AN9pG&K`&m&hwkO{&bYdlFLRIbx0X9=ry*q3)Yo&&_-+Yj
zk|c8!7A#nvZvlkx5Q?GHXdj$c1ki(b5y5?#ZSv#UI7MjbPjM=Tr(BGollB+7g`eh)
zdc?~w&}2#Jgb86fP{ZZ6j-L=QfeD|6)i9-Nvz}q<Wh83OGcBlcJQ3Ljy;`6CDjyyT
z<O~7@7*Bc#`d}wOp4o<MGV?LoObu!Y9|LMwHs6SI^b}Y=&1K8LuDmErCs@_y=B?Kk
zt=P@6TTufk-Bb*}Qi9tad!pjU5%45b(|wDr4v)bPMCyGr;|%!$s%%={b5L@P+IjPP
zcJR`em>Bubwyzm_2p|z%VhCLQZ%Lj(qd+a{vK#B2ap{6kx>22zm7xD2xTDBl8G0ro
zZ(_(d;l+gyGeQW9%rdTwI(W=ayzRR;O9DT=UFBT~CyvXLl*x9iHzXUgX?Ev37_K^P
zJUcPu$M=Nb#$sBQ3C|Z8j4cy2h~|qh8ey=)G52^L{U=&GC>|b*U=y~)Bg3g&lTUET
z)n_z_Mcp=v2YYs*hMKD~eNIc_o#*qz^_Cai8)$LmvxaIe<g<k+U~e(XVaEx1nQHH@
zgw_BRXEoho4^9%x_L!6&-xF>p46$G>&vJ&5;L4o#?+^%4OyN(F#|sTsFo9zMHFz0`
zu%E_9kYuda@)zlioN2Iwkkf@d|64h4AF5;xIB5!Q3q2nNZ!0F<=}g>Z{t+ecy+|ul
z1tOa==EaNT{6EUF7zs|tD+>#qP6VkH$(Hk1eq7Mm*}3<w!)r#_DDWpvXzAwDqCHbc
z&&H1;L0W%jocLo--jXLAIRPvp5PM!Uo(sTEcVK-j8)Q)Wr0)sq8cV6{Bcgo|UnHXp
zrBW2?w}t*VM?v&sn$8=>NrsDa+{Xq>Zt!yym}N*S+)JDeRyN56YlP<Yx5-p>d~)@l
z-H-ez>W}P)hnwQytMRF$R1p$rEBJHRw(mgSh{iO{Z=(fd6D+<&bmznfwh}Nr#2knK
zle()>M6CXd28wu?k38u<+V8L<AujG&xRi7uA_c}vD&uEfzs-2^9u)W*6T-9}pOz0&
z)6|EwaQ}bCK~YAzyTB_>*<|@sjYP9EXr`J9x=$8$=z>z#;CnQxSi-yxRYCo_WF|8a
zmr9dR`p*={IVb4<Lo5)yT}B@`gOEm~v5%2V)0wde3G<!RMY*rov({T*BoE;NGWjS@
zVj2LnTAR~ZEnVFiXwuk(Abh;kO3$YU-fcX}PXxoNp>hpl<Cbscu$qVhr5vR=C?zn;
zl+u2rtCg32VKYdJVRXqXFxS2crGP&phZjE}#vK{e4=q$w{2SoN<`8pQZSiJRN(Uf9
zy&$>;MuW{i%wX|H*!q#5Dm5<3zJwJ#xp3aRY~RIKR_<xO?iw~SxQ(`Zv~qI9fZJu3
z>sHDq<;xs?H?23LC=&-QVaWaJr<vp%kK}HyhtjL{mAQCObK7mxjD5-TWpv5hC<s%P
zQ7&z!YQ4Oy5SZrDeybkh$?8ho)vG{!BEgGfB28438yxKWFmJA@si~d4eM`vNB}*(j
zs=$cf^qsSMFjJbkH#R1QF0tH0KhK27gqdT}yfHv@0^*Svu=;A3f7KsA_12WbGU4}q
zfBxA6T5V^c*J+)kCROR}jMEt%uT~?8n`<x^dHXPw1wL>HL5w)7V~b3e26}?9FN&;)
z)-nrJbrt-C3|;>7)hMhRjO`zWE|8EetQW9;q-DplN0}Q=y+*Psn$#F#pa2ng>=^ZU
z7`$9zaiTDyV=;8?nmT&I=7!hFy1I_FinC0hN}_*Jy&ocuxLPUeuJF`GAvfH=>5aX3
zzb7ThNrPW(Rlx`fDk)iXQ&9!3Tis(i3sSY350rVr4(E$iMcB{D%Vl}w#r6{)(~ivi
zojohV>`}yEWiRbkljZ|ryjJsMVWHu*^~Y<SPGL}cUiADc;^K~#`}OmpgqY^oLGQRR
zcrT>iWk0=(KO*JBXBo{47ukh5a+p&NBYH?%-WIzS*vJlCPEJnov*4F2VIIQp$VfHz
z#a&vD&4m-pqbv#NxRR|A;02u+U9Gv|!E5#l9Tl?0fx8ur_ywq8FknQYaL{XwxnXmt
zYS!qI#jn_Y7G8Pc<=-A59zOwoU@3iDYvu5T{1q<t#Jv0UTzx&g+XxtPjp^euMe>}T
zn5DMKrOV58+H>_?WASaq@xSL8`thE@NQG{&XTuY}N%@vIg0O>CllF57-Lg>Oz;_)N
zh0uK|Y4LvX;gf`GS4rpc-1h77gdFFGL_+I+DntF2q-{d_nmxYVM18g_HoU$_)%3ap
z3PDh>E=28}FxoWUZ=kQQBwdfzx>v)3w;+I;P#O#YTlBW{7^@JoB8=|}xb5w3K2`9-
zLUrF3qA18cD0C|)r{8eIpHENEH>Dj1b(HCTKza_`xU@Qhp$*D_wxqCKFn!i6ij~!w
zmB{yAHZ<7cpS`hD)3}i^ZH(>bz%TM(ZFXmIJ<bn;69QTGIH0%(Jk@i^tca8Vm*S!&
z=H`oF2cvv$np7jd_)ygVJx1pwi9F?Mt>3;Zpe;K)yT)u+6*%h=xB1{~ookB?;23c$
zfNBRFNG9bKzsDVFv>t~FyNNQT$!N2qqjFPty19l%j{ViW->-dmSi_!GHU=Xi1;j}k
ztjdFKv(HH*YFOijk?1~?I9rIu#%x1E%m_GT+W!=v2WUkKs3wTSi2a3AVn}3!W@TmA
zuw`D?($sv94j0Sf0DeR~j0GSe8xTfoU7<Uo^XUb&cq@gA!-Jj!R$OAc1?Px9IIfiL
zwJ9QOB0*Ha+-$?M&?%Pg?&?U$n+iNFK$tB>s6^)~`d4Aj`pb*zWUo?oPEO3rE88j)
zqoN2;A-Z`vXaZPlSVO`_*q>q+imi1D+*;f^5_fS@W40v|-gsXijrN_LE#sc#J2;1s
zwXLI(q42!pTfiyQvVF1j)Uf7FsZ0KtRGa#v1rtM_K!%<hO)f`U-Y~*MCfX*!hbW^T
zeA)M`?|Fwz(srhN9UFUN-G{EuEgeIEtxmv$(4~>km`Z-JY!Cbu+&c8UdzJflxwPM$
z5yO^1>lN9XQPU5&4?(y4xNIh#Wm%txvp`#oLZL*qIUaAtBitllQ4Eau1W0!n)260o
z>oVD>KfAQ}?B1Q~_H(n3oFm!)1C0o2)kc|r4n+%jUs>kw5E2su-@p-~%~iZ#a>K;7
zbjc<wE0kFpX72H<SR}B4HRk*Z6t$>6Y9v%e{>&9~-lM8}4t&CvJ-~wxY_32+r1uH(
z2b;IfhgDi<^u8)u;6{23a?(>*@cG?+mcyxB$?aUl50iXw>0k2f<n-9$13fGdeuPFW
z$%Vr%GY}^LGX$aX|H|v$Q1qyHe7vMp0=GXxss!m1`A#A@Nl4D9MV<jWwvTL9$i|W=
z3oPL=wv7q?DlaL(fv}Aw4*Wnz+Kk?}V*fX@q1U%K9(r2H%9JIu?XRs<IPz%Zvdy{a
z=c<;{mzbDrXNh6wR<>th;Hlwx8hqy3Bk2dc8@rEY000s@l15vFe3UhigsW0VyL);F
z=hl9D7^GppqEi(pi`#i((fy-+%Bbbv1O}7x?NwX8y3^-d+2;Ui)$~$oog@%^dZa<t
zhVIXzxB)YRW`>b#C};N$FBO}_JN0}IhsfNi1f_>4gCN1+D?d1rJuBy<C5wq{=wWTr
z`O0Ieeyf!PNv+PzPs%DE3$n_@UGe>01Xw2E31ld-u8ZnDH&L59Qnx0g+EE)NwaI^b
ztJp*qF}(xiThpaeOHGLyAdvdH?upNSc&{OMM(91Q<kQ{(+u7wmw~dX|)z%U;Fe#tE
zSiWkfi;Hn_4t_^U<>EYv{IQ-}uhkptxpmk!lb&zARGuI6vts7W*zc8+c4<%;)_PI`
zARqFr$#&gIktQ64bha)tl=pG?^#{$4^q%x695t$sKdYRf8tJVP>79~x5&AqDd&4S(
zh{{{W@>PcNRjzCCKYe}kSg!Hcw}$o9c<zBs01Sp8=D6MIzh3?EGlICM6(Q4?5<l}_
wUoQH?OC$d0l`2E~qJMwezwiA2y*3<nuw_e)jttk1m>%>8#lbq?%InO30NTcD{Qv*}

literal 54795
zcmeFZ2T+t-w=LR$iWs+IB8f^;QBaT^w*f>21W6)6iIOEt#;k}SARv-d1O<c^5y?SR
zGBl{<ETNGoIl~*Dd;9PI+^Spm+^TzSy*lspE;iWE-QTy?Tyu^w=2+|ASta@PYna!N
zNTl@&Cy%R=NGqR`NOT3OSK*nDH``v}+bV<8^2hNVkJ)3{Uiijv<>YyL5{c~&@kQg`
zGippC?II~0|5NR1#9*t7L#uJ5%unYh+-9eP9%<9>Kh3KqyZ33@8u^DOj8*<zW%S2c
z))Qwh{d}46v_z#ifJx=HF{|7kEhZDYR;$VWVRZJ*y7@h;S+_Bj?Fs(O=b&&byl0yJ
zYxNO@aPH|&;dFAnm=sTL`+ST0@N{YA_+s9;d$f(NGakRL@M)o(diJlMNajH#X5uIB
zJu9kzJ+o!EH*s5}r>kj>{CeWV>Zdfs4||W2))U`lH_=`uzLR|ZkfkHOpS}5?ehUMK
zw6zz1?(~?bF%Kn?Uf-yztFwGt%6-gy{@Xd_*xcOQ!mTtUF00f^;aWbLi@AoY{?A{+
z|MV_C^_g!c`RWV}4P_3!Z?+q+6rp~gXRpX{85i(em>GQYaYLhHy>2Qs%FQI^fpCIT
z*cOLE2A=NDJM2~bo}>5AM2M!eQzIO{C}iSK>SkC;a@@tV9L-OPE*nac&hDeVeDP#*
z{?eTLd~>^!yu3WQm`aI`4!6$QC(`P0PDy5Q!hO(?z5I^!#ItYp^_uajr}_s6&zPE0
znWIw;KKrCe(|ZRLrxcW=#~p6kv5}<aLt@r4ZC_rRwy!y{ol9Y=)w!M3so_$iWoqS@
zZ{Hpb4-X$W|CZCfx1#jKcHKwp%QMAc0>-DNTI?zNHP_?ihM3e<r%CHy2h9&>lc_hy
zeFdvZe3=AYt;mUqr}1!VbD<9Aj91OJFE6&^y<RZKzKs$cc%7P{OH10?t@YGtowKiS
z5gqA<N_}f<tM1UA9TD>E9`BmC-dr0P9<JIX&l-S{;KOqce&YSFcIVd-??eqVjVj%$
zsT06;I;8vief}z|^wtn+w3l@IY?ZUCl8J<b#P}VVh25#9lq#v|mLQk$-q^G>AwiRh
z5_;*M*DP}<>nuDLKi}U@EnLfAk(A!{<o)~iIg?2?mGaVK0hVdC8VZ5LZv#*Bm5z8$
zXIF%a@HgA!d-zGu^%0Z!(bI;Q;-7_U?TIP=yj{QIeY15qhrgtNjazeb-3&7^W<8<$
zQ4%9Lg5$lF<tE`)A-EF3JFIpmpM;0cTYasm3E)l6*rTcM;kYywnr~EoFug*0elY09
z2JyZ1y3V>);sdWE?8^2vx{c(zrLmMrd(L#;u}8E_=s0E18P~pyay55qb*$&~sJ~-r
zV?&{#XMGqK7pLRW6HKQU=rP^uOg*hXr%KEz5l~wj<$s!6SXotahg%A~c&{uqsn*oo
z%&W6$oidmI%D@k78`n*0U7V~Z_l_3a=g(^x&uwmQ9*+~r-6zlHsD``CrfJ5~r{bsb
zU`@R+`khyIVa6Ig=ZEYIXy}dbd6ZWw9wR*Mjg4WAsixE?7RjZ@HcCD6^Yc3sB`KCY
z`1bTvyVvrWFoD?m@%alMT|^Dt1ATnQi>}JOwR+ze*ThA7?Ofr#YL(S+OQy?kCN+=~
zgH`fI&!Q*mdcD4vM-@g#x>;kcZ8|UXe5%Q0Q(IeGltpqTcfF3iqMy`M1FK7S0A1b^
zF<}uNQ;k3R`}-TG=G&L0^OqM#>=B8^g*O>y`{ZSsc)N-9Wk->k?tb@Gshlr+P@sES
z*llVs!nTMhw~d0)3q?fp7qi-*!CKllY1Z7@8fj0F5((9@Q^2aL2n!Ok@9j2~nLl48
zMvbt{9(teqp8vx81JMiJJmV8zm8T`A`eOWhYvkE0$zF>C6%k^Bk&%(PQy))#Y%E^%
z$Q|=|{cdjVp<$74sde^H2r*#S=y#S>NsP2m(}KFcoaR?FH8tHJ`LjTpEcM7^MZr(?
zF|A!pEu#fzi{sVx^Pd#c5kZnS-#RkY<b>Gi4!K}mYFo?}`f-EAYvpE)x_jqZ{Sw?s
z{lF*@h0bj*rte#wnu(!d5;QqO9+_^WcnWWn{3%No<}EJ1&zH4VQ_sbiOmcoI6mdtq
zi02~<^}#6VZ1{@mf~QFlw`3gqzxlM*EDfeos+Q(Qq7D6}gjsBIY%$EPR?(6!c6m#a
zWYd?CPNys^EaV<A2V+gOAb7<lzn!!HuyVVRztmJoZ@5j{$UwA9Z<yG^&yV)q0rDmb
zGo$C<Tb{3ySzgew{k(N{u0B6%E3bx8daG0UXfb>A1Cch-@=$(?aj0&{TE2{3%VYe@
zf%;f8i&cl1eMj7>5-!X0?a}_86ER_jE*;f)trdXFI@~^2mp*obePI_po5R^6fA;po
z%Gc*p?Mk^qjrzaE&wk&Y|JdwnT<o)FyREFOGCOax*cCCEcBe)!TAEZo2~IIAo_aSw
zm7X8@GTKx8f_0{G-sl4xqx%QnpBx)I5Jz_J;q_4JzMbu#j+N1J<>UI<Z!e{T<#)Pp
zhUz+<r&PTBAUe}=Ll7aQ<2l>281<M>H|q%Q=t9v0mU=3u{j2%a-krR*2Ohqjy?QaD
zm{!5jpPrb^-XR+=H|gbB%5=_@jn{m0gy-B3vFR3jK}5=#aN#7%QpQN$ynyZZPZ6&D
z@lt~OqpyCy=RTRJUy0-scurYLh{y}d;n^d362#QTDMdc<S}69az`#eT#K^_Q#BkVC
zt9}Kgbn*E`rr{mY>pUVvis)pmn446#y!rEqps7+|nV!Z}NO}$zPo#q?w^BsIh(gV?
zJ3F7`PBrl|@+h70@bJK_zpasDF(zgyJ%4eCvy|*PnMkAWwY)e@;gOjwJt89VGC7&A
ztLQ=bOPR$VzRW`VvEFpJm7^lgDT&2W=S75sdP+F_E0B-^Pu$<u(`XvaHs<D5pWPPB
zs4SU6J)V`4au}=7rfqT9nMWa-=~Q{h!Sd<6>D+hk-gTp>lutF=L>CnmMNPXS19g95
zR6gV8=0?=VC?_K4j(9E4qYP5r+UNC%ahRK%!#_>$usM}r&88NK-%0hSx8Kto&F0*4
z_`!n*nWIH4^STBdbr)<D1Km65*!vs{Wxjc=kTrfJy6t40yX2u3!)q_His^_IJzi<!
znObj=Kb<>LNtK??<oqG1M2VJ>A@X_Pud8EepDBv6^%zJ>ubM^%BCZ6JP$fu_{Q7k`
zKz^q}U<BrlD5#V?^UIe@9_>44*J4{dIs0+?$vQ`0<=etlEL}8Dofw{8`||=8NZ^au
zSmOd}4x(guoSc99wB{UgnRqv2ga~3&K`)QhaTohS2mQRHhQ5Auq*K#Ag|W_!UK#Bp
z`NcckI2H7+cHY`u8}g!^OE{2NT&Dx|cpfN>5p_~mS6A%&T@KXzZ#K=rj;(g(2XmXa
z_$k8uHo{HYE?6G!p5&!Z^}q8xFHf3SPJ!JR`jON{lwPI4!Sr^|+@0+G(zH(nPO+}#
zJSMYq$DpWsW!E)BKe4#>#;@}u`Cfscp;Xr&v7xRz^O1Q2If-RE-c+CWUOBtBx0luZ
z=LdyAtfVCBXmIKycCUre-Syi0jxqg8K-mXA(5!1JJIz+_z%!qg#F3FzDco$C)INQW
zC#poKUMDDfIE$AEYM-sVu2x?C@h?|dN|=3l;mID2d=O~#RZ(QfdA^KsKwWuteXVS}
zThCxjt?3FWBp`)ABBRL6eArkw)1)jtYecE%RX#$mZFpFrZR&k`55ODimH8`Eqi1u8
ziRKE`2}E%ebsNq!rF0Q7h9nqL8pJa_JG<jw17Lvx82&W?wW0M|@yIY2tkTqX;-)GP
zAVECJN@Haid2x;}O{*fpPV?u!t5+<WZZPzZaI8B&o9;EA-h%NL>+q&~i*#-L<%PmA
zJ!vD+I>%qDbZE0I-HrESRX=$7M+YhEMOv!IC$U@t{5=K@E!-<_-@Ywmy-ZnNpr8=R
zobR%)b5ND2woC}-F`$clxc=Mlx#&5yoo<6E(*F8LwjL(z<N*tQtv9<A=5kd!`ZYYN
zzJI<SWb`1kHd*q+Fy+eh=vl=u0WK{13Zj^=T)WMv>wySvfKm-?R`as*?DQs5u*!F>
zUFXL~Wx0ytPwm|Jx;#ZT(3eHTx*&^N@yVlNcCVaz_So$QwI6YsSy{2YX)R-6$ea0o
zKX+$#-}C!+C=K0N1IYtnTiY5M9^+Gv+}Y`RnW8msu2pZ_2AG-#go*i|+)0#O6cwSU
zvs`r16-nlbq0LLP6t5~}&#|B*!ot0Y`itgq%F$7XC?efBIy(Ls92`8aJX`yA%x{Y8
z^}2`4qwLEm^=F=acz+?w;fFWn{NxHp_1czV{3)>j#@O)(VNz~R8^rsbIsolZWtLq6
zHThC?YyWkhOfy%XZu46ia`1w12m3t&e{<%BMD+3N=(UzH^(Ef<7R0SsR>~6{LGfA|
zcR?_Yb==t4n~<1Xc5A!dV<LK%C-s+u>vM-4ZzOyCYg*r~I&$c8xJ{l5h3hp@hDS%z
z?X0@IX6|^E3}=r-F)(sZw4CKRKYs80zU?|!{<O~Mye+*v7e4wfS)*;Gr*6Gai+N&F
z;6!eGXTmT>)03S%CGAO-Xb<C*;)x+5yBAlAq!8a8rhlweo}_l$@S3B{wjGxhdw~_A
z!oKm=+bHQV)uXx$(^zO_>bL#8Ei#dviyZtlPO<z?dbUTuitotsV!nfuQ!k)TV^jOZ
zl}Y8IHoo-UO<X{3Nyzs+(e8GE-9TMS%=KH6Zw80P`0Z?6{>)4Or<##v^KdbHlR#p=
z%Ud$->05^tZCuX<5_o4QQ|wzpZ&hTt%+jd;;(NAXX+5#iiTM&O8;d^OV+5OPCO}&`
z(q~ZnLa&IzT>g1Afe9izi*D0$mRacBIIk=49i_-B&}eSr2LW*?T{bS|7Xou6>yjdN
z=O)CS4xP#w(RFThJS+5CQse5}kC*hi(^raTj9QCaz^}gX(HwcBWK!|C#$I!rQAu>S
zX{4h@l>1nzo(P?Giopru$EZfWV`*5HTnYrSkeq5Tl;W|uzwKbzEHyeB5bClPIX{m{
z#?xJT^qw-Of;8@hTEt>==E8*wl&PNbP%0v$0)fylaC140>|y29Y?bcd;Lt4?J$r_@
zc~C9~N5>ulHxgBoCZCEWh=LT!nK{*DaVO_UDY#-3XC{`9{cKMtk4sOto8zzf^uv6P
z<2C!R_Ln1Wt=-P;;?g_*3qv?HnJMT+wdN+=W8^W3_Lx!#WJNM^Sr{$;T3Z{8kCa@T
z_$szE)AbeDJw0zSsnLDB(yeK6&{U>;vR*%WyWZ7jre}ux`^x}<Lj|iuIZAnVk6ctU
z@Ks(V^H-5NPX{I$JzHTqc3ULp*T5y`jFk!LUC#y{?JfsgdzeR=`0+J$yh?(K5Gzk9
z-q~zAPec&`NRPP=P1X{3hU@O#o<DPfKwIl(a=aGny@n>23AiPOvHo>`>~qz3T&<c7
z?jL+xujgi5_xij?-FMbu={B4EMLY1=9t?t+=iJxmI8-YIJFLJBt{Qb^)Wv?y{8NF0
zKt{QBg*vUj7Ic@^#h-o>!x<6C=(DXOp7o~9#nMwLQ4c-T^=AsVk750bZIqfgOU&bR
z;}W209%aW2@I4h}v(wwr@_nNTo!+Hy(WiVzOS2w;%#dCwf~7~+*4FlTjJWAfwYiND
z>3lYNc{W-SkT6Wf%d^OjEgaa>7+ASX&uyqS)vxnxK849NA|Nq2Yrm$B?XOUS7;sq7
zw5sCL9k!5zs0q0;KXf#SL^YhzHMTUJFQcjJsBWFVI3)>yZDwv>hC&^HuqSYKUnax1
zQv~!PQsV;XWrez?Zg8eO)r6p#*=>`_3$5*ox|G<gg9i_K<h7&1eTzS54=&S9Fk*t~
zM}_Zkbavi2C*{v3A&i0{Z$gQR<djP7-=FJGdc|5ydxL;t{5Bo~7wkK4ZSTb}o<x*m
z`2@uHiSPgVQh6j@(a_M4;72Wpr`cMvXE30E48Vp<7fbtNx(%YcKo6XicjbJ+IL{8|
zPPY-ccNpI#mlwvFB%CY>!a~fL3o@Blhbs4C{HGn!ubcl$IcoK}$?|`wRmS*BYY%Pq
z-qa5SSb-OZM=wph%;l?JS!Vw4eD~X%I=z(%10UI!u0(-<=s4D@Z_PY^_>jO19fPcX
zo%gC&wiL<nGsMUH?vxToolbTVgEUpJ>NsirS-Nd}I*-{G`{ctUoUJJju7~i0+z)4P
zM9+PD8ORwu^ND9pCwVQQWCaR6r7@S))YPOXUY|<^x$J&;Y=cX1A}xL?>_B_joB0sn
z`@+vVG8MI&`jOBTq`YR!^?wOOK(%5&3+MzPAAGB=RnI<y*IcCQ;=ajoH~bIUf|Bpt
zH%V_U*)ksW&U;Pse@ICKzSkPsTqlu~lw@}K^2tB~q+pKJlkc9oY-Xl_DGW6FaD638
z>1(?aYS%rJ6e}w$5pSmg59nkZVq;@dPrke;fO+4YZe?axnqk|uU#qgD9{LgLFsA}y
zqN%AVL1$C&Q+<nbcsFfr?LbZf%72MHortHatE(SE!{bx{cn>*nUbV-Ew1WXc0B-%i
zMnL?Zs(1fu4bnH+i6;0Pv;ZPcDSOSG8^(+g>)Xu2qC6aR$$iK|pXHkcF*2zpm1Tr3
zMPR0;cV?hB9&dqtk(KhaE)X~8t$pqs%>?REu#M+<xW~?s{(fe)`8({Mq6E8jlUgRE
z!y6l=9}`)DptHc|YNPLomy*(6#f5adB9keEdO-0Qw$JRizSeH6lxJhs5D=U_etMah
z$V(t8=!*K?KD@~#M2U(&_p%qMw;Tf6`QLAq5J%gGywUwjE^4wM6KX1xh;_@;W<7{W
znD+{awoyO#ZVvX+$A=A7H8n#OMOu#_d1?0#4A_I;^x~b#m;b&eb==cgWDe?BIlpos
zAt!pg_h%8|8*!lk_Y*qh=O$t)kiH4fIOyfMbN~TA;v_20yhjz3m_W|V#i?fAx^2YY
zJPoP+rnvf!d0UQ)LZCtrcPs|4ol59Q3S%=}{+h3c`lGy-W+mqbQx~mSQ1X|0ZI(<P
z42c{^qLk9F2i^O&*XvyT%Eak`gk{ri?KF0I|D8$t7N7c~HC<V%GK{>Y()y*Dgv{0C
z{GIk*SgWxZ(O2KpIj$W(!Am-J>D|e<musGLl2?3QB+^l!(d<|cfhn1;-udd}m=D2&
z$e9z_R*)1jC%&AnA5#*x#6qg&yGDyRhswDUJXkY(#hPleN0L^GL5WqdAKSnu&-F#V
zOhJbYi`25$?LU)W2jMR6h>(yv{`DG&3uLsGkIs8jfkRD>on1!Ujpypex{{NVecr7k
zM&*@pTrD#3eU0RvmguUgswlE%?wKp1R+=JKP48H*c3fMu4nJb13Vn~>GW(girR8Ab
zOa9ym)vWAnV!;vX@Yu0q6!z{3iy^Hv{ZM}W;f+a&OjW9aSj|8B`d(cW;?M`jXJ%#&
zY>-Jij_ZSTFj?VOOHMPa^&A=;WUUL9PAgMqC3!GB9WVQ`o-Qdrf>_h1$Lu<C`h9yl
z-|4mzuodE?N5K&2vOayw`)5eULk#;v`E>WsyxN4qBSrrn+Dq=z-H#=;U%q@9mpGeW
z=ZB=Bx48depH;=<!^iRlb8>TAmvj`*oja#|Hq(7}>|I)#dgh+}f8v_dLrpQFCqnpi
zwR?PC-30Z~Tg);l4cxE!ZfTP&-GniNA1B$R(jt(PKj&wm_q7rNy>K=HC-46qT?|iy
z&OAQ!j7rV`e;k??b8fMf4>W?Zmh^jxa(h>m4+tjfxXnTg{*mg@_|`acu0Jv81!XhS
zM>8Vflg^f}s9vVpEKk{-!`dLUCsZ>^DlV3jpPcPpw(sQ&s4he)j|;cfuK9ZbCnRU%
z(R4!X6!M;*==Zx(%g&CD#y!m!CVRc2=Ub>_e$F{D%JW3Yd>LVPDxWN6T=t02gXr4M
zUKF*WFIQYWPmE}$S>?j)c<aqKa<5$(3z2Oy&g(v?Ca1+`W@b{k-PUgBbNHH53ss)G
ztJt4i^}>8AnTR$K5gwP>xKL{iO_m7@D+I|I==Fi2<TZ|rg-yS6GJmvJHp3--P?`iM
z2GT%eO)cNkFRRuZ(eQA8TH#U5=3L?Lwa``ZM2I)N&DDaS7zD0q_n59EFoxc4C$8qd
z*81}&PiS-pD!hlw*Y!0S#aUW?A*YqD>k|^B%X(Y!C`oZHO*o83H@w1IPeSl1%^cVe
zF|wq8^^KnQqCk5GJfEHL!j*h{J9A$@5m$u%5A{D^Dt71&(UR(V(>6+~4sE{ObL&U5
zM)nH4hj#+eh1%M+QI2@SvdygcMk4)}HnINmHRy0w6S3$EZa@9|-oGpb+Yr|+x9eAP
z?GPu~qa(mP^w0tRGwtu8qJNX5Ir8msfOMk4==OY#q0Pj-y!yl9f4k52pTETa%5L9(
z->di)jU<xBWE1_)c*OKr;e=Hp+F}K+AJ_fe96dzGd~wBP>BZ;--NH8qmcG}cpvYD-
zmm1z2r6E0?3i}NKO^C@o8<CbvbMd3m|G0Dt5zlJ3%CDeT_a9#3zss=LFUg5vAW|hp
zZ<eJDwfzfPaG%Xz-Gus0z!d7TqN1Yu>o@^-C;c}1L@zyg@x}ge@g0dvE#yQ9uSbp?
zQG4?wz-FSaCO2<NjCB^ora4icg_+s>xxPiG)VlhFu475=dVl?BnCrRn;+qxK93_B=
zxFJ`_!^u<&`VIUS^oD3}o3&)v3e}T?X9nxE^Xrb1lJqABE`l1b%d`S$B$Mv6p&YH4
zST^Nc<~zSASdSFN`*3GGYx;DYzW(7r8L~n<DQjENzGzMFF}Wp`f>lNU4Yhoia=!w8
z+K**k{BRx2T0Qf5zXd?t$0IgvIna?`pxP?Dz0z5@U-O7NKD)nu(%;j=g&pZ}I>MJw
zseo>0_Dj|I0U?#_{t?J^`u5g~_0NB0(ENo`qI2;J-qy@r!i9y2*yxcxtt>1O?|C}5
zERC_(5NJ1N!9_RA!7P}US=!Kx02J@uzvos!c~1RRt?<E1IZ98C#6Ks~pI!T(#PuIm
zxU&8B0{p)wSN-=*1O)I$9-XLjpOaC~zPbCt!e_ENlJG?-ga2{8{rAmS|NCBz|MghN
zX%Z$9J+{i1%jeQg?|A!Je?c39FNt(pmZYfYGDPREmVNV*%cZ&ZaC6{k(tbHoq|s-e
ztzu}zubON*wn2=O=unf3t+Rf_MS$2_SUNYEy)<sNx^<uU`-0oYNQ++L5)$;2IYghC
zVu-f2g;jfNtJI4u5^2Zd#AtBrMQ(4UFCe14<Q%(#A&ShhyPsI^V{q^u^m)d;DWLjY
zV^PyNFOT0l;oI%Fi_zjw0@xJHS*xY3-N9g;Gg`!1N_0h$7HOhI%pbK9;Dq!h@RP$q
zz-~c{y4RdcDyiYWZXrRDl)KGea_l5B$Jmql9PV>*XX1Zp4I~oBZK0?2-$B<-2C};L
zJ&R9FywGLuH6GsHO*GV_mlvo2th*%!-y9>_Vx~|!Ev&*h?{DWPg!}ncVb_U1q~+K1
zEUzw2PEO`dSsXlYO;ulCe`s@p5-@Y^eA>1tg@ZYFI=_%DL>`ZN?TV3mkZ{jKdmr)F
zMK`muvYr6)|J-@oaMCj=IC@_D>c)@H^esZ$Ka$qnBDt=|B@?z59tFs8{%O+7Ad>^L
zb0C0}af(bdi*?3s43#0#3MShw_HkwozAd-=j}+<IT$&qF-Bf?`)vgC_i(Y8Tt0%m$
z)9_M0red*(_t%a+wO>Aes+ArTf%wgYMY~6JON$Pkez|!uD*?^nb(upbA_A@s#v5zp
z#wacQ9)eDT4Zds=?@!gLRo!07HkzE4fg}Oc8;587JckyS!k;`L2z0FZe$!(k^)IHi
z$oe!p4$w?6w?Kqd2o%Ymt+bGg-zj3Pqa@mSljztpa-TT~C4{(TYNT^-gnd=%;&gj7
zA%H^W9!pdgC+1kTmf>lA$FEix{0h4*+}kR`1m`8+6WvjA?o`=3v#)lLTB%TRD^n@b
z;ULcr1@(l-W(@u1+;*#Q%eM-Ulkzsy*5^SYe);U#GwN7xXNAB8{l2cy=?{H1F>ZV#
zU&(18J=}{~PKe)Q*3FP=Q9svc2);e2pC^e~>_-CyPl6Bb*A#MRnH$->2o`HGL`c_^
zFAs4e1hum}@lo@Kr*3mFg~YOlW`aaWVGBL{UWCqr-idT~Jwe3@0jdQ~B^P*3>UYSF
z;JOL@VpYpheg2YTiQ|On3;n&he^s(6R?_-+o>RY=@}+#agA*1Y5|nGrD3u91H9vo7
zE{Z?Y?yCo{iz>GP`2$(IO(y0M^mpCtShsO`i2A}OPtN6vgWB)*0&z%b#^!=cLsCh!
zQ~#L$Y?-fyOvmzLv8kb<A+@`1tf&0JCcuDci?K0*VBXM@3wiFDhFP9xepgVrrPkav
zvskx5oP?Nm$K%{}SbW441iY3OF4g~H(1%o4Kb^0^Xc5wi!do;wHq1}<qP_G&*gBA&
znAJmCw0)i}psyIT62iTMF5kw1v?z$xXwtGN1j65yyt(JsdiGt7ztwSSG*$?N+HILc
z@fiKQeLRMJaj&xE=y5&tJ)?@@ruik65JG>T5!k;=>wunS+(qKEyeA)q|B>8F*ocVu
z;v_s`^>Ygl<_Ysa=E7Jxy?YgcG&D$AI@3Vt7o+lBLEBeb5hW#|@D@FC)4_%m3y-Cn
z42*V5v(#UqhNgA^JSs18bERMqGb8$9P&Oq98xwl>r$RRnpZrE|lPtNnfNo<2+$R}I
zR>G|gUx{X{7?kR@>VFN@m=@jtMR(u-x?=p_@EHF8SMd+^{_i^$1OwZV11N7E`bLlF
zpuAEcFRYJENlEdkRl6-+M@~ESSH?wcM8>VIKJ<DjEiOKO-}?3IrIyKf+@o9~YUyRX
zwy%a95s1b?7WZHERV!EDL(k&Q-*t0^nYDFt-$1Tfji%dVQl1P9N&3I)nTL+WVirn;
zdVFA64SCLSS6UqzjhjSOuHbV&Qk(#Ej#+2BdY@z9m^HPY%)?bC+^fELY+3j1+`NsY
z<?DMgCciRlKnq!6Bqa~ELvxpus=DhS{ZoFLiPZw2IX-!9C;cs`mEoZwAt6yWq975e
zWj^mrJkCDw?`+4NPbcF|+1B;Z1po16m&xN<;f_3(h#ao&`dZhcZa7N|EJj>he7`p3
z<Wg8TxXzO&Ph6KeTI%XTh%BC&(Aiw=6-u}zp<qhURKGPY|58_{(UWjnIlt;OG{;}s
zKdh7I2|AR>oVPw#Kgg)&`H4BlgL>mn>eVJDN#@r`t}A{F4=00}2G>r@9~_J(Fi0(^
zsr~%3x;Dz$nH-csZH<FV(yV?<Q@{V9MnAf)P&)qB^dZ){G^bgqbp>ZL7<Lm$?*9v+
z{C^CZzxfjtV(|-{7#lr*-l*k^O^AZg4DO0JFlA_c?1{P?ga`{ZF|ZdGe^wvc*n{qU
zrPuPb*Dnhr=3L-X;Z4G08+O=Gj%aWXqTSz!CJE$G%^^Ep69n~nfD%Mfg6=7G^a@Pz
zOf6rG{^^hdrD^qg;RK9?tH_NodB4_5*@IqORe0M(9Ka-BBQEdlS0xGKZ+q>n>v?|p
z$i3IM5KWJUOLuzEzZgm#0$BNlwP2_aTV5JjM#r2m>welKpVMUgmPQ+_J#Q?S+zl_|
zu=9L`n7shJIKTR&q4^6vmS7TuYjHfl-<=a{ootsjA^*#`{)Pr%!{wJX2;J&rr+sRT
zux$~t$&i4nBs%C}us3WwpmnHEm?AxI`I|$)3d*O&cEebj0E`8z2uJh)Lo{>}yQxM~
zDq&*+s3Cgs0B;BMazxR=)goMo=xmC^_!n<i`z?#GK@-rL{B!muqf!Y`-m#DgWf{nh
z7|vcSaKiRSbczIEf7-91==GO2+Ta}tlqaPRUADCm;KhxwXP3{6b_v3iPD~V0?!gcm
z3kc84&yO3G(X<ORBII3SHVCVVN0bDZ1<{fwtU!R(c3%{Ddgcbm6kNIf&|4;NreD^7
zmRE3-NX~W#DFlWInoco9)5m0IOEg=iDl)UMjDtX#p0&!Gt0fcB1UZ_5=Fc~aX7;6@
zcm4{o(dATU>Lr!n5%%JC!IC$n-vjq)Ki(Iwbve!?wlh$}+RU7b&&(w3^pEt<8c8-j
zlZi(J({uzXxek_AsN$zXACDgheRm*_DLM1$-E|cUOC3)bIRp<CoXK$4tN-lC)+<SM
z85X2Z8_vvR-@qzLD!4{Re-()7o}VB0-o1Al8nhr`mBS_>=`(_{>;fw402kXODH%}}
zDKQQ^YEXFifJ#oXK~uh$3}~X{;lqbltX!!=*2|@>A8OB!-mdQ+fT`QGdGpa*Yqnl)
z&yxbV>+CKK`mAT)p69WEPWLm7B<)9NAHzZf<>{!UaQN3W9_1(_5TPSxUv55p_(y+T
zQaPCDQ8_ueXBKg>u}l^yQrpC*1{+fm9*^O@_I@H{vH6cbWQ~kC;b+;71tM&~ckjgu
z&bp)v^s@Nmlc!GEg}FO@wiN!FtScezG^o{~qYxcqi2wCqJA$v{{kgF0$+`<ES_k-=
z?_~IRO%J#FvWf)~@4I<(VWmiW#S4WXQTyIA&juF4)o2dx`Rid9CJ??HuefgY>b*6r
z+(Gw<`_1#1e{1l0jUTI6Ax!z5PC2#aJ#g(7n5PLCe7Z|J&@|-qS|iam2OSaG(of)E
zs^`w3!N^)#T5271yRosc#cO$ylbc&SH_x(B0K*~&I)fY7Keltc*eJE}v7qUO#kom)
z<{+5>>(s^_LgrhLZI-D=xCI4+)DtyQ%xm{YUH#60{(~}Z<G#*U>vTbzHc8j%;h`fY
zc;##T{3uwg(UP%SSXelzs2B?axskCkQx}HxBluO=5wpz_PJ>Ui)67pKpMQ*rjldum
zygKW2QdyZtN-7eZ^N?l3A*E<(#givb28>7AjCGe5jiOnr^;}G6->|)dFYi#Q!@D)3
z$CZ>eXe0(lL`3ZAik9{ezp-k)9rHMF{jV?3#J6T&xeW{qB(>{9|KqS$9<glr!}|e?
zNMJ~a#&Z`K5%f617LjMRi91d9*UH&B^i@B*<+q3hs;lu<+{naa^Y-mjf%Ej$G4lSj
zrPPJ@R?TwMs>sN|v=d>%R@&EIaCNBNT0n;0dQvNjVxIOTMt<Wqem$M;CnNdGp4YnV
zJ$W^g2{-hMmoLBOxY(yp+YdGz7I*Ad>vp~60!RN3wCJyOr=~Yp3L~kJyrZMphnmx;
zOU0uk<$o@vPK4|`7q{i4G}XEP+dgI?^W(0rbNSnXBu>fRzx&rirwA?Ntz8*TLrrkx
z`M}tjqQy|u(Q)ziIwslzQ1~^RqhoH9wVE{Gk}C;A%d_!3Wa^u@ZjEBG*?<4U5EFQW
zi|ZCHigab>=Ows(&UG|R4%ClBa-eg$H-&za?ZS+$r7#QP=*5c{)$h#CVSV+eY<>3;
z@4tG(1{3TjC~|koj>PT*Ht))C5xBA~U(QRp&m2OBOe;wP9BVt=fCdpGt=Y~2Nr#u<
zUQ^AqGlu%R78CxU(nL`EqUh#jxI@-ON;nfiC(`a7#3Apu!@|1x{ewhu9&^dS_)vqx
z+l;A^_K}Haf7U1KHs*Oqm{OuXo1_K=1$~5~u9a%Ce!AVu>t3Cx)8J#<!OQZUYfnhY
z|E$C~j&>DyQK`ic4j#y`U<x_J#2PQh8m4LgXwP5H->iJ;k@vPue?2mN;loGCxJp}c
zS__73izC)8kC8L>aB%#nC$qDAOl<O6oYZ_aPLv}OtBhxh)zN9>Im@PZ4Bnyoo|z>L
z2ez%vUl>~}<u=7BDajgCdOXvv=k9|C#vgC5FUo*RZd=9_Mpwj7#HOtRw(_ILkFVek
zV({|vGB7l3d}qdpG2|EU8;5C3d1AP=`7uA?>8%o7S{SFeAem-DzB&|M`G{B357YMW
z@#7MF{Iwk6-RQ9%bjZc*JB_p{-r2ymnt|bik-(-MJ5FNNx<F#_&N2Vl-EEXN+sh*7
z$Ewg%7W_bnMcA?=K|RrTR)=d)>ah8@y<Ib4^9H4XT!ig@#i~^X0%1SL$78U+>79A4
z4{GA0SB^y=ZqPq4ly}UNz{?N0?#Z6pZ_ZIz7{xKud*1ac*2#`T7rjSKKN_S|XV@CP
zw{9(ila|!2Uc5}0#_J92PB2{ld%Oe6TR^KDvK)Dbn$qlDrH~9jtE*osvnObhmC*BU
zOt*<H7fa5a(#8^4Q7}NxAGWK&OkT@*&_e(XBOMevY8fxt!6o@r@P4^5Q7*2}KXgn?
zxCiRV^iSQUhmrL^^{{$+dZOhWQzAOXB4)>lO)U?~?Zd*tUh8IWD@pw6R6ks3ByiaF
z`|%jpSrB<%he`y^xp-BsQ0kawM;qYPJL}e_o{YY}%Y}u7q#4ZMT3t#o#ysV6&7NKS
zhX-e>3!BHLFD9RTcJ!Gcn^Zun$JV$v)YW-zA#Gpsy}Z)HZ_mxovv}2!UT$PByS};l
z?~K2v5V^dhESR^nq~v02mg7SE@*+Fdfm4EkZoa1!qVW>o8y|HBL$|hD{r(biof6f~
z&d&GK1bRxC8(x99amMddd(Irnh<$jzcJ`}nE0EAQ4jp<^qQy$&xpe9nc^)Wfo4E4H
zlXnBYol#Ug_|8fpT-d55syzB}9t4^eKf$mwM=n>BN-Qp@>dcN<eY(4ekN0-&?&Y{g
zsGbw0%x7opSF}r=w)xSVZu5+4lQSyUH3ReUgrn#!Ra))ie?Qg{E=<_h2`8oz5}c8d
z(a&=J{6klNUNk%dbB37b!qsaQ&1n|$SFRi)!Q*W&K0TD)Zr5AEL<$Yh&;0(X!Lc|%
zw5qbw(RHyTfTPH^@`=#e$d5(>OhaoVRdQV&iJKYdQ_<ZaPs`SUl5Jgl>-Oy|De9}7
zm9KO%?Vb&Y1!i+8JlrYnP$HUqA>BHKJgrunp#Go>xplkvd+dd17;<_^re}Arj&WS$
z=GT#J`s1KqRNL_5N)z+?<n;yQ{H6Z!t7{&_p3&U?J4)9+DK&bo6e*7VRi7JV4~dA>
zUoL(aou8jy!!rY$nd2!3KQ@VNCC#r6N=mkLrJXLcPTy|fZd*6{!mjz;Y*6v7(Ie9O
z>RdO*-TKQN$21*m8s0oB(O{;IPe@Jn+8?OOIx#x&kw!V{8h`XT+r9sS1ABIs>gzu7
zVk}tL={a+07rFA7ot?nL^puF0=;5!*GDFR~u3?v3q3BYVzswpoi}dEk6vI23b(Q+p
z7Qi#Mib;Eo^gn&Ni~OmBch=2zq%pPFbO5)R<vg;X+sfzsm-URN%fl%GUVAcLtr!Pb
zll0*~crdAYTsZteuG=*2*+h+l{=E}hxt^Z*dwM@1b&3_)nwZ3u9|kmt^_ZU`L7ZnH
zK`UeN9!Sov8Y(ht+rq?T#!3kjd|91>_2=lu|2a56>6l75i;1yuio*|85_XZelGUr{
zPA$2)%@3vD*EQB-MS2wUo1Ypwt)US@sk1A_buF9tP^aZ6BMm8rD}kr%J@1E)$Hv7m
z7tc1|cyw#+JkN#SVaK<_Pnem6;_f6d454qu#nJDdQFenKJ|r!qDm)|Kx_Pr2C71-8
zVc+}EH<c!a9R=6)E{KSVJ_aD7ed9W54roVp8iWDba3Xo<k;@P34SoiDdy|06X=E|#
zBe~O2lsfa8=eI@|Hn2-qAZV*<V&pyENAb3~hY<P1HsbN)KD!OstyR^}j!F61pm{LZ
zmfPHu84<zyGJ4>-@c4w#KO@O!h`@%~zwIIr6mhA+!NzLoz;Xft0+5B-`x;U>;PMnn
z&PMicscOX4C#c2K$~M2Z5_9a|vhDsYK<4==ld;n112$h?FhEl7gacSsZ{vV&w$rBV
z+l%KW2XeE9QKfymP_hr3ec@D!5T)tPjW#ng`&3*kh$nWDZJYp`bD3|DMWs)Yc1T`5
zG&(vu*pyb@_ti4JnfM@VH0Z|WBmv>b1AIZHpP<ZN|7<{W5t*6T3n@8XA!ym27wPM}
z?qzgMMa3DS_8dJ*3n*f{Z)A+U%{8Q^rbdqPWB0M!Z-B;Q5+rzd?f?kb!v&Or#<0QX
z?JO+i*H^CfofZ=j31yRTBIXGtV~s4*(_J5*{k@THq5ovd(3FE0-v7i_<eIm}r%{v{
z)~qSC6gCtHLrDazsR2HL*l(>Pc(H)gUr!!!Qc7*C00gCJ$h7An!Ku$lLqn678|MD~
z`}YjErLX1a6=DK7jvU$YSEYWXpD&Hd@e+#55sSJCi-9)Rfh24cq$`^Cmst|sx?k;3
z8|Brjy+Fe@5zE+ouzKy<@us;vhoQ9kG3-EMZpS{QXpFsKik9#E+Kn5DJ)MRCR<YW=
z0s?_n&F?ocGq34ZPsB#50YK7+Z{8fLFcCy~!ooay^yn*1@=omJVg+OVV36_#h@In_
zt}4b6<+=-dUWJDV+O%u$-qk^+H}mslkm(KaD~FM`Nbvd(F%5FQJN|TX63%s<d=5rX
zM43eGy*QyaJwDzAx8vT*3msekL6CQgv6b*MOi=pW8Ev_45+2LwJI(Ir3_Zim2rD}i
zo4CUji8#;2Ip_q}0WHYMQqIFVFQto;XJ%&)g9Lo<>dMV}PksPy18mSSGBPrrhH+PR
zb<Jwt#+58QG0>VVa%UrZ9NZ9k_dZ;pjQw~SEv)UD@ddmIs8{yl#i#PN4|W{B4qBKc
z#m>xJhJ~2fpO7f|gcADixGYlI;|ZV<=4_-oQInql#6V6asbK{LvH<+><<UQuaOQ&v
zi)Z)l50`n)KE}wx8A{ik#$S>j-<;32YnL}>HN~WoIm>ZCPD^XYwQJYjS=9T1tpo%H
z9zA>ZVSWAN__!hV1P!)khr*Os^GbzdAu#VKcEbO4F2KS9Aa5KpUk+T9tYUUI^>STZ
zJchhJqAF8>LLUoRY(w#mv+F6t0I2}xHodnhhfY$uv^dYez_4#pd-v|$In!-!5u&!&
zXUD1Ipc{;gjK?ls+=UR(v9A=G7-^3No3aNS$CicDSFdJl9~SUWkBY@)Thu2T1DX*R
z4NQ9d#tl^1wfF8}i(;)N0AW>E2Ih?jQ)CIlpB*365;fM#$jC5@SXaO}_W>CmK=k0y
zklQV)GuLkb5*mT`0x^|?rPe2nL0jeR+qb?Cn$cL{@+W5_xj$ISJK=(^WTf`d48Xz5
zwFz63wA1V)K*WXg?(fTQO0z(s?f53qcrGg0EJaJwFX`31uaD2z)#U2xvvboU%F9cO
zQq20=ot>S;N>Vy_*eCG?Wz(tY18fL=q^nrmn02u`HaC8Ll6vXmZIsztAU}^p`Sj1N
zeD^ooxqG!0P_d-4k_%aT8}>UnitbUB`-kN1(F+0<0GPds?akgfQ8iKT2LA{+9kl;n
z)$7H#+Z);aN{tHJ+uO~$@;g7?3B9DYN44&sFxwRUSllr|Q{*ONz<vLJvd(uQ#2Ick
z1<R38&E9U1KVJ6O^<PBnWW3^&BlqB-4R+kIC-gPOdQ*0*UfrcF;s1R2@#CL({_TS{
zZHhko4{SPq-2LdkFfl;KD8oOM;=k;L&vnkz@A@4D%Xy%=A&#rLz|DHzZus-K&oecK
zK5Wl@g5I#rXW9Y;@sHZs-v#&h@fVhl_R~lKF++SvH=z0F)@DU+Ew%F+vt5@Lh;og8
zee92b&1X0M#{0y*-BVSUWf!yibiwxb%-+3Q!WD;)`}y;V&F9^}FKN%7&>d+VfBcQX
z@a=yXvFB<BMSTV!{t&8-Vz{vF)Zlq$Vat=~g1)+tKAg{V`=9q;SbHki`+f5eHW~4d
zKx@9lpW{h4L=LtPcj)u3H5bymka1-<gb{=4r+=P_6yKV9er4moU5JmWvHLPMn%1P6
zD!Wb%Di|0%Z??tm5Eg>AoRX$a!<{e=r8by*%RkqfS@0-<R(#*SQqke+XE&N{7w4x%
z{NRwT#5TN}P;r19dytb!7tvoNwwc_#b0?Jh#pVmZ{WiIi8qW;T$Dp8FNu63icGP-n
z#DK0qFO<b^$-3cCD{lbgv0;7N+&S>COSSuxSDn@sJ&qz<ASzuy1!ZL_v^KhnxGxBc
zMWP}Qoi?zEe*#%$D1g57r@Onm+0p%nvs;y{t*rwLTN-oSL@*GACaFy1MUc(~d=ae*
zPEO80{`jLK?doqZc>Fk@L+mNpmoHxID8{C`*z&_z#zKC}<I&5ak)RW3*EF4!^}<Ff
z;}CBr0$e~$(@aSQ)9HYO4DMc&>*h?1rmQRpgw+5ZwZZ0ef0$kGqa9u+uku^yxO-RU
z>Zw{f*O9i|BHJrh-jpBK_gWMpA(diZ&C7yW*U5gSV(=1vMNvJKzz2U|v%9^Wy}cP!
z4<J;oLx=uAaR&*&)-g$>Sxzo4TclU^<Nq4AsFJd>LW7ixDO#eo-*1*51^|ZgiW1(}
zoK9}eMESn)*`O1L0NA>E6nN8U9oPmvm^zjPXt$Y>@kd<}OF%#Xl*&z8w|)kFEC&*s
z1t#~&@dt(zM9Bn<{PO{`(CRg7_K1r=0e>da+)=Ol?VX_80&VvJe71<SodY91p#ARd
z%*<8u+JqBl&;Egnjsb~*Um^%9q^niZ>1(al)Q%4~+#v<5V?J^h%#pZEK;-jxdWA3@
z)a4uI0%1CS=QHiNNN}v%ip3E)U=*}Q`^lBEn|L|=26RuMo~*2*r>AGxS_{0htZB&j
zci;wi5$ogWpLDM^cu_~}#kdb1d;ov-#Wd|%XcDd5_L{G?uGN}D%HUHXQ@gwIi^!&T
z;;d4xk3f%!+G=31=f{s9kN^WhLW<y2*m30YA3_#&Mi3&bM=n7zLK>+~x6zlL?Pi2f
zEUTfh4Mf2h)%xA#n(N3kVRZBxG9o`h-Ff&BtMfCoPUvRohW8DZ7G~96oxO&xyg$lk
zs@Jk7%9ZHVpSw^7*RhH|ynA;wA&Ma>Y1ZX5z`PNGk*tY5y&Wz3Dpcq<+DYBr-H#kE
z>zzwj;eeWNJJ_!%<~DTz7fd3&Dty$E=tt-j@F|KKf5+a)2npv6-as1}tY2TB7bN8^
zFU@-$<omtI_m!x~W<Vefr3M8Ck}iLHwFy&b&6o)QeE6ZJ!w&{5tAV<tM(Ei%WkZTU
z(-1G9_+fD6{a8D3ua^)|)?UY!v1#O)O?zH<Z|@jDL8?7f33v9U(bCA&bQ}mx&}GaB
zLf>cPj&9+QM~}An?UXu&&7+6ID|2v7a-NAV;5K0bAS<n^io+X0uG=vk8XjH_nsPqd
z=^(J&MR-Z&{-pL)wYNv_lyW_Uz{Ck7BE-I+y4^0i@vgEWm#Yh2^(!K2^e2*?#Pdxl
zJG(Ma*f1)~`&6~Gw9E=eeS&#4$B?^5aVE^>O`HBab7mc2ZS0>nR`Ky>U_aX`Spd?}
z@o{@G(=_v1(hR858eQQ2;vu=a+(D&Q!LvR63)5YySH1Xdx$R9lJ!-nBnjIZj9bJDq
zC@OJ8_wwi?F3n|Woi!tr*ee@jJNv`*){K-AKR&}Q_b=@q?c%R+`eMiPap2`^<DepR
z9r%nmfIG{!oUq~6Y>5YAE@PbFIiydYK3#n`%%8td2!j4b>j0KMng<3EkY-tN8*z>U
zb-#q2Nhnzz*o{fwff?C%h!`M%eCVi0fnBgEExB2%&0|`ZM8p;mwQxUu=&w!ufxIq1
zZAU05Rd=m`#a9N7LAHkw1qLRsqr-}%L`A~p(jHL#n&;uxlx}0=?seGd?%q@Jo2xNu
zLYu3xjEo!JTvDR4MX#V~arml8jP;LG09U6O{WOsfDWcL)Qvsq)P;7J{KO(U*-~asm
z$P%(&fsBHQCTs9_=(C8NEJZc1i5huq;c4v21g1l^i{3Jz=cAfMNh{NfJrx|0M}|Pf
zbmF@dwf&qzU#8yG37xfh^ay9;E%&DTGPk*JEd2PfeDCIw(IWdw@{xQEEwtp2WNN(<
zwq7~BToJi!3EbH_{HNXF%$8+7^#5*LzaHUPK4uV0?RQ@Wq(=4#Q906PpDCkxg^&5G
zeenG-j!T3dVGAAmWwaFtGKBBUo{$R}v%TTha<(y0d7hqARV7`9C{n!aBsQgL0h)bo
ztdSA2GFS=SA(M(7=?dm|KtOi7bZ-i!Rz*pbL;6AJfBO7c1>HGJ$Das>dz-8A5^0Y)
zk_&^C^8P}&u3DoK!KhH^e=RqxXF{$xfV6-b5k$_LD|_5-oldka;uOP+@CAI?0~*&0
z3Lb~VyE37~N;rIUIwYHK9TuD6%+F4sjSN|f;00SYBs{2u#EXf}MWRL$&Vbn7vaLgJ
z_*Ct6j%D^d_z7hOTQa}SETQMojjqp%vCXx!Zc^0H<*$AVESr~_F_ui?4tsHwQZKTy
zA@KYGtvB8Q9P-SS4Q$gv(Oq5#=xAwMsv>1N2NRb4e*>BY3A~UvR)vIii=()6M*)q1
zpde9)mX?;@SvGz#X78&_)TB$Ern4^&U};V<lusEy2D}oUBG!q*r1#o_l8&Ylgnfej
zf*IlD6h@FQd=qo%JDWm9;6|&gN8tTb{k&><qB=^%W+#!t(U=)*&u34pHFwxhf<%J_
z<N(DSvY$N~1(3)-1A&8Z(<6R41O-zITKuBwhY^|vY1+C|i%y?}kaVE4RRW9<-5(B)
z8$>?{BcD~lc4{AEHM$QkK?!8r=zQ<p>x8W@79T-uCoQ6LoE%uUVYa;Nmp9_dsUB?j
zd5%9-d#$x8wb8fKXb&gn&5R6DY`I+BJxLP3`t#{mN58Tcg>&8AHi@0dcQ(pGN<}l$
zX;wYeL=hTl&YWXPd1<Nb+}cjnOdcssDz!iPVCCoI6m|SJ`Mq<<%R;KrqlGQJGR|v$
zTr6KbtZOl|;YVga{?n7>o2IV83R*>(vHO0KRbq4L23**xr(lO9oZ%$}>2pg7{nqql
z!EW`_$J%UKHnNF-YY?eqL}QNhE$Kq~w|o_G>lRT`%+V&y!@Vx-dfeughsv?3q@2-p
zJblldbxei8hbLWK#f8JyXSZ5+?<Sr?g?*)+wjUoREIf2tL7@}g)!kxZVFVXF7_xAC
zJqyvNnuSzOR1Xsq0XP9k*j}#?Bd)ik(%(LylXLYjY?48v7AqjK*on(v#?yyH3S12H
z)~21wg(N_vAx<8iRJUpC1dSx~2>XQ(;>-Nc7qIZwc5@}RrnQs$S~3L*o!V^)v;BE}
z?%8L0kwfjy=qVwAj80F}FPYu3J1hZ$5Kqn65@n&K^|)qOjw0kAHE>IwA~Yhkdi{DK
z&$W9wIAVM`_Dk7F)-TY~(XD+qGNuN3v3^;8%3vuBFJA${=H~6*))UYL%M(KGSN1G9
z--}9g+dglfrgfl*{4QF;*$?pKk*!*+GjfhM5Eskx#)!zs${$}}mWw|BGCq~Rh+IF_
z@BUo^fCy_;kI)ARG<<at;`EBKz<3f25fUUE1anwhAVS)sspN(bDq)up$DTb`(K^{7
zY`NpyOC@7;^VG<CkpR@;2sCSe^ykl?>*&qHol6%>iDVPK;*AaqGEu~sBao*tfIYlE
zQDB<e6J@eE-WQH}an-!Hx&SVzzANO|oefM3?d+a2*MKi}P|^QUP*RFR@i?HH^$0Il
z$#$|L7j1<+0J@=K#Jpw8Csco;1?n$7x0gfC_aX{{p6<ATX2P1wB?B})mz4>HylWEj
zQxF<MXfdzJ^~9|fjiR*aH(hb>g@I#b2l|svuB|ov{Ser#dGlHG^9ZGvU2gAh77=x&
z`>E4#i<$dLlk{c+^qC<w*YGw3+|`2{)OHB9)K|<Wo98o>PHfq`uOjAw3<QLw<nAts
zEP-xw(W|{x6qP}hro0}aY4%X_&xrh!Z;>Cqy;8YxgMQ<-%coVh$XlZG>mX5Nkg{ba
z3!2ZGNM|%@_!v9e-N)CH(9X+86?lf;liZ2)F1nRAr%s-{(%9L7ox3ZDUWwe{gzkNg
zw9I33?EVm-h>SisXo+=Av}cGj$b1$)8KK7j!GF-nErsRHayUAO8@IHG^6uGF_{tIn
zi+mluY~%86q!^dn-?{ZsB=iuD%moPSG%oqAo<!A>q98Vjd^^(}r0iSIYDM@pRGz0{
zBWNLD0D(5JlD-ot1Vvp|?`V!~SJBG-m)Y_UI(S|(vIXG7Q3OIHObpeb%1B@o3MS1V
z>^L;29O$#sZLrxQ>dH@D-rt|Th!E=<bCkcnkeoei=a$s9*plUF@yz1U&6wb_Sz20J
z-?s0!98YDix^U4%q66Xe%!->&j(+3LBY`DIl#b%20%3jM;u$-1Du=Fs5O<w>i<5sU
zivxUq-yaXF$J6@P=jj%{nr7k^N?k;Y$d6s73Q<bqYxItz^t|e&OP8>PCj!rmBXaC<
zuQ38yV6I9mTg3x={C1o+0H{UxGXlw8m2hWJ*%&6Vhv#8%aL;ItU&ETyQ{q0#Lr&Q>
zZ)5fjYd3=4tlOK@^B{(~xp~O4GkPPP&OKk>6&ak`TU>(b8LPL)fZYgK)E)3#UUYt0
zxgz!LTR0R1oVMo@`V;$$1=ip;e4-(C$^#D5xyW=A?hy1Mh(x878}plzz8ECz!v!)c
zZ}~Z`r>5U^<h%t@2=M;3%C&)4PLm;6T!&GBcJY@!@d_#=gqo7XhkQSxhyw{$jjcII
z6x;WokT+jzr<HZNu%!$&q<oC=xTKRtzVcaDbEUjpW58Xf&ngdeTSB;^EMMzs*)^)n
zy6<*&*}FEj?dDI_i&!x5J<Z^&#V`IsIv<=$ugmQredS<dD{=AyQQ)DKibneT_<V;N
zI%Qt*d)=wp`K=g3|Foo{!U)S2@UHmszRr%5C%qu>sl}_VL}8fSQ+oCDR?Qv7vm(8Y
z6PK5edI&Q?YwxR;QoO7xLab<7BQdQS$i)98`ja~=vF%t9&{XV72MG{HP}^n3r_1HF
zUhWeBr3}`tSLQa~UImP5FWq!PX6Y&0dgi|PoZEJ8A)#915p2h{R0TFuyXhL`l|(xS
zwS^Gpa3<7!!pj1>8|mCuif4241}tqc4L>1-d_}(#k}RasB1>ULCMJb!ry=+{I$(DK
z)F>EYC8!X)`%jukamVM7N}+r|kBK305bRG!p49)Q{U;lF_49ISOlRQK`VNLGcfoG~
z-B)x44B%>XU!1Hb5gu~sduHINMYbRtzJ@`iMw}0$-G;@4ty{GEB+s8e?~Zm#(X`*x
z8?+qQgu^T2x#X7k<^A}e%f!=W9|9xM8o)Gg<KHm@r^-|Uq)n?>p^&I`EWni>CThEf
zM9APig52DzN)kDp9d(zcD<W}f%ZGR=pBpi|VDqs#IMw?oG|P*NCKv6k{Ti=J9_~Jd
z-P0>^5DYzN$ZMU<K=6H)XGd3tE(R?t60I|6B~Vm|rU*`66eQ3mk|{{+K0Cn^CA<S(
zxau&d$%G1zX6q_s`s{93gWp4=vt}43lV4T6z(b!JCFN!ZMFZX<Z?7ijE%K_Wn_-|Z
zLXLz;{mG0mFMoL{{L`o79GOjknzX?U5OBX^a|zwp6cfu~gB8HXi7J(rsf~bSrf}*X
zmy;7;yq(7}OdL*A&8i6%I)$MN8=<B0(uJ*>cBBx8m=Wjm5WS-K+98~M(vW5mnzG42
z0r&QR0PTcT1Wu#}FXnJ@1kz8@PI_n49tDZur3L-E9VA)!cTS!@O*ht-4%1Rs)^kg^
zJ)nHR=tSGCE{$WeywRln!yAV)J?dZLJ0YzsJJOOFgtKJm!z<-5<Jb<kQ)X#~gZNsz
z?LY@Q11rXsF1o1p^8H>=-`D#ce;eaWNMTaUnt@9c03$;<!3ZzIe)R<OEBqk`8wseO
z(@zK&a&oKCMC=9Vx*}GLsD{yp8PYG*H&xVPI6L6ffZ&G46O-tbT`DRngp^NOK)I1K
zp2U$w=ZqpS?kmQcuAt`lj}SJdGttt7Mu#KvP628&tXp?v`0$}a4^asSr_2)(n<_w$
zfzcLfIP6RWXolJXryQJAXlVf^hN4@B4uPTNwy<{SKJgk!%<=K@$4{JK8o6L;c>o%i
z<me~H6UmD>2#JU$bP2Bm3Ioyu57PX^IT2rh0}NWr;TVi?wN1Ba-{}oBB%Zqj3($6p
zwzc;tjMX^8(~IUYY+8h_MzoI5{5WF%?JjhOXpkfylwx*o>?oNLXZ@{wY$_1z)B)PS
zQ0w^FTfU<|ixE0{?AZO>I-)m<Nq>yNLj-c{-@gX#77QMsJr!p!8RJRI#<!oX*3zS+
z2n$RhyhD|cMZkXU*Q^oVzuyPl5_BV&Jr_ph0kBBE57z6dt7m_K0E3Scb)9&1?)1aw
zkI!(g+Q3?ZL^lg_1Hm~!d5V#7wr!IG_2$o;*#j11ik!DHA?QB*5Dy^|rx=xPM#Dn>
z<jK|Gs-TZV7wf%E`|y|^i0lkHY()DY1GyRsMhu35==4A}02UkCQ@<0lj&pz+i6K&r
zJp~;QN0i`DiiQGME!CdSBgTs~m!@_O>*Y5*GG{DAFo+7tI~#*{kR<2&VyufLC#sJT
zx*et<g!`Yt^oNPTRjua&;?O_w8jfP?de<3!1M>*A5Gw|>H^89yiT>5AqI9d)9nwCv
zr56h7!MeCxh)yK>P|^2jwLts1=kL#7GYK(m@^VC@WgL=>12Tu!I8LF6g8C(ZeO$Cu
z$Qp%6P(BeH+}yWudhb>XU1wlcA9XX&!~4}&PC(nKMDUlwgh604(v~N&&N^uA=|8#h
zkN)3Hs|o=PEjX;L7()AT_FvJ5b`%MH1gEgd^yVQPQn$eyh%flx?sHS7H`)fdknLbW
zGCMN86J{LbXeC2E_t6t*24PDVGdjlDYZij}yAE23){-oS+qaF<|Bo+XkKK>G>a^mR
zQo<_+8lswRt;>Dpu`D!Jt!$^H!^Dwr27rF(38&b!OXGCLm2gWPhXaK;{I((0bR!my
zJG=+qfMC9faQ;phd-iO<t!j0&?<`qQ3Wq`P5PA7$=SQ>FEFmyWW28nxeZ;|gSGr3!
z<)M9`LDs8;;*`=nbX;EE9;V)EG&TX#ayI=7aNWJD>5?V(d`oxmiX(){@7V2i&oD#i
z!4n`I68r~Hk-o1lH=?PJx`Q%6Z*y?pzg^KA)wGT)J@7agp^P86@ZJ|KPvj4I930V*
z@0Fh(3Kj0}N5I<0fKwZQw>V*?Lc{N^<A4Sf(9hsGzP09)wSoV<uN}?kd0OUOAk833
zK@kzefk~C{6lL^2v6w*__sD$x8#6+HC*_0?4HQ<%s}KM3n4+^#Y?4YtSiC%8iGy-b
zjL#!7J>isNVq$93*83-1_zuM?$u?UG<HRm06v&e(*62lY2@8jml$^vhJw9}a7I==Z
zwL$w2K~BE`l5`lQ7zDHoeJGz+>*=C@fpm0?R=!YUxEx+tgi}z6L#oP<q)D%k9U+<1
z?SiZT5ycJ@3`_Ca0^FG*YT`JR!UO*S=8F;XoU5zrKAYdj5m(B`*>lQ%6!u*$Nat9e
zCV*fB3Wf`W^fooM5hgX5`iziIkkcb^X!aHo@)zAk$pYdMK5mq$fK48-wwrL!!9Nw7
z&-;5?Mo$)<;}3RRy~mD$7YhuFi>4vNmc!Q8R&I=`06saG9*{*y1vpFiT*n;xU}$iD
z0=AJ4-mktx%+AQH@b_D7+7z(%B*a4$0TKZahaN+yB!R8{a5{sd@=#F?L9t>P<o|8#
zccCwU1I_7v{y*%!c{tT;|2Dj&xujvIgfu9nP(o%Jr9z5iu4KrNnapZ83q{B*${0fC
zsgaN=Q|5}5DP&w&7SDOv_rCZ2zQ=Ps@B2Q_^Urg<zxz1$ecan^Eo)uh>-t=u&-pn&
z=UFtzs2X^R@{4eLk`8w-U%GV5)~(NkzyI@~$+}8Masy{0=qG;b#Oc$|alW5cIEtHN
zxv_Y?2(=WviGb_tzjxCQHT9X-u`iGO{`7cpBl)6d7vOKQBG93`o{Bw);uZn56D3y(
z${*BLmohY&2-)KOT~^x3H-Ep+wr$o{yVO>ABP&b=lNXbGf8xY|NeVRkm3a$+%@Oes
zmdShWW%JCs{5NwG>*6UF&lkyriv}Txs3vuz6~0AUnhO{_HboA$^)B_~x>Nu0U5|Y-
zZTgPCWd-(zHU4ojJ^9Z%=iKv8SakQF-@Ye#(kVs-V|#yb0sh_n#cwG82WM;BHkoG&
z|J}5{cW?66KaJ#V+kUM35BA0X=!M#B1pdFU7k3PJJKwDzRv1R3k%NDoo*3x2Pez%I
zc2zcD)KFdSeHSSR9th<*`2yJB$n;1y1N!=*Lx+$mSb@DH<T`B&&Z^J0p-yzCK8HyL
zq62Uy`Z&wYn>X)ydmDl-VD|MD6Z+O&oajCV4C?~Ci2gJjUWTdy={CaEIiLjiZF0zP
zh3g|2hDtepF*Vg$P8y2H4iQIuhTV=GJ64mTCrc9WhVPEYa?)1G{k<2vI#z>^3exu1
zOmhyTaM8#X7ZpQ#*NPATWf)`UWM+OJIlc4T4XZupUxMNeq<BMYqm8vS`Ziz9G8Z(G
zE)#-sn)}@B0z%#=_c;Z9kz@EoI_>WvdkIpnEH;c%3JAx6ps@*=Hwy=gnwOyu6{lN}
zTP_Z;4O9$JlPO5b$}nM~?al9vW)dk|aL&VYW&dg?0mTrq{3fUCHf4apRE-%1<5a=V
zkH3&;s3LuS(~ra+Ny}ZrS4B4&O_akq)*CD~sjvSxx6`_*rzxG6f<t8OD6@O_G7ms&
zkAs3r5hu01>3A4S#<ekC@`S>#nRTrKSx*jFK~0DZg#Kfgjx!=|-L;gUA-MM6nAwM=
zIsXhYLQ_%@-%x7i_j{nrelK6{#aBWDU<N@O(0>qas$uZbbG&wd3wz>DNQGg$`<yHI
zV%;^a*<fr{t>)%d21f`G6ZwtoBDDC?O)5iPgoXw)IXwWQ_tZNDE<oQDO*;&f?S>E-
zFa8FQ43wDfqmFt0rqPT5{y>Nl&3=>k|2P4GEb{NJW6KCsL9~6P2l87E!VKTA(PpGe
z0a8?yd-v}T8@K7XP2I*tg<XtV{|B0@TgAjS{)>gBog)N<)R2@S^70$9-H>GDV`(Uu
zo<2z0U3H1-K8VYpy8!UU4&Q&})9O{5rA~kv-c~#UajXTuabNBO3k-c=jRL0(dD{0f
z#8aaWnc(`7O@@HvML!Typ_-t2A6OotqodHx2D|!Xe)|iO-4R*=7VR98Ts-^zL8lik
zSyBs<KP0i1zd<<)9Cvr8@hPQ$h#NU(Vrz>DD<D=W%v!=ItA#8a#3ffCOF2M+%(~z{
z`I9G?Q&>1ed3Npk6m5sKT_K044X*a?^Pm5t-GS|((=++sZ+PrCuHHgHsrO+0x!JE^
z88Ub6cr6{j)Cbq8fIuZR2i@>XXk-JEBIPGZ&%pmf+#tm7Si2&8Q4Fk{KuWrdl{FT7
zfN&xNS|addqq{RCalL`Kz45-DgB1hOnrt#ugKLpfgI7VAi4XFJewegmCas|(q0E<=
zEBc4cy(Y&DYh?4D<sjuzaB!dPAgJj8puZ$(9mEP=ZA#k_;WmBsh9ZNr{++k|=I~vZ
zt*2lz#4>0L|7T2|8Ja0g;#6$tZytr5+X9q%MQ)6xOP59hO@jhinpNj<Qkegmniyy?
zQvH*aTP9yM^{uS*Ym8sYqjn0CaulM|hDuB_Ho2yxr>B#&4H&~^=*khW3J7j0dbOk%
zkLm&-%ieuipngp2=J|$%c-EWP<=l_no{U<S6nmtl1mGQc3~99sn>RnfLrkxuMd-~&
z_z@~xCBx!Bh|dChygv+2ne%cEh;oLkYyS)XxBUI>P^{I*fw`5A^<OBYgNGRtkUgDU
z%t0xo0DS`s>s@ERHksG)P}z!Blh=pgceht~N_XJyS}I2>MpjlqHM1!ecA;A+haZiN
z+2XKcry%CBcY`Y@kE;#r&;#>RF`Q%z<DNSK99ca@SJ!h#5pai^92+AX9znbi-Dx1K
z%pTxzeu?v@-9bgf<X9ywEL>+gI@|IOiRW?ogY8!N*M~31He#6J)E2>@<(5dMm|p=b
z)&Gn*?`6M<Ws~sl>lJ9Y!~B7Z#L|<va70Y%2-O5KmmP7I_EfZp7e}Ihyg8-23{elC
zYbWwejLer_FF=o)0(89HVBF#oXDT(Kii42lU?V`f8-Qi5Gmr`&e@DX@P$aSlq=u_d
zNdJYB7gtsJfPj#O+&-mvp(DRGXc(k4M)MVf=gm$%TX9J&esgcl_WZO;(CJVYEx8C9
zhi*{%%m0j2{(yitd!T?I4D>B2vA>aNp2U$soxX5Z;b`{|bAf)zDt+%Cna4H)pCS!{
zwcnPk;=G7+M{Y#)k$`kPeDGriyj_oc#r~6>$VC^7@ZDp~%sg!DuZur|k_7yOi#IZP
zj#+&;k7i|-K4(GTsJjk&TDL1D(c6sukp5>h>liqM%J}8wp(z(qqf}}JCgt9S;F#|V
zSrMZOwCoTCPrC%)<y6M;Yu5x2<aZ#&2SkhEqS3Pz>i<Dwdt45r{N7{jS>Rd}LXJQ@
zibBazoQ=u>;?|2v3%gT9z6DX=>51_G>KQ_TRtlFY#j;(;gZ8TUiIh?SJR(pBl4?b~
zCstsJ%;A2+t$eq4q)4M+YuXU7`8p(kDNmuZp9(lKQwH>zmi^xC<x@q#;g^SHq5c!l
zbKv<jl-n<m)hN+kg|N<+dt5<GGd@%hU|<iwn_GFn4<N2%ef6Hmy1#%Egi7wrj~szN
z{z;WS8I;s4al#RQBkLM~zU+YTASwweTI-xLE*syRI4<cMx???p6ly+p85c2vV*sxf
z;fr=2>-qkgDQvsO;Js8HGK&JdARZeGrPLnF_Qz);_UkW31-iMa|6bCoD=BT)4i<9q
zOFp=qdO^F;4Fg*gKK0~Z6PofO6W~!uYbJ^<@Bhfj&c3WG<Ld5Zh)_VWF1$8ggDqtE
z{oQSW#3Vt{4Rc)o&Km!y#Vje)Ozo29n&h`N;qTu*{zFMg=_k6^#}_3>H`i+chWdc4
z<wib_>8#>%GFP!B<?u8z`yIjVfRE&K?XJnmd9(y<L~KB|<S3Q0JrlR)#sRVAomUUn
ztI=5|d2@c9IGXn(u2|q&xo>N0>$Z|V0<`T_W$xa(^@pj>B=3}z`>e}gA^jRjuwq4b
zZ#eJ|yRa**^TZYlAa5XVV|oqLH@k-cYgc*S8iUt@f$9+UT-H&A;wWMsGEe-sLISk%
zH*Q!q=XSgXH?+RXPy#U3u6{fX>2OIP7HEkuZ{!%B^6hjK(|nfw;~$7QGjD?1d$#?y
zRpWNp2!(*gLP33}*(EhaRhG#DuN8;-Y_fLF<qE5<=l<bG3P=J8I5@qMkQ+E9?LQlr
zKh^_*7XTcgOM%+7$peg_D&GC*zEp@MpHB+5G7}1VxNrn<xCE8yiZI?idpucXXR0UL
zQ}6!(r|xcrp^eG?$8+T>;-OETbgACZLF#ek<v5yMe)#tqyB*ZH6A>7V1Tl@zauyXE
z#&g$r;QA5!$i8kJbC;TLUar8L^Uul^g8AR-Hh;W?-UOu;Wbu#9p<h64%X6?G6O(8Q
zLFP<QAinFsf5x47AZy$t3a_>7XoTHCIJWWATelW|i<sd0`1r|_4`|J4WL@I|N60GS
z9Rt6uaQd{cZz2lNy=U&XC8+Iz&A@&N^l3#w_<oBOcu;S$Xk={=XiS7GhN61=*5w<m
ziZJeXO-qXcY9U9+zDh*pPG?i(oNHPjdi_q{N4hv!Cr`{_Fm(S<Y(j$OeqEaS9GJ*)
zaP63kn_urnoq7DMYgM>3k(ox)3<`^~t?ldD3}mE~NNCz1duMVS(t>n?m5vG-l0**>
zADd}}FJi;q3vYm>E<N*7k(sNs8(ojp7)-#%x{cA9l19C~|9Ro~Zh!o%N2m4Gr6WGY
z{?F$|aSszv0I7Bqx;B$^I$`+-ohJF(wYFUF?G7P2O@V>0UAZ6JC<LxMO=gCmY=Irg
z;rS6D=sR2zSO|cGCsbAcKn=8+f-E*xMZ*;g`#;#bvBnsj<FwCf>!gPubwKC11TO)l
z@NAKrD>{B&&MQ~0d=C0M##=(b_!|YX=_Ey)BArfT5U91ci;A-0QUY>?%iI9z90*4n
zLyrACh=@;C(Zqxgo3xnD#=&t4kRws7d2CulC@9+5k8t!a3I&n;26r_jA4)W2R;`mx
zP{@a@%OT`030Q9V*iU<xoP_4W3;(%+Ud$}(#xVnF@4I!Vezdd)l6Md|G=F74wA`Ky
z-a;9v2ZRv(d9rq?7f7*9`o^S>2F}zqEinM7gikX&OSdqr3{@b!S>)ZQuYo9lwq1n|
z&m=(N`wt#0*e5D#tEM(^65kr3?Hg(!CH_MXzy{w4L=>F+ZrplN2)O8ubEP+(#@Ph6
zk&m5ErbCcqtdCO?@W$nX=D`OPV#bZhTmaxe6~d5h3GT12g|2z!&MeE9{{S!bJ9@XB
z;GdC89u?Ct=E-m-j{?Z_)ON<;&I}GIxh=3Qkm!;zj;2?an284O{h?CB^qgN61CxA}
zcbPT>pGti8??`;_F3@S|lfTpwR7*P-euFGQsOXFhb`&a%bzEG;;^*wI3!@m>Fajg*
z_^JEvi10D_XLA)2Gcvh$Uw;J)%MKZt@X5)^wK_!(L%Kf2L71nqA2^A^!&Af^i6*<G
z{ay?^@LOI(6KEy7(DP5?$Pk`F&Lg$K?ge)42D{5m=Mw%saSFWQ|Hf<nA2PvTFZ<^k
zo!BbX#;LOW>^~Iw|7o=0|LKKK_ViQ!F5;j6;=F39qj7i3w!nRA{}&V_?%xr+OGx!!
zJaPf%|LO1gPjvYIxJduIU)VL*ls77t*EfCbTSV!VfM3gaR<BSsJuA26=r+OW$OYRz
zjchSz^3Rkywt3NmhTOW7FXFbOHEr9)`b2Td(Z@@ltkyj*r}D>#U7o_1JZ~Q_GyHV;
zeA;Otn+Vx2&Owr=GIMwj9?0)V2^0*<p@ol1cRN&0g^vc=C{sKR|84B}w|4sf$`3w#
zbK3CcrzzsJ!?G5CBC!d9QMb)f*>e_^#n<0UY!vSCD)M4)yz#7mR$_HSsoaG-g=t0C
zG`q*sUqD_WaU$ek9$uATZif7x`LZnM((>vJ5EQ!#ot&B0uV2Ns{Pmh1iR6jK8}F?)
zdL-4%rTo!x6h~OCwl^uMw=T0FxnIBQ(__1Y=k_N1i<!-}<sWWTi9Kmjl5MZI1V~`Y
zxg8n$+Ft!XFJxV7JMV6fBP7B)P9GI*v@_Gx(t_BiW~_-xcZJ*D-rN}o*a3oxKPN(7
zVrnrxn!U61)us1*b8W4yp%6rqIDd{KV~|0y<@FepCmh$>UY7X}vEx+072vb}o}<V%
z8gilv6F+Wby=BEE<8qy<bPF`ndi?A_a$AWV&a+)|+|a}RJ9ZE#cvbeX8!kwF+A1CO
zxs9R+4_b_eAtg&98q<pXy;Uu(2yI^grYw_1TObSwU0qH>p>sO-sa)@V1k*HB<`U}l
z4#jo~koMtof2xf-6WNbicf#~wg-mkk9bLV`Lm#py%uu6=gl&E!w*{Zv#C1(`M@Cjw
ztSX<H+aN^d^hGi*J@o3AtGCl$@=k&sk3qfIu2v!?g1^3|X8)Fkt4Xi3ved_KosAdX
z(ojVnBOVE}K^`}GV2}q=^ZB+fnfY$#K8n_R*~3eT)QsHLzjeR<)}#8bACPsS{PADw
zL6+hF=>4&{G0$V*Bamcb7)VG9kn1r@gE%m;u_As_u!{?F$nWGTaGM~e5HA9Cb8C9_
zF!R!c1ldGKl&ruT`%_RxMLZCP{7xRj4Yl4>ud;h^1l&-Fo0xTjh7r*=YoVWfLA(JD
zO8A_OS50@CmoS`WX0r8#f_{Ft^iV0W`U9uo3b^>}!p3Kye>sBo^-l=km!gLh3T&nO
zxt~&>odmHxu|~mT@xE;ST{88;nZiimnks?mAgARUCL%Xf3o$9YHF52e9&%JJ9D5<S
zLjlah2Cw#BDdR`=^Gc~_cJ6OmNnGLl%&tEyo{wRF`J2pb@n~NOf{_2*HH1?A9ptN0
z7<Y~2Ebbux-l;%5P)QQgNNa<eOb&`HGUa4|&rY0EZGZ=&TQ{L_<jDI>z76EH7xVCr
zx8NhD4KqjuU$}VGa<~qm3{#&PLjF&@PI7?XV*2<w6hFlw+}7UHO?>|5wWWqLWM|&X
zeujwW>)Z7f+FFXSnF9mao!)A1XVIAKyP#<P3;*UCUM$Dah;qC!HMn_Sa&g8%a+Bbe
zDKRmLX6tNjLUS~0Ivw|kG8o`2iM<^y+Ks8~LRUT=w^-RD*#4`;H@TdUUOT5{7k|lK
z#V*7HR|&g>82k2Loxwb4+P|D}Fg5M>n7m_|<Sa{RTNZf`1f}gD!(75W;)`7&N=)i}
zhBzc_jb+B;l?^buScRmx79zK}5vbTv^A5TY64?f$!h>XYnA^I+j{##j20ke$YRYu#
zbZm9FnJ+O`-ZJRf(<!kJS8r)Hn}u^?Z200I69Fqjsb4jv`RC*=@G@UwpMICUN}GB3
zg4F5&ri;$F(T>HdmJ!E1V%G)pk9I%UQ)V>MKnt2}b32I3Du2jzs2qg%(NbkMA>{34
zXwVQzD&5!vS3W%=M!V95M9?<DNG1I{>q0bT5~g#CILLK^4FR*7xX`7mZrKT~4tSRG
zu>Z{!ZBI2m|I9?EzNG$%^L+ki`TYB|)jA5AO1@^VI$dn{t<QzUP}{j-YSVfTmW9>Q
zyZlcQ&yG<~y_s!GI4$K0f8Q1~8`nFA8L-A*_>hj+*_e!K^;%qwRl2MM7K^T)9_D|}
z*H?$E5eaL~q=BqzfL`WbZa6x*uPfJ&x0$9CG<08GiQ5`oQR-t6R5FP+$6Sp_2C(>D
zw)e*UQ6u9mKnoh@@AYi^2ILIA=d}93V;rj8F6HzkA}a^ZR!AQB+4o<5e-=bI3Ebfc
zHfpXkL)n0hjqT$!D|6@xN+n+c-sA|DS^r<(Q$zvorz(zJ4Jfso8H+94&-S;=f>05x
z#Cmbd@7NrHvhSnBmX3Toakwx~&usXNgU%E0sz2|-{WW}9q+~Cr%n%wP;wURjM||dH
z1|5n{3GJJ$;U|a3qk_7Ib1qtyj|zLs<C`(lOw3sHrpnY!*2)n7OCT7QzGKrq8|PI@
zR~{YoP_mnpB4-KvF@#HonB*R8wLC&>TOe(cIYK9#ec+z(4wLcYA$FLv-&kiOA5H%i
zQRMLkBcKQoZMhS^L|JUA`mRh}zcVIgMt)&(-9O^gi?j1KJW!A+a5F^V{8_^&OfB!`
zUxAH@$#%nwv%8U1aJUwv<4AVnp%E)sGQ-sEP(;_kANK>~M#98==p!ztP<=c0FNsv0
zHFCT}k(CGnn2&d(l#J-~mJ|SyLYrmY)QQs5A@whb)c=+2_kTwQ{a^1fze)e=G0gA%
zU0VI?{^kPg`ro=WRwg?znH9eMlSSPKEDI$lds4fhd`{|_Vgy@Nof5k(Fa2)3TIp)w
z-uAk(-{=%tF`w)kO2H3I%uKzJ=C=5q(AY=(+X3Th4%&x}jW^!TN?5Y1Q!?*tH<uMc
z&<|F!FejI*oeno<eG^c2o%7tk*|<}}y6cmK+F8ls47$X|{g;o1@x^m>nrI&^0iPgq
zIvo=WNmIwH+}nTVdMm<+8Z}wJs^UO?lh2Og3<u_`+FF{LXz-q$FVbX^6@)N9ROWsV
zX2s}Nd)L<;|JQX&e@v<@TPFsi&J8_ec2Tnn)E{6s%vW1~RfZTcRq1{(U73CD!V>&h
z;!)&#1%rk2^;n`+8z)Lnf0U-A(t;{ta6>HuJKpt0PL4PjRtmldLOV?xCuqA$Qm^1|
z5CvNFll*wVi9=jBC6^a_qXE0rbxTal1bo0v5m6$dpo{ssvh2)^3<ER>$lo$)qc3^q
zr9#QriCS#hdV`wsG`+M6%Yh4!Pc}ubsE~Xw{^ILf9-4N)`Ivoe-|FIw(OJ#@P7Ude
z>h%7fJ>~kujl#5033V*W+S~+r5jby%1<d%|5KczqEFO0sqgf5iEZs)$=O9&VeL;Kn
zf>${++i#Kc_Fpx~yg2Cp*)_<2mDm6MoqXA{V8zB0U{nM{&tQ8Iv`a~0MwC#wC*LfA
z;Qw8C$fUOar37zwZb8o`4C7uaoct&l6CE8rk_SI_K4s}~RjBE5cSU&$oP;_)*Peys
zkA2OQx*5Hg7}lp(O6);OOH!LBS{4N&#4L<RuVxhtm=ijvHLSB6=G`DE9_A-0I?P0;
z07urQ`p^<827Z(f>0pmTJS4SI6$0@3jNp<6&l{(}<>XJjs(|2q9MU#W&`<jkFTdW2
zX#^V^<hZ;Fn<4pbuE{}uQBHbUB;6Q1XLMEJq>G$qU|8CHgxB4dXKFmfy`Z9RKCz2C
z$YjgS52;!OLfD0N>%?SuRz8(q!50)S^K=+%;6HulSi7Df$Q^}uc|FSEoez32aC=cu
zP|z4T4ad+=m^f|iG|l^!b_&*iX)@=v%w0*)_kvs5pNk8I4?Y2rt{yeiMtJ*0#O|*y
zwj<!&%NWsziH!N8Y9OTz$dkpm(Onjf^BHcY&txrZAeoDL4_6XwB~f+OrA9Sh{|n**
zr}$z2+{P1~sA+@e0XS6-iwP@5-!<EhtIp=Vc(DU9o4h?@DpQXVrA;2ah*Q2^;kz7G
zg`#ih#1ct(%0yCla5#fF&dFwFAlfQ7j;r*KpJUCqu(&gqu|K)3@leu{3@226b~cEl
zX5&WVvnI?|&Zjs}<qEj3X>mp1?Q9O2l}c6^Pi-WjbQ6m5`1WICMnwCUDC8PK<cF9#
zI=NJ#8YXhPI~2h9s4@LBM8eJ_88o2Hdd@8^?E#ouE)YG&OlkQre*+G_0*T$|_eC0c
z?u?McU>QDlFBgas6cifa!cg#qw1dT1N+R);Qxc~>`KzR9STF8@&VGXRr8%U><Go4;
zGPy~W>7r-@IUm>Q<&rI|C;%aY6g9#h2~ZNUs<Unu>gE}lnb+(n1=iG){pp_27cXlp
zQcu$KM~PXVv(4l!3NN^Y`pX|kLJ@-=pi|hMC^iBuHok!+N-4&+`?YH(h<(Ah0Mo_1
z1N#c|F397c!E+S&MZulj;P#vNb`8MCSTu27b2_qpVYRC;5`;1?*OdH`lRiVlq{5G9
zuHT)JVt#(U#Fs0;CXR#gI*jkle7jI3^iNEq7d1MBC#T>`jB8t7&x0l&PHW{F-$cNi
z7q%N);YM7Av5~CjNlE;rcZ@_)5j1I_(KZ44KT$-l^q=4SW|FgO-fe;mt!gDE`iOrq
znH485R4tfo$SM>u3U@RNOPDXI;#iq%y<knT`(XQZeVE926SF+f6Erac{B*mw*tWY|
z_7?zN_v>sUN9K*_4v*w#Xvps;{+ddX1Fu1GBmc)4hwy*7ef|Fo_x#tvc+-#zv-lAV
zt?g7Ogt><yi37>^G_y$sj|hmL!gIz50xk1D1?6uPLSeA!249)zkI(-U&gdB7d&yH8
z2oNftF<_Bmb8O`mV(<*TziFOQv=SqT>^b@6>xhh_DRa{)3cln=#2&j}drihZ@E%=Y
z$AcjHjhXwC-YiwG0UP~0F&-zMfLCFa%;dLF>$2VB{7XIDE+GPX6q4Q=Xb65hWHW^&
zK08mU-?D6oKPFe!pV>3V=$O-CZ_F@lY{=PULWMlw%ZL5guKn69%xwVd`C3|>JLv5a
z>PM2mt$!($jApw#d7Jae+8XSQ*nhF)ZOHL5(B=g*rQ3wkBPexqegpo$Y0;2$zIp?(
zQJMfzoJRq-33>ZfvNOMDhPmgge6K)Nz%KcYrXxN^AUv7*6-bIsK2Sb@u?k4|`SK7q
zIUA9cws6h)BriK%!xKN|K3zoY#Qm+>K%MK;X32nld!B0Xc-WAO5%~l5;ANF%W4g25
zE_t!XY}7MVKsGw_cO!+_N8XZbe9D=n^FD_Z%I&{J?*ILRjoLmzc#E){-k1<y9)dHC
z;`n9gRqC4(=nnHlO5hUR!SF)NqpM-~$-L(|Y-Bo33o43Y8%0HZ_=A*uUEq-W8HDe!
zxl#97Wtox3K6NfReqHEsSH=Q6bNQvuP5jEWK1rFp=y5bF9rKK%0+Of#9ZGL12L>w&
z^Mdq{SFczj&-oZrR_WCexFQ%u8u{0)aJcsrnHn2^0wEKmRr=V4BRSq6Ns)l#4jt==
zKUYb_H9C&H_(|-giLjigxKBlx9zU%yoKy$|7$dMNF$TtMM0DHJJKX40xJs82V_pKR
zsMXR5;!4C0#e1LojiCLEeJbuqZ|Mlfg-pfd710>XDxGZ@|7r<vnGEM7)m7I6bG8AQ
zsvE4yN-$=>)D|^@?f4a(m0chc+T2;irFo()q|+~A=8D@Ky@RG%5))u&Gj12EBt2e-
zIngaJday`n?`Rwc;6`kY)JX&AM7(N(M6$no;PXBjF$P7z7o~swO<+F2Hr9(-HmRoT
zpXPU(lk1}wghkX_ZyxVsXw}j@<Md6P<^skTg?0H!)3e38Enk|;3+BkD#|N!N(+q@8
zLvW77;i)}>iLfFQC-R0e!}pb+V>yYPI59N3=IU<R_w}qa7suk0LmjFe$|kjRy2SAe
ziMi|Pz0I_&qd7ws_bZyhzdE)2m{~CGX}(!5@Z^hDD9!l$eIa7>Qy+L`YKDHM!i+;t
zFFrBuY7(dk3Qn#`SyQyJ=Hj2JJ8Bht2}U>X9W*hSQ<0JCI7bZT(P$&L#k-#>dyZA<
zpNi2t%8vp{TFHjM$`E0(#x9{o{<*4*z{vQ_&mKvX)%HnLfZc6`OIo_&Ofu5O?Fvr$
zlRYm5MewoEDzmWO93okyIhdl;29Dbl_PCmcpaEt@s&HJ%tiL4waVE<uQh?SWkHSvn
zaIgpF&3}+qstq-<(X|@&k2G$Qz|k%zPV=~+&257@LW(o%S_;pfPn4kNCJ7>+E4|~?
zak`+0t;In(V#qvL%X($cG<{?^E}-P8=Gg3wI+|a5N%Hy8IQ5~9;6goBuCTcxGyMYh
zQ`2sGChg~4-Stz<6$YfoXMwL1-Zd0B)vYo7YlJ>2HYxFd@A5Jjh##`J%B2+@tN&iE
zml4uOS1|AU)xXi4wLhV#IiTO%CX+X_JyWd6WA<{$l4=m<%As|Y4rsrd7&{<bgaAsm
z^PD@YKIHg{TK4@tE=tv}Qb?4;S8~fpVcbm6Y_nNVmD@zRBX(^Bj-4bSwj>u$_mTEW
z4laTb@N#~7Ft0)a&w19Eg<QAP!N9ZePcWj_%_}=qDw_06mZVzb(&i~89T-_gt!#yw
zx{g0sQ9=a7goDM%r|mw(-doKfbce+)<zs`i5dBl$EJe6n(lOOUZhqqCT?@!zeSkKs
zpr)Ft+|FOjV6FnEgpaoaK%>(fn=!%zjKI~Va$NQ@;0hLo?<b;=h8;!)K~l+=43W3g
zbBP|Kxw*R2)1}84M~8+IlMChuemOfTJ9hxg;fgqw=(Ov@Kcw)P$Tv)oaR3-fs*}MR
z<pG;H#@sSD=+NCXVD2C@_KX!h81Sth0z=UX1j5}S<uMCUeHu@x9;0553Lgvux3Oq$
z0}ypw3vCRvs`O2DEZ;7=t=xZeg+N^B7|qTpBf$a5AxL04-k63Wc)duFq4MZ;jDp*c
zP!P5+?P^A=KpvmZv2Mqix7;&_pl<sV7xDoT6sQYcHQ4<E(mda70SuGigm4p#)<tH?
zrZT%$(#^pRIw<b5t+6ej(gNff1>gB**7sZMrlksa9H)C@_iTs+f!B>HPz;jWt3KBf
zPMg!@+H#plkElR)>1Xzpx23sRG^b-j!K$pWude{%@Ra6tFb3hlY46OaaB}G_7xSlE
z`x5Uq@@z!EIlE8wcYtN<w6(w;GaLRLuGBqxrHeLbpYbb<-~k0IrL@t~bCAKv7_ty_
z=h@ZwHE)M&(LIUG7@CDbhhWstq%ie0uCl!aG>1$Wl~AARdzT8rg`EiKDJ0NJ&nb!T
z0N89F(f3tT%f_slp4ZaQoz2kcE+pi^MwjWZthdPrU0yNLxZiSQUZu3bUMFIvix&+K
zBA7uu6=r(mWr?|bX6cF#l~p@6(Xs*2E|Uy!YGjzG#hecEU8gLy-vR{!-{=Wn)8w2O
z>+TBht(?N-(UmEYogK#PfEZ}Rrx38nvg5qMC85w{T0w|-zrmW%KQCbdDlwt9Uljbi
zOTl*EM$QNdCu=-kBmD1^cqfpmf-PM8wKSl?glQ~a+<gb+IjxQob3*k^Wq2r$a6R!B
zp&aI`(tvH@d(tmd|EU*V0^z67iHQl9PL7UG+;hX+>bjEMp*Et9Yo^<V+zu+sGHl6i
z!ANhH&XAKjaW}!DWwsoMEU(&=j~PDPi@_vhlXBa)3k=3esNz3`D5sgN8>s2meOaoy
zXVPWq>DM;sl1~mT*GHs8)p%{JvY2(V_EcXx7>bYADT!V38@>K3wZxZ))Dx9roe#;{
zp!)d?PNfb04`NnAYqe3{jA?~3>!Q)Hq0ewq2}J$qGUVLRpAiJ^p(MmSuC=4Gn7@}H
zg7SoP*2o+BcA?Qwh5R8zb~;)%VY-#XY&3~P(Um}pM@z~FJN=-7(6!d=GHcs#dB<tJ
znI9W$Y84NvO*}?(MAbwRO8X@GsVBY1f{|frf9g|NcQ=F|>)&sebi)s(CzG@EjyY*%
zT}DzEgpWpA$9TTw@Z(8CAi6f%lQ1)r2mx#XLPG=bGlItvnu(*sKJHSGmZ)@RG`dqU
zl2%3X3q+B!OvgGEc`7N5_LLt)8>|&_`;NdNzSPt}G%tYkko+01^Ic$=BZ%^gq&qIO
zyp9S;pc4BatcL*neB#aSVodh3%*=OIqpUXja?)GIl)$SrFFmwhgJ4rJ0h;v8bYoE^
z*ofqXq#^4F%JxWY#H=uc|Eka-B<_yza9^R;(!Rfh(+`c`pW)7frRW!?gIi|=aWax=
zQ3t<al?1VWOA$ZSGL$#l)u}k5Mm}#hLvL;@48Wn5K$=>C)ek_!_aMHv681mUH2Q$y
z=T8_q+arREE2d<Buap3Z@1&d7Bo9S3|0gG3pvlZLZ?>oItw*j~&|>@%dkXum*L?Zn
z%Vqy{D@jFs2k8u??pTm<y*Ym#(u?;q6MH7$f3gX~J)_vB*tR0L#$1IUt}?%1Aoz!4
zLCMVp7@0(^blcu9JRISIl9%4y0?}qWNRh@k3>Sh7HKr0PiAg>6X6~;i=ak~}v#>%b
z7#u7M)4^5Jgk+dJyo409zzTHZ5M7<gWH!W+qxv$^FeIr~KMuD?agtP~xHJ08hTTw%
zp2U@a0p#0&Dy{&3_;hFq*ArCSEo#y)TKAA$KQl`!QucL${S(2Jg^a5s%hCYkjAy?r
zy(4)QGs_`p<vKh5xX;ViQWbgVPZ(`J0pyK6m|*=Y2$yJ<(bobzzp1fUS%QTNi-;J2
zCIE}aay)gu2wBXW+aNPi`$>m3r<8&<vicngG83sj)T+6eDnC{35VsM(h%2D<gS}`*
z;u1cq>fo9F=D@k17PB#Fn+32x%AoZG`$PB{zH}NQs0rXJDj`e|SBHdw{H%6&aBRus
zbs0()ve`a*Zcrbe4WD+KN-QB2dNM?Qbm?x6(h$SRAoT;1swbH3QR8ARvx~5AzKTgL
zJMuFUQb(r9rK8m$7~#;0fZ(4Oji@z-e9Z{W!Cx6eyrl}fVNXagzhZ;HXL38^*_Uzo
zC=3<M>2uRBP^HW<K05VL(CzW_Tv}ksB;dg^Y@R*+&k%8tS?~5gSunw<tSy4s<Ot^F
zb|}nt%Fb@bK(-aBAm>B)UDhhFgvpM9W}Fo1#$b-t9#&Whg|hHwAmN)d7H}#PeyR<Y
z-rekEOoDSaG*hd9x%md_I_(DZlpyFJQ$&IaP({KKKm@@Iae-FH+}9GB0Ak1`nE(6m
ziy?^S^I{yV3{hfFi#4)Is#vw7tC`}^P%~|Vpl&D<DDaG_aJVW*^sH5z62n2Gkq6gw
zH8za+QoSUSGg70cUvQ5#&?RYsn1VKhfR)n7@hZ|WC%6dCw;?hMP%j2;I^27n-5tRr
z<xzm%P%hw;#Dt+hXUiP#qB(j|6^SSEn;m%|8lvP&JUDZ@d{2>b%sh=Ygv^Z)SO7q_
zn|5^Iz7%pC>4MY=Asd`b`#$)C1OyzQp;VfK?nL{vn-K|Sqn+Gy*?lw7S?wKK9eUZ8
zm#EolZn_rT?H$<Fggb$H<fVk}%1vX%MOXC(=>**cmYGeu(F(aV1{z^y>HVM@hoPb;
zFy7SfyRxC=w9N-8?N=_^yY3EXwa_GK#n!TW{ZF=S=088kpk9UPxDj9tcByQ-flUsL
zX!E7iHLBqcpX-qAiTsoJs-ea$Dg_a~7Eu_j`!0ez5KBJk9Zj#4+p!BZUR^xo%Tm(E
z<KG_xfRX^!WVN#l_$85l5Q34+IAdg74ge|HB}jt|F$js1Nc{P*eu0GL?Y~K8y2j_c
zw0%rgp`MJWU7=flZ}4+7o6#HCs15_)GtL&;59BJEp9*t!cXVz>&IZzXk3#oo6Y1vT
zD~scjN=&;`nd^PXu}B*?ZoNp^gm5wFB~zY7lb$&L=3~t>@Z41_oXAL_-rMfoGjSrT
zvirNVPM%$6s*#+7ZlQJMNWb2klOJRKbfWntIaws`I1u6(_p8N&z%acbii&xr6gI!t
zZ0AC%(K=~3nN2m~E=$-sL9FSpJ<7nA3dU`eJfb<ZP)30q9HQ|}JkJti@<5#@PytB_
zd{qZq_bl0=6Dx}rBbg;2ez~E>#AFq_3ns>)e#kDmO!erRB=#%2_MIbpns2nn#VQ-b
zNhv@?1YkH|_2Yv!qA9uD2<op|-v|>#$HG43Uj#P6UE(res+Z`JVGi80Eg+s3=g<1m
z2-$Wcbj%)z$l|tio;ls!y&k1Q(Px-ysnn}R;H#2apIj+>^p^FNBG>ZcY1?FtGz|2F
zK=MKbzHz%%itxg^PqKuN&=QBj(J&qhDQ5u%a(_4uUQ{Q5>W*(Z2xAa$4?!)JS8}xq
zX2+;f3FJ>~@ob$7q<oS^0+hQthP@rSAp6?X=V+_zT{*f-xoFg8BG<bX1e3g^_qe$V
zTQUQ9Sfzf;5iUrA<CBuOQ92TC7@NH-Q*ck~wc?YV>%-)1eDkb?pq_?f2fsxK`FiBu
zjs<i=vUe!|l_pfBfDMusp%fy@PpSj80&*_TTR2XK#SSCfQ&HRXpQpozfsdD7dWZ2H
zP*S3ka%0s*<^Z`_+G6HN64}<rCrHCO^Xb#mBN#8O163R~$~uV<Q#ZE3$&q3mDV;`B
z<+9EZB$-()**q4UE9Ou?rH|xQ6qKiBF$xn$_B#VQ@$ZmE8HKA;9xYUzJW=#ylNMey
z*q~!uV_5$sM6teMYJ6lk{^g8IKhU@$zLl-5j$s6eK|>(Ju7$14b(;c7B_S~)fHKb9
zhdxAB>)2=!Qk297D~)a=Ci`}8uu1f$T$M|1BWSA4#+}WC>`W^zakZlU>0h-Z>>{n#
zY9CK_7{6|&iA}oW(_Y+pk~BIJ_LHpGp*<7rWGA-W3>vX-*BWx~mh1?6KK)c>kU>~E
z*8NFY_WksZ=`{O}j=#A84Oza=g;J7T=SVxs#>OUV{3{eq1~%?9sf#PiIX3mKFg@9|
zD0bAl%PVik!3LTiON-ppQ}tPW<!-wMtsz0~SW-wQ^xCy!D_A)?UjV9UAnw%9TM)LS
z65dcK*b_A?D@z`X*tcX1RpBQD<R&m**_56}4lg&-GUCTbVi@kS)RF1pO2M-73=E8t
z3TDbrcFHfIv25ISkWSTi>Nd~GugpvKN$O<~+}x+c>&lT`nel}YW<9s5AyQ=$Rndu+
zRRzB!2B`*vt%2BlCgdY`kA+n&^HcS@G;(}M;BIIsM`yZtLD8svLyKrlZO%u4UAY5)
zO7qi;r`>Xjc^qNHm{(sDqBzdz@|tbPp#}PI%TB&!9U-wq+HDZoX8f%n4(EmP-Hl}>
zPe)`ewHqAuddy7eZr$UVJMhM{LC@DVU&B2ZKQ!0HE8A;TbW*g{Kn6>yODhczchGIu
zbqaR(-E7+4T-Y(y;m|XamrQR8m|(OgJ3A#hpPQ0X#=DHu^YE}Y$98n!a?A^NM*C`P
zaw<Htcf_q}%4czyUE%TGB$|bVzINf;AtcTf7}IlRxo&}7LMYX3740pBU&r&4Y?3n&
zL}?B0{VJ;DB4ycM_h!{q;sOld5$}tO_BES4WjEDi#tNv~P_Ywp=%2yU41}<-IO#k>
zMV>K3@_A&gTX%B{S0VIaWa|LQCNYTlgoikM<%+z4@tFjHRqFMId~pAfnCCAkQa0ya
zb8G{3h2G@hRbt;fv|Y#R{Uu|{mUKdZNSNf=xV;XL+!y$HTyP00JRt;3o>Dl?JSC+h
z$zeyyiAN^rLgMEY2tQ1<cFP13;wcFwpF07%yqx)%CgsELI#^r8Xem-tTC0TI3n_~<
z`369I=c`n-12`Bn0CK}IJ0sLFRq4RjKlZv-=~UYHRio|ie5|uuYPmPg4s^^WwJ^<q
z<XVZbMw@yybt+Pa@{XB`4zmU+LZ~F1FwC8o<BdsuO#TkZq^Pc>jh00faA%~As(+Bw
zLh()P7f7u@YJ^H4vZq5tllqj(2nGcXC%F`|E^bkH(Q95wpeUbEgmr>n^QB-?&DC#o
z*B+l*0_*aW;%XltI7X7@U0^0Q2I6S{sjyd7x%@oP_ETkZG#Yv8Uf)&Zx%}Oy0^LiO
z@rFK{56DtZ2T)6r_Z9#7RNt3}bXR9b1n1KFr1cnm>WRg1Hnpyps3&P2P;Y6B|DPi0
z!3>tcoH|Yf)zVzRxj}~1|D^PeYy<KVUWF`+qlCdLIQv7;DTz)}>{bzf9>SZv2D{X<
zTxS4ndX57K%S2nA0Ntu?4hWxM=)wXv)T)@>-&NAFGdT>UjthP_MRO2OV}5rOg(`<h
zh>(^x=BSEzIK0nUIF@Vqnq_Z~$!CxroPVd*RPt!}%w&mdvc&9@SbrY0X$d&Ar=)J=
z0&nj)cR$9j6%oDjKT{>S%1Rp2peB?r<U^qK7Gc@nH(0xDBIw#adR_&<*XI!qT$%oJ
zTvi{}_&3G^E@5?_e6Qfk>e_R}Uor^z$yvt^>`auXfn8)D`gWnnj^i}Kubvf8eqy@E
zr$VGr`&`rJvJysR3rR6F#oGh9a0jZ<FLn>a=6jK<ajF)OVc8G_bB7Zc!{igpPN&S}
zns60S`7KI|X3C4YB4&Fda+6|l8>XaPQ^M3ULGMV?O1xu<+X`B==SHTg++~m>>#joP
zQnsj!0J!LFCk({eaD~ykxfwOw)I>doiIUj&Tg3E8&7s$SXdf|-pSQ5Zbs3lMjRtdl
zYW%3^*PL*4VO}N-xqn}w7nkt8YW7!^H7d9BZtbXx6WUv*a#F%%8v(Yj5Xg=!X?G{>
z0`k1g-edC3afc-x#d^Dbhv1Tf)b{3#AyUV;6_1jn_;V-u6x5B?Q>~Y6HXEqO4DC`*
z%ujObJ*Ahhw-NQg!DgDIUL>hV{ks);<6Y{DVmld-J_>ukO7f+(OhX2ZX3Hso3~w~3
z$|XjqYGiU;m@(o=bk6}-pqrs9z6#Q=qUi9Ka?gI}KJOaSYJu_6$BD_g2`CGyj^r&q
zO%2yB?6*ZCO$tw{bU~P2D1@>U&NewXuULRNMxA<^vlEYeBjdV0!|q&xJ1T6ol28<T
z=O?_dId$o?-7>VC1fw28ix9^dJpfJK1h;+oZ(R$I6QaMAsSMXZ9sBr&Pf?@!50IiB
zb;^*_cjW1U7DlMU=lj8M8&<u|OtrcDoYt-<BLh^Gp+?Q{6fDff+E111CI32z{_eRf
zee0>o+H*sKEf+eJ&rXT{yo>xO!KS04m!U(Sg?>w-cOJn7NGf+yuO0i=&n!E<|ElC(
z8Uv%N*+MZK{dDRq#KY<c95$6#M9;fcOD<9y=mq_p-(YPyIWJs`M)NxWQ0;Jx9;yPU
zF!!5v?opT5K(tK<0*@2bB_;n?NDIBZsO8dKu7ruVTGw)3eA!T5ZVxTbu4rzCu`i4C
zRdg}hoIVoBJj07P<dWND1gL3d$!Ih*6XL(n{OX<$IY=jS<0wphTO#`udn(g9tV5%F
zG|!q#dYqBm^82SYjVGjXNm;=h^s)Ogyl+I>{5;d1JcOe0TKDFH-h9Qt#&eEE`B1Y>
zn5}N9&1VI0SZ0)`8*PS*50#QjLL%B6UGcHuq>djUJ--opG9%SAxq7_W+{Ug_BUjhL
zysvrFw4XVf9BFHy2Gs@?aL-mV-?CCPygCXsmds((?IrP>Y#@|MBxn<$5JVc1zT!TO
z%^07{au`%mQ)}U#3;%QTDnX|8$IjfTdXn~8{<z7mNZWy}GPyzLWk!P@FXjtqHXh54
zUmEiwAn1}~O@GUm<r!bjj>bIqmn|*Z$NkJWZuNr)GqYm)0u8#(L!%U*COfy{?9P~X
z;if4iGsz+}ZPO+qyqwCgLRCQFT(@201aL)97<f?pH9kNOh{!uYb;S!-W|(q@u+dp5
zh>uL4P*6Aok-K>{iQ#eny?a-F{P^)Ya1Np!31JJEbQznWh|xOz0oqi-!dJJMRR{h+
z19H27z$$3dV7hm;C^Trk<JSRtF6DTgRKW$767j(sh8m^h`;HE7HqS*eGBTJ{wRBXF
zho~cPi|C-IFo-?2w+pH^#*@xtJ9KrlOAVr?c{xz_5@jdA$`6Q(t~m#6WgusG&+rg&
zZS{<hgxc+30a9PqkcvA*;odTDo59kFzWNmqLn0zBw^)8)e4jx26w0=|lQB>Txz+*+
zp0%P&q0<;Bx-{X)@>lgQHP*okE?DA;`KO^8Xxe$P<al+>a&T~XqDvSBq9rkOff}o=
z=w~u!40}@LH4h1z@F*;dzi*l4mDF-`7)oyOdTL~7_yaJ}Q8_t^i>s>@fT;Ucg%F<~
zb{ms~sv?ZHR-=5nhg@|H<rNGkhV!Av^Tgl(68NB$$Q8OMI2L2jFHS8nV3LN4Mz=N=
zddGXqhzLQ{%a^D32FJ@lyYcAnhnSN=#<UR2_h(v~5Jr!6M%zcOlX>^J?RM6fA?9JT
zdEMqW&0@aDuVlei_p5;npVL^8YWRG8KiApWd2H@Udh!(_J4u<gQl|PnTcixTnODRZ
zR3*YAx=I>Y@jXw^b*`#zvry4aj$hYATObF#;}s}6W51f#VTxj{Unxcay?hG6TKVvm
zNC4y8ElsR{fS-m+*ez%CJT@blp@?sdV%ZV8JdYJcp+TuKi$fQQ9d&u@O0k=2!izmU
zJ%@p0-gl3l)+=xlA@XpTG{@eAtDx3_&7D7f{KmAwxrgPL*2XmXY8c}kJ$?FN9Iw-6
zuLF+SSoO;oo&cE01i>&*jQRfnTjK-du8zi>KXm9uOr@Z9cI56Q_0B+#hN1Km4ebQ-
zOrb^oeA%u?DL4~rn&*(hJcE$vE&+jJsNu3O^bQ}s86yShuG$_qXhj^A_4e^8fkNUi
zlCAr41K1nFo8TH?X|;0cRiCzNB_K1cW@9r<U|`T{ZSV|+hqgipi|k<y4R(l}uC(Kh
zTe&(u*P<>QA$E;u`}Izil^gd_Ac;`_nP1y#cE<5igi!9)_WGz}D=xXu%`%k!Y^qy~
zwi^*1sfH6A)QJ{YhO(Oe9BO%e^-svJr#^k+N?Bx2&4nV;G3e|-L**z(puc~ROvKL{
zM48~*?*jCh?tZ-d7CG-4HnyGi!4SJ=wtUSret?^s+iURd?b}<Wq_oqs{X~KUxH#Yj
zSs4*jAxJ5?OU_hVo&!gp%z*utw%9k1^Uo=7F6p9IjMe*39K8DFXf*wKD&>Rx!R>86
z*e64O;JiRC5q-b~n0G(S`l%S`+sg9u=g%+BYZFM*;)YU9sww~W?MD{!W|_B~H*X7c
zz1w!JvA6K!<uyV1>({R*O47oe>*MOwjhdAi>H_l6!9Px;4Yb?^y1E@cfM`?`Yhw|6
zI6x?7MA&`_8f5nGEWeiJX>a#}VVIjDGlzrH(393W=QX{xw{Ygtoilc_e0(RL_=I;r
z&MIushyB1}2vkFrYt8I~;s>$05sx2lbqg;R>6PJPT1Wvt9;ZZOFc@}{O7XH{wX*>E
zze9if78Vf6*A2j~_xE3)8Zj9D{^w5%Fn|uh&xa^xL3QLv5&~#V&n&8wTi6@hWMp(F
zS2SlF8Fx;y(^HCq1ms8T$bHsbC!kP4gbQ;E|5&?rTk{ks6QcF58LWBfgG|~bON<$t
zH*GS}^e&P#`FvwKqo(z}nZu1=oezt5xK4`Pd>!GY{`0t5Cnk;Y+&H1nvpR3zl}{E>
zd)LeNc`TD)wa9MZr+{_nF<pzC^i0F2Me7>*DT;^D?x&gV+=}V)I2_Xl4<0;<h!`3X
zhbC4%Bh1IgXJ_Y|Pm7nm$lr0h(kTy0zaO6;adU%b(4@riw@tuBkBU8mKFW4%=-an%
zZ_8U?slE8<3b&>^5>{I|o^Z7ws<g46NF&lJR>JR*w@c@`c(6&-=kTkq3jb8yaQ49d
z=r<2G)kO)}^;947d#l35@nkBxIZ^`lxAlx<e1OTDCSyYYM;1j^Sc(vdwEeDkpyHX!
z5|v<QeC5cs?Ku`smtnK9&UJchjlKo4vLC(?Na2=0CXQnl#5Qpa%dIFzcP|=F-ns6u
z|6N_Qhx_{iF}5Hmzx6;V56O7cR2E)x8PZfgs-SdTt;h+*jJTlF@hkMBh0bu425muv
zSXX#hCLt1$VB0AO3AN>Rmr>)E3r{@k%gD~&=%N3^*nV-y<BrHhIr-8WcPb6-y0;xj
z_t8_0pa{3j#`!E*-Fb4LvCDb)dmB*rA$rGh+-Eb3oV%mv0d7T!E$*)=TNX&$=W!u6
zb`Mc!iEbA0X^D~=N$=`7g{x`ZrRBcFx;$#7hnv(|lcMKNQHusqqKTBaJe8JbFc4c6
z!)lkvj?<_sH4eA8@z54&(0eaz8^6bS(^f;k=Ox|R@PW&+4F(AjvhKPIFA{xAt2)n@
z4CwZ-8Cb?J5_Z<E@<3DZa4g+W%Zb{}Jndu~Lmzy|Yr_5IJyc(e(|%l`+iLq9xZ<wN
z6o*E@1KPQg%~Pkg4>-J_TXTe5WgB0jL8H#fY0$8St5;;<6MffTv0{Zt?i>=LKKt*F
zc9wkncnNA<6i)6RS9)}e`;!yOlWpf<$FexG(bX=5zkb=G)C%EziDu>CzSFd})I;1-
zQZ)=<0#8j;)$Ae!dLYQP4Z<8mq2z&k^py=|pQGKbJhurqkzKU(1PvrRQ&m;fr2`hN
z*{Q#GLv`aAg08lSyP6&MzD73(TW-rj!+m|q&*^>ItxKb~Yf)_4mhj2`tdTcWwv*kp
z>%{1dcc*C(?T;T!9Qt;WZd4I`8+sl0xYitRhMwzgm;Jr7*u*N3#tm$?h@p?9ZUkL-
zB6yJ5sVFkJ-0Kk|^+2lzjgs8SJThItN1c@Xru6x(T9LhxYjkqz(t5qza=rRuJYwUb
z>Bq@YQSZ*s+qmS_p5^vC+?mR=)T#7Hj*EMP4h@qrFPn${Z(48d5;Q~JA@>s2>U+2^
zPegmwM)oFSh`JFeJBZbsGOLR6aDZv>$0oDBQH1~Pl|9U3TE%clxe2A5d#58HKXsqq
zD}m*J@wOcu4dz$=tb7A+&#dA*lGRl1w{PEG{?WVJFzBr6wdnGLW##1vQL9qTE8>U@
z(%Kfi1k>nOuU5lorMS?Qe&)=XEpFjQy(&Mc5dl;j{JVhTmp)s-spkhJx|ibZL>A@U
z;u@Hjr^e+3h<0@|TV7?hELugSMVh4|%erdz$y{|k$F1Cq3>4I`?tYKKxcyK8r+AA-
zz2qE!sS{~^C_cPXsSe2(bjXjpxyc|XS@wR}QQ??udp-sVz8|5jPQ(s}9q<vqC?17y
zs<6AL=F$i;s|9%uLw70+-{Z<9&R!J%?k&vTzjl>P`yO}%b+QlciQPYg{Poe!&2^8Z
zIV1Mn=3<W?FjtkY6u7BYb$k&YbGBjN;0ypN5l-6iPeH;$ixw^V@g?&0YvBs<TMG^D
z#8bC)XkEBKk{OKH>VudQ<EL*V6PzXkvAtoaPp;6ib)fK%sk#f&O0h|!&=MtiwXW;9
z8p>tC%PY^i!;9!{j0=@Yeb*5f5O5ixg)-LpIJ3aWz+kJiw9doz3A~P}XH-?6b2O$2
zPJ#qzg|Dy3H3#ql*GxgI<|^^krzaHXOy(2eFBx4`ajmMGHTRxjOYECFLF+v$D3|zs
z?D4|5mDzP5mn{svG7$T5lmFYGiNxTQV&0OGpSNsk8Tpv)VgI>oJh37AF^jTogv-(?
z{p}IQhj{5HaJ(&SO9Le)u&$>wBBpgQ8hZ4VfQX3N*rgn=im_V)LeINf2JAVdom5@w
zqB~QO+8-;Dw*U2X>G5+M<-z1zdZxR2K6r3zXW)}3k<Xtm#JwR1$UC}*3WE$vT)u6^
ziNFe5ZVGhnqiS3em>r#8OJ!}5J;F}o8|+DwYFM#+`Oz~W-YixKKVKh-oUdmPn@6~p
z%e%Q1itz$2+CZYcY$6V}tvk@*V7H_`qzg3*S*{vAubKJEHBePqd0baFJiB^TT%GHe
zr5f~jDWdQn<67~$C^wh2hk3(bkIcoFj9ZT<{02F=n4eu%4fKdsG_8xf0b?{GnF~zi
zZqJgj<T@p_8dp>WR)rb7xsbOpXwxVgTXnp-12Rnz;#vvLI}sZC4c5gaJjzLA8fPwC
zxQ82bS;W>Xgk8B8DT`n0fAJsWmUZJSEG*o$XU}_7M+Gr-k5oNNf2Nb%2UXj6JDwN%
zq}#E6laPr_?x-mHE+8&0e&N-{8-qjfKKbJfTEv6LcFqlrUt@bY-BYdi#m~4$%|`w(
z(=ID)h?7xskGI~QIgFOgpSWw$f?SJIhpmt_AlEhvx*v6j@u`2ow}17WDM@Rc1=XOH
zA2@mP<myeE_--x|(#f@b3%vS~pWmODQ!q}uuU5yey-?8?v<?H~XmqD1;Rp5z0+BFk
zgC^_!We@XDs6{9%dEU}x(S;CDB);snS7d(m>TKJmJIlq7rl*gpa@Ynu<E;*~i{=Pz
z`?wb~>5WRcf25&pnd_+(ciLL?u$>vykAmIaY_U3!XZsw{0e(mypB=d?taW1d_S<QF
zP@?@PYR~R?qmzZBZ$ViTb@yQ1v%H~8b;k#rx4;<G2UZEhPGl0tZVflLU|RVVZJkv|
z+>OT6BI3|e85tc-wI9%o-C!o3u5WujN8;K;wmB0+k#TXy!xn!mR4@Pj(wu57me*Rc
zu1CC*ZG~Zpnb>=?R*p+ujrB4n0allO)^^Dq#?-<-7>33+U;Y_QwSLN99AEKpMtYnV
zX)-YDa|<O$Mn-IB%i;#8>8ABYXQy_ZF=c!6i2e<^sYqw@=M7H_wx5{_@4N8qmoT!l
zo6Go~Gpy%EKFpPBZF6;TIista+<PibHp(gM!ruA@H#I-1kobGE&zq(~`+8)!b{v{`
z7_L0j?ajS^lxDbM0+q>A6WQ?s0PAuyVKq^GxGQ3EEiyDks?_N#3;g=j>$^*Xwa=fw
z12OzR)~{bS(9@U_ku6tSRi%7TSB=}EZpmlch(~r2#i=eTNv$%;-tjgs${`rq$oX;S
z5d#Nu;I^o?!B9$o2qaqVk2Ptmk4SkjsIIDN+~?c(^~9;rtFq?Z0kT5nqIGlXCBf4U
zhB956J%!U|xLtp1)32V+{j=$AH%wE$J9zo7p^WBQ%hRYbW-)YhhSzYf4qNoSmrGSK
z=lXC|4>zdX9u<b`WEywX>bP<@b#PoQlFW4<?^9EZ^2oB~-Z!x#S?E%mhTl{Fk4w`h
zDNXzLD60wCGmTE=KddQ|l;kbS&0c2{IeR6OUTUVjz`wAe=fv(ejt{>dH`mW=^M+10
zk@*s{?OCmvX|{}Vm|m~5v2rXmS9QnYcl+GslTT5CE1mfH_=H+zwklUcQI%I<_wd4L
zCrq<A9^vS!yTUPctW@LpKK`!Hp?%nxkk(l|+ztNbb|mp)D;&(KyFTe~p!R(SR?q1O
zqg%Y56{gF~i>^T%R$w*t<U;9;RMSQQ$jUyCiGh#7CipE}$TVX|clS1`w8xK4P(U1l
z{d_89MpJLE_PFpFPIAitT*%woXTGX|#$D=dOOUK~2?}lqD!a8e#!%GQB~BC)rymqM
z(7!|hSJPz4+w;sCpBTIcrE}_NfV{zsyayzaA?$zZYc`wt^X1)Wr;21Y;=aa**Podj
z{tC;g!5HV8J2&^4w+PwVzD0&{F}>*wK<@o_col<h3Fzb+_x(ms^a#8yDfd?RKWtZX
zy$hPjy;BCeuAjy45ivll?t9QH9zA_}4=@sB@V;ZHjG2OweGRj5UT2T(%+-6}m%rqM
zy5u&FZ=iHw%<ADMHa85^%va0lk-L{(T&Q?GbSe&#%TXAmN*b6GI^Nm7G=sam)8pFR
z%FmyVqAg<A`Nr(>PQ8Vg#SqNVHs&apLjX+$fU-tz048iOSs~?nC!kL`n5-F|is&0E
zFE2k9(2dG!H7DoZG+qdZZ!LZcdFfOr=wj4nGX#kL*szt!e^yr}B4Bz~{W^p80w~17
zS!eCQwJtxvG#|5Nth?^Tb>qSRfS&!@!fx2y+>VHd5L-oD$9`yxg(uG}m=e{rRB2%6
za*SSF2M@%g;Z)BJf&?gd92VvUedhPHttVQDQsJ<J;cRMdbBc)&rGllONbwO*T_o_^
z_v~4L`it1^8h!>X=0UosS6>aXUyXa!VlPt7$6TCbmAyyKs>q71X7l_QKf&zn1ev(Q
zDk^IN__gjpQm$6UbfL5?%05W-LPpfMJzpHt0kg^r2?pi^+#^^<x&Dg8+B<0<0b6*2
z3Jxof)wp0JbOvEmfcfF15WVbZ`mL9AVeby7etxT|G)bEk4o$FDxaKVk*>qw|ejPOH
zWA;f0ZHpo!<ql+mp65)Ag{}j>e*}+OFd!<=&=aHRkV||j?JQbWR#pumQ@{!#eKKd_
zKOVoa^}v9v+f25Y8=ts1JGwE%kk%VArRyoexva(+?hqmugF_SSkne+)`Lr-lh5ZWm
z0#y@P3LHGvE6YsrK#)+!1R;V|Rgq3zu{P||Yx>RN1;gkse#5g_KXkyPZdYtebz6<A
zBiEIQS(It@y@kja!BrQ|Q;3uO6ns`!*PGN1thT^fm?&0;1@$J!G&MIt+$0rtD^QGJ
zgQ{b7e%7xcwE@~uTB-6UCQFO{!q~W6<-*b?sh`KcL6mS^pl3PqpFhCN`2#K<_dz)P
zof}Z<m*dqmEHN^D{I*My%c0bVO*2PzWIK$_A+LE0*c35rdkT?7V4uV2NkHrSf{g{c
z<-p|)D{T&Rj)QnwRwf*{M`hok*$An}F&+<NMZ5l_dYOG%p_6tfP_J54YJ1Pi6VaXf
z1$6Uwu|47u0xz!COx(U?vB3npV(}FYG!75pXI4GcTfJBuj2m9Ed-V73+r!8A%5l^X
zAkikJ1@WgVEA#Cd7rWkv+@=_0`EWc|;wrnO4<uF~;uw=$bKwfH4-=po9f3s4haV?0
z4?PJC<XA4FC>GX4WHRGf4p+Pqb}p2xzVNu?NVxDP(d1(s>|0xQT6GjSXVtRu{P9aG
z;QUt#Wxc+_(L<{HG(RwVZwYjf90f!s!n9Um=(L-x<J<nyyt3~4+AG%}W{9%;Ph&p>
zMW(pca28cvvmGsYY}L+Z0-oZq{oJNx#J=Ilz?Q&sci5B%uLP6=QhhUUO03Roxl;tr
z<^vgG5;!cA%vJ%cXxs08{HMY3$#I!rwp`mnZDg;);|YszTyfV^QMmzVd-%r9%v#?V
zihrkvkU$}0LhJj`vJu+IkP7z;rzo>Pba#!*j8v5|IT1Cavf2WJN!zL=0Oz4&EDb*|
zwr-BZswkSR=y}zF!2Ms`BELka6rA~8`pfm<O-sXE!E;;#>VV9c0~l+iBLupvCtT$8
zeCq36`PNnJe%O5fmt?uU(Bb5B>5E<-7>Lb$h;Y*~rZcW#R24{HImIWj+z`-$Km@O;
zkbgI35@1WfW)yx_PO;vgIpJlcU~7#l#keW$#c^7^4E2|YLpR%CROREP;-9E2ZB^yv
zwO@JNPXw+FzKXn9cIVFHlLyLn9;|hJlRmZoYSGL?+;DIolUo?UR1jX)tjztRXELI1
zOCaotPQFguL&|u$`qv%n+79N@<jq5%2_R9g&F)~Qr)w%+OF7VX&}qrY6iUq_hK4(V
z2k^Mvk=b~L+Z&jf{-erAYK_p!Q_py}t}Ql4?Zk;sb~TKI$iBknyNOO_U3#|@&9p6k
zl(rWCiepKqXJ64Xwg2M|`|<v6j(D%=s3>AKgRTVgix)2@5y_c0M(iF)vfKZ@_4IXV
zisGRNXqbXMz8Mz9`(`?@E=*!O<AudX>lRZ8Q~OR;pkUq>4qKH9&|VG2;vZMFs#a0s
zQAz_9R5^S0CZepTI}Oz)rhGmgRn5F)`#!;Cy9=rb!#(~c1Q~*f?6Hd%w_pt0BzIBq
z(p;9NUw5o6ETPt~oo#u@W?6_z5ZEJX7(m8V@&-Po9~Lb($=uXrX@7s|noXM?0AT7w
zYd@I(?U-7?&ZH|4klzB=Cy!3ggXWD}Nw)(89KMz_5v+3h?|Y^O<uuq0*=cF$D1?S7
z{@R^p-n7`<@8C`Q<y}<j)y!S%VB56hTXwZ_29sFvMPSuG88DOBwX?-qT$}%>?BqA*
zHTNE84V`62+&Wf$xN<gHh~gjEMX5~BYrQe;)pRSc@|p0>1!l;(_M7Q9+ZUqO5_oW*
zUaqaem4yIdf@V1l&Z%%E3@8n4U&7Y)aE0B=c(4KI)-bV3%$+$V9sT8#eC>s2%krFb
zW1Nb!e+{8Uz{lnU7SHeT@p|LsXPV@DX;8Yo<LkS&f-2oLM0JQ6j&pncguWv(B^Ge#
z+r~!qF}wd(-IaJl-M{UTq_S3zG!aFSlr4=VAz7*?+d~^7dm^c9J%x$V!YEP7UOd()
zOkq@}B$Y5?%1$edjFKe=^IqS6=RCi2-uEwf&vE7)GxMGA`uTkB`?{|Cz6yE~untV8
zpu#7j<)1T+(~);(0>w3G4N!VG=FS*@R(Q6ecdotjCzXt>DwqhTaqH_orW!>&e${a_
z`(<GBdn|B)4C|O>-c7>vv4NcvpI0W4TMg+0ov>Q-dc3l8V${uTx#9)~x<&(4ZS7hO
zcKFoxVA#NI>kirUfZZ=M=D5%RYjyqTiv>@2CBUmvVM^)iy@L8twUKE&sl$Xf#Up<3
zrt%8x{Te-^=gEAA<f89!TsyuZ510w9pn%)Lm)8$`k<YF7Jf=*tG~6@x$UY9<G$g9p
zU<REJz~jTdi)iYf-!V4G5e+H(JLn%C6+rdS;6<FxcS#N}@8<Q9^NXcI0;}nC`?BZS
zjwu3P80y<*&YYeFmlKD)Hs-Qb>3GW{&EtK;5PFjOmbE0(N%ovsJhwp(x4fuTZ^D?1
zDyroe!=h!IR3}YCf-*Gg(ryTjDVK#8jVqft_ulX{PH}B*@|fjN9_(9B)Rqe9_9W1&
z(I}jeG4_^m!_{Bup&T`*{xi_C;ZfgAv>$FuH`gJZIxHA4QyV`w5Rn1$FR8|JN<M*<
zF2FMJ$;p>SMvl{c-&rNCp~GwjQXpZh32$U4f54(ZFrdr%G=K>j4K1u!F$=`>D~#5x
z5!xKWHQm4e=DlV(l{r-&7s9d<)$K2xBwbM^xdyIK+Kvem-`W*T`N&*!gE)z8R-r|i
zKU-eM*~izLj@`ZP16KyCs4sM8Zv8n3V<OSQ%(u}ao1&cBo@so~z(={{*2;3fEG+FL
zD#oo(X$sOjv(AE0w<xvNT`**Vf=`?BI(>MdgLYw%kgn2qVvv2B6{+YoH-GT}?v~Gj
zjmADE_-#`{6oPK{TfxGh-F76nA6I}Bq?P`m&ZQm~^W+&@Lop>KPpGP^*P%q91ifzk
zI_Nu`Yzn-RZ1o1#GjV8&019x1OJWL$j4bgzYEI5Jcy06W$W~)sOHGYMH}}I@2T-pU
zwkQ@6>CX!P{NB8nh7TXyJUl)19(6l5MkdTi5ClxR5jr@7px&HJJ!WPm1kj6Ev_To0
z(pQc7D6ZX>5J_siyOv~3p2ty0@3ClDo!DODE{p+^(@sgcdNp!-`ZO&<nNOCJQ=2|N
zeZtuDdK-d$B8PaNtD><%So2Lw3*1!BRVS70h7UvWj|q;h1PHGEtUZOh6NE6m=-NgT
z=1Uvpd?rMN`~m32B1yq~M1E_B7~B?_YD<(^%+ib0Y19mVhv-RR!v@Qr7}`7@&-c|T
zo+PIVWw;d5`SB%*CHL{bXi`9#m_1*|R%VM}8g~0-s6Cl$oK6M^@^m;1J|@u})(Fj>
z+w*9FF3vXOuZE-sv(20?lj1sn(jP#)Nl_SqUn60Wn+cY4fWTf4qzlO+qW{*i$3cJU
zGXXb-qi8j4N_w)FxQoPK`ZMy=Y?euTx;cOkr}&`iii&-*2R<yEgmsVtfBn%_y+rae
z@%7LOZw4PXEHg8cu(y<yx5;z4%B{wFqR_V;W=j_yhjF{~T<c!UV+%bJq`7;a5Mjp0
zJFq{t+IQ#nzt~?~z=a#5-NxL4OI$k^?OVMep=517WFHj7N34^4pSrQz1wLBPOz5<j
zF4#Dfq}~b9#AQ=G==-x<!lopNYu@l<C+Rx~u4Kfub$4uf1!Uzv<)u0KRI7Fi%WjR}
zoX?&aIUrg(ZbvBx{Di5k!Qvbcs)0Ey4(~=<-M3<HZcff6@2lKABa1wSi<8rxstVdv
z6#KB0FAY6@E*(s}Gc)=Pi_b;P?b6wT*Q(}{E=;~hUKHr?15Sh&M{LN1y$=d<=i}x*
zxFvxgRrOmiZxcJr`ki1Yx1ROLvf$`(@5gnAY~97pXELUi94O6KxO<ekb13PZPP!XC
ze4hUu3YYM`JBXGFCOn!UOXh1<Ziz^AW%~~fnU!muu{37;$<Ev49XocQMp>9hf3ve!
zmp{1sg3`4Lo}vU>MM01H^DsZXF!UD@fKQ)BzjE|Z(f}{~BLwCRPoe5_Eo%=fSG6!V
zzYP|YFc(G5dldL$A3v5y0JPf6f9K+`Ad62($kNjh4_Gf7G5J~g*jsym=x4>OLm?OY
zjv9RM4YN#?M`{m$5;Npap8yP{U|`VYb914H2sRZYfdszC^^R?9Qy@?fe0&==vTbyq
zCE~KWR7{P7;cEK&4%lb8ej#OG@s3w_2D>WDUNGUT{v0AmuS46Uk}-B*ohA$8zBg%7
z4pK5O#Ys`))%lmp81_oRT{vg>cPc8k#i7ea;!x)WrPR@XZUnqFUx!TL84mDJo0S%^
z@$^l9ot$1EGR5yJdqDaU@lox#Pv-H$MBC@x=r?zuXZseIG&N+PLrFAhfcAP+%;|`s
z6Cgo^u&}W2R2`tGARRWIMYFE!C~D?A{yfTUE$TW-vM_dhu+^KTp9O*qepD%qd;`$?
zBw0gMRn<Q|k`^O)UfgMc2L9_JBNOAjo<U(715)Md(gctC`ISxiVfJ278j$FnDWG}c
zQ&atZ{RCdFkXbyNdit!Xv$NdQt5>zFWtJ^l+w&fRxz<r(@}>dfm^MTW-MThW;>S;+
zF}v?`Mb9fQt53jA5Y?<N@5vHu1LCRL%2Qanx54NG`OXC-tub2UZq2^e>XLyE%65V0
z|8+%DO6puj#4MR`%0fAgsUGZ8VxTeULoK_;s3pBGzCK`T)W>!L(yAwbLJ$9HG=*>k
zc{&Z1G=D&<@W#g|t$GI|?=T<wtX*K@WsOR?{r&xlMn=8%6R4`~8yr;S*!mAXd}u&W
z*wh-~&;lNZXDbi!SHUlG+0XF>8zUriwa(JC{t~cYz1zj}bTNyuQS1(ho}Pw_-46qO
ztAkiaqN^?1S@bKEmKiAdFG`F6Dn3zAziy;9@#y2poO@Xvq;;2*Y-Y+0BsMubdy870
zogFTaJwt`_#^#hTCXAO$lj_R5)IB$hnoc;<54q|O+XU@@Jet3bG0d5ymT+5EEHw7a
zsovb7uKWa&P%-MBiF{|8+M5lksvFtie}{OZ$$L#xlZ3RI6BA>twvu;N6%$h!GyV!Z
ztIt7=h32H|Sz|gU)3?sDmUIJ;ydC%YG?k%b*Kc=LnbC`u*Mz;6LNl{{nz?<#Gj=NK
zv|eGs4E9~f8iwFs3SuAqqRa@zPm0bSkn0Qhbye8rRw657zYWtP4aK?G)El391B&|Q
z)VwS$jmG%<y?HJzT{WUvhL)nTx;7Kd>=mg+8E0g&XhXr9;pJKTFhgxV<>@YYPlIL)
zOefzD&l`nEMu7Qa_l|C^pDFOCMUs+K@c&gS?3H9jf`h%a{n~8YYhWA(bmfDAVpX>|
z^a=!hprWF31A{2%8;BRT$VsGg<nR?Tu#H=;;~xu=&_eVjkfeYNR(S9T(jPl_;$p#H
zVVk-6JVHMaY!VQl0goNnF5Id-7R00q+;;L>A|Vx1tME7!B{{dz*9;bI^F>4muX=9g
z4CgP<0Pvy9m0t`)K3sC;(iT{oXQ?Di^=Khzs3Ab28#f3l3A#rz05EgRdH5>66a^!U
z*C{&IPRr*SPxO?EK`Ej2L*Rm_$GXCJ8g{fwQ`5FZ7_Gz4fJVD`<h@pU2Z4AKrvl)&
zL5%6u6ml+J%wc{tM68TmD-UNO^Nkl9@RuPIP7y7^SDVcC9AQ<#3M+;%y?t6!W7b>R
z?l;g@q6ngl;01avKevTmiLl>+eO!Z?ba;3;p%H-n-NE|~i!k!)<RhFy3{POez-g?V
z@^N!hAhat0Yj(Fm$z_a3JZRW7=Fh)#vEcOqQCKo8VN5>;AM9(K>mBya(=R<U%Vg6u
z{n|7<JUlWH(tX$>u+q>_4lovB@CN)Jb4n~!fR1zv910_3IBu`=Ng*g#q+`^*KN>11
z%t5-|dgP-oyFd!ZMR@tqk9002s1I@u6gEqT-LDsYK^fC7CS-y+l~<Mq%x(5DKpX#q
zus}wGoy45#zYbb9#{Dzf*BC!9QAisyjCiSex}|lf8QEdEv>n7X;l{ZXT;y{|)k;qE
zTWQL%AC&G}ub?3<DVh1QF-`A8PUySBy?1Xvd?<@T6%yjCT5{58EV25AtVx{|I_%4-
zq8r=Z2f_T}o@^rdfP=#&upJBd#({%xE#GmoXQ-3sbhSLPva_Gr@bZgs7ya^P{utG2
znZd388W;gbkK_>ugvvY3w&djIR*l}(E)P&HGfxk}+3uk)x?i-JVLfE+UJ6Gf|Fi=U
zoK_XPp`@|%Q?hA7WF)7sI0_v-J$aHYvu5>b(_fe1phY`Ef&)dGU3V@up}N`#X=EDb
zIHuc83@4P^yY@pU^+&M1jCqiWcfWp$BZ*1$B3Uyu+?;jZ>Qp|z&_eme$12>h+eO<&
zwy?v>Chbg2=Ag7LPtT6dV5sxr5STKGcq2ETc)VLNG%+?7l+S|?#{j!f8f(I{5<^Og
z7?>3;c6g<WUg6$XE5#NpXuei+ZM=|RGipygg8eW-2ceK$;?~T_<R?Jq13iy6BP4iM
zx7s?;rI8{oD*A`v7Z?6ilK*-ZFZAz4r9=_py@OBY(8L!}QY;6Iot#pwCYCH-99X6Q
zX|_+zoM8k~*wTjORdx#j5iwGId{oA{-G$@?NWGG0-wzJPK;}9S7y%iMenSxe1VH`;
zMZDvV6(b^`(_6nj?($A8>MgE4J?v$|4&QrBOsdklzQf4<xoFMhX72Y8A9qGm482!$
zw|rWy)UxPi_xynSNeQk6Ok59wlE#DX^piP0Mt{<!%Npv3A>Q3_g-^py(K2M~y6kdJ
zLYQF9^rp~L-ws?ZnL&u{hG}dW)K|K%q9%PSY_%uMRqAN-2Mud9_#*elH@+TwGU#o*
zQAZhIE+(H3(f!qhV$rT${pREZot=8izIfGix;J$;-NmV(P@AM19HAllF;&Lw=+VUE
z8lpcZqV8w77Rx(t5lpT;c@rHy_-Fs`<|$3;NP)1VUO;@73F*^^yt&b?uPbdw$IVrQ
zYcwL%_wmSIrk)BMigsOwzb`r22)VlsTgS?6nNnXTR-++WqtO$MJ<TrHB{dNLiPm(r
zLib1a?_Lh+G24mzl6dzuU+K<_=!vlRf6gcW=coRCy~|9J)cU>Qe>NvxozDoe{?}Wv
zd;3V*zxVgw4?ar$yVHNS4HXhM-uU0I{NCdK;m`ewSlghiMP-q%5{-;@m|2+?n;eY%
EAIgzzkpKVy

diff --git a/articles/AMR_for_Python.html b/articles/AMR_for_Python.html
index e053e1d1..b0502545 100644
--- a/articles/AMR_for_Python.html
+++ b/articles/AMR_for_Python.html
@@ -29,7 +29,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/AMR_with_tidymodels.html b/articles/AMR_with_tidymodels.html
index 9ea5e898..f99bb6f0 100644
--- a/articles/AMR_with_tidymodels.html
+++ b/articles/AMR_with_tidymodels.html
@@ -5,7 +5,7 @@
 <meta charset="utf-8">
 <meta http-equiv="X-UA-Compatible" content="IE=edge">
 <meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no">
-<title>`AMR` with `tidymodels` • AMR (for R)</title>
+<title>AMR with tidymodels • AMR (for R)</title>
 <!-- favicons --><link rel="icon" type="image/png" sizes="16x16" href="../favicon-16x16.png">
 <link rel="icon" type="image/png" sizes="32x32" href="../favicon-32x32.png">
 <link rel="apple-touch-icon" type="image/png" sizes="180x180" href="../apple-touch-icon.png">
@@ -19,7 +19,7 @@
 <link href="../deps/font-awesome-6.5.2/css/all.min.css" rel="stylesheet">
 <link href="../deps/font-awesome-6.5.2/css/v4-shims.min.css" rel="stylesheet">
 <script src="../deps/headroom-0.11.0/headroom.min.js"></script><script src="../deps/headroom-0.11.0/jQuery.headroom.min.js"></script><script src="../deps/bootstrap-toc-1.0.1/bootstrap-toc.min.js"></script><script src="../deps/clipboard.js-2.0.11/clipboard.min.js"></script><script src="../deps/search-1.0.0/autocomplete.jquery.min.js"></script><script src="../deps/search-1.0.0/fuse.min.js"></script><script src="../deps/search-1.0.0/mark.min.js"></script><!-- pkgdown --><script src="../pkgdown.js"></script><link href="../extra.css" rel="stylesheet">
-<script src="../extra.js"></script><meta property="og:title" content="`AMR` with `tidymodels`">
+<script src="../extra.js"></script><meta property="og:title" content="AMR with tidymodels">
 </head>
 <body>
     <a href="#main" class="visually-hidden-focusable">Skip to contents</a>
@@ -29,7 +29,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -75,7 +75,7 @@
 
 <div class="row">
   <main id="main" class="col-md-9"><div class="page-header">
-      <img src="../logo.svg" class="logo" alt=""><h1>`AMR` with `tidymodels`</h1>
+      <img src="../logo.svg" class="logo" alt=""><h1>AMR with tidymodels</h1>
             
       
       <small class="dont-index">Source: <a href="https://github.com/msberends/AMR/blob/main/vignettes/AMR_with_tidymodels.Rmd" class="external-link"><code>vignettes/AMR_with_tidymodels.Rmd</code></a></small>
@@ -84,6 +84,11 @@
 
     
     
+<blockquote>
+<p>This page was entirely written by our <a href="https://chatgpt.com/g/g-M4UNLwFi5-amr-for-r-assistant" class="external-link">AMR for R
+Assistant</a>, a ChatGPT manually-trained model able to answer any
+question about the AMR package.</p>
+</blockquote>
 <p>Antimicrobial resistance (AMR) is a global health crisis, and
 understanding resistance patterns is crucial for managing effective
 treatments. The <code>AMR</code> R package provides robust tools for
@@ -94,16 +99,15 @@ framework to predict resistance patterns in the
 <code>example_isolates</code> dataset.</p>
 <p>By leveraging the power of <code>tidymodels</code> and the
 <code>AMR</code> package, we’ll build a reproducible machine learning
-workflow to predict resistance to two important antibiotic classes:
-aminoglycosides and beta-lactams.</p>
-<hr>
+workflow to predict the Gramstain of the microorganism to two important
+antibiotic classes: aminoglycosides and beta-lactams.</p>
 <div class="section level3">
 <h3 id="objective">
 <strong>Objective</strong><a class="anchor" aria-label="anchor" href="#objective"></a>
 </h3>
 <p>Our goal is to build a predictive model using the
-<code>tidymodels</code> framework to determine resistance patterns based
-on microbial data. We will:</p>
+<code>tidymodels</code> framework to determine the Gramstain of the
+microorganism based on microbial data. We will:</p>
 <ol style="list-style-type: decimal">
 <li>Preprocess data using the selector functions
 <code><a href="../reference/antibiotic_class_selectors.html">aminoglycosides()</a></code> and <code><a href="../reference/antibiotic_class_selectors.html">betalactams()</a></code>.</li>
@@ -111,7 +115,6 @@ on microbial data. We will:</p>
 <li>Use a structured <code>tidymodels</code> workflow to preprocess,
 train, and evaluate the model.</li>
 </ol>
-<hr>
 </div>
 <div class="section level3">
 <h3 id="data-preparation">
@@ -158,7 +161,7 @@ package.</p>
 <span>          <span class="co"># get Gramstain of microorganisms</span></span>
 <span>          mo <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/factor.html" class="external-link">as.factor</a></span><span class="op">(</span><span class="fu"><a href="../reference/mo_property.html">mo_gramstain</a></span><span class="op">(</span><span class="va">mo</span><span class="op">)</span><span class="op">)</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span>
 <span>  <span class="co"># drop NAs - the ones without a Gramstain (fungi, etc.)</span></span>
-<span>  <span class="fu">drop_na</span><span class="op">(</span><span class="op">)</span> <span class="co"># %&gt;%</span></span>
+<span>  <span class="fu">drop_na</span><span class="op">(</span><span class="op">)</span></span>
 <span><span class="co">#&gt; ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB'</span></span>
 <span><span class="co">#&gt;   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin)</span></span>
 <span><span class="co">#&gt; ℹ For betalactams() using columns 'PEN' (benzylpenicillin), 'OXA'</span></span>
@@ -166,14 +169,16 @@ package.</p>
 <span><span class="co">#&gt;   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), 'TZP'</span></span>
 <span><span class="co">#&gt;   (piperacillin/tazobactam), 'CZO' (cefazolin), 'FEP' (cefepime), 'CXM'</span></span>
 <span><span class="co">#&gt;   (cefuroxime), 'FOX' (cefoxitin), 'CTX' (cefotaxime), 'CAZ' (ceftazidime),</span></span>
-<span><span class="co">#&gt;   'CRO' (ceftriaxone), 'IPM' (imipenem), and 'MEM' (meropenem)</span></span>
-<span>  <span class="co"># Cefepime is not reliable</span></span>
-<span>  <span class="co">#select(-FEP)</span></span></code></pre></div>
-<p><strong>Explanation:</strong> - <code><a href="../reference/antibiotic_class_selectors.html">aminoglycosides()</a></code> and
-<code><a href="../reference/antibiotic_class_selectors.html">betalactams()</a></code> dynamically select columns for antibiotics in
-these classes. - <code>drop_na()</code> ensures the model receives
-complete cases for training.</p>
-<hr>
+<span><span class="co">#&gt;   'CRO' (ceftriaxone), 'IPM' (imipenem), and 'MEM' (meropenem)</span></span></code></pre></div>
+<p><strong>Explanation:</strong></p>
+<ul>
+<li>
+<code><a href="../reference/antibiotic_class_selectors.html">aminoglycosides()</a></code> and <code><a href="../reference/antibiotic_class_selectors.html">betalactams()</a></code>
+dynamically select columns for antibiotics in these classes.</li>
+<li>
+<code>drop_na()</code> ensures the model receives complete cases for
+training.</li>
+</ul>
 </div>
 <div class="section level3">
 <h3 id="defining-the-workflow">
@@ -184,11 +189,7 @@ three steps: preprocessing, model specification, and fitting.</p>
 <div class="section level4">
 <h4 id="preprocessing-with-a-recipe">1. Preprocessing with a Recipe<a class="anchor" aria-label="anchor" href="#preprocessing-with-a-recipe"></a>
 </h4>
-<p>We create a recipe to preprocess the data for modelling. This
-includes: - Encoding resistance results (<code>S</code>, <code>I</code>,
-<code>R</code>) as binary (resistant or not resistant). - Converting
-microbial organism names (<code>mo</code>) into numerical features using
-one-hot encoding.</p>
+<p>We create a recipe to preprocess the data for modelling.</p>
 <div class="sourceCode" id="cb2"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="co"># Define the recipe for data preprocessing</span></span>
 <span><span class="va">resistance_recipe</span> <span class="op">&lt;-</span> <span class="fu">recipe</span><span class="op">(</span><span class="va">mo</span> <span class="op">~</span> <span class="va">.</span>, data <span class="op">=</span> <span class="va">data</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span>
@@ -204,11 +205,18 @@ one-hot encoding.</p>
 <span><span class="co">#&gt; </span></span>
 <span><span class="co">#&gt; ── Operations</span></span>
 <span><span class="co">#&gt; <span style="color: #00BBBB;">•</span> Correlation filter on: <span style="color: #0000BB;">c(aminoglycosides(), betalactams())</span></span></span></code></pre></div>
-<p><strong>Explanation:</strong> - <code>step_mutate()</code> transforms
-resistance results (<code>R</code>) into binary variables (TRUE/FALSE).
-- <code>step_dummy()</code> converts categorical organism
-(<code>mo</code>) names into one-hot encoded numerical features, making
-them compatible with the model.</p>
+<p><strong>Explanation:</strong></p>
+<ul>
+<li>
+<code>recipe(mo ~ ., data = data)</code> will take the
+<code>mo</code> column as outcome and all other columns as
+predictors.</li>
+<li>
+<code>step_corr()</code> removes predictors (i.e., antibiotic
+columns) that have a higher correlation than 90%.</li>
+</ul>
+<p>Notice how the recipe contains just the antibiotic selector functions
+- no need to define the columns specifically.</p>
 </div>
 <div class="section level4">
 <h4 id="specifying-the-model">2. Specifying the Model<a class="anchor" aria-label="anchor" href="#specifying-the-model"></a>
@@ -223,9 +231,15 @@ a binary classification task.</p>
 <span><span class="co">#&gt; Logistic Regression Model Specification (classification)</span></span>
 <span><span class="co">#&gt; </span></span>
 <span><span class="co">#&gt; Computational engine: glm</span></span></code></pre></div>
-<p><strong>Explanation:</strong> - <code>logistic_reg()</code> sets up a
-logistic regression model. - <code>set_engine("glm")</code> specifies
-the use of R’s built-in GLM engine.</p>
+<p><strong>Explanation:</strong></p>
+<ul>
+<li>
+<code>logistic_reg()</code> sets up a logistic regression
+model.</li>
+<li>
+<code>set_engine("glm")</code> specifies the use of R’s built-in GLM
+engine.</li>
+</ul>
 </div>
 <div class="section level4">
 <h4 id="building-the-workflow">3. Building the Workflow<a class="anchor" aria-label="anchor" href="#building-the-workflow"></a>
@@ -236,22 +250,7 @@ which organizes the entire modeling process.</p>
 <code class="sourceCode R"><span><span class="co"># Combine the recipe and model into a workflow</span></span>
 <span><span class="va">resistance_workflow</span> <span class="op">&lt;-</span> <span class="fu">workflow</span><span class="op">(</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span>
 <span>  <span class="fu">add_recipe</span><span class="op">(</span><span class="va">resistance_recipe</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> <span class="co"># Add the preprocessing recipe</span></span>
-<span>  <span class="fu">add_model</span><span class="op">(</span><span class="va">logistic_model</span><span class="op">)</span> <span class="co"># Add the logistic regression model</span></span>
-<span><span class="va">resistance_workflow</span></span>
-<span><span class="co">#&gt; ══ Workflow ════════════════════════════════════════════════════════════════════</span></span>
-<span><span class="co">#&gt; <span style="font-style: italic;">Preprocessor:</span> Recipe</span></span>
-<span><span class="co">#&gt; <span style="font-style: italic;">Model:</span> logistic_reg()</span></span>
-<span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; ── Preprocessor ────────────────────────────────────────────────────────────────</span></span>
-<span><span class="co">#&gt; 1 Recipe Step</span></span>
-<span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; • step_corr()</span></span>
-<span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; ── Model ───────────────────────────────────────────────────────────────────────</span></span>
-<span><span class="co">#&gt; Logistic Regression Model Specification (classification)</span></span>
-<span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; Computational engine: glm</span></span></code></pre></div>
-<hr>
+<span>  <span class="fu">add_model</span><span class="op">(</span><span class="va">logistic_model</span><span class="op">)</span> <span class="co"># Add the logistic regression model</span></span></code></pre></div>
 </div>
 </div>
 <div class="section level3">
@@ -278,38 +277,18 @@ performance.</p>
 <span><span class="co">#&gt;   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), 'TZP'</span></span>
 <span><span class="co">#&gt;   (piperacillin/tazobactam), 'CZO' (cefazolin), 'FEP' (cefepime), 'CXM'</span></span>
 <span><span class="co">#&gt;   (cefuroxime), 'FOX' (cefoxitin), 'CTX' (cefotaxime), 'CAZ' (ceftazidime),</span></span>
-<span><span class="co">#&gt;   'CRO' (ceftriaxone), 'IPM' (imipenem), and 'MEM' (meropenem)</span></span>
-<span></span>
-<span><span class="va">fitted_workflow</span></span>
-<span><span class="co">#&gt; ══ Workflow [trained] ══════════════════════════════════════════════════════════</span></span>
-<span><span class="co">#&gt; <span style="font-style: italic;">Preprocessor:</span> Recipe</span></span>
-<span><span class="co">#&gt; <span style="font-style: italic;">Model:</span> logistic_reg()</span></span>
-<span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; ── Preprocessor ────────────────────────────────────────────────────────────────</span></span>
-<span><span class="co">#&gt; 1 Recipe Step</span></span>
-<span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; • step_corr()</span></span>
-<span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; ── Model ───────────────────────────────────────────────────────────────────────</span></span>
-<span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; Call:  stats::glm(formula = ..y ~ ., family = stats::binomial, data = data)</span></span>
-<span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; Coefficients:</span></span>
-<span><span class="co">#&gt; (Intercept)          GEN          TOB          AMK          KAN          PEN  </span></span>
-<span><span class="co">#&gt;   101.11641     -3.69738      4.55879      1.86703    -23.37497     -0.57182  </span></span>
-<span><span class="co">#&gt;         OXA          FLC          AMC          AMP          TZP          CZO  </span></span>
-<span><span class="co">#&gt;    -4.68575    -11.69742      0.79748     -1.56197      0.87667     -2.28424  </span></span>
-<span><span class="co">#&gt;         FEP          CXM          FOX          CAZ          CRO          IPM  </span></span>
-<span><span class="co">#&gt;    -0.19847      0.02659     10.32455     10.27248      0.97321     -0.93096  </span></span>
-<span><span class="co">#&gt;         MEM  </span></span>
-<span><span class="co">#&gt;    -0.88753  </span></span>
-<span><span class="co">#&gt; </span></span>
-<span><span class="co">#&gt; Degrees of Freedom: 1573 Total (i.e. Null);  1555 Residual</span></span>
-<span><span class="co">#&gt; Null Deviance:       2071 </span></span>
-<span><span class="co">#&gt; Residual Deviance: 74.91     AIC: 112.9</span></span></code></pre></div>
-<p><strong>Explanation:</strong> - <code>initial_split()</code> splits
-the data into training and testing sets. - <code>fit()</code> trains the
-workflow on the training set.</p>
+<span><span class="co">#&gt;   'CRO' (ceftriaxone), 'IPM' (imipenem), and 'MEM' (meropenem)</span></span></code></pre></div>
+<p><strong>Explanation:</strong></p>
+<ul>
+<li>
+<code>initial_split()</code> splits the data into training and
+testing sets.</li>
+<li>
+<code>fit()</code> trains the workflow on the training set.</li>
+</ul>
+<p>Notice how in <code>fit()</code>, the antibiotic selector functions
+are internally called again. For training, these functions are called
+since they are stored in the recipe.</p>
 <p>Next, we evaluate the model on the testing data.</p>
 <div class="sourceCode" id="cb6"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="co"># Make predictions on the testing set</span></span>
@@ -351,17 +330,23 @@ workflow on the training set.</p>
 <span><span class="co">#&gt;   <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>          <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span></span></span>
 <span><span class="co">#&gt; <span style="color: #BCBCBC;">1</span> accuracy binary         0.995</span></span>
 <span><span class="co">#&gt; <span style="color: #BCBCBC;">2</span> kap      binary         0.989</span></span></code></pre></div>
-<p><strong>Explanation:</strong> - <code><a href="https://rdrr.io/r/stats/predict.html" class="external-link">predict()</a></code> generates
-predictions on the testing set. - <code>metrics()</code> computes
-evaluation metrics like accuracy and AUC.</p>
+<p><strong>Explanation:</strong></p>
+<ul>
+<li>
+<code><a href="https://rdrr.io/r/stats/predict.html" class="external-link">predict()</a></code> generates predictions on the testing
+set.</li>
+<li>
+<code>metrics()</code> computes evaluation metrics like accuracy and
+kappa.</li>
+</ul>
 <p>It appears we can predict the Gram based on AMR results with a 0.995
-accuracy. The ROC curve looks like:</p>
+accuracy based on AMR results of aminoglycosides and beta-lactam
+antibiotics. The ROC curve looks like this:</p>
 <div class="sourceCode" id="cb7"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="va">predictions</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span>
 <span>  <span class="fu">roc_curve</span><span class="op">(</span><span class="va">mo</span>, <span class="va">`.pred_Gram-negative`</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span>
 <span>  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/autoplot.html" class="external-link">autoplot</a></span><span class="op">(</span><span class="op">)</span></span></code></pre></div>
 <p><img src="AMR_with_tidymodels_files/figure-html/unnamed-chunk-7-1.png" width="720"></p>
-<hr>
 </div>
 <div class="section level3">
 <h3 id="conclusion">
@@ -376,7 +361,6 @@ and evaluated its performance.</p>
 <p>This workflow is extensible to other antibiotic classes and
 resistance patterns, empowering users to analyse AMR data systematically
 and reproducibly.</p>
-<hr>
 </div>
   </main><aside class="col-md-3"><nav id="toc" aria-label="Table of contents"><h2>On this page</h2>
     </nav></aside>
diff --git a/articles/EUCAST.html b/articles/EUCAST.html
index 72afb48e..a5af120d 100644
--- a/articles/EUCAST.html
+++ b/articles/EUCAST.html
@@ -29,7 +29,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/MDR.html b/articles/MDR.html
index 901deb06..464504a7 100644
--- a/articles/MDR.html
+++ b/articles/MDR.html
@@ -29,7 +29,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/PCA.html b/articles/PCA.html
index 1d137493..21b5ec62 100644
--- a/articles/PCA.html
+++ b/articles/PCA.html
@@ -29,7 +29,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/PCA_files/figure-html/unnamed-chunk-6-1.png b/articles/PCA_files/figure-html/unnamed-chunk-6-1.png
index d3186e8700e48aeb9491042fbbc6800ba1469a3d..53979ca85d0813ce7574f47a792af68154764475 100644
GIT binary patch
delta 17905
zcmYg&bySpF`}UASNJ)1J2q=Tnjg)kUbO}f+oe$k1lF~>^H<ANLcQ*_m-8nQLp7WmH
z`qtWi&8+8{eeZq8b?@ui6S0nxvyM_h`w7@I{-VC|@R;`V@Po&jx3sj$xQM-pXjP<_
z`pC$fG!9~~2b{&&F~V(R8Vt%g^(5cm`%4iht5CZ(*g<iKaTR811HEOm{cWmH-pJ)!
z6#qQCT~A9XD=Rwu&}hN<_RJ@vKvknaG2QWJ<HW?hkiGYc=g=2#viVCyY$WX5(Oqi*
zyYQ{w+w5yDWmbjpDM@ykOlf}_w0{SF^cQ6K#KFzS$g39GFZ+zJFOga|dh+oz-`?EF
zuEjp@ap@F%(0^tf!I3r7r2H*7H1zNpO#|4N!3(tI0@WxM&9t-qNax?=7#<bf8s@eA
z7PsaFC%>puOEs<i=e7J*f5pLDpw{2Zkx2ar=SFmUmNGtdM#%~eqN-ZEjQV;{X@(8n
zip#Pq+2@r?DG9k2X*JGDAwrqcdC&9C`FDsx&yVd}Hajv7yc6*}34#{JM;$kk`{FrP
z+t1>~?(FcIcg~nKwOFuU>}dYJ3c22GAF5s!rsCWvD}z<8=IRpe7hL%{ffnN~IAO&V
zpM)1NvKa0^BN;cIzJc0erXZHBqjt`;*bl$38D<dvm|FvDZPR~r{}b{i_JsUwK_AJz
zLAvWR)`60^J`;qx3fl~+!Gpz(nk!7z`T=pLXw+KCF>c;IwB|c!tB|dP6X^RzKvTZo
zC`MU|HL{B{X#3zBJy3}-3GQRs?!u_AM{-p+XG`Ur_n5??4S!%HHYf+@r=XLG5GhdW
zEC#Bax2uyAiV&z~<(p=VhT(c2AgW<e(~t9fV83}F;sLHYi{I8S)kOyfb0!&h9I-V#
zDDdk3*hVo{jl1v#4}H@|Rl5v?DZ`9XE9QTgBNX^MvT(M20)D#!FW3wMyn_F?>Haj4
zy8U>IuJwCUFLni~ignS0@lnXPkR$JV`!Q;`!p5T9v%koyB73~kx9vJ90V~9ijWxQw
zK4x=c0%>IVm{LvITlLnjXwr4GWG+Se7hn3q7@8hk$-Q~y6Sc(cgn7Zx@q52dmnmyA
zg<?YJz>ToOQ9y*jtMM$fmtkpZrgX!)sP6v$AGu&${-#~m%3oc{qG*&PDlAw!Z|;=U
zd|zf+z@4qH`;-jQW@arpAEl|>kC?Ioya>E4Kd;x2#4d+PObBp)Yn_mqkRxcJk(aNc
zs_18%v+s;wY8QEy7SJb>hXR>kSa1<WAF?Mu0hV;pBQg<Q0B`@>ecW!m4Yb2moUX&?
z&R$KE@ncG9s`prl6W}tsXa2`RqaRyrz-l~n(ZwOYNRg$3r_Q4n=*mK0Zvyx-tZEXu
zC?%0)7R--dSn}i3PrCSeP$N%+)2Ni&NOpt7xRJgCNZ5gg?yyEtBjhQ>lN@~DoCRip
zMinTB8hTF55*myt;HQXjcPob{HFnF9n(9z09xH6+t)|g9<n#N-HkV7)OVt+@a`Uf;
zC<$sCR7zpB@A@$=d@$JtY4LgdA;Y~M$uvPz4iojOQ%g2~ZfT+BvEjPD!la9F#ycLC
zjRW(;f-lyZ{tNJqd?kR-|JDc{<VtXZCzb9t=^^tR89piAt*d*0wN!eka;v-QpXhaa
z;`k2Zc^yk6gr7^b9qEGYYNlh2_NLAnMXn8pLZa&8J@GNoG5_|A4f44d%nL2iMRXKh
z5xh+?ilB(?)s)`vw+pJrAKnv_m{2kARXG=}L(S)Y=PGE@dII<&nR^x0O)vduSy~^H
z=4sx&6%*pU;KpfJF039%H0SYX?Dh(@I_1Mp5xV(()!e0EP>8e7zl6A>sm-o(?q4DE
zIUGmODslfy;mVXmYq9vYXE+8VELRB`E}?z%nsWtZSk@94*RDkWzqFQ0mP6ZsiBD8N
zCUt}jNHy2A*7BQRIkuCJp7R%`i;aM!0|2!Lx0mfgDHR&&m_qhqjR=d+&OJu2pPP9G
z`zU~tG{ntWp|1#pH9+lcqCq~#q{;%4(Q1Mzd^SuJ)nLx+tP<RE$Lj+Jg@O;@*i#zt
zPIR+xW?#DiAD)5KHyh$>nMB0bzswF|wFgQ7*0R~HGsn%r9Zo)Ut6f^c%3q&LyA&ql
zgc}tuaKQ<P`2iVJo-y;arZZI6ft3n;k?&W&DNz*D(Y06w88l^#n|vc52>ePDDL4l*
zZHM!2Z&dsVfKixt!H4Jx3y_#Z9S|pNdn1k<Gb#{U|J!%}3Up=kcJJ3xDr`WoK(EJ$
zmJwS=;d6N|L_-mr3x@FP(sD#$V_Ty`zpnBPoD1|r^oN77z)}w(uM2(HQhRhW=iF<{
z8$)F|$fLBLGPWggGL{Ef1=S>K|8s_fh!cYHBkD0dW%jCrufzxKe;7)UQkppEykAp)
zpe8;GplHBDSQ+xOsGs1o91sKQnwqVjm$(smG~j&Om>Q)#`N2fj4_1p}62eO*pMsn-
zdn6#dftK8P%1TcgGYBQaHR3X3(qiV90>ezx-*dK1U|f`LY{=pwx9fBZej@V5(rc-%
zOdktD)RkbdL#4oJKRF&D(*A<ez-qMD^ZzAz5?vPBhVmjnxg}c%!fa$=gcCXH#uMaU
zj3|tu_lzPkOj#en3#S1IkC0VtJ6jmdc&u{l_%q(PK0>=93EoNfpUb$w0n3i*UA$uj
z!<y$+V9|RYSSH#a&j!m~56Tj{6-wc)m@ASq%nVxob}fH6`Aq_XK3MS;vP)aJSK-mE
ziTc7voySK&cC65Xat^0g`rYj;v!#Ncb~zoQ5A&vUkQZg;V9}wkf$sF&OCm<`)n+@G
zZPPP<NVqV;DkbY^NQW2mcu4E{&sf^6apl+D^CmivrmMG%Hxkn1qiL))zs59kaqxRg
zTDCn8E`LO=$-F}AQYLeoXS>m{OabpgV9IZ0mbB~vmcp2T2j07Ctdv9U*duc4gc0Na
zl|kIVF^guMely=Tqrh`!3j~pFW>FqcW*9{=Vs!O@q3^n%u}(Bv;&XquG?PmRu@H8e
zZsUC}nnyu9#??~5`&oYZDg=kj4~ce2H^_qwidfzBt*E?Y{`Bp?Fwc)xe-x13nML~p
zHeBjcVzq=D8l@k=q{<wtt)kG8KS7>vo-KXLo&8Dx>3WTx^t_%O9j;$O-KM|myP45p
z>6y-YUKgXY85j$X7TVk}k_DF>1<DCX#z(0s613RWpoeu@-e{lBLaH*PZhc5FRy`dP
z=c1&>rEL@5wflSm4VAh_kkh?uu|in^3``qQ8g;S@oUb%h{2>`CWNy>1XWGYqG4AS9
zVt8og8Xz5Wj8X?Qx>z=XCuO&_U;TgSb6YtY*2*p(BU?^TKW1nHrmtEFsVqnDx~zp}
za)iS^L%E@2P-m!xv{x=Z*@f;Xj^Awu4NDU4NCci#<*g*$q8}}Q9=+jkG61d5z7ENX
zu3Ym>hK-}#8^bzB?*t1)pxpvs+Go3=B5vPZczJ#ut9GNo)1ANelZ-8gg<h<>=nZOp
z@94c1=Bm;ADXKA+G{}8uOZ_~m87HQRM5q<JK~`Li6VH~RLzrbVBo?l+x?C$`)#O<5
z!S0K0#xt&P1J*0RPUxKb9WLHRKoK_(K)8X~yloxA%M6}<HfbK~L%+9;Px7gW(^d5=
zO`<lZxAtL;{|ueVc?YsYXO}fZ3Ht$*;sV-IM#Dzp5>PE)zH3<{Dctkj^z<VfJwE>P
zz((+2RVDfG1S+UYXPJY$y<m_g@7Kqykv!dFP@vpzphD)EAHJ`M)bKrq1M2bHNE+bf
z@os30TSwKg7_7a0O2ZJvo<+T!((5)GOX0_Rk$!*A-VSV7eHH+ggCjW8ZF|!Zx*)fp
z?G6XOu;^I393!21DLiVI^hLR%8H4`~OnY^CB-yNn|M^Gis0y5cLaukhs}H!Z<ioQy
z7=ZCMhr+Ohv1|X){@E^_3^#`Gi|k}-kEMxN;)C?}AC$23U7>)Yf1xMg&F>nH?UBBX
zsftS4Ob9pO{JaFRCuR8Abc9bYzF@7n%G)!^u_QXX?=_sh`E_eVJY|I2Lad9fHSY;p
zAkm{0+wSsIY2;a-1R^&EjiG7pTlitj)j-W=){cSEi$9uuxBCCWPh8~esz_<M?-Tns
zs<7MG(^LpLGhha9lgXaNmP)whtDttkmilTaY(h^+r*}69QEbGR-25v0zOcAStOfn1
zv?_#~ExucxTM$jI4$&F0Fo(nBE%YphsZNW)mOi`54{L)f!8xmpsG`H$l@d^&^4HQL
zv8BFQ4*3`s3s1Nyku@$+rIT^ZiM>$Si>qKu0U%LhnMsI4=@x09N6M-#W>j?dPH$J*
zJo0L#D-nH0KUik3OVb^xai1<91fF>q{rD5lTTbrQ^EyD3)iMQ<^IhYZd_Q4z1G>;o
zU%Xv4b+oMoOQEez8v(|d#3k_LEoIF^3X5w}AKI6z{k`*1S{H>+n2Z8H`vyz0BeElk
z_-)#9AYg=;WE@r(K6A+Zu*+|}<BeMqm=Yp2{6pctH8VbiXeL57j+q%%b}3-Bvz4Fz
zl=9W(yQyzRLmi<9BuaK-g`l}-@_ZQQVK75*(jw0^eG0E0kQuB;d9E!$!DI3rpYV7+
z7S19rye7O@M&h`|y}vk{yo_jcu?s&u^`?C0qzKd)CWmsTRB&6x;!E@gP~?_|DuK<u
z94iicG$}b$X+ZMY8N#tjh`l+DZAgR+E6U;(RPk!^N9OZKbVb_Zge&%THSxHE#y;+F
z;|9ha9kHtdMVM}&bBtag%U2_e$kx*(d<HKsq(P+@AI>(1ZcnshWS$J%9!cS{=8sn;
zg$@65+@j)`UdMZitH9MaR4DK$k`p#b<L#Hpd*~<yx$Cr_<U1yL{60wTqIE#VE*}#l
zn(aI+QIe)Q2v|FAjn!MCe#c<KQI;=j2^h;2w4?xsa^|Jvz#4Q!pUF2&@~Y%Fi=Hk5
z=>h6Jzr!1)+n<w5mfJG4M2DV;>807%lwZG}NUv`QTUe6F+40t0o)YF`R1b{Z>Mv~<
zLdL&u^^TQYf+8`V3f+VBX8Ei-$q^(Rp4uuB>QLD0r~X2opgRY)j1kz{CgcA#gu{kv
zdmiAFN^@o9=NH3eM4y|yhi5v)9f6sgTyE05FFS8bbZ2%)nHF#HJkx}W(~>_b8eTJA
zekkEWQMt^X@n+sE#vV;SN57u;Si0pa{I^!3f3TNl|ER5(8N7_zE6HZJ_QNZ4NWl_#
z+X2YcpiW7NoqOSi{dCode4lBBFmnhzH3<;hr$E8xlF^#0e4j@J6Qgf+UB;PP+>R=L
z^Uu5?!no~!V>6lA#)NJp%MEdsFzzddjQn=HL<NqNgMCjZ{0Ur&n;*>A@*oy~%-(z-
zOyhHWYMXx2=wfL&E89w5kG^KAAmSghyhTJ1p<9eY_{r+(Oqf&P_6?X<eJWy6&6y@~
zQwFnL`Q*;!Fi+>vB}*H-=AtLS7e>Srl{{mUyOTe%#(16^gK?QX6=lUm=WU%TF{Wgm
zXoIduaxKjBEBX*c)2|xw+?zZ0iZKT5@M%KpNO+4VPi_*{;U=GQLnGy|;%^pn=}0nL
zUf*AqSqy7<@}XcLpw6IA|Bs{cv$#|}x0j}Yw~DDH+<n+gGJ~#GrbPS+r$Xh38bNre
zFQ0tlQ2Ze~&vIOc7;OuZxcd-h*+&?D?KF#D;*eQoJtMW@x|LOIiu~h{E3FC7)cx`X
zrr4LC^%KvEp035Z>&ob7SO(64ojUV4&V{`T*QWgjQJ*6)I_7zRpvK8rtBcp#B{3=x
zYk4#Jz<B;+q*k;pRl$``g5-I`Bg$Pjo5EW^aWP5^FB(JXJU=8+YLMG#GsdKBVav<|
z^?yk~EcrZAy8T`e=9v7uNXGv*26e1^)8&=SD-^M0(WmAzWAPJvH7&|OaTYz2qI|=Q
z^F5HWAC_?OqOi16FiIVvCj4BBcT$4l^rcXT6IB_dYPGbXllNG!C+nhs%SwHR5ciso
z2l&on>)4UYOlS~!z=-Js0jEVIuTqW-Suwo}&*unoGBE|x`Q#eJDG;Y`h8i#5^OliS
zJ$cH}MR8#h;cuMWH4UG2PpK}RON#htpECjuIUiE$LEg+#zAG<OU!v^ecmTcbqs{Z7
zM-M_34T~c*|A)pt54aI59@Xu|`RRttbuYWz&zy$PqxnNtN2ec~$Y+%e)INZBZ34Yn
zkd|C1=QoXBIlX&=31Qd9$imKq=Q2vMF%<O#5zROQKR$_%i;`CmSRU5Y0lerkR_X7*
zN29^BLo=(kYBy;X$jL=1Y!3wZeF3b)H`OmKEqxD*7*m7^_B15oacu3*)jdUmZ(6d#
ze=~b1JY)nV5lW5m*fWgHGp0yr*1mIPovgE2b9oo%8)T34XpzWjE;`jtvhW>8>QpJ$
z*IVoebC=H22f1SH_C=}bTfpxB?5i{u#5gQRI_nEz!wyk0k;rWV|73p38u8-X(9qu-
z9zv|W`Pm#uLetniL!$PSxz_E)0}&T0_P4E1`*Q=AT+s^GS-3oZ*UrZRldfIcP7}Mb
zD8aTojfl9&mW+-Y@LXhNoet@<+VPdgUhdnV@2#df&H(gL1N`@_X=l)UB$9DVsLmB9
zGh2PW+J?a2%{lJ+mEJVI(hm4#p>avYb&(Q!4b@pHOzu)(o-EMKDkiM6uU7IzBit%J
z0=4lBa7|>N;o{#P?k5tjBt)Rw%#tr+X78xrUuQIuzqTZ8s>J-S1&zdBS8)Kl<qn=H
z0mZ${e{=cRJMlVj97&V>m?G<y*sB^{j^&uJ)6c8IySCJc7wFeJr`^wg=-mWvGgJz*
zMMR9N=<|itx<6%w^$faLxQ~VLH=P;ABHJBbC+wdF{%0N}kSf7c|6Pywgq01nbhE`p
zBx63ID?;jI=g*Yip3YEaE`spIG7${`)Rcvn6~9zoUH`6Rd9HC(_s*KtOaR=fnf;Z$
z1@o?*Z6MzdsHn}DLsDnp3rN8k3|Yp^+ToyYZF21l3P?wL{x84_jLipccim;Bgf^oM
zwrjVBcWp643{YIN*Enr)ypU({CT}4a-Q>_}+`B18wFrj`_2V`KF|tV|z<Bjul1y{d
z3t_ty`T>jh@eN?PBRKkKEcg|Prh)3Ud)^gE(gDhYw5YC1?xw)><vUztV>IR{yc|d9
z&FOr9zL5^<{2q-h{ZV@8$LLIk=^i%68#bqK(s7&wt0wukO)|0Y6NXv@cYBwW*9s~A
zfi)_tROH6g5^Rn&rF(6dz!c@E^#H#BeV7%YnKkVa+LUH;493Mhn_V!TB+efu_Bxhk
z7v{9V;|e8`b20>BtIzn1(O3hNsgP;gpt?G|_pJiazmA1q=GA&ag#H0gk!O<`=Pi}-
zh?ksl$Ap$19gKP{1L1$`!_!Em;7?VsUA)??At>Tcz|dPN_5iHM#TGtt9a#^V^Xx22
z2!IMqoic=M<^qy^!!p%;mdnGWf)I<iKd8#zSuf@mPR4i|FMfGiy;lDd(^vkNV)xWe
zcfX~QbrLhMZyd8$P%d8Xu~X!@BRFIeS_zxB7`@V>0v+<4-R>qid=AU4R~XojagFd~
zd#cV*lxTv_oq&b$^D38vd2&BB(3|h_=EG@xrWZa0-69x?Q=(d^KTDaZJr>lg1Me(r
zyv4rh=oXB;De%~Tox>~?Bx9A+XO&~(^OZHS+4W0S6Kx)}+&?S0741eiwv~f@xVVV%
zN2{t5Rs1{qLFvJX6yh!M2=aQAX3at?KY7+PA@rQ>avJ~{P6JaOrIsD;%;G#IKxS=k
z8knC}kLR+UrYMiUq4%A>DRDpByl)uy{=0%3)#gJf*m>%x4UUJ4zoa8C+yeWegs;u&
zJ#S0v#?I|1Etd-8hnWu=bjJ290aK+c-Q5YUy-C6qAJdW^vK-U~s;iji&W*lG2s}~!
zq1|9I0Dn~xXT%Hyq5;WBh^ZTJO(T)g8lcv7yQSIn<4fWPuSzulaqsBoWgTRK7VuHc
z<~WaAF>O9wUI>vG-X_s(qt>D{P=oGOVCsd|C_Zr_z<QK2+*o-5$pUG><X{B#QLpJN
z{aq#H;2#~(C{`oJIbN21g-ENZ*RA(x6VoPuBOdiqF6uNy!jZC2oQAgwsChc3dH2Cm
zz;6~kp7bD9LCm%k?@++@+k7E2b@+ubgU`3*6{bG|c^+hl8d*Ofc>9UD47De{x0W3m
zAZc-<0|zIDd4nxq*KN-)VxHHi37ENqE8o=#-D)=t3Q<olc`n3(4p9Y!{A8wvA2YZB
zU<K`Dn6tgacxCrvnmhabQO&!U+K!!1l#eRsNi~S|-#^L-@q#}re7`>T22Wwk5>A$V
zeR$61{Zyc=K0Y2{{p;EEF%PFn#h&EnWk2gZt<|kG=cm#Q$`40bwk3akqOR4@khM)X
zYbtPgoJlgg(Y!e4N_}7BN!CD(4~#7%q=j6+uA@5JsG*vryh3%LKh_d`zKGd@2GMKx
zrcD3{j5{z6F^Sk_$sI?cL8Cg48rCi6bqjX7LcyJ?uvf^nFBlt-tt+-GwbQkHLuhZU
z3vYSwcc@<MwQDFmA$=<ZJ!dAp^9G?!(PP8p_XADFW0dzHS>m(>lvhlJK#Nfy*pKOU
z<|4X^+!aCkLPS{AOij5h25;`dPjnu&UJ2~el^dZ+fNVU$v}Y`=HQ+6;-hRrm-Rp~w
zcj#@MgdbI<6xocE#DBvmJ0My7UL;6dVKI8<B&SE{=K0O8>tHK36#dlOxXWW4SKaR?
zhun&p1QZt6P#~%R&R@6$Uh0{qVz#B^`E5o&wTvq5%k~^5_Z<|e`zv`}2hhx+s$8nc
zhb-()2JI*>>ZvB*c@$o7$~1^I3;z1*Na2--{9o)7h~BHfl)1lYbx{`Gqv)4IKHAPt
zIr=GM;%z&vET8?ApPdue5!@@i6#`Gp45~F1_yT$W)7P~HRsv7uamO~9W<cBzf7Yyx
z2czT4qQU=`9hKLW-=Sp5uKh})#d-jaz+K(*;2-urwSvNR@$+L|Z7ZElemuX%OXppG
z6ilLJkG)d49&<CT1B7-TbAbjjqMoixv=2B}QFxi_dgm0JD`;sL5AU>n5>GVB?_JMw
zKGchPkcLtJ@dK(lq(O@a`zS^9+w2Xjqtc{DF5XPMnhxbuMWkjZ11_kK?_myTySL%D
zqt(W9i4LoK^qi<q7FS9w2$C*AgHKcX`62X3zasGtn@WAl>HDn2F)7pgn98uayb7jE
zisb5EkP^K-b>U1@wKGO(e`qZ#RK-;fIJNnJ8#Wpv3CyTT8f4+j_>{0cxRwqJ`a$>q
z<o;Uar_imI&Lp9(Z}_YOt^c?~^uE61h9mrk;Ue~;UE(Ic5dedX-V)3s6uCnM3vUoP
z%ehpJ9{L~LKmJ<}Svvg>EJnu8hgJAz<v(d`Sq_U83)PsT%GUE2PGQ^&P+a_o+5Ma_
zzYI7p4kyaBUR_SImcKd^aQrZ7jO^;G1abItL;bwpibH4lCDe}u%bt=^_CY}O+XJ2g
zw+Gts$4L7-0?!8z7*}M0*Eq2)iXf&9*e3crL1@g5Ba{?sM`C;80$YIMBSmh}Ls4Ax
z$bAiwR!m@?)i@O-_?)Rob_lK5%?Zk`ya1d{czA5PoB-S5*>Psw5X)fP^Of2I#uhv0
zx`#d}n4`^ts;j}|?m7M}XAvnn4txhHlpL692+AmUjHssE3|c_v4gJG2*06Q89<#!O
z<_`vmp!vr*J2@@>notxd0`B(=rCIXqP||47F3D2g!}H}ty$R0AE4H2bQ|9yx04#kT
z-xREynXfkjS2HFO!R75gJmW@mJ<zrXeCxB<-zvjBv%vg{Yy_ah1H=a|D2oFCdcaX|
z?}<$yd?M0JC0w@9MytcsJuv(QvRqKoh#$pi<lp@6)W?;gM498{G|%dpUu_`WE)8&c
z<>nk@^3=;--P0Yt&Ex+ms6&bX7!*Lp4$BDl4}@PTXMdrRnnAi^JT;I+_Sg{rs+=G2
z{$A`se})fVNQss4JspwI(Ol@wPohG*AV&d`O3OkUR4X`mOWDXU+|yFn-o`>3J;IQ@
zP~+r(U2jMeWP00XdT#dQuss^zYqaZ{IR!<MmGxe{^eQ2kG(2k<m^#eSkZZlYV#ekf
z?(uyL39HHE8RWL}dp=|Hd-m4kBiWg^6P|;{elpS`$P3l<V;sZRBSgU<yiTPE%2X`D
zV7#@sEB@m)$!<sV(KH7|aw!_0+Fti9#F-aqGeIY!F<>m5t&Av1pi6M^Ep!Ef0FhY?
z{|*hyc#D#AG0gS_7#?|<E^ed>Sww@IOd3BpibQ_@{F2D88T*R&SOCU17$Lmsl~Xf4
z1d=TR+79X#9xy6Qx-fi2UTIgrp24)D*V)>2h9X~EX*KzTRsp=3Ggw+&;>WhinSn4!
z<m|)Nnu&k}+egIS&8%w!m_y-Qh(As!%(CgBn2^opdYBNnYJV&pf(lVg#^MgXdcJf;
zR=Ci9Pp(H3Q}YCuBPr(@j}F^IJ2yD<VBp$Os>=SS!(}mseqomR;#rr>uOeuvLU{-y
zQk`4u1y1_`NV!lMzq+wgmIUGhnK28`2`!>JQo<GbJ)e$d92-f)-`;MKQ0=~7mrZFg
z=nbDv&*}i~Y-Xi~nm+^LN;fx}yiKmKTcph<kZa1v53jCnO};fANgKa`QMS+FT~TnB
zB3Yogv95m8LY;~E2hhDkEG<<_XK8D1KM>o~N?6z1>|F29#u~vK=hxV4+Aj)#SzBJX
z_e{B>AUvwhf8Wt6{`7<Zi}sT@VBhU$0JfYcpvU*fRF6f6!%&l)BW21SGB%t#v7$QG
z6}n(yM7Jf-hsmmCj0}%}gz2oOQ5O++wR^EIQqaH2M7qN~OFwpt>^j<jia^BLWY+n}
z*GI?DZT!&hgh=se+uq)HQO`{Cp<Ll_4jkS3QX5GemLnL3rN3SD<R-d*@flyrrj4)x
zAjz3Qg<e9rTqw3?55A5V{k}}yzgn(aFYG}c+UMwPW#UXAT5Jmqa}Wvft6sJm%wa4y
ze$MyXBCnf^DbwpTzO1Y)00Gz>{C+QdEI4xO&60q4)%#Qv-qbI9SlgXTxjv~4EapZM
zw^%1OC1b?TN}-7Olw~Xa-PW?1_{?Vlr1Qi<a2}Y0gUGu~SZgy`BR2SpvM0{DT^wMY
zt{0p)Sk(f3WZ8DlTARDBzyp*Jl#&ZTPM{kj%c?lCaB8460xRa%yrA<Rsd@B)^xn#f
zL8p|Xk@}4?ZVwHX@sRSNR{OntPB(r-Dxu9!@AvK+wZs#+0qSv=CY~=*T=Vh_GnU)a
z=2+&sa}NcUy`L;cHxa(0V%d`Ae{xgmWW%zbJ#(2pjtrKoB~1M7sfZg$`-9V4M)QNA
zf$mI!v3NHSdijam{m4xIxA#w?yGG<nVO1i=8jbJTr_-Qqgrzuk43Wccfj5><^t8nU
zu}~&UWW`J!TLwwJVG}>yp!AR3oR3#QDsUFM?fUD{W<0kMj1yzdmfBzFI_<R`-sP_h
zo5vXO42%<Pu*@#GVvjrkj4z0V2cq`iLyPR|7p4M0Cq~27#(4SnfBlg*{b!S6ww0Kx
zWys?M@-+mtCp(D-yjZLfL3yPJD@I}VE?qAy%bF<HFE=R4yAzb{{0MIH$&Tc1%}}03
zyd$E2@WI3vdUSf%qGVbku_hRWK6sA<lOtHp<d4)J+=J3ro?W7BB3k?6_hI(xCkK`T
z2vWzkh}iG9U1_Bnu-!3v3F&K&5cg3^WO<JmBCjY;^IPg%54e7#9Dg~S(>^EOKuTt!
zr^*KiZqF`f$)SWKu_A)4Ir@f1J>=uTl@W@)tGw5RH87ui{YS^I7vea>6Uj#Yo?2Qn
ziY{l_)ORrOJzdko-Ij<e`&0f=F;W8ZCb1brbl$$R>Gib+REjYkIM5CedxYoL7Evs4
zAYrgsj=*=$JuJO7e*B|?ni)f4a6e7oh9QY@b`^J9qlW1Ba`gypq{$X>D;N48#y9pz
zg;7v$a~augVyPF5mKPF;@Y~_B%7ccC=Nb4@LTd&s{nO6$TR~faO7wh{jh_KJY?KD{
zb!@u(;69Yjn6PaL?<<0D_&YQ7kLSSot8xzf{!h9*gr8Wgx+q%p=OKWrchh0rUIoSA
zgt9YK^;9YBrEQNr6W<Nv7ysU%-Mb&QOUF`AZ$FYIoUYy&GtJ+h$ZQ4LhIq<RIf3f|
zavsrY!&zzV8T4;GL<ev8*#QsA)ymw;iv;8OnM&@QgWu(`+5-38v5-24wcdh927Ix{
zTk3Q(Rk4%Gt_2*XkhH+hUF96}KxHKgnW~?+2vg)M{xL!-xfGC^*y`*WzR{}CYc2#L
zMYk6Uz9_NltCiaf#D3ogcj?>_*_wOu7@-}fx#$&kSfp6#bwgLkB!J)dJO4lE6>$N5
zLf6hN?AOdkPqa%3>d!Z$Psg4#bp6GuGFE%r)%_}@H*_6wUMraWwgf`cYr&yIQB|=Q
zEOd(@Ca!n(6^hJzuI|$X2D&N+(t#dcsTI>9j3ZtmPhl_zvO+>WLfoUhB1BFVw~{up
z5cmw6LujTxzx7iR2hIkdvd5aJVp)3is?(4EbR+WW>KZVsmCv=scd9E^6#f?N2&I=|
zJJ#NY;Qq10%~~w{Rm>iQWVFprh#kRdDO$O$?zgT*)z}Nep3px`NGjHC`1?0sZXTm~
z$IGf2q^%#@6OUr9mlr4n9^wKW5f^5nNB}rP`#n4Q$0NY_M?*byG33fE*mI=&M;kMB
z^`4vz(O1DiZ#}d@x+9!N9C^^i2WSEThNyquxW6ZF4iOxgMd~Vlw$iNhq%RSqv#0v7
zU+gR7y^`4lL59~_&)88Rx5sB^z_)YAt%mvc{K$NlTvA&vlz^N4I&oY2q9JxK<Ea@B
z&wFL4FmRxj*?4_Y?)9<Y2Rga%*>|vo(8HA{mxhMorXP5aB$|KsD5l(S#ruz4lda?U
z-*+s5sl9q$Qc@ZWsYtgR^|6+FxhxF4_OvQawfCt-g~du|ESd9~-ao)IGp}=~Ta=e3
za`a1`#mqAIzI~zKIp9T!DZ^YxwSch@=H}%AO~ddZX?=}^YHyZ2S+7H^k2VR7(XkEG
zdGqr8nk5g)17Pv-U#qUsxgxGI`1(eSAwRYlYpLyeUghU(<(fLHRq~HDD#l*stWW>Z
z=W+_;$UQjGX`)t~47$Jgii2BL=Ufa~Dd^yEUAUnX4S0pg)K6xzQI4R6G(cyH#uTt-
z6sIIBptxd|EHuq?BHn6OLqX9~iEqI_?_-0AS{k2|Fh0h<$KQ6IdHgx8qO_Gf0m6N@
zG9R5?-sUB;%Ao1<gAItf7FO`4+$mqVM~hdDwJsSSYczh$SJW;lABoCZh>QHn2K=mX
znb0Y&na-`9o+21*V2K}(o@R!Q=`^_<7zu7umVS;@eljWH3L(h7343Kd<?c^X4s=R3
zsJtj=pJee4IcGX+lQmDtx2A1G7{J;bw*5oCGMfNzYx6m?$b9wa`4>$nyT|W(o;FAc
z7xTPQEsC#Sj~2jA=K0u+k6Z*~#LLBCICZ-c*uiYpS-shGj`ED;;!WGq$SK9L>!*EF
z8JE^4bQQ`9B+lrEB3xQ*Np1CFWCA~gn`nmT`SaO#hgKz-ATL5x*WY;F@t|)73ZHic
zn&P;j&JxZ>cD%QS;H}9Bn$9@lM_&^V$1Fe)-R>f6_~14*w-ME;`j5a^H2qBu=RS{(
zHL832J<;F<N|LF;#DZ^|Y2X#p_Zl(nAaxxF0O8F4AljY5n8u}Uua=OiCpo7!!@P|>
z-b3D7$akH0B4lnzwdb=i*JRx0NanB~csQ%HG)c+JWZ<5nz)R&Yj7cY%r#xe>`t4vw
z`f7H_^u+SAV~nceas}|Bd(PqrT00}$Gx)uhH~I|S*SdTuX@DK@*LO{CG}KKUxm-{(
zj(BDDp~`HejX96^Y!F^;r!OGux6aFsWl>^yGp-jc_=RXjA5OvET!BZQd?}f&G?l`q
zmY+Lk9OB`!_!%QAN^0=UXXxgU|MdLppl>lB_5vFTYE*8tn<)X4d!{J`D&5mcH-Q8a
z-7ia)x-zDi9il4;J&9gQaXmk8qg**>KPGj1OO^9Hoo9oh>aaOwGBfW*l)w-B`zwiz
zXar)oxX39q(ANll33Z)c)U+0yAGDn)qiG-NX>VEtudACJs9qQ{3Aeo~p&sgvqAJ#E
z8*m(Pu2^!xl8Xma<$|43|8hBFo6yyVX?&?*8Z-mMI`X~Gk(}SN@@sXSZO;kbsvYlu
z?q7avs|U##s#4??VGAChR>bb(@JqY?MhQ%0V=^w04DR=e{CbPg?Xf``8A^qkkS<mA
z@!2zq)kQ3}o~wo<RKe&mr20;`%K8M}`pNQ}<}8TQw?LpGd!8uC@o#?P-Rbq9i52!}
z^Mb`egOZuA={d??TqO78C?Qjkbnr4VJfTIv??kB)kG|2KO{IQ%Iv~4+mhrhM_g?iu
zotoQP7?$9zP0>hg`^nWh`PJ>p%5P^v!@D&_o4OB#BZ3nhXCw7z^=&QfvC_k`g6ssk
zluVCvKtm_Clo4>+hjq83RGz~{;WYZJ!ze@<q>RBY5alUtdoa4v{lwQgTugb6EiVrQ
z;Is}1!JCI7*ohQ-TQ7CM<t@|gmkTqFqhh)hD?X`jKg#Ak4xr_TeQQ8gK`3l1q^9EO
zxxu_r5o3L=PFObs{9u^(sjLh_)Tn%_nlYCEd1n0k=VPLhH%B6M%Di$Z&t$CHlzI06
z;3mTQ<cSKuSB1AZ*vP<vZPPe-_jWUnRLaAVU&W&Xn^f+!_YWI&kfMh|IQnc*&!9`?
zO*X{9#)N|{rZre*y*qkoALppP%Q6dX>r}tqAu{NZ`Ws`}tx|sqzu2GooP&#cmk2=d
zT)LQtOGx4M*5|b_$6)V||JFIZ$?-f&%A~Y21Hzx}IFkjU7tDE&GmhtK(O>3Inn68d
z{by>tMFJoS!ohL=3q=j6uGKRxDtRZ4<lf`-KItzwiS+w7^00@%^|R;w!5v&A?e}yT
zEq&{Ks^T5cMVzk`8;2&%v+deI#qaN$xq{8nvd9n7=R)K=4;fW^_oNx35B%LskKkl#
zMrtTSMN871=~!H%Y;nkpvH5si=T(ED?+Lv}QuFE==iq+N8+pwIY>et9MFMURb6&Vq
zIcr|Nb*YN%3vaY%q0=|^vPH%(H+5|_>W4%gPB!mu4|U6_J#9Ky;IpPcHG;RrOsVxq
zO^us|vvXPfL7nrjT`L~9t@Oj6_Fn6K^!)tIDJ}4fhmi!<mBrD8h`7Fnw;5hl&LMxl
zg|*%;d)GDUxVM&5j$l%(%>1n9aWM4e;<>oqS}=bqj!UR_K2tw0QuSSzFg=?eJbE}+
zdak?Jr>{Xx2izCz+CadO>+(*<!?dn`NZY;3%w(LR&h_E1twX2B9^twv^3Gpi(8a~4
zXkHUWX$p=wi;PdDj}w^&D;`rnUF+@akFZ)u+~7-gR34T>vPDKW=Rc#p;pr#+Tf+7C
zXH!#lq%yieV+?5(DwRF2*4~Xm=7n^uTXL3KHLZm-Nq11P(HO%I?M8MEu;RBq71V37
zuHdNK+mC8(y0`A`pr_G@Ubm`dY_XoX$EhTdBih@?*(Ff`F(I};ybJ|&_F4~U(0Yh@
zbwWPs%<<Qi9m<v9VQdG9u^St&A}iC5Re7C``)y*>L|>-f@k?}PpJvLOtQ&ix+)9cR
z-oOh6e(LVGek#535!u`meek(xvkyo!B$d^VAD>?qIN-G`RoOH^>6a(?4*%gT!mE=C
zH__5k#?om4uFaXAg07ON!P`Ly<H=id!lrK`WQ*cecQs0#Uy4{7pT9I8;aKgRRBxO8
zem3j?D!nJK$vOPYnT6C5>Q9qU=4xXk>Z_KAbg!zgbY7`A+lr@+$kweLI9O0KG*C(M
znR7D!9Tvk&9U<|@Kk4EdnNV?(%Bwf9GZOoL>4-_74S#**VFh}$E%N;{o0Jm}`tWc7
zvM_q;x0n~Gpew;|uIM8F@#F_&FC^_i_cuS%(CMST|G7qIJiSMHHhgW?q57%4h4Ss&
zDvV_8JGL)uDWq?5!KRmnKFJr1!P7T}vM+0<&*UcO2J9Y+wbNAxQ+bYvlM66{+b=%N
zUIC^?#Y#S>uW_teQMX<+V=H+2^5gN6oVmTf@;mVJA)z2XFNRjLx6Yo>Y%49SQ`Xsa
zmiyG&SsPJq3gL!Nwj|H2*niqF5OF<RJd^)?_UJ22G|8Q12%-|$Ol}z-iP=hR61&08
zI_o0lc{uLC6!|h2M2vleO~AAVjTaK5Mgb@=e&U@w8C4S-WIeQlXJ*(8A8d%tgfR_M
zI1L2@A4>F_E~RX+!{_JcBc6Kqw}~;h7y)#9P&VRahwNb#5fqKrPQSi>5i5W?XU}k1
z_q=Y^-y>jdidoWpjU0Oq9ZHghulICHBs9+YnCZ^7MoeM#5DIDi%0r%2VR+UP{D&}5
zy5sm5l-c?_XCAz<0Y6blSG^60BTJzMx<ja_^>FyTk~ccZh0O+%VXdbmd8+k|WnU<z
zKab1kvS$jo9>ND2&z`)dBedd)@2U2UpT7BZcO))GqOX3r3+E>W-08_EW<H@&wB((h
z3(Tu{(-jn7e2TT$o1V(`FHq+eNPIY;O+v(k;2oBOwm?7^a-dZfHa?*b-!Y(KWc6n;
zWdG(CdIBvb@$-1yeVONXdd<(s45w-WNV_DLZy|M4o<>gPXMV1bwt(pF&|@P;l5bbo
zn~nCrEtMvG?H4XH3f`C;TP{||?jLas{_aG-yp!XYPY)ThC-?J)5OG*Y4>vt`!^Q7w
zrOG+W<M6pLtZ-f?ThnHwpa)iCPM$%?8xXHdas^-4J)$)P_7BCk%075}6Os?sa@B4q
zyG@HSSb<k`V#}3kSN@<mz4#NSRJOajdxI<b)CfoPl}0jHz&om*s4}uim(hDu%ZC?}
z%O55F*bq+YgKi`S|MWSHT8j$d@M8_4IzQXC_2r@A#ZQ}qmS%a-9s|%K4#egRR4cN=
z0<jgepI|3;^X`i{m{gg_6?fqh$M-v`V5fcQ&qM9F@*G>9Cv*K6u~=E|SQRg}4}3pl
zS&PlVBdw5I@LD-bnDCK}@!yGQk|H$HqfEW7X_E52R2wyww451=7|jNis=4Fw6L<ym
z*5Tu4<SgW3z%c{OJb~s+2MWBbboEsqW;5xL7xM=4zIL5nGl5>?aHogFtiH#v(LY>k
zG^#{XmFu^PVWu)FQ+b!`E~H(%-7{m3j7U1f;k|B1N5r9>cw_uBywQiO?1ntA`Fr*R
zgs<?j=b}Q_R(;fcHL29ErMxcpebRB3TJf?@V5*s3KeUWR7lDyr-HCjS>W#!&eN#TN
zf7A!vNW+=5S5~+Vf=}tB|9e@@QMLvaLXYM8JV-PKgR1m;8qS>{+H7ZJ4?~UYftQC*
z?sZ9|NT*}lfv1g-cid_oSV?ZTB|k<VDat!+$~OUOVT}mg?>0Chd9FX9JC}hp8RBnA
zI36tsP!R#sTaobW+X5yIGPn)H?F5v`R{(O9q!uyhNn6(j?qcGHHY7Lm2Y!}+FV+9G
z5#?>1i*UENCHbJdoWQ0+W$+(q;r><cXTtbL%DdPRx^}<vyxaXz;7GSKGc&-mxP)IZ
z!^6Yt@v7JkGY9o6!cwhL#KKrZ!~qX1g>Zx|u`R%TbP?MFY?SW~({BUcxNJ9rs<_D>
zcR#?ELfsWs0=mkLslXl;6)}122rGy}<l0!6^ziIoWKYW7_h$ENF4~RAPWZ>P$JVDk
zW#6&WGdUM_39rhr5}L`SLUrrF$UTT5APvoC51dI)b86c_>@94@q!g|X$_{ZzBMqZ4
zG612G2_^k??otEjep2m~nw7P_KdAL?qscXhk)55pM{>J@Ewm&(w1PtFy)?=u#EOsO
z3*V}nSiEEI0RsYm3FdW3<d;7vmJoY)h`n=6GYKUX4t(9jK_nt<mixt}%<N3%>6K5K
ziP%!yPMb|8h%&+-yK6c3{^?n=DGG@|z?>=jpaDcln7DqMeN15&veAlD^j@Ooh#X<Q
z5^uES$ythp=-;(%DG4L+3rr)CC@~MlC4u%^Z_Q14pHTc0ztfG$CD-a`5C6fwl&2h$
zb<LQOPg5whlV|D7A=;TwUl;Pn7wGZ&B#6&TF*`x!iFPG)tcKC$0$Di_3B&_zL?Y00
zy-}}Tbz9ueVnhyg&Mxakhv`uF9;|&dVwHEgAWaS|CWok;YQ-rLkTXFUPQ0F(R)2vo
z&cb;}FcV}^l%l);LNI<`BtIOaOeAciI;fyR1;!ae`%tB$Vh4kq5GgNOGD340-XVZd
zLeb63NRir+vzf3){YUaV0ASH}o&8JVfvrl95Ikz9r4MRn3|tXP3|ej=gM;yVyu&^`
zD_&;-dGn<1RiuSNWN9&=1yghKdJg}n>gNsE+{>{*t}d%~Bf%B!c8J&`HW9H*MHV6F
zJz-jlAF=VO!L_LZHP{(%o7iY<3v<L;nEEVq(0cU5z1KzTYy%2#B%{X_7#Rl%H~-Z=
zaq>zBD0-}AlV5?a0Dn0f)vyxGxjxtoC0>?{SZS0GHp+H9VYWUoqIK7*Bwbcq3GX-L
zZPkv?B(-T~Q!4vzlXmoEzfNQ;{v+`3pFSQN={6l5Okb#QG&S|W^qneRX&QjnUftL?
zBD)&{yfp)%(p*pVOJxK_lTuP*-xAsR+mJMeb+m&B*#SlPu<@j$WeXn0$P_o?{6!>6
zk2-LQG3u`znI{n7qy182qp?9Q$tN@?X8H6VWrACYG~<&r;oM><g^N<Q=$XUT;xES-
zlH(`YqnHzS>h5sqqmuF#=t(1x|L(r?3}`8STV4W`+}^(x@=eJ<Qe@D#<-9^a{xrw{
zHKiYI?Up#!!ctekmHHMN?m&$xEcnhjWaw4>;+Lb(J(RBBr*BmACPg&M4JgY`Yb%Kt
z5UThF*|v^W&4@4W3AbGw4*eq@n}GWPJ<Ge-ZWxmb6@?Okt>dG2)<$n(SiSkD?|@nl
zv<75#|0Cxf=dW{^lbT=o$Wy4=2W9Jw%@3!Oocqj*vo1xId;C*yjOkjKZ$814zUmqu
z;pH1l2Yo8D?Zg=U#QLtF<aocq9mg`gKVnoylOj)Ihk=&wwIFfzCdp3?={u5_P>#5M
z=h)k|*vxW_(v}XiP0OFbkmr1jN@j7)Kd=CY68`W5B{#$y%s$P#1N>~$j?d>;MuM4g
zA8g}Ky|C%<Mpk|LLkvbra_F3lf-HIhbjT5w*2N2OCK!uA>6Cj2XdR6Hz)$yYXg`Z7
zH%Hi0dJO)N0A_;{hCE2h_f38oGA`ltVvL63Ef|8Ss28%)I(pxb`8NghB^EQM1GK*=
zI`(G&&_&z-+DP0#>7fQZagie+4{8VwA?v&fsll^U7MZ1D_I`L%b_!*27ZB2Xu*@jN
zuvAtHgvD!h0lFZ0v+bX!CF+1xsN`FRhke7Zeg4!X2!w5_i2+!X=1*8j$8Q&98Sy?E
z@AiT?`*2{C0Aoz^<baX=o#!85#bcG9hFvsZtelqpxinHyXCuFALHyR)`wz|xQ|a=*
z>Em-czI+2k{cUt~TaLWBbQ{V#*JJ91_iqhc4Sv7gJkc9W$w?-Z{syAd`5gGp$+9K(
zGMi})A)P^V<Qx|7E3;Al?e8-ALl_H9D}Y(^!NQN-k-HpJ|L|4-T1Rdk*;U!n154a4
zybwZ4`m%iqK@s6KA{`Ok{bci72s&Rmtv!Yy#h2u-3ks^Qny)ugk2)FXNWg`ZC85RH
zn??OKJAre}Ay+<4SEO;h32&biB`v65+Q^S<zHtuyz5=*R82u|U&xD_Dg<);ZYhWp>
z366WbQ63bgZ`Ef3`uP^4b)5+WsG{l=tJcu&I_?X>PPlVQbD<V1Bc7rm4<ogjzKWis
zo1McC4k+6j12fBL`yhww4Nt)KNuh+UWc^nRlru6_4P6jkT(B<x#GE&(<FoMZC9g=j
z1!a<oYt*i|Ul<*M#tg`CDVTv#lGtQ=Kp%@2`>_K+>g~eOA*0NM^FTCBXGWjaRQbl1
zWyI=xr(2YNPdi^{-I?aHv`+(PD`shVz`U>v6om_XuC7cjT0bsgT}znJnHS&Vs2cC+
zBw{zk@pV*h@F#ufWK8&YKkIoww1?=erdL@NV$Hf(i~U{Zf{o!^;Y!3`ekStm9f~NH
z?>YcGs$ba@?;oT6Ylc6Kdb|M)2YPMee@Ni3{E6jNg8($0q|#f6(eV%osz#8)9&$(c
zbR$*9-T&4bD$Vi4EqorJlP4=0a9^WYHjkOId)fzG11$Y5X$<V37u0@TuGj$EUx+vo
z07sw5m``ZVjHpW`+eWwtZMTVU-2-0_q>wHD)-n>N?R6W2=Xx`JL+J}NVb%Yt7o;+i
zNc9JN`z)1cZ2X^2_C%g1<1~Zz5d!--y}zNriT7_HFx`*mw{np%VPdz&NEhVzi#aW<
z>4|1Uy6U63k>)2Z$Q2-)w1IKKMxa|_={Q<~2!`GkSL?qj@ULn=0A)7Fa9o&!a#N}`
zs{EJnfWdElViQZ6UO?_>$Ul)Bs1RXqi|U0NkEE=&UT4#E5MN{}$ox<BeVQU8x(uBg
zU)sl+f;i#@IXs=jeI4_*wr;co9teM!5ffxsq!Y_>Is1)mW9PAh{XAYA7?ef&`hja(
zIx5N21CJ0$t!>UFBwEJ6WQW`r9U+VmO{<V9Q=?d*Pu>$H8h{4Oweo>~evBo89~lkB
z#r`RFoHaBO9{O4T-7z%(ukv|-H-*hiOm}~Tqzu?)u6fW$NdC*TtKSsVFSOtm^2rd>
zX(9cdbt0cwDzJbgUO7X-ct4avxgOd9Fxk*eu!?Q@wixZ4B#`RHN6d6~wFL!jiSBZu
z`5;^Am#F5r%j;`swf;Mc{vIJJrz@cf$Gy_M4C;y1|K<QGdZNmfi4`~lA1LKd1HWja
zEXMTtG?P2vj0W`i+##DIX3f$Od>ukyJs6g$Xf}p9CTgYTkrV;Fd!F|+KNj~C5o(bt
zsCLUolGwe-(>Ba?0fe%Yw+_0U8~!{-C+w?h)if8RFpDh1daz+IrUBWn)~7?rC$FKJ
zu@F5Xp6>%44W;Wo?j~dZy`}JX1j<O}Jvqoh<7-VSf+CU5GHTZ9l_idhlcwMO7AE^v
zm&}!D_rCyy?Ki@Q`dUz~i3ly*dA!CpaQfTunVl$kXfp>i4*Vp?zyDNyV2EY0g%M-u
zCE&oLjP;<k%2@B@nE>+#Iyy3;Ki;<Uk^5VJMgI9Wf-2C*>!=Hhd?Wg3C%<fGzcnCT
z7yIwRCnT(}X62faWb9TMRwp(oBJ{-o;7b$VV8UVKz+4H=XBG3NoP7QDmXxy;xdlV@
z$nOa82wclk=q-AiB`Y}fb$4iQVnVigtHwVM(~q+dfWCmg(D0vpv%N$(DR{ND104zW
zE)o~-lpKjtHT)->pOIduj5?EGHW|S3gy3n*+}#2HlgT0*KUewGeh)A~uc0x%zeKN)
zm|k{xTV&1IJys3+0P369??i}716fDFa607$P>(NvcXPZ7xy!xawz>AX`AHqc2=aFX
z8#cVv*7J1|xhxllB;s;cF-*OwXYDh7_(nUjPh_x|LGs_Ef`<Rih7dU<03*}Kx=S1L
z?;*@TBa$ouAX>}>`C#6WcN=Uvl878bZUj+m(7nhS1{3cozM5&KG9(G2^Q5Dc??1`8
zvNk~%qQu+IjBDN}ET}bFDtmr=Vi%%H7AGDaSlf=GwvZnlFJCv}@Or#YdXl3*HSNgx
z58^O;Y~C!SER^#JQz4fBi(BHS(_w^RWS|c965)YFfJiC&26B9jM-rgSp?Kmq<wD9x
zTmxz&ZCIxJ?)LYJ3$k(YRfrKHk{%Rk3iVJ83hs8%`_B$}MyU>XGbS(S3ejEeJ1-xM
z&PXK76S@0;X3CRQVLK2M5^UbuGL51h?EU{w0^Cw`9h8yA@Czu8-@(Bf%GuD$7<X*u
zSTnW%`7x^864-B!q*4fS>EwZBCdBI;+4C3W{bQe*NiH({D~P@#CP5=q&Nz64LE`G)
zKMx?8DGZ>otUy=u&caG7==M<mzsU+qb*P%N$siRVxq>JG5{?#EU&()ei=>TtG$bId
z9a;Ark^F`6&;QLI&9wc!bVCf|0s@Y4iS>Wc)n0W#JBz?ca?*mO4tjWND)i?6)|NWw
z|4sIxoZEtW`5iJd!WWjUZv1VS^jrHtJwtV(PVR==$C>tT_#Mu?`!>*8aH%4(y@H+b
z>x}nX?N*pQ2;H%yH0QV~+=ojp3BC(%OmD1bSbnr`Y2)#Rxyq^kn+1>8$EEH6&z8ez
z!}*4{<aUw#=f~Mw@BTM-%c<w6VA!$pOdYs<5NI(xYAI2|e9Z5dantS_C!xkR8JLAw
z9r|mLP_OpkbW3u)g8nvpo|gWf|9EBu0*%ePJ|DQ;TKuu#gYE;p2mDgMLCe}6$?)?`
zd%4v*To_{)>;`Wr0*74U8er+S@4!0wuBqA&vdezk_=x;sZ(N;obNQ(^<?*}g)|@C5
zy}ke9y8RJp`=K#6<Do2%$qm_h-YqlFehE%Cfp4x*vjnD0`;_a_Nl&Abb>bQFHe~z8
z71*ykQ)gUuS6KV~me(a~?);N@++y@w6cQK5`kD>@z2*9Rca!XkhR^YGmjmGiPUcFW
zyOzfO-uS8ZO%>~e?kW3IukW6A^Zo2H+5PiM%WQS)!`|KcItO7?3$U)sGGD;=S@r_+
zEk|2kul~0;AhrNE9jyUY!0$J`u5kIev8*<Gjm?JFzl?s@-dG28>h~L8_ig;df8(qD
z={Mof)Fix$Z_CLb(F@!q40bG!?t`{nffMZvP{HH5`<_|QG`4!b?YFhNzWn!_`S)Jl
zb@`5||Ie+fZ}FV)>ej};$EN*Xh=@i-i;kKLZb$at6$I~q0@=}GxEMH%tx*u)DR@it
z1MBX)&T$j?Ih8NT>u<gvP+)HwRwurJ?S@Q5cjc8IstMvgC4WPqZg|}D+W0`tr~9fR
zu?u*&wEapyo`=ZIWt*kfMGC3hY<=Vl>&yAZ)gDfZw|TpA`LDCP-+s`{J`=g)%?_0h
zn`az&A<y$Hhd&6Wa&p51iOowM07ZX0)iT3Gr}i*PY~8^4LS7|s+0Qtb==8hiVl#ce
z9qgK|c;-ax4aSG^4>sM}FEMTV9tDun)x7K4VM^yOjXKpHG4<Mpjy;oSi@&k?Q23+f
z>Ll~o+fO(EmGb25y}X8jL0~^<;rR3o35*ikuOu)o77*cW<d|;fzfp?;2s~Z=T-G@y
GGywoc=4Lkl

delta 17925
zcmYgXWmJ@1*Pfw<4oQIl1tg>fq>)ZVDJf|L0qKyAn-q`|36UI1x>FDsKuWqBhVJhE
z#^-t8cYSM}UodOkyZ3djy-(IMX81B@+2aquyonQ;#ofKedGDvUyCq+~d?7}A^%WG$
z;Us{CKZ%A8S;Mxl*+EC|V0w`f{S4j0w2D25)0EUEg5E-i1sP(CpbCo!>XKpzO~IUo
z_stnJOB8tK=GIz_^zK=?Eesr2)i>1F7u37)E$Z0=3n9HuGSo?~5JIdo#)U0w=DZQW
zZv=j4tJ?Ewc<i$D(Y`{!BkX^VY1BK6^EW$J1Q8dFTuwV$NZbhRD~?xj6RiwaFPFj$
zqjn=aZW@TkDY8^b-7>VT7#QkDLXdPpF$dt35j5>mkk9Ap_%Q6f{xAWND=nvt0m;F*
zK}-6f)BgID_ORqnc+;@bi3dl(?WSrI(Z((OJ*BFhvPAwYxsF}?uHK_-mM&Vf{%=xq
z>eG(+{BMbl0dE5%eoowq_%9{FN1;TGQF23Wdb6YN7?vO}xz$dRW*1u9HjGXU_bCMV
zk|vxi7~=#b-@KtuyGE%qDLWmV_#`=?Kp0MhRxNS4Z<{<d(DVkrC&msmaR*~^KVEA1
zuimYRaH^JD%Lei9W+Wxubb2_nN}HJH^A{?fl(XmM+s#C`svW$(wssAT+(hSjLM0iO
z9(h*iYm(#sHlT@D82iV}YF6zMkHkpocRtvuU-QQZ#CFssM}`tUs;mJfMk#e$#wsHa
zC1;q8nodjte!vyqPmD&L#WOo(+Hl1CKzY6BE3oX)!d9#37((`$)N*I$rc8J;?6Y{H
zW!4fz8h6yJmsEr#6KFtav~`A_xQvH4<+k@3-5rfran=@P{$TEV|4ob!YUfVhAIIt`
zMKxh2hUBR<qihSBdnAM{gkUbJ$=gJ{K&D`v?$aF30Y+GOT95Z1|IhDP2`IlC?0CNC
zc1epG<HQUM3y5^)=<qdri!)8#xiOuhD*TuYO)R6NX32d#u%0E-(m)u`o#dCPKd&kP
zi{6?TTbZ`sdeYh$G8Yk0=oXB0Z@A~C@exu?h?Ci-bvO%_y9UMX@VA$$1$t7Pv;jzQ
ze9A^mxD<){1L2`g*%ZN(V+_o2c0?g&=jY>$NBg7HQfZ;a1F~4BcNxqeQptghy>X}G
zzS91ZV*aFiQWbBfXB&?w<>+;1g$U%c-57>Wq9U{HD~C=V$Z=zv#uh<}U`l5pFcZoH
zBCK_glgbD1t7qLcsoXNRA@bhm2|!B#rDV6or~kR1HIu4E>?UJ!NC~>YMJ{(jnp=B!
z)x+kaO>!l5L2X%USaX|CL()0sWNc*0UTH>91>k6~WZ%7u%C#zf|5^zwHC*#B1<xhd
zBxssKHCfWw2eFB9n(S{#W%lgLrJ%9IMj}B89)`SXAF0H&WGM)s3qbPJWk)Ll89|nH
zWdxRt1I^8Xt*o9B=FX%gF08`}#rA(Z?JFVWte%mnHlH<ccD~jq`QTx4+G#MlM}Dc0
zZd?Ez>&Ar9NKw5v6MOZg^<~{@$iaBOz|pOwah76xK3oNKj-gXUv9(uQ^K2mOg6lsC
z9#FRUCISh}8=)bfpL~N%Sm>(f*>M8AtbQJjYk5g3WciHV5!S&UPx#)XeEAhrjLR6I
z9HDU_*@%7TQfBPew5!{anT~cHYa=#H=neXXeq~DoZj=y8_m|@&uJRv2t0%Vv=aPFj
zq*`H)q1n--OoWC0XzTUM+VHo*d{q=2<^J1yx9J*C7Ot%rPMx0JIb4a|o<F*UQ>R!Z
zhZsN7n0o)Fl19wHbY7bOX9~_K-P}9x{v~FXQHX1*o!>{sqIgtvPr`+UAZdI`t~eU|
zW(*5s{vRdeFcW2mJN><AIj*R-_8}Gz`6R51CNZRl|2;tjk&DE$!93x5)>&@XjD~>j
zf-bcD(@&&Wo)=`45T5Io)zZxG_DiruEU8R06+M++vL0&||D(s?8MT=x#P>Dm+cz2W
zXNW#ZaZON516*3-0zYq;p_7fakG6(1Y6^YJTU9G`qWI^o!|UX?keDMl`7oz2SYia1
zzWVb4Z=Bgo_v?xk$L=SEL~Xj}1|Gm_+CrkRvw3p&3sp6O{LsEgYfih&w38v*KM<ij
zGT6hDl}YQ-5@^F&*OQ21>-NwSf}g+3pE3*=%5PL`;}9_aEPsWK(>fSS0Hg3$2{c5*
zlOX7C(ehppQg`Ha;K1mV9;;8e5I=s%j>P+4j?;j0h-WQK$l9grfZL*TC!7ujeD)Su
z#)H!XRh7&y3s<;ErE#n^DV+n?J=I!d8ghZ|^<=?BtD88M_}+e(7t0Kx%RQde<F)%x
zyg%Swv}ckkXyXC83Tgq_PCRK#V`7X+$6InWP^V0>#FT7JNgs%Owtb)6cxU?!oP0La
zZ@(tMqIRTsa1?h6h*~OnQMUAUV{u*uRUs69ho^<I(!b(MJCU`q)96EFZD?Y3fkvE5
z*`RMjVor<=wOxF<oW!l%NSUKtP|2>$s3A!4jUDA)>xaihZ%?Wn`UpE*<>@hAMQY4q
z3t<JAB2Te&E*{k>nH=ZJdQ<*45UAe1d|X%hR1IkK*M+efLyWZ}1}{LD0flJdMEdx&
zeqpKxxHlMe5E61Fsf~<zB9o!=p#w*fVFTP2S1OXjgq5?{pdQQC@uSBFuhX0HE3Tza
z=aKY~UY^ybH=USsSXOL#3X*OhO{5v3ly~Vze<E)@*Z@=c35IKPgEzeNS~_m#z52lY
zOJFF^0y;(1B`1A7$!hsJO{bIr&6jmeA=n#Q-pgk1&!sm$&P>6KzW9p}DbsKgh-w66
zi%|B#kXCQj;gF`2f&}pTuqs!_^gHzd)5UG(D_I3n)rBN`=d5BydgiEh&mp&|-OKIv
zSY2Y=48DV3Z%<rQ1!+cG5K`t}>l@}}0aYW6TRHbeoGm(7%>H(I+_}mBQf1MiO81YM
zA7C7G!fF9(MzBf>f{h|++0mnFdL;Zz{iJlGuoDb14uyhuOt?I$g>ui&Vi`74so9Zk
zCyXZBkGioCZRT&QFgHwjVui@5qAzff*w}>V>%N1)r|`7g`&ePz3Sd=L3v*Q~PCMQl
zY9`qpbp0GG5lgz)4RcWXDlMaqz-VC7e>vO4H0xIGd*hmqwk3L;wd-QtRO>U!%M$U+
zZHK3noVf}yEl^kVT6RjPU3O?&H~EWD#E<AF(FBa!`PHQ%{=`iJxyf^uOg^JpY-Br>
zn5qkjm35C9MhoQ+b^-n$H1I|e5gLd+`4jA{hdKU~yG~*pN$)e~$E4u73R`0!BhW2o
zp4F#%h!kgFLOes$|MCc*s2zLHi{~KkMBR}^tlbsHaNS0Aouq1GL~sMm!lomz0n>u@
ziM(yQ6hwZg0T_+6v)Wf`KPeA?5u1=T7(Hr*QhfoCI{1{$;2YvC0BcK;y(t8T%V01a
zQylM<JMapxsJWKD6&`gFNckbexe%}PeT2h;7G{0~$!=<>4!vDxyLWtd^sjv_neZHZ
zjfZpHHp}y8kB7Rh59-2)mJ9s~`A6kQhvXS{vflYpdC-&Z86;=dWRVM4K^GEO&?7S^
zaD4%N0)uK|S=meD%)SL<xy$F=SAW2Sf4~B0)oR%bT_RT)^3z<WwkuCUpHRG}PY{hn
z@+*=x!mx%M4xjeM1`0~g2_R`PT3X=dvRj(T1ME>j1r&Jzwhk_TboBnY^#5WhBL{`5
zy1z!gGwuZw*37Jfn%mq>X~8!DT^()mZ(<>e3+t6xd-Pni=2q;ZZ(w_Z%g|1aV>)!Y
zZ6kwI=mE3z<<?y-{q!Ky=aV*$x{zLL@E!J*N|~jKYN!AFGj$Wa!Q+grS32(09F}xx
zj;R~yeXeX+m`Z=(Ptc>t_iiIz$QLrIoeg1Mmqol}Tp`^f8f?ub)|F!bZjVEf>Y%CI
z*u@bBMXO;7nL6~JFEb{@IE9Di!{S_OT30A81{{f9N~O~inXhiee`eE;PpmxX_#v&A
z9BN!D<2dg*MC2ZjJIrCFTf%yk8>+|5i3=~uFKdsq#`GM(J?A7qA(03MzFy#AEM%QI
zZwA*?*ck?Ure2CGG|K@*7OS2Um*MMbcWoQ|r$=FAR7J=ueUII};zj1h9O?1kumX1H
z%_>ckg!1v1{AGd;0`gysc+D8e8T4;jA1T*Uk9K@{shC$ND%nVM6_^<!z#7-_O5iyb
zo*=plM;;^W-7`c_8%xbMGF!$BQ9qY<{&*L7!Gp3^9|dwCPBTC|p5B)JYChzBSj>5j
zXX#6mB6WrrZdoy>YTL1897zByawwe=d}^DUc7;@aX0D<3cJpXmqS+<BTA>`xcQC;|
zV_AV=|Bb-WylvpIh)K~(oKPwHMHkntBzs;mXjHm>{M8@wiaH#z&F+(Vb0XTAepyw$
zN#AbDwXhvP8+^JeoSa<O9$694Xn}eC3f;TVV@CynodqH|Ho`Q-wEJ|$$pglPn56Ah
z=HWXezAczG9%>`z2>iS%V==`1Uo->rrD9V`eCPfkmeqy%z;$Pm$!VN6`Hj$1XFcQ-
zq+J9{?V~t98!Tp8!YiSJ(hwy&x=oTus2!jvV@>{1SCm%p-FH&*gXNg>r!rhi;<H>2
zE6vAtRP~b6aLb%lS<bJU2(LtPS*8b6WNBXO&{TKfFsw?kXBUU6;F;+zW@&Bjig$D;
zv;<MdvI>+Lo(u(*o1A#h*J}v8z#L4nvre|Nzr|3wLX`B-$W4-c`X;9*Ni5$46i5O&
zu1K{(rHoS^YYzctoocHwo|pN}XqLqTiDF)7-145UP+ePEMXOkMEHmy8=)6CPe|s>7
zF8VKC#ZMSwtt;&ewO~7vQEAavVHJ7;C3<1{;71eDD{fT<Vyv*5`%<PQmo^#px?c~N
zbx7ukvbJoQeD&)Fj%!MpBs^^E`G5eg7n=yC?AOExSqZ`>U#ADx=PPG6wG^u(iu1h4
zII7f6rsapXL#gP0w_oaB3({MOI8g{XHY8i}HQM*gBzJZOeTJRrR}0rc-eoS-a;fH{
zyN}8?<<bY^&3v+Tm+`~iLn)AjPBM!rMI2P#YDqRr<3D&V_=5Nd_NmXu07&i#J+^zH
zz=GW>^f=jbC1%<F^cFc;Bar@Vz}tI(-<ld)AM7RZE_%c^p0u)elWPGnA70JO{YU(y
zo~Ye>46Q!W?y-?xsaG@kA3b<aLUpy&IL(mKLo&haj6y73MwF~-O*3oERm~5V1|Aek
z@yAe#(aUCTrD8D-=Tal8fooKDp0v02`31fj)~w-F%_nv54c)hmmaK8P=+LH?bwEJ|
zDrhM3FKmt=7l6g&8a+qf33}0$$i)2d9mC``W1XPsZ!eT`;7ZTaEj>R{Fz@$Q=4-v*
z1H;fXzi@_BJY}uT^tSv)s)LtmS>==FM^CcX4O-1<sQ)_jRtR`uYaeqS75OXOICji%
zvi}o}ODU2?b5PCN#_m_x&!F-!3c>2c<|)+?soM6}8!za|cVr4_#w=y8I+(*U=?6Gw
z$x>iPK3Y!DIm{xE1=~i5EyE!J-9P4*hcMLrZC0kiLy3H+JP}Coc(drU%FUV5+TIeQ
zr;BwcFa%%)));p0t~jaUf7LT^=QItv7Dz4<=q6-&(d+iqltLuuNQ@g@^AkyOw~9K=
zp3GiGj^(f}CH6XuVlyqw@<Six@rQC2okj8Y6D5&<_AP_Y5*~-vPdM~@MyyVW-io4b
z-4(id5uqm~<ja9!%%0*^4Qd&R5`zOfPQ4bZqbq>$#zy0r9}e|aQZe>|F$z8?^7&W-
zq@F{y0+Ka>1a1tnRK$4mn0Lkr^&b#Ya6+`2fiblY#zuqJXmq2cplbZ5^cDAz|H3-r
z4zVmXhi1wP5oSlLugJS&->UL*10{7ODdG-dma9Y-x1?|z#g?zUmfe1&q<b!!zyPb)
zyZ3WAR)sJX#&}RM!|f^&KS_xG%V=0?h;@j@{t(o_2zE4&dmc4+UhEJZS(iSGc0VO>
zp-=FZ=vm9~!V3z_(}#@xZ>+y|Y=zFfo?ZH+t4fL`z+5aj2I7ZXtf@rF?mG)nzQG)I
z`x>4Y%@j$%X*c^RMWIo4D4K4q86cW{mvEI2Cu+q$5S4$L<L4u}k6w(@jBlyo{t*Z3
znV8~#yMoCmFE!>lWakP486{Oy9%8VddE<amyn}Z73UC8$f3|+QEg2tKrt%)%Rw6S)
zTNJF!IxWh>BN2hfEeI0dWOIsHPLPf{H+jovt4M8$Mu95n;{XNA;}^xGY$GI#;$(+!
z&VF@hb-A`<5i96jM^PZ>?hMQYF!}ihd4^<1Lf$og4n4}~i%hfJ@04t&jEkX?EA5`E
zJg8`8y}CMO(w&iw?JAJpunhY1iC|XQk`}fvgS_u`S|wu@1(}K-Zz|q}k(E(yG)fv^
zoT`AdyqmKf&43Qh|5b3_2>F&<s4?NsFYPS{?@=)$X+-|FYP{>hqKc{0DYd|y;u|%G
zk4!JtJ=`b=`1r(KQ@C7w%XR_kVJ~;Tw{fkm_F*P1g<D7g^CnM=HuV{{L`Q+2NOPGE
zz3z%ov2e84`}Ql?TTad|AA+NGok>>S5?uhlxo)Le2;v8I@qA?yiQdtjD37K$)u-Er
zoJ&tR7x?$pH}vTR{<L_1MmOg2J@gWxJC~Q({+e|(_b+U$v8zz=!hW(YN)HAEda7eH
zb|pz~_jXc97vjTlY$nlX@iO*akY1*Fg19WHewP0~<cNw=h<j$&F`&ZL&5Ckj(4w?V
z4QVV@gW`}fdtLd1q++W5PT9*k2l~?*qMrKTn~#pBIBHyT(jUL-&?mIZZRVBCey;Y|
zgwHIep~am0>iK@vonX$lwe<hU9@mJq?lNp)<{^N&I`-wMv7?M^nKmg;<}Ik%E01r3
z4gO=LL{$7Im^nZk6Zi!l6^ylT&Z2e-Gu31&n70k;kngHF^(mGXU-!koY3B%M@dx~>
z)27HZn1ln9(0lz$@ZfuFj7<$hh~V2)><9m*UQosl(v8*|ICc0h+}__hO`qG>VK7}x
zw~UohTLN#wNs3WsD$Hduq#X8MMfWI!{xg!BeW@>4r+`x8xuX9k@=+s@=Q9Vb*7oK;
zs4gGP2|z`(0>ZZQQ<~>^-qGF=crQGtMV5aNQ{9M42P)7@)889f#<q^O@87`K(EBvM
z)Wn=C|K{yfd9ZDoAUsDQ5{$nIdHK_T`TJaU*R}iCX}=V~2K#R!uMMTA^H5n_M#PXH
zJUxCY0em{5*r<4KYa1h5{V%!b#NMkAd__kg7#Nxfaf+o(UNsV3Q89O)WWleG0MS?1
z;gEKIT8(;5wJjk1W`vk&0otyAf#Z<;w&Xi@%N>#)-%7CFNarQE;ro*dfl)D2(vo@m
zc2s}(>tq7L)V?3%r2wG*StI@>X33s9U_ibJ-#q&Kn!0j|Ktymz0KrC;YN4%nM#XHr
zG(nbrZe667DOo^}KxTSREy()vblH%q8fCp-_NF&FcyJ%pdkClC4ECFz%r}w%^rREs
z^zJs;baVidt4g|0yO^?QwZNz4*4NJHmV#^V$)@exyX)n-B|1#Xno~!A8M#^D;4M{1
zkzwN%1ya`U6?5!&Vdpi)M!Mjk=zw<e!8Cs-_CF!>XByOxC8%xFzh#e)Z`Sm((f{mW
zRkZN^I&E1ootH>owWcsHS_~I`l!M?7ga_<lU)jYp39$4RhB0S0X{gYhd@@WAPt4_E
z=?|e0v_p4~R2>I>mltxTl^-$!H1YQCP<34*HYG&r15y|}!QZX9x|ofvP^(x(p6yf{
zRDAld(qiCFF8}(k2|rtm6=-t4%*S`wFM3-^2;DryUZ(MB#j)!gPqxk2oPIu7uf>+C
zHtkrQ*)w!^)h{Wik;^`w#|~V~D@OCnV>+N8&^L~LfHa}aif}MeLjlWICb3D4AkZVw
z3t1_RAg?J!BC}9;^hw%f$NI-AWRVZCXcq5$jv_6UTAn<yQ`v}Zk40Sbl;uxN5WVx>
zH422Ik7_v7LT){fOnFuqcV9$-TTa!}x2k&R7HHw7y91zm+J@sS?{aAGiY{mnT#tW}
z0k^M^XfnNVAl;ZI0FGN!P5!92-7u>eVQxuc6K+2&=Ee?CC7V`$R0EcizczoP`u4-$
zrkpMC^iRk;AF8l)rZqRbOJ#d80zY2W_lel9O6p&y-B*107N7cMJuY(<5_w=-s^=fQ
z;p-&j^%E-|FS~dBRRR95m(JW81j5(JTmBLza1@o=OR7I)4TMVYBTc^UjC);D2&!2p
zt7f}VXN>4BeiVqhW4%(M_80A|D5FlfE#B>=t#1yr!rZ~IVo^-T3r`bVYS0}&_6q!m
zIc*)xYCbJKDxq$S-P)R@jZaE*bxEGc(W}C(SGAi~u+>UXPp-a#l8WAK>y_TZy^jhA
zn5M-Do(BM7miFNOHg8J3@JlCMf*mw(qB_hvye}B%0Wb`FEr)c4O?o-1%7E+HpU&rq
z*-9C3)wtV-V#+y>^;C8R2OZpB9&mwnSxQ6P<MhvC9;EKH70n?9z_XY=wF)|Y1IXPe
ze64ltyj4zR#*`4_J~*t(8??4C;*2dq=9J_=AqDIbq8PL1GnFN7b#ry}Lci7zGZ>Ns
zw!|X4O3u-T1?qfw4@5f*sxlv8(}<(S5KX!}rkS`2aZ*ZHDWMMgdJQR-aX#->eCjlY
z#ME>-bmgwP>8+Mre?`%Y?G2?4Y6E6xE+FME+j#8bv7g}h8o_VtSs2l-(tnF#TJgfB
zY5<ix>KXluF%E*!TC$qDFx)fWK$7kC>WUU$E>26VJG+G7G58tS1;*TBwQ`*|Pcj;X
zm{P69)xkA5Zv*TthfGlb4~0yn?8Fu^YOB@vSKMtVh3c`OMMGfQHDNJQ+RV7)H2Mu)
z?PIoqiA_8`iG#{APcsEV#J%zFvk4fW<?G1Ph(l`TLF~XmvvV#lMRkiZ`~7SBb!Dum
ziWvf`^t@=>%QS@i*`x%F<b!EKR<!t4bJe)Ed{3M@3tNtIlBnC>FVVd^)1j`2oh^gM
zlQTAu2}D5MB;Dg}FaTR}P6;;*xYF~BMWjQN`e995@%MJVeA`%x+{}lO&jD4f3v53x
zzq!XQtYVmMm{$(Vb0zzjow$3eGW>x>#)pJRdMsKrDHk_KK~F4>c``0<i_i{~%CKR}
zWR@&+9c}$LZy`U-;QT1$O304fR;-vFlvc2C3bU5sS;*(JF8FHu0!!|53N$iDu(s@%
zF|eSa!G`@u%A<xORCc2i$lPXQWEl*xme8WO*DvH%c?4q={$N)}*r~NY#M#lwX_ta^
zVEeWnJRDi(8kD&~$%pQioYRCm2@#??NxO8Fv=V^P{OJ$48e`s?Ga7$Z8u3p)NPkFd
zIF0z8RPy~LgodrSfVOYSvbu2mmDHv@q*^`WJ}ArZR4uhcT@Pr8ni+TK7L-VFA9IoO
zwcz^vGy+L@@Z>5=|6WP@?GyPPQIbibti|FM+3tI6#bJreZh0b%rr^WKbmIXdykC)r
zaVl4t#eS6j#eR`Iv1o@pK2Ra@$%k2-^8`1<?mwary$S0OQP$7{FC^r|$Nmh1!Z^TO
z&ws{$AB~=A6bkf;g-1IJU2PLUgdSX|%$Pr1dl5!I;~INsr&)7{gUID+wn+P3_wI&*
zbds;+AuiE*HzF`GDA@wcJ#rjfNxnu@3oVoA=FU_b;OV5T)F#G=M)M`cFtYsc;ip@}
zZq1whrt3YEm-(U~7VLmI1?J(#y$7o4kXyQ5iQr6gfp0*Z%=K%yx!;{w_8sP(3suab
zdg8t6kw-WohL7;U<0^0Rf;;?=(mjrsXow|fOEZNIcrOx#D&uNtwRAI(Ti@l)+z2tn
z8YOeqAJsvgerxqOBtkPuc}%w#0NY{h`jH`ko;pt0*(a$@p3UA;_=j@aMfUeTiAVZo
zan^8FJPCkw!6n_@(`}jGi$x=Ux^D7O%+H=-UsD#YEslZnUL<sMe|^2)j(_Nw?_B`X
zyP@N>$UJUqzax2}+~CLIpZ=J`o#-71(ati<Le_dZTtB@pL+&=|k`uY1y8V#9dmSEQ
zWWRapDJMNWQm7@@AY~xyyIxtvu*Ascg%63D*ad+8uK3%UgH9EqWrt;N@CA^lcs&(p
zv+TODniNTO?NIc}v?;nDQW6Dq_Dl9FeOF}j72^o%zYcqM(Oqu(%r6%v?fqZ@^R5=*
z&IR5g?f=k<{o9^gXrC5&6?8n!L$`4VUu>DJjM*st65@q*!NLq;4iklu3Jp0k8&}PL
zzy$g)`5V`XsVMOUS{sQq6YpoEP0jUj<sOxSo3L+i+;NT-=$)I?bhkZ0Iit-BsH*D*
z<}j!yL)ts9_luEVq%I5Lm1{j~3!m;T`S#|7X#H3Ox#fxNi@nuDOdCNmb8o0)6B3&9
z3N)pKq6LL8o}Mx76EFz1mh4vq1amHA02mS%Kp9D0h@S|4z+22rnguKu!Mgh(yp<SN
zlnG;GW>)4>sT}JPe~``U;PjCc(iZul?(aKUnT?-qQEl+HZ0Zg5feoMco|9*^kAokX
z5Zj=Du3-*p^uShcYhT~fDv-70Wi}_1c<$e~5miSNO+v*kJmLH8m<KHA;@c05Gn1|2
zeEX#DvGKxa4%@=@)CWL#Qz8v3IZ7}9?pNyPjom6(zc__v(2PRr`H>u$_7C-s%<r#A
z{=vP9@N&n@H)|6@b*YxO2~H_JKJL20e2X4Zy17q%zRi6k*8i-v;GpjV5FeBb_wzOD
zzaE~ldHG&}12RC{aA!?o3p~fXAzM}-3cak*4Ie7H^9ysGPfSbr%q2f7PEIPkAg`?R
zlbW&4DCor~_4<usBP-#W*J1}%%%u&|px3R{6h_gk4LUao@Qv+oX70$yB1rs<b0Y>O
zecX&L)=ob$E=+Pkv(~fEjEJO)xmHKclsjX24ajFUGugF=?z({}0n?Ld&?I%;c+|2@
z1N2BUV$!z|x)9<@JC+FlZg4$yp7>)l;98J}WY1#6ZCo$XV|2y#6+_5H(P-XU5UFzF
z;QYKV2&s}RP~1tAw(bEa=ct3ylSSR^)}loBETK(9b6-BKZJsr*t`1ju42`G)5ZHul
z$TkuDY<hkGC(c8ZXg8|$n#BRTE<H=n!APBOHw09ydim(1ZH(84RMnuI-le&gd%}$=
z_|nv683`}|9!SgueFR;B@+xDgKhpzy;RMk?r=Pp5$WP<+q;{2;^?pp+9;jU{5%AP}
zIvi5k*JQu_gU?+=n@())gW~pVy^_p#fpnq|4Rho_J8*58zq0dvw5-IcEVj8P<*TyF
z8(IT@rzUt!&HUj)w(TRq{?xJS;6cEro+|Q$-(JcnmM4>M?uFJ{J$*gFY!ibHAoT15
zjmN&(tKU8a4{i!D%Ei?wn5#6u>l}@PHZbPCv*Rx8eGR&@B=fPf7=enV|A{V}sNqPX
zs#RzZVdz!J+{$`?ajACxlwm{gQni`x;y3Q0314INPaNu&>Q<j`oJM8y%p`_Z2{xE!
zXS^}{p7cjfXnDnw_LzGU@H>7}QJ_t|?jmyj-uxdJfPGn&AN4f20Anr_dZ$9V(n>`e
z!WE!}d>pBZL`0(*^~r5+(<)R$Y<*XCPtBjSud7jW%uJrL%T*oD1yx`nqp1$hA&DE8
z>!e$$QRNT9j-NBb&L#YuyPG96sTva9{8-+t?_&0%X@NUqNWaYR;1~hu5lB7APV(UX
z^9Tp%5!m5@yyXJPBvdEHVg8WnP<X}1%a(q|IusAt{<jKo|2a!!VWi8oAiM54oAg4&
zQ^iO;Zz?u0GVY`q4k`~<?phSOW35K|CK)u(4_swH*1IEkS{fT0eMB36-gMB|?~qKL
zo;Tk&n(od1R6%QC19EB}Uk)WberJHCe;uwHf6(@*j-K|~GTd1rWvY`Yz_gPXcZ`$$
z(Flf>#IcS?4Y|l!CED*)=C8gPe?FiGy2$EQVP2dfY?5zEuF+sI9@~<|kQ$hhI&Tx~
zDUVbk%Y(WFpQtF?&eOPql)OEX^DWJq5*lId=PcgT-C<*qq<|wU;x&~U@uuJ_E~=*2
zvMgI|xnEKgo9TY$-e+-pM1EIQo~h4Q)Kg<$J6IhKx|}`Tt#2!7bAqYJXoADL#Gd@9
zf;OkFY^0$GWy%8Q@EVsk8uB#KCOS=>fdqx<?-e5|fZ2YeAQy!1{-V=MP^vL~K|yB%
z=W8d$?z0_kPXM}Do?Y(p&18C_Tp(-rcWI1{s8~k~tj1xfD|elVRBGUwKGjTJYO%b1
zhKMC3CCIV8lxG^qD95B$_xBNFiQp6&BBxVI0=<#Cn_MC_UKHE2MdL_0c$oykW9V!%
z9eTlq_U!wZ@)3rPd$d<F2(KrW86m=F##c2ZuuN)<0hk}*ePux?V|SddOnf(3$@~>A
z)v|=k+9Mf4z8V<HTI#8!t|wQk8TDrnN|Ls6ou+M<wNXwXh??%kMHXrQWt|$9(_2I`
ziaJ-{rhD4Tc|b|F4sBa?>9?LA-!fTZSU~e!h`sTPf{|{-Hu(9r{?MJ@{uYn}w!w5X
z<&Y~t(C<Bx6E8sWr(J&0J&G+tu>*y96^OB>Wh?E=MxR1QY(or4)ih~N>9G%#RiS}K
zdpshToA&x0Ln2W}omx;W!>=077ZlE3;YIgc@=OxoP~B^&^@R4|vD<GG*VHG%y4Tz_
z-t@ia^HGzB$)x=_Hb%9^H*>KV=Kxcj59<E1l=k^2(cvNfSz4qlpw?tO@hyhqkw@aS
z5K*FXKmDEfE70jfgyssKWI)bnfR|7f#W}`P*^A7{nhD*k*w?7*Oygx`DaiHM2M`G)
zp4BcjY;+{XAjR^Wk5wrt6k3i@U<bL*dmODb->in~5mrTJ3k--@x91ob__7+O-vIHY
zvu7u@&5Z^vK?Fv(Tc#uFzE`oID|lIsH?qv}L+I~Hb0<o6g>2SSYlZH<HG3cWqZ8Jx
z|4yJNT{>tJ^f)UhG@Ly;>Pes3shOEC0J$%PQPxuR>Ht?G-*Rtn)=T5uT&=XNQz@s`
z>$7P)UyCZwXKlCUwQM%L#Q9*kkp~?49BXN7t=Xi$%r~4r$KtI~H|SKIjh>%=C8Cvg
zC)sl?GyHSWEh;;@Av=r<7ArI496L=^yG$`M<UCwnpRbc@X^<;<J>+QZR6<?<jVF8e
z@MQzN@@Vj_%U3*Nu3DEK*g|eAkK5!Gr(`529?KuAcdPd36QFQLQ*4&NrC1}Cm!it&
zW{G0sVuvy%c2%^ro#mt!BGbM$XjsK@S@FX|+}k3xCn*PxDP_fbH1RNj<Av#{jD}`?
ziA5$YyG#zZ$e-e`eW07AowwL=>M_<FBSZBj_dk?%@*4(D;mNU)UpRn2Rjwntg;nF(
z)#IxxeRWUchNH$=5ktBSuDiz1H=xCi5vr(RZ2X0Iutx)-(Q?x4%C{`U*vnwxjlvX9
z-A^3(VyQm0m-KiafB~_6T=TwyRj-AaFcqHy&t*y@jytcv(;QXLxGmqKI_ddBK@Ro&
zxZ2&CnX~VL@2f~L@`3(1rCi*P9d2ZHNSj4=A2Qwj65}^<rp+ldP^k>T3BP3Kxy=zx
zWorxWJ|h0o>C*(cDo1o?5_5a93iTb%#AAU7R<DQh2m(fauG-G~FAmBZGDeC*XMU7^
zseX}N(N$QakJEnRxr(tbCaRbm*5NSvbvAcVI1hYkXciKkIR%V%g)${xw)wWz{P;pT
zYv1|YzyWj3-jn5kJA(M0V_5*3JzX7duhjU?xWSn2#YQ-E$I~UOlV{1Ym}P1ouTktr
z69vLCr8{uPJZ4$Q=;6i-=e1Yn&9^@WM@QSgHC1iSN4@#Qdfxktpf}B+FXG`t^WLs9
z?@QgJWKnvJKiv<3n%_dly|#6G_1_W&iXU`3Heoo-xp+CYlMj@QD3hMsSshJzZsWX4
z)$MK#Zn%|UYyXhz^O@f|Ne!2_)58{KDt12mmezIhV@dPf6GM;pV)C%vDCzV({%0(&
z6f64##%vmPF|4d36W=fS^{oetPjg*<jeffwRKHR^bY1Q)3jDrODM)@^vtoMa`jV$+
zrGBX9YX?P;f0IuX=VcmmwB|Y0zC+n^RJ9kOkv*ypgQ#txmS5*3yqeO_Zs(^eIbRdA
z20VI%%_rq&fQH6y8?ySNq-J}zd_#m*=BD!TRpax^Mp1z7i8hOPvvd)C-_<D{yS8ty
z5_fgkm=-@?JfMyT`I!8d312jCZn+yL{e)UqGeobU-bAfNeurn4%T$-1lZ~i5c>3La
zu2|6X%jRZ_8jgdcxuWZ+oORSJLLKQcp7b12S;zSELKs(?!paRjz>Jw8Qtw$}Z62cg
zC<wWMlwjg}qUb87Cx~L0;m+&El$n{*s}wlQ;cF03=08nA>HHTq3T<}PbH|8#HhUv`
z5W$J8mu;|;Cu517S<&cpP=rtiQx3%}5O}CkkI7hHx}Rg0Qw%}(l8SgDZ!>Pu!^v{c
z`)u3&uzh}h;;M5*rF7Zo-jjYp)B8AirhG{L{jURQbnfQaUWxllx)7*<*x@f#8<&(>
zFJM_<hRXkT%3|UWRp<i8%kJ;qU<X2_!IEs2*3b5!@$u-u!+|8tHvWknWoKu~Xt6UM
zBJqpIrA<i^kFU>WIDg%`;_2BN^xa*nyx(sWG;a-3zyC(^DUit#ClgIoMNQ(lUDPSr
zK~{j4e%>GZ(skJvRkzZnc$fv!rs1{pyMUlLTMSdC|L2nhXPXR%1ipt~M}3<d#*gn#
z$R?J~n=P&z=k9OHpUmC+N53|tX*-^#vhr-gYQ1YKr;5>a3$IWE3vJq~D<b+O%xmz*
zh=LELNyAM%PV5u;>~<#m?vTEE_>j*ITnjG8or(ANk3THcuV)wKlggHeO&h9M*8&@|
zK$WM#+;LTnC#~CTuawdEe@F&X%4$nBrJg4ifcmF`L-bQ})zp`p_ouYCDOoAz&$$tf
zRYx~u%3E|G1<a9ZWgiWS1Al6%NC>F`J~OX3#3^R>c2%`OoWPxF@nR>a!ry^Y-k~|v
z+y2PCV)P3P=H~S^Yt|rwQj`k7OAw01jSHDj`;1t~XtI!*TX1%5Bnl+$T4=dgSqQx}
zsSsoK-<4UR3#Y4%(-r$g_bj%Cyrc6LErNcia|J)0#l&2K!n9(#=1cmnYf%}YB%3D8
z(}0ctt#zdO)6Lg#m8$W3jh6&3c@}Ic3pn>0_HTuWBz|d0oQ~E5yY<_Eyw6pC$=i{X
z50(di3JUb?dpHYqdwS-OS<xbYn$8<7h-^O`K0TW>J=*R`XlyPi#AAtd%zb`svn;T1
zJzv?<Mg-iv^Z0q>Z6umTDb!S|sjZD{I@Q|#{msZOsod38f%IUVoPFHx<Lznb&Q-rC
zXRJ5<x?uC$W%Qk2$G-t%fS^g@D$n!?LSIFHv>38W8ZF^F)w!NhImc*p(Q3X=uto>c
z(9RV;8T>%&xxr`Xo>6{f4|rJ|le3G@|N8lp{p1~TIa*Yw$s0vn8y~GyBs88S9j#3?
zH=XvZuG*2j&<kE<N-0w-@8n#P9(*({CT-nVJlCXbEvEi(6Eg!O^ErxeU~>yMZv8`U
zp%VK7k%qSRpuw6))7B1t$|K3kCiS#+_G91T`2DQs18&c`Rhy!hJ(`Z5=Xfu;1xT_j
zoTC(uwf{y7M1|O9qKu%sy|?=ayOUB#H{`wUlt@j<o^lZh?#87Qw~5IehN}2bh5pfS
z(;9A7)LHV4TWEyL>U``{XWQA)8D5jx>5dAeX6>NQh_1`MZ||7@?CqAv!j*6{@0WVk
zoa#omX~#j`tlmc4xbLjIrE=Gv4pjoB?Pq6j+A2@r{#Ib#x8Xg%gWJ6)8S4K0iM04s
zFkYQ4XH-vjd;SI<yqNn%tTU1EjoO`+UZGn7y5;UdHuMyp1%?vKlVRk4tTshQM@!*_
zZcIEaV2=LSdUlGCHU@Vvm=QM4{GtseQIL7fHY)iwbL`p4t9fBnLr8+@@1-7pd*feh
z=^U!Sy<r4!4WI*=>t-ElR6{<(Vz)D3<#yRI1+^M6KY-Be0F!FVOJMZ&mf(U8Mt^K3
z%R?$p{jA&h8S{~k*VVc=uQ^*aaz5hw!?)m9Sia=K6n*#)hr@WTxy5@u(PgY}OVn|T
zPg4xHcI*TfI5lzw%?HwMX?ova1|mQ472N}vWm6~w)(jy>(Ns7<NWFm+6hiCg@tn!K
z?MzaFFbeOA6WOk9Wb1){vU%nnUaWWAuuwcjs}tx!5X9g@xwgMA$oH`*mEU^Y<44^c
zAW4sDg*R9VQh|D`?5(eN9N(rs_IWgTwpF+dxGn~#H{7)1LEIp?u`b4~c5osHK!~P^
z=gC_(#9pd;J85dop1|Qz4&^lpbnfh<B+6hZ)GlqpOb*Pfs5r{}{>&n3g)vCFxl05#
z7ksXt=hUJi^&M}QD_eh%&B0*9sc*VG+<rm?^Ut1XZ9JZonS_J$>d@`QAxtfYtBQU~
zt7c!?rOi=pK-111Z3p(?lc|goc`KudgS(%K+mhOD;E~hy#Sdls>)TkGBzmAVM44Wn
zNY^`Yugy!`EIbj}w56D%?p9ag1XXanIZWpMj#64By#5%~UR%GES&bDu^NSn5%9-7l
zk)krxI7?EQrtr2Fqo$q6$DwV^KRQvER-0qUEj;axvDhBh$PQT75D@)(xBK`T*cruT
z*rQpXyP2R#^Q#7j;WndP0MB7OPJ2!bcWe&$2Nd$~wBT}|{0#S|aGXCrgL_8GCa9@-
zgzaew)!eo>lCgIm&In_8o`~~_$v5cdo*ry^gb5i^)A)@olIl6_xee>J7w)q|ha$0i
z-U!!qlam=;W0eTG-tRHTC1`YQvK6K68{Qux((m5Z^h3~TdlF4qfg2t}kU2;jZ6PAA
zv;8a`{hMn2_u<+u1C@%9ZsZmr?u3g`#n84F)cc?%KS$}?np{(wLo3ev-QC@Eu%*2{
z!2dHoW2Ki%$D7=J!fzT^#20+p9Q@}xGBkxVumDezKIHrJ@A#hNdEcaR{U5@kFd8ur
z=rD5qpP|>GYfxg)0Yc>ReiN~huhCAQZ|F(71njl;*7-i1?K*`>U{vEV$1W^?iMnMi
z5dsC^ta)>b>%C>D0FRcU31Bvo!=N9ZuwEyrRl_IReg=B-N)Zb@A~TC8f$OQO?nzf#
zV^~UHrfLPb&ZS^OaR)`>Ni$?x1Ve2^c@~B1Uq1yTR1|AE0Wa)M67ckk)%_4@*AxBB
z-FA!(=3ckgT~B;e*6nbTW)*^%b4egE6?sw61vgLO1TxLJ8Q)p1EY-OS5zl^i$!%|v
zho$?s&mDyrbXjmZhkRC7w>sq3-F-SC5)6C|Bx=uRqj3lS1oAF~4y4VM9%Zx%qVdt`
zuf-~zJUt1!2C5ybhqIjo=Bg@um=qZQZX~o?A}&QS7I4s_qzWk&g=6E-#HtD&Ar)=)
zX+RqqEwSVh7u}y8gie5Wz_USz7k38!o(74E$9W?ybBL!AkD$@x0I4axSaa9mTsTgD
ziut+yZjPN_xvB^5@@row=~Q<A9Gq2g`QCf-OMe6~c}HY{yxV+%-zi4(=Z^2-36idN
zdo>&F)G%y!|K(yBA&iUJp1_#a^lJuhwjH83J2m={cpB~5$Z&**S`ou#O!T|SpgW5t
zsN$TI<MnQ>;6SSAIf-%l*47rcaRsm2$oRNxmHHp>Ui0-{gF@HDM(cXU-MhgBa5att
zT~#UoIqiejf`5F6%%8Hr_dnI(J+jU^Ed5S6&zab~$x?>2?Om3PUOg}0;73B>79e&L
z!xiz-Z|Dk=#9>87gZSYT0VU|-=)Q7$lYf^Wdd&42aqg>2;@sM>9m7#?Kv<EI@ZQhb
z>3&zgcd{Y}7iZfp)GIsiaP3@>n3PufjDV!u4|rd26%8dk-K)ez`hAWPF`~BV6rrrT
zzWRHu4jY<)8B<M4lF){|nTMd2=VX!RVxb)fcZ#Y?Ws(eWd3^pwja?W_-K#{`t2D>R
zA|KM(c3Vd^+xCv3<~8><)6TYzhqr`s27K@E#HdEkFG@}-<emMn?^h5s(u$Bl8mNpN
zbk+BZ!tFV{Rdpw<ZF5=((O_bjK92<LPGWCxEnp9>rjcYw9CoIIQlXpR2xhXiZY7ZG
z)cY(F+Ry)hv8>?F!4jT%rguNj*+=~?o1$~O@e0&DNpubHRVx=mcOMrcnoXPd(on;!
z9rI{T$Q}O8*S}L?x9b5Ei!xJcg7(1(bQgN~R-ypI^cYqnsBN4%e(ltN8b#xi8u&bA
zUfdFS6?enG@}Ru~2lnE5dh28ntsl<WEqaG^4k{ko90xwtH&Yl(AS)3Q{(=7aiMcph
z#%WA-oUZ+ciDvmMplkFue&;-`x7_~k1F1R_O=a9ie`(ArD9bK113@m3z99wr#`N(k
zDY%lg&jkvE`AQ)E#IqB1^uGETwY=jqV_PdWt|uy^B7h#R;CC!+Y~5?KOd((9m;jz=
zyYh01{%DOEP618_-wJI=v;?5xP*erfHz20a-O1N>(?qq-<y0yCeKFSn#`|Aa$2`$p
zzX&)N{A@%=jli@(*msx*;adDgU!m{Q4Mv18+Q(s1A}GQKc~8Jq{^Cgmmsw|^k(;a^
zGiJQNl`t9n4XU6RU>A{xP=@&_S1c($fP0ZfwdJic6-G&SX1US~ZLFiUC3pRItdIIL
zodDgf`FK$h)XI9~4Opw>X2o}5Vrjd1@xe;aA~49sNH<117p)++{?>(zxIBww^o0O@
zaFKB9t!0%nt4N62K*p&&>+^3j*p?H|C}>G<57{O0q#sl4g038MG`?>yap|5sj1qb`
z^6YQV509by3(*H-H4C+>S#x+1jg{toB2@#V7$(?5Q#J)zF1tX02+btj$u+J^`nne|
zVK%RSt<jnL!vjR_B0;BAKkeY~%t6Hb0W$xwrI9JaMbA|ME4ECxs$5+(MmjXJK5*@9
z#va(%$ck>#xAyt2zSR`ZuH8|nFLLxwRI-NrS<j_~P)l&5FQooq%Jt&X{odPqCrT>-
zKMn2laqs>UX`>H$_hMxv2Xtm{gfnyjP6!t`9_cmbBxdFcseWkIA5_l*tNi*p@q0tH
zoB{6?Z{94?s2Y4tGEtHHvoGBRO%+%5Irbaw?N+9V8WYToD)NjsTJEm1DUd4VRoM+D
z_NaN;O{T}fT+b;h)~NC{6>g~55InJeG-IxpVv<X7iyK?9*DMP@!5#?LtC&f|vS;E0
z#zi8yyU`wKp19pwH@g%Wrmc=A?!fbOugd9-zGLA~+2<kGZ1nZdE2BOS`je+YiJsbG
ze9R@X6@NvYi}ukq8-g0qW8b}4d%?iU?Uwi~*O=}<TQ|=&1h!3nRp71qK6I0Kq$J5H
zZv#NwJ<UQGuw{C59?S|V+BM&v0XwJxrn4I{#xc*`8?Zz4vXBeSr%5`Cfj%jf_E0M~
zripIPMEsF|I7zX=6nb)T)OuSRnom_*Ci~+$iqUV9GuRLxvEKXUyYp1p+ZS+d%xV&k
zKP6i5dOspb!0fm0?d!ZNiqT-{Dot<EuCT#0gU}*$Cp12)TWTi;M?T<-NKql9i|4U7
z-P6LT?E2*}_aG+?9pwk`!<yL&tIF2``H5Tggenqq7j^qyP+^jWFP+Yht)ry1XkVax
zv}`BA9YTfZbVz?F<l|S6SYIG1dPjWo%YW?B8VZm4?OXQxyLxvV+bZL8x_{S^9F>F*
zOdD>Y9b@}yCctxE+JFXhGnj;XQb=C(frx-&c=U{2!>-9Ih5$9c>5k8J)KAmcUneUk
z_Idf0)`lCw!t{m7M==Hq;ioD-Y2)lJBd|N8>cojBXFl_gd2nODenSE1DXxNUGz53b
z;&-iAxD#RRvKBNrN+GK_wnzv~0+84OLuJq22rNyV1I~1V8TZaP<nR$XzRR*e2_3L!
z_t&vn&<sf5v7PQ)e~R$4#Sa81$xSYPnv1yWg?KgWi{s>w>Gs%*{;Q9P8Qu}Pz(SS-
zueKD`GyHhu9*6~v5==6%M^~_#k1%_MrPmyKr^`b}xvWOc$#bV+O;SPE|JEo;Al{-H
z=#^qBAV|Yn*O=*t2-9D-s9*E&HKAK=Pl72&Uk#E<6{F874it@Pxf6byf1VbbnUZzw
zSQyn5v?i?umCE+jh|@A`qW?IGK3%)y{GA*QB`WY)zMnO_{v&^D_;*-n61O;j`4mJ8
z0Z<$SooW=}KSE<<WPbz$;C>4LogjfcNS&7~z>D*MxXe^ys~@AJ>Xe>4bHEkr$r`R0
zPOSXaJ7&oxTUXs(SCj*utPcA6W+NZzTnOtp>?1p!%qcnUu-uJ!ck@%bE`M4!<ohcR
zMhDzcR*9ia5z6{epo9og3lN`Pd(z^PI{voOipeqIpWfAaaE#Rk(9p8`*R^8#kGREy
zYu&izZH(}|2`2s1Vp<=&O`V#^on4n1gtPbzv07heSw-Y}upP8b^?;Q>e@r2?!a5K*
zcqUqMy!eN$J#xKOAo1QS5umtG084-plEc9Du*zaK)$71xgRUE#Eeb@d*y~~Kf7BPy
z_eE8q52}QcfL!oQ*=ho*y!+pk_kT_V<x9>wdaPcsA-D#^4$CmR%%GRu)yE;`_HMky
zf_y5<@7S{rd^!{N<Fy+x-JZ+LJDV`j*5cAapzpBz&)oGl6>oc#s7>afuzj?V^edb-
zej2Iwl0I}P!K$YUIv>FtX=+J#|I7?nIkx~w<IK6kAFtSq-e_rUmHzs#5ZK*uR}-BN
zU43u|hoi4D6fTremheJ)Aeou|G%6-(qeERS(ub=ygGu(-uAanMyg_&)z%HV_ULDN5
zjkq7#%S1Uue(;%wJ00rQT|~q7Z4^`STLz?x!!!%{qw@=ohR;#^UZ@>^;IOXKk1)N!
zddB;>;G4onq5ldH!T#3@#uF+XfABnvAg)t&UA|(koW`U5;}O20xz~@nYtVXj`VY&p
zf9yLa#3knt=a<Z$5!@yc=Zlbx3LtdznjUMTij_k`qOA{wzF6gc4OS24eoMeYYrBQy
zRw1HPve}fV2>?_668Pxz&yFfg$gaz8UbHF}EdHIp@T!;u`t?69!CwB1qI&0|_X*(u
zWI5RYpWRQvkJB&JAL6f!6hl7j#gNR9+vt8R*>LD+-~6B?Rlm+^u4eF%)N;FByOI6K
z)4eo0>`QR6zxbTZ^#tO3@nt7>6OB8F6$0FgIuy=$dF3DjCQRo0VE23u{Xs}wCjWxJ
zpSJPi+a<7KK)&N3pdl2o{FBW1ob})QK`lU&<kT2>kjKKRKc^VrlPM=rf38v?pW5eQ
zQm9g?42L~h^TBq}_P^rFgJzs+tJdP5;41o{HQ{;Vj?%%;Fm?mC-hX{E2E>o#vYZ|z
zjo?!Bp%26N0+r~L3o!EA2dhc*rVg&y5T#f?`RFoja@+)OjQ;TrKGmtmpe7Yw0~fM-
z&NX?KuQl*L+priWv}#r@w{#ImUt$LfiLLYp!lhLGKTd|OmQyZ!kOjvrjo70Uh!}Vj
zpEHXZjq5G%h9{7C@4Hw-%l%Ez&4-(0FT5$#LptN(?33VagF%q?gv@~fQb(r>pUXEZ
zo${YoFRh78dRQ%w;jOs~)I2I8xc`k8d>Rx9Yme0r@g?j<YYolJ#y*Goc{be6FkIhy
z#H{0m=^t^-dSd<h$&TR_n1rK&z6+m73_S-h**8WE<%%)wKw~(mw!zz*n(zUv>i*EJ
zM#rHx1POXQ?LP+ZfQ_Yt0aFAR3L=1~({HNb{O7~4Ce+~e4*x&_xd1!kHR@zS;%5!K
zLHs~$B35g5CJ;SO=t5L^l}~uWEVT)nBJrsGBu)(Mn|=}gvq?b(Fx~klB0!V}lKlSH
zv}LzlQA&RoKK~Z2L)m;xH@^|TK7TR)=8mZL*er2EZ&U2QYhZs*1Wg5@1M0CX^I#T%
zWxyK$zmGNk{;w6rOV+f$i)cc;UEz4YRE25=Ug%I67}md`V=}9H`a$&>Y{3@YR0YV@
zma6%d{r9=bzbD6nm0`BUtm_x};$c~}0W<nG&lwLlxa|<V>xo30#e*Z6SN{lTqLFnL
z0`Fjcb?VRTkVf<W401>Hv_*^wfxXkV+Lwx@{M-HaKAzc?qq0%JuYW&MwwNhNkEV=O
z74G2)I5jf8BL7!o3=<|Qs}>)jDO{bXu<ZXlTJ69Lul;09Gidz#oLLoo!5wkZ^`Bo$
zQ33eDAzt?Xw<V3i4fC1888&-g$+P^x0c_?7|KLw3_i3>$`>pZ7yzIYJg7|Kz?-q;Y
z*DsLzy!RUWRhB)h(@py7-+=amfRRN16stqEN*|O8<O_=4L`YR|-B1krW-n3r=Q^<L
z%RdnEAToi!s57GWO#k|+W&htxYy_^=(kRHD_!pW8mAi@=UP$@8lRMAxE=e8Sp9aOo
ziGWue-xoJ#9>^E&o9pVAQ!m3I|M{<|!O|0T|L@kX+wbU?qklyBfO%td!`rSmz_nx`
z_edD7o5@$@?jz92bjxvjH+UlsIBq?FS*&(ltbYGg?FT`-Yvt6q{$4(Cb=w<l*KfP0
z$J&QJsIW17rCav*tkQ32u)6WQXIOCTUB-fwIm_ltFJy$L+;hNTz50KWyW_;Q@5?0r
zWGa{(n_blO`=aZ&*&AP<i>RC(yFB^nx8oAW#cr;L#GFBqOvA_g@EPx?ops=z^Z!^!
zpBKcr0xgB!D_Ot$zP;5y^?l}b@5XB$KiSLn22cFEFaP?-*OAHBCnr5!7kgf3Q#>>g
zy8JlkwxEoyewD#}M%x9FS3WQJa-z={X4*$DplM~h``o9<r(Q2Va*BEPI=xNzkH6ie
z7WQvJ?0Zq|`}fwx>mv-)xP4yDJJdn^0@DwHj(Yg97RqiwW76MNo%V>7vN)QjuY2LY
zyX&{=?Xmgt+W#lV{+F3tuW)s1^6zHd|K5mbblPCQb3rfA8098ZlL8*><5J$D{Xl2;
zT~EIW{G7^{<^x?7P++eaR%gF~>xM)GaHY@>(*$>)lD}7BDXvG_=zvVoebv|noLkyn
ziM!{;!17v8dC>pOrt89mRD9!V52wZ3yj{8c*V)}~KWJv3iQMsKhsp;woxEsRZ*KF3
z125!N?3i_qr|!7^nCo@9>$<$^aO0=0E-o%AX4x<JQs650Ja{2LbpxXWPx!CbvM|xD
zCm3JIPv4^e6n<6qQyeC|{fYumTxI^!s8j6`Q?G64*fV*y_#2xKg+FSpPBNeETT%TK
zuJnNeNNMy+*&WuegLPkq<vU)EJ$3B<PA}^Nb*Z)DVbRPC3<AqRE6TUONnl(oAhIIv
V+lIPps+J5u;OXk;vd$@?2>?nS28#dy

diff --git a/articles/PCA_files/figure-html/unnamed-chunk-7-1.png b/articles/PCA_files/figure-html/unnamed-chunk-7-1.png
index 70ea4c5dcb1974ed7723efa63d63c3ce48336e55..0fb5d941a45aa40991268efac1d81bd1df08ada7 100644
GIT binary patch
delta 62361
zcmZ6ycQoAH_Xdj5dyhW4Bx;BjozbF45`-|i=!ss&$LLX_BoU&M2+<>Y8=@0JL>tBs
zC3-g)<xbxB`~L1-cdavP{`kzA&pBuBXYXe}XP>fVqWWc`YCCrzqzvO5prfwN9nP<+
zKFt%J!W|dBMaLPzhi)uFbL%lru!>&XN_#lXD;YCp8)L%A0)ZN*tEr}iL#G+_%^B+P
z$lyDMW&xizQHR*yO0s@s&7XtItjB{?Mt$;HvVBIC{5JjleqmbIu<8d30tanEzOP0-
zg^0PkV75wuBnkk}rE!1a+uzZ1$?j4a=?54!6Glf%URK`7Kco06k!1l)3m9+ajAt{!
zlW`weLo@=#K3J2qaCEIyqodusJTy%h|2NjbAf84V0jarQP1)mI@6AY(YH>a)4Vk+w
ziTqM2=Spdm0rVd>$g%Im=jgh?@KVB^0J0-Nb>NZ=aecD&B$I6B&uP45V523-%#bOI
zg_@`sR2+x!><q#05<-L!Jh2h+$Sb-TUwA}Maiao%60aj-vsZmnf6qBWDQ<38u_b(l
z=mLo9VYl5Uml!HoDdiGGKmKoSCT}9%n0kXF%?I#W6Q=tqWvD#obHqckEREOzM0=tH
zGeEp$h6p3Q3xAg8_m#8z)uT|-ZG#_U1W85N7*DdUCv;sNcu7Q2ucD99Pw^9pv3Eb1
zN^HngAMz-Yq+w1(2Im*7dnw&(6RLMfC{(CRhY(0keLO+FOQF~EGP@dkcQg75>{zW%
zUul`#jxVHSUI+y@>ZO0I`w@B*n6^k$h-x<PxdSyy{aE=lEvS}b%f4FGnfF$FA#S;U
zM_VCB1lB}{U|i|oRY#0@!<<cw+tHhM;V`=6dLiq5BHq%sT~Sof&j{Q*m(wl2r2gh^
z(r55o=b$M?cFxgsGVb})b|Ni7KG%4q`-rvqm!pWLoF)(Pittr1K%fAsio9%(+Z-Ut
zKjC=!qDq0Tv4y0{HUg5DB{@A1XhR@H?4GpcH8v(Yuvuili*AbykL32@`XKV*J=`gP
z=6!Zuq9xKPpX|ci!pCP+)CafeZ@RLxw91#cVjKvxw)2i*4amORk0Z}m_U=gVhy<sL
zhV36NuwH}-<JJcJyF^R&OQyLF%8OQ=8BZPcehRo7HYi7(L&wbI(gWh{MJSUl*DzjT
z!x|ozWW2gSst179wMf}IWg?!1@BLhQ?KTOAu{L2U=iF$8nO+fw@CUwzlkeR__^WRa
zR)^@?DX@p1Jv#}WL@W*EuiHZf@i(D|ANQW#@W=p$5rtW)kT&OU;~_2a$4|YvcIr9E
zOs`2#QV9B#@)_Ji%-mS*r(Xa|)JkLbK7*Ty_(`SS5@)l3Z)_IX*R!e%&6&x3i#15u
zijywK8Oxm~6aR7ZicqynfKclwft38?vDX*89HgNP530CRcZZ-?Lw}sh|FdlT10ej0
zbjN-meme`EN08idsR2KPyQ109kD*UhDj&sty8mW77V?FOFWzZ$Wb^5O-P0)O`)rKl
z@pH2a!r>OdT}IH<lp0bW%|ePHGzHn#G2}TncNgr!0a2@iCns}d)FcXhniH{z?|bvD
z&Ns(+J!WC~XLLFh>X3Czcn3ZJ3?E0zib-~G(Cr+0MhWLdpgHJVO9(@ky*{%IyRe4u
zp_qm^eukTK9j|y*PKu6vDNV@<yZbGlfo}bVAAw;8O%|e?cau+;dtsYoXZpgxHK^$3
zpiE5knK+NsvS$?7AS#}3ZtXm5*>K@KZ^D`42NbAQKdrJj?`NjYU(*BsY{h*DK!~ZG
z3l^onJXR~;dW<H~c`;rZ=h)vBW>wY@nlv7PUG%(+h3^i=eHyFCYG!6lI9*>5(sR8%
z{Sta5Mz%E!=4qrB>>%<va1xF>%u(gStBMRNb;D)`3+3(-Y`vnqfJE%?BhIQ%rz9|f
z0dty-rZG{ac<&Se3Pp-3{qSMu?(28&r#HbAwp4)uk(Z*wmNa^9Pz^qQHiQ=~52~3J
zzn({MxJ4(BEd^d?ZFf7o2HLl(HQU!vbn{%t=(a-;gA9Bs+bzicJ@;67x@>%5qGEds
zb>q`?0jeKYCPM9C^&RK^!0J5W!)GP)gr$A(l^^GX{695-F`xg7p^kw+z@3+O8?HE-
z>_Q;5!j@#&hG&GBbIGsI@9k0V>9Eeu_STGW35akvu0g|tC7xAx;MEFCP>aFZ+<x`^
z?A#$fVU_SuP2zXl9(Mrk;ZK{`J+lu3b=n}dh*uq;X4N*~(W2F8>OrwaZL3o;Z>5VP
zK|m*uAXLkmJ-n1CL~t4ipV0W>D;$au2$ufMXF*n!tqPV=rzJZ~y3?sFh{__CC~}BV
z^SX&!ZgO$5?2TtzsVfG{8aDdn$s%6*3}0o+R+0*De#@hHpQ?BlGqmP?sYW}j?&O>_
zGAUIQZtqw+r0ObA&2i5R5fH-*Z~Z^}$4f>XX?rg$RG6ig9J*W2zxZJiBQvtm9zU*e
zAJW)&_Kfqx)0=fLs$pRSqq!pWs%L+N+ZrBwrxkH1sD!RS28{eu_{S^)2Ht{8oZs-?
zvEdFPnRrUJMS{BJeGKOL-HN@GG#_MKx-dX^ai6LD@TPPa!K-a~!wLrEn1^es|2&gu
zK(q?|N&S;ON9pdZN242T{FH{t@B;=1^i{IM<%HufFB@rNihAaZn=R4Z=Z(UVPf$1G
zztpA9B~Gs@QJ>s5m*Wf-YOnPvw<D0#PmfRFIS#1F*?-qLH#G*=`p?8~=!|fVuHzyq
z5KiK`9w`tb30&w3S~-BxfO)g0w!Ql&UB!j(j1KR^hG(4@UqMxfS2?GTP0T}{on(tO
z%6zAg5YL=yptK6Q5rxHXQFEf-W0Sy-c)@QVis%ZKh>esdh-h0}8SUJ`Mg#~>Yt$YO
z!=W_c6VA5QnMK=tX*`xuZm2(ty2Us%iPCAROr*;KW1FT!?3yOT4EFG~`7ex>(?s-A
zbo;Pi)K*~|0!guD#(gZ9v65mzy*=78`s}}jFgiw!fjiqiMd?WDI(C~d)nfLWUwYH<
zbt=8lSt-kn+5>lvaBF+ZI>*)N2C}!l#``?CPamPs(|wgxv*{H@WD_s;pt-7TQ5#?=
za21@+^wq7F^#B@A#Sx|{vs7EG&{rUOC>N_-P1`7=ZX%KsR@1tkApNj?#h@JdfJ=e7
zq1EC|`r6NQ+Ra}FS|)GWU#xE;HW5{epYNo|6VNTt_(vwtz3#RfR$*{eiPB8gT@LBF
z-<Z!)i}`;kfh__`x-$sG3D6x@d+cg?%Tg8E%sRcK*1uxfnAP+)3Z`EV(B#WtfHRkz
zYIr_uwdw!X#;(BLl4oh@l7Or^($J|RuFT#bJjq0O_GAs|lU(s453NDWohu#T-Rn^B
zb_h6z{j#RDz$EItam9d9KF>agp#m!r=uB>og7`WIF_0ZbivnJ`!LIh-UMWl(+t{e-
zCD`=BIW$e`4aHET7gZu=zf=R`u)uRUc~FwmU2onfA$4sMkzjgr>P36+X94p6$G%M7
z*y_s@VoDv_z~qaVYLs4EYbAa$hy<?!QG~z-t>h7|5@-`_BfcSw;3Pl({E~#)r}h@T
zZ>a((W^|4nh#wdw5Dk?m!5^W&Yw^x{MJ6DjV;|hH-=k+o-K0jCLi8Z=;h1WMXl(yD
zxr;Js23aW|B2o0g9YU;#W!eg?LG{gP0E#3Gg=tS@d?Df$d_Q-EY9vdUOLMm;bYsXi
zNCOp;;}-N<Us<-T#)QD!tTOZ(lX9LSst&;TM?&rtp#F&*?!s1c#232h4g?#RXm7!3
z3#efC?Z@y;qG5tj^^Gd%JNQ#-3KZA-_P@;G-vRrG<3^t)e{CB0x`=v<^M2?%liUMW
zR@mU#B))w_@TqCV8Y=UHhVC(s+xj@_(l^lZCflVh+WX}Tn*+A5dDMUdqC+E|At{Xj
zQJfH$R{4EzGvyw`R;+3ngQUN&pX86TAym7B`2(VyytMxAVpujFd&B_vt}7^))&_-s
zZvJB&>vl`&Lt?sYeYm-o-J~q6uC-?5ASS04{A|Cb?T`7bp)7T~wr7L0s1jUkbcgXv
zA%1$E-4c0EIqa*B<pO4cd-1UF8Jgjslwc}zv1|L)O0DZ1rvHEzqhwk3aahTh38@A-
zVbZw^<FBvMQtX03+!vVS@K0IyJ`#A`R1%E$ZcuvpK#aQ)YZRA1!t>*-Aj|GLL{=b=
zm$!{CQ+48gHj6UX@Tq%K4b+CPGS;hO_NUo$r5kh~FoGAsYo7K+xGMziM!*=hEOi)<
zO`z29hiopO*D(@Q)@<&U{tBrvzU-&Zrp2h%{7)*q?(eQAtbDIfZhb_<N!64tn<^)s
zF8f+2dA7897Tod7lz7>8C$d7neTB-GY13oN+#$%`uB-JH_axS^9P>WE*5ZW_3)3c}
z<DVJ{;F<}|gcj6E(iRzXg3qgr-gA?+*qTY1MKJHfe*V0tp!J`RI|h#9vZKV{`_M0a
z9Eqd_cxxb8zQ@u+cpb!Ipp$@=PoR#39IPnX9W4k+xmMom4aWp_FUj6ht0svE;U9^u
zX}-}xlrV`OqEX%UCd<-iv_J<dPX<_uN1b50o%l^Ca#&peqO^5XJMZF`+a*Y<@;q!@
z7VQ=i?crV3LOq;Yb8x!phdtw3WOevL6sP=t5YL0Y$1B_1=pH6RSL26Z1dM;#QfL<Y
ztp5X#d*uAMgwP+P+v69R4BP{O2?EPR==W}qje0ac)qnk(Eot9-zx$wgP!kyMEBaH!
z|3yAsHpyL=a*kb}NP>E}k-*WD)1a3$Wlh|XhbibspSx#khB3II^_f@1D`uu+M#ub2
z43~GT2*qZn3S*Z=Kc@V>dCzl%dv$Gr3{}E4W#@}MuGpXojsFk3_$YiyH<u@7DIVOn
zHg}Fi9M}AA;FSSrQ&moq`*H3yF?vm`Or9M}dZ0&K{)sO))aE3OvD7VBbqgj)klZ;}
zr{vbre8+8wt}=4BUAxL%>wc<x>_l>>6};qku1EomlTfvN_;DNyav^S!(3qw;JX%+A
za3;Zn{fk|gFO4EpG-Xyq9mePguBc#GFWL^Y_!AX^6a<!Fyi~`}PM>6HK`_~541(rz
zvTPFTu`33DLjN501hbuc1=VUUe+n7Oin3fvmlYHo*0zJ83)la~{qxZXX0)0``eQ^a
zNrWtgTts#@eKGS^Unf>B1wJ7~f7Tu(AL@LW;`{VJC(^{PH`L3tpF39}e>1Q4*xLqp
zQkdjM+j;5m(0i9gfcMAYemvw`NU~~m1FrUIIBLDDzSHvbS5|kHk^|~m?V!k5fkBRQ
z_^O7~UkHJeLDP|%g)iVw#7W1QQP_%Ryf1$mSMm0RDMcg9lrKSaO+WR%#9PFltpXj)
z-Js2q;gqD9lldAa=$#Z-ZNlZ7=gQ*10hjYT`)o(UUd^SDXQbJ2HmNbIU*oHLSmcJ-
zzYv7*PhvkJMImzsg4Y)D#E}Q0UJtScUKYv{bq9B_N*WmdLpC48`6$4J9BRzIy)~sn
zW?IB4Swjdic+QM(w-Y5;6MC`wis2w16Sjk^KL3rIl(#L5&|CsHgaJmib2WGDHoZsr
z^Uce_u>y|_Yto(i0`GafT;ld8&6nzQJC<8c_nM8SXU)=B(R3DJimdc`1h2G3RMjPZ
zA%r?rr~?^W70_wge{vda(Vt!OiSOl*?kaRDmq$aA%K3Oy=#M=r7<S$4kab4`xgYp{
zd9uF#>6l-3%9fVYO#=*QEs@AAJlB&sP|iu}PJY$Hx8LUbxc`$ucZj&?l9I=dH!%)E
z$num4si7=IN|6e<FCQVuJxD{~sfbs+lK9_xW8PjQEi{a2&!^E<h_vuS8Fra^?!8jy
z4%tib&LuyD<jb&yGcQ+#;{T<Lc*#BYq==9s`#U1WPQcS9aG6=$O_P;VdcQZGH31PY
zW?g;c)2C~TC_Zdvs}DKZ`NxZSk_fL3aw{U0HvCz`@I6yIaZucoK*lKT&Ly+XIegJ;
zp~<`Rc8hjG_iAgdFZF{ZYS^B*@|X(eo)i-k2u&juQ&G%u-I%4qFwJW$qb;T6P2<gz
z!@=JX<-m90WP(~gk2-2|MhBuZQ5ktn-u=jWcgFU2G2cf(9lTVW&s^M)#8H+MYg!l=
z!Y8OG!|Y`3u`I!w=9iYJhtgDY+&MT&;YLTa`T9J$S#k{8dmkn%)h|enzXd^4Ry!l!
zJDDG`RCA0Qo$LW`{>z*3<9hX4oiI_LTKpjLONtA9+M~5*jn|3C31>s_6{Ye}RtYvq
z@srle{+Qx?9hLrwknXdr@N4`K1rcS&nk@Od>`z^UBHIXEN23LtJBhwWB0C&(CJBl;
zwgvKwwIHXE3Q`Q5VVw_OrJSfkby+D0TVL;$F4!ZX%)2#tV`RZ<7^K4X8pH~O9C{Ok
zIX}*)`E7#nXlg&5(YYYu3Ur=(rSRC)^fk0I!m$Oh!miov<>9m2Lz>TlOSE^KLVk;Q
z6~>*vus~%Hq|5&Jbx<6M`yM$dPBE`ammTz8E2M#|^ndw4KI^Qr+@jQVnIx|d+S9ez
zkomUMq1woC`*EYpzf2JLD_2NXOOx*aT7;N=1Uu2-C|_A6uHe4fh(0YlN<JGsy5guM
z+&Y0?S?5bcLZaUB+-?<TNl;7x(n~KF-ARoIr3T-2$er3@Ra1uXL_OEViPM;Vm{Y8?
zl~knOy!fHHkoA7czd+|AlqS^G>Y;C@1e2=0yAx3~(cD%|9&q9C>!?>NlW_0i5Il#+
zWav-@dcf&kGxAb<DP#nLN_cr@as>NS`*Z(i8bZb;a^tSm99PTUV^tf`on_%sJUnhZ
zU5MI4uLpH0F8w&_amQBqOX~pLCQ1JR@e5He=Gf{Ii>R{)c5To5?q%U(CTpnJA64S6
zcSDG&*|wZhWq@J&&f}VKvIA{ZD9>?gHiK9skr%b@)c+9>Ez%YJNjdXS=2K~JHtzs1
za+)rX;*`u=E%W@N`yqc>!HM~vA&F;H(@;#aHXjFQ;I@nRQivdP5V#j|b{bZr6Y5G=
zb#8sf&-L3;Z*TlQp0Jtcg(>Yce!Q#f<jX@~J`f#SqjRA%(KoZ^TU;PX6~=B=omp`o
zA+GtisP1+5B9A*ZVN^<*f!A~*ic>S?aFC}IAbtSGcZxstEPh+k!fY<qzWeS1#y`Ae
zUg!GD-F|o%ue{DCSH@!&p!Cc8YvIcBCv~5Hv6xaQ%K2?f*vB@j{EdX;X7vCL1VU&7
zbO(GCQ<F4<*bO%g4;h>g*L*24(q&h6<5s<BIh@_K`x-UjptM&yAXsz!f_HaR(Ps*9
zbt#!{X;WI3?XWn^%gIq=!ny9?_!RqtuDO2f#Xt78GdZ(nyN3(vIWbA=72@$B5~5z`
zQMk$xG`#d&Yy&3f4RH53D|$wG69o?CA3t-xQ}?SNqNVWW;3S-U2RFq*9a}fXIecpM
z)iV`j-=P<=A)YcpA|8@P(<CP1SDD!Y!7zSFMMcGY&{_`i%g2WEy(b=%*I_<Xr-qF}
ztMI(MlJtx2IurgY?|QtUW%46iYyS4B^vwkDzu6}G72pv$d$-((#`GGCLr{A{ak3=}
zQV8o1@j6%kBjPb}ptUYgdXJQb2oQ{lZ5hp0|B7#<vmCM~Cvr3P*K~gV|8KH#6mlN}
zKj*Chl_G7%jGDIwv%?S07C?H!XwbW__4UN=sr^{7m##(j(lZ{Gme$uH0KFm9v){lt
z9{CD9wD2nJeZ=y4(#0+xHal<`*6v{#wyfl_1k2OWc*G|2wG)FJWIXe*wH8iu4|zIj
zWch$7iw#nOn=-CIH+k6R@uz4diNxuy#1nstHO~GWp}8+5vFWnb420iZgQVy)r^prg
z^(677Ny0P9Q2GN!U!vIn^v!B*_>HbYXMqEy8V<400GIR1|4S4X(@*&3a8QWJ9;e&+
z#s<>6T~NpT*|qix!>D6rDMGK(2kLOru`$5NA+tlvvTtsnnq9Ds8Q^WC4Bei>xbZtK
zj%#cqt`yo4^bE2;DEbrIe-Kk_J`pMsp`2JDoUH=@VZwZZUI>{;xG*N%yI8OFUQ^&B
ztYkF@{SbP|jKyiUPOA}D?YMKgM72m}2Pp?>tsE8WDkml72$t4Dw7Ik3hWrHX{0HRK
zQfV!oaw9jv&)qBN{<_Zng&MK@O`y|!%I~a=<;1<eRJC!g(Oye@+x3gCTN1;`q2}d<
z4sh`WS>4!4c$4E<9ypq2W|y1zxr82fgD}$<%{L9}U8$#MFWo$FD@~30dWcx~TLAcP
z?_}eh{t#6X7(EcY&yvNU3BIw0wGT2SOMER5rc&hRJFKzul&#6@`B0Xf9qjAlp)A|*
zXgzB}YeLVcG9h&dhAs<4SW~UT@D5@JpuJ!a3BJ*~0!>#NvN=|I_%|#&y7gH5ni%M5
zV#TD3?c9HOx+%EcgJoIg%_v^ySrUu_Rn5UiS>Mb<7dYi8P6@rk6;7Pd)citAkL_vX
zbRJUrkq~DP@?A?)3*YU+QNNGL?mam3Wn03`Z9vb25F~X=09X^fhWzcW3p~V`5s;%1
zbH2$EWMn-)i_l!mGGA`nz1Wr7$(|oKEZ-%H7V)~tJ*iC)mWM;{eYeS_-h`R??jjro
zb=tES$J++K?GK>-_y>_RPq_NLdWidypZ{m%%n)gkw;7}6%)K9^0giI1x!0qw^*?re
zdN-rUWB;86jL6{r`Y<pG$V%FmiE6+0)UG}|8#BAGWR1ue)RL}dJPmz$ZyTY4-#~po
zxt>~te$iTff|HedlAr}onQc+|=Fy|5Q@R7ex3Bev=5oi~(jTf}#n1-fKUD2F?^fO7
z$f>X9${=r#KJWO}BoGF%Q8M8byYz2#F*phQ!pzpEfmY{}ZF_W&9uTu2d*o-ly<s!`
zP|(W>=ju#81kl%(gQ}AF_O1o<L1?pI4zH)Q#xP-IG@%EWwu2*zl<RND&<#gfm2u_s
zxWj(Y<iZ1~nu9u3*V;IY$r~6W3_P>3ti9yrZ-OydnnlBAs*Ju(#h)%{r^~AGIk4f<
z61nCWj>YHgSaJdx_n>x_db*17DBjc~v=fi}h}ICUB+?L??GyEKi7>$-_ot<p3-Qi7
zM_ndg4#HuAkf<R6v;<C0?Bt;EW7Vl(T)@2QLo4jk7%cpoweJ7)UylZpMUJf3OU->h
zY!g&LJG%YBBXxHvuc@={r!JuCdw9n5$lwO-Y#rz=18Sa^V3QycDlw3+4FosvFnH{=
zsdZe_;8PxN3U6@Qs4k8n{50!?ajoRV=SN^uY68uw^I~6FKyTMZ7~)OTscnSmTnJe)
z*2=oLMK)K#=Rxmx@R@Hs3*qoZajP^(y1}JqzBFI*_yoCMOQIK-E;)_`s-2yPiiZrf
zfL3yx$KOvG=9Urs?&vanwm>3X-Nbx5I}SWEY3}^)=WCtNe@Y4W+WTi5$!VWf-TKeo
z#VhX?ag!`?x@jp-nr`>6xetSY3Wn{X5^TRrACfTh_{;7m9`8Qk@jWf}yXQa5RpioT
z{X?MGN@n%5fBDjzzeMS2Q$7GXv&FFRE4fTlL|7n1pb!4)my})KmW3TQh@kQrD-sw#
zUxdcr`ss~rc-s*>(yuzmNM&)Ci?GvQ#@-Om2agA7?`|q^b>Dt_8{Q{O7V**+ZB$ua
zz7wh()cZR`$P201J%4QmaR;d6QY!6&rS@)mGkV`Uztl4!PHYFrcRIFK=V}nTo>+};
zp$%BTg)vmY%wN2^JsD;^sO~B=?e%5l^6M_B3cill3u?iy<?*4k+JD-3RP{hS6Rvqn
zLIva_X?4bJb>M6Lo4AWetZQ4`dmu+b_Ay6B>r48+2M@hFe#O@Ht#ES0Ka(J4HjJzW
zwO?+~TG^PqDG&g5fCcvCV>?`oY<^O>d&#!nPLmC_q0@6<Cp+`K@zTcg8tdASm^$AW
z&Y9dya;9@)hcw|2!`mV?r^pdI$Td%!6-~t$AQX6~8O~4v_lpX|b!|NaGHwUu*m4FQ
zzv(;Z^+}y6s;&BzVh-LGnoAq3Z6!<KPcgXb#hxxZKnnz-MD-TqpCa;zh6#(;9_5N9
zT;BeGB2330DmW&Zdi4)qAI$%$+vA`oLB^i@=XV}0=esRwr`Bi&(N&23c1LV)3+w2P
zlZJoBc>ARoVn}21x$enXl_%EJ7u*!44Y!w$OP3`%yOLoJWO|v_!5mnIkl%MG0)wtt
z_mjZD%E$s<>&w8w8}z4CdjU|%G@;unI-iM8$-QN&!G)qI8Y__ElmVcOZ?$}WjKAlG
z?(+q_sEL@l*&eYqQk-(_dBU4vP0nYR9EqE6yFiA7?W?op5CYe*rCHIV_Fqls&UjdE
zmGfNUFwg~grfrRZ6fM_|eJa>sGrS5UJ_a0r&rEE69>Pm!9L>e+h|uNKI02o>lLEwt
zW-Cuftsa3oYY^|?mbR$xK^~z@rySFM#+N--JUr6ujkGS&BjQ~F2gGK~-w6*jmLo?A
zsA$93m>G3YsrM)w30O<#4PHIUkqGSSd8D8gC=%5NpCKELl)%JB`gk}t7IN(j?g4!3
zYEP+rC)FK?WrVo=Y;Kx(DE>|B0E^IMjoKuabHXD-HvN`2x&qZ)=HO6p7x|trcL_n&
z?UVPLgNi@%8I``a-Whop_Q4!wrOf=9IzZQqrq~4?b4fc)PMWT<J^11x&x|Gjhn@=1
zvA0>w`+(J4Q`uRsY$E@Fa+Uc&pqvJ6@q0{Pkm2z(!~pG+PxTGJH}#-D$sUoIgO+F7
zDIV&7Pp-1GjoDE^4j`@x%HYpn?!U#*6Z9)maHgO>UZC#`@ixejYmWk*5ck%A2OjE$
z_KIV<YHIzG6YfmQ(@whpy0S^VvLgRLp8YeCwA+hOem4~DOf=%At@r~tjEup)7>!v9
z?opg`gI|NF#m7<e{dk5K*(Pz5EgGplS6Soog!N>DIXacpXTPr~B$pnDsINalGot;`
zn#%^@ns$><xxpJeaa5x<c$2f(^16iGrnTI+8dGJ_$8mW#py1f#i-c1_@&2-a=j`6H
zB0+@rl*j9GK4<0swub_OovY$sRwC^d`O)l^<I+!i{Goa`KMdf}L@I&kwRx`j4_<1e
z?~;tX{hkE6NZ#5QqvfDFkt4NoK&8j^SuClk+$BTff)n{`%2byKNliw624hpuqdMLt
zk~-sc$b}AqCLs|0y1~m$;C`DG3wXbvTzo5}<0Ds-zoe~u-YMWuTFlTNPBq`|r`{SH
zDsK>8;a#uv$o;I#m4I~qz43_nd;1SK4ml<g!7-F&P6+!77D!F9M4cK`o9gYp{zJ{b
z5ClHEzUnx*u05e$Ch1&ks-+)xLG$k!MZBWcQR1nWdYdf28~Bf&`v$)N<>r1j#zgQa
z3nbp^F(g|H(C#VTbBtMikzj%Dth0q09w%YEdTV)NOg7VO%6Njl89yT=X*u3KAM2Gu
z9LMQtG8{yIr5pPa770;E=F3vO)ur9NU7Ol}CiBInz6wH!(My3;oLRAy-RJ{x`A)S^
z$k7C{pHVBbH?p4M@6pm9S(d1*@ltbo#6^BHN{QP7u&FcYXA4s>GiU0(kmZC^LNqaC
z`RWGRGHC7SIG3vDnEbggZ~a1&`GeMY#eLK8O)HfVA0(X(r2EA3={3sdvV??M!#$}!
zXpr-}^o^jBPuyM)0=A;`MQ`1`EzK*p{q<+NM@3t!&VFmlZhK1{=1jHrj})~1B}-u*
z(IILR2(c`^40r1hLnzSr2a!!$kvOsKkq);cMijLsydpdVp_TTon7Te9d?dtoL5{Xc
z8OYAB;cbk=R4-bO8xOE+Vx<xFd<X^Vt%B$t9wg-jT|^cd`Rx{alVm@RG8Z0^g9gZ5
zd<jB7F>GIEa2q8-ej^)oY`Q@U!VT9j8*gCjQ1BpQzt&Cfv2O#hKL4z?i2%=m<}}%{
zjQ?<NH@3tuFU|r5F*z;{H&=Osi`aw{yTa|ePRs}PC3us(CMH9FJ3GEselo++ynj%R
zV|_92>-9RW=-e)o?GmL0vRU+9gb^(Zc9ZC68-9oQJBuNYq~9jLUzT>P&H=U<WbxPV
zY>2{?@wRQ^r)#z%r%ALRPe#{L`&ZS=35p4*ROiO>si&i+^SAUXJ$>cqOWWeh9d)y%
zXge`?&~XHpnc7oUkz5C`7hc`HD+2^;IWcjg&wIHa%Yf7B`gh2Bc4myNs*Izs)(8rn
zA4j&nm)}!W=kz|OaM+rh(F5K0T!b8GA-7bU_~u5RZ%QkbgWK-p*%OlQ)H;tUi%@<W
zf^$=Tdu?fH37*4s6MaW|b-=Rkta@_$9SjJm+`XH+vuf}8JM-%0Hr`=w<U|hCNkfii
zQq0E=OG0a9uz%~3Sl9fM#$^GWHvBD;()}jb!7Jk12t~a1?_nc`;-)}U$av%|2*DvV
zc5Yq4F*^2KMlUJ{hBt2HTBwNIPiuRgCf0pnkv<x_f24&mOtDrs7N?w=@C|tIDR5fy
z(&s(tE^BXyf~t1|HEtMkPkUN5<wasY23o;vSTe&V1=*>|a;R0lED<3#+XYJuRrhQY
zg}w3<I`5dp{{Y;(uRZn-c_5gncEOcLTp3wbtSV<(?mWCx6UOFn``{`?o`$)DeDOu~
zkZorItfT#30SyWh-;;`hUeG3hgIkDubEE2{D7WJF3+Dp3!aH~D@Dum<^i`W*uzVNW
zlG5g;8`kC{@Ho<xA=kPfecEGnlhfi_3C#@QPbLABvv(#{@;3vTZpPZAb&bsiH2#j|
zi|`Kn(Vs*#LN;ILsdh1+Ct|#YBIuLhHJSUJicML_Ye&@<G+JlBo<GMjQtu6LW1e$K
zq?W5(XvCqf9J|k(5MDeV=Wr6|x0?$LB`jkaHQJfjJ0jJS#dwK#t^-GvFmoh(d*5h4
z7gxZ9sgV+U<IG`ev|L%HS~qtst!fxL9UjA;ze3ub2YgY;h|tqBCt}51h44T%jT>wT
z4#~PZgg;|+&$j9?YJ#aSck4f+$!?$oK|TJEK#`0ZqR-~lMhX3>Qz1FCZF^j7j-g>r
z+m7p4?7fnGcLcSQ{yL#v{Fr|FJzLG#OF(-*K=)zR8oWb*zT-<^$AFxIw01JVan9+E
zd=2VQvt)tZ#O4-3yMbIMN;|ESd0oSh5mw-WRgF3;$tBD2YA^Ewon7Zpb2GgeIOy%_
z5$7Z8yP~Mf#N(6_IGEouk`We%3Pom8u5y^Sa&3|Cy;D1sx_9%R3je-Mf0Q7wZHp9H
zBpeOCX0+?zK4hB5+(K$b>`9`}WXg3<nYJJPqFzZ{Gn+f-yL7R?l}1|2*z-b>slTTo
zT7k~w1REF5-gIoWItZAev-@M)GrY6a3TrW%g@}a#VW6WwNWAfQg1`~Kr{}j51aI{E
z#e80f%=FZdvr5BN&StFk2^R48oiC}_9w6Td;Hjku3vc~|!2=*sryYfG3Dq+q%)3-s
zcfjGkdVrjb`{Q>_V2u%0=j=P5+uAO5xTkGnIhzxY93?Xs1nJ4bjk1F`O6vj^U>NTB
zrqU-48`S8xw`{kYo|*fKrV%pH^{uHqKF|KqzwqL&%<pTkLwgjZsvOV>TjZ|}0f~3E
zPC*wZwiaMtl7Vi$&-s^qP-O~RKm5G;$52odd$>~P7XJ6OPToyOpxJ`?oKE=RELE-J
z<S*&TGa}^Hol;uMgAHVBbA7+xZ;!sAitnh2Q$LT?W&td#6P86>_+f*wO3~EP@m_PT
zFwMMwYx@o6j!Neh4xm5RdCooVwC)hglC#EC!oI8hkZaf31;Dh(2C&E)-mN2|$h{=|
zF#A#D^^|`>82w;klA!~qIEBZF`9m&F5UKl#`PXerG7iJ;SDJoB_KgRL(d5GS9J`!~
zo)-OPHEZZn{}g>+*#8BSXUosG+K#^-x6@=8*W=$4nRw#jgDnC?K8W5m&wM)xEtu(I
zF>4>|f>3Oh4_gOyc3~>8A;~+Lg_PU_v_U_Hj;`enIxwz~R+>3GyL$OlnlMEZQJgr!
zR{$1@X*m%UDEz~B-yD?zkr_k@BFf&>eXo76IR*{?m_YPuAfY}P63VVF7*&V=;R&7E
zmByY-#60OLOc&sG!ySl{4YTPel5p}o)F%pIktAvq^gr8%&(IFX%-;RLMUoBzVuBn8
zo%8?dQiD2csCNt4y`%X67iu!+=@jws8TZ6XfOYihyOcFWrheR-#cMM9z?UR=p$xC?
zv`^W6`_69gLWkrs@5SaQH)^461q$hhah{6s>Nlh?0q)8q7oYo^<~8L4xMld?alc=z
zjpLGI-M15e`{~n!S7%ANxXf#7xP4pQ^Q}=O_V~>eQ##84q4B<5GrVjvt3=2EIJPl;
zf=}f{g-Q{X5SFMjDB5^UZyu#TIt|{pyRDT}M$#6-T~9uXL}GlijOM(*Q9V@-z1oXa
z@x?hTP-+AsVYB!D<XyjtUpP2Af@7MeG@V-vNR&k((d&=Os)Z`%W^09h)u%yp(|{st
z`{iwxcOt(UpUH$Nt_OfM8()<|sR<Jkz9cJWOF?bk{ZUjc#`G!s>Z9%%D&pI;8d}lb
zI#%JfR_XApIsEN$quIaa5IZ}n&TABKnYe%ga;>JAr(f;fXwfPNu^mvhJHyl&7j|7V
zr(ok&F+caf*ZT)wd$ocf%BT6T+=rC*YdzOOD;O!)sbr77D!1p6cr}NG_x88{Tp&D<
z)AA;k`&T5M3K}Oist;w~XD|0`1Xp@8ma|{Wm3gn#r(T-ARDKY;>?7zZJT8%yy5Eif
zDvCx6o6TpQG+66<+MVqXhrB>tNGSAAyv8qgL6`qPnAs4I9Bg77(IV{~0&wS-%}Pxw
zFiyDyn){kGHn?X?$3;_&Z;yS^A{}{`ta1s1MN`W?gTa#C%pTa9;Ar9z89t;SA;3_r
zJIGMkE}&q{JU!?C+)-NjtJ#q1b4`G0dSlCOZni8YpRM(FK3f;tURmcPx2Z=F=_T9Q
z^$jYQmC!3TQYE^jZ#N53&Iy+WuZ-G|s0Yk$LbE#qyLqR_qV6vXlOY$};gCPwSn6dB
zlIlk~U5~)-F`~L&-$$S-M79bdVUn4lGM5!z+dUa~9x44v_$P@XZ~J(*0HQ7(N9<nH
zh%D~I{q5s|njyu6Zpy#|q@e!8iI5%Pyc_SySbw)Yn77_PPw}$~?63I5V|PL!u))mx
z!di}GUvt#?3C=ke??Jpf2=_yhUtm^*^pfHTd@zOHZ(5QAYcv*TD(&MrlC8Dn2>_Dw
zT&knvtJTTapR(`^QU1<NfU5t-d0Pr${SckokjK3}T-wBrrlfuyh)c$5#(~GM4v(_$
z^#AF5r1Kd0_(kpfD@K39>dEv2XMkQ#f;8ggk(xKK-*aQl!Yz4sJ18?zI`49;2pe4>
zy_PL?Hv7}armelfWBG8xlwJGsk2a7+Zv1G4XnVW!3irFP+SOse;^_qVsvSF-WYK)o
zGvAw3mK*$ystk;Gy6v?vef6#*)bHKz<h;`k8|>^xL;Jzoz7r46o$|)TnB=R&j60vg
zemAWtm*@%RWjQ4-o*-AUQR9>8`|X&vwPMAC{ucXt3g22y45XTidq*dJon@L7-InZi
zaj1BZy|Dp#`c=sTc=D}XW99~~<%sCqPRfQfp)Q8Iy7!4b%aigtLCQOm>VgbxZW;_R
zy-@{zD;eAfb2qYYe-x`_?oQqh@r?UsE<E7wXfrrB+l>j)D!myt^KO$RW%=v0=<kPI
z(B#II^r@!5pQZT7(}_=lPrn2oZvb1DN~SngKn!<rI6?rw%CIMvMywL3%zJ(t^7CfM
z^U`}R-)2YNDtwJ*PPC;=zwP$ovNMTl4YHu2{tYQJTrO=Uek-!awqu%5gpiq=nTN!5
zc6Egx!jV)sR5TMAUHHpwfP5L|NVP}E%WM<F9{_v3B-2O3d$qkl<oRjyUEgcku}iY%
z^9E3M666=qcc)S*{Cd-1EkWW3#y!6Z6M~LKggQ7ufFtn)%7eK$Nc*nlXtt4-$O`kE
zWlCzQ5WGeweK{_0+M(O2d#hvOC^h$hcxFnfCeaTYRp+0W$}>hK@Yw@zPq8W-2u!Z5
zk%jF6M*Nhx{usOYW*HRFQ6$TnOo21gqFKiiK*OVAbU<jgyRv2S`Q@?riv`$by~1k7
z%S3iFxkC4e5<)*eGOgrFJd83&z#R3Q-xPcKlV7d#3)iTxX3oz2<rcqLrHT(+!e^hz
z_p!LRQM@A3GcefY`u+YrVFEK}e_55M-OQI`#gpmaCzd`0mkfAs-zt-U6=O1`8k}dp
zY5@>_#AV9pRey5Ww1S!)#eOrd)^zr?zD3{AfW?{(Ux(+FUw!wB7@6IRxy{ubXXNm%
z^F`eX=FatTPZa~_&<P*rLLHa#S24B5IqFrV<|^2e_GQd#df43fq<>q8O*3jJ_o#NF
z*7OusfIf@fbu3sD$6Q4fY`?g)!+e<ru;cT!udm;eE2)epH&z$lT;UF`B)>NByA<ia
zZV`EiIzAL`F@V<>9@wqD-LSt3ns1A#%mb8qSoUCX?Xx||WNW=ESlqb~HrLX!OTt<f
z(>iyVixCYo{AykI`Q_v!XYtf8f#Ms=rZ@?cRWQ+Z?=bt;#~_aq1qt&E`354u<6YRH
zr~UWnf)y#^TI#$T9xk}QDLLL#*|s%I*udsqKQK7XShRb60Yg9J@4ECuE25Rrpyh-|
zob*grAoOd*pXnx}#^YmzJ49A0ZtCp2PWKDojEnwF%kZ`hv8E=9DbC{<KQ5~`8W9Ys
zlE<f8R3l~~e=d5^?4|a#?+$>Fu55dEGnqw^1>??Lg`t$(^KMqS#v;lZOWRfX>{d>n
zq35Q9%<up$-Wgf$U@xMjPuG5CpY%_DS&HL4QcdfwKY<uYJDozVc>Og;<C~?Il)*!U
z!MQB?vVJ6KSGP5D;>dieW<qwyu8>|0XQPU>W5n?7qswvA_KLc48(_iqi6!XsXGKB%
zlKL_Ej*AtymjMeNhd7t}TBL18Xkd_2+}_?5vR(Jst25%$)_&hEi-RPy1px!$m&=VZ
z(bey=$X4!Z=IM)#vaI1G+4i)+>&x%Ob<*gLt4$_1QK!}6ZK=lft4X$>V|0(pEq=PT
zpa1IHj=o_yG@Nm#z5!@AW3kVW{Fr;obVGi#d_M4eJqcBm+`guCIIJapzPK<(S8dl5
z{J7kFbh_rz2|BVb`t93v*vZVuPVML)Ya3J6AQt=E<xCy+_WCXH9U9sN_;~Wxp((n=
zwB%I9kg+C{oChFU9wm0j0QG%ePSu-=d#Qjm%Fm$H=nO>r6bbBHU3HT<cF{&~^OJIu
zirBKy#&D_8zL$8jIq=+q1fHEY&|ep!T38s#%}+@+dEc_er{OEZy`mHeO8b==e6Cvw
zQ&dHm?+{qr24u<O?hj@a@!LLqMLOH3HDZ`gn?94Z_A|~E<`zb;)|3N+r1ics0mNTY
zmwV$_JQLk1igf_?kLRul9HYrH;=c?-KkZ$L-DRQMb|w)PvAxM`*#tB+G25HWXL$x^
za+7}B4GUQK9&KHQOP`Wo&E3l8uS;m@`rj;S6p${_=^ZmoDNWqj%}Qpoe?`cgLCHdC
zJ(+gs3~i@2_B%^kTkohh6}uO%5pKiHwIF+=bm}GKy=)KgYM!QCop2o<RkQqGGeKR@
zv5odt(Hf=}py3s}q0o3~sW(BD3U6?x^*R`3D)Euu^M?P%=UrWZcydeZocH|<xjs^-
z>{Vj#-?TuRB0&9z2Q$3K)+0!j@Ffr@x0s;UQ6ZQw4Ng0UuME)|7lSB9`D<!Dd6E)q
z2QaN%BdiTaHIGme+rnTx7W;UuDt7zcCvJCokDhIeO_Z8;#Or@s2bpbCFH%9jAFT(7
zM+ZfJQ3oYZ;~hS$CW$Q7R&G?i7`Y}uEg-@)Puj3tfzbJZ%2tAm6P$lueR15h`PBGn
zQp~F($65h*_zzk(-mpn675SYP;`uuPQ2jaMyl~ALmzI3tqEgaGqCfxIs2$k0aOQk&
z0r$st{wlIPyo2VX(bp{gluV#-f(lvigglIzLR{drV$n+l!|IikcgoDF+KDni#-^rH
zPHQ;<lWVq{eX8RK2zc_$cufzL@ECkMROj@^;$$vOPJ8#6(_H(S26|Gko>K*2ZuYyX
z-!4`hF4J~zF}8eDV)@x>My3XSs892vAqlyw+hkVg85UIF(KWZt{l-IOm@DC8o~)B5
zUn+|HU7R#!zT_MGx1K7~KUq8v6&GZCCEX@Z7XIeau7c*FzsJDOA6Gp26+g|Zc-L>^
z;a_oz5;QrPq)^P)w&-T=11QHlW0{P6ihmJO+;&+Cd1SyipkUQ~5_fkmIgWEk9&rZ&
zuiPR-Hz0sC;rd93G&qX1-bS6^nGN0*$-ae3DJ5)(yIxjBwQ#b<r^TE?U%jwwRExec
zEF3amV<2PVuFR9xeaPDFw4%d5jggIuzTdP35dZ#5!=Au15q$u>3QrsKJ9UQ8h*yei
zXINoPO6SXjRJaA=1fdY;eVvEkgZ=4?v(G2Q#C?yGJ%jQSUY_Fp+Gd!XZ4h`r%w<(L
zLfLS3qKf$>e4~RhVVBqtgq1dDM6_Pp>JhX!2u#2z&LS)DYWb!EI?D+x@wW(_(&M&Q
zL8M|DT5amOPXJ~oL>~2G4OAQc4FB-nv?aow82K_VKIf&r#q+2sZZd-a)nbMDY$hcB
z=j15wH`(B2?DMzq1ZBc73bRXANoRN_$o~dE+_l>i+ClVaW$)s_o5dLN5mgzuaQ~?{
z!I{{+t_+<A<2+Y@e!?q@FLZ-4k8_ir>@?3m4Jvi$i3VnGKWcb*RzK)Xo1IX{<Pi&x
z8y>rNZO)>~o5Ekj<f+1-`qnal*!YI3HeLn3J|*-i-oPI?CtReR1;L`Hp&<aqPDh2U
zRs7T7=(ud3Hb7}N{~T6xJ90Xwy_#*HW}1CArGHNyp44D+Dvdc&*7x7E8+dT|O!I}R
z^{=5#0B>$PJ@?1_=5$g2e)}9wRzg(@R64>{nm-DC<*jA7|J`_cmDQyaRvl-pUF=Yy
z){VKm@$~52RvQfSU0RF<kE|nciiF7w3Kd4H8WMsP*7!LzxLIJYEg=<t2;Emv-7q1Y
z#N9^l=FWIRssKNRUK6dV+*}i6Fb+_vE`tE@hD)|Io~7T*)x^v;pw&PL1+`PN3@|&Z
z<wLSn!s?pTUqqtSr+v^H1N`1z7WG@rH9!1|-Ls|^k>EF&F#a;z2@~2}($1?LpU*_B
zcQ~RU%OU+bdqv(?#Rt|ltb#}8-eLPa>CGFi$r4eAqu0Oh>iB&|mq#2<CXkP41Yv-;
za9%~h^NShhyk4H2e+!dA83VpOBD5%areGU)T~8#Er!l1etAxfn<-jFRl6eLtd);zn
z%Z{u3@q{TDL|s)?rIOiti^apk;}fgBBH9SE005gQzG)Qq(35($+pKZm$w0Ie+N&>p
zOdQ(`sXO$NxL(|9DpJPxrvcDGdtn>hCyI&D(YGY}xCi6}S03$sIbIru(LV@?$fP<!
zrd-_SM;2^b>O5X$b_mv!m+=1O+n-Ik`Wx!jqO64qfnKv;gcO{CSp4|;kjaCH3a(bP
zMkGU)WoXG!!93Xr8Ca&J->HMdWF#8$yE^MYhj!;B!pivWD~|xPT%dM4cW8%bt;xsC
z(98YJ08LffWH1%&XLPG{QN*D!3Z{8WWoidMO9&G3DLd_28uD)^Ei3=$@Vv(D-TV%v
zH*_PaWIJ3-ZlPoneEy0y-{sj^5?D4!E*q^CzVVT{Quk&AP0l(ZJU(T=7~Gd~8a`z}
z489dk)@m)nQDh*SjPV?it$LnzAv(cD;BT~d#k!>>0g(8xx(DBzniQ}g^CzChb@cLC
z9jNY~+-M~$4WXl{dCD)T>^kH|Y#qH<QMp!kMd|7so=I4@)>Zh4cA<h=Vsu5T2NONi
zr;cli)}`H=J081>Kg|T)i5*<y_J9~ymPhVc&}COmI|9q(BW`px@~XYHp$(junM6A{
zIf>_5yvSaOE~7<QT#yj+(KBG>42isbTaIRB-i-0%oNp+XK0*HH!L{md@x{OX-4GMv
zn5S^*noB=Mqt(wh`C@Rnjy?6mhY(Eu&WO(A#TA6j`Sb5g2%*#|DR+0ro#xHTl}|bT
zvyQ;z>@K@K*OR6fj$v<sro$11YpXwVokC5l=G3JP@X^R;1iP``1FtnVu1eNCVw2&r
zpkZWF*X5iFK5%<H&)+;$K57bn#%TWTZl5*9q37mVT?>@^SQJf=uN*=d$*<!9l8Ly)
zlcV2CrJu*SeZAT);hOGi*MMA!g5cKO5I_;T6+23#R;)qf{P&0-j_-4OCl7hL|4To^
zSgHHz16-wsYhrO)C)~jkb6{EbkC!xlW9f|vC!wo>fzsqL&(U5Ezk1{_JQ3LEM@HV)
zOuUUoM7g`#3XW?yjNBi|Rl;6LP_BXcc*7WI0&^Q&PUE(p5APWE*BM_n9DD`V{hE`k
zmA!my!Y8W2YdaGOTFA#6Fje9dLIky)k0B;rukeQ1b$T~FGOHW^Sm~?20`t|1l8sE+
zbeuCo$q_5>!1n-L%Jmf9MHb-nv7;o-*DnQP&;MxmEvC)T*#7PQ!;O0RNy)}B7@KYh
zB?V5O0+Vo1wo-D0J5&PE?xfzz;w{Hxh-B>Zc^eQ#xD8${i&K$f04ivW9BryGpPWmV
z7%(=QHTaHk!Xf+B3<)xC&th-Hf4kLkTDV<y>qM+Ph->&wD*^b-wq0o&(}~2BnGfk~
zQh+xZ%WH1*5;;|69oX6VpwsUQ$v6{~P(yw2jtzZ1siDDmK7jh&E(_cYS?L0u!z&2(
z6p=yQbV%%c&fmrSGagXmCJf9}jPeTCzvHF%#cZ$nNyV96Y$NXDY7sJr!T53EM68-?
zq-1^5%z9&6DC%!7P;?DQyR*v(5kZ1Qy_3i17Y{$TQ9peS6|@s&Nbr=A3(1tGy`qbV
z1<*)j@G`FB5Z7ZS%2NFa9g4bro4(>_v2;mZ;=dCpycwz9M1<j+KVNVC-BakK(U7>g
z=9dSt)+4fWt{vtCNX(7aqsmE64rlo&e=bc@8TyK8bo-<{uMG}nT}15@NhsiZ5de7Y
z<g4n97xJeg=j|9FR^G?j$$IotKyxJAK4q;z&~kK#3Wb8Ula+qzR3<$!!QHIExczg_
zN3z;VnkeE{<E@aoI;U?RbnD*VdGtTfy-_Q`=`}75JEb2J*3wVHtOEe@geHYX&GkDd
zHdat)<irj_@6zk%uCK?*Qjq0W5{bU;56~SO9%;}p-1rW7fCey*=?r%uKCKnetBg2F
z=3T-rLg%C$DZObkA`w=E3AuQOJ{g!N*Hu-2jd4GS%<x5%4W6XJ_CsvIsFZ1Jv)TX5
zROrr*!v#R}Qlg5_?FPuuLlkl1d8w~b6~Yy*wDi{c=NGn(d*Qdy-h;f2&XPOZy6B51
z_os{iL0YwWkk5@_81*WCsW1XX>O?G(OXUMhUAOl%<%0qtfA5Lkr5L`0;Bm;SBFy09
zzGyhGw*0#RZzQ4NKRdOUgT9*<-))urp!6?Tas6{yg}7}2#i7F(y^Ux#@|YB=R4!Wc
z)`Tr}ig}Jny%qOZ%?}hB^P7(30lm)-Fg5MP1BkQ#u;Vj=k?mf~4o~W8g=+kbcTUNp
zAvDb5_#wBZtG>MzUQCm1hUvnV=I(lTh?w1txV}@Jhv%h2Y7>EL86Nigr}=7KA;F)-
zU*iHP8puwq9N1E)F?Z`91pWmf&mbpLSdry5hf5r%IOC!+r%n^FZS%GXeE<5C=!cl{
z&i1=+egdIJH@5LPRif*+6Q<S^EhsBCd;9(#QrM(yqg{nU`!YgQ_HG&zbq1gxcld^^
zpvMI>0%V6fXfr@pZ$W^;KW__8R-!(m-r!-5-OceGf8|Bx@xMTTi)HCI1ER1#h-<v-
z@aZ8Sl&I!U+|2XpzZqXLV5{R+g2&4T%ByW836*$<N)jO&=Yr-(q|-t?HFN~vX{uo!
zC^Zp#_^m}`-k;&-{={4R!xo@~HGC#0SA?D!<7dK`W%)if5<j8eEf5B<u+lcC9b)J=
z^i!jM48~=L$oih%s$9&}<-D<RJA!8$c>5p7kc^<kkTB{!LJ8_q&OLnN?ZJESI)|Q<
z4m=yqaOInqPFH-iR;1-brWC7?y>^mCX=o+kp#fT=T0ByTX0^k#Ra9KC*XuUjV*4p0
zR3)G2LZD~!=@HNAt$dIiC-d%Xmf1fSApRe=-aDS^_x~S1!$@|Ly+uYwWF$0=tRj0I
zn}lOz^Q08LGU8;f1|dS`v5&0mjLd^0*&MPt4!`H|dc8m2e}2!~%|Fj`jmLgGuKRU8
zFI^h;vsoDXKZLL3b&OOLz<-_uMj+WPu35UDbe!S$swMeH&4l=AkHwHz-#=1sNzyt!
zUmeP3r3(2T_k5f!pK_wPQIv6mIxA;VFy9egda=iG3~N-MWqJ8`!{M!ayZRPoFoh4s
zlImwn$M<x^Z)B?23J;N;lw&0BPKf=VL5NTQcaW5f1Ie&cI&IHx69khj&o=+oUFY|I
zp+h>E%}X6dJsA*_<s=oafk=!;ZHc_~*OzAzeVLk~-XQG3AA&VUietV%l$mr)_v{z8
zdlV0lapxGrLrNot&m-u5GXi7}CtrBiGX43t$vd0g-vtc16mzIblqo>V;)D6}0iW@I
zYG8n0MbitR7&i{S-JN3mcTfi@Dpk7Aj75^Ku{umEGygjv+{GZpplJ~KTofk_9&h71
zxG4pHUE1N6O?EuEZcV$kap}L_t8I{uI>8N<pHvlR2d4iG8Fw)Vbu^%!Bq<Y4i|Kvm
zl(nG>nG0`%MMAjn{$Vtt_fF=3TdjM-VIAS--N^s0+Hm+`QqMBhDG^x*O~a5e9J@vR
z-*+utavI<szIw~4(?;K1jyV2iEU>biwVXP8@!_Lpc%l~h-+$hF^0{KM?bj1poO^`W
zOCCvI1M+KbBvaag-x0CPd7@ItyqxLEpV&%qBi^w-dQ`u8hmlz^GBs;C^vP*HIN0Z)
z*ev|A%|WAeN$9WbVeiMvy(u?|K`V#MuAbpL7KRum^rMAE$P6TlTvzONUH0yLs{Qlz
zmpAc~)@0FFZ%^`rkG|qiI3K!G-vA?Y&iWOgXf8S-#z=a`MG|k|PN)!q$e=7YCpZ&v
z%L~WWbZmea<*p*ASgSlj1mRor-vkHf(oZsj?c@LXMzKa2c3T2a(v(VXF3R`mzejrP
z7ay;L5jsK+opl?ajre3qOm2uGD|%!!<U{28$YI&#yvELCL&e?nkN|yp;J=|#RT<Yp
zE2f6hz9P&Yp7@>-RPa`x5=*~5|0?6C!BcSrdeV`cq>UjmDL>u6YQ139|HPWEyCCks
z%jbXeX!b&6#;$Tuf8cpMaP)ZoNRY%Yzfw6k%>IspXx_;c>uLI@-CwL1yYB{$;k~Ts
z`hWu9NAgB@K{l@2IB={u3Va?%Tu0>1;ZI?_KFjuN9LU3?u05SI&U}q>>Cp0oYw|C<
z)q@W^GLC*GzW~Q+Xv}zPaB6NX(W>*79lA#zI={NHWK&0)Tc2^84k~j#e~+0;D&|UN
zG->>(#}5nO_~lW*{oXHy08Dqcd!NPmG?Tk3oem8M<()tg%u+CaIt`d4oO1R#ag;O;
zztYEL#E^%)P_w%)8#ObMg(RT(E|F&#W#x~@q89I`AWnq&OV^->6+3Y`%%FsxVVCyE
z6?gfhm`#!lnxG2oCX+3`_dzytM%&=H84S%|W{Mu6YE(}d5*8VPQYlw}YN7nfo1t|m
z#R?y&FRHjA2|9tgUug)1qtYv_V0x4&LggLk4U|fiE)%O37Sj>-h{6`*KC)#aPW^S>
z8<kxp4gG`~s1k!xqKH*o&=wR&wK5%@#d%H`Cq#TFJ1C6a5an3y%JIxjK_-IooGAz9
zM6MHWV)eaL;B$51cXG8R7;3FrfJu<y($Y{HTKiJX9xMx@_GdU`0L71XgT|rWqP?Ie
zD0qzklny0aBLcmNdQ`&)g`m7^G@z}h`kGE?C+b!03UnCdS;qvU3_-oByK`YcUO$QD
z>lh<G#4@b=g%8~(dHF<L1C&esME2@(l@{BJwNAf@fqm1p>q)iQBDf(m8n5n&s%Ur!
zohv7A6of)iDAA_p474nSZsiU2;B4+(Bz~tKj;e1;gHEB0F;_3DnWz8#A9(llL9uMR
zvrio=1#^!Ho(!v1N`gtkB7grz)g2vO*_1|YU@V~}D4pilkK)Sztom*7O7Pz3puiWm
z9OR?I)4$T6w5hf~II{XuA-t@hwr6_n_HvfVx!`ljeQYz1=V)4UpH*Rm!<%s2`oTi|
ziWu_#I)T>QTLG|S^J8z6@b@w(Icnm&6;ukP*rLH+x<H1_FRetJ^hYctjn%JK6XdHA
z7s~qyS5WCK^1NN_+xM|?yR4fRkkx!!s4?tn*80)}Xd>q*I4r+Y>Z7(=6q&m*KG>ys
zzpxIZXY<TZND1sySP2ewt5pV?gYs$p0OKh^v9w9EB}ikt_EdYMQo8NDJ<w%D&&3(o
zf_OCXA<Cvr1~}<$^_WWXws`9txL+IF*kUisnyT#L_RVegeS<sK92_qamR3W(b+Y#)
z%ey(iB<NFf*2VOoxlA{=Os@xm-)4R^&4m^%FuTUk$!{-;C4SzaE;Rc3M7Dhxx*x+K
zk3Z0*XJBMp{`6q?vDmt-b>m<gac0M%aa8pz9_29uB@{v84CDrszMq0pCu#cEn3lKB
z?I&5P<*@i^$rd+#`@8jKZ>h`km$BukNiUYX{m3G#z}dbZq)B_SgK`pjE?}H>dl{sf
zt&qctIlYcI>bi6*>$c|m0W)uhZHL8}^_)&}43GZ6kF0Ms)Xz;^EBb7k)~b75Q$q$m
zyrctUU!694xw?+k)^+PN<&Ky&LJ;4K$KFV=PlN)iLe%9JSsTITPT5Kq<X2WJR{};=
ze`z*N3RZn>>ZHWXoNvJ`nM`ed8SD1A4{!N^>86O)kZli*53<l2s-snTJ7p`K*OA70
zfkc*@_G7zV6W3nDkykb%6QWfOwy`2cw!n<C$~n##vut<mZJ*kGoH*6_#mdhV?)v)r
zep`IvS$wI~&wHncNoG8shw4n?p7%t&Ch(p8P;p!RmI)<|Z-KqG%$PA|ZNtx>%h7FZ
zW&FEIw3{7WeS`Zhb)Kz)aDsN`(9OkT`O<~{_Ax?BP6&E$BHhc|s7i_a7NE}bWyHdJ
z?s#34MSP6rxY5Oz7#TAQ)o(UMSKpyF1*ICQKY8x>a2x!_(Iv}(r_IY-<B1CX7k1s`
zz+wG5b)Q>d)XWIYafQns`Ke7b(Skqe1_fHIq2_2MJxfzIqlvx8(_FF%xxW^Vg*;+X
zq{WzRTMo4uFH~EF&f*1u7D;#n(tfIbb=2O?%Eqbp2LGePV2+m8y~$ZYw|Wg#gBdY>
zimn>p)5M^#mPfygXWnWy%?(b~LoAH`srtvQB*iZ9d&;K9o90&;mfku>D=FmE7ck{M
z$9`uihFO1w5x<;1)@g|aK1%wHuw{}0tzd~1*JJMI-JMh^K+!PUXN1bmo$0L5?=#PN
z70#pSA+CF{zKRj7JAboSulI^^RgcO>DfhFwur$X(7Z;V`+1OXzTe)?w-R9()LTWRw
z7s}0ixb0m0!<^^fIOT&fZ{2iQC7EZKb5~YULvQ;WRK?$7=qZce*rK>$!Eh7YWUXXn
zLBa%8H`SAU3UIfh<9BUxuJSl*nPlqncp9tM;I#&fzO6HRYwJbGnNTBOG6h(-*I;(i
zSbhhV0p8XU-*q;J<IS3QFzc7`k)*t}R_Y!#yJbX);l;$+%NwSKe3!^m=v**p<>Ya-
z)nI)!6h<w5%na#n{YiHE^a+}G<J?xUMsQ`Qtv7I&SikV<h`E<`*F2qL#XJrCyHJ@U
z{Df;};IEDA%Io0W_LwK37v3ul-nh0=nal67P*^Qj3B{zmm+&*!F(E274b7|kpu06R
zLaPp|19^+)$ep=7a)c|rerk-&`x!FRj`TM-M9{%Y$7Yi1zS>TTEu>`SYpR7(R@kn`
z0HA<3G-Zc@CzEZ9v3)0g7f9)|F>hGjRenyWg8fDJTqwJ{+PIGrR0?(=?ympqHQLnG
zL)`P<022AjOYkAJFYj9<PaV6y-8I7Fedma8rlkn)srvM!Up<z{yS=}tRmLt*spHfe
zDaWi?n1;1wGfuB^*j(N;L|l*pAo*L_JNG_M>Nux;l`EPaY+jIuKGz5jzxpetpnlip
zp%hnis(i@+YbedyV1*m;k=yQVf9YF-QOEB;oh(RmVi40;EABe41%U^=t6GoR%L>I_
zJbM`{W@z44Wo*y$#&Mw^kbD}0cfvWD=$3A-^0Eh9{pJ>8H?&4wjP>dq2kLg!&REF_
zdccL8foYRh&ANvH=j&;6%2YNWO%OHMRgA2~TPsq$Btz7S^&qZ&n#|r`g?O~wzf2oQ
z*SPh0w;;dYl&&RR&TVBd=Zi~ka;E%<?eAOV%~`|jHq|?=1=qb<QpVcvJu~hbdYrj}
zyZT7!0w(QC`**^{7Ql*<fz?|&>}v_nQ-si_uVJsm>DqLG#RQKltCe#yChY@+qP%fk
zYBlMr=k0Z`D#NEi_jkX!3QHU?e0D!Mmbdk0$>1)W)aMxcaj|qU+|nVsp+Yo2u>5e)
z)b2c&7%5IAK8hV>%!cm4PU=uqmtaA^tz$?<Dx)V@!$||7m&I`I)sE|rlL#HPD<3v;
zl3zGKsoN3bdT{@99l4U2+<v<frDY9{iz!Zc2o)n2o6j|pI7B7~G`e%d8NX1x$ZIro
zU{rlH@_MDvBbeQv*;Vh`?(U0p*Iv!gq5bW7)J7Do#g}Z%*c>(9evK0R{PpyKF?mEB
zoRuld1YZT5g^;L@$!Uqwzy1{%t4JSTcBZDUHAiWyS^23!bM&qY(+cGIl>9>4Ar0Lj
zB*NpZ9u*%09O2&KtnRR1dXQ{NT{1fICt)(-yDxQl&qDL3g-^)+e=5;n&4iG@BPfR8
zdgt)HYh;1eV6giew6k)2GTJlz)Y&x!0LW@RU97|_7A84$URkf}3r7>J8hzw?C#MNT
z*1=<7avsU`eiom8^H(Sb@1qVU+F5z18NW^SqUm{o0Rp6Ge&=hlH983ItF&0ehq({A
zw{E$7v@)_}jip=2xz}=^scZZ!m_!4(vJ3AWR$sj)KRS3>oKZLxpo1pE0Ja^z`z9o=
zL`uM7{L=|)<T*$9jykqAAAlI)ygdIQ#g{+ljw5n?OQ|d1W9qy;?1yf3$~I4SYb)3O
zE-I-^`79p}Ra+P}x$ZgJDY=f6wq9n*xcKS=HSW7D)9LJpukg8ECdf#N<XCy%7yih$
zo97WyqZK`kOFw;n1_NM<ruA^oZ#thc)mE(QGQEdiH<u`!VaER0Yh63)XJ2!JfH!5W
z;4A&^>sTJRLd506+2DKqFG}hQCSTZ5Sa?pE+4c5AKXz^ofb;5>{q;vQ%gS3QNHDf@
zH_ulz<t=ojXX)`c71z0cY7QNG#<y!?yLTu&d0_esviHt_nqS9S*(3X2%i)X$DyB~u
znuMzC(}NzO$omC>9_8tXJ-{u3;ssI7)_IKs43Z+etw?<^q~O2Q934e6(Jrb&7SKO)
zPJa2GRJmxc2O!*6?ifo-rvw;^s0?8r>e)^nRVlgJ9UAQ#j;fAKxo(^%iKI2-DBG-i
z88ULOSYprO7hEoTd{B1tmTNEJDMPWwQ*(OS-CHS*KvLqj+Tpw^rDFHieWuBg4cg#w
z_U-i6DprsXL1d&UhLyz`?_z$x+PGEvThb3e_)9`E1Qktd?MCo>b~pQk%0fL*FjUDm
z<K+gq{fQMgM0F*+-h^wUr`yksWT*Oyx!kkU7QeUW(`b7{{;HFL%u&R`Cr=Top%-_6
z3%4$O(Kl66)-<pG#^E#_qBpHPE0Aobz;VDOkur0>0^v{5(>roa*+~94KUl=vc2vS&
zh^EB_EiWgJqX>V@_=>_}<*mt76yO*B%m~KU-e^Np&1NUuW@Y84WqiaY^ZI3b1f{ua
zsEx%@+a(<S=Y*ZzsQ7`dUrC)(bR{(wfTg<{H60=c7GKYdSXe6Arcw0*wrCb-vb1kl
zk7(uVdt2tH>Yx`8slWavGJegew-K>YDcKNLWSls7-4w-`0Hu{Du~xsrFgWNwrwkBk
zP$Y4EguQr^kQ)X-S=!}<KHK)ZIXp79tezLA;n`lVUyGZJnk~8H9a!XkaN7}>uD_u7
z{w#(m8?MAJ`N2=aIp(w0>}PC`Q)1QU=_yryC(FZ5F~o;#be!aC3BUSxa!m4)8`JsA
zWc=|pi<h7>&=v4ei{qYpJS*`!Y7JL>cu9(j^;O+s5QjgF-^{|s-yR)gr$=pIyJ4YG
zrgL-+6UK~?`**J66kP#?NW_4-nI#NvD<nN^5wiOE!49AF;`4qJSHMLoxnp4(>2Udo
zmtUy_?0cQv4qV%}$8Z??U$X~eluGfih=Y3vIksa~m{RoH=?Y>JiQ_|1A>}q<lX0Q!
zaB)aG%n7mzR_9=2UMslvuGrl$dF)5i^Lu}KLKix%@W7aEbNk$F(1bT2f>fu~gG5rC
zU>tvxcq6w*(ldPT^utc`aV!mHelM6=f!japxP-lgLWSby{65>DIoCzf$gwmUc_^ym
zytZHJ+2m@6nN`h8$)W>wCq3<R1NVl4SfG@)hjU>y@{Oj;Dx?}GYAyc(*F`;;I;5!$
z(1G|!Y+jL2byUoJ!7&>u!Qfj~LcZd8cu5k{Xg*zhRue6*(WtKfxg}*DJoUtRO29QQ
zQA#Fp!+BYS6p8K`dWDcYuvRMZM#*zaQf<LFK1%{qQdFIokqi=T)EIL#Hl2%jD{b(F
zuio~&m?c(K`N^X96`TY=06K`x-y2fubq+GD$#q=Gy6v0^0iFXz`S&(_VSJnWyi(<^
zp_?tEVpD9Sk>j~cLHGdW*}P{VK+LnC+jNNNQ%B!*EE|J&4{?!NEZ0sH+^V#euE<46
zcVnzF#wEu+wyQ^bEPt-<=Q^Go@BhHEydg<Jg9<G5fKZ9te(D)!Nf-(VJ)O54154O!
zG4nW*m*%|b@o9QU{dqjbxthafY_-%T+S=o#rIBHA9Lcfy`7_0yVM1(P_m3K?QZB&W
zAaCz~<ytde-G`$adWdI57TuISW%~4D(mDe1Vy2Wvj+<;G4kOq9-MC9x@-2x7AW9?d
zv8`;NB6#y3MLTW_olUX!VBrXcAlo!WTz8KM5<uE{_&p|(Q|6XM(VizLD>5<ISxWQ0
z(^P41(&yS4A%noXz=)vSr_j&8h1|I4j%8iVf9%m;G7ED-^EQyCc^sWNI~1jE=>kn)
zu%w&KlVSR-CTsJBG=EgoP5{v%LJ1>-vBCh0!;4mPcMy8A4<3*t@V%G~vT&v88ta-+
z)3IdKD~4FV!jbO_PND;MNwQ{)$1j23`!gQ@%%v05`q`(3ZT-puoeK{MYeq9}mcR<b
z?omygwc{@D2-BR26M|%ani79G@*2S(N(_kdC<N}&lU57&?$v&>fbNSTgpd>x&$KLA
zVwc5vXSlAS8Q0j`BtRYqol=)W`QA^3xcIOMs=lkt#xI|BvyXfj`|g@uSS6-Ed~VsS
z)ROepS5%&sEOti>4pDtRRs8DBNO<PE%5oU~Ojc!guYkA_g?NjO#SuFaxPc^d|E+(#
zrH*X&4?D!zpNdpMSkKXjw$z-#Me1p>d@^4e;(eFxe?P*#?`iDJ3#|4y8;HM6<k^E%
zJ!l<NZ&pn_cRM!^3Ec#ac28T#Cwa)Zp_h{LiIC*3g+eqg)Xcp$t$&XDJa&m7MC#no
z)%U~f^-sB5fPlq$c*paYL${Lex#^@p0eTM<)F#0xBtR%rPxnXxNmqJ~)%<x?B+g3y
z<nsE9^}}e2V)*BG?=4A<my-%9!*};xKMNUn$lq!CvbSvC^Uw5pI!WtM8h^op7s!^(
zzEY~}mvhK(oi)_r3&*Ko3p+Mor{vm#D4<JdRJrjO@gIoj{)UrU=y%e(+L?_-lb6Bq
zT{9&4gBV;iSi1}{<y8F{mOm^L%?mA;)LXHs;~}G?v?2pxKiEyJSs!W1Bd@^!#=@st
zy$@wGf$zQ5Hq1X>KO3a11r$E<D{Rqnz1v1{H`E?r`V=&VPYw<cbszlN_jGrjj|+d9
z)bz4%3*sETU$-2LW|M<tw4>{kj_*r?s2!Uu!*xj&lfAf=Meks4rMRj7N)1D<li89P
zXQ{r`_g!gu-HE9q{c1@Eqm|PSCUntI3OGmE3J;8~EjQyZ#E3`+Vk9lTGaKE&JTN>7
zBSfCae2iQtjj2&B>jcJ)4Ord5e8=o>p_JrAU5Z>3DChVtliG@;1*8XmGZJQ?KB!h2
zFGw#wb*HPIw%0X9TEKMK-O&`r`QlBJvcYWQP7+p|Jw)f-ambo`NWo<CHL+c$*q{(a
zzPyv_MvJI)-s{h`h+AUT0H97k$+gm5d_r%DQ~jE`e&vk!>jLG@<wFb-+s{ztD;G(4
zXZ&>apZG_zmAaQpBN;z`eybfTz>HVN+|!@E_|#wFF;{OkH#T?BvR8jzwPst`XyOL;
z%4*|?WPF*3F@`9kxJwTyL<)3ew~)76x9fPZ!$$W?r;>ved4asfpE(6}M`b_%6qBab
z_cEr1dZ(CIQ9LiIrv227RBbKWt}a>XohD_1Qv317u~xz72$)<HV*L%~L204JD?PiG
z>#Rx_nRMUxako$TEq>NZ+8d;Y`Kl3ccn|6};oNLdQ0M=L$R<|BYq`mR$F5vK#ajcx
zhaQ&L)8ULclH=yAJ>N&woLbCzqv5{SEh^|jONFJd9y1W{=_R5HsGuLZtId>td{5b^
zo1y62pR(KUU4r@9_3-l#jHe(3$C5EmFC%CSD=EwUJ)gY{lHd=~P)t}Tfm!`9XktvE
zSbNz$uR<q3c>L``#UT@jSkK1+dfoeEF8s(C>&6B$H&R~ENKPs8xhCuIOY)gRN_tbn
z&)}OR!OTlhv|OR#p<tpUNSA)Xw3e<>1hbk%&3l`S+!1_jBUp#8^?OOMEHcB{BN$65
z{D7(pDR17)FkiqmzOkO87?6W$g?o3}XDeJvejt?ToA;|EPql_#1b7l2h~sJGaSh{v
zqn6SD$`i7u6jtQLuvZtysxwA2zdlAKU7DPUCBvwDdb>5gAxz_;Dr&Pks_-yVwCi*<
zhXzp|C%$EUs#|!WT&!tXHFrmFlLKdfR$Y*U1H#*sT;zLXeUQfW)ljt)O8CDj-j2Mp
zdJ#C~e$JK!j9)qmtLr_w%`6Jkf!yz81>xCl6>^1BJ&|sH^7Oz>+n(IUOXfDi1^qYD
z2AEJTyFRjQh@8b6s=bc1sc(CiqsIp*sKsF_;CJN%fa9Eyjb&PS2(SC|5dp82yrceE
zOfphFWW2zh{{+=<g|6raUpFqP&X6^l<HjK92%raN7IquMiQ~i}EYxD3&e!9g=B8Ct
zq@4KX&>e^s&y4GCW~;)obBMPV!qEyVKQinb5Bk4hmZz5PHW|e-;uF2tH?QDT`;<KO
zOrIQA8DWRM`jmz!A{{;a9)cESzxd0GlU3EMz4)_R1#0RXZQ-%kNJN3*c{HeNjSXo4
z{_2)J?*KwZ?)W-V6$D-E^i5o)eK{iN?bbM}n}`ZOqrdSDEZsWU$(#6RuSr1<r}mV-
zg}eohRh|&J1&*?J+v~-f8ZPL~`R)`|cZSW|;I7fei_p`UQ03pFL)n+Cc_90<zXJe>
z+F`93mNTAjlgr|keD*nsu@h#{M*#@S#gpq2)a?yVRc-4sMlI>4);*jq%{^ZSS{--`
zwmRb4Lacc@VkY|c?qm0BS;qtldF~=_ALZ2orbJ`lJX(HEe<UL&=qq2g8^+i(V2-I_
zSdx?%nzj4Qrc)|y*jTBz)xySGMz4Qg_|-6`2>vuaZdhq#m(O2um1_fV&LYQny%T$J
z>HFjBa7uhs0Jez=8^ck-{(JDyt<@p^;D*#i*6hktKJ@Ta4~RPKw3WQ?YALh)lcR|Y
zxu?3RVwt{y%$wOK*h?&n<`LAjFSN4te>}w*Sz!BNtH+*VA*bHzx%=(UlJ)%vlkrsO
z$Je?&KaFLBhr{b758O5YnDI{)_u%)EPEZerT{{`~*q$|c8sES~4G{xf5!@x5I_Bg=
zhI7B;6qc&WPhxEOx+*J0=iR9?o!e5ftMa4Qtg|z-w_TzZ)8CNRRyjAH^WN`zMJD(A
zf=fz>R4|zWtUIfs?WZ>6QuH{7YjXrtNQ3d~1H<BN<!iL^fk42GQu)*Y+%n@3;Wum)
z_xu|q`B80n5zmeTC(CH}v&fR{e>e=YN~W^^6lldoTSrhQE%x!5F0bN?@jKN5%dUr)
z4i_7>e>e7zqvO{+4vsFPISJO^=Q}*sbr=2Q+9<G1diz#}OaEwT`4{gPu+2M@Hm?fM
z!vvXSd;hc^;E%Cpl*E3wDb%n0<Ngt;IDl1DxeKt%#>>{dIE0PKY{hm~$yriF*o1wn
zyvN^LQ6)P+URP2_E<fv_UgrIlXRTZK!C2(ZkF`6^zXc^MyZO+vq8{_(P9foTLoQbB
z^TYcuSMjm<J&@QSypreb?XVt=y&YoUkwsks6&g5&ChIOJp%Fw&G?hUzZm@IBd7I^(
z;Wz01_&cFxph}+tdsYbbm&#n*-)OEw5dR6_l+Zm@=sl07{I@n}SZ&ysyJq{xQA!=L
z#>P7IoVJO2&qdt)+;axks|@7ZERg3*QrhU3Z}(HA?bN&TkqQz~1a=8xmkj0-aP3o;
zDkV0{Tl?r$F=z9y*uK>1r1Uopg=Gexb}Co#+S0^z4MU@G)2H%;AT4M%g+zNy!YQvi
z|Kx3qnZ=Fw>a_!Lp<l<s2>nWmz6zU+P4$cilz5jRB<{+DQ0H%VTqZx^3@!?pW^Un2
z`2%DN@^QY~HSf$r)dVt>W&<Uz;l2I4zLFr5_QLYsj{h{N9NY+>;-WDj+{N)p;YThj
zmrdQHun8%Wk*Z_bx*)x6mRmao?;vc+f}fyGbS5($yIAY?nc)j|LT1Re;=JM@l!x>C
z=QHd~!rhi#e>7IFiH%MfwvmkGL@yT&IpjbGA6EZ9=}v*%B)bVjr{`3Ci}K!6YST?S
zvc@cvtCWXHqm9qE&z>x)l4XF`7o)K&00kW;CP}qnN$lUHWYG$`Cu(og8d0WJrcR7|
zwZxZtqwd0QrHOOWBoCpVHYbP*{hn?tr)ilO^CgT8_Y}>`YrZPE=4STc7Sh^iwL7>5
zy&6WnJq(<VC(q=qrb?!TJn#JO@xOgM(<|3^LmH3S57kS7RvyBYm)m)OieBd5MKbvU
z7c&n_zk-WHGqE`(x#7QOST)MgjQgt1Z7IS#o54gi&~)xl;Ih~o{t1F@-#oOgHlYos
zNuFB_Kxn+4h=X*18}y;Cx+RClN$v{V>v9To9H^%oMmyB8OPDPt8KBDd0=`t=Ai2U|
zUr(wCjG$g^tJj{wHui&6+um4zR>eeyy2oi^uezC<6TrqEIZl6SJmyQ)R2aHFwBtN)
zAr?jm4?%uPqvvPRC?TJYOE;0(XANWfL%%6OZbe4d<}f_=YgFCyTg%MRE}+O|(Y=di
z#Qh2lVcl#x$&iF}m+!5AU6n|*J(`RcM$+@@!a||Zmr-qk7>CP;^cK?xPmK@ld<B^F
zieYr{zP;7e+VSMj!m)SPUS_<|;_#L@bgJ!j^aP?^!>Ew~K%ngfB)wEw<RYjT#`uI3
zd6<GAO1FL3p(-`kRLK#D39L?&G6W?dx`=ksIv}*rKMzoqqGYNyPt~~5$UaRIPA%1^
z;CMO2qwI&U=V2A~IC=8koE3su;tKIepGpbT+w&86r!nrH#m~blTY1KZo_$AmEZW}$
z5d+V&$Z(#kIGCUF49E2!>J^J2p&P;anCkHCBfTm$9N9$2l^|fXRx1}wwym&ivXkfC
zRHvyhLPJV<=oK#29W<kV0|#+w6kJ27_9mD3c%I6K94ZE0Le6mQSBMhLI#6h1{gI&n
zoHa=Py)FT<%;<oNYc{DmAL!Ai?=R`wfib$d$|<n=4XNxfjs7NXx&?i@BM$TCmg4SK
zLL}Sv!~q&rH+6G_ls{INkWV(psNf%{y%BWx@q$Y{+p$9L@HRn<FU!c=75AcXtFO_W
zH{+Vy=8S%q>HML{0wT3!LR6&4_p9u{4^)i9A7PA<%Qiw#4y3ngA0_t&?#3Mp?Y~qO
zfr<Nbzrm9&jU9V6Q$Zwt$H3x(arBf8lk5q2<ltYWJ8es2&B>ek6&LKW_62#6j^ESw
z{Ha;cO|%C=jKrntz_dbPV*v@^;q^mr>iP3Xy^s1k;s?N0_arP!IQ@HJQT{<{uyCrm
zkI@dR1)qUW>hgwYEq?xxp6k?MFQ&?Bz+2_r$K4~wPpR6!*S9qHZByQ)F7LnU0MLUU
zNId%}y`T$mT~BV0<FPL0xeFRT{QrN4H?u{VSlj%EZoeyKsXJ?-?kGo6HT?P6+A0LY
zTsL^>Y4ukId-`INh3D%KIg&!kssn{d;^)_=1CMW<Vw2w>Yf^6LpMeyS>z{$`s*QXm
zL$LCT+L8Hnnq(>$cV}g@D5kqC30yF1lAi_td-jn=An?_T&QP;M24MAC=65u!nIHmT
z{jfq$0W62->)oK=Jf@4J)D{my!KSj^&C&Z}U}E!oQ~fwTV2)8rZ&!bYWF?@Td>lr7
zb_bD)3v2XwL|_fWH%ZxQPC_a|^p4LZF9G82zab=NDM)ekg$KPgulnjf@xH3lfG6?|
zF@q(&V|L*L+Vdo(JhwVX^k2>%%(F6{(73l_Pw_clUt+RuiCA%2(cFxtu3zl)5ht~2
z=yJ?M1(1CQD|=s;kyz7Z`#Wc=Iz|9Ql&os>OP`YUk=vrF9;-rwxfK`{F6Kk~$VQU$
z8!oy>5ZEnnAr~G<3Xp`z=cwj5u0po(qbKl}0O-Hu*suS?6<WkVIKYAgS<Ih6cUkdf
zU&3C5F{3ZaNzQt;`q@7Ss3V26GMQAR3n@5bvoIknFAWAD!4oy}{*XO}WOoWg*#8^M
z57SVs-A+DPPL2s@ULvhbe(3gS_lr-eW9-2tD#*gh9;Lye@pQzt*6zY5k_MwR+IEt|
z2sKw;l8)MFSW79FJ8w{W`#LK3fXO;COlPC|Bg@g*@|s`Ycm6zDJq-91P7kpQ=d)B;
zU{ZGWu%VAVJKU6z(nKlPahOP!Gjh8$-Mo_HgAH@f-}IKwRG(|j1`XIpBn2_Xmt9fE
zgq+1Un#D_`7b;@cm0ca!9`j_ewe?+-T4ugmM`d8ZKKn0(K)eHDcXjaY&OZjg1vI@$
zTzV^T25lW(RT6ML48;wZawI!kD&ZoZeb`jSy-;)&_@B{~fM*>jEJ}&@EpDWaY6XXq
zre8*dma^mwGL6W?`@`8b)X~CxwKvN>L`i0!P-L@7Qap%Tl<Diq9%)*K!pJ8{m5eX{
z*P(Kwq&rgNMR8x!0dST7xyR94!_k!KGYJ8R(l~uY+Rv_E?@v6acUk?BQ^;oYzOnAr
zv&J*j(C17CgyyWbY;EqzRWqZGF-W~9-yf3*VqBI7W92EO6kOh`kyCNfj}JgJJUj#7
z-c9}b1g>(7(=aN~=Fw}Dh1{Lu*5w@Tz%)<TRpfFv(o}NS;LJaA>PcfTO5jv3`G0O*
zq)>R>gUl};K3kfOlMl&s`-(_GqYig}AqQ%UGKC#3^%@}FHJ#yJ_l{yfjD`iiI1Ah8
zfEHZHJ}q`1`M2XZo2ea7(k-d0<-LD$P@Qz>NWG*QJAM-W3VO#E&?P@31+b$K`nk}D
ziM6z6%*Yf^aP+V?mC;&R(`olUrB^zKHvcam<XDUBp4;y@RxCWTaSOa8G$xZ%DYy0C
z&AT${&rV6}EmDCOOVh1qz(p4#c18ubBDnuojLJFiLv^4CX<Gh4jt2l2GP`FFl}v#N
zzwG|+-UykDayjQT{ea8Qq@)m20_XbINc-F@Q>wrA9y_EZ9a!U6gUD^DM2Of+?T9{M
zgJ1N@AieP)dnPH@Lcu8e!jk)iPM*V5=+$mTUZu>Qf2@|?lQbKpQ34_nXMnAxAx0ZV
zgJ6FMjJ~wHLH*-QNTEYAZx;CcJ$UbR5dIOom%O-^&5Tq(JhPg6IWypKvxbCrNF1z1
zY>FhG_{<lX@uqZ1w|)(PUa{bbMvIgalWvT?)0IhyNOKA*Og>|hzadvL7g&DHicg%M
z#kgXYF^p&`^S|9Z&`|v7A~3hrtB0R*Cz;+3%l1C`Ak%xf?@99vy4_E!wI(;3=6R(~
zdhZZ8E#5A@JcGT!c3)1eeJ2`V+%X22_*+Mm7U%aL&Sr-aPm#@g>f!2PZ4Hw;B>GPH
zQ?J)%Qiel%;!U3^9!|D&nx-DV(^Wf@;Zg21`z&`eK)$bZw9`rg8&eTMd~xta$eXZl
z%1@2KM)pqjVQXOoq7>ph{_9;#@vCu<MNTh`kuo9ev(4rB&;k->i+hZdye06K%uMNU
zr<D+VcrSdthUt^U*1Y0>!wAa)s)!2faahbL*=NV9^bDVCf1e;e&NzN>cK{9vXOI{F
zAfby9$pbHHo7Yn1&KJAOQ8VaP@n<+sc;!o1!OU7Ws%u1m#8jx5Qf73>x!)oa<k*&s
zFhbbhiiQE!MzTe>tA77M$)X>?VDUi5>L^LlyTqwdGID-cJy?;Qq_br@xORULg%$$O
ziVeO2;dl?&81_k{%Jz)^J9W8S4SHXHR=tn-rVKVBSEPxUjef1A2dATyfV2;7zb;QA
zcp-I(cN>GPb^pT=&w|P|)iEB{`J{Enu_MWIpB<_u)h#Acp31o*@8^e+aFw-(mpa^b
z2TiMdHL-g>bazC)UP9c>Rr&@nUD@3~PEd97=)F3z`hci<u}#<Nh-@>MexiXT<u!GV
zQ`7fjb6hZjZ&Mu4<0HE%)<lfut|0kO8PoYZr=%B@yjc-7LuH?POh-ab+Zg?K-}eMQ
zfclY`-A?K&tDJ@G6<5*7Yp#61eb4r)U~*`$yR>2b6pgE6t4`S<K<p_aQxM84CO4rv
zrbDxh4Nqo@mWx*D30%!JUfEDI`@OxZm>Zh#u%J_GV|U)kYlR151QiHdM53x2X*eUa
zyuIE2#e2t7SxZe1Cu?|$vE)7eO<563TYHi9!H|cm#v>R9_LroyLLn0Zo=RPGHct?W
z;<DPB&1fm0EmR0$+bY!-!D&UUuIgVfl{*;HtDm?i0|Ac-o%aXx!JT_uMgJ-EhPw~p
zdBzcge7JF+h8PGU&I$RQ<tvHQAV_JR^*C9OD%4QjsS2zTet+KUNGUpA_q|^eL^82K
zrtaUqGxpCl;{};MCTXy4eSDe7Y6Rro$r7@Up<+vWaE(vD*G6kj&Tks?AU&F6^9j<M
z6(7g(){OQzF*Kw7ZcfRSUBEsuquz&k^G?=L3`Q0qi9L7hi7Cd|U3Mk~Z+oW%<ys;%
zCH1+K5_q-1daSd&&6Bvrb&}<Yq*F>()<tNxt9|5r`<zj;B~J%)$F&CFFuC|zDm^To
zuijqVT;~VtWLNW>xvJX1kp6@&GdfS{8hXNfL)h!YrFTF2azHUO-V9hy$9zIt{4LPk
zJL7$ihHOZtu=zq1cv9n<Yc{s}Jnb2}^@Hx?mw%*%>@OzKQ!>cEii3WN=A&49HQ&M~
z-nyk|XW|M=2nWAF%Xi!>_L))oMthKMt-@Ov3X!6g=lShup%&EybvkrA1d+$^8TiK0
z90)wN?-k^@dYVclT~tW^J30F7=e`Z*CL+dTl^)adtQ7E_+{LIOQ{_h>s-KAsE>)M_
z4@mYyPX0^=ksnYzoU10s6kukECwlO_a$;rj7fJQm1t1?A(LL-*T^c0pmKm)z*U(;F
z4Fab@IDHN28Sigy&vKLiYnQfTu4KakVVz%pa!E0jIQYx189xhdQ?L>R>jTLcwx1P#
zm|frN=$Ygw;)$}E4j<<trjRz^3Q~e3zQMm=6nGwH=4ui%J1N(8p8qLbLIl}x+FOx=
zuo8fyB{lvnWx}y)kRP|BlPS;1X^5(m<An<slHNidn7kxo;AfYm?xy*z&wTtP(Ynyc
zZOV^Nu=&fg3DGh(GqcJOBiG8kRsCHt^yAjlTX#NEy!%CVF1-l)JwaJ!5!<Ai<>Zx>
znjz!8(4(>)YB_4rAEMgd(EG=tv(pK`T@xS+Xezw=(HxJKX85fE@HAX;7%hH3-<Xri
zPq#c!e3@_~M)qxn{7c!Zz2CX_ty4oRX^*q97C-mH(;Jjk&!c1Tw}-sTO5%2}Eo^J{
zC*REPXlUwbJfS!soL|)_^E~DA1K2nHFol|c#3^mP^#1WZ97oQ#pL#S~X4C3{V{XaI
zK+f$y)$mBT-s6-Fr5x4ldZx0H+#Jf)z2nDE8dMhp7gltXOG*N*I_|oc`k{mT3j{R>
z(eGrFyKNlObcIeG6(0M`SY{YYB)gNVZ3A~MYYvjhUAJixER~F3j0%psu+F#XbLCMq
zmGt*L{qHLbCUg(A6@)Q;=W=u6Lp+{Lc>@~9&K2}XU!&<1%hLo|jYCV^!@-Jvs!|>o
z<aX8hx!~j-;>@ock#vso(2n?avVN$Ff`+TE#)}ez@Dg}=Sr8$CBK-7Qa_DG$J1;=P
znKU&SDQjiQPy0UG=z~YNkKbO6DIsEq5F93Jx!a2g9<*GH$>B)t7wpaPWc<0!08E7!
z&u44M%Wb6ZD!torQe``MoVanipCb}MmvihC2-#eCnyLCB<9D5F%<gf<YHFe6ZhhlQ
z02h5tGu?mkIAG#k*sAW>+p$u?S$$zZZula;EZc*E$~V+-=KmnAITY}i`JZDbubS2Q
zw-~&B{O3D?SC*ZbG-R}ofhbvu13{NA`Y^ll)x#X8Ye^dN>NhDZs4b@Lism#8LW%^Y
z9D-SvUrk(CrkfjeoU`u1wQ^WfaO%|FJ+jQHs}XSdl2{nlw4OV|IT+LALB`#8v@SRm
zKUJxDP$o*8xy8OYmAYH^M%I-wha*x?K$)csC7U0t>>_$e<Hg?>H9(R)bf&v;QR8TF
zr*F-)61<ZFew-n@FtO`&M6($($V)uIV7Xn378fo0EgA~;cYn={{w-zw2lYB~Yjdz8
zy!XZNWzB>fD@$q0JI2L7@@xoSk>dk7N{F(c?veeai@crWSn6sT;tjCXiounK(f1#G
zd)wZX@PiRUX^Wc?0FI+Em1M=2XBQ!w8rxOLyj0=8tJXg))MLyw0hiKr*@FY#W!)M6
zWr_XbXTI}>082w&@bcEg+7VlA-p<mXX6@ZT_GR6<@WA`N4JlpO3CCVMM6-h6S9A2`
z1nO}V`?qvgF)Sg(x8a3Pxu>33xof}03EZ-~Ukp1*^OT<!a5SD&ZajA&>JseBGC$g~
zShlEcWMT&ZeY-us(gUrni6LC{Z<_mNt=_1Yl>~BPt{ly3CJ5@#<R*F5_M<PDX(8J_
zZUt?jlN!8|tbC<fQ%&bh(VNXSW<`RU`b}*YCSB|)GdZ=x{oa*jwgyelwz{+M3trZU
zS{wTLqc4^M@TDPq6w_L2Y~Iryv>ZGoyO~&bYBwm$38=IGIi^~^jdIIzQ3#~4u9MS0
zKDV?atvAZiR-7`WJvfDh4^+w=(HmwNcUfm`_^Br@X6C4(P#Sa5ar0TsnoZSNwfHGR
zhn`|pLKbxMg9&v`UA5DrLxzEpw+jIqIx1CW8~rsvR!yM6#%f_x$()V!1?YabKfEFP
zNDNeIGc&L3;+JuWgu##4$+9dL_=n@qY*7Mxj>ZXs1()ctEi#e4^EIp~dVeyZzAOR&
z&jYNkfO&%M18KfNO*rkc#1f3tgytz#-8k0EbBS|#gHI;TCppOaAIvGG#jV=91LmAa
zKV3jThj^@pa4Qb6!%rA9JiBu3$&RtdhH_ojZnU(~gsJ6fN=rl11FJji5a6w>Wp5@X
z32Wj3Jt>U!jI=BMKmE|5J$l-2+D086=VaXn^;2MF%t`-E>{*XN>AJ6pC-22N-xi-c
zEw$&lyrKJPCqu%T39`0*1gk5+H1g5004*nHm_AO6s^}x+9j_x_qY1)H;#wdwEGAPY
z`m^5Fu6$*03#Q4@I$Sn+PZV)oDpNLD9<x6FjIWYXs_uEGLE+78tkz8N)F1D#AhDaO
z`45_C$9MfjH^e31F4#tX(7UdTbzQ!}x-Xeu&-YnhWjF9Y^RluA0xBD0Bij(C?Jjab
zi(>5ms3Zt#vUB&&+x{5rd}ozZ=O<(Fa8_X0#;Rs5ydXi)Wk+ef?dIE7S!E3vW&7ZC
zKqU$jU^%b<CmupC{)BdJJ{qG@YjC)lBi%CR-5;7}nfxed@3m!46U3h}(feIfadM+&
z&2VAwK3<eq+zsAkR5ZA8JtrJLW53Gr0F-n{nQQK2S%a`RL$oz$9wh7NUoA|Vw(4lH
zl?`tFWcC~Y#T%2)x^xM-@l>xQ_kN9>Jbr3pn-UV~kjRA`R=!(y6SSV&7yGE&7|`sz
zYSR~)%xrN>f;K|Sd|wtjWJ4$*F)`SN_cr|!3*Q!i3xmVG<ySf=Il@`s8~rPBixa2Z
z2M!~PlNir;GERayia)IHr;XNW3HFxIBAH9Ajk0L!*$y_WMye_N!*&{$STyOWUdkd*
zt-2z;_Iw18^e%5t&2tVLJ4cSd(>-NJTUHC);vi!)_M?*V?(TH&;C+@#4MAV_{|#us
z;x0K609`!3Z+2SasKr0<ZAT`wN0``>svDSsnZoGoWUX0)Itj7}xO0dbI=Cp_#N{h@
zTjBa>{&#f^>ciu8KTH6T=v)rQ`zZfqCl|tQ9-8m_GL^XS9TEL$Z;k^NTlODHm5EAw
zDhi=J{)`Qjfv0Q-cE#M`r*~@wfTR8&#NQtxvpB9w!1@Ger}u6mwp+$;Cce|y_MAB%
z%uDDZkZm4{68nT`agCP=E6cX;8@lRWxS&V3s1eG`+3RrSEah_+YPB!w7ui=26-Q-^
zJyt?OcK4s%6j$?#41#YinjS9PX7`rc^u~3rfqQl1YezB&re)1ab-KY|0Ay{>WYKiq
z%USRAuHx>+E*`4sb6WE2Q<7lhZn=6FeT$?`=5wCvaHp4;$a7dt_P4<qKj`0FwkrRs
z;aa?FLR$r|f4x)MxdD%h{~Q{?dO$xo)yGrt(}|;$)n9QLzoT9r8V5CoZ;<J(4=mos
zIpfm7vqpPG>->XL13*Jfy6lJ_vx~NeJQy-mp%P#wgXd&dS-_4Z%;!)!bv@R1(tbOj
zX%@|HX!`k9C!Ap4VB9cHVN78U7A0<nfHlhE|Ep2nD|*(_-CQ3`d_&|5RMn}bQV=vg
zr5<FNxFya{{BdX6E=Os?X)lHT{ma=yx1=1;CqT<9+8I8gj<UgL?bK^Qdu!(vqc6J@
z{R1sN;9eG{4F4WE`&<dP6$dZrXAhxHIw4GlND@RNSnLzyng<!XXB$I_N28Gpp=1np
z!K2t3?<P5Y*LXq0YVfriUxWze8Cdx#*7ehYKBEuU5s^uky{fGjX^1xNrC(BZGPnvj
zKBUW<p{<XT)zd%0gbN{{%O3r@f<&F(4=J{4U?6)grfaKLs(cf=I77ukhOnv8DY$d8
zCyA$4iq%wQejxnRTy@7aQ4mzpfX#d8e$)FPvosH<(dq#L-Tuy;!X_n!uqUxY1AZzW
zkN26e{Lt%;3mn9%tmp7NLWjw+0P$egTGzhB$)PxHYhRk>@Ou!wma^TTJZ)?!|GeI#
zX{xV@)5)OEgLR+m&oF{t;BeDz_JflWXzZl*qQhvlf#O)!C{_In+0K&yR%EiE=E{fb
z&_40eH*U+<P2a6sQ2w6i3ecLX_o`Q(mWz1vjzsDsCy>-ET?8%wm|c}ts&mi(Mr;`0
zjp8$T1J1)Lzb<%%E5%T*c}x7Nw#%c#uU7henKY0ZxB(NrHi=i+4}u}`%gI3+-ud*^
zfqr^1V^AxQ!cWEpxfXP8w<4G+@1&$ptwsF#+(59rPW3&bf>S`d&Mx0rl*GuVP6Q=Z
zy=%05HG>_P<jJ&bQX~VFrpex7#uQcKbIp=+DA~%Wk=gwfweK2upyls7)!PB`^&W(u
zMUTMl32J$>G-#f?X-XlAn~U#;Ff^}9Q23&aF20%cS4BiPritb^JJ_r}++~}0E!&X$
z1$Ftmklg$8a^GJ0TmzTVBw4n~yye70{R04_Y1nb?gE}>w`8#^KUIP23%HRuaN?Um;
z`U9v-VCp{HHO#U`P6yK+22f-{bjd{5dcgi^KWx2=2kGuPyFEuf!Jnjcg|yULw1w4?
zgiGbb3*B!CcP-y440PG&c}!OYKW2VNHmwx)404>b6XYVOBQ}&Y1w_lDRhR$;!O;_4
zgdvYz)-}v^QfQZ+xr!k={h?Fqoi@->CQo@cg*}T0)s^8sckh1wHZ9`|&LZdnUK)!b
zR;&dI&tro0gdrZCU4CyV#x`J%5FlAOh<>vg(*if?zA2iQpcsJ<-#e}adkyyzLHYiD
zWa8zwhp;JrlsE;f6F9XLube_MPJ8|*-jZ-KY#rUu5e-9O#o<HWbzWlJL{iZS&88ee
z6<3Mj&@gBiUVRar4M%`QrJBZ5kqvixx15c?uqhZmSM+f5#o;9QgP@K-oC@8fP&fT>
zK7dzQkQw)&t9eg?@!+BhhN#DCf+5aO{4^%Tzo5ZRpV#ZlyJerkO~-rlY{mmktUdr<
zUhed-pnfESVH&*U`;sTsGCO}Om_q8h7*O{heRq8KCEO$uWQt;~(STQ5ului!iLaiS
z?xn=Z)=CD^;4*27DB*ecGnYt^<)anEsZ_=-dV9?WeW@5vwWR03+yFZRvWO3g#x73%
zzPtJoxU9#T!rq;aFclS?JSD;TUr2(E0YElX(=7801E!zlub?nhD(w@>Vb3%`9o#bG
z;Qce$`7_DNi1VC{yKf0oLb~X_N6)+meKk$nd6E=d#92W-RgXUled!dw!)p+>v42g?
zxHR;A-Fqu5^=v>5rv=XdOF9?MvHgo(8{OQ`9ri!B^^woZ%{rnH>WNS<=)V6XgE+}*
z6WSv{)ifnrHqmI~|32kI`Wv0-O4@OvEKj9K#zk|$@50b<Ngd(`;bFzqgFWVMfgTy_
z_D)aLGNsP?awZMbRsv^*jQrP7U3sCvJ`cPf+L5r}45)4j-x5QHj4Wv4URkvtY_HWi
zLROcyZV&Pv&4yG2aUdm^YY7jY34re3S1AX{OI~f;TMK21Fz}`=thcV)d5BOmi|xlG
zL{b1TBw}UdXasSM9R7wzp(@L|``NH;==pJ?JfuyOm<Q1++qwnEmk0v1Sv=HO%KFN#
z;8S=oYKPFsO-~A^Ow+^3x5nfPZ=TCWOV$DBr9|qQz8&4pe;H8I_4S=!hZZ=)V1&%u
zFeQu`PN7R_qOOSY5~MJ2nZVZ-e)tS-p{^vA?js)p3w|Rz->Wjdjnahw_2^mA3crL)
zh4z63wrqQw#SJ!KV%hoz+j}4Vnv4`(Fy4cM%KZcfox-H%G_T(cU&j2!ln|Eo=Zn^T
z5Zk;(b1v^wWmD)j^KuI8B;f8)$9V3(8}w+{7259^U~juIV|Km_qhk3AhnKhZ!-6EU
z)o5zK6P5o9o3v_}hHhP)G(sz8z1q>u)eW$IbHPO_gxlrh;O-Sl9B_{F{?Q{R&~E->
zgAq^6V)t7P_w(kvV}+)QAe*w{=GHZ*s{N3x<lPy%NqM?o5B@W;o-l&*wM?(R0SUji
zC;GP%^yuA;|96%^P_tmcqUNiG_NByb&#Mul0prz~77~$@?|<nrJRtdB+Rt`#OasK?
zPFi;eJCc5LeQi8XV+h;BnVL(of1$5B4BpH335oMwA}rv4#_pWS+PNuZ2zE>ms`z^m
zshYC0`D@;kXbqMG)v!ev7bY0Thx;Y)ja0b|*i8hVGZ^$jvq%K<UM*2z_>QgMRN}2E
zIAZ1VLwtb(XAaIT3Edxs0^t7$TcfaogIK{2I^=bv!e-EWsspy=4_{+i8udwO>%(wD
zVMX$rOzN)rKYqyO*e;@ECdJ>SqB4%p9;|=JACUByB4Y)^tMbxjozkV~us_^bmLBB7
zCp+%$!~N*GS3siG5(|Z(Z@PDXW(A>30gLE{9MtQ>sdc~agd1Pv&N4ZbZ9N%ySs`V{
z`KK$nI*jOZ3S48bdIakTC~euUH5KMD;lig8mjUfJplEb^uUi;|M8Cp@7koyMvbkW`
zt9UC6uVUuTtzomT{8Ln?pFWtzf|TWtSV+98@(NfH!Q>Q`F(&Pm#q$9RFnse_-Vl@y
z^+oRsk4?{;;)<HBqQDMIzP|)X39&7)Ci41cluIVfUv!cF^H$jqlJHv(sL;j<5CUu{
z(1j_|<tq5@Q)^!`3{~DWReJoPh;xY>xp6tO=N%L8#WG(%LsgT1b(Zw^5>hWr6&|XU
zRuTeGZ(6+c^?<8TTzuu>LK@=s;F*k*xoCU3L`kK{ua0xuUd%(CV8GMVcdY+|q#UC+
zq0KP4J2{SNGbKE`TXTh^=(#VNrLK=^te!|FqwdespSD#p1QG-h5<t*w(rt_PB*DbE
z%sE5`!7S9-p8^*S#BgNq9|O6>Q^!$b8sZ>HGoWV2ystc|r%qDU4>jr{|Bag7s+ND-
z*xw~Pt&$>kR=a$A3M$7MT2F?iRJd?(W0P{Q;#wjWWtkosXhWi3-5D&Vy5`SHkR&@w
zL3uE@9&x@GDa2Cpe0|rb2ewHN%K3W%2^jl^hykTvU+tNfuWH^c=Ol6Q`PsE8y8BZN
zWfpjghZ4d~t3-xjeTmHIe^Z)>2ROH0e{s{QXOkIzK!5Mq&$nMmiQsW+nx1eux5}aO
zq3MrY)N9bDpi$f@XXTDzG`J^xGG1BUzNfkOOIo&@RO&qI>q?yLZW{rF5TW?-w3WLR
zLKy1qT?EFGM4wl?7AC~bH*;bxwDPWjljG<NeXkcuK&TNB%>T#LTR=tCeR0Dx3^9m=
zf}k`?h_s}%pyH4|sDvOLA~ke#8A(MzLFs%XM7kSBQb58%K)R%3=%M-U4A1|2-}SEL
zS}x$;d(PRte|w*Ey1VwW_wiD+HgeeeNUt{cNNOO;s_(eq;I`qxUv@!l{1@8m!4)=1
z)TQd1A6M-!;q&dt^|BA!_j7=ND1}s?`0mw7UFn2K!0>Dz+08DXNq8v&eCgcV{Z!J#
zd&57AWrGJ2XFY$;*!2+4JgSTu(3KpLxl&Z~_z{oC_@XCV@8Vzk-Qr1J4dzO0QbA%3
zKUWbuwH|%|C3*%u1@W-Jf$fZPYkZ(yG3ppEf7Im8=a186h7n{dnz8}7OjpYmpLpS=
zGg%oQc|!x2gdPX32$A^zp40DZ`DYl4y%9;6K>i~A{a5PUTU2_n-M@^wa$@u;ICR(+
zF^kGe(qH{W4L5(J3lT)Ty?U#(g~f!Y81AXCY4}-U48?^eG8q;w0KJ9{aa*imR>5%@
z=3nQUK3Cvw&BXfnrQNH^VB{Q~`PN2u9Z7bZ$Qasqi8;ov2T~cG9aTfI#9T56l7KR=
zJ15%zNGRs-KqoW2t;Xh_JG#=%@A3j3835@J3ThTs`zB>^(if188YWI6L2IW*)s%w1
zr6>6=_r0y|C|2Ki;ju5G2RdP40PlnW&ga6Z+FhUw<tFtT3NnoO$aZJNm}+3>4CTXj
zk>2bM!BJC^n-$>b2+V;wUOa3Jk7gUuxi<G6#3!op42%;0>=WO(HJzIL3^eNA3WgV2
zURVP530c376aYE@)1BW+>j>@1<a?02T?Y2o#FTd71qWB63dmi!CU6=<L>o~MtT{4p
zE(YZR)4Dtx4~}_@zw%ReMnOkQaE-g<kg(nv`Wb8kzu0GOdKA@I$Qj8WBJhk2iGY$+
zGG8iBs)IZI!}sxeXx^GNz;4BBt`zk5XuL(SD!>P$f<BEt4Y*a>CHTjCc)H*z{xd*(
z95_*hs|U|?j7U$e=uz|Y^!(#3>?1Edp#c*P7t>uPL9e4*(8e&5X;Jh}C~^XPtK}<_
zF-Yk}WEGkusk={yS^20DK5e5{nt>}}bUqxLOX(lI7mpXY=*+E5ZKSu@m_{w%>7D5o
z^c0axfSPx?&)s7psoTdZxiH`r$=O@ij(U)~p1+d$syu*ac)>Dgfqn%IZ>IpvAQt=#
zXN04<eW*{I0D2L18XyT9#(DbF2umKX+^}=(J6a<%eE;1Yq;sL6IE$(fqFY4CItqsX
zGY)6tWedo^7q%n!5&jceG67g?<Cw=TwQLmiH1QvS3a@u!!9OR^V10MSI2)V>awI{G
zrv*Dhs}+}4AVu@eWx#nYz<$-6Ezj*z>l~&W>#8)DqFii(mk375c5k$tBSW#s@zEi?
z=piT^ndP6tGYXEs^pfarGQ%a6ZP`NGwG^Q5^h1lG^5AiF_}5n2^fY+EI4-ln5U5cI
zV#t}lo-q@$(Wfk!a@qEXwMeSSFtUo$(+kfavECc_q>@omHRm6Hz(X|oT>VhrmR49{
zxH=@Djw~DRbF~42{({edG%NQ2B=+bqqK*)WW{gHd)Zi%b)<HS*P4z}U<Phj7z@Rh^
zAJ%6&&2*h|0IAW>RiCVU)C>upH>)qfZe{ld_s3T>G02y@3G46@9#6P<+!S|%rdIPo
z1G%8L1WveLU^?|T4U(E?{!SH@uODHmXBSgtP;x08A37a*XC9!hKaZCS?3UTa|1Y={
z1OYamd<R1@WC8PfL9^dB`eYcu;K)8Pra^K_0KyZyO7fqS2ZFvl03-wHH&5?-De8J;
z-Icqq`ukk(0<xs>(a%}mP)JZW-vr|VPMdKTd{~W%XE1P{-`@bm63htp^I?^Rd8YL-
zF4sJ&@G+})#N}%6{|Fm~zJN?V#YuqN$ql!N4``60<r`~0KYh`1{~1HZi`5J;_65X)
zE@jokE6VjQM_f~ixcKGk0fuNl0vS0G-#!xPQ&MnG*J1VSYXy0HTHQa&=+k#CsMFG}
zn9a@((o!irArl{8jIFQBOgxjBk0F2R!wiH;@6nlP>x_Uo=AN8YmFwLqh|}~c!PCAa
z1SXh2pVfG1{b6jQqjQJN&LaEpcHPeu)g5F1`|7LzzFNYiYlGdoV9XVyV|7-cC4N*4
zu_eK3sn>dPZ#IL$pULRTM&JKj01!>-7j;NY7I)mbI6X&wx%UNumS)1!f}reii>K%d
zhEAc6D?Nb8ny-eDwj94dg!_S~yvJ7!4yoXo{+p0>WB&X$6y&zQmP#$0qAr&59<Q@|
zF$B7ZEN<)5XsLIXz$){X&wSfZGz+n5jxTk`syV=D7WglcJ?g{<VVHPY@SK$)C0mfe
z6wZB)AwwzP><(c8Bl?y+%>Fn<U4lf?MqE&QG2gJp58FZDiH|}NXlxAU-KC2DoL?-w
z)#_s5HESQ7Yp=U2XQ(JPTyV!6-SA04cy9>G4-oP?ZvG3IRDC5FH}?We`*4d-wV>RV
zpCgK0pGM3rxK}gbl`uNf`$EwS61&^_b!PDFnA98l5T_Nq`3B@?#OkVH5`O6#uPARd
z1UL!SFNhc2tABDk`HK0;08KL=O6mR9=V3z^jpN5cpvR98*9BNFrMTcNa%H7TAl^!A
zo1;@0lrE3ZfN{bG;~#w8h||W*IrNyudt%iH_gyIisj!*G5#)mERGj-!2&#X?%eDnW
zOG;3BLF$U2^Ycq@#M*sznvQX?{4Z!sxm-<MurAVG6ij0@)!&aqzTdLF)xZuiI2LG&
zb*|BtPUwAD)Aa&g((dF!mQ7EIR}qAEiaM`oP+`qNViC+3`z;OZ@2oS=-#Tvq|2C2D
zDNh&Gb4Mm)dH5RRJf<^9yduJ9kn_*ytlYO(_M80J^DadACkx(NnJcNd6gtmMdJXB~
zwem$IOR?Ka`?(F-R6s6CxLIzqaUEv(l|VT?(s6Lf?LnY3?$~cg^AP+|(cpzW*?6AN
z1o~dk5WMBJY%kth9R`@CY%_;BG)#n+@7PT>o*u6b7YRlFHRFsh#!WT3Z67X9?V1H-
zXJ;NnIPx3Gdu`XK?byqoE*mUP`X3LF5!KHNsA%{BJ4wUm)v+aULgy3Y9us@xXAri-
zALH$1y)VwYz8jsxWjJ-umX7vT&-=m(9z;KT4mZ`-Nv`tuvp)~9@eHD2O%t{5^?BsY
z5-p~49m&?B1Q#Oey|L`}m}pv@Bj}@1V5ZYb<yfjEc-aGlUQjm7Z=bhb;=KOLm)0*)
z4pRdQz`T%x#UlZL=UVv3o+J<Kvd2oUD1FpoQ@0X)C&0^3;uB{?W}p)MOu@so#xawD
z9bpa<0HnjCnhM*rKTnN{O~A9zu=P9o?pQ%6@?hp^f`~cB$o`JkG|GN$^s~RzqE}y1
z^X_s)VDSsQIY_K-$I@qWxcA;$v?I1!1h8$_0iPc6VgACQMevHbQ|I?vry}jKwuLp>
zeqV=g+q|;>Q#>Ps_JaHmAZED*I_o(MSE%v~lfI>loe!*hV`Fjw4-tbHP*U-lZAFCN
zp%<DA<GjqMcNTnKZ}V&E|AP|So{T(>4jBN+3RDHtWJ88~5=0l*J{m=FBKGcPsh=_i
zIE<meMazQqbau7G?)hqOtceU%FWwd~UpMdYnm=VAxrm!Gp?4JxbMlHBkHSD=gUf>}
zxzrfGo;p5!XPz#_muDBk#WdZ_*d75bl;YKG$~qIrJIrV_GhQse{J93GKvc5kt68WH
z)+g<y8RqZUa<npb$X|_*1>skWhMN!}N+P~c`yNp3i!V(M|C6C12>POds1hwfhKUK#
zQgR{!zkj-`yp-(Hdyly~Cy&+Kju_5i=mAohu54_qu<>XG_Q(wMk~Zbx0`tz8O56^Z
zAUQb<0hO@Ig4K@cnt-~CFvUg~6eFcJGZDH=!R?o#u6Csfe%&?1qj|cl<S8$$+wB4c
zuDw|XJyvLHNK%HIbwpt323fZIe@^SZ3EB^Sx|^fm7qES90cz4whG<n?3R8N83s!<7
zt*L=+*`iRESlT*s{@}9VZU^A4Lx>4hdM_xV1=)t;_8XGQC7?Sll1EpN*!Z}l6^Zor
zKpng#LNtgF9K(vC7oD(7o*l{_tdv;&FQIl==^*|u=~6}$?D^NHYSK68W5c)F{WU*O
zRGXiHVHz0Ba1xaKQ5-}Jh|3GEykif7Y?*9OT)4HOr@zh!2(9e<1cMJoXTG~|Zg==1
zp;T(!TlYLSaL-4<<R!_pGi0>GQ8w3*s!G{5w>Ox;R__b9_3aZVGJlV{mMtzgx;xiD
z5HBNK@k;szVfY6Z!$(0x(txIh2GzRzT~n+VMi0Y&m$1OshWkX*USKU-s$NMt0i0KS
z5}3@|HRbMafsjY%Kl6=b`D{O46KFDV5h%!Q*Nqj0?!5DnwDHuhVRitWR|R!iJ&oCq
zJ9unkML!c<5NGaPf~)zW9FSRKs4)tB6YE}dG#==?=e%qoeBn4L|9hl4tK+_`m_UcM
ziF<H>CqCx$_|gQ$fk4NCBf%Sezi@ER9)rs*E_Iepz^4`%=X$bOhi`r-L!C5H-FLWN
z)qg3pBv9wu#nQHkTEV3Ak5SeL1k(wq--9Y~Fr5p6PVf8(Z}y{)%m{9?6>Mo}{tm`(
ze~fr1)FAY+d7Tlb$((Ubay12MeuRaKUyyrN6@+j2GAhbFlCE_qCMP_XXo;o-A7wxa
zO<<<35yn2cn5qQ{yr<^1!Ms(<q3c~x)kcAwSM~u&r5gDWf}@BQBfenxSH4IxE6dM0
zCS&W*85b~}t^V0D39_Nvrg^v)m9$l3d=(a<EpYL0{(`dz9y#8+3@1eE>ymqp@0t-c
z_tbg7D4P?Z+)5C}u(u%k3iw$2%)3(x@x`_D^w*XFX*)mp;?ypXqfCzfmTu^D6Zzyt
zq}KQCJ7A~0JaC+N*7GY-@y9w+XmYgaj3AjWF1RiNu05k+`~KGg4fM%)gg@zc4l{{*
z&w?l2+0omxJv^T{2fHrD4}&%*%zKv<IM?OoJdxkrW!0+%a?^JH4s=%65u97d2SQ+T
z#i<Q}exF}T9y_I9Gogs-gm8j^{eK$HVL@Pzg;-p;spY)uU3^U}ar{r;J)#d|Gyjuf
znhRF1y`W78Yc70|C@E2bDLj(w%jzSe`T+t<+o8w9#$f&nhHz{IeF&K-j|qU4b#d!8
zHage!`bsBMJa_+&yP2GvH%_!$)<lqA1p>t>>$KHsm`A^|!u!C;_*8=j_JO)OiGbfm
zhr|=sU^<wn_%kaeqrtiE|I(gw7q0(f>Ar##1jlF88CbagM<Gv^ltHJnd$Ky+kV;Z{
zwfC&YWlKFQG<&}K8rWry&AJeyEK|@2Qr2CEo!2cuxSiNrJ2^Q%(0P=|d4*WB`M=xg
z<%`_C%7vKIx9fdAn#+sNrxdg}(li&`UkU61mkCk>W=q4Zn4wAqK1W#~HhY%etdy;_
z^OF)gXWc7)hnWu}TA2N$i1PZ~l8;8;IBjH)9H1KtFeM$W(K}VP_CyPd4!>_8vG3+X
z4UVRa@v`vSIQ!GDR`3F;P;CqOEDS<Ste5*q5GE$5n*0w!JN{wG9B1>!(}T7ya~1Cz
zFehF*1H1SSZu8gFIRl_5fN+324vo<`P0RZ<He*y@aDGZquTwB^r){B>WLA77`!RDy
z>XIo_)+}jQ6m9fkm|cdRceGwD6C>*_PL+WtQnBYR@A+iL2_P69%?PXkyVLl)K0B_R
z%j#-`A}w@ANM!Q<z9onwB{yt?@!afkYjcS!Kp(~aDfM4EHlFr7(8yU)&YAm4vhTA0
zUiUv5K(y59fuP6U1W}M^*B)pvOw$d{_MfOoC#3MqFVxV!kU3TeAxK5j<!aj#TgSBf
zB~lcxIO&eg9{XD_(%-h{inS7PTiFTmM}g4J%>Pv;ns@(CCV>zxw>3?z1u%=;Z@LgM
zR?>0tv$pmdAJ(+^9SR%E8gl;fMu(g}j)sN0JAvQ1CAN5H{h0>O06tHD0T(|T`^?~S
zI7acG=V<|zy}hYj>c*^vQfb2i$PahbEWf48$Cqciz`DjGTV))WB=2FQ;xxI3K7#h&
z?a~L9GnVjvPwVrJ5BTMPm(JjYtVWxI!<AG?``>4C+~1Wru9~Mm+l|u(n*oZkyfitM
zpF>SX8a|J`l!Xx>b(3Q-*Y@$^YaKz~FFw_<DcoP?Q5<eEHih}R4zv5h2sVT9y87<}
z25FBgF%z7Kb+UAB1VGEN!Ocm^3kDGBAkf(%@eRb8LF6+O@7md5Y!ov~Vv@e*vA70N
z@MxHmb^K?<lJVqLi?$AH6Zj-e^|eN;WCwE7fL&HJh%bgy171LhUIxufLtHy(HS%*!
zH^)t<HT2PP&!mLi+EB<51vEoso~inUF5rXw$&;0kqASf~M|KRejyCdsTj@Px{w=S~
zq&}Oq*!3E19;8ReT<6yEe}mb`x$VxZ`qqZiZn?rQ_xA&BsW83Tq}j-h5Sz~+qF}qC
z7T{Ob1>1ak{6AIM6`k(oKTy3T>my5yY0(L<f<fOgWTFl*aWmUMNEV>5c8=q~Ph}-s
zX1pUM6Z$HD#<mz3!H8p*z~hw2>Qr&}w;|-Av}#YkRZ>Poa0Y)N-*S4)I(x0i)BQSF
z&}NJ?lTT5Xc|OpoE=TeMlh)>AvYg$uUb}n+33v+ztxe5g{EB@k487?;oJPwL-<}*y
z8zlI-*NarREnqdJJb6FjqfzVEt#<=wKZ<lTZoNfiZrxVRvS#;sH@oqY?$Sr?+_z8u
zq-BcH&T^YoNA;JO5)^H<5d-f_0c%Z_x{gfrpUt;s+8KG4t{|!9wyS_M2%N2F;#l6$
zRVBjw!mV}&9D80fv&oDT?t1Woeya1^bD1zZfTvZTGwW7{@Y@d$uD%O8U~cR6fwzUC
z_R7m$BX|GhLYPmu?4Urfagus*%J@GG1Y;_&{fJsL1Nlnu6+l5JpUV365?Z-`7b_kK
zR@OjBA`t5FxuW0*hP<2-V|~>_GYb{|*i#Nk^KnYC{!{D#Fj=5=yz=y|lQ<xv#`AQ^
zH@@=uya{mGaXP<EVOhR!h2iQP8F@XU6x|>AjL+Jo^VU2D`wbWS&cai~Y%tmu)e@Ga
zFq1D@sJ0l6+J9aYyy<Up1w~XGd%dx1Y8&=Kt0~THmDPN#a*;L~hVo-4Rn2-ymuRK9
z$ds|AJ`Eq$kyC{$d?`D))(gnb4K)n?9y8=)I1L!;KNgbnuUL67?MG}x&J5j^HwKQ%
z+k-@PvBc@~<=J->25>OlD=kU)Y`4x=_t)yC1cZ0IfJ<9K9QB{joHv=?o+K;HtR~lN
zQaAWJMrR84)HoaLS%Id;%zcR$3>itQi$i8)(r!1U@UdR*%$T<ZH>P|@{urwq)Z0D%
zrS7#+4Z)mE{hTSR7o+wu?MQm{_dXFDhqKg2UPaNMv|o)YwAYU2U8)#<EWV@8Dqcjq
zN9{8;LbfD`*dUQa+%O&`J4@%~e@1oYsl)TiE32Ygk5Satr%Z2yi6B!AU*7HyHoZZL
z+X$aQZVtSyzdDNpq+IrjYP=`t7W$@o6RanDmUGS%7Y1}nZMOD;n$xa?D{u$lh+InD
zSRTG-%lt6jEHunIZZBTZ`y64belYkg4?eCreM`JYS1WBhP5GM0Y1yT={&jaoJ7e+_
zV|Y<lV-+tNK^&`nXR@=;QMUM~Iy&>2Ep034e=IEbDpSG%=g$>30rm6)J2K-@#HE1G
zEbWJr=ZE?yP(xP(dvk)*T><@&55>&X+Y`RJmhWOhn(5|jX1-*QkKs19V}RD!LR(YT
zd^sc^mj1+>RUjvLdw6+x&1TGfP9<!Hh{%J8BEy_5k%4FJ)t@MuNwv(kXw}it{dG%w
zW8yOyAWfC!<)qYYgNhS6BY}vfo!wm4Z0-nig1U-rx89;`J-9h7Zz6xZapE4ebyHMV
zh->o-Q62f#I{s@5ZR7*ok{{`!V1gMo9=M4WuxEAt=V14doUxqWiug{yE+m|M9HA|R
zvWZE;DC8`1$Ixj8Y?5Tt+g>I{U>-==%L76D5Y~-g3bv&zCoreW7YAfEGwjik<;l!S
zhYb^FXn*~~D}VMKE20R<)3-PfeaO3h7E}4WVczDH;)Uk1=I6%q9{q5I__{LM1Fccr
zhIc;<!ZgBB8#ZQ2{8wOW4&Rt}?QO^6Xo@(u=`=ch=><kV`W!KDJ|ES&7Ul~i{Mn?R
zHqOgGjuR6)<5P-C0h$bbgk2kD3dEAT^eI@o<Qjt0rliskSsLh7o4PHMa{gMf09)`h
zAQ=T}Mc&3wWtvS~!$q)arlrQbrpcO>l%iC5*p=p7{i7)y?lDUl#R05hUg`tqKd(EV
zkLFd?d6EVZ3MczXM<NJLpl8mXxYZAFt}#KTL}Xzz8r_}lX06bUM{hU>J6Sg749o|M
zX!6cS$OH>Ln;s-C%6u~F$9@h9p}$FvQu84m>%NqAju;DZ$%~{_EASy1gGTqpSyP?~
z2}}@8=jsZLs{j2~j_}p+>V0W#ot3r=x6swa8t(Oi0*eZhO$3bQI+f+)I3o;nHHhfr
zRx=vB$J$B2S_e)+iZ$)WrKcPlFlJIyTX$?|vBlE)I>A9hH;`<7lZbAcsjqp9g`1Dt
zj>)xXQ8afJxv?6&$*PIGCs#*x{0hyIW>bwJDNo#zBbz6#ffxDQeGqn%ANTy^s#F?h
zqeWi|XQLEwoO+fM=N~Al+pse@V9oB%rC_4HtVVN|u>XAVYKtyH8qgTKL5=gG$>-!P
zJAP)8hOZo-lz5L-!}pnUO0v&gf;DJ(lwSoPueZY2LN;%68n2&w61=^4O^aXsrIIuB
ztBhQ|E&unhA7d=k2qDgAQ(kGT{*0xzTpD$NhwcsFkvFB5&N@@A{ENQ(J{zBBf36*Q
z8c%%>Sp4SESUV)u@?wnnf6WAtBBSyIZD%?WUza|P;;iPt<Qi`#`#kx+^TJed{?!ke
zB?UExm+c3Wz_u@?v$!%h;_<n;59&R4DCZ~EXPm3kw{yTK2%MgBGs^}es}JDb(XsPN
z{?x}UYT#ahbH74sPb&nWD_kF4tw4M`IH&8h)Y-(U$M&m7VeMkx7cBuZ?Q|t~R)|sK
zlIiq%c|`+5;=)z6aQKWI`k`1`*2#9roYe8I51E@>w3vgTIJrBB4btiAIM%H`L}!*W
zV^Nk#M+(N<4`Q1dx+SL1zXQ=zdjLOvLKwyBmX|GG=t^PJ&8s06C-LL45rF%i#0)<q
zT8~OG$kRo~8@wy^Io5Y?_we%kV{Ze4dE@+GPwlk1^76Gz%Ps7^)m@=q&ZE3&l>j30
zv~OMl(PAP&&Q6PJs80QP2fap|7u&o;xbr;IYO)WlaD`z6uB8%q9U4V&&-m1fGI~?p
zn|H(D(5XWR5>}tGs>3F_G{Ep~c>TtCoGtYvc)io={;f?Xi1eJ+{&-Z%uvM01v2)Ls
zvNS<@c;xi<sUYuy8(e0M>l_rOS;Qj-?FGs$=h%j^jnQHohWoFpPZp7fZpgOKZd^>P
z;g@|QfE12yHmrzry$g{gmnE@-x+}L#DXs2Hci=^clQIB5s{<d1k}uinkod-4b=Lfi
zFb3#{Rs+!Z@90&$9!*`ew~x`US@0aydD-eFDL9%3823ue{WEO<5pz8YF*XA37Km`P
zql<KUGE5g=q+gjmcivz2a5K=Ic7)spt^wUeI!$l$hO<JO{c&|9g$91a>v{4$d&7Oq
zn*=>&3%K4GTPSkKJzOZw9558W*}bYISXA<+axg8^e$c?iz~@iu#8!dG%;@vbm{z+E
zi|R@<V??4SH<Y|}4f{KfJ1aEZowq_4>peoj?tVJafQP3Y$r<F~h7@){(CieNWOap!
zP)rbevVdeOG6T)1&Z$q4eX6GgTdz#fHZ=Ei@J7>p4*px4HkE59V)l9O6yIK-MC*qS
zyqxUGdHLu#LX<-gJXuIO0E}ZqR7bR<XZcnP9(4GmZ|U6>`U1MmguDU2;Cbr9DQF5%
zt6R0-mNxfuFcgLbxLdJh*xvEln-5Gpo<>D24Bxx31kML{>t=%=XlA3xF#CC({(bJW
zo75lHTl>O)a%}1^5i|1QU}li&&<TU0uLlia+tO8;E?}!;O>VH4gr?THbc&>#4biQ;
zLA|Iz@t3;q$GU^Hz;o)MB_EFBb>H}MHs9H0X)xWu;~11g9@SBf5q`dusbziDF*Nj7
z4n#J^o<JDMvz+15L65s<DG={EuGBDBQ{ImDC-!FvQX`+q%9mZ&bt}lovgF}o5W3ka
zdG&x~Im1Z?<$lv~{;kTwFHEUhk$*wPgKirvNBd#xfm;|g^dS*7(K%^y*9ZkG+b4pn
z0OZ5z*8?Kw;D*T+d_+yRLZU?Mx0`p7jhC7?a93MaF<#X|tGLUXYD&H`TFl6sMc#vz
zcYsULVkkOkXYeHctBKuJN{J!idD+TaYRJQf%Txz)Aeg7;c($)@+i3#Ubie{deZL1S
zLYs?8!tQ_y$%_8O`!xG!s+>;;TnGVRifb*d(8<R=*J-X)Gg*mxJn$1zH$~Lp@P<qf
zx{!mLmDa1I6HJ9hO!aNJq4!-f+!loa7;Q6%9UHSL9b8d-zxC2(vG;WJaS<ZAyb3G~
zI8tz^Lkp8YTz=$M11q@gW}XUP?yMDC7mPE%wN~~)?)!c<*eU{EM(fZ8eBXy}$=K95
z-LG-19{F#+)C4?a1v3H`zaBk);k+kN4ffoZjW+<n^CPJ2!@%eIq8FXKoRqf+aGsmZ
zk9lNN3@YyPYSu9-+&N;*)TXlT^c#Z4DB6breStL%@{32`9)c|;WsB3#HbOR?fc?xk
zavZpHRQ!-f!`Bo3Ntl`>Wyb}usN9FgjkI67FFx&JPBk(Q@DvVGE<4h>?O*E?x&Hwy
z3py|#xe;QtkZ=O(QY+>LVpI^aoHispD6rHy=m1xI^3gB{!vFKR#swHQ7k2R^T^-TJ
z016;#Jw^GUCYIMR^p7Vg<IWj;vqTy^Kuzuad1McQ=OJ#L1ZT!Us3PVHKCLC%I99e(
zALweeF7@H#SR;)jNhKT0vBJ63jp-+Cydgjg5eye3EUkzUOZn*vCt*izUT!_kK=KwB
zj7#Xit2_7spUcSkU%=<ZS1Clg%>PVs2!W!4VC*3POoNuzWZ)J!BlpL!wLZlYF~ee5
z^N{nH)HP5NOdWKv0qc@k^Fs9`(oL6iPrMj?`;w%oX90BCIb|Hn-OMSl+Y5x+(HEbZ
z?~mkn^oh$sHHFSoXAM@%;q2~+3EtMl<A1b(pu!DREYa04Z16Q}x3pWVsTFBZ&`&x8
zuicl+^Zk~}z#V_!x1JEtw{P7(G90p0rlPGkgM^wf#*2)*k9lbs=2Ht$YWpyGN)C#!
z4mafYB5(D(GIg;5E$MR@u^x4S=DZBBb7F+-c;_X4jnOOCcnB|7kb`In2svO!lJFm@
zMlIHSx@!u+g?NXVhLvV$(f3Cpa?-b4eAxa?w2&Fshi>u0JHCJF8;Tuhu=ViWe$_KY
z@DMhN7pt^iR%p)DZ7EgTr;1(lsP;&OtE+Zzu`a!W8pRIYYVB)2>|2xb*X^&Llcb4N
z8ox9{=eZHnKMHglSId1rQrO4(5I#59O%S=$o4&5PpRH>Ge4L#NPavDAhNn!$Yd9Z|
zrq|NT8Tm3ZMQK4<xcdjh#S~Js+5X9sJ7w0(uNYa^j>iZQ8YL+~)|GEDAgvwT1uSaD
z%Wx)J9>se}pX)rVpgRZbAJ$Wiy=6Fog3NmpeW-2_=)^MMNT?w0-#a7*k16rZZqY{_
z_{m`Umo8Ofm201}gq4*_)1;w7`jl*QopIW+SGjlpWHed`w5pYLjm==deK;Pry2WQv
z*R&@H?}uE7dd9D7$SG<i=&U-Na=Czp<B;F5xW*f&$2Cn=46HHGG<}MVi9%-yVbALO
z)r|2R!aTVsb8sr@qWz>>d1+F~WaB39_)!Sf=i<&@LUG!k(+^9r_fN2Pg<9xqISZ^-
zGUNXh5Rezpt5_v80!^3BtJcy;QhhD*<k8fGGUfdpOXJ{!GCQ)<sqa}GIk>tvz}`aw
zrJ}{&Um&Y*iz#P!4gDxK#e$l^VnPGX-ag<!Htb5J+_+i`T*V(c8-ccXEEvoe2~o%Q
zkbo^h7p0aD@G<tkL>sbXS>ZFyJjWY#*fX>_4eOhsiH0h<B6!R>RkJ->Y}$GH&?fbu
zlX|eh7ymM#-E@ItU+r@UF243Bbx7?T+6_E4n4(AvvUCijnEJ=yIBMgK-x*_b!}3hN
zn4+(2!-b{_UZBPgY<XI31M1ih>DLZA&Z4fEt=lV<Uvn3Nv34IN{s#%`w>%b71hwd7
zbe}igpOe|$c*<*xti@P?#4;|0I^)JWt;?src#dbv5~wlZYbw#&M7$BytAOsUJMR5r
zq+!dmd0ytR=;Zv|vbh7u`6lB7HwgIAsQlp}7kiLEz?;V=&o<qZRan~mh-v%(>G1bc
zQF+|@@rEnfkC~+{ZiWxa1N5E#Uiayh!__?hob9#p+hxPi+O_B9Cd0G=6D|=yI;Zdq
zSj&5s<q8)TvVUmun$6Hxfo>xN>ESJl6+#PlHQ3QX>3f1a*@Ix|o3H~kTe~!&c*dxu
zj<1+g?g|IxY0oA$pdvq^BgqtfxjqGipI@3`opuQGXn7AdVvbiZN&eL837Cb_;K-<m
zsUVdhA1bs?un|mP<ujVIGYBv45DIV$D)+jF#+%$@Xj$1hyNLnZ0H%^90O@;BeJ~>i
zlb?k7DFg$r%qjQOxRuWvGc%7+H2a}ad=<efy|&sXSg%sQ;R~cUn4IAHYKLG=U4VpV
zp&dmT$IlRq9e70@Z8IyHl}0nL_nd6}_pG>#$&t|$Y2h9tYBI$sRvPDoJ#h2mrvReX
z=V(B2hV=lA<*<7_?|`4CjUj<fVy;){<uA!z;zxuEj@<Azh6O+M+HlNE^?A|M`pG53
zRcBOa@ed3ggH{d0Sx50@0G?v49?CPCddQb6b?JL*gs}TjD`CyWhIenwX7nqNH8U?w
zUAuHh1q4x_XYFmZ6pr*t!>2+#h3Isf55-km`A50rV*SB`%kUFHteZ9C4Qa-8lV9?@
zHLTR3XMqTc+}JT6j&TyFd%IImwj-9BL?MBtPF5aeV3~`CHDpJ3_^o{voeE(IoQNa{
zExr;Q=<6&KkCghffc}@kGCVWdAbr<^CKl#_ZZ-aXEK!afrBEPcU?U55L8YLgzW+O=
zG~;}L7WyWQjb-&F@E(ETM&nm<6$0)AUp1x<ZsFMY%$=(cX9C>e`lHsJQOpd`%gVn)
zJ*b|xS~?<E_v31HVPB)pQZw1=OLrwP+=RGlpo&@gVGU95&14C>z;PEZj>PDY7LIyp
zu2FM^O{Opp#SRwanJWAiFYUmaLe^=6&4ktT^PVS()XdP}d&n)yCwhr(M=DEq?8pBQ
zNK_Gz?_42bXMF}F{9+v<vgIINN+Z=(*HqA5O(crh4{D}Ge!ulT-`$60@$}lkW#0uL
z9s81IQPGpUHO`{s#f1h-T;ayIWkBF^=+`DpCep}fqePqPK@X{+IEaVx;%Pq)NOx6I
z?Sg^eL~~a0^yIF~FlW5G@Fy!JPokl5l9#InQ2@3+G=O6I-&^UMf+o29na6s&(t0~n
zBl(_qR${J;T&%Xa8^t$m>>fZ_mf^`R%%pk@O+lxQxHImqk(xfT<d(G!2;>k92{)n$
zmg6`x4l~fT>d`vn^L>5AceC<io7YU=beGJ`%m8>*uV_Hk_uq%bOU`<pqF?R~0QfCZ
z(ZAmlRN@^R3lMt}FKLF>N}G(z_bV_p+f5_kW7!Y9mu=u$_t%1od0G_|JxMlS!=Iw$
z)7j$Trna~Ji3HD7s;7rO1|P2YPah*kB8oRCX^ctMh<z^$dNUY$_WfulC|*S~UKq5M
zU;3dNM)u|OP6Wfofcwi1(>XNOFft{>6oGtis#eI>T=9m^fu4e)^Yu@?WbV*O_<P|Q
zqx}tQ6c8F-_y#E$G-tA%HY!@lX&(|RgteHcwaFK7y_@yB``dF{&%Hc>Dv&7>j06#O
z)wu3`y5o7hpDdWq<a^3U2_$U->dgSFQ><nbyxsSK3^*Y1U1@o8!Wh(`ef}hGO)a2p
zF^9zPP)pBqpx>-^vk%>2vSsHvHJ~h`5?#rzU?d+HN$In_JGy>5h*zE8tzV063|k(%
zVX39qr~ESsH(WvmHb>YWUNUC^JM=Jrl8&zF?YileE6@4AWXY7?K$q2&3S=0*vr;;$
zab2Hw0Td2=Okhs}!YjYYoy|%r%CdOUxi{5#jlX<49V6;h_~hhGT~gXDguy2?W!1(*
z)1HrXvl(>n%HEoinc46uIdKQi+D!`|y;E_XD{XiyBE|x4MzbMK#!F3mO`jd5Umr{Y
zy`l9?oV41LP4Bqw*$b<#)Xb)|Gx$qeGWUj8fOIjeALcV@Jf{S`ZCRJ~y(ew*nkqmc
z3!_y?7_@OT(-D$Abu4}b%lA^#IeQe{9%bM-5hHJ<>_k2N&(ZOjV#bp<M4yf_%0&AI
zBxA@~j-RYx|5lDcSg((zgMBKoKW~7R#3p%6SVpehhm5C2D3N65QvA{08oF_rBmZYF
zK#p8)EuSjUa$oyC+PU2}28}`GOgCGTR^ig1bnHgryQRX5`$W31y5{mPq3)5K_8hf!
zRaSoEaY{}eVbuS;i^{g}(R6g=Y*kr~qW<UhMsLWOU-jOQefw=QuqZ@DQ1m%N4z=n~
zpOvaMvNHK&O9i$|3;?nGDXShpA!F!!<x{DJZ@zdPOW6GWXSdn-BvzT&%Y44GT4f!y
zp&qH6_6wJS<(6;vzM1R@ux8q)%o5+l$v@(djf&$Ig|Y&OC*B6C&7ozes_g7$iDFO9
zJI`ZuHLF99NsSjUZ)vQvUToH#IC##)vG%yDvm+Q4{5J#Ne!4XFkA-yG+bGKAWTh>U
zuz}k__J`l8xg(u}@Z>5D0TqR@qxKRF)#Kx*jGW^#rInrMaHjp>v(o^-3}LpLG{Z_i
z=+!L+TY;K>GJbDny#)JE>veIf>Y^0lhwOz+FV^?#c|{7^x-w@{co0b?<h0pW=AN0^
zP&Q;qWxANX51K7&J<C;3l}%ZT%K?>ACIN2|=l-<HJ$4&p3&uSYi1%K8pw~oAcT;v}
z%ymsp3!(+7%1L8bzbp$gyp#c(^|#^n`E!p6usF7p`F7VKxBW8C-h0L-fEPI;=IJqq
zfy45XJ~x(M4|M{Ww(zb^^Jppk$&#Og+)Bpnezmt$5_B>uLSPH1Sn9>ldLl{RH6upW
z{f-rH6HzM-kA7c|(?VJA2UN3Koj6to*jW8~c6%)*8tXLmDa_gfZadTbJg`F=@UWL)
z^7qm6q1hZT9dDr+;6HvLy2xciF{qFgHya`!a(-UULVT3)XKJiI57fxbi_!FJ9vw>{
zx3>B{Bu|ueD5@PLh`%PhC-Za%!k~Khgh!}~k(5Z?N=v~M_-WaX(z(Dk8TR_iv-gnm
z+Zmr@mlGjd&qt`c6LE1sroaQIbw+9Kf{Z2)NhJ;%^PSSW9K=U+VoEbwt^Q5dK=b;D
z5OIh_2J_FbQjt&vYhu)QJSB_OUh|z+?$`L0mF+FAa{kS0aD;6>Io)rr%5c3C6gWK-
zr8L}DVLhb#CNvjIR0(4Zu4swBCWJ_;@!A=387Ro($j`WC2dDwQ|1RIlDi&zNyihe2
z-&rV_g8!om)*XM~tu14Rs<D=(rD_?+n)1=uD<62r^P`}h=~+>Z@feAX5Ej-@6-`w2
ztzrg#d9nkF-J$@B^YIt_6s#c+jY%gjF;hRK4t%H!ll=ZBl>L*nBdK1!LaQXiWgz3=
z-qMQAdTq1>fS8zI35q;yMN(~=nJ^JW5p{DIswgPTX4X(sOFMQJbcdNzowC$9Z-=vu
z{4tICgPawz_Y9kDO=vBa3@(n;&Ohg{gvW67{@Z%mfBYor3)tH39f@~GVv#RB!HX_N
zv5AnF{oqI#%K56lO8N(`IUMRh63y>vVH@@k4h5vH&Qf5mlbHNcojxvJ2<;bt|M>($
z?++84gw)eEU!JD4F{p>q%f+hx30mjS%ujxLbkopt2cAldNJ`w;SkKt8ez4Dslr3c{
zW@^>dhSWOBeDG44GH`PzTV9n;%FE~gwmY?uEd|t9)o9^s58vnArb}ghV#FP!m|HFo
zqz|-W*wQy;G?Q@$x7$FgYk?2Gc$Zh8Iu-^C(e@cw#oNsAECwjpEEPRUMB~G8!a7R_
zH?ZVcr{E9ZwMO$OXy=kEa9$BSpz>XyS~@leQ&C<b<|eAM5TEa64cUBHjkK}F@!7=C
znVWQ$CI!f$jGx}A53Hc|?_3so(Gd-BJv6aZrKQUFvAVp<wh-!VkRB7M--*fU*InZ%
z7R@N8&DiDV!o2yGAsm7BCZeXHpmy%26ch%xU_APK5eWAJSM^9=Dg@`MC>kaV$wqW%
zZ1T7A%)C*1It5IUzH?!(r~1Rv>@PfX7j)Tr!aqkoEy@wQe&>qGIH%DDX6+xnrii*f
z<v0`Q@zevVgGegauspsZ6|YFmG{oG-o0H#Ju@8-cNm?c;g`xdiJru}Oq6UWR1X5C-
z-fpK-&8pblEByDmE^W?fBrUav6<%oF2!T~%;*qn7G2AwNt^qk27<laaN__KH_4Xsr
zB|11j?Zh1vj1DdUUgA#N&{}007*CqnMjG}IgS_bV2myVG(Ccwm%AEPz8Wnyul;4HP
zhv*__$8DiYM&8uLl72B(+JB10gR3E)_lhY>cJFG+ZnQ7<t{Uz8n)x!Io}%>8Fq+1e
zkj<iG@7)-2^BYoU`*gEpWm`E{mO?hQl7(@Rv2&qoNf0%_m}-Uv{fqb=dfnC4Kf+qt
z!3-n%@Q8a4voma+pa3B4aY?bP#K~&YS?CS)9i;;fztcFEZKo#2-%XQyW(P!)Y^QRy
zN~exYmvJvz?&a{&OZn@+fVfYJ(7uiwY}jQ%XSE_FczRFI0xJ26`0ws`S>N{+4Y~za
z=iG*TT)hp@H#KjmOgzOkf>vB3xP%IyQm&osfW{5HrKkkaak!kZn>E_GU$2X6AyI(T
zV*0k=)vwO4klwL5@uUx+q0Z)`!krIqSM-IC^x05k`D%Q7#?w%}u}3$njP`jvmATAG
zKY(qy4pVbD6>Bx7^|T(6CzpboF~q3mfy4wnQ=~8lEUSGPG+45;$WQrcntv~wo!pqH
z@=u>XC^8h`_&h<b8*}w=jArEB4>jJ;jo&||=IP6ri|73GbA3|Uz(-$gvz$fjuRPs=
zJ{$2{N4&@Wt5+S)<S^xgz86ubazfQ1bj+(Oly-N?;YE!O-{P~>9BDIeLFMy+S_}PB
z;M8i`fJU=(!}bzV7!~~K2)j@_R#~7>2p0U?2o^9$zD%4>NX@MuILDyu)5fU;<yqzL
ziLRGP7DKs>4Qw+<>CcE~g)si{V})P2?3a)H$rUZgA`SK($DO<LIa1u4$7SL@)FH93
zC;W0zUL8SQ?rY+Kz2q}@r}O${fN<IcdhpNFnKcST>Bp5IK72^LK^pmHvNKt@3SAp{
zBWTn8CM|qi-2+!n`p+pJD(`k|Y6rOsg*v}F2iFv;IDW%2w1V#Z=U^O^2Lf=kGblUq
zM4i?IUZ;lnlQH*}?@i_3__ft7$i8VrBo}n>Xvpp7bWjaRwpOBI2A}{;KUH74A!X1o
zxLV;{pwnwJ_)}j9x^T5RNy$lKfJftT(bhoBZ8~e^1F@&a0x!7{7-4;Fa8GfB@=KDX
zV}QmgE9m$Q8<ib49yZe~W-7c(<fB;6Cb32xcSb*1Wf}$^4ZBGM_bC^0M;MfQ?VPFN
zFu3UGL2PEzre<y2*<0W`05K&O;hzKT{ji)u>s1lOzMu?FOGj{yj-4y%x~?8tAks$T
z^@cpS<=)YfTg^}oN~ph~{PEwN*2rO~?(Z7_iP}QrO<e~|mQAkOICsc7)s`r_-n0#9
zS(i~VjxEQ=x4acPGcVi|EUa5ca>ufg^kyDc`o(+fp7vD$XP$?b_0IbspJuNld#=5#
zaq&TYMu(0%H|P`&cHO&mr8(J->x0L$&ygdLaTx!ru?o<>s9Xfd8Ou4)zR*qE1H}ma
z55X|LV<&?!17#_i1Ae=Mn>3_pPoLi7U6?YA4sn<iIe!FKQM^5@J(WN+`DmI6R1SXq
z+BZy&fY(e|5v|(G!02^IhB@m;B2@Ud==E!D7>}n@$VU@f$|p~HMi*97&t6x05LHb`
zc<G5S9BFpFIj7$t<!p+18s#7T_{C4@_5srN`kB9W*wJqm?#D&LT@^3xS##dZ!<frj
z{4N3`X{p)s6A%j8;#OQ9w5i&C{`I5XzhW|D`oQHaKAO~^$FbH^B=lH`a<#Vg(vBPz
zx{}PT#h@AwVaJV5ee$?3Z)dP5CP>)N>?hSRTxyHrteI~oXS)(R)J!!ialEy0`@hGJ
zDDq0>%WNZ|G^$PcUMJ-P5;Tt~fc^aqvHW=D$DK1jsF`+E`<`+%zC!;}0<oxe50z8z
z0>Ciuv&$nh<ryDEp&-D#6SKN(<W4U+Rc}jSOZGTAllfd3+;G~S5RQYo2Oq!<H^aZL
zzl;fJ;Mi|zWinZ3U@s)rQQ{q>&pz+Zc$tTM;Qby~$$>=7{jw4APo!Nq3!+^#>Z&(4
zQUVtD`+9t%e61gJ{vwx?t6-Yd962D_)~1M~8pq6jLmh={#;NxGwhuqKx9%$O4QjmF
zx)%6z({n-)#Z%U>PS#FqZ50*u{%8+0B5GR^=v);AL~b#Ui0^3)iHTa<l*>t}xU0~q
zb)j*r0+bFIRs>_w0bHmygf;*7Yhz!zR#A55B&${icRT--a4ND$;v<u0f%Ug9G1VU1
zAGMI(0*n2|2cpF+9cLEwn>n%VD@jH^_kR-Q4a9lR=G~k5gDq#~i^+ik1q1QXM-8X8
zA>tNcT32CoU2ivE%nmJgtIxbeEm|p%Sw(_VtOax^7B4^Kr?d4>pqS45a!y?Tabu&Z
zB?uOl^@V)K9!-`&!{FRfaO|{QLR~2i7IZ3+y@Uu}T_W&9^*47P>}wDq+WgX0f;flD
z!qkJS*^qRu8o5Bk!@kgFl~T6C;GGq&WKNrdqhmH7ho&!8-?9JFe{N2(;YpVN*U1bp
zULT#-EsTdSlcH-ofg6+Y!Nxf$Nas`enFo+dPSaKKN+({G9t&TMi$2>{IQMoqvoU*k
z45vO}nEkHNks#?Px3h2-O&fK}yc6jK-84#njEWMI0e68?5(1<MQB!Sie)X>tXWyq<
z-T<K_V5jDODo^@BM*gG^RO)IraKgY}OCu-^qh}!rHzo=<A`6!%nb9^O-BkIr^6pmy
z8)9zmZ*1ZJIsi1|H{UGot7UzordB=*5Za|Kd#2_eHo1#3{~Ix0ZHFD|m`QsbTc1#K
zR53DncY&?3awW5U3%tI3-gWW^Wfk>V<*%r?KK4z2$kA*CY}9NDh$?H)Meb-(S=@fn
zV8l24dOo>)Y5fx9C_Hd=`5ZJk(;CW*wu=0&)^k|NH5V=f<02mN0`)Vmf+_R~Jva8`
z8V!I*TyA7-)<Ne!k)l4}Yy}{bq|D?Z5WWoDDRN_!G*A_zs20o8rlBU3aXds@Js+C@
zvl1}&7^~z5YWA+R#z&)3d<l}+5frSo{E1DNquJqhZ>(9oB({h~0j|g~3BG9z-gY&R
zW{cfOZS7IG_hBQ8?Qi>7q=PVqLdt(x68z+D&%b=S>L#59MI?=hW|tQ!<+Bhc9V}Is
z4zwWBNB-@URm@7d{50m%*;&T}C1>vGw6lB3zQCGa;0E7j6a;jr)7h3qvn%t<Ohmdy
z`hVLk>&h&aRno#eIEQWLUlb(6Xj<Z)`UV&6%w^g9gDupX4l$t0ZPiuAl~NBh?C!Zv
zHFmpT%fR1vsCj&$DWeW=iLy-vJMva8vRvzTxcds|kNB(+SGITT?xv_~JlX^-dC|C|
z4#vdB8qTjzKcsQ*y}AbRqtR8I@%G&B`0T=E6J};(rurasXNg)7S{r8-ku_e#wDC6q
z;mGRhZ+ybohJ>P`wtpT)VH(QWZeMBPlXBXq2s|2gX%=B9`&*enqo6oFwi_J|yS<mw
zp>(dsIR29e9==Rngjg&rY-IxuukS2O{(5oJ;27BJ_m&w^f@J6r3gkk&Xi@T|WAhU^
z1QL$PBaJJWHa&t4rqm76>WboZ_LmZ#?Db^Q|7X9o4`i8UiEf7We{ab>zgv3f=0S8$
zG{S#U|Kp7KjQl7-^UmTw{wW(diz98~X(}Md9w!O{iWsS~ZXt^Ro`B9`D^t~P!x(Xr
zY$J+rLA8X?<}r+U^|fAODvEOw`c&9}7AjH~{kP1dhZp(%*z`NKMy1;8PV$a%bzq#$
zlMIE0Qo|aEz2W1OCo(0jM3Q}SX2^T=(|_kSxP!is8<NCfm7xrPEhgu49|X+W9>7(Q
zJ0g;UEMFYA8Q#jKp(Rl~@LkC86}1lJtO#3?SMQVAG*Gj_?<CR~BfwjD7)|7ggMO@f
zt@VXcr5>g&U*cL|*^w}lO}^elv=ybO0G<(ROuT>uQ@<NX&Abb7aoPQ~n(hJK-t_Zm
z57xvU0yJ44Wqx6wG~TI!%Q^Cd3=Fs(ymX&5Mlr#+B4jIj?k78UZPHhK=0se^MhPM?
zF8;@3Q~pez;)Ig<TJ37#YP%HJx>I>zNh9>b|KM6sU&|XGvi-x~-=EZraoxEztn4e<
z3QwkB$RGc6B~KhT>4Qz+2s$ST6KUKFfKdSl+j<?G_FJ`ag~a<Aj+mkPzneMj(#-a(
z8x6QgaK9QaI^r1H1e`tu>(8UD{{>GJg@F(2phZwB)Pa}YE+4!KhErZf+)jo&8NiS4
zkMqcEC2<oD9760}Kv4e#1?!?`r<8qpgi}6wDsYOErI#}W*(11s16Hy|3I<=Bd?LcG
zZu_Hr0(zGh|GHr3#q`x_-OSH(cTJsFTC_L}Ar$8V$NB^yJn=t}FW5F9Z(wK;Dr%*4
zE<w`-DPb6DB&!{Ya{EMhOe2ku<Sn}HLGw(uE~k@)3GbzuZh_^8`+DSkXQ1j3J%Zi>
zq*+n9OeR~WPhOB)jEzoNc6t-=XDKUuI&1R*<G(E8s(ixNda8Xj^{q`f*?p<67~nM<
z{}Br>G_5BnZ4*-O*wP*aJ`5)AIv16ntGHlD5Vqw_9j2s^NPUz<8b^Sy2I#Xto@ICW
zFO-YXHZC%u89F$92|HIX@fRf&MP0IDk5QqCG#Miz|1^6^D>9g`8Bct*qbjCMsP&Y?
zj&i)}O5g>th%SZ_c9Mjr(CB_Au}yT1+?;uizB3)WrWXK=(R&X?IwW6EB7#5(s5DN4
z%T#X!yia0s=K&L;2c7eQJ@<czZFZIzpBz0uIiZTkNKZhKVTPN}<L|N^6)~<pCe#m-
z7}W5mBT#N{Sa(Ph5h%6LaU(8V1uCfdUkwEuQk#judi>y=xs(?b5&RFoNm=mduzmXw
zkyeBoO?2kbrC=rF_a!HFwbtr^A2|oFDS2L6qU6ZGv8opbwS?LNUwGcTL88kOC~{KV
zM;+SCwyLks>2n0d5w%^PQ!4^DqjH(EBy&bs?=1GE!T5<aNy9{p*vt)m*DHo6?^S+8
zL~mkWAu#mcgomJyF$-(E16qJ?iJmX~Ad05>2AVV7#qLWqXNpt%4K^Zw(qu|Im>sQ>
zr$)vTJ$c~lgv1<RO5yBm`oe`UxC7Ed?5?f(dt)k&<dI*$O3dGHb(^z%;EeFFPW4*&
zDAKM)beg5T{2Tl!+hr(UpVsWX5Sc3a-?*lec_GF*VJ@5c9l~64&GTU&GJ8hEhYfeG
zP4msC^-0aWPrW{O{ShbPoroY2oTGk!)V8RB)ua=|I3Nn~3cwjtfFu2-;P4-+J&&U$
z<j*5xIqh=^T97HwK4P6FC(!Q6-`_N#DRb)R=3{I;g)5ziS?Ehsu$+4Yo;AX0qh^hl
zW`x0euptH;w|=(vj<0a3z~Ov`8mNXIkSM}U(;{vpfgH*dAZQJzJtCEi#=IUVyPqZl
zIXXVJw*LekfdeK_Oay?Uye&+`A!%KHGJR|g60Bre_bUotV#jzADsYIoh`epQY%pHC
z;P*FhF6WS9+cUlQTan;iQmc*Y!JLTK4&sXNjE%KDnr3&AM@n!lhx%f|7-ZlWxs6om
zq5!}iG>z3jj0Uw`KWA2AZ$J2#)Q_sq{k;BTGhUv=G~=bBGo|tSDJMFlNkNR0F1+oy
zbYxW}71>PAq87`)++CICw?9HVRAhXv6acPXL0AIB2ssg>+WIXQB*`nRUAZyMqv&+B
zyDU`XU|i)eaU-({<#-5Qr3I8*nRgH<*u8KWMCLf{|51Wdn7>y;VUzujmWAX_Hd`E_
z)jPd1T98JPC%5SYueZ?Pck9?^H0zPEBa+GvcNVdv<7qO_3J;Blj>=BOb&dV@B$&j7
z!MF+R%X?pVeXe6g4EVc}S9I3;2yAo^3jkEqqAQ=pe)^bsMQ{m=rOrIRciYi2Sh|A?
z!SwyP?#sdFx9Jv$rpSgMeUK?Wx=TV5BZ3I?K2S_QezyQdXJ0~hAq-J&>@C0fH=dU6
z4>Ae-yFX@V%!KENK^S3P(Gm#S0A0vAi7eQsol5La<qP$M70b}H-$9E!BbF}f=s}cK
zD-TW9{JQzN>0_fr=!dKO6_p(*rhq0gD=N`!^8hVa6-)~XR{8_FQ3H?9Csz{S%!)^n
zIKa~6xnQ<($QArqaNxg85#dm=?t4_GG8Mhoi*9lep9_zEk3<Q5+&CRDXZay49)A2g
z|8yjR{-5KB-HLlb84cK5oBJH^C8KulKQAjuC7o=Z?i9}G^diVzrp9}GprAczgzgI{
zKpmsvtd864#;!<F=>4)tCbG$P0y@4v{N`R4`Dr>uVhCk-lj^1%+r0fvB;96R{;BhH
zE9s&!@i?&^ET6cS)Sdk_={Cf`a?Xz|Uh}AU`Um6OIJGb70h0;!^uq!|Lrvzdg>zys
zx~=an>u7?664~aBvXL}W_)<%~efIj%=+)2P{5Lp02YEr4r#d*by|Nkr+hiX><o!wj
zQ8{HixR_v9uN%|&+*vuo>1MIxV9BF-Yl4W2SmR^n(zoc&ku#nf$##9=nZz@tzo=A4
zTV+X3Y%7}>iv6A+@1qw>Pq9!o6J%+_D9ebRRt4`PJXOsJW%4^?cmBVgt~##C@B0%X
zqJ)AXAuaL&Nof!eX_SyqX_XuuBE1JJM7kT~<B(<_y4h3&C5Docn@&U++vwQX_ItqZ
z>$lhb+@9y&bI(2ZeNVhk8_hD&b<L!J<*;sTxtOPW-wmkiBy?qX-_N}WabmoF((z1@
z9!dU9x~jV?I-BB1=d4Gve89FY40*R<uGbz9K{8-2&U7FcxUY3vUB&m7vSW6T940%x
zQ9RejBVa+L8OdFp=H$Cba%`bV=oi(rl4+vHhQH!-pG&tR1)v6`Cw)>FQ;a(+o;dcT
zTLr&94$M<)t6MoNJ95L=T!$rMyNo!GlgB|#FdMLuN>qUU`$=K<-vfs9nrhTc*s0~~
zC)dU?odI7+b;9BmUAUxi=1Wr#iYQfx2Wy$g+XZsNGX!$Jv1#|c)O3sXHZg)>;yXc8
z(|*;?3JL!CQGLvu8H%P3>4}Y;4N4vPby34i>y0kr-Y?S9MOm4&5`;17!6T(#XcyUn
zBlai1N5@ukaLUq-b>|tf0rp8W9{YZ+XxdFjXE2w;0>lF@V&dT(gHYLwjEbvG6d~&<
zfkIwnF$_lhIMX8Gw!Fr2_}u1ZMdx$lmM7@ZY?#~L`<c<D<%WupAl27Da@IDatbRs`
zX1@puqjNUL^Zjz8begmb3NfLCM{?xcf&}Rgb8Pr25_a>GhGfBb+^cygl@TUjBIKw`
zdIA=#A6H<)f_&K-J=tk-S<yN#m7axHvg|iiX%+Td;4)4)G?sF*x)os<ej>+Ovy9s9
zSc>&&22^|;*lxqWIn&jTCVyL%Uj4B+8ep7&kDR>_*27DPw>o%o<La3wRHr9YEUYg=
z#yZxh5ekQY>uqo@EE^6iH75m1Wn|C}04_NIRSY~zR8Ybmn>$cs5XIp0*}pt@cBLV^
zySirmUY;KWFrhQy3!$@HEUOn)c$QOYE$&Tjn2!x_pX%;-e-Nd(36o_dLcL?uET>TI
zIPv*q_kmK6eRTLgX@fobnA$5b=(L@#n$`XOXg@yj`9xT-{?*_Z^P1HVjkl!$tLhO5
zyzKWu`Y4~Nn(|zU|1cc01<U{9ZXFkv;o(HPST_>xZ_qI@@=fm#dFZ6y(uut|+kw6E
z&9HAAd_^=mNYGF^ABr-+_{Pt*kJ7akq_Ga=8*PQRGG~9X3Gg1<^PItouu5NTYH%rR
zykNsk!Vk5&&^0yfzEJ+j3lNw&kL*^f{E@-2lA*vl7l@+S8TqDCGMkcbRB>B;v-c`G
z=`Jxln%ZCAl9c*_Dp})!odDi~fbT|?Zj`!+gVU^A>O2*zH1!X?^He?Aj?LHWYp;<%
zLLg{*^K5qCrZ_BE%0+C_4PD%C^1COP3=E>2a{c%l>kf<Ng)(uP%54ZEf1sJrkQ1Ct
z+SH)K#g#G$F+4fRJ*_5@JA8+p2XLV;6_&A#IJIsHa)9=pOVVO&PaYip;lU>!KCPtQ
zhCpqs=>4(Yy`Q=JWN}o?4CUuJpM1y$Hsn4x_7fg3tYU1k4v5C^|68%z9X%E?CSRWm
zn5#@_-35CZMddAD&zeK0lEjbH5j@C_cg#ziomKKiqpOkH;w0=Bu+0TKL6x=&ZoOgJ
zebNfQ_ALwU;9NU*6`~T-QM@<q)vDdBN-&Hx5o-1|s7?p8v)wj#k%%<yq$*j3EE=5~
zLpC{}RV!OFz;(g3#bY!^1`vr+V}b}Uf^Rgz9_M6Cyw2{R2pGwu%xyS#2k2>fruP2A
zGN<iYKc1=w6wY%j?-q*trTTttZ6H=S1##HQRizw&G{`39E{nx2c#iJYY8s`3QtZ(E
zyT5lJ{U7>Vcd|tKpu*7$_>7J{7I%FM=V*G#yPIp61hf7x5)b*a%Oe&npYp{Wwz$l`
zK?^FG=LD>gA@}C%?9W7}G=G&vD%j$$Rt*OOz?nK;T-2p{i{)J%&7`f?D=}V2Rf`bC
z<6A?v8I$&BB-2$N7UV#P4%+^$MMuuAijwnrB^M31J&hQ4CTgq6ZLvwcYF&14Q)ThR
zFhI^t7^>`2ny(VlPuVOgrrvGYVWg$uf%D<eGuVLBduo?b(@Y6B3N~m#1+)=>5{=P4
z2~9gf8pp3y$+p>raolI^j*UBW*IZOQ5k5#V!1#pr7v$r%xK||>&cJ>}pCE|H^x4;s
zYiVh=F}Gh<bq*~KY=oY>|81Y!4&0FShI1;&&RWW%bWZTXPH`MDE#u#5w-{|F*QDea
z9sFy4%+WzzjrGg`X~K*=rlllO8LOUyOfgaFmHq7onBCf*(rv!AJpPIsk^atfj;FdI
z=ZOvZdck|aHxgabK84!(*LKC`W)j|Z3$M9Z$<XAMNCL{w8}>$ablgrT9Oo^AYh$qV
zoNU=9$0)$oPli`hDKNK?P?my=9)3IZTN+lPVa;3wH()xV)BKV}Cie{)31ggisOoP@
zvmzmqWiNzp{uVSU<k|ie2A8TJ^SWio`+pW)74fF+xy7cGysbGtjKGBR`PRg3;=Asp
z(k5zkYvSBlkgPldcJ4nI$WtWcpeF^{u)?^)VA~&&kyd8AXwQK~<~38((|gK1M7EhH
zjQ<sE17SuI&oZ}lm`j+YMP(Z8dZ)@^uw_-FXivR1hVL(IPA>Ud-P~$}ExW2dm^|Ch
zlSqab&F@4%+a7tzgxrA{JRqAS{BlP!!SV?%5c&R-RyUzSRtyomRn#bedyWkmA14+I
zR4Mj*En>YoQnmxU1=r!=83b5RVEH5$CTDhCd)8fa6L#`73{YK?$;H{yKLW(o&&#_f
zx$>G-&}ku8M-KV;$1lLh9pSZ%>E7YYE0lvUSAio8uaxum!p8@;QS!tH#kRO!8uB^~
z<G84yy5-}0+hDBc{D4N<$k!8A*TVmqD-ubXW+`HdW)A21PIsN*FfA*vWNL9epXD)q
z7zqEE!KQ~~_8;@bvA|H%(S4qE?b`D#XZ=X+Uim&A#EDvFZDwEPzK|m|1%-S^@xmWQ
z5CzN3RNXjHvM>y9P>4x*tWzq8yP=}TWjwlI+3LZv*Aq8Tko1jl*vER!Q>9}nzOZlB
z8e0U#9I&Bqbb=?Q=*Q#F;g}mYbhMNH|G^DF+D4}3!dS)+{%0(EQ%hU~z5Msiqi$9S
z|K@3xn34je>9{~n{i`9<v!N%Z8S)DGaXv`)nU+=ts>1XW|Kt!xh+*^z*}<Q<6SBi8
zTKbfLE|AtWVniNWtSeroQ>5SXcM21CGmYIPMgJr73^Xd_1qx|%5$c8{=3Uf)r$Nq{
z{L5(?F|8vzcGsW!T!_{2#5x+7zPU#RCM*JpIW1cKm_E|$+PW#}z2e4J%~i*ye7O5E
z@ZSs2i<$u&DNzPboLQwJP}j7Lt65|q<00W-X~Mp3v9<++st0)>31e?W-_%Ii%gp#b
zshzIH9XoxmMIcQJdgdS77J%ZpdmpFw4DOjqt3W9i9z5FJ7dZsjK*1;LQO`-6jJ^A@
zFoVr~8H9R|6o>VpH6C0D6kosQO;d%kXTJ~`^_3?mbU@|mzER)R;_KIzS&(yabH-;h
z7MTyZ{-ekf%5$9J+URHo_Lqa%AgzQJq&kd~H@PU|Q%9$H)J_a=-dHg&;B)<s@XEmg
z<kbfI-cF?o+kLu2(Jm_7*!|^f1D$7j)+vIBR>eqB;SNRdnXAwW&Wh3<mX`5J=R^r=
z_6n;=e}g5l$EL2R68h-Gw8qsaM}tVYsYbzl=T_QOb*o>~fV~igq7XG-zq&7p`~uU5
z_V}oT811%S*g*hHAcNJ>8YLG*cO<@j`4tdd$Iq*`w3aeDOslme4*r|c<lQ_fEUqOM
z7*UKvi2JzcO1%iNDCUWbb;TuptA!2sni1fRQm&;M%N$F52jo9=ojAt|4z=3%p@y50
zS$K<bmGGV2%kr7&xml9ALUuDS7vaghdRuOo0Q?peh$uBKM}<Q{Wq?cc<O)JK!^H4X
zk|BZqMKhtKVd3oX1eo2=I+C7>VH3v>RQc}K6VoSa8GOsp@;*^|gzuNfqVNg@fY;b?
zaDm*PW2#bcF0Zw!E)RQ)zu!6y%m0<06<cIcy>Q9+j3|npFfvON8S$+Ly#cipS*w46
z4rxmh4V@blyZ)u;D>1OyF&$?1!Ft;h?88oC3{ew2Z|$x{%VDlzyvA-XuuGk>MwMm2
zVj6Xe^vv4P%%E-RMxp9$g~i_!-)86&Di!*TT{w(cW<9H<-P9#C+ipY>>PLR=Ym41#
zCmJj%&(!E5D8ZEKixl4hTn4a+umB?A*Gp$d<&b6_3J%#8?JgEe4yRJnJ*E)J+ZwE&
zDk{4d2dquZ!_u_#4$P*YY;{0kb6(<Jj2WpU4Od80=_kxI=v-^(jyed{Pzqc7x%NFl
zroU(pZd2m(cU>WGBU!Sa+j(a80=YX;MI@FFk}$UiZh=mo#^uga?g0Mca!P4#qHF3&
zg>Lcb0Pz;CnqnJ|UbN-g7+B)F9NdDDRYHdS%YwjE7;i@lXYc6Hj(V?Ql%{j)sE1z-
zZ}+-542Iw7P%~`w@;+dEUVk!XkY%ZhZ@bF#A8>giXlx_sExdXA^c;z=&k_I67#Xa^
zM2Kel@|mpk*9Bt%<w9}5xSpunfsGsdSt)d-2a$-3YIFtOZPHsF=;inro()-?YucD<
zhJYPGjuaL0nOb7{p(UL`a)qaABCLLyP075VH!CjT*YYydKj-nV#BB@juf%;vM82(`
zm{~hxw=DnLE^~4qCn0$-Da#WVW-Aadfcs`re)zeNU!VvPCOegWd46c`P^pFMg8&Rn
zhjgC%sa((_d$64A<VY_L%vmE}B-OH0hUdfO0>;8h9ntExe&kGT<H`%39RYF8{x@_O
zX~iWc=Wj;p)Y2{9q6CQ8XexviSLt0pF31CYHi@a$lGrih-pij`%}Bq8o=!-)GE^xU
ztBW|5#8D8evO0HUO67|u-ne+yqan6_c;j}Vg5-v><52_29%8w-{Gz*7!$GOfbYL}A
zc(Fl-C4p#-upTj=W}!l#fY631k0WslLF(3@<lk6&mJJ<a-LiiT<J4K|Bk{tX2Y1w>
z?!W?K^sO=?O%peMaS<kIPpUzC-{L&(6bH}bT*iTYNC?F~Iue?D3mvW(m->eT+V0Ty
zOcu|d>j<g7=m9#^kK}JSX~{*9u+GhLqQ43(+X@Joe&{)d_0?Ro^V#H@-T`}e6Hr}%
z$}d`uc_2PI9`$(eK%w|G_`_c;VU?GY5O?3=2W#<~Y$(u{T`Srf?FZ5AQjtc?Vll2M
zs#x2)DtfDI=4r)Fv%S^tgOA-P)-m$7wiFS;Se5lGLS$v9#GqV-;_woXuRn6pf_2Yg
zRWe{{`7AbJtzkxbCHki~r=+^J<lGfE2Z?MZ)uGjq`$Q&a2KhiIu0`(*Z>&-L*X8uJ
zpvp5=IU{sXw)xvq?i&nNoQ;`37O<8|HHr%^%SW<~9@&kYmW--3AzQ{=iHa7JR}YKk
z3w+WFK#D`=4mz&`V{iPVuN#-wjt7O34$*5Hg~*Sgq*{9I3_RjR+~|ho5;{{;X{F1|
zpO(<s<4wN45);Xty@z&a8rU)ss?3VDMfx;ig#<se9|RcH3VGZH1w7_4a+HPQN+hfW
z`S8gJ=UaR*6BbvDZ`88&>>iIrj8G1tnExL3^-#`|fGnSzI$B9V^z~P=9U>UQ#UU^8
zm&eeuOJqLt+P7r_a3kn$OcO5wUmzK+2)UvGv!}W*+5hn2-PgVCtm%?F_Em4ui!dbU
zIq6ksx};orue5h9Wu7W4)Ax<zP;ySE-2_buCVxDbLZ-tsC@#V>+xAax?(So&sbQJU
zO<*#x^XW>*Mh_X;BGB-{g8KgsoH`GE3-j(pqr|#@vm<G4<kEkwZvGlzjY<EA_bLj<
zop>^|OZ52)pEZZs|4j4Xqj9WXv|35b!%h4CCVKe{;L=OQ7o^LaYqZ0zM#hc0lh1?<
z$PEk1iOV$G`GrI{8U9=JPrWi(TgL&=newVIkE%iU?mO>(uYF0r)i~f{iSUQEuwxJ=
zU)Hy3W=nFls4c7E34`$lBb<aK4i<m@<HCS3?vH;*Ytcc83@sCp>AznhqmiXCxO3iQ
z=d(mw#$zG+MSar}e~##9WfCl@-d~^S`_oc7drl5X!1={jT~w14i~v1QNe(GJ@8y50
z($Sr>GSSzyY4(@<{%rS3BO*-;B_4C;p{G>@Pb_>w-4h(SeG7kffS+{Dx89fA51Eh~
zX8n<O{AqGB{aXubL7uBL=e$$hQggIT`F<)L<Ts^|r@LQQeR1`g<%{_Sj|9pl@rA?7
zbD4kl;e^U`CgAZ&)_05;)7*RG(TtA!@*bV$?-ZddezF-G3b<8|K0W3;<1K)6vMaSW
zX)`=iK*;0=h<tdu_}?V`v3TZ>9fnlxyAu#OhZ}eU>oP6)z_M4jmmgjIpp)m3?H@RF
zRaxw+n#Vq4LqVo-*Cv)@TvzFGtP-Md8Wh>lohsm-l*hG|mLwS8pE{{Dk69zD&7P_F
z2SOvC6emJCpP)!`HHyE*?Z^%_DMHAv+`J`ui7N(Xr2pMn-u?_QW~q)U+`h`t<{1NG
z`!Rv4XrH<p_OG^>V4Nb830rR~FMl+LD^MdkcC~PQmgaf&m&MC+(=!^D_!gtmSDyo_
zrYIHDmlrE9OB3nY%dF7RAnmuHRKoj)+wG~_JF(4wmNcZ`G!Yx`e~GuH_O^rr+3>g8
z_3XEmG6rX}xVi!Yz9O99LxEg`X-{m5TlyqCo%{Jhxzsxo*fsU5m3@a{Z2dFoHvSR}
zshPdmma_0M`b*}K{srPi5*dUl=KWLp&v3<Q{J7xUu1EB|fLZl4$BM(*AqZ74ZjhMg
z3F(!M`@2|5QdjO&y;$%~|C9i06l(Cs!GnBt3Eg$Z%6Veh8KRR6f!0&Y^aT>PE7CIF
zPfjPp`hF#Z){jf`Qa@<ySuZ*dAbAg5vjgL&TvEHA8MC15_ee^RbE9(K7N3*ZmFrvl
zGDBuJfKJc}<P6ne_tgFB&7t~Aod&HdnRFWZF#*(Vx)x79NIH~Ww@~g_tSNM?Ni55a
z)zH#h7AoBCsztRB-t4N{Z}z6`Q2v~CJw9eZOaJKws|@|UR@HR{E6F5f*i0jEMJAfW
zfxIO3rGaifEtw|V!d2$3Sb6z8yz-lKF(6;8U+}Q&dg71wYl3`}mjZHF<CO~cAC286
zL9NENn~+pH^1F;cIerxG&d^<Cd}BDtxM_iwZW@vKL}LEo1Kw=@m*FU5m)r*9b_)p^
zZ4w-IP0k|o5sh&jf#h%0)>BU3{_z2HT7e$j3};*j#Cg$OjU~+Z%oOygQdF-TkVp;z
z|DmV+Vmoe5YV2u$@`<rFfB(_?Fd<0Lq{o-t6&r0|KJSEMk3NVaY;KE*w~;EHhN7$+
zB&RSrO1p#Zuc;B>#qaN;36DHaf!Q?{9>uV#Lm6sJgm|VL9^d^do!QDOY25LSAKz&X
zEj;gnc@u>x63*cR_nAfiq7*;#|HbcY^d5qNtG`bKBT5fGIOUcF(FdnvSOM%b;|&f=
z9^8%D+J(KAj_VfS1+;<v(Q}pDWqa^qlS4~CI&+(=q|!2;eOz!>=6*l*mHu%`=-Ib#
z{{Ft$S1?GWvE%x5;nOPQ0W$c3z`A@O?|)IxLas1Y(7VvxW$=lOkCkH#F+6*#25Ziw
zedap*A$|MVe^mYeCMrNZ@!auXVKSEVuVj2ZIkq%X(>Qm^WbWL%Ui7J{-0ZRUUW}jY
zsP%~w0i3X*S4c$tz-$T9dV(epVpzPDqoO9kkUKt0%)i?&!>~t(X1qc_=b;0D*C-E9
zSAm6_$Hj<X%qXcRFN>$M*9@zbpX~V|#;bLL?Co*O7-+BQ5Y67(2k11@p{lnpk6d%f
zZNXb%=ZE4{>AEsJ5||%c9gC0Enu(}rJ!^dx+bgZv8$$Trz4l$(HYO3-g9KX69tGdP
zuS!UWvB_K9tWpWf-j5k8Vht}B0sHYAY?|ckjTjgmp4HJA4nh|c@8QoGsBQ=83}FHY
zzChtljI}L#FHPI{d-X`eQERG2Dwqumirl@Bwfo|}q-5N-kySBP&wE?zWmekk6>>*z
zTnk3RCYdZ{Wra(f`F=Gvkyq_mv(sthP#iIHRZhpO;2WUvOowNmEWJ3in$#liL%Th>
zA!sGz6`L9B(}=sy8htuXVK~nrCS?_n`IVnaJca3kT@$J?R)mK6%Kr{5L3I1YeX={W
zV7x~^p!&yU^se3Ep7KhYC@vQOStSIwMyG>dV<HyU<X7y89sUE#4iU-DIiEVD_?J~M
zPOw>Q3#o0hfPMPm4EA1}Rq}3O<3QWB?xI19#sNDTq9=-@rM8+;joK3?m;$6=-=24I
zb5DY3-;z-p=)d<u#XX-l!T2VV7VGfl3l%p}J|@n~7oNTGdLt}y^Tme;<&v+{)$;fr
ziNEGiygVpBe!D^k>eH~d5QdK-E-okiE+#Uw$9GLTgHhNib!I{UoHF;ZbFyoJF(HU=
zvURCr7SZabBdSJoe{}oE1qa6Pn=>H}KcHvVrSK6caL5{>+7*3Hk&&>6Y6y@dZhXzg
zbe)SEXmwqf^9nf~E}UJw;Dy_7ra(M&P6dI%C|MtM6e8g~_m&o1#C2lQnSh?QpPge}
zbMS%__uYx&cmK;>b-YQtKtPy>vinH_E>Z}1L(Ctw-y5CHmJ-YWOhOARyYmXeG^Akb
zeAaXxo8RNQ$TZcqjrdhqH8SKd7zP(;+opJJeX?0z6%6f%>{TGSJ)D!iU&TiS`OQ&~
zVz;U6LdObtxyLLEWCGAX{pwr;!>+JsY%{Bx(D#x-bJ^y$gbqfmj&Sg0V)1UF=+k?p
z5)3JYudaU%1@yp~-eEe&!Ngsma+mXJq>;YmfBvZx@pU#e_qJO7vhGPvGv>I6KP|BC
zdp+G%$*?nW!*MQxjrVQ+ZZNu)v!gn<LS?Vw^jWl{SHS0eGp-thQJ=s$@;g_Viqoxo
zZ0)5PtMlKjpfOT9EyvT=_GgxTQ!v_TGP;naUhM)1M{=sAw6`l8oM;-Q>m9FDbTb!W
zAc*}ed%Km5^L=yaxpv}ecWS9o)X=Mt$m09D)D*!O-in1H(mQDGd!zBzkK<_13Is=q
zW$E8txUFJyy1mr+g0L*p$<bR&92W=sM}9yJssVjha#}3;M-|FdW`~=rX5Zy%*7D>U
zV8O`|KCC-33MM)-gIuCnW{ei)n_PVEdZ-$|q|VtPii34!X2_iYZ(kt|=)u<3*`?9<
z_9W){i{%v63arY|qL(CYOgSZ@TXwBdXQhMxnvqcjUXHVLyd!C=_`Vq}mTdKtkaA9O
z{HL@zev<f9t*JaY@m1p4IUh3hY5OZcAw?T6d(xSXAdG@oU|6crBMYy#x}_*RX95}1
z7nj{J8Xk*F$9WwYFsADBU?&nkO+-2B(W7$0s~O$igOl?X3{aNqMlkQs9g89BHTfua
z<3PoVF!dVO(!w$Aa$6kQ%w5i!2|N2Mc0to&5Ro<r_wprbz<ZCi6>w3!V7_ZA1$TMC
zdo(}mRU!SaEdfXYQ7=3DPbK5LEp<?#YvA<mKHl~m3sH4TsdposVGPAWC0?q<<?G@}
zICG3(CnMqF#Z|EAbU%->ItOO;3GfG;MTF?U3Thl)jeg|(*+#sB(fuj=>_XqCFU$&)
z$E@-uV^8m$2HMg2tpYQ5h+mpVsmb^)mUdcE@Om9pqvDPy*zHTD`n*5{(>Axq$s1c6
zDKZnK4AhK4mp58xP3wwPjNWZJ@XyVmd_MDpwy28AW;930;;mgov>zXCE-$C$xSA<S
zW1z;>VF9k>1qgZYW^ox-Z94kHuVw$wmlo1n1(c0kfTkb>mmc2e#Ad05U%;D4%hhp+
z!^*?qP<5GaQq>Lnq!T0+|E>X;#sML_$on_ri<lJtwx*2crj^25$At6L(om*LA$I5s
zg#+i*Q8e9JhQ-AD4Vu}`7q@-kLm9JVfBll*<tr`E^Xa$8Xd%qjPLI`Mzx+xp8Kos_
zdM5$Yxe!{=K)_gu#9d){nJKy9>E~pss_1=tRe~DT^M=rXmIqpW5RK@NWp@jhEb3*5
zPHp$PW&oS8%T0;8KfC-%eU|6kMHVVu^kqNtIm*~6v(5#BzSESsS4vuR73F)R<&Bwb
zYC}V$l!>OuUxEVer=DZvA2LgcmBE%kz}n0%?+WE6#zKD)8=1E8pPll{D5)NB2d(=?
zX??5gI)C5dur$n%L~hFpnVoK7TH1=x8n<%Z^GLaqTZYYjmPibMgq13g9>+w|93yFu
zBN1i)5gim#0(KR)E(wf>&_vJ)0zbC5sjL*}Efofus4QP|c@W>f0bS@TgiWAI$89%u
z+ZpkoNxVmuc<L{(8Dp?El?(}<-Sr&2`h6O<X>`V2PC*lIurO-_eN-l`6CP+K>8_o(
zI<H5|-fz36*rJcRMaAY&Likc{op!hGyPp!vp*m=~+>-Oqbz%y%$x}JKdg@MJzHSUj
zDo?ddbiIBk=`MV?In@dPDk=pH9U{Lj*}qK1I%1hJOS?ou9!qcCipWadD$Z+mN9rU{
zi{_dLy*B6$cdj+-(kC3S`MpDjJEf`apsJJ&{vERY4O99(NHu0rK>zG%(XV@w)z?RB
z&fqCmvWrdB--L17%F{5-qe=}0+RWt=7XnKe2o^g~rb~e7h1#N%yC=1Ef6dox%1w5_
zpRkW3^&sSx;k%=wF(M73f{#8$p$aL!Wwi1wJ`F=Z{1SDC?Kiss0wM}J^`V9rSkW(x
z+cL;Hmoe;t_o`_Z2Gtjug8GBJkTFJrO@1j;)=qSqPgiA=oD#Z!p}p61Km*%LbQs?t
zse#o-z|soQpzp;~wkn}idGc0gM!468hz(l&6?1NhY4#cFZjP&SF)8xk`P|66SMhJC
zB{PVS3Yf}jSooz+!`F%boBJD6`moqA#zHUP4|XT3c<y@u|GE9a_jR9aI81zdsqFKg
zK|YJKy1nt5C^2{rYLUs8*}44mS&t|#K=<c}%|(&M==$mAOW071)(dJj%I6PHOG_?!
zS~c$sWkAlsB*_{=yUHVnfm*%onUn!3qEf(9OLH^NFQl1yQZMNiJT#dSk6Kx^*&RsH
z&WV1DRm0^|w4SvGew{?z(TH!g{S%RWkj>?<swshwvMlp02>-rGeAUI5!}T6GFp9tt
zrT${$G4?6$!1z<=olJiPFB+aG3t-ls__la{U0l@5mZN>@UMAsmbm^%Z{$fvGOuxe}
zO)h1gZeP|eJ~?j!>z+B;eY-ZP_mwx(F6W~Qq*H30<#o1Ihd~~{L*UG}rs+7&Mija*
zKyOC*@3n66T{CpTv$6gDa0m>*Awn3BpK<vPud*jgZ{w4>0$ud83*19)l{SIqN(s{|
zmO7(sG>-I4(7f#|*1r@aI<Wux16A+$W95$wgj)&d=gig!6^1ab1HxSIsC8fUI_?#^
zRQ1*9*OM4-QM~QF^-dX#wtp907gy;*{kD7;Cz@QuMZI#RkOWrL95u=`vH$v;>kSC=
ztvK}V+8^_+fM+S}FY(Lq3Y&rCWq%<C*zpS_DLG2;3rYXV&I>E<qtT7B(k05ITRx-%
OKPCp|`t>&-JpDi5(B^dj

delta 62308
zcmX_{by(A3*T)ANqoun`kQS7XZcqe46p$LN(j5bSjF2utLP`)3l}5To2uLZ4FnS;%
z-E1)8oj&jLT-R^gwQGOuj&q;$J)d*#hGn8p%S6?7u7Jfac#8r*4-d6!_e*Mj5^jDH
zUT(N*44Oo4M@Vkq<^BA$?m}L@Xfa-UW)3H2Erc2b>c|4&Cnb4tzboptEqN+YOM2yw
z!DRayrXTLU@%Xr6qas*u?LzTe=#KZO5@x(&=GUWz!-8G%4?xxcX6O4&na2FB7!u6s
zF`8p33OMTFR(O)!-^?}TB*`|kK&)ky;TC5SPEp(mI;W_ddla$|xemL&wqeef>9hsz
zI!z6u+cGA}?4Hf?CT(QUGNS*_^UmWa2CbZ}@3-k_H4Y!Fpjz+mppd0#{=Oyka!~yY
zqboH_np&BFxn0=F2T>t>NUHdU_D@pG89;})+Mchk{p~%r&)~S{*$AyH;Fr0{4%H{n
zr$Nj`U}zzR2n_w_Hp^*c9sHlI^Dv5=6O|K&5y>XL$b6QX4LyM!bRKRIIx*><^NG%a
z$g>dUWNd}&PK56N8=O|$ySxaTQ14wRI<!~Y>CH3G&B~A|i@9KR72w1%yJoKr)=754
z_l8tIy}ZXw#k+io@2N|~Nz!+@?x5XF?lK0R*|YD=e7?g~#Jj>Uev~s$`U{%=$b4{D
zP-;sj+-N6m+i@5v(@KI<mb^+&?I3JZLSkXHKY-e1w>r*q=PpH3hI{BG%&mB1BYMX-
z*oj~?r#a)K`k^fhcz<t)dV`li2ch&RvqeU4b;P*Z5NVkoS0WT&{GaD2)|+HUhmTYj
zBPw?ZwVOMDu~d#(SreRSjL+-@e(BdV7TJeT!agDs!F?-P=H6+)xtsOV-Pf7P*A==H
zNiKKL+uRY2jbu(21V8K%5>0f4k%tNgGuD;_BPtNUA36_#H^**%h<S6O80TH3K-$#E
zR%M%~S(qz@`Wk2hl_qmd+VU71ll{8+_7N|-JrWVg11BgEE6GJT1yH@tt539;ae6~a
zn^wEJx?{2Wcg*{Fg=*!?oY5w<+U%)^p^Y;-!jB_QA$z2f1fqcjVqyC}^K95Kk-rlJ
z{!P+?EtFxllkmJvcgkH?eINm`i3`k^yH;FRb}7!=BumJ4H_u{yqUu<q^TiDx_ZMF}
z5&C@CBp6%QE!91i{jaxOkR9=}aMPXJv9HMRD@oQCr%DvK4O8F_<wdm%)Z`y`o!<&j
za)B)}d_N+Uqzk`Y9mE;(O^dCx7N|x)<~Q1HuEt)D+Jy?{#k7j)bdRe<DBW6ZBK8e;
z+jJGPr?A*D94`{Ij5!83hC^&irNildzqJbu9G1~QN8tvYuw|si+i5TGhap3(q!#Jj
zcn)FQT8zTr&yBWl@JpMh$Z!v}v)lX!p`^n>3>S%y{{PHq8QJ{-641)8^H3cu*c*E#
zGb$8K)Me00usiX@(c%*?#fQbN0RPJhX4_j9rq;W6uWj-|q?g;X)(u;h-osA(h~6_d
z)m(e>o}gd7nkk!=<YPWoaYW$S1&DUC$I)YXw0)JNTG~o86f{e=AQJfECEL6EtrE9X
zpz92=LKg&kvgnjkAZ)KsYc-3nJM?74^H>^PD5y^PN|o?5_aju=7|Pv-`6AVSi#t=N
z{WSNJUqYR0eBDnfXJ%h+-iwH9NYX<!x@=vC(5FNhp12ML8RzsT^Fr~pNw&75A_El7
zxr;i#i<WdT%^fPIKO6nCzJw6`;0ibA)iafr_@mGN?|1@#*FvB~A_6Dx-p(3#c_wM>
zudoN^mtW`am2wE<s{Hk^!{Axh1xe$j##MkL>gS({`}qlpTIWYxsRBx*TY-{57Q}xw
z1-$^GTR`Lx)iFfK8*pO~vR!RInlD`2>AnRJoTx&>)Vr_{w7MDACEG7SVTX72hDNtZ
z_)q~cP!O}(r*=}eban6k@^Q+GH_$eC*CnG<RrHtJ)s-|aDN~<P^USxf5H#@c4!7zC
zvZf+FaoP!okHK`-bf$G0dxXv&7{=GNk-kQ{j5fC2yr1g&c!*8Q=mpn;1$g$xP%-o=
zu8D4eO5mz4P!#no{FGwcJ>n=GY5X*Z%s8j(577Mor(7sr>einGbXbc8P!Lk1R5JBS
zjCiypBmy4FGA&0JNEKL4;pX<+%sGX&mt-f1`3<K&bV~xcMV5#N^6;;0@gzgdA(e?s
z8OqX1%JW~lf|MZ&>Y{GL9>^>5>^Wo};TG9Rf+WB<+@4TNzQe=RNi|EN(oQ4=yeBMt
zH3@}1?<$}?;o`m^xixof0Upgcg4KQ0O(OW6I0+ro9b&Ipof3;FB^V~jvHecBB<fK-
zb~LuCo}~1-jWqO6LfmoDO4754OsD!bynp-SV<i1DW>xK!y;6nwe0^Z6Jgqs{3F4V2
z>SwMiL7b`HFNNKK@u!;p-Fo1k6+qKENOp*ujt^-43M9%bu1ybp?~}JOHEPj|Bf$u%
zR756{ziaRa528eIFeW3+HxD+abC6I;Q_uqBxn`MIuS|>3*$QkjQi(+Sl5q5jyksY$
z<rCtfOM#*Cg3lp804S!&l=8A{BE?dcToSV;M{k+KPEw`PLCFBvhg~#~ao9}~ccVq%
z&U+c~=IoFA#+)XT8qsv?N`igFMBR$fcA>@Zt60m3EXWhH=HzOWHwNEi%ElMFx|PWA
zH3S((w6m@nBBJOPrsR!plCq26`|>XJvK2MTpNTA&9YbjUn<IX<8McNt5X^(8Vglhf
z_w{Ij7g9%no`97DS1Pv5ckZNbz#u)aBX=(C*%^&X;i*Ez1tc2-o9wqeZkv_Q_jG%m
z1@r&-#>2enjFaSq*gtX$f~JJAV^?%vv-X?^OX`Hn)1HT-e|_uW#32G?P(9wq!)h?9
zsG~KQf6m)&4Pyd}D3|$-RlU->l_W75EfrLz>>{xF@UOW-Y3&hAbG6Ks(?l<SQtyY}
z?b<4C@0wxTGUd6D$$pn=Mdl{a^6lAwCqnO-J;v14-U`u`(sM)^G1Or8TVg$_)Vq{Y
zbyr*pUZA<U3<L~4Wu4>d^*o8&vLGL4_h};(zVu#FrfqtJH``p3Fm9<*!utoH=s7Fu
zneW|d*;7!{kpxmYb)FKxImyH?VVs*PHSLr1dWka(?KN%dNw-akR_>R~7<0-q*0-6b
zrmg+Vq~82>ply^fFSUCgeIGsPIU+Q`85g@7)714PmDKKLrX1UIl?Wn3-DUU}@1`>L
zI?Vq(Zw3!im1JkI8W3RFuXfv1_mrh9wwZQ{yQY7^uraOaX&6Mi9`J}SJ3Tz<!G6qn
z8CEkd2F~O!;}0}8d}pn<Uyn?EPHCz1m2~T8_*}efRzBgmR)cdVfoQl0K=4(%OL-or
zOmX|nE=c1o$+6K;uB5l}w}b1J7`wgEUbFcqU&kOivcvsMS>T&uU6E}+hf7&i73_DP
zCJV7Qz1Gy7W?%4LXRYN!a97dJ)fbv&%3H6~kb2a4knQbi^fTBEh#|7A())j|qgY5I
z8!r;l2ZB_3)BZTMn+6A3f%OTlL7s&7BaVqy3ZYH}Is|UWw@5=o%=bUPq+on$eSEK5
zE6IUo-D4BRAK&7MhGN^p8PFrDywkhk_bhC?qAYPEUfWEcSyn!V@)xrs;p1`L?G9c<
zx40<uBahNx+Dspq!$S+iz8-Wi(Ft769V5TN7qS-B3s&w2+^BBr3i_$@_D_4PVW_;Q
zhfrYEp_qs92d2_nGIv3n2P>NZ)p`nwcRU7IYGb0=aI3=yj=_fRcNNG&2R(tJFcp$g
zME*4=%Mv?=>~*B?o@mJxnLjD&og`+iYrXY<^ZsEm$kS9M^sv1^GiHJi!>1mcQ3bkM
zoIWGkd#7tI;MroaL+k_!rM6}8&J=gEGK^{T8vA1i*3r$t70bTa*5@V%;#y1Ori5;Q
zTuWnx)~6{t2-fSm!XTgJc<gmd1<5%&x7NucwH|%<dZBq;W_uHY0_iWlF%sF!z#g0#
zcF!g$b!Ps!Kln7r-o7`OuBKzXVkOBhQ+6v4r<;(x9o>J|e7-mCxb%iI{4L&L)E=h|
z5`Jr0d0!3Vl^h}6hOce_EZ{9FCqR-(^^6ks;XEa$p7x^kpJ)7g)>sZ)D>9`pW9F{J
zG*ekTV@E}(4%&SZLvA}<B{B~AEnK4ibCGYZWcQrE;9YrbPeVn4h&wUr{W|XP7rS#A
zA@Q+C$tJW$B3^b_Gf8`&mA;5jmL{5x!{7j$wAM;Qv<eZBOrRaWNnY!QZl^kNtKQ`{
z8rO-Gr~kq7hCv@1K@rGOUD3Sl0F|mp9YFfC$aTJT4t*GG;34YaZirMk{yv}T5kwb%
zXcr{ywG^BG@e`fBtlMCO;&6NQs~ex&5TkbON$lie9{QTuvN!EQyW@_n>3nb9+kw2b
z%P*!-W?XFppl#4u!u6V1ttsDXVtO;@?du6jOg}bJyd56FkDdGfr-CW&pYb+v8JMRV
z`sZp;^U$N!(T{sSu4<wukqk(J%5!~mK$=e{Wghu#1j#`b*y9+U5+fF;ElA?8;Ys!7
zl-n5dBLLRL3gg;q%<}euU&_-zQ<1RU1ipMfL7)=(U5fa~-Kx}tfBrP(w=^R1Yen2&
zR$00Z!ifiN&TdwM>r6`&&w}T|igW@Qb6g3EQ%dVpKWXl>2~MPcRdJF+H^#%b$WABX
zPU0vWq^Uo5yR&4kV|H$foDLtQIkbJDJs|X)^AizVEPg2KJ{!0({$Yq_C|8(C58z5F
zrb-`JHJ`s#D{#}(P?7=3ENO2yID02Aagpzv&9wTRqc<t2*+7~i<>x^^Cm`EwkH#Nn
zTsoZ)BduzOt73X>sr7X_oPTKwClfe@=M&Vkm|>mwvLZ12!|p7J1^-0$zw?s6o`Ak|
zoeCb4R^FY+0?TSAFC?Q>fv8KA3a^bTv60FZ8&=MffOkM*qp{!`oGf(eo^eTK5Lpd|
zg-Vg2?r}iX#YSJAm`*jc14E!x%W^~OBjpbjs1HMNGQ1W-Dye|rAS&1DMRjOX2qJ<d
zZ!%sV6LOZQbsLB~T~yi&|D_sSM{;bN5!%#XP(s!C))7Is<Mt^Qz<i|`cSdhku+q$h
z_9d}7FP?iMOQ<qs5r;(*^qbHAw62UWrWIC-dAxLwdorILE6Ejq+>uafijP|B3O=%g
zR715*gvxhF+SZY2%PSd@^)MCEc|n9|Nn!c`X5`*ts|)eF&HtuSLS)r`PX^gHC$4B7
z`ZLLQg?a&TGL;$-%)<v=?GhQWsuH~-w3NF_&`V`I!QXQe7blT@v;L0^X+8YYr>=-U
zq-bp4LhDNsYx1J<K^_)}er_{poc|l`a<#T6B+t9Xm$%eiD>8DQAh&Z_&0Xc4<4qzy
zK(tq{MYp`aVHV@~!t$1HH-`(9k#Jo`Q}x>0U2<Mv*UMkN&wSOvioYX^U?C36!18po
zjKm`GvaXFsusQ~>JbYWdG{ro~3g3B3mVH0C-k#GY6imlAA^4hS2Es7%Jm{^ESKb1F
zqCi4BV`V`UYE)lmYhV2((&TH5@xGhco>btyH}*F|)+mpBO#hp$JE~5x5@95p%`5@P
zdQ94Oz`f5kgB2JFotOsOVD6@w7uc38CGwC8Uz``sj>VSKbgKbs+QQfzebYQlk>;f{
zNRXS6n;`o+`e&*fXCQl9E4sG-Pfn99`t|cS&^vh~g`N?i56Hi=n#ZVz32n?g5uBgY
zY;akBrKG3#aZXCOYDm?2|28*M99Jrk(2Mcv_?>CF9C{u9oijmu37(UeYWOJ@W3Al_
ze^PV<{NY-IInM`prYsS&nI$+!dk;5t@Z#<r^Lcu>^*BEKxAd9upPrMU*E~lI&@p<Z
zm=Ug~+i=7j`AeG@(JtWvv=<$R3*-L!|DF81tG|=q>$jtR=wt;1@fu4cOB$`9X#Fz8
zYXTxeIra2s9$Bp|&Wqu4B7Bx07si)67hM6?#FdD`c}Rtzy5|ej5U7}uld@~9de2WX
zpsVkS&gHdujpqlt{HgDluu?^48%j189t)9zlTv7iAZms%ZN5))32tQ6S-cxcb`#1%
zU*?A+S}{_aU<5K^5K~1BPl!eLd?L;nbMtu9uwgFZWD7$`r!|C48sdcFbAvm$yCV9q
z2Y!n}%!5#H6dzabr<={;jpF0$GmlgQBWV1+1-0@c_ZSzQ2p|gEk^5npHX7uw=*ftx
zgFTWK4J0%p%X!~=s&e<gYk=n{7H`oVtSEr$RE<UOHDr0bx$--|eW=~2G3=SFhz&tv
z)Yj0Phsx)oIEHm%Gf%2!Pr5x7*ltvG43EEb%t|r&wq|vf+V*MnANHoQAQ&!-Y``3u
z@wT0Rd_0z<u$*CWK7cn=2u)m{8XMR49=0%XGWw&0`8tB6^?3g@Hz5ceWADvv?*VWc
zAa@5ykJN5$blhHGQeld_`mV8?H09O*{Q2{j!}+ZaOikXAu~@N+opxquM$bW?jJB&s
z-pYMuBOCD{HahztaK4zwbX-lFSA(pVT{~V!Xyo5hCcNYxDi(g4E1b4_qKlDTm83+z
zcl<CzL4HNpWn5;qI{o1Pl^{O<7(`A8HC?gL%=Qy{e95p;HLw!VX1@3Z-Zx!m^C{Ro
zm3N{+ZFik3l}aXPMrH8`x5+XmC?)`zA1=BmNDK(2yI*xG?%BbC)ImbFxgVw!CBkoN
z7^QAMu;4SoA`&`eZ#Qo@>7J`og*>-3@y(HBP_=h(BHAZ(-$5CM)dF^R?ceGX2JU~M
z@`xZ4teqrS_ir#;)8yM%T7&Ou^`1+fb@WWF^Gm%%PIyFbP*_egHt#)F^$_#;an?2l
z2Z6XjdYWn`^{K7{jcqkFw#uK|zS3>tz8*ji#5@?G)o;wBPL1u_z54IG#!F?EK=J1~
z(C(~3<m5(Z9#)wW1>7{Q`9XT16XC&gQJhC7ifHzrx;yzluJ?j;MSnu>LC7`iZO=QN
z9uhMsnm}SKsi#rS**n+6l8;3va(kl?_ZQ~(pshMR?BEZ=Pd%65GPFTlnwqD7!fJFw
zp3_vFao&7p+>_DQ7heM!%JRUb@6Lq9KbM_|JG2S}(8OuF=MTpFr`CKO-bjJt9ydLe
zws;k86OVUwPZLq|y|Kr(^h!z1h#CaaDK$q9@9!wCLw|6AOXINa*R#r6S<QqycC#)*
z<%YM+YV5vH*bnc5%Ij@%6oU=`3je~tY1e4ESxxa5=7;2piqC$O{D!uw{0#^{EE=@C
zfKWlS8@dxAaa5bcg4_*%h`<ewOK6ea9PPII#B`%UtQ?X1y!UE;d|7et!&iZt;{)E^
zZ_4mV;Q7-s)cXoCv}~vOaUlms7(=t}`QVR9Hj{|+0bKXL{pK|~wT4dT$J*p0D03<#
z;^Ew49>LLg3%wZbzA3&D%IZn|1#nh$4~Mbfee{aC^UeBSMG<&)J2-(L+rbZU(9_n1
zewN^x_Uft1!qA}ykpV;*N&%js!Y6EzuS87ep~H}}ii(Q4ptXDppLdOd=%neqtBX}u
zUAe`ASmH3-;wNNulP}V+8dHR#xf0)riPEsvE*%nK%yGMp$N<JW4Gh3@>1r8i&5K=o
zQ4d=2*LaOV7k?63+qO=LsQYX*#P%+xWRqKtg7zo3TzBYd?--e)K-%tQx@05!V|#GK
zzfoEc3pf3h89mWOqUemJ9OZ(m)7m3-Bl>qj(xHQE0F`KEIF;3p>1oz#E#6%Pfsd3a
zzm^-^+=4E4_3i+OW*!x_8}16h<(>-q&&ghH${ux6ZTl3bVWJ!4qth^-<1wL9;72TG
zlVn+qnKuq*y0;klr%qn)6gHHR$=r^8z*XONgMPE8EO_Soy&*QLVO?0sR^J-Oz_#FA
z?VH?8S!+5hK1fQl=gbi*^4=3By-ggE1D(J1^=)l5EBYx=trN+Fj93#mP-><Z4+A{U
zD*r1vrH)Wf_-64(0h<4VW=De+oFH8Ej`8DjpG!<Hf29~>Tp`{;OP5uZy5zYT6g@Iv
z_Vcj%9BML5g>m~tg572*8=^?O3LQUyItS3zx8003I*N1%(s;=KT$xslOLKz3pro@p
z8n8{5h2?f3f5FuyM+B_%&DuVOGMJHl74Telp{T+9X8;Y?ZgpF+47O$8`Q&}~XA~qU
ziR1daI?WiKT*NhgLRYy1)@tdOt?ojjLR|i?6*PZM=k9Ke_}yj>Y&FFQOH(nlZ(J4b
zHhR_Z7ApMQThAql?u1<H0&k_Yz)W>h7bG_2vqWNd%xnO4q+GT@+RUqKDBi&t{Sf{z
z+odOLalM94+`kp~8i$al9QmyZKZ%vS@BPj3Na^}kwZ?S5oOYPan-JPN#La*6<lsC^
zg=eYlSd1T(W}D&p-GLJcY_T>Ak%h=zoZd$pM#An?1DB#Kb;Q-g*ed`+K2Pj%BU_+)
zAMYoG|DMa*dOL~c5+{4D8S&etcApoVTxMME(8|=wv<8i;cpSC&694+ex4_xGgyTfY
zBj1OE=W0~I0X*_FjjV7aL9t!6!uN0dESFVYx<&t%qTN9x*^_H&wjjLzcB&U)n~lgN
z#ugG*q%@kTSr2^S-H$myduO5s;AAf+&hU{}lXsVH^h$YibV}@Z?-?hxbC5=&85bG0
zy`gPgOiVt3O~NjKE(xzda}mx);Lo9!ybJP)#b8-~x@^HNam4V?)Ikad2@U*~;bGXO
zD&Op@B2A}J6+_8aaqVqet6t_V+5(`&eek_#o$4uo*~2PTw{2m^Bg||0(beM@+@-Zf
zl%mj%2gL?#dxpqu@Q=3@-~`Pk(`)`ZXK}xf;;Mv6o?O(yBI@TPLFt2E+oT%bA7$e+
z)CTgv-`tX^mf(?3OK*R!PJ+|9ZHq2<J;UO-#wL@qVuv)@ENg`W6d#c%*>?pLrRC1w
z;2_NcK1O}KQ|5mx;VzsmTZiWe@j1%XU&S1`Uqu<!e_vJH`}ExVt4q%xoF*w%2pOjR
z;D|i+s^=KC;n*noL-{=Ra6p3U?Ll4I!C!qJi^1!A=1{Kb4SMY*4}T*J-g<!ctx3GT
z*E-+T7-H+Bsii#4l=U(?Dl%L6gnLX}3S46@+%=|6DsI%}S86gR$@LjK7!x`}#+~4u
z&uf?_9t<31B)motJDQsiZ4-lkc5$wIlgbT~pyed{)vOqQ41K}0Uyx#V&i=~<?mm06
zW_4bJ+|9OAh?r}On#|Y>`o%g;5W>dn;#$E}tpSTPdK4G`vGiWYf$MLez7r*hy3pp$
zF2s`$i|~YST)1ECz!NHV&^dJzWgzJ5T8Yrzob?K{a_)hl)`PCl?`BORC<#@ZujDIv
zwSMA_Cp;J2{8x11aVWOW4eE1~T|1=rF$ClZpOv6@++T9dT^=JpTAI%hq_#`d0z`XH
z_rsF0Qm8r~!k-N9xvc>ryvYmbI?}MEuS(roJ>R`xMOl(F81z!Pxs=xptsC%nd`SC}
z>C<5TE+jeT>qGL}%iZ^)3o*8-8u&~?TY2KA+rXM@FBqt&+wLjDeV6H<flSrc77m2(
zCYw5-D;_`9SGB)Dn$4rO5!(tDBn(gHRh@@&@si-lyzgqUKd>A#N0)l=#@1u+J@_Yr
zG%a2a?MZSit15LpEBqZSvl|aE3Gnd-A4Xq*{O4sGU7QcC;~ea$7BG!<=03dHU{VyP
zeXg*csO-f2I=n5jmx~J<7x(JbFAj;)(O~bwagJQ#X53YL?6wDpc+6bi1IkI93?0?%
z1a92z9J2trF0!oh6j<e^-0;d(vm&6M3f$o1hylC6r-<K)mN<uBFj~wTwsHo7^%W!;
zQIy#PQ}&A=ce~m;@3xyTGM03mQw-nmJnr$Fsv}BbBUx=BY3xKg2K1Ec)_9Ozzss&;
z)OB$JDOc`5qhb1yHzffn$o5|TB=O=|d@+T%5pabo2rOrE8AaCrq75x9quGToke)E4
zX*Lw48k(kIS57*s{D*|5lE_eFW$@G#2Z>q^?Ij#CIlTV+BJXY-|A#r+pan>qV1!c9
zZfMLcR(}2)<rR>J0#(vw;HrWHv-v=ADY(PVF&+aghW!v*CmhOsqf0pDaM)lQlui~7
z{6BT2{fT&n%!n9#=ul%5c{GEhh2i<h^7Mc7I*aF>vh1h(g0RSRT7CnHlzS(v(i7c!
zj6N@GP8Ptw=i;3M>If9J<{K`=k)I+by!1{^tK4xEEy<RhBCBSU#VaG49i2%~Yn|fd
zD&qM#dBNANM|4OPzK(r9VD@w~yphK6R1UEK0*J5k1{IS<mOKxyB3vWH@l7v9BK?r$
zR!3_Okph)AT!fv_F#So)sw7Oj*vK&)9=;3S?H}JBQ4-l&Q?;z3=k%oA^P6-MpnY&i
zH|ai$d%U($NVJu3{s+#8rQ8#7c=1K%J`mWHq8)atf}n$-O??fJb>=<j+m6;${i39K
zw=-QibC&pkocf$%wS1tFx~UX;{yV%1)Y!9SK|YOT-3zLAd2@E}R9!t7>Ur}!A%{)G
zE+a*yXf|{;W`MYmh?N^lF`T3~pQg;-M8@)A?tb#4d^ykVFSixcJlP@rkyE6@J(8O-
zU>`TfvSQAi!S8&)ikcOr@3^{SuZ$q8A6HhH4C~*xt`bGJX{O?wQujqz5L|kHu!Po(
z%9W6olth@@h#-t1@KM^NrRi!8^xdD*l_al@qn<AZtAk??{G#r)1e0iiWw&%-nTSsM
z=UG|5uiAqD$|F~fvY1vWRGaK(TT5D8-#QF~yk5$j0@N!jdMLjB>J&+qTfR@n?huK#
zL7L>2C{^*1Ot854%N7JxuJ+4{N=IVyx9QOU;uUh)y1|Re^GV#nGh}UqeNpFccJxMs
z6cv_ePoQ`3x&ikBF_w+@1<>)vRS+$&8JqGOhrAN`Q5d9pXEo1BlRNCwKoAq5N`ib9
z<-V!}K*72*qQsWC$#CddMRZ9eSF8)i@Pg&We6+cr>|WCvJ@vS|Mvb~I6u{ejXE_BY
zF%WyNhUDEO;vqr-k(DMJiaOKI_n&?i!z-iMPhjT4RXrizw%dWrq_VDBo#YF%4iBYO
zK9N|;Rcw4SkH@?1)qie2y)s+#|LBf5F$~WEK)Id0nN;zobm1N?cPITAXAojVsn^LB
z$xcLdIg`%Qh4|Uc!>HwKWMq#HRcikxxD=@0T>)u97QCGA6NoR+{NWGjwc-RBxW^!l
z@j|)+MWxV>&$W6nE=51$utniq^!v!a>F3>y;ATnE-k4hDc}&<nrGssUhymrXZ2+WC
zoJz#j6uKD|NOkJ{8e*~N3jc^Yi2jA8Zn}-gv$@r;D=X&FZ4L>_luaW!^HkC2Wvg$~
zyVYgD1~1TTR5{%VUcSOz4PJel)=1-m=q!J`E6ImQ=kb#I+^BJOqbC1DNOw^Ge=yt;
z`LVVA+nb4!YQ<BS2!)0aX>tJc?X8B>Q}O!jW==~k?CR&J{mYR+8Kk7${f*7rCGM=E
zNoeZEODnGFz-vu3ULT&SccjYjKAG@HeY$pYnN}#8pV|v&$?x6qYBp>86HV8J6u*%R
z50lP@)_!=*-0=>9IA~t0Bk~)_ohS^X7y-HHJ6;RvEqcq~<%z}D>@NUrshQe6TyXcV
z9MW^nQ(on3O{6r<S43F<F8TI$=SZ)1Id`4j6FAMi_{lWEumCi4GKGBBe;|vx=E8rn
zlgd(M1JOfc@z$-tTgPWaopWO@P4<I`zj|qAZ_-^#as!o%qg^wXDp6xa+&p|&Y$<ep
zK@=;R?ZNZn&l+-zDi~OJ91Ng?YsmM+!>z0lk7UDhC={V}Rowm=0bNG0Fi;3+zEi!L
zIgr4KDdY{l0mDZyI|;UiXx2+^WVZ>sn#C)hVE(}VNF`Bg_Sz97S63%dhjd15ng}>i
zyGi73ie&1?aBV?kfZUie4bAe0w5K6#4C@JjXgJ=p?^22b!Shj^(s8rXFX`qg2=KX&
zt%+WE2#vow9$eSa>?@c56yeR3wKZvvquC_>d2szz)Y(NZW=>xxjN%JSjFzFEUN{pe
z;L-voO7g^G`>8wMNdg?JpXFncQp|I)a(!kGyW_eb4TNpPVonU!djf?1ve&V1K9(MM
zrMFa4G^7LVON?kmv<vbZuIM5tmSd<RHWa2?b{s+w=bCI!BuV-dRGbX;LtgKNIyxWt
zz2!^Q-DX%8y;qzUP10cq(&;;LmdW>_3?9II4W(wwdT&3fz(G^^Hc`FYRhid0ZH^;;
zuCA-e+A<0^kG!Y*{b<qmawJW2_TI--c3az1-d^C&Q$Yu6&A6gjnw_=g<B#qWR14YP
zq$!9nEYeQwoRF?p;arfe8)9N&RJ-+))~j;?3rh3MJ`$<QD;W<tS@LuP4oMsLEf;$I
z!>1%v&)g-Yxw9!hWy#fCXzW$J!)6FGExL<Yo{*I+5T3*wq0W_q`aujZ&WNay&{2aM
z52FD1VB|Eoi(O*u%({a8+fOf<dr|qJBvOVh#ftdMoztGDo@HM|w4aLRA6pp1lxp|l
zB+r!1`M$boC~#Qt(iT4H{nYUu0we4NYJ4zujW=Vt3w<M7^hjQgcJ#*`dl7~)%X2aO
zxt|CtWO7>oB@R_JzWbK86Ln=egYbm|>q2MV7V{;wu?xTJkd&SyJJkAgn=ExYC56zO
z_z;kTM0j+SMm7DGaW>9-x2o!2a>$E{S`(~=z-S3FHPPD}Y;dUwgWJ`7edIn1K_F;r
z0+D22kF;{mAkVGV>PhxEO-ZgulFy4wQ<BX4_P&fhMZOLf7{m;9nj$L}@GP~s3Ljlq
z>1GeRvGlfn*SkMO6|&g<CN0-~lytV<UE_SNF!_TIFkC~aOOG*IR;E9B--vOQtYliD
zZ|um!f(k{wxtzhjzn=D}M3C&*sFfGmhmqe{VVv#Z(vB`r{X)VOuQW89!h@)np@b!#
z_TzS1cL~CExI*dCnD_aB|8z65qF`;L-+Y9E8=4ahIsi9P+?s{3rD&d?3bsT(%Qo#6
z9%#ZWkb^`bS}vrr4S6oDY}*ZooU1}XwO?oL4~=cYEZNK?jd-Ube<Kr<KiG9Ci}1pK
z7otPzQ}FtQ<&K$dJ<sI}wzGN5!N~nz)isQ@^>~^!9-CxvYXj(bSUgQgbuN~Mef0%*
ze`4x`d<#R_Zg0Rhe62`5>P(F0_!TdDri5;bPFD)W8#<6soRZLh(aNUU%t4;6ww_I7
zT`jP1{Rqnu^$@i@6MpHr)roHL`mTJRcVUEJx%Pn2pEo-WHX0f2(j^|*OZzm;fcVQl
zytPg_g>+B^Tt5jgubJ-_5^ga$b`;~39ToJbtr^>*D4)NKi<kNMoY<%D(8c|tM)`9M
zvtE>Wyq$c3o%g=mqPu2BJ3Ec1Mq`19<*A3==-)mF(tdOPJ8%_#vh((cgJZ2x_}2=-
zFBzxwOewiE1Z{gmel|N(sy0=r7jtI;m0X<7yEBV`Ur$4WpkUKN<ghrF;Gkfh_?(7j
z=_(%D4O(HEwb7cd2B+R2wOS0RF*jcgqqyUo?>7<K(9rM}1jKOo|GD)eYs3l2)xS=l
z>^J@F{V%+aZ3hdjmb#>UPzX0IjjCUBhIJk5(wb<p7anS^`w;R0LyIW=r7LcnqXVd$
zbO$&T44)$oBy#E`I22sD+<Dl3&Sz~x<fZ~WlqdOUAL4Hj?nhk?J|V0Vyk!F-FQ;3y
z3bps*BN%m&9e8DKI%&4X<m%I3qV8~`%!7Pmns+j(fkUiOCg9=Q$$G7g%q{2CP5aNH
zmF|`*J(Ej*hb;vnRI~n{JDBJ@E1g%^2l4^uS=ZP<_2f9_g0(N>Nhf@wDJRm^ow&If
zg+vy<*VD7j-vF{7ZpN8nPZcT)AyW2l!R9(cgt-cgnKAvK5d5dRU^(QPAYXrX%i>MT
zpb7P8hJ2}KK4X=O`{kc3Y>Rr--!UjOlQqsQ4))YO7g-?I=biy=Gd>sl+;Ty~C<QRG
zmJi=`ss8S2n<26Qvu%sM{n)9h&0*1d^K!liUMh5<E3C?SBz2*3?P9l`m1Z}zF+0}H
z;7=sieUp2(OVbbj^v5k$hTe-4I!mR^l)avlP}``tC+z4(UOwJ(n;Ew5fUqYk-qxU5
zfTmKy>Z#TlHB+xh+9+YN;pP&g4)+0kJrrS1^p)w2Qh2-`j7p~zG^r`xsU!(LXL*o|
z_}eLj{wCR~e@gKWShMWRUTqL_<u~_V8zJa2VcXM^%uTAflGvQ;4C<TFm0?2%O*mZe
zTOaU*N0DmhL^X~<b7ix~-&{LW`8`pn)z%3g<cUqiUEh<}%%0aZs6GYo89witKf~f|
zGAh;b#nTtx_=3@zy$S6m1qH^PL_M|hDE;7@{lU+Fqq5*K%#$J|ytO-bOH$?~xa8QH
z=;L0haC(V-&<WcDpn<i-7tEO%7M@oE)u5aLFVNB#lSEcis^Ak<SBB5^_1h~lg)Qr)
zxpzXb=ZjRpQ<d${KMMe&Yf^n%Y9S4)Va38}xo*F+_PHXaWNX{&G|5ZvhK5H0)s>?H
z_|Clq-s-DB-jFpvNpbU!UO!!F$4VC3=@+L35%MIG;)BZPo}&?=4~q{$IrChn-)|Ca
z3XMTR#_kxYm5g77KfUN~`7)Z)z!9)*w}xpb^x`!%y-1v&-?0QH`&@M}308bN)@I%*
zW{aUo_e{*pm=3tcy2Ds6f2&yM&!U7<24c7xMl$2omfQYZm2`)_*uKs?Gq(9;mRohX
zt=hm>L2)5qM#kF!_4xBu$IR$U924~frJ!I?T1&wvHt43d%Bb*cbH(zdNq0&H<UpRT
zf#G@f$UtD>?!+SCY-Cm9T5lo2uTm3Y8mScI5thp4urUgHEa%B6yZ0*>QP+Le&LWqv
z<DrK(FLn>uG4voFEsiu^?3u*>_Vi-!cC_Ohhn&ckvki2#`(W>OP+IK{MPBqwoNjv)
zqHbiMft0(36ve-yXS(o`P3X`qthK53HRSW7AyqFe1{AO{Yd1Un3EIipCj5pqf>qZf
zvO=wN`UTC|?Sm@`_V0tZ^V`&cyuHM>nxPS5C$d4x$L{cZ<|X-_tqPq$@nmDQK)f>j
zekj*V1l{gT8WjifF%PLJ9jwk(FWAK&3Wq}6s`u7SHcp2dJKJU7YCrOOEAbcd6}x^K
zZu@<$6L6cCU8wDlHCX*U!v?m`3S^99*;{VBpITmqnKf0Gko;ZS2d`+USQ=5=Y}$*p
zFx2kd%DOwA#OG@*N42jd;ov=7Q{V~aZL)cRZI5Zjk)^+T5rt@m({Zg7sJ5Ya!WuTq
zc>8-MjgpZImmSU*q3xZ`$23O<+yJrOUNGGO5FO^hkJvWuo%YVX7ILEzeJSn0@5a0I
zJB)Nm=W{_`yfhihMHBSv^BMK9hMC3gWYEO4@#U5wnE13qrNEkGN22rmz}01&R7pu9
zw|>>95FT>HUA@|Nc-<OU%@LVA`JAL)5aiSo%XRU`BOUbdqhe>phzi=La0WOV&Jjrf
z&U#e#kgtsrm^#~LvTy!McW-&Nq5<l>*tVFtI>@Tp_3kG9eTCVyu{j+z?L6xZ8yVqX
zkexf)2RLtUeD>(r>yGjJFixJHbaOW7ecsQ9Pb})@F`ZZ4J1I&hmu1PxZ(t@r6U#s7
zIc#pwPSNlQ*Y-Vis4&jk*l@6FQVR0!0m34un6!)<h=T2<xnjONiQKiY7rRa(I`M=K
z!tBD6OPN@YASJYqK(=@%?%J2vL(~E}&G01cosw*?ZTTyQhFS?ncei5P+*=d+&aELo
z3SI9fTbW+MRMk53{xi9=_?M;MudY0=zNn$cm6oR|N}bO5{T~ETCns`#_I3nz!!~bR
z^ug1w-@j9}`P@R~5pk8pTun&K1Tx}gVz;s5{SK9;ny%qJxGpSk5<2y3by~}@T5gLj
zH~bW7*~`03eRrlUFERG5t#6PVTvGf=duE>Myv1VzLms<*23_yT#vATF=aNecmr7`Z
zJ3x>k3(Z_%aUGz5Y}PdirT+~~gRz|jz8xeNq2JDM!JWimB*SV>+DBSfwFBJWMs$~P
z^S<9s9Z<&ZU7>tZQU|vrS--wyr=`rLm`cpP$a<~(!)l%v6Wo_o<6c!gkt`*}-%_br
z?+3z1Gi*%2CM)hc`4z_DhosjM$wc`x$BVO*0tdz9clEc2s>15yr>6nP`@CAZ)}1H)
zNwOWoV5;(|9h7~)w3B{_=2R?=-p0nuM0Rt6olv<;EJxE?K_kA971Y{!)&6WZIXQg&
zXTQ{Qla-sG`g-r=o8PB5xQH`fzb;VfyM0@aQB*E=(q^IerGQJ&Qe6G#&&xz-f&{`M
zbnM;(LZ$a-3cjYZ(WHR@jD|9XPvzWp7ZN9?xf#!FduS)^$RQ@^VHKFv-4Z=HMLWcT
zia0#1%Iz$4sjDs=n|zGw@1A68HwYA+OgTUNy`eoLy5(${-!y4bUf2$|A;am#DZ4*&
zX)S1%$lrAgI5XdviUVw7l~gXR`;>rFj39~Y`%R|StS|Ffl?6b4_ar^$Tvw&I`*m?f
z<X&_9Rqn>Q`2%bKi|PF7p-AI>eGA*5n!~%tHG6H9)*5TyI(O_S_-U!b>Ju8cIx@R)
z)F*}~N{tN=wa@OCL8rL6U5leU&vrX4Ix#T?{STk+8N{hP{3}Cw6YbE4c{kn#*;gw_
zKFH1qz*Zb~_yJWlt4qiO^GI`zh%7glEEHk0nTAb_kyk1&+@q};H%Va?mid|me$PX*
z<3Y#-q5^U8+LUjkmhEwY3ZdHCqoIQp9uOz)mK?RVQ4cNNOxz$Q?ai!!`xTjx@PW97
z>nAGB*<0e!3Etq5xL6V@DI|6O@xW#W<rt?9!DRCZU|pnWx2HN=ciA@YGl1;L**PCV
zOnN;GMQHa9?n@(2(+(>MFB3Iut2B=0$$Aa1*eVTjwmvml4~jKKCO+MQSdxZFd$&Ds
zy^@zqS&E|w9+Yb-WPT&)hfD7e*5ZgI^+}m>E=-FHSa7?qh?#|M;u`qUgp^iho(xUb
zZ<oFUzP$f9Xg}NZoUPz+$fhGL<m%$F$MV2k1#gGwh4FFQjZKj@+4-mYtD~WP1)kl>
zVKOdhUt~KZW~w?n#@a6YKds>=2y<<K(Ddfh)ybEelO8f+V#-&?HdW>>H-DD86@Iyo
zX`IMDIeBCE>m%b~eU;KPiH<;T|Bdl6rQ`N)W}s)Mb+Qh(bDZZh>aK{}g6{73tLzoP
z-6NSU_dGl><_)f5LzxwhM}LIj13dN-gLj8IaPH2Sxd4Zhst*(@i8mQ0;umUemfrue
z(8cEtQcY&!a(GD))zp<Cc}KSV;d2o08+fEpvs&CJm}DQ!6}`q_IjM;=kpqo2Z&&Ub
z0=^HflOQqR5U!8~T8Oe5dJ%{Bcg+RtS@pX^r&HyYLl^<!X$&|539I<bARll~0U=FB
z8o_N`z=lq%eLBY-vY?NOsWuRre*tzIJM5MUP)r<8=G^oJ?x;A=DP+PY;$Qi#1z!4?
zKB&{Q7<1-k(sNIYUF;iZfW?0{`d9@t4D5G5Jv83d3|QI?n1yLJ6|$9ALl9=JD_3)?
z7Kzb*9?dI{LR3gP@MR8}{`SXs6z}L+Gx50f%7}nB^@c`F6Umb8z2ir+ia(Tb7Ab7@
z$%Lz~MVTqAM_(Q~!#W5a_^lK(t+zHj6rV<DAZ)lf7aAEqOd>R2%W5Snk(2|fko8|g
z#|veAuLS?wOrW{-cI~JJpyCr}QfRuExi?OkifCM;_Bi;~Ki*6mh`$+;5_{U1%0-gc
zdP#aTtD=;QXmY*?QX<bIP>fQPC=@Z?{S|QmzM=e`V9D;_G1b{k(RHdW4m6(w|F&JP
z##2*=5=Xv+2jy?hxlq8p^^Vy2^p<vf(6iSc`{QRn{M1FPFWdUQ((7B#eoUr5lWRx6
zR^o0VEzgl!ng1fGATDyN8m%f>NB}3v4qlEV@7+C@KwnU9nK~}O(M2&6c}s&L;a~CQ
zd9%jh>$L2Roe%Xxt-DT-4PW0{SC!AWG<6UjLNQsR_N2c1?lc2bVT|3&d@9pi!aLxH
zn4_PYRVr(Fd{wc}8mTN5Xl1y_=Sh+L4#8(6)o*t@ujaHhwF1GzR7f~ToMTvYd62u#
zdu4DYJO_09_U*U+^Fhv`oDE?VB@~H<$k&i@0sdXBdxXNYsrss|7I4x(y1IED6Wego
zy}4=4hPVBMjpD#;gH;AG(Q&M6f4x>*%e%o>ZgiUp-+WbonWl@K47k7sV`je_-LeM`
z;VKw0Tl0M(A4IF{3wf|eTLV=#fqIw!*v7$GdN>NQbeZjQltXd52Ka@$gv~kPE#;k@
z$m8;-YOXY#Ik%p@#PhJo7X&Vwee5#@<`}>7X6haXfC8TvgD;h4CQkHgKVDB<<`A}n
z>q4<Qy~!(zXfrgo=?VRw1zP1R(~Mg2YbtHXj07Lzvjo9aB(}WJ@<oRu%}g#Ax6!6m
zvsF3tI``PGHC|Fv6-|7hK_E-0Ar+*zbjog5=S@$$g=6bge`k530`~eFXvL7X(CJ81
z1YjRtGvFHWJ}n0lz?64r&Tqb9j`W4W(Mp<4SBB^s>mz&Am`wzHz^OMkgqt=ZthR9D
zgv@2TmG-_9)eR%(k24{Sow%Pl_iUo0F@*0UFYbu$*`8cg3m~jM(r$Dlop(JBpQ72q
z!5)WKfcy!it$O_rd9bG3Z><shV&t`{KsI5Q7fdI7ie&YEbt7Vmq5-^5ufUd5yF^l{
zLHl|qTtA@YwqOI;go~()M1Dcy=(jL9D+F@RSa~Y#@Qpy4ZcAL3@K@>_GK}rx;Ns~!
zAq`4~JcK2oY3lwW|AAFYq$TgPWQ)>9HX~=<GH-@ki6T?|Y*6c`1LLppzo&&C0gWc7
z4TBG;^AhSA+=)A4hZkG+%+MM?viRRJxT|bxys`+uK3LOer4mz4#MmZLeb_^Aybx`p
zM>5~j&=4rZ_BJW6Rs5?GIb!XNKZx4RdD+(pgHieO)wEx0P;^hy2KJheeG0L_h*CQh
z-CT=V?YR1rRQA-#qrE#IObhT%!T0#iiKus*>|dzV=o05*j!to3za}=Y6=f_<-w<?W
z;kn?X$4@KK`scVOMSeAV`E82wYiHW933KO14fXXL6yGN%PNvaEwFlZy7ifk}(1d1K
zs?;#{^IzzEN_I#oW5hL>7z#khQw=qL;2)nO*%CHFS9HEG3CGIG1LcV5NrXJXumSZs
z!>XosAEQZxJdLY^gWry}8P>j<+<~^Kk>Aw6=jl@=i-wWhy?m-6xQg*F$)%_G-m5DR
zM!ueg<t95qa~VFMyZ763vGl;&hK1MH!ZYj?--`X~7pEGC$r{`LHFf7fmpRc|1rtLa
z@!^ihg_fr)_Oxyn=tzp3#S7rSZ9;CZwb2Pk1>|Am41?CX&5HyyXGgN@*C*fsCCqHy
z{^y?ta6-A_j*d%uvQpURhK2(7#Qks;B`i8pEb@n*`16>VwXTgiYL)UDq%%(qhlO_M
zRxa(Y(ax?s9iO#iEImpI!PJHOKsQ4!$+-Hyi#>t=cQ)|gLD$f)1gXtux(k#}P}HvK
zhD+-6$O#WV^Bh^;pB94%giERF3BP0^#A3$W_fQ#xTS#r<daV*gqjR(EqKsm8r|TZ+
zQ%}3YK8VTnHzTB@Um>pkX(Ms&n)3Z|eQHcAMclI-2>Hjil3fEH6*O)a3{?`Xnb&0+
zK6B0ZO638xjd^oWm!aEkzl}JA&4+5;P?_8%&Fzndzb|-#y{-Arw6s{bKZX}JZSNL$
zDrMM?;xA5cF7-H37kyS4;4WCyxGN^rH{38GPOu|)JpRxy`;Om6At+PACX8Z<BYG`p
zMgPrra;LK&S>ql>Cl9LO2+TJ;{Ww*~7J>b&15O*nKisW;*riN5&$U<^6W^$UanoH$
z35?z5P20D%u$JDt1KIUeu3B+^pum7{cT(bFRE)&B*GC5Ns0eq+TFSEuCleb$fwj?;
z<bAv=JLER$0I~2zcsp`Hz9pbTeu?*(dRiyNjwm0jz4DwXs!QHYj-KH>xRO$w;6OA3
zpAPKQJv}!3A6YlGR}}we4U7iw<Cu{A1Rp=rvWEqZeZKQAV->o4RV`92T-*6#>8mA!
zBkH?NL~9H`Z5u^4tGspD(|qzoZ7I}QXp=SDMIofVf7a)l(mg|b{X?X@K8wws)4U@j
z$o3V`jOVXc>;XH-^l1vw=p&#N$%MRxz-TmWt@HW;;};E)g2-I5)wz(xu!+KO6^3;~
zHqkcP2sUIM!Gyp_&1BD(LJP2Mz^n_fHIbBk<LKcgHMT%d!c-v1gzyYa*-z*;x9`$j
zLETZ)`Ta?sICFIa6|c^9B(Px(Rz%KtE9XHF_^|F2&Y)_3C9;_UN&{BL|IpHu(>iE}
zP~3^6`JvEVV2mpQ&R0#3de7z;0Il>rzWNd4A`VtgYAfJ5j)8wu!jw1-XYa$PAwJ>1
zsXOCh6u((W`u3g(IZ+8NKPkJk2%0{+GpkKi*k~@Hc4mrfhG~ae5#%V~CbCX{BUoS}
z-DR>dRI6hA!0+P*{Rfu5;@7!#Qqtx!A!}?NmO*UQ3dmQcoHEX9`2p@?yE8?2U~rU7
zL>I>&bB68jN57n+visZFhkqL6A4^w{g|h0EQIO&_F&x<wi|V+R4OS#QPqLKr$RMWf
zx(GbG-gHGqGb>0SaZ;2YwumR-*3i70sEa?Gz@-^eMf-;kJ+=E2>)Gwu(bS4m^Uam{
znBVP7@NW0ro{vmjTh<R!Rl~A9sQi@zH<3=k;&K53lKrn9mbjb1PFjQ{uFK%uKls}D
zOvF6rlEFRL)m(GpD#c1ltMcXHNpprRB7hMk4Ek2bp~Kl6TKq}+KLf|V52`f-M3~<Q
zjc`*07$M10X4r<l{Aj@iK5wF$ytpmNge8*9=V4sw@UxwzGTzLp85uF?-(Eb#cfL)F
zC$r13t^#DM%CoqR;UgYDn(-^z2t&f3)Gj%?zI9zwL*)_Z6toKA!qf!c!e8R;=+YIg
z#ISbw*eK04N3mJ$!T~>ofA=r7Sg4mY_d50%8kJ-6P}cF15y73x*0KqKU#f^R`FJ-{
z4}BNzNQ&1~Jfj|KX2&jqbg357Pb4CyNCVlh0h3h;i-X&^i9!=lmJ(?lKq2PLEq#*{
zM7E{6rTkJ=#!IlI>IIQt&-qz4^dEU=k+Q5)u*0knG&D>A<++kY{;9bCUUwdBP;cg&
zP4V7zCQoLn`#>@)Rhlvx${Hlb5Su?j8*r`!6MIKj%Q@cfLM7ey=pYlV7EFbH)zO&q
z$J6Zu9b{20_%e`*o3iebZ2bf5T132jtgbZ_mu|v{trJbCL^Py;`w4Zzy}*z@5OJhD
z^DrP#jlLnN5;Ns-bb;>(!P{8|)0IOOj)=SUr$Ie{QIvjG4S)Bq>Vu~i4QkCqm^Ak}
zt9wk}#N0yLb_jZP40q9t?`B*rN&U7}89X75G_!T)vN^nQhb}j)R9<O9{HTVNBsYn&
zDNCvd;nLY3sy(5@XI2Y1#+71!^iAOJJ@B8tlKq4+FLNnhLVWlkSC8ji{?&_(p%k9i
zQQvv1f-rMz)@<XPH~!;?;%o04xp!UM=I?Gx&a<Lu+FNB-cS&743!Ebt>Qow)xho7_
z?+>R7|JGf+(4{r<?wh%Zz-Geq@1b;#W*wLp?dY!1ob{YOj0(mv4oHl06kZUBT0;Ce
zQ69)&LyNVIEg^dCOXn1OZ$wRRt1r>PREXv;soMyB7Iq3Z|8?m7fHQ6pY`wrXTI@}5
zcn|o0B5r>8|3fQw)xZ;AfP`i?1-i4Tec{8qc8qUV+7A&Zv;h@Tb72}p7GDf4T5SIQ
zB#xq+UIWxq)!QcQ{|vOWIU-+^y@^6A1B57vyWy{a3c3!y;b7_?Kf~W5uf%6B#q^@4
z3x{0@cV0OzGV3O8ENuQ;j~@zK`v(_9RHq&LU0(%vv7_7p|7~;6aEtXO-;o6~@eyMA
zxf2tU6FdtEOXg0h24|_>84h297%c&!RUGUDF)UV%zFBRk;SI);!ek|5BIGH`sY;`g
z9@O%!@k)Q}m3F2S&7(944}z?UC47Q>b$Mg2BAIUcOCBlK9`-@WY2prS4ryihPe!=g
zA#=MJbJczlcKP`EF<dB0{-<h)H?Eg&XJtesKzQ+7+6f(24VmKuE+@ALL%0IRIIcVf
zm*^@pvgA_`z|Cq_eX;CxBu*JJiD+gWZVd0~>L5EI%s#Z<Z)l5U?z}PTvQV>U0s~-t
z{EQ4$0bg}eb-~-noNCX>f;OrDW9qHrn(E*G@dceKA_xcy2ui1blp-RHf=G8ujYjH>
z5>d&~X%HgaLuv@3v;q=RLj~>;1F6YI{LZ-V_vicD;{ktc=e%B5U)Sq-T{}Asj8FM?
z2rvQO1#!_S#xFrer|*Fdp9Xykwt68eSKbiqZrK?E18Tx4oe-O~IF)NocJnri`_-6S
zYPBsN2}StcEzYUQt3Si>WB%C`-z(r3qNf>hEnZC43#+%u@jQQL{d^z;D!Bj8(y4n$
z<sI;UMgE;~iWJaPN(vMIzi+u;JVU&L@P;Q+bkK?1iuijz6?)8y=Kg2It%J6Q0cbma
zwc`Hym86bY(e~e|Nyr6%EAPZ%|I_*WVmbCLeM)eKAE>m=dHwV1LvoA#v?6hWkWZBA
z>NX6AiZ!hk8t~jRq^wLF&+ArL7H!zsvq$c&KKdq6ZDfZAzgb;mCQlm`Z+q_dy5pmd
zcQ<Ol8PU>zeHysde?uLh#b1H))-bF8-d4w6SD*TCm!^wR22pMlxykDI652iQ|J(b_
zwV=`Qt~YeSu(LA@6de%VyA;6eeji4B?zj;H_4>DDdeCIefQZuBF1Y1O<*7~?^gsDi
zMII+2#Q7V-vZ*TIUd4dYPS^>Qo&Jzj{=93@=WxgSS9W<$;Ji($luER-)=&S91aGcI
z_kL{e()U-GW&BFfOMT)UJuCUY6`OANUs_Z-XBtg|i+u<gx$<Cn;qYXA?nz$Sr~J=<
z43y`jm8J7wLPEi>e9JCdpOvAi>mBm6<WqRr>+$9fz`@EFo#QduqI4$ux%2m$_}m`;
z<U4*@#w^i)Aa8q~J^vZY_Wa!!g~452f)VMSu>nD5&TrS>fVrD+6tY)dP+IVI)vfn8
zZoz1z8i6WNq0f616{xy0Al*kXL;qy9xs!(7BC6@Gy1IIiZwdSk0##gs)H~C`;Mer9
z!GxEW7vSZsGZG5G9HB6p*nOp$VJZRQ(h^2G;-C~$rR+fn?+AN?*`JMnz;>{m$K50h
z-onf3z&OPWi?%!tOtrlcZT0|H5dRE(eHktrhY}3_Zhy-QfroXA+aPsFz7mMaYLY$k
zOy!P~j(#{wyxezHj<j9$zm=o`fOqQ1wY5~%qO0lE;RbnmUc)QJOlY3v0Y-(r&|kh4
z@WUi=(QG71FmwuU(J|Ow@V$d8!-(h4(m(%O1(gGJuCcgrK~44Do4vCBJuQ%3b@f1J
zaG6cqz(f6`2OVuZQyIpc!<lirHFHZHTzN(($>Ix{MyfzpX7z53)miXWM&pjr|2%g>
zdF!9iz9~8E_Fno%E}5}s>lNCU5Z?PvUUZpB#O)-7z1QN@do^>R;R;tukDEIzpXFYb
zg{{*c_D?Q+>kd2>Ht+H!nDhDj8^Y&oIUd}+NM8SJ*(*cp*|F+Pe6FzxW!`G$ruf%m
zKvCI4?h@j}L;nbl5wfM&;!38lregX?NvbBVqaLU})>X3Lr5iQ3E_Fc&D|RZNbfZ;d
zXo&iOG5S_3ba;P2)DgDrhU3u^4w=HQp}%d=`>x)x6{-;_jesL$YMSCUo`XziR==Re
zP-7VWuu=^QG@E`OBWZ&)p=Rq`VfVsN8ujwf0TfW*1?@!LZt#ajpqd&ophT2jqcM~o
z^|sL(HbQ}dH>p9XP#R78EEGDkn9q?9sO&Lb6WeD+=qs0YP^C?hPzTg>lQ0kb_%~@s
z2*D~*gz0F+^r2sJxQB%bN4DH@aod4m`A~e#%1ls8IxZL&L}a%x6v=FY@@jVHWOR_1
zj-jS8<HQ`_=);>@f2`pvX)garsnJP?+HK}zIe+HDKVzTJx))mZVFeJ4-{awZC?T{b
zlz_@Y`$A7p^euc)C`!ELIuwR7Yq<jc4{gzeenj=O^g+L%5<je77|dMY1tgSd4=LnA
zo+QCm(9#BTabc*$R<(0ua)udfl~ZT&;a13jXn&@yyY)X?+o4bc)T{OjRMKcP{xbsA
z)_xz#QqS1I4~0gfq&lO{Tw)^)C~w{iFXS#p;CIC#sGiOo=n%>VBYNILyGo|l)xVXv
zh#C4HvWI$wQD?c73HzX!0TYMC{rrh)B@(Y~`Jf0GE9eNyxGVmFLCtT@pzX_Imv4Ti
z!dG?weTRz7tz<s_q&lokw0_?ph?CdYSCG1mD=?)AW6vDExZq5~&{G`H1P<bNVz~{&
zZj2~kC`VfPdWvs7fn{18?x4g!)<GFjKR;SSB~iD#H92aRDQ4f*G}<1I#4Kk_wXHRi
z<eF{I)sK+aQE$8DD1LD4Tt&@yb3%<!#BK#vVT}LmKTAQ#&j_Ecg|YBz*jr@vPn2el
zG_(N)4zj@t-=TOuNkZ#T4?eL$5h%A$(twKX&t|Uy1u;#T_E4*P3wBZ*F9!=6nx>jU
zzFIdY{(%zC-x`{wd;)~Zj<jHvD%!u<8ay9r|1;dwq_1!_b;|qqf{*H>o#%}jak&RO
z>DorbSmW|XvK$VpND}xB)u6CaYS5f_9~6hYPY=uyx5529_9jX#tnrY2qi*au0Jd>2
zJc}xWw|;9M^nB{FAMgJpCUiiIZ}dg$RgTGpso;aVq5ezg)$%H!!Wj>92p1c9C{yPG
z(p0kXD|!PG)8_H=Ko_L?<#)#F=R;O!dUDw9Uml$Q>RQ=ScTl&}8#wwKhGi~ubsU+R
zrMz7sYwl8O^Jiwcaj@f`uWHl)NB4<sOQWpE+}u*hf}y*p4MokA@cLagM$gX90934*
z*ho-EW&Oydc+R~&^S!pU!quV$&vP>q3%}u5?^rv8e}z}D@%mEpo5;ocSSR>Beh!Du
zFUnQLxH&4GFJ84-V-9)@@no`Y2)wU#u4r5qa__D=@5wr2E&2Jpa4oRO%>zs9+Io3K
zO0r4v!Ny6+V}_J?Ok+<D>E{=+&!^;@ml^eQVFzep$NC&~lD6e*dXCPJKe+Vc72o9w
zI92OIsgjH9!nXSa#Wtq;8-aTsb|Sq^lGO9o&BRzE$vhUVl3}+3zhh3*9T$i7BfC)*
z%g_zI76sv%eAp}CEv>P8Rg2GYU^@K;52}a-nbu>z-YrNOR%F)Vb!-JFRn;<2isQor
zJ<N&BNLiA7ivqta58*LBP~@;~KZkOq$+*Ycohsso3@Hkb>y1!3t8)oHn?7$DzNa_B
z&oOMnxQwpMv_XgNYkDEy#phAkRvuL0ehTkch<74_Qh`Mih?;zz*ZiJ)-Hqy+dgn_i
z@3cD-7JHU;MwDMIzvt<ov0cfN<+mG3heR&ETP^qgQncWM^RkAB3E#E&)MPR!scfek
zT=dEI&Tv(WfN;QI6eTUz?B=oJIkJrCuJ6$hcJ<bOi{VwjWh$<{946acs!0};5Odek
zZwg)D(JF(H1W(8nZv)ju@7rg%C}*jWvY}8Hb9XPf6m0sk!k(~&b77Ea(g&+sdeXQC
z86G_1UboZ1=v+^ePws-s+;EO@?&jCaGA6$(nZqImzj7yAd1K6@<ZsD184S!j|M~;r
zQL1uldZD=Pm+}7L>H<V$-z30~t)g$vYk33!m>p)n5G6)4m>aHE=$9s;%imfOie1a6
z_Ma=12&!>bP)bB*Kg2hY(@T**nAuKR#Mu@Ff>$*w7nrg8=LmOB6OXA}58_EV-1ZFi
zUS00{K^419qddo*>-LFBvXcA^-ENpz_G3Dvlf7#ca6{HIIf&wk34g~U)!G)|b%eFw
zoulW=Pl=U7jC-Qwzj*Uemd3=*fBx3U?x}Z#{L+wBrTxm~b}5_i!!Si|=etGj4~VVq
z{mj-%fr{h&1)MLBBlRn{wWoZMRv>S^38S0m+`|!5IVZwsqklTQ9pu|8g(Tvjrt97V
zbB}5_Sp9Sj#`*a=;pVmby#Od+0zb#9YWv1dzk4nxisb4<bHQjew=vg;#XO;F$w!q@
z?ybj%d<Z)<j7hF+ReiRiQ7!}hZvg3jtZ?ofrQ#V)bdnWgnPhhO`%syWQzE7{Enf3_
z1CN)*(65(QDR~~p$M9|OEx^~SU(h}l;21v1NT@mYmqUV<9e_MMFbLrt+Ypc$dc^t2
z8)v(d3%Ol{!DOuVKAa~?T+3qW9n76{Wl*IGbo<eC{H}?3xsCnuIrWII4}cwZCR>Tk
z3qP*N>?=duJuU3R9j3phcYRR%oc_Mjenz-1>8|w7N+(;B20?mDT13$FZ@`&^wv4H!
zj#{^UN)xY^-|N6!$lFs^MwP(=$QxP$n?cB7z(XXJp;=)N(gwm8dBK)LOjDd}w=ju0
zR%eOqZyO_|0A%yxn^Y=gYMUox#E0W6B5{j)xi<pb48J!l4-9j<OZvQ;wl#R1P-7AD
zb3CVoUf09n%?IHXxA*!1TN&>z(c0=6J1mAjw*#u-G%s7&F%y%_HzZhsTi-ip0)d+k
z#Ws>;8N?fOY=`bcqRkcpvjPSt(60g&W`vsB-w>x7S=hp8jO2i0&e|4w{iN@nWsDw<
zbW=N+Dyd#;bJmCL(_y#@$=F0zvJduO`@HsS1QH58nbWeMk5v9s-AgWUo}vAv_Su2X
zR8~Z@MSY;qz>$O1-q)bff!i{TR>X9sV&1X2sC?Gk&|mq{RhC<c@t;w+J`K)$<4kM)
zZm?Wco92Yi<y~BKXUg5e$}Pgz)c3y2sW7%ZZ!Dc661#>Pm-#z!q=W6gpdKo*?*_K(
ze<*{b_M^dx6ri{q_VF|HC9Q!-kOgoWLVA9Adb3RhE1BC?-?^!n5Wg^C89o$XFh1D+
zCr;MSI}bJvKg&|m@olMtOt@zCHIw7c1Wd~<2D!*p!ANn4AS@0hi^;|i)dWvNbN+*!
z2k6jG=Cd;?v^AVpQdw)5`lalg+;^T{$1P1EfB#tb>_uaM2H8PC6*h;K5x-!*<C!SX
zT^&%y(i<Ueb2E3@b2EHcT*U)S&TFGBAHL`nJnm#ne)r4o=~ga8G^J){M<h1opK!>8
zFL7c(d{#NAHQ#UI43-!2X1~fmJivWd+>6@J@Xg{I+9i+EVA89KFr)oi7tq}U3qQ0s
z8UBuM6R?EY0<{jUp%rAV(oD+W_y;Fi?p+DDh<sl5<Ejv0M2q}sVe3l~@zGFmit-0^
zo$riu!eP@~fkb1-ocaFWolAvoA9fFM7GmWKvY`#N`Lgb&KU3-T>AJsCBJ678PY~{{
zEHTTp5cfg04X_82(rwR8DUs!F?rh`ldegN708{i+Ik|Bg%0axnNvVu?C}CeT^ZO>9
zmt&}X;L!@h{te`18s`AQkJdLOVu!Mjj9ko1C~2k3WPW_3OA=m%_NuI1UV(gb{Obzt
zD>xmjRAZaNDaMsa<B){){jp%=x1={xnj}4G)%?x26ZauGL`0Hwi1IwFxCsgEzfPZ0
zQk~yy@MiJwL>rYpEC?+?wGSIWNhrn<exP4@K4u^AjG>A?s_ywZ1<1;cmm<$}Yss33
zqsy09*Ld`0@=hRGztm7flbM5=63Iqz*1nA1s=dc{*|_+xhu<CLc+a&Nd_}^N#di~{
z6VssTc46JaI13iPRp7B`DcqE$<-?SpG4oWIv(6X>UMag-e;dtP>!~a=4!0u$=8t+;
z4GZV-=nrQX3_L74<+fPe2ffeD*vrU`qcE48p$?X>T1q`x=d90u?lI>*$$zJ94bzpn
z5!Se|@SQQ7D2TX(OZmGo<#VBfE%_i+&%<J2f@#Y>z*Jg%q46}(E~SOUg!;vgWV+vw
zDDB|^-SsSvB`2x3m|vHf4$y*Vz0-Eu*yZ>9)9aP@grNL{5R+t`xaffmLfb|Ne~nta
zC?RJtuxmQE^>(}1Bi^bNn=Qdmx;Q^Ii{zv*yvxpkD7#}Hz;`@EIblW{!%liCIqUo~
z|9t3^IZ-Q|%OL*+4i;{Y%7a)R9GeBQ^^SW|f>k|MajqSYmzWSk0Q4SJW=G52cMAn0
zEc^mCp1BFgoJ1~KzdGyM>)R>0KRz|!tv8QngkgGq*?|S23st1TN81QkMVE42Frz8E
zZ4y`Tr@b}pZ;$?Lu=)&wB~0yyaZ`8n$IVRGF{LH@Ojg!&N%7@1n}E5DdWo>v=AAlK
zFTSUp=7YG}4~x{<z>^(qrN}C>bL>7WyZ2^+@leq#Ewm05{^F0rP40A6uD|bW=4lS$
zggZ|1i1Rf%k5tD{_W9OCujgNeu`MeF78GC)ro6nIQ#r)nD7KZKw=TMM*#hj?vf~Rj
zJ+YFr;klikrRBP=cH&kqnpBzxypdeihq!NKeoo>!`85jcx5(shuG&DDo@Mvk_uH$?
z75Wy}lSi-OUU^j9Wyzfz+MS;MPxQ0(wnvrb-(6pV{>v%nWx3dw3_2|lZCIMta)}MW
z6IaOfuIIQu+Os<{4tW(bjiL8YCAu-xK-j?<go@Mpfrt!dl=xoF0G&s?aK1i;k|t#f
zhPD6>ij<s5)SwA>!jt(A7qkiY$i;@^J>%6hsm>nCA1866)H{k&kj$AKV{9<?$#&=C
zHjcmYTWJd}n%)8T$rs<0x}2{suvK`$geUw0`%=&ks<$@p)i;UKoJsds^fs+1xSlN~
z!I$U%Iv11p$vLj>tx&*yC0Z`%;RQer`n3h~7JZnt<j>?4Lu$D-)z@+1-RC8XHppME
zC#?eH>+|cS4;xVME{{I}<*x&hD)JwF9DLaEwwSbDVb*=lxNnc_fvX=MuC~zyo<a?d
zaVFr|#Njy47;_taUL4}R=<6N03wP6I{-HdSS?%w0vimN7<SnxG832a**iUO1u8oW#
zTT6VP<;{zJn#-T=*1tK|K0_OWS%}6ARvmOP+f@6zka<-PbOdv_K`-TuU&3youL36X
z>`k6UrtCg@W)XuR@&!d}k4s_SBR+l2(C-z2hx#~oI(7~%SW5@pu3pH@IoMg?^Rp2l
zbH#i0{wfk6wWO(thncj|=zgR;%nY(SiSG!j@=!jlY{jI;j?_f6oaNrkdBxaOcR!Vk
zXlD&HGj35iO|H-Ut3Z4w_Nt1F$q`o;y~sz(x#qwc@6)1Dil9R#=BB^SC6ACoi>ByE
z#)xjIso*oFs<0U)dK*zf+buE;Al#&E82{~`C4_X%MfT`{UlANN!r5!|$g`Lg<ahL0
zd;%t+eeMA{X!JEb;b1RJ{aWOzBiJoPBj~a*<vrF%_MB&$Cl6N7;?wIWv!3TR1juiV
zRd`;RQ8jgimMli?lD9FG418+9#~n~isj23#5L4Kvo5k@hrtEZo-qDr4Ob~%REg$lY
z3PTgX0^-}X>)@6tbgj;itha~#wl%qj+ntv=)a2(Y&FOOs%hZ`qla~62x6K;pds}xh
zZzhY}R^;?yX||?#NxcuH`lW&Cq^p3PyXtys&>@4|aDi~u97tGVVEuV>!KnDZdn;Eu
zDuHv#=gG{S#U=Vu&XyyyF&EL}q5)R&CH2U#pa!f)jr;jlGKYmuC8StnAffo1Q}Q8V
zBH}|S3;DK`OKJ*+{V$;tFjeZrQunSv@|)9TvodGoN2?hihctn$9Af6wfrb;qbm$jk
zS$$!84Qh?OhC$8;=Z*nzn6v13oj(ISpD2Gpm*J?R(s7vWWr=qTD;LPibGzMqI{0p1
z<3}+n{$6CX6iJ|Pb*|$S-g|bwbo{!L3gbGJQY>d}+HhvUM@q~IZt{eg%>y_eOkryI
zW*=@Tlv}+RMRIGwJ?=n;UPHXyJVnrUg%tVRud2;JfCR*K1}^#=%gya{nO<sSn^AY9
zz7J}%aAzsoUqu1;3w)*kudN5|5ALYYxxbkW%uOrO9B8I2!>E6OHH#{4iiw5l>>S<p
zIU2_DAEhWs;gDu;vetQdKM8|K=6{f7%JPe_C;H4Yj7Soqn!A(!P*5U87ZA#|B>dgJ
zqwHZq-ui>6uSnK2izZGtvW-bx_`-x12FUUUF+U0LWMp8F{3F$9;rGD%JmOG?Qd!(a
z1dTjb@YyN0zqDH-v16aw{u#jiZ!PbTNTQQ1<J27~<Ja5G{|WysDEwx+yr4$$xTSGY
z3ZVBAZ`W$Gzf^|SYQ9<jJu}W9ok`v<ZHh7aiqfp;42=ZFn{2d}%{*C=9eB~Kqd>}=
z*FoM=YlD4cbuuUF9JR_;)Y1yvUc38Xw4cyUex8+g3tH2e>qs*zJBhPbkf35`@c8l`
zppieH>AOrY+hYkk&}N<q?-V~t2aLSw*LjE|&;El>=SK6=^?Tds*MDa6#J$M1wSIK-
zVw%1NC>kLL+^Bg@cY8cVH?8g^EzT~DRHYh!`s+J4WUB3YUpf}IW;@X$7{reEbz@1R
z7QWJMyRr|q3AL?z#a=f372^i-_`Ri=JmLb;_lj54IE~oeKy}y=a7o!C=$&{gQPn^4
zq#>~B?J4i$F9+WY>EA&QPU;Q6H^Nwf+lMTq-qZLtels1zt&x?ZCZ&-05X}Q+(TX*y
zSzNpyAOnOTGPQ$bb<$6M4;Pxcts&l4kjy*P`%5gLgpp;i(5(2Fa1CH$V+StE^|{el
z&U6RbY%d{!Jfa$^1iw0<hH5<pMf<E|DF*Glra5Tp=5M?d>pnU&Fuc(5MlMtk6#2(g
zCz3r2iYAJ7>T*=0I83;!iua;Q0^_9Z`h8vb$eW?;K@0i0DrP@)RB5IzZbY|sik>e_
zi+B&}eA4Ib4BPMVILyNz8e)yp5H7}w4ZBtV__IX)0ew;i&W3=TYfe*c3i_S2^sXSN
z*B_%@FCE$%*rFFYpv!IFNa0|hNXegwX2z>cNnMD7Bce4_qvJ&=@V!}g)!)=hc4^j#
zM^0;F*xx^9cK-8om5yMkPE7XYAF`orOD>JzlVF^p&m0Kn@+vxTxazti2*T6@JV0T_
zChe#?mZLK)l=jD|%Zo{x;T&E2-`lMAOUMDCuMdLBp3!f|@bm$@3QT}$|CjB($auSH
z#=kT*X9iYkD`GXzb!!IB1#Hq0T1`QC7j#!f{ISPX2{yJ)VSY?FTW2rh8&8T1*h*@j
zijRm`y6(*l{c;-vz?a7m7>Dg)RKrv!AgWXX-(*jy4r!+t+UP7P8LroOD^x35lnIE6
zHg#U2MJ6pS{|I9vw9moA@;>4KDo8zIvhAW=GSM4j_Pg^q|It-vlZY`u8>fYp!<6~}
zgEr7({blBxbnCQv(6E`wqnC%wRAf$yelIh}PFz1eR;G|v0_sI~p+UKO(LxW8$*~g$
zP8LZcA1T6E#_glNPi@U)eWCmK+d1kof6)bp666t8ZyxP3)B}BiWj#r@)nP-2z5XrZ
z1yhPJ-cqkOCxg9uA3w;rkZ#RVRNnhNZm?I_9V!0Hi&$sWr+z3{*p6^31m6zt13GBK
znlZId1TB!=)d-13Du6+*3;mL7y8p@Cw6?69o8-}k=A|tY%g*|ItSUgEa+ef22>0<B
zPf_?hxK-#7IoA3uE~1i)Z&r9o2K!(Z$P4;eP&fY9vl3lufwLv~Vh88(uRx3XGF-kS
zFA>r3(n@c}Rj~Ce$D@O#3R<J`^9VN3n&uq<Du&1}x88I)d;E3BMtD4i_ZHPm*stH9
z;pv@H@B&D*uP!>=dGjsu5NFWHx&inUU=pUdpVB|2Mu#>SA;DEPqJLAd`6<GJ`!gkh
z*~{2FV5?|>`skSRD5R&lR8_P?1%mJXv~vu3xgF4mR^YvZRYW7bRL)w~9F?OVOaM@^
zYlrTZ7hZ-=NAv_LRJU?{m{}MW0qdKSX9Kqkmy&p1kUCT%IU5T%bkLgtk~Q}psXoO<
z?HUA})Df$X&m+8hiz^g33FdcHW{}m3+r5GzWj5r<AC+AIKI6xo9K@FsAoX$8?lD8<
zp|yVCM|Jh(k1Koc-*vUPIS+hOqDL-WGoccVDSJ%CG<$Xj4X~g&<y>WZig#w74e<V9
zw7n*w;(l@mQD!j@Nu)TAr_Zyn74{n6ZB+1_%9Ap=xv?vRRXuDG6&r4*Ve_ZXR4GoL
z##Exwg_IKqza9~fR}!^16V}9v@%v!Q0#W9e@k^stm6`wOiOtr`JV06XDtz|uEt_H3
zeE;fa=UJ}oX>a!RU7-}ik~~9<C?*McbmStBPdWh~4XsXQY}7qMf+02TgHvvlt?Pt$
zl~ad`qUy@nnGrd*BytFOLUH?f8Y8Vo&(%>0lI`DX2#O44w->LoAtLPcauZRsaNT5H
z^Yr(YE1`}YUc11yzpb~_+paOb62d3SsxC?gsMuS7xS8tj0eP{i%rzz(RaUw8N;a*k
zeMXtw7dvU#L`L%O)QwKgS<T_R?~P7wi*ApEXZM5`*8A{HFKq4UAQbjHUk)TK{Ky~P
z^mxvQ1`6@*@4vEUW^7sFN~QY0kvmp~K4k=#(Y`I2Y@n|?^^6rhvmS<bzPq`n2l^+4
ztLL1Cj4Q8OAob4O8kgUfP@bM27-+g74({>lIc}bA{q;dMLG)f92NE4uE~`#u8l=@Q
z<5H$$qdsX_e#p3kaC<o4Uq3>GeJ&YmdpS_HNk2JvX>J1~mM|OiGin){owAN2?d`S%
zUS&Z5CvdU+!5~Bzu@%8mBGy%mn*O#dey!Xdj<3J2H+tex%y3#ZX%^bKIN}$ggSv>U
zJMxx!$38i%2<EiT)6_H>y6NfI^JU035i=z%Q9{WX!L~kT+H{8E%7po4x@B<)#W%Yw
z1pSpwNr&FVj0cMd%QFO7OJceUQWS91PzJcs$}3sBj8+O!<(KlM+ePKrLQR}XHE`~e
zbJ_O9nUwbxb@fwT`-BXb3f%G~=hc%dv+7OJ$VRmPtt9`qJV)lWP(opl?>YkeHsT52
z7W3>_$s*=KgI?;VIgH}n{oCZIM{E;*dPkz~L`6$Y{@Pk|s)3;2-ep@=z-AJbTe!Ai
z4JN-Y`d-U}=YjC809dOcd(D0v=8o-brA~-rYdph8qN$5*py2PT_REdh0j<=DgeA9z
zIaDJ`T=4H$M_yjztPzgXLHnC$i5tqaJ+R3t|G5S>1CEP_drzBGwU$388_Q9lwhwe$
z4so#U{pl!E5*kbs46w^-c{-e3Sr2-iFSDl_IYu7_LJo-P^Dn!Pz5(p=-!r=rE#FTV
zxR9KpK*%?f%VZY_H~sFDeRgB96XTfRm_+1Z{B}nwAn<BWP{Ub!@Z(XQw&s0f-JbSv
zmy1suYd7|5%d*V|yi*x$oPIQ@MPfTDz@ax^pGhd&av5+^FWzY|DQzP|s=NPql@xXm
zAlp29{(t?s?IhcicdGjj=vE9))Cz9?8lm+v9BY{WfH%Be(s@bCMhE_>Q!?4vhYt@#
zy^u8cXYqiT0GduL14dakgq1+C44zlLYQgiW*yoWQO!B!#9%v%;nEvlYvCjK0WGDnU
zd%X~seRt>P{a+ayV8+k4(AOLOu~Ig_nniYIMQN83nsuJJ=gJoyoNf6WBvP!jVoA0`
zA`*q3GYeGWh(jO6)!Zjw6FSaOU{RM^Z|rTlUnK-jz2BAaSml}S<@O7~s$TX(vknmF
zWK~S-`QWo)5%|Et#D?e7CnjKR5?Jv^h)({}K$?*D>@X)pzYd7V$dBgcs@8{Ol@(x=
zk@B?Q)LVw`1r#JR9qhzC`BiVVlr){7tJFd#&mccjUA^XPL#(tn>Ob$xB<4BT^1Bds
zBlpvhWEE5lvvh=u*TN`czHk?u9)q;)=V`FXx;HNxWllS1IB#SDva55CKRyH{QI_|s
zM09bJS(Rq_2*aiOkCziK?(gGZX$mon{I9I^-S$4-!k(oWF-JDbA4#E+#^_hO<qD)W
zs=-eQQNzxWEIzka-hL^xUiz%CM(=Y`9KW}A-Et6d`RmWjq|cO5s++1URT#>)9WCer
zRm7_5G)E+hE6>|?pmI$t9rUrY^kH;=>BR&OUFg>d_QS;2{)b<GX<+xfcHi2N&k!;;
z9iyL)7Iv3baAuhBpxLqayY80^ep+jp8LUJCAo*vnCsp`MEkCG<bGi|$f<2Bl*Gvc)
zxIsBnfSVH|SC)>Fy>*U#)V1I0X$GHQf<-owR?j6>0p96t`IMa9XY(BwJgDV}XyJ>Z
zspxNgjOg)ip^Kx@hg9f{!P%EBH-1G`3;q<?QKDi?vWOqJk-`~#d`WC*_W*N#b|$d}
z=VVQ(0k!#59G6Yuff+iI=Lv3$UZe4m{3M9L8P6xZpgyMi%RRFaxOvJiX(mO(^27yV
z(*?AreBksd82XIxW<69{$wK*{iVI*|FG5)sMJ=(%H?W&`ci%3ox>XfeCZG>*fB!uq
znkI}<j@SNHk3DHboB7&Ms5~op_e@hf7~isT0V)k$1z#FT+;a~X#p0jsN=}MEm;wiu
zZ`8P;om$U2pHQ>Y?=Vp-j__=W45~Dz0m`P0kH5$FW+_6!XGC(VMufFQFvLI8WUer8
zeE*Hzh<X-$JTv;2qVg@Ua7z*jU?S|UQK1xPg&p3Ahvsaq8g(4<(>0OLR=ZG>b#059
zxhAz_Wwd=ZeG`0&tdPF>)qL<%(3cd_Zeox9Y{Wh;+5gws;%>?XhG#n7>OZ_f4jUs6
zfy?zC+_B?}W}KN$qArxPsQ)`NSAr#cu8%@OFLoPU_;dh=@)Cq-KnmfHercfPex6$+
z^r+SipEgj^<&^7PGomkUnvfIQ1@AK6onAiMg4N>xPR(g|%LMi2V7i~KPVwlIfa%CP
zP0Y`lA!CT!#Dc$P#lD@G&h|h-azM;ta-C}ba<hlUT*GZoRH+IR8%aU@MpF0C5j^X=
zgo}<h;UPJ)s~4s9OY$CG1g+%1?nk6y+s!uiV0O0Pk$jvf`I3<IA$`Feni#OMUmvZw
zR6p7mqb<k>ZUW*jifz8dw$n6u^gRfccM<3Q!VtWOYxm)Kv=!nHLa)!#5M<F95`UUC
z`4Cv7Hu!R|E}UjCC42Avy}H0bI<y7l>?ssN#=O#`TFeoAQv*lvRms`Lhfr#$Fygw0
z^~a@Wn_tql1IgLl(M2kVU!tqJ0iuV#&5i`D7}+ZQ2L3?SuZYbtU?Bf*F+4KVJNqSl
zlM6i(F8md&R>8whR(63|QxdXIThO6yv~PTaxn#Jyjdmq-b?6@11<$5D$B9D;eh=u#
z^ED|Qwjs{n=9!n*2Sc*JWX%N4o%g;gzIzHxsTZyHvm%lpz&$t*MKA2m2gIOY=-2s=
z++3#<O;;rWX3fMMVOq_~Xj{4F$8u`jLRr7$;!x5!$EebfmbYXD@$x!7NJNtOvD~(f
z7l%d3Z-hU395T@_^-e`e`gy*S?Wpk6K$emc@X3Q@C8!f)!Fit`>I_t0=`lZor-oZD
z9w;N*=B`Dc#>Dm!#-;9t*no(&BHhQ=5l+g3W){c)Ga4HZcx6P}l3suvt?JCbhvdyh
z1&?gSHH!r+yr~M{((_3O12z9A&I=F0Bl`}&SvU4ygbD-<3tV^qpP#I&o0qy&ip1K|
znerIR0ZHAT^s<MRlLzYrbjhu>vnj`K$N6T*p3D>q{{f$Go&x?jOvSD6AjY*YvJTGT
zPIW+tR=y(rd``@>vwDbQv0$7GrI9J}Ci@t(EtS{rFa_VHO|@f8$m<aDZP#1N??ozL
zs%0X>VNumCO(x2zW*yFQvp}0F!~#2-xmahtT1plLSiq)(Yw%fO!bP@p<3|_~=du^?
zTa}#}KplOFOU8zwE$qzBTKVFe05e5{evzC~%(ee8nq5v192KV;?xvhif*W2{IkB3n
z`1i(o>AGGOkw{x}=iELmLDVG#bD@aeXLWUetd|gD&?WU2HPF>i?%tzULIIqo%(z%K
z%4JDLIB~XhaAoC8a|fP5H2)V6G&>DJh$`v8@6oA^x6InWI208Ewc|;ra&ThP9TAy{
zv)jF9E7#cp9=f`?I>V3eYvO;Iocp?~=DlY~-d4RxE)BSeRmt8E6lX-jb!HRE{O{5_
zhd3*=@w^#(B`Qj)+gJEu!Q7{<Tz~Fo-~2zX$yYqn^u7+JBunBWx@?+!gOc|=A>>`}
zW;ZiW9nIFwQMD>j<?0W7I5N-hyA^mdo3;JxZL$u|rdS(;u=K}sh1IR^$w(tc<`qyy
z|JnaS@~MyxOI$7t-PxMI^(>LVs`X54WLi}ioA@7crP)cIF}s=o<)(aU@_`&WconG?
z`RchuBHzCSy<+ee!pF#&BpOh2J>OY^R(53nk@&v`7@}jNeKN`-IV(KS9XW{{i{wMF
zH2us}r8}Ih9sxct<rdDi&XGY-ocQu4eUacT&lu5xD|s2yUYSh`z`$+W!`#??1@z@_
z^!eng!0U{UoMK3&k#opWBwyq%Gx|LK^+(ks;>lvvMiMLu@*=c3mrUQ$T`6~eMP?W@
zi?4pwce^<bRWEgLJ^$sY40m<fWj`uM0rdEwU0nRg!M3hc*S;Dz^)U1T)FE_=+>!Y*
z`~@-%C6MgE9BUDWv|_AZ7*_b5T;ZgbB}87I_sFmXhBwBPVQi2ZmuVXUw{h`=gY9_O
zjGv%})$aknkbjracRh~4xOUc2a-7iW4tdBa;2eK`$EbG>sm=8R+k^-I+5#b+5353D
z`eGn6Lg~KA(;L3UGp>DQ1_tBC=|-K?nS$w+_fGeG6nOI@=}eDN13fxU0ZM@WatnPc
z8AdxiV~*$k7nXmh1_q1toVHz2n`P^f$2Lp@Wl4X1Wyp7rUZTn>Fk{TX%u1pU{2@1P
z0p0KO90Z&;s{b3c9Q6jhuR!?;&J^o{rqwZuAgTJWWEN0yF<C-hmaee4h!U2tdBnJ|
zgN{5RZAVz~zq5qvjuADg68)kxLp6IgXLJWVnv>8ClG7d&*ys15L7>j2UyCHptQOaM
zY^0($a9lBl=AxLV+Clb!;QiIjgR8*se2zuKWI7SJ_B_9Bmlk`#-4H4+!NR6F5)pgQ
zj5)xlVa;Y$|8d2dM362iyBdKqa}+$UKO#cSd`pSeuhdB|yT0P+_yynA>h0{kG#H-D
z?22f<lY2LG-OBT#SL%3d^s^pwO|hd7bN26pTQ5!wKFf7121sPoQdi%K9vs%V1U4bc
zniY+mjXerA%(bh>7yKG}R@VHqkN963qB7^#2L447VH%K;MFH>di}Ey?%gaChg-+|F
zC2i}soBdQRTj;a?L@3jKTiRfLasYWXQC$%^AVWuP3=tdd{R~XI^l=>HYwDVn8s%dL
zJU`OK^gOeBPOH#%Au(dhuvMp+lv6A;;sQaON3d>z`5@*Qh~xgN(16*0_9+$iu6V(!
z^HLspKoWcP@TaC|B}IVP8g$mt?nl7hCk}hak;D2%lBC(e%*JzH0=Z3AB$)AOqoa=k
z#j7QtE}A0o`!2n(WCfrdtEBgZgGEXv-BGP5r#qw96W<n@e&eDX_B(c2VwOklawErI
z;UoEkI8B=et0!NC6rSLOu(3*eoZ#~@t<h)y{z6(se%Ah4a_TVrq5dSegfyjH;PHO(
z%%yK$AIG^zX2{XP@CLK>;~-kp%LH|W%anYnPe-zlu@k<4T+Ov}b~m7WcY^y&n{tvR
zo6@7%K6?fflM1e;H*)>7_vQIB5DH}x{&qbjUkemN_>=8XxyXAyEkBL&*H3fx#zmSE
zmq*c8&s0<SIZmjwc(Zc+i*8*~H)eIv{c=r&hxW1;0}r*v#XAgBj05-7OrI_7^wvyJ
z@WThRzdRUPx59M<*>i5mb%xz~bOf=z;HA<tgnoGjfDdoaY=g)nw3B*%?=u;A+%VFb
z{8?u!avdS|tGRmZ)n+&H35H`~f(Oa$k7~nn1LCiGz3IV+mUohl3aRv6NbcgsHi;jH
z9<<PAmi@Y5OVIyu^I~RiXo9yl2#*pl#mV*^EA}(1nnA}Mqt6c%#mWs0a^CmpkRvCt
zxcqa}T({^<f&@`3c#r1t^4g<2-7_0W+0AmMs%N^};Pr|`$*W}9N)jyXsbj8dPyo=z
zi5iaXX3yuW>Qh|&w6yPJuNWCZ7bKoa^Ic))xAQzxqna@%x_>pg_GDx}|MRrf_qY=v
ze<VLUCMM=8Kl0q8E6|u{R6`%7qR|g2%O6Elnl}b4#3oZ%RE|AL8TvZ<zOl)?yfL7R
z$Z9F{Q}^<f2k`#Kuo%4wh+SVncIXJOnKa_!t18_Rv^<<2zPuNvwERb5Wk+E~7th!7
zWTa(NdUWBQxb}3TuxpFBTgkIKAr0<*9r}EX{407_^mOWLJ|CGl+nB(Cyj*&s3ZlMw
z<sP*8o3d+&{{CLAb#Iso?jV(V4^3d3o&=wcYGZdv>jqx+H{Jk#%oHq(8(9K6BjuJ0
z3TeXfWiAloZ(9$LG?`mBr1E8+9R^|%*m$~~@Z8-MRFK+!W7@9mTtT6BC1J&K#In6?
zWzTqIE%*!LK2s30csjopM`r4>uR?|HSl{mjhB!L!k{3JuOQV$-*JFcs{8~Af5`pzh
ziv6qGTq&D|Z<Hwtn65sTyrKb2S!<hKf(<~Q)2>iVU3{G;Q@5#C8OjvTldumR9`5I?
zU$aT3y50%r($3jefbR1#dd)ww%iB!uIBCt1aq@GR*pwg5!YW{>sojQX-L?XRwq$J|
z1$x_zUfxpOAKkn;%KkeE*<BY(O70cbDT3~f3GIp|<A+t`+zXQ<3YmfAlJbs=Sq2~0
z+EV=acCw4IWyD}1+;0@WHXgFzdY8lNBjQqz*9GB)728KAi88TYBhyZFnIZFel{=r)
zjKYE{YYPhfl>PRK3nopJtAAaQn}Yr)4*=F<dAvVWFh4*&tHTPz&oSxB=D!35)ksIH
z$1fw`b~EX{8j!L8@A;wwJvU_~H2P4J`RXN4nA_8Mp447QA-~=M6yXu5T)3;-dk(k!
zYz65aIS~3XK*{ZWQb1Ab%T3<7`xd-&c85Pa4qsf%3;s2Le5)0t+4;g>E{I>R(U*0r
zxqUbH&WAsQ1WdPCXMT}lUF!{6n@7bboSN_s#rlY#6lY)q>HllXt!PCpFqJC3T2Sv3
z%uOOfVscvm+d56)(mKhT&sHvPawmBs3sZV6TaR@Mp&j=)iWYdXW*ids4)fNs%jNbu
zI*6p3+!yZnNd39bZB3M~d6L}8ua!DpF1&o}pMKT@8IMj@F~uBzYTZEZX(D$%jK2jL
zx|s3WrWD}UG7P7qd|s=0{lciJ**OK+-&+iap)rN$&>5IU{zHb#v~KhJ=lHMOpKS^s
z&tnS~#)&fqqNsRy_~&pI{Buk5jl)%KtDA2KY2sGaxmK!rgfwoeo1hpB_~zV{?pJ@Q
zVlz50O0`)9VTtq+#Nq8g;7X_=U!b37Y-r~|6%dr{bp!9_6u6N+0K9TPFpCY%jnpgZ
zT7TU7nGI@lC1C{r<}l>1$Nu3LI`{R>k(Pp%5Tnht^3LjCc9K&Hv+jR1_l=X_>~~d_
zv{H-WUymE=6E2#lxzkpeK8!Hno~$z&9vxtMDlc8GM9-!ouloY@l+|Wad&PwHSE%Ug
zTR@^=6DoK_F>h)^EvATqHYJ>cV|w}<CehBu--&ikZfaiZgATC}S?Wsw)N`Kx+SH8B
zQx#BltxJ$$yf=b%pVWBH1G}WWj0<@?#af@M^&vO(@`pf;laBr!?Sp}xBmBGVHq@?*
z?>V=;Kee;<yg0&y(PVq;`<K&uE(_8S72v#kq(5O_M2Lr%=rpRd+1~g0(b|#1q_m0m
zYIyh_AwWq)gBPoE#`_h)2)L@1Duaf_EL+OX+%+^$3$>V#_Pm_7AOrX5nP1mV<^TRO
zGBkL(rbUSjz7yXjjltXh-n<h(<L0O{s&!pJ{ifTiD|3`qNcf9LQ9HR@3o)jAKHx~%
zaXAI=yQy>b?+KD#Gl;D-YIkect*ESUfu>@p(R<K}ME8d2u13P~>PEZEWPO2TueM^j
z`z1g0q+y?qCLGJ0T2kJ^GL_1?CW-;ROX3lO#{Z`uC?R1w>mI{{LY~R`Yg!<IYtMgO
z2`o;0Lf16MB+L|JKM8nc>ARYmymk=7T8{xl&}cOVpDZwb;uL!hyo!v5-=_<cj5I!v
zJl7-A!$z+=a94wwsiw9*{@bor$8ky16ZXH8>%z&)qt=uaR3)h8Z7Q^Kt60%K#MwmR
z$>a1DR48tyF*l3};T^j|ZH#Na(#mbHl)pqdYPl}4TUHVm3W!=!|2kGkm+N`hUuylI
zeT}RMS5Hj-sbODVkRNj147+>h+r3nNt?suimJDV$vquMf30_a>g~DQP4hm-~OBko}
zCq$ICXHlnSl~8M8F{VEhs{_x;SC?BpS2~A{yjyA4mUot2D@X`PkZ}$U!%rL3tw}u|
zQK@~g%LYKi-}okOPwtI23ulHj9?V-6F9b~QRhRFEGP=DYO->V^jv}g^3fIlAvksld
zI<Vp=Nq$u>RrBLJ#P=o5WFi@P{=Cb;+JFS|2~mBZoK>6|b9Z}CHIxuaAk9KCc4ki0
zTmd7=A_l4aZf9b5)FdgYsGg<BeTvCom%j;UWod;xTRo7}D}>&1;0qFWovMHFq@pE8
zCSXUT|4)|&_7jFwPyE%g-wBUM**my^;945INbAP5ZIZIQhd-ya;|{l^T+d7wgnLsR
zw`T5DLb)%8ixVkF@2Fj2obAlqex0X0M>Bhe<M)YxTZeaDV+YgUg^G^0%ogeaMD-Fd
zIlcFyC^r|rg!G%#-z-@D&-R~$-#)SV+-+avhn7n{mMGx<?c)O3(K<ntptuDPatM}o
zK~g5a)+o10!F`p#GAfh<-f{VQXY_|;-*25ARZ{^-mk`!~>JJgnWq7TL7k@<TX?Z<E
zgun*k?>|oiA7gYJn?<#)?+Gj=wlgR4NL#CKM$Q9N$I0dQut{1$>L=G*Y?OAt`n~;h
z7xSd3Yo>tOBSJp6H1(XD3f>};+0o`nAw<QbcwxE-I@|1Mqin^{V3Hjq!ALNVV5$&2
zst<qlxt=<5Kr<+rVCkT&x)QRys@Gm!ecX{4_em3v@P-_V2rnpUIsn5|5mZXqR@E>S
zloded!K+-h|K)ZLSyx<ZO68VJ8#v%vX@S}SUl*qxuB4rG6^z_yCmJ@;on+p@uHap<
z6=(jQiB!~rrzWu++^+3$Z(?;DYUD2O3Pj4KaNjsk#!8Nki!;MdZhx3L;A16vz%RhX
z1?TdQT_-jrvA|<&KBi2Ws6@lX7zPifnks0tQvaa%K`sc@ORVBez-<W3Q6AmH6u0k&
zB6r6!bdcb$X@sTvXCCNi8nrQGE?Vjc;)d~$MhipFq8b0nAYk`#vsd43u2^pV|7sK&
zLH)_dQmYTXwW{iyrMMf=xZkUQK2eSH8F06V$Lve!OaFVMLGB%BgM?D&P^yf+=Tyz&
zOi^c<OMlvRBj=F<t1EG}{0YXA7}kZWN53!M|0`jMptd~r!S0#8_5L^tEVOPq*+gzd
zRcuR|-n3VkovgMwA)fij47Go`nWGqlH@Wv%G_`1TqS~fYG)96F?KPaI;6j+boeC5^
zc>L<RlQXI$7Kf{$BfLLQX<zYp|B0c$Yo|4mkg}}R&m;epLgez%#&kSLkivPRLCsWt
zW5g$|b=sylLF}R8ViZI~r1`q>mxbflaJ$cvxKcG-jOQBI?FL;kRpusx4EA`%-#}-l
za-Dc1WMQ!&f{Qw01j}D_!tRCzP6S5t@vXuQ(~On|IWwjCyL@zP$;-Upt%gBEExw_|
z6x=}K73E|atea_5#AaIjj6u=i^?t?IjiV$fFr<QY9~B4UBru6MsRds+k;V9s*4oyI
zfkM<XJ2xYPk_Dz!nc;ZwI^_ldO!iVpt!TTzi@N-^Tb33I-fnq-Nn-QonWu=9Q(9L+
zTIa`T8I;7sl$~8B8D*O~<yyHVDcn=QeSVeXQxwDN`vpu3ies;f3Uz+h5h_AKF9+E^
z{ux<DzF#1%Xj9<Gm)VVJZ}HJ4zU-_bMh7(HU7^Obf!B=BYJT3L@vG0xPo8ZE>MR$y
zorTJ90Ak#N81}Tm%*O8~b8#I>(mXH^%r|l%y{%u9dul5RF6&_G4wKB(FIlrCjt=xU
ze;h(|CAO3BN(I}3*EXLLJb7|t!Q7`c`j1Q=l;EK0S1L|@{L+^rt7}VkG=I-Z;dkg*
zaw7own|a$Z8oW$i!jn7ZsJ`C;VV6-?4K%!)6_`lY?=?6_UL+@&Dz#e~B0kb@fwVDp
zo1_UtZFiMCv7wy57m|#-wNAART@ch0--)ngtP!3pp$)#cHG*Nm#NUd|Hv?~HG4mKU
z{t-!2NsdHwHbyPpS()YR2ry8k$}BSQV<Y4do{u7o#W#+l`$7Ngq<9WsLaA$*kPFEX
z;t54=PCx2MNhws5F0i=YKNe^!RviY7sL%pnWh1$)NQpjqIotJaI`n;6DFjuQ`)@pG
zx{>VV`bB0Uv^Nplg+IXzPKz$gu-Yu*3f{y~U`5Rim_{KaD+~j6v(9A`dVC=`7~-CN
zZ|R{_+*jqV1%M5ixDPF=nfd}MbUOH9ZjnLR_jRq|g$~!Lmw1png%|%PUfE=1=%k%_
zA(egl4W9n0OGPISW>UWwLg%U0soO3D!`<FzhJ+{o@q<)=Ql^O)U7Fi?ov^EH{mKH<
z{_rXgDgm^DTNTlIUxpIcTqZf+D=`<v0YxxNErqH1tFS_TM)b*9I6eAg20{dN;bw3%
zTdY>O-8xW4Lb&xnM#O@7KzP?ce|V!y0xL$g7d4JARa<=ZYb?eEBajm3C2wQ5dX?4=
z1Y|84qyRY=L>Gf|Q&3?Tz-tZkz46UOUr>uRxX}ywQ#8wX>Jq5}ML;CQZ0Y`=F#W19
zgY+AU^=o!;(>Rb!DiN6#p^f$FD(il*t0IJR6jPwf%E<WjE1lUGEFn{i{*c+YSHIRE
zG}6js9DZ(U;<IThs7jD9Moo8k3^*72V|3s-{L0`EK0wXaXz4hi<!}S6xlLb#xAP}Z
zf_gd;Xa$C=w?vY;9qG2(t$Y8Wn_%{58y{HvXN)Gy2e|`EApuSTgMaw+otpLehN+fU
zvjVdWZ0ql&Zi!*Jy*Z;OPc1)7A{j{vs$a`Q_9+*LQZSA5FW{YCI@GOgl5MLHW^<YG
z&E!uSEE5(E&ocof$8`<#$l8Q$Tq!{BM<_2sUAZ+#IZKcK*HY~m`9VAztAI5f<=WV!
zKBjS{tQz?NewqC106UOjHOXLm$x20&LtV8kDbO2^ziJg^Q|1LS)!Q;bh28aSpDLL1
zjzT=HvP&npXL8dGY7YFlXuACsTm1lZk<{L&pvZ&Z)&2b=f^#_Fm<2m_>q_eh)hpBD
zlk>J(kGNeiN9jdfI}VW~Wb>o!O(4=cIbvb*mmL^R-9F|L&(V;a)2SC(2u=h8sDKke
z?vW}@qlCCgOZqlG7?iA54ua|&g4&dx>)w-lp_zLan60sRxT?B>M5h;W&6V02g)cEc
zdZ(7OO$&xb08(z3j}y$ouYZLpNn@UXai|xar6YJp@kmDyo~AF9$uial#(S-tuV9p=
zMsv!eWYFQ)BreHw|25`0>PTzMXY$~V2~c8`K~arCkHNBO&<PxZ5gF|^TY;KDif?Bb
zfn+m~eEDL=`uCnTRh;>U8?m`G_UuY?cl+<iGJq@+frc&`bkH=d5|u|;?a@SqXXS?b
z1760G5xyZFfMyAD$c%iesk#c*GW-R(%({95e<I{hjvK<JzZK=OLJFQbtqBuORxV<8
z>W*jZNWHJk%l<X7=!*y*y%M8gg&#{yqc(IPAJ@O<2{)&|kk29}{yQ-M+<pkUhC)^B
z{j1`nCe*+Zg0q20t45Y1%a34sG#gS!)33z<j)!)nE0g%$a&oiz>SaLt|5nsUYcH0s
zTUTc(wgkg#i66|M3aCp??J?#?0Sr%#;_mpMRDME_fNed(TE2p3F)LBDh45b>S1uvC
zxy*Lj=1c_OV=Qyg5-YV@R&Is^HNTuO58rR_oPO%yTEDJhk8fg`F)xsF7<VLdGSxJ+
zii(Lkf?5WudR4ih(Pzp;2wY4k&D=MA-?!H9c1zyj1+l3IEhoiem$~ze1G{$_quXwg
znc?v3)xjK*K)YIi)oa05m6bI<bRUgY0LKy7VLP*YFkrm%{myUe)5873kC`pwMQx_P
zlw@b?k$$kvz3(MtEy>(|nTb@yxPU)gqSxMV9mWPNg<Bxm7`i`zA8KUJmBL7l=?OKz
zncZp|X+M^=JavDc^etIY;=8{T`F4u05~K9&{G}-FXXfR`MT(1nyv#rfc>d=2o-^?2
z>mxA(Wy-8H;~O7Gt#3&6SYnj_%^Uo^BTR&2ikVg=`aIbwdU7J3tIDAuCq%Rqp{Cbg
zsuFdDJJVP@IjaP$8nsf{RiOm!bGA0N=Hi||B`WWN=9e~gU})?6sD(2_H7y-J2gkP;
zp|X8pF=`WdplX%6{8VW@Qu8o8?N%u`yt~ur4J|1Diuc5PMt<B9)dQE1(L9y$pSrh^
zW@bxZDbhh?x3jLYzj=`?-Ts%ETzCixS{}*b?yAU%mUr*;y2eI6u7+63(gunOP3mkc
z`PRKVT<ipcuy-NF;F7oatkg65G?0HVxp}s&BMgvhn$a5uFn~4>lJ>sgq;sA4{IyLE
zs2JB;KWHe^-Grd7?R)(r+AX)jMlFu_sYVHA*}XH=ezB*@$w<gVl7x|&5CY^L%myA|
zkn^Y{HMGus=f1cuNdGPkSWH>8w2@1YG2eCM?~+vq-9oqw;FM0nzD*w`kl7fGk+Fv1
zH~Xu+DVx53jc^ZCc5}_(1G)IopkFfc`dzC@#y~!O|I+W~cAhBn{$iBmX-eZ?BJYix
z-fLFIn+zzM_jfRH)UkpKCI}hr;2bBqZB)%8F8Jac?Zt79kT?H2i6JX!-5mfBxKU9X
zo*Ev&Fyu=%qkQmbkf13y(q<L@e{8*FTvXi`HaswN4uXI*iiEUuBdACS3KG&O(j5|W
z2Bj1cq?K0UMp8gJhL+|Yq=y!17^M3>Gu;38c|JU!^f%1xv-jF7u63=o_X(`ZJAoCG
zVp=`_Q-z$goonv1DQ5WxH5QvgzdlXu`>9s2;B3){3{&peSkP#i5kMB`+f+f5<oZo<
zVDIb1E}UPHj6qQ*GAaQlX}1OfbZLKy{pk2bvBHUZ9KaQAb1IM%G_<-szZkR3_UCWi
zVWM{4t>k6}^xa2M@z@`E*nmH3PBOcsOv$LXaELf1MJ_!*ZVvav`tz@<FNKnAOfK-I
zK_|eDcgV%=E`?>;;<)xjKw(zn&qAp<LBte*YS=QHwSc-yW2BI*6X$LaKk8GB+kkpp
z_(*bKPCO}p@6z=yNJV+iaG9;DFf?q7IFFkMjRl4U5#b-rksK#pDDcfqA?yeKqr2|E
ze2{_RHrNT=TCaToV;c5sfF><@Rwn-i1+Ee~(p9^646CF1HcP=Ee|JR_7qUfNK{X>D
zCl$b-p_Vty?f11LEdwCq5?brvFiiKp-!^nuzbLBw$8<|9UCY%^t{T6QU>S!@t(kP>
z(0K2V$swhXE?WyRL~+il%@)3_nzIl1)3&w01v!})y<ErMcZpRzT#Y}lmbsX*zj<Z(
z4JQYy210aw!XxO$pO+xmqBSz5;0$bLaD79bDWC+bo5p5*B7?bxkERDxB!LdMZx#z~
z)UUtKPr&+(HE!|b-i`ydK~R5;hEJuF2X88*u|=B9FCJ0`xqx4Y6TiTD3Z~?yGGTW|
zV=9`wKdA0XNxWUJ=u?s!9-hSB`KlReL!1cSIu#M34{v<60dYBH1#8p<5U(gQL&OgM
zcILdshs-G|2Q_CcxJY*ps)t=UIE^2O(_6?>M)cf~?c6ky_KkENXecC6f=iw+*LU2l
zN~WVFD3X*!Mi5wZ$E7biioYd?0Pw0H$@meJmPN~WnS>e8Cj330Cn?|$89i3TBcJ!A
zz&L9a4@HIqfw_!58uw;frMbwWa`LJf3IBDRqVCv%6OAEI{FIoC2S7%lz3N^GY<(Fq
z+J3{3zMK8}0eJ3m7!i!2GTxCm=8V&{8XQ~XP8v~mY|^5jd&{4{71z6Bn}qTGnUb7W
zf{VgICfJ{+(wFMbRjMIhK$phW?;F1bXf%@@iD0UcEOT*en;Csg5UQT0fHjD52yk;+
zR2Y=5x%hI=<}`aER<TCiA&y|o^Xx??;iR)TWi&NEV@HmWu~eGtNA4?RuoLw4Hw6$)
zO;sqK;xX8inSow_-|%q+N)zSzerRGbSl8icE!t4_2IA#~FDNfS{oB9TF@~w;0w>0}
zP-$CT_`(D)Y+W*LKIZh2!obR$j*|JnX_)$gyNZ!JY9C&*2br@4bR~<N<y75Fmt#8q
zPL24cT>6mzGEBe-s}Y^i-`U&;rwE<<n&6VHxa5sbaLM}R`o%w9_vqz`Tl<G5yRvtN
zbr9CTD5o<brq1IY_IClI26{apN^lT1+@hZEaFBWUvL^d<Hx@iv^0}#te}F%E(FJOr
zf!*h5FPv?H=h__-W@o1<mX-A2qmu-EgAyg2b6Z#G;4k+7zN0IYPO&+i`B))rua6lK
zUFNN~ZSzC&p1h)91V9q+#-4VSz#Z8kL2)^l)_4Mu`L>DI5(0AKt*mMp-8KRn3cNVQ
zUu<rNQM<6d*T=;x{})%^9uFo8Eunqt_Btw~UxC7#yoN`D0Ntiu+fxj+$iz(*xSB@T
z5Qu$zfT{&XO9O*fSiJ~rNCCk3e5JV~t=NB2Db)+ga}OM3=(B6So$d}iSn@PY{bRe`
z??;AwyA;s!-*>aDau_&3*BEjq!(5w(cC@8jP=RSrEWMBY174nOV#M6*{x@Zhum;3*
zh@J-xTKrE(l4)(@X$21ID6Auj*Bu$Rf13gw)0<e)Kf8s?NNgrM#5h*TV*ON1r_Wz4
zzxI?tQxwacvWc;~Q~&1-A6~7dvQv!X1z4AtHJZ7VuJv=t&HgbZl!$}DeHJH0^*Bdc
zoP3;}1`?<0lpI~~|17)yg1I*@xLY<C{pC8_w}C!S1NASC>oM2WkVX7duibSGRznLE
zsP3l+kcsdWI)~<_p0HJz$bK?GNMn4ifPy7%;0-YTkv4}@yKL?RftwUauviGDN}z&(
zqhbdY|8LOoxWdXqf5sJhcbzqo8Y#5ySUL9Z4zKTGK^`E^Z6;6aZw2~H5f`7sW&RI%
zFYFTYt-8aTy3Qir^ad|@VRnd#>_PAk3Q_dR)5U)t5J+w-oe!R>SK2mxCe-x<=J>Ot
zDbU=tZ_05U4A`LCw7y!sqYy)U71<zhiZ=IW?T6SwPP(u5+3Q#!k|z&X8pksk^#+=-
zz@T@qx}?wr9SiCZTMCFQxzx|EgxL2MbnQ;rKkQ{c5!NnCsjh=BhB^be)s3QZTB_#2
ztU{d6dfSN`dECpO1l@GF7~4BL@VPP55aq91;whJAxN%vITe!6tcH!cAroNA4%m9k|
z?4es(Gg#A^{zr7qyoWs{U>$-5$zZ5R!t=wzquXEz@DMaD`+B;IOZ|Hu8r2nadU(m9
zDQiGSuCA*<f&DjHupcz?LJW30+=^U&_U5bj-vhU^bKj=~#BkU=0~<)C8O(P-kFl8Z
z(hWq40vGBe^NGrwoku<3jVF1*ISf3Y|M<*L9X25I+>XK7Wa{fZFo9Pn5S<$!=L~m_
zoNZI{qjXNk4ks>J+ZIgHxaCuNYMK3{hW%&|)>@0S&GN7{1ifQtiM3ZrIgzoSFDP8B
z$xTpbO8%0@bk~-z+F}J!piP9107efO7Y$WOO5I+*l$P#18u@4rChttW)|$1ZeCb-t
zUrg-;LyZ<|YN2{j{~3UGUcwEPF;lPpF+{1)2zZewdRlb!=+YdNl&gU}`@60eiRnXo
zg=EoS#BBXM+1coLZKDVEtDWR@Rx$R<cijI&g%fP{S3t(F)?-_K9dxN8Qi5Gn<8>uf
z9)4_t8IKv~+5Be@@PwY>BqwlXo+?<db2>99$MAb{roj(>`0c-N{iZ$PuFd$#{<;!X
zngnV+mb)z3`+Akz>_y}L`WS<nr)XSf>FM^Y?D5&ITY#vto}TX6$ryuhCLn)|&OMgQ
zJo#1Z<<@+@3dNiGoAfoW>9~I#c-A}Kn|yf?TE7+G3Ls*FY+V<h+ZO{%mZd-_YaBn|
zeSWeJ$XoM&<kG*cl9F(Jx!A&Ds@aN(jWe`sx$o0%#z*rAuITGT=&mwYYZSukVE}6!
z#Q!mgRn8cPLt5QtmHj74pqK^`Mh@PE8cbH&ue80wyR-6j>ag<FaWD0!r@gc49oDwH
zf2IRZ(gW7scPt)nm&01+EzL72Z>!&0&4RtY9Aq`yVqPVDgfg<$08@dSr>>imJO>F3
z0x7j)yK>t>Nz?V35El5+Gw`z4O2bqQHh)Xzdf#03fmbuTc_P69z#>PH0ZzgtJN01>
zk?CFoGRz?p$AO}qv)~p>L>2DK9HPCN>1=|4_urR3JC!)FuSsYy88b^dA4$5iAwhmP
zuP;L(u!}@k9aZDqJ^$n=z+i%EY6enVUte8&wuoFG_B<mJICXTfv4FE-LMlz`h>`#}
zj9&g*kwr6bvCkRGj^EBWE8(|=W&$MRa^@@H=O-?lp?pXmuRnb<fjMKh)O8!R`1G2I
zvZf@<V6T;QK;8d|t+toU$c<}5=>JU48l8@Nn7_Jw&~k;F91s++vDLN0QblV}*r4UT
z9x@e5o;-wurocPUb0^iRo2aHN+`|Sy@N4&sxD^1=SRrtUL||hOuWttp@~MN2YXlTt
z;g>q_pti@D<a_7$7=k>z#K&OxobJUs94<VZMLewd<0)G7`q1au%Xm#N7VX(=#P>e%
ztHyc;l%+^+A53;R&5Me7YxP?fBQu@~$rx719UBK#g{4iv3F4y>7$%uEL5oYP+&mBJ
z2zip0`ePH}vVJ1!FEr<hgDL7v6riy_`EEoJrjq@=^=s(geDXUASTsA6sHS2+_DOWg
zQZvjlVEOgm?ELu`FQ=a`&Sjs56tG^|tOJbEon1xgxLb!U>rCl6s3-81zD?I<qL;uX
zy8iLcWw&iL*-!k`Ap<u+!Vb!Co}F<W8*Ad~#Bc&xp+y8C8-usGiytG;(9v)LwA`Pi
zygJH%cCz%bj#Ag{$^pt6vJv(T+%d77dK_5&>HkD9(UAX`2^fw#6kq!lryU-)WZm!`
z$fW&^zm?Jq0uPY%dyDh8|K5i5FF9rxYovl%_^KN6eBlNxBU8Vs?I8Nx9LL@j+{C$q
zuRZT<5N#;WAgYX0vqVWScX?q{o_(;xtaB&1ZF9)@n^!h=*c`U2+1<$nRi?JdQ})x<
zj-E^Ji35MAv;_Z)Ohg~A9)C-@Z`sYQ6y+NGw_5Frs1%R98iFag5#n!d@QR+QG*<f$
zIIll>U;vwP`xbnrnSamoS?xC7I&rx%P9}a=+7WZMb+A6)urTwO$=pCFA~oB`ezT27
zIFzxxCmquSd<dWi;U$;)w?16(T7hvm2pPs#-Rb{(JT<oG^#SBDwRmtL_082c{&8RR
zfKh`S)QuD~PL8X<wc>_U@U#4OJcY}a%5GqJM5gPwew3m#?HAb0qLO7hBsbNOz1in(
z`(n8UDbw~pPM@&&H!kPf)!G^$qF~lpW#}M@@V=|3jd=32vzc6I{NLsaoDiF?V!wxB
zUx>Rqh~KIVH4d*K!j>F8ZIpPrm)vw**X=EE3#YsquSOT{cdGGHaC7=ahbYYcMPfgg
zSb|?AL~B;>`QccDoF?FEuFvsQyh<hwYM<LHruTuicED%M%#rq_M8_Aae_*bJhueo+
zYws4Z{0HB-Z(w40t@qvUnX9(kgV{mjYv-7Mmrus9RoJ*^<X2xV1k1(xsBTkvXe$n_
zpFTcM{o=0cN_9mkqF|zPLg4zvt*sF$y|XhD=Cx*Ry*=Q?0+m}E%kp6NPTW<XbcnoK
zx~O3q2}?rKqFz~phU}-<!P%xfz^jrQ<|&7csy--f#!j@r;A+>k;C_KGOM_sJPP8IQ
zeqS^34*AsZ^eSZ7!kPoV0Oz>u<p+qsu+P6~jc|WaYwlc#c3tC3pq6hW26Mn=c@Xk!
zxq=%Rm&195g6^AoTobuf==^%g&%jkG*846*9R&9OSvbj+Aa8&W#OS$9It8AQQ3<!y
zf!7DfZ{M2#X>llSXDI7O3I5?s?|Wy%F#z;oePQ@Tzt`$+2o#(ApUq$FW1q^kAAvIm
zE2&McIb=~eX;Nt^x<o8f`-MxQ8K#khXZcPw<a`56(Ll6!RpM$Z`K2oqA^DBC)e9tB
zfZ=Y)Z|GKDJjj`WYq&}mjDB##z(2k$MQ`D(2aErv+}18l)&GyHbHptve5CRf>|pRt
zOiP&l-*PD--sHCap}GoS*HoT%AsckgVVj5hfdx3-ggY>TF|bXj6M0!IgHUH7@wlr_
z!qs8stdlW65s|sju>0;-<9&6MKYglKqOYR{m`_~{>ix`*uLW3*HP6{qv7=zqC5i8q
zKQ;$@m}7Daq@z+ch&}G+!brM>n4(OiZ4crr&jW4=3I{vqB;QeIifPhAoDL#lN8+n`
zHjTlTS=BQ85TWa>kLQyv4zC25%x5R=VG5jQ(|yt@@V-VFT|r8hy~hQ1WBSI?y?DAI
z{k9A^rGq#99sg)v!sQ@e_rEGo304z8Hegx-3^td`cb0r>7~IwYP+34<3!2PWyL%fY
zF^oxv%R%~s%J{>A8oY(Y(BCpQO?Z<sxRSQQ!@Eej{}reEuykoKz_x0q8P}OQj@z2N
zc+x1(CFWD5LH%J)mQVVCZ_B`)R|`0Od;=o$&SpmFcXxsGj$0(T`Me!nZ@+6Gz8+Di
z`^Um!zVOL}XP()jFhT}#;_%>n$ozXxtiNDfNorR3^-=r9vU=^St<cedix^IvRtQ74
zm@X%$?4Jk>;4_hiH7Ui-PSg@=n7qw>u9be$kZqC01vpsOY}1hp4|@hNCQa+rPGgl4
ztCQ-i^~3S6z%2578>eF5Ky8c$zIzaHozh077H&Il^SyePW2F@L8<}mE#^ta85{w#h
z`orDcV4hw^uM&OfyVL=)4zK@<JR+iVB|D{}+TqflVx3ECbqXrebsgAcfi^|en!6zL
z`0wP9LOO*@qxb-LafQ!sH@9?r+X$fRrufXnr6|@M)c0Rvl}xqd*&~wlkk|y?ks9@~
zCz0)pyw}fj6TsGvjX<(?hv!S2M!s%Kz6^tiD?AI=+g>!EA@h)QhdBd!p9_OeNQd^f
z4aXtu(-I`J2rU1~RX{{UD{&DvVAgIcrLKF5_m4X2eq=rA+k0f{D2}UA(YIAwCWeGw
zY-pe8LUyT0%l1>wrYr?-_x=AYC?yY8+;P8eSbLD?et<e|>21g(e$tZ+Qq1>&KtaU`
z>K*`kneAK;&}%q3GRpfg`s)Go?$p<*w9Gs>Ob@6r$BT}PV7&x%p*(s$@1>d><_kkH
zRf<z#N6epfEaYGAR?U`uX4K9d7fG#PkXL-UNEO~4pP5y8%J+^nLf4v!)Fi;g;*P{e
zI;xvVTX{8$->r;uxg5}+Pp(<c7X5_;Ej0blRL&`C#K@b_B)}jWb;w@X$ik*FVu8?s
zqiOGU%~__^D)q@_Ft+X!cd|fr=)vOvVRAZR+OVkd?w331%baZ~K?TRkE4R+KqY}Qk
zsM_38pMR+m#1a?b-@%{3+L@>k*O{B5!!xW6lK*--c;$QcJ8WRi=2`C=K!DE7Am=<i
ztnp?Sn8gQ@GYD;)ZK?6z`R&{9V;`6^31(Gi0X%~F!C*Ef>e#SQsf6j(AAV%b;UND`
zclE}jj4w5T3}Grc&m3>k9q{n=ht|Ah+`8rM%!o6zI$^0+ul&UI=*^L-@CQpqK{eky
zNx`S8#++?t%0XJyybha)8K$2uj$@w&<iPLFDVm2FF|FQyfA?cjhhMql2-VFgQV)9d
z)knNqH@QBB-sDtN`@YMjvSVebASjrAtMR2e%IFXsWa()9;jr!a@P8H<r;TktYSZFn
z`Aj}Jiysz~Py7uZ0~0?Fj9$c{xiyeEuyZMdQ?sZp|NhjTt_Su%+`MK^&2s<u7)&^K
zX)n`feYol5nYHQTK2$fIEPI}dzRWm#8?&_2PE7q^#YtHE(LMZ9A}T^jl_R10R;8V_
z2dSr~Cgn~*oIfYVcuvH6HAZ^<{W|K{IxBd@iL-&-=zbQY=yrH1raCBdba>ltx~^-y
zYV$bsx3VRBWQeW<zz~*qW9azdOL<!9*H!v4*IIQ}1>m1525WpuCH5u9dLGQ?OYB`}
z##ofd()hE77~-oz8VAQR6^ljZ`$pvOUdj{~^bGEuBlX)cF9wXyF6$Id2mHwTf@U(6
z&&WxHZ;QPB`S7OF*C$6z_CjaDrL(DA1)5$ZXoJRycQ#omtUv%3GvWyqSse}V^tdg*
zBUbf%dHmc#mdie836{Nk_h_Z$vmuTVUX${w;TP_2GaujKW_lHiREuQMwj~>)n9r{)
zJ-HtSKSpm7{;ge5<=c35%_i$Sd{DI^8cB@!is(kZg_(RZ4M?ccKW<yNQ@mNswF94P
zdw%)QIvao>{kC3y3EmgxG=0qUUJ3Ej`(|nAk=cOhIe&?{RM_!uwb!3deqJZ5&0mfy
z6P=BN6tXe-?F%s^^Nq+fXEQaLMPfd#YE0A*Vn36|#a{X-CR%vy+8z9A+M`F0cSnZv
z&z7G&(7G&A5%sQ5Cz>+Ezl6@~PaH}TO20+wYIFc{#}m=S2JD7$363tW!OClVQPE75
z*VB@6Ny^wU>i~Gf=||-QH=Q8-xMl&RsM&}p*FqO9TpVhosBv=RJd^tf*!fAP{OKU|
z-cWtN4dL(<b#Xb}c9?27lB!IjNBBVKGzPyeRX(|pJ^!rWGUa+kB5JBUr)|jzet#EO
z2xX-_rD+X(D^6piZZg%>ShPuw1eCk7#f7zB$_Qfqb|?{B{u#F5m{vbx6cs{zc$ndz
z6T)agfF|y<pG}`#6E(N}vzAMssA4I_*^~|r_HTo<)#PvPxCIa7ZSl>mCX>dD+Pbvb
zfalH2h50&-FW64VEJeYFEixVv7f(R%WO)y58`nw-Qylzd9Ua1<{`qHKe?%-HvaQj5
z9(olIe*AGGR;;8P|Cki7%G+E$#Xc^~4_-@kQG6hZi=6v+bNl?Sw*jcCZ`Ja}fOfCL
zYzgYHS;lFH*vros|5E+*n<33B^6w6!Lkf?zB5zwGrXMH1X#(X0Tw6%IpYet7)8Ll}
za-KSw&?c3sZ}=aDX_#m5&zur{E?@uY0Mu8$?`|_VQHKxs<tK*g$vCyB*5+4ZDwvnW
z3Mxtc6<nm65J?XXA?}-X=a$RM5Z;bt&(YQD-zPp0Kj^gI{+OI$Bd7}Y94gWhnwO^+
zYy~#Hc+L4$EW}{_Nkgz!BXIx!4p>UuZ*yLuV-PjMtIY+c%8w8Nk4-#pfS|Z51?M1T
zK?fP+RCIFPdSB@j*>Qb4`O$7r1d9BmF>Yu`g^SbOA;vQBdG=nj!<4)0h=+B7PpPGx
zGV1tmQOo5JN)VC}u>Yn1eu+kE`&a_7jP~(0IPr*4_Vw8x(BBT)-@6g{^XsZahWu|Y
zkWldXuO?hr?P411<mYwyW^w0jk;wH0MWhw1>ct@(q8WZMONCX)YjaeGI~(bhX$Sjt
z0b67-&l)l@;xr`Lp00mq5?Tv#KD7#GyNuZLSMhBf6AqE;cdhcG&43*^36E;%Po2Q$
z9m0rR^##oXwE99+#r7%?xGE*>H6mxB5KLrk_&1n4v590p)4{?=NHi!cXV<VYeaAhM
zxJ4uGZoLlSLH8YIt8Vsh)zMLwgC0yyCrXCn1Ri%oiAW;uy+^u|#HjpDyodp*JuuNr
zmP2<H!q%zZ(|>+<9oX)YMl?+C#O|r6?57{D&gXO18=xu!{StTVbH*^XBTd=sU-wxm
zm(BSG`buIB_gN|YO9GY)ouZ)_(E0M+R-^Hk=GOY(^#g5E2Q2s|cjSM5Dy;suYR&6x
zcI|mvIh8uo6t2eIIH4cU@f(maQ9~*yQg#0-LIF=^rrCrd$nOB(z%nhEjBugnOXk1Z
z`vu9z{26XGIh0NxzC(Pjiq@it^(JiNe|xHm(Dna@7Um~@G1?Fwu>38sN%rK|O>V+F
zw##^POHph@GukFof!Pj1-zy_wGf>m}dZs<XuF@YWbejF1fK<+6r+&PpAy~!nu-mVy
z2h0hyG<w0{Tvc$ndt1l$c&gqRdciJm>~h(Koevjfs2o~CUV~E(BGlmes57S9W#Y)*
z(2aHgpX2Qk<bI@-eeM|bvFZMRp-!fb-iMs(ANm&^#*sYxGTNHG+Q#&kA1bsjZwlt8
z;|CG&#$viZkKI(KRpn*yYobd@)87KZmjW{npKew08a90&sFlLg>mBh|axU~es=+?p
z0ZgmLI7kO`k{6m1+5OH~5I?7CUH3)bC<bTyPiO1^-w);*Gc4*|mGIe#v&1g^2hYb}
zxfldM`Nvq4a;~%o^~P=+l4Ue5$8+&x{Qx@ibl7NmRK-N{!sC34A5dQ$uqzGk1&ER@
zhz)~kf|MM(B^<Zy5D<Yr{q;vYP-Hw(4@qw+C4MGY>00WA?LkpTK^VbVy={hawELC0
znk|~gm>6e-_|rht8^XXi8KYmAxA|&jRPs}z(}#SQkq4%Ji(eW~4wv4Gu@N?rDyuG+
z9(U~X3^UPMQvhe4BP>k5C4@|z7wq<#aKmaJ!V4mV?vB)%=YDEUfLQ?VhF_E3T-}J;
zP}7<on9TIy4dTocFLJ(cl_}oMee+uz-pgpx=9-J&f0_7Snw*bS76<UVI8jek$TdlD
zo7S(n$E9qhP>dOD@T=1fa&d&DoTmqj<m|zI3FQI@Yi7cMc<m+4^-^td;62att;8Wt
zA<<9Hm}@M}f){ZZkf?`cYf+!#Qhn+hu>GT-HfE#k)v~@K$B$;&#WB86I|9Xyr1Z=$
zF8VaQG+40WQP*34T-p1w*@L_NHbK*4;-RW<@(=k;G<1U=1V^p-Q;V}{{<fowGm-WJ
zeCkTe&NwgSvUYV2)<&C-D$;6C+~=l4j}#83KbaVYl5DuH?fiQtyZp_sDd0ql%EH>P
zA@*mtI7WFAE-|q^;fjBOSDt?K>Z1&SA~aq3))HKq0&-XuxPJY5vy}ShC)R4m!WSux
z`IEH}6+`WVdduTm4#z#`^Jn%UXY)5|f$7bn+_e^_U}1u)bn5tnH#+iW%Zymf&$);7
zXT{%RN?W`RZunhmy@{`cpFu>Xd@K7I)x8Lq!}B0c^&RP($<S)N2dEfi=^J-G&W41<
z{PXe>iOR|i+ogpEp+^t#m3S1yU3rGIe;3Q|{FFB~uG$(Yl}LCgv#HQ7oe5rbOtiz9
z^=R(i+$=&*Ca`7k&E2b5@$VPbArF?2s0!Z)bJgt_@b#?bDQp9V_r}l7t^LhpsSoYW
zGw|T|BHfnXLbZSEmrfci>D-Isj#W`BK_!^0cpV!&8g};>@#clo2sQIg<29>+9dqmb
zvl$M8H=J>-#z%$|*PCGd)wV61a+YWSnsV2!Ct;$(ew%UrwmOqRvcT(B`-&coabHrc
zb54iPH!KfL=EfgmkhhU%d*-IZy-BSdVp%(Z6OB~kaG}aAmOpNmDn`xl^L14cC4xxN
zCZ{cQtp)3<gnHaT)&Gl8#?=LZXUTcfOP<c5!Sv-k<7{JKuLv1+L#k()g36h%v8(Bm
zEoN8AaUA|ze1qdd>b!lEdb4Tbl1v*Zg}|PBaldT~t5?2R;2S&jM=9oS;s8P0Pb{0K
zYsLf?5EpId?3Myn;d5V17k!OBZ@M-+UJFhBoq;240I<CSSNPO5v%VPmHL)QhomkHq
zl%}w1*V<UNsmqbKZzg<4De4f3dffIMM=YX-a0RSq$<xOPcO&x07&+J|=7)-!uD{D%
z%lNAB8@#H4IRcKW5arC{%5VijkIm%J<j58WQ5O99tRfc93k3myYm5&<4tRknGuFsZ
z(*J$6qXcp4odxj#z!oOIfci?pIKQ@~OF|1*t!=Xd{7A71IF>N7GAqaV$49tTeCtgB
ze{}(49<IE*^J!y7gQPyhCS<wgpkU%0z2!TaS3idn%VOA-2%R^%9`lH?s^C2WIOL%_
za9&d~Xa4GF@Q|2j?<^bC^p*FLjB!5lx>|zYPb`fd_fQN+>G@1d;BBaVPG$vLYQ<nm
zgbW*qvL9$k?XW0&<&@MBIm^?>4#&H0Ap@nz>p&9G>~7w`n<IA22GC{~L9tqmqfwbe
zu7;ASywwX{r?uoTw{3N->LB4dsE|q)P2Mwt<^Mu^b;42g2!e$`tB&W>%aIZGoA$~z
zEG6j7&t|fMPV6Vnxbh?u9geD6`#Yme5~Dg!@ttIzyll^~mPkRjr~N^#z0+LWIYQ^&
zPy7WBR#QwbTYTR@$?Z9jl^XHKVtP>+$CWbx&-9?>A_!~>1ug#MN|>6F$Z8Hn5>q_Q
zCiLPfp<JzT_EycF{mvgxjtJbJ_%8CjJlmLw_=kIf%FjSKh^*B^WJ&DDlK1u`Yo@&M
zZZ&pa)R|yct28-@5m_B6+lXs?vvkb5mCl17kMe9FmNiBs+wGI=hym^wVu3NU*TuJw
zBtmmx)hg128K+J!Hy4A^8J6elCx;5y(c;!{MePDOjbdG4PX$QJ%g7kQA^tig7d}P@
z^^Nrw66t$SM$<8dI<2Tvjv)MT!ZcDnCGG9wi3)FVO6r4imn%npWkT5>$!o-<>gmf(
zw}6SjvLlo6ljxplxeCOqAlOgeLE%Q$I0LW~V;Q-$U4%X)KgB18)X&+ZuALL%)^=`#
zt1Z9u23u)3rwgdspFd}f98_+z&-(GKHjqz~lr~`FiA6d6LhkdWP4`vi!>#%s{6?1%
zWVkL_E_Ky*9MwLwLRPa45NAU?xI@GD3?gHLh=j&X8v~25-Kz&)krrCL-D==X6MlgC
zN^U9k$qxTq5y988`R5c_7wAX^p&6QPiA|&oGrs~aOAvtt8bd)7ew-J6l4Cq`@ASN=
zD_FPw<7cI>_*teY#6wH6p@dwkS$s5^8XRcc-pUToIxa6&K69vgbFn>#S{yz#YdQIX
zwG?n4ui6d5?~fCC1e7!p`ZKl8w!P|@IjxdZ4q|I3nPS_@wF<qZM7{IS@-A0$>vc6q
zUILDArMYSocogaa^ThMZc!TP2pN|g)U%L&=iIPy?Ti=?Q$}kKCx&h*ONlPYo8O)iu
z&e`vXHS;FyQVV9UsN%Qw)hgp;&N}P4mx!h2lH%<!o!0W|may%AiqF;jS`-1o`I$X;
z111i|j2Rs1Ny&gyJk>8hXcr`qX0buEzGpU<T_B}j#Xd<^pNtn{7yS6DpwU)jl>=bg
zIK<&Dr(9Y}*Qn}Cw;ML!%$H`o?j492qUhiWhbv;Gpqqj78?K5<%nKF}Kb7TetL5q7
z<)@{2KWJ<0MGVKP?PBmQ#TvXon&TYz<}6eFPnezAg0%s*R(g)|ZJ6y-QW7ijFC5oc
z7=osUJUYx;2u!=+%dBJ!kJ@P-5Tm<1+LF=ycszhk@Y;dGa>gmTE-~-b+Al9Ib<0+;
zI8~sr3bQm1pbIGoc5hL5QUh&eT|M4thPLq@mOmvh5~p1Vfl(n^W9H8Rw)HHWvdD|#
z8c&9xFd?0{P6tG?y7+Qzke%Eo_(Dg-p>iQ|95Z-gTdyldUC|;+63}<V%4l|J045C?
zXHpqe+-a6_mB*SM7cKVm2vp!q0drb8EkT;MMcg;QMvOP5GR`D@M*$yW8%oahNNjE~
zedv(<=n1paKNiwAP7ZJ19-$5`Q)+)+Ao$GBJbnQfv)Poxl_(r|wXod^BO^c9j$959
z`Mp&l%&pG6{X_>)Sxx|aEg;_fGte<1_XRU5pn2PbxzOQ_eRs&-CLU+<bD-|?V^Usa
zQ^GSIx~<T|OVZXngDqTNM<*d}qN)s5^QuTyWL)KXYkKx!;uGnx{L8Af+KPQWEg5nR
zVV$WZmOzL<g%Rma#>T7LbTQ#a+Pr8Y@)GS}hDx|2j^ai|rr;`AN#s1L@^mN5$|=zE
zdKJ#ud11_abG0ITTw=<Ics>xe{dz$|I{)F@ln3=W%cx9aC9seRZj~8seG+s~fk~d*
zV~g`cfQSR<h-aX1=oF_=#D&TH8-UAjH<wUhV%L^efxQ*#KCmYHeKTo+gd2@L<H_Yf
zi`#RDSRH3#TB-;Xi_u=1^T%hN<Ovrvt)6oRDMu#$gW(71f%9E+uNSl2>C410qDFhf
zyr%fump=N-(<r?dQk?lt65v*XKli2B^4uxQUAnyy#kHRg-UXUZ5a=L7m(=!J?V)Ha
z$?^=uOevy3I1KRT4n5EI<`lTNogftEwH;Q%2djbxWF59VeUCi@87F?98{3o#8F!Zs
zHO#pmxIql3-Z5CIxjyim)QZc_+IVOL8pNRJC9&6xr?DGyD@%k}sD_?Qv%=^S-z+zp
zITa@&dfZ+?+TYv}n`|?-6byx&56_{xSC;`tGd)XG#uI<Kf#BGWBd(>38vrCTWbll7
zuMxVyLNXX}bS7ZXdj%P|TSGyVa}APBY((h{)gu0&5d)FGVfF7hG9Ae}^on}#oSip4
zHtsJZYAe*8MxciO91ZF(D@E=n7+aV`wd&Z(=%U;ye9lz*l7zPbI<DX(4P2vdWEws5
zljJwYt@a^qFY(GS*XDGO4p}YRoO#(u`od9gWu7wo1L^AlzHdan-lffuK(@db+Kx+K
zw`RaDh1-kyEB@r4K^1?HD7x?dT#(;RcAs#;ARUm*h#N=~%e5dQZ&HDVkf)y<aK#13
zPV7Q-AA}wP3MBF*-uY%`U^^81N+zY1Bq(PWy_=1D1fgA=zAEFi3z?h^1pb7f1<LG0
z)LNls5_C#b3}@tNfx|yrgB~bhZq*#g8XX!(3PXMI6^WLcp#$|^wu?9vV{C<UCD|p4
zb0r%)szzs2kyH0pspc49_E2IK({#b20D!w4vSVR2{TTBdUV{<gO^0saH&8KJwKi^~
z>)>7DEn85{3y^fR{BEwYcUGUI5VV--uJai-GFh?JC`i^X9L2mdG;#%><|2;Mla<dR
zdnd~~B3aaA$*r%a%7gI~>!Eu>M7|;JglQ%joYWYnqhAr(N0cOixfj_66F@Q~YEYfL
z=C4H=<|MnrduA39)3Pvu$>0h1eb41`4_*~S#L9f|`|XdZrzCnQMr&D_idC}?g44Zh
zVHu~Nq_){@SiuI>$-mb-Wg#G>`7X8ZRJM{@_A;XLyiWF!4>}~@)6PVtmaac^&ujHt
zOBZ}j2T7C#S$5M8JnJY0^`8j?+kmU?*3{=Ad0zbW&ORda6IXf|SH&CR<Te@A`uP@L
zyDA@@J#8CRJIWw*L5r+o0%^5(J?3|vT_CN^OW7|VmL-vH1ATV1SLOuMNd}%XVw%0!
zk;1)2vFsqGpt3JPK^;&!C#)N#+6cJtwj|CXK4{4Ae2f32M^Y1bld9CnpKx)*{~9;^
zX5sKmdy%>S!fx41XwfShgNui8oiVAdlkti#R6VHYI8RP5w6dSP#!ooOt`Hj<mWn53
zJq53)`TZvqZ;N#*>$W;7sqY5pz8%u0MC25@>WO%22QvxhbyH6Iox7S=`HK2Jkh=fd
zUOD|;r)s-tviolbFohQ%(ly_}LtK5BNkzwDuDDk&V!w}X2&r$a{2GDX1J1ho>KDQ2
zWEBs;$V0t%)Va2S+HP)K?GY<6hkCqQ1K}6JHLH0poxIkdx1hrLpG8wn&6)_g_3Dn(
za>Y|SC3Z4~AOgj6AtT_Hsk>rAxouF9L_KTd(m|qt&q7LShFlT_f6#((`7&*UUmBOo
zAF?ooRo;QuGZ7*AOb3*?5_^Y=TAcE4l10Su*nr)vy`+RtYI}&A#^W#-%bm1m-?&TD
z+^PMj75g91at>(xnDaYc#Iy=4B)Fs~gTemnsEd~GdezsT-tTDH*-)Zk3vICcrzBH<
z7uj`KmPkOUN!w9^?o<4O&vg!#*s6T-M>T%7F7cOyk{jgbr+B9-R*LsIO2T3VQ+iAz
z0k3Roqdk(cyMZhjKgLq#n|!a)h19sd{4uqg*Ir4_A0LigLMOLY%ER}1Z^5}IEyR9!
zD|+pn4$W!)-B*9T%PlfMSF>r0wasW7+Cz>JeSl;}|A*z;16r$d#V3)N-|VO+KLs**
zGISi=yiyFq<xUey6?vNbX~SyS8HnAi=z5yyp(*jA#%-8f2ci`cmER)Aocxf{a=K_Q
zw?q294VQzMp@1(+jW|qYdwBgR^@9*|4ezq-ahZS?&_;Ipu-=EM>)ix}uVbI<_7t%S
zO${}up03TdWb(Dd?fW8&Kn0<eSX7>hRc1m^%xT_z`Fd3&^5tSC`BC7xQ^f>ks%`QO
z!h&LvDI@*G#MoyUVRe&#F8CVhr1nJ5F7r1zh6dX&X8xFgkt2K%_q4$tiOK2^@(&SB
za&xNB1?QS3U|BEjvdtBoa}rrDA#LT5trE!1iCbR(-e1Xlki^O^Fhe#U1{)0RO`<NY
z)EXm*6z+u^jW#p`phmuP8XFRIpgeD^ry&brOifNC<s4$qry&DwADk9r0p1;~8_)3&
zuq8co=XK}xj(hRBOAcYCYqCoHBW5!-y;#YDhtpzHff;eSUd_-%oU6ydLO>lvS10t3
zLPgUxd97gLGFA+%h_$oGUwyK#Keakz-OZTNijvg|FgaQL`Z$I!%!My$RF|yqla$-}
z!$@6lFIBM~5G8GJ^5PD^-e*cHcGT>{DOKqb6i*r@Ljz-L`f3YnS=%klTsO>*;NW$K
zJw6a|aov4p);P+p1zNUJh)hK+TCG`?t&q(H7`ZEj{@v(@L>)#P8C$weUT=n&DHNw0
zq5$rK`uaCRqM3{X1R3Pcs&kx{GNFa5%lYzdThKQjOgxA0TBoQ2T_tIIXksbf@mrE<
zN1DuA`O+TTq8pDni@wsW1CMUB+D2CJdQk7p%>MZY+@y>bSK7F2Mr@i~RnLvg3C><r
z&PofNrQx;hJ__czpcNr!Lo->^r~r@;p+`mH5AlpDuN~189g})f+T2z`gw4JtmxQ=Q
zh(P^a0t99tQEb|`om&rJJO&^5f^Q7eTM-Dq&UyUU@9<#gSo3Be)j0bE<v8VnCLd&4
ziv4H9*X?hzb#L~3()&k-7L`_W)M^j%P9t+k2@Y;{>eG?MQ1S}Xs$@Nzq;CZTtXBu0
z9Npp>2((SG26KSBSlFB3y$|6pSNqfIlD)0W%R-X749QnbiJQcS1#+H|f~k{<9q}f)
z0D>>SjYm<pfK-W#X5d^g=#Rn5sePoH>Iwlje!Z>4QZE|<V<+wA;55eX5Km`g*<HRK
zq7X9s^iD(c4_bJe!{GBSAnx`9OD7Fls_dUmE9>lkA_7dZmRT#}ay7F{$5k!uRjhba
zR{1n?2=!I1m_qgmwr<mJEp|GYSsH^XatDWleA0Kp*IU%V@$|r=$KB#rOv$SAe33CN
zwG6pUnP{SSUK|Zf<E*W4k$Gz{W*dq0O(fXQQhT?A#b;l_0Nn+bhmPdbs<Z5KP`@XB
zcn0dJ#ani#G}0-`)XbwS9o;;o-9HZSVjyGo)M2oY`qeEsg)Dn^sh^3gT>g{ytO*)U
ztLtVDL`%4}PjB(CZS{fY62#Z8Fs#J>17s6yRJp5ue&dwr@OaK~F5i8^$NjP!HbV~P
ztzpPlKymtEnh#RAJR)a@qdk}teE*mJ?I~uHa%U=0p<6GOjNSzUxq%LLL_rk7^X;{U
zcteeQ+Lmr7-2FLaR!(Fdc$k}(4A!e*Y5r&*9rm%tjZf`IRQUOj3Pd1hP$uQPSDNRZ
zjfBk&>5Bup1>*9Ze43STj9Z$>;b_ug#6~Iv(6k_!cR~J3@D3^H?G1m!BUfUNihppz
zy^q?B$xl%N++7aWli3K;9?TIUw~%*Kj!1*glig7s&8)wgXO69pu1T?+tJbNUyD?K7
znzqU0@zYDgpBqDbXGCcoKa4c)xga03yA$yYod1ic>J{R@yL&@8;)sYu4VLogxA{#&
zKu-W3y%<whvE>8$($8cztOyVRj357&bZ?n)fBs#)>v*+bFLAQ_puupjtyYPs4mG$#
zA`M*95Z!S&^Cv^VsPp)#4ll?4{uqp!7+j^%IR5;sKs&%=+KIRQG{o;?llri_K;CSG
zC{Yr6&mpq;7UrNR_?kPcU5Go;;NM1I4<qZ5vm-Z}sm?hAZTOT>l&SsO+xqPGv{YmB
z(vh%<C}-j{sbTE3<0;t0yPxE|iA@~|8T>|aHWEC8!7rbbH}cchz*ip-z;(d$Jr@%`
zo9gekvy5ueo!llokfPB8YG;aF!l#6W0-1ML9F1iR`MaK(=gV3L2&!Hp>TI6_<>y3m
z^)T&$5+^cuk&v*2lkK^+)aqiT60p|Pf%EnGiWL%c!rDGVmwT^6Tr$V0grwONMa5hy
zq{{HPE%cpoCh0F&7D|VGQ>IG(x$Uxg0*5Nw5`Qo`c;(vQF&axHXSG$_C&vxx#RJ=m
zS{iIrmOM5R-+UmQx1L)c0_37-|InxSY0bUz0?3pP`?tBny-3h_EQF2mGFGl3KCEIS
z^TqeMVKpIJTMm?8PFO;E`M_aFy~wo$v^a0ihLojj*+u-IyX+fbfbu{9p3Y?zHy-NC
z;x~-c&<hflfy({ak{kc-^bXv{xZ*2>9?6dS^v#9V66WcAR?Y^J8|3iFfZZRSB?ccH
zM*5x)692hY^G3x(a+v4wqr;=O>U8faID<YHoF@szb2+34@PRB~XLbqx-nkM<g>Gwb
ziw;qhAK24q{#k@EAVh&<2FiR85p@CCo)BrLJty*~4^^0CsLv6cY<P8<6}Vcj-n~{m
zY~e3At$C^OUMajRlrd?i0jQ<^rJ&e;O;mX>G@Hw=bSbpft#2*M(A!VvR{J3ARRU>P
zo6O0IPwglVLipdt%16JW+CLaVlSgj=gqnYvxC~wGSTWb@l6@hUcspXq2CEKWQ&3LD
zBB^parS0wDxn{|}Z%Na!J9iQrzPZ+6|Eb9KN??ZT`NZEFWf$>~1Ym(C&3|LF)+R6{
z5lKAd*<>&<(j$6{rZvs^c5JnN;)e+cnpEKBR4s@z)Y7mHx-)w<AAc|uBj*o9KaUNA
z@=tk~M4G5d!;S=;kM6>V*!A>e`2NhA#)Z4ih-UJH-r`7bD%jQ{apS}YlI_5g1k74|
zq!a_&m*3`=-0KE>5ksOek3x{g`rQZbtXGK(+@u?~jyU0EFI;wgbb=J7WJ6NjGUSU=
z$b$!aUtbFC5^*)h>wSQ~e`MSz+o?y~*)X5uy#DQ*t?%jJSWm67%nPoYg(xq1+h2p&
z7`||Mh6PI8%B$BMD)xN-`RM#bTyDyUV#f)__U2KNJupj1zb#p**Rff?%=3`$d(O^s
zXl?afw=MPOq{(03g1r(yAopMB@uEB9a(9`iQTN?E?E24hMR=x8=%zIT9TiW=3(FNN
zoIc>eG@1))FMsJt!5)zV2M1f?MJcL}y61oDFzsoS>TxRCBWF~Cd?h=nAD#ylrxhmJ
zJhWDwj{uZ~LkBBtS0%iK17)PpWlrQy#E;@~ST0pTp1AW9`2n79*bztC>3YkiSv;bV
z^PsKW$!as1qlCafg>QsD?{X+Rz0m!Bzz4q{obKw2{}v1ezoz|jkw&|0-riu7p#v-*
z=nMwM1OfNE|0PvW_`$rOJ#j?%mpqv&D5paox(_g<3ngY0P0=5lOs+UTgEozZOb~yX
z|5#^+A7f`SMg5*<pf7`+WglxMNej#&Sjp>J=~y5A874<2y#p4G?3`B2Pt;4ESG7HS
zs~VRh_+A1Bo@mP_Qs(`XqbD|p4<mFTTZO+IErKZ9!QR2t7wrtb&hU&~YT^$Bz=>sR
z^yXVLRE;0%V~powv^~n=h`Efl>mrCAGnUl3mTDe&uMfX)I5}W}UwVFgyPAbRJ|FM$
zpW&3alg4wWa0%PU7#b*D&s&V~!su$R*8IOAT`!b~Uwk+@HkLIc@1l4hK<5PiL_YUQ
z?ee-m>-4l+7%4GKQ;oLO1VJsr2?+h3Og&i4vDtQV0$DSc`70g&<V?irp}%=BGXiTO
zp3hGVj=!Mwzm`Jgp)|+4@>%ziB`Sk7EXG#Jl+b=mQ(7H`**{b|+w)a(do%k$@J`qi
z>Y=pD{l)gC$saACAIFoXK={O8DmI9cH)}G_=bQw$zJ<^&Al*d6fTKd^^^ULbE4yRw
z4R%LQn+2+vMG{M~+RrrX_obdPYs(*y_sRWvj;s&4NvMe0cmjs`SS(E>J`k$DS}T(6
zdrEvkKz;$GKl8Jjt!E2cAg&15CY*be@|V@fn=K8H6_6#PS7HYV68d1W)(7B~BEn@O
zxnBbn;yQtJk@@F3Zpj+@k8k*k|F0W>oh^J1&tirBMM2UTtZ^0E^>e+(bz-JCrmcBI
z;FXxyeqnjBU7u2r%gDXxMd5?w-qnT=PHs2OT)t)sX5O0%hU|3|5><9IW!jkt&xdES
z|9nyzaJ52*f2XcP_85rAhA%-Egj@$A#77ZED+8UgZsT1V;EFzB3B1L}22N5`*#cTK
zGW;AD;o`%=3Zcaay)1W03~3}g{tP|~sVIa$`!Lvjbdu<e21;2oiM3;2Q#j`|kG5u~
z^Aq%iphfU*l|b$4?e>&7WJqs{)OJA#w7v3)Lu9G_@!x?YYw#0xm=Xj~=A0SW*R*Is
z<ql`MZf|9@Qz|LNZsoGi)uqO`il8c_;j7i)kbC`KdJVKJyC0Y0H)U8;*i$R!sGoJQ
zR+AkGLu60j-9Mz*R15`RHghMrr^DYb=(9i)JI#Az`b`NxMi`QC;<j{RC%pJ>X_Xm2
z*~|c>9O^-%SIhhW_;D>eEtwXxKw)i$dO=}se=Bkwo^F>I%}p{>7qlCy9+p!NH||Mz
z&zAQNZ&!ey+iUuLg;h{TwGBG5@q-1H@^EYpX#dVnRSEggeMj7XS#ST;*GJjVVp8$)
z2Fy3)C_;Ry@se>)2If0(Z37YvGgO{u@?W!0w7KmN30ON=Yut~hSfy6Rt4n?nor^AI
zc3tdNcVqMpvN$8^a2E=R`TP4M2Gv-}4%Wyur9HOv-<*tjwTd#7{r>X_HmfrixEB`%
z<=xL;R=M0|HtoYFiCU#D)#@rKX=guX-2F2%X?)fQR@Q>wvZ#M|m+KOKa~nA<Ov#_M
zy(FP(4BS0jWNCJmn(Gfen$<GNtS?D1I9U1gWWPU${y%@Ndvud|0sm&iPz$u+@^1OD
zPc_~p)r7!V!_NzX3(6CO_MNV$O*)4|yT2AbmwpAYOYaqPGO;v<{ED<Sst~z7;<Wl1
zU$6A_1BU!Q)p@~H88iX-j^VINDso^jbd^W7OVjdiuT_7y`_`#ti;h;6reim07g`xW
zv->lLu;Wuh8VLeGWO7FQ-5X!3Pr=$<hJG$*af>7LE2$|}5z#wko@_dzeHX6KpAEI-
zynEYfwlo+yRDPlkK6t&f4vCt3o9NgW>sPnG$#3Q3k<}q;q<auUTFox^1wi!DcsC`x
zUCC`Gz%?aMoU<tbsS_fB46r2qIEKN@QnAYKDh*%P0PSC}-CtT1PPt%#fa3%BO%#3e
zIm?RDb14Q_a{9CKb?n|YoIvs8{yH)IF~zpsNzPY}8NJ;fBnob~!-r9?j%<9<N(d*?
z9Uu9I{(EUbe=+nw0Pu7<#deI4I%@a=6QLAD?N5k1nYB^3Ub5aP4c5G>j=<!-AATel
zD%|?Ip6KBCSId(I-rIM`#*~A2+DXy~mrKy&G=&m=(>`NSsw9`>Fq@!ZJYp8i$oCKG
zlM6n=W~3XcvpL1DF6Lume55Dk(LQ5lPAVjNi1mY60JuDf`lS(9`L-eld&6f0y(wjs
zFVvir1%D^1Y^56JinkSlvUws+vrq*)cvGX}J6HX<3df1A;i@E^UrES?!#aT1N4}P_
zd^_+*j#SDHQY2Gx8W;uqGswVsj}alR^<{GJIgZ*h6df^M)<=dR-PHNJ>{^Y$7o}M!
zOEb{J6;H7jL4k?DRRpLFb3*W=z7|4X^o3ryaKK5eg^Pk2yo=e_dBHTBOFdN)mjUXm
zuR#r37H%k0!>rbLtadaa{Zx%eb<S@jlRd=a0w&o*3YaZ-6rLE9+Q$3<`r@uSg*|Y@
z4T>Z89ObnVenbsYLR|8+!?)N7=Cd>|3xdm5VsZ$ABx&KTjhGBdW+m)_bFg*ysxI^h
z&43Ss6Og;=oYs+vI54cB8BPwN2ajV!qW7fq55)5GK4BDQ@tfqi=K-9gIzzF+A_uQd
z7STBDyPAQ%xQ5B!@Gz?qLw5PSetVk7rEsc(W^WxuPBV+X#65}|iN*gY2(90nAySX)
zY4v&P%OvdJU5)szeFua`XH`QLzTS(tvurMoxQvr>sMhTcX<H9HaU`ZhZHf^*3>wGv
z(n0Jg<2nTVucTn^^VM2Qbw=FqWmjdIIdo}T!toGrY@~J*`}t&pkuF#ga)|X)lo+MK
z6@Dd^25@&9;ffEGxF=!18TX3_$5LZIR(FKbCcCTQ3GuIBpXDG{MeiR}^d^>T#E_Tn
z#QOcx?1+L5(|fLh5?Je^vKxt2zfsrCk1dV>lY&(dG&ZN-RC@oHo*zGbR96S11)GXL
z-jnyDO>;f`rKWdBTfnm)lEB5840tU#7lLt7LbS8P(9CDV#fJG47wP4PBrcb1T;}L9
zpe?sq=|>mUaT;<-!I?&-g)iGBc}E?!nxA=bZ!Q^m11X7=<P0^WCktEJT^_U$0jmC0
zk2{kyj;qYYG9R}pB*9a(;CW9uSy|urqHv!gC<t7)I)vdnA4NNLAm_Qds|h@rLFHbf
zMbBxi-wWewAipp)t~?mLu_$uep<#C$?Cz#7u)!^9BGJ(NSYpm;DN{%3d@qA>k?|py
z`a4k}d=k!vwQq$bbwrlkApZeT%1{C>oI>0f$ijBJHToaLNh;#jRDd&r9Kp^T_GzMm
zo&Ewt&BNMq=WafM78bMA75&TonMy!UXS6mbepJ!`R$1bz7}v*2XN9NEmU5HLCrzd=
z;=wZ?P>d4-)~d)XCW+lClPjZ{jFX3QbOQb+ZxpNX_YMySCwXbGe`b=xZLmWWjSX6I
zDk$e(wHkyhtkw4`JFYOj(~f&iC$r%a_IeZXJF?hP!Q?Y=E|=z(V`oi_i^YcKua?lF
zWT1ke9T6~<>4|mD&`s<2p)j^7e=FQGsKICG2D2*L18_Bxmf6&}O42CN3&Bw3_d7C_
zCoCB*7cRHLuqN)1CgQ=R?qllFalJmqhXOob%10mNXJ0WEBR?NXE1M+n9F^>*wD?|(
z8$6DBF#!Qr-|Xl71#1+QxwxndiX_<rejJY+3|ZJ)9kzHj-Q+r5H>?goXOD(6feY{c
z&JWnDe^5#N*pQ_@`6U!a-^rMaKdZD^Ic)BJG#@cb;y&e4oel|N$a=z?CKt|$?Z=-~
z3Hwf^94BcH>d`D^4NrBU>24#zp8b?lNzKAL7fDA;5J;uNPgc!DJ7Y#1E`DA&G~L;W
zW{Tx<fLv`aHklQ^H8eZR{^-){2|VHY+D0;$3jsLWSBBY7QpnFpjG*$QXJt=#<;QI6
zxuO-opC!}S;n@NXQGR?wP*ai75DLAD8l8bjL$}JvNjI-XDR5$ORWRJlxLo46A;Ne~
zP&9cFlnn|e3?lUxER%zE-a(2!Bap3F?pLp<Q5~JB{r9G0^T(M~)kmbK#xZK(HO+_k
zVi7lnMUnX-CWtOD4sL>7TLn3Q+rAb76~}q%DR8Ik4#O~KTO{t}6(~B!6xGj5ED;##
z+yO@6Tek@=<tJM{gp|gXoDbWu{uGgjI!!1#FNmgpdK$eq!_qo5b4cUA4(m)+JIVSs
zVWb0bv&Gn^4E>hId2<wZCw3$F+=M}c9R=SeMP9yXeK1brFH`oVTbdB1wFrE88ue_`
zSAwra&ZP)Cai8UWfI?5qTjWzDd&Pk!f|i*DP;^%)qb$274IK~JbNd2uPK-Vbwv=6M
zdwt94y%#m+##|;s0kK>O$7*BT!_-S!Fh2bi>dv^NVj(Lkb_7U{@Gz=#uX1$7P)Ywh
z+xMa_;OeV*bg9Vwv4?*XFk2k2KzRLsJ$-vTlkfk(A(B(+;7mD&keqUyQ#pk~<TxeD
z`II?sH>s#hIUgf$Lyn7?Lk?RfN}-$&W8{>>%yEmEeWyOZ-yZjW_v7C7dR^E3I$zHx
zn#hSJ9#rbvc+a*!+^$LU^GiM%533@p%YzSRm3)%54xL@56{~f3Bl!LF-57T%>7&^Q
z==FY?g^=m6F|s?3e3LlA0{PMi9BnIl|CQ|9<n5_9RVHw_^ARTwwNb%1S4gHQrqs#$
z$gD@8iz4o<|4Iii%kM}QmABp8k>T9y7lTg+%Pf72yXszqfW?r*K#|f*#*9^iA#*!*
zxMzgQK%8-qdtC=-Zhcv|sA-@^YsZZ+fzJ(5*KV(0TTJbQg=(xVYZF~SBv9blA!&j^
zv>Wj9b8FA>-jIt+`ukbi#H5=zFC3@fIH8o-tVvvd4&cevm5mg;maGUa&+n%3I#>Dr
zdLf2?v+A;!f35;=`>aC#Z<jf>sxoCP;%JvH*XqD@ThRBtnzPd7tt-g`>>|S+1+)sR
z$EqjpTAuRvv9*<4GmAFI7pXSQO_FO@pO=YQSafQ>E9(++?K7E<u}Yzz_Gyoc9uGnE
z%<=PB>Ag0@X3y=-^D8O7bkAO~28kSJ!POx@OC-*AtmZg+gTbG&`E5Xw0O723ByTrd
zDJ`vB0ZlBr5hI!}hzmd>Ni1V6vUj^yIra<ejmqCWGQ&V2eO}1Bl=owO^CNZTJt3OU
zW;$1QLv4S>NMt?^iC}U!AqvgirM)x9bc-`v%l2d`-whE1?Z?{-(-xiZLszLni7QEX
z=m85-)Lh)va1WZm*jd>vHXu&!+>BW86SaiMHynRd-(>%^0i6MoU5jS@8UPJH7w&7Q
zpYBYxUlBi-FD%cv_mRw>5~IgYN3;vBCED&n4HP(`9a=gECv1PUWy#?ZoUkK<_X)Qs
z-se^E<>~qb&yaJ#0pU|vSXa^L9j>0gt<%FzJ)SIbMS9nX7WqsqhWc8@vq5!+XMNef
zZB3iF%en)gg_FblhRdsb0a+jKXx6D8(|_6pqip$~MCf7kMb7)(!|(8|ZPn9kF75~E
zo-&(vmssDFfkE<jTHAf;oo$*3zO^g1TK}DH(Jyz{(L(&Rd6NG(M9{dMbvVE@1h>xP
zhU>0h>Hj`gUxAx2N7rJF{ZtEGZYYI^Z6DtQ4$2H&wBEx!h7MpA`)=E_Y+VFPXM8B~
zNtj-f+WiTE5V}fCAy3<jPBgKKXy~Ofw35F~^CHI{W%<_azZzrL_^{gu3mcmqVW5b>
zZX+U}P~#sl^v$Sz9EMr;mf(s&ijG<7-Lf=`=ds6r_w2Q$k%uajn7Tmxsb~6PfdY$q
zwCn`C+<U_L87k9t-yiPQUmUVE#w43)M-l24aoL!aXa^Qyp$1awM4%}igSU~ci#=CS
z(5-2vJ{D0Pk`{%+lObr&5w92AV<r1}_}mp8^`>^yz?g>Gx~x#d-ljIwN<4%~oE6G;
zX5_L=(K?|PQFj<kjb9tA3<4O1CHnwHpSnH*v$(9{^{AukwhR!YwG+vDEX}#y-)Fpq
zq$5Yvv>LI!2TR7k?a0CDWT<;zf>lbuJv?InWUvwgr}-BO^-b($+BE&@o`#9dP{=NF
z3wgUhnV#og?N`lUFY3DZq6N$VTidZ@`@18I{@Nq%5j&(1FzeNo65OU>_I1hBoMYb!
zIp-gr5y_1lA1jfAG_~Doa_skC2-QKA|MZ9555gn1)Aa9;J+qgji^zYSBgO-=FabNa
zJLl=3FRbz-gw>76wPr*(VkobjjM;y+J#z{f&c#>_DTL}_fM~1Wu+SJG^8T{U4f9cP
z_I+MCAD|_^;r!h(9?8pH*L7b`1ZFkp)f-N9b`(NC>)E#>wHJy&)>4`9sC&bW;PuMN
z1Ik=uMBqk&FjdI(KUUX*0PqX@ltY;qbFYW3Hq4y~Jh{lPA^RS?jsGQUeU6DY7ka7^
z`38^9_0b-((a5hu>SH}2Hm$z`hn%N5k&gi=D5b&|V(yhi753@51(^+oX*bcvZi_Uj
zFBx+lesjLcKl3ZU4q{Wf<z&fppibGcQs2w)^9eGZy<)gkY79jUEMA{3%KxNhtA`Yt
zd+8lyQ}I*w<r%|(yMKR6?5V-L-q!V-F5vZIe`*O%)kOfXYwnzhd}$AaviB#`fzn+9
zzK?aybDI5c+QU$phNqpmm(5<>XB=9f*<)VHw*Jp%HH5X}#=Yv?7X2V3yuaPRqStiV
zy5FdJUVCx??HLot88&-!ghO_PKmIgAIrWGWw#u&|fTjA|IH~)N+=v@N@Q=QnT(sBl
z;(&VR=;+8mZ8He4{yJV%IZnT0+yCdws_Xn*$l1&vTHpvp_920$qxduoC4KFEN=wKw
z<OrkW6@^<d-4M#xl49I%xXk9{%D>q8PBikwl6E)e2Wy$3O}a%b;fAq548fIdeDydZ
z{bwkUfo5WF-ORhQar1S_`$)zxAHl{#!!i4H6m-~u1n8n<q(e=0W~`xwvdf<~Sbac)
zp${9}Z6iG0ZFFX9vxC9t_n0~Hp!>%OCewcEDHS`~iUObg{L9=pDD`%4#KR8i*dm27
z{Evwev{pIrCdvu8IdLQ)=}?dTNB?FpnKkD!8zMpLDz>(JAP>C?8ER2Ij0A#8OFyOp
zLdlfz)eyzEdD{`DvI*(iSmr{|1qsD^C;gEtNaSLZX{?uV6Z7a}d$xHVTca&r<cO!H
z$I$Ukf#)kerud!M=i5C`j^NahS3IcZPv^XFEy&z8h~LFdHd`aOxGi&(V8uZUaApF7
zON^I{15m1+_uXgjx8!XH`HHP;O>3O%$CktUuhCE}%I6f>sN!P>zE}FO`J0k-N=$KO
zjl&1`)SoxAuRDNP0nYWy7a4H0f>yFDdbs7DeG%b-QshdDM>R{TZ=~=NZFixL$AlrZ
zkmbLqk2{!$G0=9-gDB8-DUW&S<Ky1LXY5iRD1NTvxvQ!cpTQ;8?b&<0bA{ENCssU?
zX_QI#=>DUO;KJdl^<0hzpe7c-xS04pW-8Cj=&Lxuvi^@4sN>k`rAM=c#?g8mYM%tK
z%+>52O#bShJpbQHtDgSNvWF%rj>#FY7LI@Kt5bnJexO$*wql@Re9{axd0niBZ!Ly}
zS5vTrJ!hnB6oQ{~6%XX|vq5<7#oyDoT+7nTdyD;=_|<AsUnhO!w#eUMZ-xPR20TtK
zdbFIC#YGUf*4(626fEA&MUIw9w>b5Ab@x<%q9-Wls4oAlT%D0x$;<pWJpLAe3HqfM
zb9!C5r4j8bB5bDmOEMUK1|l2m-bjKk0~0%|)qM(yf+Q|^4%&>=^4~&28nQ9ZMBeg5
z{AAbVEX4aq)b-rpAUFM)gH_-}@>Vzga^m0;I-s_X(Wt3n+E)}_47Fu$AE%eVAI3B>
zh~3#_haK+*V7yyM8JJ1u#e$w#Nu2{0MG;16P%402%}6Z!%Vtj5+OF%{THQC#FZ_sJ
z+`$E{Y)5f5D^2Kovo2~M%gGGDzR37gOWs&*VQMR@B*v}owi;Aa0z_>6qO-VAtZK{w
zIJ|f4dp3HJ_ZQud;Yxf&7<{!1lfg~;UWmPv?8(EXBqe<?462Iz7RPT(#cqVXxxlsi
zi)~gceTDK+h=}SN5A1^%GPRv<&TV)-JBh=BCU|F^eaB8mO0J9cOQialp~F$ky;7N9
z?$6C#=p70luR;MO26^ve1E953GZe|%I60!3QZlaQ0a{;K-N#C23i@_27hJKGXinVD
z(+G1IrUY@Nz>t*Ey>QZ5>E{5mZYst~z$n?Xcq*pCS?dPv_tD;+&DE&WOYOJ5MNcP=
zk@G9Z8+!`<U~!b})u`4=nk<WKD&Ou7L(rPBEr&rmaE8$kJ~St4zMJz(DMCi{r#MPz
z*I@MivC(&(b#C@&!V7Mez}V!L1mi823+M<Z>M>in0-cplKUhRu?j?ImdyxY|Ve__v
z)Ilxy`Nb~~Q}!Qji@Gq}ZSG#xH0q5;aOU{*(2K6P+~hXowU+%a-7+-hijIhy`m@Al
z<y~L|CXuN<yKAaH1Lt09-}Xpv7WQ#8&rJxM{a!n8kFDa9rBn}J&`=RtB@cEq;tU4T
zl#Yh+4_{tjahmW8qspXC`SA|y8>f3`4a6Ec{uM>a$9~mZ`nH1tN1@}{9w|ndX)e~5
zxM1LXJcK9MaTv}B$-;Ivn!Jfk>3l$sSG-04uKRM|B_-KwB$=Ts#*oW(XstxB$C}8A
z(UMMqp0t@55I>7)y7w~lx>HUlPo@;nllzy5?+04ov<q@1915*vmg9hHW=e&cB2=zM
zgU?FeFZ!?k<$S^FDDx7gRsQ*`Y4U}c4*txTddCDfb$;)r^4?eqH4T^qOn_*VZu&S%
z8Mo7-;*x383^AT}Im(;vJ&b+)K>W!sJNq@thJD(AD3aG3UW9>|uMlJu7k<HP(mQ15
z_7<>+x|l|iGFR<q_YRxH1+v>qqE6lCoGpFRc}&*7b=9a`v@_2M*I1%1R1+izZH`-?
zlV*`jSkX3?->Fyf1F&bC=&P<GF=|OOh!(g)#j9IH<fSdzxDZj&O%3Bp(oeI<7`!z2
zC`PL1OHJlF>}qY_hWhwK2v|QKQ{%n<A^T-o<H+1Efv^8n%<~?9C$udmn-LWBqr9*f
zpS{0w5R->poOl(CqWtzd9)>9~Bds{k?q}K8`$&}vH+3UM0ROE0b1fb0^JI4U=Oyr*
z?E@udQa71~=w>&V=XI(TG5j7C)YIuQP`2?uV|Xq`IrEX9<PqC`7267uYoDJ_ff@|N
za`J26cN+e}QjSfIKFSa~8%FbXz#!EAM&-$jsQjaOv!=YNZD9@JCI%}?DM`23P1RJp
zECMIFR!f>UXQOsGd}SZ$m@(X2Tjl34wN~Zbk!&wlkTme3D}GDBNpvr_Wy5_CNz!lW
z2&)_?%fen>SLh8TF#Al#!PyRU^iDUYZo_YZ+Vb}ZMsJ{Z)^zO>BmY9pGU_yE=oY2P
zmXf<^XD2k4@|8JltCBg8{b%PNJ&0l>(=Rpen_yx;Jg`lGziNS(J76%9Gw}NwolpM$
zYa`7(gsT!}qrH+wY!*j{Q6u~>bxJ1d&UA#Y#hMP^2WyN>E#Il>S+hI{7x$@Ihvpj0
zCuG9=xwf32A^E`bpZ1orE!{vO>T652I8F1XTj9vZv6Nm+QLZSp7vHfJ=D8rQX-B7+
zPn~G-tmOATgkoh}SBI{jT$8<#UEl^%0PZ;w#VtOxGl{UfnpB>oU(Q^q>gaU#GJld6
zjKzLcFUa0$edi14taVki(0cfC9WQM@(y{03B)s_vbs8qq*t%Y9cW^Dz&?@s_11+?5
zQN+UDs(X2#y*wfIe&e){UQJd;)WXF+)r4*R_WW)t$v}SIqtNOd0sUsM446F*bgCbA
z<&hzNQW$AQz#F5Rr>B`O{mRDGN<z9z*6RhwSV?;K!+ftD?`jG&xR16E!HpL)Xv2+-
ze{Xq^bq9~gee-6*vIL&ZtdBe+$1(PGy*A{0-caru3eDIHk`Q$JR8+TEV86b7(bqx<
z`?X$T5nDlO0K|TA6grj74hT0O9#h|BglpGY7t!<e0O82j)<x<#(|V%jrFC_&%Kezo
zL>XAq*8s3{lVboxs@(=+Jx`;Qt?r8Sv&&0+oL=wtrza*}3_O@Pv63iwSlMfEQa$ur
zqpgxLQ+b`7W((=TC(XWoFV+=9sZLekz>9FWc<|`OUsLd-FrZt#xJaP0naS~Gca83`
zwhXn8P`;(0?9Fg)+2Nl*QmCm#FoOS+m{#v&1cSV%JQZ1hQ;WkNXEylp^pRewtx)tA
z;hxE{t!kkFy9#_l^v=?^z@7k7zmW(H2SF1P^0z0IoAe5TxJAq>2k6rMMkp`YyM5rQ
zWq^IDka%Saur-)ZQ}+v*v1e?Je@TZ>3?pX{mcF?~gNn^)MKB%6P8^)d<dXn<{(deJ
zXgd4JMfR;rBP=2TJ_MB*;!9K;_yfdY(=8yMT(RD&fT@elnkhW%0s2vN%^tqy_mPg5
z0m|QrVC9&Oq=p~fn4bBLWD~6$u6|?~yb%sm|FnKZcEG|mKCZSnaZ?uW^<m54ll#7+
zI3PW3X3-v_CmC~KI&{F7$@@G{8vjk453l<vlA&d!;*-OKwQ~v*HnFp8WbB+=r|a_I
ze0au+T-tJ~%~|Osede~p4BbhwKWB_>_{4@@6O-`dn(!FzEE{)Ci$QF(fM?1R0E&OH
zztjFYP<b?gEK`r||6BxRVme`JZenPkq1Pu3<Gg*(HcB84HKgSo)}mZ9j_7XE$Qrs2
zG2VO2JpD(;Q%|;uMmaOPYe;TW-2s%ZvASmk0O10j*dn#9gB>pS+1DaL;ev0B0wL&6
z@LkFW#K)w6p3K}gpAj_xclb4yC}Pf#vvsS4`q`K`(J(4+H-fgu)`e9W2|D7_=#Sx<
zCRf|kAYDq1SW&(run`DooN*XTV(DYTOo1dIs<7OUt@xV!U&W6?>c$ZvWoO~IZ()mq
zOAM>6LQg|btmQ`{Aqk%2;gBbL?}Dz0;%wzZg51gp(k=Qs7Qp9gGLzrTD&warnSIJ&
zQqlxJ*irINS6yQ_+1rcN^m=Vi_Z$qi!j}%>3P_!K+LBW^fc$$X?687;@HFG~yDD?6
zM6l&>Q&GnG$<*$q;bX|hmy52*pRj#(8T`!R(rSayY|$$}0@|8u{?U?!Enl>toS;kX
zOgn#tbz})J=U;L+GT!3DruFo3`JJBfdyAyvGy#!skEmuOcH|Z15eBM$;`NHB9jX=h
zJ{T^uL3xJ9=jVW#yq}%*Y6r%U4xP-Nk-?+Bc8Y$Ls3M$IJlbk`^IE!@SE$4Fr@KAe
zonxu?fwIgmUUp<&S3>oJM69C&@}vu7(`qZ&|3oHS+<Ns=c!f`%6KP$%*^!Log+Gya
zx!h+eKVMiWT7Ur?R*vv4xg7uIb08MqP0A_1pG~?05&)KeLOcl%@gXj$z86j9rLR;T
zncl1JYge<$Vff&Lsy<=!r(aL56qGw%+8+zAE#Hq+XSp}`;^qfYXRLS>dn#W6rgn#;
zU!o9F+|EG}^)2w5km+ie?cma!afgF>?iv2@<yA}4qQh$nhupr+3}PL3>)fY2lJ_sH
z+o)?16o9;fs^`VoaoUPH3y{3+*5=-pz*4fN^JYiJ4(<1G&qFJJXy`vjaVdfv8#Ni3
zoLsUxa;zSZRE*s_=fRUXcZ;dErxW{P{OON+L3_Su*~9ly);ZP^J#XC#KL<mg+z8(k
zP0J_7c~-F?9~l@}&S%fbgI*1@WB60<MF2ine|r7>g+l#)e+p1+JB6I&h!D7Sb$<Mu
zm@0!G=nMyC3HjL+Y%0IC$tp(%v(P!)G*(pYPnwG>F>3Rfh#i3?_o6FXn@SAdZS4G(
zF~Ksn1#`kf&SpjlR>~oH@eZkH)B>emc7%snLOWW`pI2#EHrkYL-X6Gai8o`QcO1%B
zaz{w6WyqB1JeB{<s*bG*S?8!^xBc~BQpdReQ0=64n)lbhN=D11a+sr92Ig@q=qCdO
z^6+V&k~{-vkx=gZwF?o9dPQYBVmoFgz*98opXwU4{&p)Fhhw<^C5L~XLMp}|+8n9W
zPa&!6#{dL`!mMY&=)(D+p^%Y<P3;|~sxIxM6XUM#evItG<-qh1Vzj@k(!hd;ai+b#
z?r7r^p4Va32?9rm9ko64;mdcolF+F=^O&hq*N*gpvRGE)*yEnZPYR2u3SK__hwm-l
zEfzd)?CBiUhqs(XBjneercX@w;i3%c4C$O`AO!Z}Z<kRjApV$v|4c~d#lEexayP`s
z`NBW5IO)2Ko0R|iUst9p>Ui!v(#Rf(t|oHmTGI$B<s({wJ_()@!5lTTLLV=@M6m3-
zu?OGV0P+@PrN9%aG5k~U(_i3@G-S_cnEBIUzj3uG&#_1ue4@8yd#!ilBj8bMo`P-E
z3%cyvlS>gFP5Livg*#0ssi(BFGTJ2yK3S1WjS{e<qv@g%7Mv=WOKY5Hn$9A*=Np-5
zH^iuw9EmM|Jo-O%=jIz*2)Rv`ZCq>S?aPXG>&Xcg7f+FyTxoqn69Ynq4?f>cp_Z*S
zlMv_M6~CZ5u>oQCfQf1b<KJG#^KHWq4go1v4D727GW+4`A{8eNLF1LpIFQ(v%Oc{o
zB_tK(qd|?azILwaBj93Re0FM@Gw`+39ps9`2_lKMOzy1vN%p`lM}P9cfWZEHTnsu=
zxmI=fLp4qHCN;(k^BPph?wb3Gf%RdBOTOKSU-q*Hg3k5D#+ovL&t~r4x{|li>Y1RD
zxV1MQz<Htf7r@*sa=F8h9^Kge3)^arJ?(_u_nTZ^$pP9^Br|!UlH<)sqEX>Gy<^>a
z(YMbmR{9s@GibAXUyLjhy7feBKh`gzSW1P6Blr4(?nG*37TxPZJ9GMt&gv&@Yk$Uf
zY_^XBa!o;|wxI{y$PxQJI&l*AMf#>FZi56Pe;x{l$w^z)Um8|}SSqSvc4~|!>c1zO
zuogdb=lZ_M9q`pe?U<C=C6nuF*IynlHo9Hcf9kWD>ox8=zAIeWCQi@^BDsqs;$0Zk
z`+e&>zBR884i0Y74O=MC3hQm>FC-M~BBaa@Ib_D)H`D|Zcq1Q^b-Nrj$lzj6f(n{t
zjq)8GBuCo#k;$0QjqhsooE*3x#sDDe?!Dg-{$TvzRG9dq%WRFz{7oW@1e0UW9~X|i
zR9W^_rjS+?i2=-HrG}A+{d&qtg;C3JB_#bA1yZif-k1TL%_K~W>OT<KigdGolMb--
z4-~c*hczgy-|yN83|s|2upT+ie`L668$0Jx(PQb{9Z@6Nv`xFeHE+N8Oe|c+hjI_+
z?F~sDl_bU(228+kAFt7Q#QzzDb}I%MwyMdoB$Ya5C|Dw{f%!7~XjXTMazj(<F3T)f
zDpZP;OBO!yzDk)7)P*n+n*-hzgD5c-50luLE$xJ>o}O;^lsJE@$z}QDnaZK6s0oMe
zs*DxTH`EEko)dMycC0H6V5-MQpzg+<Z>rkyO^PP9%b68Dus6(~G*68SUxKTCS|+K4
zn0}gCx}{L@kO*U0lP%L8!DK+vyKQ{^#kEsfUQEP=RV<(b$HO%5rYr;eNrg-)5=w!H
zBoA^0E<!l`$#*#u9PFCzg9pW-uedW3ew5q2qWt8%A9N(d8g)|P3*l#pa(Y9)9bu4k
z=}+W1G<c7iyiGZ<TRse18Q0Vk3kH>01@os;-1Jz*ezDOQQVXwawZrS<FU}VXzC0Aw
zP&#FM=QQ2#@n%~dK;!rYdZG1Zw<XJS{`Jh~$Mu5KU+v-7O8mb>VGuVQV_E<|&hSvB
zWdwp~+@%b_#gO}2w@m4A)U*bA*#o@yn6RRk+q+Jc7b8)kJLP&2#tXmK8)!#<g=rU=
zcbxS5EglT9W`JyaL!ApsE86$mj+bK^Li9sU+;IsY<R?7`1k!&Gtl3USO+$YbK-tC0
z_a^a=FZX>LAn1Tb_?BSq%(dQRH~mAwq|BX>4AH9k8^fHJFGxEqr{oIHxiA=?E;Bl%
zXp_n(1uJ^&*t{jzC#;%b(b)q!<Q9FRoipa3-JZ;M^J1+P&uBZkbl<XKzrT}QyS1!y
z)r~k09H`sP+*K~$+&hw0Jev&$mmV0hx>4Ei=N@L2-dxpsbz@?ga&9)K%kQQsQ1(~6
zOAFYG*EN?S?j(8Uhz{0b*O=DIbf)2k#Z!=Y8|zV22XW0BU$?=wp+k|ZY<ZXZNB4px
zoGQlPwp_b(>xyeZER!8$%HdET#pqHXjw<RiQ7pPsXhvNf80}z?aVei?CoH2>89RX$
zA5?1bGu6=`$Q#O}CQkZdL_4vbZGWIkjKA(nY|v86B=nC?{ckg>grp*S&^|?b$2R^7
z!rma__vAK+!eZMVBQ!y>m~iA@<`V7NT{u|=K3pYo1MzLt9*}3X_ex;d&Ezb-WsuBP
z$zH0T*_bKT>6$&j_sT&13?aveAQM1IvX>>ar`h$yzIoesBOU6H233QFaU2c;^wZI`
zah^&mt#`K0OLXmm8Qs#D;|fsIrSQN$^1BOF?Ifc)ANNA{Z#kj{$~15jc<4$ZEZ4f@
z_v3v+b9*Q78>>etdaz$c)VgzI)48%iyebL*8<2ch8lIjq3$Sg6^m~$DmF&~<Nxuxp
z4n0fXaFnOdWh5m^dwZ6e*-K&WIpqk3=nST(uKq^x0cFIGh6y*L>L1ulvjLXi&}bAO
zR%A{p%6U_s*1+<YHbBZpB~rUx9B<q4NS+<osnVO!S8p$3-+%fg#+CPym|A&fuua+F
z8&nv8>JkpmW?6Yk->S6$=vkrG)OU@qWA#zxF5N3r-&K|`J=hNo-bhd+uBjUq)tZwa
zW~3r3(#RPyOrdk5N8h`!L^7H|*{xHjSCBSUR7ME;T7|<VJ!cE>DR}aGVl5)66^LEt
z&1Ian7*QVew<h)IJpA_(H+;#k?G`C&q~&fNBV#J|Q;o)+f47Rc(WI0q?sEPcuULVD
zMJ{i-cEkW6eW3W=S}}DijgIu97d)B$U^JE_@J(g?=T)brwqX_j<ni%uw2A)yi1XzN
zg4%Gc($2lC=xo&srCgt$kwbuGQquD6hEjI7TF*b1do|rJ(prQsnVQzW%`hF4B0TkR
z0qv*%?sL*xS+m-C<)ZRgf5(S1nL#ZC6qdK@Bmxxl?Elxid2S{*t#5o9-}>sPks<4z
zzH#PalvQy%0a-tAo_*W8{MZ7ih@5-QVPNs~b_4U8<aCEU$q@&{+rRG?^st$>GwCJ1
zL)*QI@msveqMOrL^ucv!AHR4);nz8bw#BxwzEgV;ZB()6;IR7|gy6CEV<Z0@GtP5*
z(f<AVtE2}CEp%h%HKvHNJxFQ6fL{Jxkwi9p)1u16!hOA=BX5o0tbG{G{bG4Q>^v}D
zIQ5I#AuWn}q53ogaLPS!H*!5c`f_jMVi*`z^)&H}xWSIw!^q$zbNiO*AU~~z(-o-f
zYb}%hCc3OUl<%}xIx3hO*pIUpy%(eY!bX_)OWZux%+kg`YDP5{M-{JDcfwts;v9Jb
z6-%Sd?riNuOlz0%2PYog)Ef*Di^4o0i+KpIAG;ZMaUvZ!$`|zCyQ8V|VeR$v0w@-e
z!ZzxGyK&c>nsz+4<Gt%|FnrASPJsm#(tQ_1nH3_|_>2Xmg@_0R6AHWh^Ghb*h~06G
zp2Uv=zYA*3y@1u<o?kU}QqYAh1l1%?b~l=EdDwlI$Ayl$5RG{#T6Lg<db-;?DN&K0
z(p+_0`UFq_JZd_qW&Y<s1MUTYB9aV#UNKQxtT8#hr!g%lN<_q=jvH1*<1ih05AIE~
zn=pkcoVd^?FRF}EDssT-QI_sb^GMA1I8005@!H<CS9qI!qUuK%ZbmWS)yr;iPpCd6
z`t1Y7U~p>F?v?5ChDB(Q4(goe;Ly|$52Xu0?0z1ZIq<AlPD}1BC)(2BloW^}ZC~M}
zf!Wp))=n{IS)16(aSKypi7jmYIH!KcRZKE887038zH2>l@xpXR!5^#0vpXv{r<EiK
zun9_(N%b*o-XB_2!XK^xra-BF_wXaA3Ffu*M$Wei8)HNZUbN~)d!N<}>fXDGASrW=
zLqm+b5^xT5h)=Y0@owqke{UdTrtcqB<e_HzPYL}05kQ|~T+No*ATJO+d)gAj%5S*O
Y>&&#zmpRoH!NmBOU$Hi+HS&1)e?|VLO8@`>

diff --git a/articles/WHONET.html b/articles/WHONET.html
index 5ab2b35b..855777da 100644
--- a/articles/WHONET.html
+++ b/articles/WHONET.html
@@ -29,7 +29,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/WHONET_files/figure-html/unnamed-chunk-7-1.png b/articles/WHONET_files/figure-html/unnamed-chunk-7-1.png
index d4eb752ce8a69a33dd3f8c4988c4a1a8d0ef95b4..4ee974ab2f5a7ac6635c932701af064fbabe5603 100644
GIT binary patch
literal 62423
zcmdqJ2UJtrx;7juHpFc~q^cyKbfkCO7Fbk8=}jp?q=}(d%T`1LB=l|xB3-0+6@iUF
z0-;G45ksibrGIY_-TT~ozW+bx{%4Fk#-EX`?qp@HHRqc1eV_Mvo;m$5XeiO|V%~*9
zq399ivsx(BwkIgmmMc59qfn^MDAIZOYrC1M(pmT$UJGYReBrO1H<a~pC={C??Y~XI
zgOiph)KL_2_Vi`9xX~VOFQZoPiKU57k=J}I7k3DMG>`TB{pcURYd(%SxZ|z(&XjMX
z7h{CJ+}PijplT5Qdn}pYSSX7=z<iXnGwi~3dry{k)_Y%y<>y<3Z@qrcO!-dD$uBSZ
zpKjVR^{2q5l0UQ0GdHZpD~LXuI;tu%$Btm-C)#aHI(u!h%Gy=~=b5R=NqLy{oBjXQ
zA6GJ!(fc|5&zjX4$#I}QH4HuyAx7ygrt2wmd2fQ2emg(eF^;;`sfyk&h)8GJ79buM
z$@A!*h`PaqpqEA4MFMWx`Y(E+glxEu1gn$T5rxp1!f0oPJ$qz%QY2YcWFCn<n6TMY
z|7?p_g<R7>k<oZ*^e_Voh4Yu_VnYdWer8_k_xfy;K)8f9K1oeEdwepaW2E=?;7utB
zA)#;M9piMUvji{M1a7Jx!i&jpCd$PrqZcCujEiqFF6}_Q?6v4~s8}`oeH-dYLddP{
z!^+uuvd1IqipX`b5)Qph#3BX3L%zvLNl90AWOksOpV`U=H6$vmoe(KeB;Um|#&#%h
z@AnVDmL#HX4Tl9zWK~36*o1m%g?@5dn%vm9Pvd*CU0=C3DTqy`oQrCW&~MqYMHQQ3
zgSw#mp?ct35hY=Xbo=&gKU`7w5@yBPdTpgHg5M_Q-uNceUagMrdr_$O2JWcpgP4=-
z!3+_HSzWswcbjK_tih}>AXX|K4N~*oh-qK8c};~*^PjIR>xidvNYNcjXnJXibUe=Y
zDwYz}v64VBZt3gmlgQRM9>R37BgVak-E-7&(rp<->DF}_{pe`yF5`dpnXy(fK^r>w
zH|x=3+9j?Ny}T(hk#)weEo$+>GL+Q|WGZ&foHV^^Rujaw#)qgz3dm`bXR#4sVXnj#
zUv+hLiPfcwwWS+k?YmKQoRM`agLsUp{BWG7t~Kj0pTdin>>}Icr5ndX3f0IQs*CDK
zMdL>tYE?(e?Ur;%V6=mKoncU%g72yy#``R}M0BofNHY%Sn`2%RR1qmEeXdUsLGQ2N
zrp{yH`A>${4VH^)^Jz-<|AD#pd;e8LNt!~W^@GSIHU?Cl4z<wb!GPsC^OeH0$Fmj5
zYy8wxh!w&dG2=~|wjZ0ASi86|d2!VXg?h<AdsO+?nx1ifZHS$}DB|fy@O7W8I_#>+
zXIkt;O~K}CYfb;rv%B6lkRS$aUYREE8Memk_g`bb-|xyjDow7>6weVO7FD!;TyzVS
zYK(EG$1=(&vgz`;4mzXRqLtCB1%#OqI+=oZ^*Vfp`L>o!_c^iomSz}{5*HX7yqNgp
zY`XiK6#1iZ<0JUhg6O;yzD?eb&2e`LoG?%q$H<NY#4sn_;~|pVk#*i)uca>rMNd;m
zzG`Hd51sB=(Pgf+c#JOno;`7C67sjQPm?dIM(`Esk}(Gsg$L)e{m*_L{r%}TL43Yv
zf~$wG?^+tIk3_C@I*#qDu1l?6#HdEZ2~d?f*F=)^$(C1{O!A$m<Utvi(IF1O2UC<S
zD8-d4JNG^b`s1o(lrs9filEK4YfPd!U2(W}63mi{yz`n;gJIQLT5n}ZhVdkdFMnj6
zJKRF_;rsm#${%7nbRz{#eWsko1Pt>>`SI1EB#w9q2a`(zk<$;WK0D&sg>q~-D?V;1
zxj;UNoeMG&IBW`oPL|TGgiZ-Nx>k-GpH~@~cgF`s&WIosKK<8UMvshg-;!p$-><0}
zI}ua3wy);v?uJoY(zK6AWS!WTn?;4uD-nctw6V`<b`86PKHE7NtUQ`3cklP7QgClY
zMgk_O)2_rKSAICz>n(p+B;m#@5b2T@*8&)Bv3n0zkn1bb34V-xdN;&ttxzIKqf2A{
zSp^Yn(mjPPuLdlu%vWHx#l+zZMI+S8GoC&@7E(882In1j?>!|_(l%Y%Zl$KQFue)&
zr2H|26;-vhS<!LF>H5)U{r&wb`x%zz#+IHC3S#tMS5){mr)8Bd#-Qu4IrrjaTvyYd
zK7AWWFw6d)O=T9#QB{pi{B!W8Z-w{LTq(LM&!*iM8YsqWc-N!49=gBv&6_tQ%%PkP
z+p91!=Mj&~WHThO3+6&kiObkxIJ$1|rr^D+ZsBMt3NiL`E^6Nq()3(}crf(ag&Hhr
zy0@#ZZ;epB>Qo{rB=o9PYW@iFux6k_N<aQYO}&x8yuXn^!Qfz|X>VF~M^hDipd}Ew
z<c%!F;nt=Vg&m0*^@BGRE_NiwM{-0cqwPax=JDlWb%UMy@;l$`iT%DZ_r9G)O)Qh`
zgPT58&y<f*fsc9(afLQ0c=z8syj?W^tWq{~LJhQoU$AUO%YOO$314{>s^xIRC)9dC
zeinv)T<xRmFeN)-e3hwpB5tXQoTRE5_l?`7f)gPYO~7=Vy!2>|{Nd29dy`|x0mcK-
z9V*E6YuCQ}ArH@pEb&shB^ZXErOrPe>nfOtwpgpg6K7=|&bXg8Hy;qW_xowQn=<FE
zBfs76|1E)nXf3!opD>>e=8D~E#K)MEK&h<{ici-FGsmi`s-A(yKfsMYXEvOe8QNJz
zk6-OV+actf18ZBCQ4#3<{`7b)ynIaE;Hpo|z^0=&E&CiaEkCSJwTCqx6eGiwbTUTd
z_|gIjb-`3waf>ryG^HD|;T$r|E4OU%JldF_N>UxHFj<uLjcL|76~q@ofZ3Z!cfvRO
z4({xr0#}zc_Bm0i$}C%A`HhgM=)vj%M{8R<Yt+jkJ-#^>EEl36z$+b=?M|K~O_xrJ
zo#kd3IL;!nK1CtbaL3`2)te@eth)My_-DkzP|=7PH_V>O3EdmAsI!?c&bP!|H<AgP
z)M^c!twX2i@s-PJn{xk%18n_wH{CMJ{z!UQ^$d-fHQhNBk8f#ge0*X>s`u%~lL&-j
zWn}5Y?s!~Xs#G-2e)*|RXwX$+5vQs@3rdnzN@R%uqi{7Po$o`o`+3^4c#hW)$th7K
zvAem$l&Iv9dnpv6ysSm1d|i_Afg@KeS_#saJ+@1hwB!x}5E4?u7eUEQPs}a_+W4I^
z(XsYJi;0Sso+Dq`R>P5>cp7!9ql&o^b?|<Fmul>RHKU0{w6&Ad%+!t;H$D94Nw@3x
zQ{2>tJR}ME0sB^qd)T=p?F0tY*GEaJkuJ&}1%%RQ=g31!QsSf&l<pGDNydN`eSt_%
z>t%NoKG$nu>JNhX-n>9I85h|B_g-uKL%dJ9+vI0g)?uklS6(!{chkRawHz7eYj8EZ
za!zCiN~nbPghy$Zr~qPWpLmW#q>H+d;Is+iSwFfPA~P<4k>4PloH!cqSbbzVg5Pj1
z|Lk$chR;<2q?b=pJTbLW^SW@@U4DLkdc4!}WDQ5WGP(^(<vIPzrajYCijojILxcdH
zeng=U=0q^$$O1&VB4&Ei8$Q~(rOi5CTTW=8_ZwqflA-U(NlAFFhc|5#E@J1rs3XZi
zGUJ8!$a;wf{NEQ<nN2pm?4(Xi^!2;<Qi(<J2^2X<U&O%SZj{gg?DbO79N)(?F}QKk
ze*gD};TMKtbJ3q^XE2ZC)1OM_j=S;h{p>PB7wIVK&FJw>^erJmd+6XeWvX^}ndkhg
zXgMw_lgN^zKx7GS`6GlCQa!QtW8#1%Gc)t{{r+bmyV%Z;_f%eGlINr{lBSuHZ6p9k
zXpw8g#J_ec2nh+{;Rtw~+DN1d1kAvoAe~bC`_U^Q(6VuMg~Vt$7K1O>bG(4M!l=d+
ztaQNt?8nANA*TEN444JHiEvI|N4B}r!YD<#=4&+Mk3MCdsE)jBJ=+PlM2wwqj_+lv
z=G*6u5D<rlhKBU<31PXGRB}@7OCmigPyEt=r9fmC#l3d{KZS=|93)$*Fa=b(NKwkA
zq@|f--In_ok8DLn83U$R+~551QVxr#%i5ZjRwSX1jfqK8mpt_TF5UL+K9D6Gv2%XR
zhUW)#@#oPivAFTrt4!s*&{zWgK7hf#`&YjUAacx0T=NR`qeP)Sn!-6&Dt;@k$-8R@
zZ}v5RRHOK*cry#-IMf3gbwU(UXJk=As?{|EQG_1+YE^wXT;c=tu-la@pKfo_egsb(
zk#QaO(kIvAS9Q$WWsg&jiIiBtx0jd=#W_#WQbp^XZM%sl^L~RM7Odp%gL)Yr%__LG
zw3Ntt<cO3GIT^EZR_ip`USx?*#B%}=?VPF$N9OvJ6YFRuZo0x%1n@fxPvl_?P#W#b
z8_{iU`%&w>xq3_<(E0@q7&q>CjR!RYWrF43KeHqD09@+gaRtiKby5WhUqsdqe-pcV
z=QWhbyZV@T+?tJ((`CS>rQa0*3ktEUY+gS^aqRsIg{`Q)J-ua~i4OMm#F&mODN0cD
zN9LBb;kcz#iaW>1!~{p&nEa39f856Z_MbwBi#o>Nyj4kV&i0aD6GtW@XM~Z7FhWE`
z#6q+hm+XZyHLd}>uKY1AL^no1fDlLU1gx(sVf*nF_Xm%$v9Y>_Q5}&IWwHw*vHkRo
zK8u>ga^HLchl(`+jysg(;GgZQx9hca{d9$%fx%awOv3bVQH}A;Dp^}-7q%5=iRy4|
z81+JSqvMZLiveZanOLe((sq~~ZdLNT`dy9belY#sz3dq3exy$$Nh>mvqpPW@=_u7l
zq{M&Y388LD1XPM|vcqPnEZ&dKU}a-l$x|8LLr-sfjB18x0@%2@Z)*Z>TsaVv9UM0E
zge&@xkI*dSjYD{|jEoG^k&zJ=`a7RaBBsJQU8kb!eH{CWa1=3o7{G^2o*f(Q5b|To
zSG^H7?cIk?NlL<qckE}4R;vb(RDxmC=VOet?aZ~N{9#5}S~bV_@>7jZ@00a;Ijfb@
zq7bcbzHcip_sryRgyH?bWI?a*+DcZ~Ts)d8Md@~Mc6PQ4JkI#@Du-F~MV_SPIghl3
ziisO8^uI>GMn@9_Bl1^H469d5S>Z*crH2XGU-EJGWw>zxJZa;Hy|%+#oA{|?_%Csu
zH(tLJ+LOp<SI+&+!w?-W<5)y5BBMkuhbOCxIT_nvVvpsH>1b^=`q?(ty`OV>ZbyHP
zGc@V+a(O)knfrA#LQc8Z!h3L+YxTe+$ug%S4c#-owCay<i|Oc8<2sO^m&cEHvSPZQ
z=IP-v$2RI5zC`g|r8LLkI$jd#P*Ga1ZVrB^OHKJU^gLJ`9)5*U+TKm5)d1YM{~=zT
zI9<E427rr^Gi^hjTTv&bhd+e#1}Bbbpk8Kps3=NAN7vh4dp%WMUESm*FBr&Q;P~gP
zho`5h23KgZYH{WKii66qE7ADS*0(+QgTXZuA-O5Z$&^iqK(tz>Bhi@m<gt{3r%(Hb
zXGhu@Sl>HKBfHa5aBXbux?O5L9#bC#)$}#^c$N5`pW%BhV$8=aymmC!EH3l6alfI<
zHx>4gKJ2R-x-6p+tKWQDJWugatJvF>eQah&;2nRx#+uT7Bd~b$mAxskTW8!hcSuQ4
zC7xDRRt{u;WH~2?43Cfd=#ZD{=D9-=Q}Tz9kdP{Tm`akoHMSj4QqKHnM{{3ycihQ?
zyEK!Vsb{UMC@e&oZ~#>Xvg~UbV$SG{l&SB<me}U12tAz#dguN0&L`i|8>d`Z{Y<E+
zsQBJiP#*4Be7=z5*`@v!MOj`&zUR1o12ennnuBneB6}*o@}y0&>)cv8CjI^t?cEyG
zjMdR5Zh6yR+u%a??DJANq6Ns2FSPcL!NHWvJeF7%j4{X7x9XuS3J4j8U%Ycv&;8}>
zUUa+$M+k}Hs<Qa}=#KInv#N(~I2^85YCa`1Gt&^0^8ESpt5>dEd0)R;SW>cNc!;k5
zXc=CfbiJoKwn{kO@I|TB1Ixh&mQL_~5in@mFPF|bf5wTYh~t5kC4BaESdt&^^Wm@i
z#JR_97xEnbdh8E4vu3!sU|f2)lq=R6r+N@>CXv*4jB0gyUpFTLwS54lDh?MM%#mZ?
zQ+$VzC{0N<$pUs_{q^->F`_7FRQT;Memf?EPY!iM;VP5QdAuxX_p_H0(H5uNg9u_k
zLL9d)?n{V?o{T-S@k751_@S$d3u8P^LRm|e-S=f#nRgL7shRrXGS93frMn29&{ya<
z5d8e5u0Xs72}jJ3$jM`ou=ld|TALcIb47Ml3fUg%YhMpge57ff7;XBEbK{z>F75lh
zZ{F9CT$$uso}f&^=5Urz_~9+Ehn-zr=K~|f#Kn8%MMcA$h-HF%Di3@2>B=W^2(s^~
z{N^2Fft`BW7JDL*<ZD8P95e4@{&^K5#38S~iqmAP(AqDHZEbD0Ayyl6TAMz-P*^hc
zVB@-Px^I3Y-V)%~Y`Wl4#dWZXYqU?(%E~G`FK>1Wu}BQh9(p-!<{3dS@X@2VkIl`~
z-4=Fiwq=efmxo1>cDIE2r{(44O;b}xci0Q(*u>)uUw4c?Cb-6Qq?DDFWvO%Q+_+3s
z?B1>;jXga*!APn{;1>uFD#gh&sqQcvhKD^2F3q<Vmy}H4opkdkG|CiSw~B^e#c%rA
zJyBhNOn-cVx_)P?=*B;vaQ!cQydDa_F0CT?RW&Uw@_s}ia>n)U-Mb@;i;Giqsgbo7
zrL>;rp{j`3goK4UIq)$q4d16{nN!nArVW_rp6l4dNT&d``sj{v8N~`>#LO8adE4o4
z%g2n4Z#1lar?c3W&iNHpj2t&r6CIDXE+@FE6z3HcE%eEMf6KrwreEeH%?8=!cC>eU
zJuxy@k$e)L$;%iZ_`TfM%RRm|O_zi1e!mD{Q*lX2w=jY#+FK@E#n{BhR!K?eE@7!*
zl<TkDzz4ZurKDo1q(-H<V1~42v%0*{aC)B`fV?Ux*9<}^5Fcfst!&K9#lMrQ@Cmyr
zzkNBn11OIWynUz>fk1~T@^}8%5@yghJdJ3D*A<;s_01kmPA!6VKEgZhOgOo?jE7su
z$;p+J6c<BXu89{|{6weV_W8XBBvKr)hYzVTbF|ddB;oMsX=ye>JMN@mR+PzIUVRSy
zHdC7s!&A{}l2`jU@r?45?++*iPki%ULyMF&NzM1uCd0E*?2ikhqST#3Z$-?EBxUs}
zD7qg-Af8Ml7UD+QGPrGQBc>~3#qB!vb!yPw*|}pj%tR^PynaG^XxB(Q&XtypGlqCJ
zPV`CWqQuT?BAzL^MW0cA%Ry-Og!zQmD-MxpO84DRZRn<2GS<C}A5V-g?7klz53^5I
zwJr@G)_@h1$T`q3It(~x<6L_W1NHnyZD-{x3B~|~Ob=5mIjd~Wps~F@QZq@b0ct;<
zhAVq3zlHhF#^LHzV@Vn=y+0H2f%(I`?#T>Hey6|$)W+M-d#{~EY#MCsxI%Y!b#^i$
z#Sr*gp>LO-6%!|X*On?6gKLuG1IrR+GJ{hWBxt$T*Y?Af2bNVE5joKEh=`|kYpS-w
z%h!R0gf$cG8aD>s>Xm)*569^~>;DFs?k-cZYnDM?YI3Iw41F@TO-~!sTlw&Y!dXa3
z@TMHCriN&z>GbHPt)ik>V2qVnH@`THul-^`>5gm|E&uuzyHK8`HKm7Ny-dy^7Ja3)
zOdZQ5!V)uD8W<S(e8J0v+3>}HGXxVs?$Fw1Oi%yPssv_MhLXAK&L?{s@iVX7*#dFt
z7CKUmt38bUe$?ZZuExe2vx~DMbg5-TH`(&DWY^RTzlXnd4MEbT<?TbNl<w__Hs%Qn
zyzcw?xs$H@eWcwmEt7USE^^~jH56kz3efzi`RqLJer5JlGpc)U8XiK9!%f-%B8-oZ
zXMHd4<EA#_d$Y0$j#(6Uo89-`m6G>Rdk%~|;!cRisfWhn+}zw`?|X7vPjqO>EFoN>
z<%DofPR;<#$#4~Kpko87%&aCla*`{Gili=`IGCW3-0V-T+`lnPKE1l6yYm_X&2>Z~
zBPKMtLVYiEdYOIpp&0pEZ=b0RjVIOj8gzOU<L8>GGrui(t(M^BSKn-5C@qGJTo~;Q
zC3y-xi@0qhAt)$_1WJXGgsA9@C%#;}BRsGJi1UEmjC_(=G1AP2S<HuaRNg55xW8`K
zZ$G+fU)@R=*7kA|5ME!R%!96OKp;1OK)ZfGAQ_5}^W!nJ_6kX*)bG$Ip9g!hAHiEA
zZy=Y@6yvn@O`MkN&Y>-i#1%*C$P51^h(3ut4Uft%kO5D~<m5h5I>&Jy?s_kxu=~y@
zcI5i?>jr!$zs7lbEl2%GVQVS4aarx?TXWvNi3FvzlxdaXPLkiEGq7<QM-0vMrGDTp
zs@aiys)A*?C#tD2{XP#gF!Ng`)AwXQBC0)VPIB=vvSaJ5{P1gRTD_>YM)@6f$d?g1
zj1H~cjfuxlb!pSB@BQn0yAQAaPJTiNPokq6=iXCEQpQu<Pj4HG<FpQ>xJN3#w%#it
zf(tj^ctWUpIp=V=yR`wRc_;vT#UfVA-psE6$vzRjci}E%$mRFa@$vEJDBbilFv@Y=
z!NF7jp*j`QMnH#@YbJprVc#t|$mj1QEk}|n=&f(F?=GB7np~-i6zs#C+*A3=(#v!`
zZs*971~fqkSbwqR5A$pqi}O@sx^D<%QSZEW=nOC7sybC~YqxJ}Uwpa=@P%X8xhDjX
zN+GYNdG9*P^iut3Gk!b#Z{mySrZ^HsLC|^vAVY<)<65!v$S%D7<CzYNQ$?bowQf*=
zm!2n=|NivG{8Ll0jce8i6{{#xrWZ&mi+>QfF^AA)N2!AGIERt(@zoEvhn)c)85$ZY
ze2O#VqzWVF5J8ni@}GbH=?}4oq~2=J6E3Yz26W~9GAnC>e)lNd=^Fvj#v^fE_y(*W
zx~#cg13J-r?1|vdf(NT_EceGZ&%UMJEcA*cRXhAAc2LpPZEwcEFd%jOcj%CsiTwo^
zuzR6A|M5~(2XcGk-z{g2GuGin{kgG7W8p4iNm(cR=rMNq`iV;YUx#h|=fD1+fBfF6
zWD6*a*DFRJc8tI4e~zoOonODFTM~!<y6fxD#<7YJ@{;iK{c);@^hL5g5**dR1`x{o
z-^CcQqk4Vwq+clGt?99iKB%V$l;HuDG)0E87>~2Tlo^w~5LI+iJTBI|Z*8P@7_hCL
zcr1PWXbIM(oUjeA5#nT=t>^W2er15$dSnQy$eoqnvfsXa`y6e2oZ1CBYii0|2FN9J
zj{{aB#A~CszhNOy4gp=@o=|WRABQvDQTdG@@C78^>3CckdJyBBTTqawZ{m9G+R!fK
zu&M{op32a>N5944lvIk<$su_5urFL~{#9nW$`AAM^L;Y1vK&Nr+(|}zSJm6sS)5v`
z@}>~u+m*FIu9I5irTfvqTOG8^awoWbzJ@5NG7k+8FWLfput(aux@5XrTl4hE^!Uqs
zjE3B8a1LMqzG`)RNJvPap!H#JUD>x)S9LLjP_R&5VJe3lR_?^tTD;r2#2%9Ss^u_(
zpIG9K?g%6nF=QDQWbT`^+(_ha(xL2gl4a)zI~ZXSdNQKCT+)%!mSL#b_K}a`Ct=r_
zo0A@dESgz&C1x@Zr9uf!O&7V#61q($;!4s0*4Ugoyjk73;?hqqz{a!k^Z!wN1SuDv
zBWv}|uO;T^=W}ALs~#Sjyv*aAKoC^+5C~D0HPV^gsPU(Pl(Vp&ma{zf|4`%mxw&s#
zK!`#cnIb25++p$R>*Jx0fa1#4#}S)ri`|BpMmXUXPB9US29p}BxMi&P7(F}c(bN|I
zCCGR2a3rq7c8&)rSSt5@M##hFi$n2fXJ;3H?m2S5e;B&d`=ar{83sA0I~4b|v{V&W
zBM$9p2M;LleJp;W4k!ZYOO~usdHu?)*GwaXbNqBO44m!6oB@rsd~9i%xuDH9;PaBn
zT-AxE7>dMmJpLGSXUn~2aXwhUDGqKs+_sH5sY<7&s&q3Px@znHw@lQolWFAcs4l(b
z3h`yyRwwCrdnR^v`R4kFh(lt^*C%Bsn2;sRT}anIz(?Hw1bj$RGQ-3E0eze&O~;_)
zb?xLXKl+6)QuU-MCYkxSp9e{QU}0zfDwoD)#`23gpl+k<AeNx{rT;9BVuot?2N+9b
zOE%5WRzlUY0qh`JoH7xQ_0}VoV2lq0*R1s|O;oJ4!eDTR$54P-Im2|HQ~;AH*Kwda
zvU((N1BJN$Kp}N?5G@nKXI7_HYAwi-xi>8=EV9u_S}B?_9nRT$qoZ=3b2AbW5>~tJ
zy=$gANjG(LEZm>gsG2VA7uw@%pdLS0mnoSOGceL&s=Q7>1pR<bsgsw;yIaMDWMysX
zn)Xgy9i-6@wQH9?>mLE6m|Cq#=_dGA>D~4Xor&NX`Npnu|5shF9oUSWOUxVIajU2j
z2nehSPxy7QoEl8e;jM3#KGf-EnRu5|+!<6C(~j=QjJqKCi;ozb_3Hb@NJtqgkk|2#
zPclIP(2@+VPWl6A2qhku2sLK0HeMRS()R7!&)1Izmz0!LIDgYMj-F3n3u-M6ln79g
z&&7W5{2D&v{{HpvHBR=&B7Tb&i0B>&j~!=E<nLw(H@EdCI%S7FuuA$d>}d3aqr&Bf
z*_aI)CH(z<#g&xUBaL`s1e#(bq~8zxbOIlLQg+{?L8$nX&9bA=#wV!sJFii?qm#s*
z6kI0zd&&Fy5fZnZz7dQT6BFZ)IEW+4$@|pPGI9CDT8orx0wIR`$tD!eaLH1)-sSLK
zj`%~~tm}~m`v5E@QJ_GpP)F#vcuAD$0bh;K*h1g_clRnDi=MEyq`tkq1mRf(|HZwR
z;6LUMz*`F6=9b{<PoVmEUdL8D0O7X&0wBS)NlsdN@rL!ZdHIBCM_Zc<K{UVn+)3f(
z;H0S%?zWN9Q9fyk{bPcg?CJ$i&!w9P(6j0g@9T&~IE-8c3^oqURv&2)Vd4xOur}P8
z!et;p8RLOzG_0O?c5)I0)_hv_h2zF0C2d<9_OsG}eX>@Hf@n@f#7qX9o4;>fOi1V`
z#U$}ssU=jQzPcs_+1ZnGPoF*|;Kse7ARSsNSE+MWCSPH?KhZ2I5;MK9Ou>xx0Fag7
z8W#j2@GgPG6<RwB%<Y!0e7lkj1ViAa^_o!fD<iFYdOSN(w~8-Gh&;ihK*WuwxLYYN
z@&?LD3WenwY6TM*@^f=b3vzOD^h~ng&ySs*i<>Cj%t$c8qXK@Q$n)pVYm8E<?)IrJ
zmr`1+@tF`n&Ukx!KOY<f0?G{AE=|d|$muwSOo--O@&r~=rp4wbt<j+cm#wh_c-MzE
zmeSYX$Le;3@}I&qe@7)PJ!f|O=<C!bpN>O0J@+clP$D|UH{FtYaHMe~=--Mt`io<E
zxpV)2_~Qp8n9dI&Pa+=0ch0Px*m0-gWMB0EogZ;|Ha9mnh;>PeHbz^Q5LoUWEu28D
z$QY6tF!79A-%f`cAKJL@dShpiEz*0=aHm`?)&&V5qFw#}t`<bL>z8@VHUSlK;C{b3
zFf~d@@mX>KJi5Wb8W-BgEbgnfKfbW%$H_l6JhR6t&d<!qa@VTsL}(-j|4Es?i(f4R
z0+}*6c;?I*T}g^S#LVR%)OG?C=Soo>htb}@gT+cC)M8+r3BfYj*x9WZK>dx88(dn|
ztsl)-<C=C&^2QUuG-1MtfK2-JMAngw24OGt)Za?@(Aapv(|Wpk>NQ{`DT;jr*eVKN
zhy9rkjOts6ei1XAh{LpZMPB;wHhjLCny9MBS@Js?z!{okE1yWTz)DC{<V%6{{5`CF
z+s3JL{I}*pKst~AN=o$gb?=~Ikq97dHn7OYb(%xBF$f_K4ZRFC(X`KUCHAxeI-32I
zwQ&m6*MwsII|GUkZ_kiV5{pV?WMt+wZvNRt6MR2e%tARqo|Z*CH1(Spk#?(7M;yEu
zbAQntr}v!zO+kQq7NMNOiIHEZ$1=yp#PsT@$FsQ1E441i_JWtm*Zjkl@j{>b9yh;p
zMl@~2-nli)XwYN@OTWE4oSG5}BWJfj;U~7%78+UncN{S9ZV5>eGpL(sv@p?{KYf>D
z`O}Qh9`p4h_rQ^mNSTtKUmBAfb2pj1vs=KeQtKtE*JxNCWT8YSB29E>2@RK_L_~@w
z#;40N29()i@lM0<SHL3xB*JQut+;16q075Z;Ud{U#4r|+Af()L_;J3BlVyUbBi7fi
zOCw~>=h7U#xBiyvJrW8|lP7d8QJw_|Txb2S>E3+d0Ai)vrOb3+;c@QEPLG#6{z~}|
zlcLLbs8P(b+upEVY~MK)AW(emDQ^5GA_H(}=DkIYBqgR^4J$6H?+!)YHTlHI>IkZv
zv4g`zU9H8G6XN>4d`%r$Ar__GIa+84UV`s(c=1^n)JJPEp|wz(+F&r~S#eQOqcWeB
z#oK=h{3^KgjJcmsV5lJ0b5o|*Y~?5tOq#MXlo&2v4t93-;C_~fiJ^Z>!g#+aVw=<x
zU}DlPoG{W>XG8i@|CxYMGhIqavom*dE4*MQ^I0yPiKYfD`>Om@FeriyFW4yER_}!3
zW|r1Y0*3fY!=Mw^U}z_BqP`xaCB<{Z`4tK#eqTUUQ17d&l?k<bRg$z$igcZzE&@@_
zBM9sm8X+OWyYE~XbP9aYOy!(fSk^#%4{m+ys*|qw8%?5>p~%A=a85(hQrDh6dmcq~
zaJag<wlAL<mm8@Nv7TacnEBJMP0gKDikA=8(;12)^1nZIytxYRS$ea%XCUX^{HvRf
znwz5SZ9{&51{k9onno&q{&9BFDfsqkToBQSJ$X|-JB^7j1T`=kukko{Rk0TAe{5{t
zsk!d`7K6kh5!F~j9&3sJ7m?$*r{u5FF1J`6IIP6Tav$f^0Y(9%@4Jz^c%2A#*1|-g
zJqnyi0%cos9>}<)klgC&QdOs07=^isXa68}s3}5f#v(T8GBRYq=P5yB{|X3jPWV?y
zjI?VyzZivc&e6BTbApxexbX<cgc`11{|;^8Yh4t`g7y}VRugEjIMqvxm&ppr&AM=+
z+xv0kPyI3{ll?#=QEFZaNfmwD)zP7E3$ghY&OVS(gFb{QJ3&<iLXLY5W`~6K3RF`u
z1RHShTrf55yXNk`Z)*XVE{H|^9kwpYWSNH1mfqgp_S7=Tjo=u?OH%~&uNWH}*QI4#
zjydVA2{Z*n>|~63UP2D2H+>jt=5^9fEd!@5NBqSv)T92>N%w!8(EY#Lx?T}a*UL6r
z{Y{BAyIN{q7~#j8gtUNqy>_$tg}R`c4lojKG*ES!9FA=}ev+F?W1w4sUL1{1*Py{d
zk&@PW0er48IS`PLL`OCxC4Q<OUIVzjg)`;KKfBD*Sz?`dsOatPUM|Ji#}npN3{Ftp
zki>^oW?drD^(<z1jb!r<TXCVBiI|QBJfpJoIkGcYezx_^2PYEZpF_&w+EZDxosKRT
z@8nN#fT3Df7d$pJbnUTIMRd>Esg2C~Cia{$<_U1%K{K)wrWpQ++;Tm>gpXwMeil|%
z+Y^id$>7C_N$+iJY&?Yjk=42BPJaS>MwnA9ffFNlqE<cqKtNUI<Adu7oi--+ZPi2;
zA4d1+Bz)=p<pc;?jM;#;SMpn0_p?GZwi_RV*>-xL(eYY{*=Xb`!3v^@v-6lPts9|W
z#v<T7;iXXmm+-~K#oIB)V@s<gn6j?<mA0ch*b^_z{!P@dcl+$m9n|*mHOJIXS;G(%
z3*MGbuYX=wr=?-f5X?SJa-y<Uw%+mqL<cF$Ff2$&&(<e01al{H3n8X_c1z9ib^p~U
z0K+vi<B;*s3B$@oD+pv|m*>b|1L!;&KW!>C2Hu82LkGM`p-Bz%VTbHOoW|b|ir0^_
zB1;Aa1}5PINRdU+@z=1rx=kD#4_cD1rFlOqcSQMIF7Tp|ZPLYZ`XZge2sM}t8*A$Y
zzt<R%FB`6c&}y^n$ObjMMtorfOy48HH42dp*etwL2_Q%n0~@T3NVM9=wzhm_a{N`M
z%yBBU<8bRa``%LbY{Cer_m$(TFJpY0yGq@s$1btoP||*yWdri|Mnqn%;4{Z+W*X#O
zHx_dqFPSKJ2fNv#hnO>{8Z{sH|4=nTRLp9<O`<`<M^<=sGnYTl_?1147gUjc79(Bi
z7rwzM3^+OM{k%l=PSeRSF#I8HoZRG1vkK0E6{4noH2%N`fiS0j09qWz*=AMSXr;lx
zHewN%NN6;@x(oS-Yhi71p=Ne&t~^eSOEc2RZ(^x0tOYnAo*j3<$;Tet$7y{D$f_-P
zqf^mF192rfTEA;KoH<k3I?|rSA^BiLR)wrhcab6dSbo#72--V^CxTc+k55%m6g14|
z6PJ~(_tcSjFaA^Iub$#w%)(5kIu;Sm!S9*}eo^(>*)TP<5paP?6amQ;%>B4ww3%4s
z3$<el=*Ffqv$O7?5quBS<7=bF$rOMHsfqS}UYdZ*w0=Fkmw_R;=7xj2KB&|=_+Ha;
zg=n=!yiU-gM_>g7T^tc95nv36FS8;gtbYCaRqg2oH|cl{ZfO~rz8fY#hY4%TrOncm
zxKK2x+>1b!uXXhF@WX`hRZr4FL_Af<tuc>pxe#X~v5JXax2DVUau=LH`%7+C`ZB#R
zp|bdW3xn*p;fIHKKV#=$nLx5Qn2?NV6~8>#@NV?L<eoqlb;R0>Kodz;SX&^~q^3O2
z(Gbva_F`Ll%itqqX-mRCu)GH_@kIb;-fi$jpygJg6eUh}z-de<|7<dT>9(8Bi)Y#Q
zmP(I{2x~-k>Ki%J#4h-bCLB3RON)qUY>_N2q-l88Ha3R9^RJyD2OZrJ5gwVPmwg-p
zozY_gh^7b^a@f>sG6l#MYb5sWQ9W%F!ElwNdfVrO*gHp~Ty8@NJQ3k!uy1Pxe{E-H
zXGGP&WTY%f#$lj3Fjzx!96{E6_ibGpI4W3VHle@9mgdajz!>axts!i_o|ifejR>N4
z|IWvG%9yXHhF79TPTr6<#3k9{snv}BZaS%Wy_<=;*vz2j{S#M{c-$F|81hs~vawZD
zhw29%ncs{~Vu1!sDkzw@L`bRzoj?UxxGz9PaMZG%-WHB0;d5{FzcW>44$FN#^XbjX
zA6LI0L8fE{qcRx)c(NjpIZG_eSm>@`tKV#-yic#RK_*3R5{>y0Xf_AUO?LoY1T{`x
zK|#gynWHDck|>?60mg$SDc8GbXt7^sS68H}77%p+-ArAG@x0W9Ko*Hrx72))xj=dL
z5HT!SXSn7CP0PI^2|{}+BPPAs*x2at#3@+^RZ-oaeh-nX%>9j!oNt32iqgFVGPO(J
ze5I|pAy_A@@V&>ZaR4_=!`p3aZA*LV*~6T$O!oyB%N-WHd=jI*4gNXNU|L{rd>Yte
z`B*isNGudQ>-2M{?umorK||!90lB(Wd$R!^G-GF|81bNJPca*s40z(@A^%L36Ny9#
zS-mI!z%W>kp5FV9lF7BdOC}DvrLsHj7}k%1f*N5fE`z4VV_iT_ny~Tns@j-LLaH=8
z($U!3I_r(}3HEVpr8B9P0zwu)ezGjpZo*o9<&6@^HRY;g<JJV0jbD9D^@#mN1w<V~
z1L^eRC3bo<^Tt0f9Qfb;__xHdz4Z`N@`&}Tl!Jby5<Bj2Xy`otzY_}o#BlMCVu;tE
z?$0tAcgeWn*4|1Xu9SX7K@nVNtLlG}Q2;?II2Kk5U8Ds!ed^?Yl0|r#`P;?=!Wu#w
z*d=6TSv7oHqW;by0CypUw6(U1F>QU@iuXZN?aC(#BDBjC$r1kkSR`24;QRXnnyhl=
zV4VxCA3aa$_G`~D)Ri0x*o<1{m>ZXq4;n6CTU#2<e0+#gfS$+@C+VnCNZ_}Ab@oI7
z$9~BR{qfpQz)=_&>V>2=Hky8rIQ&`g{i{YnH2Ue*-%pq}8QzMxuWqTzsV{~xO<NWs
zd~)9PN0@5i*0?`gsw6*VyX2MN%6&&a=m)g+it=XUW>E&RgV`G5M6AAwh}3**YWe}^
z8n48h+GHFE{u(x3su02e(8-#T+n__%ovza;@;+joj<!5?gp*C#o`K1H9DLfHUk9%K
z6lO|oKAe<H&-0y-BvL;#tSlGi&5aM%MfOQl?)Y*5Q_D1cCEFVe92Q6SJtl}G+ja6#
z>$3Iugv54r8hFMKRv@;N7`JPK!gQIef>?dOX-4byS8ry0W?nDI|8ehFxpO&~T5mlR
zwcKn#7px=S&V(C>a>QYXO4S#WmM%_v^+XtZ&S!GLOlH^iyCvy)cqgy^MJH)*s}l!{
z#Y2>h1gI`GjyfvEWCKr2KE`Pe503~iZYU(r_*7`v!b&@CmBou<&TSRhm04d8m+>3s
zTc|J=4%FeC(7QRZXEclSrXJ~Lj(ST43S(cTrH#y|rcD3I8Jr93ei;xU%sN5kRSJjX
z7~ba`4}XuRl%8sxYsUM01VvGWe(aH|fsQ&`=2c5K_T@7QV;tkEYb}kM6JT-hQ8M1U
zU9s|7>Q<+t`@UyW+|vL}uky18ubpBJ%qM82^yRkoT4$_W0Bg$@yiUp|%RALk;x-xS
zc?YWIIyyUJ!1ADF9}~3YypodZy~_T1@Mk*4IjD4AeN@!#+yh|e;I1BC>t;}iu?QFI
z-Yl_dBaC$sp$Y7$yg=Aj+sL+F37oyao;}NuJp*q|?d;sPHtFy~?dd)bGJGE-(cY<n
zmKoU$#AgC3oSCb~B4}>_MAb}Y45GJRs3<bf)AtyC$H}rMhRsxhA}>-?Q{!uvvGQa<
zlDjZ-ss3_w%KIGQ7a1Srffl^HXI{Mz0Mv3RfkD%hW3L|@(i0jQs-&ug-oFr+H#dAm
zsPH-|K~4selsVODvE!O(u`GLVg=Iz3*1K;_Elx$3q^59EgVXr>a?|q$%~bh#&+@ID
z;aj<MnlE{2{(9F(aP`l<d>-^HG4ntI-P+~vvNS)1>e}TlO%`*Llq5FudbtEjp00kN
zjov0W0KS5E%eTJfiuAhMsB0&%<qS_Q{!!U4$ZTGY%?Jbx=Ie0X8=UZZHgp*84(A@0
z7wtG!N*UfHO!RB9y=#%nv!<b^wH7x)9C0+BPXM$JEWRh1X?g*ebuepYWo21<d3liy
zmXg7#+BY}B7a)WC#BNxA5KZk5Xp8W|ngl1D=Hs22`>ta~4ZWHD<w%xMk(F2Z4SHTB
zg|Wn&-T`N2d9@KfcOq}|%az>sV(FJL?T__zUf}h}n!5LWIu!!DHMc}5<gHS_Jv*>t
zYw7a*>3B=7&}e3QZ~JVI>Zs7EfJ0@Qjz_EY9-~^fJ5PiYfM9!$*%l}qtQlTgv1jt6
z`5r;;tv@2&t1Duy2U$g^!^6AuZGg>a>*P3WZwLz@cS9Sq2;-nQS~i<%4Y~J5J`&!w
zb+dhu%e($>*7&yVn{T_OT}hxG(X-*NkUHD^d5og{iGFDPtWQphHS8FI;y(0v$e)P-
z%`-tU-i2t1GSg@3=X_lOXTlmEwH+fjP&|Hm=a8Fhf>?EWB;mq|nHBiap@m|*5alm6
z)ltouGEqs%?|Lb7&zpvhRYz^I84Cy2IZGqM6siFmFq%$Fzi6ACoy}8TR6M%xXxc`j
zuDrb-vo)9Eu9}|L2Z%fz$ne|&Ngy_`n{U4f4v#f4w}L4q#dGRZ5!f?bY{r0YhBap4
zUOg*qoq{TzBksM!X0yA1-Wx%~VkL(@{(B?S&35ULPU@1ZKA_p|9_=o|#S>Ow$lCi7
zX;uf?>#IpK`iXHn`0mf(%P~}LJQ?3BRBbC>olaX!>q(n|0j+^G108@@rUQj-FmgO6
zd8vmG33UyPOjv8-o_)Cs8om`7f!jQ1Zf+iZyk_o@&6sv|R0gcH{+(Rg);R#?mA<%E
z<Yy?Bz5YV#NybQVu&PI?ZS8T8#(+v#PUeBMNK)YuOUz+oXQ$zlJXRKFx@kt;+wK8B
z@Caksiz9!*6vMypi1XiI%He<S<EIO-d=Ct#<fW#%uS@$FgTA*d{8)(*fa3gxgZ|+H
zYH!zX=gsl=Etd|Nb)H1M<URk(aWecjgQ`G`$F3kfKE{vb-b?0foeawOkz&8Flb-$r
zlAetWdc}zBdiU)o332fIB<sb~hEZFmVMZPW@z5vFW{&ilrpw14Swx|J><f@SAen|<
zQ6%ro94Qwq5!vX?TMO+ioKN6+uPU{5hGO!*D4aX@yy?pEkQ*6!^ZGU<{0uDK2z7E6
zk6lR_keo;`v1*7BQ}RfdkE6H;kN1?!?*PZeA}qQpa`Nba*vN>mq~}RI{%PKLr6+2)
zdGXzDK`+0&Il+v)$VgrpVPVH;!fv!2EGx^-9NGRz*bf1l##OLsSnL{s7+8ni1`>e-
zI}1x4MAt`zEJGUy@VU{g+cZYd)(caE5{o#O_3;O)+**wIrg)9ywO*ziXZXt3I2Beh
z?q)K#4+B!6OYYREsb^>zQPJFX=N?{Ienc2xt)a&0%-SM`=GjrYug0$;s)<04a3<?W
z22GpTjLlX@^}&i7&83?+H!jhL0^q>rfA)BFRO{0VL-T!Z1N2#!J7_>6t@{MU4+xrE
zTql;7nzmq>Y*bRs#EXFGRGALnwWT_$<o^Bp`P$w;&AE+lV#YClG+mo%v^cfEfM2x*
zm%A);;P$%9QWx=$gc%sSAnt_TR#e0j<MOT32!b_c*>74-T(cRo#?QGrIgPp)(-z5T
z!3zKQi%UmfB-ID^2AhcY`MnZ)UqGB+M|0CJsQVkCpxTRM3Ban~uJAC4>hwPa<xOop
zg_yc6Gr|c2yW3%XfXtbvjd^gkn@E97P>vQkyseWLI;Fk2IY*5QYHY@lBS$(+M;6oy
zEbAgt4zugnuCT}~U-xP1f)&9W;hpQt9M*G_Kt%HqbDvHq8w9oUf5XqzULS_wUNikE
zQ6&K!pGVB7iOh@Cb};9Pw=@!K(EKSc_O`z|CCl(L-9Am!fJ&$5Qr5txMy42^O+8&*
zp2c8^3>4-DUc?sT{7BfY%|PFV`=OnKom~Su6gerOUb6{IKqU~Im%!X9NtD2h2~``7
z7mvfTja~P~!*i{{ppb(;u-C7h**p`UYec>VG4K%VOE4f7_q7Q>p8AxX=Zr0_0kr(8
z&6knKg3%7YWe@HXBuUFCXYpA6&-=?yTzyJNJ<x~;ci(H~;is~{GV5iQx*nRZGr$N!
zAuVV_$0wqDM8PO&n>71kKdCw@->mEZ6EfHshp+aDs&AH#Rx=SqXsg~|#6ad_TllT9
zhOx^&Lyo6H@1mBB0^O`PUOvx#`fCrAt;cM})T^UN4xkuYBEusiCH7uk%ftTu{+i0E
z*HRyE7W7PLzi1hMHheHvXInNV;?VIQ;OFVu^0_=a*>7*Qq~s8#1AK}#0NGvYpI%=P
zvU15zfo<2lhpUIorGVDX6MoUTru&&$=N9Fy!h1694cM?c>fx$1+naZ7qENj1@>pA+
ziteUJ5^smsTAUKf8<ivy(2xSy%V;->5399E*tz{K-YJv7@?xTe38&?=cj#fSKxpFK
z#s8MhVbP|hOwe?g@Yg+H>;#Odq0(uh9xp=o-6m2c-gCSNV-A=}>Bln_i17KdA}V5|
z0kyOSz@rv9ypoH~FezKCy*>iNv~v0rhZz;#iABT7oA~%{Pn~0okFZX>5@JWkXIwn9
z4e`V{Q%qUi_K~K`(a3GZH~j54Bw6Lv$(@QvZ)BqlUliuG#oS!lNX56#w~BH?Qk2X6
zxVV9pq)or_@9cx5A9(ioNJd`Yo_oLdO^l5hi$JQsF3N1DnxxgPZ=)GGL;m#XlX+4n
ziF8`-N=Dhu8#lhSrp$sH#m&yktGjM3`U5AvrM<oVl)U`vZN;N+0`_eT4L-dF$<2#L
z0q65d?AHhTLV=+TN0<|MPqQS0%wZ9SkImR&%or>L&-?J`8Z2~bM>-+smmBVCpP!#k
z#$^1nJU<?zxgl$#zUnt~KjHl?xF!c`PzsBAn~KL}Egdp1-aaNS&PWP^tXaz9KPGZ&
zmvQ^b!@M~j^ZK^4$AynkEo{anVZJ)F4gB<=UJ(#&03_yLGoX)HQVfU{qQgHEd4zQ(
z0MkB<|4E6TO=N!bOZjNo_LsBL_;0?<|K*SW__~Dp3OL_-UUp)$dHn<;eF^M`36Y`}
z87p<L8A4*iW$@>3%XjGW`PXy!KjiJ$>0g7a@iOO=j6Bj2^VN%5m&wBT2xSnFTOlF@
z4aDiDn*i|S+P|~iz%wy#jt_ANosma$t#UdNrGuu&sm^Wb`Zxl`odhN85IA^)A3J3e
zCe9uYQB95<8yT?)$$e|!xdnEE`0)xjcM0<(P?&+m+ymqluxLu(fr9oecoOy^?Oy{5
z!JnJaJfg0qX2eC^jF7-3ls;0t$-Mq5ZG}e^tni3_C;j%yw^PVlfPt|!)zzmmM_^6y
zNLyzYFlwjQmqbb<2IXE0fj)^pR>neJi+mAt$Nbv06ViFIaK*erRq|}mfFxczP<SF_
zrn{vYkP&RiBcY-t9y`{XYu!v-E}v5=e&-l>2@^josgVo_@vx|CJ|QDpubx+L{uN<X
zQ+D!w2;L+TUE|nmlTp^ogj4bL_3fO%{WRDtkfBpmg{#$+@p*HB?`A=+lF=!;NMumQ
zB<|KjOdAAc4&`3OoD8jHIvLq5UcG07C=jm$%jNp()_wBK&LJovDj_Xdwsqz_67FMR
zW9t#i_|qS6@yPv^9&F2!P%oGuW!J2OBp=o&xSAoSPF@9nJ;Xs}v_M{4W^S8Fe_idy
z2^F_kr=FC20oX(WFVB^NsTi(6uQ=M+jPz*;+C0(^G4(3{Sbpd2CjpxbG@EIme7r{A
zkzMyP)zSMSRf~HZ<HGT@^BoDODy7vm`0*K8hX$yYeM~jf$gl=qM`h9EA83Iv)|9`e
z^>dFvgY<p+K|JDw1m;pz;r;Ld_ivgQ(z-u>Ml)|ESNLlOL^*}@r}4faP8MR$a7e%V
zw~cC>eq}}w)G1;{`y}ex9`)#3I^(5=yL?u~%++cD)s9EbV6UDwSBuTlY3uYilezvM
zN$p+x5jL@wGnRj=?+4Rb#Tz?2uWO|o{D;E-VNzaxTgCTfJEZP<dH|WmU;IcMc6_ew
zgC|g;VK3AaOEQ-n5su(0v)fP^35L$lwRJk&|NU4p@M0gqoY!)>W262r2MzvzUjJL7
zF>)sPEpIhaUVDk~9$sIau%4B!FOd>2cPa9OzZT1_6ia6%-Sy=u()5RwjzC?EDI{hj
z{bpXzkddbyc#E<9mDXRNDm5{`tz5tS;H`U^Cl54UTCbGEkOJwToXcc-n2?(hmKPtG
z%w4`HDRLOva<p|mhdO$t#!i%3P84csZt5j4+4h2;=g{l6UW-Qy%hiD_rV#{y`6Jae
zHCYK!QQ!X{IOyUuz*#P+x_Cj%naEmLqjRY|8U{_|BmV4k)*qxxk=|m<d99gdXGpbw
zA;O}eWSWO=Wci<FVfD5B?@m@n`Gyk|kG@L1;msB5&Q+o3q;cH59$Bc$2+s{w<C=Ip
zlRHv8ucBpW*wusw>S#*^W)$#&s>cT=+<9&8A9WvWtoFy&nJh0osGdEOZVbZa5vGrG
zb+ueqt8UYQ{Z18saL3l}oAkhmG@~=<w{AYH$}`_}$tFYW5WCFAG!%_{5q$@!CvCh&
zcH7<w*v=y_J3CtqDh*p$#m;12Uz48KuA+5x9}`ddVMvo9$`;-}K|>Sszyus&W%UvR
zx(m3pk@UP|RS#>(>)BdkO3$0lfUoja-rNUp!EX`FFrbzA0|NsI6n8c}dkC$gBPJ&&
z8Mbb|UE;;C5&2Q|AukX`&x8WeeLK3XA6@kHEMcv=cs%5>Fdh9V7pOK&VoeI5#-9V2
z_evO>w+;cGTbz>0bB8rXY1-JcxKq)k8f2J$b3Iyx<rNhQW0FJ<q#c@n8{+dM4Dzhd
zTm=Xua<P9!#um{_H{x!7I0*%2GR;;$O)K?t+vJZ^1Mm?=nKDM{_Ok3G7Z;ZVhe!In
z)QgBdlBHa1ee>qcK?pYiNu5Dwk8>*<9Nw{2fEg+~wLZY<y6JhkN6hoN_WSQdxD9QB
zIoQ|+?Otv4IAc0g>udp4vPkftg0GJGisy7<DlEL0<4tMtBD%P_!LAW%MH^4}O4GHN
z-+nm|i_ZNeJN%pV{J&TI|9eLRS8%K7;9kGr-CH;RW@D#ErVCen;~-Jp-Q3yf;Q;hv
zT#7wyK=qZc>_-x_+gy|viwG0j@4j`g?JjiG%$5enD{p#Ufq@Mvbmlc-#JIhzLQfx9
zUu5w%;eb)Qx3vy8Z5u(_i~foAc||DdJ}^xK>BxdFMzb9Q(%ZPLvjTQH5KIS7>Q6K0
z=S|mO51PWZ&ZYD`E5sv~Fpm^V$2P3CIL5hZX60ZTVmReUp2X==CD^OP^AAD*#vAs4
zGm<W|H8nL2AkepUvM9@MFbR5mF<hJM9@Q!@>KxrCX%5?6C^<PfZH4Vp_5;y`Ml=m<
z`VQ^cKEbQwYG(HN6s(Ex0P~Q!aXUSe`QA{c*qg}czXue40z&`_(KMhigdmCWi&E^t
zn*6InKsm^QQ(`$XZ*Cb9UmGn>|1-$2`rjdg`@aAg)<k|T6Io~iu&>$yR<RL$HEja~
z_OP(Ne7mmf4}mv*uJJ4wy-``b?$dFyJxI7(MT;v`SWBSD?$HsU>TcM~C)du!>Sv4!
zOoAsCxj*ncgF07ejq+kGO_r{+j@1l9o7dm18V1hgUsV^J1%hR#lnr^p7aOh*r~8`w
z0dVnv?bxV%dGUHWL3)dRdW*?Md;uSudwNzvuk*YIj-kUUu`D%4+Nkowr0n-(JOw1{
z`*2jJ4~&O#Q}DnB+gzjEO`Tc`|Az#hw*tiep9$V`9SZ5|IUfB410-TBrgpltp!8@X
zQ_k^<?_Sx(Z?D{l%+tXK2^uA8Bu_y7(+;z~4%0I(NmM~}4Q#R=RhgN9W#JU!3cg1y
z6z&zK6ue4OFDG^K^|p(=W+NLV+I91yi{yK)mnA1krwuOs*K}?v#Iy``x(_vS{uaR!
zK!E#S*^noqt+NN;Ym#ifsqtux{3f=&eu9xL+|+8=MPbc%(d8EmnT17YBDEG;AJm&2
z-@x8DnKvYteGpfGVCsm>BjL!BOwR%|?62mDv10~;gs&DNXI^zw8k#>+w3AG}Sq0mB
z6(&-CPDNZw%7Mn90WTeL2HqYB^t!4KYM6vTVY{k)Fdn5ajmMVTK{RtmI1<X`S@+7|
zi@CYEgChva=qV|iu~z80)&x0E7g*#}1FIBrnyxvy!~OwvK6M{KIJq3|yjuKWN<Hn)
z`pU~6Tz{kQYHp{vR?6iVpJJc&%H4b23Au9V%-VuS;F!@dYb3n2@cyAse*<bxsRDGH
zpFE9%AhiG+6q&Vk+F*LV6pyc69=~^|>chG8yu0}F(c*FXW+01TS0_OgW}I<BiBZYI
z!VB2P;Q-L?G)f&*dG0{rL=IT)t&NAJy#|03xHIy6r9l!I>xi?$07OV0DjLXOFTZA2
zYjyu`<B_tv{nbr)UMXMPk0ykJ2xHyiV*td$!(YV04;kP#+@kvxz}E#+wG<oUcH`tD
z;4Gk#2(^L<hE7)1abc$22FSoV1EvX2D+`^Mm&e9`^4cRQAx$lS{08Jp)l7XR8b2*d
zxQvt+pB|il{&t;|6A-TUx(e~+>rLkf*p%>hpe}e*N|KYUI%tF8-59JutYvzxc=S_5
zm+ns*;G2E8vIj+<CJb!kX^<H}5x6Gm@#p*Z?-f+RHEtP>PNcbWtOA8cXu_3uML~h<
zIUnEuLj4!b1qyEgCXSAd&NSYj0$eBUur{3Htd;?r$=HO<K;eI(>E-nwaUON;thxw|
z6iTpqq#wUF*#!g5=Kiw@obi14yF)Z0KvPZak3iuxh~rg`tS~iG8a(Alh8d?gV}KTL
z#?R5VCX0ACyRx!kUE|oMS_~>011zTx0(QXr2j4$_opfO1YRu=FAKgmeI+2p}kvq1b
z+_EzONDZ)d%Jwnk=#Zb|UxVk*srk#7FSM;m4y%eW`kw_$s=&S-Mxx^45z*y6&OKRr
zHd&{tZJ|IpfY-=xV^@HsBVTPb4{luHt14W<#n@F(s{zMTV<xOgE?dyl{y)6E2UL?=
z*Dgv23q?^uX|f4bib$6d#ex9@r3liZB2B9FPS~QTAZQSgB0)i_f=H7Z6a}fl(4<EZ
z5Rf7*^xPSN{e6EqXZ-ivGwvQ4WA7c3yz5<Sy=%_-%x69m+?r&mw&E>hUx9x+{~(`a
z%l8kYpDFh*K4jUyQ5kpr|NnMGYoI{2#r;1!$}cGm3Xq<r#ZYBUtWl7h)$Vw(8BC!6
z8k6hnf%4_J`Ti?MmmUC1WlH=~25gJlMT?glC;hNiPdqEZ!{s_Mq1+;YLO%5Td!kIH
z!}tEyY_%RuxWV8F2Yo^s<sonm*-<y@L$s;aJ^j}=Gso$I&Sc>+XDqn#<4%gJh7k9v
zSGFW5I8q6XDug+HYU#@!Ds>U0*4)SD-vZlA3ae=9=z4g&qTxzDByS6gyi3x|UlsMo
z>yFH5|96pogYaASnE4chp{XeMZYvS-uif2#b6>xj)_V2ZA%gnN0?Z{3sESQNS+IpD
z3M!NFH!q29KYgre@btM^lJ9)L@zsf&ivmOf>RAt{N(bee1V>o@|6-?&)Xj;V4u%10
zk`C*f`f4}R(z@pAW;OwQ!<E(5wgMI8_A`PwuRvFJ;J-%mz!BuxO8XCEdm-Cq-DC-A
zq~1U^r>(C(^+BXGs{R`^zx-)4y+8k9Oc9)URL|g-FZt$J81T!^9x8yohWzKd=<^DU
zT2hg+M`j}kT)q6enS3rg3Xd&)Sb!v2%LOq{XW#=^5GSLCUOo1F2~mKl<Os0rC1X4@
z0QrVOp~Y3N3U>ARR$1VC5^}N%HXiT=E8u@RcfTFZ({>hp5-aovt`+BM{EM23U!S}o
z(HBBl4+rVhUs3-Rfxofp;5d0?G|8i7L7~tiB5m={NB)I=!r!f%WB{Yzcx6>bpCbDZ
zBVEJYX8Ss}$os|DMPT#k9*ckM-sZ`B6bK1Nc-io1B7jYShD0{&reVl80qO3-Pb*X+
zj9gLY*f%%d*RmrLs7B!jP!eS!3zBwLlfP{Xx@&}kvY}pq`=6A2QGTCTRyM<Y`M^T%
z6^YpI2_5YJ{LMIDzIN?`K?fB@7IV1F3aNYuf49^2!!A_j;h87~&x3~d?5uUo^Cz>6
zZb;l&O?QR*$Y3jCct#$3cuiE=RDFGYs<8Opdx0%x0bWPBEsB6r$OlQ;e9z<SPV$E=
z`J?Lw-wy6HT0K_t<WP_Or9X-HEfCq65+9%Hy$yYk#i`N&^Ms^%0J#f`o>Y}-{0lZP
z9=v=Cz3U3?U$mBYWNo#A8Rqjp6+>jxAfsVkzp<G|pVdI&dVpv;1+dA(qD2wwCTa!$
z(pv;%buE=NG=dkvV2BzGe=Y-X+YZ5JKn1s_@;e^8+CrTDpU`dP_4zi@(@0CDf47_Q
z5y56uQt-fK=WSNTA5=rmWL+L}`*s}1lSf;|(y3f_ByH_`r}iR9VEmV8x-O$(o{A2u
z+eE6Qj?izrynbit%BU)mRfioQUA`7U&;A{9<p^;OmUqL8``N<vV+s}F#FxzKbJc%c
z)Y<O#dHb~DICmnB3L@7&U7)6Dss?*|%QdktzSx@sIU+%J#1kb0f@~U>ZXh8;#$nyG
z6&jmlbOH_Xy8;v*`0*K1wQ|f5L5De5jO4So>1Bs58aC5H96No^UyL#o`Xk`4M^8O@
z>tYaahyp3W`u2jExw$Lu=~EUS>q`O2<oiR)+9ENAiDd9L&1}xfL#*(x#5V{5w!uUB
z2NUQ2`Rf-in8MZLs8wJO_7^ByZXXRMaH<?fzC5F|!72H5pQI_}z;9nQs1We0lC^!E
zrX_46T=~~nI_x~EWQWX?8%lfcB^`FKJk0UV-pT2gl<RkIOY)J<o}5Tob5M>9ON)73
zR2Ll;Rdu=1Z%fPXgphsqo>mxtw05?G)i9h7s4^u=7L<Cm7TEL@!5@53WjRl*x0AVN
z+X27a4k$dr|D|;#{V%Pf|Bzw+zy0=KMs-0T%31NZqIdgm?yZTUnfo}+;CX>4plv2I
z7PP-pRzqNGz%(heOYs=CbN&|$;-a_nCp3~5f<;o0>1bhG-jn%gh^lN5mj!y`xqwjh
z20#l?BdRs)6&xGIR`Kj+!si2%Q~lHUJOC|kItOmN1_pa0HrL0Jym8HjukNz&7&BH6
zjLXZFq;0ld6CV<->3ex&m0h@BZ0rn*6H9Cmer~rSUtuqQNEfj;w`ftraq=>DAiZy&
z(ElN5j=3|p0~Ld<QXORen=xZ-nh(j@ihoAg5EUSIbBKtDNXK}Frr7~Cx6`X1BRg^w
z1+%7Gnx(~-(0KfRXh5Yw3GdH8#yhlcJfch+)_m`pCr9CS{KO68MT7cAD<EqQ7H!jz
zY7IIiEN*iF&Yrb;d_5eDYFTc;?X-{>&!i#cXKmTZQVx#bp6u*Ymvk7T+SDKIJGY_o
zxd8AG$ByH+n6ZZllne{K$>e2?hm0<{-#;&8{|y($H--od4{40{LjW9Q?DBZ-6jcsM
z#knAMzGLmJp$q!I$&D}je%-u{8N#3#xoaA4lCjR*{v-8z&@q#nuhO6S52~^f2ob-f
zP`H?RKh#8E-*n)=8|434uKZiqdo#yoa7f-H9G@8c`psl6VgTT8Z4J4PZ{0Vumc!Rn
z`g1MIe+kD~U|*-Rt$POjr$`vi)bjG2;Avf{$^Ry62z!>S?T=5>LQFpLEO3`OY|;Av
z&GG{qM)ceYJAN^|#B_%2N&gQq4YGVtj`rckxZ29kR2{@}=k$=&zf6#`Bp6C#*2y)C
z|D34auVdZhf^yAk%crsDNDq8;Kj?fZswn!={Ketp&qAKe|Bc8yT}fE=-CY%N`Y&8b
zXYeVamPHp|Qk6P@mk>FuW2yVa^joo;a$r&#M8c!zs60Gd2$et<<7QGb)*yG{EF#`b
zxuTQXBQ|Xqd)C~{ESDSp$y@X-aq4z|0q0G%MK|~=md11|kF@w5AoB?z+7*|zH&9nU
z&M*&avSA4Cq)bK1QnkDeXw$85VyCc$PztHv>s^%QC>&%?1Yb8Z4H-L+LLEV<KgtUz
zNgE3}xvYUgUUE4eF5bqujEnWOdt|*+`?x-_E_StXEfrBIR^Kepm?M|eI6tIrL9~0^
zIQs1H7|-&tPYqS-l=VSG<td^yNYbZG?^h`?>&aQD$bOJo-?eOs8a+bZH6bKiDKd6(
zIJd*LQX%7V<AQ|Ow62OIdg>ZV^oY{rG<@?SF-SuFu7e_ZFlokvVSfK{<t3@?D^}MP
zeCc}3R0UE0-)R6Zp)Onrcv2<VS@blS4`fFmef{fezED8>MXfLT^woWtW3D3*YQOBG
zRM66lI|{NkvD_F@3CSpCjMZt?NWC@q$lGjVZcx~3f`mx<@_t!<|8nWqeZfZ%L1^O5
zwob~~jX7Zy?nyg(#CK49>@rHn&L02fSNWVx+&-u2mJt3J&!{wX%iBsbLQaqJMwEMj
zvMxD!ZIm6cUhckQ=7UG}uzzfs4<bv4n8_BEgLvH%QuRn??&IzSI}b|p4mbgovX|)d
zQw~~tn>yOORxkbvJhXPkpknMgaE?wvIQl=LE{KtPBkohP_X@+oZFDsDC*myJ>(hQ_
z(55_p=Fy^J(oB}6p*fJ28XF+`)#q`d_?5V{Q;49`rH@|Oi7QDg<n0<)%d;?;^JqA4
z7l60r7gil+LFwz<FmWl%g2aIV@p^E-8LH%n(y`?;s566(=@!S9m>V8Mt!JlEj9h+9
z>e`fOmz^S-AS$J^j7u5De1wBQP+(&;{;{L0;;6ARuV`$eO>Jyq<+r$H>&p^ZhNX`4
zCs84y;>RPr8&s@_Pu6D1P%Iob>s)~*sxJ@uT9l$`eo5x%nN8tUzS+?o9~r7Tbe5X!
z;NGoGEXBG!t?J)oM7)muCG+1?9RDLHVl$grU2#{t>?{$-^-4!PE+weM9rb=eBAF)X
zP^{UFL%rfYVsQ_HbcqMCJJCOu(%nnbESJ40R;6R^5tHN>YqCLEe=EvhJ!8_m7$>mU
zJFz-nH%v?Wx~IkBt|vPPyzH49s*reK{TC(P1(zl}oc`nM%f83l(-)*KTj{6{ubtXh
z-7}odC*C(0jd+&bXH<^QwFs1!$j|HU3-Q|jbb^U1f$Be|^zAxOJ}1Mbc6ZbdjfFhV
zzauJc`L-Jmi2EF0FL*?`Y+8tR{Y#|?XIb(nelYb`1}?MnYD4ogNfeIw9@V3HbNH+{
z{uJ?^@FICsxY*ci5s6^^5r?!K(pb~T>s|pfS1%LtM$eg7C`$;xCMuEKl-%SRleWv)
z|NfiOca$5N;MD$STBgC&@U8#E%UnMVTQzbUpkdd2Qnd}xobPu7ip_rpXqw6a<>x+N
zsO<G&Pl5dqJ!2zM`eKWO(#u<j_0HWk#aW+Kn{8(@?-QoghO5?m-kpv&m|XU=ioNk@
z-^HonK!TW0a10}E*X;16mbcI1*UrA5jn;mABq^ut=f3xT9yci+9|_{h2VO&T)+;I^
z@&PDn$)lCum7^fB)IL%P9Ii|8dzt|W1NRl69v_`=D{G!S6CnS>7S0THRCQDqh#qkR
znB+d{+YUul!1IsAANEuh)Yq;1zn>jg^SRPPZb!H4SMp9<%Ke(ilIRI4Yg)vO;G+$u
z_-=l(@-)d-M-p=O)`=-G*2(UF{A>ez5?`T8SvQPLZb&`qK#^`<JNAJ(%Lar!t*$Yi
z*t9v}^;~y+{nI(YfnZR{-X@5~u0GKJ-||XampSRWyztjvS2l1LC_Fl+d+vC*S-=_~
zbBPPeTcv|bxu(Pp*W2|qCBsOaS=^~v+yTBM`Dfx3lN+b!JZ&<tudh(I@LWZMEOx`V
z^v7Hq<VPyi@zW=Q%OA~G9wMWgZ=UOD7P7oiHt=WA(UD|TM34@2GjJL_Jm!uX^0F^?
z`47a??0ME};o;%a22)Zgo1687tjs7L9apFuD;#WRaK3*~vLNWp#;R9y5{p#FKqKRV
zU4Yeag+B4-@^IUH&YrGM4IOPqmZ!-QaZAbKdn}bxe6%d1GxgT^X@jutp-;t^C5J_t
zf{pPB*SE@UPPnYxH%L#<_br!5)c7EiaYRYNPbB0ah5z+UN-)kOOIh!H|8K0Vo`yhr
zgO!Hqlz;530Au4zt4!Y;@7=Q;6c0TCk4<s-PF{(al2831RQPBwi<r;1mYDepcdk*2
zeW+gjRw%Lbb775qQ&<O8jwoFo#$O7`=z8YTzk6aZ1I>DNGVkVK@G}$Pn`>})>Io`J
zeg*84kLTo2`Xh0!#=pBcAy!kxtG$Tl9ARxHB+jQ|ql~28M9=jg#?BAlX)+(Co0n-|
z?GDi`4V$kEblO@%)4S<sX+ka#U2{BJreYd~yMs-LLJjAIzFc}!d4}kY+Jm~4&@a|6
z4%!-~L<-jP^hs5LCxz;ixl1T^!ixv`Hx@^YQM@4t@%TY+yt@p2QUcizj(`g;AIbE>
zQAG(8#tm9?gE_H@#lC0W=ksRtT^ZzzO-vqYQz*{Qbh;${CD4G;CYlh}Z_p*Q6^z+V
z8w|T&rWjrCRakZ|iOm#f&tr0^%J{s9aW_2n^>6*N#I&@=`;S91+;5$5X2gx%>(P!X
zG3`bZ1oZP2lOMKQz1L`nZ}vmQ*8N`FyBc(!n1?Epq09{z*lS4yP3!VC>fS7BV4YF7
zxl@KklF^pSDs(G8vxAh2Z;e{?X9opl^Mf{b))m3o#{uY`SnOWx;*mIcr;EQ&PY@pS
z1oaA!<ssB_fF~9#K6VgAKDXkE9e5s(-f8-pE0#wp(4%U-&^<L7nT+&CriVYB^fNwG
z*WB>n=*AJ0>f9*y;k@7Q-pTStUb~{MoX5?}bIX6HX~pWCosOG-n1;OQ(oP;Sp7Qw8
zlVNe75}Q_BANTCl#Gb7kl4-1v8W;Lvjh9wkVX(1bXG4{T8Q<n;X{!GkvZGrGSf0j9
z7NAr668UybZ2g7iXljk{%f~!VC=b&HiSO^(3ym?LQdc_WdGLyLbzAUY$}!#dp_g|p
zzsp0PGZPv^BS39Yd|2d1uplKUiB0cZ$mwCx`7Htu4GBZm@z*RJjM}%lc8-Xe^Y+}j
z6h`Ih_`7MyQ=CUl*O$y0qL5GKZ}9bQ=hU|c^k4pM&rsAv8x);(A$U1e?p0o`RwLJT
zd@U(ogh&w;F4~ucepfY6xBXRnx1vbXjmWeU`zN+PdH(K~x|t3wjoC*+Ah8;v4dkLW
zh}}a}4Z9)9lU=k(si*k9ohZ}iIzr{%O77da?le9Mtu6|on$ao$?H7Cbr`j(!(2kR4
z&<e{;&_R>v(b*Hi%5;lf6c;!<1O%s?-}^?}13!86RHd(J5`is_cXo8_J=&&VZ&XmJ
zBvE-FYRKtHyXB|nQV<#AvsDvo4Rr!DrV8L9ynua)rsv^0KmJ`sIkaQF5TAW7;|E%o
zYsf<rX^Eb1+f^61aK!Lu##n~k<{LBz<jzXgm;fqCj!nG(@)NhmYwa~`jTujZ#F4St
z_y)+0Mel!{crzg`I`D_k5pe9<I(sNWV|bn8dZ2l%rG31E+vDY^9}@UmA*So`&C$#E
zM+<|_2Ss5$LuEyhbwvaqm6Sa!BQ|ndfP8j;*ERn>?Vwj_>l#VlE3y@;7|HRrrg*U_
z{8^|r%DeGhe3`55(_&JqeizsJ{D))c_4}uhQeX55VZmip;1^1IBT~MJ3OQ7!nMBH(
zfYJ=qJgy$eB>P}BfZI}ZedP{N$sT&f%G%yaQ?l(jNiBE)m9$I59oS-MI1sDNH(utF
zlA0<6i@*l-5WK_dN&{kI2cURQOMLa}>ssICI)b+UUX*3Sr|DDSeBNJQ#^M^*evb`g
zE}6Z{4QMfHx*tSk&0(hqT*zLpe#UiyriH-812yYin4cNz#*S*jxRvowGh4Utx18(x
z&h>fowP(PP`J&&&1F)SfY1Fl1<6LQ&cgVAb)c0rpdKB}jX!`NI7UT!5MPf?7%vB(b
zU4mx}pbR4>oZsI*I*s)<4<z!!-SJtKmrFw=BV=ozKESd)@=Tm4GZ7;vx}gl9<qsCl
zin?XO-$$c=tC41E*pV}%mcY^!M^VO=Tk3?J3p;}i9#Ga+++CZ#n^nMNO-0A{I!?ZX
z{fo>j4!)H&QBcA%g}*~xiOY+uRr4JYB$em5T$z<IMqB>X{VQW7FK{h?-f*Bf{~pZ0
z&$*RBFUe>oXfA?7K}P(Z>(@8myih_3SKCiKw~kU75l87CwC>a&w0*svl%@`q^8TLb
zD^WvhchdAw6u&0fy1<i+lq)jV=k^oaAskv<`+l=%$~t$+%eCEKDt#9f@8v=C8@Oz|
zzkNj`x$?FrMd7a%hmhuU*GxNf<-=som9do<I4j?g9Q1Qs@R5}<-al_JwMve7v<ReA
zOi%OH`6Z_52=^<&qAl2+M8_7UgZlP^w2*|XDG!3W9Tk-4iIk;$1^n_Fka>(z_fP*d
z+1Z19IFAGZJrJFB%YW8~4E78T;ueR)M!MDN3J}n;OBKI#?Y!z!^MWcRTMwz7P$sl-
zXVmXh?bBws%N0oN6!Ge%#?RTghW3ZB-VW|T7fkYucbmw(8Qt8<To3)GOnzo$JjZEZ
z{_Jh8hX4&<=D;TfEWIca9xY=YsR<MgrN{n_#m=>BtaTlMuoM5(4A>99@1`k5%A%!B
zy19p_lu7lY?6ISMTsk1v-{_;=Q3PxgU@!T;N*8j~ojX8?2d#<QymcyPh=bJQYRYU;
zE-tW4$<|8>QGYWj6^K+u#5vch<q@p|4dz3Q@r`z_f&(F}cd28Z;#r%@;rhOPdbCt5
z9GP$X^hLjIYbVP>Go`_X5Tv^PWKBrdxgHfzrhjU-2dF;QO+YDOw{m;WI4y1rm1t0#
zgok9TEEGt@Chl^qOnXfw@7wffXk%X$1=t4cWxcL3<aYuRw2&T48&Zy^mOX(k3!hEo
zG8xJ<Wx|#}ti7X-8tNg<gw-X1eI73d5()>}WCq4peo6hkn)jtuf7S8Q@5gInIb83z
z$J`jW2xC6es;>iOc1kO-bFV4_y!FV_=Y57Sek0joVi%Hfc<d%h|3_o3-4~5Rry&un
zN4y8e+)D?KOCWs;rHS0TH*PYP16PU&RIGwo*VDmy?sEaL*CV^70LkXFn#@;vu^crj
ze{wi^G9_&tTN^3sI2btBY<S=U&aP!~;OS)1UC0w&5G%Y$+!1<$6bZ`+RZUu{3AgNA
zPY#AWxL!qlzOc5vCNe*_cSzJSb%(&P53GAuw(8T{A1H{YU$I^>Ci<<cXsgMLEnY5+
zX1W@=?76Y3Sa;JUzSwU(j+c^}lXFConxb_;!jr8JEMYn8CN4-CUnc&Lt>c}$!WjO>
zk|<pJ)DRJbzhh`G#>zpU2fE{PAgNT#<Ycv7vGsCoS~R1QmnN{_tbKy2HGSjW4Y~_m
zcCLH+LReF2S75LQn~L+S7zjH6UHhUh!@=5`*Q!sz1Ori_1x{-D+ue~EE77qCMqGR+
zS1<&Kjm*b|pNZXzatn<(n;L#@#c87s<BoqUw#G2mJK(+aE!-!z`&q1KDijn2)p8qt
ziQtZuO<n#(@b>a*9*t12d%frT<)3h@p<6w2nn$Qp$`W290N7Rwx5u-Ivi+5&HqW!j
z1tqQ1__JSF;MDa*6^!R_t!!_EQ$q8w5#SIW1?xgfJ%?oz*`{RD*8@}CDR=wiBZ97l
zLam6vrKz$IfO1{;9~n|^xrp@!v06QY`Y&`)`bqKqEEpcBO0hoUVZaLfwPEF!7_3I?
zz`({RcEj$IXzP_jg2@r}PE!xMEh3<b%TS%L8kM#L7{6D+@q0|gPm?P@z1p)9`^htJ
ziBCVPboB-tS7y3|foq*C>kZe+OsHR{PN-D69XpNo?>QwWpRA?Fyrv&t6#>s6vAIPV
zS29sXf$LsEjavDByFL9C=t?0iM&5HH&E>-JH`s-^cP~O_4tLHBjxHeVmqAu+2zJ|J
z1Qg{+seHdHG!PH6^KUw<K%}!`jPllJ`l`FJ*9$T}C;K?pVHOE&t{yiB10MtWXCxcx
z_U@gvo?aEL$}OLjnV<2WwH-OSa(_3MxXOL<#e+7=-+o@aUQ0h2mUiUX-4~~=gskj&
zXEF~rC<NVOxqc4VV*!;RMn!E7$H&I6lcm<z)%4W^$ODd(MT>ck)7rt6Hzs!!%L?0`
zQ)5T0t_^(c8Uz*FBTo=0cTqQVP|!L~?nZ7oeG{$6B;RM-&q2c&zq~X){ik!}8`Etu
z6PVIPw(D{~s@$t9O#b}DK!#`+d=^C<NQ=h=vma%*KmYq_!uy1TghLn;T4ev5tEZ+1
z8fv+bT$;+(aMC|h^O;`@HisTkLe0(1qP5(v^es`c$<G>x#rEyQ%Rr+?S{A{zGd+_T
zS4BR}op>uV{a}5`G7v=grgFK5)JQ*ojAo}*ToAr;q%#kVbR0EP<H)U~@768L<7JtS
zjo(M0zegUc_d0A5!2CAe6RpBAa70c#nRzdD^e5geA{^9K<(TK~*)PR;EXdS&Kq*IQ
zO4-WT?*?h;N|Hz;7}f|XND0&BgO0AQAy**guM<Yio+S-pv_cua@@xKN$UTq!Q3Ms9
zl$Gm+c)YC{%p+%z>#vFF7of7kWo>cn8u_Q+RPtPdZ9&0CvPy3rb#&!<O^f6P-H6f9
zkE`=P5+=I_LY>n4O>9>KY|`O2zX$odH!nKsL&M9F2P^I*q3TD~R`?GH6qfpGK9FZM
zS9DpHuZcY9zwwHa8p)>Su<?={QLRV1CC+d7=R+v0yv|D%=6OYuO*MO{WwnCQUgFjt
z(p1En8RkVpC1-*p+HP8~^)asP_I;v`EL~g|Up%?_A>xJ#(-O}W;hAfsgQSdV|CG}<
zxwBvRGma@t&t>k`i^X`3V)#>LIWS|tZfy?hakh#g^E_j9T&;Kvv;SG=3EBhn%vb5m
zgwi1HIwT>KBD^(v4c0Z2*=1Ku2y^nQjS3d!gG-HB(@$&*<T+bE?Tg;}l*5h6s<Jgv
z(#plv4bCM>woI07{MZy`^HOOCzxj0x>!%lS9Zz|RfxSu{GehfTODjzqX*&me{6Fu_
z(32EN`>v?AG8NK=Fz_CGuuhbGGQ!)M%E!Q~Go1C5_9s&?y_)JhXYI|~?ory~%Q<s^
zw3E~~?)X(HG=ydfx035noDjLERff(b9cy0|-N54^<R<fm-ju#wU$cB`P8ap*)>LCJ
zwuaNlFc0kL+flJ+NqDBNty8u6xPxelK3y@*=;X^Lb4*=m?c?695kF403&qh>c2=<Y
z26(OF&zncfPry@S#S+M#Nzc!C$-vLuHhtyzK4l(Xj?Z+1jBI-OL7Q`kiW%kU7?xdn
zsM$eXN>xlvmTvh?x;M1GcN+R+A2oa&9%RyE2-X!ATyNRe8@D+@@_uYQ`5Ma3m94L^
zwsii!EE}q!8<mfF7+UgjDGv81b+)F!$CY+tk8*s&8sT|akVdS^bG+gDvZC&ZoU^6-
zq7~GZmt-8pRwu@1W5tVQHizRd$j4@37&M8JX}OWI<D4Arv)9rwhZ<_f-%5X4+*;7d
z@;rlhD<5IE18#d`9Xtat<)Mk83crFD=^d0DL{g?{t>}4K)#UZM@9go~953QL{#fkk
zx&G>KQPUEQ^{JmH9>U7i=)Yf!yBWoUAw*{jZOz8<YM8bSiK8@0tWI=R8skf}%Cui;
zDq<T>52ODzXT;suk$t=rluhtcSHt-GLv}_Zw>HjuE${W#KZif)EAh`zQF7-JAnohI
zyz#K%`fyEM$d1@Ygc|2{UYL|~_FLB^(n>T#Dmi#Z#orCLnDiMoFb(rO(R6qkeq5O1
z);*)-nyw>K!o7^qTe}3Fyh(B8t=mJ<rHjx$i+|z0{r_^GuM6Lyu)Kp!+0bFaK4U{F
zMBVu3X}*>A45PuaBr;=7Qa`bNHz*>M!n8)S#P4>l!Fg-xu(l83A-YWRCMAs%CaZA<
z2Y;{CRriLP=d4=o>Z|{u!Eh0aaIm0ilvV_4ARiJ&yL5ffwh8eE5^tat^?i_wY0sZu
zwSitnrciAj-_{Sx>IjE)SkN^^iTV)@2}8HF!HcUQ41IJ-G;0jXx3vvc(1yQmrQL6W
zu9N7PW?PD6?a~d>r|QEq+-_)=Z^h8^^|h8jP@$cFxi~7T9t5JQc62V=fIQWa><O<X
z3^Eeh7u1CcWvvC=xC!sJ$TlR=t%-%rd;>B^wBE@Q+tW_j<JThPUdmYSF#1lN*DUJ1
zzwQ|B^>dl^OJl}78DBwXe62!|Kwcy8rUs63MkJ<tpS2U?28St)B%L0^z#i+h1`_EC
zc^7)=!<n|8%P4J=eg?Fh?4$TpV#%3m;Q%qtOvJSU@xr+J(K&ixjrgRwNm7^DKT4i5
zv{2VETyjHfwf~|Q;^ko+L56WE16#3lGV(VOsthPg{nNoE^rUw~QHe@WeYoac8VF~}
zbV6r~wm}&d7$-;ltwAYlShhAgj3WU^B*)WJtyk@Lxf#Q|Na$gsu2S#Zahrp;=m-j1
z$Tb);u}oMlNl)vcZfQQZqpj#u-S6R%cqv3Pkr{b^H3JMDh3l@+uC<je{1mf)b{?zY
z;2Bhc84OsE0gDjV_d$#N?5}o)3(|)u^gnw9+bb<7)|PGs9omQ)r5}3G?q}t-9Ae;v
zPH1}q%{ONeC_P$#Xbh+EIrGQdX<ok{kC>sd&4)gODTzUiQ*%jiMjvWlDY9>W-4jh#
zo*v7<4bZ*<H4+Wbz{KzJWp|Ufptd$sgH&}70f(Xd6iWze1?+<%sAogM4Oi^~*UL@K
z?M!6;j-R^(*QTMThn3~|r0J1mLdeE*P&4!8iFF9ELJbEmwsCxjgRg9`a`)&U2cHl|
z2Wi)&W_FU4s*8ZDgJ!~BbY5e7mkK@1cxz$%qFDo#!e+=Yx-NaOR;=xd3yten)9&@j
zIU1wUAzHwHF2Rr`ttysMf$AUKZdTH{0d>Sl`>iWpuM8aoQK>5*uT~M^mm8);6cmSo
zl0Bg~>ze+k+J4*)Au0IYM_mz*{juS$uIz$^w>dVnBCSK_K{*e0#}5HbmLs7^nqV%?
zcS4~WRp#4VfLh-m*vOW@>g<YP=H=U{M%XTtmUK(u@j7$L?m#$aUaCl;uu60vx$|t=
zLkdM-K=ZpLsI8|D<oDh0#_>kE);BovcLw;j(*mhxd~T*NtIgGMp>3gzf?<7k*TYBV
zmMNT?rmXUG%(ppOB4vZ^pgO<~-fgpvWdF!bU}j?;w~maP>?@sPlSnQ1DY)|f@A7Qt
zXNFRE7GLMc-#M_y6GQVy&c3E+bB0dG60yjHXP4CRF&G{YUu6~Ag<NPiB+#JgTddw*
zN7e9aUSb#r=?RyfnqX8x-N~W>fjg5!>K+zQyP9tyO<_GD60;m<HgP@;DO+1TMQ(UB
zXB}M?u4n92yQ+4u%?QLHbMo>+%;8gbqhtqnu~rW23S|@)Z5*ASC<N5{PqMXIr&y*_
zXOB)XR%6FU`$woST1kmV49uWyd0_@gnRbab)<Ic=DKgl7m5xMTeWtoGQ<wg*IA0@;
zCJXYQqn!p0AJ^bT4iF5(gT(yG_za<r&!=w<^qpOpu8G8425rceY3hCTLZcxM*fDi>
z$KvzA5v_#ox<%2*jV0H!3i)bbGmfNocxrJM&;Kpp{q^cx_9}rc_>lEl4Lo;fP{gx^
z&W3|~tt(Ve*gX31I~)U0b}&C}UgFXpPZ*7(;R$Vnq?P{U*w`3v$AAx}6V8YLsvd$}
zmfE=^>=t~QOO3#{@|mBXkBr@?ain%>4jz;HpdYkGcNdl=BaEYp-eTqjSLM&QgByz_
z=Ha_woYA5v_mc{HJU@M=m$EFAM@z>M=yHQVgVH;4zYnUQA#93$)sMj2MO8U$7@b4Y
zZXClAaImr0+bUym_94KtaAkIf{m!y<5;o^SIfSBhaB`%zwgzXE#>&qc>f+MgmEAZ4
zvJ|yI8CZ!@h8P8!$s!Gx6-h1tvLY`WoWF?z!A(lwcveO+eLUnF`Qs7wsv!DFUXHE>
zJ29@-?Oyw8sg}5_M^V+J$Tmq{>qN-jB~{X@5muf+=R?;;i)NUj@uoE~DM7OY+Oo@_
zILUz+?xAA!UxfVCpT%X|LoPxeyr=q>ZArIfYtvy;oHC<mqF|fdg69{R2Qf7bv<LTz
z>Nvr2)lcE%v5}DU(dI<5C=|@%85*dcgM}@*u$<a)jg$=*ga?*oMUn%k5CZzxA1}sl
z;$rrVL35l{SmEZ5kFE?2@a#u}lrWz8>p@r<bw-Jp`U-C#gpiF_FN3OOscP8FNeo!A
z`;TmZa4~y$CY9p@vmVsF`U#O^8;5u0<lqJj&9Sy|_xc1D$;p=^5Gd)a+~9k%RjgRe
zknfqp{O4`{JO<9$8l1qQCD0#}t&M=gwyGF3AS_P=!Xi@7-T{71U;9Xr12nvzttY$K
z>S)DaM-KJF?clnh13^tuQY!T{F@Fip^fd|8>ql0GK@S!?Z$=gAqfKH*-eu4LU^-XZ
z16qwi-)H<aa3QMJg!da~F&rOCB<Slfl$BG)+`PQJRw18$-mj)klldYMFQ7jAS;$(r
zZkj=laQ&F0*7Q@5MazRFr5)Fr1`WPfAWat>!19fd)x_?<bhqEDno^Jv>;!z-tS>y!
z9NtbOMzD72#g|o0mbg#c_yUmduqE-#tS+BI(gfzfDg9f$P}spc{^$DDkg0fuF=!|B
zqN-{m6{0F=6>z!ZVq?Iu`1SaPuaRWGSzg11cn(cdwujIFzE=5?rcLW7ms{f3BD=yl
z1`6Qmm4RMafv~Dm8(RE+X?cqUe@=%I@OZk8F0T1w(`)rZ=dML&7%WT7^55pbs;h~O
zed-wg`(}@SOQlfl5=q%BShcg3d*}j7D3G^*{S1PrQ`^0iH}cSePv6bD=4n`Or7*V-
zRz1CKDv{mMx*~?Txf*t1SD^t-dY}fSmwQMnQzQi!yfUUly9<jbz2@nMD(E~t&Au8)
zNV<zaX*_ARMV_$PHy=SZ@I1CEXOo}xZSJ~~;adDdX0f<N>)>876gK?S*Gg@Def?2z
zne>}%3*u_IL)4BQy%0wj6`<cxnh~bl6$gt=Z<(;;=e7HFSoxEJP;XEhO-tch5|v<I
zNy@asfQej7jn+8+T&3p}%PMg|qZ^Jl9KGmAZr9y{7P77b6{7rL#)Grbg3yZsZ@rdQ
zcN!sEdqk5Z2aem%ajyMk3lus5+F+_Ih|m4Wa|xD<%gHKx;1~;11f$Nrq)83^>F`M{
z8}0TD8v5x=a#xoslIuKhUUY8lPh<T9LTJ|*XL5l^J{r!Ur;Ys)RBar=C8JRQT9pCf
z3;N(aCEO$?(VG$FsU1JqmsDCo!WrFHR};v21qe=m7p^EA)MUv6=lL0&P6Bzsu_~Iw
z?=jW8M4mT?Fk&sFeNZrjMhqtyvI{j8Sy(nxLvO;XygW3k+Cj~C(qS`64)+#Qku~Hu
z@)Y}$yr6DT!)4e%@93`ptRQ9mt0jzM!#3&EM>qyV;n97Y1sl(q1_<}o4x7Wfr+Y$&
zIm%QzE-@4l=5_`=$3<8YiaprUUE#ZUVN1;M96DsR$GWdA<e@85@h5I1mN1%k98Sgq
zhU+W8sm_oqd{_p&#yDxJv!LFN+bdfep3_JcpgK|PWEnVxt)$~ZjvjRO_VJkpODzqy
zo#h)7sXI^uAAGC_EAOb=tq!V_9!JC61l{Z-f8z{)=`$45WEeGO*fd;|i^c5_3^UKp
zp;(~Nlwv?yk7K|#s^Q^gLg)$cOyID8D*(IUsy3dP%9e5H7W`Eb`e7_bd^0>(5Dm*f
z)Rl|h@$(iY2IG;bc6a1DiG*^}Pnau)lkr02@8Rm2>Io1bh>k&Yg8{SFz(qq%!LJC}
z4dyqzOK~74vflf7r2{cBR_&c)3J*dIVKgRCLxB1aY#>m<jDgUbwh1>I!y|~o%Fy1D
zt!)Hr5%q0@Hqkng!sdDYY`I_<!PtbrB52Xk-L0a05H=fM`bsjiG%gYeo8fTNZCEd*
z{cO}&w;7R`OzWdFjw!-gUI@DK4QF_8a_s?_-cYz^48reN*o-a7(0YD)p5sF;sHJ7x
zv3`iC*CU0{hH(TgQ5`Ne`<O?V;61SyWe9ZSi_1Gl&XTOIFu!5?+Ge69JW2JQ(XbSF
z24DJ_{iKr;b0=Myr|!yHvGI0*wHz4ldW<tf#?<p3v|e*0=}C0W(#%9~d>F+d{HQ^T
ze#UrUEwQ(EmBCFC!n3g(lqybZwGt>?U;ov+)-^<JC#+VxWQ|##8>Qsc+n*x-I`)a&
zlx874?WG+NG^P)~p-?ScO~9N?iQ306scxJfKTZe(YZS6eFo~{^KB#&c!vhah6uV%b
zN?Bk?2!%(JW%|Xe>vw0PYk|m_c=yt^@35l<(z}s=VzYzm*QeLL_O_yik<tN%OjgEH
zM^FVHzGw+lf)El38Oj5;k8-1I^-rjra7e#6N%ly3v;WE7kwT9kVz3S{>oiFLMp!~L
z-I35y<KE9S;dFL}2Oq>URz(=PpGy#qQk{CY3|Rs+-3To%ern?!Y$<@Cm;eh{U?aIn
zw7FF5{V7lsqB`SDI!#*bI5y3&VRt|1VVaQ?NG1J1pr-muJwyRVQvjPo*7qo(ejU8J
z+u$AGE6V~!3FkGU<yn%@mXtPtD$?rbC1-APd{E6O7y5H0RKXbt#wqX0)@)d9LM$z-
zjzOF*?gg$vY4rSP<0iI|z)6Hm`C8$8+MTyGoF&oZH=2L0f<PIL-n??9eZr?&DHK^3
z2$fa<m#B9Pe^Ges%x$c-c?IHp<3-f5=)g)EW#)G~me{Wh6fWo$=)w8xY7|E~)^d}6
zW*LIN&0lQh4Zl!7#CSy`cFZSa*P5W)7x_h<0$uoUp20zEh~k?azRQ_I%p`^@^fQ+v
z*oD^I|3Ox?>pnYpGh+m3DX&-NaOZ=3z??60e4sE~q8ntgqF;+_;8{@W7}oi!F1T(>
z%KA6pCis#izrt%Oa5KVUkLk_YU4wW1_#3Th^JC7<9LcPger&JV*1i0inH`_aXzSV4
zEa4D^;a}7t?Kk3=_x)>z*(iO`ci$3Ytf<2l*p<Nd)@U}Urfn?v>Y>#amqlP|I*gL<
zFGqLa%Coni9aKT1w?x~xZ6@FtmJF|OPxu`!X?yI9VyBBs_f^}P<TfE4n>S;hf6OT@
z=Ur?yI8W3)fi$(evo9J98Fktm#`!db330S+^cuSX7?U1Dn&>gVksp*q=SfGO`~7rt
z=-6~C1Ix3pXa8~&ay#U<A-{ksxB&AiL#LXh`w5O0>Q9YT&z4jlj#VRlaF~j)y$8m>
z7ZXQ2O`}1_`}lkQ7VdIBZ_<bf$G>~6MxK18;B>;ALI}1Y?T1e2lkwtm433sya4;A7
zgq-n}dGklbjp4b-&#35(oc+7F+2O~EKjxDWQ{2=cYl_;HBW_|dnxwIPJ?*rTao_W$
z(`T<YJ<`jmTC9auE`Po+uezIti;lv)BsMcJHW_7GMs-Op9Hdnj1}%1K378D+08Is_
zGGj`9{>_v5rn-wpd8U%KQ>CNHa~N_hH&3VwX#_lyu_DJV7oCEEY~vgd%R~xTtMT|U
zyel)3=s$L;8#+Hq%$y>H8D!1REbV!?d1V6=^r`s792o}-2fg>QFB1|Ik(}0ngFh#s
zXIi(qa7qqp!kcv7`d2WMGBgiYe{!}m_J|38a{cu(>qvo~eCs+pE-5ol-WdqH&p`1G
zn*VY!RCeaVdDbOcE0c%DZ`1^+Ic!eS`BD`{#_-44@&cO5FRw-F)8Zb;N<&$yzm=4i
z_hgTkU@T&G9fjqEGU;Q2VW&bJvzp93RIL%i<d@JRt&-!jG*nT^0e}6FM65QM9(P~X
z3ToJVA_9Ot@RA0)jwbA2+ybAmwr}W1^8UK5Dfl5->jYQCCtYZ~-d6p5*u6Bk<_>G6
zkasvt2iJ@QDfXqonCPl`9>}04%GNHwG;mnHtC7sw_oQ*y%6H;*iN@uA@7*&OSiVJr
zJm|EZ(1FdZrX4Mm@-nCdFO)KYp_{o(IzXDMP7GaM_3LZz4<h&18612aIGTw#c7j2}
z%2FonqN}7}7|T(4`F$zaJ~qKuI|Tc#%wFF7DPpK?$lg|+(C|=i(zO)Er2x_;k}T=#
z`jlmv)lP6nf?hpCVf#!hgS@mC6zMaflU#&qeGk1UfJR#47?6k9buCh>j$0=A^S#ZJ
z6-9J<*c<JSyhhHrwivmze5P6-0|n3;Wa%@4VJ|y6nCp6Q&9=C^vUI$-vy~8CPC%Gu
z451GfEgDiLTJ&)rxn;x;MASnTCyFLlAA8+KORKIWNImaM6}fV{5;jgb@pv-Afp9I7
zXXA(d#t#`0gHdMW()$k^8yj_^Ir`YN{=O3E7lw?V(t|NI+pH#FTwY+E^fGlz^J&El
z4_;hnN@3vDvoV^-PlYIv(JWW5Mn2*m%FSOS;E*BEOq5-s&H0y4B~)K(fJ(spF;bc4
z^BI*ZIxOE_7-V@0osf<z-|@Be%a@xx9FQ1lVHdPu`Vsm7Qe#|smkZMEUW~>gPzQY9
zpB_&N?BCDnY}-;cT`AB#5o~=~)jFQvIzIXLH5D_Kt6ww}hlBjFzUpZiPbS{`cGjB0
zcgYT<H}yZm;WlrS<n8!bViHGrp#9d*l&+6y?O-cY#jS%_48PvtaFCWP!sGEF$_G@5
znappX?+$Yo;)hRLd%F?M6X?t<$z<>15{!=gJqxWA#-aYASkkO8QyCz>6FNFNRj*%9
zs?_x-B2dK;o)_P1e?A*d*I`@n^-yEa!Nz&+#(CYJ8xT>}FTM1piv7)kX8X4w|Jgrd
zC1?G9^&nrDaC*9pUH_664Am$x===$Mc3FiN`>JYoBeJJ%C__5z&CBChzoybG>qwbb
zxf&18R;oKVIH;sSv(|~~a@X?7;*1uxxh9Lq-<*PB<UGsr#XT6Ht+GS6EQ>0~u3R5l
z^sC`_H7&;{UP+TG?zP8D>AOGM@dPB=yZ$xINUlctB%c94dS6_!ycPRc*0BH4<RaN8
zWAXP_smB|!D34vxDN~v(f82*F_Dib_b!aZ&z;BF?U$&lP7fdp;>`#KBje!~-+mc_F
zQQ3|w(Dg1N^w;N$o;fCY{0zYdG?i1ISZ^5}qHZB9%LU6R=d`na0@3Q?Y#K|XL7Lvs
z;SOe+DG?Nwoenq!28R}EiS6y4hunfiVpQTP>(~z0a@Q!^z=)_XhuWSlhWS@*ot>B1
z1TA(z#8_2uqa*tzjg*wsu0%Km4{9p&`TF*kc_H;u2khb9IZYPFYmsrU%uA+zf1A{a
zlkVRMKP1oQ3XMcw)9XPaM}-I3TX~tZczZNtw-j;e(Lb8oFECxXf<7d@Z)eEvK9y`K
z;P^7{ysb&cVXYRhzOs-QJlMTFhkpa}ozC%L0$kKr7sQ}VxKc$x02YxakdwD+=1LWw
zVW(I1{`K{D_oH5DqNr{vwl9}KqrJVo(6;-njXJr{gYdGt1)gRe$7l#7sW&N7131d6
zl$V3R<TT4qjg%1fJSSG06>`zH@%epT9VXr%bAR2PEQkIEN1(^VuOyBS%hi@f={x*(
zFMR~TgfE~d#{QtAv#OJ)v#&3Z&dmWR@DtGQ>(1F}=y4zrA!~I&^J`yscj+!=;aXp+
z6cO$qa_{D$hLxA2Ueuug9*gp&ywXg^OOgjTN$KN`#0gpuPC!-<tRCvhLx<42)trt7
zF!Rrl<vOZFQU*V0AVRkDA0Bn^j;g`r?af<4jA07!9w)Z574jmW|G4>=G!$eCx34V@
zf!Wr7i`<4n)y@AVrX8i-zEZ+Ik?nLMD(1ts9Y#19{F4ntoZtDs_;F|m6`FNPY+n@Z
z2CY5acqp0<-3{f4<L46<7bdf;fcpoFp*~7G{XkZcuD`k&Sb1%*y8Vimo<aX~sRy#b
z8nwQPGc0aiu-9$a*N^XC5_HqdGV=FD>Op$t&uDGKRG>imf>;u>8p9f&+wM0s%8W~E
zFU~{+{~l4oFTcqjFDfj&4yvr6jh0u(ji%>i;AOUeNKrrvj_?P$1@6NQH8F@~V=ThQ
z85kf(Nfx9W$d7YHN`v0F8FL>1l9|w!YV&f;_f=vr!Hwnvvwx9B#-l^>0q#8mO}1hX
z^>e3K;%MstGfS+?E{D6=6{<u_1~Abn%cvoYgN-qlk&V%X`NQYqaF?2g%OOlAIDw3N
zCiooeffBX8&iST&Qd0oF#nD0T#?e5{X6u>>mpq^;jl8^3W^QnWkwg$EBRDg2fRtUb
zi>oVzd*(dp7u;yGR`e?q$pdnNVU9En!?UxX$`+3KIxtXGX(VB}dyT~xDx6Ifv+KKP
z6QQ>5*tK4A=&k8W@<2_v5|p!AUyC#W?57yIBEOd>Y}s3EdRr3e1iehIG`=!?T^IvF
zpi*R?FS*}GK*#3s+%xE|{*%vGlujTomy27AMetHD%gpMJ#RQHItl;7Jba`&M0FWMU
zif8bQ{QY};JU&2d_ACZ)*zt?K=uM-o{l{qYS-Q%(t$ZF+1Xzhy6@X(L9h9$D9Io|+
zFMc;8oZ4RRh(1rBE7=ItTiL{BI*V>-q*P#+?3WHIdg)crXyuG-E%^f9`y}9c2~FJQ
zcyh@^fOp~@%=tZTq3Yj4CG2c$R=CFD+;RAEmL<*S7nBdZL)7|0gAQHjfp(L@EeMM^
z0+Z{V?v)HTsO$+Rtet))(aR*QV~utiVl-u+JjO_y=13cVc-1}_2B66k=hb-``Sjc~
zbC*)#fRB5$Dr_|Q=6p=$^1|oaJ=M7h2~;yRufghM4oZPf=~1wE<rPMB>HNXRidIxm
zu-vP;bUpI-lQR(qE{g5T6p5zYP@RE*<;9}~O_p8OksrBz9(eUZsLKuj#7UcksKMTM
zH-|XSpFb}{pL=BAP8@x47>6`?drEXa+)EQNtZ*ci&_2(~8e1E$;h3wg1sE%$>(%8p
zxi51T@7%8P+b7zqcQk!XuQR2->@@S60F(^fAshpuN5}H;_`$*MAF{<`V4bK2%3d;L
zXVUS5e30NWaE4(Yx&r4hPGaBAL<~EPYYJ9=;A#DJX%GubGT{?kpZ|Qk=H4jBhY$Ht
z-GhTj-WopZLh_ZOXZ`XD3i~m`5aCA9g8w|oWnH0`*qmGj244!g5=pQ@{d6mlh|SZG
z{O9R@rV@)`5{uPF(zftaR>J+{W#^Ei`uH`!8t~Bu{W7hKkga-CwsJyhvZSz(m)O-s
z_9FF{^n3Rj!ltm5u3fsv@nN+q*K(ER1PBj?1N<vJ2)=(gMyAu-ma3;4J?dUsAY#D0
z)WXn6xQxO^a+zCS7TWZE4qYov<Q|$9>7fGkOja|0bAjnbP)+x5Fx?7AVP<{?CCD;S
z{Yi%#&7}<U$$*3vm-QWWUxh^6ddH(LcC-R~sRO7E2Q|emq8@<yUeyGhm&EflySSt+
zc3(dQ2^HxA>Qe`9TLH(1gStm)gP;MA+O9yKzr2#2RILB{G+J2Da@;X5U*SoS+@Iw*
zDD%XDsv*?yzj7pE<EPk~7+`bQ(TdU&H0GM*63<SlE|G49&^s|dfd}FpcvBiI&_P5S
z)D$)iKiA!%ebKVD7kUqFJI76O8GBoy4`e?OJdXzfRcS5<DPSbF51h!r9J3#JP#)W^
z^j6Q@+*~EhO&C1Q)fQ?vMORo@DCy+lvT>c|n<wd;*F@*Kud6exPSY;ISNCMC-a?zs
zy6_Si%QDX+5L*$ID_%n&#HI|bTH58aw=I+H3s`tI!L_ScM50Hj1^W4gyVV8N4^D`{
zqnc&3vSPXbZ9OTsxrZjJQ7Eh$7@2D@xh>p7%$P|Owj%lFS$XopLJ&8!9H@&TMD<m{
z9G@g<lTN{`uztEG+XiT?_!|$vFKgG4j@u_KzsC)>pHvT`8Hc3oA*ok4Vq8+x!`z(V
zk_*Y>FwWSBPv2FjJ_PO)_uwwTW9X_hjvk$<?{z7k%&IKv1^cfF>1xPj&i=~*aJ+HD
z|F5t&r2sx^gthLmRttuvMucB=W8kPcJTYB}+LckhtKd{3n&UBGxy~a-bSvhAE1d<^
zNE0+CFrELn1DX(43D7Jm;yf(y!RxHmteomp5RUq4HuAW!lWprJi0!ifSB&?+c?M@(
z%2W@d5-f5CZhrIhxw>fItJbgnCoUetd}sMT^&0N~Imn^^vjR<sfTlfD6jL%&m4J1H
z3)R>A-^J}bIe#|V|2A%~!ad)foZTKb80H&dkDxg<zwXt1$KWgeh9;BQOq0b23?D`1
zQYAFpaDpC8;<ZZ)+(V9-TbLnCW8?5_D(wAC*`DJ7y`Y6r?p;uW#!lbDSk(h-{Ql=#
zFvDKeuOVBI5V+;cdZs*;gG53;oQ20GAXh2?scVRn#pOUP?QqzP=m~+=GH{(^&UW>~
z5p=sc5wjYDP$@Q&u+d}*r|Y5%rz@eqdi@y$L4pr0i=Ddd;0cpAl8BvR)_^p6v8m+L
z0Wy#*b!Z`TtN@D7TQ_(<8hnx}@<0GPB%}Rdmmu4LGcC^n${b$@2L^(f;o&T`uu^<W
zb-2Pfa<it)2jBx79KF50C2`s>BSHmeWkA!Zyo26~*$JAK)!%g<WM<1<WW+$|uN(P$
zoa009CGe!5&N^&4i^RfsxKj)1625cUdHIiX8tcxwRIE;wN54GQu-pQD5$B__IYXmO
zx^@jM2!?Uc0?bOcrcqic66SUa+9mcYJlpcT5zTwSx#{ohRHO;qZ4W^;<sH-{o}&E|
zZFzXi9jw;Egv0GVOU<s@cR0*#)wB*cfK}t;Ia-rFyNOf$n%i7}Bn|hn2i!vr)h&SB
zXV5_GAahripU=9&7pYH8kx*Z@Nz^R|R`TVMUAI5<S0e%Ch(540_GF`M?MYHhwL)sf
zdlo^-*SQ+Xow5bpzc^*jVurL_1bBHXG~ya90aW+fGjkgzMcxe+`5Ox>4Q(U8vyfI0
zs7ugL`IqhlFMfT}RRFS;Rcg<*yDT4Fnq#g2RM)x*d3r55|5ZGMqQ3bRvtv?*9kG{P
z`^dv$f?>^IsYZ-BvkI=(+*t;*@ayS?x(faqBbCDH3YP4(1tLWsi2+{DBK|n0U}|&m
zU7|1L;BK<(leAC3vD&^sCgXsF!(EiaW)D_ehQ?cm31aSA?t8LRhbErRjS>VPPkyUG
zo)2FFf)k>E16VOxK+7%-W~Uv37O=rw7(NfXE79^m$$$&JrlDcmGGq-gYH#u(1NdFR
zu@hVuUVuJMR$u0Posn>`ml||a9U8GGvbB?(&ZIXrY>l9{vZ|V>R;#F9dyM+xd@wvG
z`jU$}&~ES|w~(c0)j1d)_$f-+LZ>;7DjHe=8Q;2UB|!asJF<=IHls%WZU3Qn(|<@M
zzXpKpB#AY(MCpI#L%2FR2DIEHLy!wv&vGO7la;>pVBl?rK6RRQwrn{)WCHh480Es(
z!9fAh9<~iO(GL@X>O~d$5A2-5wG;8D1Ujw#1$U633!5~EpiWNG7G4h20b}rSW)UEl
zMfySWQukqVNa_Icv?eq&@NHc%OsWHP?W4T<xQ8HR&E8IohV$hV5D}`_DpreoT>{3N
z<OofW;o76=OX(?c6ri<-uB>iApc#fFsXy1ur+Z1Gm+hV{@SHu*d@NbiyyY&ZI5JKO
z+P!W20N?-sEmgt#a_aAE@di9WR6k(AoM_m%a7E40P)D-Tq{~)fstrc2-Ie6WBIqV@
zg5|k<XUi?N<MvBe|1N)E$`2ZM__E_8UF(`GqQ)jlUBr7}_9iemI1dtOpl|Lw?$38P
zf{$6GA7@`6XtLO~yX$V*mxOyGO)NjThhjR0RjSXYlEKWfiek&PT#!@;qpho}gwK>(
zSS$q1J(fOx2AneRXc*8|4$9@L8^GRjs9uK5pxBj)iy&6VU8|Z7Ky%4Bp9V6=)>&a)
z-4sTRl|Mth2E-exIXTl%Q#MWQC;6O)dgOL|oWYxr2bJGi{f`_Es$00_cpP(&8UreY
z3nN_NP<TmEad9WDC^YS+aBao94xI^bs!^e|J(^1s<I(7*VRy=9@GM|$POyAqu8zPo
zQyW4y{49fqiUM}to0Nt?@q_=JpO@!q7x|mMdJ%!LA}9+btgftR>;{Dcz<sq`^7Kk>
z3eP-GPfx!CX9lF^EBAd>QC9XHGOeTDExgjYue5-41RUNb0CI7LhS2iU?Ik&+(EC!m
z^f^K#+K@UybwA>y%)Rwkz6Fw`Q*?*#_259DLb)t8b?Et~@9{sv9=ZoTw&9ntV|F7L
zen?Q3p=qZ19MM^YqYg<BA8Oi6{Tyu)P)~-c6lP3i^C<6s13@Gm`j?||+{1;TFxjy~
zRXS-(x{2RegUev^*0N*&p(Fpl#t;6@1^K@NPCQDSV$+R<1AO<)3Dz@|bcm)M=Ar-U
zQ^*elw9pUmSUWM4g(kw$p8+vLx$`Uf*U&lDA@cW}Y;8fP7A6N=cd3A%gIU1y=G1;k
ztSNdHySadfW(yBn22U)4Hj`&M7E#ZBw#(VUp&mqqpInPXN6S_*DYGcEy@S&ZX$FAE
zAxpdAhS+dX)NBr<?Ro$dxmsOXZ31|j47VjUF~Igtp?2wF3}I`3u<fJ%I-tv^PH;P-
zq3%f#avi;)XlSdl=03k+S?+Dgt?A3@7P1+<^1HaWXdr5r_K>DSdqX)f$`&AbXa!Qw
ze-Z=W{?bm#K+w3E7r-0zGoAP+Gw>gx|AVxZN^mHd8CzER&sV`bfxV!=ARQNH!r7e<
zWn}??%WyC4nZas4f8%7-0oa0;NJ8i|J@a6|bY(cZD;V@Tpx&_wRyZ$=cieJF-r`3i
z&Wm!k!kNVK2JjPet?6>A?*RD7R3EiyA+vwalCM|gg;T0~fWIJCJss2QsL7%PVAx>g
zwB6yYb4ZSm1lqa!J8yruSAA13j0c_(@5qZkUPAt}w=Nrps1J(QWg>N?dOI`aLcinq
zZx>r-Yuhl-AYY>&t1V1*5NM*9TF#9+k)D{l#QQ+hu4bn<URes(*+C(sx_l@~HLBM!
zbRzfZi{z$YFlj@dh>jKBLsc?b^|l3ss>Pzb$@p{6U{?J4C#=Zd@3sH-F;$(G8p|4^
zMu%C#Ppn3ZAV54GQxE99S6)Ei+ZD(Sr~PhTrh*|sf(+mmX{dH?aC{(+kKeMMB-j?{
zf8?f(5-1IVxMT%*8OD%|IaAFA_xPn+ShiLN>LcD#k5<e?j)(TN?nEG!JjMm&ggUdV
zgL6SCLDwYPtR>szo|{5erl{H+(ha`~2+4zkgVWPav)un?xWQcQQ})8H`~?F#)HKF0
z4<fojZY<yEQXB!2AV(RCguOXhdoJ>3m+9&#<QkxL2Xm~$@nC8@R(*)$D|f%ky&x9I
zM)jzv5Ecsn!!C4+Ae-FB6b1*~A2iJGinXO>|0l=JSMjZx$G7bVYQ&Sy|NY;LqnET~
zDC`n*D#$vw?<!$$++Kl9(|V0;V9PuoH2V$V@U8hd3E>*!m1O`~uVDb(A%EhQfmzCM
z0X@V<!1(S%r4~EHn?J}$r9Sh6BSi6rzR1(Kb9^K@PD!NQC+@n4*ZHp=<?BZ0>*}-S
z^G<egI$Og>PQl{?^)vUnPWj)c;E%Lp{bTQO5O8|G{WB*$VPjL(@_;^nyGmjQn#H$G
zT=F>#VuX9>IO#ql2fut-1vgT*`c!qgK~`a41ywSL4Z!&c#trJpGD)@bQjp1z37gq~
zbCf_|2qp(q5_f;(rg%e;gYL^Kc=bM~E6};=M|twZs;hcPURP6$lpS~Dp~@8Jf_&Y2
z-~9PQdHw%Sb6)}vb-VVDR9Zy!L?tFQc$Bh*>{=N@W#2=MkR@Zynu<!u$UbNpNw#DQ
z8A_!xW@?0FEisL4Xzc6%`ibY9=Y7w4-*evoc^4m_&v`zb;y3s2zVGY0zSsBqetnxK
zJs0;@17jPrgX2x1F{Fh3&*f#u)F5;bRqIaptbV8i=`yAo#pXPICt%gq#rS@y$#mw(
zQhay)``E*wE(hVOpM>-P$XdM23|uIpcY#vk<~7BrjQiWTL3eS>UwQ_rC#DMg`5)|7
zS-uO+aWd@fZEY}dg7WnM)Ls3HMGM&4d2oHzMi_pJ=<dq%j*e!Z0ls_3`;t*z1D@V9
zBOOr<G@6X$)hAHqzXL9w5UPU&oY7njc(Cr_5@@+7b$th}Si>Wy<=u3n_bi9fn@MkA
z-_^qLkg=Wulq^{IjjyshM4;#`Yp;EVltlK;B>NepOW;7*SP$<WwF)`}1>J?aOHDFc
zpKY2vX<%S*1j-|jVzXX50OY;r7g74lAk@Ql%M%*myf2N|ibZ{qPz<C+WwER7YVQ0e
zR|&091AR#M#k<)*yYnB#|C4^aTlxgF6N^#l3WC*o-j92{JHzcUNt9SwImdp+jip#S
z*5BO8)+Y7Qe!2EKA;+)z2WtN?<X?{3|JS4L_lFfL8ot7|w{(ZOK?3Tquh<7Jl{H0B
z4+VF?+};EGMrfBNfzc6NrK?i<&GEYe&lFSYgDwqzDQ<o9c(Jb}{f1h*mAXoZJ#T-U
zcIhpn5`gyC&hj3-2Tk?oonlKg2Ta2SN@R#NB;OIxRv&fevXvV)?>f`<d)FL5y)kwL
zlY~UL7ydr(|B><)uE0Iep+zihwz}^hZiJJ)?sx(iXyvYOh1SET?}fj%GjYXhsI(9j
z#}9y8qpI!B=$2Wkl@}C9SAe8nIZPoO=K2~|&<7u)|8SRX^`AQPmybXImU^o9ciQsG
zO79R}ptuHbsznF?DlN-=*abBiik*)gtQS1@^D12U%yyftio+a=cAsnm0Q#X1-HcFl
zdk`3Y<#{)^&JC89zyD^v^7-SFzf0@|$aLGOF|X=gh)=gZj|X<Whmbr0B%+{`kbeLU
z2lVI%joBtVdN2P{)hEjCz6+OFFMIH6i1G^?t`~n=49$yW{nzg-uEoGC)lqPmYcVuy
zh?EH)Hr;&q**(~<L&<tam(msN4S*zun9N{DudxDE)${H=e{Rr^J+ex<+@Psf3RoET
z=a$c(Cx6p`P`6V0%>(;e{Q7s*mwwKHz2pq>gHd_=l>wWVu7YwDzqQ*xq$VVtEgM<{
zRnkuH*B|E6fif$~>jTg_j^5hXH5t<i^3(a$9uE^QZ*ObPfO{u@-@$DOJaVF`geVwN
z9preXhQY@P3NEPoPoPjHft^$HbE>k3`Hs(i){s2t#i7H2@%hT9bEhu)w{2WyFLB2)
z@1MB1wU5)R;<zib+-L`_uh&%XM}M!~#C1>Qm3`@&iwR*ZYn`LcHj01J<~y=hC_^K*
zE}E0;S<Iu&?zinC56IGS3&YpnA8sORIiOoum(+wVxqFg2nTnlE2g;P%aIH<SLzjl(
z6|kwK=kLIgrBj?83&$cWPqoiKDuuu!S#R+*jVf_UKPuprj8dH4J7w$2o7A4xx$fz)
z{wiyoE2{qE2OzHr%!`)~2y3)=y`g8s1e+Uexq|Pi;J?W#!VRTEaX<9PBp9?lPMYl&
zxf`8;rnmWm8haa=l5)zsj951@(84l>6f*;4gkLi_=#~*l@5rLP<>zrYoHQ_1z2+Pt
z+|GbpFnHE=&&->k2fZj(D9#sicyN6$#e9K#@QDFl2faxk6{i4#Cyr0DvK$Q{v((DH
zqSBjaKOaZb2gzuo-6bD|<B{(yx%gI*z{>blaQlv|Y+K#<m;XmR9y=Zg3b~*|5`U@&
zeK&LSTkN<vy=`G_&2SC`QxrJc`qc{g4^)93^)`CjF{lj}qOr63eV)p6%R0;ER04qz
z^>uRKDNrr=(Sh#cQy?p?W3DbI=k*v3ih%lwEs+JL7ux6NW+ossJ%mV(0|8zzFz{>j
zT2eph()yqUl9WnxGzL0?&>o*U793oKzJ{L{PC6k<9x%hC9N5i1NNBaNW)JMO&GYw|
z8ZL91j?vDDs-v@bw5A`xOauwQwv7sft*N;5Hpuhq@SlJ;&H`hR$jzHK2k&G!7vEwj
zcTQ1QaPwq4JMLyA$Thi{f|W`f80cmnm3VMO;(@_22_6s`&@S%i26qTD_@2q?H?LtH
z@q8SBy6&*$`Z-Uh)XdJ2C?CVI*WK`jAEk$3G@z76z3#q<na+f3E25<bkvxcoqFIDt
zg(sk6iEv3?kl>5m;M#Dpf54kkhI{X?!OVMz0)CJXMx874ObQxWr-VJ?y##-cay{Tt
zznGYFAmI43-*9^R@$@H;-ysnvQi=`T&Xbr_f!6fQ{nn53c8tK&?0Jp%d44I*Zre&a
z;f7ziYof({gZdc_m23lD2|sFf;cu)1@Rav^_W7)ihk3CsHH;+Y5<sx@k;1xYz{_Oc
zhpV4boRYu*t6{!?D2?f_0}s3FQtQ<b`GJ*j)3?EH>P`^|hh#f+bW4%RmKn}VQb*O=
zjZzR2Jt!`CIPc@lCRSdJ6(VJxN`pXpnM=mG`j=6JJ9AQ@_dzMkMRqPC*kZmHx(bg)
zl1>D@Q1po*CIDQMmdNbLGVI$*x6Ds+8S3x%_nMvsxW*>-w=mn!@_~84_QcT2(&$FT
ze<=AH-w)H)fO)QJMW1xs&`tRDPnk2e`xEwFvz=UlsS<TGfgCNJ>e>uhLTQq!1cM;8
z-ex4Q697(j*_k`U0;%=+C$DX(hc|%5zz*mR4_M~|>wbu4j7bO8dFF}Ch7OPm<HG<i
z;^o{%?q!{#c*`RqcSX#=P0X8OCC+d|_jtMcN4n`uyMw#X7Jyq^Y<>s(LTzZvqF`n2
zj6Ngci6-cFH8>5^kX%Qw+QBsmG*lz#ekj51+xJlR^MrQcu-;d2u0FupzU`Tolqv^=
zoZkDI%f5PbL|f8T_lI!nmg48V$ES84oRz2aNKUjG&u5JVQ5jwQ0zy%cl6Q(RNap$6
zOBzFajUMFw;e{u$@qb?4{vS}(zb*;e^0Z9SfOMfcA@jZ4szbw-Wov1SB5;@wh$KcQ
znWYfZwWoonF++o<zy!7NVRp82Zc@7=)<pY~8ExMoUX_C;R-F^gnCUcP;gy}fS<|Q3
zH8b-%%UsJU+`qpaupU}+0U&4HGu8;V-5UGJ^BGDOhbsnAQJC}MPi$F%9cRbXYF~;b
z3IOP!AJ7@xJRpxWq{Y|Q&}*au0zilPD8@u*`Z!o3d3(15u~`(ulhl%nPG7pccI?~k
zv~sivm=vkdkqA2FG6z~7{RAAy2+6On;fCI)B;14D<bf)!>1V`nk<@+f9=3v?N<Uem
z2^1cBJe35sFEvffNhY^gf$DpI4-QWRVTFD8A~4r!y}y0;(kqoH4Krs~b@A|!$+7Ie
z3kOY+?ivgJ=tV(5i#~>dL5<qbouAPRrbuP;#N4=<u4G)1KlZ*EcrF+tQ(|Je>BE5w
z>t!omD^6Izc+s_$Jj?zg#))AkG@9+ebKF5&$(rWlGw@kjDf=@zkQ6XrQXY?^ptDRR
zlo+|+z4LKHqzm#DVlQ2n^qH%lI=|&CN}9`H&Zx5j7x+m`b%GW;sOmWn%d$fZLn#ZV
z?^$0n%=r0Lr0}M<PWkVtdR1HOWh+k7E<-qI77+))-x-^k((>>a_p;i*@!hbt73Sf2
z#-uhypD8$qxsZhQBV$?hIX?&%7HR>udFx)=6$D~MF%I=AKoT4R18D{5GW3hI56;Xp
z@bW1wy|Au`*VHaX$Imp{>igS2ch0qUrVbM78fn;m0sjZ(bEn(@ed=ZzKcma)e2U#|
zlVSSP(m2}mc;+|ddG8kx^Mf<vS4FFio7RC{1?j!q!pd~pvBb;=293xadwTJXHRx9v
zB=|oDXz<&mF+^=SPR@|y3+p*5%+~i907#vHGulAiiims%+hZq^Til?m2Z36p`bn8X
ze*}N*ui&q<x|HEt2RAk8=&q3<%)}&VVGG7T71zA_kb4yxq`qA6-s{(|AGq@!(u3pl
zHg0^A*7gfdPG3H?wkn_Q-<pckqxG4$-g9~-uLLO!d>6m*Xx!BPZ$f_4>HH{o)VoUD
zaUm3Jp-tM9KUk&XN9SO7>wq?Y&{=HN(9C=b957`o2c?k#LJBL`8a!t*?I%kbw*q`1
zsWsg-z`AktWkOMqlT)7|2Bgx{r3wY?3qF@aq-R2q)df6-4*D<2NFli=8XE6d6`=*}
zJ{Po0PC-zOOrbW|$r|nYm7(m44}UafL(rmu)uaw6mdUU@Q-{@#X1<>Qm!Zq1#~s*N
zqxyY~{P5I<wGhsXK}~4{@)UluL}O>?f_f$u<k^WyW0>g^yqu*JSNhESHpHF&H_jK+
z+7lqZQrp9tI)zz~<_dL#7Sbz-&n!xrJ}8<fi)2BFL41JUljn(5RSV7^BRyObMuQsm
zG>4*9r$0urNV4ksRwpE~N2AC?e)jKhW|i7hk%AoS4AcGmYBhb*`kI+Em3<qjPDYz`
zI#_)<pZpNb`S9l3Hir-LQ&}&62J=j%f3Yh#Sh;=rXW17;Iz=2cl-H~F_cMS)G+Bz`
zc=pm6bAPpqeIGc3>~_V%#E9(7SMpP+C>Bg<iNvuU&_+GFH7q?I#G^vtlcG2AYkvWQ
z=*Hv%>ZomEQo+mRgSs)>cGCx#SfHb0->DBmEN+E_DS>FXXG<&8j5Dwz3&&|y@uL@b
zIm6L+Ws^?4Q!F*Ye;b+H4gbiw&cy=sLir&r!CcA$zUGaop>)W<E>gylTY90VVUkHj
z_?mJU+pS?P4RjcQN<pXg`&k=hKVG^g&xklBa(ZqJ%O(%(wcSdh0qbiRiOB(wUZDEA
z#<xEJ5GuhjD()R5fj%iMHF(OJn&CK)R=A?YG4{4wt))#Wk|2iH<H0bfmYL{Bdfxu#
zZ$|8ox0c;s;;kX6y|VN3ZiWIn(1;d|-h!_DN@!&eTAx9S*ay7#qR5T%vG496{oL;a
z5Y4`b5kYL}0%2E=UcP*ppI+f3lcZun<D;_Flz<&Zc;J>UTPQ%lRX~63Dv?DV$N`e0
z0>9jOc<0EM>G6@Cq3TUfcXFlO89n<t8K;%maF6KHlb#IX%ye{pX?o#OxV|>J9Ihdw
zG5f=$#?*W<A7A`of3k&-ELsiu+<AAaDqOpV&)2sxEtPGm$X|2+?aWFf(?h=Q{<jMG
zf2(W1+;c}Svl6^&#mEDen6;r@iEF*`V@9QAonuE0Fr5Gn*&smseAyQe2+Nf#RIVS;
z#z^Xvi*SXmra$hVnODMe#(H}5a!T%VJ^SmK*`Ca9zqE36czC!<p^$}^iwo|(qn%+_
zX1QOga5Z^g1wJZnR0yLGubq(&H)39ki~NPp?x(kgQNwK~CqIAwd;^~sKN@*f#&2+-
z9L8UD@j^0%7MNw*xr62hE^timMoqoVPi#p~X&H;_(*q+~F~%MY6>e!PFJ~HV$QR>-
zfzVfjZzIbWm<}jm3ZVLtgz9Gt<Q2v={`!GD5Wv-H)6~=~)uMqvj%x&VSveA(-g{jX
zTyP0#^g*@3qK5fas5{b8dDcp);~r&gE_i7EHZh?~WrzoiGm)rEV%qFvaCA<z!VmX2
z-k>8gsF&IB^%gE#`^)qv1N~GqSQmVUD-7!$fg3{H=?=fDd9|s3I<-H(Vx1;jLp?)F
zr>ZYU*hB-l`ydhaRhegY_;yFSlgj<a2NVrfn<xhRC{3wc!Au8Cea`o^p%XBt3rsy}
zFTR)H@|qQWY~)kg4OkjWFX7Be=VyphkP?MFA5K(<Bvvr%{<|6UJH?4%%WJk<)vVN>
zpT&GkZCK_47=Lud@YlDw){yt#@w^NCaWBmK9*^ea76!H?tLfs>kFC~jcDHZ`uBAV^
z65(a!8yR#emX-uezO?Lt$}l|%Lo<`5La^}f9+?ElXXp~fXNDA9POQh4D5mO#L+sDg
zDp&ZGO0DKoN^6-PcUu_0>Z@XXQEvQ%MdxRM#=+=I&_9{3oO*xb+!z!_i?xx5ysZD&
z)4KgLdXW>?b*2Z+zYK3Pj-C)!GOFa62*9qn<ncXQG+rg8(X3i!?#;ObEBTZ8^YGAj
zpF(*7G8R_9g?)t>J0p{HA}d**QpP76o1{xN>S$}TB-2^67cNR2G6xSnlZ??qWV%Vr
z;A1pvdfV6`-Zn|hh;Kj&Q4n%JWs$O@y9z!k`dlH(;a8<3C(9d^9iHJG@tr+@>C7n>
ze0=-@Qh6f9r-4K&u2rP*P6%|B5Yz1Mve_s*0YSTM@SSQ-XE1ekA$P=+TiZco1@2xL
z(hT0m7>CNhvUu>}W-6sDzU=*CkUpqZkpq!zB?d(ZREyD?#5d{d>Zb0&fXMS^thc=c
zpG9f#!h9vv@(kFumV4sNW8a<a@U~idV+S`KIKiQmPVL-<K|}{H>>DKD{Ok7Kr4q8+
z$a?!x#&Ms(ArgtGtI=~GDXGdf%pX6lr?d=0M0EvjFBr)W4UzoLp8fs?QepMmhK<I;
z4RB}MD2{)&m(0tE+%RMkx#y~_sd&k&r`o^r6r)!^c|n%ix?gpCs9kw1%IEnNKk$@C
z-8bk#k}VBbA0*S7IafIi6=+BwJfS%a)W}k)^xD7$n-VPwo#hsYxyzg}0LrJFS0D0N
z3CqPdu}-92Y3BZ~;@e~_JnW~?r~jn%E@IBCMynd@r086lGP&1SKKrwd9tnQ6LIt-r
z6x`CwFg^Y?**Q-fDZ7!Ute+WX8RiBj&=Mct5TRnd;_cEvaaN<~`Fo=%CEdaxJKUYh
zbI_bqk3S&l7&rxvI2*&hW+EPlcWIH}?Q#t-e<{tU7@d8xolG_=7hQT4IfmSY97<fF
z-MvcSBDK-Y#bw`}{^$F?ra+bX?yN_4QlN-Xv^otYPwzocZZzD}D5I$8SD0jlW@JEA
z7VE7D_T%ZZmTheV%4Xl_6cD0F@-i};ptgSa^X4<i_a1@`8%~v4;U;arB#|4^^GRyW
zj~d0EI|dTzRH{WLj3N!ei@XX~%wi#JBm3pnHCx|ndveahsw?PhN1;$v_PtX-y#*{p
z0_9`0MoUUdqu2BBxW#zhJ^6cERo7*>tv;DGGc8NotPaYY{oJt)K3`<^#?r1wW}>m;
z;0PG}R<ZOHtsAe6*u%}h7y$z*oG8s||4_Y*ReiIR=CJA9`)Z;ANjIK&(|=!P1LGvE
z<fpzaT)Vg}L$;8)PGIcnmcy<lx3R|Zzx!`By$Ss<`|KbAH{;F;QHvU>=kK9#!|#s)
zX>@+{x%vSrm=G;6++7;}KPqNN>Fy<g<B+(!P$Q?bKw4adzk~NoCK}->F`f@_uKCOv
z6G|hr30`}YS)Rf2B(|(Z3+`p8;$0;G{T>Niuqtf500ON<srBhRHNzv|dc0Z0Y9B)Y
zuA46{UXWd<pjFReOYs3q8_d1v{3A}lN>9-(O$tnB<Dd{Uh4eGWRAT-nG3C8cC=8MH
zwhV#?PF}2M9MPdhN=257gR1EBoLGStlw{aqT(K#p65gpqQ((CzfJ@Cys8secBCy^j
zN~vn-AyB8aKs(ka%atBe#V(yB)BW7VD>da)bahd{P1i#W#d=0CXGlbEdRv8vs=8Go
zBsI_qPC)~0Z43rmw(hfWK0y=hoRGZjd6_vg2){wG+dDz~OR8RG%{IDFT+vuoW||U)
zMiqHCF(*qN;G?%qA!YTW+CQM13|LWWt)hZ320Q+S%=%kF`J0d^=C$2N%<9-yN*RQY
zz?KW%)Lr3A56!k$yGHCTOjShdqc=4twX7!K7Jy9a-kGz984JL24Xzkg{Ey=Le6P0v
z*83iD1(aX;I;UYMt%<CsP^cTTere^|jBkg13AImV&Ma8bm>8!$>C;KXg%8jj<S*=3
zqBq6!*d+Fw|MO9K*S16=NLYMtPovMB+vie3Do}XbiW-9<%CR2-J+Gc#`gO_2*(s(Z
z1x`RruDBO34~u->)zQ(9xQM2A2VU2cL(p`%T`3&B47y~+z|+#eH3wlS;`NS*-t}^C
z)0GWcFrk!{faCRQkxIqF`?$Q<<g?h#IIBlxWo3y}dd8Jj&*$f0foyig_*N1913DLO
z5-TZX{a1EAvq5SZd5khB!+2|ZfPLu$+|VkFGnyOb0$lo#WXJ1F8ogMn{8^LtqwNKe
z@EpiRuUp_rsh>BI-I5BDHytqkoo+VA+xmmI4*CA1q>r*#uBE}IDzs}tWG)D@zOe9c
z{g}~K?0B57%8(Dh5Wqt^sA%Pb)Y8sL{pKM0*&w|m-Kq(S*H9u4MJ-(m9f0Z2eE3i=
zjtCZ`Yh){=`66;#tAZCgpdIUZ@1!prz+7Owx>XDXs8CY?Q%N%aqNSAiW;!zG^o2jt
z9;a0G;M4uwqGDn$>=R#QbA%A|+E4F>gBOBcC#$F8aPxbQ!<tH@0_LNygVZL?=yt};
zyc4DrC_33_)dN<wilwE`Ii|^FdA3-w1fKNl-ZX${p9QEbgb>xgK=-5{<{mD}R<tWl
zyaRL4DhUi^-3rmSZnYhhmL6G+CmGiz?ynrBC7@F+kN{fcSp3QDERYS-6(HjOu^F~~
zRQ+j}mM72={=<-^#!Kyk6_t3c0=IL>dAZpHUOgNoP!k;4EfiP*1*QQd0lrhVUv%@0
zTde8>p$=5V2k~;gkjFT|2%*twvf{*d&s0d2Lx}*M&*F5Kj*zCrrVk6>uHYe=+bgS|
zXI(j6i+_X8l?=YvCHzuqwg`+<`3=htfzRSe+Hoo?FW%5GE+Q!@`zdqj2R!+9fXugp
z#LSQNBqfbSM@LtIT$UjM5vQs8!z0e6CAFggE<fi`Qg>D+<E%_s@pH{lq-YiZc-vYx
z<Mcjw+X^Wy$MDub5cRhs&48(|Jrurw2D}BfZCg_#bs=^%5$)yUqY!!P7NOs-BQR$5
z65`GluLZSijg;k}Uq>ZH5qNd)Cjxss6cv5m?y^@0t5x|57r?#Sq1~~D-nIow>~Aw9
zSSHUA)2(49k6zyF4Nwa%B*NJlQO2f$GK}~nsmh4vu=&POH@HUMLiM!-ct>oLUHa@2
znPDxV-Louerwf)}t6Yb+4!;)PaiFjk9jHwcKg2sq{U?iOD<RGobn?I|dfSlYeg$EM
zimb9TkZ|f>-$F71<SX8wCMN`{p?gHJ_v*pr)#I)2)#VT(5GL78-Jze!tkU0PvE=r`
zcF^endF^uHT}@lej~9Q+qkjN@{vYyxjhOWCIU_Ez=>`}HCLAcdO0;Qy!8!W`H<SW6
zM=NL?efs+4VS}R^7(8#spkxc>F<@Jj3r&p-I9kl~Y+aBjF_*1qAm`lyOLvRVoxbjQ
z<;Zp%RmC{0J~T|bziJuB-Kzm>Hy#+AiW~Bioxu|~V8j5=JsqAjR|@bW3Q<ufmVE&<
z5+q{Qkq4j|5<;{Wsnn!JB17jSW|gyd3b4uva8_7Q@2Sbld*3H!iv;dYI$^C`;R>o!
zvBYrlfH9uBxX5g5QGDF7A>NcNB7u#p=Mg5k=3aIX$S(lHctmPFHD(lmVJ8Vb|1)_d
zuq&G}<=V7D+pTHaI4{!)%GNY1rNmc3rudW=QN9Q(G4Vw-9LT74yqr|+>HA6TaeA3N
zH)a+aG3MYj?{X@7$=8G}UZ>{5ix?Ohj~^XjbOJAU^s9Q%_uZ&6B!?iA)jqYfw5TlJ
zxPK$8yZyVc9{&%7^&gr`zIJSN4{RZ<)9-}~O_vcjVu0r!4w3)^Ex3mp@;v5;Jb(JF
ziXEN$SzyCZqbMT%zaPXa?_8k2^$R<9xcFdc^+Mt@ke?(5_5mQ3q#rx_z%6*DwTfUg
zs|JlVRTYy~$f(9u^zr+XjEXF14oGXHa_yJpYI|%a7w{7D;ylZV5f8T4MF}b=1F4_`
zZrohAfylmb%}U@a&b9uzCN7a$U%S6*_GkJhnrNz?e}eTTMt&nLjQZr#bDob`y@5N^
z8j+5%S6ciX8<>BI?xP_G)9@N+5fQHca~S9gyV&q9qwppFe5!DNI}DrGZNsPC=)2@A
z@JD@{Y{&5H@W!CBGV0?@tXotR72i1+tN#^@{c{H2)c9aGJj^3K$cdn28pD^1w9CU(
zP!%>onQl%#ft8mwnE`r<omzSVv|C5w0hkNCarE09eh9MEz4&n@dLH!Kf-pC0yIawN
z!0G)g{tgaiB&AFMof~uD^QTWmS>UXUeqXTM<vi{5gA*!2RDx$FQ8{$yB-zsIUr}kd
zPrd3MX@=(FSaDIzXz})b1qs>g-z@CRM1EEKd+hwUs4VNpV?q!*u9-7;tJORnLEv!u
zon<(jPVJ*@L|#oj(%sbokRqi;7w-z6PaS%KYbi#Oj#w~D+syeQx3Dg-Q~d}n0v{H-
z)6|AR>Y00}DKb~PlZ({ytEQ}1rmKN^H}ej0sUQ@Wor#5pe))p!cYKE%MbZ0t`vX+_
zL8kH%iEPbZXoYxu-L-$SYs|71`^_7u7DF2(RwQVlN#=TLodCh}35r6K`L*3h%g?Vp
zIBPQWz{4xD%lv?iqe<g|u9YYT2HG>VZz|H$2zd<+4F<PIZ{hYol@wbpPBNNKTDU{A
z%M>)NQ24xylsV|a&Us|WBb{rINJYgKkqQf0caS$OTUP^d9jAwMu=C=UJJ>#sX+)o-
zq-}dumQLS}g6-Iq2;7CWv-{?Tw%W}oclu=#|EG?%1<4u~cQzC^v<o8%Q=zJ-81s;+
z|EZ!Dg=XOsmubtz3lfUyY$qeRrQecs6e-}-sWuEk#r@g-X2?kUY#)=vxI#^^X`shI
z^0%|w^_5VuYkiGLK&OdXdis8$bv46ljZ8lhsC2jZ18QLRTT5m^WwEkzqEvhO!mgMf
zE^cn9Z9+mFyBHexPClz@y12YuwLePjz3XrT<CNT=X}G7-r8NSYFHSJNd>iNbfLJRM
zhX%jd@vN+@hSjT9SreF8DA6upEL5m7KR$dodC}XCm-BCe+sY@GJ`Pk-i+Ds3W?hE?
zg3jSf;)0#<a1&>{yDbK1THv~YW%NDgU}QPRvj6T$hra`B|1bP8g3zDVh8{57Y1SCj
zol$>0C6)+vs1d_ciIDH|D}(<pqT24)mlo@Z-GNVQe?a7gZrK95T?Bd%2(%3a=D!fy
zhHfL-I>9qMDOZv&Ld>w$6?U@{=2!Ds_R7v-0<O0I%&r+<43Cb7>|);;{TiAbRVt9g
zt`F@p!`K`ste`PQg)gE61>1LFfJI#9a%#o$!P`Q-SJK55+SQa)HAAu~(EY~|?X=?J
z+6VX&HKg^7nf5E=aY$_0M=4{$Z1CEMZA&IzY&mG|Vvb9~<Nq#vUVMF_WV!Kt#-mlS
zxt~xWnNmM=<4NoC@(yTen2axlN@zRjC-6uv2FhcyrL9th>qG?4!*r4r9uW9qtao{m
z%T3ZB|MdBGr*%=++$p*HP$Vf6KMB582Q1#RiOd2fa)+-<5UBK5Sku}`%=G<^g-I@u
zkJ<ulMjSuHUE^K@OpeQsrV;T01ChXo@$!EKL6`fJJnYO=f8FBR1%!HX8foBZ-6bbS
zR@W6CA>4cM%-QBYfau2OJg*8DyR?)B{CFPBUa{h`0V=y|4WF!w;4Ceh)bh%*2lB+%
z0cw(hZ4bNm{THcWZ#l{X?i2g@KWu0e{(}}K9#1J7#5-wgEcE5iJ6-Vbz*BRAuDc-U
zIZ`Y}_DqaPTJ*y6oY{6eB=5|x+BG}C!^1-<th=xdv_EZbkG^Q3Z@zI=(s2$jyDU5)
zRqD1_1t=uFpbOjyEZ$_$8KDBXQVyZVG%pz}hwNrw^JDFwQDrrg`Y~u1UxcnGJ0`dY
z<T0B;AK)9-y8<^93vL9#W{A12o6xpxWfx(O^PmHB<L9B5tK!3|SEzMze1M}$G#XZ2
z4x}r0CaFW6>GTV9*kZr!@;b@qQdAWybtK2>gB-^QavZapi*4GEV8jjzRsr&S5g1wz
z-Zj-~h@hPLeD&y%Qyyex%$U(DJGn|QhzU*>-i}fxme~(Vx4!{V<c*?Ffzt^MW%>zx
zBdr(WWYg)&d*JKh{--T)i-QF=!4SKXkyds%w6eu}9bpF_t%E3;gXqcpE#}o<;#Rhi
z;?x;zFW-lA%UAG5*c`}A`G3l*Qu^n4RbN7DCgv87(0uBuNO1u`?ld4V!|`XaCgT$m
zJoOh4M%BctS4Uqe`W)LDmOn|#2Z=)~6~3^qTOL2TuLvyz3CDndfZ3=ddR?o_g}Bj{
zqq{z~c66x8fGNl^+GQ9CTG$n~Zt0WMJqCO%p|t4yo(1wON9^ZYEH~&w{7395g?|VQ
z?mhfw&C;*fd+12+B16`a7CLUUKltmrzo5a+i)e7Un{eO~1{@Oi2p(t|5RTulX1TJ|
zu)6&Rnd;NZ|J^@+l~A!l^Cr-LxOsSNb~Eg;O`?oUJZVeBYf=&Lq~~zO2+z(L>yz9P
zhqsRR)Zyjip%?)p$O}&rV+`!%vVKhceQ9;hFrILfuLT`77-Qj(^{*zY?PQo@m@%IA
zFnf7}Im1kD$HJJ381U)>wuVJVM@FXp&TztXYKg`+Q}S8?^g%O(Wh>&oFX06t4_2=E
zvFF6Upt)*sb7bimt55HQ0}5e>fGfqE&N4Jthm8L|x(-`te~9-2eslug(LWP3lk@Pe
zYq)6ynsuDM%AENXbUOP0?)c<~V2Q}rle2Jyo;Xm`WWC(uSpOW|X*au7%fIP~{zrXK
z@##O9Qa^73;mufy-uC6^*LAqK+JBtDB(+`vSU)?iKdwSXSJR2XIT`g$3ggGUW*&6F
z{M=1e+~&Hzjf;q+;mw{4lrj>?(sVw~sJD++ZGwi7qOpzu5LN#A7Rqe$Gp9`;(}qD-
zO0eZa9>W!1t=Mdbl_|VY_8unWBBlbYm7eL=S|G$L1isKIubr67*ZKm1SdA-mMnqgF
z+AX%o9#lCq(U9!RE74tV7agaaf#K7KFh3u&(p%YBr)MF6mcM^kp4+kG^QOAwCD`;p
zaB|Dx1(A&`&pCwU^9`r1l6@Rnd=0Z@A=B`Ju5X3#@GmN~><Vmti+DZb<hX*(^hxle
z;un8Vj1I6#u+!W2*0lp~E9AH)M>z+*t>fp~AF}j43Wc$C;Z!3WsQP$Ws-*{O&`^l>
z{1~k3v!wPR0_g7yw%Wua^-_xF@#C(9#6+N;+GJ-`RZXQ-DelUuh?i#z$-vdiHJ`Y#
z7-!f%?3~>6a_!C6-wJzb>gaoXD5(Z&ZC3ST{|S=GFZrx{anr)KB_rDw6gE&g+o9f>
zeSJBct7f<X|J~2}B*PpE-NP6G=;WE>jUKuFPecrd2QLHJ*f#IR96e;n#%8>0(+4A@
zqG=@y#e3>4h6gtY<{?Rd75*&<QqrxoU=e?OrHr(&l$6SUMTp?ku%+yi&5Iv`<c>8#
zlQpO>%=sbad=H>OU>Ggx7)h+e52Yq2YjbbdFz-nkUo2#Td;F|xq4BHfkf6RW%Zg3|
zxgfWLbds8k%uhdhTVj$`G02ppH=fg2TG9XG|Konvy{?^ohn3pwSDtj!J#q79c=A9r
z()Ro2?ggHi+1T-_xL{RDu22-&C?BbRfdZo6P?c|9{1`Z=cX}VEK&=4~LX{&{K*Va7
zV=i$GhMLmiV^?6x^rNRvoK;HQz<=<SNU`Mz!7JCX>h|c>q&bAPcqDvgz47DMY66Wx
zd?Y6GP7x_AFLzC7mqT$Rw#Q5>ATzxXA-qBwB8p8<_lnp(J!OFbYNU~lO2!YnO9x0|
z<c6_dP=3!h04Ur&#pARW^iIbTMd@w2$#h9YvV@wI32iJqn?JfX*zI`b!<xpK;c)c;
z5PDy@oHUn8T(F?|i{#>=+qsT_OM#Le#KdN*oKP)4P4j#y<xQj1clbOH$~ibc_Rx+P
zS;_6R?dZsbPs3*9sMY{=QHBQR5liEBk<4546XA-%hAP2(xmlh?PB$`tvpNx7GI7<f
zoRpXe+3gd8md0*vJs^MQAA~DxbO_XlCrmyL_2cKCJ%CxNfl!FHnDQ5j6Ss*98+<MU
z^N<2#i3DPy$Y8wZSKx+TJjCk@Ew=(F^}3;!R=}2+(Nc<eT+AdaR5Ii2e}wLIe{FX$
zj<`YaR;SyJ;MtL8WA!^dn?Dww8gtml`QluIbV`3_Ztgx&#tV-zohv&J-rp=R7BCSN
zMt56jmloA@xLf?#0TUEAa}DH@()w^+pD8PlVUNLx#?ljk!8kW#Dp68tD$xOnSi07<
z>9vP8aiihj7Gar549D_;RF%A-<tf%V!Pz7AmIRz@1<@YezJ>FJsGwy5h!<owh%yrJ
zL8kMHyCm#YIz3*l5qmyHb%*gDF_A#H^E(rY+R5`LPwR6ZG2alQA`met(IJ{p=Mv)?
znPk-p9jr?8)_f_iz=^0(y4!18c;H?1Fs<Ic2VJVRX?c>1>8^ybvBqv0+pY6iXh>Da
zN5CHwhgqRS?#oNkQywgGK&y5WT9qmQyA^g^Kt>YPE&V$uf^|<<5Q7&fRVQTU&v>CN
z@_dcI`E|HY4OgzKd~^CnUyJDv2Wg94F~cJ5dl*sLGp~f!#CNwV<I}3*uKOvOM<faK
zDVm@#f3<QVJJ}<(CP~3LxFK^4&wA(uFR<#VIzP=VEELGi<5To>1=$MlLPS`Pi?mW>
zdYhY0dF9K5Q(o~4{thrGV7sx#R61TUjRk0Euq2A~?1Qt!y<_SE5mORa#HvG%ZrP+*
zS_q6NDjzLj%lUVmmAeO~EKb1zDgIn`FAX=gaXd{5yl5BkvUtHY=Z|LS;GwtcHGLE&
z3GDG5?v%iXr|s#MJAt~&$erVW?!P%66h%nVHWom%1F~nD=}D@|!*dbzuP_Y!3IIME
znvE7dslDoUzeL9Mw8&$Dd<cc?9pL!;8P^oRHL@mRYF$X&S#fxnktvJI$iw_76YeXU
z)(X&1%<PX?3{!jA;bD3T@y82WF1St~h5I2DSDM_CZ{yWy#7xV-$jb?Yyehy85fnq|
znZs9OOohL{zviB{nX?#~!np{+S8JaVMgnvIlVb%2zn_@1b9Qz<MB9wl^QO$z0C6tr
zYM|f)UwOVUGf!`Cd7Vp!_`Q4){J^y9;s2Nr_b`vyacX!r_W-%!qq(6<#`%A{jW&HS
zErJthjbX|bF5EZsU&puh8ss8;5p&^t_Io7|8==#H`aKvow@v98Pxo^I4jSQG!^A#)
znTR`I)~%>>;<Uk3)oL`iB3&K^byDc4H4C?b3aD@F)Fa@S1I2m}PZ?KXenXJNb&Oi=
zVoqkq#<|&Cbe(Fxls?tD0AAkQUtXSZD71IjG}Y*BsDuUo1m=tnc~9EBPSipv@O2S2
zL6tTyD3sI30~gW>xOCVs=P(ADsoq~|j67{kX>tIFh^Rgd5zhI2@6I&0BmzNYs1;mN
zBw;e`r3CEm0S9RnmDyvMg-l{Lh+U**jm>L@l#~25U$9E;azgyB`AtjlDVv~H{?!g|
zDd5;1fd__I%;?C^{Im^up-EGl_a+GX!@>46d`7^4;iwT_t(TD9w+=_ZUFoTb27!Ye
zAA_@=Zu+L!uttpFew2B+EYZQfARX*{Cj(_?fcw+ClWYEx@SF{!Z*EACLG9Eo*wnkF
zm*Kb1DNl{oxw)4yy-0bg)^<O-Ak16m=Hc=4iqd5G^JwT%HJ0_kiF-;6wB70&bAb6c
z4<N`YC74ws8P69#u3Q015V9~iu#eFO&F%#WhPshz$QG=~E7tj^@D$SN$Djwc(spam
zk<+3n^&QV29m+YQ*-!y$<7-&&KaS=c1=Gs{x)VHtQgR2vh}}`9rD1=Hd?6cQbCAFG
zaUL3$?VRw@DW6@WfvSvtII<A%tQ>p+0<7@a#R3JUIoXDL=Co*hFioOJF9F3W6yy~P
zgYEt~JB$RYN0=R}i{5sxy?KY@*!h(?Yqeh<;dBns##l%ntquv<`o3oCrc<H6t>1W5
z`Y`*k?%ltiKY#wD4o*CNn(J!l)m@x7cM?AsKZ(4~nZI+?!)Lae;1ym+8E9{>80=_a
ziX{;Wl^rMq#lniRxv>OUpGtNq0O2see=>m7G79vL2Vo-M=PGK!G0(RFe3*vxNG$U;
zK@m3&4jdC4(Yi@8J%-0~G3HX&riQkdh0o^w)>|mk!CGUrU@^$_^xx83AqL~?H|p4m
zlI4Ad+On$eRqqDp+s-@9@)&$S=xb~QL)T39=BNqN`2AMpuJf}~vax70cCsG+thbE~
z3Oqn(f>UB*HnPFrWpoG5k9@$e%+U1#^5)O@BVc!<wD4yIx{e4axCY1trrqkMBe&{j
zxr-6Q?R%f<O<Re-bjXP9E!3J#b<N)uFah(v2MWqo6(u({G~kSLf=aDh-^Ge8@ZALo
zO^>Obgwh@yVsBBkfty=bGNG=Py_BQ>vWygvXoXg}!e`b5AE|w=wNn<2j_??fLGsC!
z{2&<fLkE90`qR+I{uq)=|KMQiuvzrxxeAlBspAzgAJzA!%BLUu2Fsy4%1m1tpkEpd
zUz&pbm;B);GYXshic+tst>(qI-MJ&oe>`YsoxJLYD8alTIym#djJ@N!scphPO1B;K
z+8dn_Z+#c_qyMLL(PIzp%I*)E6}|VkSm4Hmj=aGRl5d~5JJ<;ruIaHA2`(>i!8dqE
z=U?-wWFpV%#km5+X0rsy5k2b)+IT+utV^v3FF04x!FeZSbF12YiqH`;cOm$j#EW)p
zAo%BXMaRC3*K|j}gIh)cqCR-KS&9vW4Q{%+ox$cvt|X!Q`Mb71M^@vL@hVWGJ^e9I
zINpaNpN)qjpCdLTx>?a%*mkb>*vQy;_3LVbg6NscRD+qzJ`LRk&99p?PX=<?ol{n5
zoWC{M;bOnFmTj0DoHjeF1*<iW3l_Qz1bgl1cj`LulD5h0=bPJ2>vpVb<4{>Q%Redb
zg!7<qT1AK40A~QV?|R=Alf93|l{Ym}N#X91`D}aFOyDY%x^-GtK9h-JsaK;yV&4U8
z*;e}f&My0Ha@FOk&An#?g=>N~%%?6X3~jMS3I9lB)6DFs+C?h8PZ_a^9(3KwDPwah
zU(;>k=Xgl(ty?9G!HBGJhu0H9Mh-hFGV>fq<&{f1FY~U?ZS0kQdgX(k{iDQHDpvIJ
zyeu5IfwN_e&uJHjjU44>b5-kiBubM;{l?!j=!ag`h&yK~@Ps#)&2#z^ug!x_F!807
zEXb&CX{qHpRBe0s_OoyF0)j4=M026QleN#b`SN^qdxW`~gALhzSyoe!wO;sxzimJz
znxyBZ5H)uAzIb(Dbz?Q<;tu80^-oEvBvLHznf6%Tt)236q}WI4Q>o|pyVe|b4_qO<
z?vnpw9`m-;+vny2^iT$u)!EgB$<92s`}g0R>0CV<BUM!;b{0ReX<qj0mFfpq*AIt(
z8}Xx?t(;}^^--aoeYry1X2k~Kvr!86vhG`kZC?gVyqWi5Q#<swMD2PXpqj`g!<=T{
zxBG0ewT*q}muJjbLigU5qBZVj$5Zm(%=OER+we|EQa;;A$FKjvIq4BOCvv!2nZ1dZ
zBfI!1A@~k1>XQA=@sw9M-S_8XMFP1^=tUNStvUC-pT3eeWVYw`6X>nm=m&Q;_CDD@
zV^M#y;|4ELFT|?#Llyk$1Gb5X?$OP@)T<XvxLQgc1n!MbxLvhhrkbneP=iPT;rKXy
zUH3W8N$bc7P;N9$$8en%llx*6+Qo7j$aZiz6O@zA{=DNTYKzI)=jtmD9&DnncrW+m
zLevbKn(o_b*HIPy)7;kSvABT3J^e;U-d;tHXn8zx=nM_hZ}c30`E=t0qo?|ro8rCS
zvXl>Z6~^mkO;;ysHWT8m_8fJ}vb0Zn!g+LGzg>&|TeR!ZOHo1>hCdfIUL8w!_6r7W
ziOlF3gRwx_FDe?olXmgiQbDeIDJpYULuU6GqO_BOs=tpEw0G!^BeoP<LKlDSQIRvY
zIX1e37rGKISJ=-z-#*jO)H~oWYs3_2_>r8j#WZaAi7FTSgn9EiH}3n<LFesMXI^=%
z5Z+v27EK>$-5cMZl{#k`v*8Rg=HtVrU?pO1bWg?kfc+0&b%US8>Vef4G`X}*N^Z`V
z3L+=PYvbYta(%<y?d0e2rPzlLOIr%+Ies=Da24rNO8faH=D>%CTXM%^65=e)){00@
z61>Rg$KJFIc-;x{=Q{L5EX3?;xa_z=;9a{L!x~!f6SMk@m36>_#L@Ynf)VrHd~o>$
zTRQq|(c==jonqu|>9z|e)g*^2gyWeaZLv8To|ke5>9SwQIkHiz_EVc8t?E3_9M3^*
zSl?5GIAN8iZ9^`&^Cc@O(PNt*VTo85lh-8)MShl%`&l0xX*v!&2rZB0^dI)k(2JB0
z7*WlIdLCRoC;gPLsjlLUR9?}0Jc=447|^j1rG|*EurFR}BRh`BeXj6WKN!5N?g$qT
zdWW0jYmeiu*_4S*PgI)RL^-ExTh~?F7X+ymCp7<9?RslW`P~MN6_$jNdCxAQ>B7Y;
z_5mXC4ZhBz-e2UnVKfO|->+SBAnrtO>*eM*ALhloPz6Dk1l}0D+o8sF@b-<liRPs0
z{;LDu<*H8^uK1{WwfMF^G5K=GE$W+}Te}plX2|Sm>67K^mt^XjrgaktK|^emRe7AN
zzWL8p7gVQr_Zw9Qa!0vw+itiNB679(&ED?T&ClX)2L}2WuSU+OLekp>Hu#V2E((W-
zdAh>wRYckOUQZvpwa}><y*advEqYUvKv3*3?<-v4hQ5=M94NM?%}=j0g*ojvzx0}m
z<(=#-y@s1zd2qwlRcgmf`O9~dW@hD81Z)+ySE^gp#r0A(P%-MFtgzJc6~YadHbko5
za+kGr<PYgygFCgYb5+;*F0C#b?(x0ITHqJAGCK3M$JIA77W}myAy0m*_1&|%=>&<(
zH}Q5{yUyD;sn`1t=ZkQr(>I6Kr*N?<Z`>{jka35xXjArqwE-)ALwH96xu5YL<oPV<
zdw%_#iq6}Uq%htbA<?s{>3Yw^{OWu@33RUS%DmbyB-+-x?sA~iBoZ?JZ+>Sv&+$0(
WVnbW6iZ8a&F~{_d<{ds0`u_lg$8y;K

literal 62375
zcmdqJ2UwG7w>Fv?ow17*6)Bbkq(}=zx*cA+bg2p$qzeh1fMbC{1ms0ZsFnbN6p?1A
zDguK*(9oo-h%r==4g&v*qThV~|LuMD-e;eE&UJFVqfW|Oo@YI4-RoZWdO~!yRX45Y
zT93hCHX&*!^)Q&<?qD#h&aM3&gTZvhHJygPez(?8JqdrqYwkp8ApEuNlG<4!2E!A~
z{_mHFf$<9%%svcq@|b~l;&4x(KX)s6Y<Y%aaW*DwE%uk;!p4Z>`_^5TQPWy~ZQn2Z
zrF+l5zNRHAJ6>E)H54omY~*-8p!)dkFJJQ4-PU!e7%AT0{qc&PjXm}uc8l<iV61n~
z@e2Fd$jiUjUl_!Qx@Q#{DWog}8=3n=rds$Jp&jiL<8Oj%h#wo|CeAj!9=v}azwO)2
z{{QNaN4nT;A$cbc<oVo9=D>WOcmGl+ASOi4HBsp!{{m0?*>rqv6mz*#1G}wBLq5}~
z81dC+c;R}``hny>AJBfshq^n3%==@+UDNhNXfd=Am8i)-DN~y{IF@zw+?40Nwm5D{
zar~v>KH0xFc`(vk)a#@9)Edm?>n{?<He=$pyJ>yBq&!uq##o1nMooGjh@5@()x)*V
zotC(lmp7o@e`XctfSxk17)qj2JrQGhCa)%T+f`wstcxkN%D-YVWqX(-##WjSFqjtn
zwpT}a1UW;4Ke)>o`}%}(9+vNxo2k<qFE%wb<@#876{9QgvZnvd`|3~*e11NzN6el=
zA*)2HC93o-uErRoJNXArRbN|=IjVH<mrX5^K|w*6UaB~E6*(&e2L)9KvDP7*s;a8$
znHi24U1K=YXI6U3QtrEV@754$-F~>mQ})Z{!p1pH@xi0NV5apuW;bInFHC(f{5x=h
zyb%$%cX4~PoYAn!d!ve5^g`0re5>VVl#oCrDXGb^R;kDC126R(hw}-Z$<(b(^H}0&
zZo@DMU)nxVHn9d?X>AC0n~jhee(bM<5sE^*5h`Pe3twKndL=zD0&}<-u|Vl{1MVEi
zc8(0+xq(<OWUz6-eb-^Dim&(SG?mCn8T>*B(<e|GE=NX8^Q@~w&>ZP}Dz%I_y6ouS
zP_neEa<)3zA!iq6T2(Z5Az`3CHt>zy44rYL#V|lq+J@LMJM+iM18#X#m}4_EAR~l{
z`FfRliO=J}UVPtdjVy18_xO7bwfS3AFNgQ}pDN{;O92-zeoDcHHNBb%-4^nKPi_7n
zl8(Im;7${x@2Iy4mm~Px)%Dh8+@;g<VYrhMS>Bijh3d71tGLC4xrPLA+d^>YQZO|X
zmn38#K^^l+_L_M6_H9IcM8p^7D$G&xKA5PygW*Ts-#Qh_Nq*DNE6TD;@f)SZrpM%(
z<h?(M?>dm-^KukNC^BMn?i4oie=K#?*C^!V`^xL*XGa7}H%sRWH#lVzN5`b{lzU0j
zg#^p1l<Mg-wb3sve0Y#x{%s-4hXof0pV12`XS-fT3wKqCbK~<H^@S-Nt)*ULF0rIE
ze%{@`V+w8Qw91&t%0{Qcm)l+~$jQj6$&;#Y?CcZak!9^bykLf!!AexqA8sFrqro@@
z<I2mkl4jyM{9?qc0_Hw{{=CO`WYzAySe_#Pxi6(S3#n8-d_cGsc3b++_16QV3mPZN
ziZ^ZETp`swju8(g@U(9}SC-|FWmVxn*M(g)@e9<kk0H734%!6|ZruuY@z(a(Z52KY
zW^j$hC5#7lV^!qI0}@8QXHT4{`jgW0KC#sE^}SPm+0wqx*9l0)pzA;S^v3%uF9(^6
zGQnv4&+HDW6cltMSe-3&XdTZlECu_NRgc$H4)liKY0=E-!knS1NJ&#ePWV^rnGthD
zAg-f}NHd4q9|%n(@}X3{D_{M<^bTeBF%fxFMiVv(ZuU#_$44ocL6hA<Du<mbh=WV3
zxD%SB^P3f$7P8Gn+i%qmyeCX6pq7!Ox=2-CpB9qGj*+;z%T%vj>#u)=dmC`4d1ug7
z<e9xRI9ce-R@9T(?W!T4-Qp!HB}J;LcyAm(7aKkK6vb(1ADr8GF6TD6H+kNd*l{;M
z%yB`%(nzr_*PQmaPOkXu_PP&dTwGk+Xy&3ZaNT5Pwp9K@r6xa*8q)Wn+pzB9or)Ke
zfhjdg_K}pNO1q}y@@*V2@fEs^ghmm$BS)T$r^Z_Po<c9=cRZgS=?ZLvf!EN>Gx_?L
zQ&@b*8jS?L`T_Ul0&pW`Sig7IcP-&#>$6*5aJ3K#FpSKN;3&=YBoZ1q!Tv`hCr=>t
zSh6Rq8u~6v?|1E}NNl|lU(mY&^h2ToF{t_1qqd4oU51^CPB3mf32>`TupVsUXPZaf
zg9&jmyVKdeX1R^zagQ4h23PA&>;A~2;5p2AG5pC|G}cc!wtg{^+5^+lZLFC{9HE(y
z_8CmuF$aQSu_a&^qo`sZ-D#U+bbb}DO$%TTTo|RMaMd0$VV<GT>i27~Jff^3bJ3Yy
zP09<ykN9Ig9oh`9O&lD3lV2yAnEXFh=J|D-?}YCNtv;cS{A&L`c#^+qqIXZwyK*|s
zDhF2P8^J*989#Wc1(ySnaf;O+#Inur>c({^%bb^prW9)Eft7lt32ts2c1<E$_2q_U
z_C^%LAQIyjIn?E=CdxJq{1z4#ro*}ZH{|{PFwDo3yMuzglLe50{?<QkHmW4M@L$R^
zY4A-Jz$>_y$e#(P96o$_6Flq*I*r58y1cn6eTS^t{D^%gN=;8&S~sgKqJ!PG7n_PD
zAAu2S7O7oz^utSK*CyK<w-HQD{f$~*X7`}p*;Ea}$?1t-Fn20$UH*MgtwW!7IJSNy
zMoQOr7AdA!>}N%#e(5_zwot6M7v7^9gXrDWoy{fRRxy4ickfF|^N3Ww8#B>5?~P-?
zx!pWGoBGF}NaYntVOq>ZI2W|=QPh;%J9++kqc}3l^y&S;b+0+hEi#NEka+2MKTI$9
z@hHNlnS%BU1f51*JBC}lns3?epm#GuM|d#@jHiA4QV3k_n{CSsJZu)#5h2b{1;XIa
zjx$UC7|er%{x+C9CL+`M)_I2zWU+7cq$lEV@uJ%8CGN4KPO;SEcP~Al_6%I7)1q4w
z8{}l?bRXK+iZi?KroPyO;l7zjA)BL##AQ7r&Ve_I>7HY~i{}vmN=H(v9mnvSBIhpN
zXkLRjHEcjC87rMg9N_4Tr*k9`Q>5~<lbMT(5M^P7ef+X35u=;;-Jl*yVUbOnHo4xG
z(t9?(W@Kg`=IK}KO&2lit3GF^Hf99o%!r{<%E|%AYAwY>$hfznv=$|bWFO5;NObd}
zldcn{RSf~NaNY#JPEz-crIt~qVs@&^$utQvyGyZv1QsuV!3TWt!Jq{Wt(n)TvOE{}
zo;Yzr$2ZvvrQV~ah?x})kF4?4#>6=iB`jk)DPM6+D+7~(JBz%lF>zMdJAcS~vhff*
zSdPVa$ZC|P<;40FQ<DhOb0-gscR=8=rl<!#_WJfEn)`qm1UbX{n8OORD`}%KSY~%0
z1dt7806(y-Pxm8~VHmQa3=FTly}rwGwvae#kBpgsOYE$h$c8nc1#yWJu`?tpW8&;a
z|Ae#K4!n#WQ^#&oB6yZ!<(Q1rR5a~|yHm10VOo<lBoHn?_#l;WGG%+ni#^rW<H2VN
z@kfpv`QX#rl}PLY-yi~`zO|M1%Q?}8R&RSkU*zNs;;0yWdl%eig7mmjH4h*XRZ)Nl
zV&QTh<1&Wk_zL>2VlWe-tEF^RpNn&|AxEn5_&}^xuML4i!#9euh>fl9QTA~XjqP$K
z*j;?zG%g8~SQT>e006V;FZE($>#9B@h^$X?`w_EJSa8Oua%PAGvlnm@;LP*={rzId
z{2gkpI%9U$yLyNa*O8)*5=ZHE6O@iztOb^}Vdt9PFdv`Yh8d4ky9Osecz*Yi8Y;#*
zg<mMYd-v{_j;6@)M&jX(Rh6*@;`t8&Q03GqYjiphma`ZsS5(hmy7W19e0*FVr^IhR
zabu@2dM0Tv#=$wKrrun%xND*;A3J~}n=--~Gq=S#L(AVLF3iKNI1P@k8Tw{~2LM#W
z#_=b|_uL6tST;s|v5QOW_>9)1^C~JTekC?dgiGeDynZ3cRT(42&r(SwT5(i;PGY-K
zA$zv_II%lu>~>3f2nTK1o=_Zo-untg>8$*)akQlxAgdgHg1n0EVDlpi*?IhZwQJO5
zzk1Uu%!IAGVmRV^mQfksVda<Ho?Jf=!}hDixi`+h^V%;=k0@Yy#8`Y%ZjCl5uXuiF
zP;juy-H;3T0~60Th<){~LviV`ooiukRqrdRU|L?9hsR#MdNl(4B#$6VA6?SYJI1Id
zO!MIVngAbI){S1B^4o$r7oas$K*Ypph(@Y?Ev4#%m)|c|_W60PT{b%dz+f(4J?>wj
zfVra#AO?@)*&b25z{XffX!n<adSf}J3rfl)x+vAzegAg*u5GU{AFolQ6_`uyv$IdO
zg`D&m50qyvc`MKV_WdiJA&miRG2BlqN<EdDySo#m^JR}P!x<12mq!y9ZZLiL_Hc7^
zQ^o+{|9|K8XbWv_^y!j%dUGDYBu->3dU7i=c8eMl6H`sm<nJ~v*W~Ya?kSnNii+a%
zIT1O;tJXR%*Xhlp^LDqV<mKg!C>@Oi&kCwDn!|DBZ89r-io7g^sGuahEvuUvc)t%e
z24nK3jD4NXe7mMt?4mj2Fxo4aad)yaog~jwPssm+LhfpyqXj1+Wy%33*EC-dNHUme
z%Q{Q+-W{Y9bbj{pUw{2|9u-9=8x4d!kh#31q@+#gsC52bHRV;`hts?K$i?li2-7Gv
zmvVMtc6N5JPzGLJ-Zz7~0jtCt^ltpv7H>N3gmmN!Wdp`yJi%yosU@`9I#&HgVNp?l
z$GLOo6xUv<#gRK2T<UBk{i?}eo5qOVfygI$nfq2|?CGzbuSB1nq0f+`*hBP&q;bhs
za*tR-V}%Iom37_||Nfe=uJj!WeKUM9lcLDj#w%|lS7pblr!G}Da9!PZF@;e(f$P~7
zQQPM~Rz6c<(&?2*O-~|LHa9ot<8GMzxXSTMujrR^+F}lyg}1+O8dy`0{)O726}p|%
z_aDgeFcT4QGf$%U(Jne|icVAb+Yn?VtS+DyvwhDJYkifte^$ZV=%0hmF{GN70U1cW
zkWz5mmMGOp#xI1z<47<zAnsqe>Lu|%o4nS1yg_s^w4caey#yDu8G`rr`wxr{?Qn^x
z?N4bW<i~21w9YKr;4JJ3#so>qrK!PIRkaeOjaAZQGP!hSrsO4gd7)3GPA)cV&>wSo
z&s0%y@p7?)kW*)YeIC`S^??fJa`|FGdHLd`gYc$}8^1Cd!ZS|+H{$1$T3)Us(U*kL
zHJiG9*+mjh>G(t%fMwo4=WiKr;?jS4XliC=OpQOvHHwrlwqO-2^(nCwrc8ki4*PKS
zHda=BWYk=eVm_2uYN~f!FA(6?&Y|{PzTSu-5*lNq&ur<+$u6RlOue~~l9HEbViaz2
zI@sj2U6F~l&3J%J^%0AM-5jqoJ_PJbj@}>hx+B7^#6GZ7A|Gd+m9uU%_|ukp_F<r)
zt-!n?J-GhzZ&a6UucFr3GP?`-j?WBt;P-@DoN0-o_V)IsW6O*E10^YwxI%DMhoh(l
zLQ`(|Qhv_Rq#`1d{_Nw&kD8Dr9!Sy_C@CqiB=%BvtiNvjetfn#GvlDWb98O{VSK{j
zq8E>kzmSxNW9JKZF*+@~wJ6V~HvDs=YXH8V6n07FWcu@kKfH}D!$YXlu$a^N8DnuB
zdo#1D{7ioNdBelCN0dfvRWP|?E)@z}cJ|F^p+Fv3!}1mp(@E76#1F-goVTo&)zn`;
zg6L>)t-W$*@#xTqhJ2DTHl@imb~63g7XOFY*@t_<t9jAM_tMju1Y~e{*l9N}FE2h{
zWoTq%@pSdEH#%ZzO$DaK<G$l*IgR*U{ENr#-|s%Z+P&g4uTl8Ie);Hbju-io@b(6e
z#29Z5;p)XLJl1>QNV=}5y(&({V`9s5h;y|X2~2I{(L{yR0-D?n-vzXZ2_Yqa-`Y`>
znwFM!0kx*nRQV&$7Q0v+W9TFi?Tp;DSM1p2&q4lQ%1JDSl{!~si={8-t>ts^uLW42
z<XtDvxXRbrejy=_N=>C|45vyZX?(vdSl_qTW>b%-%cFyXLh{U<D5|&O(ot2_S|J2{
zqgIB&paz|W$0{}V^ejdl8jRLRZ-#VmsB!q^=;$a@U?$hJaPT+e{O+K`Q48`43VX3h
zgFcq0@-tWb-?{zr7x|8VT38xW_kA?kWW1f#;pEvcv#5(U41Wc4`J?V}O-+rNs;X)f
zoi_1Y+#fv5z{FhL`$+MPP0dpHsF~tkgE{{tBI-HPSvcgVKa*=#obz^J$pcl6(&TS1
zE-KpW3SL?WDcx}Wc~Z3M>Xm2WjJfLhJIUVXMi4_-CiRfag=I^yw;S2n*<(a{cJ$;U
zfQ(Em+0Dsm_)SGcMS8lUW8jdMda9lPQu1=5Y=&dw#+$LRYmQxtqF9V1b|p3vRB`21
z4cfzFV}Tc@)mE<Z^f?I}*67Fx*+j3^5o;$&(Pdbq8aEChdOA8y+v91uZCzb{!BmAz
zCE1mqh#0IH*?95i?@#~AweoM>?btg%qK5Rb|M|DKri^WFknWp_h?<N=Q8Y$lo<<Gi
z-m~Ydtho5CzJDhkGD#l)XFMcN4*iUV+)r^Uq5tU>U1R(ma^LbDYC3L_M(xKQj+xwy
z$ii#67GSjZ8`2bmMG{G9{GBlEj91WLY(oUpO43Y3l!q3UUJrQuCj;Yygw>N{%S&T?
zf~--7%5q9|=q}kc$KC>6beh@SiiQK};iY5jMIue=A-mLk6*pG(U)}dPkr=FAa*A;m
z9gY2v))w*~3Y8MiHP~!8ye|6~%C7q~KJHdoFn4|5+KSfJ)<O+*YHF&yySbSdMGcH3
zEwLYUxW$*ESwp1v973wC^U8B`$Lx`|=4Sl1)z5aK0V1r!6=TIQ(mqAhMsQe(kH_{S
z8hqr**Hr>uvlW4f6bm2>pO$zGtv_Rl|9)XiLwX5vRAWAj(LOeEU-1?d+{uh~5A8yI
zOuw{5{oJ##y|ON14{g51Q|S%N#OTgTjE8k2>`3bC>sw?%+PQL~OSfR)3Mfieolae~
z`zr;IWM+A()3O<^PR?tY6b;KXtKh7qYd#g9CR%)+kgn0$!(e<tu|S(>Gz^>IOYbp;
zR!(*K>M4Mm;>OR#ha;-3QIdsF^gK&Aw`|+SjT=AcXBgyD79-X1aaH1q=N*)o-I<J!
z`prqQoS`G)ctqZ9a0wDwKSkbUCz*tDb4GT>7@sgp9bYOLRd?;7ajx=l#>n~IIjo_f
zE}mA8fHA*5zY~hQDIPM@mM*0-nIElYWSl!EBlmFZi`jWF<~4*iigZk_^qbyZWnHc7
zfO-WyUu;!1H#Zb63*Olu@Tc~vnN{OiYx8bu7xouW%Khnb%*hc|g<baV{}_nwSISyD
zbAt5e1@<xBKS8=%UQX_0y8Yt4$TqW@u)Qf-{82z^SJ)C}q-165XUNfLEjqaib@8N2
z>tr(%9lytRrn8e1cN24h@j{X(cW`X1FH)1gkDn#eH&ZEU|4PowXUl3Ybv;GiN)1L0
zxTXax%~q0DG%5b#8g&VHCE>PQD;4t*kDC7R0kp!<S;^q$8+J5@BfZnaQ-kY4+Vicd
z+^-+;jofj6A;S)$a2QrI<YpdFGq=A&mrgStFFpwFa8o(?<7aO3I}u2b+i7eA(sOkk
zizWB*-I^3c##&D@p7c$W34?dN$Joe<O>d)UDk?DJ(-fG=N`Cw{PaNZ?lZ6WNV{Ii_
z8V-DW_nPq|5H$J;o?0TD3eHS=($&VsM#}NKpHIpsY2W6JS-WBwYm!RT;aXc(N2tx8
zn_IG#oU2W3R81fCqHl^J9OYB#nQItsOl=epvR6sc=7TU;d6;#7rpK#K!`a!{4Zm=Y
zIJ$kWjME!_1Q2lw)E6oUu#7pd<ol0>6COFX=P+YL&bkw%J*4t1rG>Txy>rUL#q2!r
z%?dL1#rTaYj-@(u%|7D@5ch05YbT-I&YoSNGQL0Ueq&FtO=53u>S!V{1Na@?3(~z+
z>j8EA9Is9}<19lfj0m?!?B(8F%<h!v3YWx^K!5+Q<BWz+L|l)!R=K`<y|=++<Drx$
zm|eSLTe@+GmX=mMwmOj*p~;)?(o=F}Y(d3?o|GZ9{Z+--Sj=RV!(drljtqxhC0%Kz
zdykEVh_I^2{SzYh@n$0TZ`Iizhr8U!zDpY1<psFQkJgDX)S{vyRf39xYgusgyMRA8
z=iP*ZZXVW**(}=Y?{#iJAV;RUydfjk%4Z<@kBkc%v7(Eq)UC)!>Y6p9xQ$gh8Yt7}
z*l#0=qW0NLpIyk~vzuk{#Au5j!AL~WBl_|*dHFsM5071zWqC>7<QT4EEZ2ihE++lO
z2a)nadK>FM03Rrw+W!Icz#I5}C9!#X$Iy7)MP@h9^xfPMwG$O%2~;bM5`EN;VEp^B
z&m*isX&ISb2f~boJUj-|zpvO|xw5N48D|gt_=Hsb&5w}U$swfx9i|F17TUATjBk;W
zs7=_Yx}D&9yDG>FhNven(Fz=2e*%_(7Q<iVQ<?%#GitF){2BXLXOY1EL_ZDoqL?wv
zefaR<o6gR8WoEZ2!l5Cg4h6JbwKX;2BSS-ezG<HN87&B!^F?uNan-6-{R0Cq>$U`A
z1*VK$e#aSPOgw-4!oq@8$5`n1+!=y}kuk^qucKa-3yw&jzOP~G<f{jz>baSdlaq@3
z?bD_bvx|#oHX~jJel9Bu$K=7F!|zfn|8s5>n9G%ax2#_G16Lf?YH8(q1@AvS-r_c%
zI?;3e>WTJ`b5O~`U@~9)gdaz>{*7P%m)}0g<`ysyvcp5glEy^26-#8Ayg0typSQ*N
zpLczSf6(Q35+p49SvGXqZK@5fT!ghBUkcCab<S!^l5(@yW2lWoy`-VR6gz<J;R&s-
zcznJpD5<%X_34wz1%hls#~fOOlqj#g;+Lk-HnZ4_T~uQr$F?ZuFB|{xFdI%-G+wsM
zCp4a=(~dE_qtRX=NW}(F2A!r=F}B?E??R2{0+0Vh0uBLy#2+=T*fhlE37L?8+H6_f
z3#qs@vs(`Rg32q%%WDhf!k_<pR*vgAz|uu#G~D%vURdX8;Hpi{%qr!@#l?A7KkG*;
zoCw9Xl9clIV5-v(v4W9m-Mbf~SC+@quk5%3M5ON%Y87tN%;cnh8lZ>^NLycDWqNwL
zT@-Z)n_(hSq@5jGXRFBU4oiJJ&BnU8vj9%jwyZW*o6n;b&sJ0#D<O6oor!g}&jlBF
z(Sm}OT?jh1P)q3mXuy#LfP2gMg&!9!gG`&G$jcYGBgV2>Fs4FT)`R&yUl(Dnk#*^Q
zQl1r#%pbS!O3CJ+%S8bQaT6$y@3tIEEWHo+q;YE3ufN|{>iMAsSh3wTArN`IJUqgX
z5`?k7Z)TY}*!qwon(f=Xg`(y48BCl~k{Xs*<l(##;!f{T>G4@f@*m%8MCoxQ-9eNj
zQF|{9jd~6Ab|XPdBHyNQ_{OR-#gz+~TzWsz^9OCm>SrDmW3G{t?c?5GfA33)D{vzG
zhFGB_n>oqdbedsmV|to`od{>wc>+p$-?Di9_`7LHh&q5api#}peJVzbXoBYj{-|}v
zxt8Q>RB%n^&F$^Q3Ym`nZ~s^m4pAl0(2!N+c;8{k!?ih0i=)vSlb5v{JhD?>+33JC
z+ThD$u5HV)xl_3#BO}ZC@#_JUIXO8v_}<Ahdcr4E^JZJpjnOsl&qk_S*O^#Q7I&uy
zzV7W^3T`dJi;KT<Cb(v1ZksuAYPZ=vhzoG&j~p3ET<|b6>soMV<->r{<L)%GNL3J>
zwI%X*UO2T0HC1f#i=vjJ&*(IMd=w>2+lvlK*SNp3n3hQMc;?d55)UMY&Zx@-d3gx^
zJ&DN9d(yGh{o|!r=i#BDQXN!-KguzQXsn^GHt2fs;uGt|`KhW_%lk|pEtH;B#4B{#
ziG45Z+i?~NG<04CfzCyx^Vq<j&MSZ^Gi+f0Li3-La(w_F8KGzY20lzG^r9>=Cc2Ql
zCe_)NIms;Cp?V=DP!wOToayx&(*UGrxg(-B(3s%`&@=7+{r)H4lFuP6{^TU0R&$b9
zQ?gQ&M7N<OWLpcjsWUNSI{Z-;)aksuybI`U^;BgSLOZOkX3x=Xxi^r@3+`C2Lv3cA
zG&XK`q$_N1nwY+Jezw_RkYw)95^UwRYFbi{XLAtlE7&P4g-)}3=zNYuYKf1J&vZ~N
z3vPW2a1pnx6Y?z%XY#0|FACSJ|7y+%7aD?$KL|4ZA3ts;7#Y%6J$+W!2rQGjP_%<|
zzACn7`|4-GFYDWZ=!;?caH!9B?OQ9FpeJ^L(1Ye|y7D&Yi!Xp(0hT?o>e!ZornU%@
zJXuXSrB9Tlb9LXWk(rrU8I2|fIlxI+%Z+GDM@NS^(Afk+AbSkL7Apr|mia9fXSF$(
zSt?F06#^>(Bn38Rr>}lH!Fo?*hjpEjC9Pw0eD3+8u3Sybrv^@q5O1SQ)I`$Am~c0|
z8H_CTA4Z0V{L+$ALiyz|OA40XZ_PVJ&p!T;$I#>QYc%2I;|o;e3`H0;)H3R_Cp}5e
zbd@g=m-H8Nq8OP!3uqS6)7Nj7L?oEq2cv4){sa<uHg}<(=>vK0qemVv?*3ly-o7?`
zU2MZ%uur+iKbEc{RySCRkdr*!7W|b}=9p5njD=WHi+K&?Alj+HvAJ7gcTh?UwrL_w
z%Sk6%lV2ycplzZo6x%r6rH{u45Le;=ponkz*f_g<J5FAH-1^X%Pe@C|>x}xwWn#ux
zdd3u+8KBdKu)wFOyn6jQPaTCMR39=Gpc6MDO(ZX`W!tprX4d2ZX16cC)P0bv`Jqv^
z?=ijILFel~RM6@4-;s3R<XS1wAMPx><m{FEm6d_2aFXr#1qGz<&)WXJ&txmmoVbs+
zhSVhN60`goG2pRx?_O8HRa){)`i82{a(y#~ra33j)6c~fb@Cf7(wP$}Q3U{IEvyns
zDhs-6{x$8<oV<}eXjh)QBRj1#u%Hsq?rFFjLrqRj_DE(XiLhLy$KO8HWz?hdSc^B1
zswL;-<XHQZv;TB-99l>uI^vW>G7hoi5G(GzdliZxjIb!3TK^$7WZ-D-o|VV`r~#Kv
zZUL%@4;4+w5m`H3ev=5k64zr0$OhQ6bqGG2=~P}`?xj|8zmxbQrW`i}R^SKRBnGek
zfo|^bs~uhW4#wfi-`*Y^-GA--HCsPDnPtq4K7V%Cal(HF^YqvMC(+H{0oDs9+dyX)
z`>{%Ap4|=PTK%jqcC5ixvbQbUOyv+u67Lv!JBs85mEe~_oA!EYd)*5U4>u%u=2Mcy
z>=UR%SNA=!<6BhFVnkq*AS&UbEq-L*BIX|WRq`882xOcuG6rFVNN$35x($RN@qE{W
zj<aZtn*1?_G?WO>0$C%P3jim+3WA~J#;Rb|)2BB_ks_(CX?htNFC#{Ps=P(YrSu&A
zvNA<ahfcv1jRIITMPY)zXI84%#d|R0%z=UX_wUEbGevJr0`_s7pPx@gQuTu4I+!@J
zCSwuRMs1@!ARS62a5_3WFFLSiR%vu$DYkJqMw5RcB9)9%N4kowa0t{sYYzRxEcDrC
zQTOT7MOFKW`7e*5vI2Fc+f+D}rMj)zKZB7zQ==&-Bq5zY9;bx0XR+bU?1#<pr1<=y
zBqE;)5TE;B4z2J>m*-CYYKjs?4<ezv#43u*oS<A=t08Z|xC&9V+tSGC8`mLxu@-CZ
z@86B&@)x%&Fh@VJSRId-jaQ5ovq7gv<XN6r#aN06Yc;bw$-=^-G)?Y9Hs~2j154)5
z?^gcklZ-7d&AOORb;MI{%F1o%Y|xG^C{0ZrNZq%VjW!}lSycRe8kaqkLBb&Rxn`u%
zJ;XRpw|*V!P18yUAl9sMDfJBZb^i=B1m$o{cYk!k)ba(2_(oNBrf2ssBMKs4KBzE8
zT3g;JWpUeRkc3Jg$vY(!f}8QVkjayd8|dol3e4jhDKj)&%6j2vvIm?tu=3*Cs_C6>
zB_<+4%p|Ygz?MuE3};Y@&e4R9+9V<uAK!8(X<!A|2m=G7(4dKGCze#|9_r?es8vaT
zn~x<u1hA)G!f40=`+Wz%E8-T(&t8kwbH+jk9Jd=9z|}hUnd|Rd!bF)1vI`0e!}(2?
z2F?l(*5`$NPdv2?^ZX4Mu4AeS3E0D35x#LeKRJ`k8y6IL15YvbI<)M<Y&dBlaHmOS
z`D-ejrh(n$-2G(yH7neWE={2{IFU-e{C5D9NDGmbIc~@+(LO3>SvGr*F+5Poc;QRW
zm7sV7Eu&>z0V<%n-4%qn@c&%(VmeRcFJ*v8kUl;iXl;p{3=@jTH6zHFIfY!f{+%Qe
z`g6b%pcg?Ueot-@&p5BqO+W=ZmsD`cJNL!B&hY$7qL)8O(OT5Oo9SKP`8&g4r=rXZ
zZ>1i@aPE-p<B3zH&n((udA5gEZ|-|^zKYJ;3`F(M^2P1g1t0{0P~Eip*ehkT`z+G@
zEl7kd7%7k>XR{GBkx1;7n+bt%kbuj`&(A;a?d{#ru#{C?T>P=`LvQ(#Su=m%xG6_@
z;K<FHhENtB9-+6TkYaM$w#dXi!q}zA&;MH;!%bd3KkV?f@hk&e-UsE}hT~wDy;bUl
zUw9>p41(a(o6WD!{?#vad9I%gb~FIGpJGU$ZDYc7A_#~DB4TBll5)D`ywvT9MBK>7
z3AWlzWbKtwY(_?gJ%t)a9F45A0S{_?Yf_(SZp$IC!slP685OU)h+nW}4H*;UU096N
z%G**0GRi04J}n3AW{-SP6pPDlw3YNJp%x}HEvRIXxje63VSU^yp5n;G)(gMNN2^O~
zm<qG1+uGXrnn+H@#>TJZypq^RcMY4uM)c&9TwrLe-04aCSrh=7DGj7#l6?7Ja>cz3
zIm4r)0RisInT8K7Z|w*=|3;FQ3xj!#k&(<alzRAs$LG9Pq6w=n7z<>nKDbCbg^Ikq
zaU*=G6+;kw33H(W3LHIzX+Z>}5XtFh2~y07xhABu5W;+}R*#jbOTRplg78NPv-99@
zdEbcWj`d!n%%3cJ*~8k^1w=a82o=)$?CIgL6X0MUGto?#bsjl|G$Hfv-@JK~2Zc$U
zCIgjd^&~7y2n1UykX2e*LSCsw@GK;{5M>g0q9-@w74j-8m!loTK;Qc9#d%{ESR-B&
zaLbtv!qEivzW=M>9r3r|efe)u`rioN|3hydP==Mm0c2q)hunu-g>+hknnUE|J!+11
z-mENy2Y=5Jc{U3K9QqoZ1%YrFbw@|TtF5g%zAdpq5{Z;0nV--&?2mL|E%;VHQ)=dc
zB7{8}fMrqltxcAD8~VdIeT=;DcL2&y>;<l~=?Jq8@r|ISqTw-<A&`C_j;br;=Vy`R
zV;Tvo@C!whB%FN+bvxEVUxYISR0E&vJLRDAAOJDk+t&7jII;_wCkRECP`|$UhAd~|
zJ2qicR^U;YCGb<eP<;;eO`aJ;V-Qm-5zYu_d;5^En>VFEq8F7&^wKnT{jZcX1a;h9
z`zjWp@`v3fdz#$1Vi4k1gAVJ$Aq)0F8qq6|rl7Vke7C8(j3`vz&)0W4lO4PuL%xsQ
z8CpHft}?{3q32e_c(!60!~kE&mC|dksHPbxnK3?U@^9Dfn7KtA;$;^zr1OS@{rgnt
z4LM%)MLN5jA^pT@<+^dZ*f=OjTMV6Kq6Q+I%jT$|o+~@TJ6gv~T#c$@3TiTTsdp_o
zG2Q7DY*<8ug8c#7NTS)_sD_nOeWMq~I`WyIMPp7+-FZg#eh3n*(UctVja9Yk31gzd
zog%E88THO_9W2zdxS*g6i*z_mZ^J9JHRL?Fr?PUMOS%uzaYw=rlSj<TeLZZT&K?cI
zHFPt`<f$H@N$e9elLSrTcN)R|zd|E~b{E(~s?-j#wIp`U4;G=A?)}u+@Onkg)_QiL
zHah;Yaen#nO^T8ylqj+urqO|c;W~Z#bcK-?#F3X0MJLnmvFqbh)Wki-IIYvIQ%<&}
zt<6)vaKs;E3YB@24Y4;MAO+>&*l8+w?F`SvnA@(duFJMs@~h50dyu|*@-6_NuALFJ
zd@}i7nt}?(44PSy)7*Jr8amkIX4G##=>*32XuUi*C-8qms-URJ7+5&N5xu{NU8#X1
zLnww$b3qJocL3K~w-#N^+|u<!i?CAz?`NRb%BF{xU%j|mzg6jH+23Hn=Wpc<9sXO5
z!}@eu;HIk2FTn3xZQi)iTO&qfuF*uKZ6HzMK8-flgd=B{B@=V(OD0A;^6eypN?+Fd
z`uU}xlf7RS>uedZEy^-7MVhEyMoVquaJ-3#XD2;LVNF6p0v-sW5R!b-r@=wrMxT{6
z`u3cz&bm*DL~XR?&6`iaYAqVOy5?f9qf1KB>bS;XH^lg&`mZo0Ch@<JzbexgJ~BRT
zkDfgEpR9Al4>>tH`n@NnESP7-%gayAS{v53=ka}gy9Qq~Z4hE&^yfE;2RnYZnVi0p
zo$bugPZ|*i+d$d2k#;Zd`a;<OqJ(yA=h-tJ5XW!8XY2|G#Brju_NpUKo`7`8{A{`J
z)K*~2RB)SqJND>tS=o0%g!wISf{F+~vdjF^vyeQK;dMyDm3>Fj%PfVW)hTC-se7;N
zi}U#7aNo?>ZMG(=Qn=12*Roua-Rj`eOX=z9QAu>~wn3Mc_pM!82(WaoX5$c}AsI_C
zUf<=;J!6zz&34=B*OzBF;`46)<&^h<H@DkqX4an#kNZg^!d^4%`?DFql94Sb*X6Y}
zp!|{fLCMxBV<UXJJN<tCty+7`L@jitG(@v0E;Ko^z#1H9uFsvn_6Kvjo7+#EjYgZ$
zf`2F`F8xC>(a;wB6HG`IhLOebHg8vm_Dioap*jlgBj*+sB)CoN0gyn=f&T>z(L0*h
zr7QnYSbvBFaXE?DjzA?Z@Xr1FHqqGBW>y-=VQ|duJ!mp(babgs(>cAFbqd5xz$top
z%}his7-ySKU7><kim4-ilX_`SDY_D+jDJLDVs6g1S4v7se-KAEGrN8AOq@UxbY3Rm
zFi6Glh-+*?27nFM`l0`>%E-YI(hqk`gfdW!EnGVZq#C%zP-+=}O#5sOl`V;-53v`(
z)!+VEW5Lh+;d3HYEF2_@UG42NlbT_WmquYN27G!K*8Ki^O?^FN!F3Heo^)qAA^$$w
zd!8ULJu_43{?wRFXs}-s*l%GRuG$whS^j15*rTxviFk_UAyy9KVdr%6s|F7L0zmEx
z*q$>Zw3P*T?rvuB9(MVI{kkl7{C{3d@gLA{Kr7Z$a{!w|4Z|FEM?NSW+w%2d$(4Uo
zb@(q;7XPd|Gzc*K{>Yd|;;pS4KZ$R&LAj=<B=NEq<^PV{&?iaSv5gyqf>8iZ6(uFz
z<EWunGCo?}LNCC{&d%;C)vs~*ceH8c+?HZcf10F%l!C9VwROrWnpcHg)*z1libMpT
zf5I+7P(Z5qCxvVYCA1zf78a2?E5I3Q;Xud(|C<ZyIbBA7#aQ5Xz2UM+rvTFVtrT}#
z4eN4qkn6`Jf^uTxC&X`hc%7Y!!*N(%i9}g-XvT0F`$k_(O-|lieeBY8DxZdL=-5K`
z1;eJ80w0HaXBj8Z80Gm-_k(ptKa-b_;7cL*`2*@nJEs@!tvtiIKQii9lcbBj@=cGb
zD2ESL%q%Z7<lNeMFreU;*b!+r_1VZG>a%Tkzs?`{W4lmU{(;-6T6+a(RKts(v}mu6
zh`xCAYQs9@$+~O0Io$=DUfr_QKR=>ol!ThT3*G-)uGtB-xvc@K6JNG$I#OhlT~JD_
z2poQSHZ<DPI6m5_lii9~8&058@Dmiu)wxff8j73+)a8#esuDo1AZ?!?JxP21*v!SM
zX16eakT$h7QC;MkxJ`Ao?q-*RH?2IvM9%*7w~yMEt`3#h39HOZY;WuIi#=>M{dC8{
zTRPELn}!pq(*p}jQQ`e+3|f?obMz#|TX9tL=9QwhWE|@#MDd|yrXWo6e*5cG;;(WN
z?DLwuEm83v@aKE}{MH-!K2;3n=qWDAU$RfA3R_*gNxK9*WHGq4Y;G>DP7Cu_yYtH)
z&H88XTt9xdr_B_Rr+Jh4qi6!$oBQI_Q*%&K>`;j?HoLGbC#<$V0J!!%bX2fGki74~
z_O8bl>NC&)6Ro5v*WrzsbEnv_uETyq_aa439=#r6@_V|uh)<2M@pOfMzO9`dGu5yt
z?<8Z%Verx>Vb#8Ei8qp0N+d)}io=4vO#_f?;YE82^7R>Rz@Ts$1u^#@nQVUcu3{s7
z<C0Q&aen@Uv4gufX7Kb0+#R0UxyZ4Fhad)Ak_MUd0nSiq&|5C16;AUyj`$_S$5#m3
zr{1vSzj)I=ukEF&f~i9a0Q(M-{NaIg){%?wf)+5JSZb+7`{HA2Qcc`L#imkY^!dBb
zi>M5=b-BdY9*F#l%cj8t06LcgwBwcJ=DOMjrE|rfSGuk0boGP?`+!=BoqY7p_AJjo
zoiF`)fqi7&NG<eC%i}QY;uJb<{^NUwB4H9QcrRi$MPJtDk1F1^oT!Ga!7Z|xGupv}
z2UUvNDr!A?^x0g)y@r$TJ9angIi%Rw*ld^ZZ@yUc#~*(%apkUG=GCz8)d#ux_*Asf
zd#^u9w{;Gkxclm*609&MXXh{wui1h0_3_CAXIc-@bPr8VILVaWjh9E4s4u^4sy8(g
z{jSP9@<Q?ms4^c1<`#v)dhYHm_hY3yUW4)8sSFawU*Ti?r*u1c+wlO$kx0Wfn2gKt
zA-oMo>vVHX9C~#TBO*$u;J9OX@<61{9vfxX>@d*8`rBEPrMSXO9T#xqnu#(q{&u3p
z3=e8~TWZ+H(vIc{eBnD533@|RrWD62V8SmsIy!dlCOS(}%1)plVTuO`T$5cGC?hWZ
zx%DmmaRG5*G=D(j7|Kf{H5N2AG+8sZ)URK3uolkSs75pSa??1c8?S8jBq;iR%4Tg^
z#i;|y(V5s7MP_tHdw}VCE+~gMs)-2eBO<JH;S(x6iN2%hzci#!mRO(f^&bhhnpLLe
zHxTl--@hv+V%W5sXnH>Hp6pSmES2JvMtph~(G~{7J&}4#;$ujN<n`G7$`@|F8(1N(
zF`QXJ@mFkwfc!u2I3j?pGhMj<-WjwR<o!w7V^J*~t*suzA7XdRS1jAx+~lque_6Oa
z<RnPNYupmI8%Q-x?#L>P>Eph4etddD==1O2qqJ^17hyG&D`xCpUz}_zEiH`&ZQC^*
z2+OYn_*%??`3giQhtOoGQ{Gxl0wdjH)25+!gnP*ne)Q#dPs~NBc^{jG4%8BaNrC<)
z(_j(jYvPn0M>+vR84I+DL3@cbQZcr$rjOnO>TN8mC%pfb;R?(0=$y3XubnfCxVBEQ
zg^Fc$n4cOC3!ty_!~4Ig&9S6CrKP1U?rb|41=xA)aho!hCDk`$CD@{LE_?Adl?<v9
zA;Vk~`J@Vjv9!1_6PV#mK3@_xg}VHC@_=h-Z9hH7qO=W>2QAF#rjNrvBE=~CsuN|-
zXs<9!7_@VO2U(kJ8VEKG@i>i`GLY7}QVn{*)Er%1EC1S^f0|(fxjytHc0q;y#<OS7
zcBMNiaD^owuutkg5)0kVb{gDWcG-pPdu)mTu$)2C%^Y=j!RIMFjQT0^Yf&Q}HEWtk
zzBPHW1I4}Qce7$FUe_^1>ptY8X$egokY+gDDmc$y8#Mo{tlIEguk|;_efd=G`O`m(
z8Xr0TCfWF}i!Qt?*cyv-Ii$ePFXxo6T|b!TQ4ztu+|vV3*ZxBj^7jkqU;1`CkJd^|
z8C;L^T#s?MvGpfniib|zZy$q{BP1yK%0b=;g|1@Pz;4q87hu}P9!Xvhi=ABO=$t@Z
zzCD=@zM>kk{!u~0^wLs4TH*9&$B_lLq=V2jQDKpp1z`ZUc$6UsDnhAJ{7OOR@?86?
zgLjI3?PCx9&;q#jE!DPlHshpsD&s&BsVfxyC99Cb#IY%A5*jpalgQ9+6EajHpqY~o
z49I<QUm)<Jwa};Ob(;!}mP%Y<mJ&249UYx0>YD7r;#>YJll90%%IVknReZBg&A>T0
zXP0N1cf5Z6S{P>`!rId}qcf@4BvHe?pQVkcs`;v+f;rpQU(dO{!vU;??CpJI$fp;N
zR-DT&$MZ(;ZJU8Mm+UAih$?%y8ah@i@ab2_H*5vS+!~vPHu#9_T;e|N-7QhmErig_
zbBNHybPAE7XpT-OjyWL9LM&{%N0)%1k`<#3g7U6xzmp6G^mTG8<vsW4@iK9Am8tn^
z3E4RRt*9TvCI9Nyx=$CSxTI^c)(2NrF4ydJoo$ZpfnL3kml5s(-k>!o<##SZm5oh2
z>kA!k=CNfEVI*-{kKN6VTblgEhU5b)bE;d*HHy0iDcfg~{Ng4gu(!Qkc3Wum@e7%W
zLP$+qu)6akc^Rp7!?L=Ogd+8MO+{WW{?o_I9Gg%Qq>&>YO%qU5&$(4_oFRu-IS3GY
z?)Bm`VdlaX&Y%}<bKm-W&h<)}{|e+y-(glOEJFW6^h-_L!1ZdThBL?Y<E7b!D9L?%
zUX!1wbA-D>0$>P^CED&`tY+$%ZLv3^b`eUGHn^Vtg{47QpR4dnDRo6o9g^eEt8Qcm
z+Sutfiutn1h<;Yl_WGAw>)&pve|tN0z_unX1!%jk#AxShIC4R}ym{5jamCf?C=>GC
zAOIDe0iC7`^S|vfe<gd>b4g84L)rtJ|2v<xoAWlpp<TFGK-C1e(eC&IDu54dnkEN^
zNqlSp2l9{_E|FGkD(pCNF=OPv0}}k6?vqH}gntnHa!VKcA>c6Bsp05cNzL5$>g95A
ztfP^_3z?PR2^!Ab`6t+<2V!Ng)YrO}x9P+W+%S?pqYkZZBJP`_E(3`f47q0DZIYQJ
z#lMK*yFJ9tMze0~mT!=tTg9jA>C>kZXs@gf8N1C5=Mf$e!6$$~#NcuqnYyccaR9U<
zo=`Wa!BZOY0dJo@5b50<@Wa{ezZka~7>^1lM1sKbg!I%+355*@@92mW_L%x<LIk9G
zp5HvU21|CD_}G}sjz6##_t@n0JaOx<M_WJx-3%>FQ&4K;i!^v`u>X|hG`TYSrF@1^
zy=>NcYtTHN{DzM3SC=N3twrODV}XHR%O>deQ*yQ@2fsC#Rov3Fo;^-oI>A-%(7<XF
zZPD1$zjo`7EDO7B5`H?dh1+@$9EpGnYu&z@@@%*~|5_ZzERf&cUOuUJtYq|AG>g<p
zG4ZtUGDmA_Ya_bKd?tq2>m_B~_2Ve%F4c^Gtc4xUH-Ea(E2<xNb>6;dVl<ZB`P7fS
zep5n6^EPW_r1444!flC<+=i6Pqr=0R8l9F}NdPz=rg@(z{rr4Gdf4H-Ebi}iMKk&R
z?q_S$c@`Jgnl`QpRK^?gHqy-}o4+-)3OvlNlFr)rb2dL_ru_cs(UE~r5qYgB<-6Ou
zHk+1^SR2r3WKg8+$mcDPJei_wNFdGq0}|9@J0z<CYv1k?SXt#Q4}<pn0x0BNY8!hJ
zphSSbF6pX13r(!%Qd}0U*^BNgaet5<+HLYo>Y-|&)z+DhD{txRTb?D2?D}|TG`}rp
z1fYP2^&<2KTJ7DlXM96o+Ls4dNWY|jaxUv~<F@<(Y0f=!c(L_W@R8{^HuYgAjflhv
zi?+^SY|_VtCE=W*PLQxXHC+%y7X16HQY8<@gP=kSogV9}T-K-_^7He<qiq@``?rOZ
z9fo)Vs!dY?)=@|(ylMn~NE|1!-fe#st%lu3o1UHyy(!@c5=}t?)=s1t*x%gU+}!?d
zCG%j&JCGsnS{ezQw}MY8(<h~{%@Vv|yn5<sT#`$+k`Eww*TeKRD<k#sc$MZeiD+2g
zQ3jql1J5<?kBa$cqMH0Ehns_VcJF?(FGTQX`v%v|%Rlbsp9GhG53c_mLH+Mqga6#Q
zuQ3-eAN8cToT0X0ZPPG@$Qv_Wqsg(i3)+^ZVCCziXM%@KVpr-#S&%l$Aj^U*v%9*V
zLfJ)g{Y-6ug6@tZJZ+sb8qmPnn9L-X8k_~^tUmt-m7QeR%P`li4Bgb7yQhzuIi}!i
z{Pp!T8RKkmf)-<{CN3#wsG`!K+(d*ED30X9>0ca2e9+zltRyt2X~12@&0^+Sod;l2
za>3X_(_F>!8(;v!Q4)okt9t*nFn{a_i)D{a-YJ~s{7F1;h6br0-D|@uQ9}YXZE;ay
z;q}hW&f`GSXQM76JH~-~iWg|#%fnNy$EXH~OI|+NG{J4tuoWG>O}a)6#!}wP!&9mw
zcfokNf`fzelbK2fSsU6q75c|#_q+8$1x_9@g*cOaEahiUMJ%B7gHR{pkAZz-_&L2a
zN;*6&jP*(-K8~Qt32%18NCMmO5DPn5(6tg|MudhPQ>YIu+LiPfl$@a=zvP*dXNXLV
zPA&*)_dFuhOe>+0?LKZ%6E$xq2NzBQO5Fp37|NZdf2e3qgk4S!mmnCRS%t1Ua{GS9
z_ycq1FVyGF&v#_s+4P+nnEOy9k=C?3e?LXjC1F5tWmb+_*w3yeLB_o`Qtg8}jC@Vp
z*v3tpMv@Ia7$A~0iUyeg;B`1To01CbA5!x})4Lx1Bn8-dxtvFBa9HyERrlkBJoXO+
zkMM)TD@K)}R{LnM61RxJ`tH*bb-a1j(!{@_rQ-PAS1yj(*d+5Z<*2&u?VE#LHB<GB
zk&=3ko}Fl$sbhOhzgy+QheIaF3}{Y$0TUhFC%|tHnZGcWoE|Sf)c0nO!9-{;)H2d|
zGPK#+_itIUXiU@|n~J{Iuic!bJ%Ax;>1Hq<7ycW;y&Ho2XSP^UQL(JUbm8GoGT?ju
ziJzUB6a$);p4&Q(dBCxWa@lC9Ea67L(oP%AF331458J!C9kbC4Ei`KDe66S8;Nn70
zYql3u(W*TLn+=p6jQpz<+cQ!!8jBl|sxb#5vmD*AIe09#!2Z&uOZiwx(b{&~<U|!{
zGIT*Y(F!%#gZLxGIJA?X%dTuZ+aJR|pt8}{nYpY(O--#f=-Qll{3j*APWAEg%RG)F
zr8pkhsFFjW|Hz$d++F7mU^q*HG>?K=ok#e>At3_z8xcLZ1`@8|s`JG#yf2`uJ}>0)
zx0tVyK?Y(&>&2zz56)1tY0~iR`!E%$_9D7P4)$V5#GbnU+A*uJJ^1+DXkY<4IyyVK
znrtPTYOM1vfP_bD;qbx3tdPg4n>|iP59~cld$a8a*fQt}jQKhg$GRCF-We0aInV0+
z7T9J4zXdjJ!^L!ow84Oqw|zK6>0eFFtJDF81)Ka1M|vh3gN2&%tc9=)kaiv5<k-o0
zs)BjDg%B%7_Yf(Mx<=sTZW~X|(??TG9QfKgZPtf288HaZPokKlt+J10lOXFFP=5dZ
zL8t8U#@)mbXuYxeCU#4J{6B|}hiCCmYOWDc8~AfE4PRGj5Bf-HlaYQ!q=%=c_FgmV
zvvS`7f_vV^=heHc6#3^_@&9{VzV2C)`LBYq)K`tQ0=sQ0#E|g*ED=j+4Neghu{?6B
zym@`-&PFChJ01Es3Yb1K8hW5bc0-TX#9gh#4Fg(G^L@FSsBI{)f}=1V*H%x8mFuAX
zeSxXo1B_G+t6K#+dUo%s{|E-!vKjqwB-}XX4>hcN3{^V3-<&_A+f@ewyn*-d%A(Zu
z;v%fy%=XLjRi+A$0+*NCVGn_P7|#yy7~?f@9A_O}Z)0oS(CR5@+ZW{u%MokXx>ydf
zhStT!#ax)>7*NP2WEI+J_-23zV4T$n3L!Rh{O5eXFfwv$-^`*65}^)ljXG@jR?1V`
zvBi7e%AK4Gm-?3Wr-t`;+uS_k==jjQ-B2hRl?dJ_=^0h`!7*w`Mpm{@T3((@q9*GL
zd3k5MN3?djfXvtgIWYR=&5O_%B8zlZ!Xt?7%pLm%tx7E!n<CYyxzJ=~3k~T*Sf0OZ
zC1>a#6Mx`PW$A_;+;)j>HAapj6mapAWz?J0^0rP@99f-_m(1LBJ2L@B4^-B>faFl~
z)zs5w2%|20`S`3PjvSeNPjZGxqmRudax)pQoyG8n5eRf`rhZ8h1V^E0u4qz8;q(Vs
zOXc};b}P>rr?UzFt2}SS0?I4qzvLe@HMW8iqNRHL>7LL@e-)e7z4GNp7o{40Cf`rH
z0i3UV@L(Nmsqp=E`R|$b{|j%2eD>#iYJTJ70Rg%2?S*ZpvE{0BtG{~MG>{>=nGx6)
zGM+IAUfT{PAXa1kT49kEBT#+b=+KV&_ps<@Zf8PUaCx_>AH=am)G~&Y&-CdNHEi?f
ziADqVv34{~SjM-8tZ+j|c`n9neU&qmBUPhlm%Vt8x*1VL<d5sYZyg~q5rfX6`A>Qt
zfI|;OtNXNduE{E7BEF$iFZB}kHb*Z!dbabovx||hE5=lq3rjZaEi}{_7tjjcu+zD5
z=0(u*fH1DMb(;O$7QjS=i~kqrn|12*H~Nn-ML@Fr0MeRQu$R<xQ2X(-5XX^RAg|Y`
zw*m|If1(Bh<&ec&SbcMW9qTOw1zUQ10~S7iz62U$J1qH`sh^!9uL^eb8%{+ah?Poz
zn)tyE%`wFFFF~7;0FLbbo(Vg3<;_-c_`hAX%QnAbxv0&u1)4$?rKF@}@+1K2Lcg35
z@^ZjEiOv5TzUfm&j7xL;(x`ZgcIO$zv5<TGO|b>iV0Nd5cq0n}YQuR{HRdT;TFwFx
zEsZsCc&Jt5pQXsH7*#_A0Dq;VHGKY`?a<R$!Pt5p^!C315r^BuC2G|5WD=zHlxfa4
zS@;?!Xcg-scyX?rNY@J3#7WY3+I8L=QCVX5DTN{lEA@pz;3ld4M^MrzRm%)V=7&ew
ze*aE(p&cUss;zChgy{p=4^sO5ti(I?f!C^h&U^OmU1)R|%=$+PZ=d3#@V7K6=21E@
z^|h@AAeW}kF;glZ|LZuf;QQ>iU5XaY3d>)_mcMk>#HD>J4OIPe^5@P>30$gd9rVVu
ztl9PoMBS4k=!b=+1j{WKzk?Qo9^FF)U8cf_z^+^fd^6Xo-tC1JE<<$G-NNfSwXm(T
z5Zvk5;Gnz_LkY-9UT$v1EiJU0VPWMKjO`aTSf~AixevQgN!7^AxU@9K<deDTsVir_
zcO?<cw6?$5v7e>XDr0?fP5`MjG~?L$56;0bub^!-nq(Um{@c-{i-6l8yHVGRpqjxp
zfy<S3U11W3+f2_os%o^l{x^V;W68ol%p^5P`)Fy-0)lv{%|i!Zil8Ckz_`;*d%;4o
zlatedpalWfy}NgNTQU~-b0bb3$f44qp|~F_2sE2bcDeG7_1WF9s|g)AWpDl{9~sWj
z!?3TUYp3g;(yT(hhmYy)nIe6Ug#Lsqc*_rVC0*iU^d70G)RY_^b}H|kvh7<c-*6`-
zfXqJvz-gRZ`Jr+-{h4$Y=4Uocc%@_K;30w;45o~&iW7T%QOYH|{0zexcA`rCBDO=s
zP}CuNBzAI7(}WA9tOxirHQzIgM@*ljfzHDXvgI0#6xbrl3bq({QdlVMe3J$|T<?Aa
zD#}_=JLzxhRDq|Q9dx4SZ(~mP7=P&=Cq$T+5IXIG*!yIBgDmDE%nj|2+!Z;VWqk1Y
zwnxUZl>)(ypXh9=TL*S=po2eE6bIBTeEq{j7;Hh;yra$zc}d7`+QBI%Lc`l=3yZj9
zQ^z3{E~ci#W(-#BEh)mIc1YH6CkkW~7t0=G3EF6$6Z?nou}xS15;U*q$|o%aQR~Ab
z0-;^lRm|89G>~FYY9OQXr6ncdJnWKOS<lR(&R!cfa&WPNn-D=9xohQ)HDk*+d@B~L
zcw&=B>?#4kDJM{grC=>YSufQ=2m$3+_nNpVHlD3)2ftqSsPdo70cGY3|FRU|ynTpW
ze8HA?xh38>ZMec%9#wJxe-C2R#hN(7>wJ}iC8Ne^hvv1LCN}$I7_hkkpn$g8GzdWf
zz|F!K3Om*l%6&7&84Z7agyD&z0{=g@tT#Rn)%}}8B}2HLEg>i8JG;76i$JBO&G-Yz
zL)XH8WTN+gSJ&Bww)`*R-UJ-#{`()c6;h~_ozx&ovP&3ohp}cUJCzW!WnYIo(PF6)
zB23F<U$d_>rMT@PWC<nvzK-4hOmu&j|M&a+pXYZy*YkAEebqfaX5OFket*vLI_JEO
z{zO#6aKHHUWyo$678hIG3Nt!2E&>ETIjUt2etv$RfMf4*yTtKuW$mX0%`OS*q)0HT
z7(8ktd+4fuo|UF=r{6Z-*%Ji;-%9h!AHN-rDv~{KS=^6k^3oax*jBv^KbNLPLfABV
zf7yNj@??Mao26b1m-$E8f#v_d)DHh#jqrU<KCl$(1QlUt5UAOxB_33Yx-O)HF>p)T
z22#6FKi;&BKeNyQv#r-w3~?PZsj)9bKM`EVVF;Hq3uj}O-r<0;aKj_*9hmfIOO&V-
zuOwpILG8nP>ID+5;elMB?<;USPux;)L^V4>zho#7R7}&a&+nAKo+YQ<W`clzuw|gy
z;?JH;I$zpMsy&BJV`zinhJ3?-4v9u~`L?*vr=Rag&nt$jptE1`?_P$RpRdr~wx6EF
zRNcy&hCH0gHDglUqZ*1?-KU1QbyTj!HB3b1H1;px2~fglxFkYw@fLT**LPzY+Hi~@
zdGmB>pZ#<q6gNF7nS}z}M1&BK$aNYep4hty;Ej#{6Zi>D9-%$Viti+Xh;X`TCcI!%
z-5r71Cl<jQRp*b%_An!Aplr&rduP1+k6ykC=GwjO3)eq_{Y>YBv$>u9cfu~bfk#~I
z#o}*N->2=$sh2i4ftHqE5Lv(W{ozm7!)L}_?+?H0zGE2{4Rl5JIKR8SEbV(B{ywj-
zdrLb%tEv#|nT}w!<Pt3WOx)t9dpxSuQ*gDd`%}9E<V^OUdKAe78`{GwhkiTv_fZaz
z_`<{?c4IGcU-_RH!Fl=3x$4@{yQTQ_<mPoLkNq8+uZtn|fsgxFgFZJ4VVLJty&G_k
zn&7f+O#ZUewTp}iYNRASD<HM3OYJ!x9v=PBNdOyDY+`>Vz$WaYL?+We+ki;8V!I`t
z<6vOfC5p0xf5+&(kV?!ScQdZnZg&A9wAL9_#KJk0Cs;Ns)WvWS1E86O+PmuS8@vu|
z92|XT>j3AIsChn#5Q-B2@&y=4fj&vKu=Yj6aKy8vJiEzPH~$9QJ8Irp=w78AgCgwv
z)~)n{|D3t^R85y5cgWgO`rqxjc+FJw9~5kcKVgSNo_a~v6g=yJ0z%2d)mu@;kmr^a
z9`}#xQaO3pKz9@}kS-V|aA5N~&AAWUzecJ*w1Kp#Y*d{r`{PeBz~d=3T};tY)tGC$
z-$6Y6F0dFxpV|cxigp^CbuRwSacn&MmE*8Ew_&?J(KGmWPUEV7N?}n?)o}vFA0)9g
zHh-WQJF4zb+{vY9=vRc<f=pXAAhDDf`6BPdkuK;_{?OUe8z#~PkNmt9YGQo6)E3H;
z*CAsDR1J0#wY}ZlYhk$R^fXt;0so@-h49S$eAk|TU<1z{TPZl;E+fsv{@Gy0Jq{>q
zZKmxY)dP@<Gj{P9*A8t;Lqjjx8>|51#eMj3|7{Wbu8q8f1_kAa()LaA#3Kp|3OM)$
zZiRW@e60a#G37SBn&+<8euKZCg%*%>9@OzMBc`Li7<su2^7swxK#5+&P;{>W;>ZQ{
zHnv)qb5Z&;#VG(pSv&u=_lsAU;TNC&o82?T+{`mn7iZh55E;3H5{8Oar2Mx4@Phwy
zBK*Hvztjsap+1BY#lRdO``ix*r-rg8*D<%U{C5C^b#|!)Dy(v46_rz99;;^YKgzPf
zKm9mD%7N>~9d3fV=R<)79N2mLV;KNK)-Lz1U+DM}7`4bd16BTsILbJUk$$6u-(81|
z86j-sX3yJRr_IqGb2xA;3mx@;o%ELa=cG4&T(j@LM8IMfwD$y-N_|Lz!sq(+K@pT#
zyuk%hDEtqsJo^_`Zd<Jp@jKL=&;cXx8!m6;{Qo}gedv6M2p#r+9q9RLRBgF;6J(81
zFORnJpwI~0N}T64!&)l8-{ppZGK{w<dY&#l!9|b}e}mkHFaOj~K&#?4<Sm59UqDD@
z#oJBR8^=sSS^%~l#>n5ua)?^OVyb}LxeC%;HF9q!pbA5{xU>I8mOmaB%lmE0yT4dH
z+TG0aEsk4N=F?(DtexxcIP1LUpMJF8qwmiGdte5RnKxXm{xmi?X+n<(2k~Em;RU@g
zQ*6U<z>l&S+NeoV#C&^zh=sQ8JWx@byyK!Mi%8`+1{&vjf0brjvY!_E-8nGPtbzzv
zU+?tera7Jvg7<`5+VS|l!A;p`V+Q24|9kWcnE8TUB!_6M`)Q^!UENfmu3G_|By-fe
zMRonp!j)z(*#Ol(PoU+}!T@CJF=?7WszQK2>EMOo1_x3?KIMF$O+0b56)EHwNnO(7
z4g7zcmW^4MXAQ$L5Zzcjy9MBoe9K~X%u)_U>#n&D4Wy`dX9SoP`|EZr@;Z=8$3B;-
zAcVdF0o>=KXZ{AwXO~x2tnK_{cE2(exudt1(Br@8e}b;h^wZPHtM}o1(NLkoNAPbh
z2d?47)XmeQp;8V#1@>*$Bok{@+*cJQat-sYJM$?$U-3qm2s;#S6p=Bo?|$U_HIw0;
z^(~@Z0b1pdyqe?**JHJIJ!#98dc;2~SS+5ph2!jbv*?`hi_^QHy4@Q9)ny`1p?2-C
z&5!vKF_8m3#=bE)N@zpL@l8sBOu>EJF-$Y<#PzH~Ye-M&|4Rj2yZkP797#D2-@MR0
z^R0Xu*jke^lIgeH9R4knZ49gu7c&B88#Q|VgGz<%1>f!*Kz2Q+#yy5D6iQyQTE;LR
z#|jt9F&&sL>Qrm1`!op&Ub*kit2MB$Xk0lUuspU|g&q#FTtre#5$zTURdTRV3{>tF
zV3<=>*CSu9gi0CB5#2cd2C{3peDC~<e8Ktc%iL7=(P0O@zxQLwn2U%?oBh)jg5xEu
zUzEK6@e{$An&*|6h|JG<WT{7!{hmJZH(x^)M#e5(8ornaMM{4n(D6Q9`@IeZJyw3x
zWo(Z>J$|HRah=}@AW9)nj)6G;q)|?t3ZWwp6A<H$mW}%`9&DD5fM5{Sz$JBz5g+k3
z*T(>rtv%Q>lrf)eYFgU(1n^%xwTtuwye8!lv?@VqIP};+t{tigj81}nI&a|N=HYQI
zF|Z#>6dypVl0p-!<%)-!+u3JSODYJ5CrdAJ1K5ITAC#2ZdOB{0cib5g%j0h_F=uw@
zJ_9pnwD_9v=>dUpm3r;b^Ed9E+=+s!M;8qq6u8VchId4FSWv=h3kPZ!CYVM=*SsR1
zEzu4ydV^?hzS2m0hc{l`Rzf*NFO}eS&WvB=ZFb<BZd$5H4}T-@Wz7sagNy~nZ=-Th
zJ{oKGg+@-zw#`3%G(BfEq+ef|5k;k(K~B#CYly%&Ija4Td1BL+6#t(b<o<>9hXSGm
zpEDb|Cj}ODMyO##lHYzIu_HWWnZZ^#fI9a^&AzCRKk~2yBU1|r@hBWP-Qk5R>);vQ
z1#*RpkUbs(W77@oOu$22VT*5v=>$&F5sT4w6J%u8P?MIDp4Hyd6W?3zDZB-8CAVzU
zZip2ex9{vZRnJUG))-PKDK}7i<^Gf8q(#r0CaP;x(_%79oVGT{<ad;GQ|L7**f`_0
z^&Vo?HNO{|wh<AD;<j5(O!C;6B^OksRRqxilN4Rx_GsmCL(-Mg<+$6vHs2RZfZ}xP
zX3VaLhGtJAA6MUU0%%sD4SxnpCM=&4XPPrU!-<-BB92oU5=3PjzzQF)pL+g!`_2sh
z!r@yK>(`<KP8=7vY}B&P$}HrM>2b_TEP2^-?HwMPJiKHQ0~Fe7C7t>=eE>fAYV7+$
zWTXcwovO}~-~%a0f15(>^ZMaow69Ly)r@PE$(v5bWMuB3E9FkD+mfZ)gYS!tn+3yj
zR<%}OM=Lky3{sEahzb=zIt)nhCZ=qre#tr3;cdQ#8<D8jw%KsdlvDHgpo2+@`64(z
z@J#zJc>&vsT*q)+`7`dg&DS{0tc0FC>n7!}N^O8v8(ILl;F12$g!h}!cs?e8FU@F;
zYP=XxX`qY#KAQFn%7{j<I&joRw^;E#!&ZK0zHezHm}a(Szr=+?3kyg-_Nc#L)E4t$
zf%ptL8hgN@LcPuZ{*agAng!WZytRc`>CVU>kfHGk+(>69xo1~SBT&q0WmXFS5Zm6r
z@Uj@h^dEo>SrMINh;oL?W=LL|zSZwAc=06P_<j`nYJsB$Y(8y0|GusaHwx#Q`V(&L
zU$sh1)`F*oFwIZ(H&519){g=)Q_mLla7u$v;ea|_?b7&xo(lao2TbR&EOm9ZEAlrs
zP7S--;NSRRywm+Py383zuiA3x-EX<I!F%WolDF1zIOU^P#zNgfT!CJ*)PaFWLFBaR
z{C2?UagE`Wo-Oy`A=h#7jrgW51HEQbsgl;SW@StJhAncx{#W<0{R>_v9`yF5=FhwS
zO<+%*02U`S+<Skvc(QezKixfe!IfXVt=8=}rpQonO{d-|+HFF7V<W@1=&JDw60v+N
z1}R_dPvvi(zwC<IF*Qu8qYFRdQh_V_uz*c>6ZNgg)x^lZ+}v!|i+jA`r2L<p(|Ww$
zdA9I?eiqjvT<rSB1~=9b38h@;Ej6&9xzXsI_jPTt!WP@{2uRsHWY_u?H}_9VYh8Y`
z$8mLjmP=RuhN0U07h093*WsSbLOZwP?_OII;6#iUC!fyO<n6bWykD#D6EI54z*Kdr
z{aIXg<%yOIT}{mEdVInx>u`%x#h9zhtG-7@MPktdr;WG2iw{2<O+R<xvh#b>KD5}8
zpG+K&f0cjyE5x((-g|+#R)tryQWl5CmlufX0m%8pKI&pl?llx14^c(5bpbcuJ8)*)
zG4w!u<ZJIDziW+Y`smv4oZ<R>@r7Ss4ztkg8NZ8BRs7qp1AYv9;Uzy+rF*BXw_6qM
z;O6|p7G@uuS$<tU-b1%gA?Q-Epy$kCajCmbnDt;i?fqHo?e#R-M^P*I<TMLqX=dU;
z*q6IhOD2d!zVVYNe8#4e=!o9~Pe#a?WrNFe(z20l7(Emfwe$$r3$;Q92VrW5wAmKu
z$45AK$jiw9hj=oQXHIrD9}23&L`(obPQ|rn74kDc#y#uP+V1*KIKRbYUpk}3RrPkx
zNOzUv+N$_?D{fqW4L`0du6@lzu=~J@h?(!DB!dgeZNzA8d8AO9Qd`dPm1(9TcGN)J
z_w9@e^l4?@xRe*!p66!ptZA2PHnK2PC&w2AihyrI5Oqr8cDXh99Kz$<A5sK?(8ov<
zeeWw2e;=yH?_=6s#p&VU55yJ(XGZ-Iyk1)Jj8jZ^RmI$vm}VkPVs>Th<B67)ihA!9
zT-1REoAKCF+3L|5Zw(F%%wCb7m%Dnh%u8XmIi5==oJx*jU3{2Q<m!S^z4r61^neR>
zlDl6JxVdz!J??qU4}+`SONTFAFj>>7(_6duf!KPG$i3vP$z1y|?V@?xm%7nY`rQrG
z4Q4sxn<}3d+=TUI^KW~X*-B1a1C4WhI5bB}0O?t0hf+D-<NOTo492r!fqB%TKq2Ml
z?l+N9EaiV7qS|9H9_kAR8Z7i2Qo0iFd}Ep%NVA|<o=*H;bx$To?Z@ik2V$>;yW_$N
zS&zVI3MT37*@0JW`TXLjb-NqhSM>NBCyk#-jZ^b-X88?jJuN`BnGc6HnhaAewbV0o
zqfOU>mqID-z~B|qAHxTH%4B$zHYfY_gl{U*E%{s7IF)Fu^6R&^fndoB^BS`*QLa;V
zbe(tWA#O)#JoU9lKfkT-_t7j2SKMWG?vAOJ42<;l72UGj>E3$$LFb$Oqrl<#YV*PD
ztd?tL2N)~A+__4%HQUFr%$yCVdWIFbt83$stFM+k9^F*WAFrM9a;onBI}<yfKX#Wy
zm@<3icW#nf{Z9F--05c9iO{8nOYu&^dEayb)b^V!)v2+?x>-G3aMBB4OwAe;yP#uI
zHy<OoF?oMTpreK!m33_DO+t4<tiCsgaJ)4>2L-K@3`_x4cE_hx+XpTltrfj$nzcab
z*Yf;zHd7-g%S#b~+le2DXbls=+1mTF#Qk6Qp3q#zwR*g;Ll*8Cj<TNr&<lN;&+B@_
zDgz#>>+Gl&!JP%Xg{qHon?GjzN}GwqvO0Oj^6P~+_nm|busQ)>7DMT3xjrs2=F8=%
z4V4(J9j-y2vNiZ_s*B0KD*t)gCvGTn#YfY|^}FA;Vw+_>{~HEXAHz1RAaY{kp&+sJ
z_OyZgV{?>lFH?O)*V2Ps*^o8rOT38<!hj0|1ltXd4%AmU=yLA;jBxTOnE#9SXYuFq
zE#7Rt;C%d>vXt!n+f%&Z0?4yFH&FPuN=H8{w+UcEmKw&T0<0n;_wY>xtLJ}G<{zhb
zwm`-f7`GwSWwhJ$>b3vcQvAMw;EaD#^~W&(((lN3@TDiJ=hdc@ikd&zp91fTdr=D+
zA>q749}zeZl5xe%J!=nf+$f*I5QjaSes87!;jb_E;u^{Qu{h@&Yxndrb84s?nD?MP
zva{l1D1}IMJ3$@1mw#5|@3*gvT8rLXJBmpV?A*g1$=Dd*L>^96KUexQ6-K~V05Y+)
z3dqEO=2c0y@G85kE%X6o5&)X*Z|mLN-8tFmL(wwxi;z4uCh10f@CA>v0ltgQDzrx=
zp0O>(>7ZJS?D2qNt!p8-miR#zA*=Ng^cIh`pf=*?Tv3rG_B+`?n({s^`%-26bfwOC
zp|hE1KCW4i-XU((d&lfs_ZMv3N6#PfChu<5J$?AcO}B-0l;+v7jhv)bZR(78FSYld
z+(hL0m)Z+2BP*R74e+8t0r3Gog1_E4bX~;qqbNl*#K#tEX@>D(B2sqo7IzKptB+do
znn_$Ob(Y?I_4=-!*5chd-q=jlly+@c(B(FOr!hEQ=+<{j7O~C(N>0_cx@i5axTeUp
zN254@O}~hzZh0bnPqk9Gr^m*g*I8U?e0*XiTrm67&k{{y9)_OE`O%_X^1M)4i}<JY
z%Pu<|?Cay#uO8JFD0zOaXf!yWtY|ESIc9Cb0I_cS@E@zqJ4GITf)zE%TX{3ARI9BQ
zN{t7uUaG{$F3m%43vZMZG!>|{K}Ld_w^F2o9?}`TF#jhX16t~8n-QeULw%D*3!n-P
zy07UyIYy;mBY3B?w!e&gs`%up$P-etC>zye9jiKVMLu9w?#F{u*{PfQBiaf?<xgE7
z7AxrZZeE*c@9aE|S(;XyUzBSxY2CS=J)B?6GJ}`-1Id{gSEF|zHOKs53oS&SpS6Xh
z7dvxWwefWWj{}U4Y`JB9)~38ob!oe1GBR5GHnB5Rb^;1Z<(iB)BvELN1NSAZ^SgmE
zZ%1r+lp5P?fbd_Mt7e$REM1=u(HHChSJ}?VU>h0pmc_DB85N2uYhSF$h~CjGA<=M|
zpzu$Y-h8mR^t{%K%k3x3j@n$zhGGm6)PScMu^J<3Y>!M|M+Z=rN?E%I^&_IyvZCCe
z^WYKKJ8pdweDjy3ZWAh^#kW^j`p&Z(Aqwjgm*)~%wY!dQEm4R?ZXMWKdhuC%^fT!V
z@xTzqpEP6TyjufoF)E3GrnK-1ylCR%@|$~)MX`Nhdb9r#Cwg;U8wC|S`2h=(_R|uW
zl}yvpg}k&0fSK7bJ-l08^R?VN%!2C-D~gg9^Ji;a5~lBein1<?EIsn2Ql#Bp#E4XC
z4N#Q&@Cdgl&B#!<i7L@T?lmm$&U%RPN(bHeg;&^Yq4n|mHdX7#*2ksZU`Zv<LJ&rT
z-;^KSys;j68EPPkRm&9HD4`VXDEj!)1ylwEW(Ml(wP_Rb#6H&*5HS7|%VHBLPeUs4
zQ6rUs7Itn2;qYO#LsgSydeg5n=KNKDwH6$Ww^`(9v4!Hx-us`JZ3^y{N=*7%N_M?A
zgaS~f)heub%^h=?gJa>9Bo$SiCgr+4C6v37lMRoeeUZPC(8k2RmER&2Z6S#ivD8le
zOQcH_cL5uw`w{E<E0tP06SQ{T0(D(QS5?<1sYhk5jJJ+u5zTiEPOqFGsaMCQ{;Fh+
z7YP`mZ&re~MJo(I^GnO)6UO$vh&q>qS{t{Y%eMVLE=0qlkqa%4s_Pd~?>hT0Mr}2|
z4V(!#GNVJ?H6yY>;wWlq6I#-QjZQm-3)`H-R^Ip8>EM9}vZ>68rYy(&!M~p7SY@Op
z(#(FTos8|1AMZ<a#@yDDY+>Z!w-dGoqH!9UnNWyOB{Fgx`U1~Yt^O$1Ht1fgpzQ3y
zOVs$mNT&PGuypp7xGYkgpH+{%GE{8(TKgVxza>B94H?`1(XyG6$+B+9k%!@Gc{we^
z)`*ZJ5ei=W@MnpXwYw0hW|dd&WF6FnxI*z3bGvZA-TIW!pBp*-Br#u`fA;5i2J?GY
zMWmU@QafFP-^!V#cHUNP_1D;J2{;;uZb;IO;iKK0KBuJRZdaiuA0r2zECu5@@4tI!
zR1hh1_~9Q~FwmuN1#RD!a1|nWbJT(RifG;U*)z`ypjBe2;sg8BfmfTG=Ix?273ZL_
zi`!^Auj|cP#3+Ji7(4w0M~Mju7qMTN`Q}@rxVqTb-Orw1c^r^W+R$ot-ozi$%@;^@
zkv4ZZmhI@1D);&CbVRMq7>uQ)Nc2|uTtfb>t3C0GNI5voa6S&eBd09#;=)TL&VnzI
zKPTtoB4#H3@<!^>n&*+sRkLnpMD-|1?M=)O+TG3VBPl<tH*Etb1**#(Z5OuoY<5Ff
zoejCYI>enm$XKLa*2m%+f}3p`WSUUp{J8iMfQ@SW#<$t+*YPs$*4KzNcXB>KnI!(i
zxF@d}kfZMC7fuV4N%*fEf4^lQHSyBo6*lR^osECe5IWSP<IFUc0-cRv0c;9N&zoq*
zfP3%iQk<Rt{HX9V^qK+;*Wvwq_#6x-n>vrep4}Wfy`%o{hjwc2v=B_XyQLEM%?MSj
zR%Y17A0~3F^1*u+F@3|$TQFI{ugcK1bAl)7Q-tioU;E^Wd+yAHcbh+kv=uZ0LT2iP
zY)i)2CqX*REI7OYI~|XG#(v2&qsr&iZ+V{oqO>c|aam|8c!}NLdfK}E{T3F597x|p
z|Ka%JlYAb5RHmZ6Ho1+0HZ0wA$f4J&_DpYV%b?mLj<WzW*vO4g&XtZ2k;j@)K%a<(
z=LdzFbp&R&GbpstJnfe_p9iBiMPK~V3FYM*8YF^p0aEord<W`F-lwH0A?xMVoU_Tk
zyklN!;ol6}wYxfR`m7w!hXo&RuheCjH`N$}!3rXBzGUYUPoS%dF1=0pNjPbpWhM-5
zQI7R%6_7!8>T(A$&HZZ6f|8~8JMrmLBTX+XVsE9(g<U!QB@yiTS=&TtA`2Ip6pe%G
zrjU>tL>e$E)aj^jF2ndb&%DBw`=IzWuNH~$Pau*W*M-f7$C*Ed9-<v=rEg?TM&{A2
z9q*O?@qMTNG`96Hrlz_~{ho4sjLf{}(&wHjCgJxk$~70p+*sn`s>kv~PnHdz?pLvT
z_Wju#m8Yzc9|asd+Kn%#ZDxA$NDro-s4p!2Qh(XFN4(CwWj3;M2xr?iRdA+wWHF#}
z1yH1A*-7utV&AN9ev4B!LRy%gl7llqrH8cnYU-)-{M1O#MT}<DM*ZPMbJWG8^OLh3
z{VDvNhh3*R>yqpIhaY(7XheB&p(?bsGvV4O+&z>S`Ig6Z`dpb$mUe6~+S88AoMQ79
zw0p@>pJBJ$)S&s^2mKqx&VyrX)kOhY>m*td?Z+aH<js*HNsuf!&2#`StamP!oQ7xf
za?f<i4ah#I-aS1VUcFkp>Skv4ZCa$}0)Z6>IkXQs*gRW5Bk9;DZ8>TzdnCK^RJU7M
z4hQXQG}Q8)dPp39=#DV;Re3k=W^v(2|Cx4yB$Xqx?MEk7OI8rJXG6uPmz;@LWAm4V
ztMj2xxwNEgy)Li58H?OuC*uhw9)J8ve83am1w1sf(8j5S!u*sV;K>=tX>-p6x00Ji
zA?g|+ov_^T@b-?gW-$n%W}{#F3;Hn-c8=Z*dmK8&CExOmJm-$&#i7|au`QAyi#O^u
z&^a2Ui%AlT3m}QH*WW4`Z;)&v8;KyvRs&C3oo#<=4w*bv0vX5B84U~q1+O-Z`8Icp
zxWn!5{brY$n^uwaV}C`BSok0rrpWuFeu(grE`pbse!Qy!lDvX!l{}ZZBwkI?c=vsb
zINjU0z-{R#`>Ir|WFpQ4_6A`ov_;mV><6N6a{u~O41zN$DiBY8jiQA-i7J5N4wahz
zh#>dOVL`n``SAKdeOgsd`Z0My2J+|i@~XQZn-*{7s$g-@??#xY_e<ZeMUK}GJ2UaU
zl=vh5)XSV?Q6N0rU43Ia0nLlu*}v*J_<5p*E>J8GpRnm@%cm|zZl*DBxVJ{Wt}_`8
zXo_t1qFGPEj)6Z)qCvx*dT()>blMr`(6VnUTMvH%N|W9D4UCw$dnmdz;cd0`@9#Q7
zAO;B$;t1zn9y2_&dDyv;X+>Sk5TwH3$>b~=opN*kOS)Bwxi3^j0=u6v-ulO2Az?C*
zNbZzbwcnp|m3lC#ZZ_UJ{UHna*4aUO{Uc4Ddft|f`)4RTC?^BgX>S|s-PLzgAUZ|#
zz&gv|eS%3~Z(tW0o^0Ez-Y12Xf0}A(oZvC|;odWE&N-Ua=XZPe?y+r=X-;g=BFKQu
zDcy0WSYYz0b%OZO*2SP%3U`7MK}}G*xl!MumSU8WNNzNEk?>idNO*Uhwm<wT%VcS}
zbyL}3D+9!wWutASwDw7oYwN~c<kO8S*)$>85+YL(xB<+~jo%_|c2VlwNXcZ5*J;yG
zV4#1Grpui@F}xo1IDHZw|Mz9|-zEdmRLw6%cU)5)vFcV@V@?L>{y%ANcbty>k++|p
zd*|{YEA&;fD(O!vdq<74Y$zxrBj@wdVCH_dP`HKe3DLAycQVgS>fW)~6VR&-(dcn^
z1By}d6umg*V)hcsRkqxSdo2McrumzwmJ$gKfk%TjYESo`$3^V!C@#$)8FRaea&=I8
zvNL6XlasbBfzoGA;Q5YdjSJ;m_YL>GokyuWhwrr5zaF?4ltrKm<wTODP`n82(u+&o
zeEhe}Q1Qxb34acG>W_r39gj|v4p6g_AG0usZL!)3UfM^n{Fe(k$PYQw&4udoo#B?<
zc1;WO<GM3xLtxccR#e}UX2ccSh(N9-y1~o(T;g7AbJY6D170+%7v}z=D%d+ssCa9>
zljL%#`RjYXgJ@E;)qc;jyN9SF=P%HXH6jX6?frkeGM}KxrV3$Mf%!^yRauZQg^l)=
z7kj^ovqiu;(jiC%a+5nzPlQgHP;Gh+ZV)_!EOi}C_AU|+$HfIUQxucsWN-KF-xP>G
z+=4z>L0eK<Hakpk(3nzUgbk~4>#<E~svBMOU-Jw2rcbmgi*w9NTe0fZCt8Zbq{B0d
zYkmVTpE_34-2w!R8$a1ZHOHQcc;TC-@qQj#y|TktLMwf2Rm7Pu8n=W`{z{EH76+4$
zD`EW2wo%ypTY_s~z~GI+8O9GW5TG}Oa`~kC+La5S(&~OLuJyZgu3d%}A2@UF8uyT4
zKq9CTcr<krZKnh8CLOL%pxrzlJog^bTMXKY#mSfNq)*%oYkw<zidO#z>A0l{HXUxw
z$Y_vqxxV0?>Kha@v2Ky_wF)s9d{oOzOCG!9%@@_pW@&n8ljl5xAz8xyiVHQXZ^6`L
z+sH4*(Ipq;W1eM~xl|=vo)lAg>qHkQ@#Yz={*k<Hrk(~^UlrIq6Fun|($V5P(PUAv
zT~fAbeaH$gmKlL#f(v*Fa{3tNfk+YaesIaS@mteQo|Fl9>jhi^)yA5ii*3=s{LIqp
zF+!;sv~_eG3vs#w%;P6(R$nnH>H#gyhQ8YrqXV@(l>E%KK%OO1%h|-8he~By4ZiRr
z(H#Ame5dP~{tGzK_<a%kS30f~p;b9i<1~c*f^U9or-4U<rf|6(WU)12umR(*?Aw2O
z>R|XtdWa?nfvVU07VF}}p37Uasxz3ATqZ_38g8lZ!0()yGano$7@l%Zx@NYGXX=f$
zE(A6l{CN~cEGP*=FXH*LYqDH0=k>#9NSiniu;eL}+98Zp`!-?Sqv(S|zNCZWy*Xd&
zNy!e0*8b-$qXP#jIHl=Mb3vSm<toEhRc$-)1mpLcGg@xyKwr59+~5E?v@LpZ%~i2j
z9&Ke;T*WVrw&2s_r3YHtvD-_QqfIY}`vu##E1uVHP4V*t3qu}roBh1=lYlB7Yzv-s
z)nxE8At%TlLXIjLM0L-qkh49UlnmBO@>sOMTq5I#0Z$JPbE#|v_4o)yA!6vO8rPQ0
ztN#95S>PKCQ1w^c{`{H&rVPj$+J7_NXm4$GHV<=AU#@i}o%1KverXvQ_7WQ}TEB)Z
zd&7n;=Y4MW7L`95Vq9?hvn_-kl=@s%m0;=F6jv=oBDO#GwzlR<qcCV1o=mE3vQ-C~
z@0~0|?!dlV?8<_rKB64`yB2_?=G)w2MmSorpqhwZuB>neiq1X!C3pnNoRZP9BIE}C
zcBBgM@hw8(oYb7rATL3O@S0`lvPcaU>g+4*gYDc2E--}2g0hMxfwGZ~=V!<iQWD#;
zgJ=9;{PM80U~ul)n$>C8N8yIi#nF!}v*9A<R2&RnYFP%#fg;u<Eo`R01^R>?bBdNH
z?AG=X8Z5&svU73<_J@f}*>O7GfiI6u+x$E=HL;dRZ;EXh&EYm)&4cXtk<|mv+n@*7
zm1&I*r%nQ&zRR;MjCI5tyGrCinUB6B&!HjhW~u2mdmykV3m0~>Yol+51#QhnD~;B2
z1u!ILk|Zknx^7j2Mc=|=Cj_p->L=OWJ=+R*eintXxEARWcvMUJ`vsAjP(_+q+=9Z4
zH{r*GO@9&G5B6^EVicTR>vshygP?BYqiv<-DGs9VZpaRPBfKThrD{-~5a3iNSENC5
z+1kis@sI1>iN0|9VA9>@!eC1ZJd}OF5_5<0CSR0MDF|a$4my0x0sM1?W7*PhOVlDl
zB;YPgES==`{`u4bMlyTTd^aE%!CoTY##13@N`^-CiCF4QM9pd_940)}mp8(MlZtaS
ztAz+u)d3E6MXyP~9`UnZ^DMRHu@(pK>~99)A~OIKvo!P_*nf>kBn}k91i_S4S=BQP
zrpFXl8$iQId3t(AK4X#>u360ovAl++)*X%qu+KK|yd5&#%(Ri4ti-Q1Ie8pB-h4}x
zTNCs1huz6Be<g;3TXh(}Qd4<`5^ESzRIc)<9LH*9N(`;8u!*pR77HRMRAF*-T+3+7
z)WpPk-TV5;VkGHsl9d7*J((Y=ld;eC$cw{B?V9rfSX%xhuOBV|14xm7WZ60SqA389
zSksks%;#izpnF9u+KH0u1n70j=pb%;=-1dGT1Lth(fvhgN(n}w`uhe3(0`#x>N0BR
zbBwFa$KvRu&t*-e=@Qep3l!@^gaPt_HyE7vfs#Wd$5&;Y&wwYIUbb~)Q149zB7C5o
z{AQST*gItH_M2W%^Bdtby-=IKk053lrb()#)#oJVfXcpgpz92{2DG<ir(+wOSkr<S
zKP=e&dF!JEZnQCOk)O0RWcAPsvjzJqrL*>?<K!SE>7P?y^M(XY0Mo1-22uC6V~Fbs
z6Ab)W-+&0qq2r?yRXqqM5}2VXIlmr-jrmLwU3beIN~2cFGq%pc77ZL$^kPte`OTkO
z-@$V5468S2zJE(e^yo==wNXF3z}wNG9nl$si?fo29jLVFJc+_cbaV)x|4@8McTAh3
zh@<0Hjdf;A)OWr~u^UkP#!L~%GGqnowIEesnV*>HE6oS;kqu3r;0+a9Yc2wWhVD(*
z&jv1>ij-~ZfQrR5;Mb77(%=o&0VSpbuC(wQ%onx^tBx+`9PS~*&?Wb)wlTg3Pe9$J
z11=HnC*@E!904hj1&*m4h@JfMMV$|><{<U&g9&`U%zP+^rmw5JyL9Ws*2edH4D!;t
zcQ+*m6Eyhp16CtST}QXy;qlxr16Hd5oh<`7N!@4MPN?5}S<BFEM!i}5d7V_URU6_2
zGvPVoG(uR0@<V3ncq*ho3Bgf%&AKYH8L-{zNjU(g&*#>&B1F^Kp-Lo2vs^wOq;xNW
z8bNX>mYl@4U=276W#b=C!EkeugeWySZ4_y4TmWg?bAC6ZjlRT8eK7ffh&i*O*9H(f
zRDA_|`4EhNFA3l5?`hTofy8%%U9)KVYjF}4&w(UA7bcQ)c{t;*HwSnSZ)9OCK*w-}
zNRP~5|6$7tr!W~jD=-qdoCsEseBp1mT2<*w<SR9$4+&qtIQ&d+!~?ebn4<LZiRo|;
z`co^XqUxSyWKf5lpPHKLi*Ff4AGO?M?4Vj2ibQT3UpL1fX4%cn+rlLJH>!CC#A?BZ
ziv%#tQ;&7uR>D1|#J{#RjPKa3%67LP(0o71;jBCukW|C`3}U3`NbQFMkOx+&{ayFe
zut*IzJog<yt{fV)L+AG%c?-6BTs6j;qU`yPJVdx2%?;PE`BQ`)vh9cU_vC9cs9$Dh
zpWA6wVhFd7SYiC|s=!kfdSDkv327oV?4U+ph}kqZLl>1ZcSp_>I0^%z9&MJg7?z<8
zMH+i;>F>eJGw@g-gBZy1q$1f<pFCiXLj77eB1uOr8f-ePUp5$W?H~&cE3}=sEtWrO
zGw!^Xx%LpjCXr0m_sb(WIVANqg_k|pj&>!Q6n@l#)*$8M<3h$T2ypS+v-Q*9JZYY>
zZ6+78Jpj$C{f9OW-cHTQ5$5`Fqlz5poSj{ax8iAdf@2kiUult^L4AA;$E$_w3WKai
zTSxE|sB^I<dSEgr1`Ak**zBH5U2QvT-!>Bmg0c@%QKIPzVWfW^Gj@Jm%!@&NG14Qn
zCss)`4ok}uY(frRn1$4b8Ne5u?4&hd_x#*IqnW_L8z2MzC3(y>Zg3-U<26(TZa*JD
z`#Y;D2n~$q0LkEU3z=7VZC?-4)4E{g2)Fn6X4sppKQ|=?AF>REF05@*A3tYW@?fGX
zQv2d`!3D6o0ghmK{64?FoD!~!*8RxBoqBG-{R1sOhul}ZpFCO%?Bn(y1;C0`$X~Mx
z5C3JJ;K`sA_@tVLx7FLiL~My94!CW`54?mtks7pC9`f*4`UE2(Yz*pg)2#r$U`EIE
z>}^+YXV}4TO_Cjl`5Q}ML3ZfEqz|dW3RB?DEC8}WZg{1;7*=@AZ-Og_XORsT2g(ZA
z2L7XQf$|5WIlUyJsXr%>bI1ivqw@PBI4{mbic~Rrk$J&Xpfw!~!gpcKuW@wI1<Ix>
zMQV1)Vkmb+ZJHC%?8f-`TXNK2_b~xiW*PWQFw+hg(UH(fjIp5LhSAHe{98XmR53s4
z6wqPwl`trkczq|(0d9s`hX3_9#t$~>8KWVL@-U&~GxG4XYCJ37MiR_@DLohLjC9tm
z-zw$$OTVGkPktb_WweV+%Yt7_GHNaEivRWRSUuM1&1JZsDnEJdD1^6ourvAGL!EUm
zEt(sPV0SI=xu{}pG0dUK6lvrGNl}nW=0jBl<m39(*p$HXG{1eWV$RID?1t1~D;+wh
zP?Gb^4Ck$7pZPvN+LFk6zt-|V6U#6IvKE*l>!Y%4Ur+r78tVAL7P6Iu*BACtZ^{PG
z#euih2cBV6oecIV*#9Xit^HLrvgXqR#g<`CBzkq`P|2O;=b)Xq9*S(!TnDwjV{@|S
ziFm%of}9w1T~H^s{kXE;4%}!Gx%*cIS{c4P{c!Is{~5`st+-bBWG9|ru^`Ep%;4N^
z!F??%(iDg5+knByIlxm9UBB}f`|`-BZ=g0L2}eo(@rfpRl0j&%3yK_<mrbGM)DLjE
z@LY5bV`qelKddD?|Ir(4I-b%I2!7Wy(q<w_;f(EF*`B*IVb4V;S+jcEnwL?bLJ&#;
z+MtV)M^a@{C0%nkMae;zplu~?eSDQ(tB%JuM4F@;SC*Ik$)8jD*`;sn#;W2+f9lG1
zz6csh(<q<6d3_*vt31$&JcWE9BgUI<4zD+L5AoIxrpntOP<OjPd6R*!JUKO0Ve_bb
z7cme&Me+_bJBCf9&#%eqBb{~Jx3u*DE8uI>BaAB2IK@pw?7~V-Ob}*o4^1pEOFY}U
z>b~{^+-KYu2jKg5Y{Lrgf(y3SR9&f-2HV@B*y`!E`s6#S5A1#oLNiGvu<Az60L1{=
zHpikjTM9%~p4VdeJFgVoFysW8kY0MiD!g^FOUnlbI|$(fG?{C1rf0khSQd0;*=DRr
z1bbi$ea2ppZo4iWqQ)gm=9;E~-(VkP2vSeUwTQn#x;U=>$>zV|58f=_nMrr`>uYpn
zLbURGsW%x{XFISvcNWUu#0fTqGH%lw()!VPvCioUI(_+1aD?rT&4Mz&m1ir8VrpRj
z$sJ#b9^9GXsYRcQe%f-+Ve6puy?WK#d-oz%O_$Mt)vy&7e*+TsX%!A+*70r~v?Xv~
zi3=Fw864G5!tJ3Gw$^{?))5bBrEHW6Og*+HK_~_~-hv~@Yv`HGs$WaSfMqC8)yR19
z3KPiXCXnl*=7VDuXcCa_r!-CaF~4_>X876Y_sL38Edzsi<xA=kfc*MfxU=fYChuN=
ztMfb<Eo-q~ntt`f9NXYU+>Yr5&i8G8`F@3ErqBPzD>bWdWnqNbz?06D&XUfbnU+yv
zSK?{MS}1)}H9qZOCgXoC6e}R3Wd}C}W*%EVfF)~_36u37^rMj${A9TY&BPm*ryi7-
zV_OZ~y=c^aTRIw57fUA8;ZRJ8+?VuP)D(@FRm)@8+n97NhYOws6`chOVVw@PKiA8G
zF6-})o#DK(!*QM3`Rts=;5<{$m&0cP{yO(&;a20T=IknZuphg(CoZ-`9!s{vuzG$j
zB5gV%xtt_OJ!oYXfELMj&;miyHWmA%k3xdS#XQeYLpj6X>~S&Ae(%xygo`)B!WEe3
z3SoL!-ST7?@~L$t6l4lL6bXR5qWs(m=c{S@Wwy9?z}J0tkeZP8R(Cuo@6?Ii-F};0
z6(VYpQH2wEdtqNK4oE+?^~2^9tBa*1C9PG|6%3*}9SHU+U$+p>K56<s(&0X546<c`
z<;3k1%K+Y&IHN6Wm^;Wc2vN6sZ%<E^biovKvQ3tim!pqaZjxH%k<t^WU8&l(HN6v%
z#_7LZWBh<RX6biu)h*0r4RlqzU0S~9Y`=Oc;^{0v<3DxNp3(Af(3vV(^~amA@Ccw!
zFN2%ItKb2RpV%It%2$9pqF((YY(D;GUWr8?xc29$Vdj=W<QbaX{lJKabBdsk!L+l(
z%G~5;AS-a~BPnZR8iv<_s%H6MHzy1)nI@<QGRLaD<>q!IwWK(GWEqW7dpoSO?j@hg
z8`~haIP$_NprC9TF$l($yRfkE+f(JUyF2!bOGQCFbjDdlp^JRqU^_vRU=u_aSQ_fx
z_vM>QEhoPoYnEScE<#j+O5WH^7^mZe;0dMyw}tT~rjMQ{la9yKX~AfBt!+<7oR74s
z2T})04vN0qx9U4+4ba!m>KU`LBnC#s5-VIH3e#t1=5MRETtq&4FwyZ;jhAF@3b0*^
z1cKpzY#GL1!y?Sy@^BADZ_{{kG0X>fYbWKV2gBN$5g{_@vcdol@f<h~5N>QJ_W*Z?
zXAKK^Qmk?%xb%}yTR{zh__=-Z2B(>{s5(EgbU~Zstxu1R(FILn5Juho{Z*q^TI@?^
z1Bm4<5J;{RMDU|zQkxoLh4Hs#k2zK@cX|_6XeS~Ow&<NwzqJJ`y>GPOA$3n(IohhJ
zk7=Tf7Lbx8w-P*+Zn5uK;80rFqwTKh*^%#bJdKeeM=bj;wrxY;K)<xIqG(kXUY%VG
z{aA@GO-Pt5TZriZmb@sG@tjb!niSd3yQS<wn!s#f64(kIY&taGD;2oDni?2*cEh<S
ztMyGnVQvN4grzjIc2zl5G&LG~;)j%|zd4<?w>jHxdA42b+F6y{LB<yg@^Y6dxZ3m@
zmaog&!~3o@#PK1%*W9ot>EB-Qy&TXt+x8T!8@WWAyKhzO<uNa@b_BWHa|L>yMsC|3
zh`jb&=3NZ;Ap_#5ibyrZ03@t--*s>3s5==5X9>ic^OtqLjokdlqrJ>$4X?oTbbRsK
zx4Z*AJw5~%20j$VEKVcYUDiEy^OZs&>zSgOcOEsOa_|}|Lx(U1$a<u0P4|_G8I?G{
zg6z}K@{=Uv{*;=0NzxUSXnAp-$|nevZWFx(`4(nkVMJ%8*dP||_MleVjOK=~J7V#H
zt6nV&*2t_<D%|Idt*z|^s7xki5PE^+Y2hnW_}>+&iM-F)Ur5TEk&`G=--DBM2D057
z*9I30IXqjvM-#hfO{J4$#D-DX?eBpDje*U?(&(aP9G7KWQr^wD5IW(CTn5O3)lBlp
z6`C^aE-uOiCexvG%jlPRf)8~J-+tpt)MY)im8m2fFtLCC{+YDwB&jxdp2j;m9BjX^
zYr=HdLPCq$+qQ5rK=mxBZiPm?HYxXTK+d%@ekd*E(A#^Wliw(5DuhlfTt6jIAL=zl
z>$3D&WrywSzOy;<WX?zwrh*y**k^62QkdlA<ouw=kS}Gw0E{s=!$iV#lz)Fn7JNvH
zbXHc@Fyn`4GHAc;g>iPq6s>J-qIejGFvJt=8b}SZmFM1wPaNukclm>J&()MzSBD&m
zJm_cv#aZ;AIdLw|y(BdkC`Kxjc$2>8D%i@%e7W$Fy2)zkX+<1cJ=qecS~Y0h$e`Yk
z!pl%bZ}IAiDy(PJsjtLka`xgy7;FRb?qyQ+vce!3m=Ej&bcEV-7Gk{UQ_IU&CJ%MM
zK*LMdiO>v#lylpFHr)*vMjcJq0G{SfA+xfAjpmE96&zpN0YOokKK%5TYHIt#OL<Zf
z|Mnc`>uOH&Z*)`a!_ir<8mp8XN@V0Nn=MCkzB_aA)<ytKTWuh5?z+=_KRM_j*d8o<
z&@U4h%s&D}*oKPTBz!$s1Nmbm(2rRWFxi<!Sxp388TpZAfL-xxC(H_DmKLj7t!R27
zg}mT_*j0-NTOXOe!>xMOFb%AD(ZW@yE7R~SA0fP>E4YjDw!M9M>^-6csk_o=aDATZ
zcg`U>19k-;p`^M^@<>T9>qvN~IHiYf&nIa+JnB3e_zO{ocWnRQd$}ia)X@*WjVQua
z@%i7EXwtyA@7>SB(cbu-%)^NDXej*7zVHPDGve+wZNcZsh4%g(&-h<H{AY3*WfU;J
zCQxlswo-ke#FJH#<`Wj06gy6HW`R|1?1M*!nPT>Vh$Mv>p$kkFe^-vh&PP>uIAVnW
z0Cuwstr6}Ku7U+l)>(HyK1VtDMK^7Ua3kUMp7=EB^6jYHUR^0+Ea6_gIEc8;<;*wN
zy^rqr=H{Pt=cFBRJ}_#f8<f6o*nEaaO)R+zc?y{U)DDG$Im-|2GJ>L|c@$<-6ou)9
zgt9xwobq4;5ZW*^2$utKtjypD#Gsn;dm@n0ZH%W{nlvYt*^pagY_Bo{ZKVlt&%$rZ
z$^`?|kGosCS@?7U&L8mzBsJwwm;_V!F;B2%kbR(KkV)YA0xcL%PxaS1Xd%!8L2yFP
z9+3<Sm<vq!AwKp6n(kq;HNWi%Cha|Ihe`gDiBf>c*-Ysf+@R7eY#kiF9U>jNTJRs_
zDf}p<cSyJDa=Y?o-g8<W(?eIz#m2(8t^tORz+htrvJ)K)CAh+a&~`(!isI|Fv&W-&
zdaI~8{JYFNIgur=V27A2D+Gh*LV(q7CB?gW?;MCnTSKRfmzMilmd;8n8R#N&3AZ6m
z&psE?Xr1O_Xpc*?F-)ZKD=0I+evl{F(BTweHmY}0k*2E{EWb{>(Qos5P{jU7t4NJX
zdPak?zyccyx^BDCi`})=YQJnXr@0fmb93uB(4N>(`a;yrO*u9;Rw7;Fbu(=KopFoO
z-kPi*_33+Fe}_Q5yYQlk!nC`uZ?l~r>-VkzNc;Q2jO-JsDc0kBpMa<nP@25Y7^816
z%RXKL@v%+V;X!YuVt|G%VjG4@fw7CgT&dzK=aad7H6_XL(4D!KX-H!li>Rvy*~-}_
zj>0s)h(siMdu=G)ZF-~4Zu^1fWL9z2{L6h|R!w16KJcmu8-`Sl8%)#l9^lqaeBoFo
zQ11NwLsxi)<u-d~BdB=^Gf?w<zig0pC}TkJo$hy^tH>c7z@g5ARDj0E2b#@nHEF&N
ziPXF}e%4Uo)s>g=vin!L2{uYJbRnJpu=p+jK3{C@?WK#hl?iZyqjwS1nmL)N$!R8e
z$~z1^rpAKNj%0rg-<6_x0o)hGWUru$?e#=8<04@M!sG^+mDVNKznFkT2XNiybdu|6
z{F+>ANP5|r=D|2W_CUHCJ)7?z?z;~;s0`h_L$dxP2O!(9hGmvwyO(PDGVFrHa|znp
zfza6$@cPQ>JNx<%RXkE_^McWxMxa%ZDKd)d^RL|ZA8p|YUOUC<3gPrUkv=&^U*gr?
zZkQ0LM{Wod!o@T%!FD8y)SQ85-bfol=M{KlnPA@eER3hBGvJOPp;@GtSaYVD0wwSa
za#J$X5A;K!pFu}Qd59we&z+ozKzVQ6(5GKEyEtYAMvFuM)#{euToF(+$b#8^XBswd
z$rJ3EWr5$m6bPju=v)9J9svkhb!^qo!RFfMt}deLx!8+NvhIOSk@=gM(TF<3Jc$?y
z(U@_OnDI28m<_-dJSrTf05jfUZSe{rj??}C&w?$7ddP?ptonR^3hRw04`8i)U76|%
zk$k~(#T~=RuX<r-$xK>Am^{Pk9L=&;j@D3KR*VOjtDJoS*I=8dp2NX9c>+>%^Vj1@
zj~&bg#D*|7TP4tr8Q|ADw8;lpwG&lLnmM)Sji!Op_Tue3;a1aor|yvz+qsIl528@A
z64s^UV^_)*X5#=q;~SC(t&DTC0?pfg2}lLK39JM?ZTYpIov$_`V9<pHWqIIm2Q~E!
zKMF%6gRU9fL(>U|OrO==>ZkcA@~D=@GIjdko@%vSj{`mf#aDAh5FI7v-~9Bbv;!L{
z$aH}DK4X=U(1O7)J#L%=Za$#PM^3~x`1^LGUsWfA5Nt$BN(wC->`XsLfQhC7Zn;IU
zJ0ro2ou62`?tIPt{`CDc%vI_php!T+cO(tS;&fK#i%PTAhaAtZo!3;!7bNFYT&+f+
ziU2U|SA4}7loAMOuP_(QH2w7n)#Z`q#EnvxAtAyzXkXLQOgF(XN@5u*4>AMa1|y;@
zPFz_DVEhWZJ)_O=t;%D%Cty%*a0}edL!WMnK-079h1?XNvJ0t3+W$6XZ25NdV?ZK9
zY)QOGyfipXpbI?rQYhG&^pzdAmq{)F3{&kO#gSNu=g2Eq#;B@#;1tc1j+{rX2dSV6
zvVlo;x0=6#e@&R%0{wdmzVo6IO)rED6G}8tLpAEqU$ItKEe$J0G%;rM`_<`t-mt#C
zO!p`0$Tz`}M=!n@@H?<NI$>}6=+jM#K12U-bs%1;B)lJSjUc(uTqOY&wR`p*H*R-L
z^Y0Rec-jAAkN@Y!{x3~Z8PHMtju*ml6XzN^vU-!tsDEt}rw+&e*%A0JU;OmN1ieNP
zIG_6mXO(E02oDKE1mevw5}Aa{<n3j+?-7!_#^|LImUnoJq6%i>Axpvg=2uS7x9dpf
z6{%^dVQHb}qRNIbQc~giMPSJGZIVeB>I=#_kJ<cIA??+fY~+=9hwEeSGeTI@N!CI=
zLcXk^4mo5v+<29A@LDlYt$+Fx3!cr=kJXvU`GE7~QqzFcE2m|BgNq`xF+XF$NL7LF
zG88C9Vd3cLSmou_4f>>uT&k7@dFLO2>CH~W%g3J}_gQxb@HanLLJGKmjS#X|Fn++2
zRT3sh&ysw_45{px+?=it3fbylKIc(I>Ek8);lF(}N|TV&P!F5}mPceEShXPCG&hDh
zfWl#nuM55elIo`PPatEgwbS_9i?$<qC1#%A+-03*TfYIF+BV5M2r7Y?&>y<Vizy5!
zz~gzVGzpYCfYDD(R1HHwNTkezIbQ~V3>;kLnd?)0m1`k4c#Kd4Uc|xf6}iDNI}0)>
z2;~37LIOl@K=b~V0JiA&;~8fZ71%s{w>%KH&W0*2^Ya?3xd^%2TY_&AoO%mv^;&Xe
z4zJ#JuRMQ^Tao54&>f!mSLfjG*!!1r0P%%CK_xH*HY5`4u=Mfk-S4bQ!JfN9%7m0&
z?G3r=FRwuJJ?3e|3q;+wj*eLR-oiuDHe+t=A~pFzazI@gNe)HINBli)f7b$-a#+fW
z)OdB@NJ{#>>WigmGlW}kTnvsMxPLJa4NQ96=a>ZV#aM=I5o&`nLbdN5Ry5Q#t8~Iy
zLQ6uTh;rcQp>I%hf;NMJ0t!%(`<5^Yp5sG8Jj)PZDbF(v^KSAun_&=VVB{_ly8H&#
zJByQ`4z)@;Tdk`~IBO)*tGM51@&Wq6s+^^f*snm)dw8gqKjVy8|MS^~8#luScA}7L
zQN+lUW=*MY;v@t7qNYP6Cp6yM38k&sb#FcsC6u>hZuSC<jS>ys94woKwmzDqJBy5>
z108K`(@1&Sagmyk8|4#$HQ-(yypF%+Omib3>?zAo|I>&Io-=(x{r%>t8twDGz=+!4
z4Th9rum{A=dfk`idmEfFO2`71AN~r|g;o1#Kw*KF@2C42)CB!Ju~{&O-M3=&Iq=?4
zG_(Jk=Wvi`ipz--ve%7a#hl@f^E4y#G~m@za+B54Z{!d6KR{6w#!1kQfw;!Or#s|D
z>+B8EL`n_#En32EKL--7ZI)FZ2<bA73ny@g*d=8}4V})<b0|JXwz&|ed!<;aDKU&B
zwa4JqF*gmX`@e}C$YlS7NOmhu!}{ar9_sl%ml$kQ&7-Wm%*4Gl&R|7qvgajp0Zo%e
zZ~H-PUQ3G2E40IZ8Ppoz9Y3$BlW+&|s`-56{xCN==`!z{pB~tQuY)TP%FR+%m4j~S
zf{{2-d$Oi7$a!xARDA}p+;feWC@Ej<Gf_v9c-#ITxF(xk&5L02HzcZ)DOnrd2#wav
zKf^Y~2wMcSer0RuVQp9nJJt}Jz40h7^Rr=|Mzy`gMvuQ2HtBr7$sRtVr+&85pvzix
zrX7~9)|Kf^!{dBhf##KXTl1R;8N0a~e{O^ua<Q<Kq?F10=-N`GNii@e?r3`mrq4bI
z8?E-1oqVJPi>LXE1gsb)%P=f!E76R0-qrYRC?l+)%AIBCO~-IX5PRq>@UU`fAZCf~
z6EK8(y$b+X@H0pbHAx30DiI-DnZ!sz+J=uSS77^WD4DHbh7hG?_}zyhHRn5_epaRG
zs#Ddi^z!qr1)WR8>!dGgL&Qm(dI_GCV@7t>+bgFlECFGwr2sCIvg~-4ZQ{f>dq^jY
z7Z(a;%%%drcfh>RuH#4`Q17on2*=I9lRzm816o74IWxE5%?mui?jki3N~6!s{{t)$
zhQGWQ<;CYg+~Y&?ua#)fW?S=%fO>e|SLA_gH4$7N23fkV(C1$vd?*J1iN2OkEKcNF
zU?aYRivrB_M2PnfO_3mpFp<}#03qEYKse}$_8D85aAP;1n011>?9;~|$HCash9Eg;
zy^#uYgUXy=Dk`3q6mpT~FFNo=T{yJLJQ#3-oQt|Ahz>#`i~gP-V=nU?aJVXfz{mg~
zJ_<+bdi|u-tvukWI0_nQ7HL=xx1K@~3+J)R>06om_0?^Nm_ZHr?m8eV6gD+1SQ1>w
z&p=H0Z9&o-;{k_p0MBfca8bF(KrmcB+!bK+)J9H!!scg7TR<Y1rN8<$17S^g7iCu@
z@$2q_G2&)T>4*PD4(h}vl@%rx_B@)A+sma-cCXXT`k(s=|L>p?|Kx-`_!UDk9k?GA
z=xcv^T?$+@x@sw?Id3Eday)YpES9HQ_xTAyWzOBL^=0iax0nARLGWxl@wc~erPpY0
z1KXA)?3ESxQAYyH^2|{fKeX33IC*yf%Mz$r?O+*d2z(Q$7kCD06O;hx>aLz7^@gn?
zPyum>x@q8tm7(`KH8%`~?{R3X*)O*k3K6RLuzMTDDL{JeNPtt&`L-(fWJ?GsJjwAe
ze`e>?+!naHm5AUu<3TWZ*NTdZk*$4wei~u(N`wK*VyMq`$t9r=h??hSFe4)6mt(01
z!6TGvKmZ(&R(2?mbSTLoQ{G{ll>ggkzBLk~SicUyTX}k!Psf};c+W=_OW0nTo)gaD
zduIu5X*Spo);XoY())@x#&gqi$cheWic=0yMpR8^mq&2-T>+H*k%;**MXzcSCf6>z
zS5l3NSL1sb#He`qdVhtt6vKdLEvIL~K@PgUBHQ-lq#Na@<~~pOybAF+2@aG(-~fMd
z*L}upCpe2ktt|?B2QV3HB(|^iHW+1Ff&fo2JNW3Hkyn1MK^uXIayk~Ag*c7<gKw)n
z94PxqIiP!QURwUf7|ukifzM!iFo7oFMRPadxA~=RMERdLkgt;aZM_Akg`B51_|o{r
zuwd8>^Oo3hzL9J<M6Y_n=(UFOTD=s*v)1PGj|^mOWZgHVG82h0OJCgNSX$!098u3%
z><J^v%bh>pN=!GXocR6_aDS)?mYh5asEB6>BMXp<E~$dqP*2Ywh8G}TG|hyGP{=xs
zt^6O84e73Gv#3cwsE}CY7!35zjE+A%KrMsV1I8a&m74aGnVwIQ$?^JhX5`=Pb6msl
z%s<8T9kgSMEy$fQ#t)wqNZ`i|Tbjn-KEw({M4m5;i<t%6-8TE7>Bdu1LZXta1e|Wa
z{a?8hOA7P_zmYv@7<QzR1lBPpazzL~A%8-o@V@Q}og-ENh_ZL3%KTPzTGs9qKCtUf
znGxpO7WyNu@`UR@E(D)P1DEH@G<(>0@^;TVfP2ahUWMG6gv7DHVaTpOCX0XZVu01M
z0;=YcmOmcV{$I^~2{@E}+dh?4gjUL$W+=Ptvb1NcWhYBf<3Xs#zNbaIjF7!DlAUZ>
zLP?S_QzK+oVj9~hTTH|My2bPKzTflz{{Qzq-sAW_#~km|D~)^Z`}g}@*L7a!b)IMK
z^H1(aT*-T2GyL4u9CphEAcyKW;Nw)hHevtqLA8-=E&sZ}!Bxuj^dg*La!@LqF||Wc
z;oO?hA0C!F^TH=T{LoTLR+5XMZKE?4q8dgLpHu;Km7#npbFUm|J|FXC`Edz6tAEZ-
z4X5yB9K*raEg-{J!NL0J6M`^fYM3>x#u-I{*+-U8h*8#g@NW$|gQT$lZA@O}>1lz)
z+zLS<+Pol;)bTBN!&#c5on4syLa#08%&RXIT$9h+>^<MP4g#z1_L<uVsn7E9>1<2?
z+imXIu7R0wxqIo&v~9yZD_$3x7r&wmS1LD8EtdT6k&@pe4Nw)&KJHMjRCEgKKlcub
ziy%M*NRJo7X5Cryb9RE4wVmf>1bbt)ZAFRj59c*Iio-W8;mMTK3B_w6zAt3UX#3?~
zI4T@8nRn5)=KIj4l`~MX1h4>%@0_g+_!DWh%-hp@JWk)+tvyY5@Vp%U>(n4@b2S%x
z0M#%r3omN~f_8?pO9EbL&9%d3Ev%BN=ST&|0^sZf{E)WL0abS2lh8BJR{wY&!4LjL
zs9+DPpkv@Bs1J6+;j}I5XIB|co7WK<z<|Jpb6hz9qWayN90OJIB{6u5J+H3~LZZXH
zq5`r$ChcKoR<oPU+REyTjEsk{i$R}OhJAVxIHc#Ur7steChp2&4-T&Rw34M*%ohe}
zf9nK1;QYN2z-^ASMNIp?Ll!;<c{3Mhuf0UH)<(xbk2R-GKmlRbN960DK!k$6_!=RE
zI^^~ECK8g?A%HEqKgU#XcaY<hk_^;tGb`8=$ZCJn0BBeJ3!`8A?_>18MaBP213*-z
zMezPQm|IQoA<Ea=K&yu1-5QN`MbJnN=>fm;gF9QmVlWQs`iTR5g7UAAz%-Dxasu<q
zugyiuG|P&4#iz~hs3Gjj^DGk%6-DEAfNB52{!<9Q?itFUz)EF>|G?X5vQ_@c7b|yM
zF0N_3n0nD^B^^YRxgngdbfEmVrM>sRRN9-PA6R5to<9rJE$)*W@^fuuQosc1es{5}
zg)NYSl`fxS>P$hD3|RXs02|7Hxi!zrf*Pfof*R?4eAeO#O?E3z$I95wWgrU!Kuus5
zz2eK;mi%Q5NPz+(DP;SkX|<&+lwulZW^xYNx7@58p~gTZ*vSKmbgS;NRIf4ze0|gc
zi8z2L<*o*PZX^8Fhn1kDUc&J#8xrMJzL<x{ECCM=)*uW?hPolU;^}BWO*DW6ZQo2E
zGavj3`X2>YV>BhSc^OOEEe{C{xY`q0=eZ!nF9`CuW-P{K{WJF_+%7dxcZecU`Bb*!
z6`o&lS@*(T==ohf7X+Drpi&Y7h9a*f9;ld}gZ?tr!a`VRbpNGP-(MBHw;1MvkJr><
zNG5Gl?>=(t+u4&wj*k6~EI>Not>-hkC2yyEXMVYTa7!-Xai3~I`C0n{hq^96vXubj
zUs=zpy}A{YQiFp&-rIJ03F&|EZz26(K$9?835a(}{TVo@&6}5?{^0Kq*m9W*?G+0@
zo@Fvf3v`^*WvN>~3a$jd$k=4LQKy{agw*k>pAsAIp1wl8gTL3H++98zJC=F&tICv$
z^EHn1d>^k|{%N^l$35u3mhA9!zMqpnsB50IPuf_(c>L>$TD+|G%ZO0^>*}oa#yOGL
z!QiS8-&b!Bv=ViEq}nI^wS@f7d6Cs-k|*K<$SXqv0|zI<GsKT-Ic!VPE%+jsXIDqP
z0M6cpaMwcY^b#OID}%RHNI{Hp;MEpK_v?mcbZ`&TRVw(RnP-?YQ546V{N5<LkT*4i
zs4q&m5>`!q!+%LkfVp*}`|W;(Z*%W@)<KUU1nG{ngMY#K$2Dqg4%j_~4YM*GU0pW7
zRrIhAc@1MU$%jP0u_ER?3tpHCur6oYf36x;*Z++j<t7Nqxnd0<M!TL=#*fO0M3i%j
z3cy&isCB;(jwruyfa2uh7M{7G^D9py^7^n@PhmLL)MSN!V4#NiaL}<$4*Y@++u)TH
z??6lJL|+H>J(ik1F85bW>aS=gY7HkcD&#oHko1N)`}%&|3ljzlUQ$~dRjD#AFp^x2
z?v^i2!sVW+8a6aAXnJ+d!Mz<4$eVaA)tNxi$Z@onp^;IF1O{}Enz7!FQd>`yLLle{
z42lMTNT5Wtbrj&?=WUn7R8%)A8n2j3C#hkKak#>ihSS0Fa&jV=hlCIi5L~MeU`RRA
zq`Pk~)jQT=Uy9$g;ba@Fz^eFQ5P$B6MEVkb{v^m5dw?w9tELfeYL^qjC&)xR(YiFi
z47>l!moIe899FtNaHOE#4qCn^Z1wm-@XL{TRY_j{_-=60)qS-`9bRUyzKaxCW}6Oc
z!nS`5;r)L4@a35u>Sk5orMnJ(pqSKLJ*ii1+QJ(F!YvPi!O_ANjsSs(dNfTK^c!Ud
zW9Xfw^t9GibBuo}O1uG;VJW4>d$W$PveUCm9q!p!;&-8UdoyWAfna--Qn;T-Lj(gc
zI$igM8Z|jSqq(#51Q^b2qjuG0%Cp+`)RsTiOp~QCyro<C<LL~J*VELDo7@%_cYNV$
zq8%Fc+CA4TxD|#Yz0$B%Axgi`7z`3gZpjdfsid~32~5CKWqC9p?ZeI$3wj-zV6!?2
z?DyP$YK$;68J+HNhdjCf*eb%c00sdjX+V}sLx=BbN)(Db5vCgi-fq0QpkCb5Qb<3)
z28+$5C@qUtr@>kQO<$_AuCdfs#&A|{`H&{wMm=d7;aRn)m8RKHA9%FFln0vHg~i;c
z?~j1uJ};U8Vk6+?Ry~qfp+k{`(%eYKlMaHHw{W>+VlExL?Sck>LIu-%ck|U#AC+;r
zi#{S{$yBrA%<W6d#rzRikAdk}jhasiZtSh4)O04DaY`mu^2(_n*#!IOqUVqwkOxa#
z0Y&a43PpMv@?FiFt@41u!0NalbBZtDRg27*HwJ;oTu8VMUwg4B0Ix{vbV$)Sz-h@A
z{0RB^`8$C*1Z{8aM-P`YdTLI!fy6lmK=Ob@oG^Y;1^-<=|M_blbPxf2INw4#a!2+a
zq-tqUJ#z1*D(m<kFvd_^@$M<f$y!0+ur+YSJzigo98=UVQ5mtGo12#!!@hs~utLQP
zwbGrjjRv~vWFl!hcn6ez*|7XO_c-5|-I0hC%0`r#!DQ~RgC6}h^B1bw-)a~4(ES8|
zIMg02fN^^Us@r0?_^+o^wB=7*o7&6B?q2+QAOj+rOMe~;`=9;x=f>`fwY%f=r{mk{
zvd0Eg!bE<23S>j>{kCnh&j?2GRtba@-8n;8UPBN*rb%s&!O%7*uG<+4H$RhbB22{h
zkE(J|XpWjZh;f2DsXLXr;*Mc=$}{h>igRDyj988d{rarLtcT|N!cXx<eeirDtbm&+
z)=M)ku#w@t-+l?}ok4I!KewRV28=?yie4Syo&c1^l+9N^ah&4Qk_Tt5M}#bNkYt>`
zokFSmqMvPe(}?+>MtFC&t}kBU{~EF?L+J2UKPj1q^QM?omW9&fz4~bm3{x#Y$@V;U
z+8zZ~NIUVQn9~YwpkG~#-3kuK3)bpMTxd;j(6Jzn<bne%?*I-@0L=^od=a)OzVp%c
zolB2Ps`RQgtEQuii$u1~aHyyHs2bHh3XZ@JYT%#r6xE0=?BCCG_TJ<SzK6;PW+Xn2
z#dOH;eJ@2jkI6!K7Zl>!-Wjr7;fX|Cbvv9gmXi;b-udJe=Qpc7rM<_x{2mkf(Lo_l
zNIK$f7*Jy0)(5A#s!{dvH|icm^%%O(s8Pq@7wz3SvZOG_B2@wYX9?~0U_PVJI}`GW
zF~1XbkWV8+j!b1j<O?`m^-_*AMMl_ePx>F>gqxtM-6^kJ$blXOkRiYX4?I65tao{w
zn++v&`EuA?-e^AX8h06xOvG7$Y({qn%o(`DxFvby2C1xgpq7_faZGA!ry~~c**Y=-
zC{GWlAA_hug(0OItb}A}{t6XZNrvIb+>lOrX=VE4{FBwwr6G(`r@hn*#YOEuTgRTb
zhkWP+&fKf8En~AkPYpFh<{3-*$z&asN;UZ=7?OSwMs<5LzX@fbnAyLgee#{(qdiG<
zkmdxMzp~kSh#}RnXgHI=wIWrHGw-ak^DF~S19FCGrn8I7kbPYHbL{jmfU>>OMTUh{
z`tO!QelD;pkdRNg=%(JItf*Kd9;p+!4>7k1v8A|EyS(=Ebjf1C5rGwh7|@hrE`SWz
zCEVC*j4NtAn0LF43=i|?c-<nYi937cj2=_^Gpt)XmJP{uv$yOldA}nDd1WZYNPE%P
z;8HVNkFEU*%-rJkYJf1EF$*3*i9v%lq_%RQJ?Jfsh^$FY$WVy#^(HkjwDW*bpdcSu
z?{W(c8D4bIxv|+pqM!7J65&iU!^6r>ZyI?GLbUGmp63-%wl%}!m^GCsh6de-qPMBX
zc8!2hcyDgnZNhq`Ru4<8`9FnQQdy)my#U4-$G=1wVUu$=^@M*loz>zYOF-Tt<&Yel
zV;2Oc+CHzY3qB{)ARwi9k%HQZ#$cegfEx^iDmmV&nm}gXe{Q(T8y@}++8IpkejZQr
zawCaob(s`$1ZK`?KTlu<IMe~U8}CC35=&_6*}Z5v10T8>JAD-1tM``sy@?6}z0<sG
zD~k3l!p(9#Y1VJZ!NDrc{_TjRT#QC+OV*^##>OGD8v_?UDP#*xczQ}SHE;ZuZN8ZO
zk#v*N;X2R#v3?ePdE%RftklBHgM|#~tv4029_HQ8Ta5gl?zoIak*V~^$+JAGxWVyQ
zuQ3DfKq^be4gt?}D@wCJvEtd|{Yx96X5E1m*2VyAb`iC9W3bby?Pszq@`5pxX9UuB
zUUnfAXDt~6UP1fQ7^sccInZt(d+E~D;WWoXBwBu23I%=FTIAM#1s)|1o|Q06|K&j=
z_L`otMDz`Ww6PL$vXGrLdtHB-HDQ-Fz5@d2m&8sfWX-*Ye^fkBA`MAgBdP2r>Ny1_
z!@nGu0qy*HRq7mZWDc;iHYZY^ZN>C@%qhOBZVJ>z=b5BoKRdImC4EztlW52kJo&C>
z5l4nk@l~|~LNOlH3u8I&Cn|+$HPhQ2VPnL)CPy~_tnQQ04kzT=+VSEGolNYs6{i0b
zpPib0MLXnqO?WZ*8oM7<RoVR-i?N5bK-W!g?tu~!wD|!eV!pq%bl$UYRbR#IW8a@|
zLdnycyGjt&lhE;RR4Z*#D?J4S3OWt8O;R2-0CoeA7V=T8bU$SiUKei{<;j3S7}}*v
zmt<u<>8JPjl@JU-h5xLt?=w}S-l{*aDymd(C>SvqYFxV&NG&m96qg;{EsuN~7^^vT
z8ZtUGE#rm~6(s5oVz}>xxZuH-Ft+GjFi9C^#8L>1t<B5+wU*bnW7(EtbKm%Hu5=uK
zsq>frLC}1_%Chg$@cgUd#_lUSk7DaD%phx|=6L8|QNH{)oA}@V^?&5s*JORzV@x2s
z15d|f#X=l<_nI(Ai4V+wD@?zo99h<4Y|MLTu`lA*t)J`)dyR}uW}WOZOeFxwSfLQ`
zjwloDnGH@g<prh^%vUo^AF^8^a1)|l$_4J=tQ80OSEGBL#RLy9eQ_OZ{bf;`AJ?t>
zrz6e#N2fNu6J~xr8q!XjClYhBOnoj~_->7{!1&8>)+$^Q8BfI3>y_()QLa$r7i{VE
zI)^sh8_0@qg9pyH>IDv8<$(182gXaE!7-!+gKy2Y!kth|UCN+B2io#aoP#Du^`wSJ
zy>oifbT2qaEQ}nRqR@(f0{1ICmjS~-9x<Kj$1BfOg<K?X1onDxhxKJx8OTNz?SwE@
zNYa#Xo<Kx+@RK+U7&3AyRMe^Y1cNTzj?bq)%l((<4v*fe^{(UtD55B8K4&z97JNLO
zPnkbE)(r(}a>mN6#A@xRz~nkqP)6X0MR^{Mgp?ubw0##k)!L|u6|w+-XZwjDO9;O5
z!<4`rK3Z4M3A=ERB0MuSb=&;?m%j_%SdY?ESSSd30cU-Tc<ko+znoa+0=N=KJQX@E
zhgE;QE6d3=*JskIuy3L2u!pXpN>&Cv@x%$O!1Gn#AzsuIQMBxKDs0>5aMnBq-KZo&
zMNqG{EoBPp9Rx`cNHG{jdV26(9frs^BkQe!3!(?~?%g32VPSJyvvaW2`=}QqwFjic
zLYy96aIn(+RnO`cB-W2X?EYlEU1Rdy!2%e09N1J`gq+y)gPxiG!br6L3ei5^^7~oy
z^j5zPVo&+c?~UxkEr_nHDH0sv;Jf)!uB$IGAOwyGv*y>!@%k+wsW)c>?bP!P>N`RC
zY8uX6Zk_V_8D^ed$7o^&oS_Uf2qtQaI1hudl`=*qQs?YB63ExxCOiZh&TX^YcUn5&
zRA@jcb^V6|eS2dtrnXoS8BB}cdS2Kx;^UEUOXQXQ*ixP9jafVz@^3-CnWUR`2V_n{
zq-oO-!~=^*u^Y*xvY6So>5m^{9aQB@&w@7FVT^EMfL5f=54<`QP)5;&(|cx}6)NPn
z-pm0_c={Mf-~pxAR|}LHVbqcSY}vF#U@h_+$W)I=0`%j89>#c+%DM-(ymKO1xMRg*
zxwCX#(*KpJJJTiW?zT;vHsuKhj1=&;QI4=rXC2w{QZ9Ql7{8)_JuwLfKOXW#Pxh2h
z1SlCyrp4O5)vy(><bI#=9co!Kk(l>ZuQUYP&3)kUSSG@`t~a+6lQl8>^D=#bE{%sj
zblPwH%9t-g835=|4(<{v=%uO~MO%j{B|U%gtLipmK73foKK1{oxj~aH7^D3ptqC3U
zGwYp;?fJSb9Is<6%_Dw24r8g*yKu0}8?~)R){~!baB}7p-FUkRWC88jq)+#eEPzKk
z??QB{VRK^2M~yQcK)##O!@ov*#Z;?~i=5&MHpFX?IV8GOBXw+cIbWjsS?E1o*V06^
zNpoG&nyt}ok&}FINkrAXY676AZ}7Mdl#%vstb*`-PhU(Wp}h@EvQuH;dKeg;_7IV!
zAx(pCAI96!poYHikP$ocU`(NK@vl?Vs)3rP0%udL9A~Gg-G(-x<|zU)k_*nb(r1WE
z8#X@?o_)|R5SX|DW7}-QieM6}siqcpj%2&->L=GKx~qA@H%M<yuWV@o{xlW?&vlaz
zQOmx^-La4$3tOQI3g7pUk&)md4`fRQucjOeOQ`zt@pbU(XcF9;ch9z;=eQFO<OE~z
z{t8dR@uM_%WT0qDm{KUNQna9&`F>y&tVr7N%6`c+1>kb>x$C>gn!k&_L-NZ3UsYgx
zFq<drR!ruzwhOa*sY1IJKA;kswCq0#ErwlG$+8vfxeq7*jJf}t>fzribJ40ULDfWj
z!)aH5D%7aKCKNOtg2N+1b{rD{+O&l--F^jQEg4!AwpEOlj<4Euv#zQf^emrG6w}7W
z>|C)v@$KQL=V0S3vPLLAFPF|3Mlp|3+V}HRKD~GT&z1J>nB;?|5jJX<Jw_J;cJUGz
zs!sWPwbITRCU;XCAnbJ)%4|+zx#Qc@@OPpo?Jz1Zkd^|l<XD+oYo2|GG2d0$%cp+4
z0`IKrc<_$NfwZZqtNfQkoO0m_jMh@PRJB$#UD2U7^9+|;VJS6#0g8p}oE&K&%ZFG|
z3<f0jgA&F>mv>ZDRGV(OE(LdrFL~Rli_}C=D7VGmiJiQLQmHVI+FD_5oDEX&u3&*u
z2bD_H<Q9br$s|MJ%`?AM%|gqL@lvr@JHmD*G(E=N0RurS*Njei-As_ZaRqJ+;?n)y
z`svLeZd74_2WK`a(6{T~wr!6s0tYt^lx-g)IDluBQB!&M8N4@`JDzJTt4F)_0GAkp
z4@T5EQ%+$^RjDKdJ36F^UD`&LG6){9g9J(9p2AXWN-s>2#i{4Non<IAP_6VAi|Q>i
zav0DnHB`Ub<xQGeDym~uS1rHA@$Fiyz`*kYEcIC{QO1kJBqQ)0F0;}epNNYfwrO$J
zrZ<Mi5_fm(pgn5ubi3bv1wRcvi|4yR%5iMF!rpG8@{v7!%kQ^;y9>viZB_IIA58Vm
zjEuk`C;Yr4m_DYEbB32<vMV@`X=24NPOxQmZ5{)s9~B7j!(gw@n5W@$RSJijX`Ub9
znr;vRYUOOSRaKv9<1b?TVdSZ|->=8Mm4cl(QIT5CJnjMA<p^0*Ln)+|J_zOX?wE-m
z6%dlObJAYGElz+2u24?e`jk^szQT`8ni%^uvf#%Guldc@gS<(#eMA*p_XBmXgKxcf
zUZrV{X|GD{fYe_IU*zF^m}+w~u7M~95CAlZ<x|Ld>?Jf`P%rv70rQJ~$!(&v&(@s}
zU0x|87%;qwUw?Nh?s))q@Y0{Po(L7(<|?=aFT<Pyja-@MaB=%uwnIO3)eE}rTsI&w
zU_Fv3N-Ko|XUU%y2VjNE<1ziu?P_g%dW#|Q|J#vy?0^P2VO{NboOOqediv|R+u6ov
zub-K^cE%H4F7et)IPHw7)v#$=DU_EQw%SPC98^Omw;(mY*L>oPy*zC7zHxwfCU1GF
z3+nnGq$B}m7USs(dr6m4tKgN0t7w#bKu)A@$9i9w9iMd>i-Q~kv?I86=Pp4wect~5
z{RWl7&Lmt4G}{}q@E?HLJpscbx8c`Ti_;Q{Z_%DM$^;yyloc11AvLrf^GGX5A)Nf{
zN+s&{th2E7YPko9`c**GTPgujNA7jFV=@#2`--;D>#cE8r3xX)b1SStsjVrJ!glAc
zc`Ia@d7I)=0IZE5I9(F)-G_Lz8b)u%ku;S|(qRfmgtm<;uwb+4*J7{PaC6n<!t{O&
z+_U0#af`o4wpIQ@w($}<7vvRiX4A`B^yZ0I+rw&Sm|l32O5sI-hgCoe_$J_zov@Rg
zNoBqAg+P#<s2mybUJA#tGuMKP0GkX730W8h(B}+*K3Ijn0PY0<xb?MC=zklJQOtdK
zq-=)pOrFx9SG`%eRJpT+V`@<kV6Tn(^*kr36_=E}oe3Japr+>YPSg<?ELHNQZm@^D
z;UTQ0c11&NJ;<nnd|Ut9{|(^&QB`e4;RU^Tdx*SW!8m@YZr0oO=W&@1pS}O*1i2Ry
zeVuYW_Nw(2BF-ss%zYFmbkfFEFKPna6yo$V-~g^Am957o-!;Wg#uGY`BvV*GAkgn&
zfOu3xA=>S`2Hg=kq00sUdwEZEKSvq``d}2Eq)=FhB+mbkc3{~&7g10v7z8?867t}u
zNfe~Em4qwPxROO^yI^3cU<^$?Qk(s!hn;}kUrw%GzuBtt{?C4UgZ&tnfFZ!3;E9E9
zlG;IQ^Aus#{+!70hQ|dif!MiYZq2kJl|6gDpU0#q7Aj-3qbHM~jnRS_o+jlP0C~k)
zp`w|ng`$~ZN>}Y4e;4Q#)N3zJ3&)eV!uq1o>o+f*?B=0YtymEiVQLo#cG?Uhh&R0F
zSxMkhV0b`6D2pIGgxQYA#u=6}u^hya{R$PPlmdK@B<(dYYc}=H^lFwi0WH7?Hp>-&
zX+eir`#7ZqUj+)pd2uI77n?7&SZ~P&1mi@$j^2a>d@uC|zUq@-PaO=ZssqJcx&){u
zu;{2d{vE_%^wyi2s`i}?4GpenTQsc<`iPuiH8_%>EKNpG$3a`Pp~)R`mE7pf2>#sx
zO;GtYVN_I59dQic9QHcI?>Y*VV^ug<@}z#*yRb3sR7oF9FB|F2eIU}|9uAI&1Wl$2
zKd*#Tf=JW?A(KT9cO{eihUw3tnoIx{`ZN--0PaNRsmM5k8yu|Xni=La<P7m%jg6>L
zo%H5U*|-S3j!NjyN1>QD_`qK6TB7@TQc^GA<JW?hy-o5p0Hv8cAQb%LQ;Od9Xu#Y(
zj~NHUsF>4GjRciWMx{8(W9%h_8PQ|?i3)!c*p=7)x_K;?R*UZhp#6EspcR)q+{w5b
zy|Nfm+0j8){;Qvwlc^XA8g~PnIszfb!<z3;SPt%x4k36s-Z0klys0Bhm%HKsL1ef%
z7tZE%AMc)jQVJ?oA<vJg6=Vzjidbouq%BuJ{n%n*^DWA{gV5|uhl85YV%;&m%{=1w
zV;CBn`0o&XwR3;L*;~M&9nO+A)NamNpTPYOaPDri<8`wgumANdA+w;Us3>s<E$&Hf
zxR1!6c=Ya=Wa^aOoQ|}cOvT7kN0;Z^E(gvc`2vzMxJvn8=8FA2k&LLt8En`g5i$fD
z_RiH{!|v{0hRdxZp2kK^6oU)9%;1C{twveUgC9C)Q939s5t<Mpj_q8E8!H!CGZstm
z)tC<@<N&JIi7GoJTJS>6=Mq5)e>FZnUKvDSZXZ!IUwS^OiQCnY?Uat{-c7qBvPMhW
zJ}K^1A=2pn4&0?UK0~53;=+EM!cI*#LT#)fkZ3fT2^zXs!5u{RTXhb@2#K=-tj%qA
zZBB-|%oS$7_vTjIg-bXB&BWXoWqg$tG@j33qaF05vJU<FxQC^<Kl}Aa-h5_I(8{<*
z&Uaa?ej$n@)h|SGPZG28HyFGO71dA_*NvjVVxBi;uR3<F${zy_{>fR9HSS3##u)S4
z@OCkZ0;~2rr7>b=5`@4G6S`~O03}z#rO^`^`an`OSq?jZ;735OduTp9Qg5zGlm79W
zVMNH;+AuojZ|g{gSF3jDo7SQ9_?e5o<^W7MrIDK9wy7$5l<m#uv=NQ`aYPMh`#h@>
zJg<EzM8O~o^=-HXF+iS5+ATcxWN;8xyby-GdjEJR;vkzSv3oEvz~!+apj`VY3Z$|(
zRf#-HkAbTcN!p?EfEBoKck(>7D+MNY^2}TcVPH5Gz6k(0bg@m4Kthz^t{umb)clfp
zP0P(;nH;061~egu4c~JHi_IQiddqXKT<&jqmti_|AI_!fNN}-hGmi?4A?S;lTp+o{
zAWP&AICeX}Pgw&_9-D;Y#rUTI>9Ij~#)mW&*FFWU>O69yJrIcb@zBxg#FBttpomd#
zo2bk*Uv^oq(ft5*J0KF_(7B2UVLqladQ}g#%)p247}<p2+eU_lV(@oYPyK*y{#)vV
zLLGu|XRMQqhkx}K!VPIn9|KBk1mq5aNut!9J9mOXm+a<sGi~aIOP|SdH*%T?$YTs9
zm_T*%IU5k!a9S6BTG*Qe)`*u0ctRVhTT4?jXb!-rMviW&IQ?X4=P0V5Fu#zH3`rVL
z$eUR2OE~wVGO-EwJd@*+l%NOYk+BkK6Tw&L0A&$|;JaJ&RWlm$|6R0;-;E4_lRL3x
z%niCGGnjIZ$nIr0bW8eii@&<dxBh3l%m1aC27;FqD6bk(*wM^8gb7pzi~yKH+QI9R
z01*RFiwM0rLR>LsE`vaS<xr644!JHp&<*GeZSn0%*y$aZJl%5iny~P}tYJj9U;Cb?
zH_xg(sSC^gM)?kkAJ%<^V?tJMZUNPernRA!qC>XAlL0wV8M#9CrV(RIy{>;AfnP6;
zViedLGSj6z+?J;eM=URZ+75w%KM!HRKg4`bTqV}M8;Ig!8197joMqEk76Iw)60B}m
z58d)wqWaCc&ud#s5)u<D%_(O1WRBW#qR1KzYS%aQyKl7YpwZklq6}^b)|di7W%3ZV
z0VL0clwWP;pkrP2uU{);DDg_J?k6ZLODX3`Hs>eOs$n9}yr$_@bc?f5{~Sv(#>xqT
z|6Cut_{R|haV68fHk3iz3hyKojXI!}_*ZQ#btdrFdSc1PBe$sT<9{uQw-mOM)S?Iu
z1z!m(8{DWiK<ubGt6ZV*(tT-l)jZwFYTM30H>l0L3A_TGd0VZ@(}wT4FuYAY?zKdj
zdqvei!Z5(Vyjk1*b{e)se(ukI`rQRS)z(_I(vrX*p92R9EYC*7VJKFGWI(9`07x@{
znpqv=!>9@=Ck!`@%t4t1>Y7QSv>rLmHf}Div53rSnE%o?qflM{A=Xy#N{Gj_?EKYW
z-P~A49HBMJR#%qBD8t;!+3mu@)v1fU<Nly)hDr!iY_W=*D8h{igZ^igW!^m8m<M|{
zzT2WowI=FgmDTM1{sUF5=LTD?;}ox(e}oV5{6+zz+Ef$bH@@rd?=P^XUyA?zuN3~I
zfQho&zW7zQ+Rp;5OrKMHFa})GD|gW@;mG0}*V-FXp+%N~2N+V@4XXnAfEUa}baz8*
zRc7-#GN8jspe`)fwtR%_WL^7p-ExJQ*F`jx5!SMAnp#SM_G3cw5x^Gi#%HWIfHDeT
z{px3iL?(A3@IgKg4VxKMP+`nGu)8!uCYn_0U7S;KWT_U@>Whf(Ek`{-v$uaivkp=_
zfmSD9w^RiWA?Ptw!OJwL!z;?e914EefH(s|64k9<+NI`W=*Rt4u*F6;h1|Q7)($w?
zT>`M&P0)3TIHRTyFi<89K-VqYm_y6`P;XKkDhq*yp_}c0P!F=l0|T#~`u~Cqq8+xe
z4btX5|MsB&#Db9kNy!0wXf&oDuij`c;Cok&Q(GL9Ol6DCjn+ZI+I<0TOJ-`bC$WQD
z-=A69ES4K|_E~_oqb{ke3BNg_UU(ExJxL7ImuN^g+SPm_2^NSrx6M~|h--YXXX0#o
zp+!4KoCS!gY6l!E`EG+Yi;NYVCOON+Olj$zvk$E=W(%h?7Sajy*pQ&Tv&oGEkAr%-
z(G5f`MNov&sIdM2FDzv}N(=tJs^nYlDoAAkb;Y&^tk8cdFgWxb3Q5%m|NGu+??3il
zOEuPn$;P(>-BA#nN{lIfSnpOqe5&ehEmi$2=3xjsMow=0GU4!Omd*UjC?H5FHDC+L
z7SHlv{dS4ds_G_}s|jF`S+g$xAJxF$V#WV3C+fE=S;T;iA!YYCefmp3UdtKlh7XpY
z?S(Tv3pPpnUi$>3L67xLj|<YFWZ~V{hV?z19h$4EHl%Q)lK`EPoZ7au3t0rTvO{wZ
zK+hjAy&9sBVxb;dP?Gi>?=BUstNkr#p&Qqkjns;Aoc3#K$FG0;_H7f|R+@GKdjIid
zULa-`kJ3DgEyV{e)#2xgL|ARF{B4Pcsn_#Agiq)e+j`Sha(8P_&wMdJ_zpa)$e6hs
zaoy2|>D)IMi#>bmLTr;;xTD6>sywH9H#Aoy$uNLa)`@~PuooAYdrCDxw&BaOiXY8<
zP5`&kUafT6Z)j}JA{wh8zFfI6v5-zaB-Jj(v(VbBt327@EY>h#H&+Y!mxxV!H@=I0
z{tIrk;DfSkpjK~i^XOgA_amdq#E}CS2FzOY+#^7#c{?u29m}6e|C1Ay_XFXo;7B>r
z!d0sFe*gbeB^A!vDJWAIsY7(=Yxc_0LR$U-R;|18_D}3jqV9rFJD{o&Exr+Ecrh2}
zS|>|Qggi3=<e4Fa^s8<Jlv(g>Dr(8nhI{<v7TgO`*;a+9I0KSJ&wqe<WP7^QvDkE;
zEY5r@>d}06>n-Vm?6toNPlJi{tqZc(0qqNiGIL9c$!9Aigl#-%q>$xh#}0_!D>&Wc
z5Ry?b(LxKjOq*(bva$biaiwpN^##auvN!5J2Nf5wvPgAkf9QAs^P5E;y;_6LEUFro
z)?CozCc<y)OYF3@V+|S%99Y6Rb3r-aU&1*jXH<gwRgR#iK2TP(ocmD(!&<L27SEAC
zcmmg+Vgu!hvhSa^OhoTpDti3?A4Shi-tP0u$2}JHK+^K>TZOig|I{k%5-sOk`gf8m
zAix3*szI&P3jg_6SI`x`J6g9GszlknR2lrFF5r?;9Jb=n<L^%#{znuN1-Voe$hs}|
zYe-WXd6{M{OYfY&F%k|9Bobh!uMu#NqBhM00W8dD8Y#rTu9d4a-eRr@$^i*z1ATq{
z&uh?4EG!!*Fo*V=cF8jW{VHxZ;j8ZIpn71-KVR(4EOrHl6;Vs?|D@vM1)n~h@l;{v
zn_vde^JF0>4VI!QVq87@_>1XD$;pP`+`;sGI1T5}Sxm@)pIv>4Tj%S+nCkJD91$sA
ztyUgt)OiPRPSYcmomZ%E0p_B1R%7VWFZf^npT0MJF%>IS%LBjc6jnn>E>Wnsc400~
z&Y!anhk!rV)-<xPYr)?Rj!u$A9w^-3gDN#bp*qjHI1@-O_Xe{Pptb;<ulf|0A7v}*
zoI}81Wbd~-0)-uhe@FomKrXo{@cC4+&9_8c&NeV{B*ZcO05Yl#pW`&oOw;0T3Eo;o
z_lWvnb+D}!aK^%pBZc3k#Htj??FgUs&FMW+I5N4cZUggY4vN_PJ`<g6>?yCgy>}Dj
zIt~bMUvuHx;%9&=Cqz60V;qGW6O$f~6~Jyy$&jR#A8Y~kU$sJ(UGu}CAmn3erjWH=
zu_2PQ1^lEICJP0{!U}5F)G5AsIS}S&bQ~?wh>=Xj<tk0!o)WSWadClK3ztA#?8l?k
z#hj0Pm0f;F4Ze1JC>&L!9kxRztM0W=EAH{ZL~V)W>gcO}>ej`tOm4_LKH3=oy%2jM
z0#H~Qq8@BOi#rz*+7fXpI{rpb=Cf!1F~f_W&j;JGmaZ`9;9$yMsLkXPO1Zo)!q^22
z+fG&z3ej-de}WwN{C*x^7!)gj(ym{F%&@?EKPLngbGundozQT)=lC^D<QxcxL=(6K
zul42$gJ(#asrJ2rP45ejPdRN^^<qFlK7pPND5)6j;f1NjFcH;9oA{>!XYO33dayYp
z-)VK|-+froLU=uW?SyBLyb%;UC(8=<uts9UqNw-VD^SdE;LD_0O7(2L`biiwclyd>
za1~_0Ag@g<A>4@<_-M+4md7WQ1b-ZC3QWYg-y}Gqy0@%)aYWFv0JI6xo5g4;Xy%ij
zxI>n&eXB+hM;S)SC$9DD4KV)1877cY>xjYj#vbbrT60Be@az4M>H(JoH~b{*C@hdk
z!i!7nPYunD39^xUZ`5iC=AcRIBZ)0XU;K8Hy|Y7)oPH_y(-DC`<HCi5e^BwOy{@&`
z7J{vSGg-&~wOXm4dt6+QHKhj#QJUwUOhY>|li-b6K#Y5s*RjkOLpmik-?Cp#R7QUP
z#Ml~eyB3}4<XDhWXLJ3~%UI7W!d{8dO#vv&J3e$B|9NxZ-~J(e#{CJ^CJ6OhoY*{7
zhn&Qr(V?ppMS+G~Kq_-ZX{v(V$OKuX8r1+I2Da75I(hAUUl2#kF;tik%}Y{C(HA?B
zgsVo=rq|gYX)&9pCxNiS6*Q+~o#mjf%r4H_5EHFHzk)W^TQNV+N(~g=&jEQWizJ*C
zwF?FbOSG-@?ad$5&V#5f+?tngYtl&TrxLRw@@Fpll~*ltLGnj*_U)AD1}-!sPeHt+
zqa#>^CQa?4N-BAi*zl$j(LFt~a-6kUXjopf6CA}#&<}v_NyFi(z%$k*zCyYP0d$5r
zfo7J$@xZ)UM*6h*ePIECd;r0#)qn|ydj1S%z#^muWLeDdwX<V_*U7!>fHISVCa*tE
zZaMn-x97ALxfuJqiZH~0QxK=nJijJZv=D<wGqZC2$p>y<68Y$XUFcSuX*ZSF(tJ^q
zLq)FxB)n9tKlO;~;p0YaheXWp4&0)4A|M={(OgC6g*HA1KKY*KQz&W?ejI9Kn6D1G
zzDHSESyq&OyiEb<xBL34R$s2lR`d#*xf4e9NIM1V9{+jwVFe3ew%^u$dt~TqJPbC?
zVEn7&n7mExC-RT&0tz%Fz1rsIGb&Iy$pCm1{cM_Y`dXuPi{k<bI^IAOIOf`G@o3-<
z6#>Hr7RF)~M-n^p;igPPTn;%>{lUpGBjqrF=@1^bVw?h!eZC?6;<`!4G<8mT&*JIU
zsF^2cB>P7OZfXNFS<a}9cX4*cJPcAfmZMtKF5#GkfLJ=ihqya=R`1S2I?#zVH8gBA
zK6n9inmiq}APnu%^|j+>m}bODW2c$tsY8_dBpg-G-*dx3%j4$zG<sp4+pEh5%rHZ8
z)0);55|GQPgEpK6ig^NK0m6COCd14KmZf`CXURITZentWlvl3Sx}LvI+^3FgiZRgL
z5Zp;K8L-zBv}99Yh?~pooraD5^~pK4D9;2!7AlCMX3@ess7k&1HaunM>sQrB3&v;A
zuW%)ZHO;l2mAKvH*T&j6;k2v3PCHY(n)dVjoN}0}rnE4+_fk@-qaDyhNn$gHHN_@~
zQ2pEf>bo|7P$Z@o&P8^wK5oC1bzyz{6D?3foW=wIX%6N5!ps)<MIl}=oElj8)7311
z9dv%20PeD;lmXj#!HSY%t{J)oi+(ln$J2XGj=NJ1!;#DeyeK_mgqmGR*q?p!Xmf>+
z;)%5rZ{JU59}+amD4@DP$Wf2)(S##ipiF0<BZhdk5b5y{9}Yp}g5d)no$}9+N_>^o
z{yAQ|;Q6E+hQeUNAgh=k;$a1ZS4)am?@SwvENxkLMHmtb0}PO>>oYfjIv%3oD4`JG
z3@S>lw`WwP%yl#(#BK&FZ)I44kqT3n?`m)C<Rn7zq$@cYQBsM=C&mPu%->XA_@E)V
z5E3vWBze?~{oK!r8P?5yrpH#T+x&1#zQnGz+#5cyY|%L(f2ihKDBs&!zKzGjHgj$`
zB!7VQaR1I-z!Es7XObBjv2T~ot^*I&90)B5b326cWh;p7nTqJO@_9xij`bWZ^O<H~
zl&K@6I2gJYE@Mu`_THNEKhU;d&e*G2B>^2^5OVo)hQ)fPGE7)H*IcZ*1S-h(_R1x8
zdG=;mEnM3K1T@w@yO2!<Q5Jj)$gU)q<+XXN#I_AjwZq6i5tP^#9KmRE&AuG-y?)tb
z?X6-IfAa<%E&fzr*{#zsr+p%?O=V?Ise5;MY$0{`$Az!JGcxFie`fY$%&h&;oNdNS
zr!%5CPSHQ$f-=W{T@ZHtAGa-Gw7@xoF>3CZt{?ZEKh!$M`$ZkEy@pImMVemh{2934
z$gJaWP^jO2at+^;78h=oHqQ0y1%b1b|Az)i+j^6mW)`8D{932?=IjJ@re%1_c27ch
z+s>fc)Y4KPij$_{G~F)Rpr|*xVcsh4k6|nHykSIM!#r{gOQYZa@jr;gn1rscF|gGN
ze{a3druOA=0msU=hwFwBjhW&!YEyD3JP@((n?%2svi_J%(1_J|zEAsI+W?L)=e5%0
zofq=2T?I4q5fM=16PzIaN^l?F+Gi^IwT;`RXf2t^Ci<0GXy6N$oFIzC^XmuXREo)I
z-m)jj2A*R=9gW`4xt_4r-)7trn-&mT(Y7Cca{JEJpg?P^@=UInBlK`a$XtRVFY*pU
z+ZVszGRj5NWuj|*Ocn&PU%-$)3e*3V1;pMn%gJfe=6&cst-doSIr?g)r)~Fr@UXj|
z?7^1Et&x1^JomWOcMo5coudI}{=uS62_niuPT1Eec)N;>rZRoDs?{26e{wuy`%#l0
zq-;dBj2o=jsCs>uY-D<iz;^$OJ1_Ewre9oO31Qp1vi|WzN&G@djYTM!!mO|tRu1NW
z6g-_oo3mRnCelNeK0%aq4d|mNl0#Njvl~A6DRw2N_2Fuw{=|vZKW|%JYB_Y3`TmE`
zl0cfNU(lg<1zZBjeoXvihnw{Dg3ETF^&8#<YH143Kf9^2TG46ittKt4lx-o_{-eBZ
z#4}W)*ZL5mVSlOEibvpfDXP7u+l7mz`J%YBP1_dfL2YTL`QEp;m}@q?lUAR<SyRO}
z(U|O1itq0_+LgG+D9cOrS>06IMfRiT1L5vv>>(0C?b>X5hv*tromJQQgX25e51lNF
z7QDEnW~yfIwd#i@B2VL4x!4Q^OUO}&?#^^g2A=m%4zlSSyK;JDRo8kOuCuX&PuDl;
z4<|HFoVYGBoO|e8-~>@1BHe4+CwcVZ(d&J4)}kE#lJP3mU2$*ngG;{fHHT`i&=zei
z4!68HL7Dbp4H0Rb@i`>sC;KgBEuBqB^l3HSh!LCQ#5S(kH%ikmxyEl?wL)Ou>Dv*n
zR`>1cW4^MUdED=@KJea~lAee`80=cy8^&zX=sgB`r1ojk4sY*<`P*kZ)XyD%abGrl
zG>fAoC8|VL;$zP{_tl;-ZAhBlzF{(VW!AMm7rPi>2$7myxJn75MjKf_8=j_y_%%F>
zb|$X-9)(s;o$X;ht@Eq0I(H{%k0aOHcC8N10k`WSUV<M_3EV;SX$-bwk=38+FBv(y
zF4Appmx^%!Yn@Ugzp}A_qHSUaZF8&*pC123`j<*O_FO%t)uFrP$qKm})}$m9<`BJW
zDnDqm`4-nQ3uSiu28o|s_@K?f_jX(14!4y*Rz+Uyruhk_ZmZNvJ-ra=@*(T$o6E=m
zet8V*9~iu;S&IIs`lGY2&fOkqc0S}BzNZ?!BE_%OY0jiGx%*A`{(GAnnxBz&JmNeA
z)3l@FPp@}I+om$qKYBciKE$MI&`FaP(E|O+`XS^n`I(I>c2blzugJT%nLJKe^QL#-
z#N&JI{Q5#suSd0B_9JQo(I;8JDAw%wdds_Wu~8{&e~O+97)psQ)Ev&hyXBpk3vz36
z_q?&9kw>NL(wcIrtwN>NT`e%vIWw&@3Tq&MAhf%^<b+Gx-4tfm-SsEw#&TkGZNaCl
zglRX=5-y&&4%cgVXcJAZC_#l$ZXZ3kz(2kCVXrNI*u#u>oLIYtVFi=Ih<0aU;9J-2
z5n_Gnt#1d7=_iRgx4jphW`8-d``*(&+<UFs;&`e~Uh3*D%&LdNY+47p5(`oW*Kcus
z)g%HENrc?e-A_H?J}MV0C@_Vr7t#Z`$K^#+&1RD^qn@IUzJ&d=PiyEMAF85!jc%-X
z-)`MW-g+yp#X+dz@id!yMa;Gu;s<R$zFpfu9~I@LseqhWEoZqBljiCvL>*~=o0!*j
za-@l&B4X{KDCwkvkWWwE`$;wTR-Ep-7#Dop?;iKYGx9eQ?|0aj%I9StX^3#z#iiwO
zNk#Y`TolVn(8<d1zw=<*$n(_O-?WWJSzoPRTi?Nvkz}Rr@;QLjGI_3T)5ZCMX@T)`
zL-q#2ez$}BIzCiKe-@FenPtl(v)nOa3VW;8#~SZVYIAaMvVH#vF&-wo-NOR1ubGb{
z8v+%^b@}^++2@nz#3O10x5w2oSQ&fD7UtEr_(s1mv||%EqQKLA@WTPEJJ{88I)M_!
zM_H;xb<Ze1ZE@N-6+0vL7MFPZLgI<g=8Jk4Gib%ZeL8(cwApoiV_ekI8<v-ZPRbv5
zt(32}y~uxkWVrJtqV10IifZ`DjflK|@<xS)u=IN1Qq=S1rpS&X3tIk{*IZbsap(ho
z@a<=7KgS*3YjBLblFr)7WA(~s<BN~#=WQ26RxAYE`798!`p$~g7b7-#Jq)MxuZ{PL
z<rdxZ_+~a6*N&cM-ev(6o{OJyuImq{(tctu^IxOLu+;OozQ5mV-FL3<SYL{u5Msue
ziCVnHx`w)=N7Nh7+TQEPIJEmtf#RVL`dZw+p>N)fp`V@?ceMSQeywjpL-b>1vL$`$
z(ChDOYp$ef)VtMi)x?GdTz^29tg)@Jsv*@d-2|x4q6cT!iCSvvoYqXyuM|Hsu-CfD
zLu}mfb2<C<nQ5Do+?>nm;J=Qm|5g7xWWBKR#k_dY9ydN~1aHC|HawJj;AGhU0SUC<
AFaQ7m

diff --git a/articles/datasets.html b/articles/datasets.html
index 1814607f..9841d90e 100644
--- a/articles/datasets.html
+++ b/articles/datasets.html
@@ -29,7 +29,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -77,7 +77,7 @@
   <main id="main" class="col-md-9"><div class="page-header">
       <img src="../logo.svg" class="logo" alt=""><h1>Data sets for download / own use</h1>
             
-            <h4 data-toc-skip class="date">19 December 2024</h4>
+            <h4 data-toc-skip class="date">20 December 2024</h4>
       
       <small class="dont-index">Source: <a href="https://github.com/msberends/AMR/blob/main/vignettes/datasets.Rmd" class="external-link"><code>vignettes/datasets.Rmd</code></a></small>
       <div class="d-none name"><code>datasets.Rmd</code></div>
diff --git a/articles/index.html b/articles/index.html
index b3ed1fc5..285e0f34 100644
--- a/articles/index.html
+++ b/articles/index.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -52,7 +52,7 @@
 
       <dl><dt><a href="AMR_for_Python.html">AMR for Python</a></dt>
         <dd>
-        </dd><dt><a href="AMR_with_tidymodels.html">`AMR` with `tidymodels`</a></dt>
+        </dd><dt><a href="AMR_with_tidymodels.html">AMR with tidymodels</a></dt>
         <dd>
         </dd><dt><a href="AMR.html">How to conduct AMR data analysis</a></dt>
         <dd>
diff --git a/articles/resistance_predict.html b/articles/resistance_predict.html
index 676bf6bf..2ba5bb51 100644
--- a/articles/resistance_predict.html
+++ b/articles/resistance_predict.html
@@ -29,7 +29,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/resistance_predict_files/figure-html/unnamed-chunk-5-1.png b/articles/resistance_predict_files/figure-html/unnamed-chunk-5-1.png
index e2d85eaab7702ecfb134a664e4722d02f98374dd..8f4bd4a77750b99830098642befd48ea4b47550b 100644
GIT binary patch
delta 51655
zcmbTeby$^cw>`R4R8#~DQ6vPhXrvoOkwtfhh#=jd<bwq&BDyH)1=1<qprW93BQ4UM
zi&)f|kMix`-e;e4{y1ECz52p>;*L4T7<0^fpp9g^jpUsH;&hhu!%I&5#osTJNiTiH
zKfQSLsD&Nfx8s!iPEu8~G%89Mjl6zKI`IB3ho<(SYGwPNJ6|z5FE1wlh$F2%M|txy
z>#hAq9!xs5>Q{>2?{a!L%cMRT?^zjrRWUV9F-l0?Q$d|js2JsN&c}!pv-jn9=SAs%
z{(ivw$L+wAS6?Gf3`K|&A7A_Xt6N#6^I82mG4}`Ke@j{UeYeehV`GzZQZFW{RW~i<
zOsvz%=|qxKRFhI4Hbu+G$lO?abpQVSB0tkOIv#~s51Ux80*xfeVQ#zM63e;$xepbK
z{GLg%3k&PMdi4q}-?6(rxcj11;CQsrxv9>K2)MZOHlYjgEfv6c3o&B+FD{QaQ5?Mz
zyzS@bry9X$?bPqwW!{r#PW<D?!F*hRm(L(e^ZWPj%<SxMKUhB{+%muPFvhdMrfBF;
zL!_XpA+qgU<Yy&}lwN0N&*YIewlMThN%wClb6s|76da$Z+}*6q_uO<D9Uu2q^G!8&
z?v4NZ*vP-<PE$NgLB}(_lV{%cRX<Xy?zQph-)o-_P$c8=67c*b^A(%*8*~9lwac2;
zyRB_)mxB*EWHgpCYQ*@`lKYxAMQ8l^b3a2nSLy=4P2OA;2GcIQznS#U^2Ss4g1Q}7
z5jt8SCuz&B%#N7dt%uIjo$^$M9*bFwKMo<%vH9=o>*X?Z@?`?VcZ!4_&83TZ60dP{
zbNAgj{B<tEwxZ<&m$B8)h=L<qHB%jF4J9!lA!lKdD&5>yXIlPz_q&YcC||+BTs$4f
zn%YwDt^7>?EghcCCDNCpa?8Paen20`bN?HuYxzKl*BOjACj-V`sJHY{7J4rvtAfbf
zcgI{!>Mf1=D(U*f$AGW;G{4O1LfEF7W1o3#E!NmkjcUH&>s*kF5$lhvm@AnM3JbfQ
z)x}c9`QV(72%Tbih;P9wX~I-mmJCjhJ(Rs{;VXVkfR9nFopO5JUF7POD^mr%Hpd*z
zr>bj*a&8Gy>^ALg1u#t}#dzI#hOA?}t9>y%%pEDJSGlkK-d*1CV7_*(Ia9wBT>u9Y
z=sE9s!)p7g)>Gm>nGjk(TQ(MMX=P}L#bTe8no#koYG3%-)YMgA-P>OJ$d)^!X1FE4
z%YY@OiK_aPucBumN6M--D~-u^zE+;ud%^O1U-swQ^y?@qcN)IdYT-*k4*RPLh!y&1
zXgWAJtbC_3l*YjuvI|Bv;@66IB$AU^I@h<Bo6x0$Z4J7vT1)U+6_@;&TA4GLJ%H?P
zTZEp!@!(~AYb<N3tZsKq(|Fs*05R&kIVGR3pO&aMYFV<>(lj!dumK`Vq~-X1`1i2V
zWz^4{u@j(q9T1?|g=Fdz2HfY(`-<$x-0!}nX-Slin96=G@mRf6>eQ)I?H}(_c&-om
zmP}`s)~{7;&Ix-i{k%%hzK#EK?b<ccsiD3c6WQL*JH6kswC~wXycM1!HO6A3TLTrv
z%oPI8am8u43edd8cbOnsIdzpg1dj6cKYnA=-MJ5^bL!aBTm%u8rYdD+Ww$@Ct}<b3
z-qH>mWnr47PkKv5)qmi+G_l{fBURmq^?36qxQv6MpkalF>j#+w&ov=H2u8hor!-gR
z<QZqph}+(tNBEPF-OWMYtc#eH<tA~<hHze7e6*<hRC;dXQO8%e3Xxr}evjpbvFTph
zN_`5kb^K-5E@VZ-qmHfcLz`-nLVi3M#+!HtL+$*>p}0Lsk$#x~)B0758b5@UkvUq@
zu+XL`e%#pHd*Mi#r*Pz#hvGd~7~$dHYou#2q&P)7ht^S!o!VDvV_UghAh_KuN%10^
zi8nANCW|Gjtd-{MN4UpLaU1Q}E8|1CjY6_f!jD1_ChPtZbr|^UJXQ>56MgY0$40@i
zl~<>)-ZGejC+&ckzym=o%D(zMOj(yLvZ>quXwb9glaZu<b>QlTM^BE4AD#OQ7h$Gb
zwIPCEQ%^5aMOC#ULzlnbbv!DZ`{CP)jj;%snosU4Eq5CZXQ(~0)U@szC%82@mmxdE
z>9MT}&&}}V1H0_SBRJ-|PmbdX@?kgbcoJ8X9UO8_oj&c{a)-)%<i~rRVuyr2n@7@{
zw!c3=853HY={6qQ-PxR<{&JXJ&6k|^3_X1ojM!A8@O(RwFl{LsviRh{;gzq)IIgj=
z$yaVP*w$}%LSz<QX_k~xRHP`T(?+y?XPoAW$HUvSwY5hFvdnfvgMvO(_37DtIVdA1
zrv^#EW#*UikkHI8Ds*|mU^sP~gkI<3Qcg)pk&%^cOUtTA?d$8K9#s!qrA$sFe1FZS
z5s`D2lJdH!sQ#t9Z`)xElGfKBqvKZsdus)@)Aa8z&lpBkW30IlHRtYv^mJB7cbz;l
zqsFGDrmTf!0Z(FHMz4y7x;1yZn^McevBk%E4}PBNcWe?B+MLOygx6Gv5}IteOWzS{
z=%qcqq|?%vAuyojx^q1(bNpowo#j*<yYu&{)mi$78qA*Fk%p3`JEW|N^1HW+w+B;=
z9qy#t3?9!A)mGO;(g!kY-|A0JPEzw)1oaeHr@^B-Pc+}85M6n<1B+VoLsQ|PSK4*e
z#ANriIfz6m78a>KWas08Su}eb#5^}fLmMW&wu#!&m9!pWG4PZ7hg|j9L;0+G;(z_p
zs_Rnk=XJol&zE;aj%Dg%%$}27{2VFhNQU)c`sg^`h%m6V71|m)h7FXvYewue$4W|N
z8I;$XFmGD+m*i)|EiION3vFZUA&IF)#O%&TJsL>ijIkfC4m0n}GPJED!Xw=>$joWN
z$H#v|V_Zv#^Rz{%qMRHL<f*iN-)$m+JG8spz0iK<7Z<t()W`bE-5*`LdNrx1Y#X`3
z&Fv5O_AQ%*<QhC?;!K<RsweL~<e(3AdR`l&qXQhJy9k6J8Sz0y@ogS6ZQ<1yP2=1<
zOQDr&VTNjILGPoZZO)uMd#GV;!-I0{yv62Hnzd(koPS4NIt;5%-Ds+dew8l;|I+eu
zT78;W&wcrJ=iayU;szg^hTD-8)qM7}j=vMV%DoAT*}uKLow?9)qB+*5cb43>H{EL7
zS#aQ&{mx?U6wS%n@v~D8EuBk<W`h(W3*N<68X6&jm9hFrd!EP>M8DJ}!-4*nt6V{j
zCx82@T35;aE|=hKRzNOhuyPY?x2`Hgni+&X7NIl#_VT29;yluwn`BR1nS8hA=&TSa
zU^GU1`n2jKugbMD16w6+ew#isZNa+m8zwT%C1QY+-i722Qwuh)&h|Fs!N4B7j$kCJ
zZc>=Fzv`Xs9BYVZ=z3D9tUdzax25}GOh$%op+>}7tfa5g&&#0`&nU!_dE{MO3QC+N
z<6^vs*H><JAvZm<vKS%Tw$VQ7gI^?9kKhv*H#9dl*D10y`mtf#SELNsK}kwVDtOXm
zt}g{9=6SpBgSJF@i?&4n0;}#*4uZ_a&a^qYH*ellx{zWc(%6xvIbB$}ZJiL4b+Y;6
zK&B^`+ltw;5l8Uih6lQ1XS#FK8nP18(>Yus5E0j$*4EZrQ{M^I7i=e<9%CmhUMr%t
z&b~6!SKxzBwB|ko`Aa29Au4tDdp>MJ!bHoZiP$&6*~=d^1Bd+|3~nTG<-4Z+YN_xP
zi!pGY<;Au_7EKQdIwM;<^>B@FH~G(>Kg^y@jl&@wv%)I9s-EqEgz2tnhyt3Xrlv^n
zWTIkBX65#*?UGx0$&k;5RN7njdkd_oMIPJv*Qx|_RIGoEtRPOMUHG=3+M!)&69pO4
zw8CrX1(nlxO3hz6nc>mCP2#&Aj&8%%{(ue(67(<__Y)AvMHauEzG?V6)vd?P)HKm;
zZO%H;cA%{IEUOkC;!<*a{B5xqL~&zdqo>R@7v|(XJO91U-ZHj@o)8e#l$0)FEn4GW
z4R|ceo0yu`4ln)~U;a71obu_Dk}m~)r_b>VD~7uSLm6r5WWs8vv!_Cms*lkRPO{_l
zVttX7_QO(+UcU!nYq7A&jyFdA9bR90uXnw(Ax-0|SnMlUZn61@WmhWTLerj>k9S#w
zg@xm-x3YGL98qGPI{GC}E!F-PoTu8abI)&Yu1y1q;%=Mk&b<pC$hc8?;4pbm>FB~@
z4ZWt6l+V#)$3~YoMhI@fp`l3tR~2l_7JZ0o^M*zSF6|7$=Y3-D(z!C34fyj9XpP<o
zydsYSq~tn|L?r<nz0S|CDHhX|etO5xv2^u&>3l`n!DDAXWR<$irUr-+r4JrFXu3U6
zU>)JMGQof)w#DqI<wmLamvmCG^lCYGX6mN_7Vq@vFLAa6AX{t2O&4(Y{Q2`G+pE0|
zJmT9cfrpM$t4%6NJW03l8~Rny-md0oNH6Zy7a4;9h8P-eiN~I<D~M&zH;;&Y3{XT(
zPcK~~L&toyHu&bI<@`YTO$x`J+=l^lo+~ZP%ek8$sHPSZSy`IIHKH$3pBC;}>oP>F
z4L<e(AiFuwn>QWsc}Z<8G%CuPd}!FAIPdY|pQCjqYh2xs5xSat0@a<rXHKi7tn_@u
zBX|i-J^L30wu3eXAB*~J;0AZmjTN>EIkg>-cb-kZ&}D$I04h}>)|44!!8gi;O6N-I
z<SJd4P3xk~PYW=;-7QIB5PrOXM;Xa7p@DxeeQ~&^Hz%_v(ihlF>W2^KmI*^uzSh?-
zU_M_7AtXrMCLQfeLE_>Vjo}5W;RAYeAyu{O9%93<Su#mWzNg~x_|_GJtgdrHPRU_j
zkpC$Yh1dEV8+ZWtr*v0`oUCQb)5x69ES<Zt3`^MYN1gSrPhWoJnXBd(F1nT*7_To3
zjR{425hrEZ4h?i(`&qO$;C?)-OV^xeROJ(94wOd^F&BzydgwIU(;?Rjml)ohugvng
z#PYN5t&o~(Y~IPjUTcrV?^M;iU3#bU44XvP^ghPN$LkSuHj!rhO?C2{_q!?<9*aoH
z$h;0?XJgCwx<p(iOE=u9EFt@1Wa7#7rl&Alsdj4d@l%_sij`K`v@J3NPeKQNdj(Lh
z`iDj&vq0;#i?yzci%YY0mqu=hb*HJ;!QGPOr6p$h-FogOl7wAg3e0j3HHEV#7q7hQ
z7^hF`Ei>YYW)PS$Lo-rd*v{uC2Z9qVrMu`muCuc80IjhaQ|~^(O>mYgNcFrRHEgDs
zpTgqO5ttM6y^2CyZ&K(jt+2)%F<w1Q1E~g}$1FF$yz%DCv%?YQ^RV{c732#&sTsNB
zcedj?N2%}cYj9CO29{%kfYYdtQ<|Jx)w>kh0ZG&`Y;6#!lo~yNc}}&@jO0j}-8-2Y
zmSbBi?p##ol9wKf1dnYJx(pAGhDAi^T5BIYdh}`a0t+iEYv`4QI;lJJUAK{Ih8HvR
z46Q3Mo!=(gk{X=zth#erot{t;0A8tkh4>hq+gzKcAa1d2?*9b)9`A(iNkYLdbzh6r
z0_$&+PSk^5o7OK}56$f=6*OdeW*b!<TJ{XBQ=k3y!KSd+3>dVuGegj-2}}l=`+;U4
zsASC3?=Rg=ZFmGTh?o)$%H7mIRPW7$=OKKCSw#MEW(}$ZNEcF}?E3X9s)=$boKgC-
zWr;NrJx52kjGZI+-&CLWF8JuVS<@#kFQ0M4TC!v(Sq4a1v!fKm16}hTqQDj1?g~q0
zz1g30B`Se#r`EO6ck7{VtbMx%w31#kOw4W<Nr;bcf2_-VN{ecWnl+yrGYc~jVN>$6
zUYL)s^GAJsy1keSj5fhneCvze9R2S4UH>{#3@N?OZ;9a7etyq(YK34=5Pn{bG22)g
zy;*oWm@pP$8{W1%zq>8YYu%IA<6KiyV+m|#Y#QJ}u&g7YLo=c+t87U|x=^VTxdZt(
z6NkgKS9rQ(TOkUotEs8Y-Z*_lE_o?8C?4SSp>lwwS)BdiJBt*KZh*XR7V35e={qN9
zrdnRYwFAue+?*{GnlD>UZLnRLXz8$t(BJ%n5`CqLj^moAsi=}bHPI-YQ_|KpoGCDC
zVRR(Io>hUQpQaDvzcM+t(wU(PaXy8)O}G23Wt><+hL~1ApJYoVf-HZ~J?~o;d!F0$
zLzbcIXz<atjv6kGpkaCI7Y;k-a@GSD8in&9AUM|d!`>C2F>dG_BVKxEbgpD`t~B4g
z?FzPaYh#%gO>AvlHTHG2tNN<%d!j9L6?ayW#IGYlLM634PbB?#EIZ}O-3X~SJb$}h
z1l8v9<;x7g3CvHL-e46JG9A5K!nllmfM^+2c+HouwFAf$8n>)*T?cY^BPoDRRA>Cg
ze#{ibKC||pz&Y|9Mr$qT-{!(%baaDd#xPDVu=C&!#Z=f0lh=ZxUR!@LHiQ!-5<rc)
zEGE99OEVZ^VTOLG#&Au5W{jApQ>XSr5OWl=v$Jm^unG7>kC@0cD^(}^y?zZK+(Jp4
zIS0+MB{PqMcuh2Eb0n9?8alEJ#YGA2sy+FZp<=)lEGqMe$7uvU_3*gN`h7lp_Jt6g
z&9%|v!NG*@HuT6=HX`Ubol)qMSO0>_;M__{iSJeIe>1?QH`U4~soddsVn6V@w#dfX
zS`{NBqhcO{eSMnsX8zPx+lQXA4j>Yio#|Xjz`k?}zp7VdP6tSwzN*0UtX5H!5G3VK
zt!_dj3fO3OR~)!w;hvKl{k+v{YuHCNfdZQ~cQ<SuSzpI@X^8x86u(j$Z-Lky4Fv{i
z`RCiKv1!mpgp#ZLJEq*|$UR8SuTfk$h~c48-*tLpn2*w*>8wifa7`7JI6#f&J6juW
zV_^@Ou*gQ8q0`p7eM6LRVQblb`mgrrdM`h_^<?@p#^qkt{j4rah28bxfYGJ$i8wzb
z&t+C;dx!#2^75)6rxCzkjedMfQDpIXd@CJAmCy0E*}}n0pwBry1E)Gt<_YTGILYAB
zn#k5LeVXT2H|^MXihN(G-v#RJr~5eH;FFNUV#OtVGpUl!%E}i~(v;jHe`Rx!RgoUm
zI4Jfxi5VrKw`4SF)298R$f}wvA!FMvJ0}}P#>K_8g9PL#jy~H|U$JAtWQK(wud-pU
zDZg-!>9t$4U({D~8yXwgyT+!5KWMhm*=R%~)T$AM&pKw^8zTjAGSBotRkQCus(GX|
zOMDANIqOx%3P^dd92C`cGyhFP!Vhajg0kYRV#iC&Q{vl5`hMg`isF$YN5=THPc|2z
zIP96%%Q7IUJg!R*WS0u2MQGL~BkM+UL=cR(=fpmLnS%yJ8+Y#BO|$MT2<Nj72cTlo
z7{hOCpfn#Lv2)dC6XZV1GiOlg(56rqzUcyLwvLslvn(8QF{yN*IL9f`-QBHI_Bi_x
z1sy`8HWwL5gAOV12~|j=AsmJV!`mn32*JE2wP*Zkg$t^w2(dX+1^qdOK@mLWD$`{%
znUeYH=;;3X^^1A1(9$qyyR3GVBvtO7Vo=GaoQhu=R@#9$+%1DuNT57P2i&F9nP>`|
zySfUx8{QV2f2}l~Q8h$rF>T^rfOK|oWt9xeYyW33gJ*>S3<^J*3t|EwtEZ6EmQ!}1
z+jE-%yG!h<Tv@21kYz3(2#43r-%PD|tE-W3TPgi_NG*E2zVb3P2#!Y@D~ykg`6Q49
zFFqETYD)@mjWz>F6~d-#+Fg+|EdtPAJfba@EdKz;3=tre_}B^XF#a&TN3(}#4ecYf
zb(2Cdb|TOQ9;XSV4839%V5YV8_3f$ZX-*J(!VSN{@=pL|R2$VdKkCK|f*h0d4}pSe
zlwnY=gJRC5r6qvF0E!<3iQQB4G5XbcI#tL-e61}>Q8%P3D@=bg&Z+|G=)W=Zu!BmD
zW!kU5HYESbm(H0PE60)&u7WBCTw#XT$mr;cphj5P1*&`}`c4G6YQ&(c&UQj<YeCYH
z2vSR)2`#~XJKMO1yx*x!9v2VNrN#Hxlne*krl*Tc)Hg#I3q^Sor`w6m*~WJriNCUq
zjaadqRh&*;`i~|Nz#D-~f>8=6@ML%-Mw;~5K0l-67zIX297aaL;PKGG<<+FXtBO;|
z?ix~;U@t&(b9lycxq<&CRdnpmK{3`uX3)SaKrKK=5ny{V5EPEGg{K=kXttDfXJ{WM
zqQuOR2=ZVvuqP+b-KS@An>6m<j|2P}SL=C1&}046<>}1pzEvkzFp;Q!rr_G~kk;bI
zOb->g@1=>5ex;fPQHPP2CcP%=p4kyqLrOpi>$?t<(~z1Ag4pU5@%Ua-vJWFVWb2jn
znn^R<2WkiC2L9WC?H7-jqRTV=E;LiL^Q#i6%!Cw-MG{20_-zMhmT371&V4zlp0e+I
zqp91REj){6a_Z_Q?Z}R)hoN#M=pI~#Sz6g~eUge7Qu|9EMYKKH=LPKhF6f1)KoJV#
zei)t=<FWMfsJp@;vHJUv3<xTGm4LfNSAQ9o0QPKf6?U01Q<^^J+}HWpli$2G-ohRE
zIXW^zLYPajMRk%SDpoC}q_VHtzSPvfgD5rij1(#%f-tb<dTqPab=sPEg2H5cDRh(~
zNV>H(K~_>Hapu6#E!u~r6?c{jx@RF;l3&;VEg0*%JVv=HWNB6-BHSqMQm|ooETHD2
zNnHpQmsva(PCe+^d?HgkCnpDK2N($fgV((EHauPO;)zoP`@S5IFREA1$mp9}b)~o*
zBa`Ue=>K>Hgt%B#_{oX^jzldw!50bpfRZPKPZWe@dsNlGAnKOaeXM7AaiT-hkS%l!
zFg9<}RrzqW(ZIf0cw8#S5;2=+X*Qlv(-?C~F7!Kutj3d@%ru4?xLuF;m~~j|hjB$W
z`cpUR4mHVS$>T2o%b>(FDF)fuu&4=OgYwGikP<I|`}Y=I)wi4h`$V*%wVTOfD<F{9
zPtu9HJ>NQ!Lp=Ml*R(L-vTF*&KJ`Q{GD#qvHw?uWJ|Cb=+#48;LS)16((bP&9FIkN
z^1Bdo!0^Dwr$CfZh!(k?)Rsak?9y(b*Yz)UUyyZAHUBpz(@;VZ+y;)OwPXBP-o(V@
z;I<M9m*gY(*xp=D4YRG-sE(Y2*aLMDP>?Ya@~E_1te1&j9EgVDb9j;l`!u`|Ib>>L
zGMN}*b9Cd0U07I{8z9rV1`cNC){&oql0=-cmR2%Emo5+eh~BCU14BUH^^+hsh{WF@
zIg~%%6k}-819FBgHBGv|EPF9iay>BhE)a4of<tMYle2Ry4fUKm)W-rxj~zYA<1q3A
ze>nW$4KhhoUW8ZFM*P^4KLiu*r0QQdrVczX7>B!Gp&%=p<{&b|Kk&F}CgIw_!(!Co
z(gOv=cOfAfChn2EmKxGGt9)GQbB9qRzROD-7vD8kSeqXdk2j&NCET^Q&(5qMTFees
z8sbpZ3m=QOi2EC==c`+zEp#-gd!1AJ8wG~R9L*3|m!~_2q_$?+Kz34@Jg^0-VbyB$
zKo9AR5dzWpc{UTqyT?rAAq|h2am`y^<b_LVKN|j<H_3e^Sv1l)IUE4JCZTkFb*7s*
z<V*jwf(ZmRwBiLnZU%DZyxRS68hB8aU3rt(W;%%DyjH(BK^#*MM|QVzLBV7SKJ)_(
z>i!q_Q*{e%YJdKGuSU%Y<KdoB&{j)0I1sW1S;Mj^TJ&aNu=;~vpNz&<>chBs0Z7t{
zJZ>gCb(V^X<<cd|k5c}v-un(%<ojzlK%gxA3X4%~Jks$kguO(1uXP49cR-IT!vW$J
zKXI2!CKHi}`fchD=u~mRRDG+iwg4zGHeER2CJWMXF$zw{v_Xx4fRkoBSTWjDOo>Lo
zze}I;^y$+)ouf7MNcu7MA_;nrg(uyz_2bKvAoDbXbbto<Fmv~niCCbPx+>(tx0eb!
ze1U`j9Z-Ps!81XoV5Doh12|-s@O+sn;9mZ=w={w(v%Q5`oH74rhVy}mjVT?A5^`=0
zdl-Gb)#3OMv1)wT95m9N3eVE`RtdM?oYcJPhBa(yJ&%md6?rpQ{AY#o#Yo5>Wy1pa
z6l@H<gt%14aXDD5(iDitP0_v!&pz{cRUyau|IV-ump8_7te%VMJnl_nlyH|>_jt5>
zqaGgv!xy{K{?S&e-hzgguU>Jry&!hwnAADA7WdClk6-$!RqSB$Vw9fWCNj(vB4|NY
z)~8R+cEx(5t#|L-InTw#B_${KrX@i(6mJ64{Kk)?LSV!hjRDmFxXmhd5LhqFtg@9}
z+x0x9kLEKu<+a&#3wS~WVP=EPyVA8)hqpEK^z@7jG&*B@l4UQX$XTye8vV-U0I}V^
z*ShdUWEXdn$mx}y@n!W7w$8IG@6-tieAelSCZ03dH5O`(urSX9-U=Rj_((VXNLnGA
zuyC(j#D@<c>~5#qAQ7>h&ptO<0r~Q2n<O(wq9Dvk0npDM{Ztawwffk&YomsQMYt7%
zxro8uzNyBUE_(O*Qt=C7w@y^!)GAa6c6&W+JJYopMjxI#K1?)*)PHj_N+GFuZfd9G
z(Y(QALH9pBI%HL?t>pf=OGn;zx?$yjoH#@S3#84xd;p&Vcu}oX?ixA0nAKQ!nr4>H
zxN3n1O4VJv0c8gFuEiD<*6x7Xt70Pxba)fOVtxH)t1L%8k1a-G8-JLGbs3;p-K3KY
zbGaun^!3GPD@-{s16maw9i1N=Z|OvPW*AOi13qQwNeJFq@D+a^q?l`pG=RWWqO;bR
z>*mQGDk~epdYyj|M9!ijEkIqPZt(&DP0#`))D6@0ci)`nM%AZ7Tw*=2uk(@J9ennJ
zMP02>`>*b74jOV_R4tW{7Afv28*rOuLo+W!mav*eM`%x8cDNgewx}5QuDXPV&+0?P
z_Np#|mW7;k9(ukSvCgeSRWm3^*V5D`-gtJH0)&Lp`thr339&TGGa|cMu5Z_Qv5JcP
zNuX_3zYDb_?V>mF&0cUTA1g`QOq(jQ9!L3YzgCZ`{Ira5xkA1wXxH@v0}xR%LdTnf
z)LYj3{|@9EH@YUFPmgxn6cKU#tm#7-txH0E2PH<NWn@}a6-5)ocQ=}F@#5Q)iY1W!
zDXFNag6059w=a#>Igk7}Sq{{i2*XVPWeTd~lCNLAYB@-yho9>&wfyY8kDBwIL@*VR
z%HVNq2)lkNRJTw_3dl9Oz@|SH-iujG%m6mC3RHTKppcM6kd>H)N^H~zrU=LBM6~V(
z&~*U0%LI99vW}xN-Q~?BloqC8?=++G+>2vW7O;hd0F6N$&Sc3fy5+gK+F@PTp9pKc
z!(2DR1@!Bw+$OO$kVP{d4Y=No;J59BT^$UiPzZ#nuq;puMrQeH4`Q(v6%2VQ*Vyp(
zoja)Cq68|6ybl{`P~Z*ar{KEL*3nSIOd$0ZpeG6~*K=FDbB6D2G9Pl<)C)F6H(4|@
z+h0?%<bfOtS~)WV!%b1Q6(!i!JRa+Ijx;~2nQ(;->}UXk+?jq^HpC3-%EaH#D3GA2
zs0=8$-i25hRsH6?@!MINR3C@>+~qCfQNcf5Uw50w(U<RYY|3cKdGE1p^gre}<tkwk
z3N0NVM=)WJQL(o_KXUr3UR?EePO@cJ$?MmzSB4MiVlK7{ydmyvoPs@kOApk?o+A5?
zOy+BI{WmF)q5U(k4^M87@mIcQlK;SY6X*ej<138XC=|%sV9-V#ih}|JRWqNFGp~Va
z6=D3Xa<TeC$#SD`l^!ET!kUxhFqmqZU#4s4R!7naIhmc4-GA}S&SC!2ew%U-z>V1D
zhyT#eWq{0HLg>`3(gQGJebW07e2Dt}2C_UZ%S`K7m?&9-Nk;2eyfK%!A@;$V^DVyZ
zUj_P8o^>xDw$(DLym~<v?(?6If?Gt(#|Wwz&%Mc-rR#w}LIDB--PpOg<Vd4)XgQN9
z1vco^U?uWFmIRZ0EK_SAYXAA93@j6Z@mKvfQdOiwb`wy+J^Co{*yW4+N&{Ih;}O^i
z>u~?NA-m_L=OkXht_G4Y0zB%RRFU5SEoNrsT9F;M@&V4!L!YACCWDO5Ep2!Vu^+vc
z@_CrQ>)OlP%E}3z9RgmLTGuNLW&ThfJo(eGW_I1{JgxpF=Z$@46DyN#G)^t|P!6q~
zYg$`Zr)qC+k6t<z{yAoZ72)R(#T;T(famP9DFoH@tNxkKD!|d9*7A-C<<`l`*Xl3t
zPlwvPsvr&dD6q}aYu*Wf^@1WJS+VehDh37y@YY&&qYkhNu!4euAyA4B*O@js|MWm$
zEY}Qf9~BZ;rH^5O$_Nl}Pe8ss*~Y$N8zZOD8$ie)F30TBsL;VjbqcJ)#I{#dqeNU)
zP(TW`fV8yC5*Z-JOD5$8S?DeYpbLV%1W0JDqHBF0M@B|u+5*mVOM%It(>Or%Y%Aa2
z!N*`E1a7Ng+@K;9j__IQ6mN*daKw*t-?+hJ|K}Ti1$JBqpq_k(Q5m?5BPg7?R@zmZ
zs1`9gI%*Di2K69-tBJ?7{v4auC)AxZ+L`-!@qUzm{Vf1!$IT<qNrtbBdW;sN<ba{k
z2m#pQ@27zDybBeD`uY|5aD*wQDG8wJ6mTnLH@A|p#;7!x*&cI{xrx(;yB3o<gC5KN
zt8@KnzI1NV^5HznPEL6sX(fF9dW%gv2dV&YRm+yRJJkF(dN011|GO>5Oq!7yvt2s4
ztpFmb5?ss~74jGu7)DGq!Kjhdl?E?3Jy$x9gw&1VfJs6y<Mkvu0SQLE7+^xlwd#hQ
zfW@Jrd!rv%(*Sj^08luTz)L2{{jgCD{@tEsSQ$QZcJH2~elL$obcGn5)2Z+%W-<qS
zI69yxE!_;DlLL$TGfe7CA3l_2J}z|Fq9yJH5U;0W)(G4Us#M{eMo($T@BZjTw<P*C
zbPJ=CKtaLE%#33K1vT+2kEr`<5ECTgh8z<JrR-QJGm?kL1P7Z`T*ZRGlWW@0`i?;o
z6-D0_9Qk(<%vZKJx?5VhJJCNt$#)QnqD(aJNDXE(-`&{`Ve17hR*pb)5Q2&kXb2+M
zgfA1o99Y=c8szwq9S_(WmJn`v`+2Yl6h=;^{lOKs=MI&pw%ps8POKWjM>EDLSDyTt
zJou8wWSYmB=Kbpuf9a~l3-8%EeOlk0@D6c;vLSZ&$Qey0NH(~U#mAt9G~9F44?$Hw
zRO~KaLTXvu0GU%>xRBOm;4Tk3YsqMcE)y0=eKWiY4=B<OlFrX9U<yly-wHE(ii?Uy
zMR%Ajfa*m($A~Eq8h*q5RiEVZS=gGqZtRDffAN^NGWFfTSb_R<3jGcHVm*gqy&?8P
z_xyZZwyt0@cFCTcq@vO^5C1&SfI!L7LqF66b<ov+h=qEKd3&<5Luo(C|HkUWK0>al
z1(*v8IhwA#)=CGlIDkm$Xa<Dn4dsRw7<L}ewhyh<{b%;z-OteKmt5E~7S#MUO$cvO
zR^B}?RLWi_lR$BihU@-wsW<18ZHl2tj!aLqe01B{7za0B3@p1esER<v7h79f+j=QL
zBn}F!W;4ICgEPeeHBsr=-AtGVP@4kvuhz9EcEB%SR-tHpgX~h@_kFCRPC^azCj`ka
zor1Zm`&%l0fd(aro%PdhnaU?#ZAB&SudLhu{`2m($|;DGi1d!-8Q}^;qA@;Sr}L`=
zkIv7ZKXLIN?*?duCxVEhGTBHz)1nt@l7@?jNCQQ|93Y)VXL=ZuIgk_?1qBTqop6ZG
z;GBs)c}dC)=ogw{p3&)@ONPbj1~LzeeiziYAb*`!DfT9wrKQa<Z3w^4!I9N>K==t#
zor%WV|Cez4M6&J-pwjO12hHBVgfl}C0&G5ZR0lt)0i-`)1KJ)$?qiTDEsOQop<K{?
zYFrjdL4+LTj;pUccI=f=kH;iOnK)29rWAlEAOHq~LaWTClh+KIz-1(OXQ|Axi(TKP
z+vH}IwbNXmHZJJ>`;!g>ds|3}o>U?&?{N6;J_IW6nVb#aySR+4+})lBj&K9$Lg#o4
zk_j&uUbqSx3U>7HNkthM9FrU8fqz#pvx5sbk>M}cmMP;<<moU^b@r?UU=Lh8OBPbr
znq$JE0_+Z|D-+?CnaTi{>o;~TKI)dp-3{r4<);zBzxOQdSNAtpo&&ER3^?lT0ftyN
zV;>nDoNzV9Lj_)cYM{In5{3C>j!8M#y`cDqx<;Rl2}ddDKOTAkM9sbVTrBuh^O+`r
z%VrS@kiDn$rlpZ05ncQ->oUFCYs+uA=^@6gbzyy>5(>y^kLCwPLw13>5x`ZV@!=6z
zBX}Lh<Uq+dI+#_L<AqugKvE=tYOeW9mk4CEy~uvpX?J_g66!9sjg6h?QU)44@%}Dd
z%8mKdNCEq&S1aSbEQuq}IU&*do?!e#BKDk9SU3XxE39r15Z~?n-vvn3BF|5p^o4(`
z929%rJnOQ2;?`}NT}jg1oE+AsQg#Z4HwB+)j^8q&*iRN|*iE$sFjWghV!#sfoToL=
zw1nnNVCC(g_Tw)W1lJMkc#NybwslquD?31AQ#J}mU2A|cJHNg-MgZ%IJmhRN<nWj^
z<C&NDcDA?O%VfIdWLh_gj|?9V^Dv$l#h;u6Jzn|_h1qQ(H;GFsEeELIXU492o00{-
z6XOs3%=Hy%8DhtLZJKmqW_~@$*vttzX1UVnoDuu+dodFeW>W%;D&Sy>`&c}3`@xYi
zm&CW1P63{P?<qdUx4WAOOz<1H%D4P^C9|CC1)FK(%NwK;d(-wwuj;7pC00~sUf%es
zPlmq*01VBN1_r1<8f>(mRS>9%j&ZaV7Z<O1OMQb%ng-Yv!NOPMw_mGv)Zyo-0~QCq
zD0MwO8gMRlg5xd-5+Yz1^cR?ggmmEZxOk|GQJy{PQ+(SyA5?MF<p+qRZrKLVKt||g
z%<<r$An?0914rQziA!<+{&gEL8BOJ-llJ?wqEd!m-rli11@GivHN=^8ybAyJ(w}u<
z0p7flhN5GE$|ANfR<BSv<n06Xo!MX6l2FuA23HA?Z1$1~#^cmH(qQfgtQtyo*noS(
z_LBnxQwk_pDNswF>aon~P}kJIoYba0bOU_avZ3r9P=QldQo=)Zc{1944xEe*36nK%
z&VK|*J)K=cm$uCJpXIMlDzW=@co8vM8u?lK;|FPYCAe*^2P^bZFa?1A45hk#(&C#p
zWb%;$%8)Z63xQV8_Lpj+tOGoONkv6PcoV25fn<leUm&PmholDra2smi0Lw2JI6`!r
zz$@+i=i3n|sdPTg_)ogn<Rq!#F!0(iF+m<Ym_SJ$EMQdf)2s{S=mM)$M}f62ic3II
zG<{JQ4aOYQJOf5wAbtc$-Pge82u3~>qvY8Rift3J5VpcT{y~qA<?d@!vA%RF@cU;V
z@+yCnLcK#M#SYzBUmS+8{T}>1nnrfie`5>+gy7WvW@cKUVQ?t~F^TSOEu$XnNQETG
zAx@}<wlN+PS~b)RF9JiWWV1oZqVZ#zkP0yZt@Z*_8L<<9jVCJ~Bc>0F5kPDQ)FqyV
z^g=b1DFt%ESQ&T{0jf5#2E-Vh3m0@uglS4b?Th8d;QoKVK0A=$FaH$}QJ9dBm>A+N
z4ulSs!<Z(4RUUI|;v{1;tkA>pSpE8RG_)Knte3I61y)DgIG}K>V%{vM<ad@WC^(ps
z#};&2n9^pL#Z+3qfA0yexgTD0b{`uSlsSb2bDcsPHf&EZ;`p%G1k^buEL81N?7G1^
zEQ5o<aFz#LHe<MWSo-)4aH)>D<3?Occ`Z9xkDtHsjTL2I=ogO@JT@w$<G`P;Z5|Gm
zLs?t}kXii3jzRq%24n9{RcFEOPMXhl0RqFef-u+M3PMK@)FTkU8ODtf;z&i@$B(=o
z>kID+{&Q{WrxSKmcm@GL<d?CVtFvuC1Ft@FqnCw>a4gCg0BGIb1a>Raiaf2Sd=(H7
z$^`icEI8asp5Wa@lb_pYu;vOBU6}d!G_uN9!_oc+Fg{D;(4s4FL-Q%5J!RBqinIef
zE%B&ffVgA0vqXjZBbaSJ+w3qr1eXFDY4oT+>pT(HgCxZB=JLLoAv=K)hvGA!Mb5=x
zLXL`fU1ehWG3xLlo5!0F_fb~zAb<)Z_9OQ)J~PN08yiC`5J35v{{@|Xz+<fgb)k9=
zuUzH_G7w0lQ{ba$2SUw;CBj<cg(!XAhXKoc{rVA|PH_(@5aJRx4jbT!9%9S+un<8G
z$^$=xKQ*rmz+gbh?O<(f2U51-A%?C&h#773UTebGgnbMD8?-UkpjtBcx)c-U-OCM-
zigR&a9EGBS2TU-x_rI-rsRnheu@{^tUKL5*WEv)tynkbP=623s9J%d>J}hLk7Qk$1
zQSxv(6@*2ojzEuq0drUBm)*Kg2+hRn$K?iK5ct9dqkc*14Y21+wQPlM1PfZwg+Yoa
zi*NnC4C#~CVMH2%*o}qt<u>yEuG8<&`_R&>RPV8Ws|(|D3A63@?c42!Fz&namAe&S
zzRf~yb^v{+K(4i^+;(x?GTpVK_1a;d1qCOAXC7!0!1^gA_q!uwV-^EtuGCPT3Fo!E
zf<-;yxWK^RkdP|?tIo3Nn1LG=2^V!Quqh{WI!OAiqZZ@~d{)U$`T#A)v^pguPeTY9
z8F>J!EENTB)$D?T-CGRH-(H;_>*te*7XT~{+XCXk33MF*Q|9#T76zgR9U3SRPQwOX
z0mwS`E>I#K6>@zm983Fao0?Fq<1c`_f?Vl2HJ(<tP)>qB0IDCjCX@gHv#t#QW@DHX
zryyThp5Fq-ci4ZPW&(g$2va`9yOEqSkOomw1=VcUlsqZ|h;~j5yj>*63tNgEA7WJ?
zjkpn})F)lkc~|RT+Ro`x9S;$|`0(7JFM_vuAi+{PUwEHv6@@_dRZ%WHX^tuf2dkB+
zPaP^f@&xp87&0a-gdf*tcjzhLrYF~0-S@%^T+yLS+dFHO6y~1)9STaith=iRZRaxp
z?Z^E^zW)U$4M`<@?@hKQK!b@A;QbDGQv4d=Ih(RYDQqhOVYQA;7YaTgyg{9=Y^m0w
z3o`TnGdk4RWn<b~8qG>4ym!8%tR3tq;N0vfQ(u8p6fXQIbKvptaX=HGD>0a@AFE`L
z^!YJl2gPuCH*lTQ57eT|4H`Ps!NoC$^p~bVg|H)J7-Y~OaA$%hLB%sT=`;lf{&s-A
z&q`Vl!1TCysGnD|M^NnDKE#-8!VsYP1nRq8D2FwQDhEQ->AB1v;(~(OO(M&0qCJ+d
zu(EW~+ddtz?JdZlL$($z>g?7RjL>8bVp0*Zp%f?q3PK0q$2`~~XwpZG3PpCY;3Lff
zTlR?pkkI~qO$Ah$nSE68eFb?CMlsK{ff{r*O%PsMQ6Ut@BF(VU3)G7=z5uAFqqjhl
z5zKx&6v2;!1p>%!*22*9Cy=(GV<r{A7y^A<xnH9@aevD*AYr49PZbpvo(Dfpz_TQ`
zuEhRkcy9IsqH{;OHaCbqsYOKsDD^`BdFO8E&e_PQsQ%w{XZE$LgLDLr*an6wZ|V2%
z-r=7=C&9LYzYfe@XHcMJ0T~7+-oeqa3YC_iP9dXkOCf}*xZeh3mKP|}f>tI7xRAw6
zTnC&dw`4HXB={CQR1ujjVf>|`>iqsShKG@MpV@8Z{mn0(j`Ly~&IJx}-~!)@2?CrF
zM20xQ_VS3~gaH5|W#z52Pkca8dnrlD_#OpeC?=z+Jeh(n_Kj%)!iD!QjRhE^^t*mP
zu}(^iV`Du`odRj!j%r^r7}A2^X<om6{TFBgtYi<Z+u8?M+;QKVm!~1_0oz6e!#xcQ
za=|6+67pCC$f*(g$$J?vOjr-i+avZuQKsAM*RQ{?89st;dmyST5Ex&)cmd)V7;&df
zjz~z_6h?feqfUnj;l{{g4!pktK0GoBsxxN*Vt#|vrU~W6|0c=Z+-LUG=_OA~OAAC7
zcp-bV5p92SyZy=A)S-0=05^1}T=e%hzbVB8E?%jC(GdoL(M%fV9gt%ll+{u990Vdw
zzzj|hy)A&YpbRazZhU0KtUJeqxYDNRyflJ!hCUR~DKaukrkJ5W>uBhrTe(h&QwnN7
ze)@DjVX8wG)_nlPRTg=1P{*8sPX>stYDE>E-&?gaw=hJi@86N{sN@41ii$^^n_CsC
zzR(QQg=PVu8%IN%0Ixt)1>;D)>;IPHj_Fi$l0k(-+tt+-0#nGJ;bC6e0TF+Y`i`At
zRf4xKCa@ZmX+fhwGhCAGm&M-AKT$~9ZT-n89B4&A?+=1S`7qj53XrloNN)zvzSs|&
z6Bn;(=&26rgRO7|mMg#+CP<~nX@%6lUicPDv%HVy^Z>sppdiE$3iS?ks1>9Ky7}nb
zCKyoo12chYzp(nju8(t=44@a!M5UF!q8ofyY0)wkg4VI@DGw#>DUx^w2FPt7h{)oq
z1L(8Z^-Hc@xgrJCT|f?~&g~3k8yOth24vIy{~K{CK=su~Ne84%M`TP6eFZ2N<~sH6
zJ;P^m61+NfAKSHS@0cL>#qMctuo;7OUBK9hiwDbcur50QQ7CGZGnu1B%z2alrRn_-
zNl&`>;NIX5-NxvkQX{BFm$3*4T*;gbU>LfBEde#`=@_gukd&oy?LhgDh7t~E75*3O
zl&Og!M}xrsm(u5tS>XU(^fKgfRNnwi5q2If9u_5=eu)|+Ck@Cp4Y2}STjd{ARaFs?
zidgDPA<N+6Aq*aFm~Tz+W10j>WULI@NKxnwy<c484Kd<|=xmC4Jf<!DugI(DRCKIa
z395EFXt!NHup7~x_2HZIs7bwIbFK}4^Vu0nN}618=c%ChU6L>sFvoCUL5_fDGQ|_)
z{MZo{SUm)2O`HIvhqnEq?x640)l(t5Ht*GXF1Z723m0;>D2^4n6%6GWNJ{ENFVLDG
z9$EzR-{VIj&>memIk^wA2eeogB608DU992+o5g23G?Ge7lRo0Y$R0EZgnGJ0&&h*k
z>08d>!~Bf$zZZpsgu)S_w=YlA>Qhfyn>j~doV@Gn>mAC2E?)-&0z8;1&}Z1g&jyw$
zV*W~n6;BQefJeQ;MSvz8Jg9({;(<#2oOMZqMr0I8q3RSU*|1-xcXJ<&w<ve4?baCb
zhgnJT$&uYuW4x_ILV4%C&Yjx0xHBUcS9>{BVqbso+DtgJt)8&ro@Y4i!`507EEQ{E
zFPW^vpM34*sRZ_e2Tze6k(IvjQ?8RC&_(hh@&+ufRQgWunNsrd)SyD!3DFC!-GOvu
zRvUC(fAvK{w-q$#nIvt3Gm6@U>dJ!k;^JZ~`##dt5Du0n(g4t_s9wG_)AuCD5QW69
zGUCGIt{_^6Z-?8JBFp@<gV219N3|qaK4`%KN^8u4KjVFT4p|SBX(PaO)nH_Hw#LO-
zczHX-Ge=E3S`U|8Vw)9V%8$573nDJ65CY1atuBX6%gn*i1<DU&il9g1&z~(oN#mgG
z_QN6{pxPbKuQe1D6l@K|_Vxz}&Az;FsttF*BA3x#)tAr{w6zI6gh|kNssL1y4Si+Q
zfCrY4^|iwKm+TxI^DA2rBvc%=`uk(XJ32d=!8iy;ptZvTf#%8#XlEIrcW|emZ5(ib
zs;8%C;naSGJjg3y4W_(2Jb4>84!<NZ&F$Wuf7)-8bnq~v0{GGN*fm29+YfjuLlb4C
zXmr&O^vjUj-;ua?8CVS`8GP<}$(f6I9Wg_hhDtMAD=RYehu^<_yCx<kc1_R_@IpY%
zDG6Dj#}o_r_%X5OjH>a@ip~Cci@=9>)DNVlG6z=Pu{lsWlM~1(MROn}Win7vYU)5w
zPfwu8-J3{ogK1mb9lyVM2*#=A@r$Um)KrTu9THNiD}h*Gk*OIO2_QZxKo_7~;@Idp
zE4~Y$L)pW40r%GWcJyS872hURc4}5ulJ7M}1!&+TtD0C^=4z%wAM*0$J1Wc1B}@D1
z{=D}7jCKISJEv<{er}42jvg3BvPqgViuBk~y#eB7EClh6=4L!dA1KA@(sT5OuA|P;
z#}N&QU^-&q;80XoS4TBIFkYecBXX*%Rt=z-FaG&{BTUW>EQP|ecRd$=-$V=0;OSI@
zO^izIKrdaoD~Vd9_>+zB=O_G`gg+@<|M|<_e+%Hh|Kk__`_I4fdM6$ZT$KJCxG8-b
z;RLCOqy5gsJn9P<;M9QRI*bsshXcz+RSANdq(1oxB?u0$Ut8?37p0_J|JH$d0(JGP
zg}rRxK$=qV_J${Z{q}7L)4<1zj4)Qx78Mmwq)$;&j#gHP(glEM_L61)eiqQgt^{7c
z7Q-?8=Z~96=b6t!%^=F(K{gJYxY(EHAqXG%PIdXEKt|SN$i)LMdCF=em@GVZ$3%}Z
zD%bHgY@WUy-nnL3#aUE+(q3o4-M2Si9&@~V*2UENq7`gNkUMH^3b_v)IC+(qSN)3W
zviSG>{QN(6u`hX`C(pvlN=;HyGFf)t{#q-(Ix9X|95prdI^{7&)_*gtWNmGY{*)OK
zC}@~Crlhv(|8ugzxV}HPN9M{ta(Q`wltcpESL^8L2qc%gfWXCgZ2AOHH!yrUimno(
zyZ<?^TTsJ)xMpzi-)8mp20IW`Nx*e*#QC~W0ERdS9Ix;#&_ylZ-sR<GXYkd7EJQ4v
z?a7w~S*lgnwmbnX;X#$vx*8gcw!z>R(r?oR6?+ti^!4eXmBcg+<qQ=l+4qPxq1v6g
zdO~Dm<nUwXy%6CBHI0<aOog+4cVHW!I-N5XZmy#O)c|mPG$^cTs;QZQ4;|cXP{Ob&
ztgNUo2%PrP1zl->*5${U$;t1)b?hwYc~lf%Y6R*WF5WV;SPIHcv#XVRius?{EKY!D
zSU|q>F@i%7R4K%_J^|oIWj(;Ze8bQQ$bxN!RJq*?YbzM!ci<Lzf}P;Hf_7ka=+L?%
z_u<5E&Ame}@RyvOxt*C=S=&MBITGXUjUk?cg$m=&fh}3>u@vsxB~E9_s`z@wH<;!k
zec)v4oyqOC3OuB61xZV51EhvZ0Z+#bE_#dkKthKA1ijQ54RWJrd3kwZGI2~%&|pOy
zZ48wnTs&%TYgpac-jua4Aj#%U>zEq6iuL#R*U7&B0^N8wpB*A>ecv0=iBn%3@3kBt
zo<mt8wiOHnLXob0H~a)aQG~pYz(t|k1eJf|_<BLC@F-uZWf20WZll<y6}G|13AAKr
zo}3e(16SDlpAT9=d~sW$241r|KR7tKv+uy6Pxr5W)u<axgQ&aVQE@`^07<~l2Y;yV
z-iE=%{rsk@a61Hm4_`oW^+|KGD(D)~>xHf3cp=l?DgGu*HsG(F=HlG+tQS8Y98H@}
zP8hID#WH%&sYpsb`zw6425TC04{<p=JL7gv-+06X_zXAVBs9ACc#Enk@V6-oLcXc^
zs0JF}040|xtfAfsAu!~-JK6lcjg^xlb3P)W1RB@#5|WG8082w}H~rKNZ@iJc-R&Hp
zoJye>5_!l4ApYIbKlJsswRHxxu%bb6Vq(JP;R#gSa?K(u3@62xE`S|J1}6pD3luTP
z1I*21S~}#BG(zEJXrkMFSj7qbM>o&|5YQ@F$FE<>pp9BUiy>6fLO^B!(KQ|1|I>hw
za7-Z0SOB9yEddbP(Q*Z}<iDtB{x@}>?agRKE<Hx?2{1|;XWAIqJ;}wU+M`R9c=T;}
zah<+!r#QO33^P=QxGoDt#%_U7oLp9>ho;u}u?4}aSML_~IrxRJYBQ#Fqyjug4Oiea
zh!R6oRB+H8RKjj3sYy5xyB9;9gv=GaUjl>}-hK3Blamomj}Q?f)^15KafZq5U@wDt
z%OH#Y8|A(y9j$STz0;KYJoSM$?jpq1$086d7&1v?RWvn|p!98UxJe<2J6)^}_}^i+
z@#zMRL!@|NdvL+Pe!7k-Wq04stQ3XB$c2W6K5~<j9sJN~s}_(@P@n;YjBpT0k)EyE
zU>5MI#sTQ6<0LbA@W2d^2P$Pax5@M8YZraW2gA@5f8_=upVWlL5+adk({V7;46-Qf
zc;Jd<`=B5qFHbn!>{1%Vp?$($r$XX^)DcGiZmSUZZZEs{Sip0EWIqE)7(PY|f+tVH
zNg~xT!;l`kXID>XK0loS0p_gV<$Lprvo58(qBjLz{>`WNmF5P^kKjMP_5AVEybAF-
zj*EvPzVmtNq=W=4j+uo;II7<`TZ;)R=|eWTx-1SJHHc;lO?og;&}W>5_G;&u7jnUo
zDOeRRFR#L;<Nszol67i&S{?Ku0O?omKF4t5g?}$TUg^}e#o`j>!dgeOAu#TAizXx_
zpq23++FYn(AlO!uQ2ow~@j+Nh6<bTPs3&eG%pNdRE3$w7ESr3brG-U_v(3MI{C;p^
z;(XJ@c~gl;_kc9O#8LB@y*ors^J_HQ#|Z7_!^H!6D(IcJ6Ig+2AxPW+Zs?Ya;m84~
zuO@=ZhuT7SW?_(VJ%=0E5abD<=>XTg>tAezTn7vz=6sXUQ%uPL(B}i08lpu@b!(bF
za7n@~ATYZD4d2QQ&d^8$XA5&-Zw8lfH3Z}3592zyrv6ZmuqmA_;OqVP@uTyA>$o|9
zc5AoiXk#)C>|P5t9Y_DY%k4NK(G5ZA3?yhF=s{1e`%-yQ0+EGHT(Lv6#P-{Uy@xe4
zxU*V_iw6rj7By0=RqlHBJJhkEK^x+{GZ@2YmqlPqbt=8eQSkr#`E!>|M+XNref_`Y
zHnA8*jWl%>p8{(Sj*j-C$=V}JFUi=xAddF-Twff|#T{NL^Z-DF3-2{?I<x<gDOe43
z%H8tO6kJv&0!#Ed6fdCDu?4PDs`o<)2YCV=QQ)1EP=1|X_y8$n8XRC<a0(9rRr29X
z4e_lZ3SRI@%vDPKd*_S$f6cmp%Jjpg(6{7_)0YJ#e{S46P(@um7)})Ui;8Z91%-#F
z_VnmL4Oc1j0EyZ^C^`SsnlEDg>iPFq;JW0#&nnzs3Yg|<!?()vo3zBl#1on%BpQG5
z<o_LI#8+2K-KrB~)q6S)oq(_zpXd2>LNE>f@ZlPg)<M1CxR$uNpBul&wV#*U9f`L0
zApNg@X8_62W<A@{)dkPIBB8Y33`{y`R~f88Gy(#CS65bMz`{0Bf(*-E^m{*QlLeoI
zirN`VhW-CueVxL$iox%DTuDiZQs`3yQZ2NXGY^5j7?A2vMF-H+OlJ`&LMXlgv7{LU
zOV%pR{px$u<t>(&l7a<%0hu+H{oual>69AK&H&dmFAP=j!U94&`)GZdGN`7^8la{N
zd;=|B<mBcOU@PQar2F?Eb~vz|pm`FkOR~s1%}qCv17HuHgi~8O&~`RZ%XU{$&mkC|
zTOL&`(?a{ebuf>EAYsW}kYHN}6P*vHJM=s!l)OWl&8*yUL-kO!-x&S7>FvGZ<;nU{
zhm@Qg6}||06#tH1{Om>}VF-?YI4mN73A??CtaYI$U!mT37(Rh9t=w*CnG}+J808#-
zDp}i8nw7W?iw^MjC8EFBffh8tRcr{S8MHz5%T0&z-&=Wej=Gd?f8nM*$*38iYX^Nv
zlc+8X6-0Gy?Udb(nB7T@^}eu`6({Iu`EfrRRhhxHi}(R{>Kb0&n|o4mXw9djq(lWb
z6O+qBj?bqT$tJ*dZ?Uz$xX<?eNlMCudCz%ww5K2ipcTnV-@n^qZdFYaYE5&|m$fMr
zZXf+kGO2#-?LBb6Of>CX{9+OG#;2yHs%dLqhqHL59PFMF5P`o|N4SW0BS6oN_IAjF
zk-s;X&T8z-s~ZLMC<nXZ-&eCF>}7!4Ia;iMtd2Shl4jF!+&U)>xeYyp!p+SMu=Rg_
z6(9#1BEY{!8pCk?8#f*zAlfa(2I3q1ESB}3_5%lWP{6{jyPusL8_Uq1aIv0*)!W9x
z0wQ|_IjvAUdNK{H1vFp_iF8gnSwM*awH~OcstykhfMY=-cyFpN{s4IXAX`h#(2#yg
z<wT+ztpqqV&?O1IeD<ZLf6#*jP$-9dnt_E6=LVpP9%5}O0*Pmm0$G1%0}TfQA^&wb
z0BWpfkLe$`lPf33gFV=wAG#rF=Xy(=)7UH4?}H5yEFqTQOz(m7DG&r?!kzUR@hLc`
zBk1QDjp_f|cOi+1SF~9}`1Fr^XRa_4^0ip4zm9_;=o+9590Faw+gNlNgKi7{-~=e7
zbkmDLw}>Iyp$c}OI}2q0#`L)$2)0X04lqY>)WwSuniYm}8Kf&ye;N@1A+j8-(0>Wq
z_RK@^HfYw&hwfhF8XFc3f`0>|m{<kB;$E`6_yZ(sNVbScZZ~Ok%cb(8_(9J#{oUcg
z-JP|a1#KLl+B}a92k;)c?pUKc@fb&0b3_u!zh^n|01Ao_*5MmqP5UUGVp<(j4ksh+
z4nsiB??s>-UbwLg&(s@{v^SzBZbP&H2$Q3e0diL?`{9##&3%Z|ojWgf?V)m6x()o(
zdIu~!9slPeB=8YnU#UP&>PBJ3y}Sqys=Efg@*k^=LCoEvVmn6elLSG_ZT+GZ<T0#8
zMQEPLA;vq?h%ivlBC1P_0HYoWDDRu7(?K$axXBrn0e6vA{oe6^*;e9=u+A&*K(j_l
zVxknFX_PUvd#PL(f`%0;jV|T7O&lO<9GM}9*lcxmHL+^6QK2o$_=Ju@R_MKd6`tQr
zs({<j6HERs;1%q%L&sI%=#=C-Qg;u13J_je<>-v+9^AMN>H_Q@zzp#2q{(mu%PxOA
z0-4Q2+3%%e?e!$6J;C>10j1tF7mgQW!V(AsaIpb6Bu$TxX96$m-{`%c1oe0UZn%t+
z7c_OhWH}lISps579h%vK#2T#ld^@ZbVf%m*p~x4(_In)KmZlefc^_={qvDveJ8L~1
z%@sw9wDmxX#HK{>a~p7^Jf|bo&B&6^RK0y;?)%FJz&3aWD-wZyq!bmLG%rHHKqe21
zX82el=15_aJzM^BRe2T6feDbENk-1?H~Y6ZF51D`Vm<4ZnwD0@9(jA@<H5Z`{fQ^w
z7lzNnnlr0>{cchnqmO87pHCM0_c;uSch_`qhlRR{Ndi!2fFsyU&3#T_*1=Eh{YLXK
z2thDpuprEG*)N=s$@{(c6JimhY*<}CC!Kss&ft&#=V9;xp!I0Fx)y_n6vC6xZOq;d
zSm6S7%mgtp$?2VibT-j?<QU%4(lQ@vW$0;XUEptkdJcN{))a8iE+B7!3*6#l_97e+
zw1bp?yAfs#ud5)9*@mre2F6HGa;*#Kp}z`Eji_Y`P%9c1L{5(GJ*?+z2(7U2Q&W*t
zxXCSj@@DIs6nHR-WPo5PjRW^@e9YF!RrKtH%UC$x#SI<<J(2^>Q$59wNg!ua&fxxC
z&0FjX9DZYwp9<Wee?$S#LF$I_1cR9@4vj|^P^q(C^#^%WeEkbW5I7Z~2Xz8fqQOJ@
zR3F((?k74SH(2pS!0bRC139SKSh@VXp0>7Yy)oQZ6srP)WKvDv-y+EI3w$eyH2?07
zSA-)0|1Z|w1gyrtdmr5m$Pk%Alr$Mjs3;8^88(&DL<$wnB`TEaDUvkO&Xg#mQ6-6F
z$ebz7B}oyDA`OU!|GoD1zUOzY^S{nH*LBYK^1evzy`Sg#eAZ{Jd)@cFaHworu_6!|
zhe&*BbML$WZRikspG@5Nyzz&pj~*~=Ij_Enfv0|8i{G33Z#A^!w6(P{H$WBwC5k8!
z`7@-YeI~P$lalB|OQ`Qn1n;5l<04T0Ps`Q8qf1h49ZalzIv<XZ=ivBk*H`C%26nvd
zty;?b(GX7ocvbO*C9vzaPqvGlt?gxEe}8#(dPB7M!fjWfVm1WqJ7`NhRVY8anS0yN
zrEo@dl;3b@G|D+Lae}tW05_cn|2scFKI@(@XW2HaI+g6TZvlg?*Vi|7bych%1RW1}
z)J~^ukq_;1vZGaH4ET&s97HRvMu{2n^TTMINE;0ULb%|*KUOx`x^+6iX@G}_=+7iJ
z>Cu+WyVRrszNV?U`INRzB|>O=AsrF%n&yvBOSH2}C(+-x%gf6TYTm?_2m_acRvM)V
zcuQ)rjhv|P`_~XS@fC?2uExMC5U_O!XwC;Had7J>p8%G`$8dB->3@;D?kMkf=ES@>
zL5I_?<dGS+wK-{z=&=?qsk0rWD}bAj31htJP}wkL#mt}w(vJFa(WUPb(3vqqW29RC
zwB@CjFV_z=&K%+?U;6ufsT($3O%Hl#!aOG-h=y$Xw@R;p<h(Q20@=`uo$NRj!No%P
zs$ox=OEU*r)}n6WBAWMr-_=s6GnkFe?B{anfHMLS?$5?J=q|Qn%a$zydoXkwTDh+S
z)+CPlGKP|1d}1WV(7H|hc~?XUMcKwI@mXJ=TUB17MjG|eo`cxfLmqsHa(Ad1hz6b2
z-WT#j5$`b;VDVX1))@%@)J#NnClbGB)2IWix=+~k=3BO$Z7Pn>g3HxPl%u7){kx~z
zDf1I*=}#!t!22VG5n?pO^s@=WN;Y+WI)pO(4>+V=aD3qPe74x1zXIrK!I_Q!=qf?F
zSeV2tg1}qG;)KAc9h8itfshG3f)m6C*oNJ|Cf^4b0uh(L*6)VHq$g6k^K~&L=QtGt
zeSG-$ReC3aEkY!b+i+6SCUQCBb5Ia>2f!hD@};GwI_4|{-Ga;=Zn%G32^<yr09~Cw
zrBN!(!JjU~Wb^6BttRU~XRIpg+;!FnPN*Fv2e6<_@Mi<9UK1<W&BbbZ?>!yy6eTgQ
zHT<VFIW05O44!EU8!wQd67b*r$BU4|qHrw-7+wJ+2&^B+Z|`ppCjFL_{GW&^d)q=5
z|Ni?t`%eHX)0sB$0W%dW!s_yeIQyZ*ti;Ro*P_Ip!=byf`|q3m_d!Yc^L*wb@SN`T
zcfEql>H?}>60Fl-2eU82*_9GJy0G(7qzyl-*WvLO>yz$><Oc^TN#H*T`w}LzuA7(R
z18*e*I4}{Y972_Ck?V949hT~Emas9nzRml~Wa18XxHB6~OilM3*8LxmK<o4PJy6XK
z3?;pFQS1E_zf*bv3gQ<Z-8;*Tb!X(%EWj@g9Yg3Y@=$UfW|DIArdkDag(U!?YGZt7
z_1m{|?$muq?*=aoVE`HNwY&z-yd_I=UcE@0ZQ<*C7gm$IaxH}XzxDL=NJVuZy$8$A
z0WKiaABU(l1$8EXu{3nRa85&=an3+zz!S7WeJseqJ;By31%vGcplw|w!u3qQo)ZSk
znGO{~Jnqd+uBIpg-q1EcKs<LIf-`*@BbM^+Bzl<nKwp;6FyFpCi#k>9y`Z{p@d2xZ
zXPt%s0mkul69i!d+gsDk!7YVIq}5*M?^*OEcP>8b32w_v$eEzdao+EXBYvCjkJXBd
zWuEemk4yM#IdUVQ2NJX(n-bF&DlAE7{W&)K!f`orRn2cpOMmye6A2G7V0uvLZ-^$A
z%)UnBO`Ce?h{dWPHq*Df#>fvb<@1r7G6U_~<vEl{)8gRwsL;D`=xliSr>5Ay>f={|
zX6}Cdjm$t7|5$e)v+s@-2p6RLh%>NHc_r{CXxp$7p5MlKzn?YdrOGE{egl=f+%_}s
z(<l;A<A~n4`(^7%z&`5<X-q}G)GZ2!A`$%MIXU*lZnx@P)Y?J9JxOk+xkcLNiWE}S
zJ>3*#WiQv6^a0-BF5hJ;<mA-P<?hlI%FI;azT2fJv~_Dcca)tSnqr|`4?8s>V`EwF
zRl7S3Re4vh>VXJyP&1!M+t==z2XEC!Vyv&gMM;`Oy#$Ds3pAyo2C-!OexU=?3ed8Q
z((%U59$g2=i$=iw$V+C4-Rlx~&ZU5sgtDI6_Jk7VV#`>;Vw4zhjLU}SA4>JpSGS)n
zC7_o1{{gAJ^6GvGcK5zJ_g)Q+YndP6UZ@(nu23~{-P7C%-tW(PBi8-uaK4+LZvk7=
zAI-Y`k`J<{29G~g&0+E?E7DmOPTSbuk(gA%Ho*%WG|K#%yXT@ML6y5+(l(vdCAq?n
z@Fql=LVNX7JuwiWrL!RYCQ&#4<LS&WuiBk&t9$W);kB!CJA5YayS2IJwkUFl*nxw&
z_qlA;I;XMm9($R+o*;%gK%b66hDgGIUrutl<zL#DSG~@!>M#y)FWb8Wc}oB1k>itl
z3r4;_I{p}{sXRtjCU@}K3tVNz-iYo&;S)(Ye{a>fnR7TJ!$yC~ga7ljeDmSmg99CU
z-3NphNUELHlYq4x8qE?Z#ut<`n0HWCfCu~77Cn@Ng8nZHX_X@S<K&d%P&;cd=dI0J
zl&y(PLs1&-69-&TZoDiis)WPT$=KL=95SdS#un6EC?(LggqhLCjoN*QRQalno^n$S
zjxMh6^RmmEDWgNiLp@;?w7Fpkh{Gj!>$Qn3Ogn|T?K{oP%_r`V{*=fMbk<|3vq~*D
zr?HCpvEhO}tAYKa*MyIN>{=uRMjuRMc}2zN-MJ4x9cr1IQ!~TNY9=2An;H|hP)qAx
zq3vVFr)y-%-tH3`-yhZ>ff=$*E^i%|u+=Bc#LVnw>-YDuPi>eJav&Bb)~Zt6LXuPh
z2y%9+w|Fn8Iah$M=AK=n^A8)o5A>zFqnlrU#)acnQQ8N5Ng=Qy52rV6U#xl*K1k^*
z(VoZzbD?kciA#!t4ywO)O99%2-v3f;tOOC<>K0|#f4lLG`4tCz5EUoH3W&CC;Y;2)
zEZql?H9GN?(w(bYd(mlHwcWq(3V99>_3T57G1YJ4k5hKP6-UqIrw$2PIGwLwUyO1s
zJv;kE=d{A7U-q_QZEivf@LUHdrGH?Ob_4Z0NUmleRk_AHaC~KY?|QEdI?I3+F4qd8
zQk(k_`eE`MkN{nkWWd}3<Cs&1-e7Hn$Fdndpl!)>>Ic5<kJ@q+B4Ow~p#Dl!>(H}E
z>SmTZxQ%?a_11WP)MGCJKLfq@4q(JMxU4I4ruZE$Zza0TyCcOJNb3A>(vui%U?PVp
zy;>;HLmYQ2E6L{;?~rh#6(4qJ-{9`)I{tJ>k=t8K7Bi4uusa9uOeYgk5sp(1+d2&8
z4R``XnIKp6A(<TPA&|sS7eZZp8KKj*DjO9T?rq(^T36SbYuB!AzuWz$9CWZ+-&MEl
zi=}|r18zL{^AZ2E%K&FSkAF?ZV?`opc>1t5&=E)IaO%E=F)byt;A5fm+_YCQIO}M^
z(vXM<D5g=%MEb*sOUj&S%mf>!b$`L%^Dts`<Y-*fIf@2iCEQ+1TUV+R?g5R#^7p@>
zRCES4Rr1?(M)SZm7+o4YEi9bb-3OqXd?dV<ZT$l@oXD6&HP(m4KOjd?=E}f#ewTjj
zK7#n}A+ehl;<K)1Wb7KhQa7$DOzfSDn!jL3$YYtH5R;54v#w@k+2dbkh|kiMg8?}x
zBIbU6_n31pc6Md`04ZsJJ1#IYhKY%3fq||1w>=<pR3o*V92BZieO=@tuS7VQBVrvT
z)Iy;h@7^`ybba5O{XMU?4{n0m(;+8i`~Hf`N=KwOf9k&bH}Cc$KoJLae94xQGRDFV
z4uGp6Su%qP(hI(l&fwfj{@m||=Bp#%SCRso3YwneE?Orkr8Zjh=Dz<ucfrSZKX?0f
zapv+ukK2|=+S=VS76>}@JXt%_FA+&Xqtt$=`r66WW##JgVR;DVW0hdfv4ZHryK}Sv
z^b?Vgq^!_0Yz3auRXpg5-oB$_DrE<ddaMDrI}=a6+OD6Bd0}AD7GrGC>gc#^tZ<2l
zy>Lm$PT>+J#1nro!T<1kOBjwrd=_L-%ZrwYB$Q5sU1Nul8yXBclmOC48C}iFH{Y=M
z!rqs2>GmY^0AF<BdoXGM1uDryz{LH%=lp!|2cSW@_3duA0VoMSlVDCx|HTQTD?wHC
zym>7@!kGZ%$!$Lpi_mX>*|G2MY{~PleeQ}_J0n(;ae-G)i;*9SS!&r)6G$E0PYxbU
zIl|ViTeV)O;U{YIgIB{D)XKb4`P8Wi+Ol&ZD>vPm5B~i<iJ2ThiHC*AX&wcQB;F)3
zkkWB%B8V^mY7xhyD>R*b;CrAk&{JNCbYWYs5?@{O;Kh}T7gqpX=QV#etOyE=j5I@@
z35rP6K^Gq%joZxy!(7MaSx?pY5@X!b$j2cAwzWG2u8^JzhA6mfHy~kelsX9eYvGHR
z?jKY5N4ge)tJ+!yK=$<-7p-rFqkAf_XVG`@v<!Q8PEP@Vwo(Z8q(G~{KQu--nh*T|
z_QgXQ89#mkq*WTo-=myg!z3p^SNp?@L(~5CcSYvoRKd4#VF}_jHz0W2OeJ)|kZyW;
zLt3AY2?UT|pP9&*Y^i7egL?w5x#MmlOGxFRbS!_g(qP$2z3yJ@?N@d=xy$WP>Z8E9
z{zkL=wV27&5C7@Fh;2eQ5Vr~3B2llo?BwBNrY4|y54>*$4n<-K!M_;pUb?R$l*InY
z&!pwvyD_(zz=w@nK8wyC0jvn|X-kHgs+t;+Ptb{+HO?2?3P2x-SSKN?ysq(Q)PF#$
zI71{Z2q3tDe5lmg0n|t$TvJ!M13Jhu=(JQ1bndY7EM1N99im1@T9p3#(_*Nf3LYdd
zJjhgpP<yap(Q$D<T?jiKL%cA8!SNaw?G=?5XJ1-r#b3NEnRsL)kjwyg*Zm!C(DD9u
z_nD6#qwmyZB1ZstyY#u~#ijqfDJrNjG~62ki1+Ni3=r0%&4^Z@9!EOsp`C^=GlxvZ
z3kHh+1ByhJ0lp3m9fhnS`+;=+6%ZTNR=)%n0~|)lpinW9*>VBk5F)7>j5i-MZSiMa
zO-23(Gf>7j3-saf!xpj)d7BrUl8Q)AO*KLdjr>8#a=hRy2Z0-)x&zVj1d8nlOuXY~
z?r-Mt%)ta4vz)Ts%-^kN_4Hoy*L{og<{e`9KvF1a1flEW{5g)h@lt3JU&2`-)%_Mg
zs#e!?+2}+l)g0kW`f$!a(fA4*z)WUlYohFX)|;3VpH6Qt+AM5tIQXi+VT4ZS(PG@y
z67(cB?ujTE#I-OCd;pqu#PD};fb@>Q6~ddKvx|BLoce`}+K4;};q?!MS_oVqH)y$5
zkQFM(LIj46o4_!Ul+u9@(~#}I=Ni!2yzdVAn~=7SS|~u!Kiw!dXfMsfYAmT*8a_-j
zU>mB|p&u|piBcb6v=%KY9r_I?zLB2)kTMZ5WFEMW)V#ow-_ks~B?GDl_|AOGD?ESj
z+wB!8!viODvi_hJ?$psn^4lLJ`naX@cU8RsQn2Cq{~o3=8<iTKH6RNm;)m@O3)E96
z-;*_NDKg0OK5eNh(nJCovCiAAAoJpdKI~o)8yhQVDVqOSd5lD^tV^!1_fxOXbyGkG
z`#N4%?pu9`ZpQ3t_XyeOJ+7CZlFzG|SrQ%u$M4s>hQYd}ao$a5ft*98`*)F!EH)!O
zm|1^!Ps0`gPQO9%qX}1T+I<%DPI8%h0uCy9juLbFmCj>zP+m|oMpra_0>6GR!3Uch
zaxzBx)rzGDkaFKq=H(G=2PA^6&riq#&lu}9ciG4q7d6y-_Rv;2-dYIc-u78Iso6C;
z^4(>|pw$S3Zq~uU`!Wqn5(*=xCzC^ZbnI5AF)%ZI)ws3z47dc$D<P|~`5&QT2hFsF
zWCFz4#6|gkIuc^5c5Wc7=N*`BY}rq83JNb<J@E_BwR8fBNT*Mq&mjprj~OCz6|ls#
z;E(Ygq1-4Kls~mOQRx(s@+$?4WRP<lmEf;A*2KLwxAHoP{Qs(1I{x2=v9(3KXXIzk
z1_wlaM&$9T1BijtMn?Y`MFW(oGh>J~?4zmHAV7v)0|GtB`Bd!R#3@B>N3k&UW1N5I
zVfN|6Zt#o(tbI{QsKxMA)*NKgV1kCE3kc4K1Jw`_1}}YhFSN;n)$!wiLryUG!;&52
zn1njFrPa%148Vp#!{wd!NI)C7uQ&&EKMPA^8q2tZd)pSqFItYRn1EGD>@B{i79KqT
z%qP7$XY`Wx<%B=}@~R#kc9cgqUk@L*M&EieyWah=C`DduT>ruDcxNDp>p7g(YfpKW
zENEPDHVrX@1FB$MvQPipfwn0b8Gs+B<s90$2?q#Rc7tDbr`N`UngynH23m5zXCD(N
zlx>J${^CKQ6SpOrSPW3ekYva8zA0fU;!2iplfFEI^N;WQF!6s0eKR0m!am?0G(kH)
zk?^=Zjm)#LkL`)tO@SMFz)4-FrnH<pbiM06WZMH7s(4KB&Z$-iz*>1lX!-A<IN<Y`
zWg&cd5<m3$h9M0{4;8PyuHZZO44NZQAD_<HvejZ(RYipZV7Bo!7lu8Y90LM9Ip>2G
z;8i2!0~C)Ic>%!7nO7I{U#oLB&SdNyQX`<xg^0ZpnQ|-CN;;Wd57DfFUhKZK*^zaV
zDxN9Y$L$HGcC8jndcmY1U=;W*yc}5Pu@hazxAQNY?G6PWB097%GA`oos~o7Lxq0(v
zULhtqF=UZ3IP80Xt@^C<k0EZv@p}cR`@|of{7>|IsrXdgwdfl7sAPg#fWwp$4MEHC
zGLtu$^WQ)>f!bOpPqy-Q(J*TeH-0%S5KzevWAWvx(ucq}LLK%q<({B{RAKqwzFG@$
z1>yX|ED1igD=i4OJ4BP0PPsqlSw4C35S_7|3k<Xc#wCzT?#%s54n9_n0nde80l_+v
zSiX-e@Pw@Rug`u0IwxgOPi?FNS9sRKR|}#uUrXCDj}76s0`}P<lgTnhh~wtlyjLro
zPOol03*8B|UKl6v0|ip}bQ|d|B;JJE;Mhb#?DyI+`Fs+#HTI=j6y5?fVKamXvH7bK
zNB*wdi@7E3ptV#(A^pxJ3YZtJpC}fnI&RhMM{3><b^&z(nOdSIfD$oZM@Oebo`2VR
z9MRia&4AY9-oW~}#77Rh3etxkdm>t^v*O=iHA|ZYt(%NE4^|zOc`+9*D5a_&hcN6G
zvcFzv{oAm>L8d*7An#deYR-wqJ;B38b4CHY)mJmO-LX_6KPFJsN_PEwS9LG}C^tcn
z-g&Eb)f}s_fAT=7BqGGus%%Ix^Fbg*Xq)~yP0UeHihWR1$`7s~m0T?!Qz5)C_oPpT
zFkI7mxoZw?6#^xln|M%B4lPgHpTX+5_@lO4Hy9X<)!V~gKGu-vr-HSIb;IpFI8&HP
zE$&p`2xeza4b6uLd-`ej(}3p{UG=x`SiJLO`B~v9p-)0y5+^G9%THiYx1rFkLcUGj
zTi}o0gCLn)R>&8Nx!emu9662*cHad7cCc{id-qidulOx+k+b>v8gK&K2z=@UKhau@
z1P4ZhGnrp`=+B__C45n);mODY;~X9<_mFJ@dRFB)-xqSoX^rOocxp6Zm_P~j+|}m$
z!353%_G)QzbhZU5P2^o=Ly&FYLoOE~zqUjB8}ZV>z)3#8&q6Fs&>%cuL`gIm4iH0x
z2qkFR^gP9*_B`+&27W1o1OgWEx^q$sFWj~xrYaRFjuQksR#Ie0M;r9~w=7ifIGM;U
zEe(|e@C3?&p*5;^EI$BWRFXdfWp;9KDB%wH&6)1x<fD3uCE>RPOr%tAg&s7VdLTzm
zCqgmXe~l0lM(#2H82~QRxGDZ@AwJP~hcKbq+>MNfa7A^sGxr&z%HS~I6kYUihNc2}
zpX*I@;7MkJ(rW)5{~F%)OZQ+wlFSpVJ|xe<`7?q}zyr?IE~hWA5b%7K`A1c;u?Ao>
z@#OW9eFgV%RE#^Cy!SsXpl9`A&CsZUAqGO}`e?EpSF43#`9coUabGkS`KI5dZk-)u
zhDrW;5Say3j^(|#Pcar4=8%x=1*<XT)rzS|Ys*rME=L}G4<Y3PUELn<73~7(-H`tg
z5uV`9yYJTS2Udzb`(+@%UqN*$P6MKpp&7RkUIS%FGM4v`t_P8r;WLRPFL?al5s8N!
zkmHcc&S2vO@1|+!-azC$TRLkz?=$vXsBWi*Im)3eJH!fAP!r&;qA#_t{Wo#r08feR
zHDz}WlMl$u%Bse*x&gWSjyUZUi+WjM6spt@0FB#_yg3OV&a_$sL?v-3=(VJyqxg63
zTRRn|xXuc=5SgzouNw;6-oFy{i<ZVxF&9O@nj*U;yIVjH&05|$RCA}hGo|ey)9`)C
z-}`d2Mn@kJJ1!SGI!{{W%gS=IEP162?W&uWMxXc0-B%j=VNeQke;1>zeipi4e)tT_
z2(=0OwJ*nTiuj6)A#!qJ(sJC_r}S>tEcTe=&wPI4X!G;4-kY6W{#sGR9&z0RZ+s^x
z*uU|8^UGHoJL2KGkmyxnIr|T_Nsh61SPyCjzyHUzPMDb!p73$zm|tIf4*&P7t`BDB
zoOzHb%nUF;ziDcx{rNET`|s-uXI+kqsf`y&`8rHjckaAUnTC~HSI-|Ma;V=)F?6(H
zY1zE6gb<5fnR&UBEOh4{7~keI?5ea`7dx~e*yo{$+*!Gu+wI<bALo|zMDDnr-D2*G
z_P!_$4{h$RhFR);uYdX8KW(+|-Dt&f6))JCq2zRY!9>e@Ws3ZU+ZHVO*AvQyET)vS
zju_>#CPO+wAi`mdkVJO)a1|R#Q3u__h*98=wZNZZ*1@86OA}rJng+S9`p%xc=+~(_
ztnz%Kg#GvX_wNS_n)Ce&uLwkJUX2%s9IkRn951j$q9kOOO2YVd2N<&S`!fabM}fzm
zRr{QfXQ7@#f8vMwlL3-ies5G155v&G7xxz_f_IK2Ca_cjr`xu$)A&iV(ttHr!>Wd>
z@JWkLf{?r+x5Fn(LA_PB=h36~UbU3I1?L@}e@C%`q(szsp6*0^F!ULy4b%8T`KK^T
zY!9Q7K<T%NGvEs1D}vAax?aDF#zC&AgjFFp4P7^Ehn4nkULX$32K?w8IF((~n8^xo
zcvwk9f&jZh6@5t^e@lcdtmaV9IEBVupTlYC5*y0S)Y^~NLK`RH<5%>avp35~j>Is_
zQXb>2#07M>f9?NU&j)6qWRTqy_8eg-Q2h;#DzHLML<+Om_xRr~M&K9aFECjWzZZD(
z@yC#Lim}^}*#htcD}LdvTC1!gApus%8vZ5e%9pE<!3ykHP;BXH7?{9Q@g&eM2}}Fz
z&G5mS5v(gRnSoRY936-QF~I2B%V{jJB@R3UA!Hua{yz8cOL6b(XQ|}Agadr_;dTwr
zmIuRwj39F*4-4EA{Op&#+4QsAJVCmfVv}jw5JnBf$1f~bk(Hc1k7g=TM#p=y5@_|~
zgbrRbx$PD6W$!RM^&D?$R>GA89u^~Q<EtGH;Wd8V)WSldby+W(sr=J)!ihC~G%c>b
zzuzZHUL7eh7_3v9Oj081+)fuZ8m(M;2=(~1bODyb3I0_$?8S4%B^22iufVE@nw@0m
zc+jI%E`YxL?iRB<i<q7WC;HJ((Hz9#UkSYUz)SBEpcKTULNolF+!TYWYQL}qP2VV;
zo?mu?#R^#_!NY=LgX+ImqwkCc%w_ag))l7S0w)K^g|QC&-y@oFEd=?)Y$P4+eRBTf
zhMS_6A-{3xSZ4{7JeRxT1$!*j-FUX;Qh(vioyv`Rv3eZ*jeDK6H$+=c{evx5$!&b0
zBZN#nNB*U|02#xV<Beq{Wj}r0cLxp%SIA$Z{Q$;p#wJ0KU+nu)`C4s9puUin)VS#*
z1X(3|CA@`asITI(pask#ygjXO2wRgJ0S~4Fzasn2b1u*JVqgbEStPVAmvY9-^|W3_
zV^3|x^|$spHG+*Q6DBYd&ZLX7*h{dt0kJ9myt!UiC%w|5Bc8oL-P<d!&aL_2A{)wC
zPueU&IwYg<rh#mafg0f~we0u-K%O{4R0|NC1#8r$oC`QFh-izmF{^tj02egN&CyOX
z<L(SyEgp8|-6;Fhub!^&5`kGb1J3`z^hM2|<6SK;ON*QK8eHmlucqf;>-wYLUuQZc
z_|grq>M_LFGu`_?$p{RYM^*b<Kou<j^hbMK8hVb_6u2Zw^mG8NB8tN;k#0dHMuh^)
zS9mpHbehDQe+-z~j--!cSnM&E1VpK}So_rV6x$Ug6!stOGc2lgg#s(#Z941PDA|Pz
zqb8Sx%uR9}uHDe|-p!x*>^KwE`l@?<?on%Gx~D5Pk|7l{)_SG{B!(Xb@bB8Ga76K>
z^;Goq(r@mO9&LTe7=Y-Q$02V=7_sx-y4-xAkc|>b^&4|TAa*%gJHQ>WYK|A|0|WL@
z<}Tq8pmQNWI+<o1`tf%Fou%;xLP1f*&6hbCL#v|i3VfYLfb_r`ohF<`SHOdV#Dm~C
znS;(P8#kf%<FCK6d;RjTUWYSvXwuO#;7mU|n<<E_h&T24xc9bTdK{xAwJ|r_DamoK
z-;^t9Z}tohNms@7=N$UJB4o8`wOr{ww{lu-?8^wt)QvztB>l&GBv#2of3k+kAP>m}
z6NHHT<JW~aKpK{a!fbdoYzoMAk30pZZn}68NCc`rB$x<qlBHWd;h}1{t5Vcu*1!Tf
z4`%rie!%jRH8WA!ko6;9^YlTtwZw7;3Mr#pl?2(x2r?3Hq@s=nqtBlbm`>%m%1h{}
z3~GI~Ysi2G4Lw~jipJT_Q(1~cV@0)D#K9H6OWkn=qE9QSx;S(bJeYf6Ac&^nzFJ&k
zb_9ZwaZ>rpN)OL2mxka=BPFy|;sjW1+daMX`4Z5^T$GZJHTMz@Ovqqo83Z)}%$X~b
zn-WQ%Lqs)G0pBQgBRo7jp{?J)fI16Uu*;qtbE4Y;cc^)2L|{ciPjDK=&$-Xem;C`V
z$U;Wm)x~rTuS5?OP-)Oy)32AYGFguz(uv+9thjLDLYZ7}bkH(FXN)KmxGm!kyjLDW
zPIF`<gE5p7e$FU5;uwpML?cr1{tLu6aQ$2no5>6glT=*|tq}X5)Or*%?`H|!3jGLd
zdAvaer0LA~)Ql)lty%zL<YMhRY1+po4fYi?ZD2xFp}@Ng@bZOn__d~EcEFPH_{#yc
zf+IKefF_ianEcp=&N;WgFAnjST;U<2H_d8<k`v)TtjVNkx~M(wj-#a?-cj0t=w66;
zwGA2w3v_revr0!&YaF$sLb=LD!rdu7M3;(ko1=;wZ!Fd~25q7O2*;OSf1Nesp;QNu
zLIXJ^U@nc7^(eN`Cc6dn=Tw^20mq-7m_h}4d2$B@@?~9A@t$|prAe*dQn6&%ucs~F
z=VIsuNdf1r8N-HCAWc%$bnV`PBOT78<Z6d&d>lPHmbxl<RK^)a&0NrV+8`~+@KW_o
zf!B)_=A~hH;Wf}}oit}+_!Hc<NI<gt$K|Cc>2aXrSy#e+iVQ0doo;Gi>;t&BvBkI#
z^W0ZsF$N^`wlJluNC7}d?RPp*(JBm5EQbP{lBw^F=@ONoQj`OSeLQ)7n=c}*4-T4k
zKVLj+c(`6cq&>2zawH6b(S>SzmkUfb6d2E(auu*IPaZ#BVpDhpDG#i#$SMt7YaZQN
zwJaM?!{FF(72-`v?855exo@C)@R1w>L!o81P9NuO7rJ=zDfwiQkBmjpuCj&f>$6Nh
z&3^UzwF!Ek-~c>|NmGa_EVnV&*viYS5N;pnoZD-=4wq-x&_?9^2>1phP+^H8F<J8s
zI@IJo1!DQ**yb>1;eC;`%xl*=Z+INFU5#;xGy^ihX`H0Sq)#d-HaRshXU?RcK?j?g
zH=A&fR^~dJL$qOrV6GC6ZJJZD_|$${T32B&mI3Ze8(D8)tI;TDMC##d=7#?Zi;&1Z
zx&RHLT+2JG8Zm`q+rZ#pv^w55=L5hMOLn}C0~mdg9go?`<ux{iVYr01I2ZBiv#h5E
zBZ*B#p}#&F6ftZw<cP5<Yw?<%AOR&fVPj1Hq*9u?NdHgL;Lx-UU<oJG%s{|{EVvan
zgJr#z_e$2|QDp-vRoJ~5dtN1l8SV)!E-rFvux@Gcq9rHK8`z6*pWKAk-Gfo~w`%nt
z!`0-*I$ka)W=y^v*tEk;t2f<%wFa0;+VNQrbM<cvSbNw^4aQ{&o>TDAl-iO}wXP5=
z>|c5lGM7l0Bxpe#%lx2983xRUW;`<~WsohUm}hOn0lxd5Gqj<Ov2=1iK6AD2+U5mF
z*HLsrw{o(u(VEM~4YA-QAMDrOaNX~L%BBr77PLFE0p*kv7X~Pl!a8v+A{Y|t-Mej=
zYittDL4{OPd3KnA>Ga|FcxZLb0~C%`OM@A44xWfa3NDuWJA|Y?iwfb8Ni<7v0exSZ
zrjnr-#S9tq-kXl)YjpnB6u0^LLLmh%-_&QirB7QuDKJAo!9}ri5q#@381;dPaS{->
z_0$uQ5DAwoxF$#sauI0VZ8T7r1VRXV4y1b^$P98!%8rQFgKRO>^K}S8$3VYHI0kS|
zBdQ%9eQ$Jz`p?wq7TaVCH<9r-e1vLT`qO~qh>fx|Mb0dpbR{{NxQ{0y$LC@cX$EvU
zH1g*Ugk+u=%uDzo6itwRA#&29VG?bFV~XrXhnKrU>Kztl>yI;qeWoN}PzSv>0(?n-
zOX50k@9-=(;Y1}DGYl)s*_M?JeibFD_&4$;Rl=Mkic4PK0tiX~Q>+z_*#wFZ(sIF8
zG5bx854w0jc#L66?@5E%RNA!Y9E}FYHW`ymbV+HYS57)=GEr*XJgd=DLrBy<s!%q$
zd>U^hD-IWR;1ov9tcKg4lja4~GU!2XB;R{jgIz@ctEgG0jfNg3b14?o&phCQkNgg^
zjmb_G?r>FkC93+yWTl7};VA~vJNOo5Y|dUusMdys_vE4qjT_sqZoOrI^9Je6?$3AJ
zrlGe<UfDcHeiXT%fBmIF@-(>$(J37ZY(i@YuEOZ4a=4vV{afYm2g^i(IAIr^k(9(n
zD49_bP<1SfAaDvp<TH#;`L68E43TAt-sgh_jXkA={tHu%ve>x-UPulw;O+W5K=Z6g
zun#r~8Oo8SjYvXZ3(y#m$~Ntxeh-51Ac!zS@gnC4rx0?Z#t2MPy6f+LzyORim3W;@
zi*x0_$Caz(qPKwVAS0`~Paf9o1<-P5fj~iq*;Q}^D^xs<>nQ?XJ45XbC`KNxv_n?s
zE#{JxpBjn?JE-x|z(JY`-Y`+T;Osr0Lk@&U9-S%*VAzPnkxoevy`;g-eym)PX|)`_
zyz3A-Fop<|s+hvGN+=1}MPr=ij03L`3}99C4g+3uZS~75qUASK;0VKg)~sNJ7d7L2
zuR=#}^W{F@#Rc_Qg;EFgh`yj#?(&E-b&*r>-oeJCqmCFCF!tPp$&%!sg5s1;K9*5%
zdX7&^eL+FuME!<ChYm4L#b=XJu@l!t13fjrTm>l<!1L%t+)wj^N{}{{9SdvWBAJ73
z^Ugb4`qYpdV~pWdJHHJ(jo(5u1;$Nl`JlR~>Uj(jxeSA&rK?r&Rw@BJu+t2>OI+Ml
ziVFz%6y2a`p0N2hwrfBOvsx%$%HTqKf1~;vY`8$vo2YNsWb~rYxG&dAmSsN=ASIXM
zpp34RDt_~3tmbSEJ`Gv7JcE}s>|uuYDOn81-5`BbbVY(`5!T1DFHYo>9z>mRgcdCS
zEX?0XMWCg9ii!bayyfiFg>e3=tWrs6|A=-#w1LVQNR868%yUE4RaJA}h>n8!-9ir7
zc{_3o(Mg)kp;DtE8z2d_-(gc@)R2ww6Dv^S!idyEwx09#6^LwbPO59jhbjS-UBxlS
z@Hq_6r4<Q+G)zqLG}!5o^ETZRHCN^xVJHR&0n)>-jr`~sbNV#dwsPfYQbOvFew3#2
z1IaHe&!r`KLHy#Yy*<IG4%62V=Gt#JUnmD9@Czi$NPOUW)&i>gX*nu|$$(A;P5=^@
zHQL&1cNbI+{HovH+)W%o>U8*YIOL#7l;AwXkVHmf&9Ks0Fm@>$A8>s6?d)iP8V}{z
z2c`zk!hqApv5R#Jo;-PSJnAOZ!9{|Njg9Ae?E+^vXZmbpFG$rW+<1S<l#pSwhg{$)
z`F_jcGsa$#Yiob)mMBSX`1O~ZlPGmVI%|e<*lC8bs&=DE!RGUK7r*=dYXmb`3zt)9
z39+C`AvJ(?N*X#@+u;gJo-H`&NsEkP(}4%ALU+p>nDO%~i7sdXz;*vqOo24+TlHqY
zfyQ53s@po6lAKoiC<CLhX)2y2{$pr(cBIFQ?6lizQ@3h_JuOQa+HabE4wr$XoT27v
zk4>mUp?c)zXT2kB&RS26YYf@KE4(rfJI3<j(!pPDWDa(#Zr|37!Wx&^gCZMMb>232
z4;vgPoRWeb4dKCnWSuIA5r<AfDOT>hR^4uI9BKr@<3zfQthor<Z!-Iboy3QdTT{6b
zIn1Hsl}E8c9%k3L1g^=!G4G2CfhFj`u70GVPrg<(?}!3BoM*G%On%05Dh98*qR$7I
zOtgXJnd)B?LqLhA5KbR3VNpIp8~&}8n99~uX%smj`=rSTp6-_7;XOb)1_%@`bUE*0
z?Cq=Po8M>$-LNDVhE!o^b&hVPv@b61D)1qR>H7qWtUz{XIQ$wmCBt1Wj8Yka>Wj)9
za2yjaCj<g`M8><h-NW><Dd>Or1<hA(Wf9VfMFqD#Di5B9L)W1*Oo4-U+Oy8j&CP2y
zMu}}QJy*AW6RcjC^E&MTO#r@-A8Rid$bc6`g0mxgXq{=dH=3fP%E!I)cv(4}h_MFY
zyO(+2?|y*}%RCO)@>%;Mi6MvAkyv6Eo;Wc*g(f`MJPC0s>VzXQM<d(l6Yzb*cIRoq
z;~m^9dVQ~|Xer(8T!}PP<-nx1mX=H$eCo$1nc$umoi4KD)^^Ysq=b*J+wAbAiYcNk
z+_?9?QpiQ54m1RoXKsdkilQv`BF;n{g2@tvU*Z1}4g197K40D<VIY%Nd@33DJ=?*m
zXw?z@KF@S|4q76W?YXw+Vdn~TJ{`xjO3F9$0_KltgRvpY;TRqhrOZU#L^i>jGYI=M
zoR`nOzBgleZP3#*K^%njXpJsOy&_f${TVuwlnNtqODYOC`gcv#>M2>(D{&gRGR-B!
z)EQ^w<mW+U-_p^Ch<gv7Akm5Om`9uJcMma)cAYG<Cfx9rTb*E(`9RkYro2`vW}s9~
z_Ukxh1Dj|c6g)KNx2pX&*d-OehlaBhj{vD7?`DVx<}6)$>sdGMKGni*5E&V}9T+Wr
zQ>96K13qHI&iBic+lrb|W|Awb=sU%|pwxm&Ounvz=-LlAn{SWx*B&@R$`G9onyZMK
z>io}Kv#f0yfd7DZ<i2afQHdI!W)!7GyrO}Ia;>O!Q}=(^4E(j{Q`o{btm<VQ*=XBd
zfs)~In>I^v6CMvKS;+DrS1n$?6-Yd}Fq5Rf>0BED5iG-*!PDkHW|-+8L23I_ndL9v
z`Xsc;xah{gw$x-N$((Em+O#l1E4PX;Ti8jXJE*ZM5)p_jcfreNGSaUU{Qb7P4p=IU
zV5hb&kaGtRV5u+#b8XMdYVFD3JRuA7^i#oOI(NbE=N38@t_7Zl7#*!WCIzM$j$p7|
zZ3)}!vNB||c&ok$iIhnJ)2ls5vm`-3dNf63(NTSo@#$}a#Ihs*#~;p(MAd%#QF>+*
z8)+WpXc^lJw&9dMj&>5bW?q=C*n$x|%R54yko3?16BGtWRva=4>ADz_+M8usrjn!H
z+;=`tG;k8}6j$IjVql*NQu;py55=2c*HX56id7<>i=_HqUH^jZs5zE*92H=RwQECF
zGF%n68T5-vQkLPY51u=j?y__h68}Z_1SN`Q&QBQsO6Inp4=Js$S+6?W?sof&ID-(U
zGUk|A*k&|1o{n;OqG5)%M7E$rwvvT8dkJc`0P$xk`q(lDS5yw)iX@E1ayUz<bjc&c
zl6GW@D=MMV-Mf_cP!m4z|LI!aJo?UrR4SJej=%xO1VkCbTrkCt*SU?`BSZhnzIsW3
z0r)!Fc51NFy`HiJr^6YPi?eR%QN8C72nz7e;gY+j27@C>^>Pd<8DxQBy!Q|!qXNYJ
zv|m4x9NX}m3^6wE@f03QK+MDC1hpPzY+=+y#$kY03=V#U-bH2qxAzL`hTWJ!Og<#(
z4E1e5T0qDCRmZ-y8Z>D|Y!mP8FQWP(Z4Exz28-)EkHOd?!WPVxbj;~=hK&F$0R-m;
zzU7`c!JFxUXo+kyun;rRh=Pq2b*`3{)}fJ<W|b_`qXvTD33LO1;>b!0rNDyC7^xyd
zw)jA`T9>ic5y8lA`HwB`fEHx>WN!lsL;^$tT9TVW=iCc5J9<DT(KOktq_X>eo&&nW
z%2j&Noo$C%wECC&{UAyvU+`J4g9%^flqDq|b?h5qmX3@*1!>WvV*w?kg|wdfvY083
z@|+}{h{_*Dxg2G7a2p7Bmyx~!ZW5^qKq~C2Hqh4>%|A66tpYY0=l>k0Wh94%Y@u#1
zxDUSX?u-O_Mv4fuQX*!kUq4oc3uk?Ns1StT*k>qVqhXM8mF;dL(86dwzrPJ@=OYtI
z$8FGLQ3w1c{rUnZZ%*A8+GWuKX8x4NKblC7+(Cv{{|6|e7C~LH!7%q>6}@`tAs{$-
zUTaV(fmWIF4irF{CzN;wB=La@k;}jY)>Ky6+ws0JgWpcEMn<miSou(zYb|rrwImlm
zz{WceC>Vq&Q-);pa2l4XLr6Kk#L^Grzl|MSp~t0tBfj+>Is+0M`8};iUm;31!6<JD
z6Ucz3no;8^q2@CG_0B>Nhi0HXk%G1r{%S2>iyiNI29inKowY&?RpkzXG%^g}(q(X`
zD!jwNy~SBUQ_az+Q?W)!U`cE8S2XL!B*c4~Ta-qVu`oNY0!x<&C6Ja7@$e6@%S=F@
zx*7`jF|ozLj<I%$tE8{<kWul+y#0krMbV7C3OULNCX!Y0!X}#r=Hc060iTEz3NpbF
z+#vJ-Oo1O~m2Dz$CPTUizz0uU1haEz-KoQDp!xHO%NsON;3B}vT~mW`fXdRpr&rEH
zsl`D*28Xma{X00=$dN(Hnbd_zgPJR<%L0P2SWv{uN;3SN0Jsoeao8c<wCwyFwopEt
zve2oG#5=>iW9B~DCTNx%*zjpe|F?e8R$M&h@b~%<^?i4=N&<fN`66pnM*|4L|1a;|
z^n_w>|I>)F0<Q5NEp7)(WHi6ug+KDY%;z@!U%yV@{J;73|IL@Lt)`H@3^53mVF^g0
zsaXYs7PvJu)Bu{xByttvCHM5m5$y;Fi@gXWm}=d5Rpf=)c$<(r3{fb<Swkv=#e%K;
zw=&p)xoav*$R&|`tVww~0PPIoNLm~4eLoDB<AO@U7oeu)Ry0Y^L7K0Yrv$*A1{JL0
zg;`dBF|Ea-Cpf|hKsV_Cp2(fi9Jl?)lZgmo;i>$$a<UKe3~;cHO+rZQA?6aGttt|o
zU>%T^HMXzey=`a-Z3J7S8Xd5ch)QU9@%UBbaf7~@a|GzaM5IDJX3U+^B0m}(5>-s~
z!lB#2UE3n*2#SPzMB#uxbFXb2gu95P=F9#6&j<++BD3^G{|83${|u2dEEg7=j{rtf
z-bs!I%-EP))G}iP&V0(DxScJE%!qMP6>t$~H{FUh7xKU7-+#3Ok0{5f04p~V5s*C~
zjg2I!JHEjr{V$Zf<o-^n8hY8$iQp7EkhTxqSE58Z721PAOI9lI4|Q@i5OPq5Y60f<
zW@NGtx=T6XNGPd*b?yWqW(B510gsb@O&tc(eUiM{S@RcW-Z(*7K(!7H{1Qo|Z5lAq
zfjtyY0|`-j1rBKg^}6T09S+L>#Nl8`i)eoM2WTKPRihS<Zksj+(nt%TcPL(<P3FqC
zEmQ;n706hZf*$Ym9zsZtKyMX3tkN7BX%^93=XMJs5qS<+!3Vj4ZIfoh42e|LIK%cV
z2YFoaEtU?+b1I$nHbcry6mNvuOWeC{(!vm<m~b1~rU=1xj{B!gdpW;ePq$l)DS>l3
zHzRb6mC{TJQ_7#y`4;9U(rDFVm#8P!0KV?Nj?xZ1>{}1L&;>EzdbH1HXw*qxcQe(~
zScORT`Qyz<%0(t*j>u(I*LYP_gM|eD_BM_9nL7TyJ0|K%zuUZEw)SjDWmXJHvM!lc
z_9=3})J$?*qbwSG7{hslt?s~CrMIP2HptNc!#&W&cy@GF)7y@p4+=282uP;Ik+(KX
zt_7kQYN*7^tXW=Ny|;?&8fUD1otm$3?54-L`B&DYNyLBj)M(di`h2p~zd)z69uf#R
zkrKW|H>Rv?6S+pwgf_HPaoXo%bOiQ~^tBZ>&^J)72mF~VQb|#Xxj=hfZvTocXHXL$
zg{P6gaK`GU8xKed*#y4&66z_eA|zTP*H?&=OX5WQFST<KO*3pHW*(P4_2Zz7%{0u{
z+Ew~<;9P-Ygh_8vn$uWMSAz@X2fC77%Z`n%BAYbS#j0&;yFXk-(b@v&_oU~gK24m{
zWbO@JmJvkfWZ6h!AessJkUPC&ff}Z}=6Bqz<&7DnE5Y9KgtGmm@)(>F^pZY6Qam4v
zE;Xsm>)eT>vSi{$O(U*f$Jtq$KZ3|g5C<V=wwaMVEb}n*p)&R`z_4gJkjmNIrQak)
zi6F>3#ZU*gajn1Yp8)KUL*wPzdSfwqwG@Gc+xBhYIN;MhEf<e^k^>u3Ebg4|b0mRw
zS01>JwlAOVkJeYK<MymemsSFRtm3+UmllSi^*r~)_lXR-4gh$q`1>16n0B1C9*=kE
zby+}C5Dx$adf=krrs*ehAZ3R<3A~$4M3+Eg!{Dz4+}6xc$|M<_x9He|jvbC#^qH(G
z-KN$2rw|(Xarw#(?&#IEgXnp+Iva`kt$P21=hOQISo+DfNY^ax>~p=BIUhrEGZE#7
z|Kw7*4M?&(GbS#E3>e!^7xeFHC_qR|C_UI^*^CMART>+;(d_YQ2pr+$*MU&$44Euq
zNAm0AXV0dR12n7{vb=J8s1eN#?wmV;q=Jw=xVYB=mF~fmtfSnAoiakGH@HomZWM({
zi%cVrxZ8hBF@l8$0hIW38NFxl`t9H>R^gj^QO{9pVriWx7Y>tF#rs9#I)P&hGra{B
zB_XFcZl3^B6NL~q?P=JQb~>~Wc({c><VIq~yJ0Rut}(agN5(b~mT)KT&~+2`h(QU2
zJ$lu7RkuPZy<;MW?nBBjQHKPY6b@epm&5y%t)Tpa2r5oFNid)VFm4ZZ<A}`yVkHgz
zIFN}4L^Bq+LtQf%yiN(g6t9<!NMI>yV_?lvqs6QcB|0N%l-Nt<aAPSHFW*}cqKyIG
zOqA!v))t(?4iDip--|m*?PZ!Dn%j(K=Vfdf0zS(icAjuCh$Xh=oSG{>!9BPLNn~e3
zIXUog93!$HQZ;UD_mmM>l;zNma`U<k#sCJKZepKnk&CFtozSyW0(8#mL&HWp^~((6
z4m*MUNzz7SxpTS4dnS!VkS%Fw%JH<Z>p_2)d%b7&5|Ry%EEixoLGXSd!C41lGcg6q
z90Hn<hL#A!+iLQeSw0$AXZzppp)f7R9n(7v16GT78|ouCOZor)s4Ooi=19f_q@zdu
zPmdH0mwd2q$q-$+T{9F7DPb#kaJB#U)u)xP&(QD;@Qg$=4}#l4G%f6%pjndx);%vS
zt_G{KhcexR@7sIZ5W-7!27inrhzv!*N}7Nv8#BR_NYNn`R1C5gSPxSXv*Q`!dm%l-
zJsq`2f^{Mq6k!NcsvWe4-qPe=G9yK*;l^$1)fECGo2&R!Yc{P^gaPX51JNSA2cQ@v
zcPic&paN`*V)`#rKZSeZ=Tsr=Nbc32GlZci*vx(XbM^?rGI7##|NNXUK~M=*LBO34
za(Axmh8aVauqhxH4X)0wnL?B|S^v^7q^AgdoRdmC^A#Jp0(|ivV$WF@2Q}H_4R|cN
z;b!k;uhZ%7hZa4VwEO)0Iv3;>M201AmaU>Q7+7xx`XYO|?Z0FgDQ{hbi;U`Qr0FJD
zMQwgteU)Juv>bcDs#p61ydSXOP|=K@Z)T)#YxmIJ-aZ{x9kcWf??BqI4NaoT_qRQE
z#U`P{u&16k$ROe3?~IWSg4Ak3jB4}i$E+U}>qkM#3ZdHZem~EG+In`ls@ryG4j8gX
zR4fNSVfx+D2IQHSkd-abJ62)|uG^YK@sGAshZouNcHszr55ZVAEO5x39Z3E8pKs~0
z03bPD>EwE7XK5o=^0=#WTtd*JIV!&qhx*{(f}!Op@6gx|UZ&qoUU>1vQ(C7QU4;A6
zic0Y7bC^Hq-J<t&6=hQFI^6OeB)m>=Udqi3MtHw<ff@8BG+8QYw%|zFc3=#n)4qXX
z;ObtUuT8fJgg;@^zt}kR4%r~CknITdC8>dcl*$1)6Hfq&1ZiDi*co&$HB$1?q+V=1
z6>rSot*6;7(^%?YhT`IkdF>MvLDZ{~)b`zsIu>xNF>!??=i3k|@%V8uPd_s=v*(4A
z$U&1gG9gVL=q*;>%GlZOkam%Q3}n`h=Vyw5RY0HS5Agf?PiDW(&CF<`2Z=@QIfG5b
zn>2+oENIa*v26gTwd14i%o6i}2YQ437JzM_jPgpOobzv$K+atJh!ao(nQ35m?e||E
zk+MxDR+m*g;~e}{?DkALC$=)!x+K8OhM+jKl+e1Ak(5^mYMkMQo?%HYSbvIb-(wtO
zG0h+i*qz_YU+6lYTEJ|%L}xxtpf_UHz>tH?L$6ssMkQvF6-&q^5|J?;ixV7gBo=&k
zm}a1zeEZaztDoMl+3)~p{AAZ=HBkqel4v?TBoD|S$+|={H=rS2|J@u6({<f9oGRA?
zg?Rbmg`>MGw9cz8%#Nk}8*g+f(U^%`mFnXLM@&MI$r?f7#S}#iueL<c&7C2$CAsYR
zLWntO0t7bCZlmV$Hpb{H;Ax=*ozXgny$&5_{Ng~+pN+4|#EFPxfciQu_+hSyO(eg$
zlsIw!CvkD{HOt0}SwJ`eW`uR$;CYx0FrJFw)#@IBEAt4`{V;nC{=(J5UX6#d--^m@
z`|G@B8BDx~M~@8c((r0z|I!O?39r6GmcFFtz=GUr>+ulc5-f59>H{FZqa%U-3ld+F
zfFZxHMmgxdr%{~=u_Y+EN+IQabbKAIEG2jhGp#IP<5L>xiF1EVU5C=gE}fxn9m=^4
zb1C4!_-VpBc2NkQz68_<X%-M>q3)J|&Eyyh&=_c3Q`}v_{Dg!65b@Nnf-kJ$J<QY5
zaW3FIk2EtjLdMbl+${p42{rBI$x%GWtWqy-*&>&s9rhfw*fY#9jX3OzfBn4Wxb?)u
zd8!gG&l?L~ZHEA%%;^UHMmq{!9-8up6P~D{_)kO~#pR`Es7c$je%e4xVR3E8iZc^A
z1OQ>L`EWn?&tn#D&qN+jUGv-(yj)7R$l-SE(aW5@<X|<E>CeW|mJIpIFt^)e+d{_G
zG;*G7U6B1$$$4Mm09lvW#IM(5M+EB&hRlP>4s!iU{iSu(33Udv2mB!#<XFHgo;V~h
z@LJUylF7@=@^5*o=p>YbWoNYay=ea~Zahvllu`VX4KPv2w~+xUsPR<cXJG}l8_kp@
zfixi+^8=c?N7BR#^uqz8R43%)Fn0!b%6dJ&!oD<2b{UJc0%Zk-n(3DNfew?xaMpO<
zJz_!>2%L&o?A2xh0%F>SLK=q+gWZv~{OVgwkw7Pjr{HK|CzgPa;QP*YHk?PuBS?I-
zjz8~Z97eX_cZnhtJ#gwNfw9m<a*fAg4r~U+$`g~uc$US)4Rc>6b7m6nr&Q$kF{Og6
zpx5wBAQki3q-k%@DDzyAbeHjhFDpbC&oJQlk}<2WF+)AWS?JV4!?GT{-ot?SkO5T!
z9ObcP0An-}qV?n|M!Jz;jjWqs+_9<SHdUd7tE)Oqnty|bV~9+&!)4i&G59C4k|rY;
z)!5?b8%TX<fMo$7eJEYU1NqzKi8jGvHgAC2XVLxxC=1#QsdVrZZrD5>Www$BO^MlD
zrB4t?NpO0f<t~uJ$WrUk8NvZs0jG$wC7rYrGc2(?o!#qfnJ6s~=N=#b_wNMNNhi5{
zxT~I$PdE&5z4<5}tK>TG;$mPiui0Yp4+jbYnV-ehn>%mbsQjDPt|<rcvQp%?^i|G=
z4Wsix7`{16j}jUHb#x6c@ffF?Q2zj%eI*k|046?Jk$5XBTkiioIs#4_S><7#g)V@&
zO7DK89~J553+Yt(=(`-09U8VYPW$(c!)y0g!fF?g?HFSotj@AfFk>Hm9w>BFSen5c
zbbiBN1Wl!Og;oarPa`CPWafdHHmx{GjlsW&kSJFn*EX6sN}M`y>>w^v#Slu3>9eV_
zf;T+$l#d5au@bgW|La@9(BSaOCr_WYqCq5L%wNqGN)jcrFqHGZ015*H1?;^`2$5~b
z5zN7N=mGQF5hfq1|0Rad{=_N<fm&tP%So^)Y{9o=?D2)mGD@<`M5~jEN}l^cf~B&7
z=b2@N32?m{RgiW-V+CHHGaoQzm2{N^j15HAXayP%vgz_5X5>W7g@oZCz9|_F^Di*^
z1&2B)7@KqR!TRM8^Ia$kwZ2zt*=ke{8T+m}#uA=Sv@9GAM~CzU*h}oD29wmV4f3)K
zC>_oh(sz^ZBt%NF%98YmS&Ac;Busw+@-gmlH25%i62*7w7&oFFQ;C54-3v{ROs6Fx
zIp`hD#M)@3gz)EER7f;n0lBdU5Vt4a1z9#xPi;zxPe~qP$Pz1IshEJ{`Z?%P2*T81
zR;{))Zak>Wdv6g*iINC3*{7WO?)z+-eTC0!-0Up<b7~Baq)`=sbM~YhjZ%B3a0C*L
zz-HbAA9~Q}z0r77_q(F3kSz$Nz;WuXz<PgvnGx@$9rie|mu{+@*M#1$lm2HeWuDQ*
z>T`<v)n2`kJ{vM1PfWMxXq1L)!z(Ehz0C)E7T)bV<f6u$qsC*xVsU7zP_lYy*Jo^9
zYQ~arG99>gz2^76BX2#rBo&c-@NgJ0DdaG8z$^+luF;nt4_d%;8}&sQT#xD5O`q%M
zD~gY9US?xZsk;8g`C3m;iB|Loq6f=&X3}s3IT9(te%gI8*6CW*GvwyUs9=mdo-Xz4
zKz9u+$|18ws$*bhx2;6~6S|$-3gF+>?(2_WLh3%lEK!xoY9Dm3qNyA1DJ;Dp&Y*d&
zeYQ~1`Pz<1{M`k|FecuKOh5Ygp^fH~s}6q$^@Z|JAW+G*#t?I2<s&dB{t+jb|1Zpm
zL%07qaj-6p6>V9QmhX3&5FD^f8tT*CcBOrCUq+i6U}EZ;Ivk_qTA&5XZBS+6lQ+g^
zqTFSiLBXOH7gc9CTpYl7@bVw{{Q0xR(sftKXu-n5qPd$5)7x2mr`5iJL1Or$m=g9^
z0$q90A)!Tu5a^+>M#Xm`QZR@JdHqs`D84#;W`+#I!vj?j_G)ED0mmsxH7&+dxRxRo
zGTHPp^YBq=GhuE(_1zNF<U0_3QoGL}b>YlbGHH*UIAGh?*JpvjAaK)HLyK!e^eLna
zp#NAM?8rsoPwi_J$7qt|)j^D2sivg41%(JjAB_SGtN=~U`rcjveVBZJyqJd0K$y^z
zI9wmv1jtPp^a%_qM}#1p@;*A|D5)fD*sx*a?Ww~YB7wl|nmW8-whW<s_<>884tdO=
zt9=2lP+p(l-QGW|+=<X0P0W1_bL|;mxJ5(9yX||m-=|}<iM#~_f1SpU7nU%^15^60
zQ==MiM|lqVhipTpk9Qm*2wT!N+Pk-FX!rN~hcBo78j31VJ13Q>Fh<^ARx<qJIwk3Q
zR@VX&4y-T=8a>bQTgWP7v0Xbn*{zr6%(I;IQRdQ#6%U4Qy0Sm7Y}O>%9V^4cqKm%u
z4Lsak{iIHG?!oJGiwpJaPI<g(?)Hw?x)X2pq3^SwWr5ZPX8roE1FsQZ<T!w5o}0!)
zbwVve0^q7&E^Ch0R-gF6VAso-6LMDfd{n<b{MP{rIJS;G<@i$@Bi^hy#0ihucw8!P
zCMakNeuaZTvI)-wI)wDhBD3R-+^_8ui{9us!Y|!r(0~^^sL0Y=Dfn&#Rl=ZeQ)Z7u
zAhQxB!3!k1aUf|x)s;2RH0^zM7V^aT(8bV<mzy031Q^}`-~F{WB`zXKJ|zd{TJceP
z9z2H^AGQ`R3rH%NS_#oNcD|UPg?<GMds4-Hr+Moz!Bzjj2$$gDae&U#IEP8%;!QUh
zSX1Qh{St~&ND-2BFlk`bn}WJJG(5bg&->r=Vy_VXvpgVL2AwaOXb9foO}Dx<@Sf69
z>VVWAhDt>)y)xDovUWPPDl@j4BZcZZ04w+K5AgV=Zb5f5Q*3@^{mF`3ySHogcRsd@
zqsAcpH!0-lbBkhuD`hB{k+Jnl4sS5pu_NK->4jN{s4pP9T|VPMGX3?zgW7`81{}`#
znJ?xz;zlLjxS>+5H6I^MQ`7R}$B)tE8VA1FUv-%Ww_cu7oR9mAm*`tQ=|S?LLkfpX
zGA-3PWneb<prrdv-?VboD$^vrY1nLk?|wgIvOPg~#OZ6(1R_tnj}(wUT`wY_%Y?F-
z5v-xnBS)UFo;o;IsB?~V!_V(84jn!WU#Ec?q77Tc!=CmoQ&EYzJym`aJ~v)+0GD7K
z7|0AR#bDVvwZ3Cxgarfy5D#A0&)IW*Fuu$ww@YH}v5Au=$#GVH%XMA!yIzUK@?Yf9
zq=#v-7SROW&(+j?UktZ2hrPC_3;zInljp!}*aVSzV8(cs^inM3B%;$sSAc`r`>n1P
z-+e`BJ~Hf1E=(cXh$ol`4v5ZLA=dK@C}pS}6P<`k`?tCTi|q#SSCJ}Xo^DoDT*|sK
zLiM!u1c9X+cvs6}J658>fpNH7qcKPJbF%}Bb$c=_3aJu~Ho52H#edP1lsVP?b$NSi
z@z)qBaTu*IBmS)!)*SECl5+(V`L~b7HuAv4Um_>dWM1SFUSD2LJ~`jq0MslJBT(I&
zu8qX!21I98xA(3_9asgC`hNTl@_ME1^vBAccm<MOlEwp`H=f;1`ZV4W<#4grS8vHF
zto5UqqWVDz{vR$Q7Gtk4G?tGN3S^FRm6Z*1ohmm0cg3YGA2wpdUti0F8*q8F{=FPo
zacC&ob?q3P^y0@E*x);Y1GKHcPzoFpSg~M6t9z|E0BY(6K=S4GmwcO-emL;h^)D!k
zSy1`EU-Yv-ax_amu%Kx-<L|~|a~g^nZ%?qoh}~4ZM^;9rhsOTw{qj;<a>^Xnb;yyA
zuLkM#12g0Y&D9F}aLD2&i;2;MHyYN3Gnk9o9i?0kC<_N&hQJQTII?zBK8DC4CQq1f
z3HTN{1|a9H5E`eMfczytw+`ek|Nb9qRd+KVEW!RL0sBkEyX&*1e8T9(N~{>+!PtU<
zzS{!$tUAr5G;PS{X(+5HP9Q771DAtr7APs<OyzjJNz<mKQk%&p`?m}3*DSP1*-~FW
z+}k>Fwm}TyA_79~yl{jp@~cDI5P`z=ylXwI9(#M3@{KT?Cb#Qt=9`w$0zj?dlR2T}
z{tP^)OON6T!XD+Z3^)CDmeSw2kuDV0PGp}<zP^UfhOL)zTPcFKLlU{Utiz`W2u{sU
z$e<7_HbjFq-%+K8z0c!IfS#nU9rj{-qab_Fr>wp^bLbH;_@lRqoZOR>p7$|~`C`QA
z7+pE+k>`i6_SOwr6n8)X0(#zQxm%Mb7~m71mP6KGXTPY=*^)KKpkI}l@)Xm4=uc7b
z&Km%2H98RzgF7YoXqPB5u-JR{BG=&DDsTusa%5L6W(3P{D17=HjzQtTtdBN0ukj`4
zOuwoUYtn4o_pndR!||shT2T_g7xC~2?TyAW239pmO3Lj|9-FfU3WNYla+*Y?BgaAZ
z?orDO{PE&2{xv;M`mU(sXuzQK_9<0&JF9W`EPp!>Dy79w$DbxuX~seagB=D3p6bwc
z27|s(WR{u=J_+9wSaxUv?36wqLZ=W!OHb@UukRnMa1`xd{>(0ivv;Wc!PV>jKVJW7
z4jT3`YmY#}vd-#$s~DZ7tb}EAzIs=<-LkJ`TFd0Yt9qguyrog_iU0+iJR!apBvAqp
z_{&h2HUG#%w4RyHyzz0rfC)I&jRCCseyO+gbc~wubW#{R9V7F%-7O>?gPng~<i_>u
z%g_R#1B}S2fc4*;GPD~U-W5!`9d+d~tH?VR$sLV%CVzQE-o|Xq>*C6x8S>DXL4p+R
z#yIv?#((5Jzn6G^%#@?_0AKcNMOkE+)qyZia0*~;EA-P0&Mn=o=4Y88CyO;5Fy+m{
z0u(Za&|iYDd#<tV$oiA>IMM!Si@VI1x}JaF$0fN`1P1M}a^7Wp!DZz6(q)*&G#TNn
z0UXSU#+hj9&?qQBek7u%CiDEyms{wQ;DmoKX|5EraQn804<AOOrvUW=`F2KETv|Ok
z{%ITC?Kxez+i}{s+jHiHcBkBWSM<7`{oy#u{Dy@fb|IIi2^*?T73(PIRmK;=iku!`
zG|e%)HGs<}96~M?T|e!xYTjpL8tFs&(T6mi)NJ%v+0yIccP!wQ)2GZqUV{L1r2Ex(
z5bB}BOhyd*oNBif5EAqbWVcO?aX4i}Ct}V#A$zc(A`7IG^GtmuZWTNm7I5j&_U`?A
z2HvxHe`-NQzkwbu?(Cb&HPJ|mCNL8xs`~dI0BdLc#fujSWGlwbkqra&v*0kuKPk(Y
z!MilswDsr9;5er@m^`(WgaWlcafUg)&)Xwa3r4pCn0TW^MZIeGw^u3BfR#*U`HZpZ
zI!QVHBWEtM2|{n6F$XtL4$HNpn4b4YY*>Zavz_Guc&k4XA3y#g2nh#fEGfX6HA*Nz
zYL}3*c+BH={nc@QwT_+6A0aTq^h@5Q$F&Ex+&Z@iAyRJeOu>LU{xIo?deoXVYn)&x
zPG(FL_0j#E4`B|n{xsv{NZj))pnlI$E;-m1-Z%ZZB#+j_OKtR4h@LK;Cg4ixgftVH
zKyv40%Qj;LP)3|tOGMYqeSj2}ELw>lXn3<An34>FP}uvZ4Fxrp=f_9GFi@l&1LQ}I
z9s4G`h)z!+YwM$_*8`c1_?i@ae}Fl`K{&(`fX-8|Alh@V-y6F`qp)!a_`exjnWdaf
zM@CHsug|jFmU72$LBhoKGSmgMVS+L`hUR{41tYW5=PP=no^2I#Ic3NxFL!o!t~^E{
z-t&?2K=@bzGB6QLMO@SHXbPWao_Q77#T*qCmD)vMj+h`^$<rvcQq<`UQHGQdETzu|
z0#WF-gam1Vy`w!5MQHL~&CgmFHS^X8gi7i;yZODp>upRe8-zoXTqjdFW2ZtdNtzYh
zdGErhXig^~{dGpG+^OdJ6&YDsX!nxPouj4#O$7UPBXbvy#>{iFP_-ah<6${t9fd|P
z5fG!E;bj`lbooz5Q0!s_*zEZ9<QN%Q%JDpButeorL8qt!k5ZoI<W%8!kI$$>f?WwY
zL)~5Pa_4%O?o^{&gtu<Gxe(D93BmsGEST?+u+`+I%a*9WzrNO7241*6`ppHcbnM7f
zh8Y^HiA*)R9Go7GY=gCaIDer$eE?pKN!B(@ynyV$v+<cIj>-CyzDPV0w|4cRB^QOx
z@CDnhE%{bU@{ydQc<+nc4bBWi(*u&`D>sy(^;H*L96d@!8?PIxFo9}i_9C&VQ&X@b
z*GFe=yO-ua!2D?i<?)0Z*^z@WT@yJ3y)Y)6OLHjcATJ&icN{20(1bxKc?V}EVBOLj
zXnfL<Z#C`tN))E{tb(fB9?irH1iuZ+WTe~#lmQ((;d$rvGmJq0c0dVi(@h5s<iYu7
z31xG5#b9e@4$6@2*qr!?O6%S68|&$F9B@S3b*V*@D)H^xw=T6jNipnZjj&c}37%ZI
z{evxoSD-^49orFj`ecFh!b1;VB#A#@=w9^k+X1xiU9R9fax4c0Nerbk&DnSp!@GP%
zA2VkS81xrGG|L~<vVJ6d>vIl<`=a|P&%sUYjrBd17!bgUn5hFy2NWmdwX(&Fh6xMj
zxkdg4{Pd-5#yavwjT!rIqn$<eU3{_=D&iDUiMbAep#@`oSq==WHUap%`RC=E!Z$;s
z==8gZRt#fadlhHNelnyWdj~QR2N`=e2zr?VTmG&?`s42Ie)H!Rb2eN^i?O<Q4aU=5
znlwFdkY^9X{(xRuRMdI@za2}fZQ<#DuIN<zeFzEO-{eIS)3V#vIW_Mmlx#7@a;o;j
z>P|Rt8MHXughx9WtFxAd@$ekJ5M6xRI@iMQ-Aw#Ls1kp*j5Nlm>gq;xBAzRUTMl9I
z7gkn%bkAGw7Ze=aM$ZEx7YLQD<d?>EAW<JRpoy0^>^Z@UI_u9M&!}z$)Bf|FcpMhc
zZLW_dJq+a0WL=A@+K6GZ**CjpBECFl9^jqlWYhV>V#(_{IHVwzQ{==h-=B$IbxfB3
z^{U9RqN2S%SlG>=%J%q1&`ynx;0G*0jNW|On+LcVqtNrf_eq0zvKkptCfaE<%!2$D
z>Y|?`KxY<`kR1Ck<`i>Efddo;H89!Vw!xMxc{(Zn5_+V01k@Nd*5@BEAuNY3z)ua|
zkX2G*h$9xih7BK{w(`g*gs8JbS;q10;wL;}1dVEmP6XeWgvKa9QR0mf5i#7kGx5T~
zZ|d;cAPM0SZy&l^1?J!7nxOqhGk;7|3}@B*p;xpDMbNfiM}vdO1fdNe<o!bY0Q<${
zmhbqT#X6IW^_lPf@es{R03={Z?K4nYDEmhVhPCPERGoRAq+>Y9@8pgfJ-Qq{{9Ggj
zq$mYf?G7nG6p?5^3~EfI9jq;{uFo8uIKpc~HU4uP^WKgXqZ!k{Iwc{X{og9shv^&w
za)@BTMpe?ie@+sTu_;QHC1h0$SFt&Z7jMF$hHbDl^KTyVByv*5xj0uwW+k3dB{tc~
zvu7RGZ{7aH(&9BN;PK65!d?6aij;KJ(!BtG`>t-}AczOzuU>c;nTf_mJD=V5X)DK+
zZ)W!gOJI8_!a8d<M^9=g|G@vKq1kjl5DiLU4?Z9nI`@Ayb?tF6=WEy=I=kY-`M9)8
zIPEbBQ7cP#LaEVZkeaqDvZ66vNOaN9T3y&uP0Hn@ETgGL)9Iwkbah;6bGoQx)TBW%
zQE8R3nJ(vf<DAdw<1bP3`+dLf?RlT~d4a#&fSW4iH`ouj2neUZg@S}%X(1dGo4{v`
z!xo?th>VU_-QsWZ*0TqB9hnMeZVX)C`oGutjM2fpD)q|WyYg(U5tnnqb(IDK=Atdo
zoJV-zNBKUS^tftuq<8eiMxhBk5iU|3EW(+~M0=k_kegglLsBC+x)q2HGQPf7#ZBaf
zfYW$5a~e8E77kdl1rr8+D5juxJs2WCb#JED2Wb5N3VR|t{f05^KO;<iBHyxTYd6{k
zwAUBnLZge%ttbiZ%SK2n89xD+?p|~S7Z(qc7Cyj6o!VMZj&!xHIFOWTXd0B_G<K%?
z@Mp|fyDbC0phofSyvujYxJX`!%tKQVAYBWAWT}K+|IK4;78){ssjSxsZNtSId39|_
zUa4aVb2%FmvmN?-?{Np`?=Ox7>y1WEn$jB_ospL}gQUiKs^|SeTsVGyC=}~jeF2tZ
zWt=naA4#r&<aYaLFKW3VglaL;XZm@t-vY$TMJmIYTWHBW=n%V@yuDTg7XY+qflB73
z&Nq%AM}m2piIj@|6LNO&-WCJ=QNAgoSOOqE8xId%qGsg$BIxS9fi{9PY_DAaE<WvP
z$#%}U43J0+MC1T|r)PXamfqn_3ekvEZ-0ez*%dLO1DNBPAf}cwAF(~D5s(U&<BTtA
zSfc~4pTMHQrIELH$v5F^`vYJM3k0#~ZiJa<;HaZmG*l7Q;=7I|9kT;6{g>-{#c1<3
zChQC9Yg<>{nc5J~y1PF=#0(#FT@>p&dQcm9ZV4A>JP0W#HKC<iTDLogI<S3<NxXRR
zfTgA7@%GBlA>a5DB9TZF4T=v>whAB<;E(*~Zq8F==&_iPj^|?$b{zQe-w0wM^H=G|
zUpy<CS1C$=_H4H|9@MW7VSTra0kHe_VE`)aU#Y7bVDK##TKM7Sm82ghy9kf@Dv$55
zW`5U+%Zi@8%q!k~xs<j8d3K)PXNRlRb0oca&<A95{CfPXq@?oU#IHX^#wk;7bifg5
z*L2ps9jCO6#0P`ky|97{p+*mw*~u(YRw===q*bM1nGS4za5Sl4Rb(qZ6^jj(S@oIk
z-5U#F&H^F07t9|w`8&Qt-<DcP@Zd;+N+QNesBmDDS_)YV(Q83lqi=-_W{7KTAeUe!
zxjcsbu{kJl#VF<|froj(8xmK!C3D9XFoS4N{%ITC2-<D|PnrX=AMN!(<wL*?j6uX;
zi@<U7cz9Ya)t~@I#K=5oIv+U*NKei9<w9UK1Xp20jI|^kfR%c9QW=Jo8v902W~Q+Y
zVp<tK+N<JYU4!cTO4<FISlL-aRC5n$qX@EmS)5KTvRjygF8n5OUID&f=tgQb%slZH
z2mwzh#pRmm!n{ux?ra`P0Zl<HPOQFXO}*1OT02uc2C=<$tOc-~+U6%jDLbdTpnQz9
zpE#Yz1@e}A3ZxH<xiLCAI$`dw-4hDc&PcDO%EG`9@>3ZY7`W?t{Pp;=F93HHFUEdp
zZyN)LR3j#luR^Ket_*$KZd??M6ObgAVzU1j|CoeT<eIY;Tokubgxb=NV?FBK$O-B0
zX70)o1OlduSE`^sRP6k2e{!>LD;`W*Rok!Ljg1y};hFo=O^=Bd8Rt)#GJOp#(2~ex
z_I}P5$|1UWf}?g`mCkROAW6re_F`C0>>}f)&T-QrDLUa>1ZzOZb&tO^_p_@yxznFO
z&aU98W*i!+kC$I5aO9*KC5rNh=CvRyQJH?H%=l7%MF6r>nKy2|dpveUbJ{f2K$Z)Z
zYs{NRlYQ(G4_RBYy>8fK^8y7EQ`iR}IhkcX(v<}N70lzpA(0Pk>eKW#!Bub&yvP0t
zTi_T$JQ+MXSY2Ue(Qsqf$<&RN=sQq)RC}kslepyF>5Sl@p6v`Zcg=b1Ui5EYcy9Ht
z0ysNnVRS%1WjBoErBqQ?!5Iwm_~*b7PrH&qTD^=tBC++lz7?C{(P<B#Gn)Vg@;h&g
z{o9<fcHS^u;+EsOE?%y?D^rV2Hqiek-M_)Iv|on%p>mg0|B#fZcF=9!t{m5v&S7K@
zY-U-{_=6EwR8P)@ef646G?(dF-P<nBXA$iMo+7xnyTGH!k9lh5cdX-~KO&c>ZHZCC
zAe`{Kw#o&7HF^WXY;0nn9k85@9A$Hws;-A_x3(^wTNnOaBO1fF`b(2nI94594G@&Y
zru5yBaY#%|6rArL&|zLmf1gZnr&z3bVK=(Z<4jLn(X=d4a-6mm!iY9o#5i0T2(<%L
zDwI!G-YiI)(Nwtn_gf~0J;DB}^718+mtl=v>KeQ!y<==_+*;5FSKm4u^1?1?JbCR;
zJpo2<U3`lF!M&;go6z$EIyd$Z3IEN}!&mfwFIfk0<|EX-hs~B%%9@O4n<y@*Va{*z
z9W&eCL`Fqz+xe4UMvB+{=gUslw+O*Htt)gj*7Z3hMeKy*o@1PJvHrA3r(Uz`M~}pQ
zcWD>^w%ool?X6e%m2jP=DZz+Xb{!6xCl7DaGo7ofpI^TJLI2Tr(J+aFpm_n}Xd#{_
zgcYQImIuCxf;p-`sywo!mU(?)YRINZVG>jzq40u&^G611R>AvV)27$PNOV?KN?2oX
z7-mZ_Rj;u5m|rE)Z%eU6ZYdCAYu9n}svi`lyv-f0ekjmA<soAGcIXwcNtkO;<IuMO
zDHVT+;la4mW6)W-xWqal_m_<~F`+5=9-o<^#1ZMV`plU@Il^E`N`t;q-=Hknx<+@h
zd_WfcC=48IR@Or<v+aK8veVF3qkStvxnZ1241WLxQER~?6wv7ftItrwh)w)nJ<qc4
z!U+%(aKBSnRG$X&`!Nl~I*48^d3d){<W@WtGu*eNx)-e`UM)8LY4lDD@5NTHK^KjE
z=%ERO2oo=lPqp=`!OQ$onH}h_{WAvFJ+F?#foZehH}$t~bRgIlUlv)=ept(HLRcSL
z#BL;s6cl;jwOL&@3dBr86N`-?Npwf-Nca^~JuY~A%=?4#Q$~R=PK)=k_sG@{XJCCb
z5&KzBBc4(c<77gj>%NWGA`xCFCxc0qw4n;~;DF_izk>=y7C^g6S@c<->*aSQ`>F6o
zvxi+$-ZlaL?QhPC56GcuRdq*b&uVD5Y0H!^eo-D{h~o~e&LM~f+Ln|Lgy6A>-YJxe
z!)I)vqcT#8!9(RCmPw{Xkm3N!6rlbZnT*oR=JUn5ZH)k^%ce1f^rdTL$QR5WCyoPb
z&*ys~8+Vh#Ct#_Cvj8;NX-JTP_;*i?_fOp7F)}^0jYAG`A0k||eiyr0pDWNrDw7B5
zfCNBoHr5zH$dZa5<gwIzzh6~Fg3dv_BFHLW`rLX#rI<i2=Yf|^t3%Or$acxQhHCuP
z(OMEdCmshr5nYkw)o#wXKlp==HgU<;F(9b`d08t{KF8Yt+(+X;PN-N>n?;^Jor#e_
zfuG_)zdzP4AR3BCJulpOob9Abbs1OUz5{p!HbDZ_q+SNN_VS^x)keT$)nXHWNB@rY
zWCaLcir!XBt{3(|jpl>4^1MI5F1a8o=rPmuWk;b8HN~!MWISO&j!@zTd6gcYrVDAE
z@+E^G%g(ta6pqBTO0(BPM9Wz`bgsdE&vaNd@Ds|v^*l<JBeW9|s;DTZ^`HouVc{E~
z0&|`4P8?b`H#ZGG7%3c$v-_e}#IlVc#v}tI7=R@t4Mfm4%o^{ThN(!5nS{VmS8vCq
ztus4n2(_M6%7MXW&)#`s8(>4yV#$OZ&@^u3LfeR3+dcU%t1xeoLwXMg#5k2qwCd?j
z(L583Ls{C7b{L|b2dLK!@nyp2<^s0mgc3Z7g0_m-2_)<ScjbipIktFK_-=HfsF{tT
zt1G`H)q-7!xe9X(GZ5f0^z7%^ABCLH4r7V{lL*<nvaZ2b_n_!S?L0nfx*9zWwc%h+
z?wn_{0DGf9u#`b<k88G4>$c(jwafqYDgV(T1`|HN3G5PDdOiIC+bsZ^5^zPefS|!b
zj}UhFX*3M-!&AajTs|N3Gh%z-E+T4L(NS04{o>?iJlo~<e1Z}%f}1djG|+Qi?FNGK
ezozg)jnR#FFRgTqtCbefciC1BmXgi8PyGkVro6xa

delta 51730
zcmb5W2RxPk|37?aX&IG>P)3D}>`fVUQudxnvO+SlFP~(Tq>hz6vUm1YDasDV2_eZk
zhh%T=*Hu2>`}e!=|Ks=n|9j+7);ZVp9<SGPy|1nAy+hr5Uzi~0srhNl<SxIZQKva!
zrgoWT-#%e6sviMQeS;2<(rz8R@XY87%{$5Y$uX{$w_;q+i>}ejout`ItAFCMppv56
z!QdB|e=f$WRFPJ$PRIPpjZftov>q;)_#8$gYG$ZtCu(YM&1hzv4ltu9$Nc^C_O^O5
z@9zIGXUGL;!Y)faMZW8X%B*MJHaDkbWXxG25dy2k<X)>88Qm+3{rXk!RDim5Rbx*b
zgQh-X&eq0?ZF4v$v9CA-7Z%pG6(1gcf|wGWc_2iSKhdx-F%Li0xq5`2|Lx|zhqFUW
z#2-m7TiV*RH8gPW@=M6h3X;sL@>TGN{9u)f=DmBl`SsiDh#K7ijGF4+B$``8HST2Z
zQs)szM@O6P^pO1OUlKRtCA3X_)+{2(G8!94=Q2}M6*xFJXo_zZn(*8GY!&S2IV$=s
z>6GBz$ykTFgDx-aCTvCF2ei|zZ_MOeiYUDlBl$4DU4nFRYX#XUFS8p+fAr{45>f4D
zu6=BeUnA$M4ut1xM=#O&sP)eF*4@EG2^X8p;BG5@$9v>n%x>SwXiuKx;^f4x3_eU0
zAD(g5_1w-TnJOs-q!!8L<K1-|i3^1dBb~YW#abE~Dfk>++lGLnz25W~-~CrH3}iJX
z4sSoYuE~}U<n1{?Y1I}ZyuOgQlWRX%HTC{5-{#G|eHetZLIf8dpBKTcOMG%ZL2aTv
z9-pDgVqs|+ST!m4$$Mj_oI%>7gvY&G<eweAQkw|<mG16tdE?XHMIBat4H}eKy=0#n
zi!#-@apT6@4Sak(aeZRP?-hD&&li4ML>Z_58mv~v1yHf@hBj#qhmvEcS@$NXJ48oE
z6Tej!*CE^MBsID;^;4H_Kkj4uJ{l@Z>Ed|nbz7`xj(i~H`cy{Z731*X6a9Lt(IR#+
z;@*QU1WrjwL*~${0cM~0k5mr++RsB}cl;%>lwcCZ{;{cvw7Jkh<rZqr_UN+oo5+GD
zCzyWw>X|a?sC1v))4bfT7Jlz+cI;fk`E0LQ3I-um7%MLdx!2d@C0qpj$m?Va2s!WH
zUzzz<sYx(?Xe_tBy|s~3QX-^~mRBET>eKhF-8R3nad{~sGBRM0r#dq}yZ_qd%m0+w
z4`vV5dd6B0+L!0oE*rSl4pB#nIWtswV_h7~lP{1QKEC%q+%~ngFp=Xz>V5jOXj|jM
z(=x0yVik8~uF~JoSlsc)<GRgxWo(!6!$FRW?o+>I2rLx)mp(|Cdd>O6(m98Xk#c|F
zKh#lYX{EKIyDiy!fW=E~RKV{5Riu_kxZ+Lgob?5dT93sqSNHTXwW`tUn6Q~Tex$X*
zXGgG4y}ZhtOecg9(tyEFYkovd87P17;6Y+PQkpY_?0APTN%nfpb|%aBS2&vQiKM2;
zgZsLDJH=yhG8y*gwTFW)QENjh!$^Uu>{iLyV2Z~f@87@oWp3v&EGw}yF1fiGxppA%
zSH<Xa>d3vm?9xj;n&XSVM;b`sfej-RZpPbz9Mzj7)15A5zS=u=3BtCKytRv63{l0%
zywqu0+O+eDUK%*(pPy)$mk(h=PLNskv@A|_@8RXw$u~Onz6&$*apb<1Tk~3xMavZ}
zhBGBkgM-_qK79Ca$TXet7)<~4EV5HAz7;6DdDeL!SrY77#T?y&NcN@aK26IwN2MU;
z6E(G-E5z|w2NBa@pN$!h-|r6ae6B7-CPobHD?i312v|Jju)tu1E|Pa<My;;8ElqVd
zdDX&PQAh5lkp2AmGg<j5pXENwvlow2OKg|l4-{CPmLE`H=i=q<ogZuAhzKcWW?^CZ
zag40qZnkFOx%gJ6Je7YTd#R?HS`v4D#rxAIUqfLeleO1R7MU0kY!{P{mwXtBu-o+&
zDF#w96_s4XU^Zxcm1^T%diBQ_-<UT&GWk_KTi4x_r73*tEhgTz-}?HsYn^bXo`VmE
zy$$Mpyz?5vmOX0wYut;OJ*O|BHwzm_*T^WYtE;Og&ro#GeIh<a+Ow=~Yk7dH>5V6>
zjkdtN9%ox!W5UFoTdPYAGS|pBzL}F>)f_jw^YDuzowi{BlccNF{LjzC?u<|k4UO>d
z@YKV+6>@A!&pMyda{qi#`KTY+v;PP`q0)23UT}v>W>pS8k|dlblO8|bTWU9;^Ki&L
zqc_h`cjC>nm6?GII#Vz8si~>;!C4>6U*!qXp2XxpW(_4JrOu^KNVCM9jN%TNfw=b1
zpR<1ZSZvgnl=Pe)AFo+x*Zf<#OT9OiuM^Cg>cpHUU!<$VXTuuO!eX)4m6bI;JgQ7Q
zXN1Sb#_(JP{Uv-zX&#?W$(yS1(uxYbQ>RWbKv`)QpE%9I&OTYvt<vp6FwUSeal5>+
zGE2pk7;rBbd6(T$Hum%9tAXwm#lucMmoHyVOKi&0%(yogIiGDC`>xloSw;{F=*M6>
zQiA8NFVU6>S#X;!#2zf#xa!u4ITBHXr>^!N=Ng+ARNa@Pul6kIX|gP3aqE;j42u<O
z^vVD9dOx$?P%l-wb$EOk$$9=c;!Txzpr+@cau4K3LAJRrRCJ~1r?X&}bDceVnMuMK
z){b;4va>N9F}?tkZH-RHP;E7|Jt#cs@B9wfetb$>7N=_JK1S<Q<uF_qIpJ^sN*8=5
z_VN%cU%PJ=>Tlja0nACay@RX_c@~Jb8JA-^DNgw&_7z();*MaIpw{~#2IJW|`2tZ>
zgVhg1rl?Mf-C88#Ta41P>tO;Jt6gWZFV#zXF4J4ayXb_ht!)o^uMA#aI3?+t8+{kr
zXjyIn6vxT2?DZos9U=aQ=@{}1%kv%AQd8O4*w|h-dVei<Fm;MHu68|j_4(;b5-vn7
zyCHZlQI$9`b@L$^q_3|}X?CdAZ)h2Z!*MMXRZ-%VjQg)8%6PY0@K#S39h!|A-jUs2
zHIGP~wM_IrS(wYT@t(BAfULEcX1DQiaW#MX^ojrJ)2HO)p0z{Q7mk#9ul1DH>3wOm
zG3<Tz><F8TOkJbPQAUy03l}bAiWCG`1(&K1+evyXTII=vh9T!wdn<Ew%G+*{F0XY=
z2eSC^!`{grY(Fa>K+hY+J!w~56i=9NGjCdJYRYy}_!np}q<G8ze!FM9NL*ZeeDi+w
zcBY;C=1!ICjKPdd;litX78{gJ%O~uYQmZ;{Lu*%x6|u{1L*73=IPUUfU`7P`p^4o(
zYz2fNLnZ!@hb-ae*Ei;Ohb~>Zq;0~suVHj<Z@3He^2mtdn$Kb959E^2&S)bpng4Rj
zZlJ8~#sI9Xr1=Aw$5bA2uT6}2qeSfb@6;{Vhhz&R`mATQOD)`h!jjfl15=t5%v*Jh
z#b?zl!uo-e6FyCuZVQ^^JGv@n1`otLLchv63o17yli2;F#*%&e_FY$1B|O@9_)$9o
zS3vAc_A4qX%D!1{-b4vS@qFeGE2F5r7Ti#Y`@(oqi#lx%>BZoo!-x0uU%NT#m~T*e
zy?$qFHfPi8Xg%|i>rAlvYo%x^&#b2ek~VDDyKOPr=02qs7T#|LQn6u3ctQfR7GJ*T
zu$SgU{6mw@+NK$pA+w1xf4}~+wp+PIl^W2Rv)|AWetZnZzrGsk8z`XjvEAIn?zt$=
zdm^#1XFTur)eR_v9$QNU4lL~MWDQMC9?qQ5K?2J=XcRf~(vqQuI_0z1>{O4ctHQd@
zaO#lOg@uPtk3|4gY%iDBe;%Ei3}Cd+bfkC!3)rSJ>2fKTvJ2XfonVI-PzH}=*c8F+
z0wTnFZT$%5BhI(*m0K8>N>e3z{;C{b3^>XN80@xkB?hy61{31pKL7drp1Kp-D<w<Q
z)AyEs4G!EGu5ov2OO!Q*YOi5!omFE}aOe<nsKmPaoXb?#N27dXXIp#7egozvr?5~B
z*OQ7pUc1z5*xcS8IWQARAVt6ks;j@GWR}VVpiHXYCe??(dZjlplQ+8_r;>4`;e{DJ
zgUG#C;^@4Md+pS>wzhJ$bX7W8)~=1muFo~Gj6JCQx#Xd3V32Lz^xPWoAQ9;=&53sH
z$y9G{YddPgxC5`M3@cJ2ir2WrtYLq=lzUgJC+yFvnX-Y_lIn-Ey)nYJ*=<m9ylL&l
zy?#77A082rmXgBiUTfkm#XL4KLE4zDCjcDI^4VI~j)`J&`J@tHHVOFS;H!tDA)-3f
ztskBoA9JmCfx2up1MlD5(h^1>36mbr{`i*fJvZbzYrVa>HcrYnt|r2&*D*6o)~_!I
zfW<8BaSg|eY|i!1gfsM%*Xi{&+7#VwV~}3?<}^-%d9@vDj<_4^SUuR>+}t%&K5U=9
zwl<L{eE<7fu0Zm6OBcf<AIs9x(xNxkC%?QN-vs<{9gz(^cQZz>>?l4<dEiK6n5s+`
z4tK2727jGfCzs-@Dd1ExDyRNh&vIt(#V<As#T&2arsvY7xI1KZ64)4yOZKn8(ls}E
z{SDdKBAfLeSPDekZPtNz2nYUt5*kWKQ4Hqdi5hIWlQU4RDps0tKj*x*`{rDeww_*Q
z3tv5AG*D(ISfCC&SO$t*sdabbjg9YqR5pu~Uks{U^Png$u9FJ5&!4{vm>2#+=K^3l
zXpuf#VjX7DQ8LGJtm)z4iT35$;Q~hcig#Y#3vHsd-zpr-a&vemM$&J_a-BQZ=;i(U
z`(?xC{g}ch7T#GjG><A>vMVaSeriQph3xCr#t)UB*7*ok6(FwrTOJ*Me}C=t6*sBI
z7iZ;L7oqcK3JvyICfcR<)p|ah5h;tiWuIL7z#Bz{(FAylM<(`L>r0J|A&j;)AswT0
z^soR033EV@w4!@=%9OB;wJSrmZc+(c-Be5xJvSt+I+M7%VadEkYzg^y`^Vd28D%$r
z%eOJ=E1J0WB=;Xm52-NX9fbiB%C8)c@!j$O=*0+gN81JM0LV<PE5)(uWq&B8u-V(3
z0bWEz5~4DYt@$myB?TonDcG#1He{csPWb@Sea2;uC?ky-%isOB1^cEm0LIpLIlGpA
z>@T!M2B0MFv9B(R!P^z{HgK)>#wRA4TC78>5jnHfA-iK_Em7U?ZWk)Loh!4WH#mOu
z_1uwnW>+_S#-lA;7dMt?as-UUjFFzy%*;=dz-Xd%wdGrddM@>4FWb?N3@5zLO9<b&
z$n3K^!bNcW`RU~$!udRdQi118k~-EN1q8(Q2!qh48=k}7EBngd2>+Hn$7fVgXyV={
zz4t2Y^)F?1hJriGGXn&h%nJ>L6AYC#z^7tcya2wIa<O2}lu*dA`R@4pX^EIb@0hLy
zi|@!q49w&U3_H}VojcP}Q&YpxqM@fp&mUl_uCDGcv~4QF<ykNCXpP)@Y@O&~hL|$K
zb{8Og0c6e9y=K~zk(Q>tq0bOtHa%D^`hB5*c=&C5yyTuPU_{031GjaVvh%9SXfnF3
zy?~TPj8E0?`1OfYFMnKLBDJlIj*i-%X6zn&aO!5P$kA-xz1?-WxqJa;4j2zu5o8w9
z&XZ~(Ym}$OI&TaEKEK}m6~UjhZOFH?{e&r@wJXlQ{4s`H#-xBS*_9R??E|PMBE2{#
zp0MnusrxPt$+cey_~J(1>0072{Hog8+8UpJG=mgM43CW5FJ*ZL>X~-BU66TE#7uSB
zl`rVfuOcUbq2$g57SE4LBT$m@=`j0QSy`n+k<F_F|8-=)^2`xA&svkw^jLd=h36q5
z!bQc!w(+4%gim8zbD@Y()JBu+wmM0G9CIb`te6_QBYo@V+hsQHc>_H)D7&ZsmPdUI
zE!5+SI~&N3D%^UW;~=mrlsK<>0Lr56GV)%+k1ysF)G_q%gfD&RB;^$R{CTI;VHh#N
zIj{aUqot!GRJ5+njpl4!<j8^!PgZdF&>^myE1}3{LmV^zExETdk);+e`UNrlLF_<F
zZo-O*hY}jcu)rv6qZKl6mr%DlA-i+xg~QDT{D+SptwAag&X?5F>7}dYF{<c{t0U!C
z_rNqWME#-CwH7TW<E0SyqW(plvXA{%L3XwjC=OaA5jv#Cb%1bLtuIcElXOkJOS_zp
zI<_7j|2qo|nz7|E_!&t_$$`^OE882hRBL+0E|uHAE$IV()os|L&=V)*FeJ4!J6zwq
zc+~M*QIR)6C$%i2syD2O1u^>a<qJN2j>RBVzxXaf1l6K+YO7;UWo0E756{u;i}*R@
z?v3l$uh%XVqa?7@Ywf|p5;T<psPF_yQ_1!QU~~cE-mAYyJfdhYo%eyho4^*ypyk%-
zS-l?zy)m{MO2iQfWM}R?x2Iai&(C3PQ;wsJSs*ERY_Cm}0+cZ%KXbIUj)<I~qqBvD
z!ysxO2e<ng<z*lMJq-ytx;jw(u%Pk=zxkv6f=b3(THyc;$(uEz0ZYE>9&37?%TrB!
z!4xCvkYDG$K?J3u7dFZgG#tWe8s74)FPU)q8(Y&=*}@B7=kEJ)IuycIaNYPBrrJ7X
z=uj)1Y0)mbvx)c;gr%iEH<#%#9(`k%tdUrD>KQS??|Xq|N5Z(Xipq09wp^*!LFOjL
z0|nZD;m%!`4U<}rQgP`!pI)rf=I?hkMpk3_%^sc7@_`j8{NU#&n{Lq$jxEj0Gkh8Y
zVew1sua-v{MUA*TuX)^*ZDwa@-&<4mgY045r9KV>zv`!%d9S|&d;HuDepA_nRzWf*
z`&^yjg~A>AYkuxuFJR7iY3+1h^63Wbo{CnLTP6TrU=Jq&{F{QV5W&7R#)o|Q^7^W<
zWqTag!aPFJgx58-TQ>N;FMn&#*X`P;(#)aaTivR%+MiY)9p>!>2(gH6D!`gZf4M_q
zg4aA&dhKTzuGvHC2$O_X`LIuQe#MWc44%q8smTQ0Qw{t=mhGpvrc{yaxr3y!ePJ?R
znHjbRbo5p4H}I1uY|rfcBvuvXP~xvz*rnDznsU6|RL6gW?Tp^o4knSf`Rif*VJ_pF
zx%qsq0!QR`wpZ%g2=9CxVQ4iFsD7<mn{aJeP803g>E+oxy-M<Sv4hiAvF|9#4(P6R
zh=_`oUx~GaDX{ab(0AXqzF{{+32+i<lrq=h2gYtA{!83Ow9|FlzoS9e=nGy22!n@L
zG&Zkf_)%eDu@T8yE-kDeeQ>-zBr|hov3P#xY{prRbLV0P?jVYC12%zFER?Hf=c`Eh
z-2jO%ejdn&(Wi2po12TApu!YVNhhgu>>L(NoSd{m={3j*_~r=iwl%ooqm$mF9V;K~
zSb(B}ZUuT_^VoyW@OQ>F7TGShSwr6C6Lo)qip4D|svCTgrz`2QA9=I)j}Hgiq6M#d
zBOA-wHa6LjJcc@?Eo$OYgsA)cosd(4>AiGI?}~_JgY%~0u|n1w6E)NM@-Eu?j9CR=
zzkanDF1Ixe->GR{*_-_oQ4L=&EUNpO=cOMO7UpNNyx6TOnz7}nq<!v0d8cSkSzp_8
zSk<>kc_0N@k;XjBM0ze2q>tWo*GWJSw3_%u%t-R_sY<#|zhH;mbweeiyQpTX&wJ}E
zc4wVXzxca>N|~#A2*gzTkd5r*=Y~3^4vBx!yv=~m6=C)^eam<Ym5H%2|I{Pefd5eG
z!aczXRNP2jW1GIZB9hc5V2M}V?~au2!BDV(2xbWtqQ{R4k+G_)8+|UxwN*4gP3H|;
zpF!YGkWQ{%GQdDkK~YFq1@yU%@Ai4sgq}9h;apu4_p~p09TO<d1tMWt_Y2-lC(j@)
z5!u#XTU(oVlbZLa6=-JW=W5`;M>?n-HlMfwio(SfQh95>x4O)5jQy$QH^jr~5lbHt
z`>_^-*ju*t_W9z*-Sh*=)Sm}>spl6K{H|NlE6ELTvQSVqnJ3`??EHqot1RAkRE9y-
zDa(C*Hea^PVK_h5z6y)$DYez*F|CuzyyYR!RGw=ytnsrfqtQ9OpIX9o+De5*`~mx8
zj)QlgKv$7?y?3@&aO@e~S)sDqh}dNNf#jdE`DNM<N60V?`%&pFn6J)iXxn*n)p2Wf
zXWPMFh%%7vR$Q$^{g%l0_kv$#cLG0Zo#*1Z4os={?LT{jk!>$pTH2|Pbf!YXJKc%f
zcdYpy2N(^L3hM1uh8>%jKvaAUV!KDY`*<`Ib`32pEq}hV2dJ1!?jVDuWB0|#nSD{2
z1J7L$kSjj|gERtPv+q0VdSn<%wtkth4xX-B{4^z~E}y+>fqW!Ig49V?{$yk2*&(`@
zHFihetyt8Z8%sQ;w!QrOzSOwBH@Zz_zO5l5!qQf4PhGw`ZoPRpYhnz7C{&r-_WdQC
zlalush)9Kn_TT-PPU;D`Kb000)16FzGMlUTZd(_qZ?<(NbzbiNfe8UQpkYLJZ<G08
z<W|{$;9)_Fdv;2&m7prUq?IOpev9Sq8|&`${hYC?H*P#b^*G}PpE<^BW(LXw@#~M6
z%JInX%{Z|)jV2GytHe=E4t960FV7&hDjkWk^(OBAMU?)GfTKW5w^ym(+1|L!Q*1vd
z(bDT+;mui4XU-NiaX9>17mh>ukwN<Ao{>jPmet9M^JRTA@ehX%a>eh6Cqq4sSe7_k
zZl1t2!6G@Z=>YJ!w<}GV14}S+x|ugCLlH;{jf*?&GCO2!Uv79aM(E2jGBaQ+{a8W%
zbb0Q*;gCFOe|c%^XPbLEU42$EL*UYFr@y`#CxJX$q(fD8G%f7B>i%bGH>s>JRz}cv
zhm=AXES4X+Ru6j2loGg7E76@Y_2l?@oelPf)y}|b<LrY5zS|g>f|MuDG(D5DEuH0e
zs(JzLl9J1``kObhGC00izr9r8o1j!mOX+gK=xZq-==CB_>;7~mnU0%Z0dFy|P--&*
zj>)pOyQqgY2XSeKp_-&RIn@NIzPMk|c{-`i+FHRna5XHx8v<0w)Q$mqhT{)~g{3`I
zQfk&!_a(>s9Jk+8we6f-YxIdseaUupf9VYX?#PJ~Co-YgO89J60EvbjWs>1&%=o8n
z+aH<Xj3Z*r@gSu-tv67~mTWft?r;A5`QU1DifO%14A?ak%36{jDCda}f^G8g!-vO(
zLKxqER#+gxp`ldtvooL1C+1RD5P@gA+unkPZeKN(p2R{C1*XgS1UDq*{pOD!w_z?g
zGx<&_Dk^%+)~>V?Tq>o%5tmAB3GH#)AT~VW@<Y@-!JxvY8<*S1r@ebuRWX?oOy2yh
zz*H91ZB*R*)B_o~Vf{qtnpn%|*MWclw2i_oDO$FHe-Y%wDFBx)UmrE=>zk%lmA<(J
zii9EHU}T)MxVUK3)ZhcOvCZVE#;xyc-xTJ{gdd|{9vE$n7W6yB5HN75<M~1;-fp{m
zGI3`!LwvBnv_2{FU=%47%A_%X+kU`G?AD`=A!PEG@k)PdP)M@0zp}J-tBT}|kdxJ6
zU}9Y(N?tR0Nl9`VeS0<q1O%=uBb`H4zh}*mCZ>mv3)wNgRaR1#ryrMIGH-lUf2G=p
zw=G^$^t*RpL-JTlR4ko1utn`0ojf7i-iuqSqoHJ`$G+K@qgVvKZ3~b~0`SXHBcp>>
z)zCzOrwUL61_|fP-hAU6)Di&xh-)UlgBEg-Yfyna9uafAqM`q`#&hMDOTP*?VFEE6
zI?Pv-1QO+eZ#p{B$?}0Q-GX;pJ1ZPVOOPEO!E1WpwB_br3^^^X0fuBjw}`>#k^6hU
z9r6Sik4pEjD6)Nk;QP+-fHeSiNh&HGqwHcO2SLeg<EMOY8ZbKnKg1Rwuy*W>UHdHh
z-<StRTVk<KTxa^zK#$M9B3XXBIyak7W3XSZ@b>N7<c(FE03Mx(+$W}BDGGT$1^$c<
z0!lN`vMy*B$}BBp)p<s_*(~tdP+35s(}W7DQ<De<qJgQ<mexlCS)4&-vjKVFZa)p1
zQYPB}BgT*0H%Uph%j%S`4KoxFY$;1Svoz1g1DL$bLq|zqF)7fM4>$r;bbvi#U)NUP
zm(08X3448f9izPGp+Jvg2R8$&zk+Y{sriyk&jnZvy13>9(_$z`z9zpy{y`Y)M*<kH
z=pDnz#nb;c_1U&`8d>O&b>NMC^~$QkDF2W(_-HmD%e<O;v}M~@WZ_?9#H*XP@bXTs
z-kX%J`A~4FZlG0hfS{|Tb>~A<lkPPZT3QSE4SG;cl|Zy2kL2Xx5$3J={XU7X^>z;x
z{X`;Cx3&(nBe&!t7zx7N)36h}gvLtm^>rDIPa<Dl!=9@3aLHRS1WzH&U0*+tm?C4B
z%H`6x6JXX+_uHek(XM>(q_ar}P`<ae1q4IuI^j}2L<b*LRr01ka_LPIbB?ySVX2M9
z&+&1c=)^(0HzK)1W#7IT3EDx~vlv@^Q)Rc`kZM!5m{T*IUL`{?bIavd<pcxlc3~v4
zf#_;N7!5I=U}-2^K26g)adO(y)<q&`U<G7UhlSc`LCgKl1Jr#O%oz+;;j&glqS@o7
zr6%y4_H;?ct2hk`Z$Uw?ZMG}^BRiut>ogIoov6q^V+jiV-F2Afo>xPtqMTP)SlDRs
z$Pu(4!49Ahc=1GJer%x7Oun-POySb^byQ`w+DqjybB9Q8Mj84hKD}hSI}~N~;7OYM
z9smc@NoLU?k?W~sXlnG$Y#cs$G4n<G)lg=M``>-Ly1V__AA*v2m+BPip|68%wFD^t
zQl=N+{dA~hy_F9W@FXaUsFcgyy5dpG#ffmL!?61^bHYoqcrU(0XO4j&>%Hy_q>TGw
z<5fofTfWP`1{wKJni#{}Fi1)+`-9~T3@Qy9b`JlFFyK(1*Tn33anj{LOZK`(l!%TY
zU)^fTNgjg}J$g|9AMjw7Wpt}Z=9!T0T|j$8C8(iGO9azc`93Yg0;JylN~esq&Bw&Y
zEtfjl7eXT@f`)Nm9XPE+B{||zdB0-&g6uQ@rqN3T<8D)zCOcG4E}L!aOn9H1pzsKw
zUvzD4IjpBM9m$*pMVD&)>>RYWP92p>C`D$sEfd_+FB6Vp3YDBQ5Bq+485ftEk?3Q9
zY%e5oU_%kv?TTNuD<&U5e%zNTxwY60>rwy=pli?u5@gmV*}OscLWdVB0J`<FpimKq
z>+9E7W=&`Ofy*Wqa41J!0C^C~Vi(GiLGQ2v#{sNDHQ+WqIl6pl85txnc{H4zx3X*S
zBt{{t7nCeAxuQdE^4y4Seh)Bw?NRz}unq~J|7D?u9?Wbfh;lBIoo9s|hK%6LmHAaf
zu0huUJMfdWYs>I9ppccx>})!rdZPzuK_Fe8oB8@i9!Q-{e@PZ<2ckg(klgYdhj(XA
z5m+?p;K6m87F%}oKBYyt!=t0Kz_3DVAOp-b6y|i`PJ?9!Uh8X{61y60Y(Kp?TLl%Q
z<o3ryfN_mtMeH<OUCWLgKMr;P)zZv>E~+**{d4aItNXxo7nH6o(B=(l+}?nBoJA$O
zsRq)51Sz-J8NvhBpsS95ZGU$t$~+-{f`uFDpsA;=3zQLsyM#M(&5I2ANuv7C1hZBq
z2&JN(1R75SJC9zW+-OrMmE#izx(5E%iKA)h>DzY$9LRjHjq)?BPbgzBz7&p7|Iio)
zE)@XdKB>ot3tOOxELIP1so;csHr+rT;`zWqt`?8ln39O=w3?S!4eEv^`%z{u16p`x
z{-GXLXw^cyq`VO;M$VXj?*WL-bOz;`)b__Q3*5Ozp-g^;zV3i1^v7EGsk6K{M}IK>
z$^%uX3S=mGBL?^-8sGi!OAIezFJrkFoyyDPt1wn>a7n_6Y=ZXR#3I7OA6F=ZI5dE&
zQtCp|!FB;$Z~v_f@AL1ks>-Y>1ej%(l!W^p>AVI=;3{lV7|U_`UzssrHHbe*WzPZ_
zL?jfL1}X2wWK!kpk)Z*fLUo{&;0MYZKT~QLxjzZ7OzCn7gE^UeAncM1?f(1p0cMY@
z!jw6Zke+>VlW-}YM(#hZqL)iMO&OSyk^&xu1-(*c@E$!b@b{#)J){z-qxKgjbWeqw
z(F3<i<~?+ab7xePa3M%RUERVPFXqG6wOVI-{RhK7n$NmTGpjzQn2cBW1<0%>!973i
zOjDNf`ZYdRUl9C>9Iz&PK9XHTKV7)Zo)8sv6|;xtys)q~Z<I0!-{^~HefXdN{QNo&
zY%OggqtoE(_o9m$E^mH*{)+L5w;IrIu4Az;*+IGEmX(!-8O^0-VL?^BcrnNK^EKUF
zUBsG;^7k=eXQk?J0t$#CZ2wyv4gAhPy-^0%U*}ydv$d!Rls((9+#XHloYrCnYS0Og
zeF=0G6tNM%zIl!2NsQgcA|6P@NAi*8+)D0zK9;9ntOVBz;#m}Q66UnjRIO+qSlVc&
z2B^oIq_TtPM8KabXH&>KfmtJ+FcN=??q!}tuxt(<KesovqqSA*?%i~h?n0k5fvO$J
zV@n?Zj!5d}rdL~>xF*P$Xog8ClsONwE8Lu%S?@idw5Fo|QR}Nqm+g-KeH+Z<>k3ET
zjW|oVtc^vX_5=D`=Tze87mJ_@b$xh(93NZq5We$?x_0ANHF&n2apF!r`NonneZ^Oi
zEs`mZ@iJ6$ZMYg{kIA#b)?Er96QWBDRGJdExgUq70NrGR!E6JJBw~NYpM?fJF-}1X
zvknls7sa=DZQZG7g6(QhEIV6xp;mxl0<n)?;Fd@p6d9n9P+v8=({F}#PxXN4fksYR
zA_t-Vv!kl(cnxIEpi`+pD^iy;019E=cm(|%kV9UZ{qB4Ez6i?1I2)e|NVaH+#Nq-d
znG8m@V8s|CTT8f9D5HjD_kho*79|ze!&pIaK7VTnfp<f#vboWw7Ql<OcDv(7&9yg4
zd-?ZUAOTnnC~aIfyNfMVv0bn&p_0Sy#igQ(^BU?id*UE{A>=fE<0!L~9*}QJo7mk~
zIn%>RJp0&XjPxWfGV)wTx4v}@v?VMKIw#;L<0|Jbh~#X|YXGdIIH&fPS|^_k0bqxg
z-R8V7-lpm7Tmp4hXW(X-)-ttHREzf5Mu1so4ue^Xt|$}bfu$2PA?qR6l(v*oIZZRN
zMuW6^>=YQD4+lAKUkbl}1!K?!9yQ0-c{QVGh(=&>;8sGj^lMwvUk15P4NQ_HB9c=;
ztei+db9W}lmdnS+Mq;F){Y!S>n5s}*@!_1BTu1OUxezv(d@lJbbAAgtu!j!Yw6I;j
zP>&+!o=d-VhJO`>FAo%c+a)8)q&L=Gso2b5%-3_m!ouiJ9Ebh4y1J@Hx2I6Cf~o$X
z97$IG7AWD`(T(*Fkz()|O$nCzz$K=-Gi*oR`=hH1d^eBf=`6tFIY8c_w#0xTT;)Pa
z2Mt6I=L|>*E&7my(14P*pNcsbl(fJ>KE~Z~m%|u9TkW&|9WrKgDzwR5<*MSA<>d7G
zMeYb`-}|6YGst+k`H#U|AZZPOR3zZEFSJg2F$>;(ru2+H8JIE`wC+%;`5;ul2G*lh
zxm{5q29(}iyAGgj8fea3!w0Sa#rQPk+&nt>iT@cS77N3>r-Tr>pJLChonT_(DIjnc
z5EzLmm`K<x0tKW>rOWK|E-~{vyoVLYhgX!bMz7BxtZVt|)2lvH!T<DH>mP3UVg*Ix
z8V-Pfkwpynw^$3wf%>aX-jR7KCMF5v?eRI_+h>77k4uHY;pX5_1dr{3*lC+DDgKaN
z$cOJt^%^=Hb-SNj56plVB07}$z_{r-Q#ahyBQCnm&i}XM>bl)Jk92+&w(V_|dIBmP
z&0Dz-*qb*aTE;ZY%*--_$@Q8Mt7r(6*+{;|gs8*z1WhPBDvIvUEj@X1X;cjK3Xs;$
z^3vQw_c6!$^8?2wl$Dip7K+q`&p+|1b5wuMENw8xS5v<^AIzQw`xW+Ee3Xd?mdBt3
zAf6w>9<eoF1B}SnV=9fT!Or>DH+>vzNLuHi-MQ?frjX0YJrFZXhJZAcE7XP(9xSrj
zz;e;Bj0=`P7X+D-p>Dn^U#=Xq$I>34QB_fiWcT3T^Y;}fBw;Iy?C*r3xPXOZq`Ln~
zFchx`W7n}=w1}>eSzl2ECnx6@Fg0A-gbA5|O~<`VUsQV~^*vO!g}b(G{dZk493z`F
zMRz&m^dN1~1EtY!SqvglUo=&vVNqzH8V=Nl66e18ArBG{To0NFBU^}9$pBly3u+n9
zt!JGe*DK+ip+oe#BLlnD>n$ZE+oJ?Gs3gu1?u;#{H7PiiyM(L`1H<hBga1$q0tm)~
zn3ciRRt>KcbICm5$LJ`xcfCx@`e`XQHS@-2UyiFvsarctLDU2bodCbJGF<S_o&#JU
zF{5i4O$}aUc2DiE$#I(gdMRP^Y2g^+NnvJU!c28m;lmt4VP<d7i~bi@0Yn;TcE36T
zDybXASyoE;9D=wM$t`0)&OQzjs|%za|M^od;h{J46?!`}@%LA>smK=-P4RS_z}3}I
zunIl16bvnhuHAqSEdaoHkSKi5ltr|xHwyusFx&#!p8&d(iFFLRUO^}M0wI^h^7^ft
zpo3I_1}p?Y0h<LBHo+fXwV+Jq&P+xRIkvbjdl+6mW9|%cUi4K;O*tUM$|RjclQl^e
za*ZxuI_cD&mm^QY_yrvPw0Pf6CyDr{Pk)qCJU$OD>9*(*whw7!)5n>ZZZcg}KrIJn
zp{Tf^i`#_u9!CY%z=pGd4VMR%KFoR7hbzEO%;V?o=L}H#IaJrXn-oN0g#KO*ro~@Z
z?DW}}iHUsZR=<rw;ebt7>JyNPA<w};{DFx?uB)hsAkpnDEwAAkRjyxu3h5V!eEh*H
zU?w~b4UJ-_1-T0l5Q<j-cd<h?+}zw$quW=g1x*0*WgJ+bA^^J%IX=PI!hbm-kOrWn
zP-+&EJ9u|}@=i5tYfdt&$I_uq@)!o1Jb;H7AyyoLG{&(S5;Tg;++e!OK5rbRR!(CL
zcuCxje!t6UnkK?K&TmAKQQloVB#s18x{$qpVn&bRAe{n}JkV4?&@jILZXW{(T2O+|
z1vaS9%>U1TD1vwN{|pd$I0)_z<X3;pV!=0iq#Q*#xw*N%YmmU`h9!Ygr4SZb6Ls~7
zhYTH%AbEW7I3UqBcgTP=x3=~`_;C@kIo!OwythzC%DRgk;H2$%Ycv|m{8s5C44E=C
z-vfk}wzt^o3oE)BVYj@wmGkf3lR5HkE(Z(*MSVnHUjpdf5+q`$ARN&R#w@C8q5clQ
zhcCcywWoHW)BgrJabH}4tP7W*peB{{;)@s|>lE;bP<aaU1z<sr{)@oS@en^2cAfru
z-LL!aI3O5m6{vUjCZD1CUfd!C!qI{Rs|wa=7n*WJbCOVgz%xRtwEtKXpDARxUqj59
z1i4flU@b7c;D2X9<NQ43Y||3SBk|zpwYLu>AN~qwha2gQqXU@>^sMNyxl2dnK}A!8
zD%t~qz?_F<$nJFLJ;#)!0!F)z11Au|ge8Y&&!0O-ENbBmWA_GrOE&voan@83!4#=w
zw+7HcHaj*xex2*E#D*=jqz4ZkkdLELT77+e23a4k5Oek2sw^jV29sCB+=+AU)wk4+
zP6w8ROJxG$rKMK}AyHfp<X5go0SwJxw}ucA*+Q(S11}a*_Xl4khJ~5eoyP(%5VUOX
z`TowY?ZNI<%T=&pc(Oo%z@<)4PjhvnbrH7+vfSR*m8IJ%%F2K*bDjH847RSSYMaPw
zTy+fxy0k+(K<F<pgm?txVkb~^7odUXnKcCLE0x}TZEDICd1K%E_ks8;<CdrUUIXPk
zuqYFm3SAnF9N@N(2Q7=c&!?vD?2YCQd-387_CfU^$a{B_*8c;y{<mlg`3tvD&q_1>
zM%MgR{pJ|o^_w^IG>3c#z2w{3&!2B0Ed^8v`Ic@X6<`os1MB<>Z0>@Lj0upRT@LmT
zLgLUJ<n<WddVKj}k^Bha!qicF3nO=4q(lA`N?crKW>H<^h)(%I=&mdCigd;(F}6mt
zkZ6-}h8)dxoX^@A-OWT9;{da3I3SLDBA1RP($LZAT5NCAWkMdrYv#TfTE!vApvHFf
zc{m`4js$68&*ggn54Av`gzl*c88PR%k91(l`ttq%K%1^4Z%NBo7o=x$yoN{Tej^{L
z%{r!>b=;%Ks1J%!vZ1>rn(n<EJ8;OC&q&7=1oG9XKfj+@y@^@Z1#i5QEmSH6Hpmoc
zsFZGeP!-X}2d1J?@<YGbD6?U)&WJfTsd48uKSRK{C`1}*2-MZH2f0MTYqikCZDb$T
z;@t#bJgW~uG%+ANr@*3J{KOV&1z|b{!Miu|%IJ2Nz_b#)DU=a3yDhW&eGg!Lm0@J3
z7NGARjssLlw8>%lC}Cuj)a3&(lWT#Oiwmc9GMBRKp~C+WenWNvTpqu3kSZh+OCYYt
zMSxaf^W5U-<5(ymfDb1jIYG<(^`MX|;FfW!Xn=Quvt?wgAFVUu&qcMQ0c88rI$#lq
zw+=z~{^?o`n#EfK@H1XEjPM7>?PXO2H%xpn9%c-()gTk-al-<_Vi9cFhc%+07ay6G
zEXWEFDDU(o+rw3}0xkObdWYX0Z!gImi0P4yN^Wex*VwVZ6sW2$^3^Wl09z$r_S=u;
zA}Q9Qh|Z}^_`e{!G*C9RD~<6XTMqzyH1;Zfo!|HKNW&Siz#t{2tEnmWY{w!Bx)E5K
zTtpGpqfHJ95<B$Q#mow0&$vl3=b6+R;GFv`qW0AgP=#Q`cZ@}Cve<4w1lz^3{W~zJ
zx7?P%>kaEH1|k>YcLED^71vA||8!2&*W+^7okOb&dz1VMfvckgAJ&QuA>a6|ClplB
z-Cna>BVSS!X(M^KxVpf~=fLV3IVy&bpz8du(P7T)$z!{(OF_3c35fvF44iUQ-5AeH
zX$oZ_0G(ch(+$lK+u2;5BWo~SJ@Ws7k2?PiJ|chcWA2;N4z){>V4|Q$4Sd&NCQ!i~
zy5Y&rkZnkDzGRPwc<WN1*Y3L)o;H`;$p&``=0PKE77ja2p^2AMmT~G+8?Z>woE{wh
zP@RI7)C;JU>9-HG*QF1~ReSUT;HZktR9Bh@q()njz?fA=ph1n#nR39=vHt${ABdph
z0h0BArv*;UzBduO@7a0(v{FULbtYEW=g?bvK=nZ7+Z?FgU}hwEto+J@1P&a;$ZwQ_
zG+(Lnlm^-fV6ke#2fiLbAQDv26?l9d&VHexePAZS2sGyFo(9TYs6(^w@JTB;%>?BS
z4^{q8V6^*yUm!JWoZ{81Ij~b8qpAt}5tXE};nSzjc{g~(L`6lXnNN`Q=mIr_rrCP7
z!S~wBSFbWb3c!L4nW6PRDMy!IvR4}M0)PmtQ1C5<5*h)*FqpF~3;C)Oy5yaZAudz`
z{q7lnD<(241uk;HpKweq3j%*#{<fHyOJRHhUSVnihVa32?7bO%01ffVnGz}H(3F%_
z9`cc}IjK_!QEZ9vWstcTYrHYx`?g(1Sqjg^0}NR|e*93QBg+IMJ{;Z|6t0UXs00WJ
z5K$DtI9D1OVc32^Pzc07Etum!n%JvX^x$t^!@**aVpjdLlX-bnjt$e&xPx)3Uk`K)
zV!eO1KS(!_pwd>qtNwD#9ol&>iW^_FjIkC57Sb{?+3im{c<W5phsMSjvPnp-z^#da
z&;+YreU}e%L5Demx%q<f<v9rn1Ij?ZQBhVEIASJ;iII4I4JG;@)EE+7y~#VDRb#?N
zE;Xa0fUrvR?4vjzU}go9g8>+&bsN7VQNXJhe6s2%P8k5c97KDw`^Qw{#FEpLqlj?w
zq#G0&{2TMD#-1~!RrAf<W6l!X#&For>NAeR0NiAd03o8rHwaM=5d5+PwxB5CAyX~A
z{MCGE=<dJ!;xG_41Q0d4`}#q_dAkX*ZwQcZv$4sej0tiQ+{QB8+{(~PUVs!aVR82^
zirFA$+zB37K}AJ{uf>suP6z;nCngqv>w_KzfrJkp-VaS!pyvwpIv`H$3{?#hI*pI=
zcBu+xgMV*R!H~}eVuz|}Po6wMcVQ`%9*aA7CV`E1=9Ld|VNr`7vW6pvS`s8&t{*?I
z5>6oDA>g|RTb~QA(rLU^9q?I+We4-tQUQ`z_zkS~oYvMG(%>JXR0G{M0PrB{VLkWb
zBW)Lpw1?JVI^G^Qxxjr?1>n{nOeZIH7PEzJX)F%%z!`viE}Sc^kbm~Ce|1g?Y9Le!
zRNr<1fTxT@J$JJ{aBy4Th$WodtOA7)v{XLeCP3mrceMso+FxW5{QR`|vBGbVvg5!4
zF%_Nw5h)w6#QNmxQ1UK@fMf(tVrIe@hy&#XX#<qIQ{#%_zwh=CBWFhgfD!3aDAwbY
zm92kY1ei69{V0<}$@>Q|Y*la=kpm0(4;nmBSq=TpK2w0d;bCFN`5oX#(O5aij37=t
z>i_p7D+LF6Ck}vc)x%j{1Pd6}G|d{dMX+7_=!~fOcOdKzl_`=P?2+^?3-5O%=;ixc
zA-+(VS~Qojg&sYc#o_>&fW9v5_WM>T*qfPlyJu#7)!1MxA*%poeKIY|L_<d>5;iz{
z78GFR$ctYfBHsf`*XaT!iz(lD2~r{?9^Za_0We1dyET}CWD5|&V8!;=BlY41aCjBW
zBW?6#4akcB5&b&y_Wm6x-+<#xMDoYMpgfY$<8<R4i3N~QVEtYTd=XU_P+pdjLT<hc
z2735n;u$B4W5<rMV?ml>4sAN3WqKcZx6fv{uGYkRNgK`NLkYlx^q&t~b?`w859Ds{
z6c|_Qpm394>uTZOQVsH!s;a6kK%w~g{nO*NPH6h_$&-VQ))?EhL`^_EU<FVp@A=Ah
z?wk_LQ8Mp-(Ee?4kV4~<Ou>Xi6sS0DDy7cJnq0k#T-9u%aZGvLa;5eU-rV@y-k#s7
ztdBc%=n%TBq1u9w#qnKw`1dJz8|`rt;tM&Vaohh3O>if%Rx<Q?b{(8as``9~vB>N;
zMar?Wk61IcPGpH4);LL<cILpF;mAYU9~KAr(k2VI(uQAe8HnC{*_$VHNIRJE3cl*H
z;^puQE}R!$$X(OBg2SHM;13ItKZ9ID4~3vi7--`K9-f<M>Ht*Hs_DbV+S+MwK-aYj
zA@*dMJv1X9J_$z+iN}1CY}Sg71qng1^!g_#s24whNh%n1Vr7l~d}lt;MK1MV`GzRc
zy=@0}lm~>LBVN8lC2Q-+&SZh;8$|;%=*dCUB&(^B+CtVk5FO}bh*3*hb{duQRfB%_
zYc`^O5+Wixuw1%<s`Q6=Lc`TEG06vYM?u4BH7+ddH5{K*gthn*Z-a;81U(PBSlm#}
zzkq>4jND3?Z+-=$3)gYX?muauwXdx}Lso@j4Drx7&^v}|F@=EY`+L?Qn#S0~WN2!Q
zi83&Cys)ZTwj(DeM-$|9SdOz)HM(%MaP0dpSGWLG3%xY-)CR=hvfAGJ=RsK|f~I4a
z(E-j(MnFJ-J$_%D6*MG)*fzLhySi2~)_?l$E$>v{D(<s-_fJsRt5+AITJU39bW3uk
zkOrP`2%Weu_6Nw)Q0qZkg2<?AwRBG!h73QyreU+K=xJ_l9>h&f&J8OPWR=UG*Fd57
zkctEy9M0cy2(SEO&m>dsiW(tdfr{FDh(w#PVMY5raN;#gP3iQWyu6t(2PNX3s;a6m
zqpOz@ZEfuc)KgLBtyF+=Bhkn`ZRFzOQr*icSHT~B15k;!u`wz+Il@^73jtxiCN*ts
zMJg+WI5>L;md439S3X>dZQEANWnf^KJo_{#EH3V11Ao<~*O5iVU7xB)YNYdSv3~{Y
znL-q6z&+>S8GbuuWMr%eyImx6<_3}rE)*Wz{Y>b{eKW4mJFLLXuNsfB6}tDekhe)!
zTiY5=d7x0p#icZC(~ikhWka0>m@h>6(d;vNG!ZJW6)aNY<pP<L<W`Rb$*mLw;6nmF
zxc>XUk9q!w?^oSFnlwcg)~PHSmaA;I`$2~sN$i+7>_S74*Vw3Z3h<7AFD0l0P+tH_
z!I5jVs6BhNfNrFu#MB?Qx3M|oC@l9KG%N_iLTh<kb>d9YjdNkp#yFm=TnM@bLxYPc
za5#fgP*hwia0qQ;gNV|Pr@n8WK7Sth`Ocx{i5BR}%%Q^j3Mm)i^n^OHjoC{f%47N*
zeqm1WAgc<=wu<8uhV|&|CF&;z!}ac=kFNDRxVf;s_htIhRzLrde4xLPD?=l$cE{!9
zMPftr87U0Ug<(N&Eb6=0x~qbJ?%7mzG&YW3RX@gh)4(8xfsxUod_dm#5VhLfVtx3F
zyHh@}Mthi5h5NySq9YAz#>U2(%4Fnlu15*_D4OKtjBPvl=fXonb%Bf7*xK$XUcY{h
zjMC07ueZPyJ+!R_CP^6Y4Mt?zwHocql}-~}92{xgqjVSbk{}{7*)BOdJ#=`t7f|!d
zB&tGThapPl<(Q_C+lg%&o$7UjLPEOl>Ely}x{e^%?UbQh9+-^>DX$!jnQ;ONZ=+A_
z$S{TEF5INSo7?`-CBkE4b5M|t&qlOSySREn9}YKV=j23$g*lxr*lpEv4r^XAcmkp2
z_L~df$HMvDWL{2qb7g1<Ux1ACO>IAYdI*)+0OEn$IkPM(B!uEL)VG1?_1%tyJaA9+
zFP@ZM{qDzg@nR38WB>=@L`KmL0KARIP_66+0C`+0DzMGgZRDfJhaqHE-ZmEz5#a%}
zZYkJwGo|4^!{4ST_q}v)2Ou7BK9YGeRFe-li{2Zm(Z@N1fPX<mq-=0IEaZ-=+~%QO
zh0i&)uFeFUSqZn_XGWZ;sO4DvIwrc|a14YnO+4)aH%!6&!V(KZOP~gY4ph0=#(Km4
z4?CxF4k;)g0FQD0{+8^~gvl9SnSe)+$YCQw!7Po=`j%2wrgQV=O<XFZBWfF*p1}bk
z+#=Y-rF}!daIkH`XUguD8f<N_XT5o&j-pBkr$QPmDWRTz7YG@%x=~*AkYj0Jbf`It
zg#ptE6bv=IdkKmFw}eC$(%^LDw3r$W(z!i%H_&7WDpW!?y%*kvCrkVpNDN)zU2HW;
zL&^>sNQ|JRN~nn+q;bF$lN^-2^%kQut?<=m%@Z&_Phtn%4;$a_m!fYNjRswV-6Ig~
z*7D@jF<M&u_$7iEYls=Wz!5)NMw$#4`v&3X&wCI8A*ZJ18;iul$fZ)KduA?7r9F%)
z!q~l?#!$J}p@Xnv;gT!@n|cTY<#p9h-(LQ)8zC0ZG&*N`1cad;6wgBbob=BDW;Kvu
z;Ka5#YBfTTCmglvZ6Tpp1=B7uEj!4B-Wqf@iNPKC_GAyDsXFte@}J`zu;_a@Fqb1B
z+KBepAlOu1US63km`4F0-_d-AA}nuAPA!B2mEhpRE~hAtL$!vpD-nbCy3Wqd<$^&!
zfBr12(G4)X375VKm&1XDgR44lm_D$nq@-h#n2ui`I95O)?G&5QgMu1u;x(r@h`=7Q
zxpxnR)1}}UfyV^`91-NEUSI%A@v~l6aawS46Mf1D&{|N*y3rZ7Xg;xiWmoEKN_P4E
z?E6{YU+=jKYFM!`;!bxnno4efQL|@|CbVf3`L;gcp|L>z7@8*Oe!x6x3D3_zke>g<
zhKp%HCV+mTK+T}&&XZi79JD2YD-8(Md3_W1OcjI-tGtdH<Eb9w%;*8!MRZT4N|T|y
z?AgxnzF!SN3NR!fMcNG=CVTnzj=<Xa2sp%tJ_<v3?_M3{;6{f6-Mx!0uoSjQ17Ky&
zxCU0RKECelT?@e4gGpXWGQPcV{URL`6H`fCfoMJb8Q)(Y0Q_p{=%ho92T8lAd(^;3
z;158!#N%ylP_Hf>Syd$gLa+@S8Qr#C2>YsV7THgEI&*k)Tr^%r7aA4x#42sN`zg^k
z&cR9mApLtkJsS7Gv&aqH6REp%`GfTu`O8xrK|+74t;WKmk&(rB$0;5|mg7{wy9ot_
zIH11B^U(*DcZ&P27}2Pd1O)8YzZmITD_h!kZ+m6$$Qh8d0GnQ}L{`rEBF`n3&z{c!
zdFC1pwB=q4E7X(6X6NQkJG+K{y#12>=qZ8JfsUQ8=AoQyYz?wbeQ@{~&W3eCfc{(h
zU}F#s8#@-<&OsT`zdQGSk(HH|8W0#*Z_%e|$Xk7X`8JKB9svh7M!@2FR8x9-`nu%`
zoP#4i6GYmr9=3v=%z*{_)4DtXfz`4OiKr!bzctH7@pu*N&cPbP5+TI`Kq9@Be=C=7
z*ySWksn?dT$Oiub01A_13$`gh{##K^K&^niU~!P69k8#5{SLwo54LJ^z9n?+8vqBO
zM(Dv6AvoQ)v;39ss~&d7Z#=SI4xXCPB(-}F)Km9FVnG4#cs9X*88i3~$naPk6zsvg
zuyrLC1X5t`txjmH1th5QL07}r8Nh53@Fa~A@Nz|@udGb>v0+g+z1(Ks-%(*zmzVd0
zS1bTsoJrb4sAuf^Fhx>*T7JF?6xq_$U*)aWu-GpS$c7;neeMW)+-z!Nc&E<3a_l6C
zayGxezk?$;)z94%x{xl7Jkxp;)a$r%<x2Gyq%E?uvcA9uVN2{dpM(Fi>wbKA0!QOz
zpX=^sYZL+^zgJdNy!tMF<jbCQLo}_2ZJQC0IP{OCAOvAiB@uKdU65nZMhAIsh<{qa
zix~6XxqyZKiVj<$SpzCIA}(&Npgb)>oY!`Vh)4N5il$J(5e=EIn4bB2&(vfvir~(n
z3(@#c)vZ;76{ok@tg0#llLFBm3k(yK<-d3_9+I<}Er1fBk)G3Bc=!&w%#Xx73Ne2%
z<NB|&KVG%njc&V(Z4=CoL1JQHVN>hDi~-z*a+b`yk0KM6{hyEkAd-VT8-@1|CI|`&
z0*RpMVlaRhCki!kb!^{u495OC-1;YP23JYF{GP+DaqjGYJ}(2raq(m@>_fO@k24p@
zN<epjNL&e=!b1at0MN3L%*+?;fH*IJKtgA9{~y%Dwy?0^<a%04z1vwg;Yl(tKHgUM
z_V&(HzRb7xqVMvW7n+(zd87@VOISq2)z%1VKAK$stO5CWUZ_+5aP7{P97}gk4}0*(
zl>YvHwWvp!$)z51cwz=@Q>)eA$OxLEP5?uKvSFh4uuI9fvqS`77BmF{4+`)Ar(B<!
z>hBzgeTJ&WB;%zAY?{OC`5Ea1vYCZ7R7D|zE)TN(6J!I<Wxf`78lQyJUp_oNAsmPo
z=<B7Y2D-|}V4nNS>|%R!^<P8EJSQ{r8hBbr?f#<-sc0}1K9Lqo+1->B;}0se^!2l{
zv$@v1>eQnAFeFEeHyU$#9V&xkhZB~j@K~#z3^by_#y0xOyzOo=`n)MLh+aj^&RNVc
z-MX%mqg_zD9J38Ss0$C__yWOV?+`{&6%b}g)=&Q26eu_E!v|)T4|F&y1Q|)&zk3-K
zm4SNe=%XGiEYh|oknIe^5hqKC3;|?ggJFam;}i_BhKY$uXa^clgg<9CK|$Bn(z+lk
zYYK4caR*I)lVFml{kKdI*$&hwDuLiww^BPhg&ra(yVrND)9G*PLNF9ZVKU%0wRLow
zp)pjQjyqFp^N!|5fZ5(H@xQN**&78<K!B3Y#m)W4)}~Y`WIoWj`_0Z%fI9p84I-kV
zj!Pwec+chQT4{tT2`;C0f5PL_#6lKShm*mI0Hl(651j2CRixMhr{$~>aA{y~Q@L>d
z`?Hz5IL>*JdPI=j-)%qY9-$`#AkCjsS0@vmw)>Nl$$z@R$-bFoSXTVU3o%t$S!nr&
z1ndjoTIh2QCLxqI`CAW;TtNl~jW?+QFh@KgrLaf)5B7!e_dQcQFjJ&=(Z<S(!iAGU
zvz9W+TP6{fBqxtaO@*=G96UtmibKs@fUF)Yd{o`EheO9Af(ei`T!aT7T^1d5)^upu
z-7VC2KxI1_?4Q41EZyWlC;9-GUvR33a>Z^Cx}mZ2O8~^cafSapkENy$sh5?OHbyo_
zSzO>54b68B<t+WX@4S>XHN!5RRF2KxFQ@Afv2JiNQe<QSdKAcFY}j=;?v;uzV-Vxf
z1Tq+6(^QG@kb;7Y1dr=*h>F#1SEYO(2NsaKdnJ&Qv4yoO#+2(XOw#Hh`n4pRAcR=s
z;LxNrsO`!)pXK62Yv7Rmg=T)T;gP9m5kw0jNP@$$8N07WeFypuEV1nDY*sg=&_ym^
zAIKnYg`&^Q*=VrDq9!(ge;0^Mua%=G9r<d0UvWs-HBsbVKww5cPY3?~p^bisOs+23
zB5>HP(7>aNz4ki*c?ZWkVAvcS68>c;)IfO9<!Mt2L9EABrxkon_H_a`*lq&cGqc?E
z;X}!qla7wgfB6l!S`&OvPi9KW6?m3R&)AtqaG~~tD<AovQHBCwm@_T8C`O-f+Z-{U
z8u2TH*W$=pGwGVA4?2;zGxIDsc+})s5E#URBMSSH_-wZ-13JXe$g4Ua=M7NANxg4s
zuC7u2XW{3-%G21urcLS@85!vrU*(xqexG#?E8tbTTEfW4NTQ08l)U-y`DH7(lShC3
zX5X+I0KgECR#~eDnTZ<fso<<}LY?oicr0C)A4nt;t<HrOS_njk<8Ubew&0O#e|R>;
zOLiFHyEb*1iXX(s!Zm+_YI0u;YWyGG3c?946?O&)l7HYIoP+@C`lopRrLNFwaH+uK
z(boL|q4j?b=oyyBJrTo9<*Dx0yH0v-Cqtph)cb5{X=~GhR*{yr<aX~Z`6TSXhho8H
zE*-DhpIgtM)hy}y6;Ys$SEwH6^%BkzI9X4v+y(>JP9es@v>WJ$meD|v(6@SsYoCKP
zGq+FE_wm3)MWg`?4yP~KA{s*{e{h6sH)}&J25Sq71TbbZIu+LWFOPQdb&woT;=hY7
zWsB=dx-OYBG^r%wZY7|`fI$Vt7JdTUc&IPuD`9~EMgJ#z_XXtmR=s4jb#-$f<lI(u
zPwv9MFO6U(M`0`h=|Xt(6j8%hgd%CT1;}J4CtrpKT>W97`zERXy~@revD1|BR-ZxE
zsXCFQeEy<ueojs|(7Ht!5@XNh>6gGfA##}m8mtK_?%UW9pK$Ghr^zso-ayLHHZ){}
zw?pj3&yp<yFH8pGp_#N)*5?D!f4i@Rmr;QquxU1YZ%!e6_dXUmVT53{X6NTeqKb^T
zT=_m}Ux+o7-)(&b)KbVA=QAIcIQh+~BLYnvO~Pe#d(PIPeaaRdh`<0(EGSgo6}i{<
zhBhH=fU$rDxQ0poQ+H;PY!MP=eAx9-mYqz9{Fe2JLbPV<`vF-s5CTtvU;z$+Dugu-
zyJG*2y__ECxKIl;pjUmfe+a<G<6^d`A2&C5s5?BrruIA*PVG%CzCu|)4jyb1F!Y~W
zu?8fDNAP&A3m4S%^-qlmuGhe<p{F(y+<qK%mr76xeF9u3l^0>{6p%T0E?snNcfP%K
zVCO)>HV24erBOb*D-;UICwqGSAIiQ2uEzFjcQ+su8B(GFB|{P_O0%Sm5`|QxBF#!=
zNP0pD4Ya8w6{S%nO_XHLl+uVI-q0kWL38I?JMVYC@0|0U-|zGLzkfru_p_hpzSq6h
zwXW-0rhjP)m0%mJRJVh#KxjNJBJa`YX1p1hrO7y;t5G=r@3GnB!62<eqsa@kKUUp|
z{F&0Rf>w*eN}N#-615E;2<&pGX1ZVvvp`exBl8O60z7<K9Gd7efpffp(kAqe$b$g4
zJsBdqP!g<Btr5O>Y;kISe&pQlf8i%2qz$!JdQrI6OY2KsE@806GDDST8v%bpGvoXI
z!-O!sa8`Ngtg<c?shhw!VR!VncZ;3GGUe{^e}Tm)hj-4o!dojX*I@Uyw6+4c@|H$p
zi;LboT0Bx2-7-(((K_Jm?Hy9wjR=?tFrL`uI3=l$eV@ZPDO*3}A08rA3|7ykMCKAO
zlSI&9*HFd3cbyKPlsQq8wC9B4zjFMy>EGW^n6TPVnPr-pnwUIl^wSJv<sV*ublxZ2
zgeq9`#A(4cpbyw~di#;~!=xkW{GL^s!VC}P_xy8qGjc0B^%!q3@-Kp1hfs>uL4Io}
ztj?fM%DZvg$m15K&I`(7Bp;Uq133EHcG`J%nP#1FQiBF0NkJ7Hedyct!JcBRFr=M6
z;{3wPVkf<h088+xAP`VHT=NnT34^DX1(;rq;%S2slZgp3so8n8N0^7vq7R-3HvMR>
zn(Z$!9Xc3tWgHxAX8=9irHqy`QDn+TeHXA;v*%wa{kNS)7bktAs=C?{{T}eI1U@e_
zTFWyr*1{5ObX;r2KyODE3QK#aX!=U_`aTlWANf3b>X%Cr0QHjC$cRZ?R{51RYf3iD
z+;NAcBAQ<y2HhbSF>3sfc!r>+Q5_C{gVH&BEKD#yffea3T&m3@NVy8aNe<{3<eiDI
zICSqJ<r!3<kx?Zjp6Fnu0Cz+{n`OM=Z#L~8h_nD~kkdqf?(6HrF7g*L*}LIWmp3Kg
zARnyB$;ol)CZ@siqTZls3YPOY&*LF_YFeY!cb*_Wk}gn!8_f(I!m3(!W7_;1Nl9gd
zZqRy4!Jm^8qf=fg6s(7S`NyrygZ~v4g~1kQ$$GK>gpBrG{^x+_0JsQBHjf3!M3LuE
z;mBQU0?T_OR;?Z0wVpL>jeu^oVGImp$SZb+iu2FCGtefJNxpI8RZ$zI|5O$-0<EYJ
zP=h;x@r7n4^_jcy*Z$&@XAq=8b_BDKDLvr*3afti(wx$^j*bqmQjI^J2jkGgs$K;*
zKtR#^OaD+luX5RtV#r@u6?@+a*((=S^(aJ5?)~-R*3O!up`1s98XLE7FA<t-{c_jR
z`KSX?*L9v-L!{fT;me!QRN67X5%j-4QW5$x-e&@ARW9#Vxh%^T5)yJG{Cu_cPQsxS
z1*@v6aLP!>LRm2|Wr!f^tasjCng~CUk>UVcr-`bw(R$ghx~)s^KbMAAqN6`HWFnK#
zgi#lrCu9T(KZmNfZ<9b{Mv;p;n@tSNW+pKv9c|tD%a_+^y;c+)tYHSjQR;dkA#Fjm
zQx48i0)&1ymVfPh|31g53tUWmuIAyvqTxhBDk(Qc?=q1rW*}+vI@N%<MPeBwI}j7D
z%edE<^6_AU&>%Is&`3qRMO^*8|6gpF8T`ISi##XMBS31s1)Y_`?)Oe@!5KGhRAT$l
zNi<sCXCwi=|0@}XElxZyC`cae`6T8oqOJAo@s!YbQcZ2$?zQ>y^m`z{k*^FHd$G%5
zW%kk42U!!fN8u&5hD0zD2kPEj-sk<qF{dSiVFpuWnz2&L!A&NQNwhXlffEZ{tN&f8
zTGZeG5qy9ZomrS(Motu9!sC0WLqG8I5t<fT05#x_y$|e%Wt|KgberzIXTih3hefef
z{>=>04Gt10D7S&Uq#J9cIkKpOAJ}Cj-?Y7H4Bk7G1%f!wW6DxlWL*>*4~j%Vg{}F+
zDrEUspdwo>QM*rQ2C~|0s9H##cx>ujgOT*E%^k;EM$u5dj01R!ZQYkk?1)tn8jqfL
z?mP64WI2YrZTXy>202-~_4rUlar$;I;@i5lk+Z<g4*jr54#!S~&%$CM=apRngY$eX
z0tpbsx`sE`NqF(KaA}=m%Vw6#(o5N3WDzkTA65xpe;w@1U<O|nX~C3&Ov#|A{3v-U
zQBHT=_#kAc8h9{7V|Ts#OCPc>T5-g&rM4j&k*#D&1Bi9d)<U;C*wuWId1)Z*1cw-{
z8C-=A`C3$hL6L%F6+XFJ7H&;9MI#3GeQ@=%4ub5UzW4P388&cwbJ+5LWP24msw85`
zDs;M=Z!HGgak0d%_4hDe-`Y8K?m@H5-Gk<Aa(9_SzlXXXnNxnGUpxb76QIrk)k(}4
zH+jh8zIri}U6s2Q_=QD^mKC57AzG6Jnr*lvzk7X%kPOokSx$1zhDn}_j@|^O0^r!|
z<)XZvKV*Z96;KUhgs$+Sfz?!)Vfp>2um9a=?rJ0fp5jpP#*Hoo(V*ZsA|$ohZCO|T
zU(w*kDCWOIgM0gem9x^l`lm`qW!JqrqA8_yNcXYB;9lN8)_T{HlIH!W4=_m6a^4p-
zXL62Z!(A<%_~!3JE?Mv3kNEJPV=G(%Ro(b;@xfh&Sy`bj$+Pa1;am<xR4G_jqgyV>
zt#6I#rZSFc{}}<bMbl!Y_bfaQ(WJeO?ZDoIEfha2pZj(axbw-q!*Q?s^cV~D&wv9F
zPX<Z;+E8k0|9{)W;Cz?@+xXsj2dNO+s~^(x{ic+RgvqY1uC{64`I)|aq({S|mynV1
ziv_HJnE-NdpNLh|Y(+OYG;-D1^to}YBOCwEw%pU01|?<XUJI9-x23(2M4j4PbBa_e
zbLWnhZCtluL;J6{KVzbOc(dz#;$I(j>xSdj@Y`n3KE9@~=mp5?T>4fbwP4I-*wEcK
z?>7w5=#GF}0_j)Tj?t?J;jTp5CzpgbA!18(Ly0d0cPp>{fsySjHwU*0Y9lBe{n^qh
zTyb8I<s=S0AI%taFT6k^c0y}+h#hZ#mStWtczF!4Cv;De&|*41TFCLh`qoP;)0lpZ
z#Ds(eX#WF}#o|_L2we6)=mY5bGR?qK+qP&xR#*mUa5AFuE3Lv0&7Nx=>-FwlpYHoo
z_sqzp*q63;0r*~z`UR~G8K0-_?sqK7P!l|XI=jQb%3wY?gU$tF)562MR?d8Ki~;OD
zCRsCfucPL(sj;Y5S40X`sDAffJ`2}xKu?CD*&vqhZ$PpN;*$%z928OCS89-Rfijc;
zVs?(hp7NzvhHG^^)+v6>4-y!;o=8-QsK1;*9wxJ~)ab&d87PEco?5Bk<66?#(Twg|
z6+&KXi~)1TPGdr>=;9qWA|oTUtIPFq1JM(in%%+Ff(3*gdJ@HY5-$!Oxx5_)j&Lv}
zPWq<HqsCc49JvZzN_1MFHwqsRy##&)GI=oMl<i)L;i#0%3I-SiRaZ-Ht*cX(26%47
zW&|1P<F^_4kijtqWSjmmOLPQ(5Wb4!8jf+AB$wqPWSu$)w*=ztw;Di5c7WPnCp~5F
z5+99$LLC61xEY|;biTA2`hB}^#)0cV8jJcrv{Qd<UHRBSRXy-c$g<l=^aZNEU;^Vm
z-$VE|Ul*>>=2p)TAPs62>W!g@QgGqp3V!6LK6+P<Q=$@b0xy7~PQYmprpt+z_FOi+
zbHR;_^z?7FTK;Kas|8wHTFm@~Cna{x_6PVpz%M-M)M|lA$>xi7-<Fl#pABJ;yl#NO
zC$|;EC;?P3tipNz#j4>Yc7mJ~?{)^2^BXwN?5k@aDiUzbg#sd8>ANTCa;Xb{>?S<~
z`nN&-mp`7$mx&7W*;)|puFqW`QD(QX=tmM7st~bvAq#t5-!dC#!^`l+T354TuMcOx
zdJ8@oso-&}v;xMY#^%cJ?RDnhVo=8%j2H$BWg)!g5yjtt#kJBh>ZURdP@oT#cDz|5
z<&ssl(}`{d2&t6#VvjgH4V+GZePZ!}F+55Sr}HSyrvD`HpUBAXeM_-90SQm2c`@5h
ze}fMa0c7bbf4CFxmb_u4O)KvNjE}wkjrsKZ!5FDZP_g<|YO}Jkyujac#I{xI|DL4`
zn~&k|^*E7`K~d)4htz-|Xz;I&xI87(C3D#N8UdGy4m;VP%?fhUXF<V<|JLBY)g!;(
zdj`VYty`P6q~=rv9%qSbWMWTAezgP3qawqX=}M(*0TbhJj!eV+#HefagFg=R)ejF^
zrI}^wPE`NthZTk_in<n3HFwCN02o{=hy<oc9{0W&sqgQz?*n$lQ4YMI^Pv8HMANQ=
z<==2NVJ{4Ff{pAncKF}SLA3sW8d=S|Gl>}QX!0{w)IXXT4*zlR)yP{0d;&V|$Ht6Q
zA#UptsmXW-HRRZsNmGj*lWQ*~B_-_$3X$On`ebWkqlBW;FhWs>$^aBwaVXT0tKzw?
zbBtEj*a=g0n4G{)fywX|9f3AJeX+@_MZ%O2w}uHhnLkzUHkj}@Pg659f88!lNKE7$
z9<nI==7-e4#7Omo=IfET(v*`vO^pB814Th0aU}!5pISdM8>2jogcr12w$~lG5q>w3
zr<iWscoiE)@=wDkZ$~2TFIb?KzPbS?AV?Xak5l@>{5t=3P8b&N^VTk)jSK!o(*;h0
ziFbt=>Md5b1Ag$qT&jK713~+dOYpx4aE|bxW=~wVHsXIc?4Q68%vVP?y&W8RXbfJB
zO}VjG`tKWPo2|gz2I>NS399x_@NXm+awrTpQv;3iulEwmAlWvIR^J9d#7<y=;9mZ}
zc)P%SpxL)>EgdNgV*e%Z<E7|E<FrGFBOB%Hx+dO#AuHX7ZTtI0#nhu$e{|dDrgjB{
zU(m)j+uFuq?OZ@1@%w%a7jjrg_yIG0`mEHrjDN58{#Xde5l60r0s>S9y%5E07|;{r
z)itl6q?;ljK}+ffZ{F*;(hhQlik`@|f`4%|H(gX}!@S2wa9BZ{12~hKF`{6*<N>IB
z@xl&Jq~KVWOH%99Gff&l!e(V@f6031OjHtNCjv2Vl405}xy;AaI_q60yc(Xhc8$KX
zpmX%UpYT`$a?3FjW*Wo0b>@UMNiTK8oY1<}(Rtt=gx13rK)2@>=t`IUizxCmqQ8SB
zfh2XBm|osg5s|JY^LIr|5ll##<HnPCKl}5S0m<KzS~c8p2A<?m0f{3B-u<!P;F6GI
z4*8^x6aP%nvro$7+)*jxm^B4k!Ed3iH2)%Mkx{1rfkCqkzBeE4O(Q)k!Hn#_w!O?k
z&S^G`W$4!tq49#(@&NpV6i?PZl@S|X$OHui5eNcL9`9GSZTky|y~i%cun{God^<0U
zP=)-YGjV?wE{rQ)<}JG*rSWA|m!15vh4Y4Y`~EyG)$^zkDV#kzomY17gL2%dg>2J9
z@x{mn))u~bUz&Hms_LCJ4M0S9sa)o>6ylZr#M4PiTZRluLOoH<wg3&Rp`xg%scAxp
z6fCZXm;Als+C3fx9{_s<5Dv$M4~`4CLn+>6Uk5pfed~;;ypq}(<~c8h5BC24S{yYL
z9TCyQ44``A&!0K+$@v4&Ra(9J1Ue!>!K&=8ERM}PDLDNagNnOB@&K4lqpynduf5OL
zgsS`ga1SOEbZDsv#yx7VU{-DfWZ3jq6(-C=flV+XfG{xR@$mW4jx8?KtixapFKC@c
zC(q{Bz2BH1wZaXrbFe7W9yPX`a?^xIiuRSkH>-Ys6#;e)tI?@hYlP1;w;3eR(Uu^`
z7(C4hng$gg;HpdLrpDhp?BX{3V+P?fXk@t5-y4jGIgdky9?ZGHyg+P`)YhcyVQwkx
zP(dp{tu|O>8DqVN%7nlC8uK~o+__jB9c)LBUn{N{F~%?w6>h69(mMAwb_Qm~yxkr_
zcZPwxFft#qNI(w*?71j^L<GWtlH=p!Kiosa1`S=GQq=6$ho=>BBw^2={NCGt#;?>*
z5``}rtFs+llb1kPs}QnR!?q8yzVV)_O(#KzIhoHNYl8g%;3DSx{*_w4{*oBIT~uZO
zICG!OOql{MKK{q0!V%jBFsux!a&#cLEd^cOV}g%<mhOM@ych&Oo6Kj9Ir^1{D-p1V
zWeoCaOAcR9496#hnbunF7TS#eM@dfhIU`UecBp}qI$|L8rp;G50n&s3V&Ymuuw67H
znHfJ>-cWZAvAm%!BeGL?afaoc^5LE_T0J_kFLjoWuv?77c|4Q8Zk-B99Kq#r73=85
zbLT!Wb(NJ<H}3txldS63eNa7n+p5Q>gM+)rl)2_zcA7a!4$_H})^08_{-`5yTM+~%
zouA@|1YOGy#i!5H?|uv#B3PDq-e4>u>5J##8{H%K+W*+|U5?9NuCTl};DY6odU*Fs
z=bt+(r*7ftq+vveyy%3tzzO&c$R`Pq<4v$ocdpGfMD7#LZ5U%43VQx+sjfIVa%e1B
z*dv2u5&qe&Rztb@X&}p7VPHK(^D~%GF*kMIk3D&?dhrISRhEq-9GF=(6cIJwEUp8y
zae$kGi@EDvpijkx_OnLzmG^7cJTkIJh9u*o$tG<C&Txs7rJ-M-*#!dZ0u#nBix!tH
zAGQ1I9e6VITR54eZ2_K@VaPi2ZZ{L&jEO`)hgE?_A_p6*|F<{WGYuyXqCH6P=X~qs
zmY{P0n`;G&tlaEzH`3CofC0_9r7<2ch$owC*@NPz<<^)^fD}0Z#F1HOne86A#836W
zba4P?!x|D0>dE|>{^x+lAr<qrY-NsN*^@R;=f=46^OAxrUax2nEd2R!JT)W9Lmw3r
z5-9t>wsW=e_x?u2Pe0L%K(L3R@U8r(lVuAQFW!m@(>>&6X=x2koWb!Qd5ZVxs+}r+
z`V^6K9pD(bf0{?G=;vN}#eiV=5_H)!mT0^pk@9>oKav0TY`q0x=_79tpuN9fJ756h
zO7@^ah#@U16ko>*`Z4?O!5$!uwTNs~!!g5;Q~aybcPKaP#Mq-h{yj<qSnx$bssL2J
zaGa?7KE=x=v!<WrY(R*U8ty4B{_yIfqTqEVKHeToar9~~kVvbtvQj&I1pE?q$2vvb
zygSp(Y^U%C707D9t&^$|d!$HeR)~0|H=i(=`jgd%pnd-3*OsnB5RYHi8u}GNgd$eT
zNJ12#j{FTbzy!bWIix%gw@Ge3;Z$6$t&b)XgF_HWqsZeI!VbK?IhJsU%Kv`rB?UQ^
zT5zyQZ%yzEIM^=T+dbc`&d0+MnKGrJ9<W`81L!?3N=qkto*ucgM<O46rehhQP`f8k
z5}UCaT2xO<TWU05DK9q=nYC$@y5A7cN%FF~&Lk$TbDR(lK?>20k6`5!iwe}-&6wyz
zK_wI^3znWbwgXXMhkm{XlK@Es0N$etBfdDXrKop_2mo|j4kX={ePzXzAwpYiofm8f
z-8kWC&@xDGJz+5AC+j`XJ-kT`GT}sywf9E8+*}n-j&~Y==sJa89J|97e5+Qi;ygaQ
zNCsz}ZTCr4+=5fK7VC_RCaiZK`JC1;00yDo5?93$@sZ+(^?f;Kg-;N*c&>v{iUgQh
zI9e|uZ20wus`3QBrdFJg8;~T!Bs3`gTTE~uq~mCuWT}9*0T&=@-_iNID6j4snoj*Q
z(jcDN$eC;SJEjrGXs6aa^i+7a&*i?m_A^j3ov>%<Naiw-bk2dB-S)AtpSfL3xte5%
zoPY?AoYDQm+Q^}c2HW<M;|g^<*j#!A&F`pK0y*S~As9B~ZEN-b(bpS}6tZl{sK$C;
z8u^rRGsg=?M}byU=laJz1eOb6PN=nIR~$1IakJr9_X~?hAS5Spv}Vd7Mu}T&4pX>C
z4e*!K<-&#lA!^gUAHoZdiOV)3Rs;fM`|k*{w?ppS?#cXLO@eBuVU>LcdW<eVJq)2J
zG`Yb0&wX&M;Yj$-o8jbiSUHR(eq@_5uYK~Nxt$=yb%I2jita6Er>{OAx-Fb!-<e$2
z|1)20KKl3Z%uap;nP;56j0e9GxXheyj56r~*p3sfSiF4p>|B+jOV%QIBcoGBvZ&gw
zmm^#7Y7GE%ursmmP?{_OwIDDG>?P!{#Tw}d)P>_Rj=H%$<h2ifDSPUX`>WwDWh93~
zJJdlj@;+7kf3k-i|F|SoIo3W6+JJL^#AmRpofA3CV*&m)_8ZA<N8Q-Zz4v8@5na%Z
zA?I#7IJZxDXbfHttYE$B8We7S;+;GDTIqQ6iS{U#|GKXcf2!aJ-w(&DMN`mT6C%Gj
z%;mcVe2uJbs9%iA<K1Vgp0I7N7_<lgX8-sZ1&d~|c11*T-eFi<V=Gy9U<G<1{H}8x
zT0_jKio^|nr2b&e#Is#X9bQMN@*E1{USsSZ9IFT|NSL1U9$!HdlRz$73u5*MHQ%>4
ztqIFIW+@`<qcb*khPXI+IUtMD5KEkxQq3$siu?&IrY7k5QE$h2!iz80DSV@q)#7HY
zSsrW5BcH%{@sPSCGAHQa&|%dB!9JVj^%2+jugejE&FoF??wPcY@aQr=cpTUY#DxZ!
z82uUkN3_To!9C=)5WmGbtNmH;Ud>R`i>hv&Aj8a^d-CRF=@o&)r5~@HTC=&npO1-o
z_eXZ@wsZ3Seli;^?~j@^Uo<k;dy%_CS7z?lGqXe1WuD#A+5PA3mNc8Q?^`NnF9@kw
zXuo-?#ofHiC-QF!j9V=;>nLm1rCqtZZk2>x>gb<yz-UUA+@5`NIe%IY`9wEFwIBG#
zQ3PSl<6dJ2&!nudV=WS#z*s548%s~F`M1-Ul^Xk5iW6~PN>HCumh&I~ns+~)pIKy~
z^8Iw!yfZyR!+Y9aH^im14~7(#e!uj5^jPaDNBv&x(AK+f?b<wEh3w7Q*ZicPWmI3g
z%@RpV8z*okY4hT1o7P=jec_ns)%30R$JxkEj2Cc~77f%6W$SkD{x&f5$!_g>-sijK
zF1vI$dN^rW<FZ2&B||x-KBbL^|9l{gK{jK*@ybG88jJ%KVJqa6TLBW&p#_v-x#K7v
zA$z@L;$;E5m0~Bg+H21dhvzR@CPFto@tu=?J`Whh>F9IjeGKA2m6)M3<Jz44VBVwd
zA7iIl)3s7T$o}yHynq*8AO|lH`NmIQK8`2IYz-Q^|NQA^Ksrl=5rp{~9i=VtGs=bs
z8nwJo-Fr*z%`{WO8tD#lKy&_Fal_caYPUO<UFLW7_{1~Mj8?MQo~;sliAM;lR(dYF
zsVFGP5ekR%`QRzjc4Xw~l<aBNTjdLNGMsGfBR0*7eA~7kNHVEIB|}bS%CY<c;u!7=
z#BPJR#6~oG;0a?p<Qh6WSU-#*9H^!7a)}ZP1HKg_NpAQx4?hZe&e5t~7E5n@I=2a=
zv@*e=1*j(SIx14*8<eI)5^TD?$}IG0o#xplIJ@x)?LqJJ?32mO1}s+P>CwcN@w0o>
z*zvrT=~}RIWx?tn6F0)*=e)UISe2vDD|aIU14PFVPZ<`gC1~W^lfZ^ehtmsS(%dGY
zY>5eL^c>%GqRoy$MoEa+NbS8{Bn4R7O4mm2$%0D>$vCt?LQjf~l`eO`ri*3<(xa+R
zYTzJ(XRj!uoAeg+2|TNXOO|ZJE!q5<<rksDM*<FQ(_|1!xs#Jz&fBUOU5B2Q&}VVW
znyahEs7MDc#S}>}(Q!}kvkKv7xj*|@gwSHYBx5tPd1!Fr47`*uy?MpPWN?-#aFB@B
zyT(j@8oVc$2PPX^DKOy+6<=N|;p1T~8YRTVV<t6p^g{FkU#?VGco`HYiy|6wPv5Wr
zr5B|u+tndPtT`<IoCrGbuT@OcbwQ?&bQEpfsZvs<W<o6OvsfhbDL8np=WAMBz!8Z|
zNG2aKh+*)cx5WN(&M~jLcZ4~7#pAUqh`%nO@+fk^`%XsFvBBi^@!WUL;_&-aJMg1U
z=8l_9&K)el8~ebFJRi)@(tiAgn=zKj4EPoWOKGJ;0Dy42TFs~s3)%@HYH|#ARB!C)
zr6DE6c|{Yj28DIxt{ca|hopu+H3RveZsu4&*PcM~vAVjt3dw$?21%TZ=c^}T<#su0
zt^*af4=_X}hwp_JA9S`^t6#YB5X21Q?St{QdQqr$GIkU~q?7I~u~+Qm`U)~}y0m!a
zXo&A_I>Z(?SOdmnMUEBc0#GTZPX>(w=U{?_T09z{xa#LhhNy+ftdF27PKg<O!B627
zz;}4Qw>7LVh48f!#s+f@ruBnlwlhj!SC`@S$l+nxC)krZEA7e0EvK9I<d~-pP6?2e
z%LoP^(`T{%dSn(iHaVZf&*&9TN27HjITnG5pQ;fJf<k-I@D3V_g_}|d8=JY$mpQ*x
zB<&nPSuaW39CNbzZMl*4+A(x}<};g2Q;W~v_uVmLOU}a5V-yANF>}5}4P*s5O?`YV
z<s&=$O6|$#dkYpt*SGIEPQX9E4^k9>3IWe*hL9QN01EY%SV_<&4o+*MPAM32lK&w+
zAe#OF=@gbS(U;(huqdzg!>(;MI-4J<j_`2MOI3>EVFl<Y#ggw6lXSaea#9d5I8eC>
z{{WiNyh7Um;}ZF|SbzEYHIr9-$rGiL`(x^&YD-E<4-U(Zxx@J&x<N(bdOV#vODW4r
z)t3b(J5t{3E{wWE=wtlN>)?^2X0KA2uxr+OPqLn}7Ms*BJx)LrY4BT_TsSX1y~3zy
zdo-fP-(LW($Bf@KWR_Bv6Zi>ruoPl;TFPcc-y$o`n8gnr{C@uG^-*dr`;LG>)MM%j
z614(lr9mi`_YK(9Ie=*e$4py)lWUp-zKmY_L@fJvpE53kevM_I<S?h>OMA`vzAQ%t
z<fc0>W--ML$tqh)lnm3`ubEb<z8;o(9LZs}{L~Q0OlpagdH>plyV~rPu#I8pKo&>J
z(JK%BjK%1+p>;?YYrw9do~xeptZUm*TmXX+x5NO>8vr;`AY8CEIB^n7g;U(H5j-9+
z)AaV7=41Ia-LJx<Wr;Ii5pqdk*@^a5^zYliQ;8OZ!ZA|wi1(E1t32G{cBx-g?iVZ=
z{!+w#1@caDK+dtF(`jv#%>%(!&84Gv7xg}rfZ~7<t`(SER!0+&wp%Fw81;G0qv@Dx
zI(6%Ke80eZ5Ei=N%e*}4Y5N~=QJ6zy3h?m4xRN)|vyRR<GuOVS%nb=<(32{H!;j^H
zv>w}{viBqWAyQFSpIR{~5?#gkfXZuXbRE)_w<Ga=+GXfY9!u%yAEZHP3io>c5td7#
z+p!<D6X<EwbI0c9#;1&+K4?jT(6<9!h?!vu&>8iSaDr)O$Vpgq2`o=nz$*%8qofb0
ztgfLYM`V8V-^roplRFGlKc5hF1it`-It<==D2XOGq(It^FaGWy#9lS*&RI0=ELqTD
zde>bYFPgH7pl6cub`|$lD5tA%-vHiBtC{#*O`?pDSP|J`>aQq=$UZ<P$zVL1L%|+`
zvK5xC4<qFwK_Vej5mL~@qvF#qq^|H)PDQKC@OLAEZ(|c;pD|)`VK4@#!O2)V!bEv5
zZ8q(A_b%X_ezC;XN4W4k-U=ESW<Sh0$>_=5MQfibp!F5%U)?b%51=wA7?q%1N#v@(
zd7)&8ymUJ{)fej9Gk*EN_ZUSnxt};8izWG)lO)c;n4!+ZK6GKcP%D{8UItc#EE}GY
z{>mmE+)u4{IiVntmduhpSWr4uG@8QNf`{3TDRk)jcVttR!B?#)2z0~>pHXOCw0$>P
zTn<Rqb5vqBgdx(=*tF`ZFIT_0tst8vC)C$4K1=%LgL$)5LxcK#_eltl1KRf_LV+DS
zd8%Cjjzm7T5J}r>V(};47a5ByIaZAp%S6&4fV*X0=!9AhVB3`3_0TRFqtja$lHq8&
zc-t*K++v}vH<CI~gto#}CjHMZJZlnuz_N7OQ&TyylULE@NWsB@W(uszuCA|ulwk{W
zJZB}sZ8FWE=}zRP7Oq^<ceOz=;D;5mw6htO{RLWG$QVg_+2S<-qESlBz!y2|mswb*
zu`S?_OQ0Q;8?iYKRlttIEvIATkx)S&1TzpUsz?C6XSX*yXPN=j0->I7*!e}!EIe-A
zqp70!luB!XQc^<^g-guu73lqu#sd?4gq)%??lFA}lJXHzD_%<ki=d>UF5a;envxb!
z5qqY@&IDnZY|+sBT!+JD3s8otTo()EIu*o2D%teX>?19$n~rdACm}r%Cc#gs#G=N4
zK{2uGiVz}^SRUyA_`_j%1hGzM&z@ZsA>$3+btjYU5!3olm-niugs+fT;&eDF#COGL
z&smAZxJNdk++4=rf5ht<7213@Vm!7PD0TMbGx3@gXrCTW0Rrd}P@$LjRH^xL-|!xJ
z_Z2gb+Ib-0p`8#v2N&osG4e{Q@oyLa6M5HK)w8KAR-7qAs}Ud4Mr`uxn5VBy_p4o*
zwSICf(JmJvAy_W72SIK&H%ZZ6KV8fBE}V)dnQmVP<BOHx?n4qYx<=*eX#W!U2-0S7
zj%@mMa957`90`Ow>3{6C5yhkvqCg@fYmXf4X78F#Oi2d3;UQ+ST9kqD1Kgq<C`U<$
zMICZr)RKa>x4u0Z$&}~MXM@m<q|%TVAH#7Zt6b6uT(S)HLL$n(&g|k`<Qz1P7VP&(
z>2002fl+l5XXvm<wnJnKCfVV(Ka7%B+w3BS%OlVT&^d@($Br?)$jn!(Ng{++{xioL
z>*euG4059Rsgdf3e$U@}Js1QJiWz4ut7;PrXAng#_0KOfMhQq0o3dIISSTKLDpphr
z@*VQB1p{~?$bO)zpS0Ffn~m4bx<8JR(#JIOhuColss$AGBp5hNpu-Kgn<gfu-|KS(
zI5n?)$s9+3njpK-1WGhlTh-H%<*5x1blC2nqJat^q8_;_PVL=UzfvKo(4ObE8C@yA
zh_LABbWjQO)$}V{J{06ZEYyW~)&%lg8Rl6dyP&2a$WatIv1raS!P7UXTwbJT^r&q=
zd=-OxOK_Rix_o`Z$UO*C>jPJpz**D_Xcn?@qE=xfK^45?F_r-&K+J~TkFTX5WRV=v
z3vsFD4qq-XT;j6hb6S8ioB!$9c+7%%thT2WZ9gK96nb|NC{)2D{Sm}F8f-!cQ@HbG
zGKIyZh9>CWZlxl~_Cz4qa7s}aUlwJwhr5!q#gt-YCA54kVdInZ>mZ6P>Q*1YI7Vtb
zB7m9fnR5vES0tR<kb->51d+oYY!ec*fW=_dpj)G42)+4MKoRD*m|dr_*0W*xPgj+3
z_xBlulb{To>f$(Wux|^`x99JE2Cf&hEL|A2*NTK0`wy%O4mr#bogL=Rr#<zkUa=9=
z&x+pbET+FR>Ld~lNI+f%Pr$OZpJ1=u`gk=a`L0s->2X69V~7QWqjCYWcrl2gU5kkz
zM-i18HV!Z_Qf|TYK^nQ%JLrpHqh7>f1Wg7OyD7*&n^Aqd0U4dfy*YYeu*!9EDFi!`
zYSK_rBm>!J6Ausu;AU+-sP{1Pl8AX*(@Go$PB}ypH-YA<GU5fH?H>xZ;_(qV#*63!
z_xgV{gprfJ9a`U8Fo<n`!JS;}<AB+gm)PXANexIC<v^K;hR+K{K?quj&4tqLq6`r>
z!H!dIsrTtH#KWd(Vr01V@+;~OIIvxTct9Er11!E~B#KN`3o;iOHgbds>NwXbF&o+C
z<J~*&GZP$ObiA52FYdEsi`KD-4mkBSfsk?IjgRJ~`t}-F;9iAinni+xinSUR5kG9b
z=c%f0gLt+QJu;|2y_0ctVf&c)_^6j4lKIVhRJBc`6Inp{>A7xj!^>eB*H=`6{VT&p
zXC!rFE672J*Ie`ORE==xtC}CL?tG2{^1_uX+uJg!(?V+t%KfZ+vbW|t1K-3{lJ5?~
zQ7MtHiRA|`xy!SuW)#1V0ESJ4K!6Xo1uKw-C2$9D;oOoZrkHl;HHK&VM7dJ0p<go_
zk#F5!P>b=0an*e|4y{6|y={8<F05HX$%EZ7WY3;GW1>0nVC^o#sSLi>W(bRq`-m<&
zj=KSo))=;9S;{x8k1P9f2pf1<>Y9hbm3;fQ!kUp%0dg%yIcB_R)8s5<Ml2?BmUvm$
zO^}+{a^kP3T!>CJe-afLY2G;c1b!}D25rfr_YF8DI5PObc|Xn25hF@DMq1DN`4*~P
z8Q`i|k9W?u%XFjcYJxP`#clft<8|^$><d<sVU^ucSZ>g4AViK0T{r;fo&XtUaA=E>
zmAo+DTmPR*$Vkbl&LGsc<8poF!678)p+gnB(hWCP<O5Mh9a5G=!`>*a!7sH5lV3Pc
zLnB#SfP;i&HlgI+Kr<P<dp@6X3T#QrK$&EO%!#>DinF2ut6_XgPFx8le;-R9{KFIt
zZ*LV7(E~fM2gDrRA77rX1!aq$!}<(AH`FLWE1wAu!UJiQ=KF`Pd1F+@2Zn^~t-d@e
zI;x;WgC{e-Wu{i|YfI^As31$4J@@SqvN5Vsm2{~ua?p-BhQ|VX1G3(rbQZ^blKc9q
zo<Ng98?WCl?2GE9dYHYB6tmqv>(cf_i)|y|NmAY}+MaI;bs7SV`OTe2M+=I@g6h9E
zbm_8XAWZMWvA+(~EOE?$ry-3dL&uDv0k!Sw3aQ_-JvHz0<rI<T2hU!-ICDwsl-c9q
z8IRRoyFX6(_I{^xGh~EuL-m`}T!T>$B1AD@DwLg_e@&ush0XLDxq#hhi3ZQHTU~p{
zkS~7%PGdS~ah@q7Bcj<OIg)#_uJp`NuNv41dx@SuQdY5QGbg}o5`;g)l#O}r4f+zQ
z`}8o^?soi?l1B1*CnX2SZOEFH;pLB6S=zvi_cmDsvV*qiFwa_6VPAfF>zu0{2Nk{|
z@>3RzM=93HIx=Azn1AGr3mSDbrrvLD9M=H)4Z9pP-4>rhP>I-b3a?uG$Lhfjg-D0B
zt_6$A#1M`#K|0hEbroV0QNqB~^acjt`ABGa<(<1jfC9?V4cgF~b1RF<YQ4Ddy;s|N
z<)-%-mh$9P%qn@%Dd6M0#n;z2NNDBJZwg2?f9lv785tc{*)S^dI8q0cyh*S*Dc@M8
zedy33a8qt{-AQ?~00%z)CmE9XzU3S0(1`lFJ1vFl$aV8okyW<(X4`|n1?NbN5=c%d
zah1g}oc)@K@zVByloo)KRM-&QpB&3_lwz6qlwK?xJ8D!xH>UcvB?#}zmV3H9O1-{!
z7kCI4WpIMmtSlxoavbMG11LYexe}5eG>r9f><$9Sk-74A-Y-zAle%&Q9|<U}Xz|wE
z5-G_Y&%SAsxcZqn=zudcqs#<~7Qb&V?XqCgL*~k5ZgyU%1X(R-M|ZM~Ts0?(DQbgk
zcHd#EJSHh1$|hki!jl<?ph=J|=+?8?R0<aE`;LW4{*bsTk=wTyFJ2tp8FTW$#gw3T
z7~0X&^*-}8T-0bbC%iJnO-V|@EciKp9xGc9kLi8B7g-fw$Ji!Vu$j|zNSv3p`&}3M
z<x~BNIEeJvc{WNHKmDsbgA5`!5y)Y}-Xy2hdm2+Ku6hSSDY0rR2Ii8^fXocw8+@bN
z2Q*hQX=j&jVEQU5?(IMfgN!9<(i}!V38qU&i&K4jhu!1uw1iay3aq%df87#H;XHy6
zLXDGFuK~E4I1Vs;eqj&W|Fi-ss0QB>``V(Rmzd_!8Wu=sJLWIHJ4)C>+~ce)Zl2rH
zA6HDezIoud=mKQ5+&=FaGBB)2dey#Gt6_1ow5Ti0m9#OE2epxe5=e-A>cION^E>;l
zBM?FvT<I8Mk+y{f#ewLXq@rL8NGmiRwQl0aL$+6**t|i-cLOuWKW7*3z<d((97mDV
zepa>th$hHhZ~6Au)>psx3FFQRL1si2>nScN1Vpg3kBHgb5FBP){0Yt6TGV$je#*kg
z4ayZi$a&i9)l(?vx-h=0(!2szi?HxFPzZ0mpo$2j3>V-Jn6;jh9;OK(=EvO*qYu9Q
zZQ_vcBXZKb4iZd&>9*plQ_LAazxC}C^ED%>b|*Z5MCWhszlPod0lbpQcBmkDeoN<S
zRh3zK@@G5e`jb=|5{)WvDH=-GM0USc(vN52%QtMM=ss5aPk(TpOI7>0jQmJG%1p^@
z2yzIV(uTmt2q~rJE@VgFvlpfqR&Y79=v_IXsh%TApG$)QmDBv5&z&8<y}QY77gOTO
zp+smM9&HhU6V8AHRCpGoF+nEwXSxQevXSl_aLymuQlnYgH~K;6ol%L~OfsnDb#BK|
z158garMv8B_Gp~_<IZvRO3V#3EY5xz*F-25c)~*I1z*D~vKb6k0e~)VGfK%uWFeX(
zX6R`=!O!H|Z|5l?W}&%Qg;E!?9{$ZUoF(WrV|NoWuRWdv(m5GZZ@zr#((?}ln6v!6
z<G5dX^evV9*92X_*M8IH0*@qfl&bwrWjX+JACENTsrv!h`=UT=vHZ^Rb;nbLatWYd
zl`W-uFLqS^V0Y~d&%5Ljw2JCw6I3!-IPxQJPjl`N_me*sUrtC~`Q!E~<k^B&^SIyg
zDswd@WC4NTrLTv319I<24j~fAVIice<xlntn}d!j&}|b2f*H8-VC=zObRM|C081Cw
zh0D5tgPqnlDT`nW0)P87_w}fA$#a@q;!#^k%L*Sx`k1}*0WXrqZAcG(-Uf6NvBZ{~
z+z}zyD9*xl2&<iRh_s7eB~6kM)CBRitQ>T$D9AhG=m2OjTVjkrGTdg~Im>B|hfD89
z8Ac}j;zhC}$DRy_umN5~*HCKH(m`1^>E(%Ui!hM`hylDMgFP=K?Tk!_KGMBS16G)c
z1N}cd)w)o}HUY^xG$moxs@ora+;{Ba7<aCq(dRlfw|J2vf_d%;BWeoR@o}srG;YuP
z%lS1%hnMSsWtOlZhRoh^)~Rfyn<=gS)?XOE3uMs@nX9KHL*u<awBc=O1EL;MuX}^9
z`rRC9+xWi&By8gH(c=h4;<X^^nH;40nPtfMbNfKT`hazje~n8~dCPru^D=HD;vw2!
zP#=%p+z*Mvi51ipE6e6q@hodn3?#kpdlg6x@M|JmKtVbXx$!PBePg)I=L+Rd!&d@E
zE5+ii{1o@yv7{Q=I0vPxkUKswE7su+Gx9dhsBv_vK6q9b&N9N5Vks@+;=I}s9}YGI
zp%mV5+z~`>Y##dB;lD44b^r}&x`D&HrnN`&NM94ud?62<Uhusbxk$rUtW=ud3Eg0T
zS_lvYGJ95WejDrW?>~3_7~+)rpITH-_rfo1HcTFgaMgv`;f_dg2|UF~MF0W#C|k9L
zdrOhDhZqzS?ML^iqG3g#r+{8qeS7$mhc*ZCZ}jUbwkr*ED4*n~25JY&U7YNuSc~QE
ze&+}i@nOLXKwfi-{tfqn4-AkSW58#4;<I353bw8+8%!cdGy>gbOJ}3TgGe7j7y3HL
zrAQ5A*yyc*!4yJYM=b{67S(|6(0dR$n#{$^pqak(zZW&$&;&gMA;HHpp<}n#26?;8
zPyZF(8E^6Bkt_3fCI)s3HNka?kdGCUgw4TaI%)lLaK@5iB)H;bnlT|BGnW)A8LG|<
zz8O^;<e<Im0NpP7B|MG$D7b&N9>HS%hyRTG|KGn#t^xGe{CI0p=h4aA1-OyaE2uom
z5JNyb5(D(MhA<WUvj2>SuDy)li4VvR394{Z&-3nbBz_6y|6NdCEah$HelyExC#JY5
zjanwf3}kYWzbVdu$Rw5MFV;pQgkIy7Sc7GO@^G%_bbgbbM=<?u1)wvuPgae*rJo5!
z*pkP=5-W)?Xxau8hojyYr3K6FrGj$;lSkgmanD&#KYOIGSWTV4id#w4LL)Fi7!jgu
zN~6=ba0dlJfTmSg&lk0M#036DOfK%^nK@Ob$ck0MDY2`-p{9&v1n1{h&YmU-2h4Xd
z2r3@*WeQvVK(Px!|JIeh1aM^S3896KDPa(BY)M^WXo89ySozg3`EA#bt|C!d4<2O&
zS(Aknn>4hdj@QRIN$L2fmHfgBku_)I?vb_texe&WZA~-Bpy5JlQI2r)A_k}owOd*@
zTY!HBuEI0qLNqcRb8Eg}?pSBjMv}oJ5elNr9p7M@+D{!bFbzqM&o!hV2PRyE_h46z
zG7urh;yt@}JD}-AK2VM>Mtt_F5aN^glWGcBD7-<?C8{5~N4wyqr-Pt!K3G8d)etnK
zj&SfHMwpZO9~{9neU^;P;a*-O5Km=<-xPc8;TTj-j_@`=I;@F2qtNNU;t~StAAw~4
z9V=La<|IeDWx5~$2y?#oN`{p7a8|c0UW5!m0dtKgfZ*5ggSq}eyCM_t?B&=%W-Nmm
zKe*<Bek03966?gd+A>uR{z7=HiEzAfU%3dU*;}j_PZ+LNIjuLN=)V5aHIl<}>RP1v
zA+gyM+A7Kir7TChRdXfWf|;D+RJ)~;|G$D;HU1r18y&Yu@cpr{;DHyx;~Y-wLWWFo
z=;TEsn%)BegJyrT%W)?<p$(yoDt$>x+&x@U0$gpYdl8Hq_%2KHzIke+`b+iF%dg}5
z+F8PBDX;gk;iIwCaM>}3vYDW;E^2xYOdu8Y$E@`p-e{kGc2m?8<i?F5h|gZwHPkG4
zJdH`M!rXNf_Oq$f;batnPmJ=?s7jfdtCsVXH&yirVnSNu61j}P?*74}!zzNS$mIel
zK4Di7)U-faTmw9cY*LHrGsw6SPxq+MWZ0toKPzCH@bK^hFGhD_De^Lg`=rgUw6u!}
zk4FI?KPPs&{j<5xwf3Vm6EJW$@13(!qi{u!-^|Rw`YDrM-qzQVKbzZLKVaw-pR#w$
zW{+4WkKa*GIa)3pBg>mc|KrMb;seggHhC2s=J{>8wHIIn%O<exzpY43Yj6MDMe&VP
zADk;~mu6{nUBIDAv5qabW#b-nvXLcJMIHxc8p@s4#@YHqLg?QzA_Y&Rm2>pRfyr?5
zVwa;(Y3YijSy`ysIpf+FPXtDU%IFl$E~Tk09E0|G641R>9=wO99nBt)X-<SigM$@p
z+;r(NaDv*U`H^u(aWdPdFf>P<tg}BBA832O8Nlc`TW%;!njzFAECvVywPoOvBy$uq
z|ASg)|I26Sgvzo>q9ag0$@~}rdF0Gl7~IuANSSA=<=2TUdo^3SHIR3;dToDGc=!N7
zJ++%LbR4sklppQ-g!z{^Y-w@|-*DTXe!ifOoJO_MDAla$LobLFK(ohNozR5dMk(aW
zuWGwbf~-LO7=nb-Qm;=0Wr>sUbN*zc63s6bW;nZjz|^5mSY4jveEvC`57-Q6^e@-(
z|EaX#Fuz1MqI$&nVS&^ptt$ezx)nc9^#_>>(5yCiL2)p%aeL_jfvBHwx8&ap1Wt_t
z&EEuE=pwQVK(;MN<;p4WH2#tqi;~1R2g>M;oT<Olc6=<fphf|V&C>x_rGQjO2$~l}
zsLklc+Du{7ZAb#&C3X~2bQD)U$M-8<(PHkQ85*US!0Xra1*QiO5Vk-qT7^UwyjkIc
zutVDfhxKZXRL4vPuTu^cv)79TWEK>)F-LIu#-*$P1v(kK5LRC*2AW9z!E$Iqh^7$?
zQ)IcZwF%5C`v(NX5kuv{u~DSr%4viuDh^msGb-~pAgoTl>dzA129{<S*ATNyJTns}
zu!El`G6DzWSu9R|hv*om>KkvM66Cz?FcQR>i;i@TIjQ+LOFMUoQyT|Rh~vO)8nx?$
z$|({bkbFKkH#?_Jpj7bFw=7Q^yH3crIOUyk%U~mTZ)^n*%P|XQYpjzNnkK??x%u9=
zv!j*D_^E>xG0R&G3GjhB_fvQUQI34qbOst<v*V87qSHhe|M`>r4EnJOXxJl7xCPz@
zd$JmkYHq+rHfUSpMj0gkP496AoKhUiU5{39;CuKTtPo-fxqZNjP6hBzOlHAkmYyyu
z4dQX;ee_O!-+*HmBBe4AvM0h^%nYZjt_hHWITt2xevQ6JKqV!`+Va+;l!Wb&u(%t0
z0gJ;u9g95rd?+eE@ak&pHHY6)dmewL1jB_hx?7JAWEGBKw}u=Q!3YDJKmx$L2x<>Q
zKLztmr9;t3X<I^=0d88%$?O*6Lx|wK>Ym9@{SnUhZn-gpWaFggi2qqAPBj>1!Y$aa
zoL#ydzd`LDwK)$R5{}g$DL%@Uj{Z?Irl*Kv-cc!r`3@kq8bw%V(Qto}b*cZiJ$M71
zDri$iZ>gJei%xeMqeO-PD3#HXnvaG6fbUf(XKU!TLE-7a8Q(LTfmH&mt<!5V$;J_B
zSj!O$A4Osrk`VS|F`0g#ZG$h^JXw(9@JhZ1TnE4=^Zgx!sY-DAQFn*NprRk`5V`0_
zKY`+)ViYO!8195%f(F7AhDbqS0l}*9Q@uBh)F&fRMeNfy@~dP50|RgFrV(Dpmx~V|
zz3ha);HmkbU;rfwsGRL1_$aoQ`d6&3`+JSFrx?IW2h9Y`wa=@NTnT1449C}j<8OFQ
z-uo`hZjOqa5X$syF2DH&thh1;#(`rt7l7d*oahh@_5)nmW=qUj(D~!T%A|ZW%(pOF
zwAEOV%Hn0(Q<|&OE)z=|Xj4ITRT)iHB~OfzsSSG4*1M<&rc+f2eWsABc}+1Gx3u3)
z+W<>Q{-ab<jORy=CUlab6LlP<k5~v=xOf~|@3SQq+o1p065E0{^YiuA^u~;KmR-c>
zrn=Z|^A|3(-Qh9?1QSZQz^t@J(}((4Xto4;-Uyfvg$4TkWnGX`%#t$sNlizHdQo1Y
z!~#QUoI|udNNk;OPjbZQ3NK&jotb8yxSA$%4?An|*$O^Dpg7aags${V^E8?W?#*;I
zO?tXZ`yeDoXeIqPsr?FHIU2JYl?$NpNk;tsVI})*3P?dIAjhK%1rq=3y+!q<s=*N^
zUP0w$?$^5BL_FE(tSd16qz+&HX>_dN?YRyI=^4)p5yHV9x3P9~YT(_Pn^a_ijuQ|~
zpl@I2*XN-{mTk|Rhb!APBJ-^toDMo_n&q8M;A4<zs?ago=QkUjjAgH$`z5>y9l95{
zdqr>5H*=6mJ!UN8LBg{c*$!A<aQNBcBK;4-ZzA+6O1BlzkwNSMpL|wHMat%dfSo{v
zO?;4px_;uJX!~4D*`_xNHBx0JTyMD}vTzF}z7Qr~j+C*=#>62GM5U=@%mAdyOA^tN
zjAf~7xTr;4*Lf|Q4Ncr76oLdb&(Es`2W=4>FvS);8~-UhS1GA_q<DLp&a2GYHjn{A
zJ^wMP0|!Dtj#u~P*M0LfH8thyiy#R(&ZO@it>l-a=+pBvwnYJp`KHe;db_NcLHVTj
z$k-JgJ6t2rI5hRjKINnHbmD7Rto?GxQH~7!D$WOz=j5yq0SOq~5y&vJ9OD#bUmzHR
z<yU4iS_#wrw($f7^kWf7m`)*;7hq6hvB_*2n0Ia#vr4=(8C=gtIo@3@Nd+HdEy)IR
z4O(^MQ})AAhDOTh&PbY$QU}2p24fpx9s`coPDu&jg@BdF?*dp_6lbfp=+vn<L8Ut-
zQWmgTF2he@(W2de+>ENmHGwsJu1IBJERWLRBYmB3P;q{Yjl>AmlWDy><!Q`G6($4j
z%B*a+*o{HTG=MNK;#-ysOqP~4y+?o$p6lR?njMQ=38X-PPA^^a)~Jp69L~Zasa<&x
zrD&^0w+$Q#BA4&o5ix}g)V&Nr(wD<OxPVdEPI*A}yJs$#8baw-A<T&YG8u*v#i$Qw
zFagM927J`Q6=-!D#d|<HoR4U+0ytM@N86VpcOE%3faD*w=CH1v0jh^t<X#nq%m0P3
z02?4Huf*KD?LNPrppr6-hATfqc9`UYGm9LOckRfCC;E*}4NNf>`*TwaA_E`hm0o}?
z9|Sf80J-as@4>7q1FvXMJTA7^=OIm%1AqqPSve^kfk9lw*(_oc7dP;;e;_ac6g6no
z$rfgG4av+wW3e{i=5Y+`+E`#o+HvdQ-xQ}Gl=9~njqAZmc^JV(H9?U^VeY4&X(mrj
z4xSiyAJhGo)<2Si3r`+~NYQ#?nezh3^3(TNF_Wg+bz(GbbEH!`SbsjB?!e23^w;li
zyT{SC1+pP9cckbyJk4y+X0c{1LqnTz>ja0<Ds$Iksw~KoMg(-h?CU5XGieMkGsdxq
z0DT{2FE!vHt&j$tsI$|P&iL|7?l%V<B7|fK$?gd4rorCW^`?hiQG(Kehbr;OI2Z1>
zKJ=fCj}^gWqx(v{2O3x#G_tZxAQ7z0@a<Yi7>)ES?zd-#h|srlSy+3t`Y)lOw&5@x
zwdoK`ptcXZ$mQj-{Kc@AK{Es358Ch6ZIGg%84{#8mr{zq=yAY&bc*^AjKwYgFle|w
zQz}uE8TtBG0uTe{gYYJp@&mnG;DAR&{^6dStZZlQhx>|@Krlay3nT*nS`Cm{*aS=A
zSo$J)c|q%urLWEXR}?bG$WzKifW!R|EP9d=`#>NZy%~`NE()=X@W?3f*xgyH)wJcG
zzkCThy8joi<fUUywK-Vbon#h|ZMp^04pO@qLJfty)JswegQ_XMgEzQgMg0Vp(mGm5
z$0usO{j_l=9HB0vkNfDtIJywOu+t)Cvu@$e8!{;Ifb&)WX(gX?qKjal0eRHpuUlL~
zV>|&bve<e$rg2Y4m?Jc%BUE->HUc#c1sox1ub(~#Cjik5&5=&GB3YJw7*yYB{q03X
zI?Cv(dw)7Q=HZ1Aj6Uq_Xiov?AMBx)!6}x{z}3Bz<Z=KYY5YMIC=f@m#wqOx%3oYG
zu!&$0?9Z!M#qXR|3@<HRjc7**iqlLQB#*{eGs=2c@H?Ez8_g;yAMR&{H^9aCNMSJS
z(W&~(-`^(w&6N8DvelJhSA9YrdjT9B!qga8G(aH+IuyEZ4oKvYu#i16(19&!3K;Mb
zS_#Xz`?f$6&|0NTJypU9%~_b!D{Rk)b@S)Xj0tcvya4G7xvF-m?%nCTkqs%qGUG3B
zqW$uLV3R)hJ-FW-888pipLV!1c^269<=_%#!((O;vK#?*F7raKqIVaNP$I3TXrMw;
zL8ZF^F0#-Z3;Zfz`MtG83PFSwtOxE$I?yGXK~6$wp;R4zq9M<fJ(AoEjiq~PwC5be
zr%~Tl#<)M7o+Igjio)s9Nk)hU8>A@5TI4v&vH{N~<+80ofBdA%hC>ZKXr=w%&Ac%4
zYvx`)mdzHlExZ8aG^ZE*IO92$dr!@0ikAhM=A2PgR?ab>(!1-w5+^E9zIwsTlPsY_
zjg;d4fIZ=qQK;fp$7N42T>6A+QXr8kQQ}@HJ<wVmB;prfzM08@KmPVv-BCVk&VFzW
zcZi&{p3nbOl_TaHgm?-{#~a=I(KvIB{4F!1^{rp(^lzy4{#kqW$-|NKXR=G9io_Lt
zu={Vv4=Y`Anj$JH#|DlZ4!_VSL9Ek_-ro5;4t{1v(I7RPH>B|cB+Ywy4>jq*Neza*
z*5}yEk7@9wFJSVT-T~ARRZum@?wDb}!1?ZJvv3$fH4DJU;>v52*EVA!S7Lw*{{9xl
z(P}kbVHFIHdvY*f+nese%eecHbQzS-XEN0eo$yCja3BxE7j83dSHT3n4q%XG-H{1P
z7*0ft@I%9m>SY>C33Y=k8y#nA)lrWa-EcAjgGh0d$5rkj10jtBJp`|Q{i>Nw?|Xdi
z-7nhu;f3iFjAKOqpDZnd^0DGtuq?cho5)_V*W3UYfFs9js75;){GK$7&S}Cs5%c?s
zl@?49s)Z(}LhJ)Ts=8NQm<_<I*%NwGOWz_b0{3yxj>e1!dLQ^n`xRuSI6h(3y_*Z&
zXT9SsB6CL5f{$Ztj^g22i{ajfcutj$2M1#(9F7{t%P-)!SzX20-*oHj1yV(w{~5`S
z?0(`ms3!oODL*~FD*v0_u-X46I1q6xG#-=lh>eFzG!4fREJJCOa%1#iBeWk^<pho2
z5C-phiaxJ1$g{)D%q+uF+XOxu*c<r4&;PKN$br^S=BFSp&&2ZtMVNH)*dR`EyAt5g
z3N;~cn<(h>M8@GkU<O0`=>Sy#7iE6wNlBk(uAxs0x~jEm-i!*r+^8YpDCCi6WKbof
zzP>o|Kllm#UNLabCJF{ppHL&8rQy&4kiP5v?I5tT*r8N>Gp4@WO@!8#D4rk?vza}e
zp!jB06Sd&iaBV^Rr=*s_;f9QogfYouSDmgm7-KsxbiBb{QF-ZkJB+7(J~l3V<v(Rp
z^`?tS80XJBGfs5%?Ew2-!Z(kaHcO;?3Oo^rD4XrSE9<Z?^Rrgj{lKah(atYAmT)e8
zjq2$2`N-@k{jn$ffaW17_9lQt`>GlNITL10BmQ!hzV1!j@Y+Am<kHgJ7=DtmqvY_<
zzn8mn_T;iruswz9<N&)INn%|$9Fhsl4vhyaP@ky<W)v-J!0<@V!kh}0Js+&m%j(!*
zj(Y!c(TG5qI#Qf-e%(g_@jyFbk5hoge>ml!nSP7r1Ocx?&m(p1#RUhxJE3+W*Fx~a
zVq6NK8gX{Mftz$bO}`2BW?42)zmCt-|85BF2j}s!`@X(trf4rioH6oh0_|_35Zov*
zE7ceS9fO(WJf3)Z7`t$6hj+6qXpwi?q?YaqNVmLm4Wmv#sDJ^b69GJ^JZ8_CbHsPY
z-y2{od~|3+Y<$4kvlVdaynr+xg>MT$Fw6wZ&G&4+W^_gExns_^x1glcsfDx<XH}ZI
z<di8>;=tbBN^|1}nBI=f$(v*eWI;xCb9y2-E5uujvRQJg+Cw|pv-kIIRDjGWo`X}x
z#FFs(tw<2iz#W<}=4Uegx=`_Fcl$9IM?PM&bZsPV)ci$@O1w(P#l{OvoVfMi!P_$A
zy$MmPZ?M46G(0HW=O(<w(1cMxlVjy#r2&E)g?hGDFB<$+EXDn%vNGd~^G)=z*)-b=
zq^m^dJ>Ut?oX?{Y&P?X94i_HFvlC{-^*r~7QS|N-J6ZIIr9MvJ_Tb@LpFZtGm8rFc
zuP5w@jl0GKA)(z0`lso-@sjumJ*GQ9#S8~Q>hnS+hEG;UTiZ{5+W3y;Yol%qCuW<c
z-F>?8AO2CJ*qhEDcCio~${Ww}vw8(ZO5%o?Fd5j*Ta24H@sEcd$eDF!IgS_a4G$e=
zmm_FZ-FCOtTEowJ76e`(%`@l75Q_#VLAQsVb~BfMJn)6oUT&ZKWMD5|QHp-?zE*fL
z&|pWIWNcdB;L)se763&&O6swSJ3N%Mo5MFw=211G&&pyMo5THV2Z#@0GNVR~>QxnI
zX}gl%7B?+iW^=}l58RhrxM0BxWd<V$-r}#<Pd!l-d{nRVcg3*QO0IQdg<l=ZGbP+_
zK94B(CgO!FEio~e+Dl-a5V)}Y&c4-OUtBZ+D;TLu3MMmrNeMyvL!cH0&}{?*u8Taj
z@jIu=vFq(q_$%QRXbdl~*qq%jr+v74$OJ8<H|T75NF3f#JjyThp;bp-(bJJXBtbNe
z9mC`RG^f)J`Qtc2K~vE1pir|Q4cmhU4>YAj=efWNQfz1fFU#-RKREonF)VwZdIH)y
z#J;Ope1Tkb0d;|SUe{ffzTE=;wp$Dg0&4Gp;Mju6pKi6jFgA9ADZzn2jiLr#ZT6>(
z-rAU$87$+;JsynY6;%)FBQ<)}1q28XZ!yL4&aDl_qt?!tjC6k2d4R+~s;z*68{^_k
z@A(`W#m`S;_Xy$#-i8Kp6$&~HP#Yy{wZLXUSmt)Yz^FLk@81NLFp0a7`4XGQ9@-OE
z7ff=A1E`2@9kYBZ>;^r7n89I6b?exsV}avYvPX-)?PYvjS-95HL!MyarkG`3g9}AG
ztR?Z_pS$L@0vx0+J554et*=kBf52weoPqmg0LuTlF@(LtvJL(e2n(Nb$JruqQ6ft4
zFv{0GwFf%B8EOnNofWuV6vfds7pEH00zf?zoywoRm>yV?Vq^O?MFrM{sY8)#Dk>`I
zgCY<R!UcJ{!UgxEp#hhLdGU5Q*uy*vc6fk4mwN=Je{dQKjR)RUkRvp4V$G_F8ZvCW
zGpE$%cg<~<aa51fkir>y1PuNtDKvJhyX=*{pz_)`@XAga3(moBX{RH3Mb#b!-d!nx
zxMiQaobWe6^F)?io45DRw)I2eqO3Dhn3DR{zc4?8{uBp~$D*M=_{Sn$RmjGr%^TS>
zQ8U4ZEN@#J3DMHKZh$=op$MXdAEmEj4lWZK557XL{9GnzJnPBnqHpcjdN2;?3ER3f
z4pJmMJQ}S^&lud@6Q@pH)>JSKJr4?nbU1h~N~m|(<;dady3rfhULIqmqT%lA@EWcK
zA6)<Rolssppsc`}DmoNdbhf2&H2!o#Ib`nKxnz5`RPa&GKWYp-4^e7*USut?wT#V<
zMTeYq2Y!Gg$EQ6A3e{E|NFRd1i43h9R#Hs8VWplmq-w3x<7CO2H(@}T5&c>!gg=ct
zESXc=_O9D1-;<3!;T~jNeOuds8+Lx&NB9R!i!x>-!ha`x!4Ih`AZ8b*Fj<mOa{CKD
zbghuSzr1KnH$9!oUOb%^dODRN-Rj<iSUx!;lHR~UcN#<=I>xAd@%>#^mh6Q~MMv*`
z1}#c^0-V<|jVl|hNi?_C1L8*f{dLe8Xr2sPRKfD+dn=?#@wHawN4oYL<UYTpObJu}
z<TE|MrA%oYWG19Q-+?AnRhq?CIGI(T)-gm3cus5j(}|9k?I=>f)XV^p@7rzftDCN`
z4UI=~tWkUB)D49lcjvJ&nmVEMpHBK1rt~os=wq0QTt8H4lSxFw(0EMi6M27Io2^F-
zpoz>a-(D9C_Qg4Wp!ni=V7Xh}+-}OC+3>t!2{?b}WOD4^JlvDnM|b-S-R(rW+h@-F
zqu!FXe_6-!bIWB=?Dvd+q^Ja19@%&Xi7S^=(Cgacfe8wDfZ;L#2VS`_`1r`PW!Ye#
z<&^%@#l6)G?F3iuy`K8yP^F^a*6mH?lu-6`)LLXW2tc0)eiwk$3swsms~k#sR}BI;
zXf8CYiAVza`X^=JAGQscoQa)X0u8gizE&jWX<LRnPi)f9nt|<>TFY7VCw1?yFGQ%L
zjyvm-bDn79kD14MMCAgmw#nW;2~}rnmiy82XEtIdKetP>So0RVj?v0M-(qck;jLMT
zksgqpR7058mOF@(j5HC&DzJ=#-(!mIs#PDl(H&a10qxV)dK9a#Lz-_`JzNtgb`|EL
zJ<hm+V{rrfJMg^M@?yi1gogn?DL8Yro}T@S3-cw5U$tY+PHk$(X*Dke&Q{(glNx<D
zkU#_r50YGa)UEkGy|>UfNJH(LguSbp-t<#tM|GPW1<uo22%N$A!)oi-ap%vUr``h!
z*91BXU~frE1o(6ykBY;SNCvA-bev#kw3_YE=zRbt|2-p3jQPTi$MWo=6LKEoH`^X4
z;J67BwqRwzI_F&Le)8E)#b<3@A1I6;y1ncyxavj6>F3XFM^Oi^v*h;MZaOr->(KA`
zW5<tsID6n!CEP7E9{mP#i#johcvGK1I>gEDH+!Cpj2?7r7i7>s+=1Qm`d1GUPp?*{
z+A!4gs_rN#W@<Xc=v!CL0zkxKP2Gq+O<EvXHa!)f1$QM^0!p}o(bl1z$T;VztKT)Y
zp=55K?pPug#tNVSNij(b2JjIFodo3`<Aj7t_P;`_qUxsgDsK0>6RpOcIfPZ*7s9n6
zJNBC`KX0A^B1fnUAO-f~dp$O}gDRIxHhae*gaUU7vyfW8_hTiZC56e&Y33vlMZ5GK
zc^c#1e_V1Btw0AP$K<Akaev9ro*5v|O$OteXt$&eT$$$d4n~%(-vUOWI35?RFB`_z
z7NYJ1%0OCF@$t2PJ>ZhkV#Oj>xL-rxNSgf~$|5Y?g>3TXqIo{-a!O-x?C){P!yLh`
z=884AzRvdtpmHM<X>N)QZy93)gJ%*APyydTojvB_B8%#VA;3>b=(fZ4drv8Lsux3T
z)m&R(D4!S10Yc{&dX&3Tw3jHl)~&$j-4I#{UCD>r?yGQo9*~Ve@NEwB87gIl;&2s>
z5k6tAHGw~ny2ESjUPCRE^UyOg#TUy$l@9!{%=?lR&l`kE0Djj_^DE(|8w>J}9_@(S
zD>NRRw-hS|mSZ3#%CKplsUO;x+kmMCTZxz+O34WI@u-DRVh0@t6`~|K23N-*6sCnK
z7<GJTW&yNCedz0Y{ist#DF{(4Xd^UT6h|rb^khCLWWk$0a%J>OIQC4HluU=BW<9dJ
z^B6Z~&4{gCzy4JXO{wy`c6Ks325K)^ih~cnQ);!j=)cd0&tz>b8H^H+Lu-|mAVTS%
zw=tlQ;_#1`^6k;V(<g}U_e{D_?Bg7OO&YLhAUBG-;OFMYR)wNmxsEjF%OP~8SyLC^
zAgUt6I&&VwS(6~=O=n=z^k7l1bJjbOY_Q8ge=nRHBRgMOS{t3qa2W_XO_BFL^H|Tr
z!;^k_4h=-Qqc$eA6fbw3Z)Bs{d_!*TA?p(YB^P$ET`kl7ecO}Aj}1bP9Xke8@Iu<X
zTOFAlMZ7o_a~3UG!n~<cNyQnn-Rel!#e0L@7UV!)G}wI^{dy;+S`*oc$jq5hX-BF>
z%Fyc0qG6W9a(F}56aCmCZu{`u@@Z$EG}tEA`}UV~y#>qPF6(Q4dtjhoo(n}1r;DDh
zZ=F^0_&v8^IhA@@;b-T4M8SjKFDNqGw$2r;gk&}{@r#Em+~H!nkt5(yjI5T2rs<aN
zx(=c#2KHNx7J9GlIbJJfrf-tEdi5$j53&`3QhV!jp*;nlVCrhY--tE!2%TCizsYme
z)ZTX;1l-#D19-$XaAQN`5f+m%90Y^IHlpTcrV0z6OB+A~dF5{@Mf~hqc{-O^+GD4P
zi>DyPTNg^hIS`A!rpDaJiGw>=AuJ>7RKfAku(HK>#_pQK4OkbnA+T}RaIMWvBjp}q
z+yV`a4>@3NwF01{ek1u<=gI6th;DU<^#!5&*O}|r;o$hl81M#pAfp6mY}P-8mz}3U
zSpkbBiy}Huv-iuCnxZ|hSi?6gR8lg<(To2bJ$f|7`06o)sDvf9Pv_xSw~#_z0kK4Y
z%zPkZC}%dKJcaO@mzQ_y^y$e2;Q;2MDT~(85T&xtFk}CI+$xa5NYEg%!1UPxDbVYU
zQ5@9_;x>~Fl-mC95$#Lx1IGJC^{vG3EY`PXY<dOD+p(x-T1a0FiHv7orvs{jd2nLJ
z+Ki!|Bp{enbmv^#9zA?WOiE%2N*(Du4;$=soB#?)Ky(q5Dr0qyo8~%iyP|%meBvJN
z5_tXZG0lBDmh42?6|8V(ERQlBTzjZe)?o%1oWzJ0|EsJkjcV%Lq7)ymw$;^TQLHUe
zwLxvHvj_@8t+h4UT4WR`p)zQhK|(AF+}2iY0R=9jjOs%$42f1onOYwOqa{$L*hEAK
zgMfe-20?_k509?()_VD;#w7RN?>pZ)d+)Q4Im(r(<zXKnO9R(M$T|7=g+)YI;Z(yu
zi0?N=0tKt5PenKy!+!e79GpP`b{RwiNewMaHz(*I{kFuL0S@-vG{whdqtu2@$k(*r
zl0_81gg+v=%DYo#wfLgHIBjy<f<3iNvY{;+lTe)nZ%5HOng8EenBO@+p&Np5kpJzl
zGjq;447h{{amq&-5MvTg(-N|=qEMQMy%C`rfOu|$>YUun+S}Vry&dWk4`{>uKDoBL
z@gG+Z`)ZG>?HGD;6NB>H#IRLcWzCl9SO5(4QWgMv3UI;TiW`rq;O8-WyFOx3fr8nz
z&N{f<z`dcWtvzuSPC1zWnUTRKo}DFHE$;*>;c=0J>%wn=dvFBI;{nkMo^|pJyzZN$
z%Cf<9uHc7-D>l!&Qw~UeEfV^T<s<Bu%+GXA;q=6dN8`Z(8B#wfna`bb37hNJ7c=Q5
zL0jbBSh@Ph$4H2X0#@iPK^{x4St$6B_B_TxjqNyWr#xL1!9pt?`s~E~Gnt#}nt@kQ
za}|0jMj=2E0q8RAP53*LVXMzG@2=sI5O>#Lo&C-2KrD$p$9`G0Y8C8!UxjG*#F=G2
zm!V#Q2sL4(M;&X8gq?gect!UTpJ(Tpxs^Xe>jJg*!h_Qq3y`{DAf54BehRQqIhx9|
z9g4*CdC*S5M9!dQdf~t8kzF8%H?(GQ4<8~N0hq=px^}vYC!3DmB%3mi``0hyKT$GI
z9s9tBN_I+cn7BjVPf0xJa6wzhxI2c0BH=qenD(}Iib;?KQF?&#GJzpw12CbWAy)-t
zhksQ+?j9-*zbIMa+v5RaV$6D=;ih7y0<HDiK!=mLYfZo(JcNA?kL(sIUieXP!YlST
zz=yM(f1!beA1MNIwo;l1iPMn+`-MCoGpt^2)wMSUAs*hwS%!sBJ8aaWeqVb1FE71F
zz!2wGO27H*m#cLO9ZvV@<NP5&X!Y~w&wu)DIf9@&!&$xhokfcl>5ZcwOySao>--e_
z#je6=*Q%NtaC{H^JWr^q7ortR=8}vNzb=p(p5>^}|1NQGz`RezQ12Qeqx<)9p$?@u
z*WYF%AaySa0n%cK11kcSQ13&N=~Ooa-A=zjCQ_FmuVl;5wSv;S$8RMv6ZXSGF*3F*
zawGj^SXyI~4|+zXmYqF9U(ZH>F_wgMYRw*vi0LBgAB5!eW@#nmWgsWC9Lv5vgb+eJ
z5QuPn9tm2-{PLu%8$GqjS&tq)GMRB*f8a<VH3nJ;1o@itcG(K@fVOhnp^0WpJslP=
z0Ids#iN;ot6xOLyOcezSNx@a@n8#p^;DpEGpL`yc^>Vj1NSw?fbB@9Rfbm4_n{9D5
z3_1L2Y!8G(qM*<rT#x<JROIVaB%~EVf+U2}ezdD$Du@+IA|N_h*bMFrni%+XDwHhE
zC{D@7&I73j>Hz9mMO=o={XI+|-UA$~5r|B5e^2$M2+cOm5SVSjscF=o5E#S$6G1vb
z5~^04)(!>wZ&4L=e1S4AAE_kL{NDmqQc7=uc_41q(+m=zJY^<s8zOfxV~HFReNK1`
zRj+aPnq6<-IeVf0$3w;wQ=g0oh*Lp%+U3tcezuTTjh&<3HU=k^MAiOJea(P7-DxyR
z>l7LcLuq!ZW=RLiCOzAoOEbK8J8xLqGpdJ4S;`6|6Y~9Xbh7>GXQb<cIgC|UC;%21
zS7m7XZ7q38n(+x)o+F-sXV)Mmkvb|<*Gcnia-vzb1G65dUy4I#ZfWksOlYj#O<e12
z*9T=mjjD-INSegfWp-Wp_G7p(@n&_Y=FaWgTdpeyd|sfA>>mw`NnTPP6hf=bb$O#)
z5@(#6V~B-~&GP<daZG^oM;aQhy+!Qpg^}W!gCXL>H*QC{;$f_oyLA6J7pg8bDG38D
zY1OEU0o~oK5*{09!q4w?e}Z<&-Di(<PGoKJJ=mSQQCClIa5NFCUhY!bIv7*9_cv&8
zS_^@SVdn~2A9=x;pz-c3w*eqBf$@HUg`v;Gn2HR<uU3UM0uo|ijNnCeB8EqT1qH7*
zV*!ApRY4IQPO5r!N09du9|z;@#X36O!*3regC)z;;<lKbfqljNNSho3`M@vK;iswj
zz%mvDSrmuracq*HK|{$<;}kz3H~6K!RKg&y=2=wqH^{FY+QZVsp7g3cb0<*jNm;Vc
zI@_xELXAz1O|5F|^(EYWEbW2PU&DUFY0BG??tqfM-@nDxb+<xC3uokL@h+qe4e8Qb
zmB%aMQ9i|am#WVS(9RGg-;B=B4|xi-&^VMLTRZ73&vRf5BbBL!Bk$tmlCv9R>L~=_
zvN7MYz&lPo(0l8xD*#mXvq(~+dP3Ecw7R8t=^3JsasqF>7F%tf+uc}y$9q6WXB&T?
zHKkj+x@K^?N~fewK^w|uGh7YxFe7a<JKK(vs`b13+}&Jwhf0pS@ft*oWmcJ9Oi~iJ
zS9p7eXI{_g{PnM!<jHDpwJJk>CFiKAmRUVv;xG0?d#}*D6rsK_B+W=WmFfEY(N5h9
z#x2V>JX!LXCK|~@0Est3LjTMvLGi)=++-<mPR!2xQ8!XLR3MQ3ARBkv{r4%)#GXWg
z##&uU7IoSB7r%Bnz@Qfm8#nW8WOpxq?E~beP7(i!jFY*wz4vGJKZERSJB@7z`6b7H
z_cZqX`Oq;XLTAT?tByFaVv4l6mr~e!vZ|7Ry^@R1PB~7sV@qI+)M;QJWJuHx!Myn0
zMVJ*1Rg&iDP|B+T%w*R`{HWQME0iF7L_tnhO7NC&R93Y|@5#SBB0_Xq$72BFM%DyF
zbihvM-slf6)Q5LP3dbE1D}JPZ%eX8l>O`RuWv*QK&_mnMTVciKgI6lka+sfTb>lP_
zGt{j$uYh>Ttch;x?|2hx%>)klXfenf!GXqV&YS1BPL!I{rM@>2zQDKZ(6g}F`T=S5
zD7kj>xFgN!7Q?tfXlf-^ym#yi)ih1cM*DL#2NiV9G4BJ!C-GQn+zns4@zy}4a3Bfm
zTc1Y->Q_o*!Q&M?>NH1$A8Z*!Zl$PTLP~2kmkN42-ciFkR?GO6_b?4hZW6C$2a1g&
z!iwJU@Ye=gx|zR~csy{BUP8zE(rYsyJ$V+0n{PBlY7-uemw6xIimU*m3d}yU5S-WD
zVSy?Snw@BPY=F525(}9`(+!u;$OHkJXdB!;CPY!V;$VtVJJ-(Qe!=;2k$pinX_t9L
zPA4ddi91LGAn+kbB{L}}!<G^YQHGJZ1^pdzb~1%Tf`mhGu3#>^V28?^xFFU?GByM2
zxnG*c%aKFVG!@8;4?sXJ9W8m@G11BZ(nt%Pbbkrw61+K>kIROez>3~6ZrklBdQ`Fr
z5A;P)39;_`bo4l)PWc7^71Z22-el(%&eLcdfcx3_jZT9-`~C<-z7QFhQ3({@O9_Xm
zzLxEX2{?h`I5g=42{NdFNl1Uq1{6%e0kFz?$|d<YF5uW-e=n}Hn);w{vh@SO1*{Pb
zD=t(&R+XV4<QxEdcv6_QDv0_=Ir-<z^tc(}vAEd~roa>A4A&-?%JHD(YHGwLnFoFm
zfh>R<;(m9I#)$I6hZ7++<DX|B5&-n_$7m4lMk-9cOlPJ7ti@m1Ava&Sa%G>gNRpv6
zRG?3KIv%GXw^DxfI!2lAM`6|sQm`q5rwuj_IWtI(K1hy)FZb>aMMk`jg}i4V+>bX~
z0%~YjN%)Q!WF|*8kc-3Txv{RLTi(jl0%qj<q5(T%&3fw6<v{A;&b=ODXS#gkh%G>9
ztTR7fCQ<2Rc!#<O#o6a!%h2pmt_rX`j9pDc7QXEoTui7WB8areR|0jkCyq?L^vEr4
zcOL@?C0!Xx*fscIq;TaE-O1=6s&sa7!Bk;)*q;I|flQY$aT{!F+;1q3Hh@!}_47rj
zrbWB;%hp;bpR<qyi+tNEvaLica6_7Q>VbXmj#+5%<!ZLA-{L-sRg#~gy9)z8Z17aF
z`Q^9Bp#ly2-yr9m7<_>m7^hwWOx38{acx_bC-B^uwApQ>5q5(dVqx6Th;Y>mmWnwy
z@4ZA&RK#_o=$h~{SYytTD89}_9YKi4uIG<_Fzt<*3mD&VN?XOq5UyczAXUBiJ(YVt
zeuXXv-wQ|fwQ}v^c`&I1ad3x0agSy8`uwL~3@-rlIQ!a%b(93!4g2yk_|ZvY-NoiW
zO$oU|EpV=LYt$Qn-s=&kvEx5X*H72CnS0E|5QETK#Hslw9`%zUKaES~a6dzR2rR*o
oeD-Id2Kt({lmEvVFVdNL^SOv?zvq>ND0&NT@4-*RAAf!NKZzsfnE(I)

diff --git a/articles/resistance_predict_files/figure-html/unnamed-chunk-5-2.png b/articles/resistance_predict_files/figure-html/unnamed-chunk-5-2.png
index 0ee0dab7e66591b9a4513177ad88241c2da30bb1..44d53b397b397f58961a1a15ee7a5da69a98e2bd 100644
GIT binary patch
literal 73766
zcmd?R2{e^|*fzRpE<>7>iUv(YDnpq|sZE(OWKJTpjG1YolGHAgS>`!po+?F|!%hfE
zW-`yycRl^}f4^^?_pGztwcd5UZ=GW;5%zwb=QrH<bzj$Y{~pN6oTFdMvX(?5(UZ@g
zQ6Q04gpx?ho~&MppH!{=s*NuzuS%aggRl6QmdJI*mo+!et6GsrJ3WX`8t;x_JrZdb
ziG1diqFrErv%U2urIy8E+2}Nn*Dvn#gzoxrKW6nqo|w@4w^wcsypt8SXV=g7Q};(V
z%5Akjb8dOa({M)bRJupuKM#7|rMbp*O77`dCSF~|<vy=huUVdYGbh)@^#gZqnk^;H
zI>))Nvd1be_jh8BlC!zec&2%?<yLo{)qidd|9GCgm-F{~w@+tCEKC2nvW~X;@6XlO
zyAcmZe0;l2;{E44(%UV|Lur=2&)7wxU;6g-3L1l@Z{4_7i!WRH-sIGO@vU!Z3(s_i
zKlJiaGBHWuH~F@{_a{jwEF$8Ai9kw9$}zg|8tb;Yg7>irZM|=AE%O(&iE|k5jog3H
z|HZ7(p+kr2&K{R%e1D0jRsD5qBDH6|%SwhF1}>S76a8y!EY^2gT3SAT{ygH_x6AXb
zi}Ttsp0(ZE+{1o1=W_D%E7xngI>&e}BgGt`tzOOJx-jQ<MPXV+LnE*;!!*7xDOaX8
z>S8Ukwv)Wx+e6>&gjs!jedFG|;k}x%=IgpBuR#0GmpN_j+j*@zFF4PS*N1VZ4mb@&
zy?OJdly~Wl4O;T-1^W`x#&GS{#scTuwQJYjj+5X^$uU*<pKh9^=GL-R<vC)ejc??b
z516Q0n9w@0+Wnx}yk!f=p+n@!=9?kY*<~GZ6LU)SDh>`g5vk%y)Uu>U)Gi&5qOgXv
z>+x^iC>noF_)_e(J#qFJ7VKjZFRfjEi<{@b$PvG?$UCbTjRqRiXUen}Ug6pM-mg0{
zcX4?G=};Cw#m6U7DPFl}xP(o`k6W`Y(_C9mPw!q%xA-UL(Fy^U<NA-d%A!nZ3)S)+
z(p4u{F|zK!1Qpt2fWQ3w=(&%4B!7%@_3BmHPL-PraeZZrj7Q`BG`9&=7Wrw~zH}Jt
z-c4pXdiAa_tE_Y3T9Wwv^=^{+de^SSNc(Zm^u{Nj)_nf@nB}kYY3JUaV{_ir`}3`&
zdWMO7$>W{l?cQSUIR^_5y-6v)J~P(SIc8I@8J&=D*j|`*oBQq}o?n*PEN_J0Ts#w}
zqV23i*~G?{JX$3tc7?S>a=B;D)t%bjT@exN&9+UZySXpUUp}d!%+uAjI32S1lzo1z
zR#tyK8)?1EYVmNXAfcQ5cW4Xz>id**bi!;08Y40H+`H!8XqNr5&6QAWoN?@l^eZ38
z>-0A^(GF=EFtg6=e`OnIw0Fgd6<8_(xI5h_n{17oiALj&aR-UZKdTM9C-zbEz3#nA
zDBSG1h3i-}^Wn>({HBcuIZ9`wnK&EwkM9z`_tVkX#Acs>fQq)$@ICgPq}<<>+8(+W
zRpYB}pVdq$?h0{D8feOtrbJzMsSq}qHn@$2nqRtD?65dLX<UB%+NbqoJqgvi=NWOh
zb!xb`D9h{LSKQyf9$}e&$eAS9_cd`J*;{yIb$%$#t_w_Vl0F>k)}GkGu#cTRMm^Ka
zVK9G^*X;WVtCqGRk95P@sFjCzuUAt_fBNCWneqOHOKdJvVZU?wxUE`lwmL`4icUxD
z_FT=&a_`<f8j(QtbR)f{9D{%<u2DvYW{Z-YyAQ7+ksU@pAE@YI+ACRSxQ)SM?+@o`
zG2i}?LDxm~BL!2hrd=lb8*;{Kq>an3ci5lc;E<9P9=^-o)BPn}xPLS0{U#cNy0S;x
zj?;4UC?~3IeqTfK@+@kL8G1h2QRe3n!z*s!^ZfaX+6NCFY<9UIz}~ojPlMRPFr(EB
zqwADJ_gY$UvBkNxuL-Jq$-UHgzseKskJkGgw40q6sI3raH7O{ZpJ*EYafeYYwZAdg
z!#ulVi<LufU99hO8dCLZECa2d?d?>o{?Yji)27pxSwe>mYa+;RP2EFWW(-$LFT4AA
zaiA%TPIR`KpXq^=l+>H6AJ>xg+7n7jN<6a8yftrXGA}fh5gV(P*nOBhuxZn#ZcGA?
z$H(sP*;a2u)Rki@?57?buav_kV<%($sTg)Hu63lhF3UsZ&94X9_?~p0n;H%sb)Fr_
z^yfGAM<9!-l@YqQX3d(J`9as@+26Uc+xbmmsCG44$tu_-Uv#}iqO|fIV$XVRdFbhR
z$;c=!=jLFN&|uyrtIqN-0<BJ$I=0$+i_XMMhx+)N4aD`$2(x-;KStPVo|}t{PdX+x
z>8fe{<t)`#r>io^|CrvxnTdgT{R)4?RWh^2ja!nBcf|T|s>EeworswixbZ{WDhT`j
zsNdqk>|o!!Rcwmbr#?@fgksP1R0<8&&5ZZ;3HuH&%+HP^#25_ycsJ8L=yLscChoE)
z%!5_I!NH+={8Opmwdk}e(Wb!4%E~03!qoXe+uRBrGrWWFzJ2=+Au<cu_QzQ7wC(pS
z@?bP>d}Bx~8_a%0U7aF5tMKLIf|)p(U}4pGJ!+KmbiAo^$}2BwWCC6+B`aJ1>FHjZ
z%9C9OckezG9c1f|Z6zqOI5#SY`<E*-{FJdZVa7z=);1$sgiAexSM12agE3>XpUTS8
zY}8BRlT25tGjhyUYH<7c9#(zj_&fXD^<ev`4I4JpWm{brL8_V=DLc}qp~cyly}4vN
zXO&n7b#jM%z3xTly6B|K%>~Zw<x+Z#Peu(*>e&`LVh1>1G%Y3y?pG=9ooN2n_)N*>
zWA8v*?>C>|;3WBQ$ym)?TdDKs<%ob+Ey36$wm2;tSvEb<WX`8ox@o-oi^N5LUU|%{
zJKeTdn2JVAQRnFnzlt80`5Dy$Cn39hE&6T8KG2O6my{SIT_KOAJ8AN1?w!q@Y;mkG
z{GGGHjprK4rL+8{?)hWv+ca~m*KkxRsc7nT_S8npdi5}}3LA|5Zf+{SM2)`~z+a5?
zV64&7lJDr1Rw)=?+%c^+m^UgDS+-5UEbyiN{LFYpLe+rns-Wb!!M6jp+lknQ`MIRK
zfLOa%L?pl1`CGEK*zqd7k5~9PZx#gCB-;iNhcO;YD=TA-3|VDm-!IX!A)%T1M5feJ
z)$}k5=QfQnZ!ORdF5}Kkct1BXyXe8@5;HPOgz04?jVVX+w33JG3m4KGJI<axyRE0E
zM^av1{%x05a%PR*%BBLRUN!9m1Ko5kV<bl=Ha6|{9Ct=GGwead+yr+6&vf}#Q>>`V
zi3Q%5qGhPr3CfujSNcv(5BARv778d_x)k4B87ASu^6}%xQ|19a19_q)+l4B{M3sZ~
z-kxr`J#UsMQ@?&-_SPy^o>Bel*8@TXGWxt5eM=UpiRzg~ledCOu5mWq)HRhIPvo>U
zRhb_A38W&~1Q4OQ@ZrJ6ioOkgWqOac9(~m~mhUirY-D8Qc1soCNtd~-?EV)oUT`Eo
zz1=o!M_Za>(Jon5s@n4W&?VZh<6q9Pt?;ROY<$hNDbrk_cA~HTNKD5v5(}dPf))0A
zy8WpBX#S$9qR;fNXR_9vFRvRR<nwXQ{&;sMr~8%X7_mWL?muwg9M%|BR&0KgQ&?YE
zSiQ<iy)xgP$3nlW-`!bdd_i4KE|mDD?ftz|M_k*By?Vc;gdaP8JpN*)RhP{8K$AdB
z%boy!Qw2OvI$jxCCcinp?@9C8b?cTjp1;^`k))NcR=7An7(eGiU&uOcJK*^x{9FK|
zW9&m@CEN=iLI#VUin{Vw=G=?ev;ZRvam@AG&GW)WD}|19x3t^7`Plf{s)^-JV@Ac5
z1hsS`BPXRW*HiXM*QH&ra`QN*{IOD3%k;4T#kniwhS8{UO1QIQzE(c+EhS>zkvusB
zEZ^tUlHYyaS1^f6C#x#keW?RN3Qd<J>Yk1F)%Sh3s!~!`R!;AUk_|~B?smjZm;i4^
zJ5FE4gR$@$$R(C41R+no4=eyM+5U0p5}#_OSy0r)0Q~~jwtLLh*mg~+Nyr^lB9j_c
z4j3s8F0S-Q4HC(b05!tHA2!m6J&bc~bifk-0}0H(yt=mqc^^TnY{0gxZ#*tER6Iby
zT)93;v%+cFO1hX4+orByM;RnlO2n^U*Yc-314>IvDP<j$`aU1v5qbHi3_ArQ=(qEC
z7cTS_K7aAza@RoO;7p)QG+ogXovkdQPFd5_fPEEJ^V-|CZBz1%1h8^w_YxQ@Vib$X
z%DRkHVV0?0;>}jym~M>qDsX%N3D@V@vyFB93-zw^eprol>BcIi-?QYSWrB|R<(s#P
z5}--HQN(e=0H~45ZN9iLzuD}h)7)^0&&!vwuU_r3&({JB>*(t0%N;DJC8iQFUnS?T
zQ16o<x}xg6-ohJ(8oUHrE}I6EpY8wLVc8RCRrw{yrq6oh7a1>3lbPbK9B5=7ESOEg
z2wf={{F)dbI@7%ukk^0Q5i`=;kQU9}Q{}o~HDD`6->a^jV4};XnroXF>^z}5>Wl^X
z#)!(1R*|K_t*5Wwi-0LmJBN57B`qCqd2pAja^^=l6Lkd6>}2nqLi#Sj7`mRxr-6Yc
z4g8AH+@{C366gbeP0g_}PSnUgcEuI2bh&W3VO21q)t7Ven!(K_c~`szI#lf!Qbu+#
z$@CkvYP-&-+k068fUPPw{wKiqU@UbR+BO1ye)MEkQRB|_{;Zs79#Z@@I3bSHRx?^k
zubveXoHI94mhL=jJIWG?X<>67dkW}i9OXRpZWW(?`Bp>{88VsdFpysVJSd3EyJW9-
zN%*o=4Bbdy$7;=6@)}aFH%>7=XwNk>DreYnB6Pc1);lLxKy+iEhKz)G?yfehRgV4p
zi=AA%t9PrHt|YyFpywRR#B@8`CJyz~r%#`F%nGJE*Jkce{@6Fp;-~Fm|CUP`x26;|
zX(wD<9VSsRw)foQ1m5O`>mjC5s4HX#_%i~pn1!WVI^S%z@ykxA2oP8mWM1S>UyN%R
z<#|=L4{ycl7N{S_(5t-sx|ktJF3z89F}4#9=BQ=d&R>2($e=ouqZV@>4$!0DxP?n?
zYpd&`bH#SmkE#7J66u>SY(K=!&0jF}b6vZ?anhP^$=5@iGumu(IU|k~F4or6#O=KO
zA<4PTGW*f<=bMf<BcgC}C7Zuo7%!WQt6IMUVWlX>ar?Tc1a3dhAN>8&+}RP0gFmP$
z+VtOKfpN7Wd-{z$({<`II)43H{@vD;FTP1%(_LvOQAkXzuym|Sc=Uq!3_xCNjkRt1
zXd|onoT~FeN>0Ug$tk*bI_G9xW_qG4#%3o6laFcY<}AdJu_?bqN;6xjD$yUUl`FXx
z-<YX$_nc##v}Q_t@bg7(R+p(Zj(Ur+?k{WW4`5#TAG3*R89F4_8`H7ye!Ae;>O8q3
zJ&|u%Z2u9pH!)gesgA23V^4)6Om~h5S$E6DhrOaJ3O4>Vg7QhH)1H9)N}?oj17LX4
z;<{C_CV9seRi-^pE{gl0DzwbTs<e4~Oct?KSCt6M#Y3DN9C1&I7fU4dMveErV0)sR
zl$<0+GTwXSNR`I9c;&>n3tg`AA^!eq12+w~x~Cxdx(yb_v5|6Z2iBg?G_Fq)H22iB
ziOJ|~ltic*9>{D}&bhES&sLt%kbVS3`jtv=Z|`Ialk%TGuZE*`I7Pj8rP0r4{3B04
zy}0@JtfQd`9*k^B7TJb|hWax=6Dt12Ng0>7+nTCNtPD*w2(Y2&__}Fm*dbq%h=pU9
zqAtYp25AoDWt0TutnHlBwFwY-G_*#%=}UpL?(e9mDCK~RqnfUYC4e5n*RLTeDMgvy
z*G=^q$jvxS4en3kOpiUV(0Ue+W;EBHFlSfA<~nDQ-ZMX`4XB=&8F_5MCamC{g3z*R
zt>pTwo~VFwy^`W$7FAW%bgjob>pykO4|}`vj?RyUEGF1&qalSAt=|!&jJtmup9iR_
z9^y3e!1stY>kVl|d-H<nsFU-H3$2TnfVhk`Zk|4UyZF&I-GWxc(R;k8M$=EumvSaA
zw^^s>%sYl`f*9Ca9d?Jk2hbE1eeBVyyK6Sa&2#S~;2+K4y0vRLE>0rW)dsSjxN+s}
zfN#2<%FeiC|Hk|5HiIpituC{P0JMQDegaq#ESVKa&cn&B^PE?*`RG+PGBZcVUW)#j
z_4|sds&;>d!IwQ&GYA?A#8{Lccb>7fasVz6wCPn$?@2WAO#iaJ>FfFgvw(Nqt%Zg5
z<%tiA+Nx1@l}{$;jYviIu>5?%Ts|C?bo=Du-Ae(P{z#*ooMk(#CV}}Gr!S}3WG@U|
z-|GImVAc$L1)0L@y5K~=l_#`xjNamVYN~U+azsXS&evx^vQ-ZsKThKJTCCoKxS=xG
zk{^F@(3SPm=g&`@1{mTFQ-@vkFQn;L^yUlamcKYE!Ks|U(^?4FYJ_3U_cJc}Q!w#F
zd+#`@FnElX#KJ&Sh)6W)mK~)mY>(4)idI?)a&d8Wcg%W=sW#kkK%sn9#v8kBr;u%(
zRh39IfJEa4l419_QglSb8LVsS)bO7wFUX>J8&NZvn3%jZZY^-u557{ooL>J?PE5?f
z$f&55&m)g*7ck?EF7rO8s%}f&E%e6V%W0tB+Doz`k(jg|EQ<KybMaL`dd3%Y>kEcl
zugJe{Z(Dh(<<B%sfKLgi&1`Wnmb0%!Vd^%?CnEg06kC8k#WYMIBxBp7-rzewl2wwm
zI;~NQJbd_&Bf{{$u9jv~veG{oCoRW0Sv9RVkX6vyV1BL2vfL!Gxr>1(zR+=qjn`db
z;WNT~ZvUC3r#Cyn96Rv2(qY4e*<r8k+&&`g`B7qes90!Q)Q8=KT3_^2jOL0CDe{}Q
zBs|!7z<&_IuE&i*KskQU{@dd2h<Cy!n@H7mii`C}U1|ky{!U0PToC+mJhLg0;EfjM
zrX7GS*~zZ+ecCqt-;P!U31yb*O^e-a2Y<uw$TdY<zd&QMsP&Q6yCiS{&&_#w^7cCJ
zYT%9W60rq&f+Q()Eey8%xkdySiBjqyOt+o?LT0N=Zc^6Ihb)fLbrC?N+lqL2Z~oSp
z?~!$l8(!1bvErHNH&&K~CS_IG8$~>{!3zV6zj||C$1_mR>6u0p-0rcsT2jD6w|Cd&
zjzv;P@7(X3h3hypFD4`%u{}m7fyL)qKKX9p1_o9E#cjp>9QdR-fFq@-%s8&Ek`kr?
z&HV-e?^b850$}Gqa3K10fHB73)G-VBeoZvL`KtJ)$-t9V>^>{9x$}nJ&umUwYpd-#
zRURzT)PL3qnWZ;2Iyf#x<DX?O{j@2V<yG)<t1d~!y5#wUxy4V0=fPEU@~bjcXEZ+D
zdyaPDejW%FUi*=2(!Qqk7<%ulsVTcMKSt7PMv+kYeT(Y^Lb|&R(v9o?5RY+6@#R%r
z6#>lEv&A8U51K@|{iKnsISwCIw6I9Q;_a}^F85nZR9g^x9Y5pe_|}c4^z&zel;cCn
zb+hd1>@@oQJ-fF)IYdE0;f>Suh}xisTyk>Wp-WK){ohj33t||3l`;o>7sCPr12wwz
z8Z<q6<5Kw*w86VlD>IF?pDz}aPA-po=qmes=5=bpw?rq^0A9ll)-AQNV$FdQgWHr|
z%6&iGD%YehAk?VOb2~8;tWRj7-(W+dTuGk)<3G^p&rotUO@4lMARPq-xn`)XsKZ(i
zrMFmavKV_$>*7KtGNuk$uU>t$vm)L?o3GBIEN)_8W9&fe?q0HKlWdH8#7VHI<vq_1
z$ht?+DOqG|^fqNC+XovoWhDA?sp~fsr1lBVf&B}peMgtRjAS4TLZ`B(re+L;kN@Cc
zR{LWq*M9yFXSG4@x-;yIBS;N!rU?IP=|(=kff7bNz9EWQ15fpJ_-Qlbj!!#*cXgO(
zxLz^oJUc-Jr!<boJ|rfl&FXy)s9LgNnWWxUcT<rtBZURWD$oZes)c%}en!d?dwg}+
z;$5z&As#CiB&4s&==}BTMJ=CK%FeY<^GxY?i;0QFSi9>ie-kuv>qoI&dD_g}Mj6wB
zl-Z#o#)=*gIJLeuydTCv3J6)(UKAixfSjW?b1E<2e8D`X-B)Qq{o(hCO)~Yd^kFDy
zJI7FPNnECgyXz2Wu?BqI0kWlF5V#8O+rORGOD(h;soOBKl0tQeLIrDiUFU%80hz$+
z#f8B|<@4<~PS6%N%ytHt({c;n0cm$QN)YumqOcc+@XeKXw3|0??zzXT#nZKj-I@A^
z`LsmRV0yjQ@o0=J1Ca$lDdkrJND=f6pvQafClVeEs;R#lEl=#AVSG#Q8GY#q?g<iJ
zFEwZ1x7}F&J#~Bk)&gLJ43pf1xFfb!CwBCH&rX|mL8)=7W7Hv^CiB7U<RhcQd+eK7
zZV#3?T`Uzl9y&MB<~97{`uOyLz(yzCuEplMu~0tFuR0~;B?Zp2)*m;koag9!kZnKO
z89Mmd@P8etwi@Xpe9;m|4=XC^R|O~DY_TtKD!lsf;aWx!(*)bW7E_toRZ}!1FE%6@
zX=HT$%0R;cS1_8K11EbHc|4KA1kN`&f$ARnrt959k>)-s)|8@qE?iCfb$iClU@nq8
z^_w)efPg^gO<9RPY`c^BSKi%r;NpC46O)o+tgYcP-O)MbIGE3@7>t@!J;Q~wPuhNb
z=k{!2?a(t6Uv5nn#o!UfyX$NN2i&)OZqm<0j1-EoUg)|D)U4Rpmyoh^wEx87w}wtv
zPJ*A}Qr}O`0V!?dJb6ktYvEI6rLs4x2zc@5fq@A`3UpZg!2N`oYC}O$ipYvfD(?pb
zsb&i_212fmb;Vd)1pPZYzfo3LK7LiRdkxk<ZE;Q1DqhlEX4>kQOrng>57p%M({diC
zt~DffiIoF5QL5<YW^Uv_zUb{g`Lq1L`aOSsO=gv2Zj7sJ@0H@;P9V!~t0id?2*GLw
z+xw=tY<Qy)9R}gGvG#YAmYrkRs@m;SDUp$pe4;zz_!AP2C^R=-er;AbZ)@d%jB{$<
zEf{p<$!3)Qp=_tWR%03TXV?y??L2WKw2{|c#{l=yIlGG0F0{tlYv9H8lIfCO{zdg)
z+h<iNl3pyE6@!bd=jB0d5X>Vu7;J||Ojb~_jp_Y%U!MUXjmAr+eNtJP(T$0YlfOI1
zR<Su<nGR`7_X!HxIdtwUmLVS&_IlqKTa--Ot#Sa7A3k`nM#qpuN<T|t8Q;Rj#>Ugq
zL=4{U8$?|_`t@ypzezLp>nXAI+?<@!-eL=O_o}3&q!96cg}PkZgiX|Zvz4#4zGLD>
ze0_a^v!m4v27)n;ZsF9x^k|n#fGrS)@5)tuKVNxruRUmmo3H_gD#%s#Sa4HPe<QPs
zmVM;(wdwcoPkZe+dF;n6{RI@;5{x1d8xP3T>8#_puIK!;_iOQOYP2j{WJJV^LC7^4
z19soc^M>6Uq~+JrIq~un0Z0e$O3f%yP19eonb*XmL>O$Ba^`gFD<a2tTI0HRN^37C
ziJ?5U8K<fc0ErR-c5nsV3Z?DzHs4d@oIRu+<4iTzWcDfM2H7?mc2;je`4v&*HPxto
z>eQ`>)KycF(a|3LVfi*~twjr9n^x<PNhBL4(d#>SjdV*M^DW-v=H~vIXFp2YDYSzj
z@p8)hyiWw-qLyivh|;qU6yWNqr#~#St%rV`!mm%G7_NJHJvf$#H8ta+v;ApO7cWv@
z>lD2)YZjbG^ta4yrj*iN1B+1uMueL0c(bFkQ;K8Vi%BpZGEIgZGjrx;jtkRW>DQ}*
z-I_`{j+=brv2p-4$|B~Hhno7z$~Dr`(gei;X4Vk-)TU9A^W=`lZt6O~pszrPN)w78
zquAW~*ZBx_GXOj3*FJ9`CcV>TT-$f2&A}Zgkgn?L@?EdoF*>hqo*xNL^McUL-@JaR
zYHD%Kxi|YjyvJ2nCVu0N@AXv7<lmA23eYWuTWn!UHwaN_1}Upt>nbvg*xb+^)D_{m
zzjMkiG@%-&NBKyx{I;8tnYg>ZF<lzy_NzPn_VV4a;Pnd@7aW`IyMl;kd1?FW(^FI&
z5|L$w|1rBPs6ZLgt3hK20RW!rFs7?#!(|YusS^WD`+Qc^%zJ!^Npu%9Q>7LZMT$@}
zlI}Ly7)cDV{l1Fl-pyHpaU4f>l;Uu7sX+9hb;$Bqw#e^NL@#jnH9N^o@F+<P%EM9i
zZInmcnmKhGgTUa|J1<_izzev-8PNc(jA`RW-KcdFRG^!+WgOhxN#mC6+c;H{65h;#
zQ9E9npk3H9F^+_@ZFqQibIm#My+@B8mAr7_(H8(CH(|5PrYt0|J6e;=7=^C{x-Lw2
z&Jt2pP3l-*ebt3DY-Xw2=k;+)oX4wDbW7qc=0eX<8_Yx|lk(Hk+ZpFM^X6$>o!;Vh
zcahompg}U5ZPlyG2#8DD;+Wqe<)?mWcI3K}bFB3CcvDq2$Nm&GpER4kuaYt{GCpN#
zxm;h}sZGA%e4;K&Nu?$PivA&!Z!O;BM}<|?W4$uHuo47ecuY)8vE}9F%07p@l)gFL
zt)Ez%#{YT&z6SqGEMK>oT|nihTN%J-tSnb{{86#Rd<xQ%+n7vrt;WrZ$*dv{irJ>N
ztj`inTH9)Zjnq~8zb7?jgdl?i^qhOVLsi$oyJVwW#{2j0Sw@$)W70d1VGuOCI-VbC
z#Xh)GnQPjVv36GU+k`UJxXhPp^H<#xzSJs2_X<62%g_6Kxwn(5dAe!n%Y^5KiV!F%
zrDm<#SvPd<@qz)Y12@cPH}oUaPsm}+AkE`ZA;ci$1C^O}w#BV=mi_|fNf;e!_RU~w
zpQpDsLE3US{T_Ev!g9x;uN6@MgCIILB%x{7c8@Q~6)W0b#L+f<E1T($x3?OhxV^n>
zXM>qpd(*am9rSEMw*t^hvQRb8ANOU&1ccV_JRILEt=V|lG#_)XmS<-nr>n_;B7&%l
zWrPOaI3%Wpof*k!=m3cMiUM4ZLGO~!sXHqT!7g-;Zj7tF{Mg<$*fl};+?;PjbaX(i
zK#QGj^)yS-__=AF!-OjK+h2>iGjl-rPqzGL?f2Ql5z)wWVxk2c;T>U*sJznRL57Tc
zrSW4dcEZMsE%RX2t?wjlCtdOCmSZM84F?8rKv^*6S2%Z;GS(%wsETqn`RC7{v^B(@
zQ!8-FW?&Od076qC7Om*~*rlDqc5+zZf{<D2!p||HloltL;fd3btg7m3BBha$5~=Yj
zeW2B9zb2~N{CG=4NVryAmA%cmnJXDt6XKI{q`rI^j~`J^Hm?pnC20BUz7{B<L@?>v
zF4KBmx)(B0y%HjG3z#=9jVw7rJ%s*9eRX!7CQwOEZ(O`}lWArwW^%kyIX=jFqG6^#
zt!iw%Ub_!L=}Tut00G`NZ`u?Cwuev%2&K_DIX|P=`T9Ro=ZVT0DdOT}t7{=bYB(S^
z$KJgX*u^>hsb#zn-{{#yHKIdYa!eT|)8Y#1BE6_zv07~qJq$WZebiE}-XkhhDE#~O
z?~g->CMp*~$9cSLn+%cvYY@4JIIos^?Ew_xNJh~q@slS{5(W$FW}A9La0s2>D&H9$
zMn0<&Qx4wi!s*25Yz7j(64^qn!|PWcqmZ|{a>n2dL)r91&Nc;EmKvgt$5WFjTevl1
z)@<B=H|tE>M;^LSdkJU?g)iIGNxN!JJaS){-GI$|S_3P;G0P&H-Ei`EGYw-KZNKHz
zkj^}6&u8oxU+|oQq{e9RfTY+3ut}{9650$_`1|+oYj;}9r2`Lq+p%{6tavqsblcAj
zG^F0!yHCJ3<HnP!U%_JK&|Mt{9o_B96zg{l4UGf>{e6gBbEKfH1rl30k_q33NE%Yz
z=0C=pU60B`#IzL}UgW0ltXUym1db<QddJJ*_7b>3ct7l0%Lo>|7FsqtIXQoVrRWHa
z_}0CD+&g!l;#MxZ>wFrp-S~v&{RartD98vJ`*GXjIM`#5{m7IV5T4*#ply@fW_~=}
z{Kwz39jF2?^T^q%Q`B~&J3hH!t<6yqX-gPD<3At&i(BXh97uO_)-V0a?UMxKe~V@4
zztxSjN3d>%csHy)rENFv=4=%YIuRrTe@Sxv_TE>d@y;73Hf>g#XyqAadHP-@IbSQ8
zu4uK5g`0!t!-vO`gJSFNZz||xOcGgt2vLqbDV9k!Q0DsiWRX|leXNrEN%S2Z9Twt}
z-;A&b0j7LHLfD9R-Li3GIMNcC0&+5@{{HF$haf+{1DQ=bVXYbW1$ak{CBM?zdzJmb
zfwCTJ4%8HNXK8vX+HM@&x9=?F*Rb6`uhP7HIfg=^JbAvGk1xH_e%tN8F0B9UuCD*q
zDf+K@(OyYtk~p!7zkk<oMhOqt?;$$<Ya^7UIOIjb1GS;<7{uswlZIo?;PwSAe%=K;
z8i8o0OaN?5WQV;7t2gSgI6#iL*RSRB9VfqvOnxWkOzEWy;!JN%r01W^l(A-Mai8A(
zinba!ukMXu?VtR2r!)jW5`5drh^kMY<Rm5Cm6J4L3AN9{!os(Mk4^$fPT9q!0B;(3
z_wI7km$JIWkG|Yqu?~(kMI8}O<|ALRoB3?}zlHwCW%j*t|8YYwh)|RGT;}YES3TQ*
zajl@amR2xKaqP+U@sP565n<#ZhIdv5#RJ<JgL|E6YF*GbYyo*K38B!TJIsTq62Uil
zvG7SjR!3AN-x~wvQ2XkvCo01%sXMhx&sP27j3Q~~r{|HcpslT`N-8~skp-1-wY^Hh
z<=qgfM4e~4f9DP=J2~a;VDJE^5(#$!RxY7P3p$L&=-J;KXxv9Os!s}<R)x<GX+Ie-
znrBy{&Q|}ER#C+N;b@@hXD(e*{5&q1lZ5hSq@!#f8H!UpkJ!<p@&x#2Hw23D?Wh2c
zthmK`qCQnmTJQSxRZbZ;eag@Rjo#l~1KQz~`Szvvy1SOfz(+**H5gz@9Ri|M?N~2W
zn)1f9iN9<FeEDgLqM91ZkUePFld=>bRX*ddhvBL?g931kQNYr>?5f+-yZf$9N8f`$
ze}9hXT2(`TWMgRxhWEN^OOj@8FI1ARF!EW0sz1-MPI9m*Qx*g&e{BWg^p`JRpw-%$
z3S3lZkl5<!=@}nrzIA1O9MeQh(f#EeeMb>r-l}--WLRax!sOxLbzZ_*lKqE2%hQA3
zlVjJ2OJjjPkI-KB(T9Bg{1f(U4Q|M<$G>TW<PkO<LF?{NtlYCzqO%F8J;oc2lL-?|
z=66d^c0&|%05L&PGC^uOF^{hdH0P?^{BCj1XSBAqwnx?Lb*Hr;vJ_kIRg&*RZ|`WW
zy{~xj_;qJVhtK6pMnIBWW5Yy}K6~!mrDP^~e_q2^SY?Ql>5?S1LWWyR%*-l!EQ>7_
zkX4+tL-H6rB#!HsR})LfsP5oqX6AS>-2TU}KZc`;18Wn@A|AUiXX+=cgB}b!Yu?{m
zm+m-ehP-0%>B(*uo-5*)7iO2D$F5W+H{}MgtCaGTK+g7IyYilx7;TTrBw4N4eww>`
zB_CDaXWGm0OC8R{$EeTXm(x;E9kK_v$#T*%0{0n#id<ym(_Vsq2H~OJG1LC@r*(^c
zm(ocw_|METb4#bibuj`U^76FIV?1f=0*cyr79++S^6QMxEZ5GTuoFH;x3}&if^Uzt
ze~=jBE)nn-Ta(03jD9qtD+)!FK6CDz$5>-geNyl9`uCQ1xmpvg0L){LU4&8?ks376
z8lEj`A8!Teo7k>!#VCX5+($;KBoFz6*KX*_$sG&`M+(Fv^*5l}NX%R*oK>w2Ic{vG
zFIgo!slCLT6Imd}lE&*IJU3XdadUHXa?C4YGGDydI-2*>GW*{|Qo`19fA#0jpF5kq
z@emK;D>xY><HEdW56pj7-{`$dB=RNC3{m?~F&GKGYdrKPcZ3_sY?yXh6@}7VX}aoL
zmDu88GND=N*~gD!=f}bM0h7d&h}1isSnJl{cvjM75;7=RL0@0Lx@^ff?B*^`Qd7X=
zRjiuZDQF#2!wd6@ANzb8qwDL#=1Sn%67kj=;464N`fp@wP&h<4y%!idvDm#d=LROL
z#p4sU&jKbLBoj#g-ZT-Mz|yk!z)*)b(L*BT(=Ddcw5s4Ekmz*wkx!bU)f$&CA0!(A
zD0%(Iy__M<FiW`8J%z#ry?X4cy7^0y$7yM4<1oyW4%o(@^JX=o#`#3rmpOv?1)pwB
zXtPegtp#mB6BxrgNOQ-_72aM-1S;9g$|i=TU|@S=E7RDwPN<*FF0%ujj;O3x8qc#W
z2p}YnV~w9)I8r#L0Mq2P$TBkoJ&=j9Q&Uq?UG)c&s}P@g;YJc!m}>W#@Ff%zJ`i!u
zu8Z?{vP&{Dk6G=1F%cF_m^aU-mnBsq3&2*|7s$4HAM5G+=YKA)e~&Bo^6j~utOb^T
z<Td}9<%=Hc6_S|_*{$Ba=fR@H>Si;6aTca`D#@cGBkxCc-~F=1H(WlZ_mta0h{|TG
zLR3-dH`-2vgug&o5pe-(?4<)l?J++)$+-He`pbHisBOpfyC(}5^SKM>Mx<)rK$gHm
zr4l%qFwjVm$zOKf{2m4umyzFJQ+U{Vc_<kIV{Vcs!dLO`StAn4^q`vt(TvgH%pM2v
zy_D)@L`ZWKKfdxm1&sgw_VWLYK;%C+#d{K!VptcV?&goKOsloQv_E{@dBc4OKdLaq
zq~1%`nyokA6^NK%<&R9zcH_ja8z-_R#Lo<g$sh<HavE>!v3A!Bvi%2LujWdwm;P(I
zck6h6<QhX6oH?)?xf5`ffROFOF|S|q5D=0}P*4qy!ly(ESz16H9iQ8W@8+Bk&qv+G
zfxJOMB-sk-3RFO8S=l-pc{c~p^G072Ub5pa<&v40oW^s2ia_|W>k$_BpwSI(?%&M>
zXbkT1CD(HjIQA-_vup0Ie^9dsD<iVnyTz3X#N+8~Jw|tD=F$Bht`{#N!>pb(HY(O!
z+E@QC_8t76u`rl+_R{k12cHe#rIx1e1>+sIy3M;4%m=x+E`l!fg9V!3)yymjd|MRg
z21V#La-cY^VHE0x$>4cyPXe!ZN&6Qt1?eEj37C6xuq6jTvo1k3jic6k+i^*_J_)n1
z@}TM8{*K)BZVUIyI%<A>eg?jC+t4&%4B<{1|J|&<asLH5Ma7Pw;^W7U^I7~n1Mkjg
z+M`Ew@JA7ay2J16u1(C$%uh;q=m<aG^z^hppRq6WW?u6aVJ}>6-Il|0kR0!gAJ)pd
zOjysprRZ{fGg_MC*NhT3=6-@kRMyvzk^zB|4=~^Wq@M0HZCMd4q7HWlL3E6R%Te|h
zIC6vlxbVYKK^Ba|BYaRqL=)tP5~6eZ%|WgC0dv>*CxZdz1@geytPb6~_Z>LEiDe!x
z>7{@K3>UA$?s-swQ1JJ7Z5K$Y`SCaO@a|t8s>E+y466Ac*#Qxs3W)%@5(%fL{CHIz
z$oV56q+sicfBpLP=>;fopRko=Lqv06#s+F4ehVhT5N<z0V92qFf6OYv^28jh6D0zs
z=$9cMi;LqRAL`pX0m_!YJWd7c59Y3__um!oyO+de_=jMJ)9)a1@%uSA@HK54^e7Pk
zbce45>ue=>BX+}YuXTJn^A~3N_L0Hgta;)0?AhMf!`=PK$jzmdl?+oRK-;C|<#j;m
zMms$JcKEO?qpjxXqv0aMW3KFDhzz-x+z2Y=ULGiHN(2D0vVSH}8YKce;R>e~a6)7S
z!uitG(9qB+Oa@5{SA7~U`VG={EX`r{Hzqe<)DMTruq(zLt3XO)Clj`=w_OEV<*~7`
z7!IFK)8?G?2yI8TS?hsDC5knOtI@QY8U^$;$YM<R!~(=z3tokX^Epiog=VZ;dTW+D
z2#}#iPk`UwM+Q`+qJ*M#V3Q{1lBnazg)3h<%LEDT>#5&mMYtT;$q>fjJ)l$6zVU7a
zfmyWdJ2s2p^)N$IQPoAE`={BmjEfS1<YwHQV}m9lqkCb3w+TVl5Iq1&m5Y7ai*YEs
z1i7}aP6v@iOdHgZFz&T-<_i*s<q>sXy(*m%;x()}14<){SA2f@reK)XUInlP2-F||
zECOW?5Gi+39c-RFXfJe~3;@5X4t98Q=bX>IIrtSi6oEW?v9_MG6HJ!>QC)X?ogUlV
zWg|20RrgU9SWYi6#}Zh2@Wu&VfE+HhH|L3k48@;ldpc>=Nf2-&4*C9~&N&1J=Xs>y
zvVtnf3HIH_e8)^|J7S^;Lr$Yb80ri{>)_~e6lVSS;e%qPr<){5gcmdnyA;lxJ&VVZ
ze-)nHf94mSq-H30{nO&M8;I}n;4pml^6=_w9G$=V^TPv&Ur*0jgXa<fKTI=9Y;@q2
zd|2`~FX#<vTF(^UN_te%el)sl)kZ@4xcXtW7tGG53kcQ{jwfPgL0t$zh>M30!U)nG
zmg`rTL|+jTLRb+Rwf+W&?KIum?ECf^RtBCV`drdo<{gMCUh2YyI=I#&(PYuQqp(3h
z!^3+}`7zvzirM|}&XM)r^<G(wJYhc)0je?@+;%)fU`hlrUYJJ~VY}BvU7BGMi|!Ny
zq7P;Kt2!s$&Y!i|@uuHihn3o7H=9`<Hs19eK}-XVSwyuzvyaIHsEmzB%~e73)@hAB
zp$ksqGYFfTf3q)pFOSevp36qiKmgqEn$*DNAfdS_v;~&~G0jWX8)iV#y9J=u)uqz3
z=Bv#3wgNxW8@A}$Sk#I}pujhGIuCzjrnorY2=zAaViU4Ge8uUyD?CGK?6J^hPWg3w
zWY$(h$qQS@F0x*J3`*%p<D~5USF*gIvYe+NXHc=cI5OjNj(Wpu$PMnwy1}iun1`-d
z`^=ex+TOUo<pmDqDJ)O#6M(`sVdWlrq-J)FWRa~J$5zA8fbOxU>_pI^83m(nCc5MG
z+_JUK8Ro6r<e4J2h4pna{|R(oXsV7NZzL<2nVHG`2k1Uc5?oFAY|u+Z&?-nQtIB~N
za)yhy?<0fMNP3bP6LTK!Gzz<>#mCKjNksP=Q8e<^YlK6U_79o8{k>yZ1!0Q5){^=c
zT6(R(%D9FU1epl1<almc$O((nNCZ^ak9Q*wgS=f%=h{Z}MPWx0t^`6qXiz^XB&1HX
zFMT)5gnN#N*VN0836TL|11n4WZI?{+CDe`ucv{wK>Ox;~p)Y$78b8Jxoc^xL9lGL+
zuK;=A55F2Y3d(H^hH`=hiLrJ;2{(ov-TnDMNF5>g!Suy>#f2!{rrN#hFS}z74I5JR
z90>RHlP7XI3&@59;7^2a9$}X7?4Ssy7P`6;#<LWkzajR<4#^XbHB6VGYKGWuSmDn{
zG|VX~D7=DgUe<YLOuo=%zWjiu$^lsXu{{2W19MXrHobLZC<t;W{5hRZgozdLjKK)P
zfsA<kdS$|!=ydjZ+?ZO{jWFzkaCmA7sslHo6veobarc=M#{U<tQdg8WBP;8LgV+5Z
z@%7o+*$`U8xEbWki5k;<8J721OUqP*zp5>#&)hh%qjNM3VDR7a19!ZEa;z?Tl#|8)
z{*%jlNnYnqldu#?ynE<rP#4fv-)CQrLgBp#sbcH@-e%PQGeBV*4?!}c8xI>(UVe`G
z)({E+cJhwW^@p5n)W8da-eTxIzGr2L;h8<)oDEMX@7-{3#=o&pldAmYUWfP#m`p+2
zxCug#LvJ8l!fOc>56)Tv3?2LD0bA4&1d0bGrj;x}&>LLb+%nh)f3QFNUxaNAJmnH2
zA_qSV`{%xKRG7r8uwTtGh1m7ZU$~H9rA1pUXJK)axpK8SUVx<mgBsnRtHCa@S{xTz
zgO`BNzQ$bU<^ytdn_Cp}=2S0lJu8^6W!2y)XtndXamT9XYG#&)ZoBz+7XJUnVxP5+
zSy%mHt9ux{I|i_V%)mCK1P=?Ke=qz-@@i`Spz<_L7eH+jr8{9-mkB%(1~k+I&X4M&
zqIHNMCIN=R(FbA#AWgUhLH^pHXN5?FN>OZR=*_Y2c~!#dn9$Nhw-jt_ca!El0nG>v
z3z&<3N*D$fxZ{X+I)p2zBg%#g<>eRPKa~eMnL7++4=l1;wq<0n<L{H`xmoe+=zoFH
zzPv8uFFfss)4I?OjMp20c~qdi@OTi#4ACG5wpSD3G@iW&c77_b1IMq5va;F;^0Qy#
z4t#LR=OYvn_Xr7#K-L7g={nog%JGYEvps+M6g`Iy=ZVbx`0>{m`EW%=#fW{<zKZ8v
z;bSGB6>>>D?}>j?%o?Pa1cYS@FL)dqfL3IG>@}kF{f#cTAh-=E5ttmsPr2y+1O*GO
z=N!b`O!SU++&EDO*TKaQQBCY4f>i+uSvG<>kfzinX$p;|0fwfVw`xK7-BYYC^4ANX
zBd!MLD|*O@-(k|zteckB|62x>CtJRA9X|Y=9md;~8eVjdQP@%2t9;5utwgSY`Gw<`
zG@uc5+9Tvf5aDn00t0uD^-f)P#R5^ZwY7bF9k-%{N^Adx7rQ))nCfho-d+44AUxs<
zAv%+5p!9KG97W#;nZlj*<F;Fsm6er}g2EoM5mdxTd*^q3|4|(1wad<yRaWwMkqKBz
z$QQdM++(2qo-*CIw4Uy=U?d+wSO6bP^!^fM?XVp?897}o$2yk45?Hh^B`l_<9F9gu
zMV0ngE9dn8<<psm>`_7OBd=oE!6U}W#f7PzB^uL5)8LXKN;|ZiBzGy({&O+$q6Z8%
zG%TLzuI^@Aobn(#u1eTkg|BESC{Q3uh{9zCQzDPPYj52lR1YsXpFMf9i)@*#fgUjZ
z&>47@<-kObp_uN*01(FzXgLn>p#<plRX2O8_;s)2|5P(TCJjfurF7C29x4LL2Kmz8
z^)G6Zv$lS-VdKU>*l(`tD1zEr?fl1o!Y{prq1%k-<Aw19n+QGxdL9SILt{p8b~@5P
zX1oZuO15sM<*UVKKckwemR6+zY7*N4Qyq_8OEc<Jbo~SR+OjnkAGVD<R80Oi(Cq2$
zr@MarG62q2s+5(MZg+e1dJAkfL%QqlFNa!z2Y3#~QjVGC^$y&%d+WXXyhzf9ah_uQ
z`g5uCA7SrCXP*f{TLZii4Xm4Y?o53DezB@0sN}5b;5?hF_VM!958T!p8ioF(NE@p4
zrf66i9`z~j{%&d+Z*P#^|2^`iP1DK9m%-)7IK#)@7<fu68yTwlA26IWc-nZh;_#U>
z%THzK=)1TM>C&n$*LS})JnkgyAk5vFQ&2y?ZH}LAaC#(r?Hj$aEnKRpXHa!I07!3U
zVrpYiVP$wec`HfAUWk#bq%5bNs7yFh(Roptg<iUYh+ahZS48R%`~#}M@HHsSeQ**2
zYO5YN`lV!KY`c1v#8kHuCh_?G{jPwnzU+j99l6nRU>!X@6?Q1>kyls_hCMZrL`7!o
zI{mQw(W6H!RobAVV-F`J^&Oi=v?k<@(&vYg-a3A!K$&N(&$4L0w$&XH8j8*c5Da~w
z`ID{N-#;YmZ$xY^HeRuECC8B?$uc%H7cUwZ#Pr+d;=)dvYk%;kHT0{6>7+Hhs2^I_
zF`5$^8d~EqB5nnD2D|6SJ>+uZDX-AbT`w=}$4{nmHlc@IC#&&M<A7}^-`wfxJZ=sS
zOB-DS6CE8LdRA!?R}WgMD5W#vDs&;7Ilm~<ZwO%&#^)S(S2VeflzNN7`4hQNxq0VF
zODJfdQUvSA>MqG1+P_~CVur8c#H(!G5(c8?Q^@r~<1a)pAWM`t%8mqW)eGJ}W>^hu
zLVD7VmHw$uo~&=cz3|MPwh!I?z@ENPUNjjtNoX3q?M9?YrMx5SMp+i#8>N@>(6u<e
zJ)%e#8YFXIl*J{?Nvp|(KcvF&Capnj596?FN63!4ujjIzT4M#aJ-C1WM*f<Mva-px
z{cr&7BNJLuP;W!FRdm7ZZ=s48M~kSb;e-YlxBOSfkvPn}jiA6%yyD$LYv7X}^Q6@5
z^yN!WW~aMCq$wz6Iag3Y%|Y*_M8M9XyiEmqJJ=g(4)wFng8Ts&p>xzif~o^|Uf<ra
zdop(1XYmjjSX|c8Z0Vg1E-bI6faK5|I7%GpK~()oT4rFF2zT}vTFIp;2pjQ_WTETn
zY()t7Y_V&nuQ%#|4@P9_#~t*TDgozfoVsa>{-Y!cWka(=U!o7IKtM(Bmv9gCs&ay{
zs&7XD=*y0jl}=Ojm!!!nxuJaFc-0j=X%0@bcpea--hLEv$d|F6+IUmy@cd*e(Zru%
ztAUW$Srw9ug`{SDURG8GaQ=7U;)0QiG#lJWMC;$eh+knhoQpM>eO}W>UQMUrkC5~l
z4TE(mQq$7n-)y1r_x$wfe1i!;g4Qgt=(c!%w6SVJasJP$tNi>qOoe;y^ySMhXqPS9
zN6b6ZmM#0!8ZH>0n_5xCqcH&QrS!``OIi?pYS%?V!^6Y33;U9CXag#ukbZhV*AS^d
z5s(O?*EmF66%C7fKr;$`Q_!u55($=2CFr=w$9&Kq;W)}`4A`jr3xW<BHaK?e5+CiV
zN={)LhpUay|B37j0v;Xs)nFHtj2C-rce_biNs{PYPvi3pJ|&jE{_}q?eQy#=#Wot=
zxi$D?!YBRGSK|NjR*a!NG=Jg5&|2Dm?Jg?o|2-im@AhA^p7dk$@_*}{<X!(BzGJt7
z<}XG0mUH#Lhwo^e`uFgi|Ks19F1og7%!X+w5%a&zy{+$<+sYKRL|`eb=W&}uZcP{V
zKRdj|ll`+<=JDh<=F%=3GWmgB(;C++DVMJu^GR&i(JIn@Uby(W!9+A^`Ou@cZ^g+t
z97Pd-<sDBWyqAYZ4rx8LX+SjBMPh~BYX;s+`=5Ot-_K(37>&^lCKEQ>+?qICwtmWU
zFFY7hub=iZl))wJr!gNQ%PV~OVUFN=pkjRT46VUI^mH(I6xHjI=r?TJb_k1YZq7;D
zk2b5~YRW-jVGV_bI6<u8Q`32sWo5cbVt>}K@rw0$t38JgU(ioe#SSarUU4HpXDdQ9
zMR7vq9%AsF5qnLnR48>Jb?bNTZ2pmQ*m1>DRQUhE4F8wb<({|oe;-|3*B(t3KK}l_
z6ZU3#!;*xI%Np~kkV#xRwZQ~DUqWpP)b4s5+M+Q~05qGZnkGqj7r|^Lp<fElcLhSz
zZ7@l)ebj7LkH(yIoST4DX8<zI|AfV>_eDj<!Y<%-dt35z0RRhfL{2S@J0${rq4Ge)
zHnYNhS`M+R;)Y$9S1*P%n<dv;KqZNt7$&;j;Zem>O)7zZ^|`Na6#RjI&PTd(<x1pH
zfO|%fu_q&=qlALGV$~{6Sh9#?B~Y_$W?@n55QLi<$UB4b>{;J%|I&p+hl%IAe3&?O
z$LKrZ3_=&yCmuRNEG}Kh%M-2$Jb4MIj?iANUVViKY4ht7Q^m{U=ZFJr;0Z#7P%hOz
z@w=ID_YpP%WN%6Y*v7s)jH1<WQ}bH<{2*1r2DdQ!D68RCx@7vdunDzA)T>7)#-!0C
zafX$4p$jDfLkWXuT=6K<eGTXM^mf{A!EZ=Ee`NM2RHMYyML15MVT2?7wBppwvOkX7
zL0{lQk6yD~yB85?QB?rJXw2U1|F)Y9vfV~RKV1!;k7zVKE3ZY;jwZ4SN`GLk@>*G@
zf5zg(UUcrq6+80>RHU1xTqYbj#RoqpzjV?RzXT059aczk4N6(nfd$yFq!iMfBP33r
z)@Ub$3d2_9ANE+On4NIY!73`{4bIGn=-B^pYt^-_lFLH=247xQ+V0wKxi^ymrO|nz
zWEg3gjm3n!lcoT=stlZj!SM*0ILw7pgcaL9cH{sj<++bfN8<r9;Wz+42Bv$eZfV_$
zr=42&xYiDY;XX1ZDaN+LVw$59_NkW@okmq(qAqU#r-%}90o#pgwxtG|2ytW#Sx;vS
z)fK_`)mspUWzo{o5=~uv-6uC~+0siK@?^1yx`WH}V@;^lvI70B?ud=Fw00*YMpcHp
zRucisNvnQLbd7--$AZjT1T>zP7a*ZdvJS1=tR4Nb-e5I~{+_-l9*@$l^ac~N4dZnx
zqw!fx*b?24u>9C@WKLG2E|`MdJ>E~U1>e1UM~MKC00^t!P7M}uj6?DyNO}U#t0pSv
zkCbwzswL*2S&^Nn!TxwBKJE2ZY;w)vCXS=P2g_t3Brw8y%VKR7dg!%UBK^YRGJ`lo
zRe=rxjg@n2aNqm)?0H|mkHo6SAMmn1Ci7v?TK~o!YuBuiKY#vya#@T3ZMPa=1T!T9
z_OZID&QvFbl`B_%wF`d8xfk?#pE2rUD2hby2Vs?i{zG_DQNPCkabth_<CG96Z{frN
zAe85z3kV>NUQdF%0%3(VptIV46Yxa_8f&f=hdwTH4LX30g`=Dr9PQb<d%s}}GCnJ2
z4`fh{faMj^IiCxdd<%uzNg#bn>3h^j*C3da!JR7NTo2etqR@zP@Z`zt;y#ai_YBeH
zpDyar*t^RASUi;jG&ES0Ke^-Dv23+H1kUA~yREYo<4H7rk90i}x4M>cS!1vVNQaq*
zhUVDI3;4w_QsTMiM>bds29+DvsejyDEfbyg`I`Q%TelDt@vKCeV-m0b0e5vhjN5wY
zYE-mFv3RdzWb|W)Fk5GL0epKzDqFA3z(&7-fOzn_7hfLxm|o}l|5R}h-r_>2sC-(S
zV9M?7?QP=L85r%^yH_u*;dw~NV4nghQ}ytc`l`)%lzShqKE+6#Iz_`4_x8x$d-t+k
zXmpXP@!e+={!z!>#KR`l8|F4w=1Jx&(S`10IQQ&@1geynm`~SlWeL%|=^66~e93S2
z{U8~K%Uwtevrtrg{^t}hA7w!mYeYS=0*c8#r}^k$2PqIRNj_z^xtch?r}`|jrebWf
zB&^p^1}FMsN3)l>jL@U&#Z`*TG6`{y5&`=%)xqS<nY(@a<#ARJm30*C5t*`*ZmV2$
z-{AM`OECEa>6gEd@2Q%N5ThNm1QYax9j8Oo^?Y9n*VUI-hsLMC@lJ$GKu@A0J+Xwv
zJ?yA%@p%f2oT_@R81Jvipk0WPNygC>umO^j;fMQ7$UKPrBTr`QLbGw;3#BequdFus
zuN#qNBaJnma<Uc|`A@DJ#_?Y0S0)Vk&@tN75(80&q8W{VH-rHm^`LX36_<8_1}fM;
zs+EWte*hJv4bg<*V`iNS_Z(RPd`X`o=hEGyn(4mutFyBg#~b-6PWo<ZYio1pPbpz1
z6OCXXf<h5R3GM>6%Mg?~HW1oECWJ9ogav_E;y-@;;Fx{(?3oSp1ju8jko1UN*$k7H
zFytq7cXvAoOD|n)sDPx+TwUjcf{{|%sHezGTOR>6nfP1C#^E@z3+7BtQBf_(m_+Zd
zasJaVc9bkc4kLUCp{MS|iR_2%1h%#sj1*B5;rI$Ef$ul&B%v`ON9=F%Heh#8yDGLS
z@F@xoux(D7E30=sefks|q_nDPk^q%Jlt}*ji1-Zvc5lQ!2yD%t4Y@1}G};AhC(4IB
z_tw?x);()5>Fk^sTIa5F5EmmHprv_cdkW?!)UjtXt7_3bmTvIn{j$x}a{V;o^qQya
z@YLETeT*wm6eV0$iW(aI&se_q6ue#gH^^vNp_k#HkWkaWs0rjJNHoLZXALfl{RgnW
zr=l#5Znt?<`;g$HZGV4{C8Ejk<CiF#kkODTHKAb(qV)rb>cF!HJC<s>p>y?Gj)}yP
zX9EQwzxq%K`4H8f5_I&$Vd0JerRqGp!)~@PA>eI^c5f6#U~{O3fm9<ZbZ0&^C*dq7
z6?YxGIQFHP6Xm~N8OSo}3^<lVasZu`&g$9uc_6X`I0T0uC}K?!jf8*_R#f+@-Me=q
zbjOa^0fOTKI5v*?5M~v9u3heSOYit&70V8Bp&%Jz$$-_$`T3A@EM#%+9HkBok|Gn|
zbY~!czj0l3L5&D^a4%$3K}fd7j?k)RaDohxfQSPxD8%1rVu1_d+T%EQ0)On#sk%h?
zkyteEsNbO5DX19YJn@qK(6M6*u8Xs+J}+Lxpp~xnF+DO22)(*6iB<IYqs7_6#duWH
zL^}*T$FE%$=WlxL6jCPo2_a5ySKG66_isH|@@NJ5_>>5{H+F&bShqaUQD?I@#CQX^
zEo1_M0U-`>f?op&w(-a4QUD@3#lPbW6)<g#02OLC7j<j@Gcs}hWx>LXF<cPT@UFkc
z8(!8-wHtQNbhc_0{{7KgN0#sZI``cgd1Fb9`f1ZS%a?A;&4c#=@e_h$0*^gmb7<)o
zBu2v<j0UnOk%&`+tceo|Fw+Hx|03-lI;`tL|FHnD5-Sc!NFmd#xeg_?kvG?&LtkL6
z=EM0Qh<sVB-j5!QDW3fM&TLk>D?Dm@>Ts9<3`J2mz=e?MapuHxqPLAWf)BQyWb1z5
zPV29#*NKx7lZH-WBjM<X9FV=uTz~Bx)n~GHidXsbNn`U|PZwDKoj5OZVt^Cj5^b!6
z;!NNSjRAgeB<Ud4k;}S^x0@@9yU7aO{(C#ZpAtVz5>5h~%cQ9ddy^(OeM$tgmfb0|
zO@<T4AwloxMafVHzKPu@z0nRPC0?EP%THfldXJ$?W|4(J=GLa(TaTV5ny;|0+5a4a
zM)(R~49YoeNG6U1`xAf;9{dy}y+i<>IBRGa8$auo3m0m~)6pO0oyw$n5GPp~I2DGh
zGIf}Y*(N+sXuj6)CYnKs`S_l_w9njFh;yk}j$OOo)U^hzAxxA%T~3{7&!#SOz!pmy
zfQYZy(3)-4C8dplDhn$6yQut`GL^-z>+9!aEL*lLzCZKwVV{D>o}N}+mP-$1#I$2a
z0vsS&#q(J3H2?<te7IP>9z9AJ7Ir(3wVBw9^%*)_sjRvvtJ4}vxr^yn1+d3c)p}Yt
z7|8sol#?bTctW#dzm-0;r*{Pt$F)T|@+1SV%Kln5*E2@xY6K&L=X2K?YFXwIc2(3S
zs<O|lIj0B5X#lw5l(7W#bg5AYjky;Dkx@cToRS5N@uew|n4eWMQO5vE$74O61J-TO
zImpf)QM0HaZl!zdrT>5@kK9JjkMHx`wJ|E=Hf!8U?%lmRm9zY9IE=|onzTRUQMKD^
z(#KPK8yOfFCZ;E2eo7hRf1?hi%r#Pa_IHx|Vh<iXc>dI>Qw7}NEvrL`mJdk(+I}>=
z=aK$R_yZ6zdzSDEK~z&903rTsuU@@c&dx3iO(5t}?CrB8WfHMIeFHHBU*LawS)q^C
z;hBG^(-<6&ONl@h>9pa)=}MYSfJlP2{Vy2fp8`_1HG)nZu@~9A%pkY<_ozdJSf>q|
zI?zSntRR8Q-6?T6>{b9KHD2?q`Y>B!lr9HxOsa^|hTcy-)-|`6Rj^uZUHDOFU!LbK
z);7O#jtRioeVWeoLtc{RrCHUln|cjP3;p=+4a!O&!fT-{Irn(?zZqpwyq!3Rn)q;2
z$x5f40Vf?C_qPq`$Mx@PLyL-vM3nw+$G270|Aw0XJND_Gx=3i>UK~qX=69qX5F!~i
zL?T+}jaJqINhJoD<&c?}n7ovTv$2VfP$pg}(mX0{BOFBru<FCQ2tkUd%F&jm>45W0
zZSW1B<lpe(Ci!E0%MN1aqQZg%#S6y}fp7?1MsT(Hu!<15gPjZ)>I}kvzUE)!b?8$&
z5jPivfqi5g-1Ue!GOqbX5q)oMv^P--h~eB9qJer0mUSr#;iES9`#Ts0>}D&f;rJFA
zI7)1P_Co}Q*WE80e3(qM^a*wR^Drcm|N2Y^@emk5{NYbC%N^h+N<44SR}{s_MXR#_
zqZB~+?}wJg)IgE&cA;6XZ^9mxWi;x(9PRbhAF%z-ojLR8L=J?}bcb;xq_+IhqtF~L
zNl85<bTi0Q8tyuZjf2*LM8i0_=EeVD?M<M1-rN4)pM=cw6fz}*Ol3$Vv&@n*RAy4h
z6iL%IZ-gBgx5^L=Xd4nz*``b>nkW@JG)bX}rt`XfweRP7&i{Yb`LDCiUiW&|eeZ|*
z{l4GNa9!`|8o1=Y{ahgt*<fFaw_G8bNyVnL2X{xuVQY=C879%U33VrYBjt|Qfi0yU
zb}t)rqVQqM=@PDt$Mz<C+C|{%TomR>++&$J6;u9Wz$@sy=CXT}1`S>xo^B*qgblAw
zX<bEQVvEXCeaNcgngNs-;`@;oB&t1tj~QM+cI?_^iy=p}_y2il9=6!!k%5|fl!4WZ
z>ty6S$5Tj6i?HNb4q35(_bI9s!Lextjrvjy^uBU-3v;Ry_GOSjKu*Lfwr<}(K(una
zqy*BS&x=iwI{y!FKT>mbiHR1k5=ESMubMl~Mwh$VoX2YSE)wypg`z^7w`b0r@tCb1
ztLdoeepK`N+e;(9-V$IX7Eggc*U$uDjJV1D!_T7`oogO68xA9pZDZ&_K!Nff<CdSz
zn`Y(wDK1!~GE#u_;hd3>1zM2v6b_ER$b(n@<F550qt?dTI3eeeW|ByBXCXcy>8QnU
zrFAO$^X19^)-5NS1=oo+eH&e8mZ@nWmsJ)bq6Cq_(Nt$W?;lzCdD*{5|5W!V6&o~S
zG@^o0qb8EmovK&Ugm;pFhvE|2wk&A}iKzzr8H>|!OV0QIe5%KJr<&<^Y$C)HXci))
zfE)d(fQ233m}IrNH&8e&ZM-}Z<fh?Bi^O9=(#LEM^0Od}=I@PKikXTR{fpWGk#K<I
zA8fDN_%#=C>y|BNW!(Dz1DrEDXz=d=R#2Dgj_TOTAz`*Ka64lVam^&@QPYGYSLiiD
zaJz-2>X=AbNc|OvAlDx;io9EK5+hL@>a({DjfvQUWl_TjV2(P(X<USIFk4_5-Vnw9
zyu3F6eZ9yzCKPNo!eRahz21eL4cq3pRc5+T-CO1riJF-1Z)(G~I`Ifewe~$aOGt{8
ztqImE*d)jp&EZNW_>8D|?v5wt*D9o}lCuxXl+@{x;rTi)PUH+g!K>3Ftazbu6rNt5
zp8u$?XxDt%NVLG!GXi#z@mV?f#EBD96BPmqDPuE<9Q#z<a(&b@uRcZWPGK=5rvn9}
zy#$I#G!fTVH!*T29C(gC0y2}8BIQpwq1Pg<E@Bg-<DFImCI;?L0T~0`+!)nqb1#+!
zK*ULdE!Vi-Lcr#<{{tghZBF%zjh%6Dq|7#ue+o21Rk8?ZH1{loB(uY@+@MjTjd|DS
zT~;TVrLrj44JS2WHOrj2U(;O6Rtu3xaEfqFslB86(M3Apr{VNAEcsKs>+jz$#BIxi
z6_GAM;tkaNlS4lKPvmhNH#|KusA3{Q56~oe_b*<6hvJR=Uy(=sM2v@o$nZ+zP)Hb5
z6xQsjdl_7ZN+Tj!LmNDzj_eMS)D4d)OQ&qVUtC#YE86^Q-E*FF4--IW3r>n$gO~g`
z-kIn5hYufWmw`oY{N!aZ$@9PPNUxnQTO+US)u&I;>m|_8$=6pLgzWoGE200tUBB%=
z=89BtO9?D!YoG-Ktz=T?#k6kM&YyeW-Rbq}FZe}Jik|0Dx+L1I!U+@<xq+=8Xn4V`
zs?w7@%<^lmGiZ4|HBUto*-ulGWMqPxKwNZ^!_7xZ3^J;IQ;LGtysF6ZPyId5FM6;`
zk`M&bcA>eGo0mRb$K+1l&6Ibyk62LbkPr&DOU{9WF3aTsD_NAz*a87U1=F;RIvTwA
zz<~ot0p5#`e?K+oEAfG^GekIf{#mVv=;d*Oa^hu6TJqmf&Vu$er=M{~P;%@o4Sa}!
zQmeBa6Y8|J?85O(M9<R!jVj2#y5bd1t&zl{&ii9qcvp0drgQfY5wqOF-Y#HO(YKyH
z&S#Nwj+IwK59)UnGsL072~R9fvy4nk=}ckC`}lt)JC+K~UkrhuWJhU%`vl+Z7L*Vu
zLmiYtbdiUOy~@kHlLNvVBd{{R#}!iWkh2(9gTua9zQIqU(0!y@g9eMO9|Z5%y}OL^
zw7d4r2LgE=iOEGN-q}LM(cIYB`0(+h*7-dXQ2<FPxjUi!k69+BaGf!c6F};(<naN0
zl4f0<^&8w2)uQ~N%pVuKvLI`#sNBGLA$Bn7Z<d9o6cL%95|X}jP&PMD654z9j^0Cd
zeQ%=<g)WI?@~Y*VfLkHGyLxj?Y9JB<I}W=$@3%FKr)N)k^W9|b{E0KxExUnF-(_{X
zT_TI-xU~8H@hJ<&l!jZ9YosV<L5Q8g$H-+PF~^fUIjoe_C_q^aHHvb|Hm_mc+F`(f
z3vx@`BVOBlJ^r9z0vJon&x5Ng*5Qra;^RMuENVA3@WO=|F#$;zy-(`-&C7XkSusyL
z?6)+&g@m!?pf%8UF8zx$T9gi4d}hCnTnx}|x}#H*-2(5DpmDpH$iQr1pd{#xBEnH-
zQO^)nvCp#XxzB<vd#pN9X(takp}pCVq6`at;I(V>JV_<}KZ0!&GYN+Ynio+!Fy5$+
z%`~ufJ`4W|o?Oe|Y<Z@t;O*td)IaN%k9)KreoIqjQ*<J(pl$2x$1V&B=3~a#1(tfV
zS50GjPYaI-&h4F<Tb>a=<+_o<(I)j&RsA7@1OmJ`?X3+cSa!0;h)t_Pq9pUMsyuTf
ziB6+n$w5?2+{)it{furCG)uH1U$&af^2wUTR@4?k>B5wmv@n`0|KHGCkys<WN^rc4
z*A=8KDL}_J;P?Iek3=sYk*DqEJN&OXeXscRL7`WJh=C3N7b5neDCr=3Xrc83!E!-x
zDc4k{rsD6jX9~#du$TdjEGE|rOT7XB4=|7OQ`{`p0awrN9oYv$?(3bVCxW3@Zr=nE
zbM~%J5pw$`GE-;k>5tlU+!U6YSu}Ck4}E|E^z<P*+lnrL9o9X#`q%Tr9Y#G$TdjAw
zRg=bz9aa+|c1tDeyU_qjzsvFIx6h*NpXkXRo|Adf+bO3vr>hM}yXP~la>*@Q{BX~t
z=XsRfIwo?~GAUtB=8x(+Uw48q{0?WVtb{xh@nAjeZIMrK#Sq6Kng9q6p1s_|6abfQ
zxVJ7EqquynGMalnAwRO}3Pnu_|NYrO7NOUH{%xB#@5;deT|%CfMcLE0{~K+IA$gov
zKIMJ#IdD3;^zPkn!+gwYnvNn17+{Jtaq@a<@)B+rUtSO?62LP$w?DQJeZtGs#s&3M
zva0MUz~|kt`9q3!$^3a6i9g*0y{@xgL}IlHWgbRn2@!xZv{3(7i{i--@{CJF4y3eS
zi3n%J;qRx0d8_LltC!*2p!$=%RF!B0YM~i<MnEr|z>_>lMOj6XOuVBvy@ZpWk#2v<
z1eC&<>NUYp$W=a!6izEKf$WGaihr;8m9{lMfm@*};mzhZR`A|p{qkl)M)03iW}+<-
z1eeMnm)kUnh`=DuJytvAN|h;1kLK(<qZZvJ?LbIfFmI{u#L4!|Hbfi6sW_s+S{Ng7
zk>Bid^8k}Sf?%7T`M4jCUM|xR7Pu67NlKhWhXdRcleKf_SHooQ^Vi(TzMx(r3s5DC
z>MHkYl!o1<Yq5<01n4dACKlX2>*H2Amsjk1x$`RDz`E%XYrp;TNc_Lj<K?ACrZ1_(
z|6M>Q7Y6%Lgr?u|%iW7hLgp16bSobN{;BL_sa^yNlUXmk_UR_tTYn4s8h5pzU~N*v
zWJyBDhamBqSmh-f;G)zuSbHyC?uu_shV&2+(W+xd%Vlm<j>2g}j)DZp*B22#2zjcl
zYE8TQ=Sm8kGZJ!Sy+oiy+Nw8`TmQURw_YrG)1jwJU&DR*qNH3&?9V*H(LpqFU9Qlm
zWJy{OXRX+JW%va&6BqfSG0*J|ZFo6cX&2}h`c8^2WMcG>E93oV;<moZt#8*cCCH+`
z=!=P?n2D^BBT^K@GFOB`81>DJ%Sj;3_(Z(r-xISmd+QV=MAUuf!T;t7R4s;Q63Ue=
z-u#%FDri{Tk@V2Z5%Nu%TKtm^>Y0I`FTU~6cfQihh=GD9<`AuyM2zEMXR53~m;}j%
zBq}|(!9oreq4|(Kn@BdAQR(~I6=W<0Z2ZcOP|hR4Rr1c!wsA{fF?kInK@@3pXx-Wm
zUq;BN%`@~GotyUCRz51oz#mRNovSM);}ZllIR(4wl)#p5y`^6DIdQ5Q6K?$6$}>7U
z(N+u5FUCX^Us6DG6XiJQP_hy~XiRbK)2&;#cfA|dlwGz*jvY&SFO^Bb!XA~ufA<@v
zErLJpKgqrquw4eNa4~F2UPooX_4OL8nVU73miI_O`|2O#Zc#^7*V*dIh$S&&H7eF{
zVzEr7(2T_a_xV%*<g!fTs1qeDK44XXGz*t;910i?#((W!@YsJgHOM9NAbw4b;ShcO
z<c6((_78qkv}=*TT1MF!|0=-s1|lfqNz)YM7~TYVu=aoAw&i@Ce}N<2o+7$9@8n=Z
zHS`)s(wEDg<t_fzDY*}xhE7-%*~3r2)IZps47zRGw};R1s`?L9wRXJBfvPOLIP!Gy
zum=N<P{VM{>5iUVxpV%Ini_FfcXC_AyhTAG`Z(UU^)fds3s}(CGo$G7gxN#v|09`t
zX#;;W6J+2B&8alt^ztZI#Vk2`%orCd>+9&asvoECOc*Ef2qwz=qkpA`=wX8AB_}x~
zNJYiD<^1vE$IEyzPtC(m$CiGn^`GCNJ{6He;uWhPk~}7Pa(=!~4h5y&xqG)A_fg^e
z;+F4r)Z`l(pDV@GTFBs=TlX__px<mC?QJcZ?2OiRga7jw-aBBRkrrsSrKNN7lEx2W
z1?j*<Ki<Dl+SrCQ8$UjaA7e(4VoK%~aQ%2Xho)vbKIZ_snzLw5A8;V1?L4}apEr8y
zzKe>ip^0qKFU-!2{c8v}Z|wx%+tM0{SKsO22tsZUk4zq!wfxddl`Nol?)Rt5ubapv
z`=;HoYCOgL6!aO~a!~4u>u)WC&H+0kA~4I?GDS=OZ||oxm~Dwetm}~)={B;~#=)OM
z6gbgs5#otMFtE_J_kz*=O)x3nAmpsCiBOJnrZrW*f!H0+kc@g?=SRARW1rGA0l=3G
z8ub8e-J$Fin}Rohw@uBrJ^t)<L;PXF7Shg4+q#OUAlcC-ud%hpGh4>~NX_EDHvtHL
z`s4d0cfW@=b*ud0WA)*O#6j{{)T>@BE-m<QC68mw@!Y?HNTXIt85UKo#wAsc=!{y0
zY@#3uWAl^{4i_9+I0e^w_?Vg9E$jX7+J5gQ=`=8+bv^RP*xDU5YRPv;MK}aoQZd4u
zX(<aM7{GKTk4ydUxPL*!f`Nyhp64pPk(MFpEF5cF&vesmbFf~lB+1)_{gc|e@dN+j
z(!E1F8IX^2@n6h8R+Sk6{??1uFI?ygIBNT%^(zC%a;+UiFzmA%F<`)7)=OY?3@sby
z+#j$%?ur?*1BA5W9u1vMdAINTmgqlsMf#V{TRrGRwK(|X&;7gnhuNRJA5%6fI6v2E
zT0$$=O{L#goT#P+i$wGebP}S`p+$?ch<wIDxO<pcowzV;w|2y|p*x*&o&#@Di4Gbx
zNYjL66>|Uf1$!n{{BAd5$dJUiPrgl9GN(R$tn&<%)XD9A9bE?iIzEgSH{yb03P($B
zH5Wni;orVH)VJBCebc;gg9hJ!8U#8v9rR#;v-Lr<pTSk#yLa#7664$z;w2=N6Lx%+
z22jK#@dZlw+{!pD@jWEl4>_f`@SZ~WJAt6*ozi@}>gJ>n-JQeDbaZviK>maZFwih=
z+Hu$nBJ~cOzjjoeW-p+qbZ?&v^%|>x%w9jEUeD>?g%0(Nx9{Aw>)D#nAfyRNeu_1N
zPesFU{$W;pVK+R$45MHsD)ip{;Dhi36oXF}U!5qz{H38OE|$&TNBnn*weA?44OjB0
z5-C7_{&n(Md)TwWEry=j6_=jG#2n*)EYkC8yS+`DHov}X<qWJ4i(V|nlVqMlH;4yM
zNKC7J>zrrKf22tMuvYi?;Yh?O3D2B8dv;Qh-UU49bq^LfDhx5FSSZ42i-l_n(TJpx
zODcwET`~RGc75o;^3i*i_tDfGyD98+8zUs*zwOdQx-tIe-J5S$iT-k(o_iU0f?e48
z^E;5?E)1EstX<uF!`LpZAN+NpK%+Q5x9pCFiI++y_u`~JXFH@|!G=AO#u9Q|7&>@H
zql(<;Ktlo-c%EnI##m4Ls#NWlD=)^q)%-kTi(>Wlx6bC%4>#})zWrI9#}~k+7Qh!Y
za@LZ4yMdGK{@zx{^I4_pB6g~`PR&I#>>U1@DMCNvcGAoy2-j2TR}@GB1&6PUh%(*U
z<lZcUw9=uxaT&&-nT@80@S-HTeADc>?fh)o<FA47>oY)E&m%!n{_}p6oc>_(oD%^6
z1x8in8<c~=c%I!Yb`So|;;X?>WLg$>9v~~oEoL|HWyPEa?n*3jpn647^vR<J_;nxr
zn%h@W)%8PGKY8}-wNMXQuhy$nKI&8JhUV1M`m-acb1obD3R5bTCoSDK^P21ZUi+wO
zP|0hJzN0>%m<Yd1_TF#*G{`E3#GGJisHsZ0CoZlC3g-Em&|LBu6K`jFOGRyOtx^4z
zhIN-qO@2{$lqlhNl1AZkyOmEq_X3tr=C;vu=sm7EmD~p>!{m0*eTkxh%TBKQ-F@z#
zcxKm6QV8Xr((zb^wnx#izS!>deoE9lC*{9(*ZK#5Jo&Fh+o3SI{wePBf7=^t$)(B`
zpV+O2j<OllM8m*85)^QaPfvaQlZs!BXrErazl#2Z6L*C^#~;Sq>%`pT>fui277dbS
znQ?uz{`rYjHH_)K6Maz@P*4Pw4C5FDByc>_?N35(jUxd)(R-}%SwU$hnXT~%@0yxb
z-(InWVxeN*osCCX5?vI}&(u@=6%@#`w_2`U`<F$|m>;ijd<$4Nc<^=W4B?E}$NgvT
z9Q;RA?JP=J?!*A*^Q1ff@W@@qBcw)|=qY|Bgv?11Q0E*NSdyY!TL+^jkoiSaU49Uv
zTkcG$c~+UcDPZCC9%T$y%WB{&JuRr;5YuHgYpA8!0OBBe`eAMS$|;CmgxBbAv1_o$
z)3~0(6w6#Mu;a<v4bQukf17}cBU^?nv3D+R+opoWEvcwm`{vEhpsYb8!e^O^YwR%R
z;1DShS+?FfH8!jQJMpR^g`09AZh||qzdOvAg3nJ>^ZGF5pKpp}Ru#U&SL9##iy0lX
zQ({Otb#mK17$8N*>a@FaB_Eh0SPaVSevxOeKrMh1dzgp?kPH3d^O_sE+!|qo9s>?S
zcp#6LNNT-sFMy|Z51*~QP{6eb4Q7$+fr#(Psv$|v>kgarzgw_PQ_x8#BA9xZwAnXK
zpyAwGB(y$=TUJvTuGqm+7A=M-peWuX_#-bZd_Jo`mVQcN`}+(U^g3zT{pni_+^wkq
z?ZR}zPi16e1a;bq#4zk;70~n+e|_aEQuuyTRaNcPt=njtI+7}kf*uTL#6|)Cu;Urf
zY@8Az508OQ!j8e)qwGiD;)RWzrm^-{oP}jqt97gJ<Jgr^M`{Gr6qp4!Ir{}vAOg^g
zhai(AO<oU<F*pahxe{#+JwVAiFXIfJ0isvS6l$Jfc~w)mi7stgHI6c+aLT&s59i(%
zq(S;;3w-rnF8qmjX3(CI;Jzfw4IWM<U-Py%`0eqhZ*4k?#KdkZkN2XXE7G@w1Bje9
zuJ(cB(g>`nBnu=YAxk8@L!7S&S%L;49t=f2V9>qI>?q9RVK*_#o1-^NaQs5?M!&6@
zlq6lSUD>e(uIpAeWx(J$y_z@S4PRS`xstQx*2^VCsdYj=;&@g2UWr_~EI_ejXv!`k
zc;e2dqw{$^T6u4;Pmm}NaPCV0d;xGSl%}4Vk_b!Y+1k^Yw5uCdFMtR9uf=;D*L!c-
zrAxkS+UmFUY^};C8HT<T%rv6s(BWlK3?J2$8E_)Eu<f{kOtKt2Eytb~PS8l>t`hRY
z^E|PF|87miy(Nrh+Fkcx2M{?w%SHt~HJbYN=nb_84Dp&ZF8IHU-%QX*3fpWih^*u+
zE^9a5&xI#(d+4N~SJb38NcEq0@C549J8+H}mH!`Tu*Duj?Qf*y$uwgL@jyx&{B?Rw
zA7Op?k3U}duA`uM79Bl%>C*GN`>33(8>|X*I4O(xiY$q`v9|UGr?qn1wHEn}utYN{
zv%(#II&IKDjVt1!;RP+2(^t&(;eA;i6bmE=g%F>j+qie{9+@B#0ZH2l<)uAr*c{w(
z@^K{fGB!3=J83T7UW9giiju2!O78ZY977yex%?VmJK7^jC2KD-4JOAW&9i7av^6Q(
zry!}HIe9$&9|V*{O5xQY4(}DSRBnK@_nY&VFprmX*Ff8H6U2e<BZSs65dunDdeLct
zU|iZ*PA4dmpj5Kg5_Z*uQ5JYmbR>np%%Q+}_#i<swO;hHX|E2sj-XBQ=2F)QFEo{~
z7Ya4cMeS@!pdkaZ4=h7`e7v?t*8f(j{(mEk)C*oz@5J~0NKsm|{qeZ5V{f(5Vt$Jv
zc`8asR<D;PU(Eb%=N2vgnKv^WxNuS#drB*y@5U>=aK&+<dudE2ogQGV@LuhvX4(HH
zq@@c&udaIq4bxJ?0y~d3#yHw|u-?UypBdE{m2mMQ%RWIPj?>oUHH&U;_P6h!zYjTe
z`E`c;RP~s)ty`}o>_vu#azh%L*HDiJ-MKPJohedpsjePKJ@#;N>snK{Cpn1*NMcSU
zuMJ?$>)0`i%ykhrASh+@+%L%LR$L}rb2cJfC3!!@XS~;cF+G1$JpZ8yE>^?!h=y8f
zj?*JHA2n+;J|DmgLBoblB_tjTsXR1w<KYS3-IWipmm~+~WMA~zRAyjd<=}-IKv_1>
z<ik1FlwPGP4>na(Q*!h4SmXVh6m(*(L--0@Aoe!<Khq?`G&A|-ix*~e;}V)p%Q>0c
zjlkDB8I+=)m1-w~W>t=c5`rH7+8|KG!Mu+gfXF2B6zOQC(RpGUl7kWMuqHz!jAh3|
zy_<eYb`WZo4ldzV6<&5w_p#ewHZDE+bgAc~#b*|@DIfi)tl5Cz5B>2daqJ^Z$AI*1
zg`DBs9!3j{Ydda36uqe3iZ5Faf}UuXtg_v+ZQHi-KQ+96>3__13*Gx6Ai=f>(kI=%
zbg?y}@oa{71xZMe6wi7ZyisWS^OH*I*!6Aw!%vu^s#AI)!_8oeo-RdO<Y~EY@%HW8
zJN()7muFOMkp&<Yc-PvfBsXcgl+-lTmi<*E?L=l($Oc2B0!4lhzWkqT(;PtFvD^t4
z1y|j(M~%l%At58ng-j|E8=ydMu*Q8n`uH57ebe&}`{$Vrt<SII0gXhcE0z*i@7eh0
zVfpMJC2Zeb^W#}az^sJ70#_U{Yopa4)KG3fB;9ncM1cCw+ggXlEtl!kf$OSJ(9X51
zFrKwy$SJ$>hN`}|q1DpO%9ph-XdC^lt+DTr6*>7k>EZa{%RI_{{P<zDW&G+Wy0jtB
zO8)w1>)3sd{`tZ49GMZl{CZ68@S<N4{yjNeki%HeEyxH#7nsUHr=pS6zk*%#m2@QJ
z8mI}A)LX{y9c~u3x8e3i4+?l0byQVLSEb#0kkQ(Wr+}TsOOyEu6G6Vb-mXgI%Ubn+
zgZxN>ha~1uByWtsnE`0ash^X*K8HyKuCq172TTJkLEix7R<OU%Nc-iWwTe1Yb?z7@
z<O8W|Hm|n$^P%b6Q;A%y(pR((WptVJQNQ=}K4jL$h)dWG3FXOVzh+U1S8D-C#l3dz
zns_Z`xdN9IIYlUUmGK>_P6?_^xE0BznoR1GX73RrPK{IXZ%Nh0oCwK|l(I_H%qFj8
z4jRyG=`DTVbreUg$i}Tws!F3q+PW+{Kth%jDX1DGHIC%?iI;t}eoca|5U9n4x(b42
zx}QQHADkzF3NtfGzn|(;S5-CsXT8~^(y`@q8B}bsbw4GYnB_PO5Vykk&%}M-roZ(i
z;&dWjdo=7LVO)D#_p!Ze4zxjaoMVP+T)amPhiCcTZm6cVHoQHe)S19N2m7eJvrvkx
zwOx8O)wN)sUGa($fCK9=FoS-2Sa#Lb&6(e3T9i~qrKg`*dhM|BfVw?2hpL_*yJ>0L
zrI)ug?4t9@)X(>c*Y1#ne;ji2M+N`0t>41=!3`%ptYfD7o3_rJhIK~OsvqFnWnweU
zOQYTU9$tDhz4N;h(<W-=Za%sr>BqN%Z>9Q~f997Q{y5<IikBrDbaW%CUN&slaE!Nm
zv6aHY%&gV-m>(34X-mRVHC{W429<k2{2(+aSWsT`WkvQJIsEX#g41Idd3^N22er9<
zO+O7sT+-2egFj8?$8V)aCC<6)!3p{$JICYvLbTB5QQIjVz0>WSRGg^n(=xt%`C?mk
zD|L<i(>?1l9<Ri&!3{65K@?4Pn<iecNskB@4p>YwP6im-JvYK7O)5I=(g_~P6LfTL
zX0GgFu6QgL`_FG^X@t6u!pq-m%{ib}&-2_l0Z0rIyhV9W(@?neGCyrs`O~I0y+Tv^
zg{DMz9Dn_NS^3xXw~r^;v@!Sr?l<V-tG=a)&daUO-F|QAkP0w(D9N>HXlB>+kGB4w
zU!54dq7brZi=9p=s)Ur{54$@He3>Y6rS%`596Hj!pyHJLrK)J>+@-ryIyTrHGb(ez
z$oOv)t6ZmdY7*(Q>#z7UKUZ4HEW_e(zk4NPLh?r%Ojoh+G`}=w(WYS+o&v0x>81D_
zIr7n}7PEe4<jt9G_=S2eA$uP8hm`Re&IP0FpC0)BeZ7g7+k)4TZc!f!R#!vb#slQ^
z72A{Dy8=d9+X1diA$e;<9kp6<En^9@Nia&Iz0ALw-|tbx@7XdN_{-WU>u{*px42E;
z>Xl5U9|FgoCS+Qy^pa^tqCM0!K_nGeG>^tjf{(}VZ+AxEzs@C^w_~R3ZgoBOVNQ*<
zyUPqtP_cWTX0tzb_1<}i2)%G-G*m3yQTN{N?D|<Ok^HOnQ%^v=IvsR*KBqKswV~Vg
zh=s#le%+8DR`Sy<_P)jVf<GngS{Iqu(c_q<>9TS{TgWsP;F^8uXwgTqvd}y1;TO_C
zSOsjlF;b8dg0vhmPj5DNdItfA`v-0Nl^fgMU2i_R*U+`qO`Y0J>7ymPE$KLIO8l*Z
zZ52OGSeGtG@F(uM9;d?^|HI|)r741arRdEBYX7wB&*ux2BAL&fQYgl+KL}{aL_s77
z@pDwp^YjG$4O}hZB~p=2(AY9|^3lGpWO_)*Mfx9xZTssT;GPm;Xj6j%cbtZSH;7(T
zUTpYhE>j)mB0V-mCL^X42*V^NSLF%m{&_J6aFIsFrZ5h>1zSqqsWfxE(9>5&lH$=p
zJ~sBfiScx@Zh#jLZPfYW<niOZQ0h$`J2~)L&d@oM@5MJF3}R~X-7VL#dLqgY%@NnG
zCGGHROlEz&8V+9|+yf31SW0;TVr7scyT*8)Xth3dO{k2*pcIjyw}fI7qG}dYes4?5
zl!e1_CYOoUv_Jj%CPQ;Fs{t^ZNt^(=;lJK4p^Ma-P}^6F5AJgKB2=r0(=|=l#J?)?
z-GT{;kY+zE%8)AE;d#H%<DI6R77Xa!t##@{*H~_kVc78{dZp{5e&2|b&aJY1UKyPw
z6y)5-d#bxb-!1-^zi#k-tl~d1Zl6xi9zC#Q3)DnWcqP7g_sH^5(2V}qW`004cY`N4
z&!T<}v5g3+v4$Py{r#%OtEVg=T@qA1!DtPGK^X~$nr0j;X4aN1w{=KNi>#;?V7dR`
z1NWxwZnFDa+LE^u8mj5USr{i}pKY^`A?yi+<aowZSKj`|s8i65o*A{ot@ygniH?ok
zPacm@apJSnuX~>7%lBQlr25aU{UGB@M0J^HHwCbRoW$0?dlY6-g{p;&=Q^`@ZvzvD
z=~_dV)=*tKmYmZGhq{iDxlw4(LQ|}kxIGxKk)hc`0$p|8e>F6zU(-DMUX|SoG?IAI
z`M{n%vFHbr-(TybP}k{ls#)T(6-9&7jjO+!?-jg9;{kd^%E?TTIR27$2)QE;U*FA@
zm_ly6J!e&QR&||j?4$4SZ0n2A88u%un7`uBs?zS&D;CCFoDo1u*#ZDiNBKXftz+Xc
z$vB@`FVFfl@s3vQA+txW%?S+t&P-%Z`gI5$qRQSN(ot_&{khdPuv+j$*%xlP5?Sd)
zrfbTMJ+U(o`bbmx^5s$L)oL$2=C3hrX7SKCWqX-WcJ+9=qDv!P?OLfgSM7i9&)JBQ
z#X9rUz$N3C+^_zoi@w^sm7T)*mY(%vV^-{MsvGyfI;{kL;9@$=fuhH#7ZX!ny*KU%
z@hHjHr%u?@y-u?x_ZPRkFMKtJEy<w`9C}qhgo2FtfLTt+k9a3{Y}@v@W2qxxipU&8
zxR>77Q|t0Y*S1a}2Wile_gS!Z%)is@O*X7~P)PDsOk5bqsFCQ3Y^JnR{!HKB9qIM^
z<kkB`c<T%)lQpwfj4V6h3d&w)7!%`KeBJ$Fy(&IMA=z2k9GISFJ$inWFhb^~oRsNx
zpji5Ix~iy+@zD8uoe|E1sm7=WLk3=~-m1}4rY;+7@cYzk%ZfCx;JV#4<7LFTc7=!S
zEOYY<@T)7ye5tj+f$=RnGnG5~!dbt)SbeG*tD#E}5!$Xr@wdMJbe4mkbs&_HuKTN6
zYAe|FDK}OwDehhU)SHb)Ktmjiee4@_4~O0B>MUGzwSL#?r*}UIfL`68n4(o{yozr?
z*O~|lcl9mBWwyA3S1#66oK%mSyw;Jp(#uw1=BOYdKr$}iB})nzA4{96(z-?U4^!`g
zPxbF5EnBvnx?k1iE<<+i**AGz^8BdK?r3XDwtBO+CDUbqVZ>*xF7>l0N2f`92kF;w
zPh9l@(Pd9%#>mQZX&st5EnT*(PM2=JA0)nnXOfVd&$AXdKfPEOZ`F;Rj(fY)L)>tp
zYeOQNzXXubG}t;EUD2}Q8tA&&Li}XH)-tX>NAD}NfW*$bGjpRAf7=ze&)uh)1e8hr
zPc5%kHmLgBsGY?PD){Lv*xt)7jUOD+wAz{%a&69=ZH+!G<Ml8pVClJ-I106vXIEBE
znQj~jYLu42dO7xSu<~aZ4?YBj3~ZIn?i3s3<qA{|PS5PS^ljX6*ns%1mNTYQHOS$2
z{Lt8({rb_De;>hEIJ3e9RYeQ*jwaXuL|`?z#P?JkI7so~Sz+r~IflUFdzhF9C47nN
zuApPO8~Ru=)r0LBz1%MTzzgGB1ui;LU=_T`-LYdw-PQ9{cXUXP8TP_Xx2^Y<PEGO+
zK|D%^p+D%m_<O(3e_;CkZn-;p`45e#sHoi^Hw*X;wltkFfbo33Ah7X?0Ic-xiNJD_
z<a5X?wZLWi>UQJjyy%)f{4f?eLZ6zAKR0RX4Qkt+<(o-*&NMv08M?*bLti!-{NR};
z=hApka(_-YEW*1>i!B3g-X3#*N^-3K7=`)^!h7;IJ!hhhek<Qs9E~N>y?>}j?_6OG
z8gbk5%8cE$bx$s8mzHV!S?^@S2LrI~&$(MtP~oh8Ab)qqCKDz`I+7&Ff21$tsN&^K
zbenL@a{ce}Ohu04Ddq>^us^Ne`Q_)g^7IMA<Qp){bhO6d{Pf2pq#Jmzt=imKho{3x
z%+W`q_U*B8RDa8@Ao|j&#(?WlXogO`h)|tkZfbhJ!wTKGTx)^;{xi7C{KwQ%?+2tD
zc6R3$kI(l9OF~iUfZvwWi~N1cz2=>)b<CfM4b%`d%%bLp^D{re)E&CyzG+xTISV7o
zzfXoC;S?+KeEG>rx-p^oD6bnmO^uG|&|=qvt#5#h^RF@vdkav+@Q)*+#`v8*dw=Vy
z(3CNiBff|KI72kV$8S5jKNtXa-7hTF`r@zL->TC@E~Gd81I0QO)kIJ6>>>&|<x)M4
z#=YTvkxoiRDUG)b_S6m`-&Q2HQsPR$Q$(xU&5m+$yC9mE6gzaX%0ynddL)4l9TJAh
zIk}<hIHd-T&{S>(cdd)Cc+>>3RQI-D7z2*r2&wr-%8$QdTDt$W*hxj-&@lX&X(jfV
zi!U?YKCC_te!O64^y5vZqLI*>W)CUNnQ~&#&gj3ltzr&fh?b9^Tc)X~g2WC;s?h}B
zF}2<G2OHKLWA~%*sH}XZObcldJ4$Ssd5BXvIqj~dLC#$ua_V{mb>lY!3~N;Y`J8f@
zRQ+iiK7(!Q9#FY?uaChNQ)rmkwzjri?yI;v@v~i+7JIzrPsSPx=a7Dr`ZkM#(MwZO
z%&~<OrwkoF{Oy<68Qb|ELma=bVI~@Pztl*^ook)ci12exr+TLi+v*xa5@Eg=Z!Sdb
zzIRr&=7x9!|M(@892v)!v4DA7JY1SvvS=G?%%5*)-{lP>;d-71_Dpo8cMxVa<?GsE
zFB&x*HCm-Q9<j@dhfz^O9anKf|Ne)<;~2qp@T*xr=3F*!d3Mxab$ZmYnl~>HwAArf
zJVwE~8P}?hy{V>H8aUw1^VgyDp}VWKN6qFI0{UJ0syhz#n9&m^Uwi=$xNiEetGU%?
zL5@ng(xeJ+m*Tk+J>>*GICp%texpkOeIi|LV96~RXi0O#PgJODb?M`qw<!!_)DNRk
zQgSFNa?yWiu7sb<;il>`x|%nz8AScA>s-2))Z05Rm%u*Dl-7Ix3g1eVYbw96G8Ad~
z;9(3zyzz8#K&2@+Q;9~fRoIYbAF98S?r;gUrS!>-Pa4ojB1mM2Ozn=X74Zk@l!7CE
zO@i7uB4HPEBp4HO!I#j9j+CL{QJOUwN-xQ%6tf76+wPrnKXST-=HSk5^Ds-{yJkxN
zzpo<o%KwHtpyG;iaY1T=1Al+{?&?JxyA<RMDZMZo(p(A<dD?KRIgl`WIvyi?Jg)I^
zV^z;T(^lx7%<khmvh2&?{B>l(l)M?R-?psGXq3iC*LPpmR(~V)ho9EVoE|pVOoVFy
z^`qNN1~p-%rxvXe+SSRDqs&((-r1hg`2NZ4m>Fdy`6U`jn?n<?T^n@xTy=He@5A;L
zj{@b_EQH*5503o#@vw-H`B@jZ1)7alQ%seH5&%k>;zlA?c>4XHeICIid^MalefrQ5
z)hZcxeI|__l+gUVZnru11tydcT35o0=kbdBt2S3Lj$7<h{{T4P)`PjGrVlnhDuhgq
zZc@GEeWyt>j?JsH^YUX^WYP~_U|Xs79;C3j!+9g(1=%p3=S7%=NYd1!LL6iH-}u6|
zn`(&Y5Kdv?dAd`aXAb1yn3BDLX0H9cC+@$7<LD7laAY1`ep&`OJ|>;%^Fu1I5Q}Q_
zxJG9k1L~(Jj}8|JXo0k>_>~lyNT+@g2Z!zCwX5FUn#pqZ(iHhS3++GOeV$}0=wn+8
ze|*bQhwU;AC2ZpvX2un#ja=plOLqF#6$X^r&j-P&Z*%;9VT+Dzg)|e=hI+HFS7ILJ
zlNS`f#ZX91;ytOyPyqAGPWJQEl<$1uE>?=J%{z&o4xSySSbJumOPw2<Vqui*LO$YV
znN|!Hvfi)whn-=6uw0Z-4aU~g$sr8Wvf2I^-Zu!68n|C;f~xKmnJpG<otpK-%pzK0
zv&UW2w}+raG8(#&BR^M6UN>XVNXXNH_#QlCk@C|t(}h8Z<87p5{WwqOh{0TI?2bEu
zt26#ie(dQ!{?;BayVe$#&2t7Qg57&SmBAs2!&|UxNtXfmq#cueD9szJy6X4u9-DX;
zB7Y!6oewBdH@h#SA^OuL=Yq!;9PQkG`1<o=<-&)Y*A6rra#ifa=BSFq0w6dl$g6AF
zbjC?atpY-wp5>#A4_fHWg~>t>dX?E*M`uV^_4o;#jrf*2=pLnBD{ULAdV>OJ7LSBV
zVcWXlvjEOS2~P9#`u0QnslwJvyoS!P=Vfn@gv(gV@T$r(G35ru-;#3?6NUiYk~IpK
zBexyJ(hUv<Dx%r9Uy}3WfRYpAW$F%}>Y{mK=Cd}dK;hCd=wsi;HBi_Z4{SS<9w}Hp
z{>q+gshAwHXg!&@fr_n=t3o+R1IAK9YVk1Ietma)_G6*6WriHIo#-R!f#pGRH^^BX
zR5;SL{FXqfa<?XbR7S*gxgnw$)^J%xe%r{>ouT=d8_J7Q?rzzj=C-%tEbOkZO&nNS
z6I2w@lZ{)%^3&3)UVQ1$*SqyonKuQCZI>5mo1iVF%9c-F;t7&k1BoVxhh(rIs}#0`
z%TL?md33awCMd$z&Oa`-SwI-EUj*-2thhXGUG$$VU6q%w`&)`WDzEZNiiFT$;-s$j
z-xh>-0N3b}@W%|L31Xslt-WfBll1`GIQdPH<;wH`hGowy1Kmzdt5h~jA9SCT|NJ4=
zQ1F=9P8())s)ms!dai-((9V;b2^PBM>G`ws1P}7usFVFgGPz*b{R`hv88Nv?r=rBI
zYV+lR%Hz`g7uSIBR62LE&gvH(#GOWYU&_^Ky9mq`Utd}VGna!BD}kwsH2N=y;K<IQ
zT3;<_kSLomG0ZD#+op}v=4bM+LtG5fcOi~E=A~f|EutAf8TdLw6u>u4JW<i}`I+K3
z#|oF3Lsj+GGd?Z(vWS#S5!`rGz#GZ52WX(0gR<)6S8}}yGyvtp6DzsEi!|tn=1ERZ
zbd!LWl>H*Q7ezda=Sp0=812shV9#ws%u_C62k|`5qn_<_7phVzTE}w&nlkG3?WKiW
z@f(RLaV!gm+TIJO!FSK87;N$y4Rz3w!UEBGu#<JO-WmIYj<82B_TTTmHnU9s{@w8#
zKAcDza>}FiVw*P3K0!oJ?fH>8!+$|O>b>wN1bNH?+&p;XzDF%Q9c8cw%z)IK%F7a`
zwh|Q>&tx>%Msdk>4I451-RDF3R;eEfG!i%e;j^fn0O3QAF+TI$gKk>7Q>n+NUK_M6
zJO8MGgGZ0v0|#DBtRyfeEo0Z0A$AwULo7@eA^xYMpqIzLjy(J#;hW}WOpr`84e#GZ
zSbO3qib&nGBa;+lUMv;_1K<|WGBL%dFC#@TP6bU0IB-WM72^G@jIuAo0hsH&uX(cr
zeThRD`qFqqv-a(u-W`9vMTZU@a+)dP1_r-s77?6JH-zr2=_1|0BWl;*uIlO$#Z*+P
z3+Yt(EkwYfzxJ1=UbFtOYJ-lFYoqMwW5UG{TCQW%u+8Tg(ezDzRZSge0#r9*J)QG#
z$Ay3Z*Db8aUmzoCOVZsIR+dKWDLv5mCW|3k5GD?ZoFl_Z3Y@QhF6)=~(|N(4U?L?|
z2qc7Qcl@?k&JG@r_=QC@4hQt))B5ayi{7T33U|YD+O%rb3yU3>C~n(C_9gZhf32T+
z)fYKcjg(R1u=hH0#2>ON?WSOkv|=X*EZT<esMY;mwW?&Yb2zdh*A(cw@F+$L?oJO|
zAsF22X9{CqnsdaWuRshmO}HRKmVb7!_n0_o(x4H4>Z1sZrF9hgRU(`0E@hfLm{sqN
zenfi2X`dsZZ&%4R7}8<L6&Ah-2r$$3%eMT!1<{sB=*66S8d#fRBAA*(l1w6#?CG;z
zL5<2*6KG<FIWB!ump@s~eDj1-`(`%U&h~RR4(mt*-OzgrwX^oI=dE+rx{t?N@ZGiU
zLhEx~LC8zqtO?y+e*JiUnFnx#Z<L@ps3at3&b6!~iKr5%C*=f#m$e=LuIQZZmdV}F
zbwRDXQxod%9*#mZJPP=~>%of%yI)t;>+UT`mY$Zci)d0@Q>OVCUFI}9(Ynpa=5%%)
zIs}0mPYUk-H{CYg0cw}BqTEbcRF<}vt${@*62KCTrtJpY;~-j!YegTp1Y~(uzSl$V
zgx5TrZz)kfJ|ec8nb|fFI#i^UcQOu)xcmE0v_mtwO$9tg*d=@&`Yg%x5pj<8YRjx3
zKp8po%dK;T;`R3Z?Ls#)wwvtUK79Z3u7d_$GgUcB3w&>I@R*;=+YgupLGCxM7cphW
z^8f7Jr%%J5xh{ZxCBxq2k7UF~n)8on^}{g{E*4m@slKS^`>DN}9dUC43+GA8*ob}a
zbP9)?bxO~LsrP-DQRZj7WZ3DKhpH-@c^lNv;&~tHXVxG{wNT0x?#YSzn}c3(<=TCz
zBH6(4pv%y-hFa581#StObSm@IOLTdJw@mXC_Y;)rL{Bzd4-*kxnx(%@qM7Vrf}z^s
zz{<3{TSNmv!~)YjTA-~-km-><o^s*#&9<!n2L)}?&vIp9wBt39{oN3+T--skCFfvs
zaE~q>_hXD_Gp#P%k~6DC8=FaBAPdOGC6nhUhrHk`B7J10&-jo&``VI1F7frRZzl}&
z_9z+sseE*i!^-KCCV5hw@VwBc5G`r$7lZ7mM}TRkppzdzeOk$7BDR{)rMojbjGKNx
z<-x355y*b0RmTT)>9~qfHEHOf!sxrlY^tX><1~;Dx5f_rMqO5&@OBqI7lErxhBbN3
zOFoCLA$w@#PY<@M=7Rw@$O@CeNW$BMX8=jZ6LtbKbC_DEZ1o7o0$*a$&LFiTPy76&
zutn{}hc0MAKO$=6nDr~hJ1Dvl&+}*{6VxY<8@E#!4rEFGJestq)k9955B&WzMVd*2
zxA{sq+WnWX@nku?@x6*=Pm8X8>K?yhog%chw<ejSQf5mQ8Qo&2j5q?yG@oP?L&;Y4
z)2FKao*C-V*Vl(#NRFix_hJ+lE+@K^f2=M$|MRfE4EMy<EPt2E%Pu?(ZBzhkpGXD0
zNLsoqgNAs*eG+`Wzq_*W?XqJDWh<23T$fhB&<Xf-rhDrSY{5xYM-vi5&Jym446FK9
zrx}W9NAJaW+U36Y)%J>F1wojn3=j}w(H#bH$pwcX(}LtQ381t!oDO>}IOo><@X%x@
zbIIude7S+>5%@(8D}Z@*Bj;NXWUGJ0C}pe0T^x(&+p49Ho2zgySm9K^$pRooTAdCK
zwfg<51vtSQ7j&39?|I&)K15WpnOJvCK7QIBNRKFFu%r$kwF6Et<p)Sq6RenZuFh@h
zGx62Y$b!t@vn@LhyVl?B=RRJ)WZn~HI9HM_5ct;q)?Ha3HEYJ$*RJgwD%6aq&A4y8
zQr8?y$x8$#)-=IkV+%Fqck=PnaZ>xRMf8iNa)F4r!_RrVRl8j?m-MqeSXj7G?$xwv
zUaO0xrlw{Va-c+ZWUk?mK7INqn%7dOJOYm6$8usu8}W7dXEq5TBNzrh?p(|UMh#0N
zBTY$8dZb%;)g}r8ffd}lsVG#p(a#Fxi%7xqrI(lg${*F%cl9L{O(fY(<tLC*cA{D1
zoOAfdqzZwhpOHCG25RA}RGd>$9FH!Xs>Y+qH8k4rdH>sgk$v|^i=`%{0@gMO(OKAm
zYy&!z&ii8(3avpdbqcwYi#U!ZdWv9;p%|~eRL9|UF_D;xH8hHmd92q2GCQPlMVMQf
z2YAzLPr;0RqGaXrkf=RTtlUohs_h~we{nFuqBI<}LruB#17v7XqAP-w%iq54>gnxx
zc2t>TEq@>PBkvut#_5viCd*u=vZ7X9QM^p~_-4>7%N&Zxyynd_jf#mZBq(9w&IAcB
z*m1-80zQ3CK$#J?`t7xGqz%kMVaSoGN7u{nWQ>@*`Wh*WGX#^zr+p>jm#vKba{A}@
zp5na|%NxqvbG(%dmv1FfYcAhiO=&onla(SGaS<U^kQaVL6JcA9fabW(N!M>(czz>Z
zF6c^Gs3xyb0+7+R+xM~ig){sdR#kZVrkJ*ESg>?w_K_4U$2B^*2XfBB2nR_~y@Zu4
zLc$!~h&w5(m0#F6gT}=LswYh|xIe7{t3$S}Y<yZRYzw2C^_X#eWaYPmt|^Tkh<-;C
z>9x$moU^D_!2@2ua?Kl;t_w@WI<_U`>52u|ZJ~IjR0NAYbhfra*WyC3dnHw5v{4V`
zZ?!p(T?vXRJkiyA#Nm?s^k9^bwkYU+YtmQ|yPu;tf&ilz|Nd#!W6%AVDjjdPpNw}N
zku+^@-n>zatE;g2+UxJ?PcXQICO8KfR*^c)HMt>Y_%8K&X)EsSbXTno1dp~P3S;79
z6~#gjm>ez;NqhrwIHbwD`xpH)CJ4b~d(_dRM^Cn^uXsPY<zK33O%rkE%4BDt)9aH?
zMNvTpahy!{)Nm_b2WHiyr}D7ASLfV7y*~r08Yyh{yD#1Pe}e73-$rms8_%l>g{o#P
z7iwCk!!e>6$MGl)A!xt03(WghL+h|j{pwd|B~ID&w8t@jY6FI^j}3o}+&zfxQfqI6
zsgG8Nri$>%Hbv~^hSpaX?-XP>GV^Cf=c*@d)$i4L!jXXq+mA&4NuClR0^n!{t07FF
z>W%z{Z`ln+Vd)hwzZ_D&s$0ImcCxu7{Ibyle>3&#TF{TPAXnYbjkz^HY}4w~w!c-;
zr~E>rQhpOT-ih{Y+_mm6F0S8J$1=;%8>MgGqbK_}@7y`xFbyp1?FZ!#R+x+|dmAHR
zAi{MF*gvmq#flYn$RbAVX{3n#^F)NoFP`!b4gT%cgB9Voey-8a+M1$N({?HULaR^B
z=wUP+sDkL7WuwRXAH>6xDLN^9LFHGr4QVt6{ZAZY(Pmv7t9LSz(4V_6gFf4No;+zg
zT2~0Yma)}nV9Ah9ZbdtkAL_%0(8!9*H_=sP{V>4zE46z4=6Z%eF<g`vGz)W{4`?J9
zDaU%kV~-9Y3{B_#F=_#0yvQo~mEC9VndG0+$af$+4^coi5P_#Af$mlxz67_TU!d4C
zG)%35G1Ypr>7=|B3yb9L^F~cxi>Xnfw#9W$&ACmT$RkhT$Ege|lH4keA)Tq+)Ifqr
z>*_U882?z|q;dzQSMsqnPxlERQ2CU4S=p828XUbf&wGk2CrUiC6mv_<OAHsBOl??!
zjv~9npzSl2^HhTUtnc1R_IL{niidv)SqicxiQb#|WRmrc#d<>&@9!_9#YY~MrdpU@
zRk@jH-+;%JGNPuW6cAc(M92718#n4Yge$>b02pDxgu`;qZ?m|Xh{G1Znr=3swyt-+
z#*nr-cfGN|r{5$q-d^Pnmodl2%tL3t$CMQ5y$QZ7;0?%tU26UlG)CNrp6Ai7t9IAz
zpZ@v;w^>)Ws^%R!<Qm?bcbVQdP=EI&b33(j0p$i@FrC^&o?H9RsdOS7%3WhGF|l#B
zQxhBQDF+?Vc+`}gNJ;HT>2Z)S*_*0SyirN$HZesG&Ros4*B^}P^k&tN$R4KdYtgJO
zZC7_gyXXT6w#%%~%_SwGk%O9hZ|9aBUgQSSu9m!6d^LXS0$*d4S#?HulPQvP(z$p*
zqcLbkW`bgq)pboVq1Zm+hft0m-L4ZkJ^HkJaX9HO4fmzbyw%{?aMj~I1`YC5y|M9Y
z$~{4_<rbs_LL%TNXYhZ}QEIreQZA=OiK5uM)##5Ld~H8IYpmN8xY&%k61HJ<rv|Y$
zJS4u{k&SDXSVI=pj=3v0HRrPb0~k8kxU$<jw^${BUMPDmL^w;;&JD+2<#cd+`xw?2
z!j<Licg?)`y^Xh#1ibLHT4xp9bxybE{M=P;Z$4*EmSK~m;jMC1H_n}VqNJ1$vgq50
z20c*~h?ovsUOT$CZ@~8#xnjhNsr5H8Ik|NYHh%It5R3cY^XG{MSqa&y3KHI@hmREh
zw6t})wNmcMZEL77JaZPz|H=Q`tHn=+Lf4^ISm<UhQGLV`9(qcT7@WK{?ehfR`^vx6
zB?~_N-TSLp=OFbJ#x`|s*i1y_YVB6xAPL<f7vc7l(H0=bG9nPsW&Mwzly`~R?`W9n
z9_-hzpWeV0x_aVf5<x>`Uc`bmFa8`Jm#?*zryNh2y28m>F=N4~fO+`!1dC*N%|grS
zy8Y1iW34XjBPYIP_ffOhzh?!^49KTXs<^3l!Mcy)_|tgRLO#Qd6)_q}*v3m94J;DJ
z$@0(D*QDB33RQ<`-F^|@1WvzFLEY9xcZ!KI;Gc4`7tSgxzkcN3BL12QbMfL<^&?vp
z%ubT<wcPOfi_Fc<&zVm@mz_(lk1MS0jNP>q7giQ(?T~c|mJvABX!2`tEtwHTTKL(k
z$CRX#uL(edB;8;(TYS~#<C8zY8>f<BJrj9y@2XnH!)%acp!Yzt`lHfKVgZ=Y($DhN
z3`7s&zP-CT^xb-pfxYS*hAZF6$^CLd+a_H(eSU+Vo-OLJcF*hy3_Lx)hp+Uzs25C3
zDT-xio1|h!{z?cgl!>prDH%+w8F2TmC0}f{^F!s&)2#(&#-DK&16jhHz1>k?3NVRK
zyDf~ALhS%Q_*lRBpADIwG7|>PubAu%K4ENG6{?FhOR8Oy#;2JF_^%yGXecDR!jR%c
z9p&)=vmbt)M2YgE(th@7J>&mi=6k_@NuB`UdN2fPJv|+TVw>O0Q_VymoVLU*<nonU
z|1`+|2CUej=Ih&j+!PkVv?Z|<kS4}!IU2eeG=ifjk*o;^xd|7qEWA0<0pZ~Y3ZiK|
zt&x&5ME4_IBQcHBV;9rav{LtSFHZH+8#3f(vJq@MlM$H5C3!D3U#V>?qSQg}-X7T?
zr6h{kKYM33uwY~-2b-j)RTRUTOPsJ+SP*CQ?sj%&=Y1W{Usw;1r90Ha$*;)e)uokV
z>X6EQ?0LfR$+9o*)!|&ok(u_rGeskJeY$b*-0K$}f4m+nV;}JAb6t*hr!RPazfF0t
zlX5Q&cuUIysPs#}WN4!?xc4zhTm)3C-LC!pRI**<ua>UvPYNid)VC<t$)V5%<Ei8a
z8yYEWawaMVzZf4U0sa>yOjc+GD#CaWjUFZvltIL`cBD(o7A;;h>3>Pm@Qbupf5;BQ
zp3x$<?JdE3k;-g3{fjKMJl7PC_lxYKr<eXx_`V&`uT};0T4H{vJ7AMTPEQlJUvWM!
z8YndYCvWW8vq!z9HQJI>?!4d49xkWCPMZIfxRmCIXFV$QP&0*l!{1ld&!YK1_4;6S
zh3RVqh66m6>U))+N#j0~iv8)#GXYtAX~2P3SwAd6y0ymERzx@LQO(x1)qOBvbSIV3
zHrU+6KkxrQ;l4a*X8kNtB(w%iH1;5VLNcx(zot-#-1&0tIcIO1oWB%`MfV0Y5*ltK
zWNLU+@~R==;&r=dvqtm=)jECrxQ)5+k_q}?6M}flFaU5wuVhIcL4=S)Al~vKb%o`7
z3H+jqNZ4u#nc&#CmZFRM8;Migaarm^sYB!uYCm0JB6)@mDXT-X$r=s1kv))?9f#O`
zZr`K&Jr5gJ)NQQZ>It9h*84xi*ScsWD^Bn+)}W<bI?c}*@+;RiJFBAD5ya+@3_OG?
z4wFWQrLK{Iwj2*u&FC54-ybI|{to65G+_GFIqRU4q}R-@U=gS-G*h^*9ZESP(u*~r
zVTln$dr73s_GYaWince$C%CVfMktkNM#O_z1%XNMiZDXraV3l*5dkC3jjaLkVrK+$
zpoSUETzDZ$1!5<M8o$f0@UIfcLjWi-I%81_Cn1yk8X9qvY-dpbq4JY(8jnhn^wlQ7
zpPRY5x`szZ`;1&b3E$XwtinB+5ebt0DWWWC6+JyS!X`+0Wutc#uo<0VFulG6n}AAg
z^fH1FmGDqPo+sz6;7oB>Ev)+a!>7tJFOcKUfI~_AOUfKGPfydlQf{tn(v*)p|McDH
zCTyIXT%u1C`5?(Ov!xj-A`FDmVIsh*#gr-gWyBx&sr($&vO()lOQIa$CC#@}cQ+20
z`$>3O-}tWc?*AJpLo3&hRVds5b}2yIY&i4;GQxBmnkSA9F?LrAH&uIRV4#4*7uBK+
zzQ}hi83BEaRIlPwf47;KkJ9UmRy#nc7un;cWD6VWFdQAMu-rRS26WPUPdV6Bu~4T)
zY*i*2wb!H`CLk@dA}xI{nOr<|a4@Aq`WJDz%0M*g*MRT+eqy{TiXGDwIg>~yltx`_
zLC8*W@QB1B6O*#eurPLv*MC?-`e0Z>AO~!FN*Erg*B$WXK1Kf$h3Vy=hbCxUtfjEg
z0o980UB~%}ju1ISmx(+$NsYwI^~BzXDor_Jld!c7GzY_Mu97%Isg1S3MYi6mA@gHB
z-}}Fn%R(vi=+9)j$0JUO{RctwvE{q!D%4;-t9&?$#RG8%0X6d@K%A)*rLN%nJzsoP
zf&&sFu1eG>t6NfSQ#YlomQr?6JEUF-L|yj4bj>~%L8jMZDtKieUHC!l&GLCTR=s}R
zNnK<3<HcZ%Ht!P`D~zwN2u<l=aP!8E_=gh}ib|M!X#?a?=V8x*-l%n;0sF9nxpC4c
zZhml}An^p<o+=eNXTGNd!QOsGKR(Awl4xtjj*G-3?WU+6Jp<#93X4JI)5q|p_*sc$
zr5iJFc&1Q9TO%skZfm@iu3RObJ~Qz9ZNDM1fWchN{0zG4^p)QR+IB7`BkXuXMYD*B
zd=LuUlKB<T1Cv%G$|e2ju%^V0C4UpTMnadx{coz0ykYBFHi4h|QlT?9=Kl3R>BP_F
zGx%m#!D2<MUZjzPUqO(7F5MJu_p(ecTi$+c9|qz)_TlY=GdG2Wzt$KK!PECkSrgW;
z%fMaxfX)-QPJws_P)-P55UCiu<HA3r4mNdAQ@D5OR?Dh3-JPsL9K_7uQs%|-peDH(
z1RV#N%G=ys=59`uq$`W;Z&$3sazuyCbhYr1Cs=&N@G0VkG*|gLECpSn;_Fs)<Zj{V
z97*5A?YwWNZC{%^jUFs)a&B%x_=8WQeUc(eAN7}D48nw*JWlDZY|&xz&h{||H|O+i
zTlnYrIGJ20bRNyKpqenokL#K3n-RVVAE|lofpaXxYYe(H<-n7X>FG0v88qFQlIwEo
zQElDCpPM}fUwqZk@w3A$7jLavF5aApxzaIn?QPZ@L+w^1vUl#w;MY|&0-lwpmtL91
zk)tf#rd^CH`@0nI+=8RP+pTg-O)3;Feqeou`lM=RziY5xA}Yn5Xc~C#iZD}j#F2R%
zu1lBcozx9Vc((dan@zM5I$2v%LF#1k6FN$>(@{(}&w4eX^K5>cO1t*zdm|g3Y!LJL
zy@yPD;SbJwIlE<g^wT9vmTX@?HT#{_sm2aaVZM)g&z@#f=f@rR!H7_H^v8jZqN27Q
zT(WraXpN=|FK}gi);-xeJ@d<j9jY7kUM^V8EZKpwg1K^Ld*0(!c$zKoytlc>QBL5>
z$VKhMwIVVD+BU)tgr^s63IU7_Z(Hg})}0I<M6BD}gdSuD_6taxBX|wywIC2@#_z1F
z&>eBmu=qH)SBkp*&XS3s!w{+_>s4$--z_IiQA#D2!7O;mLz)#Inz|Lt-#!E~wb=)5
zY~A6SzA>1f&p=F>=pWlttm%A=ZV?bQOU@_19oH^ap1Rm%ql0tH<jnqu|0N1TGi9Rs
z|0z)j>pzo9sNyCXefw^m7<fZRyD2Q!<&;q~M#vRJT;Uw~9CBWISkXq}lFKLw+4SU4
zS83<rEMMl%ZTJ0!-R=h%2s%L_&XbXddTEBGyumFkW3lQ_4cTnsq?$4OX-Nn}U+d;=
z`D<YPVv>pL6#Yytx!tp)bx-HqT_bQnMYReXuBs}x>-h~;l}yapbFS8l=FFr5bJ<+=
z`$EgeGaMQBu;`$_5!sZ0wJ0Pu3zR4x&%BH+88R;{G82W4*G8S0=1F&s;5bVppGX<;
zOU|*UWTI<R^vhrsfKaYI5hUYqo<^55+0Ub)3s{AC91E1@uN>|!hrJEehW@YZcv_Md
z9LwjTs@w1-Vm%Qti)5&C6JDTSR8DoEn2`{K_PhSJn|oZ@J9jfuoSj=Rb@|aFM|PCo
zj`}fojDBeE#ee-nh$lX6hwYQru>n+zN<Np3GK_cYpZ(76?gWa7Cre~NlEyJFubl=O
zzE`U;-18e21P-X)$bg+5`xe#?08MPHky03FzS|w*ieKNuM6mPt&s$7KAe>3}vPA*v
zB|vH7&yxat^90D^=$`%V@N%4tbUS+|eHx+<8)yQ8XmL8GvBG%PVKgvkK_<&^8i~n}
zLW63`f{~oP#?(=C9R#J~#9I1Y`cRc-q(P`zTynqC-R*hGVNXvAG&5`KE4Y|=w6n9X
zgG88^@>g><UZxV_xR(i{KaPGWaGw0t#Br<R-h+rr67%XQ`;L}{pmDSt0ud;c>tMJ*
z_ks)U$a<ek;9F73P3ErVe-ny#Nji$(S?L`WGwd~ebMNJC+L}9h0hRi{Cbf$)91DS$
zm`Alkj)5GbFF7QZSN}vi<W4dOSRB`6UFEyHyZ-aT&)=8F<e9EgTGcF%8<f>kJ(Xaa
zAfyP6Cy?W$H%VNd?DtEqP5vO*;qJ5ws^N>gg`cZCkJ!`~q}Mon=C(1SJ}zXUM;0BT
zSI#>5RkY;4+^X`cR#IKm^o~LM`8$^Y1$p$+Fy;>@ALER;!Vqpr#ygkn<*RoQ8eoD*
z5~?X%(pivHP#)hlO}%X&Sz+!e1fO2k3R(_DY+*-cwMer_(<>HL@g&LNK<8Bi&R)0Q
z0f-n1jj7Taq*ts#4Ad=^4#BJVHIKh-6LaHSOP5a)7cVhV=~C9p!AKJxcmwmltb!!T
zZWlTbKeShJ98o=Z{o~aq)R2I1CBDhIQ~n<<Yia(Y-}6ZoC+orv$eqz)$SVIE10KcQ
zq*W683j>6NuHJS{pYbo*bUIS>i*vssd%Bw(7XV1-Se0{FNkvE7jI}BM8RK^4sv+!s
zn|*$-ckM_R9;vCRP&kZInU}d~oiqNLLX!Jzcq+JqEJ)gvFD=3#sZdy#w$48iNqxbd
zX7ls=Cw}^2irfH9h?2X{J1+@SzxRN*&RP*xJU!Zg5Q-v++=th6qWza^00P&R3ee-%
zPg%x0Mp8f^{p&MyXlP=D%+4VX9n)L88`1N)q68P@fSD+wSFt_S`IPMcw!iDQed;On
z#7jfwy`8V7Xx2>Aw<-o><5}Tk0dE@{O@POdSpwRh29t!=h=wIH(G?mN<lMYA%@+&c
zh(zfQ9hww&X2EKqq*lMX^(tSbErT)^zBf|pDb+SennU8HKhEp-@G&%k7@t)3j=!qf
zp_-;p+aL-wzU(YSykS<P3e=|~;(3m#mS^982lzF5P#Y#-T=iFq)w?XEjtZgt81K`Q
zKu;F#kgjJ7h_X@_enjD+><AUcPwsMXiuJUEi#OY2NUrL}DO09Qe0;VNqW3_@;s1n&
zlS#JK8Ew8KFC@Dn!2?KJzPp~nI9Az}D%=Moq3^DHFq}dgqfW@%I}Smh0~Qw}loA}O
zVO>^5G(dqut$mAFez{`wa=>uOJ54X9<re`d$jh(PeAmoSlzgcw&8^?q0Bs3=o$sN>
z@ZAKyo?=`bg<{5te}6)Ci~m=8F=x)JQ|^_~_O2}-KDob-qXCwHM*f<U2g~?44TJmH
z(GF5-q7BgfWdO^MT9Xe^12n{s;YbBq<<8yil!_pXDXft%m$io-B;d_mF=6KqvCaVt
z)_1_rwWD$MCzw&2y&_s~j`rEurG;uWk+ESS@)KGEdt|MH#QBIOge}VrImV-Y0k#_%
z<2<NQ_xI~qmGL{O(T>uYsIx?i3&=V<8P>pybYz-cyBgNuUdsrGCCH`_Nok?tx1^gu
z@tSs%N;eR?!Xx=cGhn4D)dF*0b=ZP=e=YnCJ*wT8Ou#Z`S;9^db7Ro!D&EW-nQX+i
zLqpixM0BPO)QojL{gO4ctiFT1Bt^3WxTeGB9gfl1wMgkCr0W<m=kNc_2&mn`OpjI;
z06aFB%+VQbtAF=<17MHW=*s42R(d<Vplw;{I~o|&#<PZA%=`)L(Lr|&hp%9F0BTR0
z|Lr5;KqzfoQ;^K{I9=xHdm+*erUpHtG_vjuJ5}$5VKFe-1c&8q%0=CVXKv8&Zl%{H
z7WLH7;6ztyNNM@gi`n}*Tugd{p)0#gS}Whjxb>zmL(L^T^^<g9vNP{(LFd`Q;OO@b
ze<uJy@TRW3%FG5|s{e}3`J;M$>vUlk=`Gv22FROG+Npbb8AvRWsBDr5r=qcx++)SK
zojLo-0;GR!EX(9xQ{^(bSLfq_5np4G_p-r==Ml@7*4S3cxLQGjKwMrfq2lMVzvS=l
zuNV)`6MJJuZKdhr<zWsn77S!9s~U}vN-Lzt#&HjobKc&o3|jSOfLK$LZ;GmysP-_;
zY?}Xofwekh4QeTG0o~7KS|Iw}Cm+_@K&puxkhZf!tlifA8iw;&ZPHZ3MLOseG70_&
zq}Y)+JeiXXTExykUlqQlpXz;VU^6L*K-1Lwb^9m1|MMEx7b;8ewvLT8vxzwVk#duT
z5AlS+!3p4Yd#i*<@b?^<3&F?eXCetWp?L(`Cds5x?n}uG^hoaYmkt@nqBmbj)&^pz
zqLltv5hR_Bhte_DF_7HjKAm>|3fZ1??E=w<%&M)lM)jF)KOp#(CH)hbkd`_Yd(H)n
z<TC>j_H7e*)i)cI6OrYaCbb86MK50>Bop#T2Q~lN>5&Kxmc|ZkZ$RpHC2Cv?iA7uY
z=o>Fd8WOso!Mz58JX(nrQo`J2yMb45|I@6*!JNo&0nwNn9LOoP9;&ae|FOduElo|w
zgWa(dYc$Q-9ohC|2ihx<X<}czR?^X9l#04OGvyAK7popRF9JxIe=HF3XA~Z7nm7MY
z@!s0p{4sz2y-Bx3Kj&Jb^J)3gG63vO>pN)MB#9cFYTp6JQGQj@M>dKRs(xMWW#3Cz
z>^VurUMt!I5!v=I5wu$zHCU+mPd$TOIi(Ti0G)L|*%wRXBV=vx%{(NJX&ID%P>)aZ
zw@CK1poYtL@2<ON-@e0-76%lT)IO<={QAfdO%sr+8m%Ifr-<Vo#&X!zJ=mjGV-A)U
zu{N(+#$vi-l|+}UX$3=ejnyOub9DW26yy*@(m#S~$zT`pyU==$?xYp?q3mwUFPX|*
zF&?=~_+w-qO~pWht6inl>}cNZ6Q3ZL^r(7$yrnt;NDBx_=Nu@4PWZLDGrAL+z?I8w
zY`Vm>H9F%R<KF&dm8oa7RPe!v@CjpPY?cb(f?Q3YfkAVxFUPSPQ&#tF_Qp!L;;$o&
z0=28EO3S91blst-Kd{ibme&>EZSH*=jxFCidFIJU`_8s&xcFzc0^_-s%?EZHd$m@#
zy?YmrI@<aE;yPY!>I}IyaYh@n9aFpP_-)6Lr$^E|uNuF&LGQsQmVS3K(kOF$xHaa)
zmg&W7H~e^dJCke8ipt<9`m#@R)7$pqvbbU^I#>6czZ;1n!SN9fCW!C0py28~ITLqv
zSQAT00zjH+J8AdHuVRP$YH{mD!$75Sf=CYS$Z4qJ?;hglh~L=Cmv1^_89Ms}^b6)+
z^|Gl0Bol@^`058O<V{|TP6&u#F;mf#YVCb&))`%}w}Q>8{Kb8LDGg(RtEjrXqcfi6
z!hE~}l*&Fg)_*DrWUu7|u3rFbH;x`xOU|g-#R3xqrc*43|EU`C$J3>zhqb0^Cxns@
zLi&yMG=8YUev#6~Ze~I`3eoB|J20P8IB<1^HF^Fb8@zb252IhiREg&B>yMIgKR14P
zGgGOY9Le90x2*nFJ!mAaY)l7DBFINlxAy(McM?Gc^p=GnMY*i!aWAFilSGG&*gdZQ
zep-{Fj~t`9eG{teM$={sw6#9CyUywPcg~UFU^IoI!aeY;#522V|GsC>p+)V$&|7~c
zh4!DgqODXTf%K6?yS9kA$OI$e=LHchk_gPVjho|Okz9wB{9u{)omon1#74AYGBe`X
z(~l_$Wki#SpI@ShKYbm{fvsl~dvA9@c?|Mwd`8+u&eV^Yx#C<FFK@tV4x{Mh9u#uP
zGX?ZF_QGN3fPu>N`Pz-SiP0+tACv&W?4$G7%v`hPYn>FRgD^7H;WYwh4L(E8g9NpM
zP@pqzJ)(-tn;cHx1h$_poEG_ErMlBugTf0!iyb|FkuNM00VylK#u@1SRt?8LOTejA
zM53ZgK&E`G29#~S$<;RRz%Lh0tqC-XBw_y5bCZ|ru-(wQKb!5W!!&JeVdRXS&YJaq
zb$1>>Ri53x-(rb978Esh!AKG8#s)hkmW>UOVnMKif&~RED8-uCbt_;6RFI}v5m6DN
zQH%|PASx(W5CJI`1VrHe*2aA2n|p4XJNM3=xy*Ma9D&{5=Y5{F{%wgCPX2!14SSWS
z*-3Mox}ZTz2YOpWX@cY}J$|#6k@akFG73qk!XPIWuQIi_=J>N7Fh5yW<et=<*@Z2U
zCIjny(M=K`1qDyT(rL_tfg*Xm?$`cFLW}`CE{z3)5k1?@9i57<Tjl)9<Rioss0L*?
z)t&<f3<*o8XuBOY=6uSpJo$v7@7LSfN5QGtuk64Q*c@E55~8><gx}_a91BjJ?OaX4
zRJPz=HZ_7xWF|$IXwVoDcI(b2=fEV>isRSvmxWPRQF}@t)edH!YHNoOU1Pw29qDb|
zZaC#;jNF1}plZ9^qVtV3Vylz#fk^%XqO9Y0mr<NPlDnN~(4e`4IA%gCswy(8KhIL{
z*Qaku&OAyb?>UIos?cg%SF>S^Lt`f1AsG`bbLNfw-M-I2LL<YgWNw_e>rt4N_ZwyX
z$N={Cy*$>iVU=t1O#|M5ZQGBh6!KNxY$5bkaU|M6Qo4F{>GCrl5C5YvVFL8iKIA{0
zvvg68u>^t)c$hM@)susNAMlcQQrb&%y-b;<i1n~G3WpO#Om!+UFQF;lC2f3mzy1?Q
ze|Pvo85mqRvz|!EwC<A=v4^-5ti*@Ch2D00vQyc*Wy@Fl_SsKNjj44wL1cX5HySf6
zhzV8Yo;0^m;0C9sgPn8wbv&8FD-U0&Rb41sk;izDPIn-4k({$&n3GCJ^QD*dz2;mA
zZUCEkzx;f?7iE4bph~Ci9}_?&Mr_eBF}6*YOtKU=HlPNY&-Aor6VytP@e;WxRL8_U
z#X{vEIW>^A?_OE;PoxSU{qxSV=LO56=m7BVY+1b*a9^=zV_WHQ>W}8LW2HrM)=Q2h
zJ66EsLb3`Tpo$iqgst1~YShM?7F~X?$-m2X?!??($g;AZ{HkRWn;N%tZbZ&6zx=|X
zsi$H?@9ELD<)ho|2|xX&rTGLIfb>XS;(SCn5>kH-Dhzl>U-nXa&j?N822*jL4pbf2
zM<{ZPd|8=xLFW*9-UY>=uya{iS<Yi~I-#W%8S$85ojP_bEH_1{GpPOcyv;nBg<;J;
zbae~vB#OBc6u#-16P*vTrXoNsG}D7grG<Hesi71AcNr(qn;Z!_MSJ-u!b5u~s{?@k
zfw{!=CO|i`RUAJS9PsW)P$QuDvOTwP3(NyX7d)On4r9)l4ZDz`hu1Kyc~G4e9CH$~
z^G%#>(6#H4l+Thi#UGVWGT7$!m8w2DZmwPx1(0~=;4qMCi{+pn5(%GC{9M^{RIRDW
zFt&^(TR$st0_ct~mRLVGcz$|&m>>909X%cjNFpnj#tlt`Q3&I4=JQ%)F5%{3XWrKE
zfRa-L=GTzmHIX!;_mK=xz33lGIgJdFl5n$Ie@*G(jy_!IVsWuZ9zB8rl;BYqS>(`=
zoJgNhoRi@;i(=C=sqhueI`>eHL8wA`H<2zW_58wV{TDp8VE8G`zs#l-+L0l^@$CKW
zNDw_;h0q##_%X^<xv1=hh6HH}3W0`SqL9Tjf;@i27m08~88eBFRWqQP(>j@My#(G<
z4!03cC7%iQFd0qU)nnc5Kd^nyC+r4cxBk+vplcf5P#lz4#*#U4=bkREk&p8R>hDgd
zol=L4WzinXhk5JPXd=Z?J#qvK!A$H!xNa`>py85$d=|=Ix$cpm`XUV+K72T>6rdLQ
zK&$y9ft{!TOp+I4c2S3b=&jmLyCODa>OcMDM|6P11589LBazJoi+?`!Nn!?gBSto>
zO@lBvB5%;d4&8dUj1P51BCl3pL(A#_)NZ*MleWx_Ax~ywkeTQd%!k*y*j}bPsB$)6
z<>MT2AE}5Wl&JghPG))Kr$*&G8BxK3YP_@%hF5*R)uAMv4jl^O{x%jxfdn2wf_N+o
zShn~Jbt$Y-#!?@XG_04RlSqu<Ir#FudTqZ}wrkbhG_&Ye3p8`>O;lu7jM!8uS&>kh
zE(m@F|IAr|I$T%9dmiz~|NgC8#RqqXP^=SNG@o#7XG|oiX3ajq7>%>M@o1n-J;!WO
zW;yV8mXh+uh>;^@T)egSAx49lgs@Nh#!mD#{*A0=RZhdZL>rE{-|GG>@-z%Q)?MRF
zHCLnSw|c#T;y@;ZiZ>f%<#dSKjknyL^B<p@8MsXLGu)J{mz+c2TP0S?$z<eX*&O~x
z1Tc~})hUEMKKy_TSCid$2s?;k^?I#Obs_I14^k~Vw9XKpH+S2r5_I;Bv7CJFe0l*$
zM&NJ{-gqjsq1XY%1S<!qh#U|a2X@Voa-VQWL5FYn=k?G8neSk3T0{;5QU{^iwatrh
zIV$svlD#+)qX3~-^==Y*drlvHZUw|AnG<~thWJeBe6zpSxECAmgg?3OlZ;KV^-6>9
zbM}r+I63Pvf~AJTCVrP<wc*u%pO5wXG4*%JHs2PEoo2@=A2M<SAK*IH6*;k_5$Q{W
z1`v(OBQ{p0<@?Y<_m@}QofmK?yL>S{69FcYyMv!ZIvLimfXNhpN;*jq56Jv$S|OFV
zS<jIzi+836BU1#==5^e*yMy&h=YUsbV$zhS?+TPwKe@#B0g0X%cEvWPL3Kjs2W>X~
zabcu#=FqgJIXbp+O{YID&ot@Wtax$9H5-HG*6$Zn@_e0^yFN{sY!=XnQIxyl#4=yt
zboyXL>(<e=r?-ICDgUygwjRO5s9`V=nmk&JDnY_<Ydmi62T=$}t0rbsRGQ-CLqcuC
z-8#Z-)*)-Z{s#fs-rmsFEN+Ez#!<y|ElO_on>^YE;UYAJgHs!w)_or)C!2f4BUk4Z
zOU<slla5qU2E56%#lRyu)XowBORfP!__&~k<j9I1R&x6DX6wmnq_&;-W)<}N9z)yC
zc*0M(XL6#XMif~ud=Ngd8!JYJ-piF{4rE}EAxGU-mpbdOEkRQV#P_wscRH?Ixg`4O
zLluE7n4`BU(0h(uHw(VIvtYm-rkxLIXfYSPC6_|<mTl7N*Wd7JF!L1es!m<8@@o>L
zudM!g=KGZ*#X<WB|8=)dSgekHid>sHUO69WX2z%itS1$=2UoOYYSE$#FY2js948i$
zJq-{zV)F~sN2o}T{z)RYU)fZq<TyG9EW2WSV)}Aug9w(5jDR#uNg@RtnA6l;fX`va
z#_qGs`><d`%O7>;!wv_o`dfXMY39^}pFPEHQm1vp2RVZh$}*67pzh6I+t*)Ud=7nt
zBcgW#-8OpEU6aa4(-L4fO3q_WZk$;wH)nFPBp1~!8qN+Bpj&mswic(2xQ5uQr%|6h
zTQ+UqfpJ>O&VON7W3>4>a?h#U%>iy@KynHNv-#r9je;E?Ls)ZSF8^a0X1BnK$I18Q
zOx77*>q`P_Q4&2Q+CYR?{n+r9_6(TWW+Tku5jo#QtALsEaMv6+H@6aajWO!zxHtP7
zU9qQg1W6%nAdGU>bGuH}nd-#hZqx!HZbMv;ewEk{-ku;0hPD;P(=WaiL~4nFqS%bm
zL5L9qIwA@>{Sj_g8gN-uZ|YspEZfoA!FsKFni82bg3B54z&JwgLVimGyZskFwZffF
zsN+sCmgDV1gd_HJM6PjJE@Go31oI+Rp)KtPGP#JT3rs8?#JH^R&c!N}pqopA--)X~
zZbVpu3Y2N2h@|Wt)6L*ca98a^|6@BYS8>%0P{keeMn<*vj2Q>o$Q2i*tKgU?VlMTn
z?ePRLyKcZ8>+G}!gt!lvs<+PI>(c{TSNFUD?Q{$~{;1@*YjdU~j5R}XuV;MrG?z)t
zPk)+9XCVQrJ9qBv<JO+#Kyf0&a?B6*6dm9^5~zqIz9i#k#JPnj+FEX2`m{a{myEcU
z_T_pZ=f$5ZlfER0k(*0>zvn}WjqgE_RGbo_S1s4kBx-F+7}(`9EiHDlyrr=|z*3TD
z-l_ZW&NEsLuhVWomtQ;2;+qyV-&|9mtHLFHXQ+dkODEz-Y2nT<&Wy%XCE`t)^-IBR
z^3&0$n9g911uEdMoiyu!=-v>1V$<3n+A|7{XSkUcY_%OR%=6O&xPA#t3=A};=0Yw{
zfbW+f?G#pQP36ai-*Cc+h)w}cDe{(jqGl}|+|l+y_{YA%6ED$)uK6>luSO9q^S4?R
zE+?Q;&Rx^d>y@B2b=o;9yET(vTi^CU{a<6e>h;T~1F%S>2-a|cUJ1CWiZ*iga-FoL
zhfZ0-pn|~u#fH+9_w-n4pn1+78ZcVEUA<N+dk;Gr9Clb>6!wBXjj!L?r1`xyH9tK_
z*)Qr}^O6p|X810@uKAf(L+M<C*RNmSFa~ib&4;irJ6dR-T&tGmhd{}1sZ5NQuVROm
z=m}c7_cJxGLAlWB{c;}2qOTE$v?Tqb8ut9-Ji^H|<av=@S~a`C?JK1upw#HWvBx~w
zgQnQhGb?IskQcpEx9)e}<&!cbiqaSWc`%b%3#FdJ>O+dr#;$EGq<obCXQrbZky&!L
z;@C+HIAJ(^u%UjKG@OUKx~g$(dco)A^~*%tLPeV}Tj7`dpLTcJhn>1I<Ho}-Cp$YA
zxl=L{SQ9b}DR^Wy1TsN2Y1h+?Q%pC!g0{qKRW@XMCJmD4+9XVPUxAP*xOehU$VDET
z)8izQf_N8WTD)pks~Zu*j%VZkG&8LovyB{KM02{_`BV?XUtG9<`?gs29r}n9;-X1k
zKsRM?0=dKjCy+!@59QTc_`amY-M^pDk#<-nd&@LtZugVzgxOVG`J?-K{-f-_*UZN|
zZgbKGW&(T%qx+?oGyz$wG^m%N(;Y@eN-y-nn?vW--!u7Hiu1RhRp0~z%dvRj%|}Z=
z8~VNGil?sAbck8AWx%ec?N(Hc)BtwHrw<-HXkLm^__)q)9!Zh9<=d~aF?#39?6|TY
zG)?f;L>cf9AW_f037Q^IvHCczu6QmtRIo3o&`Xy5+?AgPds+xqrC5D;PM`VYhtRrg
zoN0H;Yvv_T%iD8a`pYtj(OG_$|0w&vO*<J>^*J^H^|!;R6KDwtIg(L(R=-G8-qqzb
zw?nEf>q7DmC7H+h00wSpq3HIaZ_eS@d>2ptDvzoNA0wv+wti>!IT;b}j{HPrNek0&
z##Mz#=LF;onnYQucs}#OosW$>Ywf?2J!|35^4EOXCpMnf19mpExvx1H+J1Mk<<ce`
zRaiR?IMAv^i>?BF*HjUQ0FbEfihff1u}tpF8dU0{{i@xXt`wNvcW=sU(!3dZouMka
z#&30lnVCb=->#dq1qC#C7NFG+iFneszRo8ASy)Sp44O4NZsW2`s~-;%>}pqmJ*1di
zvX}bGzR}Hl+^;^`&?0@J@5s&u?S%kX+|n=7(%11B)qv*9cS6mlF8@zi9nCe9Z~qVd
zv*zQ?@`5QytFG{=o<P(1ka|r_q;RD3kRLfeI=(OAm1cwS9V}Z@ot^C0q|r<V)b6<q
zeU*nNGIW^{OjC`Y^Gla5@&dVJlh@W(X#L5gv`*p}(rX>mh|+By`?#b+BUFp(t+}>}
z@GUF`rNZ^6_R=ZK@aLs5)v$+hoMdj4OUiE9k+)u7!CfV`V1tw#U{%=)ijMxO`MH8y
zrE}-wc5!DcE6D^HXY!-wB`eB0@OR<aVgiNWGcT#+apMolGUnb}&L0K)kC`yxq<f~2
zDfVM)p3Fj9^GA#nG<-Ht5NMU=_Z6E3L5|57p))-Mm%Moit=EZwZ-XMfZs)T}SqgKG
zxZ$`}Ca3KEJM(M)&U+MhrPfv85Iq7o_gtC)nT2)DYfpX6&wb@nT`yurQiyk^7Z@*Z
z?n$r6-dDUtZWcD|fGJ-)1Rry~^bEEO>@`T@XPw!bY1k*yV`z%3_>E`+rJg~gBSo9g
zSh!&Y_GHpbz+>?uT>svT5k?0@QzL_7zyd;BZ$KI=(k#HUJRFJ9pK|IpTOpkQHM|(}
z?=It<kys+sAd&ht6Q#nVKzq_itqc>R@Z%+vE74Vi(MuY^uFtZH@W-6<uJjcBUc;tM
zjgu4U<b_4R*M+8Ao1qb+5Mn&EBm|mgSiM7JDMtZ57=y9~wdxFJ5|gkY_!|X}`Ggej
z?BnuUwd>6Tr;t%nL6%y@esqFAGrTJWmQ~tj=(@N2U7`s|JjluVwS$DoDLagyDrIyZ
zrNmKTBq(8+ktdN}5lc(%F-i*(E_-R5%thJ;Tgu!bp&O+ALwGLs9L9$jB^ObefN};&
zf!eX7u}bEx4p@{Cj(10ipWP_A3azmSjb##hi!Bcooi!uZ0Hi+&JnvBbC4i>(=(l4F
zfcf+Cp$hxYGVPWZCXMyxL(>=}BxkA9{r211^uG3eu3Y;R5AERUC>F24zBviBSGS)n
z=dPoh&P$Iy*?sKZtU(<C713D8pxCEZye`R@SGLlmat?seYRvxyg9u*<L2!%-J9Km{
z>Z^Z4RU9Ic>IW~H5536C&n{}CSp61}&jXlf3E*FpcW$OaQ8OdJ`2aEx!Hr1-5W(q9
zcX@$VyRWx?gZO~qG^%8dzb%JOvKI?3sS;{>`s)n3biG4{gM&;455D-=L@o22oSh?&
zO$f3tY;uz;l*Ou+NlSN(Om#R_K-)9{R9!S{jT_6o6>@B_)iG)ji_AK}RWw&GL$2}q
zKhTryPIKn0xUaHgQVr`%qW}6YexBj-gfqK<K$#Fk#r{#8L;kuVq6PZ7vQ@Lij<E2J
zK5}i!U0NKdEWPst07U5KVxStao$y_2wH!1_r;*gbo{bj6%g{u7Y!#rOT*LcOn#UKb
z1O<l8g-p;8f%!Y>%0}X=K3&hfl{nRsi$=Uruiv=QT#ev{+bzsO0*~P`Mv6{ZoCg3v
zx#Xrv145glr;?%NnyjFGeZwAGcF6YlTDC;GkkCL8t~s^*HTZn*ePi)4Ex5bMcSfJe
zs^v3p_P?z@c+f6)-(Ak{RKTlv6x_76Osz8xh<f^5r?}OY>{5rroLbt*Og7GREn4I2
zT6HFrQw;>f;-_eaer(CulF~ZHWJ!}r7gmpSb#;wcct5CZ0RU+=L)}^XF|a?<2hbLX
zFG*~bltR!@^Q*p==P|F+Y2BZwBj!`ylYWArAVk8_5sdrA8K1l7Xn0mZ#XfJsuJ+;E
zAR13xR@9z5)9$E|uz>EF{9$=^j`x&ObLGMt7e)rZD5a0s{nwu$AQA6gTlu^im~LQT
z)KvRlpvKoH3zOs4w1oI1Ms`-E(D<y-VI=LV?^j;i%b6tMZrs0CxSj>AqUAHh!`Uc^
z6CkCYb=>=q8FCf`51z;>K)S55oH})C#6s9q7OYLc`SG7R9U_WPbbT_F1JcG^E$^9M
z719U@0r4AkttgiJ<5%kXgH9k8FGpFY5k;-qw|_Uqyv~JY#0tLIT9Ic1RYpZ1^{fC8
zj%S~I{5|;DA}70}R@7yFh3SN;IakIx{1gq6H0||{56XqD+O;!4w63Bw*~%m$rY92t
z`AD#jzKyS+y&L{87ht2a_V#=>>m=vKsVC&4E*w+q;%4*~dMZ@>J<eSDSdMN^Pemi3
zUz(3$c(f1!lJ0)!(!9cd@CqNnD|7)kWeBp~6#?ZD)Mi>{3dW6;KjVo-Ea7(ICwhQl
zC=6s8h$fup(*!?Kp1}r}dki?lJx1l#m{--hpKkByiN{dv3rePeJ2D0u8%Iw~w0UvC
zxJQqj*I$I6FRi;e`)fr<O70P^uBRGb&w5_F){C$EH>DRiYTg-==ZS`i=W?%&v+(Eh
z_w2ZC7#!!Og__(Qv{D{%_I-(8liC|Bf9RNH+D)UctzCW?Q{$MyvG@CCEreQZH`qO#
zoiZ5QBOh4>hBUUErw9ckfQCxvE$gIYxs@V(5}HtWN`s7(kO6pBK59x|MUS?1-x{zr
z$xvcl$?v;yKj)2RKCZv+bW9vNtK-=sWcrk`@p#IDlJ+J>ORG;mIJkRvw+QElS!>ko
z&AjcZD-x=s<YRtP2qh;HCgx~N9ru?)q3%aGO`jmwFESnw@YiqEpkA`K7T0U|z`hro
z8R$CNr+k#C@9)}x6F(sC0OU&20Q_CzZ;B9$-T;QnY1b=`YtDa5C}*0voH7JmdMcrc
zbj+IP4W=m+fiVPhPumJ!vuIFn-@W^ZN<-NN-c%+*f;L^5kxpAL5!4S!WSrQ9*C++k
z#)_}bjvf310>T*HdgEgz!5Nd@4)ZyNm1vmN%LT$)QZP=@yRu9sB1rtBu5QTP#!xqs
z`YvOzTR4rWhBuc)Ey8{@8aio2sf|(vVmLH7#xCfrE=UB|$ggn6)sLbeMN3Cx4yG()
z)<6DyB$?>2(QKKdZbUy~0sY||<2fMq-km$M?T*^fV}3%snnxbyLr$J82m9_Di%;-W
zN3TzRcb#Bk9i{;aCmZV2>N0d_#@VJ)mv`0lf%`%`Xo`CyhrE9S1;xVT{a3SAt*mpe
zEEv8bFnQT2)9MxTOTPS%VT`g1QRxLXFfa(mT0o10{W(C;8Hm9cfM6Ljfzw=0J#<D{
zOTC8&uO{4Ooq0(G9GCddT0i+zOOZ8=f>Ofd5uc7169v)QR;b6R5(JE!RWVAgi_&9O
zy?%RZZJQ-*3|pLSWRVy}DfB!CP0Zy7%4+}_T>&y4z~Zj?9Uw#ZE*(c?LEqphwc9Cs
z`>bAnsq5tLG<r0JVgu!Pk7KU&96d^Fx)9}z!-^)sdwIWBkurWO%A;JkX}(exP(o{?
zc%T~oq0gLKbq8kD@m0Qb{Yi*(V1<B-`+94BZ|=9>(@5Eddr?}8c)6@cb45yf0$8M}
z6>TMM%t)eAWk(UQF}9&`0wE-Hlk-%$?dMv&Se7@wdRz9VJI`{+U$zB-6;}4E3F&gQ
zj?#jcP$Rc~vSu*<0ymn57951H9}uZocX>;```2jo^KBs(3Nd}-c8Thf4s0ZYpd_PP
z%G@&1RiiMFq!s&91r%}7kfPJj^0iY-Z=n&#C?muN%5`<7xZ_n%+T|vuP!3-|RDG}+
z75ZHiRzYat?8S^3mwu9vSFAaoW_Fd2CA_@xz)5a-m+7eRy7(ks^?{C(pd5M8RL~+<
zrec)bMF1I@wem7{0VJ_C#~CO@F#91%8VPgt(Z&B)xcEQFN$+Tvog9GSbZa6_+wcX<
zJs)5xj7;Pm>eSW$ftob6m<y>#vF@+SW;_xIlcJfJ22GQUv5xcPP<pTZOSUN~70#YH
zv)QQj<U@$N44$REywP3}`Bo$-!X3YU{km%+1CfLIT<}t;1YROiI|5MBnY^9WGFjN!
z$3amXD-k2tZaAq1W0(*{3vc;LXB??4tkozdQkv0Hun8Lq)dz$C&?g}i2(4{q4_1Vy
zU#YHImGDV(L7&ooS=5#(=;*b@2^aUYh}#91ngGPg!;wQT{xv&D9yza1!w1SHr(h&1
zfmK@NorMR3mMQDr%-7lP(4iApE}Y@PMBhP;e}r1o8SfXa2;YQPKU+^LI&L6(2u1Mu
z*-hpJ*P9&UY#sVVC|Uu#FCVO@)Xb$2XFsQ-_Mkv~MUu22!)By{807XQC3oAquO}$z
zYk(L<Ob3u9Gx3a6F=&N*7qpWWRp~J`-ZO>;=y1GjwJ9=Wd0}8$;1sEQo90wtaXl^y
z><bQ%qvD<aR&+jPX=gdX3iI$qZkL|1xr-ot!*II?oCGCI3?e=zAgWT5%w^PYVuZzh
zDhoRL_-mCNSG}XG%vdDvF#Hk?eDPV5ixNJaD3I)MS()t22$3XzUqXdQCUs6a<5TS&
zUwo~RG%-UDY@;-mBT)t<bKfz|GA3vEy#d(k=>Dz3lh^=7sV1tLQ4tpYa*H!b;|sgq
zodtxqa%4#}iWJ;t(qOq>;rrN*ydPl);|4`wAA8NqgdMe$ZsZd|(!hhpkT)^zv>Q~$
z?3-KvhX0M4`_P0Bj0iQ_w^NUeY`}#%Jza3Wkn5EoGbg!oz6@>Y{F?-NL8`VY48Ye<
zbs%%mOh<2ML}aV5Qu_xijO6H4Q9%DGZLn}9+~rY&y2wjQ89KCO!?G#V>`bmUNG(Oh
zSG;up{sR0S68~&F>;06$w#~c&lnGi40~aV8n#9Yy6Qg?##a#rcpel?Erb+9c&V-N+
zZEa#Q2X@qc{JPD(4&3{a?@%2nbjSJhMU%M1P_o>zBAJl$d&shP5@>UEw<a&Wv!k+h
z|7)DVA-sh#mT_t81e(TXTySS{|Jy8Kku5wa_}u6`)pz)!xa`*Qrv0AwJ3f@+Od{r1
zbc{*Z$?2`}nZQjH>>e6E{q|G$;^9zUFK+0DABXM{P(C@%%)9Nzpa0PGX69ELa}T_w
z8>g8wrpk@h+DMd{Aip9x8J*(;56V4gX!}0yfy}R-@rPE>Ym%=-v5=GhLDHJVNES3_
zctMMf9qn_k5KsXMv$)s3vD!hJ+e}+Kcul*Pgc&D;P#aHvz!<zM0`SQ6r_?=nt7!ux
zkgg&WV}R%c|M;I!I?L46hNW(Cc4Amd`<OC-@^$!z3ME%A%)GP!D@hG1%JC|Xj-f+>
z{p6Ps8JL`XV)uGAr%Qikb1y{Boa{0(%?9Dfh|n+epfa)7etb7CiV^SJY17!Y+2zL5
zxme2(J93b5IS+>b6cz|?d_p&yOA;&?;ohZOQt-aPMOj0R*J^?h_x)SfCV0A(O!lx4
zH$82!gmp@gCG9Poc-8hC9jd1&_e?+rDYos$x<#LwPX9W^K55eK${e%mzk9}J9D$<N
z8HBRLPpv+J*isT(L|SyH;`(h?qXeE>hbPfsP7Vw7R?g^gIkA4DMo}Lpn04+o*(jm9
zp>$is{`6^lbo{fhBa2vmG#q;v%sMr$y<y#Xr<PbYNxiUSwv6`4?Crch^6M<y=N>VJ
zT@4H(&Asw(C&VHQDk(@WU7K$&vkxef{}$>Y%&}DT1|qzI1F(s{XEY6m206Ni?{Do?
zXZy9@cOH-EJj;%<<XH3H=}UEEVm5-6QPzn$ba~@oE1|XAGrN!5{}z9s{n&1zgirRm
z<evMoWN80goC#F(cj9x8K-i;f7wC(FJ|!{NdAnp;uv1MvGe@<rfD<7^j2C>O9<#o7
zK84&8l_WIsG?3fOCB6oYpxW*Z<)wThiQR(M_|B*~^i<=+cGvXBZcCR&ezIC-Z8f(~
zM;B%7@b@eihX`*Tl%$az0S`xWyQWy%PPcyHEz_^*ur3FNbr+q8OtWfO!ag?<x5Hws
zR0|q#>YP-WP|QVbHO(;$SW1L^()2@@Cr_xE#1lT0TRZ$cwRotMn@CVw<qafmleJT>
z`*8M-VaM1h{atd`50@&D9Ahta*s*dpQ^V9EnZ*H&wRz#Swr`~}lqLb8-+%+-=-y?x
zf}hJOxyKZ)rkW>VSU4R%LbN;2!suazH(c!>K{p7fXcM<3iH@jbe&Bvbgcp8!%VF3n
zDdg?PPg(^Z^%nXwb#B1)H!Bx3lZW(ux|IrR>I)JdQ`inH7i?OqCKB*1^?@}Nq}Tpj
zu+9hnP?hP=h;j8~pER&io-F9ox3A%|QfjDw@Yt`L<gsRp2?EzAD)1>US2AJ@A&Si3
zvBq7{6*#p7Of(NomM!ojZ(=S&#p6@@$|K8P;V`z#@wc3ZSh0pGp$NR;8c<rkq|Whw
z$}h$3d$`TeVoA0bRy2L)_)3~5Jss=t<EjC`oH>trRUM`OwIw;senZ8E-+s#n8T4>I
zUslfcjH_2yun|`9XSc4wc?}a|?m6zh{-St!`{3J1v4;6frmOu=LWC9mXWjlqKTz{Y
z;=`QZxkBy^1G?0)$ZxapFz9R~y9|!!T{Jk(V-Mf&wRNz=YX1<5OxsAsusOGO4xYAJ
z18jG0Cep^M`5a0jQ??GDKx5s}yKH7By&8PGN(mmF<w5KqV#`*Zzy3&(#u(%eH7udR
z;+c>$tB(NC$|ncv>EL*Y6*wQcxXdr=uP0<bq>@mASDkRzl+dKTg}@dvc@ALIZ1H7^
z^;2fw%;&m!k8Pm&lhqp}|In1n(|_i*I^!7WgG606KK5Inj=Ulfy8<aD$}5NzOA6Ap
zuN{6-Bj_x_Rg%vd-u+~O4d)??@=eiX&97@{SKq;U5HXUtC7}qE%i4p|4*&AqGp-fs
zq*lAKhiiUUnO&UTUlDx2jMXBlL>Z3ja{A?2nK|r$3^hpF5HP!&-#5_Q8}*IoTofK_
zYy9?-b3Xl4fp}Z+9z_NR2iG(Mie?w&73ZxdcS0;n*^8<nN#|jJH62?=o>!T56z-t@
z3bBNu1u)Do;WLNs`EHZuRfYc`f3C&+#{=+61{q0?XXmqwO-I-K@iVz#&59*XH1~?I
zec#S6i&!Ct>RiSd^d;0p^GF^-cqp%K*}nbr7zfS2<PC<D_Vtw!<2A*yA~^bN*$`#t
z(={q;DZCK^L_qY3jhR>mGlrhFs9<)NcumBXNty)hrU}WT6FHzm&$Gv$k;X?-PXao9
zr_dUSn^PMQnt+LhC6~VBMYSSi?tq2n`BQ4$_5G|yl15H|3q35lqe*aYBDh2{E0$Oq
z>>FRemWH8km9!keYh|~l_obgR_PF;q?W_ZpC-c^dOGat=`ZjOh{y3$yRX9N%k2v58
z4=8J%tGRY?d}pkXv^*rdBqP)=!QYlEwkaw5fWSKtsNG1%*yzzeh<>5m$S8xz>=GRp
z$`?7hj#qMlMe8m`-kCFJroR7M(Rs$!HoYYPd~w`Ul1}S3Y8_4)Z#rJnC5tMmpf1(H
zZU#ufp2`B>uzo#8CRmAiprgRc-@tkMkW6YaT@{tX=k|>nHk4TeL?~K@2u~_|A}_O~
zC^NIPQ$vN;1E>RAkflg?oY3=FzyF@LI6f4t&3bkXIi%InMQJNXA+@2N3Y^<`*%ing
zQTh@i<tY<YG)lvNhvBE1ReyEcHTxS9Z|_|`x9!Fk*%Mgk>k!hCKGY8r13H^kGJ;@x
z$6*HSguE#HhV$_%qJ<T(Oun?V0LH-50!t1}1M}2i^UmDN2!@?@X}SMP+&Do0?teqv
z7-wQyPm!Vzl8)9)D?eAWuVl^E4vq?UZS6*4=B}<E%BjH(R4_IcyI!$GQ@MMjWR%_=
zb>`9U$tgxmw(@B_s}4Ne&%6CsYV4=1_J|x9vS|xi53rclW@DG#f9Wz(56<3i3KfrL
z8`j?LvgO9LNp|(?cYjzE)us=0EN9?95M+KIfT1I<cGHYnQ{|b3Mf}w8fwlX;B#mV~
zVu>k!nEOdPl1T64)X{IV0~{VnqYH)?|NiC=?9<6;19Vkr=^p(UwEBpw*o&iAWA9>H
z^a>5EMp_w7ZDW-evu1zi9zA|HJJLC;S9J4vx2LY^5PpJ!s2{gm)po@SW<+yt1VbS_
zx~<nuUui3Ii*?aFUPu{`leBeNoLyiw`JJo|p`dt3VZ&rDv*g?%tYK3T#jU8e5eWw9
z0z!^Oqampb^!3tI<6iiEA8uvMmvejGs#V$K`7Z`P(8K!?crwXn&V<1OulGc)2i$$*
z%fiQ}eg;?dgp33!H~o>cWw@*~s5C!1Uh3>TcEP#Pvni^tw-`9u2y3;Bg3ntS+`SP9
z1J&Kv-u1)p@o_snI{PmWn{y8U#3!*<Boo~{yYG2i@Of%^8>8Y;>;xNU-dYq}F{EKu
zD<l}|`{T4UioW&h%SxUfEzY!_tKo4*4Z=!lzHm1bey-i=i|0I!R7>F~3M?5ED*9^m
zIV74CfAeVaL3Dw_rBjuO1q5YkKe<r6nt#%0ro2v47|eBY3NX~Mcu2)a|JrL~bIAOt
zFvUFz<{s_Sa97cfS8cCtH3hsRCy>$Fztz-=aiz-6y&4}KUF#cQ!nlGv2kYdIvDQ}}
zFwUqmmo&^hx<qszxi$9R<%DU|Ndcye^I&Gi=)nV9E`kY=d83<+V*kc2qM}1^4*gJb
z{wjP=%9|EY+)-fV<9`mI!c>QF{#~>?xsOhOYwdytE>Les!%l7WjaKLwWR(5sc-DI8
z&~F#Itl9rQuB~!@5d3p?O$Ig(S6097Jd-x2t1p0{Q#6$jroY0`5LQkITRtQaQnqT@
z((R8laW5j+l1ad=2Q3<KfWXcl^?v+O=gCzkYA>}6rA*lpRKtxc6p`Dt&go!MormN^
z9U=h<0);`)d5DY-guxjybl(9*YYwEnJe3R=H|W>z+~e}~>+1*)jy@7n-3G{vLC!K=
zm7t*8`9UIrk*~;WFN+jwj!2R!@-le<dMV*Ngg-~5+mH4vY5bE=x>gy^F0lYetoA%U
z#?3VK@`}^)pb|KMmXz?8D47GcWryb2=E1FJT}X0Bs^!7-$p5*>sdseqX8(1;2!&*%
zA%74pp_d;JJ4#7FD#)=~_qXdJ4Q3J23zDx;I%Z?!@hev~1|Q8E3(~lpG~X6C5M5f$
z*Z<G|yd|Ob)oQTi>}8iKJJb%>#<;Cf_q>#CpQ5I#1CpEi4HG?pY>Zkj8aA=wkk1Jz
z$oGnW;g9(5wARjS6L@l5_m*hG4zu;2c+_?F<@3EVtUA_Ggf|yqoItti6iyduEWB|(
zmK_!OI?caYQ_Ii-esb%oxLOW}C^JG-mcoS4kW~z7uBfv6UZHHVgfj$=Xq=juHl1>8
zUctIj)8$O{qO&n0KJ6>xazELHG29^Np<?Ic8lN~<FRPo>qBUQpVBz1s&1(7I`RCR?
z5>1kWd<{%{ky>{;0WIDb!Fs5u(+RKYt^(;i%yTHJ2=DVOj5t6|ozqXD`xi=+MLxfM
zdwfNmj{aHl{iGhbdJ07+N7b)CYfk_F6+MzhVdT62zT;VaVd<6?B!fbtE7NBSmidJ;
z@*#yDc4_?0|B-fu3{f&kkSj{&Kop;zKF~fl{zJjj4#giSYNUwSl@Og;<>{aZ-xle4
z@A%!4<Xm@WHWX2_3LQfCgt0uFzlFuG3Zb0R@6qE{eo-T6t@MIr6+^gb`=^R!NVvFk
zGDUt7<wwbzzQ`S9a`&BVgJr06mWdukyM24RcNy|pGy<6SL|#fviOya7C#7|LpWbvx
zbM~p)N*jDEGVShddlMZDV#4*Ols0bE=%HKEFh<3_ZIR@5s2=+p!pga~5Tda0h4AUf
z+mj2!;fP$|N=4xi@l?>c3%m(&IOd%hwI%w~ZS4nHQt#Q&-a+u9cNi*=HU&}u@|`Ki
zi+E8&ghav^NE|FsOb7$EBJJwFjl684NEuLd(Wc^~Qyspuj&roh_AJK+6hUPvP<Bd)
zs^yduHarWegT*o{`4e?ETc<fK7IJR;RSpW60YZyfy#r_``c5`}F5%{Tk5;fVi@gLy
z$X3w5rN&$=K7K~4rf@h-%{#tjIKdg7?@lM)w)Xw}rb0`((DqPT-u~h%3X327Jnnr;
zE$Kru$NSwy5icJL20QIRNgnNro6-;~f*aO&cpkZ+(KJ{}PJ}cT>JU`QI{DL1+7HtV
zK@Gvw`qX9L*AgCeQhEN==`DRmDwN}_pZ0$kkah>N(uBXuSw17~FF922vc_#^?OHX}
z)yJ;l9;=n-S8u*|tcO@uRmsE##QXo{z%uLa$1>~xUOqOf(CK}>R>m6<jm$Iaskrxz
zmTu4Qmo-dt=LHWK!#G*@!ejk7j&8-#%9yJq()royNL;My5D=f0J$ENO*HJhd_)L#-
zd6`sS5guWF$??le&)j8~WKa>9|7}(=HMg+xy9U^W)hdFEQz-S|vi_6PCUdWUNb#Ge
z!~x{G`+K@gYp%H)HhuLt5glRHO%dGPAb)@EiTrG6m*djofEV^nzlbwH6nxb_tCn}n
za6eSN<g4GYCOt<K_UY`=sD7)Sb*Egk7<7A3RxQKmOX0_jj(0xw?)U4VGyL>lH4Sgy
z)wr91@o#5-|E|yPR}F6I-}2hy_d}yp%k4`&#>{{Cx}sv8!z>qd$N5*rHA+ex>zG_r
zS~2KKdH0|_1B<RC6n^OBxV4e599U&Hc$3g)7gv{`fwvd1(6jyQ*mS*>RZl!-Ztzj{
z{Oa^ucJt#)Y6YKZ@M!AveF?mqGy3!IHGb`x>-y8?cV<3SmnF!i<Mrc9)}(h3bLO61
zM9X3P`ixBo7o&Ka>~}P35?|gwKe9v4w(Bok&AxBY;BIxJ?_BH@;bYgv*w}t9;sT5{
zKkHb}Ier1IO`B-DTvJo5y`p{-!876Y4EGBgt=#9)u6}z{<coXO@GLkDAo3&WXk8#^
zXhQ6FoUo4a*VXUa_o0&yHKKY^)!HAz&7L%RbU|S;rH;#q=!RGTEvD>QcCX*;_;XWF
zh$vq(9R=eX)Qu<;a$jl18fwWKQRfG|rcKsIDl4}80S^z;-l;=qVzvL;-s2s@T6Kuy
zz5R6;1pd)ZM`5sT#)(wx>>*lwcjov$$LIjCMqmp+T_T$=UAtL#(ZD*KB0V--OVEvF
zWGf}3p5vgD=;_k{2GvNuUX<*`k6^9_3#>gLZN|1nia%N(kGW{zHA<m8#m(7oRs1LG
zOPWtW^YTd4l}tggZSsFG4X-ULHyr}H0Ta+wi5)Vr3U!JYLewGLN8c^DBCm6;{$v*q
z>x%8<BYkkX*Uv4!U*qf3buJ<lX*Iyu^->pE<-P3^bQhCHOUq%dQt40fie-D0MjZ%o
z>P7bmM5KBu9TR)vF3-?y$q+-T;d<`RHBZn*o}f~mphwdF+#=7F<sasv0T_k6Z+Yx4
zU1A9k3yljLIz<2|%6D{QS_6!Ij~HR%_#=?hz%NyFg<$8Zi~H(Mv>TR01NRn3<cG(B
z<g_7xIjNDpbIOAsta?X^@<tgHTAIXO9euLkTEg)i7?P)7bZ_vO>z>MWZ~BG+2CM$r
z)B9FVF)^{f9PSjj^4Q~*`1tYw=Zi0ntQf)z7`|>8$9!bN>%CS#_x&>_^8n!la<dD#
z#Uk^_P1a+xw}Y;+p*`4g?`v^?`xgb=ObTo3UXSu-Z0DO@W-iCf^5+VV!MPxG1@J%s
zapt2Wr;2S{($jh4Vqtq=k@=$cqxr#KZ-FM&eC=J^?q3z-q-Ov2&k7DJ&DT|JSw=Nq
z$2xPhYQB2atyP2JfdT8+2h^(h8vC>2pK@hJLs>R8U;oPwZ8cm3d|;{IaAe(#c~(dw
zgGX#SoXw`bQf-?%_HKN={%2izTy0v-Fq&Xyk4~bQBcnfrfT+_8vE?3zshyziH}64b
z32p6qOw8P6ziPbd77bW?<B*iAbrFzFkZA7Hi8|Wa;docoAutH@aD^O864ic>2AVe+
ztd?wcNZ21$lGO$kmHY8A?2B|A>QA5nk)Won`iMp&_@_Nt{6}HXn`OsgCS580(;8uW
zii?Z8CNdCJh7qenpvm%(`82p`C7<s1b2J~J-(;NiSH9#Ks*=%p%B1a9PZr0fKMNfQ
zwiyEGxa!lA$}b+sb$^wUSpHG6o57SoV3H|X%nx42k|2ljHkKsKqLm=781X=Lnn2MY
zqP0@3><Q-Rmf8M2MXtYYCCUhDCy8zX)^-Q)_Rs6jYf`5ET=RL=WvccF&T(~!>`vgB
z>Q97h&O^?s4ncYP7T4;+UCYE~+;YOu!$=w`-d(~DEzLL&IP^1YS`=`F-u;uDgo67a
zDjj#SLVTV0{Zwkv%c8QAobM6aMVEPLt2Bj+n$&zI)=CLwBOySQ4AT)w?h>}=s~uK%
z9JuJ<sN!-_+;W!KE-0RIaZ2Bd)Ica^y^|KhrlC`uwrSr3%?!64S!Y9*Zi7Yjy}e1Z
zwk_&{vdADdbqGR@dGxpf2I#89QZ``W)LpN9s>+?@BU4*3%7wdVG;SZvVLZBEhX8vu
zj!$k>DZV^A$a@ycf=FW62dSv|AFzUpyprV5Eg=Wy4&VjZzKk1-?~<#OCdrT7>zv}K
zJFv2pmptWt2Y;xU^KG#KIh4$m?s2AoHdyo#X9_^Eqgor=g|kfGLUTq=zjQvW3Z<z`
zEffS$(mRl{?&^~yZfvM0fg-Dle=~avs$TljG1mr7Rs8K9d5dpO^K2F|J2eq=R$VCE
ztm$E%nE}_Xs1wAD9=H@E&E%=1th2gcob!-zt3_dJ@Z*nRcikE`Xs{%+{Sqp&(81rW
zP2#~~zw0A=g|ERIQJxIRS_K4#)Ti|maR>vCj#lHHkTl(pD`)cK@`JQs<>Hwpaqrpr
zQyg>h8pWw66Jmk7Z@+N8P^wed&BSEFfCDE+S6plRK<x7L|8J|MtM@hN*6(pkzEM~V
zXuah|zFPo)bP)l`GAMA%(nCQ(MW+j7`*2bPY<#w;w7yd35#*tzsGWQxw`n@)t38jo
zIxbzw<qaSEM^5sosV8a`2-WVVqq+05S_2K#F8#>D|Et$lOEdJIFBavy4}KPE3d<wL
zC@z~mF4gHvuct18H)-V^$X|zlt=SP{_rma&ex$nl@+^tDC+JRkswCV&jCp(>;b?&Q
z6!k5uW+Mown$U*7jWyD2n^${wN2|tc@}0U!8YbY9e;*ZeE#~O;>({+H2C&3vV7~O1
zZG6!}%?9l|?ExV!FT4W*)j_!4qK?9=?6!D0kj&C-O;!WKooC&CCnY)C+msg|G7l+Q
znBXS@BvH6aW&3bjQ?8+FMa^EHu@()QOero+;?uQ3AuF=@EjPNNAw*6BrZWm0B@IzL
zfZ)WC@3CyLvze=zwFF%sLX*NdjymvH6bos9grcG5<ypPX<w=4!e|wT6GH{7)F@g%t
zyR<hZGf0Gr4Du_Y37CjN#pu057S=S|d8dBlJu9vbW#_R1ZINlnlE)1M{E+{Kb4TlQ
z>Opf^qP38ebV;J`SU{MUq()1kjSK@423ZWoC>?l$H103il<-RSsqge1PjvhKtTr2)
zzf;L`$=9M`HT$}Jzjy8bqr*|2{QuIqiv+crZA3T{QtJCZp45B8%r;1hQod=iV2d26
z8>ugQdURr~K7^0=fJPHI3?07!WE5s&=l}5gpiJX8NkL-WgIBD3Jc*C|7A-vuSgrg?
zYIy=g{`mP~lJ7?J>GR4izGQxzjlllFc!BAG>MbxLgJa%ed9UDVkA*o02owhMkHF3P
zayGJ(l4h@(zcx`VQ4Lf{BV-#{$kG%(SLQ}?$3$@?*IGF3`JhZ0c<^r7DrN28QO*(?
zIHNL7TU)#A*~uwxkz4QnWV_gFs!?k(3vgP>+htO5wePl3nzN6U0RDEE1shKLBu<=D
zVY4?Qm6E7bO>!@cn((Eei&jysNx(luClU@T{4YGO<eakSyHLKN<FmM$?(cM8VQ#{z
z6Yv>QyY`o$HZ{kbLNQu|VE2Q}PKwWN*6BK{1|NHi-hgxVRaH4OdFY}cDEnv#hn2tH
z%?7@I)hgT>VrwSKU0wv9=yTkyT93{Tb-Q^Y7p-%X&)NoKM+8P8*5S0!M5>C;Qp%N`
z-hX{7_jVGmYNYan1B@>;u{%3}Mo7>GqJiKHB;k$VjPqT?rX8m72l&^k{4ltcO_WVf
zfhCgf_36IG`G>I^PA<peJaTKB!|Zs>Xq&{&^?(BIS)%<#ch$+uA2vfDi``7@NK_v;
zJ}+*wk<jW;q=1o_%TQ+ei*ZN7mma^HMDfIjAcYcEO)DhD&za_gp58C-vY;E3>Jcax
zBy>isfh15-d`GyOY;7PPIBGW=k)ohbj=*Eh@m=s?<?1CKyY5sBD#^LHx7_}{M>J~z
zIoUQ|@ry#qmXTTG!n?j3)H(<MlAo>wS9q7c_@ibaUbu(MuZ?;uFSUH=F;pHKbzhNm
z+zXPR%U`d019UY!=uz%PPS!?Ui6XnvF~`$Ow=K+Xes2!dzPfE$U5zKFf4CcW*)FXD
zUZ_9LrOWn3;7n~HSVrQYNUKEZ`}yf|tSx`DZ=GDI+ZJ2*NPO|5E>ZP#Gc|qga^S*+
zpJrqK;pv$(7CUMhp%2fC3TB>tvXw_#c`l#cughPz;NTuF$4b)8$mlK#puXIjUp>9J
z^b3RBq*+cof8$=n(4a{^C%5b?YUPmgg-WyhV3_V~SYT6!ikJ3g*L!URSN}!5<o(ML
zL0)_6YI2Z(CeO!8+Vls{vzHuxKx{9r52_4`4J3P_&{gY7bSx*1`M#Th=v*ks_jTHE
z$8v8^mX(^6=@Snuids!aGq6aN%>0SkkIwgLLqLisa7hHFWa52{qncIg%3M@|;vsb<
zCE^yoHVVDMKHVU?KJ4#b!N8sAQqPicQG%<CY{V$CJMcIP7=;aR5o)UkN1w?^LRe|(
zq)5@UgixcMjG1}89^nqebWJf$dWA-SZ_c_?UdZC4z7q(G5=}^DL5O%wsnu1b36=>1
zF!oh+Ur8ds!NmN5aBZq&w!#>skqKW)a@_KYJeKr+75`GyaFpeJhy}m6c<9QKJZmw$
zg6E5$OyaBj1MU_ea^J0s^epw{=Z;z}Zr1c<;n!etW{>W}tfTyoZEXEtk>a22QH}Vd
ziRvb|$?blhMW4K&`_Yr5D53B4+deS#UUz#=uT5=V(j$M`pKBL*K6{_r%DCuKtbCgK
z`%>TOosg<tXM9<EGAwy`O~S=04$ula5~hbeW%^BA-{m_Pj`+Orwk{)XN1|#QbqO)!
zg^Eg#dhYCJ&0Dk(HG0wo@5+m5AHAS;GNxSK&?=zkDuOmk_f|P76K~vT%U(RY8adMH
zD~ru{*P8w)DIy^)w0Q3t?~{AnqpvJ@e)-AHIa{$*<yWb{*rDa?^4H#<mduJsG-~=E
zON{6%)rSkU0tcGJe^RFvL_duXgUiFmXx@P&=XzVczW0}1$p&th!jF5|jZ58ryWV`~
zdA~mx%{lZunyCn6(CS5xVm>c>c$*W%PEAp6Kc|A_qo*QtG6d#r*i(uFTj@64Ki=GH
zEbNgkQZk=Opv}Xc#$eds=Ce<Nb8bS(FUB9*s23$|(pK977kMNMq-JzY=ybxyB_h2Q
ztZ=^#>sM^-@mu4zT~(r{ffl%vu^5=Y%0A$lR;B%Wkt^x_Rdn$awWOb}H0rhXegCb8
zc1?GCb}ovoQLp1FK330X_F>~YsFFG8Y7abZe$DZ$%AhKPdpIMh(RbbMJUrh=<V|S>
zc-hq64IWkQ&yRNpDe0O%ePGBc(h^s1e}albl}wK^^eLk9>rR*0W<8%3UOb#hq2}f9
zzT{925gl1)efnll9ofg)(h;Ll@Rt~S|G3OE-s3CdjW^W&5^t#%>m|x=TQDE1qa&M?
z#xTllk1mNqA!94!QYZ`5UyXe}xIAxERI^iNjI>)5bZy^-D`gFLdfr)Z*_tMtpdgrl
zpu{;&PGc^%bv3rjj~lwsu=e67aT{VQo)+a-?)3B1%MIupG%&hx4k2zAV`V?TWxCjI
z&3y;Ax~_-DJ8kmVXgIib<@O<k#c@S&jwzCaYZdS`^tkL|V`j3xw4I2(5d7$K8=sS*
zE*;#xjPGpG<Zx2Xrlb4|2wD1U>^%qT7v0xKFGvRT*Z#}K_-?Bii#XS>K7GE~?&q<#
zS0Db6*5pG&r`MPIEH`nu^6u=RlUKu|3ZV5ZXUz{l7aUNq{&vKLtTTqLg}2}K-<^=A
z*M|G~7;u1S#Nd}7(78Vw*tK8dUnFZVFEgfT>(ZdwbN>NGGCs4%c8e&>+C4>6m|Sw$
zu{oJI>E%1CB)@M*Ibu7#O3T>;n=M>C0zgb1!YNoj^rm&@C0FJ1)J1G8rs?I8<1(0q
zrb?C#VZf7ySq5J3U3j{}7R~6S`+0R_)y;U!GStmQpJW9)LY8tU_4@MeF^1EgJ49FC
zDz@$zdi)!3<D32*k#T2LtH4Tq>um>`Q4kFyazwr8dB4ImiO!bUkJ8;YKXpD<r1Iu!
zndHI7zw%vzXGx?Zd3GvkpED#X5YsH9O#vg`{4D{ePZ@2R)*As$LC23&G1)`bC{~eX
z8}AR|>>i;DjXVCv^Q(O<zQ!B>k#)OWsdb-u)Nt8(W=y3}Ybc|VSHr)dN_=>+i%nF_
z^l9>8tiee*41HRQPF|mONxTYOx60DfQxjH(#6SiNi%UtF?w^RrCqr+H!Nv2ZO$Z1{
zmQ<G9Hx-4@%7w`dXfGu68xlrJ5Rj7PmjHY6cldlg%D;&KiW`9WrW{U)ihp5kz8~aB
z+gtL~<s^_{K{ZiU+7U&oUfpcc!F2Ux$vL2ywaIg9@Mr!dnvP2H^B)nSr2FjdYRaJq
zG7h@tI{GgjQCxbl&N`QPNlg1(lv&g?%W3XhF>A}fskkr8Ppta~dehPs*o9=N&7G6}
zv_nj8pFg@9O|bqMFRUyb7al!wL|oV^ON1UU2=r%1WJuG~_*JneCgaZ=E~fH$(rar&
z6I;u6nju0I++r7DGa_4=9&{q*v*>M*{^ZJd*?F;OxJBd4To4~rUQwhRz!Ql;i5jTg
zFwb*Iy&YD(sEej&yrlFq$k~cB2vY$6gY$a}pY@P@Hh1tR%b-!6?K9i<b$ko8WW(t_
z=k#Q&6I1((8anyj4+WKl%M(6cDmwF_^rF={IzYjg0!$oixGhEC$uDE5j7R5Gn9!p*
zjfv!XDv;}@f4VpLhC9OKO%_cqYMZcw2M^AekZ85RWweg5SC-4FnZh0lzAHI;xHyrR
zVDWt*vyf;Zr2{uj>^WhYPtLpBk>f^>-kIv$^L<Q24=ge=*;`_0s8XcO;a|k~Dz;Eg
z#T8z|&}bf}un=cLX@=VlN<oyEpI9}&FyzYuI4!An&(>SSc?h&3F(n940?7Ure+acz
zeA&w_lDCLtcjlXjRc){dN^Og9A(E2-t(7OE4TXvTx{e#3^RmbzVjd8`ScaeiBt3~s
zf_QzhsIb`$`_KBbenQ2SWd-{s2MT13KG>kw$Ns>jqbJnt&DM`Mw=(?nc=irS=Wf?)
zhVoR{I>lb*d||R=0;9k0TsN)QGuQ;)f@nPgiIGua^+G261LUenh{w(t4#b?#W(5QC
zM_`NFLRipiOLkCPpt1pzRG=@!v<T?4VSSxrE9!ll=%>(S1;vxN%XsGX;AT4Sa)S>N
zlq7>b<8jE<30h<Mm`_9iL9ov6jLM95X}~G!&Nr?<X|oD}{qrb)8hv(G1P@0pD{m8g
z2>;MOw+h%zr+=Q0l<5EKh_!sO|NBk(%W6f-pauJNm$!(Q2U3j~|7-N{8EgLwuNMO%

literal 73739
zcmdSBbyQVryEnXSEZA<hf`Fia1rka~gM}`T?iP_wB^0D|3s{IEAs{J8gCLzM3Q9{#
ziwFpdQo6t2bmKnXA76}f-ZRcSUdH2NY*=fqIq&<res$e<739us-$K8IL?Ue`pFg8S
zB5jByk=8w;+K7Lt-O{X&-!@*7Id=xX<7@78fjfTNY<phQjzrq)P5fHp+xNqWMA}Cp
zpE;>={n>D*ll@<+T`NE2<6e2ce0ql`a^IIb@l^MC;v?_e+Q=`s>B{M|lJ7i!>{!}-
z_<?9N>#f=kpS;g$ZY)#0;(zunDdWz*_z%%kA;;KnNo(9*zm_aajw_(dY;u&n)-0zK
zAlEiSc_tp0Pw7h3Zkkb3bzf-a^fsXL`gL{qzn2;+xm$n#<<5omk!x1}lD&_#ef5to
zH>@#T{i6pbmE^kBKU<z8(XamT;?}iwtA8YE|KUO03*zhZEfU{9e<Ho!{hxj5*{0{d
z;)$O>YrHQjGhdpY>fxfUJM8c8|8(S_fPk8pfy&d=V_9isD$Ql)E6YnE$BphePYuN$
zlnr^hAadl$k&d&xiZt|b3dK1JCE7_1Q9t$w+D6WGj&>D^bi6;w8Wb9u6cfXS*B)9~
z9$R^<`)p$^&o+m#F5UF>^!(*{N~ta*NpkNF52;5^6a5=DJgF%D`t@sLww1Q-wN8f+
zVTZ)x#h;bZ>*RcVS}3Y!W(m?VGOWg-7mF0yJ_MVDCoov&p5!&Isyor`vU8NBy{6k5
z-@qZ;@U%_ckln(N@7kzNm_xJX{MgE}ja7TLtf!~v{-&rQjZT4tO+LzpyS3xHQ<?^c
z8kUz9s`Dirh8k^Y<3444{k(owZ2a}Qt9d%o($e*=Go2=GqmBhhqV7%80goT=A5_`b
zGGwIwZfN3VX-{3U<|`E~t;D7zb&FE3?ai)xNFL7TNc1ON#P#dmJGKV3k2K$0w<*)O
znto}n)?IC8w9}!-lXm&wElZETv=~0t)HGKFa7?}1DIYHr#5L5Ola}%7RjIE1zTx7f
zX>A`Sv9>^?27#L^8d>H6nllXz4Y*}rPT1gOv@%T}vkmqI>8oA1aG`E7u|_}3b;I(0
z<EadeOXW_p8I@ehzD#0l<Wg^%pcYCBMSTs4YUkRz_*Yd`7aRub&+5A`Ipp52kAFaS
z?CtQ5@gL>P-UWg$KlN9KHl-V$TbgW;@8PPj*<zL46D(jABIMfX&~ijXL|ZRS-OJzu
z&$hhIQD;sXtDTRBvRd?>u)QxYrz}p?(u9<!?}&;F*Qo676*_W+oYU#3{ZvNzgc^0w
zt_r7F_vHb1HnPOZ;;TLHHj((m*GDQQ)P#wIo?Nq1IWY0D@2c5AO<4YDKIK+D4IPgp
zlkcGmu_*;X`fjZqH5RFPWz$nmqTw5_RdSiX$PiG{(1=gb&PkMy5I5G!X-~08D^e4W
z;C^s`I%3{hUumRWL$G3AJKeVDl%4bP;+%QI3!mud<dVPAqpg&%Xl-3=wx^_i>+2h=
z<Sy}N!^hLTDjarlB5zspaQva>xv%%RGp*VM$o1boKB=5?o0d5JJW;*1TZ7qU{A8BX
zMjEE0gN+Kin_^Rj`zGclzd!fgm?GjI#gkkpRs8iHM`ON&1-YKpSM(IODaka3O7gkV
zt_>R)slEUF^UuZ<?Gr^S%M0`(j>$q}by26=a<3SQ1^z*mR?&9;(xqtU>EQ%l@%i)E
z13^M#3u7fMaS?7>5og!aZwsp2)mWORnxvMUazFcScgE{4b$hRM>?rdiJ&K77cdmHG
zB<^xOC9ua<@K#sQlHo_LmHC#E$$A;?;4zcxkXRY+qRciIwQ%p}(b1FNp2$o4J!BMm
zTdKDv@-Yj^M>tsA)wym%85U%z27RQ#6+y<n@T<j^tr<K48>!O#{Qk5PK6Wg<!*_80
zO#2zOg@x`FYq^yk8h0xFlceu>N}q<Bk`9oIoTuvdm^|Cj|EH(*SXWX0Tz_cwOis63
z0Tb?=OrUPV#5iY8$0a%W;N$Q8j+013v};To$u2I1^V1_1#of4ZbTaGsL}f$xHs@E5
zzp54AYG~#$zPZp-<k=e&iME3*ie&QLKyH1m!A3#Kj~_n_xOR-UPuGZyJ#C;7n^d5a
zQR2l$&&NZkGB_rDZIp3xAaIxYRVMM?2fU53GPLCSKu&G@?{)iSD%X-;GULr#HBG{d
z<d{VqkA8FMcAW`(As3d2O*@p?Ag6rl)GfD_g>Fjm!f3<%6vcusJhOJ70lQ@Cv!QQ-
zdYYd3r)W=9E&q^^#L><I3a+DZxb@Z4NKUt!@WW1&S95X8*nI5*^8)d-7K_wgpA%g?
z5+y^4NmaG$^l5eN6$6YuryF`7ln+lXc3nu+d}T~joei`)kvmwWOyA$z#m>b=ZML$V
zQLs*D0Pj%U=RW>slQVu1`}6=CTfA<8WBx>qNS1YHzLu|1p-s1V(d^gz((>{xV{S7d
zb|q6oO)|JMkB%Qdek%2xTJwI9FxTnUetS7NxxBeuBksQChSYX;T}}h2=wwvpwqn;C
zo|Kn{`i#Q%=au8+nqq_W5>dxvU%X%!6VpvAnhueBCaCz_s42#EL!y~$dbCf|i{t|b
z4pe;jP<Lkst9^~oz~TM-PsW8ghNKpZ3KxyP-P%^-?tZ>9p*EW?G2c>KPVQlz7^ikN
zp9J^Oqsik7A8KoJ9JDJE6Ro_oXxQg#I;?YcbL%DF7|lCp67KYZ*fV){CSvp7pU)2^
zrJ3vMakS;_DrexRl`v|WVpME5l+|sFP1WcuUh1uqj$>jOXsJt;SX-&wpnf=KMcd&*
z>Yb*Mg8f->UTX4dRUL<k>-_MTwJB9sgt&i(<qw^|M|n?<xvvzw?Q@ywycQzrl;J%2
zJqnHPFh9TQ-<xQf@9pBS6pASRS;5h7U*fiORKIwyi+BXefaOM~-rnA<E4@<ab6Ulz
zL#dC~b>0{&>gT)GxmJ?(GHH!*ZMfC><7|6$^X)eusZ~|iHR>O1h?CD6q+t}iI62zc
zUZvccBpWJFma1EjsM{4TcH_aT8sVh2zB&D|;stBZ$~`C)!N#5W4%x}Iy+3Y0OUoF0
z-TQ-XD=imaTc(+^)iNFqD=X{sHrLN-`Vzdgc%28V=N{69iCjy)+A8Ke$@BB)&qUp9
zeMiUaPjT`Qk8+AKGc)UrG<ChrqXn#DY`Tk$!z;N8k~<bN7FNoc-IFI5mWE%|-ul^=
z&W%s`BdBCCwxaLs*|U4_C8emSST`UZk@nWetF3s^Tw6cc)R3RkLQ2YO2Q#z&NWRy0
z2IIeW?^er8o;SVEuh?QG;yh{UQ|$ZXkbHA~vRY2H0_9}u*swRV8;_E*a#Bal{?lG`
z@87@QZxb3YQpi=#AW|dYrWVF}YOd?ll68ulI`hcF%}q=^6aC-5J&ib#N%0K{JT%^f
z+Rr|7GpzhFNBgzYmh#(E!d0ephr3I<P201r0xBbT3~o8;eswJH=_&PA4=%=5m2z`)
z`>>EFT>fw`Z_wVIJCz6dl@1r`*(hk9u>5>cQ>YTp{c2sl`0{M;qo1u;d>DyWGH!EQ
zn)l3fAxV~=q(Py&awT2Bs_k+yO`%UBON85eLXGIe1*_JK*ft|(L0d`e=*QxV<E7FK
z-}?I#Em~6N=LRB9bKCE2oSA3Oupd<Fyi&eb*!GKLmf6;=TLZ$wQ#WkgeY<dRJA(kR
z5GyJw5|4L2+$++UW7GY}`MzaGt|FjI6AI30u5(7osiz(7@^nsG#pM4GR8P^0?Os`)
z32-ZslJs>hn0_Cx_`J%yNTqCG;s`eCE92@!M<;$GBiHoy81fVU@Ngz2?o@y!<$<tk
zdLN3)NAP$I2D16r^IL^RY2;mvMYYti;!b^kpEk*)HvA-wQSyVZ^1={C8@7cS37>>&
z?e`C-N6_u&DQPl(T!rJOVq;=7l++{&(j-ppqNP<I6czE+R?8VXZzVsaDBql-9cNc7
zrrz4xs`?@nAYyqsr{p7LYRHShI^L1$E*_wHUF1oAb{SRRJQ+J;Z(ILSDz9oX(w0S_
zzq#f2wEB&JIM$W<=FUvwGaYu-gT#%>%xnz2x`s3iaP06CeQe{>;lv>`3f^d_A<j3r
z`0V}NArkJz)O&^5e9KuQYUAF%J!RFFNk*mQpV&^v6ItJG72&?@l&8Z*R=RpMqsy7X
zX=GwjIpRpbkb#MW`1tdiXqXyN@Tc@wru3yRTu7dpZgy~$i&OrEesB?0i!K0s{R21C
zs;a7_E9=o&iqPuj0i;xQbdE;U9`Y@JjwfnX9l}4<oDv%B*ch)^QC+>=jA4aRvMe(<
zH#gLll_X&KIT9Nqq_V5vTAFpihyd>hihP!FbqIS9mO$~<97gdU?{;EcC@CsF#%3(k
zOWU$#%jD8bH>LVSw+di6hfd&LhYxaI2Hzi_W7<4FT*hFNe7yGE-JN}o1rDgirnsHL
zSH9lH4{IJ;q#bY^xj)l&Lw;hQ_C)tJO0z7p`(nBdSCD2&j&)}us*kiEll$V2kP(0L
z#;jtE*0Mw_BziI2{Qd>3eAB*)0OQar1)aF0dUQGK7jszQ0fB*Pg9?&2ldbRfe9mrc
zRI$@%7ISV~6a`>-JH{#`)S6)xFKyLkd^p_YCmG+J=s;=KO22frZn>hWYMb-Z27Kx%
zpeVIG(E?wmC?=bVjGv2!eL~U4(x1D!PgI}i=dZwLX68$a(sf@S7?-bZZJjD~TOPP!
zH>Z}0LEf<VL2WbudZioYrc*J;eI=H2@u9d%7O!IeR2NDe;o@p0N?W#7dx#kU;sCC-
zus>Cml>GF7h5NpJ`#_nhpiB`=C!dm9P&J7)n=u?LaP#!n*|bpljHQJc3YIQUcel$#
zHT?<eXPlJ8YNuSYh8Oql-aXdMEPA~zFk=nL@{*>$`I*}a)?w^NjvPDA%j*+rQ=Heq
z=^gN6&ZP{inaTcsKxJPdUr`H%-)q~ROD~v@T{`1ASR=k*$y<%vV3D0}bo=VolmJQr
zaT!KfxktXaP+HPX2v~P$j99torM1urSU$~rNHoX#%$qs<(#J=OX7oxaQ)(e@-|M1`
z+fM$yQ8lDyU}6ut25&>Q>8H1|J>JZT-5;a_jn3^&Oi*Y$k3#kXS3}>TV<%hZCblsA
zYP)Z_GM8)XQUo4m-ydv_BU^LYtzu$go(|SGG;kbEa}T~bRk@N_`3Iv~Gi_<SE5p{<
zWa}J}?*hXzTzN4SV_!f8wzkQSm8`gV4i1~6xU^*V_4jY=bhP46YB#p>QXNk#h>VP^
zpRC1aRhY*X%zJC^m^Bf?WV2S&bvZr1nn9{}&#lsj(@RynwND3UM%vZQ^1bYr6vLvU
zS)PL-^=Gg%TzXOb@S|FmO{wYZNJ3Q8lZ@{7r8E*cgTer_N~7~JSXpK1hUM%R#wO+-
z;6?<SjTMX)*9m0P-z@*;xs|rrOw*C(jiQRm<xGo~8XY%p>b>TCD*gta?R<39z?rH<
ze=U!SO(ZJrwRKc~Uhml#MxS<cTy^>q7morq6^HI9K{+$4b{>*b(cTSE&gZ3%u9(Mn
zQ$m0}M1N=0qDSUc*Q}zKX?GVFUF`OzXk{hx>3%uuYHn^G&>d?)SJqW@<L}~?3OCYl
zM;`CtPLLprB2LGqsE|Y}hAYBhW!Ji0)q9Swn{hwfZroC=QQ}r4Bq1(d+?Iaq{{8zt
zFJwc#RA^6`=@ZZ4<q1-eL8(_{29vOTd|Tg(*x2B~8#AN22J{7Omt;R@SxxQn$d0yZ
z7Kqo-eO-<vK~%v8`Eb#H@4Y#P|AcRoRTmGvJgE&8p4sjMKYvz5=Jvt)=j<S1--TE$
znv)awtXvtNq*!+I?|L}hST{uea_v*1YLfYiAcsiT#GwcmC8PP*OF@2qO1)MI=P&BU
zTfA(nAptG(TIUZQv}*;jlyY=*^a(O7=fA4yzSzrL?XogkE@7@CMUtH5S-&X}M4En*
zodV?1491gaR2jIT^H0@gZJQz^xs{TYnU%&&vj+2)ut$#~KRrJeI(BWeLzAnzNnPJc
zt_00vf9EMp+Nq-AeDnI4yTbP0_mPENW?uqLCsy;iEzYu+$dJujQg!PV-oAairD3U;
zd4(r#6E!29eSwi|tE%@<V!i+ixwGI}3vPa#U5!v&Tb~a-e`1@}D+~R_iHMbLTGkGw
zP4C{nH>>bJ(v&Kqg1cY9sgqmxtQh;Wk+>HV7eWQ9pLJyz-Iog&)iiSEXul-eSf1Uq
z3CsWR{LGjQlO0E|tstN4y#2&dQd+T=LH@j8zvtD$gcOB;I&AgObXZuJ)x*3SD@!xp
zuF0)!I_~R_Z##`^%E9(OOb$6=6TWd9or2l?yr8vaYq15pQoFJh<zug}MC$kN-`N}1
zQ*+iAI@wL3l2lCI9Jtxhp##?Zs6r{=wMiKt9%N1BtIEm2hAfx4s}oD0muaZ#jZS%v
z&%A2|d$-xmkN1>1aIumim;dmP3L9?Ek>^lLj-T!kBq~r`Lw)@zJ-08jPj-pLoBaIt
zv41l6N^c{Wh}g>FL>q_<=bA_Jdituk?S$yz!*D{*bz!;*gfJ>MR}c_+W6|_zr$zr}
zqYHHkW%2j#-BZG*P|#%0Feu$<mp^>npWjG*Z^r5SyEz*HX2l>xwB^~wiR0DH-81Jw
zgI>1rp@Y5NwA)jd$@*~L_JDw?_tp_EKko{;Qc`lf{09gf!dbtw^hvTM;3sqYZY~G2
z(5Uz!A*!2DuZ-jdzI}_wmre+7eN*<5mcz2y1*<M|;1;Mjp$(_Kwk2ryBpS3#or~PO
z^Wf8yeFXgmo=!gQ>dKgtY}tL2B}=STQ~s2h#PXHWSY;Y=+NgZ+?c28_XVgT$)JPmG
zh%sNW-4X;yZ}#@~=Kckg>4Wj5K21Z;Ow=w^W`}7QHjwxjRaYDybZ27cQ_vqa&sX*S
z`2PClI^yw$yH0D8>-Cp^((V;=R<Y}^O0d_wNz;>yHD0Z^b@{c!MUu!%^>nn4IQRL%
zxT}>#Uv6#vB{BW*byqPkh?*X0k0Umuy!c#9jItP$7xmu6cAFAib)73`vx*KRDtA+o
z?ikR8@R~eao{W=FUAR4!af-}rPUG|1Dk=U@t^wUi`4wuHs}5G5u`i;d1(ejICI!<C
z_36BJ{FS`L#Y0}zZKj~x(?3;Mt%X)(k5`mCICB4jg1aC{LW12uO~2dnU|a;~c93*~
zcGGT)=;G{ZYsbuLh1+d^Ck<Z<4Gq;!t!^qmmi9udBUyBX?}dO3_Q(vF^MSA}S9P!V
zcsg+C92hQM9uMWW2yDGS+jV2CsX<;s*D7zQH`mB$A&@0Utm&NC=Dr%A`1qB{S6dcY
z<HQdfJQ&h``K)BSxi<|n^*rlO^zjBj-=mt@x&uA0CBA;`?d8-LC%qP*^pJ{O%iXaU
z{rovW17*X6RXNmC`6MDlu30OLg-R|TvR=sRv<5)L{{U^1a&tATbJ|@tbS3VZU00Cd
zp0{ZmT_m;^r&i|qzc+5*!hTIpFTB4h_&M0Zkpl<LRt9n={cxk2nXe$oWZ8o~%DwmJ
z6*L{%ty`HZK7Ra|r5D)g5TDI%&g!s>fkC^^rC|DO>sXSdd}PJ?=`#siIVkr#D+05~
zPY&)MAT~ku;OlV3U7O1}C#SNk9A7=R@?vRpra<Rub8Zb!nR2K~8ojO@7%&h~*4RIC
z(P%*&fX{LG^L{ctkis*$IHOAH%QI8nY)cgVm3p*Gs8>_X9eH+1o$6B#9T|zP3un!5
zB>FllHB9eJ-EUSSOgU;d4-9E=<g^j!IHApiA8O0CO2Q-6%1#>=rdjz}$=z>%`1A;g
zL{AN2F)K5ZPi*$f-~9_Bqq)!DG8ar;`9w=g8wYmxOUB^jR0aQ3OVvpLJ8oIr@A&f@
zxf4jrxi3JSzH@%DcxCy<KPVGAh<Q_@D#4so6%_WRwQvAU_cpGRGNSXc5{pVyp1x5F
z#lTXt#0ZrjqcUYQ&_E)|?V^^Z{;*nhGXLi6{{H@uh9;l%z0{8jt)`+PBlpGFdl{_H
z3d^|p#p`<2tNBHU#4e|2KAmF@Zn)Ov6vs)4_oeubwC7M>gj)Nt0Yb=D2659Id8(&h
z&Y9Gf^H<(T!ZF>rW^cJL;oydI4;eQbl5b(%7mVi1bi1z<v3(r0A3_PH&YL(XxZz=v
zRg>;@lE?fnf&wKmBu8SegqzOFLdl9YmrrRA6}`zAHstpF@oiJPW?w!{JcDh6dI9~q
zVR3FkRYfI+R^R2*vz0iBrH}P`R8x7yE&A@A&x(5=iey4+&~;y$5}v5y4e<AmK`FZ`
zaf+Hr)bwM%MMaP8dNI-f@J>=g#?UKj{>wmd-laS2E3M-VXMqqtWQ=4a7Jshpv5hCT
z=>m$gr+@9h#D>m;OrLoZqwajON}^e2o@hF<Q00-4<9*_tVR+N8RmG71dhA91rWDO|
zYLQe46!9dE)ZA0`3E@wHlef%Kht3OIYc>_fez21F85GVE*Kr<<?Y9^7@=UCPNIp4Q
zFcvZv#I3J48Wp!4d#<2r@HI(-6xqWH<&k{;eBFaRyj3&uVpA%fVu#i-8>a(TJ0A(v
zzi{CJ(~aR{x>r9Q=r?K4v9VF0Y<1{pe(ieV%GY=1H$L|D^=+6MO|XG`!5cSF8=)U(
z<cZHs^au#M9naj*M^9J0vhEbFY_>6SJ(84a$Qsl~<A1*1?|{sy3gzjWwowmX>2|X?
zwGR_2;%$Gf@n?0>XYX&h5yqcs7`}IaS)_f@#uGw5INkv=0hfKo#7(JMn1zIdhCV&_
z#`f@g@+1p)lAdP2B6B$>1PMb6`R!5Rd{Q^pn2NaHXnco?%<nj?F|qVSUR?9}rcSSh
zk53N$T~_~M6Ca6>3p%*Tb19$WH%=CGS{F^XS@hL+5E9ZPHeiyAUx9AE<A}LjOSzS8
zQwsNyBOjkpPdR>i9o`uApmPqp&^uG7paVWd|76MXR9a-X6o1nnLkg!2T8eW=vfHZ$
zY4xs0wf!)Zk&#Jq6;zSc(A1A<%Su=1bXyqdpDc8mI5odU%<1Q4yL^!T{Svp6i_iYd
zZnXk$B~-frvu&kyxQ^->8qsk{&q4aOW3>+nxVW72L1Ow9n-8PV@fcA8D!zQFKxn@|
zddvIlg^Amt<wMb0y&b0V+Y`e1)PSx|#7QiUpRQclmX`4B*|SIqcEF;v1m!rd^fUYu
z;FBQ@_(@fG8c=~r@ka>9Vs>^m@<$hl<HxHvlb~`2=WK)&^c_2O%iK*{uzu&ScMny#
z>M1Ejqh5MWvOWiYA1j&(pDPx~@zyRX#@!EX(0BQ9_Pi0*HuKuh6KNHhl;)IIe1aMb
zgaoS)ynu^Xw~4yZT+^{Js;nZ_^$My|h<xC+JRN$lv$}QFYq8tCnVip;`!c7!->p(r
zG0)PJ>f=e+57K1vvF^CIICUYWY4mclX(j(#>zKF8ve{_6o|l(T%Mh!1Cd3;PX>eMk
zzx4`1b5?dQ0Z{VA;cc0f!o998DZ)b{@F0MD0Gm}u?lIHD@gebPy@9GD1;;Yuyp-hW
zUp2^yR5P}{9dYz_$lc+7gX8E?fBT^|Zjj^*ZkXCwt)G5bg7WZI<4=;L6<;_nHGSqW
z!?LF<r%;3~MmzFOPVA-jhHh@H_bpksKn?0kGqEpGv^FlCw=L*|DCL3woJuI)U|)?4
zHie2k&Jj08g&_QzgH>u3IHtJG_0c+sGLhrfUOprr-Uz9$vFOG%>_M{dE}k)<@|5g`
zim44<firKna+|`YI++uodKo|5KZ*U#XWbz<0)=kdpMima>>M02Kvj(%Yu1@(`KVnL
zWIUPk7XF2XNti<*A;CkJIA(f7Mp_zPl!V!jukZ5*UxZdI(dQl&8B#F3+){kU$EOL1
zp?b!qWGS1gVEFjR=k!t?V;F^wBW<xssriXIA~}}|k`uX=M%pyuFI~EHt1N#JdXYWE
z?m;v`z8m-ET*Q}VdwuD}oHOA&aq(K!hKuo=*6ow2Fz`O#l|BE`Za~ffJc9tg-Z4L&
zi{`<j?IEC<cjR6%Zi7Z2f7+XR7gt==-icws6^+h*cMAwDLXD?jWjO$ydHbjB*Kwb9
z5#PS&_!;PlPwd$rF$q49l5J|aQkgj2N!O-)I{wh(eYUyx0hYZ|7*Po7)%9Hu3^q<!
z2-tKnHdYoLqq6Kh(P4X<PG&7Be%CrGo*UDar~USS{Emv`^OL~F#$E5;oq3*{o2wIo
z2TOnK*fHaL1%2>N_MBw66ZG8Y{L(MIzqh4Q0#%5&I^Tg}sSnEfm{4rFTvb&3ckJA0
z`0m|1I*`Nd6}>;MKiJA$$n(uX0!C;V`mjy$3WP0=qcYIGtN02WM-q8tHSzMtCm3<(
zDl(JQ(^7x9ad2{`*lMaZN43SvFeF^Cnl3T;{EASJue4j`cors`M7RokFRC3#vdwGC
zN|RJ;3Tn$t4+)$~FK0?p6w=PIwt{G?mM>ZW+N4orm6w-i+y-sCvSQH0p?zBx(|R`(
z<rf!@J(Dvzzd-4*tL49U?_MIOchg8=b~!^qjf9uMh!Bha7-!>H^N>C8{4Z2m7(5Ws
zY4tk`z-!`_DOzeu*TPKncj+;E;c5r<8I<vJvF*kK$670XKal`e+NjJ30D<7aa}Veg
zt(?<Z7*qs;Dpjq*6&NA)=orJ?vM73%(bxXc;PeM4h-X^X-QI0o>^H2s3iCRghjXQ-
zMXr9klSil{@9K@#k%l&jMH&P{_tt=pSf9{7Lwi(1flC%E&f&}JHL-DV-h~~C&!vLJ
zF0X|gK1fL`X=VmPeiYaMK9{0fklkD~k*udrNM77}I-_<FHtXw^Af^RU9)GnLo&uT~
z#I{RzT!OvOg3V3;Zq}5jYJ}QQ_BM%=gQ8$)QeJE;$mk5J#Aj9?V;(d$-EKp{1K8@+
z83km}_`;{D@jiEPJTz2KzUDsIlT)47x(DHfB{c|BWY}y%b*+o%j9r(eTKW|P0`~Bk
zK5`uGFcX)EV&C5P)MQ|;yu$9C4H<5LkSokCuV=*a_upIgmNFGWNgY*fy3$_L8yN6U
zSyPZ_If+7C-PNU?ZJ7`>Q0K4uiLNUuJEuZVO3c?}@8^OQ!su^tSVv0Uv3GRszN@(C
zGx8Eknahg<5;BBPd4(`r?%lt?Rr(rsn?-Ae5vczo&;>Eq$xr9zAtu=4=DvUT?t9@x
z4PlA%U3^U<G~kM@OB1yc`Z9q>72!vzK}?_NcGt&sd_o=|02%|RS<<z!F2YEIX%qYX
zd%mhuQp*VxhrOs$HibXD2r!#gJfGNh?1grwX%u(Kq7tN|o4b!{L{^8Mpy1vS?jWH-
z>N+&3=A#+I7p4eXB{dOZpX>76z<htG4FQedPRkPPdCS(VO|WzvhCeG3N(2No?UCYF
z8Pxoaj>Grk;|~)=1(#U@Pbp;=huUFYUS(LI`NJ8NeDD+?OJ4w4&9|bFdbRo}AMHPF
zU%LGSfxxwjUGhNnV}^$<L6j2F?1x&?A_%wU;kwqRXVCLw0SV`!31(jZaVbS7Pl?%W
zHtMRK9WoRqg9MfO{^@yjdf4eEg@;a#;qJ+z=N8pwnddvA&u%3gMg9tgk1foOOaw*t
zi4r?|RV+ciR&3^3bE+-}S?lG+n`OSt%>94zb9os&tz|&doU7i}y_WR2%%E|mI|vz;
z9be%9G~<HU$fz(|oT+Fp2BEkPUMpD$V>4Tv{ShKyrS(*1eI$F3o^t}&P1Nk{b@ZM9
zO61=au0KB>>Zki*Q#|)#6i=Ebh>E1Zu<Z>Iwc%qyc@l{8-nQpYIOSBHD{rc?znoFT
z-|B>vy_e|F27<LG#DhFOl1CfMuTTyj%S3<m6MOTj&JgOswUNuH1l2ANtDtreG8H}s
zHR@FpJdOk8w321vQtma9tWv+iI;LmD=f3US<F((n{IujoQ#P<d*0_cQkVU&~*HmhF
zwgECJ`85JtO^tO+R2^7LYTTfn{42xr`7o#>6t|A|rhEts6eA;JOS_JAafkE&b0P>S
zBdOf2zvD!AL?{1yVnM5UqW_-6QFN&;>9#(aG9&f5-1}=9?==ki8_@lnbLrvQqF_Sp
zeOgg5ZkgeQ9;?zUC98Jei2)r_ND3y<Q~R@cr|2KQbzgduwTZ<OKlYBFpXGkT;5JIu
zIeYt&(hut+qoA)+e=yBN8YT+0aMxdd-7YvR8HVj14=3F(2BC!^ewJG$dIJLkmGDjr
z1SP``96H3o#U<w#-*SfzOdP3?ipt8Z*AzX3?F1RIEFZHu73ux+Qw2I)pjfwKw<RPb
zWYs|UUcEE_Z2_$R);s+_6B{Gyu*OH8ZP<8&L^uWDdJ0-kMc>r~px1feTE_b0Fq|`C
zcA_en2)ixj3OfwN5cwQ+J*QZR5q-G9X@N&IqxmhGKj7z3W%CEZZ#1H1NjIQGYr!i2
zWaullyIx>*ZA%KCQ6V|QxP>oho>%KCu77^+RYnG%!Q0!Blfl8kFp(Nz(N9AA!?Uf)
zDD*Ngt&btIA3j`H70gRi^E|r&^U3d@2w%|8&#xlI<WuxnVaMU8kY;xN$J^wdY5ao`
z-5F_?yfPn#IO3<izPr1Bpt`oU1uO_zAHK^U{wP`)Eg(_^&xGt6k(L-~eRa+q$_i)o
z0vHTCiZYS604dzHcW=sL)^myABll^!xq_BaLA7#iqskuc)i$vGo$RCcyR$_S^yEFg
zgj->1{t$cEm9jnX9JdLL{p_pkn{sZ7lV|P(!Mo?{8&uk(kffHvXVu0h6eb7X`7FeU
z^rK^FRtLy1`gkSo`}n9XOpg#~U_&hbw$n(+Dd6u-Y5FB0!@E}(9MyfiWlNv|omRGG
zFq;_wdSCycg9nG;>;|y`zqDo)0)6?(Z3tVJW!b6(rh77icr#5+P2wW4l|QuqP9XN2
zB5B1jF=;3%v5?Jya6Qc+vmPL~<vS!9IiWA^C$n>MZl4!Dbg2B<Au=j&h>+b2Bqx&5
zjBaPju3pg});p&Dc-!`K=8T-IY(T?cGLI~f!2vSXRMt@&==M_}=ce%Hga@A4v4w4s
z8tW`j9~>Ms&PR6eh_J90+}NbS7i8h7Kgxi3r3V<iPNtdjIX4=dxs@^X)Y<3!m$Y(f
z@4tn8?wl@?iir|u{nJ*~=X~Smw1mx)GQv(jV`5g;-{bIm^k^UXYC$KEzVXXEE+_8X
zFKZpX*PSHVd^ore5oVlf(O0*$Ot#MJ+fA;ASe5BGq9q%AJhnq&Z&ceW6W`I?-iOiy
zCYLYQy`uLCX&6*-adAQA(_j}D4|n#tQ;%hCOS|SJBZ}KW#AZ6ql8$1b$QDVR0V2B_
z!e{p9=%q%wHKt1@R1W~@r5n~yTTjoq^e^Opa}Z<<5qHhs&7~7htShLJ1my+^B2WXk
z3^XKJ0yw}pKS~z9J|0P65ny^kk|bg*AY1f(CCsb$oP}YHY1sU^3w}a@c4uKM3+>%C
z6%qA{;-@Y=MS6?egvIQ5Pv1}Ad}#=(&7cJP235wLs-7MLDZYJB?pge^XN+P$Kd`pt
z*hCN-=iq$r*RKS-QWch9XP0L3jjNxNJl$_E4CM}q$lUvD8-q)GcvfO2=Uf^s&a8JY
znszQazKylx{hFbwLHm#}2^8hOmMOlkyHh0%`+b|}yiOKLy}R@9AvGn-yF|B%J<YSv
zG;=Yh1`sT_o)2oXpWMjsYo=<4kJ<sS<4i$x>G{q5A)|AVL&R=mhwxjxn4Gj1Vx%V4
zF~X1pE+%^YMzLHT1;C6+*ySqusc`C#aC39VTwSwW7TyDq>AZF8mM!gu_*YM#(oGa1
zNRrTUhich5EFz+ox$6!UI!Aw}FFwS*Z{IFsE4tCLun00z+kM`i)*^#PIo@IcvS4&b
zLj?4>S=dHpip&zR^4cCXNP1<@0#Ftkd9Sej%cC}`dd`Cfh^vE+>}NkjR4O@Lh-W8D
zt?Uuh^z#o0*!2^}@~^K*@jpBQ8^H%A*0>|0kjzsJLz|84K3mFsv{E}5k9rX3z3%qr
zomKlqpiIU5r12c55v`GMUVY~D^lR&cn|zk=vHjVgUdKZOk7gmzo}c~uUFsTvIV`cU
zvBV-v&FiNJ5dE~+!TgPj!PGHN$1euXqgsLG>PyATua9)+zdn8ucNdz4B0<Ajdj$_2
zItLlgUzEw0$WQ@TYlh?`=X5#CSm$UXT%}((fC4)Z;a-d@-_7@V7G5eVSs3{Oiy~;r
zzrHSR^4@XM*NO|CJrOY|o|$toekm~C<KA25qZ}dbTG6)xs5sfEEU%h746<*A#fRdU
zX6vT=bAGSrbp^w+2cLGziz*t}3?idL#?x&=dLRuFH4Nz?<Rlcqx~4v``l{p&Co+mS
zUO=9y8Di4c{kQM1-K5!nl#2_9gk_fEpr^+~V{!Tnl?&B=?AKe~f3Wzi7r$NC`$HjZ
z$BxA*VF`&6Me*A_ZEvsgQ3Z%m@r+MYTpA@5H)7{OEH{S}K=c`+1+H1QG2VS;`Q%AU
zj*0n7!UbGfo+)X;TF^5H!N(X3P}lo(Ys1#boRTG3r1A2h=lBz5{O_l~kC7#D6Q8*^
zQ=Mtm_ccD}Ptlm3VR4pZt*={0|M(75-5oX<8*JvoVv&2+{q8RRJt*#f23tTc|GfhK
z%W3zs_PJX<#_fc|?%n%ZLdB;CAbIa$zpYnUEecEnHtZJnBI@LBlowmUDl_0b&(fYp
zr9EHT*6r9oE{G}|gRL9a(0Z7XS;~Xb<SBU_h4tU;{n3`$Q~fV>PM*B^tDvoEltzFE
zwNr;nohWab_V$^m;4DNB`KQ9w)Yc+^z5Uu14`G=L7gW$V*c8)t9Q$+UPROJI5fRLz
z(If|43(yZQ*{_8X`)l20RrdL{k5J3(K_%0p6t0gX*aQjf1PHmjck{Jl9>QA-bswRv
z^`y1vr3Im_{c(NW5dtssY}?~?(pBmVRpAQ)Rr5_-n3w6U-q!!Mae@EkXY)Tl<UpWR
zJ~p61Kp?Fm=d6s3jBgWj_HQ=O9_HjES|tEg{Bd`fcY$2GiO8i~fWWIBCl_WvlGQR)
z!I9=qKoQ>-N)zk?!efOW2y0y%<;oYmMa^s;(oqtUDbB;`<wJ$lzi$!k+PV@f0W1YS
zyyY$N?rf`2)VmjuVl2R9p<CrPTvt;IJb2;hzKB{Ax4_`w1SIoQG}2GiN~{zD!QA>u
z=M@D#J0UVslGmh01xe)ony@6iodx3T@YmUM!XeTOB0WscYy4n?_V(5Ho;IL*s9%Jn
zDv{6vGEW6tCKGZva?dZoiW1Ny+7MAd>Mdo<ME}5m1rRRy82$0fce-3>bd4@wHickq
z-d$WYJ>2@7@D%!fx&qk}Ap10pSPUB8*>mSCzI}Mi&dy%{_5J<ISPAFJcmk9lccVu4
zY!w-Lc-<yt%54w(0VqoL)4SfYfzUNj{IMko_i74a)rTHiQy_5+TlD?p)-Tq<e1Yry
z<R?f@DIoVm+cs~KhB)%1VX%?NZR1TNT|};p`m<#ryt8-|V=8d%PE_`q(0LhGJteH~
zB>fUMwXwCUcjG1F8dCy92Cxw@4m|E3po{s4Cv1cQb8-UyMut%(8yQkV3eOn89XGiR
z4YsZjjGY{JtL7#!@-MHVHrui_Iyw2M53>Z4IPt$b^8S6K6lJl<1B1!0Y7+T?z^vHF
zB96m{gK}bG&iG-RrG3l9G&0zJna~g-YyUqGv1Q=zxgUDrwRL_V5C_PxHv(P=0m-oq
zLOG<G@94fSgiNwr+^e^Rka`0rBf^{A@I(XH2xWaSIWtoQpH{WI*tNPAsnNLa-%TM4
z9gP`Ty<88keZn0ZOsNP3id>JlpFNgiWLLSL3QR{RYby2bYd^U`-1nc1*k^YZ*=sg3
z8aFa$+f?*z-)tDFi~3v7bxM`6YVSdShf0}>0iw>Um7IPtux`wV@aAzN>AWc6Q&SMw
zED)9ns9CAhUyjCLkrpQdRStA4z-S`s{!0S5dHN^{;*scRxv6U)ZFjeoQrVe#<Zm6e
zKZRm!D;x%EK<CE3uYzH61S?<3fsh{!C%;rDB!m^Wz9@)0|2qrbR%YkH3w6r!VzIon
zqRM`gu>VZwCkOjIV^J_GD9qxlTwJO3eVg=R=3T@miZHxGq+l=~Lg+D|C750aB6Kxi
zoQi=7GeoP0x{3<8if1pu?)b8G_t84Imi~Tz(Qp3VWbxW#jq1a#x;i?^s3GdY-IOWz
zg9l$E>aOQArS>k}W=nd^!p?pVX#dZ>)kcR{Xi%8Fx;^jkfq~#3q1JNjy&1K?_uim7
zanTqQi6)dTcnj1aL13%cM?-)GTr=E%uS7RUP}~24=ehz<|6pK9`Y!<U=OY_d_d~%B
zk7XkBNPJQn@mWcbtOh8GY48tziIhvz?bSa*mr5OG=WO}}U1n`#E4kR&{p{H__70W&
zbx7`69a01Q=8cE>ZMt;)_~1l<#9sgr!&5Rx4BCr^ITcTK5V0-J6ZUuX!P&EriI8sT
z`*FQ0J^5zY3-Gm{*F{0isR+&G{@uHZ*xv`j@^8exe8~ejY^X**O&$XVqjJY1j}cie
zrx{k<J{BP%O`>pI`FduRN7R|cg&iDJDa0KGxog?5VS}pUtt@3-udxH9y{`xD&A+_9
zNiS%7G0#cgZ7w!uMO3h^wqyeO0zF@`T_pbPtY2f)Y41msKQSSbfVdew#OxU5qId+$
z5-@Lc&@|VFOE>>KQNbGvu8m3OBqbj6ML7FlL@n*rRu8W-o^56NXU-hf_60XszwBI<
z4ituq*>OF2Bg=MNb4<G44W8V~RKN#nX?mPwLa4pfk2}}lB6zWN(_iz%SeoCYx5VQ9
zm?>ffLj~|eOSnkg+T&PoAYdhj=m35(g@uKW0)N-{DNm9;71R@!pvqXp5fZTJPEJ5A
zv@ZN1MXrZ)UD3yhx{NWN1LR+c9}4()6V|#zHGc~cGVdQ)-gm84@)aNk+eDz%>cTKR
zOeMKOXcr6umI`ie#jRmWvp;%?j8K=$ge)pC%AUCC?A8)2|4LMCKyha@h3c*fr~}SJ
z331<kTyK1Sjs^ugvF&Q%RI@hvUp^)nZi!zL4ikn+m4#0mnL3U5tPk5D?3<Lz{?&Tt
z(MPv#UY#ol14@%ho)Zvg2qlN|fVU>z)(!FFNyzwkhwyrYCQ>j<Bx34DP&bUtsc3tF
z*P0L3#}X#6|D#6=*2_<i8S=sAB513bnHe(IO~BNI-U=q>^)g`f^D4MAN*OZdwQUrS
zkVivl#P**;@yEpC87RZys2oI=Cs;l|RT@!a0v%vt<vY6VP-DUqB=90(6R6MHzLiAq
z8Vybrzz+>b(LmmU3?m{U^WvMeBV9$>fbsOA*I(Ax*R#tqZ(%xhrz{y=8&5>_<jIr2
z5F-)}b9JA;e!aA+RQC0K{12rvv}8L$iT}|lMYXARyy>xhT3d?^^e?(pCzHt<6$(K$
zY3m~apnd4qn4bA_ZQY$S>mzrVQAx7?i2+Nt{Uk!`SXcL8&F^LOzh~lf_2&O?CMDFR
zJP&MX*Y-eL+qLVx`wr7**gtG{Pw!#zERmDJoka}?gnsu$(C0iMI&UvGKND@Mue>Qc
zDdb-EOGeWe;IFs3>m!@dhoA|5b1W#;{VTF2Iy(9<W@c{kzmJFO$dSjj16v93kKisq
zj6WNmvJ^-FzEwp>hjA7BW8v;21B3nZP`Nlc1JJW%_JAZ<gawiK@SRnjy!0uEP{MuB
z(@9+wCZ0x;_)unE>!;z>OC8g<X&{Fbvc{BPH6?O(BR9`02#`Q&*v4BZ*i<ha*ivLj
zAy;Tup91NB`vCI)@NzigT|nA?*MJTqZUw}63aXPFh6Rbf#g+H%PY53gz-X%dwUw0(
z@YbhVO(F(S1c@D=S~RVt>(mzjyI@!U59cDSjLUZspkPH22BxP#8&pK0VwVLHHYMh3
zeZ{6V!gBVke!$^Vq<M9`JRzO}RPUU0LKY6Az8ENuLP`T%B<1ZQ#MKZ?Ex|9J(=;}I
zfzg4iOYgT3!CJ!KtT3eW!a!Qgty^oWp9v{%-n=;k^IcNDOeu2{0~|+=By>1q5+a5e
zIe|d8+me6vtv`G37jz?BUJFPbP?Z}oQkir>Ch#yT>uJKov@V)bBiBQne?g22SB6GJ
zq}|<lh(JIe9_@FAU_)G^kX?T~`V66NE@PxLuyW?VBy^)Jm1tp<navF831a*OQ1075
z)VI@V;8&A4Kt{-mJLuZn&pv3d#5~U^hTt$?jGhyZ$ya!QA+Qh#D30{V`o4CggV_j5
z({F-=IYC;)F((+A3Cagii1<6EcuWSfS3AwQ5t-+|vj84@sU#^Xwk>^E$$pS%Gz>!Y
zik!)Q7_X`5)BRT${|U47UtL_tR1eJ{M)~A`B)WkLMkwn{U>Pfd$-&*^M$)d{@n6eg
zhesgs;m{L*$;9jzCXl4S;8gCHTamRBKYyzHtC%}2y`cciZ*=W~mr9N+i=g&@^2D&_
zNesFI@vzb2)W9oFwH;i2s8lC#C+UT*#-MHy@}ZHD5hkmo{V?)E_$s&^h*Zh-D=@k(
z>s5jD5UZA}0BhSXrs&2D-Y3gKom@{0zSkmin00MTZ)&8yWzn*$(COa8hs`eyN{4d)
zqfx@b^YDrWvzf=tZz`4><?f+ys*oV04`GDJqsiX8x8-4Lgs78Jz5A`IU5N8NVnciu
zHV?0YE4Vh1k#U}CQlCQCKLW}I$29+vp`k-1XU=)yCe|DOH_i}%Ljxe2sR>J9gbhQ$
z2~8O{ZDGveved9zes#<*LSFv}AMn0WG!3}6D_r~ZX=QHn*?$NFVj*7%Imh<15-Opr
zrKM%;-ir*!*Ve7UmaCjn3XH)(7-8A~GMZx(*NLu-@40g2N&wf1mzNOL`OlGqdH|v<
zqT2(%t#*4Npx>8U2MYxnv}5c9QuBiQo+~2lzGeOx)tOr$Ww<cuU%miI;~_pw>DZ|=
zP-gG&slI1sIPTWEY>xaL1cpF@d}3TQ3HutiAh5Ep9=;U+jp-GWv6|lK<e6pPlC(X>
zpU+6%;p11h@-dc=b4r6NFY~FivHhq(UXy61mg8uBLH@|I`U~>L!2ycSTAA+;aAaj3
zt$vbuBlG;oQ{&w%EVuTx^YE5P%pSXWbS-b`>se=UCNU;jJKb)|{5CfRuNjv)9T{T6
z8KG3g9XocUUg_(RbYlKK<exL~NX2MFR+BkFDe#r}0BM-NF=<R-v-9j*Bc42Y!f#g3
zMl52YykYZFGYUpRLAVw!zPgsLGp@<3u>P5Y&;hv~qHPrTVM}pcodPkT1%HIFs0jFl
zyHGG4ly;})!-x1EizwTE6>o>~xt`QkS7Y4Z-ir&tU$+znVfBxX+Y)mJUIvE`9+Uz&
z(ki^3o?5azFMWb5IUaj}kZQ~e)h=F)giSf5LR;5(+smuMIwvVU{zFSF$(lE`I&~Ml
zK&X$?_7Vm0w5?mVu)7|n;Zp}-%g{LL_pZ>Zn`+AzzmJ!dpaQ1Jtm!bO^Gd3Y@3c12
zE9LgDr9e+tKjBrjd-v|<FX`*+{E*E(oRCao|9(6#8d;z-P=p&0g?d5cpqqY1FU~$c
z=c_g}rt=Aw4om?|``XD83ObfMAG!(Ih&u#&0x??6p4I*xoRrNBrJP_kSp!7tO3nRx
zk3KCREKHZO#X9oH*3FwA<65Y3Et}~5p0<oL^iAXg)uR1~r*5>>f4`8ylh(tXtd_K`
z^h?pE#Z&J|ZG-m5(|Twt2C}M+Ct9C59`X<fTmEB3efi@_D_8%@nK0)kkMG=}Y6-2I
zoSZZ-cf(fpBh>81gm4TQ4<T;cfOww{rwCvXTY|Kt-g0!vlPAh?cB@ra(r~|rn&$m2
z3Bw0(^KZx_2EW))2eOqEtmwQ@rdi2ac~^}BuHd0+Vb&=oL$xu^@Kr0HO_!(--LX?)
z!VXu(^q8(jXz9;I_+?tQ{>&Wstud9IA#uX~YinZa#gK3v#Ixa{J~e0=#1RTe<YcfN
z!3<)>?Csm@k>DgCJSOmMQ`Bl8j{Qv|9*@+(6s4thmwk&dS`J3`KBeSzX$@X^)tbyC
z=KLL@OuvRfd$HmhGuC7!*pLk4RjUR5^^I*N@A)RS1wMK5oXCM=xAQac!X1{45HD&|
z+e_raapu7r^Kz&i=FsfWSQ4|m;6@>VKv`ZGOLNScMD4)I6W0d0-RJHT)-Rs^1<>IJ
z7<kD@K!^43X+A0<QXp-yBQo#Kg9rZA#>(JkzZPA(hR%r`FuhCvtU6e6&V6sWZ+m(k
z;o(vE_1p~%4339ZXFA^2=h;@;RE(i-|9_S=nvYBKI$>eq{5OW1BRO8SS|ZvXD!w$S
z3^7d}RS^@7ifMX9gd;>8Op^5wxxuHXl+Q8RiAh-wadAB&r-)IZq#_}Mv(WS~Qku4Q
z?OHzf<wg1hMGQkK5X&5j$zQv6#p31@;zHJRn)u$erhF#r>&6e^*E#$;vHJV!-%Y2f
zB0oLbAz2#nhh!-;e(zrW{ny|5XGkGT|DJ-Aw(sA#%k>Rw{yhbUgX-S{cJxmEd%({4
zmbL#Lu%rIRzj2zvTmM=PUv{nkKjx+1LKc(Lr(M$x1=i1iu9$0`=^sf=?B1nB3PwL@
zZEp4D;~y`jpZ6Pf6q%rRi*nIJv%ZrPHoj^1{j&#^TZNhW`4`X5EzpEk_xDPZYN@tu
z^JjyLiL}dXF8yoXwd>ZYYH6_-bdJ8FoKW%DM3Lk*Iv%WJ6MeHEhra|@8|w$H$xZp{
zeY479_Wn;ND}m6>Ltkjwi`95hS@7GsWiO}g?)5tE@@yVnKPM*oYz19(H`eWY{P=N3
zt7S!P?To__kM^Ux@4qcAJrIzRXsB1pjLKP9D5^G9O03~LHPSJ>6h`$f3xozddD2T!
zBIRHMqc@O^+*LmmdPy9PAS53gk1<W&{^`@F?M#&!>Z>iq<Ny38{GVHwYhC_zc=!T|
z(Jx>=>xcoEyp8-VI=wgVEi$ahWDBi+fsC*4UJ<v&>%{0y(`e<#kDq`tCQ)v_gXq9R
zZNbSH{3v3<)&1t>pGO>1^oq0?PFSm;)or9^j0ZJf7Zoim>xD(~>%f!Zh0&z;o$LR(
z@%zZc{Ck!IMJ=b+ZZI~;Ig)<m9BFB#b!1w2ZwujuGIxVQKquMnUE1S(6c!A?qgIY}
z7?I@MuyLareJ_Hnb*E{LNJ!}8fD08{+m}j8N_-AODxA9cDp65Us;RH8_DK^pNJuD;
zsg`>6iPJOV^WA?RO_ZUsB_x7~!>YEGD!?pG946=-VnA4g2n?+Uo@YmeL~iC2@;jM0
zFNIU%C1J57^AQKu5HmO!iogjL2g$_jmiX+Kb%d0JbV0KHBJ3A}ly%}@gC?(r)i*ak
z;lAv$v^3_P=12tHKsXMOiCamGgo?_e4i+gzl<fCN{TuD)ydT>27R{7q_JwYQR9i<J
z39moDFHl>@m&gz!g4u))6;BjeV`GTQWm)dfQ2k;cvbPwjC8+|ZB3fe+OEhhwtAHCe
z0I!QK{q;{@^58v%fRK5I$*WeKcI<YDZdMQc7DGO^Y~XW1p~eL0V>W`xHjU~d(a)yZ
zeomN;?H#{0zAs>!=s$jmx7&~)C(fdn)G#+sBwV0POxGcF@r}2xeq_ns{T|{z;1Y?j
zry$D)sIdoOF)3oI{1+Q*3V#l#+b@Rb!1cY@_I~W{87yRAz*N^?Rs#mH+4t|iDgS%j
z@-bvWZ6W5K{fJbTxjIu&+NFm;yseh0(~Ovbe@qx0CH1{Ta)3Cn0pW@B03U%WyQRju
zOY|W}+U=czkb7j`KFJfE_R4>UpT;Pp8!R6BnFs{Y0Nu6=pZH>d0~{_NKeEpwh?mcO
zm-|Bk3RMg^$c{bn=zsBbY&{Cv)+Zm?N_no2ttnCX;Sl2F<Aq`yP;9-$F5X2C_41&i
zyeognJqAT=31si>$n{^|{GBA$k9e5hGF5QWPDaL~WB>_(uxmw%pc!!>m+`o4y;ml+
zflcO39BG9tNll3u8kX}T!pX$Z6uzQA&u1;gQNAKH3=oxgWrdjGBF=$1Ij}KgZBkR)
zmlX+*7xz$AmEB5>UPs`%ZCF@XTy)odQ8a!P?BwH|^f@6ip*rf(qdz=v-=58X;LPfg
zihb>}p9~f)?_<MNdC2JE#fv@z3AxAL_SohY3v4@$jB5jOb9@;8*|lp|0v;KmYXET{
zK`TKJg&1$i$N4=6$WZtRAdajzPRBTmb8}2_p2ei+Dh#Xp_J?H4S0E=pHo_e%Gpq<I
z3Yxi@`VjZPD)d4?yR~+T8nC=-!6_#MwTSE-kpBLJqb{J(%^1<-v+KVA5=*!)#2^Z+
zFN;Dq4UMPJH*_g>@hNVRM_y^Az+-@NIz{x33kRPh9q{`HbJKb4$NdETV0W*f;ybtd
z{`;x$aNMaKfBdoU$wwjtik5i&%pA+fxQ35~QbnpdYewvaLoXQbrlUI?T73|;2yO1K
zHTK&vEq0AacVnN4-Iz}Pkqa(CR+5sE@+n6_kY-<q(rXdF0;GqW=qLXp$~rPj|G$ib
z;LYvb%WAz@gy0htq#l>=@#5g|<4OXdvN#2#m}`S===)1omUImCO7%64?$%6ELymPk
zYRlp&+yDwK57Daerz&IK656-ibY4BqVcG2?RThofK<+)Ze0POZ#M8hnU3T9o*eMw*
z=l&ts4BNpk2Fg++J^i_}XUTpK!KKV%?TEDCV>Z~Z=`}6xP}Kk0xwBU*&oZYy%dnhU
z*Z$MlfHo_89MI>NiFmkh1jFy@x^9g<|F9#WnH?e{U!{^#E_LQiuJxZdz(#N6n7->2
zBpp~{4*AOnA`$}wL?S0(xln$db)2h(5H*zWpu=i@i_bouq<ng)?kXsk#8fGwfQ`<{
z26Tjz&1QxpMpUP1ckd>SB=m~`W%`!clHF=a%tlK+po@a(k;lYMlPAAD1l){`jH)U+
zlDCS=BaiKnR5!$#SAH?SdR+vR)l!~JqsrYyKgt+Vn<`L(h|{wGZxW&J6MA2qSPOEN
zV6f3RY9On=*Z7qt4o#}V5RU4g)FBu@fou*S_i|aQo-)B^#Lq$pB1Trp4mQC%n3z(_
znQmP0Bf?~+nE9p$ha<E)NM?lG0e@}9to8{G`+-+xiY2~<nmRQ@0)`gC1}zA@e?t-^
zARrbNlo=9t;Q6WLuU1<sX>9Ab!y4IY5XOTE$+}Vw`)y^3Ll}wgg+w4ND@%;kLWU+h
zx$Vs2h0P3mq(NDb5t|^6JKIjr7vE+Gu_ep&6ASLt1)?HDd?uy>z9%N7CNBJL-X2ny
z1UaVdUhg5!`GWx7Vno{h=bk-BfEtjp{sk&8r5_d*)gkIPNU%Nt7_6UP8&b%l9Z>Br
zY$q}bs1J-hU_@(cnv#ojUU)M$GRS8Y<=|KNHvuRK3!;Q;ikzLOf?~C$KqyYBVI<c>
z0UXdu9+K&s5a#BVha)SV@Fr|@Yw~ZD|AikzP=8|+b&A)*q-{hhmPX}v*%_Mu0QT37
zHe|xsg}#)C-e8UyETWn~Nj*SDM<ZG#ak3gQ_klKgJov+}`2Z|(_g`@j9QD^UDuP2J
z2qyH4?KR;H9{O74F1-!a_siFsBF2xGWk;A2q(~KQFRTo^RTgF?)HcF%N6s-$dUct6
zF(gL!uXF>Beccj?u$~Sj-88&I&w1EZkQm~{no=dQ4#XKrR<n$M{u%w~(Ia+W0Ci#t
zfH+7BPZi#&v-O=#tNYL`^39q|JX<W8zhDFt1Gp<VR+5d3V_q5%n0|qY|1%gWR0l_d
zNQy%!5^%Use)h~*cN*dCqX7{|P#z%Tds=XCMhfxXIIo5HW|Qy(tM3x|i9dHkIWhSI
z{hRE^!pb@|Q?jCa_wHTLLZOk*=rBZ<0u8v1_@)w!H4{-2pq<I_QW^?Ydkbtbehj2o
zL4J+GfWtpuF7a<TB9)bun+mSk5IyglFH=+4wJy!L@w|fo@Y3i6P(U)BCX69Qssq7p
z7yq49eVs#JxYilOm<Xwq+t8aH54LYL3i>r8g`y<pY`yv(lD$`wHh7=d<JB`|vHDM>
z!nik_g1`R~FZ*OmB=}02%<q4>e*Os+@h^nN1Yr&fef7VLKiW9sF})t^zeVqcEP*U>
z?p;qM&ZGV3i>W`Il#dARjp^Y}#EQe1IjV^)D0JHNXEYs7<XO;p)iGW~`SIbydHH}<
zIfOKREJxcGc?M3sLJg4gq0WLFM8cCW{6+YpO~4ZlNM%Turvi5p<B+H&-?l^$r#2#>
z&B4pt(0TRuMabT6Uo%N$T47qM-B|Yqa4!MpMuBCqA3fS=6r}qCIHRV?niUag9OR*Z
z!7Rck-mrc)la*@qMPC2iA?@PJC=`8;*|l-X0V^cn*|Vc$XPi_@%!dx)Tnepx`-Cp|
zz(fdKNi)d@aeX-?7xvk&0sxXkpW1u@ka^2AbgD@N87eFVWc(0?rY4v_j<|fz;U5@7
z9N9_~AY^MhFl_Vd%R?C%$NYSn+$6~ROhPm@mew2Uh&d{Yg^!0K>^*D!E*}pj?9{36
zpGv1b%bw_r!SkpN!!YEpulP4u+A%n0AlEe<s^JnQqDN_O^M-4SMP3_e>uVc@lM}Fn
zeVaNtg&Wn8_j`&Xa?cfu4fb$aEJS#CURJo>f3Gx1fyH)>YjwXx?tb&;O+F4&wCHfh
zfsq6-P-^}9>BEN)^tJ1*-_j=bqP-P^m*U7V0BwQLl;KMqwlB#US}6g`oHzU55lp$?
zTw?vYkkET6$xz~G`zG2hrK^PWO4=D6U;1$_MlC4-ip<61!I$Yaj){Rm_bZzW6^`P(
zFya(C`Wehhmpa2vK0t<?6%T<Zv5Y-MYZvWH0nhHg*_V@T*a=V?k^ea-Z{H5DQ>RX`
zFV$|~J8|$yLTfSAI{tKxqbSD#xGVZWr0Y88&)>na7sbM;YB@k+G7<<4ZfSa{m6AI0
z<;%qgcVG6@%xtX`@w7OX{V6JeCuZ}*@8LoH_19nDD949<Nc6DM14?_w9rj56edf%W
z55}(sQ88EXiy~;w0Wt#FctcMQ50a<1H^+$+gy&VvwaHc+wO)rKins-wTA7bpE!EII
zSEW-JLI;Qu0V6$i%#hb*g#`u0LG7M<Nk0fkojL+JHKIlNm<KSAc-pynLt>T(=W%>K
z#E(-G_^&6Iul)`sHK$EAbJxlzbKw`!D7f{?2cjN6lRLyIST}skyN5<DtQ^<1v&-f+
zGh_vur?unfswi#zSrJCEQQ<EZZ)hsdF7w^SD}k0cf1~?XDjKKZTmGG#x$ddW5sCE3
zP=fG33y(x{D@!2>i;8wAJN*8a#clslYX0BUr`)D>`Qn(XBTnEU4uWkfx{-qdjQIvp
zUDv55V$Auk9Xmd0#QuI!`jgMs*TJhy{l{Zc9Q=XPdsV^88*xx_Eb<WAkPvkZ{ePDi
z)Af2bZ+>9sf?=J+gcYmQgE}CbUxS>4R*TW@D57`x`9FOckMiHu-uLfY-ECR-9c4hp
zZxTb`IFL=ee*1}zNO9Nscu)aix+j@P4RIIGMzakfNBzT5X!S=uq`s<=ToG??V4A@8
zmnPzC7NW*DBgiiXa(uq>Z>k=-`AX8J$-IH^B*IC`Znu6yP&_)wS7g<B3H8f4?FYz!
z@L{VZ&O<5-+AEPiw2p{_u|<z#t`;_|`M+3u6R4c`_W$=T^E|fMA;XSMnU%2!dm}_N
zpk3KyNFh^HnjZ5;A~H*cG^tD}l8m)Y6-`JbQz{8*P||r_cX|H5v;JqD^<QV5y`JCi
zS?k%{-F?5G;kw?_Wwi4zl{J6-u}NIpa*Sf}ldCPX^AJqt<PzF~R=RxuoUpLtgn(+=
zUhd*OnqI#SiT@v;3r?ZW1_LNT=m}6YcU5SE1pM!!%och`sz7uz#BrGB9~9qiuf2xT
z^*(R9x+eeRvx|%Expf7u7VLt1%sD(e>3<pUYI4(?zUM~J|Mq6DU=h5!2qJnXi;+Zp
zqeONY`rw<0;8Bi~7le`IE5L`@i0QVrK@tmy(CEJpEjdUOC+MouqHE~sQjvi5Gz79(
z6B(*+Mu6G1nO$Gnb8NnqMO4i#ENAx`$lF4MjwwJur*JgQp$)(K{^Slk2s4!CSd8zH
zi<30K{e-a=Gd>BD6mjqWsk`GmC!}y!OO#Z6HCcI%4U#>+J($~GUH$p&02QMR6IE>u
z0hmRmF2G8b(`zqrRbC=&BbL-*iT+&}X`w6epCnnE9Qaw%>daeS>KUF$brD8R-)t#B
zIA?TFc1a5&6<gqdpS#ZXmY#;eff%xn94kJ}!)Ehmj(b&@bkuRxMGjnZ*;h5|R-k{A
z&lZY)zFC$7sh>n;l&D{BDfSf6EK0<rgY{4UQ*wQ$zMgAw{?UknQ4<8$Uru-SiVw+~
zbE{DwiSkL>LA=5SU_YivgaiAxs{2v4^Iu$Vasn?F#FNNQiL#h1xnfG?z63W56i!Pk
zk3=|kXave5^L%QqG;lV`#Fzl5sa!qsqNyD$K&(a<p1r7pyIACi6sx+s{(k}IO8zbR
z`6wM$*ek1JaWlif&8m2D#;8-|l9UNP`#5r;*X&{ZFJu<^oR+eX`ip?Z&A?&0yxSIC
zMw;RQT3ZqvjgDU8d1O%wBLKA<Oc4}UU3NrZ8F@n-`f0ne0QzXj#T<pAIEX(YP#@+u
zLco7aq`FVDE+$dq3HsPeh%hDg1c*j*KP5Y@$Wb<lSe1YOef`%fbtju=;1x9kkqHYT
ziQr1=bZ`qvI|ZKr3QkA=D}hcFo>p+N;VThm#r-IZ+lRbb@D_leL(**Mm!_I5Pi&YL
z^HU2jru(|Hcwl6A^6I{3#QiXHh%MbOdT2pFxxSu=O`|9ph+4=@R*DEWMUN(!m7IrY
zw(Gz||NGG(V_a!Q>t3wfDveR=*8T*(gc6YgHW#w$zc3=)Ptz7HN-Ii!R`}CbX?wck
zn(S#PB$)(v-MC?pF&cP7ayjPKR36Y=f?nDze(Tn)g=jF+g-FDq1m~1>Y}E@Nx=50O
ztbD#wM=tsF@+O@oE<YZuXm!a7KjG;aVl_qV@&5yP<c0_ElFaf)$41Sf{pH;w_686A
ze?%T_j!g@EmvlUWQb~ePQ>Oo{()AL<6fSUNKBqweGMuJ5M^|zQr8_;81Zlal@FK1V
zBtuQyMmm7dl3AVjn!8Ww5to?N3u81j{}7v~=92&7ku&GKx151W4jHDF{(fj^pqclO
zeYP{Je;Q-_dvW;T8r`EwR}vI&0|Q;lq?TI#=Rg0EdmyV%;7xuIi5h(k5l$?KjVD7U
zx^h$$=h|}{LTCmUR#G`?>ub>R8gj1qY9!sizp7~OY3dJB{)`dah`TYi;O8wnccr%H
z4|L5vlo?ytcY1;&J<nS)Txw=J`gotynag9SQ=QEyc7z!<MB|Yz#VVJF_MkyCYN~T;
z!l*b300+a@F8!wUj{ZYRM(;jxeO{x^(AF3Ha!N?&mzhh40)Ng$2(nhc?0=w~^^SM1
zJCby+hqUl2oQGCPYIPYOV1-<p<5_ggXxv+k`To-4StfBUVkOn+^R&~dRjV|8H~)KN
zn8VuA%lq$}clE$SUr9cSycz-P)Yred)5OqY)5EkTEF(?Gp?{Z0#cU`*H6B8R=E8SF
ziLjIwSnLLry^`IpX-KGIGX42iu~#ign=uRPMG9D%-HSL1o?|2{{={LI4xLpnwpGPO
zu1PSi$xcquQl6fiKT1!@PF>rzefyV{Jv|pUs9#^_A7`u2?(+fSXR;SvXFuvX!dDZz
z_}lmO0CVr2w`|$6%voP;l-j{Zi>MZ7$R8T*p?-_{3_KV~Q3fw1Tnd}DF;;{o$5~Yw
z_1gQ9s8T?b(3`nSY<fGK*mLYy82ibbS1rFuD!3KdZ}v!}MM5BlU9<kt2K4MJz4{&B
z7rD8<+N=qqI=9ToKx~9^MvhC#ac9Bc>{ljBP!tR6K(2CWe#%6#g=xxRCDbTegriHS
zQAwFhzn;vI0vs6W-s-)!*SlRKntOn;jF~t3c5TI)@@b;cGV4xT9-p?eYg&5L#jPNC
zj!8(s=od}>11@xW&u=k>!ptA7K@d8w2l;CxVV8?<e86<)!y#V`o+6(D-W5ZN{aj<?
z-I7Xi48cwfK^l=*wJFR0jg0&L&3Eh5wDXxo;mh_0ugYl0xkCV~mUd{*CI6?et(!Y9
zDdg=a|H(xrp6~9!L*}o!pTDN^YWo|%-S?QL#M?cB=S{mk*Yx|J$I6qXDLOo&g~yCR
z>zCM-fM-@*JF~s`9>sg<(O0R3RacookT_=ABb~zAHu)<I3_Qh22L$L`u+QrZC|G!r
zm`>I|gai4S<nhA<paqtE@7?)(z9t;c^37R#exy<>a($w1=|7`oD+-~s@P7M0|M+8)
zkEo^oU-cpYI})<)m2p2Y(VYC!V+E>*57W#)TY5Pq{7a+5^>*BSRe5D50?k@P3~cy+
zAYzst)lTdoma|~F4;Nhw)$f^{T8)g#oPQ##n%`a#x#nDE5&q)^UU~T_;wTA=ebu!?
zDlWdFPzbNu{cSQiJ@%sp3`oj5WK0oaAA?LKuhewu&3RFoZr0wWLn8nN_8mVyx3I@-
z2e8BCpPrtH)4S5f^h1_;%H&*{zl^nvOwji1UtDjs*iWmEX^$kBMl+Z_>=>Spu6ib?
zD@c34;H9^UpPrX~A?VTzBo7~bPIK1UqN8^lJw|!X7_1hC-=f3wv^2;wG19vD_o&!`
zb*bpZ6%#Z8K52HocjrHrdl<B7a<kbp#?(*ND$IGoSeI%<4}>4i;1~_<Y+`I|oL{jD
zIS~g3bjb`C7njK6M`?imH*E=?j<*)s)<5!}274tv=;U2uSSM~Y_J9F)A>j=(5K-Qi
zmPhS#VBbpVKMH)N^nZ*#q3}hP!lRq#j~Xe!QC=^hXqUJj-)g>va&XD40{dDO$|;%R
z0``pg)g|Dk7DY3k4;rzo3t+vFB}x&_kUnw$ybd0_+Ie7N;6UYLc{z0jfng!kLTMi_
zK3gg$ux37@b#q#B-YXo?tb*|+t5^zB7>n4@OUTt_Sy#=ZaKcJGsj=1c7A^hpX<2hC
zRL}Kt+nNRMeM-C($jQs@f156}tRT2j8AxQc)%v1Hx!)fxO2MQxfTm~C%z#eq_fH{B
z4^me!Z>jD8OTrNQaC_=3PV6k%+Zd$mvaXgcDV$9tjId4Ln{1;cr?>q|ftrt2bX{cb
zQ@YaA7q0(Vd%gVlNZeY;%DF5+ZO`SvdW7<wkJoDU2<xQumi8@<YfE5bDX%!A@@B&j
zyH7>UIxxfm|8G7$o($R1H&5pOJJQK%!+s>`mF!GNTt5=3MPh*4gMTVJ*|{FEf`v(3
zgovO{U+55BFuF^#R;|{>`U`|F5?T2J7$cT|xJq4vwb$dhIw95MrmKqu9@xgL>~~Z)
zY@z1}(zy8f^$`vY1|feDHsNLMFLmS4A_|;J%BTX}cM`WmTNP`%$HQ)gA{M;q(9~Ws
zyF#h=Z=rsgHKsLeSX6eNgsDpf)j~sWHqxXgz{vxknYhS@Ub@zB1o;H=lf)6lm-9s?
zM!wbrFZBR&^||%W$DbF^K9)0`MGre-q<gSna4>MPa)t+mFe^IEWf@2_J{kGnF{Kzs
zCfq?nMBP^j{^y7@(T-4=tGQb`NsAX#dhI9kYxK=6v!IaQq-;gcA7P-LMBz-!T5-FD
zG&6oAuS;D_f}z*x3#0Ezl_g997f~pvVYuQlF%^{2;$HYlI@){WQOO=ZN{&y?^TQ4<
z<6H1{-1iDhAIS5S*ML*SxcEFU_*L8<oz^rmyFIX=eRKj52_OT(<=^TknSErhhnE-R
zt&+(<TSGrPEYI3>j&7(jVa$&c(pE$C%g~gC7oRB$XiVwWd6cX!FaOhM4Fg&F^yqQx
z*oE3xrtqKO?Cjh^Ln@P2=C5khUu-xf2e{mSl1K;kbFz=gnIJBPz%EcoXUGo|teKnD
zg*>Px$Lqe6lbM0R?Toiqhm=iy^SF3FCl>dI&eEp?Wp;{0mJp6Otjma1f8f9Kxo>VH
z3^M7_#{k1=-hTfH9(!7Fx7@Rflv^^}=G3WEvBrC9zF1f~bld{0^>***#JaC-+zvq*
zPg)|<vTab}zT3S0`+<oTE9(Be!Ro>6Zo`mSTenaRSrG=3t#xleo1Z$R;jbA+WX|y-
z$rvRE$yn4LKK$tpvu|Dh3so&XO&Hz#=^m9SOT33PA5RS<$J}qGZ|6oY{H^w<cn(1;
zBvE$^dN?ckINr8dSpu`0sC;K3Fm^RvSTf<KWa{P4boe7d253&N(ty*;lT#7)_Q3&d
z9i7ySx4QQK6-=q~y~Il;?@#(ydI%p--81yoTHS68J5L9A8sTR*!@-B9Zc5TH`1v#Z
zA1_$6$PRK%vMMx#`31w>1f`}F<UTTrTR7&XQRBK-rn6lvTLZ3r+Mw+kK8<_a{OoKI
z^yyg7`=tKg$6zf}$D{?K!wl3<AJ|-w4w_i|P4{0KU3yvjAPl@@dIc;ikTJOabUKI6
z27lUy1G?I%A=}KK9hlO`P;@EN*N?mH_WeQaSMZ+zdFa@(g}qHwroM5D!=Y4qa+imf
zM@#ku;*qZ#m&dF3^z7fauPKsnm@VZc>$P%D?az(w1AS&58u{F9=#fW}BS#`bK~$>i
zm$2YuyAOvxfYI!^ook!?lu-li42IcQH}j{}!Z{W;QN#K4<cR%WdVcl!N*rP#7n{#%
zD94>|zt(=T(Z8I5b6;Oa%ZL}i&}ZM#qi2b$4B8ViZuM&Xy$!t|J$h97cTd};)`sih
zigjQM+4M!15`Jml{ylQ;-I_)R2abhsEtz0g`;iLQJ4=UFE$Hi-r0r4lDQ`^8GqusJ
zNEjpcD(rJoUyObqpJ(GE9(KR(1-%@vlwoyJQ+s=Ja`IDf8xPKUu@Lk$l<*N5zkuE`
zqr&jdyD`Vx{#@HX0-;H{$Cf8Qr5$vRR@dp}-6)xp&vDs++2>wfYVi)sZ0_?PT<UsO
zKS9K<Lk>;7%2isZAI_o?nSTeZaW<cw6xDDB(U-Nek3AW<)6P4>Ddi^WT9>OoF@K{Q
z{$n>5sP$^pup!{+iFnI4k2WSajH|#b8hyE5y?TYZmw}dVr}_79etUS)WJmu#HZ7@C
zT}|#@+Y$%i`EW_aj_na?z4rc7tE4=XWV>y9$(cUiuZ=0KydIusYLvTp>j01ab+ll_
zwJ+NlLt<KZzI*rXBJzQ7PnneFyJY+7pjU-!Oo9Th^Oz>$A;gX01N3R7ebm149ZuQk
z%QiMP`c^Fqx*@lkGtJunC@5)pBWnYb4jnrpf1BH+RjYExCY}i-hddE9A4o=f?g7t5
zLG$g?I6{smo!VaBZAkOmd8LzlYbwVK9(>_R`NIz2Y?hhS`nF$-XGo5aO?-3We&(?E
zXEGfppqh<auVM3K_&YTq=%7eLpGS*AO{bU~9RGIQ`0;A$>IF~%k6x>Mg%grQo=IBv
z!H;S7EW9J4=esb@#jk%O#}!07LpbQn2FXM<fE?e|s_Dz2oPbb=h6^2B-~k%FEvbY(
zK+&P(2k1yp18R!deQiuuf||-lsQv#+tj7*9ojv>gbKF!jC_q|;1|MAsdv-kIx8Ns9
z+aaexFuR(YI1jQ#@so6YB4^-niTMkgb8!NCD&J>I)5*d63W=E&*)gF*q*-(SE-feS
zJve^LJjppkLm6T^*M{sp`%kl3dao0_*EL9{El!7PGA;Z}MBvJ0!n2mG84*<P$fNiH
zn`|#r*zvlS<kpKb*07y~2G?O<l08%*`pd4f>P08nMP9v3b}7GUGb)@d^FC$QYcX?B
zbNi;n^QOmMk0{(@+Ghp%CgGQQTs?nm_{wqAmo%1WhGxOg3D1}kcfEOw7HPl*nub^3
z_)O9KR+ba?>L{S4(fpRajgmP*7MJP-D=H7$htJ^g@sy<+u*dwPd)etJ4kr>wx&?oj
z-dc8Q{!cW02r+{RLO%o28T$0cIc@j^5H?8gY!n>gP}PdeQ|R4&?d36k{P<D=3K<jE
zbxb&ReChIiN9)UH(;kOU?l(**K^Ln!B2Ghjds|<7sy6yKa{5B*q742og6BDGmE-Vs
zPHz)ei%csr{a?n}@K1n3R*Va9m(|=rAba5F?A~=~<?!F+_9dh<!X$GGrh5s@UD~$a
z?=R<GYils&Nouf3sZ?yw>$$*`O693bOXuKQcN866Sqm!tm49Yq;9fv6?g^)e-beRb
zdtQ2t<Hm&=>Z=m&(YK1L`4Ph^6+`?nMvie3mA!jg`#GLNo^Yvsl^?X;5+$5G$&@2K
zZ^h}{pGwz)p1{P?($dDV?o=9nst6``>}$?_aXE0^uaE9=H27NjhM)MQ!-B<&hdF)V
z73j@wlDOt<KrQZP+XH=02w)obkzD`8dus$We#E8vl`XDWce#1?dJQvNNrHPpnKQ}t
zP5hHq&_1=$=%k_X@#f?eXG)wDZj8zaMd)p9gZPnKRGMX6O`_~tUOm0;MIF5-$^wpm
z7jKSHLB~62-8yuiU5x;yCla?ZXG%MN<`zt#cKU2!R(HqD1<8>iJ?YUNbWsAA^~7Fb
zNP%n;nb4q7qxAu!b-JP;G^L$Hb5W=p4rhew{mV?V;q9FDJT>rF^K5u*rOYmh)`+qQ
zlK^eaB@j1k!c|3uQ0Ke~%(9lbrJ^U0XiNY_8K4ySpq4(cT_tY{SU4lPhQ|@EAZ6$=
zq>$}zW?SCHFBmNDH&LpQQFbi;lI`Ph@ETuNEgYV5P|xiayUCP|Z4P#P`hr0vH<Bsc
zH5%4YU}EbeE)FxF)c_wJt0-$wGxA+z5QUtBBD2J^^(udG-71SquN}en?}CwT^*eU%
ze3ta*Iq>;j#=j<NYP9k%S{oy_LN{jb;MVZJ%zPyV^-bS0FM8LY=Hn&gj)Vr?HSdk(
z2<FZ|!0zW!ke$6&#34TWaNcpDufICA_66K17GVU64s#$Wd%ZK<#KOI#Qe{mz+kA0T
z&Ms)MwUODg5%E1-wE9tpVTZmFvN6dAbTU9DfB7spKU<*TE4$Vc&Z=kCtM-FeOxT7r
z1`aEj1z^S<K<l3d>yvh3d?V?n_^TJGeBG>ieczW*?>!Y@%;mx-F(Z^CX^<G6x33at
zdTU7CI#-_#PJ=p;rmja|O8&)>EJm7h@DF(gB2j?ILrn5{j?wTTPTzZN!bA7%^&6GI
zF>ZI&o~R{k*|O#8WdsSY_B^kvMI5MV1XPG597`Sod)QY~pAZp2HziDt9-!;2COR#7
z29Sr5Zqz&}Ka$o!KiVajr(Re%C8>QK#_j~ta8)_-iLl{k>$t1jKHu#iNvvzcAWs<K
z=%CiNmKqK>S0XXFa+&qF{`u>Su)k&%J;gVcQ6@U269si&tavz33KqNoyW4r&sWT(d
zK#)UyYL8Yu*M!$9Ye)yOuObWqy_tnq!Vii!8tzqY!e_=@_8?9>ql~*r&!VnGe`yE|
zC?Te7l0v<Ayb?*L?GUQ!n#A^G0g5GKk`KE`#)SU0{K}tP-4f$*2@jteIJW?N#KnhD
zni`5fLwEk2#u?7iu4a^p6#T!7*ZWzd{Q>1Jjb9!$>+0|7FTM4$>pdUXJeD;oIy@<c
zYmK3TAjA)n(A8{@8n;7JJ>KMsa0&9GpP^*P{@j`hy?3;8wx6N}k-L9a;qmIT!or7=
zgSkDuWR1(TUTN}+R>F^@3nEM1Wyzf3=j*<`J+S`NC3V(@5m6gKr3XcQ3O29%G3oz<
zMm^oBWI{|<I3~ytma?P}6#S@PyK7(Sl9=8?eHP<m33&N)!UUJ-9{x){O@=uP+oVCR
z-SuzpIuULOPMcM_xUtA@gfWsb>#qYc0jEz)miu!Xy9+R<j}8tRk5aC5wuQxE4hkVY
z_0erKZQlIss_T*#PunS!*M^N7eF+ZX>qt@oj8E9AW4_w6v~c#!jHnA>s4(Z`*qD$W
z=%ADQ!l|EUc<;V_r?O4L97|W2NPu=eB=y;hga0=I%9tn=yc&*g{%!N<(2$9Ow3BrJ
z^Z0P`YZ=i%;2BB8)A?kd(-2UF($aITLbcwRoWO)OQ<|-0qFhXt4X=}C<}_~6!ZEAx
z>~#tpJ<Ar!YmzPBwQrFhRl*Xw$E6PUkjDJhlU!5SG0<K~wmd8Y$7R@)ZSMaEgwa`*
zq~^7oCwtY$D|th0Eur!4=k<8$-Pk`1C1fOwq2Wx-Z@$$O&EaZk0vBEam$dP@KQ3=O
z|AIt3v;6ZY<b|Y{u>`*Eb-MIVVIcJWV_&<Je>6(37ng3UatX)Oym`4xYV4Q8cUZc)
zJjeQ4G)PWcO*a;uuf_m}{tg$PY3cj%sllIJxep}C2wa{UGTkP!_DH)igey~xwDgEU
zm=L5MyJp%ZS;r}?k?8RVT@Kl|uYK6uIBU=eM~%EGBF<>k)zu%e+K9_Ut~rsevQf>e
zmYDu8rYGqc9IVobTg&wTsAfyeAp=hh7tZ?%V5W<pA!8-U7(OtQYf_AcIlmd9yvRKV
z3+?FVUbzIfMVi^HCAa~UWy8FV!a3KKUdPKSkmCpuEj`wz0!7Z}$qLcf2wVU!{Uts>
zmj1~tya*5%%RvEY`(}8*WK@(^(O^o^?)l!kuZ(;<Kod>~dN|x)21OKb#`!Tr@sXeY
zUlh2~=m0XxyjQ~~P?fUdg?cv&w~~}j8jcxWRmE5GG(g>T-oNmS09>2X_m|3rHwTzr
zYo$`6{^O*p^;T?{;Qttq+~f@J(zflZk_I}SzaxtNb<4{5>*eB;UzK!bOYh#jZTA)D
z21ks){$pKeM?Z@&b4Z`h)msL<a|CA>i+X`%>B)8fdL;mrfShaQo{OJ3Xs*<E-{R(&
z92qZc(bQga5%(f{4;?-{`sO$P0aPhe*jJf5Zk4;5uzM+~xq9xE_V~mhp3em@0ew{d
zjznAA!k7E?53pvdi2P1))$QB1?Vi_B3JEX>C7C2PK!M(1jW0fl{$luR$BwgKU(pWV
zxpsKx@Q4<-lM(7(!ct-c>y3P>0F#4|5`<mxEF{lTJn#ZnupGXC8eZZC<j?g%+5_Ak
z5;;r4TEz3NUY^6v6q(*i$8picEAep#io@Cv4@P(A?pN`6+}T5=zTN6GKdd{dtB3I6
z>Ct1xjLGp`oVwQ1*4FlvYb)*R6EDr~JGy3FXvL6h8vkp4CK1IuTsU2Hk;Bj}D1#+o
zD*MyNp>7m*QM7TQ^K4MxDQwW#u!G|xL!$>`5EBND3Lxp7*C;*f&q7hNSq-1idXs@=
zjx?BG_F3tMW5|!l9g>l#QsGHL7<FAJr@mkRz(j!jS#QrnUx@ZVQqGAc@`e4~xwARE
z@pH$i-^RFz2^kzcW9?nTzP_<bj3!T(zQT8<WZ2M0`8mC6Vz@AOHJ7l+u@4PdEK?`M
zU&#^$BC(9fYo<JkPV4_Z^5Rb|fOy(@?Q^}V(0+%bRG#94=y;B%=SZqH_z+Xcj-;%5
zFKT8@3Br<?ckj@8>IW!}kd3EBR(pGVKb79$9i|;AQbg6jkrXBpo6038BhZ^n18Pa3
zt~w<j*wp_vJ~%@zCf!{F;;zg$FfcggVN6t|NR1hJure}1N;=GPau{&#!uYcpl|wPe
z2-nVvK6jEIMS9%HczbMATEG7uI1Saf5k#Zaun`Ro$8ZE>9C^%Z1N5qh?s3CSDYA}u
zvh|C>YBlzm#W(n?xW-tAff-6-k0k1-)r{fh{p_r;TB&0Bqs9ii`KgePHQsT>QwKjY
z?ACE(TOWtU+x}R)pu>W&4b8gs4>0Z1`-|_^$h21(VR4PBwffttWL7$k{U_RUdpG}A
z8zPNcx8J?HY10k$$KKMi-)}hhL2;{*DNXJzh`p$J&Ch$Qcf!KN5#{baofm(5c;&ds
z?2ccON?7J#rCAzJoT&T)Y2j>%e}kH*)fN0)<n3`I_Wu3p*m&G%K8#hG(|6|G5vaA=
zo3Ca_tj?Ry75iUe-s$c=ab(rz3EY+ZO|3f}rncylWACEs0`8do`oo70T2;|m%N_1*
z!!Kb=Tp4E^EY)LPtj*d<XBYw;hHBs}UF<9;Jv941lHuC4^q89{hI~+#%qc9C%U8Vr
zM9-eS*lsk!M~NdgUM>@0eNNL71)<3`^V2327kO~``Y=9i>-T%Df(Aro_KV7V)Oo_*
zmsQ_CuDWtC!?vwniTJStA8S^myDqXm75q})v1ml+UAr^fTSet{&v|1P^zJcgol<UO
zXZ!w`#-3-EkwBEsY@rz(Svsy2pLXvX@TvNU{H2;lu7wM>W_E76HEC>~^_bMplWLr&
zcWD`Syz*S?i-6^2#W}_LWw8M_%Ew0**Espr57*>5Km4#_>fYnW2L!LWJch$BMwRQ{
z|NePDm#5Ty!D*2a?+v@8&vcM%pDy@ze6)UCKV9>E*X`WQj>-+?`L~h{LPs?#CighQ
zlNfyP^|^h-%DkqnRnPqHPfl=%>orJ#Y@3|Fw!5`U0ox6DmU~eAPuZHQkhE!CVx0>M
z<ij|ESCegI5R6h+DB%jPBgt&XOwpH~c`7wy>FAG!tBxPBE&Ja8_W3nUlwZNXpFCb+
zj7D;PMON!I>+VsJ+sF;?$IZqqJX@u-O9sv5#~&VyHn>cqYXA99VVN!;8@k<GRgl`}
z(eW{JDILRFU(8xA7L98Q$6n<$*wO!L(31*)^#=o+*9n8Zgqx4X9j)PBF^`n2QizOk
zMYbM-jNs|W-!<xE(5Gku5^!nA{MLC5t}OnI>98+r#n-Kuig`vRmj(`^k`Gzib%5gC
zkl0T~yhtJA3`ef-bO*&>UqiINp<iLwruc{ufp#my=d_?231kaC_^`t6ZqZtqev!6c
zkxxS}#&fMq@`Gefz2wTJ6AVT-e6nc~*YQ<Ur}jHf0k#3NDwA;!9y|zN&#-q%UZga&
zW2ea*6bh1ZM22zd`qk=u{DYqok9aJBJtI><vh|}B_5JdjyyuVEksIlgIJ%8f+hl;A
z6p8@NV@9WY_3Cwh(M9KWkA1YlDqHM_kr5J9csU+O5bzyRB%-+rM5;(f&s_V2rf<h3
zrUje)&QxAoDrWh!f<a06B6$EHzF{j5SVm<6@GX-3GcHXJUpENAQW0)R9vN(`K;RH1
zl2h5DvW|;V--{b%WQ2R!Q`Bkq9xH-&<u|d-d9#Ebi-ZUl!<p#$e!xZ+NTL_rfB8yp
zG-%?LU9{E29$Az$Mp&CnidSnwFUrfE)gx<Qb97Tt@$Nj?!-H%l=%1{u8Ew_=LaI6k
zomUhjem(gBpoD{k|43?@_ND6l=^o7KEYVtKI-GzE@{`ZUo879diwzbmSP+}=eCg13
zzo{6vOPOUb1q#vB*Sph}6I?k~dwUr@!6*U4aE3_kWCxGhzxC3RA0hPziKZp9%O0z4
zc<@y%Ir3`I-ILtDFu_~i45|H-1)4p2jN|YN&3H=UTIw5Hg=qqRl<sV|Bvk2BOsI6K
z{T)0@GAN{iMSMKXhA>FdY`hhJGJ=CW%z&nq_}Qj}xDCEC+NSoSSNwokj%)~BD%t)6
zn_tQLXjjGeM)-eXZ0RYLRI5poe{x<ebm7}j%EZOLSxpN-p89^514RmB50z(|&V}oR
z9{<*`Y3-**E<8V5XVsfYP_Wa4{pLEDbs`JejpJ2)v}-g{<MHi#u5fSWtSUnbvu&<#
zu7$b`tmLootD0celtAleONR<4j^y$xD`8w0jTP4R#;V-SS-#6xep=eAx1ofK-ks^_
zOBPZ9zpUiLWG7I&Ki*yYy$ueE&lRwIW76s@$BbZV;a-1isszZE5P1p(zAIe}L%`2I
zefo6wU824G={BbLU|*Z|<=4jbT1+-rN38Z=qfcpxSS{rn@Ok=wKV0U%(g8hhs1!SE
z`j0<Nq9>*JW6mIX<1_?Qe6ZU{z>19UQ~vrsKI1y~@m$gRmm{s$;>-aZGC^JvG`<eS
z>?*O1EERv=iRqQzkKe9Z!XFV+;u%Q;8e^cC7dTeiU+l-h^(SJQdb{e1rXigS7^m4T
zW(bh1ggZyX4CCvTsMnqGt@KUjjp;pCSXX4|Jq?A9DTUH~T<qMR4eoiTQ4M%VDTjVO
zo^l`4KEJ<_aJ`7wvcn?UrlB4@ySr-R@h$q_T-iS~t-#2D+{G*118ZR#qp6Myhv@xd
zl)tn(8(O~6Z<?u35H)Ch_p+Obb&ugUGT=dFXH$b{Uf@-&F+VC!JqxUb2n`x@5HEXr
zZY;<`%$IMLxF|LXAWJg(aL>mojTf_c|BAF*Sk|ZZ0ks}SpH5}Se&8zb@oboAGw*zp
z?zL<0RtD!$fqofMf?g9;{m*x=OVIPQb1th2X%(2VWWJ_Cy;I7R6;5yxawmv)Me?bH
z^9q?D`eIeJwskwNJ3(F9HtpKAGum0-HX2P{vO~)!<q!6=s^{=FOV|7Hf`yJ9rholR
zuWn7=BaXHfrXFEe$89OKo3h(BB&|O}6FaqbS+H<ngKj<ie~5XBXOjA~m}e~m7IMnq
z3^&zZ)9;|4=V-@*eR6q$2^HHQYBxsdK`h6@vbVM0s`cNz;DQ%dE=nGb&c_YS`Wr7=
zw8-<MYH~;ZwmVJwwR?GVhk}#Q=j&DtuKjzBPf8ET5D<wV^m1!)d$*?5>PNa4W<TA~
zJa-|lhsEi%F)4*Qt=-8bl~bo1Aa=>jevM-GK;2nn&~7&=Qq0+X&#WU86vAHB5%iGv
z9lG_E={Tv~kItG})3kt}QLeGBAobpdpO4@V2^m5tlasbT&6W@xnMMH6-C)pQMecnL
zGm%<?VD>aL4^8`!@|%LQ>snO2!pjR`*rP@E$-5pJM1OMYFZI=@hlNb<by;Rne^aNN
zq~Q<kb=3TvyR<CU2Z}Bq4vg7%{+E7T_t4;fvD`{Pjs}eR);H@Q=}u!jnI&F2F>8yI
z9UBnEUMgxw=7Lo1_Rad_Hho#g39}z|&l$0oZii8ZttXsny8aUE^ycsD+IQ%Xr;p09
zsk2_LL>VLdKGE`2A`i-&03*zNr#15lF5nD0^z48qnz+S5;}r#u>>}?MttAg_)5!Mz
zH=)hSAN46wH`=_|depILgaaCHt*3KvUdQY_yLY;Wo8BI{fG=>Z{8P27`mW-wz~YnQ
zoQUS+KfFsQ22)<%B#((=IFx5f=Yj}6?5|;xDfV{N<`3UKzsQ+5Tz&&aSC7-!TbvW0
zzh;Y`--?==(LgtUFu`SWU+)fWX4L3hpbUT-dT_+^hm6?+Vm|EF<lx!p=!3%&Z7+c!
zn^{|jqlY%$s;V;^Nx-^4o7H}CW)zmpQ#Im%*)UAy(X|OCxrZ`xKV>t>@!$0y){MN}
zqgPJS1Edz+=cp9no@7?E=)_1hQz}l6J&JLqVUze)<a1qpVve{C(`>%A{2Wg?8?L^~
z7pK$PSO2?i*Vf6-&R5ExE|1#!echY&dE+Sn|9#zLB1uuW<JQK+nwMtO>rN_8wvAC-
z*B<D%>7Vv$iliN{qHa~)CeGVT^<Id9B}Eu*@dntgj>(eb3pwnT-1F(_+NWW+zK5=>
zR#MI=V}%os28+-IHsvw!N*JY*mMDQ7UZWCOxOP(QcJi7AeJPpEVj9d$V#Ln7cVGbT
zL8ccS|6MWf?$`Qj5Xl7ud}jl#3ro28Pwi3p?hqkkkwq|wzw8LOwd|AGAx4NC+1TJ2
z&VIY8qo>r|3!s1*CZHAXHOgRXLq+5w7uDLR{Y~D#`#Ig(SMmatkf#5}_dv#yj@bNm
zP|EyR(v&QLAQ!6Xc%GZ*qFTuTI<RVA?YGVIW!{7N%&g+}W01?V>^k~vYHF&%rUnW}
zK3lk<VRe7f-%kdo#4Qt`8oWu%P`acEyE^AbInb9sJ8?oCV?lWNQ<~%5o)c#0XGF{m
zFw)U?o$~EE#k&iNxbJ?TE7>z>@}_#X`p=(DYU#Ga=Z-ADdd~sx{O4Z&17bd0u&e43
z&5cv2fBB3{w!t|uaiHXJ@~Q^?5#A;$i|o{2f7!69ey#J+;NU;Zj3|E!)JLJE-XBDT
zSnZp6=Pkl|{ju@yW|LJVHVZ_vq<?VI!-vh|7uH@E>H$Cy7$E}^U&CwgYpJ$wW9$K~
z)Y7qW<L*=Zr*UqS!dyu~YeLi~`q5Lk9EA5!tJJUha8ZO!UvJcFb#AAI@>v?p<cA;z
zHp`=`UG)z}0zOfZI^DqBAhT$#RJ=eUVdotvNc~(2`WQZmX68ETN`p<c_g%6rR(D$&
z(MgI{Si<ZubN)^b&lxHPSq&C6_zGP6%4l>e)M}Fbad&2E0KS3(eNIcqZntWGCEGQi
zErHxr=^+vGIx3ZA7>F7U*HQ#^qESM-AIWUc{)R$hjjsAIggNZV4tqXPhpqQEtP^q^
zMHnSBlUUs5G2blcwwK2g4MjiHbK7GTgQA1h8*Bh5vtPqBS6O}gkQ)<P$WwXPvUU;s
zKW553v)5+`0Y-1B938d#-A;I1_H=}d&fp<z-`04NubIMjAVskU@^fk5mlmI&*U_x3
z+--v%DfG{BYnNy0jt6gN^6=SU0pwzmGry^?v>q~slRR@VcQ8fqEWff$!qYsivPn1P
z_z5s`6eWer!@#?GO{~3bjfX8xJo=bzOsyNpLv!xxLDVp6r$+Kwbp73TwpOT1KgmHV
z!v|#;v`gIPl3CkNojv<-{ZT)^<!kHw$B~y2sv^G#y8q`YI0hk|5OxifTT?<h8uzI0
z8GrX{+s^bfr5YJ$PH!pRo=-t=q)Y9RHwb$}T>s4t4Ro_lKrV{d(jGKx?Dpmg^#ME*
z?=GXvCFx%?pV^l&BF|e^BZH*ZyOOkc@aKnk(L0NF<6nR?mxmk@;OPOJJB<bo_Fpb_
zk{Bo*)}yp2ufVzSL{6@Saaa>%5c!#ettH+Z^O9PsJT$Guhb5XsInnO7?aZXq40_<6
zh7b=Kbn}mXzTgS6il!YOZ523(q-QB<nTA!by_)elHue)C9z(D5ic2$p>Cj=Ks`{CM
zvGpfH8m{v>jy!^sT1E)+&12otBj!eM;l_-+=fzl=(8MFZ)E4^(=fM<|s!KF!`jRvq
z#ZiZ;b5;5o0>s8zGyGSXFiN9Nr7-(M^$UxnIz6vyo7yhJz>7o7GGZmD6J+#E#%$he
zqf)vT4wim+Xoa4c*$_p+Z{3>M8jAHP{CcIGK88IPF1e5oLs0a})4?^<+_V+}ssBjk
z6@U`!ROpG93I{=xHYYCIJ$E{H=DenVoBk4j2?4QnWb+%^fAgsvT`4FH!m0NDL<A}}
zI2OMkztXW#8vN&)>qe1^KmhO0EHdW{!eW-%RY~rq^zq2Y^81Y$>{_vc(1%IL%<d1u
z_=tMtv8W=65*6Y!Dr@Z#V1eqg<NOk0qXX@XxH;xG*)=!xxG>R&Ox&1cVrsfzoKDaV
z&PH4U7p!dzN7wW8P%$!C|8(h4)O_fbe(QK(h>XR?Q%%e%jsAD@#hhbuxV>3*<(ju>
zO~rU2GzfRh$(dgEbnH~6e{hjYcCF+alJF<jYe`<xER+-hg?+JdN+<@B0;7uB^4xRH
z<)t?vnhN#$>+1UIhbjEk+pqp?LsQ2^wLWa^1$~YQQKvGRLvkOBua)eQLB{Zvf~bnS
zmau!PB`?rp2(>PRHtI+^<zxg%68ph*8a1;<n!Vgxo3HXfLZ?ns?)`BxOG2cHIW_JW
zA6=@#XP>|25GR9rKLrjSgTo@s`ZbmH@>QCO<V*E6RjjyXs*@gGzxis;9zD8S3FL_X
z0m(*VovJp=@`NmNRC1hktO*zVHi#-CDQ6J7oW2z;6DMZEPL~f#vimH}+WSIwIh?UJ
z@-W(op}Dmk&cR0{aiEGV_SiDdsmdZOU9LXKQQ<(&STdDsm5#QH|2BpHl7advZZZHh
zK3<CglVauU`5M}_w?#G3uZO!#i+zaY3u7p2dh+IBjm%cYWQlr06BF|CkW>v)Cb+XL
zo;)*4yN(xWvEkyqiPwSH*AOAo)LVKiiKeXio>Y_Cv7Ped4eE4zpj3VZv=KpOHR4S>
zIPgCMnkoDn(snTc{-geN7-stqWAHo_f5x2usAXWH^h-QeJ7U)*{^WcOY-Q}Ix5x#q
z-XHDfFg_0bX;bfEGIIbYrgiRTI)CR(O&CexAJx&cGN|Fz^O{;YzJI!GE{X<WSf9Jo
zR!H(FUwcFQUllsmXFQC`fy7+A36Zz3sS%xy_blv&IT(W$Z8f#WA|%ptAj>llcIkFI
z7ptwN6695den>%Pr<|LirI!sy7fVCKnDjVU#ozOn4t9YWxC$a4TW#(BZ6REjq`^4;
z;Bm5`eJ8tA6rgZn-4{46@0Qy9_U<&hu(S>n45CZiy3A8{B1p*Mn-0=xay==HfS-gb
zt9z$Ll=FJBUvC51Nq8M|==k0FO$_x|L&EgCfB!sDA{l^U$lW@7b}HVVS@iLu#oe8C
ztn>2K|CWb;T;bHJFy`N+fjf66{C4cv0}cN2yf*FB0|_#iFz45sU)N3XyBaTM@Yyys
zZ201pZflR|rpUNAICSyWr`vFD_sbt+_%6iBCx*s=$~(KmjtBi?rlJj2`oJ)|f~`oB
z8g=NfY^PJ265+=1tzb#T4>p~+OyF{&LTU=5+(_DtyneTFW1^Y@ZgpDh--l?+1=gnw
z|MBu_;n>(S|6oQ?tDKB-)(*kXTL-F}P1=OtW_LUd$eK?t$I3u%ehQ)Z0=dYG->qpW
z;Y#?oIBCYA89%0(50m;OrlRlcgX7bf2Br3+O95R#llM&2JGZTgmx)dFms?-!e<jfF
zTEg|3jo)5Z^>{UE=u;UhD`hX&YN*+(7q?3u9WIW#l=sDLB{OQWJ%F;n9G7rTNH!dW
zp3piHi;Dn#FX6mk@WG;DU6<CccW+~0MOtbBB0-Gp?`&)1^(C{`Ld?l7b(APJu&tUC
zQ+I8dL_DA(kSXcpt90KqL-mJ<mtCmct1lCJu-==Bdu`mhB>0ElPW!5O8Vu4`Ifkx)
zYQfNl>%;!x!>Vj`8r21Bheyt&)e^!ByP5cTQf4RZ-4fVxjhSnl+o)lEV7x^Hpfzl%
z<&{+dNK{XYIsM7AHzh1oN$l0Hc)5}5;ULYw##@RGL|*O@Ip}Dr%c9~+GjT}<11H24
z84PEF$DRjoL&|E#`k((4yYO-Dih&W2HJ#o$Vme|fR?uw~^}bqK_p5&OboQ!b_Oz1H
z`I0pMdhsxDtPL9EM+b|Ylt$xQ(M1m&d7MZhISIe^<^IbC<;)&G-a$=mvulG(4jMf>
zzuTR)yj<hJfdgCh{O}hyt!X(y4=_9~#K@pZpw;Tjcrqr-oN(>FI^AjQIQFRK)T}3N
z5FY}q-E@QU{FDTGRLUpqRHyL!VvW@Qh>+!3ZtDG8o0~Zb{*Ns%QTreL(12E5M!t#i
z&bv3DM~{=~15Bk@0k>Vlk6PcZL>PFkQ%8Vs7y-#0KzQWBLtDdJoAoq0SyGO~CRG`m
zE~<U~vGu(EM19t|Wuw&{jm81=ZmzFG5B#6S)?2?k8vOSewt3SX#%uuXoDn7#7V2Lz
zsxDj@T)gsJjt78yESCDTUdP?!A{xgwF5viVeKOQ(nOLoN|L*VB;mWb%)j?X<GuFjq
zjr}K~e9C_$y{>yrb$31Iw#n?=?tcZfH*fM@FfDqjJ!{I$58+Fhl_~Sx%QdQ&U+XZ{
z?`j$r_E`Z#lZGARs;<rC0@=qbzgrW6c8W4h?8Nnp5u7$te9#ctcS*qwCbMyfurVB2
zrMV9gJ_!eAlYD?WXFPe<wg+o8th5$|ZyZ1;<ZQ2<kxuO?^HYnhrx*<HNM@GcurG<N
z((Idj5aj7Po^Tuo{WyiVqGx$jW#%yW^pe)BUy=~D2!?z5VyKN?r{c}`uWT-`Px0Hg
zPcklfUa*{^6_|OPJ7x0B%_Ggz?vVjWK_(U`hkGrPhHdxT6ty*QMK$+~z2kD_&2{T0
zCw_q*aww8ZhAmiUT+fV(UbF*2w-vYcQ}n{IiWQi<$5&Hav{I6~m&fFYae*sc#)wF|
zJ}&b6qxv%kkwr9Q)KQB=6gxSW0fFsl1to+EE=DVoqeSQ}sn3|9<w)IbZaV;#8|8Ly
zL-m1w8+e_^mrtEMM}6qhgWT?gZZ8&HGz>Xvi*9)T>D|>IYwz1oDmzNg>80v1NCVm?
zE0VX(w);499WxMvcc*4ubG|5IPA;+#Knw;DxNd$^Le2IybZ)g)>k~Q$7r$NW7<qz!
z*N>bumr^@%g2q^ULvQ1Pa1r||t>$zYV(Ans5<=FHhz_;%mPcC1fy)y%4;u6Kij^4U
zf=iN=fj|bmj}BjXGTX+x>zL)hqn-xMCaGHZ$XP<!_8_M1RV|)j8W%6xg0BXf+q5TK
zN@BS+4cRWz-mU>!XBw)ZRB!M)j-cWhPJYZjkQh)H_vyZ+XU`BpD!vOWdw^MTSfTLI
zK~5=Jt*^(G%)Y0=rw>u4U9a!Bpitx{(OF#=BiMp_ZQ-1{3}0a&Zc%D!w7s0X?Yng8
z^6!I2W0pRR_^AajW4n{Ze@e1Tp>)L=Bt|+!b*K_9#ape)S{}9N(cu6JuTV6$W@Uzq
zi-(+>1#|Tt=41x7m^csNYZ|_qsO(d^bz`rN8~lr+wJQY?Yo>2ZR(~pE&ObvRWW8y0
z#Z7g+I_(f~6?5Ao3yyGsjQSXTYUa0{=<`lJw@B5fqneH-DX$ZQ=t+3~Hg~WV?{9|l
zQow&j4^>6|?W|comMZCpn}u?<Xdw|<hdu2=LuKfRAeB?MHI9^=vynALAavr|gy2y$
zu1`bD<z9&!u;;OU+B34=xhX$E=MJzcMz9b*ff8?EclFdi!IOm#mgK8+8__v|b1Eh@
zPz*ehf21|i=I85OE59zeIKB4nJFFn6709<YbIg3~EN`UCDD<MtVI5DXD5fr`Z2Df5
zY8*!hv_v_}$c$$)9$uj^@R1-`G1j?fvR=ceh_!GMQiYdf4nQl`I`>3Fa@~|pI=eJ2
zk$15$d@GSMO`T=s=u2)(+YOD|>~b#+otrN>-1!{Z-q6^XTz*<a#%OCrL9cE-hg&<p
zRTDLigf~d+3gLtY-F{Vm1F?h?q<70<{U3LpdB<|Q3>h+H_B>sB-$C8`9bdw&DlvSt
zUxIdVCbs9EBx{3s1}h#Wd`kBntrW=vdGX*eL80MSC(Ed4NstK$43tpt42j#pH0eC|
zd-amE5Z`CrYZ02RW2(RIWkm!E>W1AjqNkxSFPtD}K$;;hwBH-%qtPcB*Peyyb6Ua;
zdG}+zRJ_LH^k5F%UvWi#1Nt%)mMIZA;(H&WKUCp+$j@`y^y#x;dp0M?N|ulrJ6E%)
zOyw`^xrN#ZKG6G`q4ivF6FK78wzBb8zK*}Q=;G#Xll@)9%b7Fu_CP9~zJ|3-*n)Gn
zR9|l8^()uB=cm_eW3ZV&(b}7IoiGBni;PS_pwR8lMhe>y8ue;e?t^ZVl|MDv02{TW
z+<H~(t?MO|p3ybSR0`ED>I(lRL+ELEw?}^dX$5$K<Z7gJ<OD;5iDr5_jD`xZNOJ0o
zTJgPSuaBtoo}im3)QK-z8+z@UCBI8^V^f7^iAs~&1i{16XjOObY@oQoL16~6^O$Rr
zcB8+c^!0V{pC>~(Ub%Sp>qD-5Tg8oUz3AQ9y-ZY*fg{qA1`PF<6ahI}H1*4#+5lQj
zo~AS)d6rBVZ#Uee=2t~>Yn6Lt&;Jj=y&KM02K#B+s3;mwQmx$o*YeN3j`PW9e;u;O
zmV6J2Qr}9-x7795IJ!Cf<)4EePVVSGla57#K1X`(U~~q`P@op|9nybN4Vhi;qVK}r
zfrE3SP;pN}q?Gh&bHf!HgY{LYW#-ybqWhdiB~`$MCT4m%mBA`SRpT!6W2$poc?=w-
zsr*@q1nNqT<P$=ry5AnCwJ-i`B7$b<CAF9DTYtp7W)*7jQrJ1^RpN>$C>CvL;J@eG
zLAP7vKdtu$ee1U)pmNHcgoO3pQOhzH)nR1@Pb4)&VyaknTjr%c9YZW7qN!%%7AQQ=
zJcQyACb)d~s8N~gKNR16v@T_APUcYMcgkH1hY5yb_sJPXL-uUD9^<UOzv>WY3?j(p
zdb>{T(!7o$tOLd=u;>}`_^WVRk=D9%kHM9<JE@ZVl=>q(W?e*iba+&LMd<HJq_uIY
zxSHx>;FvQUeyAfdxT&UY3;GO>%pB2yJx|P<MHB>fc_GsTrUC;K&Xdex$ZC!(eq^hE
z#+e#qEmE`qP#=j^52=ffM6VY&UF;DsoQn8b0*Cvetx5pGU=m|gm@HrO1d^E1QW4aU
zQ+!03EjRwvSKGBIy4t25<VF#GoV1EUiDLwbm1ql6mqrGyR45LQ<}9ZGOQV;gOEvW3
z5twD>th>90dFple+}|?R5SZcA{maz#G7tL6v%iWW$f}OZ8!`8nZrCCP9Wh(}kjv!^
z!js;$BBvBYedEl(^k^S?UPY1Dh#$nwUfRoFGB)gKe$&c4c(SnxQ7=~Qc$Vw`3m05)
z;pPbx%XG)Rsbo@5C|bN*AJw{+2uiqfNBE@S>i)T|<>yAs%`0WF#P`c|AnV&Di`g3W
z<%agY9@irxZn`gH6FwFN`D^!yEE0|Y;)m6BwK|?~{<c4HCn){5DsO7G;`3>CEu8gc
zz8$e3(qeo^qq})0-oJl;uA<B4b~)d-+?}6WzOh$NOklTG8`#WqxkKSJgA$$Q&Yg<0
z08YnD)W|)D%Nqr~R#N%lbl8Wxw6wdq=;F72dsH`#+HtqX?SThx+paomuFdZ<nbIDz
zZffq4r+-_Msq^ew0?lq>m1=_x#W{VSe(q}-eJ=jZ#jW!?f>8U?ygJ_Nd7%FA3pJmP
zB_J5?UUNiu%ZT;`^)D5dE*tvS?C-m7nMFVBexol~fTn-I#hixM@mve;fk5{Jx)_le
zY7H1rUN(nBG8qIVuxxgML^AocANPhBv%I(WTj;c4MRL|(!R$7^OVi}P`8c$~`_`<r
zv4$*EO}a+X8_mf?W!Kid`^~B=o1LwmAzZ(f0A4M0O5;-_NEdPO-uP=0MU6Pge%&%7
z^vf@PqXmPcr}*{#r)#b`4$z~UzB{bNUQxU<I`M?@@BUM!Oo>ehoPNCJj+`08ky6sX
z`)F>xJ!9T96))e#*0{CJomw_NBjVKcOAYp$iw!FKi8`2K3Zf2eO@Elyx!u3%ff)+F
z(fWjPv$tLY>buvp{P}&(xX|7IHd6SXZ}v1cmJaYSH)BYciay}1WTJ_Hw4R!>K2?le
z$KlB--n;iePI1LJZT~;VQvpi8W}%dA$VJ4jj13<c#F(ao0HUeg2Gmwtli+PL)-R>M
z{b!H=`EOK6GQ;EBvhwOxHUL=e!=Bk^U%Mini<H;(Jg+vLoMuN`!g2&St^azJ@@sF}
z7kB#aWgL1(IyO;1LJ1FC8f)%G15_9l*1gn1<;K)Az5H8&#&e11^ZJAY7KjgB<B$Q$
zn!w;GPc+oA?c)PbHYjoHK^iGe%$uz0LPaEIQ>4O)lb2C<Aiv&&)qi1pfbwTIUN1Wd
zP<UpZQR9mjE~sB}QTLk5k1nMs+B~wkVxZB+VcjiRmo!A?3%|_qkqCGhU5vo2MQnTJ
zhj@)+<WFT;(O-cQeo5Wg%J>i4zOd2gYNmc`rMNYAW7}jzs?t7|=Wrd1=uDTOd{GTf
zo;2yxWsy~pMY;6fS{Z_^j{D~wbAy0qeG>Pl2i+r!u6LY@!giJVK2K|+b<l1q6O_z(
zH$sC|zZ(`OL*7r+Yt%A`hvajb#*Zk#=-f8SvopCd<n;Stao@bC`(`fdvy0qvk--bm
z()v_AMYrMd!N_XMWn?`Kh}!dZZQBxW;#wRBf|RwT*4F1~v2u9l=S&#`;tLcS3RR#m
zq=H?jBL_f`pLKdv@ih~K!UvR7yZ4g|2m7_9`L8EMO3YVlVP~mO)St3(X!q|du-Jqj
zc7Iv9e|ww#n%y|;P3?j(eSm-u)Txr#5Y%3$+0zc0fDvN3mwR}-cKGhQPhKwDV;9CF
zvP(JR^#e<)ghEi`R<gWFFNyHKOO@PPr?*N`jJ7><uYBEj8+g6|<Yjbn-LI6Wjmb!2
zSo`EvmPUAl5#(i(s1{x~JPeAsvIy3^lpF{xFg$Y3jQ{v!<LF;9rZ~QZ$Fj9k|2ny_
z>g1fPElpAW_dgKYT^X6{S+Wa|yK7CwM3Y2aK)+tcJ*^|{%p&hCX3jv7GVo&gi)h6}
z%ByevD(03d3&X!JuyX8a3L`&~nLsFJ8Ua<f5E>2~yeX!ud&OA(>X%Gw+`sxFDfqsB
zxfI2`(D^Q|isYwzl-bap1A%5ssbDIW)f9wApciG5l!P9VwEx5*2T1ec?Pl62Ocx%T
z{FhT@_}n<Z`d^(t5*w0%y23uKoPd&&%%Q|_h%j-{<^~F*ElZlb7dY5Gu0h`c10u}E
z7)ti#QgbC$pB%*9WqRZj<$QMiH9)?hMVYB)Q5zyhN?7=Vw@nL}e62V-ed-j0B!bZP
zxog%=q;X`ZE7(%7i&wt^17^YI;wdrO)zs@xww^9$3`GT$@sRH73R{=nwb9hWBYxe|
zrl57}aV+vwJlEs9G*sx!K|+RkC-tnbiXoyj<DC^C{E?v(Jr7u(!~kl%wSl5>Jq*so
zh=`E0P%nMaMZ(C3DrRta1plYWdzAMVU-1D!G6#-4yy;8W-DDSqC8wjjl#Yd-Ni8%(
z@lr2?suryOMB-~UL4rNfRh2va>94yj6`EGckgptqvnG$8@<b%<Qe+aV;IP@qo0<S@
zv-02h=Tk=>`j9{D?;D;5TUY_k-a^7Ro+51$KrME)lj>DUzW@D+ts7daDY{wG#m}U}
zgX#)5YfGv8Go)fe>n;jK-T<j}yL}LZ1W?7%BJDeGzCc!=;*_dlQw-G%`@x#Mp<DJS
zF)^Lx&~8(ZLNPo}H>lwn6DBY#W9pHqf*t+{09oLj1_4Y7#f^RuAj!OFgd}Lw`WH}S
zq=FO+QHmJN9@jGO-aR4)Ai)h1M<84*G>*8mzJ*0FTR_anGVEMz1RFhomu@{KB*&MK
zro5FL%98Lbr?r1Cs0QMrXNVw+P7!`uQr>u*EiJqj!lQtKNM4x0=tN$b1y6?%m2-u&
z*re)Lg=e>JD%B2>$r)m)EA+IO!;X)c%N+Z&upJ?t<B0W_^H#9ygv$;&;k4*V6Ikt>
zwV<Xpw1XPXZ`w$C2a$p&^D*G2#AC_l&`kS=Ut~LV8RKq=I(XU3>CF`e719qD=q8r*
zTmgk@w5ze=r8g-+V}5*Y#W$bE*@DLG(`CudkueFZOClL#{O>TpQk;pjkM=yQ%G+Ik
zz%TS?(1f(JbXZ?w3>x3ubNqO5)E&V}V-sLvx$%zVlvolADjtjc&nk+Cf2vmIFhfz*
zhzBAbT1j*#kc$#pYGS3TQABh2!aV8ZeJAJm93QcIf`p@Sz==Qs*@z*YppgW<OXDq5
zdI3Gs@y5-b_md=~JDvhbSnHaT6kJhw5$6{+?k7)JnN{pQYvC$&nvwZfL`&84R$U>5
zYdX4`4W~)ck%8fy+uzGZh(VNz>DBZf$!y_`zaUwefjdPmRY1W9i!L_k*JM`#%4;`^
zn6=Bis^JVmVlOV?-^=m5Y>}<P6ZY(DoFsIJg+%n=jIFpmkeJ{Tlob+4$sJ6g6#B(0
z4Nw*RsUtqo_u@OHl0~Hgz$GRmVkv~PV+us@!2T5QKKuOqKDyz{?E}FG)EJzc!A9fY
zH=i(}Vbm}66o>U<vaE~GbB`l_RD4Q6I!YHH5VWj&==f$UOxcGo&Z%Dgg*_}8l7a#~
zStebZQazQ0Wz9F9e+t;3=|To0$t~E@Y5AwiqR{a%4Zgev)iuhCzjDtb=eHFO8EHqb
zNkfJ0mzgFeg=Y1h4*@N6LO<Xbkkn82+slougy5R|w#iEOeEd?#e>=Hq<lMDXcz*hm
zFCr>|oPt2wT-#9)L@*;gC3-P@l`9b~r8gUO72jLPZqKq88kW}9)+ZW1qtDlRF_JkL
zx<vKK+(9ulj~GLxGjA!W2<XqpA4>rAnoKdJvaRurZ#}pe2`4DeTz>Ic`!*}fZ1!a>
zk2u$8X9T6UJoXlocIM8fTXobRA>b^$F8P1IE83hmAB~iHTo+YEw{4RQX5HptBe=pn
zd_Z0qBN<>TE|2S)r1g#}xH9YClQ<-l8EmFb*ElzX--v`Eap-s9%a>K+eiU&-R1U|}
zS?2SxK2BJVnMipr0TNLNr0>r^q25e=fU+@Z>sq{GL{45QqvocFYY(l{wAVnxH{xf`
ziyz|M@0SP8`hky~zEesdAYFuRlT)AB2Iq5C(z=;ObOCNUYdZhj<+a7xVSr1AI`8qg
z9(QVmlSb31jH(qo8rcS|E>>SW?NlH1l<}2%Myi#a#YT=2Wj#%7vE3Ho@X06I%OPM9
zTmur*v-<aYmcFojhBN2PIRqtEzVWjp)+05Qskb6y#po<C7L?E63lIrv9seh#D8v-;
z5AK=J%8B>wbnM7e&m8{v4Z+~YGD@zJ?Ln5?RTlm|3-5bG{r={ycM^=N!N9?(9XvYd
z{NnfMW~cjf=KR4kM?*(mKeCtbs)lb5KY122w6G8+Z0rt`kb|yG-#J!)c5`z8ivQP!
zJGNYdHg%Jp#*L|TY7dv_^tqn&%&SS0_gY6|p360igkmclop#UvJb3V+XYg~){}fN|
zOKn&kHLs)0^b~(780P~<PU1Fqp+8PLJ7);;1qq85CmfQ3{)U(c|91j0m5Dn#BZMg=
zv>?XLVRQK;#wKvL7_L&aJ=fpr>U&HhrI|m(p2n)!rzt*zFMn+u3P9O9mz!T_q^5ro
zUEc}R!jncG*;c0MN+kPfqzp2HaLVRQ7Xp7AQSyZCp6B)78^zd_;Vb9+M&$`409NsY
zFutDoOTRc%#|Q&0!V4s?Q^DlD8T6(LKpU6g&G<mdqUy^`{c-5g#dawoT4rPyx*i$b
zdROz?pRR{TTlRk!c^di76jH2HX*-Hgy-OH~SaSXR5)0>a{PNI#>+SBSHw#vHs#`hb
zZcfYAuK=h82*6|K=)2C)rT*&?_sS!0<*#X2<b1AslQK46{nBsG%dh<2+4^_a!Y!jP
zKqa&f8BxFfOw^{QFV@uXzqFoM@8EC1#?t~*ihs1b8SU=2$1{9OnjH@P!{YrA4MHVI
zEGEN|Ai4i$CX~b%B4lz;GGSnE{?e0YFFW>`er#j_m6c@W&7u#|%;!utrRWzI3BDz?
z!ZH;E_0Q4e_{p1g>QE{29(u`_<rboE5i7V_ht|t61%$Jexqi2Zm=^#(HbNVU<zb;m
z3^NvlMHDDbV#YBEodn>uT6M4I)pv*OQ%UCjb<0irIS0QyEF_m;wBn@UC!<A(r?!5-
zl29^d{K%L-^Uu9P%*c$;g|U-Y0!Y*^Eq_-vRzKBaK>i2&YZJKy|Fw|;dKw4z@86=Q
z;eUdg0>a|-#knB^10T1C!=(a<-0^q4VEjL&8krR#=36~!Hu>?Ih6o<RlixYd9EIvG
z$JY)K=YCBp_w>rc*w10jwv&0+GylV0=D>uLHu|OM+o5nYy$wZR6qeLNVPLZtH>Y$?
za#a$|dKx0K@O*-X2^C}S@eLH+pTv38jASkSGXqJ3YHJ+ojc1+p4DadjAak#e&w`83
z#1KK{CV*zaMUV)?nfz5d$1utuQAO}QKJWkV$#u#{L#Opl+r1G=U06GY>J^C8A2g16
z25CS9b|36JZlMm6j6QIoZhtgV7En3xFqfUZ`Q{JosyI;hRK8Pqj{Hr<s@d|W%)dHR
zQmTh0Gx}8~gZG<r;g2012BgQ9Xa98~7Q~O%<%Du1lCHHt&5Q<r0(>nXeDQ0)N3D{K
zbk;9FFh8XyU*+ZZH_yg&dy0Encsj;-cF}V>_xw8dC%paNrK`8;fgwj0Kr^Z1cZzqY
zLN+Iw%YvP4JNpRwgW6&|&`5-_xBMtMb8D(RYNktF$>q<~zS&E@^LGFRB}$C5&N*r2
zho^%i`W~#lfN)A~S^J%D$z(C*9A;+6uBP7XT%i)EkJSniB^*ULi0QQTm{ELX&-gqx
zgp3N4U=c}TgsKziqev<_p!?XaymR;N61<es8+`w`ZZ$)o-_vD<o;!e&ak$4hRg1-i
z+HvTBBryJa**}n?aFV2BnFRME8JX$nN<$r7<RloukYqoGCt(7Jiyuy&%q9ByERULM
zGwa2iLL%6b)D6j<lZ3%q5-_=;nyM&ElZSKExRGf{nwu4~QT;Ac3D^OUh%TEquC_1j
zF<KI#hs3o6bx=r(tfZZ!q4W`jpBS2=E_ECCTF%GFB3O5_3Dt&bp1psiC*({}i?+!l
zV|Kh2e+@nLOgb8(w64P%uaU{ubpK-M=1eguIub<@-v_WkkTU!{Yra>kWUntl7$Q>*
za?%tUymi*fOrWgl<?r_JODk(*+^Dp&Cn1uUu4YXMxHMTw{B`@z%_@v2bct?R7DHCR
z^>p38SNJbWS8vx2`DtI;N<$wVvIRk{d-cwkP%1(;^GrX+VuhyN&mO1n^pqY#)c=yI
zNg<S8)fr??$?^Io1+}<6koe*k>Q(Sl_7EJU+jxQO-Tg59lr_a$+;s&2lQ~6k%|JO6
z8~#(}&wnYpJ)|Nh3V5=Qov&+I1*M+$2bl-ldTDJp-0fjC^9RJ6c`N}k76?FF(S{2u
zwPh_E(|9#G(v9!UX0>fO*^p*Y;ko-B8<zH=ldB)U8BWWTP1|mnh<za*FhQq%?O*IJ
zQ5E^Lybhn7iDQ0ox?QrcbHDDmdXb=A7HLiy$7S(nIz$GaXKPha6mx<c>Vg=1EW%Uy
z^0zEmA%*&7uXYR=I;d^x0{R?qtf^s@+2lgHXG+!weCNem)Nu<YDfQ2d521GmW^=h`
zLOw_`Al*xTE02neIqq~RP5yA2cS>*@YKUXQdhCRf0ohP(ug0@{^z##F7wjMp+%xAQ
zS9MUWTo+em)%v$)13+1X*Y)W+r9fx7Wb{8<s<OSQ8A0%ySw-nDOCWTgY_jEe)URcL
zj2qFv?7f}4JF}=|fg@>?XTE>`ZgF7YzhoF=ELH8SmWa!8BD<@1>O5Y_(AsZcpi75z
z{YRy}WVLYY3Wlg@C;|m$QRv|FN8eIkuO%x2s068~Wa*~$y0M-RQFI^o2JZAsXrNFS
zcd7jnFB7P7BtMM7Nd7bb;$)GTCjg4#+1=Q%MN_9+8S~EzcO-L_OSwRMGxm#HIWrw$
z9fWYySf#S};6Jr`eN%?NPU1zR@UfvqdGLvFysR;Zc%9zo#Xw3^VGJmHX8Q5|hAwaR
zOcWVn!?%^Z&&Y*MYDcuR-o@gGRo|PW0c|A#WpvW@I+?0<ZYj=~<Oo0w<4&~;^kruj
z;FsOrn_0^W!#~EFCW{EA@Q0tvL()L!_>W`F+3u^uY4R%gMGJIgfT)OvY18kuxp^E}
zNIoa8d**}t_cf1I`}kjtv!_~M`Cw##c<fTUVuvTN77KL~=>`A>02T+2=ut5QAQD@7
zV7xoPyNtccDWfSaWN3!&5OzbiS{tQ7&$Ti7!VW49tD7qq;*Ak#9}D&Of9Z5n-Z3Lj
z&fLt)XKHwp$84e1wTM~bZy;4e7j9lo&4YZ&Xj^YR;h#BSBZNd<&~XdNa3>XiZVuT=
zGlVj>r6a258?BUY_J;Etc6<gLE*p{iO4RGU{%G$fSz{m%Q^|-=7hHkcK8Sx56M)>4
zqmAn+cUIya#0=K4E@?}4rrD(lrQ06V+Tit_rmSC}CW%3%K@7itnZoeB$k;XWVKYO9
zs&slkxE*gKSr8_6%KiE05%r7sL&!Ex_b$oy>vwVopq&;)CJvUBx?c|tvJr-C-%~zZ
zy;<92kjy`hE$>(V7Cx{ULebn-sQ2yhYRrHKb+#|4m)ir!b#9@Vj|I3i^D+R6gX&d^
z1s4oQ8{4OOz-zpxRZrt<{AMWQ*Q1KC#U#@(o)D`r0CS7yz0VEh0uceK9d01XjMB^j
z$j}%|x|fI2G1)0(ex!wV=dG2I8#6A%GpHG-><??(w$LVM=S-=)@WY~=+jc5=6yF)8
zci&$^&ij7`bYkzHXjyNd@1sRFBAE2{ZspiGs6kGg3BOG8uwV7iLjNeP`7vEQHEZvF
z<|Rou5NMu$??D0~i5F621PIs0L7M~C2)O|dC^;T?@7$@cw=1N=dKk08-*g(^OH<Ry
z`!~$O8m$Vp#C15V&XsX(!d_NPy9?!=TZ~mzABpbs)c3ObyHC?s-6LZjELj-6U)r?E
zt$t~3VIhD1rD2csGp;J*ilH&GUsLX)V((#_LC~X=`!d(1I4+cE@)?q)K~{#Hv3W)m
z$!(A-$4EB$O+>anrzMJ5;t2^~Ss0aBPh-59>s)QF*$rQYRmof;tgPnG*1miAYw=2~
z3)E6C%k{(`AW8QZZ;#ifBH>A!R#d?@k&rWaGPG;wmaty+ldkn=&tfr{G+%Q3V-tKl
zw~#;I#8$_S`*>R55DrN=%3)1Q)V<~a+freC<rrB4@q`eTmr{V2T5eAOA|s0G6D`}B
zeR9igQdS~qSD{i1PO}mEo1IMIKTTzOh)e$i+HaE5t{1=FsFo!0LEH^#Pm9_9wQ|o^
zOr3#H7&b&Fb#Gp?<HkvgZ#2(y@5A&`lb5yDxY0ojFHtB`mU320nif1MU}&D(M*MQ6
zF!+TioPX4O$Xe%WYWAb%bNMl!ag9~l&VT<+Rm*B@1C=?yY^zW^a8k$jmp=#na_7sR
zFaL8Py2t!Kw#~2iM|-uq8~TpfbhoKizottU?D6j#)cA-&<9bc{?Cldb=IPEm?Po3;
zeD6)Et6tgXZRLJLO8h?LzI(TKb&^bs*DI`2-OOcf7FNxdGuA(-bjwCmaA4??OVMof
zFHS5+iKG@!KRLvfM)}4mNQ0xFR5v}~Jhs#cKpAz3)!PhMcCQXkII|A#QkCmJ<O8;n
zt3{VH@5lDCqNk|MFdRDc#U_|qT2Jk?jNBE%N;CYkWR=#wGn~FZcJUYO+U$SHe;N2P
zknhDsXG>=p5hst?ZC~Taf9}o?e$sqVx}?JeUFj`HsQ-P5)0tfQ7vWn6_WBPcv)GRM
zHlR}S8(?xD{KKcc?AKQidQYuBWc^5yHo26EH`61-a&S3F*w@#uYtTA~C~gLqmfMf(
zy^nK?7GNXxE#PN)9^O&=TM0Gm`|-%};}IkwFuB)h(2N-f07P0SX=}&y*I)kkiYTo`
zC?xIW(DQrgrPY`+jBLWg=sl5>bSmZ_9q$CJp0bWlOV}FB7c@3&@6Q)B?g>VLHjzX5
zmfQGo<6N)07qkC~vKj!w{pwp?r^;z|(GM_xWK8$@j3q)9p-q<MEaY`xJI|%gXY`zw
zP*#HvxyHE6C1Xj32x4}=`ofJ8<P4>A#X#R0_ERjhbb#OVY17JFt2rj~S&0K8i?{@z
zo#mW29o1AMDnV@-EFq_n-LJb)OMhGX?lX^YfGE2-EMx!9l$(}eTm0i_*Xt4{6CRzo
zK5@6s&x018RSl0OFpKOukgwzKWOjnI2CTidCGGiz>%3%chXZ?|fJOgrapgJ8&;Qlk
zna9<f|9$^Nw(Lu`u?=OY$d-L+7<95FB}<EaDN7_<Qf6ev&LPQGs8lG1(xNi92t|uf
z$udc$LM4ja&-bbMUDtJQkNa_5_x;b^V}8Fe;dIXT`}ux8@Aqqa+u~0$Ec?panxesh
zWHD^uk4QU=J=HK}{yHj#jYIAZ!8ao!!^j;;9%v=}$&pI^X@h+*!F=Q7?_YYNuby6s
z`gUipxvv^pS+DX4nCN|qkEESp{czd9vpnVE5+bB8uf#w;@z6!pOG|QyU=)OB$#mtU
zHiDe?`TObRr3Z*&v3t2$ve1!KY}yz2W(bWn+B1uyPc$gvmtyU>9?n086Dw<D!Fi%2
zP>H%zRFOC!Ss`E6+&y&U&a#08#5uoDa7YWa%hnHNJ)1SJUI`0%Fw_nsDpkb!an^;|
z>t8qaIUjiyDVJ$k26=!YwR|+T&4wXUACypOSgy}1LJuQJtSCN8rv{%wAVsF45+XbB
z=ill&hkQ0Tp0T7aLV@hQd`i9Dx<X04!0EEeLrxhE1<$7;fJ^G9eeJuqmkdO_w1!Zu
z%52+-=KZm_POngh7aE>nwHkLht&Ro{m4ZcPO^cjgh}B!Gi?$47(THLWvrsxK9(e92
zpErRCvu+XiA+JRRW9OKao7`d8+WYsG@;;i~nV}Yc*^+Q{3Ko#5)m)x?{G%R8GJW<o
zR5jD>8!u5x7Uk+AN6vIT+JECEL;h-hC-wchwwO87_=*`J99-r~Yi$#>8HI`TXEDbD
z-ZW^~uw;TAe>`=>ePJSvueHP5%JIknrJq_XYAu5wTHHZBGQ59^esI*lE~Q>rHKu|A
zuL#NoP8x1!2y(!Yp&L#pcQWVS>#|L}Uf84;**3BjB`$^b7cCFY3g1ju)H8yxbq)v~
z!ktK^Thm(JV~HBQ09DPuv7o9P)Njd$SGRKPE3x<;+*rg0#Cc4?SiK3lS0E4?^)1KH
zt*2E6rq2TD`swmrj|IPJ3-v{8Xk<oo)(Y;~BxwqpPUE(8dDur?y=mNKb+OXY5HO4V
zovxxqhRv#5+Tv~#ABO$pw|0|`40t3H?A44*;e1S9lysfXe2kM#Oy4TRpllPl(7+u`
z$as3mzxVv>vn0JQ*R1*qk|n5qi|C3ccXln^&z%lH^B{YvWDoM-hJrp@R(9WRG!|Hh
z*;NuXLhBHkx|W_H9sHHO(Rz2@R~dN<KJFTnOS;yG?0V`+-&1WK@x$zO)%#HW^>l`U
zA2<VWR1P!Uox++Dx1Gowk-36I_D0u(3WQxM4+h?hrtND-F*=2{s`K_c#h5T$uv?cw
z<;8a(S%1m?J0%AX564OC(2Kw}<bg^;l{tS|<_t?toPS7YF6T67G)(>^8Hys2drZKC
zg*^CdGqI%-u-9qx=a+h}i}-QIL$92>>GS>TVoEg0l466CVaPP(uZyK{4$SFcJb_|t
z7j=)>yU%cyr8HD;sZ1s8K>{Jo8{WloMn26pn!H>xoGT@+St1MZI$2yC-x?)zC)d)c
zpgxiyPs*YAz+|40crk7|zn0Sod{1K2clfmT5abCA`7PLO8l0%;#EAtG=_Q9oD%!pL
z;y-v}X+#xN4im1wmS&wLN(gB(fdvr}Eel6S0t14Gm6WlRNV~);BYQs@vR;ozk<~^M
za1dJ!H&w<6k}<3g9V$(rbni^dkW@XBILPrOP>Lv-EXX|8Q47ZbLq>jnQCkQMlS+|^
zgXf4h@k#2<38IP;hL4S7?4Iwy5Mth!ah&k2Hb*#d4O&-4@|NXGd+x_|?ng*rSI_dT
zCTe?LdTIdsM&d8r_FEbSPaTjy7u}-OF@VPOq~f#`-2@X?fmDe@#^7Q|Zl2Ju?BZi9
zgu77*Tb6W@Bu(6T_K;;`pG9S@5Fr<HLo6xDW4`qYJa7W@yqIxr?MTXXinLZ&%rq9Q
zy|V;}DL%}*1&24!|1LAnj=R`jJhzr0pZ6s{$#$yjVeEB-!F9d!teX!e;N;E_q^h)6
zrYgoO*qmF*B$DCLOE^%|$0o`&sN~2~C12QNMhtr9A#^dDKdnPdVo`F@B$=rACh_>}
zqT(F(jWQm_FN1+E<g3|?8Pj|_B>H@*h<855C}pZKU8SH47u}!%1RIj+K){*rJFH9%
z+%GZjzIUD_<IX(cq#iyf#%#>D$YDY&>it@U#Yh?aq+*-!*r@02^6T#Brvyeo^Ga-W
zLTF2740uRU_<o?)!<>Cbj_BoCZy7RRz~wuU*Js{mKlNW>_JpxbO3BjP(V>{)K(J4c
zv$sGxht`C&b;V%?5OF`Hi2Y0^79r)lTCycSLQbX=IaBnyA~*Hf^l>{FVa{(B{3z!X
zu|~1`y2bNf?t9JLV-+}4>NIR^qGE@xnwOh&Y)H4f@~%!wt(}h{_JJ~{1wyJ{k^lgi
zzbSzpY}+y=o&?J~)BYYVv&O&t-BSAeC*~b<%0MIvn4QwI>?<P}&j3c7#;jc~!&oe$
zKo(q#uuK{T{A@{hCXd2B`>={(T4oD#4IAE!80XtF)3KdV#+NA@XP$rDbxO|54hQne
zEgSv7_?VMF<+~pVcC;>8*=ft|Wdr+%G&duJ!y?pngj;-IAFYQA9V4wFB2G}g_%la2
z5UJ>`XKbt{da(oIza;v!D_k8p{5wOEIN1brVTYG=AVH2Ls*>Ul&E`_f{r}>w=yDIs
zcn+#d5_V-6o{X{ac4(JT_-Wpy(C?pzOgI|T@ei%V=dEtDSLLUc2M>Jty^Uu38-3cQ
z*YB|__u0#@uk_MSHXQc7vW{l0st4U3zQ5FHOF;N@7c=+X;yPxtxXfHw8LNg)fBg1B
zgF{Z)*RMPKPC(i*!tVPjU(GsodX5}vOLF9`3L(95fvQI-AJ-rGla9_?fiO`2ctVBI
zljTFhB1#K<JO13I;6JxHA)${stk(R3sx52fJK+U*6Z?&*r6tT&3WxkgudmNrM6PpC
zC__i|^Q<pMU3J?q3;`wNZ2*Ri8`DayshuIeWU>sj5S1H-#sYTcRDcOn*K>cf8l|>P
z*c6Ifb#;!GCPF#Sq6|)yp=B|_jfu)&#nfU?u9Q1XmQ9J1uA$-HRlD8I28ZyZfm_AB
zeo>1%m-FS>iYrdp(|#ohJ1J%FE(gsW{EDniY?*H3HG=P>xE(jnRE6{Gb$gAIj@FA8
zF7zDI;IUWmpD+8@c{{3y!N`?xCXzL@DDl|LH>IDh?|jC+*>SFTQ!LGlQjqP0<MR=m
z;n01IO`%I(ra?aOm8f__O!{7B&sHTaKllXMO$$5py-5=blM~bZ!wPywzw0O5c^t^1
zM+NVQ!AVcXOOFy9kN?Ef=EQl&S6g*>upc-X&QeLH8@Q}(l5|PeMr%|I&u!x)7$(1A
z<9K^Dw+4Hc4v!u`QHZHq&&Xn%pb{zf>Kqf!V=<^KdDL~vhl~|hCRD_{unDAMP~EgE
z)w@PMJWzZTn>F<rgoM7+C8eUij@S(tWr7GnD)*kmG)e`FWYRKk(khMAMnbA^V)lO0
zo8jwDoo7GWz`K7jx`*+1FV<p>=gZW~X05ka%|mkf;c-9(FM);mA~PF9Sk~X0Xj-d7
zwGksZ{gti{!3$-Goj`b@qz~8aK7F6DB=PRu{cBd#TX8TO0i>YJa<b&uXA`0%W`dEE
z>nN%y9m0?vi5Cq$ZSS=syLTTa6cdXoAyd(Y_oh&6uXWk))U8}7;U#$Yw4dpMv%H*j
zY0+*8vt;?&!#dC~nIlBO1oIOz94H1EJlkf|dCBNz17oJ~;{C6QgQv1FhZhw8R+1r-
zm0~X)8$=7*pBZsJh9*s`Y14E#=zGg5&y4z}<RqKM!4llFqvG>;pqLf7R)vA_4_Cs0
za>pgYR&r3n*0x#X+q)7q5&Fd7uR~wHd}(V!)$4A&IHDl=Rh<84q8ubb!DOh_VS@s%
zJkn=lZ!R1tw~58z`Q!{$>c%(Ti^-WcU$lqiAgQ=}hkrELe#u|5)g@X$rtwNZJgEux
zutn;Jck=OBZydaIxtIEJTT`b)cc^FGb5J6oo{}87a416sP71F@4cBUheV>6p{?g?`
zdH1c9i9TX!DEfqF^a3Ksmp6W?ueogWAI3MjZ>|4}{Nj4`FWSxl0VS}>J9h$IVjH4a
zM@tI_9_Ps{TDsJwu-$0QUesA^LAkBly}L}Tn+ktvx-5mdKxSG?I5(G78)X=hI?vr7
zf&&2}33>4c@t{?s=7KRhO+>ES_}cFFY)#n~fuEPP-6r~P5P9vH{nXJG?j?O|w|CxL
zcYyt%MaJFseRir_N)b{f8MW8H$%rt{-K2WkoAo%XvD^4Yqa~VM<&RPFZwU-fa$jUa
zC6PavBA7pB6<iF``7%rGvv+qNO%Lrpw0E~|H!juPJXV@=|K3yJ0QjmSWvP6*Pm#*r
zcMlDYIW{%_ig5M<atnqum*4GTR{gvEDf>b3tb<~iKl6SCXfx%DvAT01LC@^uCp;81
zA0#fmpW0RZn_YaRtw}vIrLzc$b5;}+m4GrxkhGB#)$bv&(4b0+B>Qa~(r*cSs6ZfQ
z_+%}T5y1nD{A$&b$Cpx4Fj8giV~dp;;k^oEia{4&bvvT+d+}n9m~LgFAF_=eU?%4#
zQO}7}iU<@lo!WYmL4Zw9A}33UXVe~&j!T+Wvj>L{)15Y(*5@s(-;4G$tE!2{cZ6<K
zv>(?s@-_b-c6UqK2bCY}b=;l;{$Db#M2Wy)H2gIFY-=KE6y@PPk7s8btr-dn;^G$n
zA({qB#9>grJulgyCKWzZW@)D#Y?PzjsZ$7_LOIX6+nlYx|4#es^*MgAZ#W8kbReR@
z|0`mgagPq^0H6s;N#zr^0ot3EFBHzL2MF*la5WO${Iz49`fVA9#=AZUVa#>p2Z;kg
zQaoj=95a*;dTr2?t<Cs%U|rgDL#q#wGI-V(t!d}((gbYUt46(E%tuHiLs;}OIdm2d
zM{}-lpS8Q@_r%!4)})u2L}x%hTl%xyao>&VTcX(Xj@YeIb=!R{TMgJLMjkqFU|L=*
zR-&?bsQLM$Q>B?yY%=KH{kEYi>sR4c4J>?~K^^riS+>acgVa5s`(9~vMYQG^$1xfN
z_b}2#PJWA~HNQ`_C6;s+V4qzL!wr`W0=4v>nE9vl=bv7!keT9vbtTR@yXw;*0xuhe
zJ4a_pzzKnqN9;}HjeKsRejI#{=umk`(j6I|rpsF*?Uo=zy1lf+l8OJm@y<A2m0I&I
zr-v|ZGQtQp&;#*DS0$!PPcbBl6iPr&CvnSN8`fyuh7%gU7}Fe_>m_SVzF7e93bs-)
ztd`kQS~>Kea%<PM@=ZYON6eZIb0&VPt|FYAoXC6p+Ob~XpDdG^2DzJevsBD9DKHoG
z`w;zOtzYN1J@FG({x;Qh14#sA&wbV%Gh@aK|4MWBZB+Y_tHzxNWa-LUnpCIOuW9zZ
z%-t7RcWc&akAvHDgWAuLpbxLJ<hD_*TVLEPH0(hE>;K~Mnu4Wr`6+Wtt%v8-Shl?L
z_YKrnU4E(XQ9t48U;bbEw)*m3T}f|M;r6}wy9|(ofxawk|LO5fCC`bruw>nE_0KdL
z&w_JTsMxO&tBFYcR-y=83Hpm5PLQU0BGmCHo$4~txxoZSg|Yi*)B~p(H6C*FmD5Q|
zH`&L<P()y;QGoj1Dx90M80ssaUZhi&u!)dQl8q$CNrsvFNBbtqa@Cl_U490t>``$Q
zSXH(HAZzs>aOY9c+)6Of^x$kl>GN`Q)ZbRb$=?gJCTtj)o=s4!yslSD_3wQZ96fb4
z;Id~?C0IiIPG$9P>^P<VOOB3?{*~JVfo`DwzVTFWL*GNuZ%^%H#`5%_SSqwK1h4Yt
zp3M{HJ}c2aOc-m=d>1<B4MVDDNL(xCsWes`CiGkfQh0Uw_CNj*4r^}<c@V)P`J3(!
z8N;AfCP!!G^d4=9&V#*g<YakRIBoiIqf%QzzJPp+@m0oI^V28MuuG4jF0#@uFld!}
zMiM(H+QjS{MPLB1=O|`qx2PnIQ~bj;Uk4y;QqNi$3Ko!hN}_l;3xpgM35;jeRYk2N
z=>$+T;Nm>^G;!HL$=HH(H8Ikyxn<g*Jr!iSN$hH?VFYz2q>aM9OsCx=c{8hsj4~gw
zhe?VC(=o?Z5Y`|$x-vBw#+TV?$l3detC;-LS=*29h`|lRQDDKdSZCCaR6PB>WlVHq
zcpu505pPH9VWZ|;QwUBW0oBt?6|o=b1eb_p9fdAr&l#kXLcS6yFb$+3?zLRsz|&Hd
zGR~D!LY(`+P(Rn`_AEnU+2ci42?Rs}Ul6Gz%#oZSW^&p;nH|j#Q<*I~wnEJDpq$ev
zP>G$_r52i$jCfkqvl4MJ_L-z|;kZk#-E_FwyjATLYPFL9(whaI7t12)BmW#*0L)c;
z>Rr1hQ#Hj|Kx3`E=!AgQO0bdp-lqu?{rn@keuaC~o?4}D&MaPF-}0~PXs;qGLwM?d
z<i*0cwL#0_@d7GBkMAb#OcJKx#c|0L4vAwVi&E_1BjRbZTajG^YTc@*G4<8ILsj(4
z+G(WrLYZRD+yC0JwtG`ChqY(&3kZto@&k;m1S>{QAX<&I!%{#fo@~94kU1`;VmXz8
zS_`n^ih5){$KRTZC4#F9&!Lp@tUHg1=Gf0^Y;Fm|UE5TSUCm`AX)_IG=3dNS6gKs(
zS=BI;4&JwNM`IxeZ4*G)NJrM1JXj%J(YwM1DP`6<<sf%anT+mb=f6WwKA`(f8lpt%
z42-N|Fj)vyyh|_CS%ERQK_#Ppbr|Q6N<C~|U;m!hMfo7U^|c;aS`6MfgcgS>5jO`?
zEqUrl4)L82G@XokW9rh7>1JlWqFtDRS~vFzVre}b``p6~M)LZ{g=blvlb}^Tj9^({
z{@mYwk=His_t-t;6o{QkMa&&*6=kVXm9@f)A!e<D0aVYyWxS=tek>U|fL;>K&MPI;
z=IAJ)s~<~B*$}5Ut!4+GzA9<obRp5HB~<lg%YLn&IuJgn^-ho7Lz*|67?AzF_x*@*
zGZB94k2tV_J1%KFUM)RC9Ia)DNX}}@jLKTE^Dcg^(r@*;{g&%$hP`M+vu25Q;i(Jy
z^$ls>Oe@}*4R628{%5B?>4wbJ@=B`Tq)G3v2VeT1wgDiGYkWhRGhu&N`#ot3=yX$&
z;K0t*Myf0J2;?s%%l55DODE+$e(@c<cBKL&7%h3|+b`WC{OPiVtwm>8*i%(IY(GS!
zXPY^`2D=;%=1_in7P;^j<GyAZ7T7ijJP+(K;H&K)#`F7m3j*SK{8;|VuZw1n^|-a=
zU!aE1sOU*U2RYVEqB)lhd@4g$p^s-JN7}W;y(XzN4m?jpwLAo^5^9}Fbp1<C0QYCU
zdV@~1x-WOi;wM%C=7Aq2bWT5P5{;>!)2;mE$J?t;<Bk)XpL(zuvUg=NpILkckVbcb
z5XO(!r>>RQ8;L<*@cMcQ==((0sa{zOV~$2l*sf^vYHjqrW2@}4m<?q}Ur8ma1|XIV
zbm`O_GLH+O*S&i{vMU+Pmgh&6H;gaCRlD=+)J}ot*(mXH>29YqY2LoQ9%GfUW~fmv
zI)+2-oQEC<*w}h~)$yZ83uf*<86}rG*|n#!6=Dv;a`B0deY|d@9T{pmK`iZ@%~?pY
zdO`#UTJGo6=D|OB#fMPAEBpXBd3w*@6i_}^+>H4yVBAbE^cwa<erv!|x38}|O9rVR
z(>!wgJYz9WN_j?3Q(R&I(XUijyXNw)e%+>X+bAKGi9Y{=J1TGAx@B4LM6W|SvJ}*o
zX`f=<Lyx&--vF><y&am{Hq)g`mt%JQ$z7}dWaQi0=Nukr6VV_6$>^A*`4=!m=wF;f
z|E-gUg`#)514E6MP<soOzxeK+>wj6!c;DM1ZnG;L%!ayGi3^y-!z(-GWsp~~?jZDF
z%VAtx8Y%%I+?&eyv8p{<3g;at(k1z=GHhkGEn?s5(pRB-T46I5D?4H{l^>I3<DPs$
z>?dheDnAFx+FwJh*dnOvQGo?<FrRqsF}7$_>my8B(Xm|Kez=)RB68inm%D{=nfqmk
zLLA&Ch0Wq@&vpcPaFkfRX*t<V=o`LP8`e{w{LhUwo;74M>rIfuhLS}w2t-djO#mkr
z**sX6L_)1TpDuC&)bj-}Tn4K%tLat(%CU-l>cA*~I31yi%3l36+6I}JcymRCm1A$m
zdzJuwdJm~IddM(5+}(mUwOKYBI5dX(K@_XOKdR$Cz9u^Q*gZIR13%6h0yNiGW#p{h
zpcRvw)M_IxHPd6uW#}5`Gs_2lDD1?BH|-$s4|=~OI|ndP>;~qqmgQkQlp!vUh~4uS
zp%=x6dLRrC1IXi{0;fYd{rgYDN16Ps`FcpShN9V`F^Bb2BR(b;QGn2FnZ|TqX%(^V
zhBMAjPkIv$1k0l|0XwYNi$ps^9NL2YPHdDCJ&tQ>*57x7^DP7@{J|loYZtmdm&aSE
z%gw6$z)P3Asf+uZ2_63(C<ry2ZP*Sok6xD7r20wIo;7)#+u88EtsqeU8yKVWI!+sz
zJ0%80Xpw_Y0%)v+7!)8_hDM{g7d;MOjCJCa`UjKn0+|JE7Ih4~)1$6ON7Ar?Y3EaB
zJ;p~a1zn!#;T}A&q)LzubJ=%w^&2=Dwza?S)QPY$Ye2P3%f3+>r-Any{-oEjzi)FB
z0Wxj^WV8p!Xa@MPWotV+jxg7{100NN_jt2+ucMV_fm$xdk=TrK{8p>PYv+n$Wpm_!
zHlXlrMQpj3X_-T2#Hz5~_>kqx{Rl0p`#kpD=|P(j7(~9<c2v>KgoP=@Ik1BHp#HLs
z-J^EZ{J8*`{u?;O(eXm3^)EC!>(+8VBBmdj+ElSU5>6mtc7m^guC9?OZ!FNVb?Wmp
zurGCV4*+{{00?OqSveeAj2PiyW!=Baa12^UX~9Qged{{RESK-lh_**S4#L+xI;$w&
zPu{m#e`;>CQ?P+EBq@-@0n0_voX?a;6A`6NlQQ=^l*B{MB^f@@FkB{k2q}sw*=kHb
zc@4EVriUe)k!Uz&;0^CuZ*>SV9XWhCiV^rYj?&e1&o4pjTOd`#x=NP7QY3mKCu+)T
z82P+hWIy@1m$!FM>@dY`KQsR3Ja0nYv{cYUD@n!JX~agE^do`QUk?>R5_6oHfkLFR
zAGX`}@`{1S{~9^D?c8`Z8Zeok2^?_VOmb^wcI?44`?9Hj9tr(7)I=lL08)=)T?Kn`
zt$x#{6wQZ-cb6s^(oPH`PCtx;EU8baK<LH(g^IJpqFVS@&boTIwz0OLUBVrEGDqs~
z&nOaQwv|j}VjW1bC;hN_;TMP&X`Tv;8!D<kAxgH2_-vpQ2MDNt>Xnsto&5wBaX+$G
zcd&c=uCx?v!fL9I98Q2fDeN*cGwmnVQ#fa^5f^)@*Qi+r?U%hfd$I_^;g<ERDtTO%
z((DL8+{40i{Gbi*gr_#P8K==cP(v6AfmKGk3J(S?ldW0H>^vqVLV3(Zkjq`LpvISu
zLCj$YE#I#j9%x^1+|pn45Q@~b=QJ9pDkzzQE#ict6|kGmGH@~rSDFA{2#l`r{Yj7q
z@OD7<C=~>8YsZGh>^~kyL7!C(#Q28KuRGwyVz~qorh;rL%K5DNg#fo6vjBH$`y}C|
z6p_DRT1|dG-9F{zCQ<*T!O>}z@7%pR4S~tanxb<UOZ%(Ah!MQ}OIJEZHg}4e(`J7(
z6cwmC7dESCb=Y@o^`-o;Vz9PpOGcp4(OX4i&)++OQQjH7<P$o#p@HArx^?R}Ua?_W
zNPc9z4*5>g*iYdyAG&MQCLqkFa3(^X&^ET~e-?Id@uj|$#vF;`;F;vPLw5SfI`An(
z=~;RZt+JVHfD~+^s`=7GJ7G1Cc+Vk2X0q$e^)4g<6#S9%fFZCC?M)#(ct%>*S#m9j
z#D<eRpdycnC}u}}_1iB-8G@vNd&?BMo@*1UN8Q3!uMJyP0fIw*r?hXlOY@1y=k%<Z
zDw_`ejL>$B&*IUA`@k}URK5NU&_;M!sJy%Nf*i?7d@Bwnv<O1%lKb!ZMA~4u647HC
zspD_lkNm!Pw8kg~bE9vz_OE!3iqCfPv`bPJNDjZL!N>`@TGu6i7fxdhsk1)05=|d@
z=$FqZ?wm<V!2A%O>uomd9fWM^s~nGanUN{?mYOw(V{oHql;H2IwHeFdzoBHw9I_P2
z1n2isF@-|jum7mth}qhG$F1iKmI6nqSHAHA&~!RyylcC&<ESO~B3mF;ZS!B@RNv}x
zmGYs@k8bmfXJ3@~x1`gb+Wg7sE#o?c6?9eA3!5<WXcOBzP+nILYkETWxB$wV4lR$z
zKG|ci^k&8lK-E$ebmNa{=5nZVEw5deVIasaS^(?Dd0&&@L3svq^hUNBitQKc;)?^r
zS(GRiN;cWpN@SrlSO+Es+R#<&XAL66cc=12V;147{&M#Z{#t8**_h$jPC%%i)oFMH
zK}9<EJBaNx>WJz~wuEn~ROT-?qogUl`)3>ERH>{BvzMDG@_rb&?ES_Q&qy$|3UuuJ
z2ZC&iyjW_lQZ*{d@rvfqY)sp2CnbfMKWqjNws7FloyS6{e#IIMyfuB}gSXG}IVu7z
z;^;w_XGNvmTk40S`njR2gFZuXWJ@Pkin+|k#k~gC00B4|76{?`$8|UD%SU}L8Rgkq
z=Q|ps4>fSnrr(WxPhPmtr&Gs}pD`o_vRlH%Op~^l2T>v}_+0Q|cd|cxeMR*|bM)$F
z1B&fyJC`PEhm&rmf3IMJ{h!~z=8jS)n*arLjVA&fmpl6IQ<9m@1v%&BHe&;;(a1hE
zP^&DG2D2bFrD^>}9_4Krf$Ch9S5LF<&YW_)leAc^a7+^`6;x@F+IZ0=ZyJsk?c2}N
z_nPmoXgqLo@X7XrR-A)!uN*dRx0$EiyM*YFwPW#>S_ZAO`BHueXAXRztz%Y!@Jf`)
z6;KcPsqdbnH^`?fW#aI?gfQ=g?3XfuIo12aZ`Y;{UeqqS{x6jI?QajL)ttW6FZ}WQ
z9>!xR>u4dW_Glao7Fw$)!%x}r_(<1hJD2)N`4F|ztGCV76KA>;W+3^Ek%Mg3L|XIy
zjtTU|g02{B^WejkxNno#sc>sR0dOLeVo1P38aR1ZXU*0q=TJ#PBMWjntclq|sJ0W{
z<Nu8$F6!T`S@oeO>Gl1p`{T)zCwrbq2-y)l@%H@2OB6=7EEoMW!yY|MNNwcS3i&Ey
z$@DS}L6M}xN-s(MMRX!?jMgVdg4Q9k{y53EJz{+sWm$pLMmn~6_ujGL{VYO0Y5K+M
z+*4PUzrr)Vk^CUUP%_;Q3F?*6-%x;rvUYqHNJ1p}jt^J&I&SusDpAIGPx+WSKsHnV
z3dzc4LE2uNG`O}6m7zpZh|mvnJKZ~)kg(Ou)km2kQT;<s++Dzw*;D7HJ49AWLLj{1
zA4&b_1}8wJ>aF__iOg!`gJ~)6kRqCY6Kw>A{H=RS?f356*G%Y75u*>^+gQ$Th1pRK
zWHWth0taL}*wJgMnF@3+hWfys(Oy&f3)cBBsxq1<dM5kiWDl*kVK&U#@vl5Fd_!^#
z9_v0zUdy2ox1KSwGHr6gaKcf<o(Ncc)%1rt(|-X@6--oIa13vaK~0BHktQiXURj3E
z5-D1cX|9D>@uQk5;VoWjTl8_{s6Flwkk#cEDSKHfByfW9+mCS7uoa}C;gX(?b+|d{
z&FaYf%=Wk4*3kdvLqnf+j6+fYGUz+`LF-XIY|q#fbmZ!?f;Ugrw6J*@0q8-STeYXQ
z#Z07FxlQl=+Zy{fAwtsXwf~|Y$R8p$q1dYtcgVBoUiYmE`;IsIAZ;8k0U9E<ghboj
zGnJI7+?`1(nQmyR?fZM9cIJzBCds8&Xm&mH0*1{7(+x7^V6CzSO`1FgDSdZZT}CUe
zbrzQBYGR*8*fjk{?|sW4+aQefH7ubb_y-yQ_bHgD%;kCm*WFtN&o%<NxHXEQa{&v~
zKgKtTN<;B^A`x=ZqzQp7WHMls+dEPRX9+iqDSH@xq}07N(e<Gh7$bG<OpUjb%u6gQ
zZ`t?+Z2;={*0CBf|J;^$U>tUFh5<tJ?Q!!>RFKCKw~p~)C4xxNgRv;TcC5}cRnx9!
zXJi%xoq-rr;4k-g&Bfg2i@V8+xv+YFT2~VVfgLtS*HxspWAf5bQ6+vOQKHxMO^5uT
z@e6pnDbj|3*?s=;NA;)N;sHtEI~i;}iU@clg0T(NISoc=6Omn5R5t^PT5aSVAMfMx
zX_<)kGYjLGnvD}N_4n=Sm#M!=G{+h;jcOKiMm#Dhj3G)ZyQoQDg>!BB>(?^C=CQeW
zRI)V4zsjmt{g(rOkQ-L(Ij4kPR=Kc!HRo4;YsevY_jRA%&5SEmQ@p+*LU`0)k1KO?
zp8Dz-+l+^lZuXum;lk=-S&{18+O1xFof;K2h4&f)o>9R~7G)z^wx2FNwVu}*f?Ez!
z%2{)AyJ<K5DFyTheNO$v9zUH5qzs(6^5bjX_*=rFQT2kpO+UFAH+mRKZr7I8WcyI}
zb`Nb;Ser3x6Y4r0-4Way5jvG3nWbG4?e&b#bUt{VErg%}ua(`JBm#T-IscF$!u04<
zd6Ga9TV<kX)(2$Gh*DastnbkW8#&-yTdMD_`_Nx&U2d}g3n`c%M@W072w+SZ@$Fl&
zo0NUpK;S?D65My|A4ESz9%LS4rZ0<*3+0O(T|2@?t$MXp(9WLI0(ux2oEti_y+U)B
z%=h92ds)o}kRh;B%J}%8>N|`oDrOGFI~Ev8wHNa;8zU+w_B}yIsp)FK`JJU1)MPqA
zR1PQR^E9)Z)7bNOTm~^v?}@xkGKeax#%LHTDxeO6L6+cg;!-8H0IB;Gu(k;MiE4<*
zc+R}WZ}m6|$x1n|vlN{BR$}^DD^hpeVuXRA#+oHc!~X!o7s%Y=)yry-c)D-on^(W~
zRQRqyz#=0tXz2sc*-XLI{uow-olve_M8sg3z5{_OU>RS=#=Zb!1CKtq6zlXaY+f|9
z;M)e~?koN!ZtU*yKNB~W--<^r;V*J~6O%b3T-6tH)2>=;w6zoGF$YY~{Fjk-)Zn_3
z3aPjHDqJ*APnbCWrFTz`oL5SHA!4#A(X2X45(Sg@{^r9_aRf@e$~Iw0+WFvmUHgVu
z`1*MhcKEGhoxpxnJe}3s@by*8FV0xMqoKxM3o2Z-$3Vw=++Comfgs&%1Q>#_Mes~>
zo;yH$yhhXxq(e25#?Cq68HL>I6Qi9mxTXPe#^8)sH@aYW;z8%miZ(ze4+y-1ur6u-
zOxtYdC=TWr3{5Q&X=R$9@_=c~K(m&}^FEAkrP+aZF=?hlXzeg<3Zm}R!`aOhq3n5_
z8wVdgd^js|fli&bdQ>v|bkIC{J$v)j`%!PNdnMU0Cpg80g5o8G4LdQyMeKI=4}G_Q
zcuJ%^s9X?NM&$<xxfG2CVr{{RrK!ff(6>Z=baPjCkKv<gb=L1?T`x)p*=9-Em%Z<l
zxr-uD>j8Ji&WNK$CQy75UEyVr@>~d_EVwM8(jbi_l~{Jc`_2<7s%N~ayWN8wAJouv
zMAOs-APhX3Cq~uP2=l(X;N$&`3>fFb35d;z-76V|#e<DKA(E4}wjgUqzw>W(sz?h>
z=+g*SG`RWIu1GMFBbDxQkn(`VJ$GqU6&>72c%08Y#*6%LIUW$*<NDLR!Y7w@rf{5v
z0xPBCy3CWTYEzX+G%5b1$>)**h101@=7?mpb^W2u2}8amnyH{-Q6@1Cd38=Ldz^m3
zu-CWy2$^5j%C{W_v&ZY9xT~7{ej|I8yI#YlP0KS=0G#@$Yel2-PW3gn&4p~M0Zib#
zy${TB4brQ#B*o*XujE#${NTG=dFTB*IpMb`o+5L~xD^pE>vF-bi!K^3zUBU!un0PY
z^A?-c&k5Q9Z9cSsKuOC4R`z_-olaV{hV##>zz7;l1fdTO_q}mx!T6Wmx_Q(o9_{gi
z&y!{0JAPMp*1SsRQ~!BfTS*v5VCFxsr09H7QCJ6CHsOoU$XI{AA-7}FvK&ccg0O|#
z7a=7_MDNeDNNf&Au!Ybnv1|N;MVG`U`}f~}cm3h>J8Cc08q$9@erQ>ZFe;4Grn-On
zmHQ=<6ICg#gg{{u4<Ir+q9M%a(Rw?zyf&HxDTRtp7N5tqZLNp-FlZDWd?`3PyQ45b
zBteOW1S9%}Z%+TbzU7Rs9lMwj#XMHzWxT*;X5zqk1cM*R1U=fbw@-UU51?xm3%Cr8
zLu1$?LrNTpxZp)Eqm)NWnorJ=B$>H>*k5yld`%mbe<>K^JNf@e<iwLd`oAw2Iq0g%
zpH7{aGk^chr~36-v>?YSW(?7_)n^f63t(R7=DTK|X>F<vKJw#Vv{bvC)bC{E&*JS;
zfBpab?YSS;DL&hQEmJMV%~yENYrCyl-GfvsupdRu-ws^kpI=5a(b7`gx_<sA`?!+O
zH1-iKwSOU^+}OBJqZ=h*cNZY|>B823Hf`2|UFog29Zl#45Op20q6{c^f{I$|JdMTE
zB<eFak*_bov9FR^Mp{5Bf5l)sI7GGaUg9!3(U6V$sn#{00`f6_<P13tN2FBYDepQ8
zo7cg=rKYn!OJ`G%J3!$+N{*F+%V4ig?G-IR=xgrXrmbp0nEcnZpQI$L{@MgaQuE9I
z@a^lbiuv}7W0Lbp=$Oinb3QX^sY0QfN1YB3tD|HSEahih>n!{22xqCOkJWY8X-A?<
zVX?^8<jeiqjTRlMfBC=EAo;a3fywVYL2?29gG@=SFfvP_pp{`DTqZ#wrFrC$W)|L9
z@ibGXn}wv$_}^$(P>=8m>O4C-06Y%^0s8|X@C5FQyku4Cs^L5EV|v&#J8<Q&sg|MM
zo{_dgk586n4mGRPk91Fcsqy%`)7>gkd{U9cKtXQ!=Bfd$g(AZ3cc_m5u?z_px9F&V
z?o^Tf&o>1ieSqBM(7Kf<RkG+&crJGyujIXysRb|qBkQ05a({iQUm2?~%lKR{t1!u@
zIlr<fJ2LZWK@JA7Qn>y@6(;~*WFCq@r>{1Iq{#k;8nh8Y6p1}cCHr6AA~)tBwFtA;
z!IsY;*SwRr#{T}{zU_ytUAFz(PZJMI6fb$h_SAb?O`1%H;6?9nM#knMHBLspv$HIV
zSrHH+(+CEchN6Lln%_%_we&ozu<<Of<NoZnUAnzn)h?Lu0KN44!PbV^*no`i^a_-X
zho<Y<G(CPw_U6h-hF9PJDu!*g&ZV?i$hjSg8@_-UU_JjTycB*RHh$zslP*4OFB`nT
z>Xi8Qpnqc%g_!{&V_8dcHsQGQ)E>IJV+pmH5vld?`6fF>U}12{ESr|k+bHZ${~6*P
z8)f^3W{%IxMOR-Iu3y*O$jP;z|3yQru=q>u;mO?ifXg;Ek*-}D3)KKr%JW<c($1b?
zZk(;E6b*_?uLE)Ns(NlVXB}Q8)mH=tnMN<F__(oMhYs(04y9BKzcVBx#l2j5SzoP0
zyM{%39pYGPM5#?MzxcG32bR^IO3AxT@AsvEWfs6Pi|Q_y?MU!thXBJ+FBwjUHC0ER
z{jrIwj@P{!uYU4U7hy0{C1xGm#&I-c9X3&=%q<T(I)!jk3l+f4kD&{hXH&~~QckFY
z^Q5osG!#abOVcOXSsP+LgF+KB0{4{E+~6?!$=eDBycnUr=py(3ADlKnq^Mdww`N4<
zkmHHwD_7`Wm#4vKe_TkKQQ2ZmMd~jLZTiPJ$9#o$5oIt=G?zuQC0IZde2c#{wYzGl
z06M60b6MA^gQe%ERbSKd{FL?o{Jqxpmd1Z9sefnRmOCvT*J{&t)v=!!E|{aaWv;2g
zz&fWbdYmy{*nCxwsjFrj{MmZnXw7jyPyhLo?yh%j|JZh6Yp<50lk;MWJ73M}zINTA
z$=PdaWlyoRaxRL=J(l~aaAe0$Cyq5#Y+i*W8GT%DyV!Gh6XZ&EihokLR(Zm0t<8*=
zcIFMgKb^Zl)4^I1xa?OWE2}rf+{tC8NBY+uVmGwIp01TiKBGdxCL-edI9R_}JH8GZ
z;zCk8DCtfT1`tdgAVXu)UymNMa`S_z$9qa{zjTc7`F*SAo9`aK8TD3JbpPwfS^dg&
zn*7S&yMJvXyMarSe*r>W)7b|{43~OIUa~(U7|yaMOw&1ee|TffCO&AP60R}ro(hM(
z$dY!-Xzq1QcA3!l$HA5pR0qAi^Df1~N+}1q{na?t=UpB71P1a6JmeD?m=0Tfq_5qq
z^V7v>r^e0cvM`qj%3Qi?ONO=tqL|(-oA41>QzoaQz0sbXX9gOhOorUpVKKfHw%{R3
zbGGhUtruUoUB^A4%M2%H%P)Hr?g_pIP66H}{zQ8q$<tMmaT0QYS8c3*)sycH?{W-T
zA_m-U*@TS^vhRQnPUiI^7SYkD{1~F@eyjbtRT^EM$UFAu9oG;4GZ9ONSM1{zi%!(7
z^}8g|=+ZI*m>}~wDpC(LeUTP!^A=y6AzQ3688uG+#ZeT>cCKZfIzgm1YU~^|<8>|L
zK6M;ILhR{onoX>_@4YC|Yunt2bdMF-5<PY|%v@o@`DWHA-S93gsLXZ**-p3|J6jO?
zi!&r<U2>kNdsKc@VR{t4Jce|UW|Vui+pm)gF{l1xYa7eBZi+5#6Z$W%7-nZ1yJ@Ca
zXnC@-mdmU>MoCNp%OKzPOe<932rt}sH}vhXb8g#l7k=Y7_)~<1GQmVS=xmoAvy+@S
zx}y-Y4i7&Q5WvrT>Ts0iUIcvL#|(?gj5vwlG2z>#l)Qrl4$<!o3n<GiL91&GWQiHE
z#D4qIQA1%lX+!Qrw>S5A<N4l;PxKrZf{{<;U$(hR+~Vt)SuDB0+3p)mF_PQZ#JVzu
zSd(-ycu{8p3)%33<}fH}B;K*NUwV?z)b6$R^A)!v2sx-TKcvYUexdz^kKEr51i()0
zp-`nVP%Mu^!-C30qDdJ8LHM$gqE@SM+3`;EPt;A=s}7w}pZPs!ROi$1A9J*-1B~SR
z)Aq4XR(~D-wK|80|GL(yIwDAZBcMyoKzN0sPo3&KAHM6}Q|@Q=*F<tsYJT~D{L=2G
zOE~H97xNDTDCY!a#4rJ|Xf6F^pT47cHQxoTZ}izUr=FDczJW-r7~1v=+^2Z61j@bi
zbjNZh<X@61tMa4UU5Y7OySW~J{6$Ochy2S}*W&yvBXvR-wun(n8P;&ClSpJZ#!OYv
zGp7kS^zPJ+KWf%OeMO9Q3Gy8##%z_$(ZbW2l6w)^8x0LzKh>6Ksq}Tm$y*w%j>k|~
z%)>_{>?t%)8p=88PFXu+_b4Y#vP8G1t7I2TB?PeLE;IQkO)b=y%@b|;VF{s7CNm_Y
zEYm4T`{~Ln8CernvN}zWgnfGZ8sJV6=p@1yzDMN4lExz_IXB+3?G5tK!x&Z~B2g$X
z3nT{G$k<R^0MM#|b)|DJb}*;x4j({=4(Ui786u+Tz{oiE1oJ+WZ^U~tPWxH5SA|)f
ziP(wwxGF!CW&B&I5^84&9H}~@^(_p{^8ITCkdSm`aw00<MWfmf8#OOD{1Zp)S)>=b
zx6_#&ECLJIo`Cdk02D%V>L_K*Fdh4V_3vMFjc3qVYRoP{`BpTpz9yE&H5M#oGSZ%4
z2?`wSc<uP6P7p!kKYn58loyx8YT3t`QIU%zl{{z7&~JNI(k3FAp1s}kp-QH$?*03c
z-|F2>S)mElxmsp*wr<;ov%pg2$Mz37^Rq-}=_o<o#3Zx-HFK61%Oz7;5KhdkGy&Nn
zdxGKyWlkEPODe^nG8t!+B*t&-D4)3kUn9}NNEfU*&-q8P1m&IJjrTixZ`nE0cyBs+
za{>lig@y?1N`mVlb`gSkCQK+P2$Socb4y)@8*BHQf4h-n+ujLB*Cs>!?u5sYxH2ok
z@uVzM5q~3Ev8`lOkqEP-4l2Ml{fK%op~C?t+_SyQ<X4$n^N@R8v})o@-NEXaoKmlO
z$AbeIr;V<@%O1N}F!b1KzaLYnUhUrm>Lns39q|p0JdmWqYj%nUOg#jTn{cdOJl}a0
zJLDD7=o6fqFiDzQR<n#P?~nTaWy-qi<xtarp1uD3PN7QH#C{#(40?jH-l<3k$qjMS
z8r-2tc{nDXbs5)tTSxecCjhtDR8pH0PmIw2{l?4Zb`g7d$eDuKwXh+xuOS;GAmF>2
z&<fu5aE=<6@Lk6Ih4kFsC|{gM(b906{ELR6=bE1Zf1Dqp>fIPk(0=#c=YSyniv%yX
z`~lSiUsn!a_q>~fZSqt<U7raz?8E9_9>upUY}GrR`)o;U%S;-y{F%;;KBnLJV;<4x
zQ}WgrmNn-f;bbPzWD+b;k?tVtLZ<K9zRYbPYfK&Uu5jGBeb1h?qwFwIWq-52x_&Bu
zQsqaAtqJJ#bi`fowI}!O+t>A;n<xUlyK@a4?{!sgteNv*%8lk+Qz&KZq8K9MDtcaB
zy9RbC=`|;t5jKpt+q~6l=Xa|&Xvc;!lQ}bqh)~I?W6+TWO1Yv!!DK?LC9FZFe7NZB
zKYi*{W|G8_h|YrpTSWnd0;v><dmshb!l*|-^0F&B*IWUy@nZpdTeX2;ZrN&hUmVSd
z2wR~iVGk7FG-0`?Km>P`&SexB6M2;8)2AN--?xASp-w^`C|*>l&5%Cx_73kDK0+>Y
z^O_%$3Z5dtvuQ!o;)_R$%M2F5r;-2*$$c(+`{+h-U;eyffmY+S{9B>8FY0jM8+-OQ
zp;x6>l$|Vi`uQVr>JefoS}1V(6m&Vok4BQ_#jckknNtFIGrrdh1tHGvG+Hrv&e8Lx
zvcP|HlphfI&S2ZzwtqFLK}z|-a~r4?@%-L@^^B9Z|NrRt{I9(9_oTcv`H&u#H1EH4
z+|d(SoJ6GQ%m*gs;w*QMBN@VDWl-hdbw$U7oF=?tHuxr7cQUlArJ30r(+uOAo1zbo
za*HLv8mgo9g^`t|dEJopb9U7|H$^E9WX|X{9GIppr!8D?J91+|N}onz)}Ti9Ov!8X
zWQM9$`-jifpF|OSftF<kvF(pgWB<yVlCu$MNYZ?lrK)(9KzIT!fX&7%2mBQ;Gj;oE
zR552EvNV>@etvl6PdF$D3-oR9OLSK6=&Vi`s;pUqUyIVu9oFmCKQV2#4~huho-keF
zA1o`*9yRCn)SBw13*l}{Xi!CcNOZ>!?;IyKZ{0dz6#3FJd_+d3!k1o6U2bR-<;OFY
zz#qpag8zkWUDi{YM8kvbs*@ixKHhBPTgsvn=?6RVNZ;?<t4~>$l^-W}!PhS(Vxco=
zJ>kNQzGKD9g3+@)i4bxF=L{r1BLBVnlTYg9r74*iM<KrXtooQ5@RX#Bq=bmN3*kB2
z+g%BuJ0JMuM+=@bE2LWD^(V-6r?BTzt#tWj{?8{AU6!hp595+$xBkI1pxoVrA94;N
z>$eb7C5Oz8Mps5dabaySt;liKlVM^)x^bo*)(l?WM?3a8bf0)h2+@GDog{u9wwN`Y
zUGkE3V?HM63zZ86A@m}i!!{Xl)dQfAo}Xpd4o~eY8B4}&;7jw)PC?)zLNbnT5zoQ~
z3Ks^|VHI2=L8emcutoIbk*17G##s%l>z^Fcr~6<mD8zZql$rNZWk|3K{<V9#A8wuB
zY5hDYXjJ;G`{g@Aox(B-E1(`_pyfI{A=_|MqukmuFX`f7Ng3D419|uq-Lz?S6?|>E
zczyRRSX1!$L2h3z`5>Kkoj1MTGB<2iV`ZnkT-@n%Qgg~NBDYoTLIm8(<yb-4{snZl
zq4AvgiTq7qsX5E<wRGAL8B)%J<FFOOS<G_^pnk++?xHaWt%Q6p3@hfiJ585qn_<!q
zx7{x4oxN*Ol#HV{N*{<y@-{l5#>(4>2v_b6hqQ^w&bYDYQafJh<C1hrk})ct$(I+4
zkra-jnq;*uLT&!Jtb$vgF>=1B=hMS)-Lg256ckr;HCzFzHr?)d_b}7KVQeGPllnC3
zM!40!1sqzB7I$9w&l-&=6mgyE>hpI+>D!ug3}$C2$c%KVsfhq@bd-iMrK%7z(*rK%
zlKp~j_|5p23wz!_w15APN{aO9O9IQaZN&GZOa@J>{W!c|Tb7M%CuG}FF;T=$g2-3t
zh(t|v)e@vnw+b+pPn}n^a2&ZCe}~zBl8j8T;8Hr~6X5BUwZe)GT||m>sP^K~MX)hG
zT1FCr&)74W3Q>`yN=SM>-J>ZJOUYi|bRr(<F@DoUc_IrCqdK7$;9<xzMf@?1P-8Nt
zg3)Zc`EOp{=tht7NgpMgW^ejRqCZrAxUd}PRyUUwB;}@N7rdHx+vS#*yan7O@BwSG
z*MG!mF^fq~*ezwmG*$UI14Hi&5n(C?YOpIDp{cXGS`uOAfeQZiz6IxOq95n>4bh92
zMzf#_NkDtmF2oz2OW)DiTzO(T&TcQpXs@LmR+`S9bd|@Uh5k)L+pBNGk|T%zv(9j9
zsLStYeVfk6ux~KGtOFawe3O2p7)@Q^!v0=qosyC=;u&$wk^1WxTU+$JC|Kvptn=eI
zzsE-tFceYw&AHARjFrt>w3vsRFezg5x2W_ISF(6AEw6fLTlEq@Px;}h>BjN5Zna}8
zp8uVKWmD`*(`gzuk7behzdyWXbLhb}A+dxuKHaxq*AIgd3#wEVGJ^ZZyNAiy4~jQv
zqHfOU(!v>rI8ga9LgU0BSxf1KAz{;|@OA?(VwS=nk?=L}&d~#rkK2UU#zZB}2j9+2
z>eytw@w4f5i5`0Y1SM+#8?k9rWJuVRqti*Ac&+j)EiLVuksgXyP0ifmntK!iODY<2
zzoUb0uX#!;qfXvRx5}e54F!)Rx($%w{l+FVo?@I7T_8wyXne#g8{T#Lx967`hx%>v
z<yq(bS6C6blhUfiEALYs$g9;^ic^smp_fzK!f(eaTx_%&mb%=sW7qT2;aaSGb~#8V
zj|JP*WOz+CeQkM?b4mzXqv!f}7y$B|WlounlDFH`dXDE-;2Mjsk%&+teA-MNcj(OW
zg%1O#b_>m*j??+3I#+3w?ve+VJvKagg-Q9tF-^a8xWrDP?#<R;E`S0^T1$mi7M0~Z
zCJt#wg>~{R=M$2LnpE|`kpaUlS++F9R9~|M$eQ_P^Sz28W#v(=TE8tfRg%P2PqfyO
zmWn7TGo32WTqQ%b`jzFHi}~iG%a;RoC9&_T%cE<{Z+d?2X}!H*XQ*b-m4w@~$8zxL
zC=up;+%S<<<ae||?sbO|UVMrd=Z9W-zt*nOHKsG=Cm-eSlG~OqH+^_Dwmh7qaP6nL
zyY(M^aR|{2Ny#%<b^PUy5aT$s)tic<vBx+w$FAS`35Dj>E9`=CoYjv0jPHScXyvji
zE<M?(Y1BxsoU!WWMxlr(^!WYv3FeV20^WoMJGLBcWt7KRw!=cd%^TA`vf$<{UpY2J
zCqVyY-tL0B8$9$s+IU9On|*qkXf-c2?GxU;o~xF6VG{Ey+?o&+@%NwltBQi(8XbsB
z*KLckCID$UKcRqi@{rCQf$M-qV?eEP^0SSawl4Rnz3?9}B=ZxkSGS<ge;=61<PZ2!
zyS+Qa@U%`<#l~*C_Y0C?-EV*1UeV>*^BpLtb(O#cB{*JOi?27>U=>Xd{$*LN!}3?0
z%1RaIre*jXeRqevop$$<lGYh&JmR%dUcWDo(!9Z<&{dM%7*J7O911%GT^gkyWRv!>
zYW27A+d^}uChVwzb|MNzr>C-bndW1j7SZ4&xllwh8Ros2^m=nI0--?jJatBVxY<&}
z!9`#4k8}i9A;$Drd=>koJ)MEd4{`0y7*JSr2a!&>WWzdiDs0ku<T>`c^&Kx^HY(~n
z1tV~5%la2cg?d`>XBY0Wr;bbpd-B7Kx;x}jT3f!3J=93%utZi&nK0pijyg^5Tf{$b
z)Rh=E=m{!v7=G)Z%z?xhOlv`q%1EgKn7*#BWLvjFdV#hsl!@Xqz-${X$@n-Jm5<9^
z)ehT?Cz5`jN5_6>O^GYh5PvRDZh%^vQJ1H<88o}6flAgzbL|QwD1`4xo-?*CqJ21?
zB-4&u^AAH7QCF1VqEbf9Ec{MI)@o*UIe$r}E7`gf8d1%jPt9%d2fR+Kt0a7!BjM5{
zYUY=#VEtmaPkx}6z2il(bA!6+n*>dU!pc5=Eh!-(88e@Z2VY%Qe59TXJdiI<6Wp#k
zqUHE`&rNH}0o(NbRaow)EvQ6sJN(%=2pc*fl^^TSlAsn!+PE(dR*EtJEr-i;tLGGj
zPy6iBvJ3GWAc=NTaRa<eMfQbWMuH+K*VVJs7)ijH`R36Iyx>yxR#j$y*CWN5LDNKV
zNY)%pm88=7%#UT%mFRIL7#MymkW+{m0sOP$k3SwVJmCy5b{>be|H!?@S7R}aKLnRN
zC%IYkE(QV#$qCK&`>c|gQn~B07v>Z@2Q3j(5Fb`30x}R0hasYs=5Zs)QI^}(7om8n
zCa73@9sY3q=klPFnn5?4DkK`%#GK#f2VZwEX=7V)E&bDV>dOFzGboAk7Ue7w6%h=A
zl-kLt2sX7%duE>que$v%ICzqY$v#3HK7<AJ0IicDT=euI)G1Pj@*OeZi>`!oalPvZ
z>E1C?3N0XGV0dBl|D~*&G1y4Vz|)fY_G-OTxCznWfHN{f$BXoDk*J`giD7o75KgdJ
zbKeBHw52(g3WcLS*fwS(-PXqUf7KJykwERE=YJ@VvKT-mPy6E_Bg?AI?;_VGyX-Cf
zvy|W2u6EQ<5C9UhkEclc@Oma0)Jhgh3}BCT_`F+MVy+W#j!2DW?;M*cz>y#a{tRFC
zw8aJc$uFjd;}aMG2P+{1_(=Y8FICn6xyC9+JW@J=+b!p*p4fV)?vo!+9-~ZMQ~1mX
z#Nl8;gM$zyg2@6q$ofL>)jDa;KfSY(NPpRoBt(%jsm`zt2d9yg#P)F-i`>q?`<rP=
z1SMPZ0Pc;uu8*!B)T4Z5Vm3o;D25K1%JEl|dJ4U*bK8m<AHmVVBS%dC1vZ;~xv2S%
mT;=~gVy%96|9LR{YiE<tWk*(pX-3EkDaTI!C1muRU;i5d|NWr=

diff --git a/articles/welcome_to_AMR.html b/articles/welcome_to_AMR.html
index a7d28233..bb125297 100644
--- a/articles/welcome_to_AMR.html
+++ b/articles/welcome_to_AMR.html
@@ -29,7 +29,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/authors.html b/authors.html
index 4b2b3656..2745ae68 100644
--- a/authors.html
+++ b/authors.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/index.html b/index.html
index 13b27001..43a21962 100644
--- a/index.html
+++ b/index.html
@@ -32,7 +32,7 @@
 
     <a class="navbar-brand me-2" href="index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/news/index.html b/news/index.html
index ef2c14f9..90c432eb 100644
--- a/news/index.html
+++ b/news/index.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -48,18 +48,18 @@
     </div>
 
     <div class="section level2">
-<h2 class="pkg-version" data-toc-text="2.1.1.9121" id="amr-2119121">AMR 2.1.1.9121<a class="anchor" aria-label="anchor" href="#amr-2119121"></a></h2>
+<h2 class="pkg-version" data-toc-text="2.1.1.9122" id="amr-2119122">AMR 2.1.1.9122<a class="anchor" aria-label="anchor" href="#amr-2119122"></a></h2>
 <p><em>(this beta version will eventually become v3.0. We’re happy to reach a new major milestone soon, which will be all about the new One Health support! Install this beta using <a href="https://msberends.github.io/AMR/#latest-development-version">the instructions here</a>.)</em></p>
 <div class="section level5">
-<h5 id="a-new-milestone-amr-v30-with-one-health-support--human--veterinary--environmental-2-1-1-9121">A New Milestone: AMR v3.0 with One Health Support (= Human + Veterinary + Environmental)<a class="anchor" aria-label="anchor" href="#a-new-milestone-amr-v30-with-one-health-support--human--veterinary--environmental-2-1-1-9121"></a></h5>
+<h5 id="a-new-milestone-amr-v30-with-one-health-support--human--veterinary--environmental-2-1-1-9122">A New Milestone: AMR v3.0 with One Health Support (= Human + Veterinary + Environmental)<a class="anchor" aria-label="anchor" href="#a-new-milestone-amr-v30-with-one-health-support--human--veterinary--environmental-2-1-1-9122"></a></h5>
 <p>This package now supports not only tools for AMR data analysis in clinical settings, but also for veterinary and environmental microbiology. This was made possible through a collaboration with the <a href="https://www.upei.ca/avc" class="external-link">University of Prince Edward Island’s Atlantic Veterinary College</a>, Canada. To celebrate this great improvement of the package, we also updated the package logo to reflect this change.</p>
 </div>
 <div class="section level3">
-<h3 id="breaking-2-1-1-9121">Breaking<a class="anchor" aria-label="anchor" href="#breaking-2-1-1-9121"></a></h3>
+<h3 id="breaking-2-1-1-9122">Breaking<a class="anchor" aria-label="anchor" href="#breaking-2-1-1-9122"></a></h3>
 <ul><li>Removed all functions and references that used the deprecated <code>rsi</code> class, which were all replaced with their <code>sir</code> equivalents over a year ago</li>
 </ul></div>
 <div class="section level3">
-<h3 id="new-2-1-1-9121">New<a class="anchor" aria-label="anchor" href="#new-2-1-1-9121"></a></h3>
+<h3 id="new-2-1-1-9122">New<a class="anchor" aria-label="anchor" href="#new-2-1-1-9122"></a></h3>
 <ul><li>
 <strong>One Health implementation</strong>
 <ul><li>Function <code><a href="../reference/as.sir.html">as.sir()</a></code> now has extensive support for veterinary breakpoints from CLSI. Use <code>breakpoint_type = "animal"</code> and set the <code>host</code> argument to a variable that contains animal species names.</li>
@@ -104,7 +104,7 @@
 </ul></li>
 </ul></div>
 <div class="section level3">
-<h3 id="changed-2-1-1-9121">Changed<a class="anchor" aria-label="anchor" href="#changed-2-1-1-9121"></a></h3>
+<h3 id="changed-2-1-1-9122">Changed<a class="anchor" aria-label="anchor" href="#changed-2-1-1-9122"></a></h3>
 <ul><li>SIR interpretation
 <ul><li>It is now possible to use column names for argument <code>ab</code>, <code>mo</code>, and <code>uti</code>: <code>as.sir(..., ab = "column1", mo = "column2", uti = "column3")</code>. This greatly improves the flexibility for users.</li>
 <li>Users can now set their own criteria (using regular expressions) as to what should be considered S, I, R, SDD, and NI.</li>
@@ -164,14 +164,14 @@
 </ul></li>
 </ul></div>
 <div class="section level3">
-<h3 id="other-2-1-1-9121">Other<a class="anchor" aria-label="anchor" href="#other-2-1-1-9121"></a></h3>
+<h3 id="other-2-1-1-9122">Other<a class="anchor" aria-label="anchor" href="#other-2-1-1-9122"></a></h3>
 <ul><li>Greatly improved <code>vctrs</code> integration, a Tidyverse package working in the background for many Tidyverse functions. For users, this means that functions such as <code>dplyr</code>’s <code><a href="https://dplyr.tidyverse.org/reference/bind_rows.html" class="external-link">bind_rows()</a></code>, <code><a href="https://dplyr.tidyverse.org/reference/rowwise.html" class="external-link">rowwise()</a></code> and <code><a href="https://dplyr.tidyverse.org/reference/c_across.html" class="external-link">c_across()</a></code> are now supported for e.g. columns of class <code>mic</code>. Despite this, this <code>AMR</code> package is still zero-dependent on any other package, including <code>dplyr</code> and <code>vctrs</code>.</li>
 <li>Greatly updated and expanded documentation</li>
 <li>Added Larisse Bolton, Jordan Stull, Matthew Saab, and Javier Sanchez as contributors, to thank them for their valuable input</li>
 <li>Stopped support for SAS (<code>.xpt</code>) files, since their file structure and extremely inefficient and requires more disk space than GitHub allows in a single commit.</li>
 </ul></div>
 <div class="section level3">
-<h3 id="older-versions-2-1-1-9121">Older Versions<a class="anchor" aria-label="anchor" href="#older-versions-2-1-1-9121"></a></h3>
+<h3 id="older-versions-2-1-1-9122">Older Versions<a class="anchor" aria-label="anchor" href="#older-versions-2-1-1-9122"></a></h3>
 <p>This changelog only contains changes from AMR v3.0 (October 2024) and later.</p>
 <ul><li>For prior v2 versions, please see <a href="https://github.com/msberends/AMR/blob/v2.1.1/NEWS.md" class="external-link">our v2 archive</a>.</li>
 <li>For prior v1 versions, please see <a href="https://github.com/msberends/AMR/blob/v1.8.2/NEWS.md" class="external-link">our v1 archive</a>.</li>
diff --git a/pkgdown.yml b/pkgdown.yml
index 73bdac5d..272d1895 100644
--- a/pkgdown.yml
+++ b/pkgdown.yml
@@ -12,7 +12,7 @@ articles:
   resistance_predict: resistance_predict.html
   welcome_to_AMR: welcome_to_AMR.html
   WHONET: WHONET.html
-last_built: 2024-12-19T19:21Z
+last_built: 2024-12-20T09:59Z
 urls:
   reference: https://msberends.github.io/AMR/reference
   article: https://msberends.github.io/AMR/articles
diff --git a/reference/AMR-options.html b/reference/AMR-options.html
index 08ec84ea..90ac1e19 100644
--- a/reference/AMR-options.html
+++ b/reference/AMR-options.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/AMR.html b/reference/AMR.html
index cd4d1955..967988a3 100644
--- a/reference/AMR.html
+++ b/reference/AMR.html
@@ -21,7 +21,7 @@ The AMR package is available in English, Chinese, Czech, Danish, Dutch, Finnish,
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/WHOCC.html b/reference/WHOCC.html
index 46077a09..12f0da23 100644
--- a/reference/WHOCC.html
+++ b/reference/WHOCC.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/WHONET.html b/reference/WHONET.html
index cdf41362..f6206df1 100644
--- a/reference/WHONET.html
+++ b/reference/WHONET.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/ab_from_text.html b/reference/ab_from_text.html
index 146386af..39e02d50 100644
--- a/reference/ab_from_text.html
+++ b/reference/ab_from_text.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/ab_property.html b/reference/ab_property.html
index 4d8f1bfb..36b57e12 100644
--- a/reference/ab_property.html
+++ b/reference/ab_property.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/add_custom_antimicrobials.html b/reference/add_custom_antimicrobials.html
index daa22325..85a4999e 100644
--- a/reference/add_custom_antimicrobials.html
+++ b/reference/add_custom_antimicrobials.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/add_custom_microorganisms.html b/reference/add_custom_microorganisms.html
index 01e792e9..69481a1c 100644
--- a/reference/add_custom_microorganisms.html
+++ b/reference/add_custom_microorganisms.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/age.html b/reference/age.html
index 2564da45..42b51e58 100644
--- a/reference/age.html
+++ b/reference/age.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -111,16 +111,16 @@
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="va">df</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    birth_date age age_exact age_at_y2k</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 1  1965-12-05  59  59.03825         34</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2  1980-03-01  44  44.80055         19</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3  1949-11-01  75  75.13115         50</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4  1947-02-14  77  77.84426         52</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5  1940-02-19  84  84.83060         59</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6  1988-01-10  36  36.93989         11</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7  1997-08-27  27  27.31148          2</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8  1978-01-26  46  46.89617         21</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9  1972-06-17  52  52.50546         27</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10 1986-08-10  38  38.35792         13</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1  1965-12-05  59  59.04098         34</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2  1980-03-01  44  44.80328         19</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 3  1949-11-01  75  75.13388         50</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 4  1947-02-14  77  77.84699         52</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 5  1940-02-19  84  84.83333         59</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 6  1988-01-10  36  36.94262         11</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 7  1997-08-27  27  27.31421          2</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 8  1978-01-26  46  46.89891         21</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 9  1972-06-17  52  52.50820         27</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 10 1986-08-10  38  38.36066         13</span>
 </code></pre></div>
     </div>
   </main><aside class="col-md-3"><nav id="toc" aria-label="Table of contents"><h2>On this page</h2>
diff --git a/reference/age_groups.html b/reference/age_groups.html
index db2b51fb..8d34b862 100644
--- a/reference/age_groups.html
+++ b/reference/age_groups.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/antibiogram-2.png b/reference/antibiogram-2.png
index 4cf6878b86b1bdf493ef36f710dd58160d89d59d..5f9c45897695b90b53510c46d3949f81b38fab13 100644
GIT binary patch
delta 19482
zcmc({XH=7GxGidLSeAl<N>Kq3P!K_Sv7i_bklsN-x)AA|&!wUw2ogY$DuVPPy@Mza
z1p#THgrY=h2#7!^A<20@*V^~qeaF4$?jQS}<5*)2ha>sQ`#xpP`OG)?^)0{Gw!Ht#
z1@Uob(_3dQXxj2_yRu6zv*P6QhkKuWt~e1gCi(Ww+h=bdX1+PKW$etJiUT226%Tjq
z3e+;XOUpX(@mb61Q_r-NFDXkJsrPSr?7qID(ta+xDn~9c?P>;z<`JfXo6{Z6_9H9m
zX%1Iy-}L9tiR%&H|NZL&j%yFuH*G@x{JSOFZu5UWvFVu>pZDhfw@?4~e;C>H?}PmJ
zU;4jvW#s?9Apg_n;8(8Rw5y%8pj^G{pjKSjqoNZWGpVyF8X*NGluupyNn^K7RCibh
zhj!_DwrKnImn#j@P7RX7%eqSF)}?3P*;j8m!O7>XR+z1qbN!x?3U65&@-gJ6CmXx9
z%X6FRmuVFh8&7wse%h^TpBaARnP=j$-Mc#vi1yeoynFY~h$&)_Z_1{IE6DB1()F~g
z(XE<!mm3u%s}NSi$xiW%h>E&PCvx+=Jvr!c(j~w;s<-Ip#01=C)BRJ*%srf!xuox(
zuxwQoS{3F$jU#HA{%wtUp^C_)bro8?9T4IBGP(GLwD5Uy@meL{yHv$fa2W^h+7UbU
zzhz%Mn4P`%E-mc_E{sd=NE7a-u#-nzobeKew*H^TXfk>=)#RP!O@oKY&+W12Q?53H
zdmBsLKfoo+)?1`pEy9;y5L)CLaG0IlKxoI=O_wUB3RMeJRd^9E3+Xt46A?pUV|&i3
zEood*{S+8X4SI<A^=ikvlz*Ng>Peb{hq1qmjEw$6DN#|;=lov`24_m7caIbuBE9R<
z6KyY2mO5&fK);g6ZJ<9Rap>)^NR4?x^snbs^?JL$pvL8BE&YOmL#(X4WoI`@AN2lm
z?4JPN)OZFtRP*oO|4O~_Ys)`>zZ80^f#u(S7JI%;^#AzufB%R7$v=3I|Ncw=^VI(z
zS4Qvu|MM&UPoD$%U$@l%kI#Ypuix_j^c;Wo|9?;D{do@LzdiJXP7ZE=re|bi6sH(a
z_3E5S`q!^Fdvgpl4a|MsiPUenHsSFq)!zRs!X^f?<HoNe4TGhQ%kv1+#K*^nFdxWR
zv!!n=cC7!5)LiOP6U{QMbk#b0@}F-!sNb4ycP4G?&izxt0!g>b&6Aw#)@;;YU$|Cm
z)7B+7Uz6IcA*X&^^4_=45xl8pH~+m4vX#%9#hyAl@Y}bxYPP7gr_|AaUqGOhge+w0
z=NYeeAdJ-2Rqu0VRl3!ll;@sW|F*y=7x-So<f8q=*Vni-jYQe){z*98TgUv$>$s&h
zsnLXQMgM+sm3FehWEZ@)tnX4L-!weCC%yd|yBQy5ol3-N8dm=MBpV6~xY8^A)m{aB
zS;nOf$n)@UFS-V0u#_KjT*~?EeII-nS7gVe8~v=JqB(bX#xwqNW~$wuw~lPP8W5!b
ztsuHAz;Lidhx4A=mp5l4wBlMcj8qTMs49LI%6{}t{kXE^qD_~kFFh>(i#k6lI_-U^
zPkrt8I6nr;C%pV+)&|_t_eTdD##^HElZOKl8fAu9julfSyGvNA3DuyT$%Ud3)g%~4
zxq=%T`^|Ie%sv6D|0u<Le9B5Sw=$YyUcIuRSO3`<OkI(7hW6cZ{y}_zeRfQd_K}$-
z=@wVh65=&&ZQL@}&;Qwz|0u$(xcK<vh1Q!t1b<)He*DVwO`}L4EzjKh$M%bkgqx3c
z>~p1SczTvOS5qW0U3eZOx3RJDO>6ah9Zka!MJw=!?W~kkx$a)WO%LvOS{;5k{k=`T
z#u=*pGFDtxEH+Y8ap2hD*#cPEp^Hma$z=}%bR_#V<1)L88hWx|S(lzZQ|AuH`yL9C
z-KU$tqJ*r=3;3C|wzle+o0~_eJsx`=5>nhARBMj?X8+|cx!K9F9{Yh0%X;@4Pi`uF
zvJHDORwcr7w*TOg+|vU*ucDAnb_d@bn9C}gkNZ()1@G=|Eh{OJa8zDm&}qA?tS?0i
z>9Mi13nX`B<mTquvF~j9x!|3vLaH$r^)TMS$H$k6xQ@5rerIsY-v53nN=>&)H%CA3
zGt#>7LpR@4=3RQaDlUvu=I!k4?3tKdP0<i~QBiD|HO-2kV<-OZe;F6&px)>9{ln%%
z53Mi3j^@Qj)2I|)du(KE>{RTlZJSi9zg@lg<Mtu;YOneIvd`@&+Y@nV;_cF;$I<^Z
zIAqg@QP$lfS29g2i#*t|@a_CjqdNaezN~8@M+9<B|BYHk5~S%vJgIZJ&q5RvC+p$x
zVG<UAkdYiHgsFlo)wCP<_oEy1m*3B&9mm#aafhq0u#5CO<q6D8NZ`b*EspQ!l)hD2
zS?NH?eeKYjeRv$V<=_5yhV1>t_#~j5>9xt^z7KzIUH<WuXXeuZC3pY8nXC+l4-YnL
z332^%hX?hnhia~U%hck1!J}l}ouS#+^-c|*3&}FC^>ygWPaG_B%2{1qwPQc{&lf(7
zZrVL^D%-d;+jnUyg<HW_x%$k1ycd!l`{<v*+O+9^2MR|1GaUc(SpO@Z<Inp4Ct5JR
zu;yQ9$G&BbN+GgSPDKgTGa1$Uxn%h;vb5Ra=-60}@k1#UgnYA{p&?TrdG1875uZ+x
z{m%tOMKv7>xe<KPq88@1Nj^4cHp#mFd?tCX{{%)=O|4rnBjM2ap=c3%d;4n)6U!PM
zef?KRne(s^CfleuJ=>sw8@;k8W$>L@wI>EQL&(cfjTX9AseC5CEndoz$)MxXe3xeg
zp^~-mUvY8je}7pej5C5S(QmHud5G0UOvKBVZ}uD(Qm*FM^q1tJnrBB>hP{&Y^GyXY
zaZ=c%Y~3uleM&`s)r=5jxY|HaP;h-6As3{YakA+^)iEx+Cx~(Q_U7*qgh@x!ZMjvn
zeyUw=J}L^Ssr&VjMN8yhOLm7M4J}kSzU7%-wc#p{5ZB;arr3IVS#ubdFvfTKU5xv9
zw83@sp#_q>uUPmm1o2HjI-q!qzP_AldWy{;M#OB1Tu`ryJ95rgxeMXmWXVxJ^=~--
zr;Yf-&;F|c@gKXkOGQH?Y<a%1QQ1d6>CCGg5w{Dv)6&w;yxJD=eR0iwwqJ~FJ0n3I
zA0HQ#k}|;kL>9cG{@K#pqViH`foOY1A09RrK7_#?I&_GQ9bbVn^n&lcR#TZNx%Yj2
z&!(3B{};eoLD}=~3;Y+Lr0SXJ!(S6*bXZT{e92dftk2}gF8AoD`9{BM{@(CtnG~+%
zFjV29s;MbjXuX}5dj??@B$hdKUp=6Z<~&?Ay-qF={q3q+l_1d4t*Mk38oJl)e#7>`
z3YSzUE^nZ!WVw)<t2TbO_P)8iwXdA;s*$SV@VcOu8dtaRTMa)i&m9guE`5EO+zM@-
zj;t>aCa#a3-L&b%CXDiB-D2DD*?HHmt*y|5yVXQ%(-zz13O<upL?88$qobJmljt4p
ze0qY`nRb~;PW)(v6SKx=aS57y4tBH-1sBitPD=$1Pe#b6hiH!mnRS#o5qokBL@`}{
z^R*dEOYZwP&R-(;74)qxkd~1a;ev!;jOIE<OSCY%&p@s3a#u3K$ihUP7UbvW*S;3E
zy3Si#dri!3;^vFvQX06Wu@KR0cmM%+dgr0wx}M3!EGv8%E^Ot+!oot>{5BdrN>FDB
z;1l~yMfhF6Fy#bMVX={WDv7clB_3pby?j%nr~A2t&bP<(P-EN^kOJ*@&vB8F9#h{=
zQi$dAj~l(Gy%P$wQlGRdG5z~EM7KL57`%76$C2e~fw6=n4un%o(f?h_-onq^lPr!c
zQG%*BZ|<ehI-NU^oz~+u+pP_PPkRR_Ca0^%+a$gWpbps13>4d9@{4r8w6&F%)$+w0
zo-Ka6p`Lcur0k}70b<Y=cTt$|XG1^6SOjJPR8+&&(dOjHD}YP-pa@;GZRhMQu&~gS
zUwE9YpEt8g#Pu_7oa-hpSBcmHS{f|0Qu!Of)}IKyd(_p<E$_nDWF?CjGtbxSEAv=0
z!)mAcj>*VA@{1d<huA!mRer~cs0OfmDzv^j$I|bGppbLrZRcozp9N>b;9BsZIdr{)
ztjB7^5XMHm`a>yPfPH52ReIffd;lNOjc?4~=-C3U#I}Rmr`FtQpy(Pd>h){Etnbnm
z+C+;km%zS!v+WEgOp|vpV{LJ=y4hRsK21%wxjL^nb5!Br<Wl1*>Dj^$;eFQ6^aLF0
zk!#foOs=Tt#UoK>{BhrhA&vpI6+n18Lcv&vee{^GT{$wN!DiV#ROzNyXnCzSTTgiK
zT5$Hth@U2Ozw*F9C_1|JfdTw{d}p8t`>o9NdW{BT1hWdvKwIp4dGhL8gZ@)9-5KG7
zCHB06%u_S8`TD-%4n@a+5u_YzQR>j!vR>)fm*3LT^4$CAk+X(xAgyZQ`l=clgooQ%
zBy7HN1T3~mIgHd)0)+qlET0wMmMCWc5vL{hBc(o=n{_f0V(91RgXc^uZXHluJ>jBw
z6WV{VZO1FVebDre9z7a&{?0=o-OM-f*g7Me`&{Lu1MGYpa{kVhtYhasy2QY1juaoN
zo}Qj=`TDg7FkjA0Z%)h?X(m(zfB;F_Xaon)JTcn!f%IGs6K%0N^>|5w*ae54GXYHc
zO5-Z)V~zuCi3;t+@t;2pT>`t(Fskb63Z2)s-r5mu_izQuMKs@VAdO;NbT@dSEj|N6
zjUDmRwaxYZ5yY-KUZiU2<N5ma>%mI53|Y_FDOt*g(WbbIj=4YQrZbZBM-ir($4pP*
zAs%?`Y)Fv&>N#06m!`v;!!N7y>u5%pr`LulaEFI+D+pm^nH!6LO4&?LR@gRd<Z1P#
z@feG2?RTmN&pl##nj!S%!CJp^n|352OHe1>kR9P4pgt0ul}#P?Vw=EzT>vQKK^du)
zv$Q@lyUv`WtCz$|!$#>j5zEveWRVc*dMBb}o>B321wU%2VOMWp0;inkS<6<T-JD))
zvo7W>$<M!zaPN7($gii#e{}Kyr}POyrRKSzO7RoTuXICW5{P;k8eDw{$2_x^_1$@L
zC{;#5jC)txO%~VDfR*Vu$9%yEkA7k?lkMi2+P4QS9(+7gxD5-<1;XP*I6n3Ii(`Tp
zFX}B$v~~An>9ExND(>KM`}O^@dZMhJuzv0>XsB_LPT3~dTD^=!&$zS=);6dEWZ3=A
zky<|wsGXT=F(Ubhn=59GcdtRNVTz2~gdOmpme$tp0o&v}zyZ@x>-J0gtU?xCgk8RP
zum2Xb-+Lb>ckbuB70#^?6&abTm3lo3o`qn$y{)szXVC_YOTf@wbHmlqNlE!EA{Cbm
zECNbP1Ad6)y#M$*c^-HnJXl;EooeF9M@7`7hSQ){Ju#(1Tj0aQn7Rg&CxZs&ZUd*d
zaN$CU_kyMM-Me=4Bej4ZaL1&abD?>g1Mc<xFv=<8s+=h2r4KwuarOJ7Hx2Fp3XWa4
z`^>o9IS<}a&9yyQ!m4?1Uwyo|ZP<v<Bp01F%G8H7yXgA!21XmuII;|38C1#zHQeJK
z9vZ}?u_l+Cr>?Veesefa!Em(~`GwTTH$t9CbWBV}Pmk`fC(-Hhr1ES}RwT*{;PnMh
zp1dq>^Yz>F!@_7)+IRGVGIR<8L^xVG&q0}mXp4cqH#Rn=TVSp*eE-wFs@1WOt*@#r
zn~*)VfNWsRBcqgBRB&bY2HpbJ%d}~W8w83PU13=6oCrXSY<RuEycSKri_SxaWI|ps
zu1PUjGdMUHI3<Mj^Ir3>Qz_v}3_}$0L*k-E3MKK7%Ow-Lh(*>RW!TYty&Qe}vBqFo
z|JC;zN_6*&cHfXo76HrAf8gaY8P~Myp&Thfdf9fPbpZ}tX~B@JQe3de9%O=^uWywk
zb|kmfZ$*fo|Jq?;{hrQLmFVbb>rztli{oTq8Q-9VM!$ZI(rQ5g0Tm$f+JGENZQ72h
zR3`%f)Qdq&BQTQ`CC2Jiczn1lqF3%b+*4w&1I3(6-uo7AX_XW%EH2*NssB(6zwXwd
zkioC^N;<6i>eKzxzkYn$jHkiIqI&@hFUPv|)#aFTTuLL|U0o%9E6#KVZ5~!D{$khU
zT=o2`j>+PQzd&|<b9n2`0Jx8_5`8HWL<p;ME1}};w*U!lLDu7?M*VdbCp*dmCBt8|
z126(10|(z6d}CBUT@IbJU4HQ<9cYpMs09>xYisME-tgJ}!mE%9xhQ%TWd0o5nC!S|
z@_kejG!0=fF|C1t0UX-}#=VgmBihP*Oq7yPK9n9Ii@F-<rx_4ySr9j93@jsnr{t*R
z0WuKB1jrdKa)DvtTUS@t5`@WkNpzggDaVeABzM?GdrWt|GcL3YqRtHq3o<P~dqWA&
zr6<P5X2K#Fm{qxV8rdekgT}FsOI8;khIXavxGuCSN0E+HmGB)e7I=`2Lg>%E@9$hi
z>z{F@tM#`<<RP85;<z-`X$+(jZVPNVL%c&?hfCIdSAWN~7Yh>+^RUl3z(y~VT(wC4
zP0tUT#n?_RuH{lY0aUH|E9NKwI}rUTa~0N80`f{dS<wudyAISU2zubUdxu@{T=^~|
zfq}nz4J<IYBO<1mM#VNpg`ddFh(p7}?QsfzWe}bs1${Xc71F)=W+w1DyM4{S*Ka)9
zdB6cc4se6l5Tt;l`5;h$r=lp+p*#JBet|hfdZl{&m5GG+uiGl29bdk5I+YKn0{|y`
zIg3F&)c3*r@Iu9eTUHWCQ=O^N5fLemA8*skGuBf_;w5{_M+1cg5siLeJ@$>y4jLER
zys)Z|msWD0x@B!^>j-<D4SS-ktzBY;-w(y%=DuSR-}1^wX8Px$vUhiP=XqATO=>hX
zH5moC12@Sf4YeyZLwz)Maao&p7=h#)@n2MjGB(wr#EgnkDp~_p<Gv)E9!5i!$+n44
zdElbZu6OTVi{Wdq^oRN>arg6IDhW)eb-Bw07WL+k@+kf&wQfBEv>*%Gkp6Mp75wUx
zeaExyyVC(!MD|)#HTlrwcH9iD|A|vuqOXji5C)}o3<$DQO{)+aIii%#)Tg~8EO8`R
z!vv}D9t0)?x=`Go1#^hXko@mh)<lg``wA?uW~AOM9hJjEy5ArwKRsXQPFL@SLjDe7
z=}G7UPQvH+UFd%4x=pLV5vQYcG_+h@izJ-}b-zo-b6oVAGlhN9D=;^kO!P{EmYi*Y
z(DfiKvMuWCpseT8oeSJ_Vh+e7zaBs<N;qYfjN$jASg@ULCK3mO_4^Zol)97Z0fwUG
z=f$y$U9jHS#qF}K%QS|^ch7(`hbhN~oYo>Tt;#v(Z9sbQg>>l2H<Rm|zQP+38LYg2
z`?JS~)P4m5GWoscUp4kz7<g7D(AO;gwcqOi2BM;)54*Y|p5n+?r~s+uBfhO-^W9@j
zA*IlAUU152gLc$~vL0TQFvDc1zQ#EQ1q7f-9u3>srC-Iz$LBOW+9}M-`)PrO)>Wvu
zK%tY&eW&@Og$>%*b0M6JOY9;bLi144+GpmKxcnMe4O-J+o};kz?P}OhB;P2RNV*Bd
z(5gAKQy|%YY?a=gD7Oq9cp4C5cVjRs7wt^fVlA75(kPB!ZK?S<R(gxc_3KYy6;TzH
z9C1j>ZL(d@)HDH2HT--?(Qrd3mz?Bn8PJ@{ChockTfxr2lcY3-uscG7zihz}b0nOF
z{V@wzMtZ|W*-Myh!6ooyaN|6gnZa@_k3@sXH_smEA$G@cX}eiZ+x_?$6xM+<JTa?g
zJ9yP&5_T^gW%%vC;P~UDT`WIH)&Wu5Y<)qX2XJgJ=*h763J^g8-{n#!!X(%onjH&j
z({ppr<|IK4Ds}7=fiN~=XFI}ZeVITR$Ek^Q7SuDcp^`wzGqfZB4m*sjj3RyW^~|{{
z?AL1~=&rdPf%IhqyccAaLtF8bg-A7g+=R&hl(MA`ThTj?wp_>?56Yk(+H&>G#qouR
ziHlX(GAwM@0u5@cF*8XCse^{ae*cu5W#cYb58+&rf{e_-dSWeCf6TPfPD>k`^xwaK
zmk8Z%c=%vE-=cnG(37_Qs7>_9EZ-1w1(;(w!)ZNGjv3gv`ny&1qVJMjq*C}P<THg{
z&!p8qSe_@Ai%wA?<=ZaP90Zv`j{$J7RJGyU=Gvh28@W{aEKY>|1|3Y|Hp0e6Le{4<
z9x!?sQjl!7I+7H&4uY&fmT;f?_CVSq0T>|Gi=S(<ZS5-*@RJz*Ev+RPzsFmjn!f5I
z_wt6zAG$TM@3>?IH{vyc1<VA+)vi{zV<~!~$v9kbJrh!r?U$EHxpVKgl&k25pvCxd
zE8FbQJhW3>0;RXTL`*y}D0l&b!8j1h@)VgHZg~*x0Pa1Y{67h0F3jqOgKCK4a**Mz
z==sp#VTWTJxz<;<rVq!*^Wv6TMUnb#vn#mgi^=}KgQH`qs9d3vd^dd2S!`s4p#&Gj
z+X5~{Q4%NdF16$Roll&j%WM9Gw$a;S3;<!JhlZ%q*roYVr8kTXE454x=CIeO%t+*k
zO1zKXY}9X3i9&n)s%aF*{OIIUR?@rgE+ZW0Z$AJ~WqGPOe*7`w;FuD~1ldwHaOC}+
zN2JLc%|P(+CYpsDonZ^8{>ou*7Asv3@%ccetj$mPVe}n9F2~>+I}UK?LZH=s>$BDV
zVn)Mfzx{c3c4)BJ9wzr5-GKi%eo0X|lmG(bZK<-NEf*^S)*^EMR36|LfWS7V7V;uK
z`A32|_x!cng}?NBmQIE$&SMJ&)MmMFqfq<}TfKq6^`>0isU9bR0f^D{^Gl=$rL<4A
zCAoE}5YMfHqS8Abw*e_rgIZhsa2bH|)`!0{wNj&?Ux94#f<x>IiZj2y7GEA^G7Lbn
z?}73!0a1(}^_EAt6&4y<QH*gtoSVY&4h6n>X4U$zkG;_b=0~Y@YXGg5zX&9s0l<oe
zhT{4ZFM2!lqHr5`ct91pSX!UCpSppWM>NQA0gj{8>24LAgv*#R*|KZ&$ET;Io)qKK
zdjl7~ix~5jR|8H(7x1)3Lgta9;x=}KT%+}=)Nlz<(*X)O0@jT5$8jK^_#!kE*Y4_N
z-b(pQ)cV%if<k~}7agWhevH0P!%iMUCl|mL>j1PKF(^>>ddr+l$g8gb8b~@1Wojy}
zH6DxB0nD<GN6{2*M!;;|3FlW_0T$T@%TNL^6aQPJ=GT?BBn6Xj1!^pxk(Y0dZq`_T
z9Rf1}42p+1mnC2mQF_`cxArrVe_W~TE~A+P5MpX=BOY&(YO-_Ru{7wX(?Bj=H`-7o
z2!h>c*_Y^4K3zt1b}Oj_2!bEo3tbc4L<mu?m%lV`+_(kGeO?GR>w96n>@?^Lj?j^T
zyS|e3nwwok;(^O|bk4QanOEFT(U6_ytA&>A(32UFwsBBCJ--Ve#K8^-MwaTlSk{1Y
zQa<!4TpEZ7eJ(XbY~W+Rns~Z5lnF-wuV|A=+Xyi(RsaR>TM)as9lf?TyaIH*i?B-p
zt3RIlZY<#QvTknljaGYM(bYge2OvPa@niCgOS@(ViqSfN=>mi>Z-@X)=M#K0KmRS|
zQEwUOv~z>u;2ltH;mMoe!Ey(#-pMg7s9VprqNDm2iO3lP-Ho8IGGtX6|M%9NI~sZX
zEbNuCYJkN6KRiF|-mMNKEy0SOk>L8gwAO~{K0ksCch<X;3F_hUzn`ryO<Uz5KR-uo
zrl*@&K#z2CG_y?(C>sf+IXUtWRn}jRdro)ppAbPiF1n2{tgsJY0)jCBQj%9M9&SX#
zd(+nWvn-pQ$H}<aeDJvp<Pc>9u*+z0L<(pUKol3mz$l63*&_cz67migzBu9E9O}yn
zk4Exu=2K?rN>@Lwo*=EIlcC`e>ag2mD4wN0M6|B|ITs{oCp!Cr#1VuUAatSn)9P_)
zuf=VF5@A41%K%MQ!n%d6um7HHJAJN#v|oYRZ{-U}CpV-B)hFS}^hXy6CRmxlSd0kK
z3aOD<Ns#r(b`0(K`gQLyVajrUm4_pyi&axT1+r#p#BV-2N=ffhCf-q9={9x+9o2FN
zENSI1r2?K31H<no%nz34po|$LCPTU_P%()3bd<PA4ZBC8^Sd0)BD@ci0|D*8NK<lv
zR5M)+4;J=dQB2%e3&DAO;)A4z{^xmf`a2IP5{Fv?2x_=+@7tTp1ebFdlt`}m|Mr&m
zT^o<dV^<jQCcU`Rw2EdzQL9LCAa<RNDJ_bDzO5fG=_COYxCb1f7$$ul3E?E|+{^K1
z$G&4XT6i{d&8^*jFO8j-f`-GzDrPRrJxRB!L7;Lkva>D@jrju$bBC#b$*9vvjZdLv
z4b$g3#H6ZTXfh<rT+O0}$83M6>PGD{!6d&=g(225q69b90BN)jg+gM4#(2=}x7AYf
zfk8#&cZA-s__tnPDV+pPU=LYzvX6oU^rvB1$%}8zA03a#N38rpy{s(#K^^b_DN9yS
zIM}W9?ZmAIHv}WLLGbvM-ubix>XnJWCR}bL3En!WcXPQDQ6Dm}Tw6zHe8F3{&fjNw
zs`DzKbZ8~|P&PplReG0^(Mno4BPfW0y(or+PJzL=^jwjxwY5=dn0eruH7cAgAPWl+
zi`}S-6~U__BqE|Q3S(ERsAN7c^-RG(!yr@J2O1`Q0ng(LLR=IK8aHp<@i^d@t*xy|
zsvvr$QsA#JGJ!pUk+lJcae)5%9y}%l6N;?WmS+caV5~!^a{^A}u|S8(Nd+UZ^4ob2
zCuQGi1Y7ZAhZ)R9vSG?NMk2xcpmzunsk#CD>J^)GoH7mo-5V%v=Zs4}yV!m^pDG0~
z&>}YkD;}5nhR;Qscu-YU^?7sX(NrBx1w9uR7nBmA)xoir;f1BNE3B9<&kYl017|(%
z&dGu@qKzgs4u^C9{Y3!D@tPm;UG6mi`w{#3t`FzEF1B$o<>o3r6$aSU$K6KRwOp8{
zpi-qH_ah#VAx3=3=g6lpIGc{7ynM52WA<It>NHRbdO<0YxbyMxgCaApVGjak<zk;{
zDiK>hyl{OH9n2PKxC03l0<s52DJYcYgzdFaqhSavsd-Kkd^sHy98|_<H@*Ki`f#hi
z?%?fkFlz~bpbYcGQdNLTK<r^<G!#W@m$b>Ta`dI{JQD9v87?u=$&773x4iWC3UL84
z17AJR$K04y;y=vrj=6h|x5wqKb70B60c{u|Xv0<XQm$+_bN#{}#=eXM6*I7PYu9zs
zZ+4<jOwO-vH->Q<?Gcr}GUOKCTlPxSA|IILwppFUSZe?s7omZw)Kva%5r+0A>Nr4M
zR>Oy5r&p&a5J1_Wg%ExtVAD|97y!XKwcspt{Zd9olCSDyf?L>J6<GurNn2r{__1$w
z^>i8%gN}oNGwMO|<}L#^?hB*9duf`{98%$*k16_BzziZ!dK6;XvG%mR)%E-V(r@7X
z9t0y>Bad!q#c1$DrWO$_pa=JHU@Z_}W$qw2q6qqX&4<t=UzoeO!@MB}2v!vka^2MH
z`vBxuHm@N!n!USiR4=p>X=-j^<A|cwYPe*H<3Q0n=mx2v8s&hKp=u(|F_+4>U1{!X
zw+xCuN-buI@}MW6TMa@o%5WeTJ=!kz8R~ddG}*|x&GkVaGxHp<2I=q>2tJB14y6nf
zs{q<BD$NCyEi-5cI_M#U6)Fb<<*4umON$*!COT^URyD+p6$bI{`hJYQLR_UCaJ1Q%
zM60l?-E$^o_p(6GGR!k6_mmGiHoGCD?ZN=GOrY*PdZF>yQ7XWGa)MiXCrnh|R?k(b
z!BP~h^OZ|u%dB8I2pgXO$y$`t{m%*ux6WufB7ONzFAn)bY3;3av#q65iTa7LEWWHH
z3NQKHhO9Sm)V$<2i37j_!GlursypTC)AyGCAZv2_&5GsF;~A}uYv?pnI}o8lC(O}I
zR?If9t>SHtubYPlJ>wc$4<3NL3Qj1$nbKG^3Zd8DxQX}1gh^w^5O5Cc_I=?+dLfk!
z420lA1_DtE(=reR3a#)v5^ST&IOZ3;-CNI<Pr*8tnNLV#M`|8;{yZ{Caal`w%H0LS
zfgIQ<Im=wkllaQX;rv>Y5<9IlvN$iUk5QN{EyKc_K;^s%)t9U9DdV~CK4;~sFpAg+
zWqb1JW@OZtoEJtB%=$m8Zh_CX=|RT=4?b%^(5cWg1;xe1zaLbTvbp=f%-_Gp!?q4O
zb3Rx2QT4lsauZ*?NcHRm2<mg+u@D4#a+jzoWuednXPz8)Miq)>nBy6SH-a+r*=51x
zB~Re$Wn53LQSlqMo~Rv2`H*V}d0w<?>J(<rv0GoQ+-$ZzbU9T{G<}?BT6y7nG0a`b
zA}Pd4n?SS0vZ=QhQZt?}Ue_(=N*O|xEBqw@cl_hwHbvpjOBazlL0P;yN<TP-wF6JR
zgH)UW<OIcX{)UJIcEl9Y$-}Jv=!^HR<ErFUi7$Q7u8<qDBjy`@uOlLU^o!8;rGm_C
z0J2+opyJ|J@jQg4WOMpU)q@hyc;fXW<^0}Gr$uVue&%MxJ6C-XyYhKf$4_n-)ovC*
z7s)tgJC_^7`n@<ghVA@lq1k)Vu>6c}KdJWp5CJ=y{*Yh+z7-S&p%V1g1M=Tj!;b!q
z==ax+=8p311*|t?tdt&rg|QjL>>k7VpWMhSJ*sx^gqRq!uISBjd`QpzwUx+;Nsv}6
z^GDCS3~*1fva;rd^uXj`;9`4qleJ%{6d4_beC8O1;CWy@(80pDQYDF49XiHvQPdVQ
z7h3bS#cDd!4ICV@OX)Tu?ue8#KC!l5Qfgr1_1fPQe1J5OQ%I5+<ThuE%cfetmX!=h
zU;9d0Fibt0ar5=5Y46Y#AcjkO8G8oP-!}Wu0;QZlXW_N8;K`E4j&h4rE@_Qz0G;I@
zALRrQ%*QX0NGf<8GEj%r(a~8hK<H}PjHnw_r{Bm*1BicC2%XsIt+Rv4VG_%M9Sws%
zU~DZe#R7_+sg*y#_*`Yz_f)e(Vk71|1icf&mpMjZb`AE1lXeL}_RQ~C`Cq?&J%wN~
zXjwz|N*VLNOfUGE)Z-Ph@FVJr1z!Q(O3%gZh_*LH#&D<tk~>8Hv*0n0d*KTVse6zD
zL!pS6>Wpb#rVQH&?Nf?73qWZBe0dhLS->CQ1SqZFV#TbMP{jvm(B8`2+oI>hytHS-
zBl}-RI?+rr+k$K|D}B(>2S}LHpjNukHy}$1=)l3Q^Au(+JP@^DoGfohHYy{kWvfPl
zgkQlJG3{UL5QDfKLQHGC3xRI^^iEJ0dQCwE$-31s7W%JG2M8gmX{0Z8x7jmL&}q}2
zkTu<%A=k19b{-T;fqH23f%GBB8pmZb_+adw${8xFh#YOW8BB$JR!vN=^e`C9yoK4E
zLatTQ`;Ke6(DmSrZZOyT>U&aE4mb^0^%f!l6IZ^3iU8=%@$f$_AV3CcOYoXqwjvmT
zKn=40H!)H3^8hNsVrCbkH*Mn7N38((moN<(i&b$0F*!`-dRwA}+h#}XRVdCb_ZC48
z6#8PM2^8plsL%!8khUA5#hg+NBHw562{Lm@zB7U_y{rCEb|_bLksX=!mP*C$@vC7c
zB*?e{Q;d5<QR-Rm0RI3Kj2nQX2p~Xk-Pg9GdcCLCfX3>`2aT1KTY0T*z3tgyrcBcd
z$X63yyf1Zjx{3jVG_{ucOf>PW*3w_RraDcqEX@l)%2NXEAEs@_-{R95bTtsbt;`!h
zqe61fj@@Asb?bedtb)Su#rF6JKM-B-zgRpi0%dquc4D1Maimz#80Rs2$^(Vb&omQh
z^5u|LZiDt2_6uW8`S>R$p`);bJN9#O{4%5IY&~uClWBwj&37%7IP^+8u)ff?Bk847
z_iz{u<Zlq^)Z{#8?{n?uMaC^S)_GQ_92PzO_xd~Nv#l5Kzo89c1Dq{hWx+NdckFz7
zEsTQ+HcXv@n%~c1#z20yfO;f=%6be~$85jJqyNoE?GCBNeg&;ugSEklU=KLp8+aH^
z$)t}7tj8H{`;&YoURO;f`SpM~OeH~zG6C4uv!@cNJy+G_jX@_$j8P^HAxIu><R-Nh
z-VR@+GOq98BE8#Kb8C$j&H!<F22!JB-O=qPilOU^nSlVM2=(+)soRfPN#*wjEX_7X
z0hVv3r^eqO^FNDUh2i5g)PnVudM1}d`%{OG^aEm;Hu#7EycmmIv%u-oh_PmLFFew1
z`nz+@ptXO6#cgF1YG-$+aD^&}unX)^{ynI~iOy01OmhA5qqXt@ks5x`0eZbZ{zdwY
z=gRG;5~yrvomcCvn$+!ctXN4I8i_Npad>VL9ZQJO)kr@B>5V&;^nDn_CqRjrpx8L>
zSFZ*Si!Op{yI@j*gb07I_I`FY6`_2+e0+8eN1RuG*rbS$QR;T-*W5t?Y>ukShKnt$
zN*9joFP^<`&UZw;VIq>nLk0Wk$v)s{`EG}=`&KJ${QC5OU2v6!dgTdtE{$Mn4>Qk1
zm@e6FXLED$>Q<LJT<w4Q@*N~4GX6eN#v64TYh2zJNz`TQTBt19tD|yS`l(y)4eeyb
z08ZW{c2V<Oz#KEsce+$~0@&PXH|ak?pT%d$OtgJI<L4(vmKfb#X68)3PxAo{aC7Rz
zp_bE?eLC-BMuQeFC`vV$N8O%r1%8D-McQ|aCDO2d0l6kKA_el}65@RzCd-S--W~L5
z31x<QSFSvS-aT<l^XBiSJOx^xV`i237tU%>+B0G71zgE3Kroc~dsstN-S0ew__b|(
z)SxPFG!q7$<R*&>dPwci#OeWpLA=ksM@>HAc+#;+brWCEukz-r5`RvNj|YV=Ksm{;
zFK4#r<+mY|HcC}o$6*|Vf~8-v`>8&drnUR+wqM1Z>MPl1<rsh|N@2JoyzrxgQXxfi
zgE#R7aqc0zc?0dzr=^94!2<d`g(>M_3JCH6M{+_!E@}}0q#mXvFK*i&6~+9Vg*+^O
zvv|ZW;ecKrgQ#_@dWHQ@Zj=K4Qx!5!kP>4&7ta3%T!*J5X~Uw?8XE%ID3VBZ0^+Fk
zq4mjE*L~ey1Bh+9{w}H)b$%VI@}6q(O-(TbfTCz4i`4GFG!nwcIYvR2Uj~`<Zo&bA
zKvikm?MeFv%UR$BxhfxdKsCUxTZuKRrI7qD_l-2fcCd?>A{@UiTt-qXFF~*Rbg<p0
znmF08{`AJPe}Z~$Ii-Hg^pP6B4*tuRFX*I10%7<A_HFlV!8dxB$FxMF;Y~mH7v`Ym
zuQ+y-yEZme`x~S#H%%^1!-C#|yx}$5W-zf$rl%=vcU1#-IqY$wM~pu1$pM~x&<qjw
znFr@GuZCGqjD1!-SbgvdWu(k0UUB2sRj^oP!H%P@KOy~GJF`{4T66p^7Q{xQ7qEo`
zl)WnIpyN198!LZ4_Z8^i{`xhs8%FBe0&=q}h$jVe*{9juweG~qUZ_7XY3O1S77-o&
z?n|V=&U>SPmQrEfpa4z~#1~jUAD5D1o1%nuSvh;LM)%WIY|K#)n;xL&pPnA*d%T-f
zB4FKJ0YpKE&bL7qk70r80^`*V+H*KJ;tEJ!`e2rXf3vFHXf)SE>EkOPnu5&yKmhz)
z%jneFBs@uVEpl2jUQ!*^zR*!VOis4dx|t!jl!|<p9mwbUVYX2PO6bomL{*pcU4qYi
z_7W)G2k_uf%l+vHzM7?QWFz$!WmKNqAE;IB+C=<im6+Irstn42c>xf_9>~r#Fw9SP
zs_=N2F=1`FL~kzn)}k+1;x%uc6G(CDs@njB<1kQU?fWxAr3Z8_q;EW)>U5oBbtRfX
zE_XX_KRsFx{$``CJNCX0gaJq0Tpi6Bv*u<@ixJSZpd6WO+x}7^#WH-+#%K5L-6;2h
zkqD}R0pfTvJQ^gdJ8CUrHx%{)l>6+Q{5`94aLypN^9uuCDl?}h)c({>(Q1a*(Dgi<
zo9Po@mso`9f~8Kv^iVH1)~2Ef55y8}I6w-@QM><});&i^>i*}YJ{J`imja@J`L4_e
z`;U6{bZ)w+A;m?}(86(aKda*`g#q$)kERlx&DBC#sGV4zaelIq(OT%1lY#OzaR2)*
zG_j-3!<?j9r_OWDw1VzBb!UXgezsYyDBXUKKr;=iVrhwbEYg6uwZ@HEZmcd4_TBO0
zxf8am7_e>!<LH*ppYPw)v1Zo@)r1Iu{auEhWCx~5urNFPjn{zMVTbp2Q(pkcW)Jew
zNm7l89~B!9Ubt>xiO_h3mqD=lz#+;NzIfWjF&XKoENNN=i465s_)eufjf#p&s|%pb
zC^6T<`RqY7&$ku|<|w`Y<Kwf&2dv}hnjR(11EF=CiDl(KBolIfP^Y5rsb@rm=Q%;C
zq5F>}I+6=OkemU%NYp)aXUp?v?G1iQQ(BI7d>F#B(=>$2`t$Z;QuMaPQ!M2&i1a>j
zgG8d$KCtT+atk7$#Prtqxcy1-n-@)O^55THyx%MYE_u<q)hhyt?l|&pLq4EKdp+hy
z%s>*lWo#UG@k=$E?1^KLd{KPDS=HcWw6?LCsab4i@xklvQ8Xrl`{X^tX(ImB!*J7Q
zjh?YFl|e#Q?;pQa(m_<H5rz$q<N7+!haX+XCg0KYk0*798j1;gpi(Uf_S6uj=j($<
zP(uZ2Rif3i`q><SH*)Gz8}~^1e3jSy+>MbqmHV^Hcg?$OS7Att^8K`p>h&KbhiMz1
zBB(G%*r_n`=}tj7i)hXJTNEWx(GJ;sSn#`Tle5kK$i!$8W!Yikq#W?ANBN_QzRgg&
zU?|dw4%$F!5x#R58%Z6HkG~E^xyv!wL9h397y3!BVd|BSy-J<8xXHX5NaeZw!y@T+
zfCmVi&>Sn9ecb%bJ$m&BVg~&T5!00QKNdCZ+X<rgLJxRs*6ngpOjtbXwlK*=nx`J3
z=kWr(-XFXKXcHttN`ShHW!#S=JQP~Z8|%uZRX|n3pd+@%h#G)ovHZD=>5rsCYfM#W
zR%@4L0v<nH!R1V;dlO-${d24)z;BP62Iq4Vg@FO`ms}m!@CBTkq7hAUt>fxI8Yc3k
z*hmQz#<}bqBnsk(bSSL+5&DgDk{&7)aZX!-i)W4?V^{G{FgHUmYk|NC+y%S6*{7U3
zJ1W^m>bF6Ho-d^DJ>7o%olJ8EoPZR?&cMD{?P<7eEtJJ^IGE!vr|mCJpTjh@8Qu6%
znsLA20Ogbm#aJ74jsxAWgYtdSszys6al3FynYG5|?R=z$?4RKm%plB|G?*0ejVH?o
ziR1P8B*53C&3H_A_PSDBT%1?g4AYZ|)vw?Y?tgzr*8A5RRMkp!X+AnLT3-*nA`|SD
z#_XX#R`E)VlY-2)+8>HGTr8-`3F<j{Ca1uYE{`KRT`%6|_ZVrE4?Cy|syP^=GEkQX
z@Oi?JQ_A&iukm8TEy;<AlvtKd(!vx}RS@DoesW?f2#^Ce3@0Y?e!11}pI`FbieIZ7
zb?nJJxU@e{Nk_%TIQV{8^sTSYp59)*J5d=G#*=K599!2|!p`)NwEK4AcJ<dlX|Ppu
z;WK=eCJ<m3`!b(`=cEsxJBy7e?TZX>k9b|)Yp%%zLmFr5vo^)ya%?hL@l5XR@Qd3W
zg>C5CzkD`_2=y$8aPi0-pFQ~g;q`Yx4opyQqWj3G>u>A2BXc>PRhmh?M@Wu|nH*f9
z6)>5Md1kJpB+MoPK;uK5P`#%&h-rIkhbx+RXul~GVkleWo_rDH)Aanu!@2XgyDvVJ
z_j&MH)#(0q85v0$S}y=+0-2w0qT2aNses`7c}X$~2(~cVNBXu^r|8AXiZ~}6I6`W>
zkq518&><Dzkn4*Ds;?<nqdxfKLHC+pdF1qz$QUWM)%;9(d5V3KLev2>C8jBSF(?bp
z`be<%P!TIWIXU7nF29M_wz6ekn0X{{QSLoTYEw_YZ&?!{Hyd06mVSazyuz2cBP5V?
zj}c0=whOBIiDpUjv~ghb1^4qP=7Jp^l90AOY?)i@RAokjXzf~%#yTH~rh=<duAF|{
zIYIQsWv5!{KHD?q?H|u%DpZ=O1o0l~L%#Dj!FIzyFOrReG#u5Nu=lUdZS!EH<R7p1
zKhwii0BW)$-w?E{!(UEq10$m|*LN_}6i>VY2oC34;=$W23U(!Ev?yqH-JpO?x5Tn(
zPoi7941tshK#K5l2E0If)=#S<=wKgSBG>h-QBmWu(%2Xz=1&+xU>#K3m3U@C#OS@C
z)TzqhiED>R`0zd;WO<uB;aCw_tM-2E-MP@C;<+ke6oD4T*J~8u&UqoWP^)1+WkkWF
za}X3G@pC1A4gl{nVWnM`d=~TPC>|=EUoJmSEVS=F4b$U~gIFkN>mVQ^d0Ms&Tk4Pd
zalPid2|cM4J^+3Y%21^aP?bV%Cl<-znmgvMV-}hdOseuj`l<xc`g#&{H3Kjgzp-MD
zz?d&i-lvG{ZwnPG2JCWS9S3=@XTk&q#^I>d*~+~7&;0UlrxqKflnWH6ud!lb>|#sg
zK26a&WYzML0$^-42;^e!@C!6u9MCvxv#5Aap7z$Iz2Ze8Ly{ICC6KMRUwyK7xAfds
z#d9;eNVjxmW2L%84Bvn7I8G5w5Th6B{*pXrUeoWpTXSV@n8lO{2*n+ARy9{DePZ>v
zxJ_v4{DCqCh+z)k>{<t>h=hF?UnyeWeO)hGw=<`p4vtU3aMr9G3pfBZOAfB2hAU>n
z47{z--)|!ehOMau671Tb%l1HTUj}|?58H;CGwT@Zj*j$n5!8@d(0BZsW*mhJ#)}Nd
zXj#I1eQm?K!}RL2A@H+|9Gq-xnuJqQ<IBEV$7(>3TWMmqkPah$q!PD_(HfN6i9E$C
z;foQW3)){m&O+?X`$?dZ$7(U1%|Wey(0^wz@_6@=Ve<`bSQO|Wa1H^qB0B)2gq0Pr
z6oM#JeanOMY`a>KInMa6at^F{m<)`%Dd1CtSyeH2_fj}yDf};;yD!%WA>HtfkC<_G
z8Sy{Og<bhkv!I~uGE%3|A-@<3b3u8`nv*-QXVme5ngqZ`Ko}f(IOd<}i#p=DmZKmc
zUhEkK9clS(bs&8mJ=qDhH6}V1La3OxnF+W=U)#8aXMhR^F;#Ks{L0L|^BTm4@AtoV
zmLLG~92I!{e_j3?W`u#fzhLtEl25qMeyk=~2Db#dlp|Dq^!8TCaaNstsUe3TFL>r}
zgg)t3dh&d+d1<;kq-Ru_w^?mX>LTAX*oRya<+>3%c((RbG>hX$`U|akVfroHte>qb
zcsFzus_PLTxp1rlJw1XDDjn>@7Zj5_)`!6m$VK)dPQt8F@u|mUv6iTlv18`R^x?w-
zws*jQ4F!TubgMY!vCmxlD<=&on}t!^mrV!bA9;aUhmeRB->H8F#boI9(Sa!_($Xix
zFUf<yYp^b$8mz+^Fk;;4Z(i<fhWd{^H=JQ0V21Kbz=3SPCVIfvrUw4AoYR^~xhP5o
zT)r!Z6GnWfi~1sVMBXuw4{=`H9BqR-y}%`L)%@mlhw9@nvIEzZCYWoAVUWW5YYhb7
zH&71_S0n%qx~0vy_KXk4hO$4^nEAC-<F;6_t1tlCbK@)mQzcD+s9s;&PGiskw}u==
z0-d?y((v4VXKz=Yj?Fc#)P_%p_IM8YOeXrmh+?bxeydd_g5h6&T$nYy$9t>sl5Pz*
zK6`p^u95g%g|+#Dr`*0bLfAz;O}}B*Xn3Y&Q_Zzu)Be+NEaKd`wz!No#;FWcMhllg
zATB?Ntv4f&gLjXiL$thzz;w-DJcak+2m`tKi5b|hVFbOecA@$B=43b(++*x~2X51?
z`d4hF&Wl@4@1R_u;Q`LVV@nmnU$<v!rCbSmiT4A;@kJnV<SXhpz;@~2P(US2lwZQQ
z5B%z^-{w^t%8@TMbki2i^qq?^HrSSnK<(H}8DJb)x`nrZ2{m95X|f?~6~p#L)rz<L
zW;zpEgBg(t`*;z!G2RP4H1kY}O8Pc32m1cq7yii-_PAvlR0lKE!HynvQcsdM0xLq<
zbw3^uI13pd0d5af-T<P=MMREg7f52SQ#F6XOX&bx?gd>^0^H(wyF~~gBN`#J1$uMI
z%a8NrEKoPt!F9a-#Ud&hmXzb3{izb5`myy3L<t+@e~6JdXH=xD_Ui2J)d1MwElFo0
z!ZdSOXZQ7?$C;oEXMkLb9@c~;I$*0~8iYJwgv!g3Q(N)JzA01I!O-r#1x76u(1k<7
zI!@n=ePa>0b`4guINf0ia0E$?TJ^r1ChIZ7COvZj2Vg-29YA8%=x+mfkY5cuaUVk#
zQ)Z^2qVCB=ofza*DXFvJoHB=gz49&RV8S|Q!qjRI&Uf)P&m+Y0j$;QCfU83?8YKsT
zz(KDQ1Jh{EJ%$SdGBT{L|GX1l|AP5ntR(fftKh~dQWVatWoMg&0fF|Ek8<i^62Fn?
zG#n+t{JrS2j+bXj1B`Q8HiPvjIV8Ki$$NU0H03O2jzdS&|2S2>F`K3MhRb9OLy;<g
zx_QXX5H0EjZ+UL=@DXi>jytlkpi-FMajPUDDAB}E(z%}QN#1ee&b66iHEDbT0y|$U
zIJa18?0D9{%bYb-6sE&{Yxx_AaKtM6R?0&-H8d|<ehYI$RkaIk6pgH!nNV%u1P^*V
z0nl(7)XC}6K6AIIVKTBjgHHYVP`x4F>j9XAa?xY+AxF-2fdTcC&{H_+i&{@X)R_Uz
z=oXw1LXFu_Vsik#f>Hl&aBV;}9|$oHaE1ZS!kK+m4oE8_0;U0ZsShm!5dAHrg-n>N
zp{72xi@Xev8UT}n+=T8$B-QB=1|Aev+5={Os4W&XC>*s-K#%9zt^WE!uw!EunFlQQ
z5^fw7_x%7@f{a72gxUgrQtZHHfF`I};MzE<4}hQthdO4weQw-Y?bCv}4>-T!KhQH#
zA1K*y_wp9*;<M$x7clP3h?5uugCPVtK!<_ja5AWGTHqx(P{ODez{^J7vJ42NeByI8
zpc>S!f%+xJTVu)zUU)9AOq96rVo;8XdX>Dte)eAh&tF-fEtQN;V}Ugo6J6juQ8qZ%
z!$QdDDHimH3V@q)S)Wf0j+3xI^lc7d84Pa*{%7xGr8U?B2eh_?$%!AZyfe`+9$pR2
zYW!sQijIcNHIQ6UUtXRQNGybF?+11)4!^w@NtB<TP@=6<L|0@;q2jr9^$^6cG){(i
z3s5smBdJ{r0J@kg1jcdLb^wI<gN_@daJsaFlK{L6XthYTS#=qVpK`4NroN?AQOby0
z%KG3ZS}G@w;n#r%-vbXkQOk=#BohpXbP^A9*Nxw=%TQI_kq)Pi&|_iX9>|-HMbAKy
zV{_neK?;rXkni;As%D?a%qj3Fl_skRHLLOSfN?bRwf+aD|LKH~a)4;t8pBeqB2Tly
zO|f~j4FJ#ed)wvaNMmDY(L>!^1hvMS10r>+mVg*f%~IUt0&kAedvr8|dd(j;c}GsE
zVlY~$$-U!h(<)rg5IauwmJjp2si|3hy(&&|uu;P=!OL-F`-_*+r;bk!55B{bv>*c@
z6yWUgl(c||YJwE9JOVD72fi1QQAi0hnEPjy6crWkh8DmXACDw!kWD&Kg#u>OBVup!
zAdl|gS3!W90{64~QjD_;1Ado659Xy@Vs&s*iy(0k(43%aC<5Rjmm#R2Q2ULZiX=#p
z13?b@G>3i5MWX1eR5t0;5awD3vIVgmIafY3Hbo=%WLeebiX?DglU55^^utioN>9@&
zm}WC!{H%ZP<<F`%M!?@$pCFHdLbafKc||ptPiiw>1OrA$`6a`GP^q&#B#P8g7Gdqa
z@BD&>p<X%!*9#B$eEhE+t=is?9)?6uzg`dHoL+yWsyqU&y8;ASwhm~u5z&T%EN^Sg
zI?a)@&!`LBl;y36iuH5_Z6Y2k;lFwxbuxpq$gL!VRo5s~rE?_Ru0ZLCGR-iYy1u!w
z%rJQ25+-<xvu4!~Jzx!1*xa@Eo1)A*6-QEQ1HaE_=5l%g#_?UM1g@YZvhUXVzh6Zf
zMJ(n2YLM|>Sg}r?-+O7`2!*6DNZ!c^Yx(Fhx$L{lWFUTC_dZ?PrL6VW`pNX<)~R{l
zx0{dMzhA`P8oX6)D%tkfgKc?BTd4A_3B^kz_3PZ58Etdrbu|AIkw*`(|INPXfr+tW
z?W?^CFT^B=cWhccEY3Z$8-D6%$T+XGgn+cTaPov~-Tc7RM&9(S(N^^I@-FLteirD`
z8TdB*IT7{Y&rc-$rTWiLX6@qt=jVYQANuF_v96$(gFh+T{`_>-gIinv{7%q+>Fen4
c4_#5%l=1Xn3ill+9rQAoYZ}V=S8hN2AMiNse*gdg

delta 19600
zcmc(HXH=9~yQSJ-4vh&!f)Yd|iAYXHf=CcVGAKw6B{}ojW(A?il0|aPIf()#S;<g9
zp=1gq6jg+xsCi!PJ9pO1omqFy`sPmm`TC=)-f+$n_OtgswX(4bySXd>Pe;Vv=Xmcn
zZFwz~Vb{)U`)*#jOZS0;@y3MypH~ZvH1av#y!r6t&E8i|ck;b?KQJD@n!I^4`TV5i
z&GHXV=ouQ$bDZH&-OHUwzjttcF-WH4Vv%%=UC5!B#(v`R(%EJQi;gx)XE~7sN$1@=
ze*JSLjHCX*?|<EK=MA0E4&?X$xxst1`kz1lnWD6`>-WF^FQ5L`e;B?0uLt?pU;00F
zW#oTekpJ^@yzzJ0`DZM4{Iv_irw{!0d(5w1?7=p_loF^YEIrby?|JKqJuhn*w@i!X
zAg{{c1N^qqqQ6p}d{;{sIU(DeR|QAEBk@eV!3*uIdjfW?Qp}|Y_X#73vZUnm{#snP
z=Uj~q6Y@7SPO80cx#s)qdNQHsmA}7_N1~cauG3^oUtMcBA7g#UgtXq=T`5n~>bs?L
zlMi_hxO%aeOA2-^aGX6`zgZ?LcjH<z;o6VQ774x9keHa$rRF<7zW#HA?-8Br*vG%}
z1^5z|^1`AYIVdXAM{pyO9Fu>yH2J-LSoJqoLMKlUmNTJ~@q0+v+s(Z%mHIQjle{>M
z=;kgTEG#Mt4-4Z`mU5fdrBeyX%kH&ya#}X~(tLD0rBGX_qwt1clL|LZsAtxZM<wpX
z^<>;l2ZvnOKi0k`US|+c`L`#^%QH1KZE1K+zhmzS*?XtlkX5Vop9d6I=(u8WcQpSp
ze?7cUNpC<XxK`uhzR|+>{5^^iH!9WM7XDqFrlumu!-KuGG&MPSGoNdtML#ZrtKPe?
z!6U=2*T0BASao;A!#a&LY#hHU^Wk6zM&rExTOKzzQ%(N;-ap32KbP|FkYMm=X8yg=
z$d3PSq5msB5y-*+bIAQq3HvYp@IU$g|1AaK{{ID4=GRjHhbxWzmsY#~^*R1o{~iCe
zRrlYY<JbNF)hTd6u#5iHJv}`=FB)}?v`~h>AR?l5=(JeR2_3^k6``8D1qB7cf^29g
z!~GxE?L1oDnD4frFT31utfjTJ$ZxGxsBR|G#P8c4cAxi=#$L*kE#dz6_w7W#v17*;
z>&2Vb8CWGAU3t3ukfyP5yhHV}LVL8R3URu#KL%5qvHK9S)#n$7m_=>wCj0OE{iQL?
zV>%3jfNuU3<2;>6L#Nl3?u)q%4af~o8MfX`Z57%^CvyDs=`2j`hQg^+r-B79{QlnK
zP?mk897`KM(c+kRuGy&=%;9wzUS4G#6W<c9*{r-;sYLTXet&dn?fR3ly@iE^E~_(l
zlr={xU5)CT>**PlLTV{LtB&0h{Qa>Vh<f$IoW11vK~CjN#JHx?)XdDNPOHkzUb(C3
z?dbzXqXlNz3F3yKy#L#`;n;Cr3+2{`!eZ7i`g#p^9`?E7iIyQbe%ndjeWfWb8WBt9
zRm{`)&0qRbIBSGBYPOa5RB-BgJKoztpP{3yEk?S?ye6djY^;PN$HuaF){MS?eP7vY
zseVt1)8wswq|>2lL5xJ`&!bCmg?<F>sKln1quh<B<;U@6x3kK^!W%~z!k&i~6l$=4
z|8rJK^v4elcH{K!kSxQBLee6%CA1i;MM#BzsuBp6``M~l6U%R&s1}sOkG)xG#Kpy>
zODn~`RC?uNq-1DvipN&Z$=UgL5tgaFe;rX`7^_;W?LHt>{XRm#z~;-}XLIq*9UXl+
zWuq6Ay%uZMj<d6~yLhgRxa0S!{01hEKTS?eMZDg5V8@>qys|kivQ|gE?0?%&DA~4G
z;MuKJ=3r!dH@|MKH_N&IYmo2IesX(ry<gXjxOkS^ahpDJipZ;(iDi#$o;&H?R}k)s
zrKC>h!m^U;YMDvsEaf-OXS{pIL@*p6kaovK9Q^j#Pf!iMT3)+9P=fBv(BESMyNKtz
z0$HV>_)RZ;{~WR+w7EYz{;KBJJ0F{Vj#T;UehM{!aLr-(28+)#6Hk|UFDDbOxZxvb
zZf<_FQsVsCAgq}z^EAmTqdOG2VrUqfc{hWD7nw`^W6$9m<u}Y#NOQgZ)G`)!HMowJ
zlT#tr?3ZB9mX40VN3S(Bm6erm-MSSLMtf#(^$)H;SwliYb7s8`vq)UIw#228a_a=a
zVzSnkqBMkSz+$CSxpzJ;%pE(M`sm_of1@flde+8b=V>+NuGzE%zfUdn|J0wc#n+G>
zcQZ5_EB(uSDQ^9X{3f-AAw89@g#R&axjg(ojxVR1VFN>w2a7EC`1q|aJ@8%s{xT%l
zU#NEdS;V2=A^s761d^t5dy_D^>{0x%`Dpt);p>u;k|8V8t*kO0`49rVh2|=dcL?7n
zZu;L}dQ>>hZF}=>g_F4~ZHveZAG2tCmv~CVLPAcS)T1T(Xzb(O@WcOhgMIr(O|6EC
zGtQ~UXRqNA6TA=cE&1n2){8@@Gq1lqY=f_@fxO~0y76yG_Xj+DhJK07++b0f7kU2F
z><9F}pzpsPV|v*5pO3xL<ns8Z%$&IuJoe9{JwAW)3FAMX_;7sRzwpDz|GP{7r>>0r
zhp!lhohEK@80{^`m0?Vh{WVgzma*(oE;D~~WjKyEy$K2mLL<?(KUW(to(x-1ha6>I
ziE$5iSY%|HsBNE8NK2$po=ArT=O^xK%B+%3H%^P${mrGFYp92Y_M_J=5iNjZDVW#G
zh#Itsp-R^*t_+Lz=*&Aw3eQxYg|vM6qM@Mhf-A$1x(UgliT-V<+Ovqfh!;|}8OTpO
zdh8gdAxBsb?6%9q7Y5}nJ<GV1cT7#lDMv@gOpU~A$^JWcoaL<dPj|%ou31AKg(N>e
zz?f;%o5>)^aBHrGFRv$F);lZ=2}>5L+q%@%cy*t-rDc|Cj95r=aq;CEDjE0dgZ(B*
zFRT0TSzell@Av179EKdR*>amRoQF<bx)IV-<&GiEeEap5HOoz>qa_?aaLuMf8h1gX
zWB7hFF&R2ha;F^ScF1an^kO=^9eUABgEEIr=!#s*Dv^jFxAl=7cLEGt{t2)Ddmyl~
z?jvWCd|>A@4uHv<?mj-%GHmK}Do-Ef_gi1Pc8yNu$s=fEfZyMdL|mDvD=RBuF);|A
z@`{Jd?;U+q2xV|!K)11}NdYZ`!^4J95tT!J{P=PF*yr*PEBE;U;V2cwxz&k}q!T-0
zW&Vdj@kc4&KQHi~023E-i*+tyMrBmvq!8_p)w!&^xgITbfd%b|Q;@p7>hjcN<<N7y
z+}tTW5hv!0er&0h+u=%8kI1h6?X^0S2(|a5w`7V@$Fa$bw0KP~uS!^48T;Y#J9`eZ
zXh4MZX6uO<dCjKWQc-dCwY9glL&_s0y;iM!w>PE(@zC(K^Nfw&GK+?EP9xo$qz|WK
zHFoScvqSmD)w_fe?=^=({N%gHNS=hwG!%PSCiuD)^e>w1&g<vnrR8+=X6f`xPRAx4
zW|c~Z#|*4<#BD=t&Ak;L)u{8Mx-@e~hNa(jcvIQ=+4DAITCIO&ygjZo!+miyB$-z$
z^*lHCO(^s|n<Rp$=L+($W~GIXr@F2nukKd(g+^ny#nBoPM4k2K>MYdx{W`&)YquZS
zV;tLJ#MML3sfKXXtpD(rnvQi=o7v>#X7SDFoYsmIG~!}iJZ)xX#){uZrsx$}%x+94
z2z5EKcaT{EB@h^ridbFedcO7L7-&O_V3l%7|0-dkk267r9BUydZr#4!lX(4QF$Q0I
z3<kP!M>$bZ?df>$T-$)iU1fE}X4N<;f6B-)M>X{T`9LQ2%0i77Ru6-SHzC{k8?o4z
zTU4d8>AI((lhyP*d77$A&}ZADM6gn4DKkkyJy|+=U54gSFpb*Uds_?g4OljA#5~#{
z<1ol1$qQOR>rsKU;#N-%AJ`%N8ZSUrl*PI-zdC3|_V`*Oc4Vsn&|LD>r@PS-9#|*v
zcHv0>r5fWrf|J|)Kq9NO+wsjc@_|o}BF>77_h0z@;if;j4^|%^@9cYCf+JIW<N*2P
zhc&C-S@V<#n*Gt^ey5)ZIf(3@uY%4`@D85A%oBuO-(T3evCozIeQ5N<CC5?SVykcX
zbM>b?YKz||9N6@|6GVAbI{m0&BlK*ON*8o{c={6a)|1Mb78a?=pT>Qx?GbD2MnFKo
zHCk!0X|)~=9>mbB`gl1tg>`(SPj7fJ{*|+r>6T-|`q%L1mu_Ss$4c-VBk{DuY7xYf
zvDLRk>#H2c6&CPyCJ>)p5F;dL)N`ZWivnG7=WnE`%Wd2^!FTU&j(!P;QP`{KOXhDz
z5t=Vy8VywVh9;m1NbF+EPBve_-qB+A(M<uTlAza1IXxFh1zeB`AOJAS2fy|2dt@o|
zNKxN3b(5rpE49x_r~*iwot>Q@`C$1+<1Kad{xDvxuy^m$8~qt=KRw&G35nX1sm+I`
z)&nD+K*~g@IzZ;r1;^MnW4;JG$_WeKQ4D1H7Q(HvI`;I)(dp{|vx@K6?^5m>tA83E
zAD^3{m6mz!`Tk0%mE6jfajp@4NVZ-Q{52xu8wZQ~M(XV-Q*JjcP0g^VsEo2vFBMUn
z9tqy@Ewm!=B=~5eAxvJtaVt|PYh|W(){X0K3qyL?FXfKotDld^|2eMyr>TsF4_N{e
z85(NVxG~$E#wRJcaf9*DN9FXp$Ew-=))TpAOK}d}kYPEHv^EHo3vRaFQv${w-=ANq
z$nMgOH-f!%`#GE;XjECQCcWfdVA0OZSK&Qmoi-aJzpW7`<(l1~XlIwLsioz*P|`oQ
z(kgVs<Dlk+IIsO{mlj;-mpy*r|E`MZ_^brKP30oXPB$)(7;#K)r##It{DSs=+f!R*
zSpcGjN^FtHsrHyONLW2aBxR8Nly^>wbHx4lB&KcII7#8q!cYmHo%#8>P1;YYYVtb?
zlN^0fC?=|&o}P%mM4dfOEJv?Mp~j1}-=M44FP25xjo+^I!Xa47c}L@xgg0%YZ2SF*
zDcb5Or>2jvNSxu7Z~8f0A#$cE;$A>xEKWNOQDg0ATBOw+OF2&nSe29&W;-7n#XJE6
zOLwo12`hOLhby8TzkR-ngTdtShw~+L7&W!PlS0P)LD-~J)tC#Cl6nUi1$*WPiw@K*
z6?L*ZFO6MokC!#zyO*uu=2og-Y?Wx>P;v7R^X0$8kPj6Q48EjZouMMjpy<oi9~?%I
z%8HI=?#ZBwh6Se2<+j(&a*V3(!Q0skmlpuwcn@>I#j%O+-Rknau*ohRlG8JTmI;T}
zw?6*$2a4pJoSZH@3`?Y>rs^l05L0Z0)g(3ZBv=8ogw>7I)YNnt^_-r~%*rh+73wiR
zp?#i6L;;EORNFUqysstlwxRa>i_<-jr@JC+Y<e#!cim((n%MNbQ!34r*Ppez>LOrJ
zdV6+u7JcRm+L_4!Q!-%hq!x<1cWqArFrOPL$vS%UDB9ua4y8h=>w~AwX%(!x?Yp@e
zJP|8z4NIPjtO0}~w2R|=j;YHe-pkRq?n%EBl8odURn1K&Acw7`&#A@E3<N@lDDOiH
zIyC33=1?90Sw>zEX2q_Ad(e$}VZk9WY`;n}z@%z{zRGyhTP;ZYsgAfTC=FI?KS#Va
zXVcIgXg^x5hnCJ-D%oIRq)LY^NKsf=7{yPyRX?SSAmVo-twyl$5d8FLt8ZbS<Wx2&
zwYxLj5vN^bp}H_wguP{$ZBV8L6QVnR67;a4THmT@QQK5kLZ4o<DYVG-bq~)PW9=OM
zUK=5c)vw-*HEG-`5mt~_Hn`Fpzl}*oa|;W7=V$hVg*O3C_GfBmUA7;(%qr)jn-=GW
zM0a&{tu`{6%m7aqk_-sRdg4oPrhZ8#<arwGCIP^Ge=w)w-8w(tl;mV9;#51j6CoiX
zcMD8!vdVhh1ps+Z+MzEy%5Q5~F~_h%Gb$<yZV~~Z5f&Vr2-mR%av;#H?$P&aS%Pcx
zgGv3y-m1v<Mw*XY0y5X1m&YdSm44Iz<ce2~l*iJ0u36YA9Vh}xIdo=$B<O-_CJ41;
zyj&Up@L_g2mPgf#gGGuEq|6uZKOQQ!KISsmwLD$}qc9qB+w0>;02F>^o^|dwa&Mj{
z>N&qU%qBDNW@l=xP}Te;>K3tcsK&djWEjH42mzMhzzoJ1p}Gp_7k}9tlo68xWYnG@
zZz7k_Y4g;Anu;d_Y8wv_S%sRV=ZhpMybTKvKcOjKXofuu6}$*V&&gY%&cp<H5&ORo
z`EaP%uqgm%RW$!vwnP`K4yjAty5k77M{{FkvIK*dgN}I{z-}+{oY6R4*sMu{T;?kY
zt)Um<k%f?_TkrvvuNa|i?<(sb)d5&w1dnrpAddG*LW8U`UKX0jvjA9}jv@T=^0E{m
zyQn9}Ks?TKDhll!`42w3%zQl?&ZnaWpD&(TkpcYmm5BzOj8|M-2jEK}Akp-2gimL;
ztk3{FU{er#-ehYe9}f>2r05IxR5(vRrWy`2Vc0g<<o&Ak%N$rQ3o?p#=w$1DbM<sX
z7l^&ado7}Kx@f5T)AIudWGrX;a$*$TGN=3+3H>NJ@D|X7Tp%F`fHvIU63N7;FsWV(
z`8Aa$$RqeStUw6)GYa)Rp+8UzcmsmDv7sRy8p|A@rLV+Yv`Kau4~-&=_O3F#UlssV
z-m_<~!gt`^?!jMsa*d>OjBAD*f4X<8id#b*2Qnpuh9((cYP4Zt`WA;xw~okfy|;|_
zRDc8oj><g;yF8BNla)1cbVMA19*9QE<YFyFO>;XoAIK+WNvGt#Y(29Dckcj`YL5aK
zmr<N$D`#A^*xl9T(kf6ULH4$8+6W6fo@E5pMGIE!9(!Cwgazxg+qSUZ*81|B*Ug9y
z5h#__O+p@eFN8{pOx_A^cOQ0qnPejDI$Vb!1Q}#&puh~B0Q_6)xb~eK2ON+EXkmz9
z8tRB`4g%N!mOV~xW8xT^z-VQL$-4JN@)NTy6a=3X(6{PNRlSGIo}6A-WV$H4{lQ<b
z3w>Xx7+Fv&hpOE3T(fCQpO2tJ-R;`}#@-8}XopaV;4dJXA#fYl@wejo_KmA4vfkw4
zA@2vyhI{;pQ^A`LKEL1<6&1Z;T0Id!y!m=r(+_7-=U3zURwqr3RXbhdYL(l<e%_|e
zC=o>ypXKL)Y_j_I10s{7L@aF};mt2J>15tjhB~BWYWhLUe(3IuSPT=|9KH}pnGhpV
zkUOpjP<1ftVSrt^hh|oMyaTLyTui0U*k5~kU<@%eN>EPmUNA8{*MY;~Uf=DBeJ<Y}
zUq{>aMr$vcLIP#OA4EE3x=EC6*D*KW^CuRWhwV4Mr<;{AEn2|j>GiW>8o>3Q{@H7v
zgG2Wz9;V;>Qd4DV8<u2c1M#WcT4_DO&Yp)77r@eO0{9OP57!=>n77z|msh)a3!05<
z8>QH8@DkdI;2||rZiTOYy?z8`h5Dw^h67xesLPB-ocpL}AaG+-HV}o7h3;E^&<6o9
zhck=WrT@dD7ReF5CO(Z2G|GfQhJYjm$#s?V8{7I$5jR$cojZA@r47(Qi?hPEZ<;I-
z+Bx0*Y~Qif`aSFtes#bc`L2Fb+yqRI)^M!c{xu(==k1+q@X!RfiZfjaG|ZH=Gy|Tb
zdY_eMo;R;we**yfbKTdmRQlcPV?4Y0Euo?H#o9TT-@bkOE&=JwDS<bGt}iyzDnHek
zAOuY}E4Q*`nevHTCm9U2Z>YjKO;ph+O)c)pIgbOlKzJW|`|BZ>UFYr!=oL0B5B~MX
zp34tD(E%pDb^XObM}aghUn;2|u&@3{vD%HPn4RXAczU3Z_Ck5?&3|ycH$#hOOq#x(
z)mpFz3HX+z$j8UmnwbXUuKB}<=Y@niE8j1fyqK^PVl;9I_M<F_qkYtS?WZ<S&D(2r
zG(E&DfoCboGQL1ih8x9%U!lo<uf(+79Dj3yFS`@{3f4V{P1dHpXvRdasy#;BfVMqf
z)VZq`Q{Fp?LX_2R^(?sJP!-~yr)?~PEkFz$q1PZZ3O*3OI9$=axdw>jvUOMT<In-<
zeit}7Ig`g_g@wOu#?`P6M9#|ZF@+9=LVb_rACD(<P3lI6+$ft*+l5Zf(+$(sfY2@5
zw%_!Vruj9jL&p*I+w#D=FEC0t3<qMIyFb+(B(IP6=}d*n1|3HJ!ch>~8nTms2fF9$
z0!n2(CHHD>AK1qzXvpLe!#zD5gAHUY`r(vyFNbAP7E1ZY?eqLiK+|>Zq-Ibt7w)FN
zH?HxbFRlVuU_FrkV5eg(m$32v(Vw@ZJ7S1Y^0Y0jkZigLYjvpbLXY&IdIrg?C|!vX
zw;LGqLWZO2mc4593m?8FY07r%L^ImTLWn_U)%u9HAF0#^F25U)Q#KA$Cu<e;B#wfD
zhmfM0p(rtn)S`>Ra!`;LaAo~axX_@^f?l30JUaaMvV8o=oG`Q-Y4@K!Sa!sYn(IZH
zgF3V~{d$?)eJDNXNW+5EQ6PT*fQs6<aYSzY<E`5iX<$i`)C;kmWlR_h4N!c>coEw7
z8sD4<w7*2LTwnSgxCk>YVG5JaMEm}dU4Ng0cdYpCgG_&FAln5g@0now!b^{ao~gik
zde4Wgj2Fvx#H`P=kHgIB%GuP>(>Yq>{m15(hH3S2M5g03Famecgn&Uk_Q{a`)w%>>
zvlrvjAeu<{9kvWeknt=e9rtILWvYWfejMC)^ED9~#ZG6tn6+1Qe4jx#0Dkn!Ay%oo
z@>@&SgY!C*yQ;`R_Zpk^1}aJ{yW>&bgpgM!H-?!P_8TsD4D6hDHIB7?L|OT)hhQCq
zN816y!!-Mcg6T`5p#Y2I@iQ!@w`}WSc!}U5&<%|*>$<<Es@pyFgw*P-aJE!UkTXK{
zmbNGn*LKl<rIv)&)dDP=7DNb|nJ9n(j9u`A1gzJtCo2Hnp|<8i!+Ogisp&l3(Od0F
zT*cG2bwq8EK9tA1>@=Z-#e2xG!K|PJVbZ_8JkFXFhQits+x|@0)5;%j_^yqLgC-C!
zw?6hqV`Jm&H%0bdkPosph|{*v2bskkVnGaQdL{qjG6boS=VZ7SWuYv`7v(XPH+Yh!
zOuO*kKff#iv8lwm``nnIzC>9S0&R*};?aAUXHo%j*lcfYc!Ay^>ald6``kGjh{M3j
zOKpu+w0%**ad9~i2kB6#uP#1%@rf%KKtk636BmwqOYisA8-&p}EIK+90F~8fwWrr~
zoO^a@xoP8mDh!ENX>M>Sw0*j6@q-R^THK)r^sW1Ek(Lb2ls5_iOo@`tQ&#f>1!zmq
zhUw3KApfduU$!IvA|zTr;FHw>vmoUV*R(RAYyuZh1%@lbu)-<O3w?2bI@y!GIR-kK
z+h!_Ln1K4Hd!&a{U{DpUbOl)@TEsH&XEjj`i{FB1M**^S9!wHh4mAkro??uOlG3BC
zc7Sb{k!_z5*M6g&`)K9m5-@Q$SI!9Utb(S)46M;qTT~J(b{0foU|kf@4@o02zBRz`
z$2qm|GK*LQK-s;(i_isSWWiqBHV~nOUUT4^x`AIP&$^TJf@>Cp9VeDWatwPS+oFYh
zyxWj9qMv{NFX&L`dF3S^lv>X9WJp0}$*C(_W6&{j4M(>HRDc;k<z=atmQ9cZIbW1j
zK(#y(%Z@Ov5_{ae11I^vLW$s4uB2^KSP6^J;<)Hnsd3Wor9<~1CJiaUP~Vj|l6tqs
z+kq;u3n##Q>zXYuCf0{I`oxSE0{d18GF^_Fh{w{{<8`w|z6G9en9OQl9AVEr?NELd
z$Tz3#Iw*5}<Y=mMr|g=<W+Y4wGr@{%cks2oIiw(F(F^bKE(COO>~pe!Dfa?olkIEA
zK5H3)%P}Z>Twd)(vXLbZm}Tk}rIM&XWM%@QLHh7f*lem<wJ-J8Py_u!Xsr6ZdV(B?
zp;~|-L`@s^w#Q0pq0o(s_uRR2XF4Jk0wQn8Lv1}JGUwQptQ<%@75b;ZZ9qh5V+MSM
z6V6O|KR#->j*fZv<{=y_0DH^Y4;3qe`iicSsPCo=+)BM0NmJL!Gp;$#$cPdV6-^e>
z&OhBDZ3vLh-Jqvh8-<~SDT?Da13{aV8hWQJh%>8}T#J?UF0~ElY->Bn%(p=D7&MPm
z4nZkz$Rd=p3J;UlzLJ0EI$7>x{CnxeY9b5c6uEX3se38X0i&c5Q1fv>E+g4~l0b@n
zetD!HO4P5l7OGx)(#tbAUX29Q0Wi+yiJ5mCUDX2s?)`D&-Km`O&6N+1!t=tkB9-d0
z6tui=-##y5yLgU=*uyV>63QczVFCih4Y=MKNTxo2w!FIS&A&~zVkMnXVo<kE-1iL<
z8<`A{APa%H2dI0~D*zs8(BK2jM&y|B)5O^j6~R0D`q9ZBndG6k5{h6pf94~{#NUCV
zw8MPQ56IL-rh|g@fYLuLbZ)AmaRUtq7_JLzagbq08$D>m02F^^Fv+87<%ngS>q_zO
ztqWk4?jvn}kyjWTcY28&X6*q;0$8%0!A!N<8b-pewu?PIJ%Bw=eXsqejGyR<=TVJL
zetTN{WVr*4@EKr)K?36%^YC7GR@jWw$Hr}Y(i64RWqX(PtYfoIh`-$ROeKTM108sw
zjhqMUAhq-FhjA=`mwA#8m-|x4m4w`?u-I4xC399LTeB=X<6#s)hgh4w?2K(Hg%7p`
zW)@gnl(Gwl$_9N(;%A|yxw&3apt0YEIS_P85Kk!1vrdakh4~%gQvuyrv#<m%Zf@>b
zpy)%w5KT|e4yZs%qm(5K@0UT%`}@fD{Jb5(0ilB2pN$eGplzbF$lJHtz_RtgX!rP8
z-|N0q)zg6DRbbvKCEG)UXZtV0K;BDQY<vD9!<KUx=L_{}_J_aFJs5C-kmQ5cNlxZ6
zdQ?x3maOED-?&1;A|g_sJ);vas_b#J{CY7-Tnd`h2Y-x6bW%RT<#--<=WqCm>br|q
z)8f4{!J~w-3$j~FpZmP1KzhWv_UX-arv<rg4G_KzyRwMdgh9#8hAW~47kHj;-~<4b
z_ub>*-7hM#tbeZK0R;vwh){az2*6(UIQrb$Xf`4;Z9zM{3>GRrh6~D2vorvM<RAy=
zC`KsPYYUT9w3MsOmBHK^vOXc10_ddAzHDU5Bgs=!GlWZzrxKMpL2#>dnf(9&!hmsA
z(@(l~ZPYu*3$5><1&dmDaiMd-EhVL|(CJu{lwo=#p<raFW{_Pw^X@ko_*i+^8BKf&
zT-)NH{PrQs3^oR!xt9v=e|ead`O$Dxs4H!JWS)R*6B9z-_*JVEM%?-8_|U<x*t%N*
zb_HGMyNTE6ja<In3}hrdFWg4w6m&v{nwn#qSJS6YgXnomrUJ!Q)>|4OWReSn1Kqq9
z@trwLlxSyFtge7|jw)!j$RL@df(^pVuFot$0A&C==vzU6I8xjiEO$&w$^$LBx?~$A
zfK{U}e}lKnfPqK450iQ;e-T65o`eZkheBQe?n2s@YT~z%V&;vap#It+E9kapV{K@-
z!Pl|2h{x;aDG$91wk4PQz~G0H757Gp5e(iKM$fw_2Tsxf4P3Md*Pj5v{&dd~6nKwS
ze+-ECnhe+JDR(pr7cwyxA8`o<_BT8-a+-Pi^Qm#w7~XaX%%V`cWCU#^;Jf_L*IY>E
zIb2yDh?gIL7n+5QEFB6xzEv)wK5Yo7q|dJaLxfOp0cP(40-PQU@VC^|`e6O+RY$&`
zj9F-_z@v~?MX=%q7&5wi*G9mbmo!r4p5-u7*;jZ{&~V1eY;bT8q&xS9b%3=Qz$tD{
zMw(=2aL)^m+HZT)>@WGg<jP`eH!Oytakx@|Z1y!f4;~Cnig9z>-<6oJgB_9c85oL3
zr+(&BWB@8zplW66<i(?CLDYVzXD)R3N42CM%x$*q@^(Q)vMa6=3pSVR?P6d_`p(yb
zQ%4Wwj!t8$A1rV>U&WYK`#!7*GueZwqn472qNeJniPk_<_Blzp|76h&P>0ww3zD@c
zLAsGB33<fo>lx(@>fk$JvmU@{z3F#8GmNX^*T#e7r2<_k{-G$}xbu(Qx&{66O)%*<
z_E{#zA31q^`YlZLX#0IV$0XFuFs*91<RNo4Z#lPa+sk#ft5FJLRO?d#{GU!Xlf2`P
zhR4K!!jt2&Y(Wl{v*%EVbB|W|==-O~h}#5^7mgc=FWI_k)<&~{<&`kaR(=svF+Gx7
z17fXFHbI0lwtxFuCYR&^&M-2|ZHRT2{+HWtybn1%s|s8Y9$lbMIM;-CY841v;LUL^
z`7x#O_z`b7U7lyye6($@BbPa#nk0x?J`oX-F$Otti-(Vm0Ghd4ZcoJ^7`FwFHY*Ma
z=Y?~FXm?77?c9lk#>U!>>@1WoG>>)ekgWV!Nhr4M7ewX4K2Aq;&^6pTIR#S<03ev4
zXIMnd>s7@^CN?Pt1k104JlTDmI1qd4uluoI7Q`4I@ag0pT;~U{Q>ijTu81<}uNJ5*
zZ=1;osb=U!>=ds$)KT5~&E9LJsfDa4iVP|?4sF!sf9eU&NYDs8!7Cr!1(4tM=dd2s
zWhX91XlW_1u2s4C00rF&rxaJ8=m}dwUk*1bMrfOG8<+>XNa~Ak=whP#CZFKgbgHk8
z$}ST6(CEq#%8p)$iIe^2(!!gj<kW|B9}*uPV><hgoKeF{=Y5&{vue>Tr}a~yB<<2b
z6iH?OyTt*)fn^6a*9&vY#&;bEWf-jo1R<T=STwZ(ywCo%hwYIMHsA`M4Ia~nIr;+9
z#65?-ySB`3@B_fd-PtBiLGon37USK-ckd7ry@Ad4n>OiN6lEe2AO%9G^!wak?i~xh
zhB84-47kbqB^FOc!nS53K%me!t%DXs$KUE_e5RtmWaD(`*QFrh_czO$vsh_wZzn<>
z>cLqMcTTKwl>RwSEvaap>I_gSW?xIRbG}+IC>Z7}A9}Y$sI{kHR;1mMEeOkOE(v^|
zGS;jbsLNEua!F@E?1Xqn4D}}-vxh+Vd}4Y5XO_x(UM-eg%<f(CR?KzHddE@YY4W=5
zlxgWAZerpgm0&^(36tjz@r~KS`!2PKbn4Q?gh#{b<(p1&H{r^XU|_m8*w+38+FCyo
z9^5v3!G;=?+J#cwuDL=k;Zft=ydJSZWTu1&Bq9|60^M6;V?`66O@O+(x=`0<tA0Qk
zE%&{Ii7t(=f`>F>>T}+Fg|WkyW~JQ~`~0}R_u-S`!<!izH$R}^PkWIg+Y}QctY8fy
z#4qGAFg-@v@Ieh+T)bn?I>9vrWj*@hgD0qaLUw)ZDLu%*Dk^Pp$0^7-m)q1s-1bQu
z=S01)!!khLb#HADNgx4N`S}5fZVh9%ex*xB@|I#<2QbaM%IXvJN^vTgEg^uiDz`@s
z2R1r|K}8xiEVYY*31rSAR`o*M!f2tnKR8oFsO#fFLj`6pwejZ$8RvhjzTwOLijJS#
zltt;5B6nob7&Q+7#d^?#r9Az1;pf|@H9{87zoI^C?eHrT77^(t=`PdaGLqnKbHMlP
zoz)edcV<8-NNAW{b=w@Qb6_)M$wD0jBq7rLpcYgOSG$A?jY~-fN*zXQSQB2qel6uR
z@ruOiO?~HjFI)G{o+E57ZT^ff^dkY|!pXqxNlbkkh9@2mzT-UIZ}@Qt_Z8?{7Mu^z
zy^tl{fDu`f-n4x&73pf_$ExNZke~=#23DbM5kS#};v70c>lVHAX!}ge2e!qVB$$^_
z;o~X}xk|uvCBJ@g@YDyub_4)q`z3fUQ>1mh(FGC>LF{0F=o|iELA7XjLyP^<1id>a
z*bG!fCnFk6om`V9cOmx&3w*kpZd1gF^qXtp^?hK=%LA-WS7SYgubY^dkeE6#3>F=z
z@OD%?g?;pdEYNWc$E#0OL`Fx?F++781?kAO4S3<sp*k}4LCA3j>b+aH-q<1mWow=e
zuJ+rhSD)_IhaDsod_Or}<}i{8BkUfZ{_UQ}$|pCFd-{%}esbetWhr5J%=~Cg)yJ4w
z2dppnTwoeb0en#&_$+uu=pZ%7+dDwW!A@*`+K+4=WwrsRvrMiG($5jfcCpK>reXkX
zTAr4nW9)g;n>_D`G_1oz5kRA^oCs0bm3oA4zM8v70#jOV7#6K4N~J8^pVs;QhDcuE
zZILYaE<ZhX$}%<)Xa@smrmhX1-45|ybG(XiINS#V7$H#6ibk!YS=wtofKJSE0OaUJ
z3=rnkVe*JWh0`P|4^x2wyocBa&Sq!xBLsIcKF_eCYqN|-**(97H##Fp@NJC{=xd}w
z-)H<PU%8LFL(w?^1AaGfoh0+bdvI9A3Z=`&jCXR0;=Kq0fQxu1m|#mVvf2^R(aibV
z(CLC$rKgz37tAl5?_hLWU=5HJjO5z=j5s8J7nN+GSu-qoQx0(B5idf{<4zc84YBR1
zkM=2caD<VM^E;H2w6<IHS!0;wy~%di9vL#zB2rXa>~yKIIdRAL<7B!;)O`hdFUWGb
z&Q?Q4(3#N$2WXNG-m2YgFU>94skWAfhwi&a4*Ow_@{=WNx1s_+`(3hP1g9;rL%K6s
zr->Gf6llCNf4Ra@ptN5s!SJg4s+irtnS{=1DV+!9W!~Ul*eRsB#5n)_AdrjN5HKLi
zq`~x}x3kf3c;wONL)?N1${GVEGZW{+7S1c>i|617&Gr}e&#oKlzsTS`7JFUtUh<Z|
zHs#f{d20m9PD)LNX{|z&**zksB@arvXWz1Qpr^>CmQmw2sdo1#_K`TLVZV5BjPb|x
zGi8O!KS{^uC*2dP13Fdn8M)t88iGRw9)gG0BV@oNzqZZ9F>nn+fnIj>y7}A)t<fd%
zBDEbpZ~`V&z~EI)$3lG^Z9BI~`Whoq4+BSl(7k;B;|`FS%4?4|A;^XUPfDunJF@-M
z)XE~?NFN6L9lfL<LOt7!#tzO~dk9(WGNtuDs<GpaZ;7b_HQ=l4b01N2BCf3L4_F51
zm|Isy>&VG%pSF;%WIgR5ybZ8`fA!sAvL{fQ8XcBx!uE9)$LFQDp;489Y{<9#y>p>l
zoZ<{~6|*ej<+AjN&x76Sot&I5rG!>P#is^>tibl?__1Th0FH42chMpI#u6y4kQH`G
zlKRp~w^7p|Vtwr~oB8}myh-_wYG3cZTqC{=5697lbr|OiK^b)T>a~I}MAisY!W`^6
zRF+}gow`%#^rcqO+jw(YT$KLV0sLScp$=iKA3`1oZSbf2QWD&iJD4!YS>tr&#~MF;
zE@RhA?Q#0u`gH!p`pp|<rKjd)1at#r(Mqbc4%)?>E^@iaBV$a$WT3?T;uI02XS(X+
zT_#ttN)mb0>nB<&s&Lcwo3BFl{|@UpQes_*;Zv0qEi6=IlxQolLcVdJFX+{RZSW|I
zYze=omMTFN_*3nH`cgEb!9xp+%ER^IR~vy4fMvZ4WYQ-iI-M!HiueAk$6TJuIzXk8
zA_(Siy=4-<#;Fi+zH6s}?n{>Tw#Hyz4mZwNTn*SXPy;NC(Wqh!f;T!`5<cMxBq;^m
zbrHllQ!Q5F4kUcHXulzxzp-rR))|)eB;U9A8S5}u$US4G%{_8h`D~3+T7E;~gSjtT
za$#nT_L2(s?nPL1#GcCcMdvI)<g36F5<uY!bJ<$IO!*o%hz7JO`;R&!i=L=&u#xB^
z0><lw)|!Wk4K^c{C87v32Dnog7&V^nKam}L4Ti)!aOHEi-`%g-YA{v@7Be1nl+(%^
z?yEp;Eu^QxIt+WQ-fc;^jda9HqO(FNAT99m?5=S((v>d+mWv=TVAd3H2bH(&`M9Gv
zk}pmP>z0kn9)~HbC?pRIJpJ<9%Rw9^2odpEf<jM%DQ*v|k*UJ@jWSE`8n@Z5o51|!
z4uK%4$nM+YN_}~R-L3lKHv(x6-Vk+fW^b01DN|MqKs<#(;~ppqub{t8SNe3<w(tFe
zR@;S8-5fXtsFX-R^j2{8sjm|?RT;UDaPuN+wzQSwJvvp5p3ca!nR@!bc(tA}*eD=F
z!ohq5&Y>*R#y4lz+!HUPFJ5B2?0{9sXF^~I-0kCzmgbp<wDBR9wUiUn*Ci8#Neujw
zx_>$w?ygb_-WB9sBwq(6y`znnKMTkOvdbH*L<;u8*sTqH`hDyEljEvB7sbE8iK-H4
zM%uZE;ox%ZUKrO%Gf2Hn5Yb_w895DZkaS=#ZJ_+2e%3D(PD97hTG^YDJY<u=I0IRf
zn`mii=>p$%Iv7@MPcPVi6KJC3b=Rso;28OvR0>nA_j5N<FpAJ1(WU|XTX*yi)0K(l
zzC#bZ*&hUwzzt@D8ody}>$kNg^WIC;!NzfOaiQY(Cb3f<<r3heTFzIqwBjE=$!66R
zsp}y9fx9ez*LbyoHyMM<Lfx+zID1O%4WNhSePt424I-X%v`y%&$ZlMR2LoM39n}-T
zA=8s*B2R_J8_Wgj0KVjQ3PVx^zuwUZgy|6nO4ZXhZ2$q=87((;WAA^@RwIdABb8Pd
z*3tmbTBD>oc#-{C#{UYvsXILeQdGLANeGwijZmsQWuH^NXXmZ!a4LkWqO;!mUB%om
zo2|sJTCsuhGpOqZ0<zC6Gx3u1bNZN<BKp7)`Xb~(OSB~zs(<`cF#=ju5!Y<I_s=^p
z&}f4j-8RHMW9+dN%6)`nC;x=Hjs{3kr(D%X=~T_7Z{nzxgoF{n7a#YTxF%8hxw<Xq
z{iWS1=Ql-MAF{tbar-J!ig`--I&DE@{x!zgCz^q8if-UntMOaL3yOR~et@OPl_kMq
z&;r4Y0JEGM#1{Qcm0VW^MU<u4fVelXCcaH&^B~PvUvo-e9@v-t894*f?1#%x@AAwt
z+kS7~Sa^z?HZ&0E`y54q1GSa26rU2Ik?rzyM2-vsU}12flD~<_C8+0Bul#DEkaGt6
zIK5+v5h48WWsr-HpqcZO6kgBP+1B3f>U+8np_y*-5Q}Jg_tRGB2w6`XJvl)h743)_
zCxU~zII!Xa`B#2y!l=##+xMYq{fXdX(EMIH$(admZ{eAY-U02NwRl);7aCMMu{AY$
zyvnylhJPgaCNP%rmoe2LG{g^L&I*hvAi|fj4U!WUJBux8Ud33C=2NH*!C*#gy)NuR
z50xQT0)vnL5POWVAt!!*9%t3ZTLB-EOvr{IXgbjjqT?^&(PA2~!Y2XvAl{(j7$A^z
z`dPV8WD8k-no(h23p%b|mvy_v*P(c+DaQ8A$|TZ?nv8@lcT|;F(n_t_uws;~_e_|U
z`#-AhM40&i0iP2oj_yk!FWuAdjAGNf5~f%5GzMOEb!q;dh4zy+zY4PS=cc59Vf~h>
zD(Yy3&fL@-9lG;V^qA-|-vp3HqUDj=ll;14n|Q#EU?ra54U;VWl&FUkS%j?c%)3_|
zi;j!4Zx`)@VGU~uJB2dhuuHB`fad@&_CMbF2iiFRYP470KiCNM^N8{W=I0@jFu^Jx
ztShK2iYg|A>F>i1BGKFfoLp0m0Wbk3r-PRQbkDCawC7ad_A@g)WW&1fA>hz66TE={
zu>>XduIBdMBV~80$qQean;p4SuZ;wPm7=nv-Ga^hwyNqOua|uZ8Jr?HH_l^kU2S{y
z@;>R|R7F@IdxAy6yV{0gMw)ACN(#MQ<lqsMLLFbf95m_!M?-d!{$ymF-h35KT__}b
z6$S}jB9;yjW}*8em>n+|Orwy67Mw@++&nQ~kb2*~G27&Vhw;ZB=Vv@31A}4@k@xC8
zNb1^eLp#Q!7S>NdtI@8|;GEMeFhBclOh(RqOM2ORZVQ)OGg98jPFY!4zy%x){gNYy
zT%TRMb|QN*<l)<oW&N%aX4Q8$9Y;swhd1+pbhfS4AsUI(m+<iBFNzUR81Tn-$7nxY
zRibv7l%RF&k(1-?=W`&tx@?lbZ|VAWne1f<4z!OxSQO2#J+*&I+dk}yJmc%Ym8F51
zB;*#`w7;f0xztK9eF3ZF=7yAtN|6IZIv&}D(hRWPq&e;T0pj9O*IqA^7xH<!z+fqz
zWk=?!G6<l-nX+rqVwo2ktrwx4aGn}(7i|RC*qfwyq+bGKQfClQQl?sFTm9sh+z=CU
z(_FTRLhG=ny<na`prvad)J!^cE28M)ep_{i{yT|#v7#Q<%ZP_eC8^JVo4(0IoX1ve
z_g>p4?r`KRWW_}8?$?oAU<GWshJgfT=-{9W4+$}49YZ~}QxPj*xG1%c0VVqkI5EK9
zGZUtz=D4-+qtU+vgiL4&4PGpwASOiX`hu!>6@Ozk4=lYPgT`nFg2*z&Tms(tv;ZXF
zAV^jscKZ^KH4bwh5SvtxD8p3;*g*do0#f(HM>w%`UpA9*e`p)Dxm?nh0_u&ygo<=l
zpw?ZN=ZPCoZ_i~>2Y`UQ+i&RnHhKJ5h2_JCx_D_~n+Ufum>*N&1fK)_$Ok(tP&}x5
zY+DE3mpK5R#R_rs$bl_~dDn*_7lCgET0Le0oZ4Vt0fxWct5{%wYvqM!^J_#liiSJ3
zk38OO7kSFF5Bd|zOaxNBKOYje0;w~X7$*SdpulJ*B?r!C^oU9`n1{d)7wEY#3Uk-O
zXbo<2Fs$A0n)wh8d@?LT4`%Rnb;dr+NaJI#xsj?en1-xm+04lqTtLEhRGt@KkPC~P
zJ!SFGDBZpm7Ot;#f4tx3?Bnr{`R*Tq7X_`}uo4x9z;RvWkVH*!N|le;k57fUMNjBE
z7>d338_~dH;sS?EZaI;uQ|mD>a3w7sDcy#v+kkU&6Kp1zLD(xnZ2Q$9TY91IT~MwB
zg}|r`18d*X)>b^U2EaKJd@s@wm>_weeq2_=r>@xmLCY*``pl0;bw|ZUn2f&xv1^@!
z?`ee1N4){yWv&4gv<q_A1iMKs6W28nU}X=+6__b1#)>m0pyEWeG3H9FIOh_A5-(Us
zgC4)Cix%?hSWk)>dD~GgR@nFg^%qxuz<aCH@}S5Z9-y(=F4LFR>JGOJT)dZ60ED7;
zDdjFeEJ>gw>f^zdk}&Eq{+6THF<(Nc*-P2x!LVtyr{om43W{Nz0sgbg>vp$%6OQmr
zzA47bu*l*q!uj1^Arlu=4`lW%NCpKC``O?~nUcNSFC5h=LkxgZOLoc|_Ac<^sK;p3
zcg+ZVNPR=2pMLmUC9Q&QNvc$so4b+uL@jvy2{+wQ&<cDADq8Rf<4SCGfJgwCl#^T>
zCSSM!W`;7ZSzzG%=ot;qAdo$K*gUQP^egFuQFrk;Gn}gs-z5*rqFi`1=3Gb2J5FUV
z%H^Z_GNgbMIYaWK>ZPILU=8C^+uQLngTYLPQV{<09j6!TXnqBoF-i>{ytLF8T&V1l
z>ukB1R|lf}&VG+`Q>rjNfCyD!Y6sRZXgnZ>Al=Y|&`5{_^0=?UMlWa?!gzB8byX1D
zanswvEpjhi9|*UEoqZQ#oIo83=dye-fGaxAG)~1ir+;!iWUSxDLIGz8{#O?h+p`Gg
z9de}c7KgK+7`l(RqC^eq1^^B5=QEk@B`~B}!+lY=ARJvehAeqP=8+nXsZ01pf(;k7
zS)Dz5cC0-EjF71g6_Y2?AOqbfbN68uCQV5Pa5ID3T?MF#;wi<IX)#6(Ju(3ObU@+s
z#<ySCR-w*EKxzaC%7Re^`?ZgM9I*l?%X7hLn0g|^5C#tANFz7Bzl5k&Q_;4_W%r+k
zpmy_~Dd+*u7wTgW7LVZ?L1<K)ukZhA3S{L|_L?ui?uxK|(hR53z!a9oVULBgUWq^n
zOOH)nd_gmN`@En(I1Dk|BYltgvelSU*Jc(d<bRPS>gw3MX3hd<*XDSYXL6C9=6`~C
z($)FFX_)xoVg|%wWYA;+{Ih-p;WVJ8Boy%LK^KLuZY9vR(nPyDSNCmmo(yD>G#wep
zZ*6by1<foKT*(4sMNrt9^d0VieY^V>+q(*_w@-#{+1O;F2NIGLgLcdQd=v6e4E$Ca
zW6Qv&dDnoD-}gM43pn-bAXnXk(Iotr)QQkdPE63PR%tHTU&6>ou7u9kSA%o_9xsU7
zE8eAb^fm9t^ArJTUbYT#&899Qv?7HOZ<+YV+X(cD+yw+YzTis@9<M^V%m#LfqZP&-
zjb?>fa3+jwQbCwZ^%tyEN<g+NU<%Cuu%Mq*bA(N1Mwga&9eKG+fdf@00~Z9+^TaR;
zWc3wzDU=xPh4C>PXw(7WAs-kY`)Wm#3c2(+1(Lr~7CyNU`c%QueRbRi-a4r!{I|~m
z*J+vjQ7#d@F3)R|XTc@V2WDv2B?@3ldYL;MtO@sc22SUKqb>(>#TX3W(Fi!E;A|*M
zOKLgrUqXiE7n8|9PLA_wXHE>rQB<@Kyjdp8t$^{|#YYUJU@A<XXx|gnz7EE{?9L;s
zQV-v9g#?=Dz8sqRd}?}OVFltYI1Dc|w6+X|iIcZj!bC&Xce#;qCk`YKbHci~IDZg}
z<k6)UUS&+Q7KAS^9s0x&IK4TW7I9^r%nY&N;VID94HBLo9bcf<E<<$dniGSFunDfK
zjW4V@>jT$5y<@^0Z3O)`jimR$J|$m59t=PnooAUdK;rUJ?uXYln(>L>7Vebqu(Y%^
z@a>0i%Xy~uK-gGnTcQ%>AB#GqRBYj34X>84vF67^%4PP4PbQ(Kyb1Vv)3BO@pg(w(
zJrAQDAAz0I`#=ymE@b&&x-b4M&Y`Nka;N6q@0GiS1b`j6YE~T+D$Mi8GkdzceNCuf
zOz_d!Ms;s6JXwLlo9lca`~_&>D64=T#Rsc7YCea*h}t7VchPb=^DT+he9f!IYc3;=
zOBr=n7%lE_T^P~^m)F;>6cs4lg@3nvU-m!^t>}@6U*4x0FIUuq4Y+C!j6Co^+BO)x
z;33#ov{1vj5RLmE<P32O@HLe20QpA)iVd7K2I5Q<?Cr*8O-KOmQt+iJ5Pq?-nHI(N
z7g6>FOysEc2b9)zV9lg}gzYV|RENj^#QgS$NgwJvW#%<gI07y-I8l-bBqPXnS_NfE
zpl+gvFwnk>9(jR7rZ(R`JRhGtd-J=AVsmpdxEB5~E`V1t$1LSNBeL|)yrMT$`2!{B
zpt6!uzTn*$P%%LZ27g48)L#K0+ZIOx5vb3Y4)vjU>I+)5Tws+hfPVt)Z)JVIEI8=A
z!lsN)r|8KmteL`871}dM(nThO-mElGM)h%yaA+<IxY0m=0u1_AU*BH^lL_LVbkO4R
z9oUjThI}7TzLkU8o^8*sX5a~4_&)-rMUI%>nHmrYsxpStT=Z;<zyx-~adwcq_-s$3
zCPfCj(t4jV3EYHOXVpe$tskY;S52PklC>xg=KUVv4*m|TgWHv#TSytl+%KguW>duh
zs{s@3*uYF%N6h38tKuMv?f_$J)1R9Ih?Ag;%2^IIq`t=sqOS=6O@<1#!Md0QX&hKd
z#2c5@4*g`Ott(y$=`2nG(56r51P2t@x8dL~Miq;y<@#7dct-zW4C6UDxltHJZ`=g$
zQa064|2MJ#va@*C_Ou9+Xjlza!%Jt}4xSdfjW&jl?x4NqFc{PaQs6i~Jg2hw@S~@s
z6&bBkIAx^4sTg?BlQJC0-t8{GF%f#UB=WxSC|4zTRlqx9;cKiBzz(*2(mjVD?07mB
zHMb>a%_gbN!)T-ppoj(A3I~7nlf~FOBo_MwWf8U@pghoDlmI6ZR?^Y&M|H-UobM)`
zUD8H2n7+`nsr=wREB(l1lA*~>kZEO`R{f9#kPSjE)a-@<?A-OhWiV*<gI#ZNMrh>6
z7E~+LCey|+4(F+@RJF89Y_zd%&!QjK!RD?)Kh&ja!I{xuiXu${!H^e$8)9-oj?FS*
z5-K|dN{48aPGtMopF}hV6!9kDq9>TUCN_8w8-k4Ton*idZ!XwW2EY-Hc@&*E%~j!0
zgqYl)%Lh4{z9}7)T#1(ZdCt7FrW?w6of@m)g!lF)2Q8Ch2scmU+Aeh+=WnW#9CW($
zn9I`#X*^X)KfteFtORYV53CM`c+J;KRnV^Bb&%N+cYMiFKAxva7@g#P_Cp-L)rwx!
zkN9uRF2m>nF%*cRKhOapg>YBnzPX11iov6)N_q0kH#T*HRyTKU(a1js6t10lv1{gv
zY{T&@JP%hD6|P>s5>S4>WJa*^fCS<xOEmr?zM*h6rNFuM()jl}naZb;Vqg{AtgTyn
zu#@!W=i1EX*AM!eKPz)71mb1Y`n<n7kBtz%k^ZV~^YD1IM`&TQcJW}kflHlY|I3rT
zU)`rYBV3JIYZuK~uqH=dUG@LqEn6w~cj&1jLc8D>0Ww`!u)Ysx?DZnv_wU%DjtGx`
z=h+EA?xRhp%su#7W6E=z_?>UZ7%^&j>BpB}zdm$DGcfztZw+v9|2~DUbnD}<ALsfz
z?D4N(8#u#@UI2a}M-#mP{8CCX-S1!NQr`FbM+!oY{{BUb|KI`w|C=k+?)dU(@03yG
S18?+-$~V<+<X*e~<i7zB>klsg

diff --git a/reference/antibiogram.html b/reference/antibiogram.html
index 2a886fae..52428bf2 100644
--- a/reference/antibiogram.html
+++ b/reference/antibiogram.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/antibiotic_class_selectors.html b/reference/antibiotic_class_selectors.html
index d2bfd0d5..f2be5d17 100644
--- a/reference/antibiotic_class_selectors.html
+++ b/reference/antibiotic_class_selectors.html
@@ -9,7 +9,7 @@ In short, if you have a column name that resembles an antimicrobial drug, it wil
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/antibiotics.html b/reference/antibiotics.html
index a9e9109d..bb20e211 100644
--- a/reference/antibiotics.html
+++ b/reference/antibiotics.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/as.ab.html b/reference/as.ab.html
index 9fd06b64..e4751db0 100644
--- a/reference/as.ab.html
+++ b/reference/as.ab.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/as.av.html b/reference/as.av.html
index 279c058f..d25c35ec 100644
--- a/reference/as.av.html
+++ b/reference/as.av.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/as.disk.html b/reference/as.disk.html
index 1ecf9b9e..8946150e 100644
--- a/reference/as.disk.html
+++ b/reference/as.disk.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/as.mic-2.png b/reference/as.mic-2.png
index 9223db541ea2e6404f15cf5136121691f123332a..0e9bc487132b11df9dd7ccde7f460e798987dfa4 100644
GIT binary patch
literal 34744
zcmeFZXH=6*+dqoiii#*~WvdhmML<AfrN)9n1VQOFC{<dJ4xzbmD}n+NN(fanfb<?9
z5U|jLASJW_5s{t{Y666iGr|45>-m2>XRY(;oOjkD?Vfw?Yp(jcu9+eHfsO{>{uBFo
zczF0=n(BHyJiGmPcy?Ov+XH?fCuA&uw>{Qc8tUL3wDsFHA>fVosivtX506L~_isn^
z#G)M!&nX_5`b`7B6zYg$qM+dhbJ0ra{_V2Mp)P!-`_JvaT=gz=|NalBI;ze_9GJZ@
z{^QHX=LeKtg;+e$uvgd6@PFWLara@v5fKX>yCb`IIbJ(PGrDo?&fAL24CT((`gXTI
z=8DJ9BL1LsdQaT*&FxV1HPnMmbmVx7Z<F=EFaOH{E(dIKv3g--vf*)qqcs{GENr>V
z^FMfaZcMZl&T=n56SvjMom{BuvDq6@e27Zh3x2}p=N{r-`xKn>_i(^p>F^isJ9v1g
z#?zk<fM4IeuUfru$k6Fe@R@ZHxd2Avwi_?cY+vSnJ|1!U1bBPPyJ6(b{r;)$)h-3_
zjyj6+D#b$Y&C2B@U?ouSx0fGwUqwSyCHP{zBCtqQUCd?6?p?4KM@3iDX7A0O&8fkD
z5ciHVFz=RxiNTN>-E*iuBM%GQTdXKb9@VR>S9g>cfJ(zzzuEQuZV-$nAtGPKe+cdM
z3M+{^geo`hz6(nys%X$PlcXFql3d01E&fYvJR)nGD}765eM(2r=Hb}bpR+FK9Ah*v
zudpywuGA4q@2*9OZj0_@Uh8ne{e)hbR{ZmBb;+AENBhrX#4E%j7fm{e@w`I|_{fB~
zxra>u2(@c9s<YCu%gd%RIj#~-TvmZb6`E{Oym|Gu9v>zR-zwf4RWa*)u1EGN22vL1
zhj`^Ey6DdfI}u|myja=2%X{z41sFN@jdQ#<s!~Rv_6RJ`F3n0x2y5!Au2*yKjSz4t
z;}=`GyshnhyON9TfE99}7~%{xq1sFBxD;%|ayCO^!U{E?^A7(UCFNL$O@bAMyuuEm
zP8gf0k0zPY9NK)twO@mQxJ?sd&JTxHMyj<1qED$oRsA}(Je6hg_R`lbkFSuQGc_=y
z-<sQ2o)$><j4NvCiC`LPR40piT;JXvIXd{f^32cOzsF%52p6dJ6c>?+)y|W5Gzncj
z3$ZCqb1g`h$hpyNAH7OIVzZKd6v#O`gsvgby?R~hkG(O!em=#F3CNuNOg?|}O;OvM
z-6;~%=Pz{)1n{<r-&;tNp1Ca1|KW;Oca6Mj{!^3sGXk|ok8_m>v|_7;dkckcVWCZ|
zFCVnk^>o7^Ldg7(QjNeINk2l9>&W@ofmJ>I?jYVi-Y<L}(aRE;2G82_5;{wJX7)w<
z)S{LmRohniuQ#3g&kP_5#-WwzTE~lEb;qjX9DhEX)QeuzyT4Gl@FcrZLpk0xXH()V
z*+1@p(r5FL52=ExZC4h~^<Vq(*Yj6gp`5+g#idICGqL1XqJe3)5aqOf&@PQFl|Y@%
zDIk`5FNs!GLhQ7Z+U*7%P<;V$mZ#}K$FY{8L^ET(gE=kbe!#%GQI;g|#`7p02eVf(
zlY;X$HOfb${o{CZmv7cJm!gjb@*CIB2AmIohA&-`NKL=XGDRtA&C2J5wf{vdkeFzF
z!#r7&mOSZLo}Rlc<9B**e*h6Z6DkVNsg*p<>Y7+=s|w98Y%VR5$za=(7$!KG@TJ!L
zadEBg!<f@oyJ=TalkL}SZOv){9q|#{Mq5i=Ffp1hamgl*A3SnQ7^)gmCVoF=h5XDW
z=N#r3kjRb9@m(iDe>fw4?4VxBpbdtcSZVk;xw$k87RS6a{OL+tzO7?cBd~}EGn!m~
z@hGIM!)9<d>Q?+w%|A}6CZr~*uct}l&=NBsa8}-PlE_J_K(ycuNroZ6pAdhF>sy|&
zzv;m4$P<%bO4R~3i>2n>{qjU5EvFw3ago@&(zt$YJwCMEH7&eVx37^!iE8CY8}=+l
zoK^QHpz@R2>+R_<G;CB72$HcXD|+|4<vza{pXH6V<HxIrqE=o-;|?)Q7=S&ZYD1`P
z=}11TD;)<cY|#|wil`Whgy~_3rAUY>)GhA#T%Vd$M*?gUe%dh;+jUg<gY8eROD5fA
zkc&fK`OD)lUetqPuKtnh<dKO*CDaz}gB)yVzJzLzab4U{(;NJcH#+Vd)owSxSb1F3
zuER@OFs64PQ#(on^H|jN{_+vZjc6RIIv&|8f(>_Un(^{PosC`bA@^O9m@u0&LicKP
z5AC9f-wO?iRnM;}U}#CO%ObWZzP`eh{im&235;kl3;%d&o;GWX!A|L&*OzfjA(lF!
zM&Fj-mOQfYy8Xhw`{E<X*2*PYRswVX6fkJ5-7bblxT0-3{hRTI>h@JHf(ZSSov0||
zCDoT9Z;v}L0>oTLBpto?&()uEjEnYh;lwdbYQqhDxXN=p>^HX^CQx_pIh}Px?w=S<
z=q<T*#)DC<{e~!zZ+vb>69!#(nG%AfihsLjJyNfQH<-6ME@kt&-LKj_FrkRb<v2vg
z#}LFM9v*{GYs^KnIW498k~4ng+5(k0?0uA4!b%#p6%t!)h@(q*zwOoUz5@}=nIOKA
zWffwlB)-ML%(BNF@*+P-Sf0tL#GVzW#jV7*f8X2LM!h7>);WDZ;tFa-88)RgE0Yu7
ze&GPinoIlt?N)!wP=wq0?ddZ+`WpSOgO7j27;YQ!_86Pn+}r+m{I@Y}fBt{|Vvu+q
zrYas8TW->Q6?RhMeykS(yGMQ^EzUqD$G9=<uc~6Ktay-k86opf<!-}cmZaA5smoe=
z;VJ3$Yh)j1cJ4y)(XTUxy}@VrTO0Zn-feUbj=r-Q6dGhrl~*;h5iCE<_&db#c%^K$
z%~x6?r_HPn8va*;$z0k*Nff0s$&Y69Ggze+g7QkK*wVwWD{giR!<eluA*+erU+)D|
z8YyYokTfKOHRld{fx@*=qbnsWMTMf1PoN6pS4t}G%Zf+F^nMH_M+%`<(rT@AZ~A@8
ztuI&&IZ#bs_Ojya&CP+Zu%3o{J)R91chu-9;<8$59eVRqz5`ypee+c!=&UsAhfg+^
zT2(5TZ%2@k?mMMg&_J%OYI~ojgkhvyHTpT#Rrf9b{a+HXUg4TfrY|n~nVu7*Wb7cJ
zI~aRJh;=Qa&~M|S%rcsWncZEb^CxqDMMuL$-P17Y!d76Ov{IE+Fi-x5e5<Sm-d16Z
zxW{|kR6`uER7oA#^;W2#xb(Gf<W-p@7x!+>ZYOl99SU#!phl-7BJYE7#6;}sTf-3L
zIZlEHWoo8wi@i~)ZB1R{nakH^l%RNdN3|*a-F2R$@ogofCNrOqiGTJy3VCR#>dN!u
z#&`X!Fr$+&tG1QyT&d;8t6JSRAy$W_v`$Fm=*FubuYE4ghufMzS4PN4B##*i9t$i^
z&*K|fR`kNB>K)zDCZ0~UZB3Gi_^g$H{ZLR}&;PE@3wLeWgmDMKYNq3$)+5l_k`6x!
zHMLRQjBf_J*G*&PW|ZdW6-Mh6@h6;g2%*(i^TfHFI+Blxo-0Oty#kfc948&isxy01
z;2BO_$`fd?2{7+&gz&O0oXtIK;d{007+ryiOw<9bB-tDcmfsF_(G)_cYBme$M6Dk=
z-{O<no3K)AI2k5RG{|ZTW;<x*+LK;KG}aZKxC4PEQO+-K@d0lxV_?;dz*zlAk6SOD
z&b%?X)W^PQ?9ZHb$=+GH*Db3WHd&3V$lba49WL3FX(*y8q4*tl&5*IRe*GDqI$9%W
znLt+kOaFM&DWk)xe$Th^6&rJ%!`~C`I{4>@ynRo&91Z*KQ>uoWtvUB@Bc(UyxRK<U
z8A#Yfy<vH!YvI==Sl?2}p5a2ln!VO1VH8Ko+~+ywD!u=;QH_*=N6pPvtY|H!t|+se
z`dJnO?>T}wjo>*Y4Sedeh{d<<LbRi(!i1TEUv}Z4Fiq+KCllt$yvzG{joHox!{hIc
zecM8*5bk~WsIqs6k<~T|rSEyrPwQiU-O+3KFmx-w`ZJyr)}B~|@<L%>%Fk6+&J)Fh
zQ0E4MT8!=p$`XVVDApqsiAxNGN<d3go*i;(4+&8VoS5{bdAEoAX*?}1%XUrlI@7LY
zC!PiMP$8aBbl&vg-Tg2brfGD4!{L%xuip4-D(=DL>n9o5#~xzWF5+C$uw>i11vhl{
zpI7=yAmcN^Li)@nu=~QZsw27mq7I7|G{x4oBZcPpN`oN+Fi*{Ssn3kMK<W9#V(rd2
zmV}(17bL~k4ry$tb*3*6cGi|*NyXlMF8mY5P%Mz1QGlRj$bzgl2{UX%4APvb6`0_r
z5Sv&m6*wf`Q^qo@mU<)JBfD?{#)&;HYMtCZ(S5suscx*A&+><$V;HFF6#oxcF*_uh
zq;=Tg5-cR%|4^ltnZk@IELEj#^L`g^jg#ia2P}X7lKGzmED26Oh(_uS8c7pq_y5$=
z${Wdnd_5W0VqwI2+pcy`BbO|VVZLG6A&U}P-dt3^J6e=Fz!sG4!Zj1)XKtEFa*8++
z$9f$i3ktP64PnUJlNFmUS2-`_?Wj!60L_=$OR?T!P)YYIcdRrxp3*f2lNB+UPf*Gu
zKI3*o3)K?X<fY({pHs_)d4~4yRyo2n|EMt^(t|qfTfrIa&d37o&fYXwL&CH$>>e#p
z0-ihNrnfOA*P2ph&{vm$qEK$86jd(@`f5(rGVL%Wc;9;)Mw2SbzK%_2G0bIN2>l{K
zFrSNf_IrfBN9Si<+F96dXUC8TzSa`B?wQp4%N#@WCA1;l$l62)B}&l4yW7N51&!UT
zq5<?qD{GD3zP#pW3~8-;)gJCs>zQxoT+YnIeHCcfEU0aU*2v#ncXywYT246>&uUOR
z`77<<0W)f5e?eeez11kozFMpLbOhXE-s`n)HyK^XOjyBdVJbZ4?EpYa+vUDBDxp&|
z0&Nlh$A(xtQw%5a;I53&RwE|PMPH{T8-F2d<&uvltRyyX)Yu6e))~fiIg?XUYzv?y
zo77y<_oqL0o*+*cSst(!opVsdnRSdmy&4`qCW-deGdzC#vgYKamf+4vl0_@6pTEF+
z&#qoXt$F^cPPG5|uETt*NAG{B(77m|v-I-G!m>YlT2;nJ07@1Ui1RlL;9Q7lS492d
z1WKeXUy~**C)jqH$~ap!)A@_oG~XIQzOElq^KaV|C*c!_*Rrv*hxt&)IVxwC&&q=+
zllv(iB4wN0oiBy4eWWh=u+Owh)IdWf>7dCwLjBX`1j|!BTJm*LU9NpgdKl5tY9m!X
zyC&gsqVLmJG<D}eTQqIy-ol3KHI1(0zlvV@*H*s|&-^MpbW+^YgVLRQR=j8K{quHp
z#UmK;q}T&CKab1x>=Y;BN$BJCOE0S+t!mkq?2s=8W5q=zdu-01nW4)s?xIa6`qd%@
z6-%0nHjN}78kyTuUfQJ*|3<x3j$=XdhIKHbX_0@9Wb@e~XDkkv1y>~gW!x%mL}S}C
z8H0{;&~F(8sRFy#wl6<?bZj&=w?|<i&i;YA`2#*@QT8ph_9@6ehUOX+w7kuGM&Lyz
z*y*{|r+1=jinTpBhIuLJY56$_2a_%v`bi8k_JonjUM=LUE@uClIF5W(a>z&On%Nv>
zzC_1R%J2C`e#s#HBDz5(A#b|Qvu3}IQ@hff9fQ~k=|qdg$NZobK51Wc_lY!}j4uuz
zHJi$MHWcaos-h#nJz6UEN5!05>@ADnT`@mam;ITj3TneH*G-+S@$vH*+Y<J1ieXlz
zi~8g&U**7XM~paUN_Hlt9=6qKz6s1}W!s#BE6H=UM7Lqp{N`&!;T}fyZCrc9Ya!z1
zqlCgfBjuBSeB`F%Y6DitW8!8P|F%W_EdfE7H|7;gtIIdn#91m#HCVdd(ZvPe8yIo#
zt=fMM6556(Cq1+lvdD-7cLY6Xb~@kD=A4?<FDn8Gum?&(M>-!~j`0acq1!z-;#2B}
zg)^o-;m0qTao}B3HkFK8l}lTFGKEy_YAMo4ic|ccWNf1D-Q>i-#A23%{Xdxndk>E@
zglZf;>dOQFspt?>9ZH?<Mo^K9Mcz>I2?`>YJa<eB;_;^{POqBU+vzhzI3`5&_sBbc
zCt!0m!rb0%{0zETf6ynu<8-#D-&Gc2RA<R=Bn56WBgvIU3?tCBkttj*^`|GxUD~)i
z#HOuzG&l|>>CcyUr0Bh1t$zgL&)Sa1{<?QU;uatsX7u@ILlrM<k(zhKuSA;T6eRuF
zwOc*wwOaN+i<}^I<s;Sg%-+&jg`Tvp(h^D<sBUE|*wm)nk;>&`^;74M5{fc^F?`R!
zr<@T}mNN}Ogp^LcP$T`WeoW8QX&&m|7yWje@?)T5yqa%oH$8`pzilLEO`~-xi5eW;
z4y#ABlD)<)Z=`1%=D&T{nj~r-?soOfd_Ug!?d@?~Mk==dR}gPXGUSfJYh?(+)EA?m
zO_5#Gn!4L6ZZIxaG4FgXkys+AC_PCpZbzT4Bs1OZ%*~j5D3`pX_t1SS=$X`{g8{b+
zydkR5XAaG6x{Nf7N-3h!V%G(NqK2iilAK4HrE+N*`>(bhg#PFSLZCOOO!}HjaJVuk
z^^wL$quB1BJAL{Rjzhl6k6*4ftk(YWa43MPU&-6I=@K9`7knQz7a$@w6V*5^+0uD}
z)fVPI6cE}jmCwrX7)=nsh-oXesDw0LB%aX3-=4e@5X|GAm4|Pix~+;?d?9xKgFI_Z
zYcf$Yb7a|0jbG#3dVjj>hoich@ygQ4lzz@R!}h5WcSvhBr-e;$sL}r8l2!+yXQU$r
z`=}$fTQS6Q+-FoTX6pP+s&i{Vh}2K-x=G2@s(w?ZM)ooLHf!k4Sk?4Dp7NXpncU~H
zSWB8p|NfWyx<=&lb9FVur8PL>s`7D2<A-^=9dbf*Mz`)y+nQM0rUqxpSgNJ0r)j$R
zA36}#YX~%K(zQ2@5Ouez+%B54?h%S-n~W{_RlkSfY~?S7n0Kh=blihPQB0U<>7)x!
zYiJR&&Qc1KE!qguol&c$fYvvu%#7js^U5VwWM-=(>=bMypEbZnMzrrztFV<1I$wfN
zE=VR6*_+I{z0T{|@_?Fk^?wiyAPj_CBU>rBds~(LatS6^?4mG2cE~#PIlP!pt4fIZ
z1c6Y3lwPH&+@5UyM`$8-VCeA(M}S#H2$^hBO?yI49S~HJh<*B3QA6`9a`Zku58hkZ
zo{V>D&R-(nNg_~0mH4*=e@<%*6MI|B4pr@H3)kHZv2mxP!b4D4oMTf`lnVyd6P2)1
zhh6@)xkVu1D;0M7+AzJMbYHPtjUh!f4z_AFTM6$*gYGC5ao(xXe-5U1?X*RCA?S+?
z{*z(Xd&hjD#CLnvp*q&hbEo8v`gaI4)Fsq1E5CKFo84((XSGM?+_rrwzwuoAj{!$2
z%d0`n_~`2G)6dxZc;P(zMveP|R1G&J4B<8kL&Ou+=P6@LRYCq_CG-TYqAzGuyFYk0
z2|-nNj&7?KdPm!jNvroI2FBz{O~Ex5tuD~g{>&3>m<==ksdKL&JI!1-*A@k<hKw)6
zx}~Jc9a%M4Ef7?aZRH~s;$aJ3o+kCt-W-meOLJP_bP#&t^c_J`Ni06~#Io;w4BYyP
zZC%R5IeZay8Cz5?Rnx(dc-0A~mnAlDBJzHP1dLdhuyrPhv#%krQ6C8F>nJ~Cg5;Kc
zI4_-6PORdiTbBhq2@>QAM=d&F*qJ;s0IRc=KhC%}iY$qRwg&19sPfoQ#6man72%W3
zhg#RK5cIRq$#I*0WfG8a<58JQfl=(U-&fUaw2e)&rl``WNuu`t6P&McwC2S6aRn(*
z%lZ2UNm(`CM`8w!VPX#m=2t2#vNq76tlHNO(aC8Nbf#ZpzECGk7`A^hu#vu=oW7h8
zq2j=6ZKXBJGG7X*Gdkk#hW7f1ErFzK=(ZgEP^Lery7EihMpK*-D5pQl&tq^}pqA%w
zt**`1{21Qo!m$0lg!g5-oFApb1wvsXCv)6GakPm=!b$f2_ao0M96Y8)tC<MrGnekB
z*-C~esZah=)9Qk2_~PT(t$6-irpKM@hQN4gk-~#!jhnP72<27#;eGe*ki#jmmpVq*
zA>+<l5{RIHKhSFpDQK5F3ay+WyVMPc)$r9;?Uw?S(U^O~%jd;o*WS4H*9AfudS2OU
z)KzQ28^JhIVJDq|Z#;t`8d#zIM=0kmQE!4OZXAKl@XJ^fRP$dfOVu!CQvCB{<#N(j
znL_T-WR`>B@Hm1zpZOghEw=NDrVqU_A<Y>x)ike)yE?fD497aQ5ZYQj#cAwYs$1F`
zb}!Yj@0M<@+57ZPNdP}H-X9*&TI0ajNUR@enmh<o>e~p&Au8qIWbcI3CQ46DWxS{e
z#IJ^IMhjn{W;o3odC(Vi(qF?>EuUYvTJ+qSWY%V$=`;-;=tnWPbfy9e-v1muxBT3g
z5A!%>Pn$43yVas%Ni$;cdN_M5D!h+Jd^`WCwCq06M~VJuO>rh5c?WnCqV@B8bXqn$
zY*Hm77%mZFA*3QNG9Pi}Lca8jJ;t;^!V^Q#S2!Q=X0Ta8)t=;_d&^o`rtWQHTK-I+
zVaGoX@!xdfjyltcKlG2p%v@Ya($?z;Mrbq^I52fqX61xBb^HqA0y@P4+H2R~;WKYe
zx`y1`G8=6@5kOEVcj!C`CCg-15)dVt_QIO54UiAa9fh>+t6^H0*#EpFUC~;*>5?5p
z^^aH7&GIEFM+DzQzh_AWpCsT$h#GwavR};2;xN=gQp^3J<-O<uv7@1D`8fru&Ffw#
z-IV+M)rLw04dX`+$Z6TTba;x(#m=lxc^ih=3S={;CLQJH%JseK&mZ_WViKMfc784d
z`c;UkP^%U|BeG?khNn(-#BQe4udBMjm?@bu%!;_t^`zu?KS$*}8{4%Y^vrLzYS1FX
zjq%AL=;2Ll?<kZ<_#LR*-e_DaYv&yuLv3X=&?`m$r18Z?fK;sfs?q&BQfrC7iie59
zb6ZcVqd8Z*@tg-;T9}@AL=Cg`jr(<dd+HZs+oo|<b^9+Bem<T1D#b0es-ulr8QSmP
zzu1&eW_UB&N5Ws8(u`LvbPD9ZUn6BLBiQCuK2KRPnYuow7My>(hM=YYq|-i{kobgB
zb)P!nV4k^x>vu+7WW8QSA0pmDi9WdOKYJCPB?u)eQt;3bJO2ZiMVQ30=t<%zbn&a^
zTB-#i!#gBp%528}8y<Rd^3tbBHoWdZKr}OH-r<{D0m~9X4~MG`P(?i|C7+yy<FK*?
z^$vaoe-*!N-<7=6PGEe*7WK2Wih{4#@A&HVrgXm9ncn%<YskB1=}X-pdVpE7rQ6F2
z2(i`GHtMuVRfL3Ze2w3%TF%+`Q>C?YJ(;qNmRMiv5&(Yk)PLw+q`zVzHL{DI0o-^)
z27ss^ZG-HPLh80i-IQF_=Er$*v2QmkD|9GTOM>~$0gAn<a#`~Lx*C$Lc*w0Q+QsNb
zW^FOiC!vN@)+Zf<`8GPQXka|~x@ZKaFCt|^9B%4z$(~l@%^ex-8$T&A(WsJkHa0He
zoYKRWG|jn12nKG(`1RKnTVygK!m(5Oh@WZu(ir6H?E#jO?&P}g31dmjRPUU>bVXmz
zT#3$MwaTID3ymHlc1>7ioyiIWJ=zSy8!lFW+}jjCmor^gYt%(M&}z|y#AC@n+lCzq
zLSi&j+|1{^!UJjpv;!)&oc<DY#<hD6ns>(zvDT`aWzgr`9gBoGc0--Gdo!*@=I2o}
zgC}BUf^4lI!U;3g8&Hgm%zM?aJ(@4mX;cCIN$oq)oFPc8#E>fPrDC}QJ$=n}WynXN
z+NgRYBI>5F8@8fjT)IzW?oM8m9Hg}`sc-x=X6&@6u~)j6NA8W8puY1Zq5<c^O_H0+
zZFCcS{%LpbHqM$dql(`q*^PFpy^`*~6&{q|P_(LkD`LLJ@LrHfxC=(?{TT=}ali)E
zZ?JOZXxAvZHk*t%<D*TmNa#2Ax*pcIqf$g6wLe5D-S>7uvlZGiwD;<bfV$3WMk{QU
z^UG=rRo(yD3s4vG65Fa~9lM!cg!SA?=<t7??wJrV+OOxqQck5Yl;}$*nUN5|{EDtL
zC=V%qu#(}Rk!w8L5YUoK%**B$m}OuN7zO{BU6mJySdamb$yBz8?@5`pI6K9wgi^#D
zl2sy?l4%0y(iw3-b~*XM<N+h~4)k=z+jYIeG3#fJ5_Jl%kJw9Z+!-mzo^s{2j!chH
z6BMW&jA*iwoN_;9<5psGIO;8P>s5=mMv6+>JB!U<+6VHR`8{(Ku+v)}Cs3yu2dc>5
z9P@9~jI8ye$VeTV8`=1RlGXJ=kV7K<8!q0Q3_HT28>|m@sCN<@57}X-uj0J@hh5Jj
z6d0`A#^?#3P}%nl&8>3s-UetGHo$cmAtBoIxzpkPa$+<2oT5)@pIVf%R96;(520E%
zzB}f}w`ga|T($d2BsQnruNFb>%?lk`MQMj#BTe-ddBHg|fumRY(pUpqDM>RAn#JPR
zDolau4(=+VEMvVoDA<(_b3IjuoarEu8mIuxt)5Kt9-X*0?+%MwFX)cVeDV`-AL<Pj
z8y>*EKnR0WQy(q6rmB?F%UU6VXpdIOo%{*MQID$I(bJhm1VmY`Q~*Q{6CRL;o*@`Z
zUUFu!BjBYp@zh;zxwMxB$TLF$KMPHSOy=?dNfKIF*Jdm*Q+BW0w~pJATtkj8;p6Hv
zwdtR4Vc7LBdq}Qqg>N)kTXO+t;K6&6MTAo&#z=NZ{;1eNF|r-fQa%RLBL48pm>*{B
zvXQxWQOvrYFP=fYb37{i^URWCtFZAAn&M-<+73u8RIYM}Y~8q#s2x4NhL3f;7EBOE
zd!t7BY{}l_QCn+8qsi4uefu-$siPu0yXP|}8P9dj<hW$h)G?y^$pwj%ZNje+f+wn7
zZ6M_N#`!CZIO5X4F5~yf`bAWe5nF*jLEX3KD#mv90tRad(PQVAguFFH*|JfJ@@F8;
zIMpLoTA0zl1?`X=w=&%0c<s)5*$Ri~pXxGaKF@hCZ=BDS?lE^OX=kx~A;!|bYVySl
zY7h((;93#K3rZg%){a_-^d^oMr`gKK)<2Zwt@@VBG{^j+N<gL_<TM?VCH*VRPIEm)
zhZq?jE3H;KkY(z*&vR1q!kD~3(HQ@t5$T?;M<wkJS^bJ0rFc_!DNk?iA~nP$*Xjlj
zPfqgbW%%5cJrX=TH<7xNWzEvkV5h@xoc+;H#BS8tt!NhX+xw5vdnTv~ecJIHEMpl&
zW!uTy6;8ME?ciA}YJYG9E=UI2@(6kpR9?A_dhsH6x6uDr+mF)*+%>IdZGz$IcmwZ)
zV8X9&Wqi*z6xqqc6KreD-Q)32uOg4Tp=3ZK1}r<;{$~pbmnA>=K^F77wLI8fM&*7v
zb(`C9yFEL2hs#K+v6AonW;2yaokGi7n)SG*hKV9STJ{%OhV>ShGsOl62Rn_6;6b;7
zgSVzdRgo5f{g%EW)sMfvbXv3<DtEk8i(H-6ErJv9Nc_bON3j{{bLZA<t_ue*7S_xw
zL4r;5j0zBZVP6%Z#GrL{Z&yX13`Y^vf;Li49tyL1Q*T%VXU}YIZq{rt=^>LS2`#4p
zl1Rg%kh*aEi~gfvv&3%hG>R#HlNg7j5XPVbL04`4SN|dC=7Pu~@tW&U+{pVougRPx
zbp7!1Om_N~JuyM<KC!JWH$EYu&$JRT@>nc*ZEWzv-AH_yezwlpablE+GGnm2yW4E%
zo`csZZh<r9{Jt8(?hW2!PuCjviUk&@l9eVVCQQNKW3=7lO1p4BQoyN2B?dL<&k$KT
zxq=GB2>y^8VYScBvc@O%0&->g5Mp(&`{wQ=8g{%(-tp~=4-FX;17Q7HoXhx6!Q%|F
zTfH7?Yl~U0>uEMx=Fkb4VrF>wP?#_GH;%^R$74s8edlYRPIaUT1v5u{(Q3=>m#(D+
zF$M(>sjdCEvS`<-#-gs?Prk~w9<B9v2wI;&S8O(*by!c0jf@fu;c(F?^)nf{Q4=@f
zrw3xO9jVH?(duV*QpuCwk`<6ktx{qAdB*e_O>uz}SDbpSj0-Jh25w(_HLmdLI;5*E
zFpx?t*}?M`#@#6JjQ!<Or%F%Yx1=i?KGWaFo`;5px-JsyH<yTJ=|K!rH`obfAL_@&
z@#c_$9Q|yXqM~9<N=l06>tk|0@Zj}{JgWd&MJ1H8x!jyOw6>hi*$fruI}Z7kZ!mt~
zeb5?n&>>w_G+cepu>Vx5m4WwpR<e3?nw+d`o(h9gTU%Rt`u5AfYe5?;oLKDA(h`-c
zj<M$JUQzX@#y=jch40|GAyb;C1a$cA`rRnuLHEXpqkPXl&ZT&Em?}N`^sFK$;p8Rz
z_G;8+uj%iVDG9pCSLLiww=y2AU+K5d|0RV3sv8u<qE({XldsY9SLgb5orbFx3vG#e
zy3`KmRaI3rO?Q2WmY0@pg;f>~4-a?OZ><)kmm@|t&;~?FC5FJvP{mvyp!AA4&c$(K
z0&R5_UH;vXuuUN#YoLF7|A(Xh*7{U(q^PP=@kJX7a;~5P=-Xcj_b?UC{gda-arqkO
z{*<Yo&CRRxG;;uQe+-LIKVvE(Az=zS$ZK7}ad`^N(4jpYTF+rKDHKQQK*?*ATrz?M
zMEF;|bAREGSjgt0Sd`*qV!<L2^iB3`IUS}QhXvaG`s>)!2Dp)t(XkU3t<|SmW2MsZ
z_TQ4e0s*0G!L06cbqQ}(A6%vpElRkqpwM|S&9uy(bW#=RRrKY{mk-wv!vhdmS!dtz
zrpWsFks4<HMVqF;Uvaj{SDcLq4?o;p-J+ItMh%ub>X!jhQ9#i`E<XAG&Q~K!cs)~J
zxxlOf?@h`z+|AkOuSclPU}J-8H)iu#LdTAYR@xC0HUS4Kq|*F;zR6BQ&W`NiJFz)5
zY7?#6w}GE4tmzlcTj?`*6A2=_R<ehb%iPDCwEFW+J<+z31sj{oodJ=;ic5$hc#IZW
zz5t_5&RHmfqTCyg8gDY5^Q%>Ta$EPK1hZ(^<CpBU?`3L3n&C2~rKM*O#BRl{&^KpE
zQ$3xFQw-$&%tC{xXcP*SuOaG>rNv3>M_J-rOsC|`ahF@$+GN~%KR)b|&Q5{Mb!mvD
zjx$7$1W*}s{ca;~Pv6!tuX_488nE$7k!jhat|i_J!&>Rl<uJeB=9eoWVg<nV9L+b}
z4H=rmws=`*Exn3brQ8s0W6EkAeJE4Rp|eM!ep641RI01G+M9vu1&&PD)6<if+NZeK
zAlOe1vGN;x;jjrDMCys;UH6UXqXeN&t}>Xr5xlKsc(c67z{Ur|B`rP7fTWK(QR>+D
z@7%dFVl76g3kvvpRMzOSMTvDIuT{`0={3D}xx@Ll9|<n1-`Y6p&Tnj0;biz37`y%h
z6O#c(tgf2BlF!()9XmI)lP=Hjmqf?M#Ti)D1^P!T(`(C`8^Q&lTY&c*QI5)>Ae^wZ
zF(*<~J(;xZOB-69yPlVP)zxXS>7?611Q0u?+H-2unt$g5IJ~a;s>Yd^2jT+ZY^ZY9
z)<3aEncY66oAc4OE+hCWx~Ql^D~+&;i7c~CV<IkYIyTb0!hd;kzam4xwARl(l`D&Q
zY?^9-{Hj?$eNo6jI7cl#I2xMW@0{zM=@DoFxD-V38;|_FNUj0FNQVP_s`C9b75`70
z>&tFxKVO~2H5b{4)%0ZDSKjOl*;;nx`Y$&HGTz%ccCgGL-M8V0Mhech6*WiYUDFE(
z%jDusd!=}I_NgO!B%OR|hba@jZX;PhV#|h%ul!II1Jn@CwPx5gHC9JyW-39>Tz+G|
zh8_isyi&fvFt3k}_oZ(!fZi-MVjR+{@xW9ARwKMUhTWSBVzEDe{tPv+KA6ikP+j=6
zllD3y0&fTcg6+z57xU1G%hO~K54*WKDWR3nn|9&xt!!Y=1cCJ1FAvTjq<nRiX0XQe
zI@Y{z6m)AXU1BD$s4n-)<1hal0<w>^CLTO_m6`~Pm1Jj_RXCB0>NaMZUmg<KxKrap
zyN7e5q^%Bnc2-o4M=2Ld%g87dhH$o~+7mC18)o}a0++uL=X!I>7{F;yebkb#wv87j
ztaNLALsX5uJQ)le+U<>%8BZ48d+zQ(U&mT1`r+n*w2J;iPk`$2$r|NfA4?0EKdxxq
zu&;Ah2HIdqC#&uhLj$s>+~p&s@*C6KV!R%nr+alHU|qtKS}hHHEE4#m<WV5KewZF`
z8CNYr*sHR&ZELDqp|8GnF3&L6JW)=TIl^KfGB5NUkgxjDN>r#1gfZtwu7L<0?@Fmt
zom=g<a)Vemy!xDHTqJ)Tgw7%`HRLC`I^g!K;?vVPjsNfp&MVF3m-U4KvSo{EQJicj
zduEcWTigjMm=r(y++bh>pjG%bLOM>LE2>vBKpj%17L(v}-;%GnxkQVqBF@Rnt0956
z_IBt<QG7Jnjya*|fz358s;e-sM9?>BZXqly06K70B=?mr4YvfYD^>#H|JK^ssc`>l
z$EhJ*Qmy~;kY=~3L+a|VT;*_SdvL7}ZOBd)xiT>PK_gmm(e5gMHSAt}T}xRQ+R|t6
zte})mibzfEyLXSsRqo@*8q{#We=Y!Dc~u+5WnFzr@Wu>ukO;zM8xXZwAOK6FqgnTp
zvqwWX>>YFcMVz9Zg+pUc{rbPWIN%0Y#x6p8@{6kY8Fr?rYLq+oBQ{_1ojfF>?BhZn
z`x?ecdUoK&tqD|IYAP*nucMM{4X;xObq=M<5TEJMg|hEo7gjUesA!%n5>&h9HX7Jk
z?%1;x^JE$YLZH{r1y<mO;@0q5fh=Zx96+)(5snEQ4j;@!!#CLLQ|TdAUtjWxNdrdO
zFaB)w9u9t!YhF3eB%&4Sm3=6dfs2jKfFG-spP%oIwygDAbhNXx>ulP(A<$cLfalZS
z^0JFEAj-0EAaYltuz*)COJ)jCXnpy|kJDRIK>uC}>Z-VV(1t2PiqW*;>aq^%U|FZ~
z*4lV8*AX@ckREd^O-vHIC1^Lno=wU7Nt@?k;OTC$E*KDIM2z6@G|MvkZ;`+)8|d+V
z)DR0Q9{~X{uhNYYjBr_!HR2*2QGhBv&%|gx>Bhpst{3zG$#I$_O<W7iE4L<q>{8Fe
zifWhcF>Na)j^4zH^llCGO9W5{sl;`g*jxaa$jy-_nVb}PPBgk>5v?N}oURLPPES5H
zckd1Yf$#^xd`h#sH%H&nDqG0n>1XlmUF<tTmMaAD`1p83))tH2lXmzpfbWsq0Mp_J
zjJqu!n{>rllC;y~`@5SIAXpX@=p?}h;5f9(`mflpHNYt$0U|IJ7vNO|5$0OmQk(4k
zl(r^@nyj?+qW2X8C0h1ul=8fZ0kA~cix)2lT-Eup9S~BkFTMq_uDYr2(dSSjRBwq*
zvw!O$jSC@Ln|-Kq>&A$AkSTCFIy!>Yl$BZQPp@x=dIww-K2*QfC}fplUEo`+uS!6!
zZVVSh>gy;@Xu)LU<q_%H+By46Y3~@#b@K5xMV?a~J!fNDo@t6h9s&Cnk~b;-kqbDl
zD-BS$_o)9A8^FSuRYB5`hQ%qVL-n26>EoUE-+C+h131S&-;>>09eMJas3mw#HqCWE
zNIE(&m!^cdkMaqM+P{B)pOR`?Y^-2O!0h}$$=RH-b6~Tj(>CUPV+^J&02?Z?(Wo#W
zPEJjs4*|$p1A>?u2QZr>4e+Tp3OM<?V4XR1eEbV)JqXpltjIw(R*qBG`^Jvl2aZ|v
z1L@~LIh&r#T>txc;m2niE(dRcoJ8Y|s4D(;AO?7nDVW~#J$%9eGD_>fJPx7SCFnrK
zN!v*a5Uwo1VmQRu04&~`X_F7svx@Q4WvG0{2PPveos;Zhk+biASf(H=JJ(NK09fx=
zqD|BwNacowl)R=d)YR6huztQ)s5{*iyzl4QvS1ix8}UfC;D7Rg5EEAy#8LxU*vj7^
zk^1^LGc&V->KZ|o@89LRI!m$)Gu`*%mbC5@UT}J#`7f|L^VDH;bO->&HA5l0C${Q2
z*PMEvOaR1}eDvs1(z4hy%s$%34^c_Dr(<8X8XFrmt{0R68@5uoI6qwN`A+bIL{G54
zf3?jYE<mpf!%Mgs1sA%Ok#Vj8!Lz+Nky*OwqZ<I^Lg$m+>J)>2wZvFvX=5NXE+%P%
zLlqR<^2A*Sicdd|zGn_ByV9JzFq>~$2ET{1s09gLMgqAM_=Em9EP%G(g6E3zanFau
zTC2(y%tx4w_b3w~(#z0I$HUE|+~Mn7$+(e_wXv|T^VL&nht6t5ZFakkM5t`l{?wdW
z*Ir%A%g4KbEKP0tg%Er#Ry;LezFH7CR{T5Qg2771st;K;iwoM8xl!O$JQCz26B&EC
zNKXrZwEoFozg%9&p`DpH+LoKLk0xqqc^NJ7#6y8buC$Ve0d3F<5bgm`#We=|^g8wW
zV2@OKpq??x!@~o&f%(zu#`4i^1^g+&>sQ}-eM}_o<NQ#CGn!BM`cvB4;y9EG>L}2)
zAJ3sLZ)LOq*tj8YQMJ&&s2vS50c+R>5PXy_&LPJ#tGM_=!Qyk!b!R{P)g^}x6$_LZ
z&Skx#XGv2WWu!3RH54V(yS2~_todlhgL6w-rq#jnBQzERd;lpE)}}d%S1S6oP(w*S
zi1}7X26a7GTotGcI-tNjra9eM_@+vFt7ynkLo|7D5daJCw^(^geC_fq03{>9;Y0#$
z8#t;g+*C;kCM(6S>BY})d+{hyu2#v7;JwMEAf1NhTU3|cJ-q5o9k@8AuC=Ihee9q2
z*C>Jd0MgL99Rq-#j76($O#caUBI63i{qmQmI^E90fX&KiXBQZdxj5Y&wCBcf|A~by
zHjDF@6{AC$t|Cif0EmW72gZ60*!=hp5IHAAJlijtOU!^g!+bm01_6=q8Dxi^!`xIa
zT7Y!LWuQ2dIT}Ep2j+UM1_0e?5s(js8jQzaL6VeO;W5#6&8+-M$tA`jDbLtAgic^~
z#9}==6dmByQjlTCX?Aa{&RGWhFft$`LWjiQk~%5ZodJ={l`exQhGGyLK04o5V9r4~
zRlkcOgaH)}Nmce0Ed~LoFB-b#mj}>^E=8%pc$>*b7X$GkAvgQur`OH_%oKyAQeB$e
z<G6V3B`~+<jmU3W51K*gY_AgcXwb8AK$M&B&6}Tbrx2|=vq$IJWQ#WMqUzWTav{ht
zqo%F_NTGs#_wGkDV6rEArYE~UIyLbL2+X9WXfaA@5Q}jZz?dO*6iBfZzvZL>W)$U#
zuhPiA2$_pn<ly>Xw%S`PH`+3Rj<}kenVmpk8($0cE6!Jq%gdfWPaW??aJJZ;wF_Sk
z1n6QQnTr5n1dB*{&va*AVXe+FYXI617T*7&jkPkf{G5<~^ZA|{kOZzMz>q(~r4ZEq
zA`1PO0^Fi`{##Ap`qD5k+-f2y8TcYyFnNXe*&{IIuNaM&%$c4k;A5uxDu{7$akk&m
zp-_5OGGZ1voe{Rx=nCbAOL})EafGwp8L|X?>@DDHGtgGSiuGXn93T2<syV1$(Gk@X
z393l{N>?&N8I}aGyO$m>Yple0s`D}(H?pe&D&RPRUsbp%>>G@#(er4ALzKK{%LyR+
zq~Gf%Fh`YJTvh9vt?=$^L27K_5X5F5kk$3oUj5hNGr)%_j^oG(*<wm^Uy+rS>)OJY
zWvAj)%3jn+NY4J*f!$z3vIak>bG=;zo<fUU=?3*(Uz$)&1F$aPcGw}gD68!9^2-(=
zNvkO?E@pxZciPMtln=zz0@s4r8>{3W4>X<tFqN&@y)gC_swL6nMdpwxTet;Ko!GJm
zVhtPh>bcM4zLeOV*}3=7W<SV-(g}NR!YdJ$UxAZZ4FEvgl3WXPUCag4LqrKoZuyBH
zD5)`L#Fs*N0*ZZT?c}R8)S8Eeh<7i?niB%*N>i>w<v9$1s3Eo>Ht)>VO;`J#qZ)8V
zQ7SvtXJ{EzVy-jazm`X?ftMj0Qv_l@t8x@MH@_yf15vx!6fLQn7HH`1zIYKp@lD@z
ze@6UsD`TlC@}vS6f>{=x6um))hYpCb@U~F|+enbkdw|?FqzpLEP-*?F%b+S&*553z
zJGFM;%pquJHf6jsoPrk+5qrLuAMQ;FVt%va=C7c1F|20ao~SzO(v593zMpj2l+CRc
zN<Mt^e+Z!1s)~jqOKNp<3laT}>+#0$Y7Y>f`Yn(%nH=i(jIVq5ig<m`1?AFI;4k$6
zjp=3pWIg@y>F?+wlaikiEP8!NxV{M2S!DoFmP_J7f-qr^7M*PGVJtZqfV*|B%{6n&
zU>R@%QkLccN(cT^->y+=?LmddGi4|UxRb4*W)a^vYO^0dWPu0X%quG`^#QqyC5Uny
z#;;i2;MG*$(e)na)?&17N?YA>hjP*VRHfA<E?g=ZI$vZ|FvI}$o}jCMv}SHaPUt6*
zo7InSaf)}-aR(JL78YAnT2|(3Z)X<|GWNM<oGZDbhFVG#HLZF&CN|9I0cf2w1Cr<>
zT3-SAr1xyE=}BO)%S%grD>O2*+O2MV5<ead4K9LpfGTLoI)Hk@eHpjI_?`Ol*YyF+
zj7Oux&c<loOFh0>o~nswofQ;UVxYV?X0kcGAfV`qJ2t#JBGjP3m7h$ML3$_1ApC;o
z?oF<(f#On=r8mitpNln2xv<s8#|O4N`3-$gRAnvZ{rmSdC$73w_4C7T?)z;*&5sy7
zJi<55#I(R+v1}NS&AbJ8i2*>?*lV^|dZHvyQ1RE>+gn_q;S1b%mmw(NuByT%8GYO$
zGJt@F3xKtU#2~gUzJ?<Fdiq_>X$^~E5kmW4NE&iW@M|}@W?D@73uJ5hD6g-4*HY4+
zj2I9=*@Leh07V@T(30<Y@DAwT5e*P%76bKrA+T+Q=TW`;M7(jK(o)M=N;*)+XPH{)
zzJsOnpcZL~Nlhhqf-FK|x2Zxg^ka*S?$0%lhc0{>xXZn92?zlyIaBg(PEJM!51m%}
zn+>}o@}I%~>m;Z(>Ix6fp;IiDxHBNMk^B1pT6=mlcb4bS4Mo(f){y;3$}cS?tL_ri
z7nEB3N})IZzmNH7yDC8tmlp6$md&vnMuvo&OEDNF*yl3R|5=H6hJA^;+M?)Kqpx?#
znLxDY3nvty4YCDnwhtQtX6+mjreUxnXB_q0Ibxc*(m9tWO9I4G&*h-8VdHI3%bYI2
z8E*TuBlkH&yCW@QdZ4*kCaG6Ms7%K=45<^5m;Ly~T~NW<Zr=+cB<<)vCR-XbOjXdQ
z4~2^t=PZR?692vY%#SXe6z57WR<R0@^y6RtnCIM%?A&`&^7r*;+Jg6L_ji{Y=?Tu!
zEnxKxa{O9DBFptXN;oqV&NM{mp3J^;P3nj^uWW2S&+LA!T**rr!>@Pr?&W!At7fkD
zwl^nt=Vy5E+g=Slcf-BhQ?S%%P`ZA$^9DPy-dE|o!fO`AQG^_oSf7gAX&m=lVq&+2
zgD<!Kuq!(gE10Xa?|QD>^6+*!nMa0)cQm5%j^55W`rGz}{fj=WD=H|WN8@=}^b9On
z(BK)Y%CeiVKWi`jFW7B~qq`q~#hrjBrg<;zQ~NS=zdoD5@0MMmkf4U%e*r>11xN03
zYh)R9?Q-*mNjUZ%)w|q^SByk%4v0Qb&D=rS$@2+bdP|Q+eQFrCL#rbHRPageLHr*t
zxOW+JU+kmsi5Ga7IJ{~fC=WMyz0OL$JpS)7-?w9$3r4m6s9-mCP-2Q;tzc|^9-^J{
zVrJLBD^I7E-A61Mlf{;Oi!RSO2`w{IF3<hXz0;q~7ZX|!_MC!=^yJT#C)Q78nf_ky
z<9T*aBee1-4b^+)9X{b6zHfsy_iT38Z&|&~&|I)j;23P5eCGbd5P9=IC!@#SQouHk
z-~SijzmA02p5vP4cH`duFA4wWk?QU9blfig+Zh}%|6gwW_i_9Ge{tgz$AR84E}=Y!
zq=YEV9Q=pp@0P<^E$46Ejo<ml#aHj%LtZ_Lco%w(`D*&bIQ8M5J0?6Hd>)&4`g!ck
zAI636Umes?j5rngtiAcd*<D}G!8A3yXIRa-!8Fo+=Dcb?!MTV)q4(#(*#<NR)zv&g
zjZ?u!pMEFTCZAyhe%oey+_P;@@F;87Z@axD@p~~lQF;f+y@6BH=H;GV<>9fv_lbM-
zfaik#AKRhle~0*g#EYDqKSrSi^GaiWTqg1eHyiv-^)+z&DE~1Si|<hX?dYE#)bFe!
zz*niWJtQjwUrH!zyYsu5Fa73*x;b?h@U*{4bGZld#0ol6rt7vZKEXd@-X?V#_vg;*
z6Ob!qm-4KN)C}3)-krSk-=ghIQhGut-Kd$Z<0D>CDLFl$`pY~w#A29%oy7}MpxjYD
zrIo~Aa)g?)&Ai#Og`@*_p#a3SznnO^h1<Z-Hpt~~hnYwHgHf3Rg}I|9LB8JKW?8w+
z=-{nLl5=jS0n~Kl(MhLmcb`b0!4ELs&qn8(U)@Ep>CX?&#J@wjdLt^_lwWT{jl@{m
zAwOLwyQX=u!fv`KiIY1DA8{e({k}bew%^Zf^nx<;=gTX;og!>%dM?W_+n_QpO?hLG
zmb;u+hRfFG68&s_pzRsciS#wk*MRP9V#WN`*je|0ZS6fin?}k5+su3oqjNe6M{&~u
zKi_XFGtXK5y|t`dWrKRk1#@QS3Hve8CH!o1uCt+Tp&IgyyPAdSBQN%6!G2Jr1JVs(
zNu8K_^KuXm?Y|)FOD&znkm!bDrp<|Bq80Tn`oE7yQ*Y_-t`)kPa>JF%$EPJ*i^p5<
zv=JS4dB`1tr)JP#2mLhqT6-UR<WTzGH4hW)w|~F>66nJ<Bi%gsV3YlvDA7v$`Z4Z>
zPlXV}PXW>4P1`p2C{oA7XZsV6OS{1(Kiz!M`X?cU8y~J9n6GAu$7qz?!jzAq+#8=+
zy5&A&%9Dx|hM<*Ev_dO(^c~iH67;@7C&Fj-Aq$mhxINJM5d*Euf#i?uC2tpI#6#8&
zK~ib#2yUZ3PuFN~UPxXrUdcwpCJ=}B<Nm7@5c7)xq04t^%tD(Q{x?H4Y;{*CoREj~
zk|pX5XCTeIAFrlr<!*b1M6QmL-we%}Uj5Pikd+edG#Fl&hisC8LUWKeSBF#9z!oJQ
z9+M9_Um6w#b{ZGh)I9&dsF2LH%T~<XV0W!X8&L)>yk_1deaO{S2xhQJ=@P%T6|e76
z?y1Eu4_R^EF23C#+3R3r$NB!Y@Gf~5lQ3pHU&efME;I+BM{wzy%HS*Wf3fY$KIJlW
zFL%tH3~kLdH*~Wa_qlemg5&?*%qPiBtU}D#(ko64eKqCdJccBg7iMT|6zvjp>3wCJ
zu_1+gIb&H>hy!;GEdiYM$7_8Jcq53m+!v<!K(z=tr#`Ow?s2!EGEst5WGr;P=J2Bv
zKnIGPBz~|LU)t^M`w9ENkd*?{T2Fe&q8rWl7LPIA-;MdMjgW-$n!VQaju96G`7)N{
z5T2Xdy;<_BE4xCJNpiVvsZa8u`Gu-oCfaicNDA^b`?g08fwM>7vs+$z+j1talLLcR
zpMRKBNc@<PYOkW@FGqZ^Y5SGh*L*F%mDM;~j~jl=gpr(+CVN)hismf|Hvi7SjKn`O
z`*LJ+MIUW>fV3`TIV4ug3{7H?6O8kaZ6a=cty0wFrzTft>CnaMErw0HG$r?ir5#YJ
zOC<eVPF>Yj>8$aI1mU%nBSA&_su>$Ex?DLQHrCWDsF(Nl4RRiRrB9jhJzgKrC7wt?
zm>9LN#7K1Q%YAYu{uq^&Isp=z#2hz57bb}2T~tkleB2uQ(kZgvPl`EhKKxE!*DDE=
z`s1f8zwmy)zb$Rsj0ds}I1v1nJ}LWzjyPlK<##6Z#2*y*DpnCmSJ$Lj=hC4<T_yXX
zuOj(%MaY?-8_|Zk$;I1A#v`Fb$PdDMyz%PrSp+n1BWrex6dAQPxSShs9yd}jdd11g
zS%hq9sEU2;_|J(ymaU!))gR|7<^>!5uoviSDSuK^W(WBk>{YrYUZ;=XkX~O;l+_H@
zM-5#wox&Mk{b$_G)FQ;A1G263=UqrH-+hgtW~p^m!%y86z1SLgOqZ@8`eira3VQk9
zwEBSymo_#X+qSLA=QV8&&ygVQeogGMUzzveTy+W=-_u-$-AH<Q<;`}N+@X5vAB<<w
z#-Kc8RTu8QRfhLmrChZ<!X>d-cAsD6=;ztpf|08^FJlX~?{Fas{7%kX{w_%R9AM;~
zH`_$YnH!j|HrL;_xKHz!yg#v4Npz#i;UA2D!}paWkMNgbMOzLh`F*#CF$v4DUl_$B
zo2EBjkQ9vFa^;<_cX9I?9v;CYnIG)2hb%r)HEBXHa{FnY9%@&pf4vqp6s=RW&57cP
zto?qSq7|H=_ZNQ;*a&=I^Ih6b!N_fY`bh?Kuu^hLSL^znE#_MT?OOl9sQ&K`6a)6y
zd-h(EqhRFru%9k!A6+nF-&jS>?ja@Tk#(<M-KI%n0NQn3!QzegYU3)|z%5VBoUP^E
zdZO9CMSXR<0~HC3lD|+#sg2fOSm*x!cPxEm+a|&Nw?kl0(Ovy-KL}0g<J;eg?}FY|
zDNlsAzxB2J%hLaWLpeDKPp)?>l5Xb}<sqyrUENtTAJiO-r4)wf1&0t1<+g9D>F(V@
z$B@#EnC7=B0S28`<zf%mq=t&^i&Q6l`L3sgmzb*Yr%cbhm5_(4Gj~{uq&i;bZFUW;
z0`@Skw0}~yac3VT@#Q%i8w=Yc%jRXDA967EP5rnXAfBl{224W~>?(K5smsJa;v*9R
zdxIC$|9u88m__u73Nb4YlW`xh;}vwpe@P4Y0)*lJfng3T;j<yG#;dok=f7{VQggDx
zeZHuZ`fgigo~hb^$NYTAY5*>`?ISxQ-03%wf?OFwozndqIt$J0YRumZ6(#>SW$_;v
z?EaDw8x0!zzQJz+rd=@n^nbPY-ce1ZZND%@1qKlvMp5cu0UT)#(wm}yh=2^egn&qs
zE{4zos0b=TRI1WcKp+7^k0c>fK|zR=&><8t5+Fn%1PDpa2IqO+Ip?hN$64$9zV)ql
zJz4oDJA2=`_U~%H>$>lKhY3V)N8&=kVkcms7IcpS{lCo+k_DL7E&8Al^C_i=7y$2s
z#?o_%<Hl&cDvZxtr#<90;(^41kV99eP|Fce+x!v>ae4#<;z+-5XVJ0oilQM`w#O^n
zEO$M>S{oJF`@McqvX87^z7K2L1e!!?tGMs&Z^9MTn#LVOJW3QnWZPRJ^`p}C!9M(9
zLC!4N&E1`UxVVOVImeQj_bA??nbzV%^LlUGb3uN~d(7mz8<J<Lsv7|hYGdu4yL8rC
zd2hQUu4eTkfAi@<AiYjBjA^uJ2IaW{-7O%0>}gDhXe#nl)#&Qpp-MT2w|j89y?ghn
zh52#l*s*-4$v2VLA;}*CIQI06$9r3vagC_%qW!*?ZD6H`jEttUh$y@Kynn;(Xm-KH
zO7BgiC*70SbOAK-_t*-dLQ@ZjsmGSH?MYSbKOyw;9+h)sk_t91XWH$h)aHYVI@66e
z2iXaK69bjY-2f>Qt3%;ych>>{gx_bBdu7si8Ld$M%kJm66HZ>u%z0vx@i4f$aCfmF
zaE>qM%A9V6c8Cyb!*;lo3d+^MuvRHhImA!GXbET+7M6%A#!B%am^S$@|1JAVfQ3{<
z8Uu8*&g^gPWdK-2S+uPR`h`T$M=5V9(^nXKeXvS05CZVfw;_AK=}_RQ^f&6V{Qsxg
z<Q3(#9~8M^eqpEz7n9Vv*9*%^2h1q8#Nw4tna3!FYcJ-z*(v-SOT`+91~8wtgX36x
zgYy`cG_nby?;=?i=rq}cVU!SRj{Vd*5G8r0n#uzIV*QxiHn0^&=|`sF31z*AJksHH
z{fg~!3QL5zXD*d;y8-en(HY@q6BNWB2tP)Zx^oFaqJWVD2(+Dj{=cyRJZ*;fGHJsD
zd2Xn(=bjNs?EcKke?bL&J#Mm$1_&4$J|_I?pO;NoF##S2oiBl*{^_8da(>PPCrok5
znB4#5gcvKPK9Cm{jhAC{{yB`L$udAYY7zn}Z1rOAvIw&OP#>#?(z@%MjYKqL-BWbK
zo`m}z`fawJV8<c+JAg3ZBu{fC6xFH`DKpp@M(?K}C_+R|#UVR%DRpS3W%V9F$vyuI
zn4`2Il~W8mVmD%3F;M3XhB<rZ0@<Dc_Wv0%w0Dt{kwyf9C$a9JDPEI>(ASYx5K_X4
z##Yd-5yS~)-8rx#!-pJJP$F4_8ZpLoC`<_^yl+p@apogW;-E`zmtRNyI7Zqtq2@eQ
z`oFSd>TZ^_pnst(iVb~j9Gl%3FoE?}Sh&`bvOWI}0-lsO#^;1o<YbT#Y{g11wlC%)
z-Ckt)r(Tif4OiOeVqUW;ZIguZevT2bSag|uAt!z>FUF|>$#Qa7g_rU41Kr+6qpSi1
z3V9k(QI=QjlMkAN{4=Iu>wf)$FWSza+*k8wtXeT!{)v$O?ZKF6h+FbF?A9Qj{BNj%
z08dUH3(}hP=CdEA0zBK|pBKe!mB2<1bZSEG|8&rer+~R8nJkL{G5Ku4M&ds;3uBeQ
zz8x{Z-cDZ*Jb$|>@Sl>|r;IVcondgvI<WdbGl-zcvbSw9yh7UVz={?Tp1l3H2M+CK
zrBtG|=&~w8!yc_?OkxqCc0uBk8|{?0|1?cx-b9x+2921qg}v1d7$g&ko<u<>trO#Z
z2vSbv-?_)VD~{1c!BMmd#w(y#@|m^2F4?idAWf9!_@B+lB?0RLI9q!g%aTA>z4GlP
ztL^AFG9!%v^tPmcpFyIS<$Qt4hsX!HSOhp^GU5{;VdZsu)}?X}fMfsxOWHVNvI7)#
zb0U*_Cc-5MK%0-WaH?gL4;|UFGT-ZU2T-Ynd!gFD2DnT(Wz6emp!a_Oe9VN84d?jm
z6{B2s=YcHu)`~gxPcp-4*hU&Lh5!7yPoZ14IY4Ff3L_y9FM0)K5y=us`DvXWZMc^N
zMLj@u?_&xmv37h2w5_yjEu1VP0(6amSLGsbrT%;E1$lJ7!(_zI(#*{eAQXFd+pPZT
z_JI{OS+SqyziWZ4*?$uoae;8@zOMd5v46V%q$y=>#ynHxx;ut-9{X{IZo5OoDXJ5H
z6*6%$<KIgn&9XVcyQK;6TDtOo-|tx_eceEpRRGLOuHp@$4;P#IHzhlfEfh}3FCoY<
z)t&fvM{joZc)Z&L2Rc$?9}iB&j!%c}e&V|BbL!Ia@O9U{G{Uv$^{<ouzi3;PvbvSx
zAXw+RpuQN^pMrbZ&oFD&G2q<Dt@T-PE<d#^VI|h_Upf4LYn}Pg0vl^&r7Y$5v}?mN
zwM=_sXYoYco{7{^Gk+ibK%iqpiHQhBAeFI)@$Fb-QU++Z=?-erjv6(holz>&f4_8c
zM2g3CXqJIk$q)Y=Dk~LqZs%f~hc`I_y0&QmoL!j>DwesT3;6^Iz6-W(j2Jblr0>Ix
zFX|C(vn4!Eycz07j@!vus0^8l>rXN__jv@=W!vXQ=lVfcAr*~FP9@sml}RMVJ*S;r
zmvKPUAgnF5e#G}S4Ec6fJbcIi-*x0fd`P#|Fl)xj?Uo%;h;ijHXsOcV*YHd<%S<0w
zNc^%DWouvu^LqQEenO~e3qQFjL#hXgy9&(g6ITY!L>aqlPR95hO7RATIT14ISxIX|
zMOntO`YeI(>Ys~*1vCyn1u84MJ&$Xqo|>MF3_4yHg#F1v;y@<NSo)Oy?O1w00vL*m
zD@>AmWr#Ul0;5(x`FTKE&T%|4A0<`q1J-H@FSbzGGpI^IK<3UQIf+GtK<8fI_WJz4
zlKTJjIJy2^;QR-R|6l>kjsIsJfb0L&Ig!2OvSC|nS8OW><auSAOk2K8hrLF9Wt%`a
znuMnykwFzwe@(il<AYGHe>LJFJs`vk`@PiuIUx=j1#_m46O)HWI2%db$~K|^31aK2
zM(w7lxUv>3Xv3C(bRDZ|n@mCoigKiS9EnLtgKp9uIlX%0Jt)r(M*6<piIlSiJLXQ&
zpzpmPtPf3c3V}@^x`$8=R5-$c{#g;V*ZCRwu@C3GVobD5t}tkDKekeXfZAoQ7nvzZ
zxJ<AsC>qCDv0m$IoEq&YzplMh{ml>v*HWstITrLJ;yp-8h%J4cG7MDnVX3>%C3A79
z$^ikMAzc?6k?NtxI{tIsBkBv=Q?!yVdcK79!#sul$>S-OC}qpKH4y!KaN~!j;as<}
zfFFHLkrDafJ${*>1Gapqu_sndHQNo8_VVL7LRdtkG2KKYnUN&qmsL{}{RXI&w@VM~
zd^`hQ3XElbD^2i7ReHa^TAGNvL~pfAksHyPa@51oW388csIDw8$k;xQ^W~!U1_twS
zoX)15D0`hgTtV)%AYc7g2P`5KOt-7)4tqp!iJ8xM%48=gLk`wIi1y$1PzlonvJn=C
z*?tSVdD*ARY7RE*nSI>55nr$EJ$t@M<wv;l%%rV-H2ZDE=8h4NSKAt+TC1o-!G@Q^
z@=yW5+>JN_mF1)G4uX9r5N_ZKqjo*uBWQBon#mnc5dhh;m{&X|D>2^qhxH=4wxDuM
z`2DKhQtF>An%7svUnxxk6EP^xW~->2Sc-soL>Y@p>0PM_ntJ?hTPL;_^Zg0(kZard
zk(AKa+OYsX(A!YN#_3HfBlwiYpcPY?$5ny$jUIjMY>Kn``Ju?18<W)wUYb&6Q>uLq
z&dcx0_pL8Utf1aSYE+^ywq7*q1wI6$zCrjyhebu;d7w#679=LhN~|o<RImPPEx;=w
zISo&5V8QQWflh1;Bv+u*Lrl6{-(V)(+xx(Z#X3GgK*2g|TkpVt=5PFx5hrQM+C`YH
zD<0>8Sp;EA&8a#u{dnN|yO5dcq`1l1J|UgX2gGb~!-Qnb(#STSGU-=;w;oa!1}Xh^
z_easSY?J^A6FKMev|F`c&&D=%%`W)E*APtxv-QF@1QfgI1Lhv_sL<lc{J!8{pJVMv
zL>jTEDhT0P1)1NY1}b43N|&A2OyJi$ueVc{mG-)TahNc=nUGwflVxR81YpM9^-Z^S
zP1vot`byiKoWaTpsvdG&EoYP^E3`;=9SS}+yM|=gpg=o1#L=Javfb1F`@FpTN!5Z}
z>R$&bSOlLP!^I`mo323&MZ*1CV6HXWtCS5Q2)TwBPl<`Cp%nNX_XY#)os^^yJVM($
zWSmU_6p1iExjKUCQ^YJwddsC;CJQhS$X|46ph=Qx7wZVBO*!xW%Q!2CHAP_z_i^$O
zQI;;eeyT*jb2<Zd)U_<QHA2`1td3b;qTHWPYuhIg+B;yk63VcJqNHpl(HL8Z5q$-i
zPjq!{tk|BFr9Q}=D@-7>LE>yGv@CFn##ss#>fA=%4p$5x4(Ygq<ErG#bp|;}y3DU4
z&6(W24^l#7`H<qMkg~)I_p-~GW(bqAkcn}%_*<RgYZvLKw&IeOYo3yq3gDr!Ca$hJ
zGq9R4YkYmRY5-9m9uW}+-e&0gl^(4+k)lQRMKT)De*7~jQ0Z9oW2T#T#AQEHXH$ht
znclHZL9VFJEGMQQC;!4E_k1<a)aA^4t==rOkLDv+LY6^8N2I%I20iB}t@lA3lrjDU
zCbf2_*p6KfRGd6h5qCaoft?!&EUMa5*!PpulX^oUG^sLu=iG>=RT9cvOETVfH^m>s
zBB}i};xiGkDR~L4%U>^vOft~6oExk=ZT6poK%fAtwn*VeQVxwJGI1C)$Ry?K2al0q
zT6zYbT693jjzb{2D{C%yv53g99~MuJh-@34?W9Y&OlbJ0d+K|4a<AmdiKQ->Z;f^J
z)*fZ*ew!<#To#HQ0H&rbn{}W70Dj1g26EUYY1^83N}T;IkqyqVn|!z3LV>EU{XSyl
z>Y`WYu9cFlz7wmxu3=E*{x}6pp>d>RWA<*szslLpvXolCWQgEQbqQ{bi-n1qtko36
zNc)YP^-o9FLS)((%5i749aw$mw?Q>+&^u5E&(Em{M)J14KjP+$e8yIeBp(i`CpYr4
zezh(=*S8#ya{h}r6KW?XJDsc3nS&kh+Gvo|_}ryi%K~PBuRBdrX(b8s*8(e-3^Trd
z3|g05)N66lbmekLT(srXwGH3U4th)<tgPG)7a|b#OLgAN>=RDhW@jpv`5`YqLP;lc
zMm^TGq6WPc<q(k*B^<crjZ+dm)%i7m(nM%fbH7pYd1-Xu{7S^)hXCMM=;sEV0Iz)J
zse%CI@(Q&8Uu;LL-#lZzBSBc#0({$OJZR@qvyg^X#@zmt+vmJDT5?<(Bd@m2lJiSq
zkTbtipLymNt=bVwlQt5?z3xkN+Y(ichnqZ+PsR=eN!1ZFjq^DYbttE{EIyNEcscf@
zLw4hK&VKbkMF5GJ_Jo>u_N<%q6|=I33!2|<`Ge_e1&ap5GaM6#kcAQ!ktm2vLS))7
z0<(VL$3a@R!MIPm<|W}CONR*gO-kr?&G!fiep`vRyczpC9g~MoV1v(7nw%<Y9i8>M
zmkyLKhv0k%SL%`L<KRZ`K}O_2ngICbD8W%RoZNG8s&Q8#VR$*U9Z7@1nU;qqaBJkO
zP{!zYeTG-T@}aP$RPXbe$VkJsCB`Wd6g(B|`b6i#q(CC{g${bvfuzzBo+8R67Iqx$
zsE6FX3C4tOxzXE*^kK~@5%I9A)}UUU4wkN;&76}(>)o*<a6e>NnzN+gQ^Hl|8gd<L
z)K>hK4@uC-dAL4Su1mER*H?_0^ufsmTxtyd2xx3Bj)4~UdI3XV3TH0TB8X`9oP+ms
zfofEv9FpJJ8#Z9aPJwFAdh<+e0a|4G-_2*f?h7LaT>@c=_=F&gUW0qb+Vho8U{Qrl
zo8N-5|1fiHPOEAL!sc`SB&ig%>E>1gfEhKGEI!2Ex&p?CY+Y~r^ehm6FQju(z&u22
z<v3$4vq0a^F+Y@aWG=6Mim%?-`GjH4SmgtQk>KB9xpV6V*lltOM~6+I0BaV0F>%@m
z4U?c%gf$dy=Y^5|A8P?7r?)ssu2RkY(shvFEj>@>nVM`lPo`G)!Kjw-`lzAV`c#C8
z4a#Rzj9rYdSHpSZ`mWHavT_$b2eQf&XlozIUv!Ww0kH1FyYipXdz*e^(`OD>@0+r)
zD|~+)!bCl%k^ND0MA@!s=v&i)YLL#eAHywyH63I6s$<_Ui;*^dXj_?fJVn{qBbFeB
z#yZh+QdmrwNt;|pB{74Q1M+K*`o5ZDJ|#WyD~+ls4#>ME;gm;CEiY@+mj!~GL?~4X
zILc=GU`;e6u&@#$9Gyq3jOGJV3KJNu%1hsyu=chLl!aEWX7?}Q(hXh5n<g)aRO|^@
zpuL^6m~X@IiP0H?)~+5O(jM3}Fdp|OW<M(bMJ5JvfhvuzKg^yH65K?2ny@BPVuQJ|
ztCq-1myzHK>R6@h1UrG;$4-D?rK~_-W(Y}q{;T>gQ{tdOqaXF*x#Vr)y@aN@#*{w5
zGITV*O@P!f1lB-bm_dK=$;P^!{LMvNuQb6|sIw@Rl*wivy6|~>($`KfTv+|{5^P;|
zrR@h#rJUr}r%94p8C=aiC~&^245B_=Y&`zi_rMD3X-Bka+qO~XT6~{+rX4&$^W_Ht
zAssx@o@~car!d}q6J1x8)}d?Zgx#U9_Q71g&~n_j_Ti#BjW;5ebeT>9C)wfYG5@ep
zTwhosK7%uspq6FnyU7W@1F=XXV00by{NIi-?xTD(Eqjf<h)Ugn35QHz+8Aqm;zOcS
z{GEc$d20F(Sew5uX&`jen-0$vmFuQpE8cLPFGje+k|?kKj2{`U^zV4{!*yaT%*7kB
z*+Mk8TZp=Oc_g-kGpBB)T;^4*?+w4}l$alUr`-L5GtgFI2HXW)X}uCakc=F#Uyz&5
z)!2>7#*7Bb6`BV+vvxb`GwC>;<>m#h`1a+FkTT_ajeC=qZ+gIINvExZ&Xysx6tJ;U
zTmtG0=VGGtb!kj={q{pjh8Z#tmPfp{EbMZbgM@6(O(J+7l^Q-0(cZD9iPmo%W}6l)
z$9M^`g48LoEtqo;>qbinqXj2WGUQt-IzYySj(^@&?o&H`dFHpdbs!CAd-P8F7BD9|
z!#1nNf8-6ANG+C=+ufsD1cYkxV~Y#&OP2D*QmoOGuQSfenNAT3mM(MZKzvG>^&-Xw
z@rS`D9HR@j`_#j{2IT7R)PFv!M3$V3>EJtT3AzkIpP<JQFw(>^^CN~!L7VN&FPgCv
z+hHzq0V_aEHR(;uS-ixfGj0LvmFfvM&F=JHgN5D&T-mP%2%vdEK0rS4L`st-b&W~V
zBO8cO{=Y#aC)Z=6c^QyiZK@x7Y`Ah?o3%KeJLD^Kondb<xSgRiUcn$QLKt>Z!-7L!
zNI!U*Lx38fXePDg9J4?7qYh%FyrQP#NByEgE?S(vH7!Po+$rHGqkdHRw|iZFWUalk
z=+{Kr_Ey5*tYu9Oec^n3u<Tc{#&%N-ql9kw#6a(oNL4+Io<4zaXz|%yi=2yt7GwgC
zLHw7D-cReD{hD?3P1;-!g$Iq%^tV5Xu%*h_HIa89NkS=&pcTUKVqU>{@ZB6dfalP{
zS705R_n&%WNm~XNqJ?hN)v2KU`0o6bh)Uf$iX6OaNPlBRLV=1_yaHt7HOqmz0QhT&
zD#_s*6OS^_zU>;F9Vj*RMt$opm<xl43`90vV`{2W`NN_4rMnXHOf|Lv5wi9rj2dM;
z?#j`GSuWE!!chT_6BgB@+X8lUbna?>Ieat5JUcdTX)uoQvfzAdWO@uBoBF~lA{4rL
zBB(PnxAGa&+NqS>BgEa`x3gJ7k{cU)@F`j9@GeoI5`5-#D)`_XTQ`xYScqXF0l$eA
znvyH~U=iJ$BDqCG5xy1*={yAN@a3KSPF$lhVOi^6RH3=AUimhCc*FbYc3u<vPw!<u
zo$aWlrgD6#dj};@-8FB<jc(idogB{Xc2ncF1J-*d{rOsk<Cj*5cC_PT4Lk7YwckT0
z4;ch&I>5*w9nmi576n;D2X2pj<nDVZsqg&btoVCU)hX}aWAKr;Aj@`PkBaR$MUj^i
zIWg46Ps{|O!lD+l8CVMBimo69e~JFy5ZwB<f={i?PaVIq;?(Kk;Rk3NUdo90oSj<M
zv*$Oe%n6o|S%~Bq+m^WOymf=qo{$>Z^tz2>pzBs+MED$Tx2z+UrxBXpvhyWDq!_3Q
zT-(qOgc}bn`E4GfN$NzOtp#ca?MR<R;I0Ih{WdYHs^YHiq4$3jw|8Q9B04$kD~Tqo
zSnu>0rW5It;UN$;BCRT~I$=2l($I09f(83=8YM703xB{x-&F(r{S^E>`<^Y8*&rSf
z>_3)<Dqp(pTt)D}@7tpw`1;%VQAvlu8H?eWWXsL0Z?orxNDkOf)q*d-RC%32h2dDA
zQeYL*yDa{T#(ELoDHGSc$ua!5#=JOaBVP?4GD_03>=e{>v7xMf4HE?L?cqOrt=DYt
z))T@Eyx~V_Qp<Nj+8&>QvHY~&MF)6#k0Ahpe|maSa<8DFh6eS|s7AmcTcc$kaLy9v
zruByA;m)ipNhzWuwZQBImjl{fBf4llN(?_08rU}6GUeD<w*4T1_i5udTOqJXlO=sw
z2n@$U+UyJUof_*Red(FR;tZQpQ3Js5=Yv_HZBJ99Y@t3`pgTPYs0@6~_ArIxr}^@$
zs2nbcYh+m>^iCn%Mk8qR2Iq~?VppCmtit_qMN=7@v=cjG&VC(f-nNY)*Wbax$`c+-
zlI?>~>~}M2bFD=-dn<kZe^T-`b4XK-CZ>N8`6M{KpQ&9Q5$A-#aR-cSY*K#R*RJ-~
zWL`#0`nkk~_A4~*4wKmjKK%Qv3eL|y`2D~Y%PU5Y-LBl&XY}Q@{FB4>j|3h)`ki}!
zLV5^PE_MQ84ZV%TATUTwWEeg_l=69bVVp6AXaMQa7o8c`UYs`l@BALbJGvd(>@#*P
zmL>dRXpqI*8&EZIiG_q~pHb8^qvxpXk4~*z>12$jCHD_Cv*PEN@p<DXO_Rp%l7ya}
z4p^`FUGQQLH<U+J$h8SfrH3}J@qGp7`FAJyE<M{Wu_n&q8GIgynk4)UTQ6yd#dFE=
zb53Q@(ve>@B{unk)o9LcLcynkrGh1BzrD&mrxug+1E%7iok<~2gx=$QvCiD~zY2dR
zKrYdmR_t3D-+amv3jXs=5bVI52%wezcFeC?gaD>`I7@3k%E133yWune(sm*2Dr~Uy
zb_i)a;2^#H5k;rz!yP_4N}m#c`1G~K#_A7|8e!vB(H7^%sa&p?H+B406*?F#l>x3#
z@<Uad%i~%4Rpk10U(0I!wXE-q09Z$$czP&}fBtI!i*FjYUKHx%@LqVuI8n&xVN<bG
zQ7&}fQck_3d)i7>Ztd0n-xIlYWEbG;qtEh+$YoJ+`C&KMxy{9?>xt)$WlS&s_<Gh<
zte7BY0Olzxd(QbH53}gewmWPruUCHwYfLoBb<$oMNFsIfho0`VR?6YlO+VZYGTv;8
zj#%9^Z6+Ny7QUA1R+=mF?w;_O1!e9gN|hq)6_0Cfp~0cDl@eg{hI}1f0=4AOuGOA;
z6f`q#aE)V{JnWkJmG!6lU{LN^vBJTQKaJW7i2_M$L+g0mrw<2|cI3A}k^{|uP;!;`
zR8V<*d?K;<xnwacGSDnP?2OK#C~}@3Q*~pzuxzF7Mh4&$g&7}2xrBL?WCZUVtTtQ6
zc>iV4>|EE+_@&zDQg3ohlPHaQ`atVVlVRRsE_j6xSsp?aj!vtr>=&DMnht2r*zc)(
zJY0^(JMB8{HSN(%JsL2shG1rO>D@C(SvBx%-6$$WBoXSFhK`kxH2nStOna+b>-g8x
zzRl*J7EuS-hel%BwKXhbnlc_<>fSMY6x!@<)|JPTcQ9JzY;1<g@RB`0>@HSp`5bec
zB}0p8&AjaQf~>)ZKQT|LH{RkBPIk3s9J+tf{+VPkv03(1nr&hCoYrlUc>pi&*G-8T
zR*Zo=<_VyMY^r(V{`q=dS2Kr4RN&9OkODB60b<3%-_IZsCVgQUT{Yh<lFBj=-xP44
zK{~c>ZCq%*>E_w#HpmDhl3n}<^+zGGWpmNhbE-b>4W?Vyqq%6mOdC!IPAj!Czh12l
z?Y(5>%s@E?ZZ{1(8A?B`lbqI*{UeBctSc2jdGPHf&-A_K(6^lrjH@K`zc%CtTUluU
zKp(!Y|GT=-&N)Hl@U`*r1621l?M!a)@f#!sL1hOx!iUtyJGSvi9-P|%2TRN=3(_{~
zl+B3(wE9s|%y;K6{?F^?;{|svL8Q(b=4RWcNd|%C<r(*y(SEoMq4?jeUcQal{P3dM
zu9}8hdnLvcmYIHm|5mC7PDMLcC`KK0w0K#O;_VEBo|s8`sLh)1IXW)^E_jNJlkBL>
zZ^H`%3z0{*&TOp$y|y@a=Ku>L=vH~M{-|wi**SeXZ`-fA@q~605uWd!o)f10SyB=#
zs;^qtLw}oPIl(+Xon~=P(`v`R0Emu*?jPlUi_XM(C8+Rt=BXeAFak8!>&HuN$oCnJ
zibD~u$=lS^Pcd3=y_k77{(@$5Plc?QS)23V0@fcYZ66yHrnwqIf;A>nB&vI@?q3-f
zF-|AKSPQ&knWPoeL3wXM!!Mrd5j$oF_;h4)9#G9!NiDQRyPPaP?`({AUI2aa=%C<w
zk+WkQ^n`n1(Bz#Mv-i%0-7No8&CbQ74$6UWvH<HQGGi<UAu=6+v<!nNmHXM+d`mjF
zy1{z+{+xJ9m(m#Z%;(T-{R)xkNtv!#x0ba4zVPBt+oP6F@|J+3{*|=K?aD8hStzPy
zbT1WFFkFb14?8k#jvkM@%#XIPIKuM_wnjxW#G@NB#jnddqEH$tGTm_NQc*;8(io(<
zD*p9{3o@Iv&J{4vmI5VS+}u>=yI1?d$G;1L))h;nfq~STXRLD1@h63`yp>3=pQqTu
zBDMc0?u~wItuR5ZYew=9oN4boBi$ZpVH#n?gvrr(4Be3OaZ!e8jK@cpK}Y9dm+91W
zjQStNf7}>s*GwUoz!-xr5u5`{0{*YkG;-5er&}{&u~vWeG7J8sp1e-4^ytqkEyTh2
zSt^HWlRXTw@xloU=u%;xppz1)0R95{z}$N^n(nl>RYP(8;5Qqh)|(#vQDQ@Fh34Vy
zk56#07+H(w<+jf@iY^NjG!^p?sO!FbxRQJqDKeeR`z8CRF6o0V<40!NmhZLQ3{5YQ
zZ)R?OhZ<dKUvDMLRtrv5@ZdCV#2l&0seA%^#gI`XMo7-IB0qBbhs)U2-`<i{z_}@m
z!7Bi;CIGMwgqtkyg5`5;8l?KV>_qGRhrUw-31uR$lm~x{^{vTRb!+~OW@$C$e3t#I
zd=m*>J@e=TF41_4Q1($AURI`>81P*4nYtx*Ej|pUYqE@mccnwG5)Y-1X#Fwg{Tl)N
z>Xnx}C&uMcUOl5`f$5eNGv5A7YYzIs{X1<+)pigIpPD_xS)`QU5Lz|No$D?~^*DZp
z(@h@_23u83X>(6?r{Y92bV){W8hK*HlqAjF2=8I@+jQ>930XZt!rFNG(^cuCEIg7c
zh`7JK&uYq6k+`+VO*emTZh2lf$EFVtHHnb6rbQ0}4nhSSgcnz^vFjig1Znu{x4i)c
zIKQ)C-I8Ull@nI%VcV}D<KyKT@?0-SE8fFCytlZMs^bLW;{soi4Q^*R-$J^Gqov-I
z;VR&OEoewVnD{5v2OgV%MECoz%{q5+-b`=RGeQTsf+m4mjj`I|`%RZ*8;Aa><dn_L
z&qE(cWbfJHw`5_2{NkmCFuVQX=trv=ldvzqEwZJ*dMc)$H8pFkTzhQ#;=+>%U}LW4
zZUOYjyV>Wi`77@wq1KHjHyH)%uZ?D24Mr@-k;(T~jNwVg)E|S67V%BqAw5hE0FNyR
z!qye}3rKtoss2Tb6RlUfLmnv)BDY(dra^sk-Zo#s!Y)oVl5$rT$eCZYbgwmGPg_cE
zO>a%`d(J~5bjQDAf7}&ZDV6towr+;!c+eVTA>!`6x8x56c5Fw&-@RHNm$frlP&Y}o
zUqD!<Fjszy{jt_01lFMv+A~iZ4D*7^<rjz3EJ1&LU9j3-6mr!-fQ=SF9S*3|ijfDx
z&zQotuBWAtr*)LJBF@je#ha1jT!Mw}1f@;YUa-ePI+(2PC%C5Mep~d5`he19vsC;S
z6VkR(#pgf4kNb7dH-gf8KC<)BhwuMxtCZ9qW%sr5&?c;>-i2o(vyfy(+xcyD7TzTD
z`GHnhT|?(NWBGGK^dG>J41w3w(_1CuoBLIyE;`f-ww6#vZ#k#>Gfc)^YKx#xY!rt^
zI-@QO6_Vb)<7d*tru~|G{NHoXMq9{l@Bp(+*qw>kV$EhIvft%H$JWdDTBBO?e^BT}
zg15h#772#1pV2-{zi(&a297VL7a9?`P^U|k(Y*Gj7tpc>P+6>PXxez>B0}UK663J=
zwwG?DEq%Jn4+}F_sDt_T<Mp?PC=>;*9o=j2IiAQQc@WfdeZ1f<@ewXtyw+2ZHg&pD
zM|{c-C+g0v%#XH2d51H;N(F(lkPSagF;9+>sMhsIYJPT@YW2lg+4yNYj3T_=#`ZM|
z&hRNSZF;DJUV`&?uAiR1*oy1lV&y+}wZ6a?B#K!|onz~KIJFWxOsks%Jn%#j3T36N
zpvw?m1s?1+#rRj@E805?mz8Z#`xbb`*}oVpUf&=$3fy~Ve;OWZse!JzCSHSS`Kalm
zV*3gy4yp|SwW&wzUXxCbQpzjVHZTacUcAS7A|?DPJ2Xw3@*UWFvFt;Cue;g;+L_1T
zUAF#U{f8;JIj*_)E2kHLrOG{1R+vvEB=vUg4K<Gn=NHG+cyR#zge5QCpQ~%mezD&4
zg&Ljy3niMGS<Wv1gpTTo7KZnm2VIgf)<p!sU!fkGVAUlT9OjQzkGH{PussoHg0H;5
zKbk2%_6T<Vn)IY$gi1uGsxn@$>9+QxOS7z<V>0|BxBUFBJvF5rbIU#r6QP}KWrm+|
zZ>L@ujR_jQ%#>}kR6n9zR`20k!T!*Rqw;tQqk4I6tv%zM9PKzO)eyUwwU|+8)U&H|
zOGaw)JDrrJp{apw-(KUhd6_}uVp~YNbHiUFH3i9Vg|#L5$-771oU{f0Zs`TgeeK4v
zsa}v5M;_Lrl8gwxxf;5E#ts_S_LgiJSeh4pq=?to+X`!{n^&cF>(bQn3H@nJGxeSi
zF$y^`?!Q7JK<P?O44vtaW>Nl2eU7b}g+F{o0!mQj>XwoD{<C=bM!%r)k}&B}GShk_
z*sAj+p|rR4AkEu!yPzjqty;4r#zUBH*8kRXSFh-u{q2ehxN^sWhI7|ARz_3v&ET++
zV~~}HM+rgZ$60(bDtFtS(c8I;wAW5|B>jP}J-Kpl6gR;|Dj9tzi@&7)mojMNNA4#A
z_Fgye=Q@$o*uJ??U+-HBg^~nZxY$#TlpDP-KM{PV&zwpdNPoBT!2R>H<gmsZN`$L0
zDjbj8mATAMZ*-#X$81QdSKi_8i8OY&u@O6<RCF4qFsjdC2AhkUM$28BjF>-TdVD(l
zG<`+vm{R>};5NwL&qLL${x$=jhC=8YIYi&?enGC&%=u;M#_Gg{-~*$a*!;q&u0_v4
z(-^7+os$;QymC3-D#nwYSNZz4X31vA<+{Miy5^`C>-PoEi2-{i$(vreWP^|2Y8n{N
zv3$3M!+U;nJiZjE;2!b`lQeG5&3v|h-a0i*cWoA{GS%B^HD?~Jc`e_lQOn1hzjNov
z<)KlVR7Q)+P%6E%@r3S+Ez@QJwXUVNJ*iW2+3)4A8N5f^*(AZY9Mj-A76cXqr@0lO
zK^u@6S9=00Sg!<Myw?BX)}B@(3@`qXYd~vzP=kCE(VEjy8pO-@Y`;K;$bAb@u2{9H
zccr}9yav3k7u7*+2i;vio28P9*<tONibq|sY7b0!T`kmKKtx&}GG}gaKlU}eNUgbb
z>Na;uA-naW`G=P0mRA;3eTS2q^G)FS2X}te+&_{;E4qgHIB2sPE<6p1Z<>e3f$n%(
z%>H-^5{_1gj6M>qE%Q1n#VzmT(`OUB;k>lf`*#Al*jlE9!}!CxXClmX!JF^mxmZ>4
z5k&@Vo8P7bR`ri}=+fp-H=YST?;bd}E}_q>dr(tq^HR^BSf8~*#wS_4SP_F#ew3)R
zpRHrMl2({+q|O5n&uj1?E&|GG>bFss8ENkwaJ?lr;d;Nu4Lv8&ZY6viWcvPU7N3-+
zp%x0>rR9GS-*DP;^wI01R$AoY5-3BSgY2*&k6N)2f-AfQI8QV<P^2#8OBmlMKP93S
z7n54AY~Bt-`5bu#lw6`P!2=A``(CqqW+iMLg2*v7i9&=WuY}8A8!pu_^~_kg){;u?
z<!nBEqhp&AwIoOi<fU0C#8ubO(bm=Y_+v*XXKuM?|2#cHcX564Xfwlj!i4`4B1t?g
zHP9&OP*_#I`4nH<#<-ptMSd(LslT}P%Qu_cP(x=}H8Ru}bgp2vx9sCM!+W-%1nTO@
zi!+GC#a?oRKgv_y-XSCzcnm+M=OdOkU#x~b?qV*A(am0*OaVN=cMd8_yIXA({AA+F
z`>SlWgHxf>#ASY-Xyi$fRkMjx$qG;FBN}f0QwDgQY-jkIg%I;>N>>SJ-H{h6n`xhz
zOVuu0^f%;M>b5;`3M%rgQV~<*{wv(uKP4DTk1|p4R&;-o=uxWCzebK%=I(?<MGOE|
zUBT_@c#8C9Fe(U2{ARk63Yj$1G(K!BLs%cl_+wb)m<g*VPM2}`oyKF%H@{z2C132g
z@VQJ@N)Fs&72iImlSfGECtoN7zsS%9g8OMjA(G7Xhd=CEKQOcnY2RI1_b&y;AHg|I
ze2cS<7o4{|9B2<Vad=My#YZR`*sYGe8{)M*wJ*I_CffAI(Ku|f3jDi%{MLPYxn*pk
z%C$A~`29sw)&*ti?JcyZxNhx=m9W<DpO*R05%VpMABm8j(VXCMxtdjQmvoxM7e`7@
z)9~$7U12mk$4LrUH@jTqzfvw2{p0R_8azH`y@h+eOz!g{=BRtjq$M}!^2o5G;WVYO
z+4>&n-r8~SbZ`~`NAK^S{i1$-Lnw?TC-H-Mbon=brEg%n_X66v+=8h6?oR2Z8y>AL
zEhrwm#im5onH;ke*=)Q!`MVmr=FNI<ilqqN;RM>_MZUr5>j9_sx^FfMRtmT}(2L&>
z#$(ch12s|P`r0#jlv_0up*mLxlA7PbxOHU_oYzv6%-v$ZG-<H()}@Du>l4RJQ|FCt
zkrO2&1G`JYPLF54jYxyP*4@-O<b4K0dI~*Z2Aut(@RgMDu`lnd$@N!X>8jo;2)F#+
zpjhBwkrgAWN0PLDMqd5eAlNxlF*tN9K&Liw`^@fd^q*8U;-|9X6iO-)gaf9p9Qcm(
z9tmy!riU*2_^z4EzdZ3+#aktQZNe^It10ND&Tvm3fq(MS)Fq$s+Y*iE_U`L|W|qRo
zBSA=kmcyo9*(VidHA)M@HHtQIcJ-3|ma1j}<__^eQX@z}ust~i?0=gE3F=l8j7|Ib
zfx^>!!TZOBy^#us+PSB6;s!$8)l8E}Db4vj`THu)><b+}a!f%-Jp8Q8VTHZ(_Tbqa
i>p$=RhY={%;RqjVv6yhIgkpDF=B7p#S1JtM?*9)qK{Uqz

literal 34740
zcmeFZXH?VM_BM)J-FDrAsEB}tfFMPx6hkZ^gepicL4kmD=_NwkxD^p;p+ux9ReC41
z5S1o`BE5uwf{2t5S`r`x-W5D&{Lj7j!#mzF?x%at8bcD3^;>1GIiLB=xz<Y9Jze!<
zhtD16;NUn0*HAU!;Mnia!Liro;Gf_VQo{Qs@bagPmbxl<1!dz-9U8nGdaPmQ#lgWB
z%Ko<}YI+&T!Eu2Du6oPRKY4-d_=d}9ld){Aq;sddBE;ob+2JdPWvkzX96p?Jp{x4x
zt0QyQroMgt@a%}vOSI)Zb$eBH^#IGqmUs1=PV!lDAWtIWTb`@caYw72v~zX*)wMcl
znD|$oC_Jk+=_A9-s-`z3&#TKS-q4`NYwrA^-C_Or&wnKVB=GT#SZ@D!x|`9TM$L=y
zt12Re?eD<H_iD=WmDmEhaA*XRr+8y=ZTRm?1$$A<J>Vme{Jg#F?@FxmBpLiI4u%gc
z!T*@tflGgY*AG|Rps(-5pW6=_4}Q&G&#nnd^m~onuff}!FKk}2ZN)A`#fXpnU5VtS
zPe(X7p4vSZOt~~0g$ab`K^#jnv4RoUiq0(U6Yyt{6w%zGOm{(@__d16&xfM|^$x)2
z#B-A}Gax?Eh8Dd-@HCA;z1}3ups}ZARdnVeMk1l##GrwjcmR`HY4dvD*Sk<SMUd}e
z`H9GA?+=+RnBxf*7QJ`jX~Y}qRQTJ=j_Pk+1r9E=Cjd&kTWzL6D5-96#e7idB-SD<
zGj?ju<$~jT^~9H%hcJ1<CntXFTZZ&%_mU3TgyD7K`lZ`ypY@sw-J0bdI+`e0DHuUF
z?Is!>8eOW5z{Jh#Gd5nST(5)9iNvn1nu+G>Kw7|j*=6C3eVgJfc^!jeiK(@1g8h-@
zbIup~uF5A$%f$J+y%gbJ4mboqmuh!@8P~hd=fLb^I4SnEbG$YNC(2oW5}uDtwH7{;
zZRV$HK+=4D1}x5$RNFbwZhe3BT5YB-yl4lONSuYm*LbV&2y1Ox&Ao?ATVoar-_<_D
z2s;*KzJ(W|KV&9i&Ka4ij=wdhIJEnPX@`S`*hM4J;sgSQi%@BQg1w*ugZg*tc`1wL
zAD~vtPOXuiG1L>sJ6qe<9v2GrO(|*_@Fh0YL4OwaxxTwY<{o*5yEF-OfL-WE!Z_>8
z1^I+xweuw$ABE5^OWT&D+7_lka&Pw9N73+snb~i@6^c7Lgsd+{_uuYOedv?;WAa+!
zcTUmEpGdN|UKbNz?@xw^h{^N}A2`%5sJWC1ne~PYWyopuG9_FK9-9&_an^J5NdE4x
z#Cl0{sVEvA(!%_lp{;6gB2@ZJKmq!d`jcECe|(E8SuA##W^likb!hO==LpZJRqn(l
zuX-_v?#iFD8d1LWn3aed?X)8bEf@Yh1L*{l5L~eqPcgjVbZwmDg8onGsC5IKrJ|)r
zIaqb&c-P!5$YoMs+!3Wu7UYbS*c<Hwj4MOJ-_AaJ$zGJpQa$XEaVCCW@h??RY_;Ow
zY0J<qi!Fm-F6TxN%Y0V&aX4wDmeLq<gcCjwZ7+&uG#u@fh(Z>Mio7tiGiO_oV_VT2
zyOk0>lAsKKAy@IfsY}>a;*Iuw0~;46Y)A4BH-zR}({3aLy;0qm#Ykvmu*Bdgf<CeR
zR`#!_jWH{BEzAh3Zk=-3Q9YyVW}txgM0RcRWB5>$AtE-K^=ri+X?e>xy0xrW^gYXN
zfNokP8n)6_FeRwf`ylb6d@n^VCCPrn?)P}&U+rVdyMAHG)OfMfC5Je5^yKODFlbD<
zpbln@^wc)@O5$ly<7U>>K3-4}L684_)Sz_4Hj(rOXY??swM+;e$B-HOSlM1+=lFX-
zv%3R&fG+Q{9eIwq9nY=t2QM@sB|&wAU!)2PnY|S?je|Rh<i4$R`%-H(V1)kNL;QtZ
z{9twJ!qp^*Z#9*&IBl29EP96|h)VE0s(w{v<_nRkAwz>>SR_s(@Mf={v1KU~M{du&
zoG8d_I0Z)eQ6+qLI&}36XafFX?2R=8o!-Jv&!^_#QOFZDH~2AYAEK&`FPqXETFVwy
zMlqRI{6up>{f4qBpygjQ1pNUtmcRnl3=)ZDwbD?SJBDX|P(`>a0ltM0am>op=RTid
zH|Z^-(Yq=wHQIQhB0AA~L0iBzAYy~mIlZie*`{QO!$%iO7fvU-E^n$BjQksoc$^bD
zkc-PWM}B0NrwCU}|CcQ7NcF_`{H{97Cnq?fsxUS2f&F}$%Z@Fx-d>o?v1`7h!E(WA
z^Lb-zzeVrpK8m1b2s&1^pstXv1!0xH+8wdN+BY^tZ_jZj@|Q4c->)oE=IjzP&lrf^
z7j-NkmN{X@F%@@&PHu*GTss&6A!BWnOSi2#=l?0BQ`&l6j83wbw&mh)!5gXCS3eKJ
z5B==M=-yj_zCcIwIM7i7u4D;EpTqM6F~`g(UzeRYhG~76p)XsRc|w0n+hH1WSHnr%
z(dqE?czpl++m}4)HQKL<oCPLVX0O0u8!j_v;Czry4I45+t5$o_mPgn&yu-i7;z>gB
z0$bwJy1qsSKzkg9AvTFp=JRkRE1_Bc*V>%8s!Sb>O8na2nPJkgB}P?LNF}!aPH(d`
zSMD_N^;Kp=<{5|%7H*z1<&Ym?D`+K}i_N?Yp~S7lcYHn2O<a%>Vd-96g~-LNDZ|fb
z%w5XO>bQ1<Y4dM)#_sZeTL`y*`?u(em-Y-c2Pl9C{)jOe0K@)Wwsxhr`<~~wG5!0S
z|HD_qH)3!yBqF{-qgNiz3(<-3ewMi@F`bGr6wP&L4n134l6e&pbg3MlbsQI9blPg5
ztzt%2%OET{jj&Ggb!O!)z2t7>G3pP#bb{D4bp73C@5uN&+mSOP%$c?7R+bx6A#v*4
zyXsczJ<rw`B&nVF$^vUnDY2?SD9M(OkS4c0+T6ra#UKS|{he7^(oE-PnP!+p?8x?<
z)clM1t%h&{G~Vup50XB_g*gmyjTsT3YSvzo;J+>>XeB&*-#N)x<D7Wz!~Hm3Nx|8@
z0ff|$rFTYX-ua!Mo)a^(4cjLSW07=tPTuh!9Hqs{ep#L_I+%d&4`zz**?fdYU1RgE
zf#4^K1boB;nO2oRE66l`wpPIDzM3u?UNmPn>NTnnmZr{>$G@_P)9!^_%2nfT`G#!J
zeiFLh&{~Pa>n+B-gxZk}M~!t?2_WNnzL&WCgMq081~vs4b9y{^Scr-wu6V0BPeRX@
z2Pbk03wqgMzJ!gYa^Dw9ZrXIi<#07!hS$LR%k_Kg!ed`xjO*gWWBUt3MtwYeE%~7L
z#nK8w3pYvTJGf}3iXMYT9U>q(ZH4!lIv~rU;<YuF>^B<{=qam3hLMGXgJlOqg=IOI
z;dyh8dpQn-@JmB0%(XTRva!ZiiIP=jfVymiDCqZU!14Kl?ceys9HVJ|2NEgAn#UqP
zye;|mjAiNiHMRSFAEiI<;60%YJ7KLsL;a(OGC@9D7AuH@mQ{|w)mkR$NrDCASo-tZ
zQc*rFBFoFm4-dO$i+<^T>jEFLKo?iG?+D#u?!?XNG~DUsfYS=98Zk~p!M5VqiW}M5
ziDQg`C(bEaRteTA7x+na7>OA8uNiX^=JKkNsc3oB&-NOurD?AVTn7>)7W=vlGusSp
z*+jkQh<b3VYCf|n^Gu;MOwcS_+K4_6voMg$M;MCHeFm;zHhQ*BCo<fD0T{jy#P|}o
z{@97@z^X~^m&W22Pt<;?Q+Kf7tA_f^baqO256m0!y$to0mXau(yD8fCcNIRjjM1I5
zryt1}=cAU5Eq;2_e(lfFkYAs8*Bm-?jjh7DDRN4UwybB|l&k=kkg8Z(uF*vEo`IRn
z$c_@}lW?rE*iK<O-qnjQL9ZlXN9LPv$}sdV3$0CECgKEwP>d!Zsz#xu7}7CKA=<aj
zwIFe%{Ru?d+S|x4M?Lm(z~3K`<S=|4ifnjP9PJ&U?GBL)=hnV$V|}l&cEU7E|H8o>
zQ-)Wb>|u90_D8PKIkjoUuT|HL=-UCXr?rbEivow<6}{pFLyZ_@!R%U|#An7r<Q|(5
zQhcn19B-vRU|h7|)+t!?HVw}ALE}1x>y{TTDi_7frtlipEl0+9$9Gf{)I=)wUMTO3
z=OHjpt99q^`N(w$!Eq2#lz!)wrDX1y0~En^r%AWhBf0~LdoFFQdIWMTo>?7Mid+>W
zORPRe*L7rlD2<He(PPxTsa1zNE!?B>7~|;*;WLiiaN|gCaxXrsck#I~OU)B@sERRt
z)gvkt8JK+ou;cXD@AZ;>b$RBTr9ZXKNt9D<gyqit`b)2@+ffIOj;S#mNgZ~G)20@;
z_Y-Ta7s{U~CpP^9{oW^(m`WaMgFX~YMEpIZxtZ3n^cTra0?VI{7p|RiBX`HtyspUU
znC{?(u&(sg6}W{cBx!EucX(A>^#;PbwdQ{5|8#$)J8X2PR{#=Z7eA5y3sOiAbg1o*
zZLiXtb#+fSH8-W`Ch&~EQ~g=C8H%LqD;bb=+v*)|T<Akps@lIE=~)S;G%co?hE+ik
zMcOBNr8m$llZtmL&MpVq)-2;QadrrzyV;KQ4}+HAsESa#FM=>L#<DG^$^A8-H5j%`
z3yI)0dnHuU=XxDc)iJ=8WT!I45Dr$M)|w*!G~Ma$O`SRGW^!zrDEMQBSf4%AzNSry
zQFRIHiplKnGMUT@+!o40k7GI%wU88Nks20XQ_b5mFpp5XE|hgVPd+Lq(;e9*gFbUp
zds-UyCsHI(0t8S`HGR|5u?5*Ody9sUNIE3=di#?Nuebd_EE0)+_;$C~S8bz$-ax2f
zz3qZ2ye94fQGj@3m9@t2$gVq@NViqL><II%_bNm>S1_`w?r=4271p=H>QruRlzPky
zuO=UlVK%Ao{zyG~#C#!ZNIWPGeRG^?U!zs?=@r6r(K}qPmxL{1VAis=5-U9yk$|3!
z@AKFmhv?RkVP6FQu_e}1N)X{3RdQqs?bY<7D20V2lg}irJQ7a=@G6^iNY1}>$Etdq
zNh!%Lg|HFZlsx|Qiyykrk+_YmR&Ds_ouO6cT~m+cBg4MiV|@&ac<#t*{FM0;+#NBX
z-9{OTD)iYr(C=1nQAq2086ej4*D=~DozIn;QWCi<FCHze24H_dMSVG8BmvI204vna
zwU`b?%#WQXkd)QyBKXw=yKXa4XX{q#2^=e>OJ4X~`X{}yi-}U5_;xbCiO|5sbAmG4
z0jfXME!kM~cfOtO7x^qRJ?XZOFSXMPV$-1?A`N7DuIZuB-y_A9^|G;+PxR7Bh0|Hm
zP&==}z;j<-D?Y-yQ~x5t2g|}FNYnA(Xe77DbeS*KJgfdPYFt{O$`#k|{ru7J+(=y`
zdq@qH80L9N8ZIk*rnyN*Gy8x>f=|A%Oz?Ds2NDycn?qbXTrLb(vdnHZRqdUynmjZr
zCAI8N6Y{i)vfd~JBdY3XI7YmI-79#^>k0#HT$3V=hw_Tn>dh0^`fIM)vz(-)iZJkk
zQD*1ja(SP5aP1wGo*D6U`%!iMzE|Z{9fEM=;L3WcX({EdpiXQ+rvhzX#ZZ`a!dz8$
z9Uf7t(K9rE@)f_|!^9uk^TvuWsM&pTS4n#7_;qQjuv~%v@tC#DbZYT3+y&>VT|v=x
zD;p#<f+f{m`jcj6TRvec5fLC}(i1e}%iZ$hjn5!)0ejyrRT9Py@N|0KOie9tmUmoz
z$V#v5>fBSwJAcnP<-{bvp3o=fp$Vnu)msNIeVU(HUF3Eifgc)OPf2fW9g%LcVahaw
zYrBuU>=@v6E3HYn4BzfH=~YC>Zl&SY6&-Sa1&Kp&gg!-+RVC^Qub<!ia;J1_MbKij
zxXkh-L>l%cD?fgq>jlRgi2I+Opkq@5!i=>qB-%X)>wvf}J6%<ZAs&)I4iObSOe}h0
zDf|+p(2QSa%Kd$drEy_3W1RJ~RV2%ve=L;~xz?r!ciiyT@c$q=<8-Z?yiVz4TIKzK
ztR@FTW+Y?PMK_a8T3!zlOx8Ar3!#$TuL+f}uPR$D!hNpim?5j$1b@c%C<(QwPuE-X
zS0q?-F{)Y3Zm-59#Rc37SJk6@Tk9%#>kwPc<nF2#T+$r9wi)yKyjoPDp@cH6JjJ)T
zS<N$bOjN6f9}S&K7$H@EonAJqBBxq@$vu$T8C;Buy@9x%Gh|wOXdHlACe+$u8G3+n
zsCg{dvORun;>}7aP5_C4BO0BW@_+4fPfdsJFZMGXztbZCsefHLSSS3>*Y#o|KjtJ{
zXEK2jeh2|8-tktUViMQ$-*zx{RTrty%7RT|#mr+(Hm0q0u~$K>iBjK8Rn$_WvLTJq
zJa4Jv38QKXFY^9);`Ud?+gA-;$toxIJUH<h1QDOg39mDi`E8{6F+Aa7<ML_*?^-LB
zO|<9sAI?$G>f83(`og~MFH)tg?}kLX)m`Q0lXQFAQF6=`g1<=B`Zg9P5@<H2??J3>
zd-8A-@yS~0x`EL9bMCo5)^|QxMy7melR^Wxe6)t#5OtOGxwbgX&SKyc>(;w8ZEC;W
zFqczd>}<d(57QZkc@?@sTg+NW2lkiOw2IV#%e;z;zUv9261e^Po*ZA>A(Z4#DFR7!
zV*-IQ#Z+qb1jQ{x9SN=iCKS!%%ahYq*pB3k>>amFtJNv_=|EDpU^rteC+62R{KW2F
zzZE<<Y@*W9GtOnF;z&LbvsxARW$QsN;^)TINHb&W-W2KLkt2V+l(8B>stC-rzn0uG
zJ?AshYAxNWDoR0ISPf9HY$I&D@D}>t&KrY|Y&C4F=h>)GBeC!<mO5Ak5|Z<cndf54
zqHm<&ey`NHu8kyK+-kzB8xDtTthL6Or0}7dw^;8<gacV1_BJZGDfmwzl*;~Z9Ct&`
zaD+Gr*Np}iaUab|EvVud47!e;UdE5P_)6Ph)X5XXwf30av?n58e1*Tf4jVEQ8mTk>
z*{g!vmuwg4Hg++#gY*H4;ydQ&NaWvH9oXl?Ed4ya?5P&((q?JDU6hP6NJ+6fPbgiK
zG?9Jy&6mV&GN_B_z$A|4mDdw~FyeS%RNES~nXe6@ii-8Z+{DzHGfJ5>!^A^RoZ2im
zO>M}&=GRfyI^}~Cr%iHL)4_4+#p=TJz*4T&wK#%n{FZyMg;=Rm`*|5j;@T5QeQ($T
zCSbd&9fh)`8P1UcvOA&<NfMPyD;sNfAd4QTosLM<jh-syQel5hq3_pp!=g^&1WsoD
z;QU8-X5m)Q;6L1WS>@od$MClztJ|@csqoN*c0n%-VtwjiyOzmu2-nU&xNGlgIld9;
z*lfPbvv=S##0?fI-^bnh@M6p2?D@367^EUQgkN{t6JM72Ej;s;H)7{j(0Fq>EQ3iD
zoE;mVq6o+z_xaFBIS)VllkJyqhTRsTE6I?TLE-^a_qK@|bG2qxRYz3rGvo`2&1c$w
z3_C6`y_-}_xM_DTK4l$bGrMt<!5}N6Er=1qR&tbhu2yW~`$~0C7)c2`T~#?4w52^1
zynn!LLDe~`t>(--ie_Ref$`-@Oy1QQg!;1eHA?EKe6FUsP>V@j&BB~i3%xu$47^5q
zY8Boaa%!}KWz~z6?w;<H#<pPF1^sK43MNRkJ7|$ATRoMv_r#Ux^su>MI9WG*qb^%p
zvh<v^b(iNUvI#w)*JL!-YG#MC$)Ol0_&)~YLWtcc+bje5%fgQB62`Nj09u_$)0~4c
zMcS>gZg>G<KG6hqqo#FF@iRt!ulr&o6SZF8F*wA+4?XELF5eR$hZ&&&!gQlIO7D0E
z>rmrnr-dM}ahI@;^>|#{(KOqggWk`&&-QUA%qpVtGHaw`Lt1vOA(>J?sq4fx+mSmL
z{As#+Syu2`y`Rw8^nLRbEnq}h-&ClRBU9N9ZA>UaYQEV^SsfFiXuXWu{y9^hb*bAd
zWOxX}*rub3jP*U-vEFYorKHo;_1ceSl;8geU5h(4xx|TTND!eO;K=)HcU2su(0+ba
zSI@eY|Ebk8l7oJ1wm2BxxERrY<ray)vOXRWyuWAh;;4+GckvhsCzrr;Sx-6^#wY6K
znU?jaIHS(8ecO(FU;tHfDOqSH)er%VbP>1Rrh6s2tJ)v@M@Sm)))mX+K>Z_eS#F0D
z*8u%n>xoU5R#iIo2bxl*3r&=COR^KX6Xs660$B_=je$RDsdBb%5I~94-hTp&=FkNg
z$!TcD4@I_#=|JYWx7RO%gcbc=q_$1_crdE|>-wRz`t^~nj6x>$#$a1Q|Ij8gyt<Xb
zDi>Y!z_~IE9+6w4{yryI$FMolUD@Gf%iy=*UG=}0CRYj{O8YUky2I%lAP|6FR4@~k
znT`8F-dmkMj1Oggxls(ACd;6LIwss~y<Q0NIk52k$P`0Td^!xFja^;+I%cjiunF5%
zKYo^ePmXb=hT)&ntyY{`bSt@dT@k&C8aIfU5xceE+!ln+@hUQo@o<mZ_>}*m<C^YX
zyGTYKvdBE3UtN3I23>8NF2`{w=G*?K-(0b47#brZZ<t|TjQGPhWV-Lvd<B;@VbwIJ
zG##2W*=kL@O7?A(h8}g+tW~o&b_S3|?LR`~x1}F~M_JHDVxxy6BPH!hg`I0}#>;#+
zLzZ(Pn@5?_>xQa!fk#2QFs?j}6yq^Jg6F~q5}V7p5Lc(iS6lgIBpXa@l&0>ItfL7D
zeq}8P>JiGwYD+geECFzZ;W=P{3BKC58u(mW`tu_6OhV$iwx+AJB#h)JfI=X<u(MXQ
z)O72wS--Z!ChiuyGFHNTsPYKAzZTvL)(d&Y(ziZA=<3fes5m=0cYCOiTS$>U4N<-e
zszyl0Z6byzZPgM^v<ut`uo}3S*p$nv38*D1xpI>wiGMg<H%_0qNZg$0UfRz*QrwMT
zdhWbB$54E^DhQi#5AL?;g*xQ62c>iYfAMZ|T->X<<Ek_@O9!a}E55%u^>Y;V*H&i#
zIE>@`JCL-!*}PufacKM`X8U~;6-VKw9E*Ep!HutwH`Y-TUVrngWQ-^_zkRSKYDfNa
z?T%@WR$^bgTOEV=+C#z0e&O?wUCR{I(Ef9!zi;<JoS@Z_nkW-ysdjpL%@#zN?nCb&
zhrPI<5f3eLdU8UiPS{42tKGX~abnqY#(!QVxZqA5o@nr>+dc~a=Fvp8&cd{VMb=u?
zkTXV#NnFJqC*H>J8_EXE$s@A4U?jz%T3918z$<YX4q4^rC62?E8#UHbEZrJ>(DgIs
zvjL5@F#Vr0A0t=@6>C%!<L#nDr+XpON}3vmfC7Z_#6cciMpR|y7Z7p+3eT2AckD~r
zYsWcdg~Uv@`G2e>XmvGuzphwpb)<Gjdyo3mt$c16!45O3w)Og%D72lPw(*c{ikWoS
z=H<Ap>ebwXlQ-JBH<Bh+PZMUun4cSTXDmCl)SB_SJzgo^T=k(K(BujQ1oa(;7Bl<s
zub5e=$6NaO(84P1+ba`;N<owDFjwe!-}^-oDIdv%nu5{oKZcF79YXM84KvTJs$$1j
zX_dNR9WHd=?)T5^8rDZ$l?Oc1D?41zcUHYxjD0ssK|&k!4G<kuiqi1hm+4%{;m9(6
z$=KN}q+X={oow7}_8WRK=ik^?F##c&8~@;oSM5@}FM_ZnKo_5iHE>ROb_49A%or=5
z$uccU>UiVbN~|BGu=KTrE-q&nQJ+?OLQj#gLn5_77ZZu5Kqe^5L}npPlKyhW$~mRW
zBg!w_k$N0{%*LiOAwU8J57a~nz!>J!oDc~LZIYnP95EKbQ+&eJq@fm<rSVY<S}%a9
zn(PRBX{%MteC23cDo;tVZBNenwQOx+U#40&G<YwRzQE!lL?B3ukRef=MUT|Wsfd!n
zfJ@D_ws@C;QZ=Cw^S;0vf-*OnxPS~Ib-AzLyWchs+MW<T=^XpUccHB}GEPx<^UIoL
zc#7SJ+79N3y43XBtEGDJ>y@b*8a+Wc&D;}LW5ieQ7^?m}z=hIY0dzL|(kK(d@FwXr
zMds!ZR{~!hpZO~Kt!gT3byII<)$Jv1J;_rydUVsdo3U~CRYO`Ra-7i}*B94h2C|sD
zX8~k;)Lk$;tMT4l6TOP=%U)duJxp`WdO{!ccL>AKk>)C>9886A@ClZ?Q@SG!i~GYE
zB}P~iJr8!6iqVy}Ub%G0Eu)fwENK(m>mCn3sxVM<w~NbLaCI6|@XLkhhSRcY&yM{@
z>vP+iC~109(K>s`@@M!h)t}*pV#+m>-bwF&o$<k?rs9NO$_3xuWM?O@o<k=lxBmSa
z-yC^M!E&5=`BLn8j}_Gr&*fN|&T@X(SXM)HI+N(A@nTr=o7?rA(myD^Q`TB;^NJCB
zQs$~!24@^lc$?YTldXNyu-C)roc3;Cp+JO$$Cb-!xY7vXl$)&ws&qo2wpt9wWqA^!
zqU+|9n^CKMiR_%@cXj#N@n99_x6L=k&D%<2E9o9%B4P3r*T?gTe3CEsxd&S^5#14_
zua|WIi1?7QQ@Q(#uy&mFxhgrqza?K3Lmz9U&-8nTDs6vgD(>v9mTnXBXQc{fd4ar(
z-#BKD9i+?;v%Xgn`bO-FS0xA@Q99`z?(wN&YOzCdTm|giX-&?A*-rcJG7C|emTB2U
z>rLLeI4yY||Cb%n`-sQ}RmsXZpClvbh@>PYv3f==aU6w|F0X>U`voEC_QIF4N8N_=
zgh5Jc@s-c}$}T5Ljdht_U~E@H0HW&4LfYTPWIFa@vDSvgmo<K|xRD*;zB6hyQ4IgK
zfA+Z_fnZBY2@A~#PJ~r9<C|$BtJErcXxb(*Oq&yOUN@RY*S6A#aV}BP*Wpn&BJTT}
zv&j-^2^}8XJ*iwm&GUjX8-1SncyZ%`DB_wzWU+Fh@6-^{!%TR@Rj0}dN6`^Vn6g8l
zm61Z80s1{s7bplPH`p&hOuO%>E@oD$a^#g`RY&PB`S&p-d7*L&Vj<PGyIL$t=P{&K
zk=7nLU?c=DHMEDh#=^6Y$HPY<mj}AfF%Kj*!v`f3r!HOcav^aoS4PkBDIl^LJMzxF
z#%*g`b($#p72Qm*Z;QBI+@1bb8c#djR!=|+d&S>wAa35OoVT~uS<2qr)MKm`rF6`T
z)72x)j?cq?N^d0DasEvz2qeVAyAYyY$K#z`N)4cTnloEEnmhH7c(2pBHjK)+v29(4
zBrb?Qt10EOSA2JdG__J0sdP>Zv(d4pq^@gha&^(Js0dii%|EqhM-Fma@aeM~cgDB8
z+sAQ1L*UC3x&ovbY%i1uuy<*=i=TC%D11hI2RXhy{c5l_4))Fz9z+9j(Y{>Jk=4Ns
zt+~j-u@lcD`q|k=88o^e{IBy4PoYA0K{NlKEjRwjW1kec7jP*?V<s<h569CW{VS(7
z3-WBi?qbwJ-f{4yVP4hlP8jnFXFbQ$*Kz;bJuo|V#oy)k!I7sd%^cm7?KdeYtjXRi
zE$7<8)uqN0I7)98@!PZGO1}g~Mn)u!ixI5Zt*tG6a-ARH$6_5-#i{Ydv4Kfqg&R50
zlr}ezW`z&*p?TY`^{MpUzjtq`^|8X%3fXTW$Z)GHLEK{e^zl$@{_Ad*;TPtiU#t00
zcoaiL^89had2~JkzgfPqvEj#<AEFjCho2du=PAFOl6<KkdZhR&INoxYJ>Um~<uR{r
zIg2toc=3H*#p#I4kqS2ITPr$A^2qD%<6Du0t!YU{Fnz><Fj9upiY+TEbIQuf@)<0&
z@LO*cKtJjF5_6e4H(WaPa=py9<#j+qMMZ`2&NfSOiPu_*(nyX`=MM-{I3K+6K9t{S
zzDhSBAix;>8%CN9yP91>(D*g#BcUjP<_S$LE$2cDToFr|TJIHrm9R?Xmvb^i;WnQs
zY=^weDBHJDtNC;NgDBI}1sufT{5^P&Rz5#V2pqk`oXAlSr}kvD4&)mbiXIGYRAzs+
zlTlK#)Sja3hp6zH=?ZUPF4hrKQHwQ6U5YcwIVTi<M9VEByTN;!&Rf|Ho33O<2lU1?
zwsNZptIK?BVr-mXgh22|s$P1Z7dd@1{?~A9rf!OoPK4?u7KQY)Gf6UdE;r}JK%oVr
zPD7CMoTBFsYm*|&+2K3acLgoo)9~cU0<m-tM>L#mTTfY^y}F@8E}d`X)GOU5wlhLP
zLR^=Lgsl~#xmJSMECdcD$fM{sRvo46yHE`k78b_D#&S81*Kc%PEvmMm@w(S9FV3W)
zxBt1%i{4&Mv&Lk8dUhZ!#p%hdiW55tVrDC<f}FGHAuGQi{ejX2cTPT3RY5_)%J9zW
z%1Zm6C-}F>{kivd^f2v2V!1%@`u9k;=|08nkk=W~OMw6%a=+{z*tq$VSIR~;l>4f&
z?7{RRFl0YRu%biR=5A}hdS>9g(HHNGdzh;r+vA?V4?n*>J%m8H#-t6uIL^08<MSKS
zmv-n%E*~nkhP~I%xLb!2=T&9iESQ{}JeP4dLMb~lQ&5;(>*?jCwX-=yka#qZHz1jt
zpyRy&0cL_N1j^xD<ucOygD6RG5przk3!FWVzSY9Uwc_2~=iZgca7lSSpd1fuTN+lo
zl%1IjDoi$B+Igs`)2zzHjB)RZVK8mL1U*yH)s>>$h&dIeTBfO~S>`lUWR>9LqNu1C
zBVkpmouusNMmWIl|8DAyl<jFD3wbi#x&MQd8>m$YW3BbU&Z8DeEvB%=R(0|-U+<jY
zlY|4+$Ntm!{UshqRZRBD`jRe}u<i|4u%MwkD@4hFnwpxVx3Z2aJ`)W=4w2{Nob(Zh
zRNEUe_8lLTo%%ndK7ana)n%-@RL$6UaPe-$xgc`BNik1`denB4NSi!Z{o2dwkqeb}
zZ5Z3@uA}|3!ooS3X65$QN6#xPu})sT`((CXmzW^#Zc*uE^og)dD<<ixZ2S-?uKD>k
znBBJfNErksDd|pu3#Z6Z5*<<l2*IpPLKS0uDhgM-y*W=UZxzK;sz`Uq!AuH)-sRH&
zp{G~Qd2mcT5uUHIv$dLf`R?oL)_jv6Y|Iks^A+7%h_bT`n2sl~eq}^StXZgx<0gWY
zAC6Wyav6xkc9ddY0a?5xm3c=JE=+0AHrBkhYVe5rxmV+-GQd*L_oxfF$~g9BP64<Y
zbOeKsC@(8(=aqLc^#;b%<-btcYF~p_Z{n{DV$!Xy`!9X#o9RxQ2<pq$>2w+_*tkE_
zmEr(nE|l*;7fKp67o>BWz)lk9W%e<S-ZIbW_EC(XcyZ($AF0_7I$h^G+nVUL26U$%
zUb!ICeZ%XGpd7%l^0Bco&m13JrP)jxed3IjcTeIDi;5O*6}lBW0M<Ya-~)xxrA$qZ
z(+m+I(=W$p_@=|L$qCr__~)aQ&VF9{`uan|tvL6I@dwSXxQ`hZn0ic_SO?KoP*gnQ
z?voL(F2x*bl6yk{a;$N{q|n@G2>>hisne&c%t{`7Dla_(v~&XX`JY4Rmq7)YnVFj_
z)5N+7pCK!dmJryPWm`34eWopSX|D77#KL1r<q)C-XtZ^!8M(so{wi)f(D@#a9<wtQ
z$}~oueY&!;0<BWy4EqOov4x!xDVlI{g=l<L?6e<R&~|>XFaYDNjaO2-A$fgZl3-qy
zrFul(Z2(}_)gQxJc0K88K5QdX#RRVXD(!c+BD7lH^T^zMvI*TzMil1`#<wqf^r)So
z1<V)X{%m%q&JE-%Zv#MGRPdN=+6KbHPk*@_HO5bf3|i1ll%9SG+u7*GQHM)2Qt>XJ
z_Xq$10o!cw-<)g?FUARf(}KtYr*l>y8AJ|$)##kdr}#Vz!cO3Ql7f>JTTMoyVB720
z;7)znot`)!wpOQER6HtOs-re2Z>IQ-*Ay5RniD|Fq`I8cz_~LHDL#X9z={_Jt`4>>
zw+aw+F|WeIj~IkWeW2f`eS3DI>Z+*doOz*nB?f>H`TFB;AKh11SGBYN4xE-mSTbjG
z(iTn4&1+32y_UXxA}{<{Y!gn~+JrL3R>uzsCoh!?1_2DIOby<grK_o_9kV4K<x^T4
zKEx%o_1?VFiNv<K*3hFoD{7=FSFI}diB#I>Ba*TN07%8+qM}L-)`Z|0-6VO6Pmcct
zFt)36{ki4zw4JS)FItj#?|4D{O8ZqE0O&0M$~R{2pcsomt+hV$FG3r?e*tP?@`UU&
zL~|c1B1c>`E>Kt=M^X8to~%Fa-uE7BII5f7aDlEay@`ADZUWcFu&|tJK;-Y|W#P9l
ziuAF#xHvof=3KsxTkUN2JR}#0j@PaF`wMOaa*H2*tLgj9#u{o%5nc(7Z$#ZWu4p&^
z{0w5fpWDQ;wAupamIQRGeRoDblicO`Ri3QB12%Fd*=Nvf=rlJs^w;T$rZBGJuI}!g
zNg&1sV4U3uf#ac<i}7^x?X>N+9E)89FC$9SJsz(Qn7SWvjDtgvov`Pyt1l*OZ(f5d
zZ7nsLpbD=8J&|IQpVI2;^*6v%^UDTpu5I__=ncI*dD##jNGr6e^9`c9qnV_gT3<?S
zb77=yq@sPfV0=Qtpjn--t8Q>`uw$9WpFP2OKRXip%rRXm%!M;<c-kP6K2_;FBr!jZ
zXZ~Cy*LA;=EO+e7UI3u@Qwd%RoUQ;LEO@J9czXZ-{iK#iK4nRIsklYeKLY5j<@cDi
zK?`@*^lO=}^)^HT7HcAJ_a%C=yh~|55^x{b>i19qI#^*AI^~5Qpc{2RyVKAXb-t8f
zd@}0myIc9duB7T+NmWzwF2j$9frA-6$}7Jxw9oR&DN$_Z!h(x6RHM(4q;rpHYmHqf
z6^5q;(MQ}re_wL!Er!aYQ<iD~?uX}SC$2=P-oa*iZDnzVPR#UmFVD2NTeY1R=mxXw
zSZ`&oltkS^8CA0STL_a^_R-QK50B;2@YCXXQ*_(@TL<{oSO93KVPrq7rDxk)AWW7k
z7@zHFadYoLGqaJ^QdsmppM^g-9={`M)`Keo9~)d*n>2AquFw2nQvD#YyIT^dbKp0i
zA=S&7vAS<f!7K$9kjj3G1u|YgJ681+zW?JfWa-s;2;nn~K6CnXwl^I07bPdpW2yzF
z)eCyJ5Vo*i7%mOPVzCZG1!i7T0GDG8|ClRn<#(<FdOt@QtxV!e+IlrmAF!IDe%_<0
z0MMzo*B*X;uRHHe9cK|r4;fnkVi&APspu2Z>~${24~mbt!quW(4^+bFK5hIcd8X&~
zaHf;4ZWq1OwsjkpL)@9l`VXlIeW^8wNlLO92OPr;BO9<{H#9U0=A`gR<Q96l`3zbT
zjzl5{8g{ms6~g=Wad4n^J&g2tkyV{1B-g(4Eu8lByu#ye3>k;6t!|(L#TMoEomqNN
zT7QWfxfY)oA8&LzO!c-NfG!=jA=u`WmEyYr?|5Q$EMAwHTMLlkjB&oPE9&9HhsA-k
zIcPrty)!=58U^zP&aSAmJL!6HmY~nCuMc(08c%klDC6P<3r$PYEqs0Hg!1xo>yECj
zU@1WE?Z}AZp^cL4Vdt37^GzD+b*DmMe$G?<_w`r?Y#by(xbEkLxF~;Ml@@DF56}1K
z_VsHB_QE*B)+RuRptkz6v#u6cdMulDrvUsxrz!b3;Z=S1d2DTjHBwh+XV$&A?5uRh
zgBavHfdHBifV<r_0^y1oDhX&Q5zJl5gx!@@8k@#e>PF4{_@TOxS__z~hLZwNr08>O
zj(%av2rQf`#&=;@Uwohp1SDC{4xHF_qc4m|0s<O}Zf|cFjm>0I354RlO|S$PnN;Ab
z$-%aCQgGhe>+TI+06~WQD5E|r-LRc87q$mIEBol{8z4b^f4W-ucQ7(10c(3OrvQv0
zAvmZt^_4C_?VM*2uQrsKnHh~8w6GVK&3X$h6nqV`hFNFxfqE9<6_R8f%d9Y9m5yu5
z7a8sw@!d7Z_EO;YY4gbS?~fHc0Yh<1fuiVI6cR4Y3=q1YHVAg?%_G?VO<2o+9zXBz
zl%^7t`bNoT?kSsJFZK5Jn$zW*U9rv~RbaqHjbi`Yejg`X0Tisw_9%jb<FA*6L_&`+
z)_RH%;<+=i1Bg+zCzy&(_^VfQn<qYM|Kq#Xqpp_-LkAN8g}$7^20cnK_N?DrzsT3H
z9*iTQzJ5$<PZdDAp(fK?w?0+r0rI*5pa-uIu=3-@{Ty9a8bB-l9l$G+uh}%c?1~lA
zd0Y12Q;5R?4a5ain!PWM@p95XR16eZq3SA+6?eapnu@n0HZ#FvPBr2dK&CqI_Rdc7
z0&ctA2`E*}>$<~)0hV>an$<Q|dZ#h%PmcvWi%yyXtgw#~DiEx&1>BV@40I+*9xVJa
z)qOS6JGI*|iqM`%ln0>k%sOy33kL5Em`P!*fpFp{_o-7ZAo^Q$t7~0z%t`V6v^Lwv
z%rO8bc0b(MJ@)H3JCHv#nw*^M8nfa_8LuMmxV9dL8w3Y$m+jM8%mTPZggAl_)iKJ}
z9Op(B$DBGI$|sC62i)rxCN4I%e4u-uUN8xV(%c4Icp#-++_HM<o2m~W`*kiKpYCyP
zjo@W0zv8~Sy$u*EOX}2NwbK%o!w%b98-z%QK%fJswR+E3Kk>L-2GycS1G4QHA+QCi
z*3fS!s|0PH#ISX-I3+>-QcOkQr|dr8`ginD>~TJ&f`iX*$5^+w)4XQgCUD>l_u=Q4
z_>{ag6ap;kFGS*jb7u8|5MT&03;0saXJ_)O8{74h2PZeQ>FfC)YR4j@&LI5X;{|;d
z$2Rao)@T+Pfe&;ouqJF54S&DZ0OW3*+l0;Yj<Vw5IPU!~X^mFSCjbOzJ)CZjmkaq&
zd?)nyAz|}Zev@Isr`by-Dk|!fq)P(a<p_GEO*lu>AW7c!e5);R!ETq~PC$|mm0Yt%
zgF!kX9F%ziebiZf4WtrU*US6>Ga1RP@&nK9Bqt@+d9+6Ig^F2JiBX4bqsXFg_83<{
zn4ROoq*G`B3rDARXvOFt%!i`)cS0rb)CQ)n`*?lL?6K=(kH>~fZD+F1MG1BSty_q{
zYSOUl1xlle5%}880|HMTHwdPH#=LB>10VD=R563a*3{9xxb#t9uKw*M>ENw(9uPDo
z*CB}s72UHyp?z^q19MnI;(nh6=*pMNI{^Le??mukuL=Z{H{YJsLvIc`;&+Ao;pI#p
zW&KEPk!q_t91f2ZL^?PqM`mo%N$%ILNJyx3xw{}jlzjJaD17aC2G~nxA%Ob2BZm)H
z?f1~~H7GVUvGN(Xj#;DNCVWLiL_BT~cmSn%4+sUiemcQINiRjI60y*v3at8rJc#R0
z15d|W3f83sBMXc}M3?qt>C*u#!CbvGmGb*xQe--i7&Ar?zx4SCK|sb{I|%?tw4k_o
z#fL6Ha?t_6b-3sFGHLUEgKB52`ki|-;SqpgEX^zAYGEY`M?icsK>^vAXb=OB*ZEO_
zqo&OdO~?WIi-z~c>Zt_W2can%_oydb39P|15j!*PNfb{3(7GjKL$m~(H%hZNBT7Z7
zz>hjU!wxns)M*3J435=!t-3XA{FDgg^BuMxqu*yED+sSARsp9KCV+U@(AfBNAmGfa
zKt9{<j74${TLBjVk0NJa{eXHk#Ad={g=mNx&n(*$Gj{8{^yhL6+W<J5JZ6Mzu0s44
zAQ`r;ktDz_wi*Q4iLSlm!Bx~&7VrPCpRmZNK3(NP4a{jV)5kx7=n)SH*9)x)4WlIw
z8*7t+uAC66+cDtoFFnHX@$X3Xg{})z(=#(zfRS!=cG$%ZC&gbJ<uN!<&~<cltS%`j
zF=0F9Q2xL#l|?{wDlWq%Ot2JnpWa7)1$M0)pZT!yg*Y72;!WBiO>E2W447E6?16EF
zlAo-0GT47gk(c)Vd31e<otVM@c?*GavwHUY$Qe32jIbire}BQt4^jX<{CGwxaJW%`
zL6}fkj0u8&dz=WC9Ygi5d#Vcrt?k(Cph0B((`B?GmkyYYyg!H>_GW{`)5lyW>XM>x
zPFnD0IA9FQRFDV>{sI1s+nTw#EoS?T2h60d3+!RDemx=GWPcwv7X-?)?sw(XE8uum
zK*~Yf3b<}^5ikEu5+Y<+fLUu7iMNa3hX&dJ&lOw_oKy%{Bsry-WUs+i3B8&1BbScD
zx^pI`y2B=FIr#*h{dvsXXNSe;Ml?JLVDx0DPe=i-3!MXLjb#&HWeC=YLmEp+|8?%+
zx#9gB-)^d(0B)|tx*C9vux9U66l}cJal^>Os?u}iN81p>cLcfPGSR?N2d2K1x3I8~
z^8Vfx12D!k5M{}s0W|9sn3hhqgG9}P())Z-Q2Ovg-~san0Jm=g3-(Jl$7d{)6zt~a
zwsC#piPsEB=dF5^Ykf>cr<H&fjg#C7K@>p1?G-DTpAHCYF+r4n-iPf}71zH#GjTv7
zDS%DYfe4pD5y?qj*<=UwIq0n^fg{Q74UBP=yLRf0jZt9uI%T6`#m0rB^lY6Z37%^Y
zK60_cH?3u)koKFUZNOcNR8~7=(%jjS0NGt-cA~>+AdhAXbpNMi@WymhR~l^Rgd1}<
z<cP$&%i>tgkPl^)RtVTa!7-3WW2e40*Jf8gv**DAL1@X4paTewCP1trdBT+~B#^4v
z5&=O!pfZgy8iH9}M}tRo1<9<KLm=1JrZn|hCK&WM@CW=Hh}xbn6WQ6lSC<E7WKyOi
zQzvRMiYg#WC{3TsFAipFG!amv_OkMFt+#T{RsJ9@hyw8)nf&h7GkoyU;oJ9GB{(<^
zDE(P}fa4nnXP7Eo^X-D(TY1;OAy7Y3R7|YC3>d3O)O6Apklx)Kq7rr*ranJEQoPuk
z6;552F2#X_!$c_<Q3wdyorb@CdPc~f^N)V}N`)>M2{Wv}cSZL7Zrc3>`zq#BRtrG*
z)R;_mp7XWpeD+)+Zro`J7>VBk@Mm@yt&gdqE5or0+aS?i54JME9nOgSqFSc`eRV$C
zcfdV1C9P^J?4x~7fKYu`m$-zq{UKih|7P7%<419}3V>a)GcEF9Z<-m;hCB~=)B!7Z
zef^%jw}uWa=!wq#yYa7VwBIe#r(z5Ca6IN1nGiPH%kfcC2>ktjtvt=YXLR5(M|+H+
zUa$Q8PeJS6{g}wuQweK{nT$fzzq+{z$rqmGhR3`ixxmFI2bo%9N~JhG2%jbV-}kLJ
z1m&VDZgs&)DVVqB^Hz&xx(lxOOr`j<?0p?}Iset(v0IRG8lGgcy`y2E1J9C*B43>q
zghL@vPLu5s%?SSA6*-RIqf|P0(zVrERaA6)G8c#6_|z)&dwE(ykBQ1U{j1VbxBIdp
zsHnyjm{WHX<r%+EM7S9h^Pmy1+TGH`yxEiKq8vKCF)H&3RjqDiWiyD98ou_gT_wA>
z_a=>^vnw&@EYLHWn-I4E)8555J1K*u1DJ}=&ANLAw{A*-vm%*wg2?^%OiT^r5)Vxy
zj=xg@Nrcsrm6*&(u&YI1d6qejd6lp97wGZ<I?iff&v}ly<}G~R!vM3f9o_k1-=-}}
zKW}yV`AZ^_-<0aY!2PWY3gUt(rUSP=>boY+yx6_ab#ITxl5xE_X3hc~YWKqAB~B}Q
zCdM-1s=Zl_w%%y+yFau)^I;b6UxWIqYn{84d*x{@2gmT8aC13uqqNJ2?@zIzZj1Lj
zMccV~jqJJ8odx}`j^kbl`R8ki!ZV7Z)8T`ij{Q@u^rv$o$36ft(=pr_Cx_5{rK6^K
z$o<QtYwX7)*-trOA}hCxBpu@$m7XD6vUM`eJ0>PFdH$t|PmijH;3hj`)==}*#_8m5
zd}(%82b#C6-ss+Aw*ZQ?z)+`AeT@{Fp<P~7C57(REC=?xTX=vQ<aST&xONQFf3dSx
zH);dr`_|`Q>+$6=yLSn=)gO7zxta3?1j6wTy8nLg)joIo4ZYu2*1%^ECO(}74t2M%
zH@fI5-->{L-8~Bc%!*xZzSzASz5D(@Zi)RrcF6u)c~=7e*Nf)=72SVcyZ`@(G`3+V
zKYqy(vmxeoAKc->zJsbSuBq7{lFmE-*UMY`xZ`i_Gu+3mTBEKidEOx^{oobsv%|+F
zLysIkbF$i#Tg^_PU4P%neRe7@crN~R7k>LTMt1^cOmi-FtM#Kkq*$RStY89yHkacB
zo6ohTkd2%NaH)Z(f$qsb*e;ZV<BiB35NLzcpY|d44OI>fd(DqvcZGxF+WkKe?AND>
zoWFkxp(F0;E*d?^-uD{>{@Vn{|A{Q_@2^LjlYKrfv!%+R5SjbO2=&AGJ*#^x4WE>-
zmfh9(b~ZcJ1BIU(8OX^ed{}JQ&)8j)n|;rVae1i*K@Yu2d-I2k&KSeYQxtoGcE9}U
zy@wi_msVV4M9vAM{c><HCLn_HHs|M3xyFAlZK|Bl*FYrAZy<;_!P(#DP6_G@&Tyx?
zngSp25pH1r-V4W5sO?pU-r%y$%DK$}tNb&sgMBG;iN}c7w_IsH17Q}XyE^f)sGLs=
zVrhgg-CUe|JHRla3b3|#^M?%6a)ZliKgsv+l7MR{68`j}+JJx&&gEcWYmpgC)8`g#
zbZ*RP!uRy<_2+BCB)+B8{`S{om}S-kG;hZUkFOm`Fxi#CwL2v4rSbZQzKhMroEKA-
zH%DMbjC|c(HxsDeS~<yR#>Bx@FOfZHj@8omJ=B4`P!k}?p^}Ehw(zu|_nXagEd$Ve
z6L8Fon#X@X#R~7*!)Q{o-hJY3_HloPk>7`4!o#Y?G`Wt?&>tX(HyX-IwG3K2JN2YG
z@Z+z|XTn8X?Aj0LbUoQFo@3=c=%R<li^IqPnf!@-m9j`F*bOK2NcQg^78!n?eb`^p
zMd9z!Vcv5I#{ND&&40Gss2)k*?a;S8_mA;A67FvbnRR?Bd;K!RI(I*Rd=%(|dqJu(
zzAU115Sl=E^H_}i#ZxO}-ctrYSHv#U{CF;<1mx%0W%y05{ZgtaG`MHmlBVuFws>*?
zD?UmvvQpHC?pCN9H{3(D%CokvK)dmgtO%O|;q;_D^xF@q<b}BmIz%gfw;|Ko+=NH#
zRr<{7`Qb(G4EkQ7Jfv`)D-CUuR&d;S$C%~q)1uU}?&7mNxm$nXAsFaP#3<FO)mPwb
zr5`hFG`K#{g!aogA*=chtzz!;oHEvM7a6YI2UT%Al|$t&AG0#(id+L_TtOzZ*G9p?
z2DFg58pY+`KcI5={`0UY$e%^#t-c4;Db6~EL|rdU8Z%>Fps=Cz;c03_p1M&QVrzk!
z57YXxt9S*U3~x<7&!CHdF=y&CS3%2tW5w}Y8CJt3$EjC&Z<C{p&<5npz>)OsJG}O*
zhXdHA@zjWt_9%Ji`o35rT;6y?3&l;|X=hcnazS=N#R*na`|C=OgsXx+SteiD_(XnD
z0sqLRy{dbBab5$?@%9W#VjDlY&lWVa>WzKDI4dks_t$Z+cYz4nU|0+4W@DzXZ-Q2y
zb+Lr0@5PU@KnJV`G(R$@juDR+G{@ehnCOCOt;%K4CklJ14;racHyf!-b@`IUQL{@~
zVhP`c&)uF8A^%(liMyv(bF+uGee)~~CzN_j(WX|Y^wKwjXY#BqeNXPTyi>o4S7XK;
zoBy)i=~1<@Id?#P$oiVTxN@g|!issq`}MXLBZX1!rm>9h0kmt)MQUu`kZfnp`~-qr
z7ufo*IaKBe)D9f0+nCLfs5_mvDp^|r^QZ2Yqu|7gjcIYp;{~yL!`H!G^8N|*q!)|Q
zs&c=<=tx~VP%4MK9K)R;4;FHuSXNANY4-9aA}8=R?MMb`Tb;HX<}~7Xyr6vN(~F7j
z%5$GrT8*%BV&sy7Xa+2ABJojyh3vk16J1%rey`o12+WXSj?N>zMv(VdjnC7RPc7*#
z_TZ{-<)r?Sl~MlGY{IW_YUz)<FLA{sdb!(3Z&ps8o?NoV!t}BCRJ82AhN;I4>-@CT
zlE@VM^OkAe9f(k6(;#bFZ!=9GKUMyr4%-qwN?b#JM5*}{&()}p1sl_J23YyLe9PrC
zMhsJzIt#pWf5V_sRb5`7Mq}?mxqUwgUn|fu><1sTWFJ2w>8>C$tT<54+tuNpsdX9#
zOyk!JIeWiyG+(8AS(j_E%fZ%(vg++0$w;;z<uD!28+k`93a(HJ@~HVf>G^9j%9uKm
z&K!3fS8$qe+)F~2KD1xk=!@Gm=!MgyWuG0byd$Tv8J)k#lx^4k?UrMa9&no6G3T?p
zRSYZ9Bl{Qj2oyJ<z!@U0sVxVenK^=M?WNrzn*6oohJQA2MCjc7{bRxwyH5-!K-j;c
z12Ezb3%O^Ef;r=Xi2VCQrDQK$_IdW_Pst8*PZ{(16NPRypD6o(yKiUNY0hIX1gl$~
ze{t8+OOD^~{D$|Tz3!nM$+s>VH?-=1oG!(Fo<m61=p(Z+gU*}hl}{8t$Nqs7j;9%K
zoWfqXpRW{1dHkCg5OuhhQlU;eOjX<84ZZ@{7ZovjK<L~qo<23w=3Z*>?pFy)m)dn*
zrp-XRR@Et9!v9$zce7EAc_Ob*=-h6zPi^0bek<Jkdk!*iEbqDrF6}Wm1O`fE2|C>a
zQGIrPE_@!BJ8m3QwTYd>$VIM3ht2J_K1>5fDPWo69Y-p*3Yt>=?Mpv?iPMtZZJ;C~
z`|T%GL>T*g5m@{PP@AC8!~We14vvDDe~I*e=+J%fp2wM9d7;MECgg_N(MfurdQex9
zE}~+>f^RI{eD^WmtlYihGWoE=Mcj)9#)nkGBiOsm{4nR=;~B`dO#dEuOva=2`{Io8
z>`wYzUpU<>FNkaKx47nk{1%<x{Ecdv+`O8{Ydlm`q|hR7VytIY(OtBtq%XeP2kJ8r
z8rl5NqX~l`EuT;4s!$srSl_~&e)qw}p0k`2tU;-yg`y(uG~xBHq0#>Vi?Mo_f;+!l
z{w&|cZ}vk_&VN2cc+%hC^2|0_>DDetbD&y4H_aLJFaWu6`pi3A1HT6;%wEIbewEdi
zX;zi(zPPiM*4O`YWLMQG%wpTR*2q!Gqz}6m@)Y_IxHN#?<#~PTLs39OljmCR2K|dg
z&R+wn)i#$KPUjg&$|vz>P`Brl^KlVwC>x(1)ymx|FB}4n#YoQ$$w#&@qUNdSr^wH(
z&drt0{jc`EJesYxeV3wm6>YV&#`bN|2_4L1Tg9u2s(G%e8iUe^DWRp>8r!N;V@s=u
zsb)zeO3|89L(GC2LWsl=At5=NzTfwI&pPY;an?HLth3Jg_R1gj&a?M^_H|F!ecz8A
zu9D1nk`m6(#Ac6IG-mHwz8lzyn%M&y)X2p`?RbOWFeJhme79+L-6xQNN1x@u7o9JX
zwNNR`wt{Y)fuesNT*BATr&@qDD!^9U$CMMLap17>@}HH9JHoCvt0M<SeskqUD=w64
zs-@IK%<ikj0DCjfcgo%SD-!hQ-+a0d2(NX4)qYPN;x)e>+a1NWCo!?2WSL{`u`l-y
z-8C)0@jJlZG6wK?RU&smyBeWOO(TlNjWWxKazek~yHf7Hi?)B(PDE~~6?K!yfIF9H
zYyBJU3gA|`fG2Jzb`(W;BFc~N-tDfb&73HT8!jt1qEd!-eeoN@&h84+iVchb>6v^9
z(4Ym(_qbh9V^~YU4*%c8;BL%YfRrhEIYT`ycL%U_{;c4@BNImaZ0(Nj9k^1}8A<Da
zizJj{?i+%CkLhK;Xbo`y{}QE>;HBo{NOiwQj9DDn#Nsz$%-)sml7O=*L`%SeR;YdD
z-*dm5>apoSjR)wack18LyReHzX3VU}z^_$eB~B0b^~Ew!wF4dr`|jK%lzd})@1EuQ
z9S(n^ZhY{6mYXQy3<s92NEsf*t|2?ZNrJm)UOW$|5$krAVvkK*1&;ml?y<&Vo8Q;E
zn-6#c#?P4JHIOpcy+;fks|ZVIox06<6(RymHp_9Bqwh%?@R9(Lw;lgTpKhT>6iGTk
z*Uvz6Y_lx2Fem4s4pe&_L$+v7UGAFhI!N=PT8qH~JpSOAq}-U+%o8FShq3x>=~q&!
z{ckJ)OKXN-5h1l%Sr@xxaKxdNIGZQ_3o792+N2RbfPnc)RZA)U^R)WBja?qsZpLu>
zr-3G#4%B2<KQfi5HckJh5rXqJpaWmV2NOnEs{g!9PT~kaJKXt49pItNd3uiVKgH*c
zd%A0!VQ|02`40J|GIU4}p|b^)Q^L&ow*%Rb!gQoNIF09pTI&{sk%*sgmN>B@mZL<m
zulaaMbJQ#cK*>8~{tXP^(OvYHONvr0YwgE^u7hbUvmV`L%b20x9s|6KoUXP7;AkPu
z2o!f>FX1XRmx$)S68aRmD>gQ<i?avtx&l^Zwhrjeh){5XmowN5ypp>oXts><qwM6N
zuQ69?zvR$+Dio>ZPW)Gtl-Z4vnZyscL8am!Vbv|9&q?%5$1IcwMy2C#C(zN)PJYKP
zYmJ-`rQ`ELnYlZW#4?%E-*UCi2zU{*sMPsQ;u$i>{u3*%$W&nj>#54S7Z=&QfnbR&
zbJ@RqJZ`b9z}LnRiTHJF)WKHEtw$S)Sp26?gLq57hZ<4ka9rL)%d>eKQU9enfWr3|
z>}(PnMQa(~3!vD4Lk&21tXTC#z&ETwX~p=byp61X!n(6+#;5=Y1(EZ&fi4{f)Kw&D
zM7GowX|7Ka{O=@7H)C|3f(7BujgH^zhmHSpW@X~lWK1GSQo{@5^Unw(k~o4bGLdrB
z890CsERqtV9{O#8#m#`0%ECX(kGNa-mHLLoqZx2=F<u!#dV$mXr)pYh)u(_T`B^r=
z={LY51z0$|qe!GG;4<*SGmM(c-?69Z4Ldmn7lI4auXQ9p*QR+&50%hKL>TTd@8X{L
zhlKJE1j9=UvTu*0LhY!-dFxx(fxLE<_)KJUZ$P;Tqt;_g&_V}UmpM`{Pv+%cT(a~2
z%~SRPkbJge2$PHwH;3JDZL)|x6=4$wpw+R?s`4P)mz>(WN?)26zmu%tZ<h4{I892t
zy6d;2AKDM>Do9nAsr97ojV-<hL^-{@jfQ`c8D=2WI&MSi{_d;g0B7?y15o_Xzo<lF
zC(#i%Xw8rn|E-;`3il0($hRWA9`5MlSj7SsesFD+hZI&<rf4s+-5mtZg!+Sf&3tvf
zAl81TW{uGRq4+!eDB=#_y>BTB>`i4?0~sy<CN|24DcZRypCp*~n|{+2n`a4}D6IEv
zv{&07!A~3a&aw9?k`_&@dV6p$Kt&p>PVJ^9z&7;af4$x_g84!6vvmZ&88vm#&B+U4
z$t?a3m{*j=DA_t@Il3F5s@>u}TVzA)VPJtEuwAKsbsWX2`AXW`OZ%z+WTfof?y59k
z8|eDip#LjnD@Lj#+aj=(U?O*i?k2p)doH9#LSW1f>YhFLT04W?Io*X+{ws$652dq#
z$?;HkW6kW_K-L2+W8p-NPU)6p9s!kZSVO$h{kQfD#eZ?!uq0SmI|rQ%e*v);kwfwT
zBM~t0Mn&ADk%JA?e^{?vixXAcLbjaHSxF<@(!^VBK8|VY?p|A-TZsTh-&H}H=spi7
zzFwT1M;C>zRm9z0<PEMJ3@d^wtF>OfUXp5ETVj%Vw>U#N96?**Z5{DaDO2B4A6%YU
zbO;-+z73|_6~T}>syBB{rrg5a@^f~;FW#)clD@Z&e0*fgd<AnY_B`D8Z6w5WH|?NV
z)H+v@?>HiUtjPN@Qp1B+eqDa*42KodJ8w*b>cwDdP~?g(8U!SFj^LJ~4a-wWPC>hz
zBtCo#XG+4+>ZdC@?oNd{)3TZLyd2;=pHs3+BcWx-fy}D-PhcRBsTedOsrZXPspxMO
zf=rBrEH*&<nZ!?)dpfkFz7JnQ`)bA*b36L`fVN3R4OQD&%cln&@MOg#>+XTwOWhR#
z=A0yAsybjPl(^@(JJbFLQvaVC=YJ(Q|H0xvSp26C0C<l7vptdB;6j3%l$gLxfH?15
zAP*Oi|FYMsz57gv;){XetgR;;v_2x5&p{`g8a{@GP+N&ba%Fp=J&m88yg{!a*22Zg
zzOYClslfRF3EByHu(21WY@;B^C3v=VLzU|@q===6JX0&ZvPi@_;w@&6oW6YTkJK!o
zqkE`H)}}@13iXC5vVRwm9v5M1GX_Hv+e9CbC0EOd@9drSDnI4ZKt#bO6y=CIMg%lp
zz`I+Li{%%LQXN$5>UJD)ei!Jh&UpgM9lSB{W-sIGd<wX0tq1+gETRaUV^Ms%h`4|&
z1G4!gnZ>;sJ}?0s{IZT0YgMK#lz!=V-(%zbPKW$m!A&5Kna&VjOl~^{fom1ff8=jn
zoeYhODAV|AGx{qpg1V}`l0GPpJWwRyRDCoL=1vU+dJ~sa#eyt>OfpGElq@1PaM9g;
z>pGAtQ_cA|Um2l?#+e&k=KO6kj{Xa?=7J$n#HS_VrsaXC%Fy6NR{luOSOdL_SjF3V
z&rYEf25V<$B}Ht}N`rDk3^cxq2>AT?5@bn06H6YXk`Ct7Z@0@Gr|pP16OZ|DZw;-t
z-Cgnrq7ftnOx0t2i}`skua)twL-|s7C=>+l{^kmE`L$BhgoKxFZtFR&Y{da_^;sA#
z+I75SDmrFK(|Pm}J6XlT`BIO~t;HZ?AqosdA4}mD%znt!OEtMDE`%te(_XY9T)^0H
zK9H<B9AO7u;dIS1A9s85Fb%Jw=-9|uCOWZJo+_9qiVLN$+Azj(SrhIPC?R7igy{k9
zIchC|ig7KMAY27A0e%p+WFN#H*63^@=uky=XaEbjj+chE<?g89YJKh%Q&m48-1@rw
zHEkN)bHCJ#7~AvC53Avwjj6tOox$+V$#G8s3o<BBDmEd@Vf-FYr0y0e5;RuDD~Xxp
zF5h$c*IEGI_U_epL?NL>$PQ6mD6vgZ+YSnATIudSfX|wT@(bDIU!;Z|$bWd|p!({K
zNipzE@Y;*kd+MncQrZ3}Z>4aaj_%b3Vw0N)JF+EDEGUs1uA&lsK<wciYD|xfj^f{?
z2l2i_+@})GN<YsXXCXA0+S+q0)m?v&sxO7S^%#;QSVlyA14$KRJMS39fjQvkMF;e>
z^QKP!2`NFtr{G4e6BZ5k7TbU4bW2QJN=awa`1jeXRG@pJy2~Kgz$9X-sEI&z_FdX4
zpvI}7h#$L$8%^9^#LTJ|x;T!9S=D;0Rx*r52NoNOr!IUWSd$B#keiUA%HQR(-QoZL
zY@I`BHxV|U?}a#srC{-LeI2u#=vPFrk{W)(Ks}(&;z)3$6~VGrVrTmS&S3CjHySAK
zNQg{_TY|fP)$HH^L0U#QHB=ycB$TpmXW47jAq>Ea#E(QBph%)n!mL1eNVql~sbQ!w
z8gS&YJQmRT%dXo$@SteWDk#5XjBrWnvxQUv+UL>eFpjI^>@!}~xy;Wcc)~J#*-5Ja
z;Rl8jV~G=Rpr42eb)>c!k8x|X8S-OykjmTRWSeo+6l<6unn-oVQS2zC)A6&x!28_P
zYY|oIb?vj(85<m#+!6$)fR&2Vw2h!+v&}R4REs2=>AG5Po*#)SbB~DztL!49?#Hpi
z22uoOA_^7M#CSl;4+puqj}$>A*H)L%>tyJ_o%8puhzEA}S&;+%1`jq#khPh<LbR{l
zt1$!UqzFe{o3IOsB5WIJjOq;$rj93qquq@Q^-NwTF!PdMkN?4j>`M^=3Dl+s7Z%md
zPiAqmlb36cGBoFAO-i;wK*q_1TAN7=MAro5Fvh))F@EYbBEyPhC$(&#HR@}}T-BU_
zHA>y{6qWrftMN}$@RPENC^OZ7nD0?C2(llX`GGzgQ<gS?K#b(ZP$ds)m4}+?vVl{H
z2;7gjw(_#6^Kyb-n<KwAzl`~&Tx!!8G=h`MN>xPH)?><Ak`}e<>imYzb%b{(a^N*g
z6=nJ|R;yF8JkM{0bha7do{2K^f!1_RBxD%?V9<&bh$T@l)Xzl*%G+InI~dgxgfTS=
zNA{V!R-T8d3-xLa5LW?hvL4O*!EQDmmcaB+v2>W*zaQdWZE^OUanSHn3sysl$ZD<9
zl49bVyTOk3K)LzQIX}<E>(Be_L(CtQ)AL-{kq@4cXO_#`(_}5lVpQmmMN5;}g*7z|
zfne(}lkzK|S?}{2eRi~v&W;Z%8{}e>Ta6l!L^a6guBAXz-?Wqv4+hW$POCzUPnq#|
zq>SAietO}@tBHAyfv_jl{wTI`fk8Oa`&rqCNBF~wg)T1C713-s^bX{DGq0oobw|P8
zX3*-{L1!INR%P3K;6?$~&cuRRXU3Asd9SaU?xy1o2u)^kJY%2&>#FTL-afH55I4$+
zTAND?gp71*(+u=So$MUFM|y)2SOe|kg#>=7;7oLXY|X@GRHT@1z=bwGahz56Qj}VK
zDD`Db3s%Q$$Ex|-*vSrUquG)oa}koDN++k<TX>Osd}&07)zNBxyrx&q!+33$nwN8R
z%q79Z5h;6!Ub%7@RgKSQ%np!O^9z1=<1(OKK9Op}*Y~jV#}JxGFc^#|ZDu8v|LQek
zz~LfRB9;n;%i|ZPp|!|>espm1u6n69F^P+!0|>R?Hys&b!krVmIp3I9&x5s~{5zO?
z{Sno7Ju7QM-wyNJjZO#m6-<Dv7iuw~*a9*&|Ev)DTSZRg14?(saa7o@K$gNyy*4#q
z1<g@>SAq%HON8ah9_VtH{;0&#kSz9|zZEq)W|(Y%CZkbPs3Q;$gpdIFG{krI3)<z$
zins!s;?hNQ1yCGsK|dm_ekDGGFP1$-$to|s%tvHG;u#?W1+CSY(F;|lBms3iQ>z|*
zEa%k*!FmA_7h|d?XqDrq%C}H$A2Rk?Ioxg=(GzSs@+5TXB_OdjcCw#J=V^uo*s%HW
z<XVv*NcA|UMp7ii&u&pWDT|a}vMoV=^bHG0k&qTh8=lvuUCSeNPdq^c!J+&UkHP|)
z;|ZrGk|HYTg)xJ@2}7kcLR;Xy=EZHnn%5c*c*@tt2LPBGRbnc|J8Lh{k7QTh#U!5`
z59gRp9283b6@b6AOi(a@4pe9p(5G6pKn;RE2{o6aRjXaNBg&_)($(7*B7&$`2^M5K
z2M4TKIGR|sL|9UtbR-2BQng6k!-oR_l?xj{VqM+UKcpPb#%i}?xlqU`*Y0t*JjPg#
zB#2hr0+O{%DsbwdC~ccsmU#tZgY#Yx$Bj)q(#Glb{8NNi*bfk^iBbC7le_ab2)%Ls
z1Er@m1k@+qw>$Zd-j+!|s$n~?6v~~8VI^G={P&STC#K7y#vde9LmyOi0sqHZFyITn
z{v3*Pj&EgVEBQjIiE0uI8Y3~rG~NX+$52BKMAClFs%4;b@}(!o?UfN&SAtrVCRWzo
z_8IgR;M`Q_#<YN=J3Bo=NxrH<jN5Q2KP|Y+mH@inke~e2d8j7>QdYF=oE4Dy@a<8G
zc0kG{7}8V5VQ+#4;B}Efox<gw?Vw_^$LytIaQ;d}e9dr?$|3us*SCotV>-T|liST=
z!W8F@M0&jhYm!abbr?JR%nIW$UhQIBx5JOk+u>gf(#l1=Z_W`B9GZb%mS892D_%h*
zHLz4T2Y*Ccm_#0+84&-@dZf>z9LDE7671vDjZp6`ot43mES>B=(L^H_T485L!Xu4}
z>?;<gNcyA=Gv<x)&!)NVnyRlRBQf4KQr@Nbv36J6MW05~gqnAK2k_3v6SiK*P~#E_
zym=t`63J2j%W*=YLE+YA-6cTpm~7moFz>D%L<|gCnjy~SF;MTP)S6d$gK3EgOKU?R
z8`XzzY_FW#`G<~%<dFoRa;$28?~6IT6xP%XF;gH198w-SbfcQg<=o?+ote;C<oFg)
z;a_#&XJmq)a<KyHP@+hrmUsAm#>%xJKMRNt>}0EveTX>3QI~aUa1BKl#woe+d?|Ao
zj@O-TsH-N`brUI3@QmVK+P9c;)@@cBDA&oR%LLjjxlkpbGc{w^>`?=hm1v{$fGI7w
z00?5OKbQ5IHfs3odgX-Wz#RNko3DZ=m6nFNL}YyJL_2hSm=$&E?{RO2b@iSbP1C4a
z<xh$#@zZ+H#>d9*Y{Yylpp&NkXv>Gnhm%XS8mDW*Q%0ofVwl#8ls2R#_d)Zg2W1~^
zex6kDA)VY#)*s#J6s1r2^s}CTt^e?@G|#CtxZ<SS{o`)Xejwu3yxSG-@sjY{8(nP+
zKp0kO%S86+)9RB*6xZ5mt<OoC1NPV#%^OdIL?7s|Obm3)hIN$0Kl|c-G}n$ORIl1(
z*R_HG|0LehRm8#{T#~G>-29802U_aPH}#qId1vm>t<ky@FL)vw5rgo(LS$uwb&9Gp
z{)`@)puC`cc*v}ylImJV@qkZF$~>z!7{wV>lSR+eN?&=coHRVgn49NBAqO7-4pejE
zClF8Ct#rCIg5%LT<s{3>Lw|#a6$3%G_Af7Hg2x7ZtIJ$?V*oeD@#{Nnfm{YFpvpPc
zIFhl0i_0aNr6R>2Fw<O-(?AYj)GQliz41xo6~tn~-qAf_8Z>CD?x#Xr`>NDW-85r4
zJ59R|Kkte;`1#T1;2;b`#X5wycrcJ9A6T!rM+Y4UJ74XV`Uy)t+spH4jB5rtBTtC3
zY+}Bvk*(}xeFdGmf6nn3sCFO{5}p{-AWp$oO+nXR$!=@e?6^~Bh{9sxVMu&V*`Stz
zD|%iPDxm=MXMX_e*t+kBR*9@dcx;M(_wsh}9Tb@PDBvu+cHXLRA)2V0hjvEZoah?4
z#q-b($O|^Go~|0D?n$jS9l2C@$R>GA_JhyUT`+qKC15g?hV2KgvWF<k+U6u+hMcId
zXMl(Fyuuix#n&`2AJVf&rdU!NBZv71L7Oq7n~<RSfcGcAZKo@<G=~e>$yW?qnd|3v
z09pI=D#6Lilq>i|1r3*zw9i#{uo+_eKIUz$m|;w-s=1TJv`!!ZqB54#(+Y7AluTG_
zv2tb+qXlxHD-bc1sZCtgW~PM3D%?5ehoM-|AAlZSp4CnY33JXK4g42Xc$^1v?kAR!
zu*axc5j$?(BZ5Kew4n%lsCjcdZrlf@+5D9VPwc_2>}&ky+g~1p-8_GaAXoYR>Eff!
zio<@z=!%r9a|j98q<=ZRdpdrr&T2q}Uc%pB^@=0+ibi<NFLPyojH^NS)$MTVcj8FN
z(m~S_rV%wpfVDFgmQ3S^+YSV7JO-8mp?n=NQ}4Ha22MrmISP8&4ElsmOjIYfwGJGn
zEK8b`*V0sEZ8P@l=D|iiL+tG@^{O3s(P-`J2j&ZYSt{(>Ggd@!<Ab>DcPqss5JgSD
zIqj&e5B#zwNCR*~j32jDsKn49MQ&0fX!DK-kUN0ae+~doB|I`n0nfTCqx{L7)21(y
zAX{sRtQQl4Npx2Cxt)z_bn;Vi#Ms&yS1mXGQHjNX1lN8DW`G%{_GqimQc~fT+b(~X
zblv8FkI@2ERwsw5&N|x<zpJ^I(-zLVM?u0tIBlA+1p30@iaa)la;dAuRTTXtDA`Tq
z@(0(hn@*%)MzRFML1&l6zxSIr64XybX(FqkU13`6<WRu}f>t#3b{m6b)Igvuhyb1d
z_;#6F=I1&1yiX1Z)-8E{Qfp-PSB#Jmojw?FYip#vyUG$E_=b&0jlG0sjDY{x?7k|w
zxLRo&7gDQg)fiUXAyrF%AuOR#?zvk)D)%k(-MraBQw(n)jK!2iHB^S$Qn~rLkA-!?
zMbU|{9O9@LS`xAtQ}!3MD%6|WOH_cH$`$Hw<OBED#?T2d$7N|n%Ret7XVUqd<)H4=
zG8}8r|MCw7li&%q@=>+9nZKk8eeskJOkJ^o6fHR2q4}_5gzXMyi&dVneT|wPLj_|&
zv%w5Iej$zSGQ87{akF>pQ=`Je|4*g6OxDJ-*3H*N+LN1*2SL`79rhuc`xMXQ<_5eu
zaia8));YnR&F3@kPs%(Iyr_Lx>W1!#=b{ORq&P2~2>tWiP0mwK{yg(!zn)oi-St~n
zZ*cOSxmX;J)YzJ~%0igi11)Yx9IkS0C)3>B*K`6+v+5!d3!Ntr)~`<+{(t--WpK?!
zN`Yp;UaQ3?)}z!W$Amj1`Z4qZ^WNS{3oNgBqY5tr7LG9<J_F((GgU>K&ezMmt|~C5
zjk6i{>XZMdVCxt6m%Z3GNoCAB>2PaCTxHJwsPRc_6(~$nx0G8Bi@2Dtj-2PS1b+L1
zaAf#PLvBlGYHUel^W!8oYYq(80GrA_0(%>~>4)L^JJYqtCb*kxLJDEsS|X|^3^8Tc
zn01eI|HO0-{NWvR0(NMEO;(6L;C@m2Bp?;z;`5KU#%lbc26N0Q^yd9DIYz4vDz{vp
z^&4ar3DX+JTW?Rq7NFPcFF<ayh<PSF*K(`y=k1FjuC)>^gsKXXz@$<%rcwrbFI?)t
z=-j7GH5HDrn?q!wFkhpbjnj))l3u_j2Hclw%+$D(ZYQ3W^MvWj7!sQoz2`>v1)HVv
zzxsG7gxz1PtJ`z*kp7nBsA1e`{(xiUuCJMY<?t`qhIS*kH$Ay$CwRlv4I_@Z9(k>J
z#5DW$$A|Rr)ivqHcF`@tgkC~_u`8ELbg!#emA3`7zwlGDcEe^v{6&KR&Do~ojpn@9
z#@wP=9jUTOIh@=4F6-|VdEbtxxrlDwe$6~gflH3|em*;iGo(*9(i4elYFqVJC`*aN
zmw?tPKG_sT@8qrL^aqo`hIj=b{hfh#xz}!jE|@Fcvdb!0^)n`SG~1|>nvz~m;4bkO
z=i;}1iy-bx7c^LO_~FQBLe09Tb;Wc!WVyaZ$F<C~o$kcvwrdbxw&CoQ6O)H4PPCms
z-Y5%`p>m)s&qK>j*dLi0o2P}bOR@Q$xDfP6%l{9`d~8tS9Rjn_fS2!l3419Qe!q|H
z?bfKrkbOFA%Ur(uwf8SM_0%}#A(9Hmgf^$ou*_wAoYRXCn?6W|H(d4x3-%Z5B97wJ
z^mzWr-aqyR#q^paN0JPR1J`C~-nPf8Iu)W-xx;HdE}fnH(a4>=>dqV31$+9_pcdYP
zuE2~-?IX*Et5wN_zyc>T%$OkWH-eO(^Gaayi8BFQ!w>EFeJ)?O)kA1z=WUGlD>t5h
zj6H-W(}eQjb@3N#7x4Y|w|zAxtD~RJ`x=c@rT-kH<<XbF)ocU~(XREu#Owt$FAcLQ
zALkqtMyE?>`k9`(u-_`^fIgIL1?_IpCnY=5+SI#cHMFCI-)6kQe&c2<W0U7x-oN}O
z$~5t`20{EtHJFt?o6ia>kzNN%<Lr3X+|?l851P9u%f%|NN%CmQhH82o8C@~VX7Gv}
z1p`3yeVyUB*Vl-tpgd8*G=L^0mCFK;Q=YO@yMQCqg4hiSt@og$=c~APjLjA^W(Av{
zGo#lci_I?s`XLU@)g^3eZ&KGNWkEP}s=q!&Z+K<n>5~8{o^WKV_rz76!zpKp&zvuu
z^_J$tYLpdzVIABjzu=v1x26<=oE@oXdpY}Nff!tagQOlp+Z6OU;~mVpSCrc8{upvO
zz))Lay!XT;WI4Z9z&Psi9IL_2S&ZuqjLauHQri%}T)|d)c*D(G;fg0Covd23q9Yf+
z_K>r!@*KYF<6sq&^)(!*71nt_pT7ZU=MJ`hnQ$UB?1%RQo>RByc=OWVXRwi5qF>zv
z%LnJ+?qv~h1!R+^f{asMHDq3CFy#281P!f-JKZ>{?>wLDcWsA_EN#IJ=_7qVxhO9E
zSCy8Fh3)uYj`n-#)(*2hGN9%Jr{ja<Hq3qha-k-*dHiXX!~u+N%ZvJ;nnL*Wu+@a)
zwT7$Ch!n2i)I<980Xaf#G*S;ShE?8&0@FdozLAjZp9(czg<XZ}?7-T?`__bBgq5Bf
zy6#WEiJTY6im8I7T#{3hX6?c>FhC-An_F0OA}A7)UYxV@@#*Src&R=kHTksM-!Sx*
z`4QD&l~Ci*xO*b(_(w>7)oB04nIk9Pmuv7v38~aL5E2@%M0UMaS7FaK61GT}MHV=6
ziyQIS-4c3Y3dqJ<Sd)0UQDYhES!5Vln}GhQH}QlHT*#h7ToPCRq}*dLVs4dRbioGq
z`Ey<Xu`^Y*r3vc9hl;)Ecs<-<^;$9E%^T~g3CKQ$6Pz`%`|4zGgyh)t;4RJYDi&m?
zLhrnQqJ4VC@zcSHBM{TB6q;XSc4NL_NT1=b>7U`lG!f}pl+L+n`6dfN4H?qAo9&~|
zehN-s9aY_^TwvTygJsZ9P-L1`Mq)17>1ZX|b6`1O!YN^1Mj#W*ETNI5WXCL{#aNCH
zNyXns3GTm+4BK&eI;+3ANDqs>2x?BY-NgS@3qYvK)?oW}&9O63D#GwxPW}zRPVOYd
z?n5Od!K{zmxTO&8`zLaebgnUsV^-u)2QPf+bBI*$ovgt_@~Bwx#u$-%Zt%B$O-+2Q
zxjXafjT+qmSe}uP{ynfBu;Z0D+S5;7ut}TK0)1Eiuyx&dB~{t`tl<7z?5rcR4Jp4A
z9<MT>=fx6jI>S8PusUN=E8pAI1BZlPaCoj&X_$HpwgvX183hg@&n!r{Uu5N7hUu?t
ze=778-XOOfo$(CQ$v_LnEYunopXdzHICDm2=}&J<LbNhtPjN~U+u`X~kXY<D%bqoi
z3@0<LlTBonSRyppp!p-r<;R*MXYh34!y@$a<XsQ1ug8u*+XU)e^HIf&x1V8|^^lQ&
zP^=uUic8Eo;_hT6N!^|}GQ56dt<mr(DGc(4c8LoMk(iVq00yGisNuC|AeC(7^XG|U
z%I(Ovt1VF@0+j4Svk{JZc(>@D(5QVUwsv4a3CdT6%g^woUFDh24`Jp#sMo7$uYS0A
zsJ(rWzN-t<X0>Ga8Sj_D{a~|3Wd-!7ZK*%9{lat%_$dRVTH_^=l!&W<$hd+>e+&6}
z64obS8w!(woeO2YkFAh=<Lz!435h%7H$2Y0`-rS-P6Kz|y{<ZaKqDvZv|(PFtV10e
zD$_p>bWU=Cx|KNkPz87XNrcW#LAxWRhFOCG!7#~9-}O2Vm*gQ!v(TS%G{>Q#jZa<Z
zp9T|8F4CbdHGWuy=A4YL5`VUNy`e~|m<xYY3#PBfq&9w18hv>E4Gd<O-JG|MG+OO{
zC76v(xNYT>+E$r>7Bj7-WXD$QH^j^^boS?X->E$`cPr-C<b&cenn#f#26PYn#y7A(
zIHi<6Q^zt{5z%3dQmUt!x55oq1GOl)*b12OR=>1fw&W)aeiEEVw|s+li>Kb~&2^8o
ze%+sny|EB1fS!JxBO)YEM6N@dxCT$q^cRec0;}!aQ4^Tr?~Ktij^Oj2qi;vhiVJ+u
z^%Ccq_6ut%XBq<es8+-AOXLu~lRS53E6y~y>){t8CkA~wq#L1zbO|o3=_@(rrdX3^
zTC-h780ubh#XUzUtQliD|GxRzv1>dR_@~*U^^hmxi?WStlzs$7RCVduhkpJGcP{~o
zGH^AfgS=wPo&C7c`^P$C7!mewFkZ}|nn%O3Z99-y4ix5Gm!(f;&WnuXEc4P_CuhWa
z{cH=wL4qK!^MOPo6jmeQi<6<<`T@$#*Yp4lf4$c*@6|x}3VS7k`jXmG^{?ecan<rf
z2dPhM*K$!cql4e>jHb$v7W07RwB7p}v3cvN^6zV(_kykUF<LjR6TTzsuh|dmBOCW3
zE2ls$VTXh%Py89{p)nBCWgvdlr~j>rApsFKdBvBv>OECX@tyX)&g1)Obk)Pil8a6c
zPHIhGx917$U_ST1Wx7w`bm#f33D&!LCA~mO(1#9fwPlRC<|-4y@2t^{{gz@zr;AdX
zngUrT1lgR@K6VH%F5V2kHNw23_gdL&f3UP6^rl|~KI5QAsNU)(?NQ)jQPm~5SbTic
ze)CWDh#oz$K_#E&w!C$-dcv=eqP4Xsm1@b&viX(w^=bx%d5PMrxn{cyByp=`7*d+z
zidfJE*)Ksa3tUWOn7l5<?Tju-e9DNYgLK93I$xPXNPC)HX*_R8>>K<puL}6=vxY1_
zQnz*C`)&ekm^hIhjvVZyQO=C73(vTG%NyA!*h&ws^6q<;Xz6<rskMEqVl>lwpTX&c
zxMMJ{$3r4{>pgOBxRW88YrjU<;Q3L<PUEqDhn_?l*VN>HOXKuouQBXZVORJQm1KQb
zf5{}7L<`cY^6O>X7g}lZ(s(;ZbPn%al=t7D5HDO+7Ti*J4a)rWicy<b?`vq+zbErY
zI>R1_>F>TIt&*HMpEtikwrWaVVZ5pXj7y(Y`ZK>@#wPX}iyS(4hsv6{Ff5`h=r%<f
zbK6Mj9X!xi@Q197j`cxbFt_T3Q0B~A;tLTo^_M}y)fwNWkK5}C&x~hJaU@pW?{ipc
zYg!PIF-sk^T*w7uI3&5lA0IrDB^_=kniMl0Lm%;4`$+pCvmDop+!%=UqP>Emb)NEz
zfG@0O5-)VJMZEo}GlH@`6&FQR*|?1X-q5or*AC~aV@*w?=}PIy+;u6-8ApL_w`U+T
znv>1S_CRz`#KC>KDhF&$#cvl~F};T>_+@l{wfkjP2R|ht9pv>(?EWcg?^B71ciSkj
zI@G7oQf{=EmUe28{#%ogmCm@&UxTN4W;5SyXYO~pd|l1aldgTN^}w*lU`Js#fl7%b
zAou2s7)b7tkWi3R@tos*4C5guxm(OkybWc?x4kB<VFU-OUVVe)_Gei;y^dygGQ7ho
zb(y+%o}53?QlqR~c^@7`Hrgs8nn$;MuDKB66xUqXC?JhB=5T+x!=f1yOHfX8Z)XV0
z7A(`_+}qkWj?G%nk$L%UvX8Mls8}rSx93C28j_9DSS{~oo&)a=Ic<33nuSI~*Vg@X
z?4tdH?5AH#+YSq-79;D%kCY4A-qu#~Yy*CBgm0R3L0k#{?OEQsZGT2oP>g@4)TR4b
z#!4Yl2VAvmBgQhmo_d$VnRz>}Q+`Bq0b21QE_XdD%v-N|Gc8AN>-)m`m~&fPat?$;
zN20<pZ%E~)AcO1UX*t6^sbt7<e(c@i(9u*yil)nUdS=p<{n>0^-c>s}|A?JpJq=1%
zFIS^nndG|Pr__0Ht_7vI1tt0!6fedWY+GLmR-Bx@f67+nq(hyQiSWxb8O|APBjsG-
z$-jsS2l_3<#kX#}(M}E;=h+Tf-~7?2@Yp=EfycS%W85uc=_DGPlfkAvjC)AhdhWC&
zc8J>8mfI%6{#j^W>;li+*(RPJT9GPj3JPZk`zLdf*AGnbeKmhQ_-*Z}-%XyMQbuXk
z^egdx0(cp6luIXvvq`W0J`tfgWfSbwmB!}C>Bmz27b@eFO+#~he!<N`%kXw)q&t(C
z<aHB6y6yc_{;7xZ*Ejc5wnb-+Uv(X2K5S*VF^*6=PeVCyc{pi+KqmC0M8`#kOg=vK
zW{qBu38caqMyqcUc<c_P1i}(RAxWzkuUp`3iP<s)Mf+mAeGp?-*-VTZ1bLb8K3leP
zQN@$ddt;0iEBwI|sqm<$_O3rGb`f=?E}Dp0({wRwzE(t6Z2T(ihLs+558Q(M8UF{o
z4;?aTe*ZD{8pDxblUlE6O=vmw#&Xsz`c)d3rh~^j+;+-ot2CK#WDocI28}-W5m9$d
zZNaK){;mjPcm{gW2QyyzF)^1^cLsWs4`hN<ldZzZBGpp|sxO}-1FQ-fA)_4|N=Q*^
zWaPCmMBY%J&u`^oS*Xn`K@zsC!jVLUvwo=sC`_pt=JeTLJWhtMm0=KeQ(1e?&)<!s
z<7UW7pY(`LTG1yOYtOApaD{(-N|!$o&x5tk_Sw>l@RjBqDJwGDu;=ZQ=}hWv6gBD8
z(k^U9bjxryq8(B$1*o_PjOJ>H$*cso&hgaRV<6uG1`g*3tG*3Ar4?badD!2fHdO^G
zbzoX_GDT@s;${Oa$QqQru5CNm5bet8a%A;Z5~wgh%jIGJ#DVXDf-a%Sn||p06B8$Y
zV8M+z{?SXu0}(|v71LX&Gf<Oey0qtyUFY80OOa@@IOZqq5MFkQGpSqJp>bLN*jIQ9
zNWey~?lzNiDu@b>e#$qYmquH4l`aE$X;Bof-(C=JO69a<uN&oAd%mojrVtG7MTha^
zDNfw5xlPnkYWLC=KY-z`E1stN%Eo7pC6?dWS%^OLigqZmS+4PEwAxLY@hX&U)6p;_
zIY@I2CWzu1dUcVjlPmgae`u44sWltxuXzJ0@!Q>@O{h})Lvw>WM<_bc&@5@rQaqpL
z(V?TNNh@3e&j2HzKG1}!kv&AeMTelDQ=}WCA{EU1Fi4+WCyeM-Ls%cow|sYBN2c@W
z_PNQ$XzXL#rurF=iUnY0kW-+B*iG`%rs7mw%0msAtu5WAer15$1D_PhmL~gAY2K!*
z1@^pzn6*$}Bl};4CdwUJwYuwLk6nF58eMbgg2WH7-O;bB{>r*3Y!Uny7W7Kd*6BtN
zZ0G}_Cf>`S0(v&xV2h_c3N!6*b%)j!ocd+&@<j_S_t_K9hxx{R{BcEBIhGckJ$gBI
zHhRImcWwL<SBSi6Hqt+ybQ5GeP@@}G;Jh~}xy$C!lgonNpZo!*`@H=40(@{v{1Ueh
zKF~ha=a2BjpWRtJf%|n;u^_#)HHJ(@;JEls{7;D)iRhY=)*j^EB|IaeemoIhsYyS0
z;MGUe*`_~X$?CBX^H{96+vv$1#mfGHXuZw3#|@#raeMPj_Xp^Hb>k_9&zsW;?}5bg
zElk*SHxB^HF~;JP4IHWxB38*&n<Sp?vlPQgyXzMr5-wjWDj%mF-uHFyj(hOzo$#OC
f|IG*>)>sTjlQG{rr=xbO=7xGEH%hPHee&M`WD^va

diff --git a/reference/as.mic.html b/reference/as.mic.html
index 3a23eb35..9ea2d65b 100644
--- a/reference/as.mic.html
+++ b/reference/as.mic.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/as.mo.html b/reference/as.mo.html
index 219a13fa..59362fe3 100644
--- a/reference/as.mo.html
+++ b/reference/as.mo.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/as.sir.html b/reference/as.sir.html
index e885313e..7fa05088 100644
--- a/reference/as.sir.html
+++ b/reference/as.sir.html
@@ -21,7 +21,7 @@ All breakpoints used for interpretation are available in our clinical_breakpoint
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -786,16 +786,16 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 57 × 16</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    datetime            index ab_given mo_given host_given ab   mo              </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>  <span style="color: #BCBCBC;">*</span> <span style="color: #949494; font-style: italic;">&lt;dttm&gt;</span>              <span style="color: #949494; font-style: italic;">&lt;int&gt;</span> <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>      <span style="color: #949494; font-style: italic;">&lt;ab&gt;</span> <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>            </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 2024-12-19 <span style="color: #949494;">19:22:22</span>     4 AMX      B_STRPT… human      AMX  B_STRPT_PNMN    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 2024-12-19 <span style="color: #949494;">19:22:29</span>     4 genta    Escheri… human      GEN  B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 2024-12-19 <span style="color: #949494;">19:22:29</span>     4 genta    Escheri… human      GEN  B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 2024-12-19 <span style="color: #949494;">19:22:30</span>     4 genta    Escheri… cattle     GEN  B_ESCHR_COLI    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 2024-12-19 <span style="color: #949494;">19:22:30</span>     4 genta    Escheri… cattle     GEN  B_ESCHR_COLI    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 2024-12-19 <span style="color: #949494;">19:22:22</span>     3 AMX      B_STRPT… human      AMX  B_STRPT_PNMN    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 2024-12-19 <span style="color: #949494;">19:22:29</span>     3 tobra    Escheri… human      TOB  B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 2024-12-19 <span style="color: #949494;">19:22:29</span>     3 tobra    Escheri… human      TOB  B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 2024-12-19 <span style="color: #949494;">19:22:30</span>     3 tobra    Escheri… horses     TOB  B_ESCHR_COLI    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 2024-12-19 <span style="color: #949494;">19:22:30</span>     3 tobra    Escheri… horses     TOB  B_ESCHR_COLI    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 2024-12-20 <span style="color: #949494;">10:00:38</span>     4 AMX      B_STRPT… human      AMX  B_STRPT_PNMN    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 2024-12-20 <span style="color: #949494;">10:00:46</span>     4 genta    Escheri… human      GEN  B_[ORD]_ENTRBCTR</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 2024-12-20 <span style="color: #949494;">10:00:46</span>     4 genta    Escheri… human      GEN  B_[ORD]_ENTRBCTR</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 2024-12-20 <span style="color: #949494;">10:00:47</span>     4 genta    Escheri… cattle     GEN  B_ESCHR_COLI    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 2024-12-20 <span style="color: #949494;">10:00:47</span>     4 genta    Escheri… cattle     GEN  B_ESCHR_COLI    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 2024-12-20 <span style="color: #949494;">10:00:38</span>     3 AMX      B_STRPT… human      AMX  B_STRPT_PNMN    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 2024-12-20 <span style="color: #949494;">10:00:46</span>     3 tobra    Escheri… human      TOB  B_[ORD]_ENTRBCTR</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 2024-12-20 <span style="color: #949494;">10:00:46</span>     3 tobra    Escheri… human      TOB  B_[ORD]_ENTRBCTR</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 2024-12-20 <span style="color: #949494;">10:00:47</span>     3 tobra    Escheri… horses     TOB  B_ESCHR_COLI    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 2024-12-20 <span style="color: #949494;">10:00:47</span>     3 tobra    Escheri… horses     TOB  B_ESCHR_COLI    </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 47 more rows</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 9 more variables: host &lt;chr&gt;, method &lt;chr&gt;, input &lt;dbl&gt;, outcome &lt;sir&gt;,</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   notes &lt;chr&gt;, guideline &lt;chr&gt;, ref_table &lt;chr&gt;, uti &lt;lgl&gt;,</span></span>
diff --git a/reference/atc_online.html b/reference/atc_online.html
index d0cdf53d..49e80dd5 100644
--- a/reference/atc_online.html
+++ b/reference/atc_online.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/av_from_text.html b/reference/av_from_text.html
index 80346da1..a9f06523 100644
--- a/reference/av_from_text.html
+++ b/reference/av_from_text.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/av_property.html b/reference/av_property.html
index 0e8726d6..cd7b47b8 100644
--- a/reference/av_property.html
+++ b/reference/av_property.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/availability.html b/reference/availability.html
index b7e8e2da..0b11168e 100644
--- a/reference/availability.html
+++ b/reference/availability.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/bug_drug_combinations.html b/reference/bug_drug_combinations.html
index 32784a2d..443dc689 100644
--- a/reference/bug_drug_combinations.html
+++ b/reference/bug_drug_combinations.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/clinical_breakpoints.html b/reference/clinical_breakpoints.html
index b1d04eca..acd974e0 100644
--- a/reference/clinical_breakpoints.html
+++ b/reference/clinical_breakpoints.html
@@ -21,7 +21,7 @@ Use as.sir() to transform MICs or disks measurements to SIR values."><meta prope
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/count.html b/reference/count.html
index 77d9cd94..5f44a00b 100644
--- a/reference/count.html
+++ b/reference/count.html
@@ -9,7 +9,7 @@ count_resistant() should be used to count resistant isolates, count_susceptible(
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/custom_eucast_rules.html b/reference/custom_eucast_rules.html
index 3a6a1f09..0db00a51 100644
--- a/reference/custom_eucast_rules.html
+++ b/reference/custom_eucast_rules.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/dosage.html b/reference/dosage.html
index 7a78f7df..8119a89e 100644
--- a/reference/dosage.html
+++ b/reference/dosage.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/eucast_rules.html b/reference/eucast_rules.html
index 314cc833..97507c6c 100644
--- a/reference/eucast_rules.html
+++ b/reference/eucast_rules.html
@@ -9,7 +9,7 @@ To improve the interpretation of the antibiogram before EUCAST rules are applied
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/example_isolates.html b/reference/example_isolates.html
index 1333a297..17bd7229 100644
--- a/reference/example_isolates.html
+++ b/reference/example_isolates.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/example_isolates_unclean.html b/reference/example_isolates_unclean.html
index 4546e749..aeb50847 100644
--- a/reference/example_isolates_unclean.html
+++ b/reference/example_isolates_unclean.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/export_ncbi_biosample.html b/reference/export_ncbi_biosample.html
index c881a868..f27d7a78 100644
--- a/reference/export_ncbi_biosample.html
+++ b/reference/export_ncbi_biosample.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/first_isolate.html b/reference/first_isolate.html
index de676e90..c82d2a0f 100644
--- a/reference/first_isolate.html
+++ b/reference/first_isolate.html
@@ -9,7 +9,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/g.test.html b/reference/g.test.html
index e058d668..b4478848 100644
--- a/reference/g.test.html
+++ b/reference/g.test.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/get_episode.html b/reference/get_episode.html
index 4a628380..89632d5a 100644
--- a/reference/get_episode.html
+++ b/reference/get_episode.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/ggplot_pca.html b/reference/ggplot_pca.html
index fdef81f1..de3c1e9d 100644
--- a/reference/ggplot_pca.html
+++ b/reference/ggplot_pca.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/ggplot_sir-10.png b/reference/ggplot_sir-10.png
index b763cf1ea6019d58a222f8c29555df8db608d8c9..478231eb22dd43367ba85c198bdec0cdf6169a0b 100644
GIT binary patch
delta 1626
zcmXApdsvcZ7{<S>=GAOjwzYIl*VU(ub-+qvq+pwC0lFyJ5=GHz&Jqt@QmH9oxy_u3
z_0bF!HJfNo#nAlnMCM@`HgQV}6Gb!2;%FF>ATV&x-}n1_@8@~m`{gR_DwKA&a<8w*
zX});9XB{)*A~(d@e$J8*WE#i?M_htFfDyq+0wHBMIObq&Vq$&tt?Oy8?SDgULW1Pg
zM~_^I>im4w_M4Y4le?As66zLu@;7<+9pH^R_T40J+#0HK3HYP<%{2FQ(6+tJrOK*~
z=0#J~mm2PTrzV41)Vpiwu3ucd90x_<sgn4Xbq!3a(4b^}>Kk^b&<!(r!n>U2?Q*Aj
zDc7(!UmF$EX9z1-(6;!8C}^kak&1_g_RJ!qq1{PxESj-%_48KPNkPNbBclYkIc<|j
zB#N^Z3RODj%T@+1@<xL8P*TYg!wLKD42i|+$dSCW#awRYpK62QFR(w@e35g~o9W_c
z)vJbwhmn?NUKk7`K012ZaI8+31MbC(J<|O|Vk_53LOGLJyL55BK0dkv5LLZYV_rNb
z4uWbycUk)x#UP19vZVV|#D<4PKBO~t&dkO$3Rt>WhOV5(C=jPmBSYk4g!)Eal&j79
zV6JX8@PAzyMKQgKo_L@`{FB3H+5q6*XbD-l1^~jlJ)uqxG_&;9RWKR2ZHqyTjxHQ&
z6*`nn#llTl%ct)@IuAC0U7W3IcOU-mGm3y|>f}fI%A-MZdqS^?{e;~PHrXX!A&>nk
zb1<7zr+8O8X8!Sk4n7l+-218;o#NC908B4Cf;Rx{;BRYZC2wBe+yG}leq}T5Anm=r
zyEQP<6D^o}x&i<KOI9I)d((zMf^Zysiv8@Rdd$2>M3lcNS|M<6P<3Cu6Ju2YK<lNk
zGimOhdSx}S8VM;Bj5(~LRZ>k_n39zXz8(0ar-G=(K_5fh?^66kW-v9D`Oe>x$^&nt
zN;EWfCPGBQQwf&#dlJvZB*@=mF%{~?t83{;Z!E*fo2>Am*`EEK3dQJNow3AVTEt4)
z&^Zc??2*sDSM(h@>;}gX4hAnPfo`d=dJ5)^Z|?YP<!Sl*fpc~?e=&)q{UUMd+e;Hy
z941FGRHpHmzAvkCVW_IpLz+k%puiM)`bM9het@K;eMvMP$?isoZ?|#yYLin3JA8N+
zi%%g*=3Q}30$Fk_L?OxCWE<B|ZR99t4h}*8hoBXe3np5+I<OiPZ88xfAU-h*uX*LR
zAUrmQ;br4-on=#rkByG=QWt&mTOt!^B+jOLq}lq*7D)KL8Lc&zU&gxNI*qVJQy0Mq
z;jz6;Qy$`Hr!W>4HfCat?1uoppmMuf6)=7F;DwKESCc*46?6QX3{}Acmc9=*R=k!g
zcID3%t<aN;p(WE%j6P_9(xD<6mxwy_ow6y+o__jm_E6j-i;6jsHUIn6Y9Kpsq$AHB
z0P>&bjU5Ktup&C5wA$l^N|sc^=HhB49bd%uHcJ(w{%o$2Zu$Vvdf785F@&OzD^uy*
zj#_xA8ceoF?=DQY+M#onAMxd?gz&R`x2`%k_3^?iV_I5TIq|);tOdhy*jQHpb`kJu
zY#9?;ORaz&Bqqa8aN0S)m+3#b?Z!Xi#$=MU*48-Nth3GLRTeiPLZNYr)EJ*pPh9$=
zg%L@(0hfK4RYg?31W_Z;DZ!AihP{Mr47#0E-tRX{_}knDqr@9fH!rOMfKwYl>wJq?
z0WCt`7m3mW1aIwOeI6!EY78bYeQukoiOTz9=G`J?c19z<=|!}s?>!C8`0MEbpSSbp
zH;h|z#80zjCGb$kI?ZojB){L@zR!%|$<)5=On70iifNi)K0Zr&FZskmS$@guDCT#F
zl~=$?xApVYV5IZECfkmHqM!3XB=721CzxtiC(99{GH2y9pTJCk@4Ft>!l&hGYU%Mv
zLhypXWxfq7NxRNc75CE<6eYus>~NAX1bkXDlLiSRcIQCiWnRpS1JvT%!gDy~p>xq1
zXD6e%d{jLo0u_*Q=!8=zUYoZ?FTJJ>w>iIcU^(PFbK6;Q5ZA@Ys3_MQ`n3;R)P(qV
zOiz*<%qSj9W5V+TE&ID1-aJ1yVb5OLDQW`?Yev?Z)1djSciq`PZaTSnPHynWtuH-=
Swo6+6#PA0Xf5ZPe>cW2lhDgr<

delta 1623
zcmV-d2B`U;>;jzZ0<edm0f4iJpu!G+TZmm(83*wHnV5RZMN(=FrUu&-sShP(^3qac
zMX7CVtYWaB_~-@27mE)Ptb!=0NN{{81S_bJkXXUYG)$}Z!G{VOVxUs&1u-ht#7IUv
z#?WZa@nNmg**$a4nMr2iT=M(DVePZlxA$I~VKKuun{Q1_98Iz($!j{D&f)cc>(`&#
zwQE=B*s)_5TCLV|tyb%{l>bnFYDpe!1+l(X=lWX6&(-=`Jl2=>Wqn;ft9^Z4iEAsd
zzLtZPxV94OYd)+mV5vy(^0M*q@n@%}r?<7+?YolfPx+<PPBLA0SRHG(+dHSHrw=UY
zL>tD($DgXZzJ5N*@svLzrdq9k)+6n9d*|fj<ja3JOioUo9vK<Aq0{MnFUeGr^GTja
zvU_}d{DIU>23Dg>{n<`TOnfcLO)3AWf4-hGm1H8x2S-OoZ<&~w`1k+wSyn3RYjv)#
zh5THtuf=11Szo>9T3?H2HLtHLb!{cq*K)8D*H&VE&4={`000000001y*f)Q$;%rKC
zzJ6Z6#B%`vfE8_IsV4vca0MGl@?uJ&^OJMLekU_Y(Ra=fd$h*wTj&HYqqX$|00000
zuword(n<2OIpY3a<2p&cIwbD3jkpgi#sn{eO_`aaH+TU6004j$>m!*-cD`yr%r$lV
zbZvh><a#?A*W0{!(_B;%ya0ayut=0>003B8Pd1Kk91ydkwqr@2PI7&c4Fh7|RofSn
zoLuni004kxO@bEyU}^n1rCx55>>LntPi=pm<VW>*`+(RF*Y;4#8?pcZ00017M%_BR
zj|~_<RmayQxxF5LrBB?eGgJEDzMipG${WI;P4Z}x7m}Pyaw5rrBzJ#j_&@*mq$HyE
z*6$mWd?CqGNnXnAy1>^Z`F4^&Ciz#ABT4S9^H8Dz00000ST(wJcrRpj9p0<!*faI}
zhWh>aKG(S=gX{0!+87)3IiA4@*9U9NSdurVByF4Lexnh)d&oT=&P+{V30?pI003ac
z+nSk#=i7S5?#%2rc29rQzV$t^pR4^-DR0U)ji$V1yS<(_Qe)O7xg%xcwoYbBK=kS+
zcz>KyR$_0GYx~^i=Ek!eOtPikYi*L-Qr;XMiv%wK00026N{pnGIp`$$c+c40+TX0t
z`}Nv)dr#~yYyZAWn8U`D5)7RrZ|pPPP4IT={RjC?jrmDtCx3sF@<wv^StWP@0001h
zRiRsl_ef9w3$=e^qwn3d@5_z8t1^=`eg7rS;YdCI&OT$!1n;^5=WlMrymiQZ_C$gg
z00000SVfw3c-Pdv?q*~sdSbi%&oug)r4imV;2vvJlD|Kw=blY@Yq$I9p8ttH=XMjk
zM~6H^H}QNn{ojAy?Kf8mUH|}CfZk0!003ATPu6xM$qh-KOW8CnDR1{Sok?;srC#s4
zlnu}BsAK;~a;neuHzzrk*_*HRvv$bXZ-<O+t?jcZ$=g9r&SMS$0KhzqEcFBc07z0c
zE<0b3-%;DUYx~na@!iePZm#X_+8)a6<Z3I)FH(}bPp5w*gRf3W<aRe(YbAMP9`igq
zkC^rx<HM4_006*6kl+OXSRUFb8<Qo;eYL&6w#WO#KUUlKq$Fy)N#RHP#BNJ+V?Dk#
zCE0r>$$#_8Wb3wh%yU?B_D{9FX^v|QDj@*?09+&qUI2jQ<8W>7NqO6LOG-I|Gks!@
z)%O0BQVoAyzwQ&erM7=aGCknl8<K3ln926>yV|}kGvylkdEWx>0{{S261)Ha%SX2k
z@0uiEtjC82#QrU%-tOCze7g2crGNe1f7W(u25)Nit&5sze}73S0g)u%91!z{Bwt#D
zdjS9d001m2BS~ILDTC1c+%+Wr;hxxs2E<*J<XnG^Ig;cpnW?*bU6TDNiP^_%%xC&s
z<H0&MHpesUXw2vPNv^H^Ym$s6Igw;vBW6&-82|tP0AR&Am{%rkuNe~ip`O@#hs3_O
zC${-Hm1I+r16g>2H%UG=<X-#hGfD6Q0Kg(pq5%M4c{$uTo=S3hNbIkAz8@VD`*_Mm
zYu_hLsq6cnlsdi-B)LBQ>-=7-AJ%I=l;p2T&L?>yrC#tylU!KDdjXSS7HJnt<9~18
Vn{Y!aDx?4a002ovPDHLkV1moKC+PqH

diff --git a/reference/ggplot_sir.html b/reference/ggplot_sir.html
index 3fa62afa..e9ab8e65 100644
--- a/reference/ggplot_sir.html
+++ b/reference/ggplot_sir.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -183,10 +183,6 @@
 <dt id="arg--">...<a class="anchor" aria-label="anchor" href="#arg--"></a></dt>
 <dd><p>other arguments passed on to <code>geom_sir()</code> or, in case of <code><a href="plot.html">scale_sir_colours()</a></code>, named values to set colours. The default colours are colour-blind friendly, while maintaining the convention that e.g. 'susceptible' should be green and 'resistant' should be red. See <em>Examples</em>.</p></dd>
 
-
-<dt id="arg-aesthetics">aesthetics<a class="anchor" aria-label="anchor" href="#arg-aesthetics"></a></dt>
-<dd><p>aesthetics to apply the colours to - the default is "fill" but can also be (a combination of) "alpha", "colour", "fill", "linetype", "shape" or "size"</p></dd>
-
 </dl></div>
     <div class="section level2">
     <h2 id="details">Details<a class="anchor" aria-label="anchor" href="#details"></a></h2>
diff --git a/reference/guess_ab_col.html b/reference/guess_ab_col.html
index 2be22a79..5baa1341 100644
--- a/reference/guess_ab_col.html
+++ b/reference/guess_ab_col.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/index.html b/reference/index.html
index df0eedec..c1fcabc6 100644
--- a/reference/index.html
+++ b/reference/index.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/intrinsic_resistant.html b/reference/intrinsic_resistant.html
index 6d67f3cb..c4188430 100644
--- a/reference/intrinsic_resistant.html
+++ b/reference/intrinsic_resistant.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/italicise_taxonomy.html b/reference/italicise_taxonomy.html
index b5d10f6e..bf979302 100644
--- a/reference/italicise_taxonomy.html
+++ b/reference/italicise_taxonomy.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/join.html b/reference/join.html
index 7a9e6212..4a7e5cac 100644
--- a/reference/join.html
+++ b/reference/join.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/key_antimicrobials.html b/reference/key_antimicrobials.html
index 0351f977..d9a967b7 100644
--- a/reference/key_antimicrobials.html
+++ b/reference/key_antimicrobials.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/kurtosis.html b/reference/kurtosis.html
index 20a94614..a51fa7ec 100644
--- a/reference/kurtosis.html
+++ b/reference/kurtosis.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/like.html b/reference/like.html
index a4bb478e..9f8b4961 100644
--- a/reference/like.html
+++ b/reference/like.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/mdro.html b/reference/mdro.html
index 0af04d20..ba0e7f5f 100644
--- a/reference/mdro.html
+++ b/reference/mdro.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/mean_amr_distance.html b/reference/mean_amr_distance.html
index 3347d5bf..2d17da8e 100644
--- a/reference/mean_amr_distance.html
+++ b/reference/mean_amr_distance.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/microorganisms.codes.html b/reference/microorganisms.codes.html
index 11feed79..240cf39d 100644
--- a/reference/microorganisms.codes.html
+++ b/reference/microorganisms.codes.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/microorganisms.groups.html b/reference/microorganisms.groups.html
index 6d262e08..8e2ec732 100644
--- a/reference/microorganisms.groups.html
+++ b/reference/microorganisms.groups.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/microorganisms.html b/reference/microorganisms.html
index 54a4c579..5943b410 100644
--- a/reference/microorganisms.html
+++ b/reference/microorganisms.html
@@ -9,7 +9,7 @@ This data set is carefully crafted, yet made 100% reproducible from public and a
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/mo_matching_score.html b/reference/mo_matching_score.html
index bbe8b543..fe100697 100644
--- a/reference/mo_matching_score.html
+++ b/reference/mo_matching_score.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/mo_property.html b/reference/mo_property.html
index 3536067a..e80739b0 100644
--- a/reference/mo_property.html
+++ b/reference/mo_property.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/mo_source.html b/reference/mo_source.html
index 5dad8ead..c069fcc1 100644
--- a/reference/mo_source.html
+++ b/reference/mo_source.html
@@ -9,7 +9,7 @@ This is the fastest way to have your organisation (or analysis) specific codes p
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/pca.html b/reference/pca.html
index 165c674f..c034b48c 100644
--- a/reference/pca.html
+++ b/reference/pca.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/plot-13.png b/reference/plot-13.png
index fe5f2472fd9c9f37e5bd42732ef2b097050bc018..20b3931d58073cb900902532ee9cef07739fe8c7 100644
GIT binary patch
literal 55743
zcmeFZXHb-Dw=LQrDkid^NDzri5(JctN|2m$QV_{OBxex?K|nxgMS_CloHK}k5=209
zjxC|dIdkXh(r<tJ-l|=7?vGRF?Al$+(xr6w`=mL?9AnJqrILcwxzm)VQ7F_o>3iZT
zDAaKm6zZ4}{t5V-!KjbR@Y@L^St)V&9bP+kE4<;iQ+D^XpP*3G{>U$!P|S)63UwJJ
zEq+_gC1!ru)rGYCP;}XuG}?xZoxS~Zpq;)}rtjs(YxoqUA1-s~iHVD4`r3J`P>3y0
zsF#l6o=$zE9@ZLk`i*?QW^FzNp0;29d6^_7opR<UUf%0XJ51K$?+PQ5uP*hjO}R3~
z-Y^w;@+g^qXX^W_c%nN#0sne=gwzh=5E1`<DK}lOl@<T{no4{-#(3rLYgJipndI*e
z67R4uxxD<3k0B$i{QE9(ago4N27ljm<qB;B9_PQ_78Yvci~iT!8l|}Y|9_nb3nwQb
zQ-pN29}z)IFeR@{RDZrn(6`CCfuan((T+qZ;p*zZ<jgIKKVQC6Ei*#k6CjiP;e%Mw
zs|KSmObp}G4K*dD4_7(tGym=9L_+@SQD4iwc;k^6J`Nq8fb-(~g5BTY+%x@On4po<
zV#;Lm14U<St2W4WimhJe=3d9c!@GRt3a<QnzJ?&q>VW<N)5)$hRiZm)={I1gD=RA(
zxF6y#)*N}^9Y6ljZDVexC+m{P;kL0}xr4N-uzrQp^QMQsO%K1o*l|#g3NFGsTriQE
zN+mY>@Q!g?@4ZVSE|ceCZax0;KsZG){_EaSP3W)I_lfqHW*Efh8*M_*iY$BYD3e*A
zQ~y*QDzb|YA1bji*G)`D=690D1(j31d#%{2AGe@?-YM3t%x&YE$nFfi&}N@8{;5;9
z#l`X9sh*dX-Wn=*Y{@E@45nlp^lph_=V)=8xMkm9#h2)PbjV%pzEnk_nXPx#v8vd>
zV?{#yXn$vISZA||IsQ${*Kgkh*;80f6Hwjq*&6kxT^KBpDzfM%A|dhhr*Xr-`{Hcv
zK#^tG`}ev7@?m~N+#C^2elamr-6r|@`SVd7GHq+0GDA84*?kFuFD}P#PRDx(x-XVV
zq1xAVsy)gqVqsdYT)(bVl#O%jL_lUH8`{xvzE3$yQBIBw&7n`?IM?-9d+9Bgv0nnq
z9eldgwY7#1x1Z@n+4korHGcoz)n(As)Rdr}p^-kQQQ>4A_V#URnnD#z;FZI@(WCNL
zE%&bnY;U`SMMM~HIa|7)=e3`@r~RliSze(xtM{>*gSX(5y-n+igXQHq!XVueo3h^f
zl>58b9D8b*=g!I@Sb+HfA!g<jt&0WyY*8Hg*DQLovjz<4=;*G9h!{9l>1?7CSezV9
zO-(a;+>wtm>6-D3bD20I`?Jx{Pv9HSMny%v@Tc{<K*4FymGxs~@>`;2jzP2}6^B9P
zg>#qqx`fgl;F(;OYfnDjSv5gplI7m{?yODM8Rd<orNn(H8TG>Ed)&E$>$X1gvHVcj
zeRFKFV(IHhmAiTi6EpK<m=sNIPnNEF%bdwf`$w0hsx7@JWwPT{ZW~`T4Ly?v-Gm=g
zm4!z~2hPlxmC=?vFNGZJZ6#WCr<dnsn6yOYk9_*X5F_HL(`i5IeN+`g!(&E-d+b<H
zq;{Us@!hSZ(5b11-Mg@)?HQV!9&4>PDe1Rps@fv*MXLXtwnZMf<=xz-2xfXg!AmHm
zB$@MU+WB~BPD4pAFA*|{rwJ^LO-;3tteUwdE##Fuzuw~$5IE_KzBqU3y7^Crooc6r
z0j&}nYHn`s4=kr)jUTU0Nv~sj6{E^rR<6MFX3vJt!6aPj@9#J3Og^`{Fz7!&Z^aVm
zJ2a#>KT>rGc1f6tKOt?%+qW02hDwQHd9+IH=&}uK2!a}LgBpBg(H!GRXoGN!^WxA;
zKR>(_Y_-P@H|$+z+i4<l@)yU?kdMuEXIy{Zszi2NTU)!Y><KfC*Y<-lJ=lbHlV8tu
zTeD`t^BdLr9$)p0V3N;u-?HhK<mczVckiB95IH-FtT@SFT_i-0-*uG%i3$vij5sVq
zZI(TmkFmu#i`OZGU9edtQ+uv!ztTA9{XS1MMPT-b=_O0qMpKpP*<d3~x5Z1@*l@sf
z^;>-nzH~G9LEQ-+^Pl2T)B+AHKY#v|$z?RDBb}DkrZM~z-JKb13F(r<Gc<GJDnISa
zbR;IFvx<r$|Jt}4&1?B<_2&{C{|ec3@53Eae~cAp|H;deuP%(QJK?6Kr8RJLhXe+a
z+_V|8(=t#dgE&Q~z1gj4=%|woK`&nq+moel^S;4|xJ~q^l1=nsBT<UU#_RZa&M$R!
zm|ci1jNcy>boQM%dqF8PR_0023E@zB%@VV|O4owx7tY!rn#Ox-q&u2Bj(<5`rV!D@
z0PCucoa;9jn3UN<>k_N}E5){>iw@Q59iE%x{<H$@*j8O0mpP%1we3F{D`Dc6Z?C_}
zqesoN5FTsP91q}dmU<nOd(=2B=s+ChXFnRS%=zfPwYYi!CoHu*q_Ody$KlTO^4i*y
zTQv~$F7TMW9v=1DUy<^A{+yp}X?oiKB`I_B7OO_4oz^0R^zDsaLmbrM;o<hqbUci>
z_Woz*QBP*h7Q@{8PqPV|kRz{euV#Ax{$&UNrxQD7c#2^aXWayk!H7+N{fG_v5i8gd
z_7Osv6TPMIY@GXISfc#e+FG7vF9#YkIWaM{4iPMdCPz_ZhXI1asg$*>vnP%{YK>+b
z^*-3>)w#>58YiIGJn?tf<q=%9*t$56RcU@<m@E}xSFhQhN%p(2h3`Ck_-T$?HCZmK
z69z3IDfyyh)wbq<@0xo0RK8q_LhO`-nHh^tkp(8d()tSvJNvmu1!Y?A7-gdxXPrk}
zrBv;CSXl76xVTmi#_Rmm(O0hy?p0N<{SZt?r<}yY8+%45(r$g=Mk6J0itf7Gx><kJ
z)2B~wxh!9H+ni4u6e!HCDp`R^i;Ze&X{n3he=@aqc(8}fKWvU<P4qh0MftpWLpFuM
z%&O$X2|32Oto|L+6($$Y0a!!M6k}uKm6Do+a}msnU!NX3sTPqXp)IwD^I7z0M^V0o
z$7ZN+v1*{MGjl7{F$t!~z8unCdLn&L$aOXr78Z?1kizT-oVxO&ztMW@DZ~r8s;t>B
z=2I*0u6HV0>LgqCW|wCfwoNu_=;%=HuFpP$Nyif#uNL;)<)QIh?@;+R&oStvU*jcg
zGg3L5I|M2BL7o;0Wj#=MJ4>fX4f_KI29b&A(xo5>G>IBnI{5hbK1~nv-D3rv6*yGM
zw;Y|&DL+URssElswSZFww43dB2_L{4A@|~-;Pj7IZH?3!hYG)dI7`RIb~dMKlM>nP
zb`LWmiEx<}VqPz0(Vy$SaP|a`S-V(ujor9!%c_nf9_861=X;Xk;%0$&TdO_yrq&}A
zMP9ysP2}h2cNtdh_U+s7IIlSe{f2ySj!oHH3~H#{!LRuAcH!ACy)tZeg+tKooXONw
zo8j_tm>@h9d^!q&7sJk@S-L}u5P6H;Sw<B_52kX5;0M@JzJ*X@^A+gu9<{{<r>kcq
zKpNcMUu#1)@2BMCE25&b$B!R(;?&*Q*-7f7Y+LSfok*Ju`V;w2!$zGfcbN4pEacgT
zBnm;uU*DHUSeW|BukW|vqlsx~LLfc!XC}@tc0vU0sXV0QwP>7$_>DH{mYj?#uA~o4
zXe53o_P~f8vIm6t#@1E|2!s$XFfDv^rd5V)sL<hOC1!&a<<n_dK0YY@$@a-x_UDad
zWKP2{lPte4Qu5n>iaA{JKGL=Fvam>}lDFoe>?nI;ir%O?I^1)CGuC2~-=iNVqA2v(
z<4<N*rektp^?{EQI@({;s&HaIefqQ=q~A>45`t$Z38M(H&5ey>OCwcWFchN}3i(gz
zj270~v;-%_Hb(MBK1hZ4MFf6DM?@r=^D8o(mvyH)U-YPza(%A*jMxK`9OXpGTTgzy
zT6}ETovD3e=X3QxNp`@ddZFsIq5A?aT6+D4>5uzAKS{58?rkpQc^$avRk{$D*p9wv
zFoKjxbf;0%!J+Vn?x)xRPurFWp^m-3hbiHX+_J{?6VGq}pGa;k4(Hvk#hsd(8Y^fM
ziC8<@$nidZNqTmA+SEDYIee=;R)wr#v4>!5=!xRh#NK##4OjUp#tN9A9XfaOJwL>Z
ztO#$9JzK3B@O+h(ZBR8A=8`F6Pj&u0WXAKX8jZ5s1^M~Qu)oLq@{DPMhc7;>^?`KJ
zvbFZBHKOwlzFeG;b~P=Z)!UYGat=L~ls&)<02L=`kG4-PR`1!s*8P0{I+<*=L79D0
z;rp@IQT|bB!D5`)HSy4Y-$}Z)J9~SRStTQP3LdpijczWD8fNMZ7F%Nq3-%(&)z_cO
z=q%Cd_WX{ERZpfBI3*{v-t$>ctwV;&G=B$K%k>(Se<8%Ki)T-GYz;dHynKnHbZfQL
zyfZmEY6EX@Z&@K;M1SPc7L4Pbv@{N?D_g&!?-*WCzHrFb5b6v8Ts~ppVVgpC^X;7-
zI)J6sZQsAE>HmU&mu^z&8uw=X?+QRTTe?6fx}O`PATQ6(S7TV?W$!jp=^7obyi{{k
z9b?mxa2yVkMl*}B@$y)$z1w_WUSmtknh{UK#=@Ycg7^N)xAa8zGpA2qfA9rQ(I4}A
z;PF&Id_3*M#Kdxst}PCVjr@#Gq1jVvK_?dmNzKJ_EJvYP2d>zI{C>B#VMy!RlCocV
zoE*}c9;)asy}Ecqh9q0HcyGKhj6NM>EyXOTO7kNkoa%3gau$I2t7c$8^EH$<=PL30
zh=^x!7@N03Y?9iu^#%R>{adyGFWS4t_cjDk7&io-U#+svFR3*D`RP<Nk2x+1lCA)f
z0(L%{1Frj8u~dz1T3)UvRr~<)4Rw0STL=I`#YxS6k~?F;H%C6VzQ5_HT{7}5?1q<@
z*Y<ot8-QEd#u~?&_S<U#Cc?qgf*K021<$*>y1u<(8nXZ1`pfXeLGe!uSu|Arh2{~9
zr*>$B-G1k+Z;LqQ66{*JC_p5tS)B+3`d8?6=7w?geUgrVviYfq=kEQ<ufe5G3zXj<
z-SGJ$eqU1ZM6vbYi)8utS0E&zh%Q_RfOt=l(K0$Zx>%i1bGXY&$!8UirCZYMpM5pZ
zcWt_jo{8z}qRJLIyG|ctO!FmCQPE6;D#{ag$H%K5PfChQNQ`IXRDS_<zCh9sA@QDq
z!dF0!9YvO!L!Mj1T7_m|Qj<5{$-NbJFZQUh>gO)B8Kyi*K=nHBJQ>+#E-qp~bDxLG
zo;d2)#C;2kK1IsZH*8r1say-nA(2Z7$|W|#Q+c@%43JaBbWhNE(Q50i{|(RG^{~!(
zuidLg#>S6le=@#%%gMs>86fvcGi%NVz_;bLcaIJaFzb27-`XMa#Rxdc*ht;JjiV5A
z>nSAW@kmXB4z-k&9})RN|AOuJd_7cbY_d^fo0ba$MI2a9fT%<1oY$_&d`e2<&&o0W
z7LspeWRx)H1ldtKikACffQ4&NgAs+IlT&eL{;5-^zQ9B-@CChkr52o6NG3rHk*u4l
zv;HON!U${NMD9o!y;L(doY8B1hD($8u!nIlE&84iH(0gnBHP<P-lewbg=EXaZp-&x
z0;1ioO<0e&W<#ZU9^QxhuKpY83!J)~RqNruHrn2D)h$-By2UZa?TSkLfxt)p^sukR
z#86&G2hKu!^99k({x4n_!7fOrw-()-zkwvB=tb6n6h&GnaVWbpG<(UOl@!5Ig2Hj8
zI|Kd8<OKnBAUwD0_4GTiSGDpVo<a_ZjuS8#t6s%Pn6$}z@^W%#qu6zsMhU3}$U0LL
zIn`qqT_%HX1|GCN<o*cL6diSwG8m%D$%Mp2^%k$yCg$zAjGVEhr6s4B?C<fShK@DI
zPoAWwqr-usxkE1}Zu(_O$iFIMX-3<VVvN0|kB#>M#2`nlC&w@}-uv((Y>b8^Su_!p
z{3p&)et?Jq&rBiUFykW=S-7wW<ur|=@CI2=wtf%{&3O7pY$+5rzR#X@BuJcbnC~M#
zcH*qqaJi#!<@4PP<-`+!W}ZX6V1#LoM4r}bZ{a2bGjrYOC@s{X;;=3qNwO3Uvp*$9
zE|stWHt|^RkaAfl>b>s1X_cv8LH;e2RtkWyPKix0gifQ+J~*k$i7&DVKd*K@{*-Jx
zTAiwrbUMy$?kei@d)w-lgC(}cL#2<)yOx^iLxp?+n}7QBsj(*b0@s%;1}iPC3n5he
zz7Q%V;fHJC1MN2E)B&b{gisEZ?6KX=g`m__7DX%E{ey#*PDRlNu*Kirw52Jw84iTZ
zrk1619s*>&s-p07IQ*9x81SHYv+2&7cAd!jn^|TQ#+m(yMhJZWQbPd&L*I0H{)1=x
zUt`b0E``vF5{Qb{sMHJ;TVogGucG^^|I%%X5B>{6ZQqaR%i!(*_};L+TmQvR{~yfu
zJ)E9s2)h1G4*t94ww_v2w{k&3nTVD)6i#;n>@fTH)KvfkW)|!`zr@<lZzsUoe1>!K
zWctSlK~g=`NBnQ)nAT@H>gYGH{gQDZ-J05irGPsLrqRX2kOA*=zgzx#$@UGC+?52u
zpHQcmh;s1r_YaQ0et*qg)B_L?d^N%ZAnWQMkUC`KTjE>hh$ScIG<c<H;CdX{%=hl$
zU(?Kf1@V5esMnwlvhnN4NQ{Fk9UcHZC3wA1Mzho5A#{jooa+gwvu*=)9C{?h8PqVb
z@Y?f^gpiZXQ0X}L&eFUiPyn|6Hl_!=8&HFMo(vUTTu_n`$EPb92cm4fQDEI7F+Ttq
zMiNAlhF_7z!#_Jaxs2-Z$;imY>Ig;I_(X5qC=j1s1;iHEeV&$<bNXm=&^CIa!Vw##
z_oypXIU0Snb-L^Z@O-JS7$FBOU~tAlMGrqq(R%tJbqEyP_@__bQBxy>Z5QNyfHmA6
zJv#J1L&4F=IYAzjB)(v{z5#i*oI0bys5VVCCD(5JPJMm-2dGtH=Zh&R5z)Ae;Z&~w
zl+~(oE7FbE4@|fZ<Cz()5rq`~97+tK!|lnpLazDAM@Ml1O<@4h5h`KReJ(9UMm=7m
zH^&f-t%Txx-yI^l-l1Lgv}-zAHASIm1F}uCG4?8<)!yUtj4z#17Hd{B8IEX?CzYac
z#dF`BM~K1}ZoMm4;#HakabAl6opjxzi{*Q)VDI=o!0m~#+GhX+2wq9j0}=~@EOzDA
zt<qQY8`ai>#YkN>Lh#Jv^K55|Y?m^@nKNr*Jd6=>aU2n15Iwf+;eUYM0yYRG1|Y#P
z$FPlW)giOGxj0z2*h<^V%Y4wf`OVc_EjEO-1^$9Mssk&VvmsmPsKbiowh*OsTU`^n
zdi4}=NKs2b#Du~Z(X+7J>*Ra*=uv`VyvQ~NZ5Y@pD=mE+iVm-X4bAT{{G_N{hglWi
zsR(^U79f8O8!$03oj60zW_N4p`@0)}{?8)&vAtahK@gB&pJ<Q5({>bF>msc0;u7Rf
zppQNS1M3f<k>+TBTC|0Y$#leP&l>V?(-xz7O}KqwP3xnAIl^fSJHPtRwb<s9Ft=$i
zw+PqlFxPborsi%ajqv^Jb}^L1${-79{4V#9%JbE$v+@{r@-s{dF#*25xN`5f8*B_9
z8L)bsoJooI3h%6NUXldz3euFVCKD8TI5;>a)X|C=0pET=RX=QyEFHlFL<%z5Py=1$
zAI^Pnms3*39ys9DnY<*^ORfSMhDkkNlgvxtyF7MhQ&31@fM)w_f2XbOiPW#QctR8$
z)yB3q{{$9<;*0Y>bnP~Qk3{lQ4AkzbR@F=Z&7fTP2G#CzpK&NZTLhp}penmtdZ8{l
z1DrB2o$f+RrXkdVFSH9D(Q$K=T)lcVDezf9;~<g>0|M|NiA|yny>3HjsG=qzRxYcH
zul7Lb+x9|p)e6pMiITxz0E@g13&W9629nX<-rf%I1)E_t6%_reM)f0GPz<A3D#=n2
z#y`9QwViPt2L%N?M@kORh;)8)Elv)4u68r+bo_wxoZY#?SA(plT#K!#E?!Kt9EMU3
zC~7l+{m3cnUaj*d>~-KcL#LFX!LD!Y*w7h24I%)fbbi$RFMg+HekPqkA+=w0RA^98
zM3cU^x3|Yi1H~=x!%8_aT{d#qcN0+7)CZnty$;A4@5BjQ)GNuv7N<Ba;}?2u0Q_R3
zbm1KTS||zxwE(g(f*E5(y=fo=!bS%k^WD35Fy*nsT>TZ!wk&|gvH@*2PT4>RahmUY
zT3IOs3@WQ;_I*gT`BtOVp0Oi$?zX+9%F|+VSuC4Ip+pb26MtcvBUatwNWz=}4amjZ
zB1T;Y4*l@0g7_3lYI*lM9Uj85K&U{8Jv(tO*LCd?Qd4R5fBr1im8DDJi0x@O!&&JA
z#4`0sLK-&g>z3#H`yQw<3S5;U^G+s|SmZVJ7=umyk%hjzV<;jT8ZW7laEUX;VbhQj
z;N9hiK9Bg`V}zYYU8kw#TP_4k4)^4s^S6aY%buiUdXIg6ip)8m%}@ZnRLIzu=VwxN
zOR`%qDe~``QV3~;0$?9i>;SAw)hpvh(m~C^f~`%kL6I=i`r*?J2;@!zIiR@Aj8q9i
z^dm%``QpWk2&xB&uUzBhS&<Kv#9IN!Yd&8*U%!1DfUp-k%F4=b1)Vv7bn}B!Y-)Pi
z82CAtjc!e0@`xKyyncCi!<2}Wbh1En4*hNIO+Y2KY&xzEn^O}4IdB|cuUSv#yOO(C
zu3Xc+CD-A<FkC?aKp#)(t<OM-ZG0W)vk;;6_PZ`S7<ABq{=%uukholT;Kb{{ew`R`
zUy3B8d<VOr#lPlOIx|EqK)ZM07wAG$>ngK=iz<QiFze4}ymRLc!fwNYOu%=4g))bV
z<H<z*sj_NA?}PKGT%(3SBf>eBreobQByD9+riqA%P!Ua2t0JDL<%6x!mhDV*FF7m%
zd!}IxO<rD}*>HK$aGj2UE9N}xm*FhK@+bE80I)?rK>b^~HR4W8MC4PkSbpYc`<v)8
zgiL`-p(2KF3ikHgz-ap;q80F0E>mGr2=D(XCB-tNTNM&z*t>V9P#~b`rePt()<W>?
z$kM$z<k+hZT$dOe(DpoIDFlk%laq7czaxteydlAT0G4K>)xwb2UqJHWu^u2>s@~%u
zAt9mSu&vU31mu&6FhsbotT~l{{qWUt45&FPmwj~=_4wYm_T@e}W@Kd44iOCz@DySN
zE(p2gCJ*XBDn156W(d`H-~oXM_J`R^fE|K>9jAG%yw&XRE10C<E~E2z#-NVd{`KB=
zd9{Ue5(sQb0JJdW%Z>D*_o3du<-8a(=QgDL(<v`9GV(bnEr<s3Mc;Y&`G*gekp;dW
z>Q$MXlBGLX3R#q3+H&}t#6o|8)S+1~RB$Cx?21Awt_E+4tl#rmz7TMn8+*wd_nO|S
zX6M%>bW3#WBfU~P9I<iF^dKf@Pkms0ndIJH9@Q=B?tz+j%9R_YxMC_h3;56a@j_-J
z`zc7l+ulb@M;{^I+t+W#N`@YOg%Am7s~t*@of23h3hd30OE-U*Q^BT3Dj@``LCs4C
z%;Pyqp3lqUb?Tz5vIB}7((zr9;p;0|mHju_7Y<pmo+-|{X;)h}ah`9r>zCOx?rvcH
z;TQeo%c$;j^}8T%5tEWW<F)L0Geh^m0_gpz={BH`9dhCW8mCXKYJ(z0fx<(rz=@nw
znTE4x68rMy%Z6XHLM}=_YFt(l5SGBha9zE~LVX2zWI;W}4mSXqT2?!NjQZJ)^R(&(
zmntV6JW+l%H8tC?9D!L&AX++?#cY`Hy?;)02cTGEO>4a9=s4dSCK@`wx1!$FY!J#v
z`G;vwJiCn|5_VfBS}@6C{_6z@Odw;8K%-O42SF3Q3REM;PPlkta#F(1F4w{nh&m4P
zj2`3ZpGmStklhuq1Ox=+K<p|7cSitXW1f7+YpL-P3*poV!FQXG_y?(a9`CN3cYKm2
z?Z$wtU|FIE41UZ_$2m37DCrRi+hJz|+nZt22FXqwxc-(~FV0@P!bTochw1F>G${kt
zCJ;8u%jM-|BgY}oTC{f9b&GEWX9yLBMQNF~#bwQEf!Oe3AiMq3rv)Rd_t9QFY+Vj?
z{7u`qPK@<npYoph@VAi4!(A+{&+lMqU(EH2ivMSpBUzC>Mn=0AP&^O2aYb-Q&(h1b
zC%ORpoVAXC*gcLSCLy^ZdW0kh`yD>(ff<@n$hlXsqMo~jiyM{*gL$#8_SwmxR$4A2
zzhTq2tT3amO>W${0b!9|zuX~DFvWUHAI7cEA!z*d?D*0WClq!Kkltmfwjd-i_U`l=
zdN<XSn04Gi{n%4?i%oG`zp0|4!gG)VY*1m{g`Q09!~wJ$APotiAm;eYW|`5&igRYM
zj0=-z#t*8^%{L9TmjtT@WU^?pdpBVxN)*w~%oQYjI-<>FQjB9m;X{Bc%#jv%NHOy5
zmFjouJ9pw4FwWgc2F~FQ#$R74AJ}beZ6T8QW9>G8X47{435I<q&ryC#JBB9)fMLi+
zTam#<mNb;;4(QBoTZ`;1F@nxNY#_;0mqG->LjmW#xGtN}6GDgT0QliAZNxgr*{>tm
zp|MCMNXo3BmQ@47M#6^=pUpGl$SEk8jr(i7y<w*?eJHF1O&Inx=zkUlhX4QybvJ?1
zvmXg(lzlke-=859d5t4NsMtDTGg`ngy-vU?^cm2QO51yTg8MZOgcYn?n3<UcGYcw_
z?Er8#o4*Irc-?Gudjijb5wF+2ORJ;RaC!Fw>SAk;@h{Jf)`|+>-+1ug0j|#lgu%7P
z@YiC~VA%oCyus!k{PY6gx3dNKtRk~+(;ruAFOR4BuJ0D42Q=416O;4rX{o8%QTT}+
zsnKe=!*P?}LfzSt6EaVYbLf{h)|5qz9ZUpq4v7>~UsXIc625s;CgO780gmAUL<Ls=
zZxIy-Q$IJQgR%>FJU!?tM{lyv9<F_@?##$4ggLJ83`__B4bNO>MD^4NRQipWwm4yI
zJ{xgI><iFbO!mf8r_Cr~;l#!%Vj*Y*t*<+LWC;YOl@#IJ4E<2w3|RtuNU5mUfY4+3
zt@uplJ1-ejtin2wfeQM?C=bELzfUE|+x(*sxnBa7^&jjjceKP2TVEU=G#5-|blC`G
zW@VK<JZ+F;ARLB9Gfy|v*EeDaX+`FFdH_kS0B;k7oK0ZjUV;Sz9zuys0zh0KsLdU~
zuxj^0bfxZjvN*(FVLdloQ39##&BnXdM`2M>Oh9K`1Fl0i9gkD#*6t*7W`&%fO05UT
zS`RbL*<#g~TRZFIt^+8|gi1#eeJeaB#;W(-5lEI2P_=?^ZU0_XRkZ<j3>#Fmh<LIP
zCF-?bs{ejtrsFOH1496e3Z4p}AyA?EV0MwMT>f(A3N!OJn;nq9`?5yOcmjbae+dE}
z2x5NyR^$+X6AY@{@`s?Bq_SyQ9Ih~V2RS4N7~&upXOnePV<Qpp^P~U~&Wk-rNH-I@
zgU{u>s8?alec|i`2v=cTW!IL>yj(5li?p5-837YM(ZX3n1|N((M6n?pnR_xaBmgb)
zLqMJU_JCUFO|iaTuHxz4y}clC_5^_U-~mK$kf8zc+vBmIlv5O_{f}xOkadLe=?t_I
z4}MA;VA)%Z8QbWZE{jZHxdQYhiU>+d4!$GcoXNz-1K2e+aty4Ug<jDJ>rg>LQJqi@
zE+MUi2u==G0bCzMnx~4&3o)|oN)5B{EEdhaRl$8X^sSYNsc8_@Zx60tsE0&3HCh!m
z#(ot!{ez>q2Zrg4+TI`-X^ZgisIlplD(OMAfh2=3p)9VT5CWp<hnc>-L^kBCWY|2*
z@X9yvRH@qCzVjx&I!$n|?b4n?Td@k(ADib1(I#vSsKW*THsX&SCBM4K%q#_9-hfS~
z@ZN@hZ+QN&f+qdXmjR37;Iv3hlnQMoEI~Mc@@}k6_#y;n0&G)T8wH|BuxUCxH0p2*
z3^8DDE-uJ(+pzFA0cQ5DKS3m>dUuZ1A2U#BPLB!zeZFUQw~M6G?W?h1xl7|~x;yv}
zocYJ!Tvd(vnidH&4#3O4Y#3plu`zts(SumK={~M^a#t7`8y*Nl6pz5XAf#P%qH@a%
zIa}z}lxI*pH>b|yT4XaUpe+TvQWx9S)D$Lt5d~hEkp*i6VCjhn2@TE8G=hhv(H_7V
z2f~Y}0*|MTvU?j)><IiH`jju)z)ku`j!IJC+{_uv9blBszt@Z#xW}&HyguKriXwt&
z#M!axRv5H^E(N250F}NCuicoKc27qVwujGVpfIftBRgON2rvSxUQzVSdIH}kd94iU
zcmnKC!Qb&M0}8a3U26SbM*sktb`TeYb}z7y=Di_3nrdoqF5I&FfROoviMh|0ZG3x;
z@)`#zp|lws$G0fx&x~%*cO3hSgFbax*yvib+nJY~HT(Hm`Z~s(5aoWxq_}O~M9K+m
z$rknVJz<3qUspBmhV(5?o}~3?$MB_YL~P7O%yob3O=sIpUYr-Tofph1ER56<)eBuH
zsG6(OO*AbiC@?t-;dD#pthhMlJZYtf1+bs1b=FWm!m=xb|LC}P*_4aCN;J`07)}re
zwyC)}++?uGayow=W(Xr}NedPhe-oMaW8H!@bf=fxO|#ZOWe=^issfg(eAv(esuo-p
zDrqG(PyzJ3!PlZ^aBcdP;I|MR=HY>t)&TbhAJ2T8LCdk{fNLv7OSl*vR_6Y05v&$0
z=mQ|IWDBW_rK^De=VwPpM_+5<FQ<OKK~e`*mwZVpm|k#wv?^U5=eZ)l54*ciGOC8n
zk8<vM$*E}li9ACv)9{O+!;De_X2XnPP~2w#T{`NuCm-eLFsfjAsb+7nf&k5FUSZvz
zFR@0k6&}<1Lxg@^VcBhNZO8)lD=y-lwA-#3F17~JPz@^xCvJarX}%lc?PEw=tz2%b
zwHYjdmB9-4?|*<mW3R;l{+O@Rb91z;gP#r(B!YxUBG|En4d7V3)?;eNT#L0vFvsT2
zA!(vt)6*>?@fmyJy8Q+hRUM|%dc5-Eejnh)Wd|4slBb@aGm1&RIEw1!EVQ(?MtW8P
z$d9ynCR1C^4#fMi4zhA#I8zb0xVTde(s6+q{&2v{V~%DLLz`#eMDnwPDBD(+ISuv+
z`&}@iIBW9(i4E#J4{8ifb-LmU&Qpr@H-Jb4QvNs!5ep&0AVfE~O|D-kj7<gu2?dNE
z@n&`97}7$0<)nC;=K6h<&ll!top^yIv-glekAsdSk7c`xEf(kmNP_wdYJo7N{|#^k
zr3|)!MpfQ73Sj|CcuEwDhua!bGeNmHkyCSMuZ;#n5=c5YD1>W=_&x6=1m!{gL7eBN
zHd4kYv?K$oKMU-Bg)4Xkwjmedpb(`1@d}cWF&F}`gqRk-X(!1<-UqYAhrX3KsEE3{
z)KFr;UA5<%$f5`D>sEuj;k4GQdMT|zhi4JC@FZ*)Nk}lD*elPcjetCH3^n9^bYNo}
zL9-D4{ynSl1ui4Jx!#<md=D3w(io22BcS}KW9fAUTf^Spv~8Y+LhE-Owc{EGq!Q#g
z6zc1%i<8UV?!Y^=gD8ah3?oyI?>dAfF#;|POojCT-dAQ*;u8Q(gPSAF1ng<gq2!>g
z*<TF`(M{x(P`(bEw!WbOBw`}KSYN^Ffz8bX^B-aZ)K^lvoN{n*AWRYgK{V_jmDYP-
z`APh^f^yVBFlaB$ZB@W$(lId9W2Q}j;KJl12wNuy@<YmQqua)cXOit)u&1V)`9OMR
zF((vIK+)l%5S}qqc=JNCVtfc-3Lpr}&a0Xu3W$&A=&OJL)F!Uy8*5)g05*6z4t3jO
z{?Yr_$Ex=hkD+3O-FwW-Aaz${e&f5C%sBpFA@kUCLz|6XFJ1Qc_j4aMkyO+`v_Jjv
z<Hu;DU6=}`f=BXaFY%p)=ap1ZA+dk*L>Y!<SWN9Y$Qh5aTNvQwx0b)>7G7lhOAhoP
zRHOJujmM84H-wuMb7r0L9^_;NV#$xCa-bGt2|8NC92aFUAf9@tn29f5d<hHj0jii(
z?E<E`uC!->T819nnTEPQf9()*c4_ws4Par>oe-p*wKt*av@bVXU4?&Nbpd1JKOT|D
z93YZ_dTE*b?iAmhs$7?y4b%re5|tp^TJIp$Y*0pJA@P`iMh5IGIw2t{WCMekzXEK?
z6?XR4MWG_$o3Kx^9aR~G2N=1ylobds@yQicS|{*cyVh(IXMIUZN{T{PL$+epdV6_1
z`o}CtuubEu#nLAr37E$gPfK(#JZBbd>&?`rPca1lYzhWBZ74*A1Dz;4Z4plPB-HJn
z2W@MD!HSCTdh4^DPT#(RXl3H;@rD9uL7*jY$=S4g#>Vb5Ffo<y&u6Hmk;pNT`h4M2
zc>>Y{zdkHSX#GQ8P~m`TKaEf^eYqc#9d~?x#-(V)&Dq{Ede6YY!lHCgS-22UD$`ds
z$LyXSnkhv)ir!5g>2ofY8PqT-^8~)X4%~0o&Dt+h2{_=}R_`#;c<(<3nji5xL;TMl
zbQTv^b9y_rp<GO#3>zP_$yw&szA9TD#Vwhr9BTJzmCsGWQV2M%eD@l_7V<6ZdZk21
zhg&tnAuUl00qlyQBO6l!Y~-?e58ox$zl#RbRI_=Ja<T=C2T@vKM*)C14zn%^qAJvO
zh|vn+$o0y8+FTrbn6QB6a_(aaq;Z`hMw^sa51#mN{i9Zz3S-JfX~s<Bjlps&siRxQ
zy45r2Ppe&$7J0az3(Y&*f#Q7l@S#~q4#Oz};Q<VYoA%{^UDGjJOQW1Amfh(lH`|K!
z!Hu$L)RJEGo)t2({Xi`3n#|ri)iQe%{soJvDE7evgDf513fH)Op^}haCwzc&xplCT
z0SZL^5EQ2R367xnk00(WeS`mF@3qX+%JtY;{b}v@0}e<>nksXqRvxZ;x>_yB7t5cI
z5vFo%fuRl;r4T2SCeXYC>uz5@!~fA#4hh<lAyiPs+sQ@qNEcOdc4XLUk$Y0I3WwK+
z%=9bv3^21>(~kDS;te^w6-H84mE=IwK-ea*V1~j*M{G(!d5VKm3gqfg2)+me?R6Z;
z_evJnt&I(sQP8O7e(>pC?futiH61o`C?P(6H!cM#rDZ2DVGIrv>Vw<M999Uf_PcN{
z!8SsABCgb`mvm)*w8qeBG1G9<^heA~kSr=Pb(P70BOnnQXL$o|LvqBc`sfi8cvQ$F
z!V>i~GPTAFX$Cnzfd5csIC*sr93Xc5Kc%n~m#`)caQ3>3*0g{KNA!vU(>6&rxAIE7
z#eUOx@OfpknYstz54OY&=YgjdB?jDzK5kPOz-?Sqxg%D?Dvp;tu>(J-A;DZcazovr
zz7+^L6j|I|i^O!R7UX!!rbnglsRV6+aUB8j@Nc8=C0`-z(n&21#HI9zb1UWR^2~H_
zP;ltI?kp}Lv=hgF3NeRDY@D4gGm$DQ(|YK`?PLDv^a_icyv6kNEvrr(h^M%-_>`lj
z)m9L%vKc0=Z4I=xK1Qtm0qW5n#(Q(V-{~k+#;E<nZTkVYvu{oUZEQAD$?pUXW7y7A
zqF#DWj_RZFO0?LV&>@0G6@=6WxgRy<TF{)Jh1`>sy$cm^EYq^}Wd30mm=>dZZV&Vy
zDh}is`|HM|8F#!1U9v;<qD87XH|4AHmQV)+&ANl8Jd}^Y-kkup03dlzfMI&dx(agk
zL+8j41JE?4@QsUf`-q5#&EW(;pqG60x)XpYH;8S`4hIspSCzUzp20XsONHZXCYEPz
zJ$GQbd6NR51nM-b{e{*HXCWBID$Qd6L|>rH!=!eAP&9xM&H^uW$oKDZsLvq%t^nVe
z2#^8c)X$!HHXPs&aMFAr8AP*;5QX$ctEE%B0Bc;Wy6%C`U?u)&U#hyKDyG$`FfVFP
zSineL#Tnbvis6F;+o&7>)EO(^s1wfv^T99C>p;X;=wgs~Lh%RlV~=DKI|5)uuYkG+
zB%~Nv^OYeUl-WoqFaHo+Lb2>~Yk=jvq(nN@DNnvWJ@}PAcxmJe1j-j)6a~i)pX^kx
zNXwHijKUDA7Na>hwQ|Kevka?&Mde?Z(KsKsEu^{UVK1rtMrBm6ceCd_qcFh+L_S`y
zqFz8y40KX}iRNRpN0G_i<PXqfX9|Z9e0}~FFm=wZG-y61U7hePiIy<;t{;wrN75lS
zgHxyC=IGJMp@s%~$=RFnH#ez27y>_<v2f$U*?{2S$R*7zouoa1Oiu@~gE>}Exz7Q<
z&xAm;`jPjh?TC1V(*lnnhZ}H(Z2IMeYS?&C8z73z+Qk7D1N{KwUgWP=N&>uwlmM_A
z7r|)Ztm6cd`f7_Dyk7QdYpmeYEyF6%fx0G{NDPYY9Xq@0z_I&-G&A+<7qW*G1e1yl
z+cUSqo=gFW2_i>&=MG>sm+|KmC=?JVpXd7vVxzKVtfW4h$%~Um#>BjWKA4J1(G((F
zuu7qqAeeKcWNj54^8o>KWMN|(gK1JGwRm}Bu>NhL|0`{&OGw}uE?0LP1~AnC%wphy
z@Xec=A!irbKR&Y%F2+y`dt?X|h3RC17z#ErMcwsP4_0vO_ZqmLgC{^KZ4;G;vshQ4
zo{REmgA1w2ybNl`574@TI$aY$K|O3W_!a*8YH_7bMcS!z=OVYRmdNwD=qM?@-j|bA
zP$(7*rRE2d!hYqsvu7P#avoHPwzWRG0gkW}AME_%qdK-gFXJ9p9cVeQM%x0tm^Syb
z4x|t`*2na!JuX5V`U)8{aF|o46$p*1DWmR7!WDb-1C%#yVq%IzhPKq?rd(@lYwZX4
z@}}-Vok0~$3zS}t(lUeMMwo2pH%>)Q)hwjiCuq;f>Y6F?^e3SH0uWQ5Y0%ocYpwon
zyHyUi#m`SK7dJ?WcX)1#u=De4gFgaC3`GRA^eb9X1CWdFJTx_Jv4`|C0f54&HJUd8
z@Dp%$!fp<EyFcPZIk7Twa%_A@AfwxhpdN6)tA`bBfNcuI_uJM-kJo3EJ1SkDXeYzl
zIIv|7&{5&EI8rreQw4S=3fOXFckqE8Dg_%dI09;7z`4YUFy6V@K=k6HCLmZlmRAE)
zrris1R+zjEl9|anaEJD_4uV}T<|b4o{*Qmb`g4zuj~jsz$-ag)@Ct+t4sc*FgCl8S
zqG*v*7b!UO-+{Uu1O!|FAUJKXC709#x76^O?rvcB_>a8A;x_PzA4ffI6W%Iin?40$
z*8$t-@DK_CV63$Zk`XBY09HP*UeFT+saFC#YBRv8=_x|V54;x$FT>S{>98Kk9E3Z%
zLl$QW{LuvXrN{vTMeH>K>{PYy2bQS(mE*7P?{IyfSk3p+g$$9qcf@Tyz*DgRG&g`m
z`T3zTRfH<T_2~naHqXt<*xtdT^qMz(g3($FQmhC7oT|8WgPYrr==pRP<Vy(;k4l6J
z7KadTQuh1|MS5`<eUdc=o!>oq`Jz4A8jJ30VUdxHXi@jg%nRUM9(E%DCNW<hIpR(g
z<}2VGJB>oPH;xt)2$GJ$RQ&nk*nDtL(p4<big=XXf;WN_1w@TF3S?l=qK0giC{T)`
zIt4ZWzZ??cUWQ$s>{^kzFgtT(2t`Ca#PVy9pRQ)>m0f{sf%H@bd@<&yr@uQtSfYp+
za<Z)v)LK3QSwkfX;q`yH6d_FI0yw_(AA`t9(z^i|r1=)MD~*10ahP?>6^Nb-@I=GY
z)f;+S59KVNE96xg(1RQ;Ki+cP1!DS)H%uFFuAvQ6uMDQs;tql#TD6oza%Y0J7QG(R
zK?>Z<BOYt=NZSuIld-lS8+PrNe4g#72$xAS*$QmFNQ+DBzZnzcI5{H`H8##VsfV!F
zcrP=a9nJ$O7<h;QSE2W*ayM<k_Hng059%89pdks;E%7a{h*L&f{Q29lEEEip19ZB1
zk;0-%AV;WqE#AxtfVln}8@UxSb%1b{;yMWCjrl?vVIaurpUn4h@p}V(Nzl8J<9#3-
zC4KLnoz^cX*fsTQpfzC7Fht-5aG#*#v<|8%lU71)UnJ<2W$2_2uG%>hO@HeNgN5@K
zF0h10L<BWFkdI2QLUy24KTtHce}K!_p{xqx8W~C)PEKspMWD)bk91X3RfD?oJa+8)
zN2A#s8j33y(1g0b#m55>SJjMPg@lkpQ5*rr_XFo{KKo>#_|<uyV&@PF&fl@G_%ZO1
zgA2(G5cW-|d;DI|7r&%OMgOowR>WyRC&e)YapJ8dfJcb?;>;_9_-U|*M63bAN-h&7
zB_+k!!znF%KW!t2s)ysrlhqq>YJ^EXy0mJk=3rCT-*LFwQ&(J4(qdo}VLqhgEI_H!
zQ$!S=D1`Ta*bjqxW9FIkvDY=-*_&QKpuF#}D0>eIW>$?uD2W`gLN9}Z*){wt4ju~s
zu701hh<d8h4Gnrj)#6t4hY>qiQCd)k94~($?5us{EwHyJF7CiQ$xeCA2g)rvs3$-W
z?ou0pf*0t#hV7L}*`g6};E%((uoI{O(FEAo`!AQ6HM@ZHnR<pF1NA7PZyG?!rr$H0
z=8|7ffB<;ZbHy|;WIQR|ht<JgenRg_kvmC6H<TDuBb^=Bpx~DZp~|bM?0VPNr^TjQ
z{C&Lc^&(mER-D6z(v?BY4%vFp>wG~s)^yYdZIKqS--05Z(N`%EM2<M%(jB!pTMJF9
zBoHeXI1=U^wCV7`zkrY8pe?-t1)i&UJS#w)I#3Ih5+%>2Z~>h)xEL;Nnu)=7XH2i(
zHvGK<7QjJ*xM@<bpvv=t>OIe4$=3Sps%$5R2E_OVa7!-O?*Kb`g^R0WHcKvZK?RPm
zKRV8$|C<FEvsh`bnC$ro@ap`)LR3eiKO(1f<izb($RG$3?>^ZyyW;8v)#r|PCJ=m1
zguTk7AoVP{?;yRQb4^$f%W6Twm8q;uG3#IYQ7j0oRL#+0#oXOUD6<6DA^FG|r8lnM
zQrx%>qCiR>{{Sa~M)_<<UO|Ix=vNcjB@uh`y=_dI?c9&wvQI%)*BhrjAS(R9R?+RH
z2j}|n_VNQ{*+K2UE5fo2N3OTX=1Rip+KL^MpSn6a(OS@^g|M}$hBej8pxl9YFD@k&
zgy@i%7PMg1L#2T5;4eZR+qsCq6#y-7P{{IF_IzLDekdiw?b|yCrI6A0w_FLJetZED
z1gh{3@EdS>?mEb$`R90jOFpfz1R6QJ9s>B$??EX42RxL=m2UaAyIp<5jx>gXHCVuD
zo&~ZTbp4XRz$rlRjzEuRX%|R3zVTBBkr#Q)nf`(lpe%{t0ifg#fVQz9kXFFS`pKw8
z&5yVehz*-ytK4d@?eUZT8%ZfCLGX=1a2f-_X@U=jwgYr}E~~!ld7gVt{^&i5$k(qg
zgMFF_OeqWyz<{kH2IY_(+Pe@7G=Y=|Y%DDl5kw;}<1Zv_1FTdD#=!BIfD=dxnTi6C
z3o>RPY!SC2)U5>Q!A|H%#1X69oy$na=CRX~k|yf(3|fC;)R0iF2lOEUpW+9@gc2I5
zevofkjp=c#z{!&N$su7qTCI=tZbDRmUO5)<#xo;N2o7cJ@+LuXruBTL{!st7Y!7G%
z!1V!_N>V4cgwzQO&);)(U~X=1^dp8p0UBhlaC57G>4=z;@){K43`j?BARM4bvkIAA
z*F)%3Y}y9eerD6nv^5&D{I<q(uXq~>!+Kaw31G@4U<oA5%u=Bl5$P}nG_Qp`7bq%?
z7&8m0W_!GxDD=Q|H3(f98d)TWH3a|Mx%1Enh-`!jAj%oFH81}40)*DFUTD6;Wa{CH
zXDi*Ns<?jhN1QM#1Rq9Z?m@*iIS9#qQP2#^Bepk(0>Tj)9RK)vdI-ImkXi3~fG6At
z<U4{RbW~wH6n3Bnd1S1%-z>6sK8oC^?o7-od^Of>yyr&*qMVe+(ZN=N^U}x_Ha0n!
z1jLEd0q}#EmNsWVlqC%iYV(@9ENwKD`IF3k{@$C(r!i0$tUkR89jp27*PyId)<(>w
z9(@B~Mw+MLfjUOKT2Yw{v2*b9o`<3j*^a+WNX{-nC%}@isttH0qC|XWDnhZ6>KqUQ
zv(}J~0JBIue8>RJ$KyzUeKX_l%LW=#f-l}U0hI+TNds)UN@@b+4Q6nVP(DB#Q%WXw
zv~&;=M=Jhq#1B(EbLLD0A>OrxW8!dCLF#^AmHSPITI~Qzh1R~`_{YaPA?(t`UU~9g
zR}?7k)Dr)vyA0_6(>(`L|3}?{0Q39L>wnLc3xB`u|9!)QI^wV01ML1B;<~N>Qy?SM
z($!q>lai8d<BwwkguXfHf~9d0V<yB3eTlGwsFI>9X$DmS(39#%1kA*m(=D0?>#Vn6
zlpUX*J}IG$bU@qsPbv@f1YQN65Ct5*9pE!gsYz}4t8Z;>gn;=`sDl1ipuclUP4QzM
z>jDF=3}l+EKiousx$r+Lg)G;9xiQkG7Em%W_)lR9A*-H%Cc1A>FTakB4F(uL0bcKt
zWC8HX<ry`c-Up7m)OC#sZUGS4KUnhqMye=;lh~m((I=$-ud_oO#vU)fOmoW)MeDh)
zoCnodg82?K-6E;Z2@^^y8Uo^?F|aRS`Q`?JYAB>db>lzo6giJ6C^3Vg2(j5i&k-W)
zzk;T%wS2IZUJ!I*Ba^6IYZDEH6iY86LId{TT1Y8DqDT9r5O<#lGAVZd+ubDrZA>o6
zQ-A<Z2@Oz)rH_b;D$}(e>NB|I-~+%cNa2^^)&baX{=j8|SNS;XOyDRGdxI{QYx=)k
zVj|_iSE~zMubH4&pg_clH(Go4?Ac1F_x>?dF0`%Y^#0pdf2T%|$tx;KLGK&t1K9is
zS_-ZDNl>p}zaHCg`;SXgVpjV7Gb7cYXBdT0;SjtYyo1&g)Mtpal`1(2EMP{B>fE`5
zf8p#%TkGD=PLuhwS`?ihMdC_k!k}A9>dc@U^P(p7g$O><eHvI}=z3Pu<GiOX@*A9y
z+D*NznQyrZ#kd&b8uDNy0;URb)V>El^4L*$RtR_yaZq5|0Ov&vla;W#Ep)CO0tqIV
zWx6<2W(JD3g`CM%Hn#7BbZ_24PIVXb<F11vy7<O=V{L7+SVPSDXEEj36E>E|9hj{%
zI?Sg2`74cdwKP4ejDD+4Cww6Ge+)l9H3DG)B_<~3)5%@@Qd2^ihtWkC*)__p=qD45
zw*DU~K1c>tQsWXws#HV<RZ;scI&IL5Ef4{4Nu?^EB&m$NcHSm`!>cSri;bK=Ya^UW
z7|RR$1Q?9Y9cUKk{x~lW;#xTROr*by(91y`uE)Bp$%5ucM8G&mjP~UJYTYbc)T9%C
zPFsY8nZ-}m?3VkZYJAOu#Trw(<HW>aB8#PXwxAxOP*B_|v_NkwibamZjM^l_v<l(Z
zD_z%Oen9aM)#AP$1$|^n@A`f;Hm0^y6AoIl6Iw4xBZB)j%mEc_Fn?&P^dlPTIsFMr
zu~nLxk)a-<oUHyQmHlxLww%9nc`#dB0?CKkFlAT6gL#bNwJl14H$nWvAtTU9Yuqam
zvdO5a5tU<#D5<-ACBgptp7SeC;~qjRbP%@Kh-V=LE)EJ2BLCB#DudYqNo}>a4b-q(
zYz0uyqCO+dBmbYD0`r&)nA&hqqWjBt^LF_8`4P7~>H{!>208zBN6$OhG-pt4LThIc
z-40M7lptq;6+-y{>OfkpfD=Jj=qvQ}LF|zJHNe1hiIhpMz3AW0kMqv_-5x}-$T1Y%
zfvX=-pFiI9M--HuEhuUVEqj01^n*q8!9@Mb3pZ`30NuWT>aM>vN4JDy#B)pEAFEDw
zoII#uyi-k9_21%61)R$>pJ(g7TOD!u*=aEe2vClCtepdO;Axfn)&vN02r1HzbeMq<
zAeopa{-4fuLIS-160~T-nxWG}KpR0IDB`N-<?IAQti$4v_SV0S?4hW;GYze}=aTon
z@QsI!xO7D6B(K%*IEZdveLzZlJW%V*J#mZSz|$-lDvuwO*<4l%@{xGztNxVMSC7lb
zEa;39QNmLhSv-b2Plrxl=<x}Eef>s_Xz2~6M@%i>-@S`@*SogTSXUSGq<XY%OOW~Y
z2>+TeN=aY2>;&iUi=<E}aa>%3KYzS_^?&||OvV4q!#^A1|BiV`(;4SLb!&nyr=2z4
z_Di-`32sm-)62fDL8>Q8ZOKre#TIA%mC_Zo-1<=7=#gGCO3T!4zn!T)UT%rHy*YAu
z<8zUAt){a}>KWaX9ZQz8c|C6|OPTfu2~kP~#LLl2R#ur-e7dDAEQyeK$2sU8&cP*F
zizIhm<Vhx*U4%Zh2bpv#7mDMar7-CUj(Zv2ZL%oh?!hNRJ~;Y%e8+nAfK@RiS5FWH
z=ZgwFl-N0`&z5(P2pPOBTMg`J+y_KcCH6dNJDV2=EgIju@icjYd9Pk=dLo5q989&C
zSFXnqE8;0Iguzn>-q$2g>x)QFY3>G<(D=T{<C+|W6jhKoPw7&BMEHJbqfFwj!W#Z{
zAANm&uWOQOf7vK#GRjMZ_UZ5|N1p7$$b-y*Ch{PA<|p$l;K%CpPoO@WpdaI<L$@%d
zbY5KKZpJHDNV$=4Y$QH}S4VtTD{;j$>#C^e9mb#E=IqOaXc>do^Iqu4ziW$Dk;)aH
z<o(|E0Pl+4nzmcN@4cEAvZ3nf7klj(js&4Q=q&jf&Yu7iab@iI|NIe!`foB1>E{=5
zeZ;h-MrhVWenc&D&QwYNaLu^ee&(Mw{vIOe@@M5gf5QK7{6~xD6+TL=SFd&e=a}JO
z1uPj<G}YHis^FS1p#Czx7(e>{_T$lR&QZGk`#<}COt$NIW%!ict#k)HxC$tv8@j#H
z3$4*D>REh$Ck>r?#>Lpks1PXb_&sPg<OREyHXC`7?dV932;6}6QP;Mrdz9qQkAINS
zdbY(3G8cpN++a!0yi<jtwN{oK>px%UGe-ZCtpQ^{3*}7&!{X;Z=TK>qcsVK`09`D&
zbm1xi8F~40&isF#QR!o<?z56Bph$!<fMR_Qu+owfwDbclvXQgf=6#q51`epl(}3V9
z{}pYS-UWkDk(Pehb^yWS!>;eg<ZfdpUK0^Z8S0OpwdhHWpVwG4d-S{!xbqYVos^a=
zewHHM1GWq`IUPJ2D6y%_V+W#O%IF2QiBbCIh>Nk9^}=Y)XhCdzJYtiw9x7D^DA^4c
z#OTfrRD($mv7omdfGD)Ohhta!6E4-u-SE6-C45p5grQQ|*J@AZ@Sp#Q(Zno6#_anX
zR{AI9<x8D1H7tWu>B$nzGx^>J=Y6r|eINq%8g+X3`DpHc57m3#B1ijAq*cJ<rVi9|
z%|JkCXfK!=Bje%_rxq*-GIyW_^}>xB>0p|#+FxynzW%^BEa})k6B(d_S9vrY>pT+1
z05aJ2Fc?SN%6fq{a_E%5nFgW-a_<kA8{nb?F8#+1=S2qdbh0cu5}vmm00qiBQBn$>
zUTa}V(MpO8r=~q5JNGE%jkDCT-)Og9@!E@bYTadzS-U8|WXTiKjj?YUxAQBD9t%uH
z0`zu2*|{Z4`AZp{vuB-8p?oMqd^CT;9dsFp_u8fe8*Q0=N`_WGnnxMTEYME*5!SZ+
zi_cB)kb%QvtE>htwnS2k<h$<hH*cnP;^U$0g5;XpMf_6n^x5e>U10S3t%`GdiBEU%
z^nkIU(W0msW6#xtucG=jnh262bIjVim>9O8hAWU+R(kDtf{VZc6ke}I{2Ix+Nj_8r
zQsOl^ypJ<su#p^VCs6@5VQ+)g2SL7Kl!kP-<|kZh2k==oTp>2FUfuZ5e)rSqI$25J
ze-}EXBN#SjJDF2GslgQgGf5EcLHqr>tfWl4e26tX`UxJ8Zs44Gp;g=LfJ)Fw4k+sI
zPvFQto<;j-vv<(X9UB3Uk97D6LK?lK$(vSvAHd~02cjMOn%nK$Pmyabq3FK{+Ujzp
zftuPUxaLt9Oori~4EHA}WTd6JQr-T37F#-Pz6RU^3cEpC1(?iqhmg+MH+ADITX?$Y
zmL#YQEI}I)X|wK5kA!x&G4I+x?^KdeJ6Q>)vM7dOySj6MK|yCyvtW~fIZX)!{^lP)
zdO#3Rhc9Q%F1^#M_axY+dgl>zpi08o4EXtX+~vncAlauuH)FRz3LH-4l=OOP>OFpb
zf`BR&Mn$Pi^XCiISmt{Fm6QwqJLhL4TM<$9gq57E3N1(~W<T0GF9+%B+0Zc}nvdIF
z!m8ypAGW@3WiT*Kg`RPvrC62SpjaRIM9cA>+SkCM_^Iw8`69_#bbpm?sVs`<vKNGD
zqT$kKU@`gqk_+_tpFhG({5P40bdAz8VjKNdeA;YLr$fswB<S2}vMF)*6psE%c{(X4
z%dUs`G_OgfUftL9t4o#)fyp}$Gd~gskLHjEJ%?=4!4p4DX*nA&%Zs5b)+ysWgHqzc
zH6Vop9ntzIWBIKrT{`0%5>nEtY8t2#iU38k_&tG7s|Duli;mQTJ~sjyLx}0d!Q#9R
zGBq-aB)f=DzdHXkAbBVAlyOnN6>maF5C#2;6AI-Mc9zg3C@9FX-j<)fAG*g9S2=gU
z4dY+o_xjYd7QlPq8nJ+N{v5bpb2=p89<62S^Cu$1OBpSgpCGAx(U7wG{cVswf_X`v
zKgk3;7@C1URsn8$^2-WQ3iz5QKt&KM?9TVSTb$gB?|6KJk+O<P_$S%gIbapPs7RRu
z#ias@`#)vG4WTh>@MwZRJrVl8(!p&Zd6Q6o*Z*nVc<S=od;3J8Ib2eZv$B%Ah}k&M
zEd|s+^6bx@RFqGnR}t^@;O=R+E7OY$y(`rcQ=ylgdNG4cc*!yq{^f;brl|hu9H#I5
zvOFl%HRJ73G6@NZXlUtytGyC{WVQekfxSSir1PJ=i&Ab|_Sss2G|ASH3%6b&Eo9K?
zS!Mv&)`=witwc_63ync>RSq&{3N+dp#tJxwGsJ>b2~wm6*dErw0c!^RdXmn6a4kxi
znI&kaZ^7wcx3{K;!qDR*bk51cHCLcTg?}m;agzo0PexW&6*{0`!JjGP{s|G{LUpwH
zo2qcLOA=g-n*g0l8khL2+Cic(0;GtvOoMANFgUmyc<_&KsVdxtAX&?C^7p&(I>5g5
zMc>yDE|$8mNP_yzN#{;w3Iuc)xc{w3Dz%~GBr91VHXZyZ>8Yvrz$~IHBNJ#-h9URd
z>^J3|kWTvZ6iS`P4+sowk#<yQtrmvH2Owh6rt%|jXUjccx5J>i&44Qw%%IyB%vfio
zUjBaLXT@VB`|LxEYTA#ss>eBSP`D)df-b{)9B2eK0N&L_x=+?V7l8+=#iHo{VehTO
zqD<TOaa?uXb<JJ7V-Q7w6$xou2SkumV8B8ely0zH3mr-tm99~`v5_1EhLJW1VI%~G
zj_-L7?i-)aH~;$`zvJ~_UDus>p8L7)E6(e@&Z`qt+`!!z9|KHefMqOK&HrN+Jhxrl
z@lg(vg5Xm{qe+kGBqP-Dr|=61a8x`-y`gQFh>|V`tqN>F^CDC{Qlh3M4-G6;-(P>+
zMbzSIPj-iGCtjhAfSY^`R;vSqX?g@w>JD&8asWh&pD$g(&(BY#qqk(BbQjYY@p!1c
zKB$4G{QmJ#OMJu~RlseAy6D$8%MGfbN+HK6eESxHF`<=^1xP@BRP)1IDEf8QHs!my
z{8>Ef$5p6fv#<U0lqbr<x@~D-Tbe+hC7WBLyY!Dg)FbT`*SFhB&re+Z<JFrkeVWl@
zFg2>p9K5-B^8iFbVgX3Hr*Y9~zd{o|9lT!$*1Ve8gvJ#$z@v8%P(?s@(6cTOUEX^&
zXFPZz-8UFMbX=7<t1VLPiG!ogVt1GFd8)3=Y_<9%{Nh4D;}}4OtBcrw^6|B<T-VzT
z5;TH?ujhXR2Yd>rhn3B)=KT1!MXRnizt~Q_cI{ed7sv{)?)`l%#^3eII1+Zuo5I5F
z5Q&E1SM0zrPPFqq1&|QlxBmEmJ+E<oK<vM3G=^sNq=8{bYQIaFfWE^@+JYaiIj{q_
zv`~Kdd5T-39b41c6{UCCdT@pw{rxdl?^JbYAd+K2zLzm3qMsWBmM((jt^E84(U5_(
zgtgY8;StCuP7}5%$TCpSW#Lgsg_L`C_D6d-vZ1t4+htEQP2|0@TK#m-Wz^fDU~N4H
z%9l`1V-m0s(;?dNoSX938831myU4W1;TDw3M~N}C%VV-X?2!Mo-B=_FQQZn`+C)MI
zs&|0W1X$EmqWjVBtgj#1*ViW-X5N(Jz##gxwN}qgh#8fyp@FoelVhJ~SukN=VA`MI
z;pp)F^Fd!99}UN&Bqcf<XPvLmwP|#P`<xyyj6KX7be#I}U^rRRi*)|;h21Fb?}nz^
zJ}@stQkbpQv0$4@qZ<r7mw3<%JJGLpAM1pVBlI@3S7~5T!`ZTsRud-FO9;arFX;X}
zKh=Xz-2an9ufBb)Axin)6k6tmz38@Bx=w6YZ_M9Z0E5wt`BW<PAGiHGc_275Tu2f7
zW<64-16%h+J3kf=p)Nm#;y8!|NeQA<8Zd{f6eAUe1teY|G@}f=Ss;Oc87=VI@#%ZU
zZg}9o7Ipu=X!g7*-=heCW$UxDvV7M;=wt?S5abst+aF2h#+@)i)JldsH{N=TkeR7!
z5Wgw88qeB!>Ny{^5(3llZk8J+WI~SN@!}_}a0i&r_Bk}9rQ0%?pDuhwVs#vh1Qwt#
zTx1N2aLynpq=BjzW&v)fE?7T^>l2qOUmlHqbrYC1FmwEwHl&Lbj6^k<1a&>V;H0d!
zRdUc!1xdq){Y8m!#RV6On>~u!4eVewbZS#U5VvlJW(W=6&r2at3~*^Hw9N2#lGoH^
z7bluFYic$+d1m3@oj-TZF+KWdfLh0QloI>Rb39b1kKn^1u-CD$Pl7D7sqh)CgX~!K
z!*m~S?=M4FDiIWr%u*zOc%OhuXhKcar9p$*Kn4;W*fHxYy;l7mh|>}w%|wF&eN+u=
z;PT0*DNKI%GQ~G#RlM)8HHB~oNy)`f@5F9WfukfFiP&5-MqYZul`<G^(le80QLhCK
zH2X(d(U{{vG+xvpG?a>Uv$o4&zkuRFY#_ReNbAU9uXQXqeF904GXWk{GJ9mW<3poC
zWP7-vS*un?&#hsZg?~!oz#|25@-uYAiR6L^>NnPAuZvDpqCQW(_19nT@z_lM-UWLz
zptwWzw_a?Ol+!IuRYODdA+L3`j<q5A^VaNEr4Jwr)8xoL8D%7axPAf}Ynot!ry4QW
zEnU96q{EhYJg9TMM^Q@OQtCEoyd@NyMoTsX2Q)}0TUG4m&u3cO+B(q@C!BGt7w!qo
zoI6PBgv3g4#||GHEM$4m;)ua3NvJ?n<k`}Nh+~L0G?6cm4v~hik-o=-9kmkdBQ7A2
zDjRc<bz7~od?4dRm9}oViG^+FunQ*b(%NFA-L$t<IC)B8J75R_2eh8SaVHe6L7MbN
zJu1p${LA`Lv>~K{9BBu+LNtmEtr-F{RS;~quh!F+;c_?VfA<N{;?x-C;}e1PSENIe
ziUIE_4rO(`i46{7BL1x%8wS3eA{~fDzbVT|V~W+PfBqEI-c8X13!RvA&rWCn9S5&c
z2f_#%NUr4ymoHgjj9y%N1k{hfI&{Nc_d$er^ynQ3w?2ZY;utB61+)i)8m|wIl)ANb
zGV%D(Mc67Kp|$MxLA1dW|4goku<45u5c}|gA3`ZY!wcLBi86G+9HW?^w%1yI@kZ$-
zd7tvI{JfoK)}1=G*J;P+=a*)R!-_J)9PruDtI+P~=;#Ewo(S(U7s_{3TAhcOQ|Kw5
z=`doEEoju<l*p*4QQ7k_^T>?R8=ps^k}wDw2@zyE1GrC2Uq8PnvP)mOCuMgEQdtWf
z?{*eslPjYxO~SwjfiTxi)a<VGdRxdtYIOvI0#uB!0-j$DHi3P%JM+r|Y9$OtUUwLR
zM0U76I(F$1FnY01pFUOOYWN>_TfKAPpV8s7a_IwTIqXFD^|q8PJu2{C(DiY1{`{A~
zWlb{1g^zDf1$y15=p@w9cGSbZ;evx01BeATQw5j*m`I4w(US9I!CGl!EVew;3ZXPb
zlXG_L(4Ya0goije0H5qigfhP3X|bjzd!|P9=6qQDXU>&(aTl8TiS(ww(}$BCA`TU~
zI3Ns*O#i3DvABbHSVnpTv4&YuoqxtzZEl;<wj|Y4n@$clEF^A76?6?YHfAc0BMwU(
z{sxv)4FKhplhX^or()^SrPS<!JCEW(sMY{QRvdCdZqNaizWDiSdwCtyYpRU+IxVMg
z!e+2IR#Plum<cjNh-756N261Fh$*N50KmjRw{LB4_m`T)aiT|{DL1#+E%TL1bk)hW
z(?*d6YZly~I8BbJLz#hF>yCJqGTWk2=gFu9Z`;gwYy_pl4$u(i`f5v6_zf21*qB#7
zOrM+5@(>#zAD>}6cWl}Ay#p|(10##X9LAPjyZqu?v;VE1Ucr2u718-|{HqcE6UP^e
zg$RW348r395<?zcTj{meN;8w)3lSE>fEyuBV|{5g7Y@#dli96&<VcLQGV8QP^P$q2
zrQ0YorfaHuC^n4cMCYoYe(S`?r#KTXa&2hOrMr40C@jh!MJrWk7fLYBa*#)et{g;{
zfE~gjla_Z6>YxS&CI0QG-GEW)d~f89i2FvW4%#MtIo&u76ceObn)2<@u8E8F^z^=+
zT=3=A_N3mN3Dp6M*Rs!p|3=w=s)mp+b?(>lcj#MmPH!}eoUBH1oI=Ha4(5b)4kBpr
zfnrC|SY0AeR2?+8r;X)cq6I${ema!xK2l<!NEh9;3tqHIFb&z{dTJ$1sV#)cOxYW$
z;NJ{p?|9SKTEb7o6{)+rx(2u*mZ1M+kp1HCV?8T(`Z>%X){fHbkbK_Iuw$rTDi0WS
z1V}snS$_;7_bDzd9Z0x@ruS2<SoK0PneM^()xAI0O+mtcD>WOHb|2`JbX4jv2<sD}
zgsZUfcW|;z(T__o=r0{r9kzlZA}TO{{sU)Yw$tV+8#sQNP4!>*O9mPgn2oRDJJH@;
z14W499iQ&Qf<lqwNVcs27c9_{gyVXE(@@wqMaGIiD~JvGqJ~)5kHRX;ix;2yi5Mhp
z+<*ND9m4Xo?lnWSYCO6@7n21ZV}oyR!nU*KYQ4fYz#mm2_Zk4By%Pr%p4vBbs7$hX
zRy>8b44&bc-`}q0r=r)W2AjR4i%8{@&onu~ezbp19u{AIr~u+)^oZ4#nU8e1v+Jgi
zC5YLy9R;~b2^uf0<xbz86(ZIQwr(drojinE1LV9VWo$@CW0|6fi$?Q1l<s8K*t;MK
zvKt@1Nbu;<GAs8lDFtwzA2=MC{%Tx88g$dF#|ZfvIoPuXPQh4X4`ek(NDdPyYIw_B
zA_&L>Hi2EeMaD?Ni<|jwzuFRWopnVL%}*qag=|owlues4E@Bj3D;51riUmJTUlcNb
z&@X(U3KK^n%Z5p49}$a4906MXd;$aGFz5s!9dW{5vVAwnzJL=7TVF^TN{Ewz8T2_R
zk|Fq0mx8eHF>FneQX=CQ3@VF4?-2)T(8sm3{9wSk)0)ws0yk&p{PEHpTb8DF(fJfa
zZd5$k8tmLuaImZwE=ti!gjah&J{vM_djNbtC_Ar?sEO282<I30fKz}C=>O--gJYq@
zDfj*LAEx!`iC7Gh7lYL%$E{W;?glY%UX2vq<^}_l4Uq@*mF+;R4E@JW6ey}N`REH5
zf+Katu<o5`MnaA%f`d(`(*+wpuE0vnl3w_y!0q^KZ5lsRa;h^gei2nDg%V^qZaW6a
zq;Kd{w8BKuJL^qq&_jsKnAAn7?Xl^;LMf{>HhX1!*3O!*sG*R-3up}&_TL^pM{kzk
zMi0FYqYM1j3-`Nc92UE4_tCH5S|<Ht$+sp+b2q3el|Tao9u6n(bo}Ne@Z4KFDx({a
zb+1jAe%!I@d_vpX6CO*zmIlq}TFk1m=-PUz(c?QNcVQ}F!E0azM581Rqc&E_I$n6*
zHBp^xSYnHA&Q5fc#E%ZnZ*KndAOeY6U4cgdD9~rKd&HlY_42PGsEbNwJ*EgikVD*9
zW#x1d9kY$JseoIJ1csW8k41HRo>_gXwF!7TrclssKdr;JVfN|2t`lXQlnIp9e(&b_
zBF~spDYar~H9(2T0J?)>sa@DTt*xyl_}XNhE6Ja?@Og`l3+zL8u2Bx^M!=zXdsFr7
z#9&5&CYry+01v#Xv(3_51*I<tM?8VL(5t%Hi&oAvc>D;ep`kY-0RcV<n#N#ao?#bY
zh}0?LAcQ>z?jw<pEPlGV1_`tbTBn$U2+ZzS{s7khd@b4Ry4k<v&CHrprq}1>qQ`l_
z9DLQLuWf%P;!}k{ryzS?jWy+`k|+)%mF`a88?G~aL&6Ie^t<um?EK-!=vRpVg|ZX;
zK=NoJ@eiu{8jkLW)$a)Z4Q6bjf0|(huA!o$qO6CopkQ1LB+G>T-}C?Y);$MAUH_Vn
zMi7q}lWY{lw!4<UPoG-8kJs>iL?-|KH`9*orsXuaz;|<10_a=QzqTx;%Q%7*ZHF`&
z+3pcKdNr2avi$LN8y?RV`e>J>hfLX*i12lxFSbEG1GeKJQVCy*a)>mf@Sd4Y?}hVz
z_Z5TzG1V^gFI#|e)uQ|15wS>JI;*0+Fd|H?;~6OquAl6kLnWm?gxu@y(0^RVhR?GM
z=Qp88rR0xpbYYc^f@d!r&vMa5mfvS?h2F{)|9~tG0J4}URG55(6yONmGWYu-H`vN-
z*k{9(+T3-`5b|J3{P5;{d>SEuZB|?5eyR;cTN+cwp%I7YOYJ0*nma$xIX=Ekes~df
zv1~oSzfcQkFLQ@07i!8tyXtR@gO3N5$k~3qZv<CX$C4g`&gakCe}k0|N_ssd!TCt(
zy0F{*+q*)w`ETC53GITq$di&EtLb^u(D6BxakQECntpm)-3qNBv;Xhc0LJBYqcL>N
zBn}Ld_&2nREXm)g1mA`;NJX%PRe=W3BhV)i7asmm?XbR|@dvm*q{sZ!I5ePOZyElb
zoAE7r27vjG-+xa9WtUosgn$LIyAbr<kdTI+MZOWW^Xyxnll0RVx4?4Wy86chIgq0B
z!q^tl>ZAQ(Qwe}BPC!(!0_|7D-=;cra!|8XLqvV~IGK4!egP!v`DnLV-Zc{d3o$68
zvRly7hwfP-uzyAKx;DDu-Xl-gK2Fp{o4dlKYz|rFe!mX&rX)n2>VzMNCxDvzyfxD(
zR*XsTv1s5wiSRr=^+dz~HBTbsVW{trr3Z*I1)n5>vZU%1W}0aLuO)toPA4e~Qj5-e
zGTjwuw6cX}hG(7E7C0Agq?E{!+WQ~sT4o&t3V>ZKl)*rJnq1!%+Nu=)<gxuLl)bMc
zU$&mZsE2=w1vt|w;xTd?8u5=II-rGEfq>BPVsV+7nWyY~yixfVGshuuPs4;40}jbh
z`)4{KoUO}q$-wE1#+s)rnZBjPrdZ`sjE^e0mRT9un}((vy_-;Q_-_!@s666vU>Ol;
z4)t@ALx6-C70y^z3Kg!903zd^n*%eO8MjD`EE^@*K2~M9yE@fbRZDfIz9bwO8s6JS
zN0=V#Zgt0*zrMMc;F|NzdI+$K>NZxEfRn%t;<1@WVU{6XDn?8(>}uuJU;miL`Gfad
ztLNd4N#cknUJd7H8d4AHBuQL}NH_+w^>9yfmtMs4Kp)3~b+R$oQKm>)vw?8{vk`#H
zM8IN<Oat<jC)4VGR!up`bx3`$Pyy7HM9Ki1IS{kZ22BfoJ1O(?+%oilNdzgAiYb#R
znQFkhjz#W2@GWs%C#pK8A!OO`XW}s+nZxRqK~w|EDxPF<ad9Oc1p`VasPF#^>c#ah
z7(WQ5$^`qdUQ4_QVV)@frA(z?<BV5EpFC*y+>A0^;8o()ku5#YL)&io32(WYDlvT>
zt`I1pQzkmK3;H<Ym=}124n;@3E*m0<%0s`<4yBrC6LKsX91i?2&q7pX10D!bpQ>-a
zuzLV<0Wla-U|JD=2}u;>ykz9i>{16rk|}|JJ&~MiJYf_c)QOWr)f*vXNxPJR8`l?l
z9kDp)+YnEY`Y{RrQ1K|{e2-+mkh}2F6DKGNzyh?}O>uVXfU#!T5dCO;KfEhd4Np?8
z|7=D*7Xmkq_YynnQZ>7B;^Jf$Ug{Gsuk3eedAFEMMM1o(c;rY00^kIqRqUHi3*m&@
zdXP9Ak`L900ucDQ5w5UTigbTAMBee=T*wr1)EG$AG+?y}Qh|c|yY}68G9}=UPvaQQ
zkURQ~9HvXGtK}$O*<vaiRSoNzyN*z6fsr1Add)Q??e|purk(cXuZYHri;CVWOEyN}
zc^1@>ycKMR{Nc~Pg+RI+tQSrB3^4oX5h&LKP&V~2%}VBKu3c~gPPBOTNo-#TfL7oj
zmgGWy=?Pvn0hT@~6Oh!FDGzX|aGlFhAWlLy<v0-HR!y>~V302EDx?G5we8kfVnnhM
zT%b~^?)G&AG9?%mcpw22-F6oULx9-O+6>@oiL@Lo5}^}<wT(Q;5djJD18X!4E$TW4
zX^TDDH>&2p?Feng^Yty6C5ez3pJsyCMc;orw_W<e5C+nTq7)NX>U62)!DJ~11Nc%Q
zh)UMl85oBc8lXhaauAQA^D7>4ny+qpO*5x*Ijk=koHBrk1;Z0d6+y&iLw!AJ@0FiT
zpsXE;i6@}cj5|NC!+rBp0gU>To$q(PGbS+zp~vRQ<@0&F+cX$=u0%&nw_H^Q?PER^
zQhs7d_hfUDyeY`_&4AYUHXS$h`9A}BS-1XAK;CjyW{8Y7_P83-FCSmu$d@noO;;|B
zAqpxeEUX1xt^o)ax+K~V*bR3LGYle1EV6PAPPjkiE`$k)WW8J=l7i!?NB+^aR?7MS
z{?N|_Sd*<|qY;w7{g1D*vr6_al#9R=2M&r|-ardapMHei>K#;)lOW<$?_T4PG&2KL
zC=)<L(hzHai3Au3Veu~x6O*OjiN43F)BuMFEoX;Fp6y1EDdIqhGg&A%aG&XZH(O#}
z!IdE(5iF2a+`1irIRaEf|LrHIL_F!G?(;UBz(}c{+HxjS8#pOiBZ<W%Je5Q(WfTm2
zBj&O<{e?m^g<zwfE)37R42j|=u)L$@Mw8<szQQ%@f>-ywiU$iv-@u53`%lag9swF8
zh38qq8Qo^`PfQXX#B904GEJ+wDZTH-`ILiYC-(CPwt0iLRs2@xeF5Wm3ekC|N2I2v
zde)gBL85e^6gRY^R&^<GfIu0CBvJqdG;M~jBw;)NeuIvvAWO9GHX`*~rE1ZXsi2sT
zkzYU~>-wExp;*u=Een=PDg6#iA~Z(|(t&o^vCe}KDUHES4U~6t4zS6ensfn5cMRv2
zsLTi$JP>Z=%A%W8YRv*nWZ4HFn~sn`KdBtU+%R*|`KMPu5XfwZ1`$0b^6u4=mOE_j
zjeXb?_NhgsxoO4Dg)jQ*n<ur9$@Y&+0oWuZ4Z?K;SxOgYm1U99*jC%av{Ti=EHy3;
ziH1v}nbl7LY{W_(*kNp9UkoPu{EN%VG?8(T@m|D;LONz?jd69_X~*ZfEb&dGCJB3-
zhkOwO8AE`E$LXZa6Df>`X}SwtPr#nAI&|z6tX&#9Bl6HZK+G2rtm6(|G-$|(g)6LY
z-x)cR7G2e`>!a_m(i)U>G_s8*3oiJd$`qQ}GoQrHcGwkLs55TFXw&R`Ba~)X*^$o&
z08|6#Jb)mh6QD5wv)dTRwTbF)`BWD;zx(&w2D3EInsl#jgjbJ*Yt?oh{|81|eARhr
zZRW)%*w`436D#^j*TkXW;tfJYgusaNd<m2zy2WGGV!#qvXEJRGg+=-Lg;#kX=?l?|
zpARq?3s?NP2M@_UAZQ2wRMM47k{9fMN!!-z)P>3hAh~F?3lon%)KEsGPq*&e`Rrvr
z4#qz380U+%hW;j4Q<4&(BjXVSbx6{GJx^-s_w)tSefut3W_N6X1=d5xr2%XJ0@P6;
zOFdS!$bMxqB%RyjqyJmP<L1c|iCU2n5yK5uDYZZ8XunQ)Y*KnhTy$qm#ny?E6yv~t
zRZuNJ>3A_@*2`lhynB7ZqlNkV<zKvrU@2WA(at9CVl#^t;??C}gFb7LK}ZwW0{$21
z42Nt9EZk!#2gIOpx$f!dE8uFid3M^Cyn9!HYJ#})fHAT4h$7TUH52?aMr|QcqNcK(
zB_52Oe@Qfp`Zwf+q3%GBz~?wN_UOO-98G5T;^CNJ8=zbJp};9g`t<UC-d;$8cS;AO
zO$_yi+NHN9;?%f@wBKFaKMG){1GVgGU|#%G*xpRb%um-9$0R!Ie$jotoi;lBjR4R%
zGHwtZcShSTtH5LGf?ovE&aDu+m9hUuN}{w@&kU5;c`)*bY!vX}%E&)6ALlrLW`g=R
zc&eBMXA6@zm$TFLV(Y5s?1%pooFc(aqbKW4+sA1`vo-jv^08xn5E-oMxDzL}@S1U;
z%G*@|D>z=LSjbK_9VpY%(4cfwx-9!;Xap<uTTIC7*9Yvn>NEjpvrzH31J*jxCRsp4
zp5jO*fKH+rB61sOqf<SIeoax`(81m&*fZ5%{_zwF@1zcq{Vlmfws1WZuIR<GyW>T>
z6W(;#I$xGBaGj`(Kvh_t2}|}KZR?lQEffD<;r2ee&Cv?%y(Wi*xu&mkYfumc<0GC3
zrBhqi@wMMR&OY?P<{B_`=k#W0PGav;wPN&m3sIp;)Vcj^w#R-4KyqPLgUBKTsHRZr
z@mxBMW&~1Tbt=7-c8`|0xgUJtr2vhMG)!gzkh#R5@y1ilB`Zi9yprFJ<M2GtKZ%97
zkTMt`l^C0cq(!ambbn;Ocbs+e>}&}Ai!PMuAGCw&0K-CK2|a6O{?)4=8?sLkta`ul
zC)lyT2iy5p>|~&f83-YocBVt4op$8uXXhHy77u!63}okYH}_qwM>xYz(+SUw18gN*
zAh#R7h<z3+6Z}+^1%G|IkLUDNy))U1<(&G??di%~uh_$RQh#Z<mg(MBD?IUFr1EqC
z!|12hmKKdVcZBGqz(=aC0Bov}O0=Tt4Y?8K&Tg&;)CbjDv!SHAfl72*e3>J$c*0I@
zd6}6XQq~;ORCu#CDgW-n8-XvwI2%s<6v8GYDU@V=ZB07<LXB>_jEt_w@T>KLa_kth
z&EIA)#x~DWD?6bJ`Qo#o8`2RmY05Lv2mxLsJz{DkY-(FZ0e0|u*WODMO_TZ4Y=u+n
z@SVO9o;|^`$kZvZi0Ur+X_TWpAXndg;|bMY^ezqwwTZn#XzSJr$cV)^hPi|^11e;i
z6^yrv@Ke!Qics9jw+?BW7sUki1!*8=X`K5Jh@4#Vo>-6cwbIE3+a@ocUn)Oz*W;3K
z<Hu<yBz_Hh>**{}hOoa99*937!vL+0!CfNz2_Q5V@PM3a+6Le7Zm|a}nV#BwsNi2|
zGWaJ+HKugt`&+kek%$O`mozFPn<<XE8=PTkRzYF{f~U3CW0pnd5BB`c1%Nq5qC*Te
zxH#H?y(5$g+=9eR=+JSG85kG{pE&dj?@?bp3~@Y)X4f(HtxP7v@_7)x0!_U`2td6-
zO3-gR)&SX#ZBRo-1W%{TUnhG40M<5}$^Qc92S)q@&X@b&!1)ga{<m<xtE~bc-d*QQ
z@7s19>ws{%-^nMLq!v8X&BCcjwWyb1*rD@O9s0Ch(U{3~M#vyv4^);1l(JB{oCc}x
zoET*OYbq*NPY!e`hxb4Am~uxVQrk87RH3voj1w*jwBHX&zfeYlT9?jv2%GS`$d1Xj
z?}`%$b=*hSfRZ;U#UmU4FmY7aYCKCK_ik11jRZ|Yw_k^@h!L%SpdTOlojbZtA<fmn
zxEs_eyZRr3e{2HVq(6j^6~PN*{mB?`^azOy(4z@<NoZ=Lkhr)eMqive^#djnFNY}M
zRx0@r=q2_z$RMK+jp+0kC14VQbo<EDr=iR>05smu#SK||pp*>}z>KV}uC{KM9sF?C
zux5oF*y>?OI=`h9fDzyy<c06s284i+zme3paAh5Ke;b5+LMO@u&KTdq4Qd{LYvchf
z!e?wY3J|eCD$M{yv<?!+L?_Ny7TaSer?~@@K`K#a5rf<j;Z7!MApq-4uea<!c?Cli
ze}5;Nsh8x*z9~V+Hb02!9%7yGRZkT9ogoQDhPM*-8@9AT+oNj`Ijsi!Lmbv&{z}mU
zJ-Pk&*n>Y7SH=-VGhlUs<D?#H=ueA6FzfWwCvvDZZ+`XFx|ph{Scw(kg1m?6(aNA%
zB<m!Cq<tKilNcmXCO$3nP({o+VOjuW*cs#CS!g2_H~*jtC>_~)HL^xtLHaR=x9>Mt
z6XgwJZIK6Z;Yf#BZxN=XL1_eXR*y=Zvoyi#SV-zJ7@egG6b`CKV1W_#3~B&hG2H$=
z&|9C7kS^}#W>A_CCbCczgd~qTRth~G`i$JZTj&C)2D-+W5C-ELe5k6K3uVLOld=^7
zXTTc~BDdd;laE2u@OL@l!!qT?Z@30I=yVbW5CCcdETPtCihhM`RDMc=F;j$8kqG$#
z3a+ZCMquSg8Uke&4k>hF1O;ZIcBGZ#Z2&d%D^XZZgkn9($T8(L%xy3r)TwPHqaE@=
zM8{YivLu=X?rthiwHo;kO?1@z?`eDC=5LIo8hvtUqw|0ENV;+=wma7k(9+5CFDEK8
zc|jgx#AE0n9>@-khnG2hab<3AVxuKPOU*J(hub_g(F`6Z9X|ig4*oMBpK3@Kf~|cc
zCa~gSdA~bb{H(a-+f}r)^RHoxPInp19{0SxhXT5`Zu5)2SB6bJKaWg(Yjg@;V;7<@
zscmFEhw||G@}rAdt}oiK=<*5)&+AodDK`_6o@f7(6#h9``0!2P;fmSkHpY0yXX<ag
zdiM0p+dm~=mAOP|*tGcasRQ>ew0Iu9S9El0@}uP0eWKn)N0~?C+DBYv`@%coMytmf
z8>y_^s8MyfSoW_&%}sB7ZS$u_f?j1?G{eA9V>J}9N1G4=SjImQ$YVGQN#qSC=m(+G
zPaw!VnYvt4eI?M#LyyWA2HqP(gxJ-40+zE3!MQc6!L0~VXgysFkd)RS#?AsmA<(Ms
zK;gHiuNDNzI9QUIF_{HQzV;XrZ-mN87G@<iu8#}S9JM+5ecLK`5K9;~>%0O31I@EL
zqH50vStOST=lo(1B-!(&*{DPhDu#WrDsF<2YO!VYekHBJHsw+)CCpFsD~E;C5kp6j
zZ(1p1Z|>l~@0up?@*5t*Hxw6=I>XZ!@v*T*IO>7GDCD8$d}0v!s)Usc<P%DRBt;|}
zF1#|eaoWef!ysQ4g}o#0{XxwMY>{<af1Wx+PLswvBl-RS^PH~qkz(!q$~Fshj2x3{
z_4x*nfM)Hn$vG6<p-4U9b_`|e=~nwXYiYq{Laq;wj>8ut&n(cd_fd?LMfXLB#$wg3
z=}NOkWP7MfQjU_RxW=fB$t_-y!}D_7@X}n&M03?j(mUC4dY56b&n+)ru|)OU(uIx;
zpySnSwzl($X}JHniv}2-xa&?1Ck3LorSK9XBN+U64yJUQuc8xBloZrW+YG@`aR7K}
z(4j`|h%Zj(&CDhM12XWR%;SgG`cmMwkGl7Hhl$<Dp{fb{LmY<L0+U*f4Y13x_hSQg
z#y(!>wI^5gyJyCuM;l@IJWvr1L5r3Qh<&G=hxFYfBh|Ly8qG*Y*`3vr!X!#VX6=o6
zgcOW4h_$8izFsp{J917g3K&7r=Z6_+H4}f?sL86XZb6mfBE1EtT$CwHUisWP1`DEX
z;AYqV1r*~1n~4zny4aEL;%q(dKaTBwRLLt8(Tt1Q{OyrN${l*c_?U-v4P2jL&$YyO
z!oapd6sfHur)v^1I#@*Qkp18~zTxOi5l)wT0|rtkPID<$(*)%YzABU-e5MC_B$bZJ
z_C|paTeWx&h9=vkS&-d$hGW-xypgsqNPO~CXSViFA3Qb3=QgPylZqVqzPw=g4e?n*
zNn<(96T<MfXZoi+I+P6JepDwk<3G>nnK5V0{movoqSVTYiu-wkb=y6rhCIS#x-&Op
zLl&W2bfW>36RA&E{}8oqd56a>KwTj7?Wya)ll6)J{2X;LY$@#A`2l~P-bZ#Ug$kB7
zeVckzYGxVy;4Z{5c*Q^O%zd_1Uw2uhWgfSN%uKFDM6au71$Zk9Rm^^X2@>E}aqj%s
zA6i&Q3pGJsYm}$k9^F`1j6}s7*`5?5Z%~JR4i1PpN51!xIUZt2nhSYUo^foG89i|l
zb;eJ=0nn_yShzOlj05>Ud~*AukG|*qX-_+czTFW3Vj$Y(HgmaHWFQsk+wFPvIaQXl
z&_^Nvk}T{Dn<l6BR;2y<XHR<fxb?U=wfbt)Db16E85p4Gf3BSOao5<}Ogd4}wSKqp
zMhjAKgZ6AYJG+r`hkS2}RNKR|qCgMJxAM+Uc&Bagn%uC-f#{%DjaL>(ZzbEpnX5CF
zgvaeAu8@yiBmD%>1i2H9@18?&fknWBgDEQ|E%iWKniK(+tfZ`5ro(Q=y#=lRZMsLa
zE(y<6#bdOptq>Fk%kRaFTUJ}79`FCsJkjmo%d5DBmxxJ7ocE{M7vb4IeVYuz{7!_(
zv@Vqb_le{(iTak5unBV%5RzEkx&!*H)>6P*tU%-Tef##UJ&XN*Rdz9+K_EaeiRO%0
zGOIHPe{REs)%ZPzzA2At4t|Fr2$8VR;T;n(1z}%BGnxl0C@v4N_TLww=hBr16#AHO
z-aw_eUm|pb@c`l{PCh$x5X+*_itf51>>Qg9r*A|)dUQJRtiNKUE5f8Q*v(L2evve;
zUF!9uN)26pF>daoT2;<tN5OTyK&Ee(d5v*78T$3Y2Kl)!At1uXXM6Yh_3OdzqaC%U
zZ>$wX)nOTX4Aq%X>#Sh>;J$X~=k8V*DN><R2;#0iW<TKKhHR)Dy7T=khI?A0_ILZ#
zpHIC~`|jxg4ahPt?FkDNC3SJAeLo)gj%n?*4r}s7*{`jz{W0xX0Xn1Zx0}x$(_$V`
zj8v0A2VAh@=f6hYO6EVHWPN>nTc;siL$GzcpUH%hiPqRM?r7(c`Lxr>1-AK@)LNGa
z<)kgxdimCz+_A0<1IW7^&3f9ov;YjWAIFY%2A+#b-+XWPV_Ln(=Rd-Z&@o9hgB5QR
zR5OO=il(FqjmOu?W0wNyA_YG1JZciP*x-HOv+T0M$<tw585_UDh&}&T3uJbHu{E~K
zxFY-;l>4M$af#7Qc;;?q)0=LWfSH?-sG0;w*_@}J!{EI5GP!Yr@H#b)j*b!wF%s=D
z8cmMcN-<;AbhvJEw@%>i>A01FN$n3QKuHv_iUGw1R~?fPLi?>9Vi6y*`2iD-nQ|B^
zw2Ec0h^TCRZ7YPWW=pfD-g~)Mj}KRcP1;Ty&9AnI^b`qzw#M<}rIoucoQm$|;6NIH
z@*09nVK?;b&*QK1;1%-+(-?*zhK(?%#+gLE^(1Owq1Xh$U_+1<hScIWR=Nq+fLK9t
zYO=oElSu~Wvzo<fh21aq7%%iV$EG>ZHm|TWS<u8?YsT8SYSk*OAQwkgP?1}gnL)|M
z8*Au5e?*~FtJm4tDQeY}JO0f`p#;cW0LETEeZ!705pF~YeCPV{k8^CW6oyT?PO<Uv
zC2~Uz-Ux<em+M`4v1%eMQrP%59ycnnM-U@=Q=&ucb->0P=)PA2tp(!wocdZQMSy_=
zz1+T?{c(<}2<?<gudA!G_qqr}2=gr4`+Qk+wz=r(mscr8h=D7*C(@#?BZAohlTZ!}
zArS8M9Ok~5n46aZ!?cDmJCB4!>Z9k(K9tAAtZdM5+XnQol)RW^sN__xTD>~Oyf%3p
zl0-~4)>bPz^#p75P8w5wEJ9D%2)3I_C&gK(rcXFi1rzlJ7VC!guOC&#hh!5OmskeF
zs@nwhf3ig|koF;(c+y#Q@~E`8|7I|}4<wf~Vw!MeguC~EBGn#jlYHUROK#F{b&p}!
zKwGc|roDxVn%;fzf#u=hM6|}rUSo0keHpHXY1>vN!H044w~<2n^XnhcRdI}d2NOc_
zG7_=kgemXJ(QQ_wV~pv=kb3CZi&Fb4_Ag8vnyk}(MZ5~C|8fXHiy-mPk2GgDh7zj8
zY7~z(4dn+zzmK<<$nJo7GHJ3zeoCbiCyB>Os|11zCkKT=k(_VIO2RNjB!0ArOOZP(
zKAV+ztqmBP^F6u2590+>LsONQebg2z|NSqO79@E}bUiqg#G1hXrt21k;TH>&L28TE
z5R3#ZjCkL^Avk6#9kYWj<Z&*ifAvwR5WsueVwc0R+;#1?3DXtg1z*A#QPMUwg(6$<
z{smGIyA%ok;j1lZh$@xotKWrPc=>Bte_~B_^*QKWfIIr73Lyt^-4?}1<Od!t<Tvqn
zULU%Oj7h-5XiG>bF9v(RM!H)7_K{MAT)uK#uj+0kF!~~UR(71?J(d<^K&f=`wn{e!
z0%4;>CPSLB)AstYv86AT=l5PCVQt}B2ff>zHEsj%oe*@}R8j@(v>>d=#}|^+afpBl
zCRL-#{fSA=n^O=;Z9KfzP9rFNy|k?{y#+mJ2290zgZ))#n?OEgDmh!1tD?>~29ip?
zQ_d4Fd1(Z5MJO(}u5teQXavr&XB@`elDoxHD7NK94;L?#M_4x%h^605+@XyMh<=K6
zs6<Ayx)gdZEll8!L~Xyt>Fku&+nk^rtv@rLrKQ`7k2C~@F?6}U<Hm)uy?eS5T;e?f
z@aiNeAU4(hJkOtpSb`Wqr6bl&uxTW<e=IQ+mPG-8m4TYpXE4PzAR$1Vt#@M7L@oxD
zbj4-JiIY=7rNjNOEa#?ohQUWsOeU@9xl<E8OxTY5Bt;<psGlSo#C!y`r=wxsJ&2Rk
zaw2{dux$Y1&=$Iqa1n&b1JHw&T31yEv;y~&UM@1POB3!2)L|yb7!TLle|R*K1y7B9
zCcOx-!!C?A|CU;HOh~_&aJy8+lqG`=>~0nNB}liMDl02vSLQUhk984KX#>;J4q`r6
zy3n|ei3(0bl5@TK{wm)X0NWGfk<^DNOmwKkTgYI@gq|Hs^JKQI$vT&B&-BogUke9e
z14a3^nd^u5Okyx>de)%gJzok;hdB&R?m$no!W8CGd82M4X;6#8AITHAs}^RH%mA^F
zFsy5^(?MLN=Q<Qt2anKmaXh-}+~Lv!L=6?`EjD3edPq}hJ4Z=kNI!=+n6oGA)L)^Q
zDuj{+`bB-77jRA^{Et$Y_CQpfcOVEl33J}pW#y4m|27+6M5mx^YI0AyGsZl<_I#P7
zjuIW9m06zIl_Z2=4y<j<>-u~N=Ir?x6`%?Fxx3r7*@bw-$#`=cA~f>_I=X$J*lwW?
z!ZO?USh<-QXMeBL)Ta3&BFNt~Ci6A?3O(0lsfE#9ailVoBHVvUO;=#3m5K9RCE=`y
zS80i5*`1fu;~byobRK8`hL$wYi*Mvx9gI3Rg-V>Cz1ML;-@YsB$2U-|>rA54q#O5F
zxeKoCP1kw_9SyS7Tbzb&wPMDNdzzG|zmTpU=G$+<K0b}vK~3YZKVt>$fGf(CMDnU#
zH7_9BCSaC`>!;tSbfAry%G@-ggsAvn57e|0xZ)PhJ>|Q<+#%E9%OuTRuo-MnnQm8@
z{Gw2&Q9r7qO{>s?>n5ZrNd?Q2;GN`p4?>zXlTrk-q>NZO_K`oy&7kC73KBxeGIkCs
znsf@u+inbI<ckM8wFQjSvGe_~i(7goyL<Zbhw?;_!QlskwB8X{1o$>8DJjV*NMZcb
zLMbp6l5tEUG1Cp%B}fxRh{Hkv92+5IVirtt3escK2k&qfPW3LN(yiP$x*fpoK)Veg
zp=-OA^3Wa7Y4?)I7O5F5_q?^zV$F!xt=}xwwry!Oe@`Amrw<STq@on+G5L`e*fK^X
zumA5uIEEwbz{9gy2OZlTCzB)gpB1O=9V5YpS>6ja&}|Z5e8WxGnx~XWr!u&Sj}Y-;
zZ<K@L8nml?_hyvYj^dz^;1IHi(ncY6TA<Dbc)1TeDXS;`fb83Tuc=|Lk%}AgsQd=b
zTPM34^lv8FPw*zvuw$m`w62wA2vW-625m4{`8<>{l=tu7k2E|edYO=~ViqSUhujm%
z!#kj#0Gf&))2-Xa31zo_m8k)hwQf>uQ<~jgU2f8VCke1fibp^VDIk<7xQ2Gbf~CX(
zn4>+gqcMj|LvyU3FONAHUPZg`Vm2@FLvgR2U@vD!$n^nwGY$CyC^?FCAHn62hj#=`
za!b6%e0=zR;q0%E^=#iC<gAH@hZ})S2n9Lwi$#(RBH*Q~w>u5RwV)d$>rE?2$mQg~
zVpx)0Vu`Mc5F)EAtsy!0@!@3|5MSp7jX0zn@wWLU9E0K4cWbfvJkP`>CYFKxw#%e4
z!nIR9Ofgm?Zde{+VL8GIJi3IDD5E`0E#N(5uR1@*;_5kfL<RsKB4+DYZ6QqkE<|%A
z=}>0qpIICJN76?(NEUCGBdqj28(rIWg%zQ%CWztMx_v40$iDzFQb1R>OG~Kg;ZO{L
zT`-OPsQw}@E>8TPjNv!6SRYguQq|x7e5)jFoLmCmY}TXgj+ioA?Ych=Qxy`PxuRC<
z(RjS)mcfpBdtS^7^l*;uIXg10ImqsCQSvi)H(CB|c6QU%F{_^L-vzrpCflBNqqmq(
zFlm3RnVXxN&GQ@yut?1H^@aUqlDG4|qv_R>X|Bm^{%Pfkty`zTn>~Afoz5WVDn6f1
ze^v8xcpE)DTWs=_se?aX#o0_AlEfDtE@(fy2kCIAex4TdHiyH}rR7Wb>seDH6^U)k
z{(yDQ$(iN3F7nKb9tUva7YJGXkjF4yt&RqC{92-M1Ir20-geDtvJoeC|BRk3LFQ_)
z(!3X(P+1yu#XkunO;gJ4R%M6ZOR7PDl_t+%pQ$oqcBZZBNR$5O50_Eb*T0@mF32;(
z^XGXho|a!3*QIGFX`6Q3x|p{tNZ&<^p#&|HYqm28k{JI$Ki-@7Q<d#Znp2i*{<P=#
zua3XPBqa&YpU-kEGvELv{Lsj6yE0EpAaBb=cILgLaCRumOuW*}Zu&<@n}O$9i|{Ka
zW)<J9BhPjB+`W63GcIJw5RQx7o>rZre_NR$7tc1G_Y=1+#X0eibK<e-AIS4-2-+Rz
z=UbvF-Zo9*l)F5wff0^oDBk`5Up%2{$wAM{zxR@5=Ud|QpO5(e-&$z&bPI>eV6xYr
zm<4|T+>i&dNX<{eb4k>m^Cl?_y2g!3j%|O}1>6IpzLuiIBoYIhM+#}m9_H<)_|A(n
zdf=06Uj8bO@O>PSK`1274Pk5v)=IK57(ni-96jM^pe-TOg&U21UcWgiMXC{qha~Fg
zWuZagCm1XSLnMp=D4CHgr!-h<7wYL2@?*8kbhGu*!PbfkAkjBhn^zTnn!QePP7gxH
z;FNOd?MM}hz+*;%#~UUPP_-fYXGVZmgi^AA4zZoYEtS9ux+uc4R~7Rq4|<*<wA$k2
zAb1TpK~7LS$!GYC13ZW1kdX$h9|GBK_4et%q<IBhaiC$Ai#KJZysIPZKt<9{LTGHT
zueWeQflU+<7t+B^#D!Ysbor^pY7|+M_j;~7`aI_rtZobZ^D%m`eVs|yI-<K<<^|e(
z7~;})pvdK*p4gz3G73-#n$?ZpKPDNCkZ_o+leK-b+mKe_iKp)T%U|LKYesW_oPNXp
zoXq>e|J`<=n)B_kBHvcQ89h^sXU}#Lz=$NaNaerf_Lp<y-h!{)-zwrE1u>0sgmvnI
zzG~Xq{(xdy(e?@fdO2UjixiCKFt;Nx7WgV@I%X=lzh???6WE;*|Me$bWDeg9tETxH
z=#TzP@PAUFI40c@VSjfQph@x2)yT^UdSDLe0s<QC!owmdO6{53LON@Zj2e0?OPE}A
zLbE79`FhQ>54aJbT%C}C|MF8e*veP&Wo8qu303>{OLNw}18>#(?MfrtVyh#dv4*1D
zXM|Qwg8#+yj6NM0LHwImf)K&$*LF_EeeZS>!fo(uy`AcE_WPv+|ILOX@=Mg`o5ja^
zxIOixdM3&WL!_ZKVE4r{*h9Jg=TIe4qUR!j2}$R*uY|XMeFj+gQ#a&6L=hMuRkH1r
zN6XtaN)c9A#!i83u070(&C$kN0sSJivc_{YM9T4wAR2bgnPUi>&tr>GE0b1d^0wX3
zV*dKSxd6G^UOAT?SQi|CJ4vDJTC=@@0HM&Sx^Kgjb4Y7nE~Mi_a9<}d07;Rgt(`>Y
zID;+m1{0?Ab3n9<36@<f#w%J67|V6fZ6e%=EOhe$okX9Rb?MH+)XZ*l15TKyv9#jl
z*dIPTMDB?3iPmZDC9T$|f(N1nGJSUwlB-|@&Gz9ubuG^VVg%w4ry%Lkp*3lN;8PBo
zeE`9Oa7#|G8OeZn%%8nkMu0-=ioJ6T5m+iCbUM&MR)$Yb<l|bLEE4_MTVc5PFlJM^
zCzhmtICJ~x!#_6yyfPk|HaHfnFKyEyM$EGR_^E$JRsUIwf35|IFl!88PJo4RtY~MK
zvnqXcI!`j*ME!fDMdB@v0k^X?dk3Em+vZ-N<~cOeBI7f$3(3fi@k<heUH?a9XxC9f
z(>t=f;@^YB#CSG1F7_nm@<ogY@@OE=Ot<ip5+R+`m>i|Aq9im^9<{%?mbRA{wf)0@
zrY7l|nVKfQKeXEJxH#XE2Y5RUkeY!(bEh<Gm_O9dxyI~SN172==kDHc5^1uIFj!RH
zPpklU?w<CTw|YEF5q@~le<C&2|D1q-o`ApCqO-Aawrw=JaNB_I7lSPCgZaqk2#x_5
zK6vJW-5Zc<tZvBU8R7U&I57-}um%Pbjb^lwECK~U(#Dq5Q&CNr-N9xw|GaCuXzjv%
zw{2Au@E2g-JCUFe9MT$jS377<JnL_fUb}?=l^_gBKD@}=s5McCf6mQluvQ}In50L)
zB!QqSL23m`LcBv3swqg!youugM}76{=?gQf`tlR;`fxs5s08R1_glDT_n)ZCIMPW)
zv}bVo<8><WI^67e@U*COv;{EiLQn;kr1pWd;4n7*VL}~nRtN?HC@X;jo0^)|WS9Ht
zS_V)?zO0}6(Dj9v@}x#MI4rMVp_d@Ig>jlwH*dwC8>q<u55>g9QdfMiugL^{R*niO
z`}1y6uEiMjn_8TcsY#cAGX_jT<MjXFmS}5yTGHa&buv$DGfDW!PqZDk?!$)<2YvZe
zHROapCNdZ*bb$MeH+EX{^;fT6UB9GP%en#RZ7!%nLieg_DzfSZ{-*)as5V4SZVS!`
zk8##}UY|3RBP3bopCd7U{`@j87p`gjj%B{<G7!vI)LAJtc}&b)TbF-iI;i^j+h|F*
z@S~EifcO+1wOW19SpDPje%iyV!73_C)KaK@h)L2j%Q5cJJ9l+mI#;sLcMU012JAe0
z=ynMSIZ)t!qHJdu1xl*qoO)6u)0{f*#L}0%%Ff?qfht8=m`a|O7l|ndLWB^ZKll?%
zk-;MU7(mxZsfZ}%Hn!RdVr4*f0>HR@5_GMvZKl%x`thVlg0PoPL0DS~@>ovR<MNb^
zgLO#R+rlJgoU(9kP_7AFPy?FWsHt{!QYXsAN_0YFX_V*f(>+R98z>okB$Yy{PH?+D
z39{%5K}!ACSLh-L*3}K7WPQ56y5>Z_ZAaxel80mTZv|76|N6Qh3aKHW@=BCXFiM0U
zfXb1+?lr+^cq#^un?$^1C!3kefVoLx7i1Zh2Mc+ff+q~*y0@4W<wzbFL$h-T7=EC>
zYy;3-Y+6E)CW2L(HKrqI$0Ixm_~4)K6aA=6htO9WbYD&qCJ;JjHlx<6m5v(c8ZZM!
zJ`~FPA=R31sz=VU=Mc`a6@A`HQ3?p})&yddu-Y{pSLJ`6-s1_3by9P9UBr9D|3B_O
zSUEYrg}Y(Z9sKWOEKGEMe*Vam<kdiFC6!J)lt?;QNIb`4+w}cK44N7Y#D@ZM$MOeL
z^-Efl_2b`R|8jK*{o9Ws_n3{|&n>Z&_+QpG445tF#7)k#J?Cr3qB@Y1^UJLc!csux
zO@Tt~#<R!44-eYjDNADOT@az56ajc76*<eKnEo|3r8`N$?M*?uQ(UKa-IIILf+BeX
zYRD3Nk%ZVgNQK0ur%Mp%b9AsP2pF;h{;Ct!h)FVKsJ^zL9>(dmmSz!qOl<R)yOQNV
z_#1H|;s{`S5;`CfjkZ;!7~V)b7LDPsq#m3M`dBL}DZKX{mhXE2#=s_B^JfQ%sqPkz
zR!2Y67Tg}mR}r_@;o|~fLBTQ>pz_EV1ga;8N!`F840R(BYI37}eJj`*oVHuiOwdh|
z!Cn)fB4LfzgPKC4-tl%^fdiq+Y@wpN<N;CGZPZ=FmwIU$>g4<H-sgXbA888um$Y^Z
zUp|AHLo`V~DF8FwD&w`elldQ^zf(#~&Om}bgr1PjSC=id3k6?H7CbH$`Zuty8ugUh
zogutIEHYdN!Gd#2Iy6w?HwHRg1w9W;Xq6|+<qY6D8Pt1ZWap5=k-s90T=*YSCnYF4
z@2|wow2<|qm>KpB288!lpd`Rtk;jJiF+1`kW7z~(K%wUw9++~LUOA9lZwe_QAct=v
z7YU<X8YsS<%Ivg5Ah}Y?`kbV8wG-+`0fZYy6(uwXJhVo=#e4}te}igqL!t+GXI4<)
ze}$dK!5cll4)&c9TIif$dPJeLb~H?04kg2t;-(stUCon;Z@O^rHdvK(ll8!WZSN^e
z4lDXLSax;UvAQtG&KE_6U8FPywkjPZC0Rn3ySMxEO#;5tDh}3b#1YLZ=s=cIQMduL
zk+J6D>&4{raq^bizLy|H7SMV?8gimQ3Gpa_6^Nriy`hv)cWCytk;-QqAffH__0bJN
zc;Kb{;1Jt9pD`yQDk|!?Y~!GN19k722edgy7{0?tZ6ohh*MlNP>PYCYEG6|u!oVWv
zJg&eWf+ek<GZ!3zMoG@opc>7-Jc3Y>+CKXDjGo+;C?-{(V+pPkX&G!3eG~{i$?hAf
zoPWx6rK%hGGz$AV8W60ddAv<B0M8kkSYcoz?EvMaj2t?wL@v3k!2zAuHc|KTqYp|O
z#c41O?ly{hz4OV|_M>Y%(u~`W@(mn~L}zh#_ofdQ$TMypt;wiybSHT=&IS9kJ!nQF
zEdmO)QEo>A#kLV{lZ#Tq!@<G8-1?rAMj^gXqJS?Y>^ZWkYlTuaNmp_J4fSyu9%Ri=
za{9<QB*hw-k4cePggZp)+wmOi?=1w5`F`UblwDe|w~w7Y`(;%LG5$ZoGJ}JiT{rIy
z);;*wm923BHr0mBX?d|8J)^BI&0|eJFTRgO1Q&>~Ao?IoB|s%?Ha(j%@ul%;PjF3$
znEat`mdUaZK{173Mr)H&ewQB22P3rssB~6mT)a-hBmzpso~A~RyZc;RgzBW!4>wnB
z3fX0s%Es^fYZcBfX${`iae{%>{3*P>b28<u#8$+b1REk1O!WB(lYr~tZ^D_ULh6ZD
zIEf2ymyk#0eN38^=OCgHcdn?brb*xX9PyJVp+GD9A?im0ga|<@Zs^BsM|G}@kd1hJ
z2`K3$zgebhYc0U3d7w`S6Qr_^%JfN6pFzP)0#OH)lqTu7g|oM!OW_?lf%5k1oz@Wa
z6-Bq{8rzD!wSe#lqBqdV+79>r4x9}eSa~A^4q0H;_M?r){%#l6{@+4h9K0xWu{eQA
zVoeCZ0Qmxd-vI*sFuyS|=}De_%dYn<=}NQ12GL11@0}&<&C#!U+n^L>p$B9`f^9%W
zc}*YHB0cw!RwqQ^ylN=wW7G_TgIYyHZHRT5V3LFoKLcWN*W(3sNx$cXS{HAVf)Z;^
zW*?XRUf&8$WaH>$$J5E{CuKvPZAFj`AV(D4t=7avSbjC_s;f79UmhSm8oI0_IQB^%
ze&5#dVds-0?MJDF&O((^fAGnjSgG@U_=}gnnVDG$31n`(%>sk3I4v!$mGB09w<Y|M
zpu+GNa`4bjN=y_2I{V6u=8h}py@Nc_Yw-zp(g(9)3#=_HEV9zm)5oEdz<B109-LM%
zM3eP&b#?WV&rt<5b*0cbD9o;@@dH8mT_2(;_K8WrS8?Pe`QWzIoJc=cMDGKYSCf2O
z0UieJxaEz6c=k|Sbu+j7X?~uTX?=Ia180C=T9dB@<d2ir!B}{7N6g(GotT%8Bi0Hb
zU7v!XydK~7vLN1Nd!XXh@lsJHDNP?xUlX~|5zN8siRu)LPtykxf!lVr9AvCY<)vE3
zT&D7ueF`?w<aDNdZ9f`sn#eYlG16i0d=gk5P%|`qqQzzlUmW}T_lXU0I`9!_LG__r
z%N#YP!JEKw(<!j4jXG?TQR!9~<SIiuyX!<IlE)F10OuT4P6E(A@Nz`}4i#Ek6N|2C
zsCr1w6`7m1u9mQW5Mx}ozTqY*!%dDic}z`&=$RCz)tIGq9AO-E36WN_0_jrJb-0&;
zWmXc@*Nsd|WB0fZ<sbx60e42kc1*LVOEZ;u`fzFuXTD^^{gy^2qnt6taz$h27%_x)
zYjxwXEz<PkyYTzjLunzqmUa#Q!e_SmV`LTS)Hp(;(J+vh4hi0DINzs$-2uM}P>GOl
zT2htm=X~%y>`u}`PQzy*;CAo5B9ycXEDj1GLFGh5-8*4-FLS8;*9=gx2rHc$sM6OQ
z-*KY?d0nQrU;+leCQ1<F%TPbui7bgpI(aEYTDlgR@3W=%>pBA?KfDW;Gx*}$l^x9m
z9@@TI7Y~lDu|J@cM@$uL!Zhiigwr{%%gNxjV|les7|XsqHL3q*gmZa-j?8(DdMWky
z_q_O?O0?m&8lh1`rJubg74=kGJCEHC-T^k^<}4_1_20E}-AoG1NEk`Lf_oDpbrWKO
zf&4$tQR=#nE}-4iJ~VZvWtI~@B4qML+R2R?XLl5V@ww~Nb5E8ZQ5B=ok?Ev6?vIYj
zah0S+rff9BE~<K<e|u0mEt+JyD0>J&kjIeZ$weyeqIl5XN=3Jyq2&qdrtctR0>U<J
z<BN@{>&tIK9!i=K$X6R8JzKf+%mFkag(09zR4uIWbEc&lA4g;E0}4Uh``|v>pw0J=
zcyf3J0zx0bj=!ya$?|4h|4`b^_M_O_*v&eeG@bH*I_uIHKbxq>>((RNnw4uCmz|w0
z3ztr%!#CU6i2IUfI*x9ACSf{~6eeDXApRuhAf9e@DUDvwA%s2pIoL#AfeG;}%TI)s
zEk@{LeeCr*5*jeH#`%9tm_&!9zwLur7Z~9zq?lC=ylQ}t1c|)j^Fr}P3tFC*_q_p~
zRJMs*ryFdt4Y>aZ1SAbEN?^0Qf+21`dF%W21fe_<!j~e9?Gu^m6QP~dd6UL<L!-52
z{}&WpNY8y1T=Xt*&x29+Cj^dYcHQwrZk;Xn3#!aEfTu|{#7Z9;N6ANnB!r+xR`UMv
z`Vc~JplR8-q_sEuZwlR&7RfY~GD6ArpuCYz^VvfWm;txkU1xdvnSU@+Thc@j7Yd1>
z`hDlKKBGNDhoku`+C_`dX8GGr|AuVB4FN6SFr9eya!__r0Z~V10;vXohzmbWr4xM7
zC^pd)x$;PRSQxT|2qYCS9{sC0ggI|AVU`*{c_F!zEhb5^=t$GCjbJ~{JJuD828PpV
zOwxLc&?>l%IeI-#C=VJP0_0{0_W{9M#OgR0=mE4tK6iy*EQfqw|IrX>aY$v^5U#z)
zh`$FF(N}-9x=Je;VI9!*W@bBEjAjoZarebOmn9i-5}INfaC}Iytv^!4Z5!1ZI7sWW
z!gZX!QTAb%DYtEPQdOe^CkJez(g$?#J6G!bl8NBhn8L$+#&@?nc4%P9X><pxhib~C
zw8rCi;R9{nA6#xo>MihQ>Nt3KS^^5A@4ZA(L?Toc%(K7X;9tKH`GbA_D2vgC!UK=A
z$MTyG(8d7WEPa?`>TxAxDjD4?geC)OUm)aI+9JG<>2RF$TnfgRr`6v*oyJWhUvIx#
zS7#>vm1jun)O#fA&Aq`3=P$|$t0$4E0;-Y7*nLpYnmGc}YQYOV<+M256A~%HMqv`R
z5TQu&7B-(@7UWK5Sxe#NDeyk+SjRF1bOc+md@8xcOo^c!24VBJB(ITzvR#lr7qm4}
zdqtdH>B|2V6wn$&F2n2I_?TJ*)~$p19Zr?maVGrD!{aSK&L&MF_=%8aJHlZleXI+a
zk-kW>+&CVB*{u+yJVJMEmuW5{l^f6rBT#h1Me+DCgpABPDWF5A2E}(}l2Gxm!szk*
zfk+WU5`iW%*G~->mO0$A95wxXov?CI3wA;#D2gFU#QF-An|!cc`VoC<b)Ov}e68Hq
zy-;FxUD4F&fR6373Fq%j1d|HJ+t<qV%WBd%(GUA7Mfi^bnhow2U0lM<C$wP%YUUL^
zG&4c2)EZ>3Hhc|Yl3%Y!!Fi)a!pz+j8C{ZH0;wBQ`=G^VawWGiX>*U+1GwL4=Hswk
zi9IelSd=Xm(;JL>9QM6pSrY7f1HP5VX`Vm$I!TVS1MoXJ9Ls`~WP)7?!~qn@vn7SO
zR>Z|3=D)m0%Cdz#i3JeL759?^O^r%N@R}E2VyaoS(2#Uj5P~>LVd>7ZsZ}l`2yHTU
zYd0VY^`q1xf02p)YOm9*e>-7w-m)&cINLmgwH{*`9ziHzl1e4vMhl*>C`1sYY`|1N
zag=?cW&i@`O-=%Yu}vr3A<`)(9o=gmGccA7n{J5rIYAXh@Pwfu-WPu??K`%iM<Qq5
zDzTW6@5Edpk1bx-Fk`Ko0hTj0-)-4QaBN<W$ztr7DEM+1shacq<>i0cqid0=P^)GP
zxQS50ydx?M9?^oL;;-wB&4@6my)MyyB2rvTtOdc43f;A3^ZJf9(@9g-`eH(E1ALX(
zKc|gAf6WmwkwIakUQg{qXposa+hLE3vrrt*RL7=tHZGb{Hnn2lYs|(?0-LQ_t*hzf
zjt0B}Y3;}Sy8QgSLC~Ag3$4`0UY(SuO`|oMa;&x@=~&hp94qIxj2j%gYck0)ru}H5
zNr&9FPAPRWi3sL;zSJ9@{>N}?RL+6av=R#EQ|zX^IpTJ0ZhTWeQ|^D9J$G(eVociB
z4T3c?`yNSut-GvamXq3~6=G@;ko0Y9<7YFAJkAGAneOE5rk*c1H7h!kbTtxg)?9Wt
zxin_(rppcHd-hp3DLf4Rl|IXQ^RMm-y8@(IWZScX+ZQb;kZpIGm-Li#Q_N<Kykqa4
z9)(ANnolRj$G@GY+!9|S>$qs{wVxnU^fYL(_2mtxAT_kxZBz`1!fjyG5}Yv6zYahN
z$(Rq}-keokjHINu2%u(Edr2hEiArZJ4ye*PETd8r$Jp@8=iDoUeZORGvp^rb5D_iw
zk91nn(AY?GWxiJknzv0*@b@cQ2UAtUV=Y*va`C^~%Ztd#t>vpg_v^(4s=6r$3Z!4k
zdB=9yzINGS=Js>_7dh{Z*C)^K{)~SQ4i7!JdGp<gdA)Q^a?O08qOJdsxy7%&t4m1U
z((nF#Paq|?p1eln(+dvr9E?Kxxk9?mV`9`UA~Nz(T%4lb{Op8;d5~{;4P}N64~}30
z@+s{ppAgKNe(~bP35a_hpYnmi%YxtknuS*NmrZ#t$8~jo<J-Dz+uk#0HX$nh6T<R2
zC*HklNSFTIrmoYty(oCp&)4@f^fWR(rt%%Te&TNa3Z0f`5T$BqYkOH%HXj3aYfSg0
zoP1&>7Pfz|*D0c`Ivt`Eryz{{j>)uo`tUgBra?Qd7vm%N_|O*U1-$^>#L2gRMjJo{
zLI{oM%M_-@ccBrRzx-3IhTsD~zw1!*nX%`}><{KeYV4<Z&AS4sjvdZ163tLq+YwsS
zP_XizEwjbgV?Bl}AKkb(HOwetxjw!HipOulAj~uTE`D&nrK_v#%a<>0+m0VUehJ5X
zW{kmNoh{xcpS_LR6`crSvzxbX?>~6(TGKeWir0mO^>37Or7ZFszi&dhAz_z+gM$OY
z;Ree?k7co`g8kJuJy_u^H7A*mZ{>38fxQ~R+pW;V=7>CVRh|d8Q<Jh~OQ-BxOiBmr
zm42JWD6@#?cW3L~lCns9E&iTf8f%3vW$#NO_*{&&E^h0Zl~5%aD2t}y+Ym50k&x6T
znntecA@pTm<hnp%6yaBWna}LDL9^4RH-7%|W%bd*a0^5u_KSa+wZmq<4E9o1mu-a0
z7MuFcBST01hJ!Fg>u6g#>p^$G&6{7}7_Mh#JfOXoG<q~Rc0GUjZkx7wo}-78zkOf7
z)B-#E)vKA14czPOEL~Yyd7-_0?bao8$=F`(l@)T%V&fANiCR|b59?|WgZzQ)OB^Bw
z_b>+e6Pmk!`Q?{ACr+%u5aO;aF}<>T7tJd#i0xUmV8Md7Xaau_9DE0Ip|VbWvvBVA
zXlN_}QhD0{iGs34d{zM`{gkP0nOx1XJBf^p3`wYGT$mhp(#v&R3>iK!^bQr?TMPcZ
z)dn%KC1@RZ7Ie5iO-iTv;j4$~&W?_!&>8pc-Mi;FyZ8P5Z$K_-cy#nJq}^`bxpUyu
zsqnHZXGR}ZG7w{uE4c`jP&nFELp{wmqN4?%eyNNZ=QYCl!4+?+%|2kE_^RqUZVnyw
zG_kP5N-B+)UGTxbQdx_8cx(7_aW0wbKK*OKEt}qd&QF)x`m^Id$BVC7GV|YFIpbf(
zG0%C!_b)?~ublDxmwC^7cRv4@S?1v@KJst+`<J!qy#J@Kn`7J4BzGiI4L{(Dy!kw0
zWN7%;2t@2p$a<*XStUMKEp`bJ`YWF(lM^saTLr4lAxyD>LiOvjkUVJEK*J$|?e;{;
z?g>)hGue$f4!Wtdw&cOIkH74&vry%D`}oX?)wl)tvb09?Spa~7eS*H5@SrYl_>e74
zR_WYq3v=3xO^<65;^OA&>+4GoQ6trchlj)Qh{&!vcaDN|^)hsP#R6bbRRw+hl9I~D
zyZASRYY2iteOy~R+Q!4C{I3natk`va9@M?w8;9BFqkMJ^^SRf_yMEXjqLV0*+*V`Q
zW%gq6iO+S851^p3VfXG8d>3#G2fo!-y%kTs)7NM1io8!XR$~}$(}K1(2pIfsV)aoB
z-6$@;^!@wy=}Ek&d2+>Jtn<l$EyDxj9Ee*TwzL$6b-#>&{|vzD-rn9lSSF18u%LBm
zZG&Wj(S;!=fZ*(v4g98e#b#WHR5Ot@_<G_ce15oE?4Qt3$TLXI+X}$>SH5AyFkRhB
zg5;r!t|wnq8vqeOh*O?IC)6;y?B@QD=B_-N%l%uwgd^qTi)2WV>L@cAbCMy+JY|Xq
zWzJYphHs_}>6->a!ih*`GKb1kQY2H9p^!1^Xb{DHUcY<S{r~=TTdh{B@O|IUu=lf{
zz4x=DHC_wHrKj8Gu{2qz`L?&hl{bIFQ=UNkgO|6r%Z<}G^8^)vC?iD74xyuUWXv&r
zIQm~JXWov^*n6d=?65gZ#Lk^N-&Dy}Y@tx-JUu-*IXOqrVTnb&T#&bRez_deR}0uF
z<!T7lFT$JY6qsdJRB%D7R3T(V8HDU6CnqPVAh-fFJ~=e<RvwV|9AY5CBO~ph<DeAw
zaPLhPd@(^K8v!N<%JT-9&P8igLTY9kP7`X?LmxeQRFLQ3tFNzbQR=v!5D*u?V(ZUF
zp-{@Df6;D6<wQ9D;YoLJNBraFW=5P1Ze@Q-EK)S~>K8hiIJ;1PzX?V_%m#H&crs#S
zbTm^w?(E1YLblTLsZq~L;iQ@r&w(*=8Xb5;1BFBo*qAR!;|x^Et)0Ik<fZA4hs2jX
zbf}|ZV%UefF4w$<_|*U2jYFQn+F9%n15tB#7p*xr|EIaRx!>d~Izd6fMKq#cy>=~h
zIAnEjY>8C)%18P`2K%b}{4g5>^72f`$wN0s2y)a^sC3UlIj=updjDVOhhQ6CMQBJz
zK!EMTg^ow>-o0ybaC(u{X=m%`c(=+Ex}_hM^?IamUvL!>boZsSbl1Dil@kQsdJ(xG
z6?6b_&&|z!{`$2EMQopuvE|290VdkZ=g-;O_6Q53449KsKuU_Tva)iu)o~Kza8T<K
zgB1)5;Ay<o7g-S#!-6r68zJk#E$7Z%TURG|y>(=Mo`z)p2%0tYuAJ{aa|H}Q7+H2U
zIaIeF%I>ik#XgJ4sGZ6=__RedXh#AJH4F~&L#n0$g_*Irxw)sxjqVuQ;T@7BPtYF^
z{(175qcphL4LD6t;Hu7STbS$=g6&~oWQ?ANOr7jfD)c1FoU0?-&5s}7hUqO7PELko
z-AF2xdaB&^EtvQw315hAy7=+u_d8Y8YT{v=o4@YsdPN=?BN0J1N_-E5%2-eXs0K~{
z2Q(2NESj&64?92*?`%g$$Ce+q^?{a7+n}WuT2xe&q(3Zz%7D%i+!6L4;G%4uRscje
zy5O8yT+3_vKXn1M%bfVN_~rb}7IyX>$VV~9$H&tX??E_rCDZDCeV}}@yF=C2c3{F4
zj_AWOayv|K6`*2GN0o$*Q|j`|sl1QY8}{DRPLlUbds1s-Z5<9?Xwsu`p-%(y(nGal
zKGj~MEv#V^cNO!4Je(7|Zm(=t_AfRxGU}Z5EpzJ=uM2<*rFQLUbTErnRaZ~xPK=N5
z;^gAuRW^Vwdnkw$iyuIws&@?cDd;czw!9J%6nv5~KCNVn)#s@293Glngq{nJ`$KV9
zU@n3=I5=1@+hgj$gC5z85)4eCqYB*AX1uB0Q_G=EUW&6cA-Jm9t2ElChQ>xZ0@oGh
zSa#Z9l}*xTOp9~#X3N^s_($YV8z6wdNW3X?;ULvie5I;BCMkIDfVsYVF2u}?3mPPb
zCMFKXE8p911!bXQX`}a(JwZ3LcY$ChdC+~y!w~%Xf@H_^V3DCPHu7RkjZ)@J?#rRV
zxEC*U@i6<`R$c>zk`2!1f21pT(<7)=`TY64I!G8(Pd<!Dq44t;$frYUMnFl4mnEXX
zE(kLxBvIR;nW?6Ca?0oWwQG`)9MGIkF&;(-=Q?WVhUjwB^!{9Bf;{uor72f{)RZ$D
zaf~SaDx{m9?M6#n^Cw7aai4KFGNPb&iH=|fTmcgwnwz^fr^gk)P0h`PR8+R(t27{n
zb1T);!$T}1Gqd^W1%ulP7m-TlJu2@39YSb*F;kZgQGs0y&CGU-A52V5jYGWtet307
z9$;5@uaK~?mh~Hbj(6ND!GU3n^JTU$MjW(3XxfAY!HUaP7c5!i742(JSD`^=Ct5|q
zvXlX;*6>$wiHrC-eIr&-nKHgk3zV=ZCO{)RMSq*o@#BA%Td`&tM?-Oz6ty6zP;Mdz
zn`ri#XYMLw^?+Mb@S9}AY%|*QwCk5&=0}eT%E)k>IB|lQ4toy$Sa<11xUG$E-}0ft
z&L27%ZxSIS&9>!}j+Peb=QvpyVgAFO(zeI`zIO9wgt$!&LEw*YNIlB#&HU#d0_hrp
z@COuwj*hUXXgF+H+e5#pYYOFBnwpwnL_LlfgX&`pOKkp8Nb0(uLw<NOmza4XNDx)=
zL<cC<*{f^_wew>u&B&lXdGaJ-_jO)J=WDW9+d4u;Ma4U1VGa0{?-1K>mjonhKh4P+
zD!>dy>CH47$n%5+>HX~!y!_q6dle8RuCTIj5AR+Pkq9J)qiG{EDStlZ#tYjkVj%6S
zWb~Bjb1V7fB(--x{miJ!rlzjW`caTM6nLXKP|kBGUp_S}+gY-*=$32csU>=%0R<j@
zAMcpuMPS2YrT~au3CDex6}+h(k&&?@H2{!SOIIEfc{1N-cE0Y@G(pbFBB9==tRvo9
zd<$fo{IcH`pHL4wJPYyH)oI;xGreMALDG;@rlXEbP3?j77*GBMQ_~y7!AU^r%-`^`
zoNd(s3)w?~qBe!!f6@yewvw|vYf^Z;ZeT2+$NW;l<bwq9`2dy(HQh%@;q30>z`>4p
z7-0s;+`kJ_`k%1ZnOA}kjEv0AZX~KOK%@Umz~W~?`gQB#Q&U-OZEeTK#*+5kGEGst
za}bc97y;4p6d~`KY~QnIThRI`@!)x>Q^K5x2cl&NwG-6hV#zw1x6V%Xd`K~Fm0cu9
zI@#5OAg0o2wDusVlr(^%r6VAdx4ZA{P$4TOC^R)U(-DXhh8&krZU4BfO=sf3CrTF>
zg+}DG3uID(;UFx&iD1?2r~hU`&f;1}6rca*isQtczl_QvIzmxV@swD;bAiw3=x8Tq
z*Il2<GP1T7J&m%D{v3ybL8l7wO@yO#^5TW|J-ku)WwmMThTr)9E<rl^MUDe9A|;q&
zM;wH6N2W3g66E9+z?3M>am@3O0z~B4v`zV-ot?nxq1tE|yq+9ozdfR&oRzB}qj+@r
z*w_fn@p#Zyb~s@+Z^9*g6#K-dJ2N*Y&O|M;uD17@>&nRy4hx6~4<~X~?H_Yi)W~g9
z3BHVZ#0W3Aa3(M5?hZ5EyV>^EPvgxjjIM5OtRH3Vo0#jC%fil+7<|YNK{&GOOs^!p
z)_12L)7ws}5PO{?zmdZhU65X9&TO73Ozz?%aH2N$4zju3+>en!*JtkP$^5;}?$<<i
zIWYLRi!*&g@9iHcYwKXfcg&m`73J5JX3%*f-h;#`eMQ@$rA8`-jes?!`~c240q36t
z>9e8uB+}rsS3+>+q*qg#6y5-<4EcRKD^Mb!CoKZQ^XiICZT~h{-s<+TMHT>)0YL+k
zp^7WXdN?WRQMI<~JwBRcEL)k&`sTxcMXi5{!a$iK{J~x0`$NCsOS>K#$b_;JaP6!K
zqtnwY|9r7`7<l5FWxO7!S#rCF9^*aM60>Sj;j8sbDW}_y<bpOKVC9V7*fpPJ3YS{-
z8-!lUjl%~I5*V2hGcaH^Ha`9yGGt^7kC+7o5Cl#*rq2!9ZG(LAmP(L^HgzJ^d^&6l
znXhq#V{f=^c)7mTBBSU<7Qd-<(?AezZVNnB9Lt>CVc!`?*Finjw3Ifhao6lUQi=EO
z-K+AL?Uw7ElR1`n&&bkpJ@NV5w{qwDHH5i;4PoAa;q{&~#i75xu9mmGy&Z^H1o}f^
zuzQ*R1IdxHV8xQ3r^Us_a?JQZlbh^KeDal&4Q05@s^7R2Jh~#x^tkD+XOk1|^82~$
zr5-ahd^H;gm@(l(`_=aHrH6Fg_uJJi2Zl}`5ex8uoAN$wgX8J`wt^LMo;kU>q1suY
zRt1p)%xnyFfS$V(9b9lbv9aj~#Cl5<i!f2NqS8n2e)@fr@Ul}qJv|>Lj+$hSlELdU
zZ%M?Tj!q1!&XV(!P%&#d>?PLR+PWV2@k0j^$zga{3I!22_4;)VXs}5F2`L9Hb>}NN
zOHl7xmK{k)(&pIC9QPvwLX7B?$&j~kak+1Kaks;=cFK2$c|9>rGZPab{SLORTi?xg
z*7m--)~9*o$a(-uf`HIr12F0PiHS?V>kX}~_f-Xk)3TX6)Bd=CL<3h_<$Vc}{G)|g
z&V3Sp{q;0bw!~my;VZVSFH%;JjHq<TSo+x&Fc&Dp;Rjyh7}n9%-KUfezG5>tF6qUb
zhi47*6=Of429E)HhT#t$$iOFEfiI1vE!`p^E+Sn<0_b-Ws@8gw^$W}#P+@>I6dPFB
z0gVDJCtg*y&w%xOFP`!SWeLLC9xBvNQ;tUFe@ZXq>Q#XQ!K)~i+V^myn{%t1`h`C&
z)nm&CABAj3agbD=s1D+jMhH6)gqF6p8ie3l16s#@ydU0=s1da+l!f7oS_rpAyxvk?
zqB0=#0pd1Jjkiby9KVa?1{~D^%z(<DwYRr`iCHHhA%UIOd-n)94*~z+WT1$M2!)3y
z8i;)d;#x##_QV$$tSX;z7NF}r*`9M+g?L|~{rmags-Xv=32?)kZ{?YfBD|QlKy6Ks
z0&a?bg7^-;2xmNekTITkJUncBTmCC5xEj$>-SjgW0t#O6WoXV0d5nMA_|c)D{<Q_P
zH>>#Z@#L|ut=)Psh*$!#xQKFvlHlLx2`UD)BY|aa%G3MGxG(a%9~;)~5SBsVT%G_k
z1PGhan%<dbE|JN_>9!uT7uYKs8ylrCoDmLd1h4U78IJ{CtP0E=g2nqXTAzTHPs0qq
z9*OePNpKTGO%4OGRVBE#`MDn_2Eh^2Asu>_wbx0TILkrOGGb$>NxDSZV_02WRWhX4
z(qe}GO1B-|19Vm)@OzRkjZ|njaJL`S&I8}Q1Gx#|q(i4p?WQi>eD^etuWwcv>X~tf
zwbjHEM-dgNdwEI1I_u`zYG^PZ1Ht-F@Xm3Z=T3|r(Avq4+r)J7;zcb3gTwy*3h1nJ
zH|FVmovp`*e40Elz3v+fG-9}`T00TttHQW}?6?U20j}Vyi?oW{*Ue<?y#v~}zkZ?;
zhzbI0C;R%_w{MT&zJN1~T83bF3~mG8(MZ{{?s6a$Da`yKzIC~TU%I3&o)|mv6fh4-
zM-3Yrehg1@i?6VZ0nrd95sm>7vFP)Af|q2E)=)N2OH1S4=ge0B>t7uNB6824;$naZ
z1ZK=YppHlU;MB8VK(WZRcI&jBhe`X8$YW}-5YYv(Jkg3`ejHay|F*TY)&fB!5rpN4
z!#IFIl%nr0O54W86$#3NiFSPE^?j4S98aE<O`Z!t3|n>f6E6nvT?!4QN8I=x%)4eE
znAQ;#A3R2CHB(*>UK)Vnv>*Sm24qm1_ptdz$Hb7_HS2*T&rkLAR8V~}8=|L1XJ;?N
z@s2`OLry7#yo#ep<#DXLU4sxy5N98P4i%Q;7LC{-ZzRr`eAQCyk%5gH>IyV-$(}3L
ztnQTzT=YT&OR#N;y1P`}AiH6YYkjxCnm4*g5_){`+FAaXX(ff>NT7^`aNRH+8G^(s
z%poBm5B@z1C<QSkLo2Ho933*uL?9my!wHVz3d$mx;XPZ>mi3wRXQrCiJ}=Ps{^!qQ
ztO_><SqTdZODb&#8G*GLLDhc)Y6CA}gB!6;;IZG7p4<R|VFdKLxtZnFRaF9FVyrOu
zAUQ%GKHNX%qli|{SlF}oDAUw{?*GP*o$Nv5SQuQ+QT&`m<kBhZ?DXJyo{jrxXlmL+
zAl(1gq7*3ref{6cgoGM7M`<3I`C`n7#sA}=tApTER^AGa%8yww;Z!QIq3oFw2;GZ7
z!z9yydD^O&CD63;ZDD~F*$IQ1FltRUSd`dDv@7G-Uq<4>9-xDH<HqpVSRMFcR&jCh
zMPy!yZUaTtZ%}ilBW!B?o<NDl-I|ZI>!mxR?VOKpA^*DL4-+FJLGg;Sfcs$M8bR)f
zm0QID&F~;zQV3j>L`>>#vqqbi3S3#^PczK2unI{kAqS|Du?=-Om_ZN*cMYbP_xAU2
z(k^V}AgMU840$GIW|1&|YFWm2%E~xVHhirh&rt@%vnp;r9!)Cvm;W*IOXN3+UM3+)
zR8&sS7w|JUwsZta<cqyM+$T^=^X$coCcJ?pCKdnp*XL9J^Y!HS;v+f#^O59Lp-}$c
kvBzs`O)mHUm8@Rfq}5W=uEL<ZrT}o{kiJHtnqBCB0ZKu~+yDRo

literal 55741
zcmeFZ1yGf1`!Bo@R4hUe6$udur3^qCL_#{GQ@Xp`Kq&=jBo(Afx<Nq7g&^G^(kvPl
zNPpL}xBGqH|D2gKbH17H%y<5Cn7y}bWUci)_jBLZ^{e|1ke3y|aF+Zm3Wd5L@mNF=
zg*xeqLgDJ;pMsx^M15R?KThdOiHpFW@U{D>$_M^9WBXX$0fnOUL;l4HnOQeNp{}DO
zL>?-+#xISzIg%>xJy^4;lrS-nc>GL6-q%j=?%5aDvqi2v6?&+3MMy;G&5JwvUr!QI
zP`tvqEH6Zt6KF|rn~2j$_hcg#kzr_pkUyTV@b*gODmAy4PoD%^pM(<+Wo?qfUi@Nj
zuBO~rmgI!@o=RjAk?=GBe|>od*N@;35&!e0&~~R@O5~rf>6DnCbT|I_+E9>QyZFy9
z67Mq7y9WIGZAeL~|9O>&h(O>Ooqt|+;|6sT9^1cO78;`eBKlu1YZbry|Ni3y7}?ke
z>BA*zeTkgWZz;GHqlT*8idv=?yHkU-CPHb&`D$we({gq$|M~FUTFG&OXa16DA3l6B
zx*F7U1I;aY0+adSgU}N#LtXV%wm+A=;YIO3zbNIWJ?V0OL??vt9T$7sMkfCmzR-^U
zmEpSdESYhz!hvDj9m7&=IdoA^PY)j-Ur0m*FP76P@UpHaagp)&hPH498s8sECOSG)
z7cXAC<GS{A)aUpR|Lj>|>|$S6iG`}?!Fo%%<3d=Pd!^&TiSRbO@HSss@n96H-S|Gd
zV(lAK{s-%^N_a)X#L@PH>h<PpT;2!eWA3sEJg;^pe5k+2JrJMy772s&+$7QMltq8e
z^JK<h@~p>R)LvV}@TM;o`?6^n8Sx4E)=)ZLSY^xc>Z`^@L(4o^d+egJ=T?`v>rz1r
z(Z!1|{QdE_mWD{y*VoIPFj1OL$U`YTp8Xz|5QY6}H~nVFQmoGV(9m;d+=DGot3q+n
zy-&w;T~z(J+HG@GW4nzZDFRJ@^ClN_I^)^x)rk<~@|H)+#7oTkkhk}va>svpny@*R
z!{S|BoaV4hs4vkyR=D5zc#3GWp^?!Lb4q05oP;{H?w`5na{i&fa;M-i>CUJ_2<pQ^
ziRI9}Xeamx|1V#JqMfj-6T0v+?p!8%da)=uNy&@RtlAfy7JKb9R_D7?UL`XM<I`+x
zZZ>^+j++o=GgO$`+TPyVtJBujmaLqu!djN=ygYp4)-8!A3GND{q6a&5$4=zY^-qb;
zoH=uYfuUt~wSW7z`B#79!uIC3*C_Ke^QSWAkDRBsmq$4FCnx==$;zz9?DOl{e`5!9
zXLw+o)7>g82J(iA-DG8D3+@>gsWYn=iuC4bj~IEp^7Zxi^~H<E^cB{TiWX$@^74)t
z)s)#xl&Uvhs_7(=J4pI7fs=(P>M@Po-Q8<zjf7Lbnu03(xUEOI;L$wk@oy9jBKxS<
z_&QcR(t5O<m{8#NbynTlrQ*@)w(z?)<9uq&WPI4(C%?BxY!ag6q@_i6R>rjReBi(3
z`zuuiCY@B#M&aS%>#ejQPtj2<tms9f)^{|nt2I0EQ3|9d`8~G3s_J^Bj=1yNQE-RH
z#s<#Mn^sU)I$>UW?QefH@5`#p&o)9w6^=X1bxihVK8cOmKiXfN*@7V^zH&t^r+s4v
z-IcE^c$0ylDu<1U=^XNo4<<ZQ?%J<*?epEjOa=X2KIUZ`@$w1d*v&2$78T*3l(UrT
z;a2T-H;ks|<{l}KG6ueYd7)Kde=_cYO>>-0ZNSf;PyMjDx^+|}46+fcFwSpFECz1S
z(&7dtUl$alW{`~+nyB?MdLML|Em^b7I+iuldw;nsG$G+Fr`7P&)$y9vj*i#KjIH0l
zH|1$p$*0Rwsyh#U*7JY+w(0eSYsd^ed5-Mo9v1UijT!!dRe4dzeSuEhyCs<Nv9z>f
z`3gFkEk(P^dBd3iR(p(~k3gPI&Do-%^P&pxA|qc>@;d*7NfCv1S{c3iz<SiS!YZ{y
zzv*mylAvy_P4}lWFx%)x7#SE&2LuF|b|s&D)==6TG~N<=A1?jN;m$+|j42M|XlJ%+
zzB8s2XXOt0TUShO+4O#e!(64782)pKaQe2LMn6Iqjar2iF|}e-;*KQ2kkL^s#=sLr
zLvOA<uzq^Dhc)f~6u``D*h=&%H8t|7)VJ3R9pQz1wSTJi%Hwe=VQD(md>wu_iA^Z8
zlFF*y-pJp+!*W>kw=bklKmp*4Rysb|>~uzFvJIWS{+f__WzG3SW@cs+YhQ3+;6=E*
z&zd?4q+K;0F6!HTs=7{Uc`|XFg<6>Y+yv{mCVgU9wbjgmQ1ASVu<w$R*cuueXZGB;
zmu|Hi7c~y<?X2qNBuF|0o#GFnH7PS4EH(?jbLG7Kkx7!5N|uwE(`3WR3fb_so3MIe
z8cRxs%|KyW_-ysSW}LayYGl^7R=LY-8%CRl8S`C}-F1<#YxDO%>*p8Oivd3)W8-fN
z`>S<zN=}D+nEZ0@!%ELO<L~5nCr@%S9}ipPe}p-*ap*_wJ#SAL8XEc=Zg+BS&cwz0
zEjh;>+n+*lb%(#FLh#R>E7BbA>?9<imwvYz&8BNzHVQ?39g|;o0(EeBxW3sb$UDaQ
zvi{j>?Y^u|l%UU%r#5w%a&Jch?@UGq)F~(dcw#ACdY15X`>@WZ+^NKa+uz?moxtN1
zM*E25;zdibe)n$vol#oxxY@ZmgSn0bS#(QF3wog|MVyyUC&_a|f^YpR3BjD^)$^y?
z<GG*I9>Wclyw*wMb4rY8S{MDhS~@Zqz-{yIPKVpO&$ho$b>BD$qm!E6l47gzZEbxV
zjh0U2Q<q&GDms1j>Qz~E-Qo5~hEir&&pnv85j`J2el+dNitO1~^i|N%Aa6HzD7Xg;
zDXM3+dNVj}+EiYiNZ-I<X8(~NL4{V@r`{b8uek&lEuBOvBBEzdg@nqm7&nSbbiQ9Q
z6jBT|Pn|mT3rYf1VLxlk4`DBxsasFdxR|4(qy2`8Owc<pO?!+EBbiji;5!`Dty{NR
z(deF3n3Icq>(l?-l8E%$UNLkLUD=kVrb!#0{cH3xvA&1<J5|!9WJZ(~r%}fTbAlW!
zJ>_-=aXWcbiN-ZPIrm`}NAxTYmpE|q6wc!}zIgFM--r|DO?qESu(liY+nKEZ5(aj*
zIaaKHcY2byM$bL%O2;m%LwGXgW@cvdV^t3XcBe^DulBd0!ns0+l%g!E>Rqn19^)CU
zcI&aOfVp0;Uw}dl7n{A*C^4_d;RP&%8ORsc(xMnHvk8Hp(Okcdq7QGIb=qE1uaH(B
z9T?J1<dNfZ^85p56lmyOy#^l<^7~>j1GG19;-PF;M!Bn@w<7IWK39Xo_tmS(k^!AY
znD0x$mL(U3fBs&d+Ng2*^pWY*OPmYj?C)0Dw90=LS4R;)Kh=0l83ykh`^(k{DxLiv
zG-Hv+kMV_tg^5T>eLsA-j)#ZW8qGs9Q0L=Q5ua_vbc@DUMp63k1GmXaC5ClO{|AQa
zb`})X-|H>ZI4F4cFPTr$ZFk08Fl1%CFJ8X1qWZSeBPTe-vID<>Ubt(}%$55D|G9dR
zG13+0hfA0Qjt?A`Mk`35Otf}(ia&h#{JRv3pkN)T=G4{y@z%9qo`*(7y{7j5jWbr|
zQYP^(Ej`^}duhl&AmE{^E0;>1mRVVFa<sH+o|gLNo<(m4O?pvLQ9_gx2YFfX%rZ3W
z;8wh|Bo;$MLr~botgTt?9UMZT)aWky#$&w;P<+mW<H=U5ONr^`I5;?!%^zFrrkR@~
zB1lIooume0#yIr9;&UHP93Pbp9`yDqamNmuvL`=DmzBkM93Sqi!x{rrl3T^+mFW8G
zU$sS8dQAldZ|8cnJ68bZgp`!@C$v1ZDrc5c7szi?_eX|?KG&&n*K2-rwJC}%_OVlB
zhH{Yr#rbDwj~4frR1*4fx5;&7WrNdZ_(GMKm+h2#0XK9NnaH7DNmPryC7;|{=&5YU
zRR;7pjk^z3#1AfMs9km9+%8N8hgcCouRV5p*?7hYzz$SUZyTF}F5B&ITS4cCHbCR+
zDJm|GsTLiss9d#Dk7scI7n)M?KQn%|`RSbx(1+&xbFa;ICWSzY_1qpZu|KLi!shGK
z-a0%uu(U2gW}*y6k+f;Hp8%kj+^v*>B>4JX^Fl6>&n(=rXHQX3UUv02mFL>S-SIxJ
zH@VOV7eifhB<(3KT_PiUJ%f%$OZ_e?EL{8Xh;S0B0M*+uVyKbOwc2)|4o3C}<4eb~
zOVm>HIA-)zk}<1YPv6I4{H#VwC#jErpI)imxAyh*{qpn<sZ^{^g?(yq+|%eNzo-iG
z=Q{m!0aPvjkb+D4FUnqQ?(DQ^+SI%<{vO*_2Y@qQtpe7}H#6}a29~UO+{of_!P1<+
z3nR30oi|@=0T8q<B>5bv_uPY~xuwMAY{nlPc<;*j-z!zCMAxpJ`(Qh5*OMm0!Gbxn
zxW6VF$0;*@Z3ph-v4jK;3IJWzATC~zBDJ_d^BX(v6P*0~W5&fEX1{lLY3|&SukCDa
zcdTfKHlZE0KI^8~{SW5xkNH_+z<03LXwSpJQ8IW?>$U%F0h+tHq*%@I(Y}2pfV&Kp
zT#Z{PTW=n|Jk^G*vg>SYok3ls1L<<q+=sCAswk|~<>jBPPqldPFjr|&if<#IDj+~*
zQ-dW#ebF!Y0B<r_>s2ML?>L)RwIUou#)2ZHkIUT|eH#)IZB%^IvM)tShCUpPl}!?;
zxjD)6X`IlHklI;Yho5ICbi+0=V)~!iUfFZE9+R@Mv2h3Rr%b>g%$6Lr0^!;+7p7M*
ziD>xvv}&QDr1$JsvuYIM13Zde?Q0v~NCTh(DC7(ZK~qQ%nDtB3uJybMEi#Xxv5`cM
z?|GJT_6f%7<Mp5QP+7E6>3zRkv#EX#P;ar&x+a8H{NUhVZO9~P@+G0bJ0HxCk1uD5
z(eC8;jo-v4-ZMIjT$0DO<?aKghB0EN8;V}pr#(2WM>9NxYdv;W?DrB}#tYnpG!!=H
zI$MTIEVTO<0yaP81plFk$-Gxdss${6eMJbc5R}UTy~a~oRn8ZTi>?ak-M9mg60m_N
zJpa(dL;@84`ST*1v)_aIW>!~i9CW*MeGV^OxW@T4ibZq!(EzDv{qE)*@wICf4w)V>
z)|MA#XWk|yQNv?A`SRnM?Zjt2+~nlsH2_JI2fLe`0ZRu5o`8-G`m&VgyHn30Q=M6>
z{71_AdujUiSPrRL-Acz>8fDgRq0gZQ&z?Q|E+WF0fRg8FM?80Bo^Iz<Ya~4Ukx`2h
zxJb29%l87;k`)H>v}X!FLw`b675!sgr$xifM}D+59y?JzN#1+6e*OAoyU<PdK8B5v
z@e6dnzj!4q#7dh-K<TEp0BUq)K4FOGb5pd2%8e6DEf@^5^H-#*PM1=8`hNwGFFX~k
zt@BVnw=KTMa>!!50Hcm(vE9Bc34oJ3hYcZPGLn+^722@2B4$n#QY{r$H|ZAyFaYJz
z8~XZHWO8+N)j3X7Osw)vN-?P@vDe;K7e$Zn84}BJra=9&abjArR%Br^bLy^6J;od*
za#%#kc){hes5eIbct`VS$$9{076*$BXPl^`WAW@ZIn)u;(eeUMpQ8h}Ds1Jjt~p!H
zR@f|7E=gc)w&uQjB17Vy;2)$Ua_mRz>ZK$kgz`Q<bm7}yDvJH)_xiPd<Le8o;=|rh
z4}Sx)WFJ#4c3B<ga#|$KQq9l1b;`y9Fnd^dI8v;?qt9QxhX->F`&8)_%+=4X>-vDd
zJB)@>rJ}#>4@E_#2h*woVk&T4P~7zfiWS3YrIESl*aFjBVabL*{LJ0EcVnX-kiUhs
z%A1^$q8)WO9WIAVllqB?iDj;Y_YZ6m(T8Ld6mMX}&QtNJIn=;ijPv{p$lr{trbI<*
zO*Ow=hsHb!1EN-DP3e8KYqA6&52&y(fHrb=(`PUhKbmwV&j0v`dt14?v<eEJ8$uG*
zii|J7-~B~gpoifT5QxD9CL$qud33m+0;&VmxbR_Lh5{~=YTnnrY}EoFGnNyzlmH#C
z!8pKE3<2Vl?6x^OKU#60$7O|i^{pn^`BS(8d-Jr_+rt(y92R8#IqEMBT7sc266I=^
ziNR(400`2Xq3~$n^i#J*F8fq?L>Y>yXA|8QZ=t>*L~o?b#$ai%pt5(hoi>E;1%TI2
zpFXwLU7!{i&An-<rgnvZTHp;puu1skdgzdLpkn}7`UpQl?s0Ex;ble!qnzal1fRpu
z=m9N^;dNmxwH$f@lL)~p05a;I$nn1#ukk>zm%6&TbzknB+ppYzO7*<#B!e%}I01+v
z|9p+MXtMvK6%qe03TUC%f+=}V0T@!O8!olNEX&-A9<2RGaa+;*pJ-|azC;Zp5C8qS
zq5E9_li&VdQLz5``2S6UpCKY;+<7kz|8Ut)`<FGYUjg3y?%gvge)kVB4ejHWYXAuR
zT(<RUNU&e}oea;W(eU0!fIs5|sb3R4R=8uN=^a<c$7r#bA+f~ZzRT((Wq?=-&=I9$
zzow@2?!8}YzGf4_E`1}JxBufKKSM!QZtkIx$#-$L?FBudM8Zd#_M}}vo~xgK#wdav
zDx5H6WGouKsyc2bp{OI6`L=4_8xXyw5bXUek|{JYa>mw;1`jH+Jbb-Yh-RU|Lj(~-
zZUd?=W^SG}YV5%l)bwllotLmEuQLcUlkDrO^G;LE7i|1=+ToYsh0j{3eMUz<M)(s6
zTQ`Qw2`q#<&G(5J5ofa%mP+hzFE4knSyiP12L8P^$p}>%n5mkjx3RHtK*t>1<)v&U
z8k&b4$IE3C>`gA1ewK>%)=*jwwkNTj4&qc^TMAdDEG=_J(70cyeGZ<72<+h_(i^CZ
z#DM={ITTxskR9(0)UDMW9}-?>)q1D<m4!?yV7P7`1AW$sS0$+FML2_;e*KG+pooY<
z!$TxRAP#(MUvOO)Qlmec_uVcNsDge6_wxfJp583wb2KzGuE417nswilNy16=Z%bTS
zvV@7%y6v%;nJ%fEq%x4N8;z+3_I=<H$7vORWSckVmK6=3^bHH$rrQ8>i?H{wJTOe8
z>dB6-n@ZR*A%MUpWZeTRFn|VQbd{AjR4#LR8TFVN*69^)`<p;-4P1_%<DRzt`30vv
zk^h=l3NawD`k1>0Ag^mRhq_Pn=V}&sAG+K4J)9W@A|u%=L2&NerVu+_bYdcFxDcqO
zJNE2!h`<H%2}%fXv{SxrC+CJ^PVM8dS{BXHV$HPTWlpyZL%`KgeXmSTPCBFKv8e-l
zbi+Kkkxo}t1<BnvHV;NC9Jn0k-+2mx_$D34dEw#1hq0wJ_wSQH?`>wQJ5aRLk(4~E
zsHnIGl7T+30@O1)si+S&6Sb%<GoPZNrR{qK1qC1`)sDHP%Oy20^rRP<cHQuWegp`?
zbRaLGXU}@PIsg#uFW`TiK8UENuYY6QW0l_%c*^fN!DDsfyWAU~_|dYk$keh)>_<k_
z99nV4X&>3@jE6m;<Dba%{CUKbB)M@sITa!(1|ayZ<Geg9CCXE{Et$l`mzwZwPTDT^
z-s0OHG-z#Y{h>6jU+}cS_Y5)*L0Gh!?StCg;PT9SZ-Ifk#$tfA*tF}!(a{m75ePKI
zL`3raA9srbotKtI$~u>gV%g132nq@kiafE0JBsRob+x5`lTI~Tg(ZYa)4en_-2f}9
zF<i#J90g=aPVkTvb;rCn<6@tJ&it;MbtlNlDB#X#c6WE>Nl(JuZvv5J)qV(o6Y{yB
zmi-`&%a@Ro6NhC};IgWNT(&cMdV2ag56|$-3<mJT^EN}_e4QFTs&HEI5UM5+T!^n;
z4Ty+{P;7cAGHpf4<A_N0(8bo#Y;_+1NsSW(KuMUC(-l|&#ArHPocTSv9^|oKYm<#I
zB%t=gwQzHDbNL+c0rGnd70d0e{^~vqD2i0)Y;T%OoPL`&>OeW>v(*SEx7XpG6F!Yr
zZ7=QAw;)ixzb#a)){X>)M(A47b}E+H7#e<B!FI;n1@RIA?5;nbpVo?^=Cq7S+f>JY
z4*J0YRX%Ov5#NKj?}##mgPLjy5eLeQg97!lx7gFuvs!v(Z-0L(h^_Vu08pdkLH&a3
zFztMfb{V4Bbc5?(o~DJKi+ajVo>008q;kexHlAzp^C%#1cAI=<xO=f+iU21}KLSfz
zzkPerqz}#kDCA$^{;h)1Kw=*%kXAXpr54nocS%W3{_M5yJUuf5KSWg7N3YL^8trc_
zOs$cTyEhw#H0jqnbn>4@A^HIan`&ajz-EMhb>q`J$UH(l14y^l;&|f*FQUzzq4`ne
zVq<7xf{Q}%3H0rcKqs2MfohZtup>jWj8(^V^5g+1%UqzusrzZMf+&oOsv~;$1YjW^
zN-0yZX_9WD_9;vN)U&m<HQtRVW{uBp`Ow3)FjM;vTkaPPF|Stackr&7YBZa&FOt8c
z`u1zn6Q+LQ5f1LDzeo}wa|B78yUdDMEV9u_JWg5h0=7R<0LQFm_jh+c+RuE;(5kq1
zv|UzL!Qrm#r8V#M261c%=9Kfau8vhYH6q0p>LDUSgROu}j>Um|n<t#Syw{$jN#n?u
z6NZI_$)|{2;1;}n`>exk`@>YpNFr+L5SYw}GMHbxm(`+gZwMug3y3`+Mz3x0!wuKO
zi=i%{2|BnQVh8L%LZaYvC4yqO>HJtkWag~jt-a46tUra@L7fek2OL_mZ}cM(aaf?_
z*ca4Qxu3|cVOUD!vO8gCXIBoY(#%V-G`Xaetx2}+MQ)cBisoR-AaFIn8ETzOt%jM^
z2x4gn%<LP0hd|y&xJm8No&|^{=#_gdA=J^BeXu!jP{8uowm$@i@yX}jT#x7XAOkf7
z8msJT&uP?z&vDJ0PIose1#m_hU|fhUU-pAiJi?bV15~0OirDC0DlbUjf(L83d)v!F
z9;-E%;SI_$c~xs6J_oqE-n*$|=qFP4O9)2-6o{-0M8XoMa>IkEFXHZAIjhD`!_QCo
z{{4H@Goa#&iY8EDjoV|M!~gt3C@&y;z<94>Vy+<e)??rzJi=1=&w)@O?`S$v%MXj-
z^}BaO>{i31KuTFJl8`L3+SI5TOH04WF#)9D3YQC*>p5sMQ?D-T*kS_EKn@Xw&(e~a
zoYT@D8Y5_fr(d4B(CuguM9yLU#qeHR=u0;@H$+1Ckt%gr31$csF{nN)D&y*kpQ?*P
zv(;V^ad~Vr*Y3_<t3KF3y8_Q32Dt>Tgm0sj_R4+Z^Bsx&7<>K|Mzg96BO@cdh3-_O
z_u39<yU-vW9{&~*JhZtDdnb#1=cU0ey{ozV<r&Z^(bUU4PK(q1g);#R0-ZsHrB)yy
zAsz=J9ozdZg9S6?s17Cp%ytxGwVYGebYA|s3m2N8r_6X@O0%rSDwPu%V1$b$R<gV{
z+8CVE`H92%VJsSt_kE5D!7z)YEnQ`I-+BPUd<twkxDa$52Y?;5Iy)Fvf+>*UngQdj
zk2-YHz+{I`X!_#=4p4;IjiSO&htpwO5(&2?s3*R~dG&O!)D@1qxR*sTr49*vSfi?B
zQprK=8-+S=FOVufKm~*vd<$Vv?%2hP{CK^QU{CJu-Ur%0hGDp|;r7B)1*j_?3P<Pw
zbo$C(H(-A1CeUaLc25&fyxU~csb)0pOk|n3?4_Kmp^Ow0=Yc21iD2@OYSuz^<3vMi
zUxy08rA3VbGQ;K#k3%1`4^B)1tBKe9@5VH~L?=(4+^_*KR8(~#H9#Dn27n<0+6!b+
zf*n6_3Q>r^7Fi)j`cD=BOvk2gP$kWVOJOYqLSq@y4$%-6egW*tS$zU9Sx{3JcCZ30
zU!Y%a8!KPFeAxtiUb}hm7A)h)0ucC%l$_L=$?n=uKbF}y1!Urk0TLR4*gEK$fgE*%
zA}uko*YOXGzLAE8htndD-F6r1c*STU^7cTN((Mqw2zOV7PESuq+r!urF~}v70)}Z?
zEO*;9F4zF2#rcY=n<*_zK?jHqJq35X_8e8Kgu}y1gNBcfb_4-U$FmB$tY}rCvqlCK
zM$E=qwyTf!FejctdCu#xU*r;db7iuhCs3n6|5c6!3`1;`f=x;d*5lWv)-sS$XACum
zc?9Y@NYK-BN&I9%qO22XGS|kY_BYUMMu+LL3Eef`EKnR643HvUunWdk+3tCVG#G|L
zOJn1-7X89>plh6S#qJYM3*Ai%h2Yy?2Gr3oF`)|-H~p*KF;pb`1fN4}^Z}y1;QcJu
zO&xH{68E8{qZ92pUIe{y=&c@rVAg#_z!}9bL!B!wXzaD6E{6|mnn>*b7Iv+((TF`%
z?cbNpFSYL@9I)62Yx`Fr_54y%@~30!9B>?NqVU7pra$LPh&ZO}zZekD<Xt-T^5OLC
z?4n{muS6wiCshZwJ3Bj<L8`XX=!BAH;xd%1I|$P-BNG=-h*`6=-B?}jrmGZ52$3*j
z;0>73bZ97@{l?y4y_G`+!b1^LQLU^=CHDu@pt_39o>WQbGhw4Ga}!LNT!ItMkkFUs
zfO{324B-d8oJ3M;YPPAtG8^5@#X|ZI#nr4j)oPZzfU`_>j=*^<R^JBHVm}Ux(P(a{
zD_b)1wrn`xqO%<~_MTDT7*B6YJ+KQ#pvTKc6Q8Nl7dN1HIb)dFtUl58gSl)Lj13Vy
zvMpyTW|XN?dwcDHtOKQHspYNG>Pj!L9G<#RY7Bo5{rve3j?j5Zo?f$xjrgC~-nok5
zH&^dZ^YrQt1Eps<t_2*F?v&xfXj{xCmBn|{6}p4h)ki8SDh0b;U0o-hfxpQbes*!0
z+j%LbMgR7<SfZ8DilT!!-ZSHDwZ9vd4Mq|-B7U-%`J}L)5yle!&eO@&C@J*ds~C}E
zwMr_U=aK4Zx!kbt)f2WNXtTsyGb}0fqO5o%oiWg~HzPD{hClM>7zm+SM}Yoh(HDuw
z%wm3G6&4A_`Nez6!$0Akt($L;dm#5IJ^h@hf{2bz;$WRm-N6mK!DC^C;zY2U3v4Ha
z?KWp+swktO+YUw~-O+pTSVra&%w^F1{ehVVB=UQF+l3U1p`qd6SToG#bEstSRtZMx
zm0zglyA~D}PUruG2}lB+!CnU#n%2>ekB<lpzN673$c$8j)q~_eTHD%)1C#OLI$-95
z+e``uR=AVZ;OBa4e$Z}8hSH#71$_E+Q$1<Ok_=obeQ@uSVVqMX*G{}j5j=wMLYqN4
zq+uuoJk^kpNntxILQ3m02JAwQc=HD%!vI=%%A5(ii0=I<Ee(uo<}z*$4&?*Dmxy70
zLr`$Sco(#qp<;Dd&Z7GI$pCzb;Hn^O)7{h41X4@WIkxKS_V)IcQAxm9zVE#iONjy0
z1hP0W3`)#*<IsqRo6s~F&<Q~9R!WzKOQfPQwW~_OtPVx)b2RGBoAU)u7!^PW+Bl^2
zS%J;8zC?hF3Wn%k)?Y__x2xer8{4zd>74eLvWbMxle0he+?|O=avJcY(A((F&dUH-
zNC4Lq2D^;AwOCVXM3id#ewH~4csL07Q_%FZp&n=4E3l!#ShUAuL@7YE(Lb*1TgJ?v
zzQ(d_9KvI^X#UB|O?J(FadT8sft2{tB|4NpXzrKdj(@%+Jo~}+Yt;R0mE1yZD)40J
z2q?Hd+*+RxEF-A~*M$sN?}=xKHNO;95Ug(llMTJsE11VsdGAq3OfTdaL`_XIz|Z~#
zNP1&+{P9{;1jEJZ)McBD<7jh<e%)G6^(ev%7cQM6V<v){K@3esSmCc?4j*(~Utiy_
zVzusge1?+?!+_~y=*tda6WLvet1LRME?C{NWKun}<u6?YZNgp$)K6sA0&I_1pPioe
z2gN(+)w#=+2a_eAdPf#4MR<t268z8TP&-Yx67NoK=ldK=mAQ|}bW?KMf3@ZZiuDW0
zEX)K3OEYW8b#-NnX7XM`Zd_ALf%Gnf2-H`y^J@z=5qlr*8MIN#yiS<fovytpK_Kli
z`x0?RlgK9W4e7;eK-cQZQf5jY0YG9?(E+@>vWCDVm=cV9=*vs}4$H$F>ei6Cux|Ny
z8j~S}xlDnf%kI$G4pRk|7m0;gS$XLZm}Ao4P)G>J+NR~h!<W+=(6<Q0#aG5_G^0i!
zGgYt)&@UMf-ic>pBE`d?OeWCdBT)_RI;eE4;<{?+GWgrU>WyBpJbfoXVElNfE|9Y?
zvgC_bWz>D`%Te!HnYYgdBG6hW%BEdbY6D_FC97_?Gq3wrhE{&ICT|9bIEp=?2UvWm
zX7u<O9XYQ=O<;|W`)yY59V1?UN1ff&>z>MS&rO*)=i*w>_`g2G!Ts9s>f9LBD;8fD
zl4@8H<Nb)+<}5BB_uV-93`+?>P+l3-0`U`te$Bt8b<<)uxrdwNTGT9GUr`-!C!f}P
z8hKftgFjt3cP_k)yimL*gc@wN^pT%gNja)XO8Ek{Dn?xooJ@}03?|G{Q**Vjjo3i}
ztTOdDIe%P20*k?w2iEbb`qyvV&PU1}Fr;v5YhaH9xjHUkj@x1<xC0C353lxNzcw{-
z=Q1!cNkv&9DnlX6?5Ld_F91QyQMasKsII#DGFGo9lyo2_`$i!aVow-npG;6M@ITnz
ze5g=SQDJ{56U%Pro*7TOLcyEIv(PVV33z2JIHfqyyS{g$axT$hsXw*$P5T(y5fJ~Q
zilwp%Z_Q*Y1%};VD*naKTA-aVo2*8W_Dh{lNlD=t<7_l#Ka0}uN)~OJg{Sl+4+Af7
zP>(LDu95Y0GpAK8sBGM$tA-Q;orX?`vjW2jEw2Db`AirNCGRX3m#zZK#@OzLm5u;V
z<M6R#Yjazkzc0Lsm!B@snR^Q6D+=UX{Ho)TJ}VMx>ea$p+|vZDY{$VmP;W^<t>~vn
zDZ5x5nA|!tk9X=+AmEQ7mS`}QryQKIA(1?0b<h$*zJ4-3{8$d)qG|8^%1zfAnfy(q
z&ZF17XBvRj4b3??>e_Q)BkzieCz>xaV1|$dyh<RqBUAEMpK{^0V4{iNX~YiKg7!4j
zqFL!^w!oP|nlsW3%6NX0kcbl1RUv^}*RKo7Mo(v!yI;BU^jXg?NO~FZ0<LQx8tpsz
zcj9~80jJzZ2Q$hk-RP09@Y+_794;!Dg8SD-+Zx?ufGdP{f}vvLqMAdfLteZ%0e<Rr
z8XBBaFH3v2^6QR-Jw5p#j}rh*0^xwO67?`QPs{(F*1|lQTej)}aS`G$>1GLZMq?`C
zkZC-NDtE_biBEl=1BBt|@gAXdhlr;4<HJK-)GIj~Z{SRyjnHHV0Lo-B_v60D+|fIM
zx=v4j3OH%u$Xz276ZEzRRFHKrg}IsI!oqH()6&vf&0Ycz9c22GC<<QZ^B{UXl9zwy
zc@hurI*b67N#t#1kS1`R>9=^OsE{c>d4hw2@*)oHFTwg{r6<%X%h^bzSy*(HmsyRx
zh6!^GBt*pPDM)wkOyIqYvIU*2sz%1WSPFcrH+mqjX6V+{_8@h|UgPjsa;!GEgE)8D
zxD#Z-8AteZO>`7P;sIZ0TU$MdBRHrO@sQH}x*Di1NH_$ANE)n3y+`vYA^MPCK{OL!
zwrdONNy$)b@XwqHHF91V4FEz-U3ah%6s(!TCaQ1;is{#u7DSZsBcN=k*%`Me%c&fL
zZlT?;EiZpP{qXRR|6+J#lYZ!72FMBu4oQ=;3Q>n|L1X^bSp#}DF!Qeqb4IYDX9_`9
zby3SN@-9r@Yjwx2d!^bezV%X7G8@jyDP@D`3D7(|)YkII<q-buE1*ri1``SFxr$3q
z%#?C9E<LlFc;oMn+CJeG!BcPhdrdF@t1Zkbt^}JqS8OM|c5qPOHcoxkf>n{wpCbF(
zOu|)-7b7$oty$xCg9^kwW}WK6SsO5hM4;8B#UPGPZ;m<%EX*e0)<}Q=@G+oOq1s+b
zH*B;Vs@!=wHolbpCV$)TU5A^9GG&-7AN2e8Z~cIKSSgD_-9u5Mroc-?uT*)syjZj=
zd#$xW)s>Kth`Db<0P@OR2v#{R4H84TM+Bl%YrAtvBQo>x0$v)<<AT3`;(oXK;0z3q
zo8NNqPP!2xCC|<DAbK_gh=yDSp8-;Uu-JCLK`;d%H(y8ZehxHtPNxK37g<>(3&mRY
zP`lP{s=4XcZ8j@Bu8=-+NY&yK5{gSppHGv1{{nG+0d{fDW$ukagtnqzCUna*8UPtL
zKWM4ZGkpR5pt5u4T2DY?vI=c(_MisvxO9)(Ax!NdZJh+eJ8|D*`!faD0_kt@?Yh;v
zW6ik_e+9AeFh2mMhx!7U382w;Wt;#JT$STn#~b(Fx4L=rCL-zqd@1BMMjW!Zsg!DX
zBiG4Sm+!!c;GI5Ad+S!)f{8B3N>A^-N0F9>GC?};T@Q@Y)?;avKOtmd&|!dxn`=a~
zF)q8A&jcL3rd_;g2N@l7r<7COSM`Ptb-|%0UWWX8ziWFRV4G{7Fj;9v&TM003W503
z0%0z@wVw~GcW2`e!5{GkppHt%b9EU{5ECm5=^?yGTzYx5qGwsx9{XV?+L6WRjaUlR
z<l`But-yX)<BoW<O>bD;u~C|zpW+-HuKED1j&=VUl`g*OZca%Sl&Y58uG8Hf33;?u
zGgVsY5>S<{+%v?7Y)K%bb}WaB&wx@6Q1c<Atb`vuLhQ&mquw?VZ1i213=+{0z77AL
zLIAQS<zwV?AllaGKC0|E{l1bFJ5Md%I}_wBaa+!6`nC!RAnR@5V6Om*eqWEgS)VOl
zMZxc`Bs-9;+G(^4LD#kg&>z~&oZ?1->N`g}^;vg-!PsWz;@!@)Y$6LYW2U$$RMUL%
z5GV;poEy}Nvf$ZM&wz__9pL0Z`6(P7(Dl(yb^?Gk3CcqY{2$AJMS<F9%b~(<E8h;t
zDs>eYh%@WfQXtV+;E?NIa0$z`R_aev<DufY>>6em=YU|enPIs<x<~`Xy$pQ&`P!N-
zGUi5Zy2+{&pPBdARorg|EO!+p<&?;23=7oeV`XY8R<}%<RJX=!;er1Gi}azlw*ZnO
zg0!qYgqe~2Yq{MN5y;^nh0IsVa$rodYN$s8{8tQTm`KE8A!X<$kqUY)v<5WaYe)g|
zB;+%mg|x^86f4`h6a9@F!m>%gUX9$G8orQ3FT3AJM8>Qm0gFBY2Kd>mhd$kjDewho
zz9>eDR~yite<2!kd%JHFqA}Y?puujY>`ys5;l42~5j~<rRRg(pS@B)dLq&s{PvrpK
zDqScnK*9spR39AV$8vJf(O>w%sfVkNoarqKkk{Q_3Wh8$4hqSpU3|Qqqh53h^#i%b
z&76WOZ^c0UkfF`W$xo)WhFW~)!y1J>N0y|v01r>4nqmoG35ao>5S}d?cRwdIxyx_S
z&kWO=+I}l<kFSJ2?0MK&^1~443fsvS@hTGnU#MvCka!#FRhjSSV0*lye6MTlra#y2
zIhica2D%#>s*iW1LL%Q@BSGFptVTB{K$r;tqi(rvJ-zzslK35L^f4smh7JU82Y_w$
z%?x8FPX(0m19<0y1qP>KHY02Q`yq+N#Zmo&K`kEZ5O->xJv-nNAS0cE0tQhzD6Blv
zKeML_k8-7=S!4Sj4rd-SSWVQ9<#wXO4(d+x4T!VKP)}UmPa7Wuuf}R7clkc~TSWZr
z%GG=zog_dB$<K{a9e_N=6_Vm?;AYtS7G!G<68%k$^+17%?tx}~4`}N*$3sz@Tk^eN
zflNC}h=<{nrc~zaymGwx;K5~p=BTqIrxLGx&vxNM-jm7>LbDAJM4M^tf<)!;0)K9v
zZe4JDyEN)cvS`p6C_YG@0MXLVpL+S--w$B5`EZ(9Pg(^<f|5e!>ghcY4c#2SK8B^W
zo^*U5UaP9xkw#^gGvghytwz!ZPui&xxqN$4{VM0>!0)Od^vqTsYT;BM!aHOiK#Ffi
zfAiauYZZZgdv)EW?7x8XBR(bwwDL9XPD)uy5_y^mq}7`pyr{EvZ<N76Shng;(e7<i
zQ>8VCX3?Y%j~2D5(zDVv+4<twZ=IJxl54cv7_rwq1MZ4N<sljrRND0AvAhP7q`5qS
zBnk!6)ZU#A<%!DVPc0wEK@)uqg6I@HO#ql*5Jit(x35=l1ra9+(4a$T>O6k};%54s
zotc4RPgpgZM)2s=qL%8hoV_E4zQ!#pL@QRn+if|HXT;~v^OID!N~(V<q@@+_S!X{Z
zIX0lToQ|89Uwh+5WzQYhBLGnXCTcAQP$-Hm24pv9lA%vDK<HPp<cQm0_UG3C66ZOP
zF(IlVQtN_!cg_UX%FN>ypmKU6rB(#!U~&#g@Am<3-?FUppl`z*M@)7g*#N@zAyxvC
zWiv2X$o2a}?{viUf7eS_Iz0K^otoQ&RlCv`iS))(L;m-&jw=r8v(K?N<d@KTLxIx#
zd!iN>yAy$jBR^R<<bFjI1928lU3e7SRyFyQD8#z7&KG23lM9ZujpTa5(7eQN*v>Qj
z1B^#xU&4UbZ2Q%v@tUf^2?qy<nbseWfGW=s*B&2lEc@#*bKJd4EHrs&7NnDCV^pBF
z28nLH<D)~=S!!X`i>X$ZKdkxDXM=Rb!(8UEW4(nLAQYOsZ0B@BdaTxJxVWIII@{TS
zj-6d;JY6fna;+Hj{N49a@$r@pR3i=uRd%~}<%;Q!PNTa|B5*h91fEMmllX!xDXWlb
zG;ByOj^59Xwt>==x!BzZk>)M{!CDY;g96kH58rC#a&8lt{I}94z^9GdU&?w*$*Ur(
zDZb)yn|`Ajv?cCbS>_><D_0oBr;xBW6DeQY6R+v+t#$O12_?+YW^*m>mIajY;aYGH
z_2F^JhA%HtWBJyJ*s;oDK)bqXyl>n{qHj&7V_-N33>$@yYIu6bA0SKsu)QGg;ni6M
z1$Duz6V1`7(E#kEfFeo}dwW}D0`UvA0a`W9Qghh~b)3E~O&_jSXc$oLwO>jkj1R&P
z@Q53+4{TV`@Ukv5en{=uS0uo~D^y=CHtYEcIQi9IN+zpT`E_U$40HP+y&z(DZuWl&
z1^Iyg`Z>TD4{5q@HO#JVyt^^Oxd}l%#yM~m$F1W*6f2Z=buEWg<2Sk*nCuS@OArJi
z17U#TTyyuOkljDUw|XFLV0ZA_4oUZ7s$g%@V2MTa6+Tzn0-jNBXRYPU@^UU5A*dky
zvgidXNHADaMh9Dhp@AX-7(`lR(n$u%eKOdOgHIy@6aXBdi#6`pFic=TK!N%ZXvv)W
zzlu5qNI<zm#65fk*TmFMpZpP}3^26n3T-wLSTG`_;QGnlfAzjG47Dlyx4k~N{imD9
zMvJ|foFfJWY9bmMvB<3;=nM~403N?SHp8IM#gmK4XJfiee-n)qD5sxao^#q68ye!%
zobAj6AwCfH1=#`U4uAsx%^pM{+aa-SMA9O<!NJit>vI4~kEn`D)L%j-(!x10+z>fv
z<m9&d<vXUPT@puz*odg>AiT{LBj$kCfIl&<WHD<A%$;G&<Ij4HU*F$15dpYIl)P4r
zsCBxY>#sneDjbD6N!gz{H&=o6Awu1CT2%TzVq_)fag3{3Y)T_=xb>vKpoPG0=G!I2
zYk;htFew!p>aae<CX+#_=d^Nw#ube@L`3~v04!#~szHE?hw{LYxCBU)(N5c@b~o)!
z5wu7B&P0Cur1Z43KoFUSJXbV3o#dLQ1BWc5?!um#A+sS6@6P%7_#kEsB*CW&Vko*W
zh%SQUo7GjpixPzq?%C`0qCx%o{$PR>q5wo7LlnZ+G&0y4LJAjj37!;LlGnC+X6eIx
zflM8*gN@!lYRSToO5Wb2yJZr#C>6S~KFG4afC+~s;r1U{LD8AvA!E~7a@?2FhljPn
zRk|$-kpLo+>Puf>3?Lcg|J|=NO4W>{8aC)TRuH6gF@o+sUrd!7Pz>Ud`FJT9`P@0;
zA$a*z>j<9gpk_CHH|BJJ(LD|`LM+B8H*j;c^Ck@M4K1;GP(GsZjR8G=)+!5<*))${
z4^mY1vsHHJfY!{c62fD*x_Ald17s9}`t)R?D&6})P#Y`+9pz<w();%dj&UAa^E4=b
z7+7xR`=&pxmmQUXf<~5YFjQz{U(2CB|E98f5ACPnW(K;+5j-GPgEzs!WT0t8u7W`9
z5^Xj8*lf5d%k;#+kOeTkrYO}i8`!xPFf0=U37A%%oHG|ZdIM-tu^m?MRFJs4pA$Id
zqq&<%=<nXud4HXxIcUw1o6!E!D)__0!lvzEqs-^`bJo(RuaNEK$Q=kjGY%d~dCe-Y
zEX^t>q!WsWiJ1>?LsBwILOKtCT16tX6E2qhrpvmmg;g%AtX+GOk3dsdJrZ+tbSyZu
z(B1)4MK$LDxIL!d?c(LjsyPHM`)%%9q1eT#a|+&jX~N}Ye~F{!e~Y7Xhf^Q3RY5vn
z$L@?89Ud>tSCN1a`lie@0|jQSFYt-;SMCTsaf490%Y@fu=yptf?&1)LK%9rkgWJkk
zuu5_1YLm1SfJ#RY-mv`&O>zBKlk0lZWheFY^j~eT=>Yt998!T)0Re&Wl@0LwL!+f!
zz^R&*SW<zdP~ssco((&IK#?Du-B1*V5bkG)gZdGQWX<>PBsgvh-N2&9XY`Owk%(?(
zkNAqzNc6U9r80Z48gyJ_KLRV}vrcTLagC_3k`gI|)0S-2Y4A8L2T>?l>hk*lT;0r)
z?!#Pe1VsiksSAF0`(Vf6Y?y?2&I|@B!rDXKnbfyhO~VxqCVa4~i(sIu(#hf`J^ip&
zzgq0+CsAqIIS9l33%G3{{8~{lY;5Gc+Q=usYy@n)eT5;~W+SD!p8gSgI8J${+-2v^
zo{iUe%>$O9+ci8@*!bWJv!KHBT|8CN9Kt@2(I8@5Qsqraf<9fnI>V6UshGu(4?-+C
z6l2!)jl^W5I^N+GFuoCAmX$hdYs_WhBd~R&i%&$;THLby0Kjm)`9ALL2HJlCFbd#b
zZtScaHT$ip%Tv+mwVAy8o!9ndJ4<16zz9?ZUeH#mmRdkGBmsG)yLZB&1-k$A%M*w~
zrj4P$kwsJ;r%PXxnwlB_{Vxc#Uw`OaNVx&4Qv|N_3anNnPu(bW>J{S<V>@UW0ie1B
z0<G6$Cl>`KZOQtmH2o&6Yc6mh7BMjPK^D6WBo}}Z8N_+@VLMPPt3$5^o{hwm0_>jH
zIJj@p!IgUqYzO)Um<o6wv5Jfw&|jliwQs`^iP+kH29}!)^hqC@$i}^D5VNZ&==5M0
z2@UMeU~`8R4%^y%yG%)eawD@r|69bZUl2NLidx4KSHtEP>$m2gYr(oc?dJqLXo8@y
z1;A?ZhZ&3y_tphlqmZyy0hn=B(fgMpV`3Oz6HwlUMQ{_j@-t_MVVKB(SR?UgXK?}O
z&T1$kNcY%jl<g@VfId?BW(JztFA%IqpzmL<udj!jLH32-_55vH0HL7tk)8|%S{$M3
zy~S+SffQEiYu7M^Ib|b{rE;L9Ut&`62MzoTK$M1thOe-yknNV!+__k1T#d+2+JS&#
z<K|)4hX0#4q+%%wz1gaA;3_Hsp=(}Qrp(D%#^lJ14z+Z6uGODD@yryq@iyKQ6+dO}
zm8(-TJhRu+-Tf6hxG3}%QAkxmQ@a7M4uLz!hTcnHp0RW}M{aE%fR7QjZUc_mG8V+G
zo|U^k&{ft)Z0Z7_qx*Xw?gfBO7Wm_byxyHFB2S-wK=S0sb*Yuxe(dS$-Hw>S*I{8(
zP1*+>kptVGtJfONAs_V{pbzp&L?(Cs>9}_1pDaNBQ^ueeiuD=dYC3*7{;mlwhuJp}
zU;Ko)lWRLW(b$nH@{Zd8fpav=WRY?-3Z<wp1XA4E$i~Wb*u&)yL}~a?SEJk8-s~@-
zFZbJ{iQaExe;L*xrQP>lsD><)2>Zj%jCIH@1R*9N__D|yfG{Zv0SOVv9`qbNG=n}b
zo|vz(_d`U)g<Oz^@1W>`G9wr`5roo67~%U9b=VE@Z5Yy1(~bQwzpXYuaKp^o@Pgg7
z5axhQU5_6>7J?OAO?i=6p`!7xEOcmRmP&4HHQhH@;J;=}f%!bP;dNdTGB>{sk{xmr
zHhzyplvw{hCP2VyYrYFiUqsPEGP29I$P2_lTs?*Igw6<mr4#(xKg09yGX^|0)YM`;
zugjZJUzY?icculJ%)6Kve<Yjx-Xw9|nG1eMwpuS`J<0#?vkblw2LG2s5B}?60RM+(
zr{VVheEolMHbVw-u)-*kDF#>DmG?YkPm>i>8y+#Tuv`$vXA__1UbL!#1aEZ8dJar3
z5LZy6{ehoAL4(CcBz&EP<@?B_D`{DY{#imoKiK;M8DS_Y)s(^FcA89SpcA5=ft&=z
zqlV(G3H%5VkbV99aFIg}z*w%K2%U>)vBK``AV&pMQ=TFwjx_kM&+Y%mx%Pja%>Sks
z{eOI1R#+J><1HFI7(%<fEi(w;5(0P<b9UxLj-c>4-k*qF1m&y++7D9ZCSl<qS(7y=
zi<F4K{6@?mz+h9U=HG8=E)e%~tj<Re<opzUA5~J(o(*JgI&9&x`bG`r4B(wcIKJTy
z#JwS;RZbb5zWDD0Ms9yIvFU=iX&0n?z+2RVA`6MOH?v0f@87>`+<pai^v@;vPyx^e
zyXpi)v)&@%KP0c3CY!M6ES;G3A18}YCCRKIS8;{IoRr6L{u#2PmWxYmvk?3qu!9}~
z7rpcJ3kp2C2H2bp`?q8G-0r;*qXpXV5;k*|>2Lh!eQp1?d{Oqvmq@L`o(}Z^cJ(yP
zo<4ng3fXFidJ16zo&5j!=ulqP`nbfz;Oc5Vln_`AOHpP+g><Ovckgy#u>U?mh5J_#
zp*mA$aWOjzi4sFI9lNKXpn!S?2**8DM^wQU7L?!SE22ABs*~b&HaEk2VB0RNC$TAY
z(K4*8LKpmJG#?T`F72f!F8S1LT*>==d#@DvqdfQ0%RQ~!`IgV_n$I^1bc34V87cKr
zM*sZY+KO89X;bllZOw2r&F(IoR6sydnwa$f5~#={r|bvJK>@+WUL$FvTg=SuBQz23
zff#!5`rd1_%8glxu)=O`PL-+%xpbG3pFd@7ang~&D!a>c`tKj9WGQ88S!NGeZad?{
zXLgL)of!xB5G5oe^sMpT;@9kC#@LJ1e?6;=YBcvzSlOc=+VUx{#tEMLOJ<G*ijEUJ
zbm8^D?jSE0Q6fNIFBy6E!H|2MmIpIgP<+3;L~tUO{H++fS@+k;1Hi}c<+szoT5ChU
z`u2z~@he;;+<#9(aV})N>?@OPEYvrRJv4T*iIN*ahJTf+NW+y!aU9v)zBXf}$+VHX
z23>^OMe9WwOcK;HfcAby5K)0mk7tU53;T-30SY~ZWD&vK1Y}tk_}$Tx;8{sqniv`?
z%?JCrYoZ^Gcql@z;S;FHy@YI;0ORvC4PIHviA<fE%IedV56U>cT3BpT*p!;My8fng
zI6omVLQYJK^95T(cKZddnI<~6Y`6#JAsC9Nv!`>FrVll!%K9cIs9^{Ah#nEK0{848
zZ*%lrj2{-@sL}mo6`)%dsAm8`J!<~rtR3-{ay%QjxC87aaDHd>(pc4H)EX#=|HE(P
zLzzwV-ZMjeArw52xAc~kCFsx7K8G>|oIZg0_oB3)4whOw@#TIeA1)MK%aPIxARUW>
zBk<SW%qzUk%us_t=?R9Yk3QOZsPH5RBMlG=b;|vZC7~^_|E>fyKtv3wRV6)%vIQ?_
zYq3x2h@X{}0Pdwoy%Yu?F?^9+F)%xQNUm~jLKq+jFwMY<`z6umumy0Ry|26XKMp8j
zg;jpS_V=Cp*ojwg3Xq7n_!P3I3knu;Qpsq!9WKI%U}xDIFaiK|MlsUM_5J(xN)es(
zuDH0k1z;E`_CbO!7|t%aglHkNMqtJG0yAFF`Pbn^UB@P?9aAY;tA`<VCa=${U&j+x
zJ`oo9<>U=UI?Ef$Lc|t00gr(~;TS33W@R3@fM-tpnNj}p?X^emm`)K{+2NcOW|ub$
zcqYR5P7|k*T>j!k<Jq0lF3n%t4c~L$55K?ZE<okx8spHhv%l*-ce9n(r1o@1UWV4o
z%YPjsg+krH!D0LJZ4BxE{T3OD|2qzUPl*3B#z869_VTmEY~}2zoc=YF%~XpFNcL&5
zs$R)Hlb00C5eE6MPELcjd}Kj%zgoy;RxQ}ya`c)vcy1h$zfYd@atcZ-cr95zTeP*4
z)o1>8ey3zh&Egw}7Rk}_X;j7#zN-u)C#MQ$9LuOt1d`aZjV8JWD&hr~Gc=8Av`>oP
z^ywGe=_k5%UbD0Q2}xdpZC(CH!xD|F7I=Zk8_UFWn!4*+acaK3f&nY4QTqhy!)w}~
z93SC`iH~9jbh>cljoc4U*dFR%`?73HO%62uS@Rc6vCXj&5z`g4FABs6cGR?4qk;WU
zuGqiG0!mn@#;iwep*84EkZ9|jR6e1a-jfOa)i*a-9<uGvZ{F?4pQ6fcoRo*KdrWo!
z^W@%;VS$<w_&gG!$F)&Z$c4ZOAVYUl9T!OA;oP4|R$P?)OX9WIcj%e0o`v%+SB*|+
zr}td#!daDTA!oVamDBaRwm%|?`s2j~1E&hD#E>wtJ+()<Y3(L5nY3!j>*TX@cTN!J
z?K0O`KK!KHnA&o??~Mgl*m1&1)SXj7yMOA-GYR6g6MujIf4}{2Fb;iZU2udx<j~p>
zx>K7-?Ofg(zd2XkM>Bu&?|U<Dp{)M%<ew_y{Wt!$q(NIKBQhewbnR!oG7l#$?IQpP
zx{)K}g+@UTk5`_&d*8VIhtJ`Fk8*{~pAlK3TRfp7Vb4XO%##O4m-U$s%-Aarm!fB~
zRO0^p%1^1@lhvT$X;eAqb{+z%M$QueunK4Stg2GeioN-fTQ<IE6Y%HP<>_+j_emi7
z7IqWzF{;j0WBHspDruMg{%fJNP?4x#_7z*OMN{IU%g;aSFk>CxRcffrCJD~$$_HmO
zH7)IR6~&)-%#iQRt=9|%@%3>Sa*hmaCU)TkGi*Tjcu(~Zws<OlCJRTx^+K>#+u=Kh
zGIA4{pFVw^^M>Lf?^Q3~vv{{E_FfW4YOws%oX~)R23-y#0SigWk6)m4LLDY;;7Af&
zeh@Y>U`oz}x^7Rjc9aBRVGDq0VV~eog1a9|;mp3(p^nZ@<UBBt0W%=ewg`KJa~-WF
zfB|4v#zy9jz~b0FM3p}^gVf*Pp1`Hj#Fq?^BN(N7oW<?rEBvQM<CCrwka=G&&3l<f
zuf?m9T_V;?e71{SCGLB(+GJVmoh0D-S;X-BGFShzR38e0<5qDq6Xeh=*kqz>1)8n}
zXhxE9a;k9u@Ia8UgH0|NI3__Ea>6>^yGAlGcj{ZaasD1iky|ImkHO<#eH?c0-n|2B
zT7LeTQ47c`R4$~&^;Ww%AZHrFE@B?oa*$X4>ul1pTCPfoX;;JCQA|t>`MRc7-1pht
zRz;Z%hA>|Tfs_TWw`m3aSy({e&E(w4W;q|pI(FZr?QoE{EZSF0+j2E%$=HhaK!K(|
zunc^?Q<C<!Z^7|(6&_0Hg7_Dv1)$x1knJ%l8*%#1F@TpE0#*nkKfgAJWIvFAklvTL
zn3xQRe(jIy%FBO%)`FMPZZ07yxpB}b2X-AaSG7g|uM8(&Zyv(YceR$Bnu8epSEl3^
z5Nv?nH)CIM#R4z$mVpdDG)0n*U1?d_C`b_YEWG(`!4=y){8{gjgnkbGW2EaU3K96x
zCQl5+a`nT_N=EPEqD0Cbw>M{5fmRsy3EG`oL*mnNP;u!b(q%<|Wx)woe|-tFEaK|;
zHGYI<ED;9%lccwnfQpZCp*tb}&u<WAWDvR@WAl9$V9$v;2&bSglNNgeYEJ_rT0#+F
z?fry*|MIhWVl2)oc%3&T!1>7QUcbg^`2%EO>{3x@lv@pW#x~XKpi%RD0_Vk52M!id
z1oIQw;x5t6=DmInoY^Z%{D0odl&lX}I3uGx%!Zqpz-^RyS{59?P1;6yyvRk*bOZA(
zfuvp1T&a1VBv?~xbx;3XG9z6U?l@>tQeoERlc$=Rnojnrz$7DM)yl}pVTQ0O2K=kr
zw{Le}Qq}rskyjxG0gxh4_-TWh^hFl_ya~}5jtz*cz4^Lz<_SHpIFVI?sb$J57lxEg
zFWl8z#y_`>x=o6;_*YX_|L@$Nk#2=gfN33hIo>j)I1+Wdf0iEF)x#AW{1AE1y2M*!
zx<5Ro_LajfZnT`N2|2f$x_8dqrkgPOJHbOXj*%}cKIdG{yhbmLKNzJ$;S&i$nfA9H
ztv~l?(CJ0L{NHb3EdHB}gEG_T$q##$oN>%#Qm<OH&MUBdG%Opbsil%JxbUibK!pnm
zUhF-UJUxTHh#iiLqCKAX`hWO0uc`($H9$8pjqS93Te8)e8f$++Gj}xlBr4+yPW~BK
z&~3&=%C7C1M12<}0eS1_h5$>@02EEyz^#%u`4f~gz1);Lmi(tf@}Z^|h$Y9~QOWMp
zpk2g2*&HY&(&O3hTQF={O0Lk-6cp;pi$Z;Q{Q7h?yfMeGviQ&?h%_qfMjt?Cp;247
z)z={hJ|t21y2xHUk|T8x7x@&z(c8eCw6fDTW4{3Yi(WP@=U<<;!x7s|9?-zu5BiT(
zSiEdHoGsFzBF-o>rAA5M2U~!z&6?jhCm8plQ@?-__C0l{KE;CNr<a*h3@S?|xUzrK
zh^tg<-~-FU(HC71*Y5+XFD1^8^|0~Fq^**x^i6O7mVuZQ=vgXH7V*iV(KAB?b7~c@
zU#6$^65mQT6S!(&TCT;~+43>Ps6(4owfBv3VB!vk68udgM}HFQD^-%&csg<vD)R1u
zO<;2J4M_ILK=4QboVF6!M9Q5Yn^N_s?>@^gas9H72vt$0gXMN9;9Gu#gB7&$YqrU$
zyZ#^`6fRsakSlFaTzeoKpAY(sL>Qb(@DW;MHdt5gu-Cg7grAhEKe+Z;21!Jd=aO@k
z_aR0X14kXm!!A8~xx}2`zg;D|;mo&GkYB;ky><Wo6L>E5jDIc%bt7?-P<=m>DZg3~
zZ22z8_GBZwBf(=G2BZjtECsT^P0h`V0St*hAS(ms5v4qh#{H|nyqJgJ+$3u~8@%GY
z3mjq={f<Al2+n(0>`4!SgCuio>JAZmUm2o@%1TO~AO^<>+fB<x?Slj$p-R5~2~HIM
z>nmg7h4<<F2e1hZj>HI~a-XLGaS>fazba1c^$GTKJcfqa2ghEqoA)x((bK<9`TNB2
zpXtvvkH}UoW-%9eOxQ-FP&j9XD66emqow{I_TDors%+aDMs0IyZ6gTSS{P6;kR+S6
zKn&!Jiil7IC1=p?R@-bLAlX1Jpady$Ftj2dIh14*6sZ7#0?F@KVD~xqzV}W4zUO;x
zKb$^FSJ->)wPqM|%rQyWfI@i!sOx^NANA3tXU5V8bw*Y#WX~z+NV1_ZBGj?`$11#7
zv42%>n5_L_^e=0usN6u%LqZKzIw&Q)XytJ#>32a<fQQOqC;0RM6g*NwT1UcsCZ_PG
zA9qnX&+<j5gB%a9*oJ_cd<|9$1=d|ubx3RspqyYtLS|t7&^n+{(U|Af8fcyZy2uIn
z9ofD6cNYEqQ5p*h`Lof9Tm_Qi0J!fR5Elt!o0^(Jjp{@@8qu@~LCxw*je#xC3iK((
zHD-Tjv9Z`YOHd<4qnKDf;&iSg`kx!!IupR*idC17ylXEPdbMWWk88gFqSt2#y>1M1
zckrd$pr~1uY^Iu5=l1pfkz1mFdyfrwKF#QXE<r4$d=4X^Qb(`yUhCp;<>p6mKJQKo
zy1JK*ZrMVdm2XJDw!5cd(Ax!kdt(+g^rc-4IGz5!+Y=ze{_C_gd_H}Pmbwh}G(!dG
zti$sk7vU4Wb1X{gmC=vC&RhJt=c8Z5t5^F=oj~b4lmGXz@H+QhFuU1nGyx(;D}{xb
zpaN;Sjp0Nq<_m*5(q{ML1J<9#8YH4D{(KzD&^m5o2bL;+t@VO-^DXhYKVGxJAGb7D
z*yCeuE_6Lb6>~w%2;%}HF8ljq_P=d+h{ML~fG!_<eDw}vO>~?hSbjjKKLL*pX-UT&
z`R+2%cC)=QYmsGuFJ#%An-g-}d@pafQaKwLLokkH?r67scz%Ojkyvs)SI%wVLWU=b
z$Nr5rI>16$qlqy_2Zdj=KQ?CAN1JEiaQg|Fps-y!s607*;%U+J7M&Lec0e08ZB4RS
zQ6X0zd^X^=5eN(YT@_In2R|_Egmh11mJT|9`?}I}w+Bg>-$~4ya7!@C(gqtS%Y-#t
zubiFb^6iO=ii)U06iJD8X~{N+J1z5El=s^Zgin;EZ4$Cwkx}ssrx!`$(w=qvXp+-U
zx$qcGZ2`3$yNoJ`x(O<{oCI~h8ax`_>!r%?uuc&X2hsh&1~n!Qi&{nttAMhDltsls
z(v4-}{B2I1vQJP^ue{5StghWHEiF_!D1nbYeE6{7?v8QIxgLn1r)LDzUj-@dpWFVE
zfc7{uZd?|-u%T=d6(qL8f`a>4JcPQ?eODMof)oj!L>%}F9q4sur;4p2EQ2W6O%nvn
zC&9mCXc;^jf31wa&2yfAedg6kl_&(jVcdp>29>+Y7eD%#k3z&$CUZK;^ttyCMu^g`
zlQ*K3;o0obf145uzMR>s>JHLiMzH|tty)Ru-bCo}Xgps0l$sJ@&aB2nq@@q)IT!Z~
zAhC+Uv9tvAg^Pp^raY0=tjls{mP(_lmH?g{;(F~HH*acyE<?;3Y6C?aSrbp5AJk@I
zk)m%E7eCH6w7(q&5jqst3Om0=vR^9VVsW!ksNKL0TE6g^QJ3rKo?)MA+boXnpGqM>
z(NgR;O{*_b2#<@SwP>??;^Mj$UNqp~N$lROP!BsFJMbNpa@W*G<(TOw{r)RTmsr?x
zHJQc;^cvZXc2>o1q~bT<M)z63Un8?*L#zKWNQ2s)4SPqKR>e9<bm;Wu8HR~=Oh|qn
zaBg%As9~BgAwJLvmrp(ob;Bbpe3M~Yn}eK`Q<pAD$%Evb6S143;V8*Qg3Yajf|x<~
z%kwbYXs1sH&xHZz(cfuBcViY0l+{>Jw(8Icl9Aci`4Pk&O{65mj3<H?(E+DVAPI6N
z0!+MWJ3Yo6y1JPa_9y*Vc8q%GLt~+H9|nJ#N<kEgc4tH3-HlhRQ{-u%C8nQp6q~`1
z^5(C<+VI#U|K0_U>M>;@LN(*M3^YYTDO*7i#y2Gn+&OMCXUV!P)DdK1agJf9#&y_e
zMvcdjj)UK?dv1OgPqoECj(9u}6x+}&u_G<y4b-J0K-ev`Nuw3eMMSr3xmVe)dFfIT
z`dfJDNDMI8?1Iu8YR3LZot`4Gf;?;?4i>UJWOwA1Bvc^X&a_a(F{eP`CY{P~M4`&w
z#$ab=QY^;4e;WY=(k`2d=5)IZLp-zq3i_81iU$<+^T4jm)VJ3R&E57(o5G6_Y=<vj
zzVM)i<vyW+sx!s`P*HNORG#>@)Dv7X{alX>OhtI|>Gd`DJMR6(GGIhqaFCteFZ+f-
zK|D%;mh5h*j#ps)MW{eYbl^SV!pWOD(alnW|7TR404ZC9O2iad9TIVq9d<h;o}GR<
zlV#JW4=4%9aU9Tb2ze%edP}h6urHv^NuGK26II>GDHSR)O4#d#i0~koiN{q2Q^k88
zKK>pBq-Jj>c-&iMW%c0kPlA2DLO@{K%{Ncb#7F!yu857DRCG=ovCmZSgZ2yho3p3j
zR!Ec~ru%F!T@n-<J5Kt6*1f_ioD<DWYj!Q&8U09M)g=%ci52CPl4t^~F2=xsgJWCS
zJ{0QGICH}t+GQk&=<iOIA2vD@Hjzq4<E5vN1k5}#V{{}M(<4Y21knv5UH%j;8ypo?
z)k^GAy)()>Mvi_F9dok}^GuA$l|?LI7mIO0hrds0bgH+`gft|>p#<#`*iXds!zPq;
z?s9Ipbd6#GgJC=bB48u!B+;;^R>0_K>gwu7y2Ta6<lcTb_o2o~z<F*E_Thm7{6Nol
zC>q`?#kN^V5mGlVMW=(f^=%L|_NJ0hXPZJI_RR>?H8laT;AYz4@=w8jicsALyH0^E
zm~!dMVGtJ)O4H+bNuC==nTaGk{Ohj^0G~2j{0#>1v^u;ehrB%#XLT)k*tqYUR(j8J
zsG&s{DRjjT1jt`#!U17RH>m24Y2pq*z?7#}5Nl|t;kc$cZCO8`{Q~_L+o<Gl!$RVQ
zV$g0&!^W(`al~QK!f#+XV*yaU+&;bV>)USJxIr;;dwWs~WKE*Y%`fj1uQc)9G!*S&
z_U2ru+_p>bIi`8zg!y#v(k45IVFof214D2E<3H|qXZIhMvaZtv02T!83W&88t@8$v
zo?6ioU}D^&)bJ^~vVD91v*#5iORgQDD@=~ZLbPebN*VDi{Yt7$!YNOIsckbS+XfWD
zOh7}9uNTY2z;9TVKly{R&uaSIoadCt!vBuRDMN6vfBgu|>4?X?psev5`(K_O>`^^*
z`3%fA>s-Nd9DhrM|HSb@KX6;|!(9gu9*>Y1GHOYC{-ZR}2HJOYHYdM-U6SoNtWQgS
z!dERAf|(zh8BrZO<7_v!&S+gh_nEG#uBT_PZz{U>MKoJK@VfW`XCg<){_|h+skzEE
z!t+eV4N#C8L<uG*EZEmq!(x=&1HvLnG+d%nQG+m{Uw<ltkdtEm*yq)G_b3T^&!Y+*
zopBoIDM+(K!}~RIYvzfIiw|zUcInMZo$rlaTSlbM3Y|XwH_ASvqmIR(%yuyUiXJ<~
z`firGcLx+c=n?qqXyXaTQ3NeG8NOdVxivsh#f-Dl>&6>B`itoiD5#gx^2S<rh)^MD
z0559mSBGr!F2w?-R1TUrtj>E8P?2^w@;{5t2|A(UZdFpseV>b1f_iyJ<HsMzdh<-<
zspsIsN30#aM_vz2Dg&d<lg7ZPE6|Qo)G*&2@_v|!;8ybj-su?<p)V{!=h5oLF0;6k
z=sA2qL0;imSXAWeV3EK^&`7W}rGO|xcP3+32nPLapxr^vFCZWq=1+BGSCyamA5n<!
zuSBRW{oR0N>Bq4-3*U(*G8#ClX8sq^W>JBDK#EbOuN(Th%xboX15Sgir<Cd2ML37W
zG_Xs%t6)FASfr(=>q1$K4RK!zm2iZe?~ICf;L(ldNM6hHbT|DAw%u|z;|#t5{>TEk
z*9aKxjstC{;HgzgM_Yq!uV^iwT86zR8(hBJrbmEFOM~xd8AKo6K73}PWIR!lCW;N=
zqogl~TCrHB;bg+dOs+Swgdkb_C=gX6tE#H(I7CtqR`Pg8Kk?~!2%}w0aNb*5X%!Jv
zEK?<M(a;NVRV)=;l0~8*IgI5Yc=ULyOy0NJW;o9-9uKD95|;ptq(d2=WF`i3Fx_rm
z^LV$j8+5%$4x<*h`;c_7nl?iVn;?^$TJKSF`e1YJPjbXuH@plE4rY)v7DUjR5Lx>a
zB;KCzT6KBe-jOChP9K?n07P8{4LH>#vb6CAPm@?g;t0^Jp`xay1!XgYbi@fmN$nu^
z1#v>9cfX*KQ=2#$n8CvM0E3m62ZdL!j>gs`DJ53gulT$MI?j0*M6?B35inpwbv+Qd
zfSZ$3gfwVoM;zna^I9k?M&QYkAfOJk&y2a(^%As65JH^HtfdN%0DQkY|2!5^6RE8r
zuuB9!ko{g3?KVKYHPMv=nf>`J>v|M`)sUWOLFkP%JQH_=7}&UT9p08Z(y^@(EO`~6
z+=!K-7sf+@qMfio-5}C#4Uto6G8G6pY5<C|XmRqhxwt6B)?_9ECEqt%jf}+Q5L*F2
zeJN1*JmfscZEGT#R4JXT44*i6PIegvN<FGDm`p&a?UdBxFCl4lot?L;8`jVqP(y)Q
z;d(~3Xh6}*vRUFY{q8A?TY1hcS{mS*SHCgnt=z?;=KY4$UNfg2fz(_~*+F00R|f=d
zRk6>imo0$je&EoqVS}uDiGg6b!(s_-d((Jj<gcf|x!JFIdl#UPGjT(O<3j1)+H*;J
z3jdyqkD6RLf{TR|_Iw=lvP5G?CfYf9?7Rsr&(W(rJ-tUOo*Y`pZO$_>FA3SzIK=<)
z{P*RHfw}~3Zm_P24@|Xb<WGrSG@WTytpLui0h%`w7)qlnCloQtRTkGSL-Nw+gAj82
z(7#iR@7|SX2VcwgWPhpkLTPQj^OP^ztNE<fDoD|tl!%x(wET5W*ga5Tmju^LFJYhF
zrC)rgYbSpBRYr#WyfM|<;A!x5LK>6gHCo>s2U0qL2hLb$8j9auvui&(@J^vk=?r(~
z^+i{Al$S+Ne<^)k0SK_Xc-nne>0%c^KWk@-8p0m5q*jzk&p5aQ3A7+s`sSku%nr-^
z0M^%#Cg=M_EuUx5c1pdT)r5{!w^ZmO*g8N)bm||UNmG{>?vSUj#G2A0NE8Q#)8XlR
z!z)hyT=P*8!Y?GwMmBKDcaxer1Yvmj$`j<#sN;XA>WeDmAyz*e@Hd#Ttf1FN2Kq@N
zA|heRt5>en>MXdAh_sFV<6GBnSetur`gV{7N+KHt#Wvxv%={n!z4ukGPZ}bV|M;6}
z$96Dn8eHHzxVYxy4={|+cR_(*_8))zA%`>>-j+gzAmqYBX+J*h=khD7da=I9lvRj8
zh*M9Kkxh6#Y{wG>_$qXeEaUW9x>D17K|=MN@M=IzUDt}vUqiWS-qDj4RY+ZkSQMnb
zVh27T$n0F|{rxuzDfJ=bUV51N_cvX-l02u!$hom)zB78e&X1#)KcKoJhd_9)sWQ-1
zy!8)cu>p|91c;VpNC7BRnI@N~MB=Ft_BpxM%J?oB%4Ht>!<+N*#gzcIxh>PwYgLNA
zQBG)<4GzyYD{mw<hku}Re0<A_dVQR+i^I48|4LKeoc-qJ(S9vXP}!^DZ;XR)3Mvtj
zb9nb0u8eCL>W+azzcHrcDn6fgW-c#+!TG3l+OtmC>8ok%)z6>LmO4R<ro83HJ?{N$
zx57t6at!k<QC0B=xnI&?T>s-WfN}Zy`8Y&BwB5!K|C*N$VoA*YP9^w$PC_a|B;Y=L
z(4|(OgF@@%$&0ZYcc@B&g{Ow}m`<r?nxG?=xBEwKhAM|H0A>VhL{pE_j)cGxN)u>G
zi$_9Qx(oS6B_xguw--D+`{stF@`J@cF7}CD!f8o4&|$}iOTB9VUBpAj@d8BW%?2kO
z5*ksnjYUNLa?9Tv2_TVkZzlBA4FRwagW@UVd;k7pRIDyQK>elYYX;iCE+9`>>4joz
zY0qG3i0o55y94m;Y($;0(4)J6CxDvzoI5{ki{$ZW4J3=&@H~ZFceHAt=83=|c{el5
zP#h4Y9zH1mgqN5}2nvV-uO)toN+l@^QVYj?L1&D_IwXgdlD*s`zKC=RY|=W>71i(h
zUM#I)15g0$V*h$JT9<0MPNjX3)u&EneL~rLpWeQV-`HIErz(Imynwv1L+Ilw2RO71
zu>t|1;l;EJ4Gni@4HcmB&!37zl2->QL*`V5I(#`B4Z>WAOW|}@V$Jn#Ox=>tJTkn?
z6MYFS`wiRGzw1N7O8hU@e*r;xhVQwwA6P~OG<S=#!w?{WI*i21ogM+NO#l%u-ZHg@
z9-TutwH`tme*NPXGV3h$6}N1QnZXQhv|*QePuP#6ePrn&XDw-rr6IWHRhBaWb|3EC
zhm{35S%Gq-R+f`BX%Yj!JBXNK*i{Q?(Ol(C+Z4+=xML)av3TNu>^xZ|Tntkri7NnS
zO(YycBhN-|0Q2W{)oP&kLlZlSg_ITh))CpgFJfT?Ea)W{$McV`vz`@G`(#AEu1)v?
zk>`R#1>o$6#_esOX~A#n7+(4Vva7!a7e^tnZ{ctR>UK=+$a#4`@GWwksOqpv$g<(j
z@E9p*{j?kkMO1^H6+B6(oVMdp=s?gI_5FWCy+(>mCZ0h2Ks(FRB@F{QG7QC~04Oy?
z{-l+1t1|wH+(#+;bb(id)RD#0l+lG}pVo`F?AI5VzK&cBBB9c~cnp(a#|fx&QK-mF
z5(hK>LBCXv9*wEVzydpE8G**Z*@f=gdw3wQR)t*qJ?q>s<f;lfi&7WL_TpSxLMST?
z^SHQ;S#0xQknL-5uAynN4aJ98;^d%si4d}-KLjLH6|{+J;+(HQJVolqB>Y3gqlNdq
zqVuB=8n1DJ2rQ4zP$`^U2sz|5$YS<E03sWBS4u3NWY}<0J$D3(bPD;}j@ET?gGO4_
zq1W~f^P9I1D?&vdY+DBC?jjUQ8v@`OjEGEAsZT6%JeiqC;_&wmcUd9|K;VZ?-b$Z*
zy--&pbTi@aZbRK%$5=L&BMw%ZAQdRMf3;tC*iZltd8fzsULT=NgE&lYURdtupm>!D
zDGW+1*3<ZIJ5(Bhkw&9cazB#xBU_55z1%(rMB^=AzqUmM+o<Dtnph)m6$RUYG#f)A
zE*1*iqTvP*rKPH)Tn|8*rOYy{9f?Ek2`AceWjnSnrU4MmQ!`_TFP*}xCcft@lQIEG
zZOy|g+pA3PDn<cu@|We{K!CX%h6+YB+-N(}fuSz@3`2fpuWZ5vYF#&Ef0sa}FiW_K
zocCTsa_Puws)-HlG61dy#xw&Pz5`g+kgV{MYfq0M>|7F;EN$&Lns`00|K}|xUmQva
zRiV)A3Q48#X<*h%GK>61>;=<D;V1)9iqUG#-rIN7yVViOcKR4rM7pMPfN}6Ex;X?U
zk$4mVY&8J&LNSBR9>?~Zu)evx8Uwd4w`ImA7DOUi?M%uSs)W{^BwF=~!xRlbsqs=g
z&BcAwBLIvRo`3GD_|{Wk6yp81lQ+qnT0TCh65P266*1kym{6#SsL)CI$ubm&nN6i5
z*OvmcrqZ)Ts__2|<Qe`SfxLw=NZT3M<FPQOg@uLcXU;sHu3V--5^d$`)eJ~qji8w`
zr$!dA8@X$kVGvQOkd^ar!d2-IB4c__^oNI;A}QE{dgT0mqBDR$437Y;F-nk)JKpR!
z-$Cd~%j0W86_7CHAt@~YTKMeQNivL%LUIxWx?7#^D6=ouqY5Pnh)9q~_e5&|Wrgnh
zw=6I3R`5hI%ub7Nh#<KCl;qjD1eqcZ6wc%cbh6)>=N&c@xZ3>E9Y{n6NGnQ1@}b8G
zsECG_-s~DY=>^Jje%?Mh)H7to;c&JACx!Glv6zIXqRogxLaCzu2kkyuU8r<|jb7a2
zG3O<&?i4JqXQ~7y(WtDZEiG9*{HYo&942!r+%K1^IY~&RC_K*$Fc^{wFPE%2s`<-X
zOO`(Epy1=v&ugEYkAJ*et-k=YEi==Ewq|yWUhenL3#sb*`ucmh$Z)jj11QD0`&-4_
z01i+bDz8Hdz<{QuAP9vpUN>)~n(0ufCKHR01*zZS7-`!EVG)yOr!NDI<htg-LRmIu
zvY^PM*ZLipL}_CP`bY^Xr#OnH)GA~YY8VamUY5vt1Eq@wTaEi6>9sHOXh64{5Jc+N
zEx86YqQ~&D1~4-_bj;C~zgt2=@$#7;2&7TA%PFGAMBa^7Fn`&6Ppe0z7yF`ZZEroi
zc6yj=>&-wq?K-heK!8C?8ieZxvQz@jYDa3lO@G%AM{Y|3Y6|3##O2hmWG=s_Ayyi|
z4(o({so3E?tlHArDk>wRb3$o20!EYtwe|%x$&R|63Lg_X_?MBIB<yjM=a3OpIgaDx
zLkIe5z!xo;CN%FR0QQ8{DL9+dhP6YzA&X4MCFTp**r3~J`i}1UD)>Ea|HF#QiIwdG
zYkO73M3(UJ{VdujF=>*ny0gLm@(`hVU6;eI@Qv^}P{l~hRH=ycNy{Xk4*-Y;=R5)!
zoCnYtfY~8bobE@c%6x#nnP%SiH#=s=B}oq5wn2!h4%fO(apE70)NFsw4XcLqQ`p!i
z6nUC~y$LDu-RTDi6%m~yIdg(hju_&vS^{Yovd$Q2Mhc7J+_|p^NP6vb;GRoQ*zCEB
z);uCrviEBKbZ_=P3z8T7`YCb6_v}GbHUP<0qH~sbbocI7qI>$_;X~as%{Um3shT<I
zUCBi$kewkZ0TiUmpmIWz{?|<*H(U&^Q80}}rqRI{7B~?Zmng6Sbca=fEOjbUy75zr
zyP&bH3Uju4xvh7+HUqJfM|WDS)r^E~XSK^E&%fmlTtmC?V4_7&ve<PCs1~4fd>oZ>
znPMfJI~%XuXFh-5@A-KXydBiIn#_!*^q!8ylKer{&JRgb8AK>x3*vu)&hW^Vz`~V7
zi?{0Wfw>UP-3P9g{a(jRvvcPze0_HxhB$@TdW0TR)lBfy*j--`8a{}yR1ALSDe(y!
zZCuxTjVDldpjO~>vb&vkocX4KeWQ(sLn0!mlD+@snLxqx@_zF(CBZx0VPb4}H*?fp
z@IehuO<qa=+v~2L0ComY%O(PH^a$8qLz#w)2O>QM9IbyB`{*a`=`lzEXdD?ONMe$~
zZyn8f-g{Klk#;@^3roZ|k&<Yl-3tRS)~8@(1dY17TiVsv7?w9?p=>qHQw5SChZg)l
zcx!Ug?G}Hez5g$8iW<4Np@y^ez0-zfMM=`8&6|tPCZV=@xH{z8e#zp^rnisX;vGT7
zBFx+N$@y)fqI8FL#f86*jsYE=U3DBPz?n|mIP~6HLgZZzSgTimaB~|LteRv3n0@6F
zAaqZBd~yiUuN0~qWN#DfIYL#q+#7{=)FJj5In|nleYq>FEKW5O3ej5YT=UsMPH|uG
zj$AJbbyS7JIhgQ-StmyOFudXK6}BJFyk8mK`ABkOfSc4=W5|I;g7Kk61WhCCmiqL+
ziJ@)m%GeJKU9ld+@3g-!*xJ&;VER)+<+Px_*_iiO9*|tA%qX%5UkYlN+g~i0Ml;lw
zqny&7FS2gDMJeye$9!Q3BkN~6!~)2?!R$WpL3F_)*!p-VoyNfP5R8(>%!vX6!~*UF
zNz2y$XTuf4RIQAjnMN6QW`Wm2T}P3*JY!3XE+}Z2VX}Y!MH{0jtom_OFYH+HyOn&m
z9<ou!EDn^&@8=MChl*#qySwY=xxX-QYcv|Nb$!J}I71f~J87&1*ea}9XdMK4J9oh_
z(<4w8{7LuMDW@MpZRornhF-@<P7O;Vhj``Oy<=VG%KcUW6Yo6QpS@>GTt@GksI@Xe
zbW-3WRaXEumM9S*TML3#GiS}vNFJu?#@aOk00ZO=FImVLBSQ_dbBzrRyY!YkjSK(0
zM5p=i`vYp9N*#aRez~NRl%ybXqLP_1a1b>*ztGSG<*`po{laKftYw2f?D1uDV$a8m
z5mv~FpX(7ZiH4ge>4F!jOs$w4E1i5$Z-NTPQVfcv$ED1f28VXu#doTxzi>W|O#LXm
z3Q^r&RZ(-q8DZ8#ugfD;0}tbnP<m*$R;^fZ0oohY-K9AtwtxybER%`80D1%j#t@39
zsc@0D9igY7z90z1tj_Uh1tO=Mrc)Un!**0`uto@`o170HeVey8z@~TF2?f0h?_94t
zGf*d>C=w4um5^b8R#&0$jO^zap}Bwuq)4+LJv()aLtx1aS)qN8x37l?8~q@uYPMd!
zaOlt>L_`%&?<$G5SJ*Dk7W+8|3CrSjdrp=rjap@R!UStlu6X{<1;|38Lku>!I1Iqv
z6_L%kpjA-`6~oQVt;}oVG{W@iDM&{2IHzdZp$3kQ%*SGU1$0~70iIDoO4wn)xf_Bo
z4*~<xrRYYbL)<nV0M-N9{|x7=Rr~|zhy8Eh{P({9TR2}SGaL{vloF0+Iz$hkJFzJK
zlp$)tM9B@Of`~Y<(WuuD>)xG_UulEFE~d~Vg35A~j#giz?sY>(Rfyr1TxehHJu<kd
z%$3MiBN6Fxa{nNFzP;4(WFXM~A|(C(1~#!yViP5ugx^JW3@*PKGb4Yc#%V;~K`DMm
zyShu4*QNlO2}6OVw-(<I)Wjv{{yw^oAG^97=tq}p&VbW1q`44?&_}Iu(DfMj$E5Pg
z97V{A;Dvp6JCT{d`c_9!eN(VYPSkb#2L;7J$6)ufX_&}|pYs;e#3<xLAgDEz6^e}h
zggQ@ooPbFP(z7a_J%dJw8_@Wo93^D!#hA@ZT)CyCWrn?wdsotK+O15$9w(4x4c3}~
z5l~c|kMDZ`gn*F0k<|COg~_jTa>uw0N0jAqFcV~?*w*XI^E?m+K6G{h8Lt9T2_WKz
z-6&y9IKl=ubmomV_6$_0?yx|eg(&(1IE9Zz0OnY4oi-f*@_Mf4{BuI!j=!KC6exfR
z-7uYDdEG7#cZFQ(Ju<kJu-~wycl4LN0!`Zz><?lct}a^pgovus+<z>tU^a?o!0J|d
z5hg)$k$5H4q!cb+#G!g{|Na>V*%pe3h{dN@e-QHC1AqT0Q1bx&gQOh;%qd98GjpQ%
znsN+cPA^t7kl`FCh+;%eIEJWfVN}N<Ten1!l@z4S%N?go+|RNg=fo3hi#%`yj&#iO
z3&IqTB(9+o{N(wZhBz`)l+<M)V7Ud9G>B6GMJMbTBxwT}ZI3B$YK0{wgCqBQKxsml
zXo+E;mYC^;l|oMk6Vu)fp$mYZYiutJLyJMdq5bk)p)xHUBN4zEh^s;5Hc<87UJjZ@
zks_tgl11V-at%T*A7>B-5CCdqLe;4Cv7mus<Tc!4R+0pm163qKe)#K`6EUc9VdY2~
zf)@R$LbtrU0mu^r`W(Cspr%PX3d`DdcF8yhn1;iExj0s;(0_|<PYN}7d#v~5L>zek
zn{^r8%b!jRa8=j$f6P^tL{cpsoS;8G=Qm~czGs@w#;PhRh1(@Qd0jA^3i1#mMq|3R
zn^B1tyv(!oMaJK2Y|?bLZB5fp80nduuq6fuKL4=)@+6Q?MMF)&);^%A*0zV^n%5bW
z6eM7JJ2C0%er(a{E`ym~FAl8-UHgxOp3}phcK0~{cCb=+?u7SXx5Du|nI*!L42g_c
z%a46rxM`l<fq6gA+qXzy@9Xv@%MWVnoHqJN=j0{5fQ<)Nd$i3={#o;dmf?;Suacf!
zJ~Tt`Rp{R3HuvZ4+qvP$9=pAp^3O$id-n$K`ZciNT$K5y>V6OO)RsADd3KC<cSl$n
zYmCQ^+V*@_k!zkDD?Zbh+5-a<p(z@fl(dV40BP0bzD+tgtAdT)wV7(@RPa@ku8p`E
z7ki5!&nG!^)$+$7>Eq-Q56gKT!FdL%!FC8z5{CxSI_wDITY3W+3dJ(kPfVRYoVoTs
zR9*%=mF*49kt*`gPLi;wh#<oix|dcLi;ic+e_yc}#FD#g*}F&7)YPOK9V)G!7faWg
z1sMI5h0VP8layz$Gb)C|Rnba*>akU=)<rFLC9<55MFP_C!%-(rQV~OIkZ-yrD4&|8
z`uLS7@bcHnV+SIy5ijuJV|7*4R~+?XU=-o`Lhjp<uj&M+h05BWNA@2eV3U4^m7(x>
zIgD)>3VW2i;bPmG&ecm-{N}xjoF>t)65+$gQbD`$XxV0B(J$R%CmS7Nr{V;VKs-Zv
znc@kwFQ|(L*hBW+*?FtOl^Z5gJo_>Y^2NwAO_<gyk?QEaC_f%IFUD!Q(i~R-tvz<5
z$P0cfg5;qo_-F4vt+5477>A|=Rp|JEXMwxTRNmxIxw0+EH|Ay|8ZqkV?A)dpKMnVP
zRK%^q@<{V|JiS~GS9poWF^_O1&)tx?d!Q1j0K`fUb<_T2K&kQoFPRQo$sO@&C48RI
z17IK&{*x2)^o|N0ZhMpRaKVY7*Nv2|0Y$E0pW4Bsnqvd3g-W0ecE+z$$m9#R7?&6I
zWo7qZ_>_^rm!L%}6vV!rIquBdVD;DsKtiQRM;Y?g00afwkXaXOysJQ0@*L63q>yj-
ziK}8%%xXdbqgX>?jEz<^{!iU;F!_C`a_ph@fzA?WK2^jyt*D6wf$C7^@HbG5YceK|
z%X6#7z6a3~3+8VQIoVDMMLyyw=lWH%vVQUrdiq(Xw+ZW7eAgh$Escu()c*wv8EF;M
zH3`iGEFz=iF}RMO9TO)Br%SmTaAD*$moi3wW%!d%royATphu2S3Q*a;=X+c(wwi}d
z+RVCCeAnJ2o*XZxTl{e`zxPhZ#%(jKUWj_l?%5h0QZe@Zrpee@;<Hw<#~XXR0^o0x
zh9~m|B6ny_S0{Ypw7&Ta`OI4K?*0*>K#IkM3-65Gxqf+*qj{x*&JFjW*Yy?Uq646u
zl!RP-HGi$F-8npNU&=K>CtanH^1Isq`kbx&*iz`axq9s3&R@xnrBlG(D|oO~L%-oX
z%H@G_j+S`EzwRvWij3>fc?*d3(l9T%y9*J$SfUKztp-#v378NJewE|lANzxWg_Pdv
zry`5;bU(D_Tac&}AlnOJ8@r29li`3kvxL9zmBvFXshesf+FRY3;^V9(V4ZTxso_$7
zSNfMbMoA$2<M{|Z)`+@5{>1mF-?3n2HeiHew9DNe8Nnh0si<E$O;(Sw3|-ahU(`aV
z2eLic{e4LLnMv^lL%Bma*?ooEsB~NJ(fanrEY;oS<kNg!bv}@EL_t^f>%9YZNWq!*
zjhUI59vt~*Dt(>(`(0~+9-2RxIzJ~J<;<2eo$wy1EdJEJZ?512Yzvtjw**fe;n5HI
zLBh@0HKC^fP2d@8#es+q7x)!;@Nqh35{rYjG#LOa8O+}E37tK-x8l3Av&oD3tab2A
z!34MH{{o6bnoEm~?``S2nBi|dUPD<bQx&%|GkyVq=SAXKU-9g9O>04ze~3gNaWL8>
z&#U%)uytQ;sh2dt94&{$+?aM5At+GDfX1x?T6b1Q=Y_>aEqDfM0L6lP>Z_IksU?5z
zhhD4JqvXQclbugoU<gpXPnbF;LBatlk*vhL4z+4y#M*yfL?QrHpwOEGFz186NITIm
z5D%bw0^`UxU|GWL&|P;9J4d$b+3Sk3vS&3(s*&os2$Nc2H%o!}RV0qc=^xOsh)Y-=
z<knPX72|kHVdYX6Ak%MJ^8uk6Fs&gGYW&HPEKBC$0|yQqR~{e0r!844WvO|ylT>F;
zWEdXD5AF*kxsdR&ubZiKg19q0<wtUqkPVq*vcPbMPF`I%!$n?y*0VFQE-&O=dOx=2
zGbU1_BV+ls<8{l&$l#d7=`x|wXPLZVH3+?hW5Q+L8{6HR8RnEo^{v=omyTm{o5vS{
z=A(2&hw?*WHU^@8b`!%K^QLT9hUZN;PsfO>i93-CJSb|h%4qR#)StUz-<w%Ykg{hE
zUowa?)aBi11_N#S*!hTKL~8`4VA+v%<%wM7Z-1VkP+Lnv>pQA5)H*%UTw%-h5<T^r
zJoXT`j@VlGK#9{Ye7dl~hrwqFBquMSQ$|wqYi4I+(V1(4{$Om4ua&%T(h0()A+Wf_
z=+@}wv1DE9<sgguyaMAyFw0DWy4&i*v+7nMLdR>&w(<1zBo<<<Qh8j195syh*@8IV
zk=!jARhN)^KC3HP6~Rz2idZdx;z}%{L;cZyD~DL5kZgXygq|!OJ6in0O;|)!wjBDu
zz*f^jJ15(YC|i1swV&|LoHm*cnTYg62!OT(V{8|#+w)9gh=&8Y1GU5wWC|gqrw_j}
zhF3Hhtz+-D`}%H-<2_-H@sodGY}a;-XmWt1%_b`xh{(;dUJ`3StRPNJJFZ_)@7d{n
z9UUFS?zbpUd{IuuB*VmIi_#?L_Ke(Nb*x#ucrl|`F}tJqYwjS6*>dl|k^-PVftZXU
z?&#<kC}V5vHTXQ-49MJj3>y6KnN}eg(2WxK!=+xmzhwY|+ilyFT~%G(0&V631jAtq
z#nVsUo~Tn_opK0|8<p4y#E4XS<#Bm2urb}7kI(|2oPp;HRB*MUp92hBoUb&P^y3_n
zcr%wmwYIj-%1?(O^rg%dayfld!$>-C=b8QVuZV#!3{BK&yha4$50hXHuU!oHn(WYC
zAt^0=9x-qRjM;M}B<n7|m;vkS9F&%UhTDFihv&(Qk)e)~Q+fOLZM{@0JugTSacCx^
z`V0;IcuUW>b>`uo2sc0^ZKDvI+@R2NF~hK=d4k(4eRuTnQqL_UP5=^HUBzb03`wH?
zPqql^+3(TBQ*UWan5O-I?C|&%Bo}>Rns8-=yLXfxVqYSwmwxe+8+*3(sc$~cpe<wo
z)ApsHruPnf;BXVXjxm1zEEZ?DP$xIJ?!h8>1g=~2R3ZKJfnIb~Y^DO(PHL*J!HN^6
zd@e7+R)o6gcu0DQHL#RGifh~BYc=lP+=NfWtDyQHh7j}|I*Nvo=7eBydbFl!i)W9!
z$#D=JruGtc2Qg2Qwlc_1DFtwnukl#L!Sp);Cx;fW0Kj7+;GJ9|@uPHgZCFy!m5!SI
z{lM515%O70G-CoIJcqOWiSX}#ZMH*_CqhkxQ_-f4zBgC$6(0LIw-$^-4N*T#keMXj
zcNmqTQA)vYOO?`_9QPSG6mD+&CH(ur{;Gw5Ee<OUWt1kYnhL&97IE#LoJ5hW<kxHK
zD%M64`{$5}i`#5bzxeBkJ)eGW9oD8<TJDD41-PT%+7WUP*DY;E5gsYKMo&@xXnkTa
zxP#7k81^-K=4N2;(*%cn!^h6izap2n@JehyYyph^T$ZJgmPo!OW0&b$N&&xpdoCM+
z@bemuPAGeg+=1xv8y^>%eBV#P+AnwH6W=)AfdCj0ER}7K@RegM!iD)9XFF^pphAkp
zc+{}APR{*WL{j&j-jRz_tH;a_NopT@(3s|tT;}6;v`v&MxwC?=B#cCF^&upc=IqAu
zBf_Bw=Dwo1Y_~*lpll4z(Rl*KJ<aWxG=ELI_@NQJFq|j|6eAqEPuyWfG>Cp8RE%h?
z>=+dO{$g&;h)3nhH#ok6iOXuDG?+7*Eg1=Y_{iO$FqUFO+C7}A^?(a(@g84zbrKX1
zn=1dD_;a7*X&^>WsEBoIGP+Uw@5d5j>PH{|u=Aj%4KpW4m?Q+S&MeTb^uinvu2Xe=
z7(Y1`6soD|7fYGh2D}sSQFO^k8EO->?>Vp???{S3{LxghLCi<7eLWiH^NJmH?BcaN
z0o%Su9BNk}67Ut$lJC)jrO&mnM(B$BG2pDeI*8CA3)EqAkTKpbk?$%SGlZu`K2v`V
zu)|sz8$+i$i|AE5S_pi%B`8XugeiB(OjSG7o)s0f3A@tB1{%M_RA#`m^n;l17HTTV
zHAe-<Mkj|G`?y`D3c$7(c_iG@@QH!w>Qq5#E8RqJ2)7$$N@7%vE}HUhbiqMnKwPu`
z@=}lW-eX^c>kZvS@>S?C9nvs3#v?;L;giGRlLe^T1T(F`xk8@s#_jf8Ba#^)77BoM
zEy>=1tK54Rg;jS76`apvCu?Q6v}1w0MW}rlrJmwQQ>+}vkr-~ICgTmMG;eO~88lNJ
zr#FCp!EHJMobx&ULn};sF{;k~2!gi5oDX9faHF+pBff}ANB@K55kW^y>3XZ@tpW)m
z1#o7pCe}V3vX&hW7FrKa(dhS<qXOhbO@8ag=rqM6uEm@C5ur)XO%QVh#nzXCb+^qL
zO3Rg!Y;@tqF%k<A5t!T`7j!7wM{UZvk^1~CKT;X`S6CgrPA9d}G|8N|A_0aKpXzGP
z8{vp+DSR|?+|UgSO~=iJY_i2AsB_aP#QA0AZ}C$Ze!0}^9z~X$QmG%>{n$d;Z;6Wm
z;|z2($Wr@eyT9qf+@`#`buR#@7eOz~7yEc8Y?Q4R?9X_!J>UvXWPq_{u4p>4Z31Sk
z&h7n!QULOBL)1u}gm$G?38`t-j08#NIGcxDIxGZp(JGKi5Fc4oru&5_zX@B%S$ifh
z#4j-5x``<d7EUuOSwpV(2_Sbv`Z<s#1^LafkBUfc1_|U=kPysncEU8OQR&Fr@(zp|
zH1n4z^uPDu(oBl5i~F3thn!uTN1FnW!QltezUPQ50(`5Xqr=WF76t^h4ornw9McNm
zyvQy=@;!$*tOUUEbA(JBlS!UQy{3Wt+mUPD->*>$(qQ<Zb|wRO^Ee4z?HN(-he4-Z
zPa<2SX0Y6lC<y97yq@v-#x}V=yVMKhF*p_i5kM+RrvOT{gDul(pX&d!I*BsAKOUYe
z5Y5y6+x03QCj})w8b`3fVKsfE0o_J?;WUVwwo0u%FIdMOsX2*=4|{_Hifi#&^N{-}
zvqj;ck>C*Z#n9&^a@zn9zCWToQr>D!`~lgw!};E0`5tWtgvnI`6Al6Wn?v>!yh$kR
z7%Mh$@D>X}%6Yg!Sxg;%4rPp}$B%zS8eXh%(_baB!I5o5?uq2#(0JPhno1D|E<*t%
z=izAYk?1?QAv9KE=A#5R9k&-Gz#=Ig0X0G(=2(ksutzM|N*q8c+5-o=8%M;^99yI^
z#hff_7f=6qWh(JQNN7*6m!vUreSqFrC6@ptS6aS9a5<Vstw<E`)rz|+==9;&)kY4d
z#53ETINqs-hx33<C<Qt5n>1S%5%7)Me%bC?edq>h_}m8)GKU=4*yym#nwEr|Rfwz%
z8KXkVULH5=nb>(GXv87q@%LX%;qCDF{Fd}E?A=veQ*$2Vw?Ih?btPWxiAYUREe~OY
zg`5!k<9Kv69+eW0%o)IY@M=EAQ&?Q_oPi304-vB!-DL_>Pog=JbVTXwNLo@hU#C~;
z`^Vq>ga|AB(a%c#fu&#3@Kvmn+vj(~obqo#%sQYeD+L9%B;wL=P)<x^KU;ne3JN0r
zFLbw4tY#sq3w2vfXT53B_ac|zbETtfWj11B%iPCxH&$+|(alBuJFh#&`OS`1a~_?Z
zQ>>g*Ih5ovAv)SQkRzfhotLt3aHf&%tMN2v=lLs#l)deBodfVeE7^~$Sh=~mvLB6t
z!6K2~u_K^Juy$I@rsvF!DXxjnmF3gQ6)PT0gEx;J{pf#~Eiz3{-4fH(IJMDF8Ub8j
zWvTMD?J}HJY&dyxW!9A;q{Ane#thCI?6U-MlVDZxj0klR0<{}iVci>zX70VKp5!x>
z)jV!<&0pq+JVwgxt!O~UKMUdx==A1-wC5K$g*N%{svi3|1Kx|(6r6fNeDsatm#S<)
z!Fn9I#YQKO=yX;_m+FUO=u$h&oTq<#KtJ?fKO;KU!^2B`!qi?E?431dkuGQ7M1pu+
z<TjSWn{?xwYD`52I}%zZ`!jtAl30C|Sxue#u`tRZ%_%oUXFQ7eDSNi2j!wYUtCrcV
zOh=%EUERwwZy7UujeWh043FrP(Mmg5{Ov5c>7N7!8_&}!``cS1&Bc6&C?CZhy?y)E
zabi`P&g$w4Km86p=9?&XST#**&Sf{QUXJ$09PQ0hKhcgneNn&6nB{yo;`r^SNSr=G
z`=&K8PNEr#-2eZ@6WTH@Ik<P<d`xS>KMPd;`y>AUw-#~E&a2A=p<?rJbC}Bpa6^uU
zAvNC)&lPNyOeHA{y2d3*j-B<Ea1SJ0`@U+kNeu8DDI|;LF}0htc<DaQ@JX_te*dM$
zWde~wDdxWHhOs4BE3&a;YHG!9w;`5S3ACkTx^N@<IDd9F&<j93#UxQjFN-*sna3d#
zkc@=!eVC#=$#TFu3Pe3!I()p#yq<Me<G8E{rct~6v2Cg<tZQ^P_%~;Sj3s*Jp?*je
z&Vk2_Q%#N4Q~^}I8&mH+fLENL8v-5b%;rxM0V^myV9H*#&7r>=`hd{NH(TEC6>x&a
z;%ag`d@09Xj0zzmExtR7y6$bi>0c)17r)FB$LwJ$eUY$|0_?yA_8LNHw8`S8W~0DH
zz+<F?_u)d#(;A&rV>RQ>WsvvoUApO`5vCPxBmQ|a6}WDS(_INvKU-1VFD*q}Y7Z3I
z9Mlt8v{F_A3eiq8Nx5)}WHhS+PJ}7QA`N$Em~Pk2qc1#z8>D#}PoMtI<Y6PjqpSaC
z+ktA1(<u?Y6@ETLlk5*49wIzcMq+yusk{?fM0i4`;A;=}1>}W5Ov4;u9RSc+2BQd2
zj2+ruIq-*th!^R9{<1k$4lq^;_=x%mtj)&r8+_erXpR;C`KLZ$mXD82&zv~&%n1IE
z3WfCMPzUv_w}2)G_)8ZfFDK|hDx?btXcV~1^e{<LtdicW61#(BG`V0?a7ubMnneN1
zbK{cUxv7`BB^>|HKh~pmd~M%m*y5T{weQCmymR2K%6_>eA=e@k0e)F2%6$@O)dc<*
zT|H&=3xLyCf9@j)5xl;Yqj$B-P_{pAW6IXc#oX*{Tkt>G&^knZ+B^7W`dGeSSr@;x
zfiScQ4uOGsyD*okNi`W&5)o<>0+{3VQ+u(@e&B<TbM-}M$b*o;0I8CkV>pqtpr6AE
zhh_?s&G5*)?Y@R2U^qjhRv8f3PDaY{l^_~&iVau~9SLkPiUoUd19>%H6T>H78rbr*
zE<nD~%Ph-udEibVD7$v9>;@1j2A!&R8Jw`Jx_%%!g#`D_{{HzUDUzUp6VW-&U|%)U
zONyEd{Gx?m*=9jgCfzMX$a!`T;YN^A0zfCxXC~YF&{W@W2;G2Qsdbi&>M)v>)iLCb
zz)&;l`Vobo3SNvBNP~5@NUll{G|Qh<Bp3R^gct!WyaGv2g19XM1RoA)_V4layKzfo
z{sDn_Qa_x%Nq|Dxwnx7a^eYOX(-Q~s2|i(~doeFY0nwjoR+=zEFi=4AYRn9*k`8S;
z_V6CSs}%QXgOl2E$$mP-&|LW6e(Im7>c4$9-#=?H6=9-NfN2aYjF*;}bknk3MT{5E
zK3n-8BP|kd@tAHrJEK*637xV>ibZ!{{P+SHUrJ_)fsv-F4l?Q9e<H)offjM`h=pzc
zF-WYb?gYmri^N<ih!IisQNx*W4k&L~C8l51DB`e|gl3yOv(oP*KAMW!{xP8XI!q}k
zsoD!qZ)e8v^W8X#x8nfCGMToHp_XIIPpB$(vOWydJ$FlZyZ$7JG%X|89n(KmzHYN0
z*=w36lGDRiwsGEnM{56l0{(RZ{#grNclXT9N_64c1K%fP`NAu+7bX)N12BBajJfOX
zA=OxHV@P(9j}{M348s@*22%-Xnz04~1whh9j#PC>Hje3tw!f{NDq4Tcar?SrF{B-w
zfO$Vef<kb}4CGz*pgB!he;{4H1gHdINZ@@s`362(<;Gb}1~wTY1RV>`8xAHAbUR3`
zKuL&qFhn&4AzT4*9H7N7K0AG3toBP&ULVfKmja*J#b1PexreCBC{Rg7)OmFJ<Hhhg
z(sKOVW4Mn}fVKd3W(lgm!4y}J7P362Kg@q1-De2Fz%e?82T9@p(u~ZD#L|w@$G+Y5
z?i#!_<sbDcva%MoS%QalypR3N(R$9JHTNilWWdkQufNDjp4I^TjDrd(?NSIS*RI`l
z_8^0|U0>(r>=eKxi9FXI+>&i^7Z=#&48|KX?vsR%{8VPTSzB3kJyGG?5+}5}w}#E$
zOa-{l{w&9s!$j<9y})IgtPP5XXcBK(m2W|7GqnD%1EO(;T}HzpKfaTiisB!+jiZhJ
z!L3C`!B?+dZOzYdV_C1dsdBd-!HhIFO{6Dp;_?z}6UuZ@HOpz-%sHUU42f=ccv+u}
zRov|#mp9{)c_&tJQ?M1C;)<BWz|b5D{nVz#*7YO7UsUdpG9{v}r*B$F$N`9{JStPJ
z5|q^7-?*em7U%su+mb2piq;%RsuZoI(Z-B?#1s<*A%Y62Ye}zVB)bFs825m#p;XjL
z6mz@n<ovKQAUpYHk1m`9UCY5<DpZwOjUtH|!d@yJVeNU4#~KY!acX~d=K^o+FAe5<
zCau`LiKaHU6Erzb);3EW9?HccR6=915uVzok3_IGP%^kkDuooW5_@?PWEETkDfQo9
zA%-A0AwiAaaPjqG+IEvn2MeMkx0yPK)`ow7of;iA1X1KJMEL~6(CE;mqPRLQDM7=N
z8F<{J7*BSxRBEWSwLXbmkY%Jj`7+fh7|#@P_GNu-6u=y>`sNZa{C1laJ^;{c#%dw8
zO@dXjZ0ZrT;}K$VRPw*xx3+gv0ffH#q5HC(FoDoccOR#68>w+F0W-j(%T!nusn#4R
zadOaJxZ^C#P(jk8gYYg(AjaUdwbOBx$+zh}UZZn2WP0SlBmV!7`;U&s#@S^`k?OHo
zs_!uKLBqtPd2CW(zglSIW?m*rBm*5hcJsKVJriXW+iqsi=&>eG6L)=Pi=7@*>m2s4
zTLPhftI~zaJJI{;tLcsZl##)H`}S~-_OhIrFRn5)Q5|SB`svL8VJV>UCQPS*%IuAU
zUsk-*F^t64f%48a^m70nNkvXZr^@vXLS_<hQ|V}T(&ACMr;Z5vfq1YLnPwr9kgTkb
z<5~s=!36q*RB<sdWb!LVSR)R}l%e`+kE*z%vutPwvB$(VW4<*9wbyQ(h-w1ZZa2=}
z6Ks=dL5kts;?Wvtk|FirTF}QxeQ)Z$8-<6Df-!JkEcL?%Vyc}3Dr0e(zOc$9Uq#%`
z#mA{3Z$jgjFJ+31L7;kam=JE1qHYvGsYNnt2X=;|{h?5E&`oN=Uh}0OVbw^4ngZq=
z_u~rW3020Ig6@)cP}sfMEjEv@?!`3J`CoXS|0RAT>IZh4^Xh%O6hU@G@~KKktCUiE
zHN(x@q!;=-=ZVR2(`JHIg>=57^@dz2_+nw;ap6RQ(PfhuWv>X~4PueuItUir*y0d}
z62Bx+Lwt_TAh2+<T#5j$^+3HxMz$L%9QhR(x$^Koq)tju^r>G3No|AWCC?RwVCK}X
zKuJJGLmnI2$1?HQs;g+g6-Wih2@fpFP~03yE|pG-2*}}kaFHiqw9!!L7h%qWD$9#o
z>tvIIw{<9>e)OJj!zfcU2s|{K#Cd!*YJY=j)$VIa1&VL4-!K0w?6ex*==5up!=GRL
z^hyDyCs2x}9d#l+3?;)`{8FNmgSL}3pPg{;vRIY+l)J!y<<L;#5vgL6HaM8sF^Klk
zLKGDONofph)dG~1!U$dN$hu1h3HUDF_QYDWnrK!*2eLH+g&RN{26y&+zD_<LCvRcq
zg<w)-0j&q5Aq6^=5I2!}IdK%IH?)GfQ!Jj<RS~tz1`^r|17!yY;en+5>oAW`_M^`%
zbZ=MAHcC-D;>K+=f5LE#V5@j+%2YqnVGW8HsUxAovX#^u2?Go0yg9C*2m|QtUd)&q
z0WmqF4{DvF!%YOCA_XDz@jWj;EYL!#KAW|3C+g}uQS=EX^dz}KR5>4pI@QHW6xsx+
zWHSlYVvBYZ44K|W{tPyfKPWG)<j`Ryn#g6jyNP|4)i}~zxgk_SD~`P(L_+KH!&49J
zqwWmor`T`ebBj_(XR)*MGOIo08QXex8qgH-NM4O|LA#U%nvqAJZ@5*Z5)@1xfZLRo
zBcgrG-CeDTI~4!Cq!3CJ28JBMo+GPz$6s%mV7nurq2UpB9$E8v$6;~~NwEeX!{q9j
zggZp)+trTbEE729`+<BYyVzlGM<*p+x@|^`|BtYYxq;_&@Q6G2-M_DFCkhX$1Yk-_
z=b~q{FQ>=T_P2TOu!sO52n)g$!c@K#!e&d%XbrkiU3W^borj322<m1H9jT<4LNKEx
zY`yt{o+dc6HbA8f9jmp(Y`hUrMmqO&=N*2Wle3B&68p5r;(ke>TpbPnrr!~kxM5fF
zz#*QE)tpgg?>JezOW*-wO@a-P3MTq|0!YC1e)ej^XC+*en0yfzM!snwkB7QBl$7Tn
zqM?=i)rn@yq!K?#N+?hsc#lepFCjvp;#PuwOnX%4S_#=`iZ1~rz1p)k#pE)49XpRQ
zL731Zm3366x0Ct|3TDBGI-sQFU2tf%(F1fTd_^Zv)B41nqJAoC<(;gS$hAGP0)$5p
zJ<P51gL@~OjSN_Mg3cI%RXdC}nyj~j|0(n(2d@(9-q|o9vV;H(knb4qJ3ydaSG%>@
z<;L=Tfo+z8?X0Iv4V}&lIl<Pc=+}I+<2=ej@5qJ(+aLnvwH-MF>f(80eF})er>dc-
zk44loH!!}s+auQHfJst9{0xZ6PN(Kt>-=eaLbm0>It=zSG8`W1yuc()WTcZFPp4^^
zlntkBD}ro7h69a5mbeHR2bL3;%eufhCg^$Mrb9_pxiS9zz@h8msR;Y12-BQZ?IH7h
zgyI(^xQu<vFJiG+EhLaR@Wl`ezLvVWx<0}iC|pr9zb2ZUH=32Vja^gY4?WmVEOBLA
z`P4he6Mdzneb~U=2(}<2H8s`Hz`(!@N(pS;+;au=J}^Y}5)%@{cIYKX_{JrKpmQ*Q
zMxzyhpnT31(G+d_B;YG8@)8qp+i2SjlFw0xLFE-C-)4e`k+>!808(&wt&ScyXWeGw
zZ7gf&wxc<4_S?Ka{}R51ybi`f*;)M$zsee8m?Lf<gmep01Rg3xZF=gml~HkXI1?$z
z)@Kqf2Dwm=QEr;EhNEA#J`>u4ZvDGBAY-*hE!Y;F<85;DVo6GzBTsL@K1z#KLt}+X
zBy>JJrN%kd>F%+;PxcqSYTE1XUO#Ik7>aYyf~rE_Z|IpK4sQa-O{D|vwn^xe^bGBT
zL2ggZlzR=C$owgeXfQbEiAf#=pnZ2l2?01%Xfsn%2dAOxQK4L9ZVa()0Y$|+6A9Kf
ze~~hrw--baCypnke9`Y@)j344pX3}Dj7<aSa;=hw3mwZWvXYrlQCHXLjCK%&Ae&9T
zzgnF+9`|)nw2t#^qkbpvs({VWzV7Vjjh-UrA}JhC7{bcTI|<d;7W&L;r;@6=T~F&u
z0&h5Z{N%%0)?3j|IyE8^6U8z8wEz;ljc~rYs5}CG^`!vye5KE}kh|1uoz|EcpIGt?
zK8sQ?SNZ$PRqVB3anQ+uGE&z#5-)e8!JYHFLHflrgq2Py-aOn>J#e56d0hi_rS@@J
zj&?9HzU<hIJY-3n9q8nxpJODX#$7N9eJqwk#{LC@-(Irk%dLT)<~)W9BmIfz68R^Q
z#xPYN>?cl>4q6-?uMTE24=I>iCX`yro9nY(52`D2jwJ|6#KCY~$UnlTD`1b?vdJB8
zr4;PSU#Ibb!D#C251;f9!Xq$*0@v_cncVxNz>I{EpyjwXe^NIgCK$+nd1Iv0J9Ghs
zP+ZZ}sc*;uAMrS3^2YkfjY>8SoCD)?Ed~)<77>OCr2v_ZLH1*fN~7H1#ERN`WEZs`
zWgc=5t<xa*Hp(9U5aiiS^5n0Zl>_mhoz4fYOiDBk5Hs*6WCFrAwfE7~w01QiOkL89
zK)!l6(z9D@c5Of-QYivD?HE&<YL2*m$`&-{9;Fk+-4*V`9@>0gi6@6wARu%EcKjR0
zUYUd3;Zgm+?4z)^v6~Zk`eK}8*0Sd{i)1xU-Mx!!Yo@WBmXVPW+JatE3gDYFGlB}q
zGxb8ZK8NswNeWZ#PY{2Sa}ZCrxK+G>%Oiw6>TcM?sR9#11j{0*RR$6I*l_1kF@ZQ3
zTFK@=CsHbp8<-Bmtox4f=F(XfBWG;jBS9j+@a<YqcWR<BgL=eGtgbUfiHBzQo3h~k
zBM=B??h(Ld&jmwV+WU>mff|2f62hNH7&{!`Jsgm@J>hfRNG=+!(}usH=t6q#8{nb|
z_q+tMav*S|RnoXIHE!0KBbQKR&Hy}3sv$BvAl;yc9)Ex6k+rlvy<0*E4&scAoVxxV
z)n%oDbrt5U5DAoQH-t+h^z3^2j&tmgveL}Gs?uE&TNm^IaY5Gszf|0C;Z@6TXwOLC
z#r=+U(Q|0C{NtgjjS=C7Ad=lkC0?CSc2NN#oe88G03t5@G^K#xi_fdHrI0I+^_P|+
zOHfBr0psC%+mSHmQzoS9w7mD|@n}H;^wa@;F}Vs_xpDMh6&e_x)p1DcF+!{3{pOwr
zs{M_j(cw#OhHxJcyj3hF2HFknkf(Fu7depcbA<v_5TvqX3D-VvtSFB}U#=ao(S#A^
z09|i$qa10^#!)2hh1lm|BqJtGG35A=V%u;<K<)!d25^wR52kk=UB^40=1k_U;D%Uu
zj%**1)i7`q8<DLXStoJBt3<Qv%SOJGw=1(9;;`i61z9r3VmFb}8sT?Y;R7?;p4=q$
z7UIpw!Nb$?6&`OpLW)R)%CbmEAw8>zdk^`8yvcZnPCp6{gtXUZSwuh^Cc0UMCx-I!
zUY2<4p?ihUWI*jJh8&B11$A?RV@^{}^El_()^obkxQW1Lzr)sC7XP#%<;FV0PZxj}
zPXF3i$|aF0sYa5P6|{F<_5f+M`E+8GzLtSo0um|0MlmOBAwrRyTG(bbOHFwfp+w^4
zweUXnSjY1S=*Sb6`5@rSieyKXB5yDyc}<AR=Rb>!2yKnjUJ<8T<Srio1++7Hgni`5
zgy+@@tlI$bJG^#Q4DmPbxAgruo8kf`<^FN~2!}<O*?lU2I}EN1n5R@jFxw7-loV=i
ze`wD+RBj-w@2M{8M|hf3{1`$;o;oR@L)R5oJ2j9{@u~3m7L$>RfMgPZ)^P5EUDqmq
zNXAp@(gDKCMJ*US=~;-MjuGp-iX&;2xu6$)YSx#sG1PIB>(Jcb#oVvno^E29(<Xd5
zuLevi81F)v+;6u@<HRuRYY6Isk9<XK@=^!g2s0nFVM3&lZW~IJ@*7!)nozbZpG}Z}
z!vW&F(IO$Gtb~k?EmuS8#*|@b@uloDwqV~MVjabDRGOEU2G$HIieXWFQ>QjqRm2w9
z_X`VkdMhlt@vVf@%$?(YmMuiu0qEKC(G8H2tjR2aI6ydgwxlp;hq!pP^zRptviOoG
z0UeMw{vtwCqZA-HZ>lz9#kF5cCfyZ;AdXU)LC%$k_8c;t+8|_GH=<Bgx)t)5Pz?w9
z1Y72zn)}8#2j#Rfn-JFKjo0TDqku^&m4q9;GCtK5K~xlz6OQ62Z98oQ0_Q#1z9@Q8
zsDwL2I>kaYT;w%JJR4!tcjJB8P=#3;pS&CI(~7Qh!8XjRal|~RsxcRsOOnT$E$sHW
zlgm6LYp&m{bkn1xs%a?YI_DUz622TpiuU|hVc{8%5~Lf#t+u8BZX%R0s(Kr<EK#je
z>p;RdUqy=5fnfXi3Lu_#2!=LOmHO`A1uEyw>R4(9a$6zbtD50i{RH~6Rj;ZjK0)gB
z6vA#cti2-tNHJ%X)|9EP(&O1&pWMVsW8-V2CM1h(GdlVfQ_ZuPQw371ize14&Bmy=
z2S9c~WVmxNyNQvQXv5;ktU%In)2^f{OzEauN!40!9hoZosG5|4uob+JSSf)D&QiX*
z120sgacVXvgVaQN<*MboR+Ue(n{wt#IktN8P0pd*`#5{S0#-r{Ys-4k8u|T?<=X15
z=+m-NnzTbLtpgLgwlsdGS?6?q(30;?&TQ)Wa$T#eBhf%J{(8+7XT6m%3pQM7u-d!d
zu1Wb}$b9-wb{pq=DN6*(epTRPgm8XdlBd9Nm9$@{<kGvhNBMD(*0b@kv99x!8&c~O
zTz+2g$4pefp9L?oyR!Z?MELf2j!5EQ-b5lT-5I|7&x2Rm+Ai<`2Aa#yWhN%RMMZu_
z)m`c2xlyUr%K|I4kI0{>iDRyx_c{Bw!M=IvTdmRIECwl@C;gGGD;gRbjXX-rm4g>;
z6%}3n+m^wUlaFGptKTa!<~u3vP*fD;D|>om>7^wn4W1v&lY6D;8_RY0%Y75gb58vi
zMc-eqPMqKK8UH`{edzx6>+f_I_0qM-HS<A|P549lCVvi>E2d=QfA5|T^fPWe{R<FE
zFB0#$!7{dU%H-<2(MS~$8TmLaPQ`F>W_<i2&@%r*pZ@y$NAKOccUoui0eTPTynOjm
z7g{E#CLaK}TC)7lpU`CX3d#K`1A~Qp7+JFK?AZ<Ay^|5mS-S7uHKfWdx3BBCz$pkB
z@%QsP1Eq&_@5x*j?o8gsHYgP(K|<(jYwN4x;>8%DTVuKZx!zM-$?yY%y{-|(RjJyV
znx_%^zeBeF3<0^?VhBF>BA4akgH62)_ivCe@pfmlNwZt07zA=wDNl|`py61g<WsDs
z=zV|xt7z1nvG=#xAFK-0+0SyCB?2ptAIUP`opwU7J*=Q1Z|xn2(ytf1h5x*M{n)R|
zQo_w6RvY76&YGIO39q(feSgOoTx{dvq44U}D~DFhc)koYVpfdFGW|`ydP#4iB%%`_
z{eS)D%>#!H{n0c=t^$M0>ffkk%Ub8SeA_?-{3J}Aot?Lv<TltGeuC=b-jD!|4fofC
zY};|pYdas`+LhFU`!sFQhvWh|BK{n2UI)>9?ofD(p~C23PrX^qEVgEdc(Dy`$Xc`h
zk}9XakF|wPgzx1Y_}qAXR$(jmr}#>lAO%R#+(e^_ZhT_vZWg(&hiDLgneEQ&_ye_#
z`r-$(TL)=p&ism569UKbA6cV0)oIzhpSIgCmd9So;5tOOZ?doNI68F9|9kMKEknmz
zQ>*WH2VTG4_Qp)OH0{1oxs3Va!O^R^tM}NqF7g>UlHB!8c%?OV_UqTP5LNASbCZL9
z`bAEO;Fc8&96GAzW3Q}Hbdww#A5YM>)p%G}gL=X*&{2@OBdmM}0z03O9?qLLZ?CTI
znhhH_ayP~FD(w4tQAu8G5C4)SOWs0h?0!hdEeLWexc2>obGKJha|L4aGXYPP)vOsA
zd7Y`JEe(nlYgXM#V5X(XU<S#>i7{8hY?ozFH;hS4Je+?=5b&$*dP&I@$ZV2=kJPhd
z^_w5Qewga!;&K`)IGBC>0%!MLK)|)2ApY+oBTo>OT)%be;OWzkihnyh^00!4o{}rM
z1ckE@B~N~g`nVPyy_rY}1Nx{D&kZSiQ$_oLh2pEMYrj5p%*Vpo5i6-WR*Xqxn^aS(
zm-S4o;j3lY{~EWx<c59kzYP@MGRFlw@W(&vR?PYjublC3W1{E2;rnN*@v{5Bo%Q**
zQO)~yz4+IF<gbs`eEhdr&?guDKYiU?hn^<Iqmk<PG0d=g^Lg0Z%<RwM)hkx$DtK!k
z`dy$Ny8_U_<C5`W#m$y1{%cEx4<9?W$iu_qFH;QZX;^QBLxcfEJ`h}e3Z;aznZRZZ
zQjA)Y2U#EIZFjUj+3EY>!B4T8H_-R~zD6r45G}d;Mg2D5L0wt@Ayba5)VbN#Rz@>6
zJgJF~i(6o9Y%DiKja0`d2QtN-?3#1uC@6<qfqI=}AWSMa)BcHxC1YHX^^Y_~A8U%9
z($R^w_qH$jbNxI_qhADx-SP|JPPxz~_#-b*SxCv_!<JC}1nK0~8Z$2K<ucvRbuRZI
z0=0h6o;7?IaSR8#YAfGL{g39ZJete>Tfc-O!^xZ>MH<K~Q#grA$~<I>2q*KbqR2N>
zhV)HkN>W5-nJGiY>L`*VWGKlz6qSSOKCj=s>;8ZLx~*2LRrtQ|XW0AM&))mlrB}Xw
z^$kM%onfx&GJ1(TYy?vghbxm-A38Y*AGy1_x+;s-chi#h2-ev$W!Li3+BC8aM?5{H
zVBJHJ>#~Q|!NS7A0W1?l0z7PH&BP=n^_;wa1d`&{eD8O<#>vxoXBoRF*-ltAp}_2}
zajpzBe(G$?>qJ5HY$TRZNIN^Hvu8Vg$!#M)s4oR$GoYVi2X=iKO&3hjhhB@urKj8G
zGqqS~`gJ@<-A?N)p7InrbG&_gTyA>e%o7x(FX$mmcNhWN$S242;pnec&itKSu@6d1
zIbd@bh#fn2ysK8M+>A-*US3{YTwEj2qQD|vDa>C#!#s}ZzY96oD>T8NU4l2$DKyKh
ztmJ{HmU751HFPy@a&mH#4TdW~L!d)5f7N~^uOT`jJTlTAv6xEO<2?yX_+o;BkuaST
z&{`d2I2Wy51>R#TP7_L-LmL_z3iBQO^!4>EN*y;6LQ+y!Z3EcY+1V@P)~E?lIT6l(
zc+ni#9{&W>`*1dR)dFO&NYU6Ul7!^yevzuQ2}VHDrpGKFPezQ4j%F&wogEoPBSY!=
zw5VsLa8fP%&W*oJbsFt|M+G(`2yDz3w5jx0E3TivqvWOOi^nibdknsciizPE?!NNq
zHRN^w_ih~ax_B&$<MN+^n(porkIv2iX>M-rKk<r2SXg)&d5>$?uZJSxIQVG=Y7*uJ
zPmu@5zUuySgpCfwF9QTNCf=2ZK-_|ooXk5j+|bY$IHkH<$@4wi@Ncx>(-6=n`gozU
z0fSvy9GqSxciGuGI^M7Lf@avqRlOcr+!tI$pu^tOwm0>za}@-Ew_ZlrqK-I<cW!QO
zVQHxa`Hlq?)(diTb2CsOCd1J#CMrr0*jFK0S@vJQeqDR+I5AKqohW4!gB1)5<ZHgw
z8(A3>!?Z>9EX$WKUw9SWd28$Hgl{|_nV+X3NEkupUhnGpH)pOQ?hPZA>?elmR3QZu
zyRhIrGf-9BrIv$FTOJtx6$voZG&m@T6j~EHVPf<0@=jM6-7~bqJCI}JN#*osj&jH*
zGvhQh!d0Ewx;W7#0^37JPai!Gtt*9<G;Lkoa_5@J4)c>Iw?graor{YuMK_W{p`5O;
z9Y9e+i?kmqTwVMH3;LWYYqjvOt*uM)-LJ?aV<axj#vb2eYG%en&=Hytge{{&?TUly
z=j+P>5X3*z+1a`Ihi!e3rPEfZEQb~s7boivi_6QGca`9daG>=h#MbE-fCy(doHLVa
z#iPF2ZjfGkPoeYp{PboHj_oKiVvLWErzJih3)7uKt@rbVi14mX4L{rdaaTB^kE<XH
z83vS{UkTArWCFiBrmeo5%>Qi745B(2VwR1yHrCeR;KL_8niqQyL6Uf=_LFao_h=hy
z*!cZ@1;HN9N!_=9ZG(otp^;J7j322@Ru_mV8^<sq%(h;lx~67QcYJJYCl?P7znTGt
zD}-80DOvmgBGtHOD6g!)>eu#4Tv)g<V{A&r7OT$*E%u>_Whn0Qxj&YI1?C|bFJ8Q;
zm+djRzpO_gqXg<WG!&tPWAq8fdTKe3k(c5uRRpeT<{Fi{sj0b{hQM`&IaZho&|s6n
zYy~cEZp&Iv{3Fs+O`s6yiFf5LoM?K<@RP0noUH7#ot*A@F2u}?2YQ2sCMFKXzrJ_e
z3eG~gFN;s3Sn$nbJ5hcTg=LUW8HUiy7er@MgT;oT*vLzd9;swb=e-;%ii7+U9!B2n
z*K43qdmx$fKOn_ROLj9ZEPObKLJ(6g0SsSY7Zfa1N{6bGkctXFQ$&+pF!bnT(B7hz
zsj2t(r0<RE*JaRXsx_Z#JPe_U4U{hC=nB*HzC1O8JoA*5Nmqc>)H5tNM(lm+q??|3
z1FE5Q7TRFEXWWg9*fDH{hF}C-fmV5FUf!OZ9#{NEe}IU(`Zj#kAw=i5(!4x8Br`HI
zTc2JqxUGB%><#~MC6CF;NoC(pjFgqb6kr!aGqYV%2a?j#;?S(~0R<LH0K2+-L_|fk
zt>5W$zUM`@Ka769+!n@&lR8-LViFb%E3QyexMGoCERTLaDs*F_)xo{fL6sK%3NCRO
zKc{!ZDit-XH>g3<77qz9V^7hnYIO4CpA}ZDS;o;2CqoiQfS^DMdksEDtJgepXA!Fh
z+?ulg1l!zj19fW3^~;+1@#DgK_i~;(b&8k@`v<e!+~pc@Tbl<41W@7=u(Fi<E(ujU
zY@26ww6#e;$Hhbs^B)Gqs@R{`6A~gIW=0VBBOL0K3VSl|-X$=ynIHlH#USk_Dj^XL
zTh{*AfAYF=g|?QKRv1x_V@9X(1hq7+KZ<M{h9=ITnw*<Q(mV;%QZ%HJ9H1Cxug)B5
z=g(G}kwFVZVZv@{UPossMH0%i>gwt~sf+8tr((OLs$DXWto;-hYp4(-6id0OHqf67
z3)cI~_u}ez51-$FC~-wqMPmF=G>m|%L^O3|I`z*dym(>zeUJ)zm6Balq|b|C1j!w5
zo-WX9uxTDV$og5BF%)>CHHe%KsFaqK?JQGOe9N`!^a?G}ggmPM=X+-P5!mpUNdTf(
zqH*69gcFWMKyW=R5Rg_|R|!J;nFE<!uY0vjO!p*MB-Z<ucg9;wZH8pDfA#<bM8l5E
zfDiaRr3)2#$*^G5;>*)eMkXi4ZYCt~6<jbiy-6IH0F=)B2`|glUK6;OJrpEiQ}q2`
zS|P+%ik4?hicZ$`e+uj|znnNxmMAqJ$P}Te+hErix~rQL2Rq(jgb^T9b!Sq0>n!#<
z^J*}Hk&&4h76M(>p?zlpmluR-H*APcOJlXQwS|~(vivR6RLy$_0Qrd#WNDuw<UNz^
zclK->Dco50PpMPloVW*~WfvD0g7Wa8OdZunX9q_CX18roSVrS(w_QC5Yzmc1?Ffc|
zb`$7x8Um7cyLtzPidc8=-VJe88Uk^`kmCxN<R|UzI^+9i*}Kt_)(nciaBmtg90Z*<
z5v*E$wBJlfiNX!ULk#@IapEmlMbQ`y0WICrk_FC%zL*QuRd_<_#&i}`$0a<$TKDBR
z6b?F7N^K$><x-X}bcpej=-X=3`VGJN{e7Zb%8MKaFykeD<NCw_ICsp*ih@`ac?B?f
zNox#(T(W?OoSU|)9k8<#@*Jv-hQaH}QS%p*kl?ENz4SnxPgj7AjZjijDr+x4k~ot;
z?vg%=eG<@}o|}_mpcGrz*n7`)=j4cn1xAF26FI-_pKw(^Qbfnv73feQyx_r^ysWz`
z%ybX8?X7=}xtZu)-P~9|D?oCrZnZq@Jc+@F{1JpBb;|Hc#(U$N^b>m9f<bn9pCiAK
z)3&In$otG0?&+eGZUF)(iskJfn_Ge^6wz)>-`Csw*9N<_@$3p<@G%!>+NQU+f26Lj
zgPFhyb4pZ{fA<}OuAA{5Bu?oq-Uel^2xwG}Am_;b132RpoPRP@uZH52NrTT(Wss)w
zw|C1OS-b&OdA7gD&I*(W@}L$$;rVqBO>O@&Sl#0GxlI88lMX=xgQ2=B$$B`c=uxz{
z={-4~Wvoz@$NKJLzeR08iE@AWKKO(C#<@d3;Y+(88|)3`AmG|r6Gx|}nC^bDcj#~Q
z%QD^w)GV{jLy!IeYl&G6xYC&CXG*!;exww(ivTNUyp3J=S*CEQ)jy#}oO<)ffdd2v
zWW@CMTYVZE`+zhT8N(xH!Pq+jC)|Cwe$Z|!GS{1{P|jmhCtf3<!$z0+8b>(xrW^Ci
zjkOjT#V@i1P32npgK=});Hl!6<`j?kO*^^{>apHQZMPb8%@&hQdhp;uwa3gG#kX^N
zPb57svb5YtEPVS`;atCtFjdzP<~<l*pE*+;`WqW+`8zr~fQZGxD2KuBW&RH&*G*Mq
z#gd<=#>K{RPWwWLjwHt#m)NtXAdFi56PJQdSDcX+H{JDYO5%M%f0sR!6NZMbW`Y1S
z#$Bju?Jr+?$klznUDLLI$n&UVpa<NPkEaceC&m)6LNhlfFE8|1R;X2Bq!1$;9Sxx8
zt|SK++)iw4`hLl`CHsm$U-?{F<*S#Qo@)|be!8cp=i~Tslgv>vczxz0gZR_YiB7{=
zW_|)aLoG+VC0n0A-w6Epu~U6*Aq)@8&W?zia^nVPX=$kpkdRvN%9{ceXKBiP%krb?
z5EwYIBgg${zX*N0T408fjf+dJ<)vK?tH)BmJIw1zYMGgsi0F5+ZQ1gErmObttLwd5
zM~`j<pd<*W?==CFei$FW47}d-{CTd1(D0pX#;!YmT)@CDp7yF-Y4L*NMOn_h(z|y*
zjZ`Qx=wDpIw)I9T2$K<&4jD^7y9(w)H+{b#@EYf^j;^k}N;>!oZg5<3%Q=tF8W!w}
zon_&Zql02&cv;zA_@t}wrLokNTO`Cqq)Sf#{ceJw%-a<GLNl^86l*BizqoxHgf5-<
zHP{va>jhps<qyshhP6Fh1a<Ui)N@VhrCz%xwEyC7)XT^}W^r?V?so9PpOyz>D+U`v
zwn08ZHeW&q@kui@s|W(~l{7IW=XoH;8u&cUjd&zsS)>5N7qu8}i+H`QqC~x4<RchZ
zr{-HE0*>EFas!SB0nC8PpLKM!fr;55EiFwBq<G%|oQHsaa3V-tT%4VcFB*t_JK|bI
zX!gVx7_4gFF(#mEv23q7?IOIdh^ndpTs4}Tv;c1S3#_~fkRym00BUQ2u2)NZBjP*w
zBAoH?LHc;&$?&l4ZKWk-bebU`)beli^wg9$d>MpuLZ0AXSUx)x*1xuZrh2s?KAt@G
zwY6Ig1QRPD7MG#xP;&9-d4duf%Zvg|dsDu*uZ(*mzx%Uc-40_Jl+Wc0F^Wn`wxa2}
zE8ko?lZVS~BXl1*s+yadWzWr7!(ol!H9oH5vA~N}gPB9Hn7dbd7HHWMX883;l)p}*
zn<Q#G=!h*)k#GISp9^Cuh^dfHJ<Hk~q)nXRBxxDRPtdHsOxj~uU0hW%q}SGFBwGXQ
zXv)x*gut({Ku#Jc2e=!es768W--Fyl+1cUKr*~0S65c<J6X=~$!yvUd#M+utNu!90
z4tjgbz&h*Z*&aGXhZb+vyBBwi;XHR0*{Evo;J|HSxOC}~wt>NsfB<FmcDoz%y@e*d
z08-CN#MFjwFwltMu4(T;l&=Bf2D0N4_y@RxB^Nn$w<T^e_TCO<*tLH#OPK-!YX`^1
z+qZ9z;J$z}j9P`LV+?MC!0||h@;4PgD6$v6yA$8KUBWM4J}8wGJN^_f4?X9HY-|J}
zALJHaX&D2eAxt_P^2)K0A#KD<azr0eGrx1^4zIj3Tm9Ns9RwnZ|2)OT01*hxn1MhY
zkNDB4XVHM&BG1~b%X%Ir?PC(3slj4IH_{Ihl@A4RT-p1!uCKK=2qNiVEJqwBMv$qP
zUB!2{^6+4w>U{?4$?4a*Cc7Q~{#zksE)X$n_1Rf|h#y{ttU2Pw4`AN4dcm}gpu_M9
zvM-rRdhpT!6rTQqCz_BlZWUwmkB*5Uxog(_D_*npv=mT%G0f4EqcbyC;CM$-p{S@5
zLSDsDH0^P2xcvwrmN3pfDupU7$1Iw$K|UykXYkWZwTJFx+)#IrnM?NEL#>*(n4{p0
z2$o>m9Cd%Crb&TW%(ecF(7HFeL=t)e@yD_PkTH~nVm>Hi5nMMk2R1_dlQASDr0grE
zEVZG5&(O*$21kbsGZDy#!*GIQxQY?9jPRaqXt7)%{h6s2w$B^%eZcwi8P(Oi7{e<n
zDk`J04P*q?Y6KPkO-OB#!kNw3Ch*wrO8;gqEh|GnubY=yQBz$lBq_-XgAbA;^zmcW
zPrmywUm_Ov>;sAp$(dm+pSw7M$FMNCoTK<T%b2;q&cQ(op6A(^?;$NMd(34ESX-7w
z4Ts2$uT_bOj}#r{_+aKAo|`|3|HnZ;2!c;dZ3{fAAZ9&;Qz!&;`7;#|x|e{4Nu~km
zX$?$~Y5DbSagm%v6?Qz|3?<^s78r`tp@w6B1&IrLfDT3$mhjkE9r$8aOz2xi#TW6$
zV4ub}%zUIFY##YHV&aFpwE$_?OLs)uIUnCl{&o8wCPqfWQk7=`_rb<BgWQv>u!;kk
z;X}Nn9JDNhnAF{7oi;5My1LGvW|(DR6_V9M_EREbo9c4VO%Von4W^j?_V;koE^Of>
zsW`9<`6gy&kuZOnS;qIu%eheYb-gg(aW9Bx4cvS@n(W23fD`7I$#0UlLPC<LsGOcJ
z;Ae1bX$aI_KJ@W$ABW)SvllN~@CGu_&;IYPFQEMA>&frMM{@n=Bgw16&c5&e8+*LI
h*5q>kU&-p<n@r|PI@D=fQpqyfqlfhm6=~Xq{ugZ=!Giz*

diff --git a/reference/plot-15.png b/reference/plot-15.png
new file mode 100644
index 0000000000000000000000000000000000000000..757b104c2d0eaa75e4a4c6788f0efd5f3df499fd
GIT binary patch
literal 28723
zcmeFa2UwKn)-{YFYN8@(Rs@c5Y@lF7KtMo4)C>yPDAGowfYecX2V>MED(E1hR6Ej(
zbcUiB5s)HP+JH(QVCXQ^Z`}_jG3UJR`=9SR=l`$wzpj%j=Rk0nd7kIK@4eSvYwhhX
z2Q>EzEm*lgKtMo<{{44{1O(<f3kV4Q@X0*<r2fX8K75(?!@j-W;Vb^(t7UrO%crNm
zKWZl+AbOGfZ;o$kzlngr-vsF2?K<Kd+}-GQ^M*r+YTu}g%$8MO&0GESnf>`4SDnAx
z_Uih!;@I!c6w7T^y7kasC)0fL(dn8)ao_G!O4GfOaqDel(OZ6bmeh`Qzn*gSH?auJ
z6cc#$=C-%Y%N;qYm-Bb6xOvvhJ?&x*H;&gZIy%h>+so%%=CyN2rTmLpZK=!K5S*dE
zjQTG3!smS-k?+2`?oIvV_U(_^)St{<+dP+ivth#=Y4UaFu1}rkkZ%^K=Po2)4;=W&
zn0)pA@r!@@Eo3V*1TvTfthMIW)-et%hT?afoA-d(luc)~wY4QBCs(C?{d!1f#a7zz
z@GzaV`_j^?w3V-i{M8>U5>?zrPqe6t++@s7d%on!!?-(lR%>Wz&{;JMFXf^eo1@O`
zj_<UzvU+*Lz~&b1Xtuk{4QYn)yI+r0$e(V`9pW{q(i81F%af9lD$~Apt&2aNCpV@q
z`LEy6zu}?$8{Z=GPW4=?=-)0aGi!T!D}82qqN1T8_|?6=?RnzUrxz=B+^(#tVU{`j
zs*Il!bM3e@$uITNw6n9DCoC46a3a60FHg8sDzm%1GkLVZPD?7S`9}vIFOEyQNqC53
zm!lC`Z2_ishxcfIzIbVB&QwoQYO1b}^2qBGF5L<FwiO!ktqpdi8YfPi2*@|cus7G-
z{^qAtQLoMi0bAWhx?hGWE4|D2Exo?+aP>;DfTC6`c+8+!t8IGGF!k2a`;H58Op0!p
z6kgwG&SaK;lfTOEgs-yPl`B_{#vj{NqR<|^W4Q8gdh?G9x8gNYzDFhew;q4`)BfP?
z-`v}CMg8#M!(Cln<>lopm%%oZ@uALJN=`Ph+2dWSye9iYeC!H0hPV8@#^=%V{Ex}!
zbsRZ9+MM;~f=GFF^$kJc9b481pZ<1ym>X~?;`--n_O!4EOZItqc;HF;onN@j(dFgl
z)P}8Qp)RJ+eZ|A>s9k)RovrfV&_-O{tu4pD%^nQl(de=1ZGjH4l`&D0-Ksj|LvHU}
zaO=ApMXfIbWhLphcuLtlliqU#B_vPr(%VBL8=ZWWM;<kJ)h3!~i%<vfnA%rcn~m7c
zXN<k3hG_*auC1x5Gi&k~)nM)D%N5klWaejiW<E}xJ(F4+TEy7WIg_@mldt2CTYA(U
zWm#nnSJPSHVV)TlqaKs}`F`xrB}REoITfC%jgAI3_|qL&TyqPH!ilDt=~dVTwGK5#
zhb8<Yb%e<U$Gb?L%+176p)oI{Sw2?uwl+7X8yFab?>eoUoRoADkCo1<&{VPx@d$J6
zicoiZ^Yr}DwA06X)86@97FCj~c&M?jDchsQW$Nv3mj<u-y5FxDT*h!eGlHFAb42SE
zPWS!lwL9M|5|N9>*E`#`ZM!L7rh%t8U8>UYaE{=-leyk=lBEO}n3Ub#l`M5u!*I1A
zr@FeD#^tQLbK-VAhm(D94%5xejqHbQ^73Zo_vy7R?IAUFO#C9hOE)L*%)93gA|f_o
zaf$+@OV0_b+zgxQHsj+ETpcV`RXzN0|52W@Zj65NlVJqEc$<7tC&QS1-eOKw+Pc~f
zI|eTl?@DejR=RU_4pS{p#3YV$(aE~5u1=ySBSWakBF#|B3{Syj?9D|P?7m><x4(pp
zh|1eE)cXjn+P-DJxclinzG5MVwUlM;+Flk+@&{#pc=oeqeneDMksD_)RI{|ErY5eR
z-w}e{Dq-L{HY#LP(O<M<a9)P#FneP_ktLfcpqF_l;s~F&aB$x1N`A=lj5wV^(-TX>
zmu_tq-Qj$ib#i)=A2M<@;fLKU`KQf7Q}d5V1=u~AyR3!d#w#A{e>WJz^sqcPS|+Ms
zd-C}ekpLWsRvcP}S+3HlvfB-(^Mpb|8Hp$9fk8p?j~4%W0*~6iXU7dGqb_OFjvrU6
zT{sfT5A}=p#3NL@xL9N0xpd;CWzw-!kUe$kdz>_ue99Sv6sx0GBtPm1Zu;fUgoP|q
z&NMSgh*77n7B!>R@*u#tYuk`M4le8DMN!Asx80%_JMl8Ov6n^UrLY9GkNk7#TP-Rd
z(F!Ev*og<<k=-Xin=9lT6c{KWDZ+4mb3S>59AVbUoT(A+$e3teqw;8j%;9j&#*Tob
zwFNSzJN#(=%t<OO$?d^5!O5ljty@cv%^Imo4PoH%*ktqDXa#fTuPTd4K>90DotbRF
zey{ZyZ5+(vdBjP)>BRy`-mx>2HWwrp(Bbp#JT~37^5EVFM<iNHlz1;MuaF@zg?2RQ
z)WL_EA%WUaIwlQiXDl1Jjw9W*w|2PLKGX<GdEQ_3rnk|lDTD;l=*J~pwrQCs3s{D(
zoe%i+P17mQi<)#|4R0yfwY3aYXlb#!lWUB*?q^q$&)liIWMHjjfrzyJ#Pn!RSj6FQ
z)9060-1_Fk^OfzX^){KoXP&RH%u311Qnt3XKALP%wK6}<YntDHo1n8)r~7>s+HRgu
z%$nJ~%;>sxYGcZPUAkdO^wGy#Evut7<H+HVLA)IHlp`PJ9lOCQH;8s3->29l!05&;
z88g$8U<H>}f8DLFLmjIeUmsU!xvC~-VR_y*y`ghqgH9Ol5e`$%WUI7{SxNBA5GDE2
z9fSMH%^*sitTA#be)h|kGNvzYURQr06#FUpjNA7P@nh&~gV<~L-MF8eoLp^EmN!pm
z<q?-#$L#C|6?0AtaJHO$akVhO?b6cCk!NJ%J0<<qS18(_Vx6pt)IN&ncSZ6?4ThSU
zTI+*?xSVO%8=DPu-u?Re01}Ztby8pLUiQaH)zB3Zk+V7%x4Bzv7P|x~{TngMzcD@k
z3&`m|SMiTPl%Sn54`dE=E30UNCNEr&4{t|yJtP%isVDT6no(m=lYvdbZ%bvPKmIj5
zJDbBkE7dXPq@kvE&PC9we8;`p6Tfa}e$1YGgu%#pE`4K2^TDBr^4{emABAwYGZEtt
z=c(Vm`BFqL$H%Ltva0HqeD1npnFSefKM(G)II<JTMa$CCGN$PEMWL13Hh4^oXs|XJ
zWo*MCm5u#G&O`0OB02yB>wbEA`tz#XhjB+FOghT$&{-)dDgS_DZ``=C$si^A`I0&I
zCA?>49?607c^8E0n=LmB{`+zGe|FP9?xz18hx6Zq;0JtaD2N*`cYd+6IMA>AM17Mc
zFjMPm0O}k0Vs4w{8|@F5Af0ZLlXG-oKiC)0_S2V|&h`BP#;zM5o0XPy*FKi<oE+PK
zYwLrG+bMOjRFbuS7(a)XXi`MrH?V*E%@aNa3Hf3{&!0cvq!<6U_Fy~BP=G?i(@*B!
z+G?U6kiW@aoq*$Yn!z^@-rGY!nS+Caxw&}(+huU8$M_J*Cb|p{2OrhxF{k_MsQgs&
zm7_36#3pSu&XEEzuiev6*WYL4cy2_B_~wW2kdoObV~~mz2<{BXZ?G-eY}a<n%ye?B
zpX87(E*EgN{PpXbpMJTnMX8Ce$!ZC-j0K3TS32}1`G}on3s&^~BPh3h_W52Kz4z~M
zdC+$n<acu0qOQ*25llPIjayIO<FhKgT4ka)lgVm1J74Tkorh9y)I_z1y`?tw5%GM9
zlerTEMbhi(7lcHrJBvzEIIdh;L4}s8QSyY!^w>K(=abVDqr4n?CACym*$eorWURwF
z7nv<aK~;0C_U+pT(5Wb7lo|Qp!P<&&fQDelI&)?Hih<T5J6xutV#%lLgRhQek7gOg
zhWuc0%Gu6!F%T#!stZ*+zp1Rs;%Bv@9zKdF=8UIOEYk5KP^I~3XGK1Hj+}Yu!7`8C
z!Sd%9IRoGOu|0x*@=?4H-qX_~vZOBss~c=rLPvGDP9yMoh!ZD$ucZYRE+&;z*SUSK
zxW|wpPmNcR%52gP5IFx%;nT*)<G&^Dtf~4-n0$EEU|Y0tZJKLoeX_ZwWmJ+<Y)4nD
zZF+ELMR@z0i{d3eefp*C+h5jKvuD@-{%uL;`KU%|w^Y46!##AO^{%yCX?9T4<zczV
zwn`u6xRHJ7&NXP#f9F-u6%m;7`iD!CZSpytLz5`$6P^3t#=3vJz^Xa-EIvdFI8~r?
zjHP<4hX4@%N5ytuR3i{;dtSu#6k#u07=CUwu4rRMFkWj>Kuy}$-X-r5_rr(?bHIv|
zxk~mOWwe5Q(pi<A#wiPzZu*|p9iO*Y#NHQ}&&a9K9|Z>~TDgV}2E~CZSFYR&G^AN7
zeKhfY;@Xe1bn}&+>g(#N_2w*&Hp+K-3>ssl&PTtM^<U!Jrdx4#$|J8lESb$K53f#q
zyiHbCdxYlk=KQkiI<ww}bUJHlq&}|xozo&Gly0T_LlhmdqP*QQW*=E9HkttnVe|6)
zv;u(2iIhP}o#+?E@=d`sg=TNT3|U8@L4JE!SY~gAWF{}$4f}=XV1DUhXfy@Zj#=Y0
ztSdOUSJWT)8K+AIVD5YDKGw-scX!`Xbg<Bg(Wh?l+0UOdGyg}>TRoj6a(MQPIW4gj
z=CoW12=thlXezCYI4pDG`Q?{4zd3Pbu--b=sAT)Q%gM&5=0cGTQ+p!%CkIR0doy{O
ztjT^~ua~I(D>|p7Gdk{CW%i_KN6o^@%mpI2($@(m>}pK{Oi-Bvy=oc*yIvMkRz#7Z
zw;0&fCMMe>$~K){5}@zkeyvn#_CW63`@q%=kTm-5A?X>$Um)o+^S_6r@|>k?Y^s&I
z9|vV$xNrfhvzAVZ^VxKra7R<ACkbajx%ciRsmLzpHld(%7NtS4E9I<S&tn+8R-Pr9
z<edKR>9YT%>HocHdi^|WP*gM1yqUIFd&P_I`Kknh8(Oz;nbdyPB5{=+^~@X(NANb?
zDfKqBo)bNXb=R8_vRI%aHgYbz)mDL!a8l_lRE2mn-PR-^mRq07RGFwPZM*NMS%^YD
z1i?CnMSe%XHTjCMA~`Im1~+5B9VT?j<lALAdX{NQ$8x<FE#J~?oo}G8Z(Fc7;AEJ`
zNI}P|dv=4x^5I!o9w&+@inn7}&Ur2qu>c`F&`(Q6p;UR)uyqXiG+4`PyrR}?X6i8l
zjoDb=n-$wnH?ORbVr1_?uzT^iR3!+RPFmO4#bkOYT(z|`Jgg*NWhBAsaj{(b*xO5k
z3BDdLf8``Uii?YL_>?WEI9<y;bt>NfQ~O={E{MTlB-|k<zeED^$+?6a@d1*42<oCp
z#P-du`J&emos{TXQ5jCw=S&$8W)Y9l{oDdlddDJsxsPTx72n-`iA571%bjnF$7@~Y
zoORT|Am}Q{vtw&kIW?R~mYU<*psj19UDf|mL~edns66i{A>$`X01Tkt#Q1N7y>1G7
zbf}4lZeJ`Sw}~-55MWnMUr&|#E6jqgp+dK+yqQ&nBugT-e!wo_`X4TBmS|eJ`2%c!
zZoY7Av?J5TCiZ>x3Pw$R;Q6u_`vRn52u%_d7gu_F*EtqDp|Qa-E(_JGfMUDT4;|V1
z#X;a#too8gR`qePF%&v(pNq^s|E-ack;>2=;npYf#a|+)Xjdh;T^bp2Jl<q_``z2|
zloYv{k~<4IicD_@?wFflx}hBN_QIDUx4(a1#mH@MRvv3U7p3>S9(=i2&U~_Mc3yL_
zoQ=kRu=f_{Qct~JUaB%-Wy9`&{xVEel`sMMU=cu)=PZ3deof#johm^Nl41J^@d-T^
zRpWzONP5n1njT5zzcf>M{5%2Fee1QoVg;&`d8$V;SCL=yHje5t*hY9>tixWy2zF!d
zSOy!UoqkjQw2^icobX7K*G#m2a%5dA`3->~eQjZ9Cay$%;+*(o^U8M5;V8yhIzgs*
zmBhXqn+np-ykpS@+e=HaZ}od-6%5yy$oXu$_L7*Srm0@1xHG-Dfiv?KuevEyvV9H2
zgB9CO9auZ0!Lp1^fB4}ig?Wy5s%Iu7B$RvdTLT`SdUe-*dN522g<@)>d3cCK5B7Q7
zhrgg3YnWdB&TERx@S}<IU+k^k&WU5>s82AxCJd5`C{Wyy94XdkgQMU-LKfN_H#kLS
zfxL-+m18KSTX$}rP^6;*b+=jMxq`JxE%yZIk>~;OwUwUOlTsi1YQ|sJI3h_H9KA&V
zMMRZZYAZJ@gV>Sik@oDr<T6rgX4jKkV+uf^@aCs4%gf5*_smpDy7{&Eg-xFP<62f$
zH$8A8knK(0MKf@-E-lygCgND@mV~&p-C}aRs*jqjbvYr;Dezmb`{%MrI!}!B1YH#O
z+|F}rn&7bMMn;~4K}~GynMSwX^!0;n#rs&n;G8Vkr-jI^csoRmFF<-<7Bkf<?NtC;
zHH_>RP-;B=yn4^6@m8<tb}ts~%k`Swzd$a-Kdv!ipE~>9M-kle;u@FijESMj9_kUg
zW<@ezQ7_6>y4NM?T&l>8hB|<Kpfb@dmPy6UV|Kd3-lGJQqUL7BUQ8CTrLH8mtz;?n
zjlkTh6VgYyK2=dp6DZx^sS9{(Ji(&saKE^{*U0|WZf)@j_MKGjFD`-tS-XmL`{d;1
zb?eCOTIf;mVrPO?<pNH4sH;S)t;>}YQH&cmXkPpx#v$F*kwxiX-=wpK4tb8{iR<`)
z&pa-2crm%;TvL;KA91kUM^be4f(TGHc<0e7$*8?KyH({RWt;A<c3JaDHi537*z^Oa
zaC~67Nb--PI6*G;OND@O4C?CZ{b(dB0IJuxT1Oly1eLKB$kQsl^@hk{>LKKsn%_%3
z<s3CWKCYgdiDY2?l1PsN0?~PU=CUmZ@l<u(zNdateYa~4uiAiV)U%p;#(I}D-mbNz
z{>VP;cd;)rdv~4%>a6s^5+ysL-w;fGNjm!`@Dqm{>ON2qDlrSabUUwkkN&bg^abKm
zFbMsG^%tlR^Ec(s`lOB~(%gEIb&c_Vg$Y@s93?kimeWcRkth!(@`2vPWZ#F)Ot$-<
zb^=U$!Sfu=yuAFIyLGA5rM>Rfo?2@;!w;J|YR+(Kba+ZhP2OUMu;BQ}M@jiUq6R&0
zsMn5V;^eQ{>l2;C<#MBxcThLvMYaZt(TJn~5QQJU602$Pzyp9&+YN#({+W)&V?j<1
zI{MgjEnQQw^FDj1d|y>IMY0IcS4Ju~ll$*~m)|~Lb!-<Qd`W@Df930WU2U-f4S`=X
z;)s6xumLm6A$i|yX7wi#0Qw4%H7D7&t%dGAmJIH|Fe<USwbW$~scSdgrM~la+Eb<5
zH{I)$6E$*`x}@mcBr1&5hS#Z4Zx_Eb<rMV?|A>AfyWILh?aS$?UFw^;BrNGBP!zH^
zCkpq~8o&sJR3emZJgd=`$s)QsAx)BqTQP{z&IMIPBEnu_0(R_uNUv2=)SchfjdIPM
zXg(+G7}50f{K7&1IQO-nc8whI=nT*Nw#59@BiG+!Sg~=Uocmaxp<S`8!cdu--Efs|
z`-?Tc`_m0$wP#;*{_taOdAj<8LsIO%r?dhHXDksWJK@G`%>PPVLy$wOJ(Djg*;6E)
z!*)DR-R)QViv>A86TKuUg0Le$yRBy-)`tk3Se`O}R`IHljn3Iu+LgxZou1$|^>CL-
z8waBZXv2SLp;jfri?G*N9!aW)7>uT#{=!z<rFhNyF!!y(Dr3h`VPtOtu0c>UBXv;B
zU>%8X%TQY?P6Rt~Txt<9GK?rGF4q7N7$}c-C=BwnAt1j3zr{~7UnwQ??e7YxY%d>_
zN-Kaxk%oNZb-Pk!c@UC~EA2RJ7ln!L$2Izc<JV`U&QwZY+bMfQxw$7V{6OOGUVxf7
zhQ5J8rbi>Gg@<14bxNQ4=P8!dE`Y95{AMCAd%`rp$dND%A-IfGgA>8Fg&P&#{=6o`
zfr^hiovPf0IT;xl`-9{*lLXz>m0?^WB;Rlq71%20=Cf2<L3RU=kHh(Odx(=ULJ=YT
zHyNhI8w?Z4LSgWwj9uT8`R$E7Pp5f{mX|g9R>qW48$13^WcH7vtbI~Pd2(|}4&Hk5
z`;;cniSEQADN>22_8yc9kbxvYBb*V+RKa<RUVOfH)wLj-jEzKap6(Z)NicXvWxua>
z;Y^fzjy$ds8?Yt|NOXSsR@;^r$s@Jc(NwSk@$%WM_aN&KUhec1yD6BqLe5H$gwQ%O
zZcM5sYsb`31y9c?su5c`eYo0S5XhMjQ9Q4i3A>Iv7frFvHE^PN!<#p6CYrgDa?U#+
zC7ZJ9&%fH2AEN>qxS})6p;<#TECCd6%<;7X+_n{S8_hU7M{mjh&Y%QH83nc!f97O8
zKFSMgxe}ig6VoFqluy{O|4Je?;E7)+`7)?!(loqX8f8E?XeaHc0F9=l237}=u}%}Z
zg8PMlV(VW&i>H@sAQkW!F@_ew{>)k}IVEKs9idjKr{bG3Y*w$mA8{a}wnQ<eEQs>=
z@Zm$OC)x63`{RLzwc>!N5h09ld-;~s+PUV42{|)7hN}!6s<d%6`v%|zK<$uaYs1SL
zEkO{z`Oa5W#lR-rB=x!VDd&6LRTF)&8u`nz93~l!Zsove97jUAC;)?!Bo~YuC&hVN
zX;>I!B6~$mxB^rLZ<X4+diFIxA<Ct;g=s|<_@lyQUrOr6lITHjGk0w6-F901#=*-!
z_R27CPoQQXkhv=JbE}`l7CM_12l{JybRG7G5<Xm}Cfs`GqF5p7k<cbkK>U{Vs<o{N
z9}-A2MW;@kdQBUV`bQ<SKF4b&7<h122_?BJbc3J9_h9T>OM8D^B3V6F{*hj$596}4
z=0`zWOE+|=K%p&VpY4sRV%N5O#6bcv8E7f6Ts6_LS2Yldqa@T)-yH+r6U`CqXgFBA
znIWy2>olXqE*BSz2GU&Mgivf`I6e7sE}can#0eF3?JFx~B>=CAfCUe6DWv3Wd>gU6
z{J}mu6f8QP(+%w^0bwY-m~Qk+R3(GbGXv73?DC`Ki+i~*R-NnvClNC$20u(EN=SWu
z{eh<orB5Pqdl-bJ+qJKwkDwa8!r!hv{8FZrMh{R~LxOAW_z@4gx~SNU$bm1CAe*+9
z@00d0NDE^3f1AiaZRuZ?31q<UVS3d+aKj$jAGmEJ-4+lO76v>XTU3|p>5I2Fdkc-P
zs*>}Xo>cFEWkRVYjY>$j<sTuTG|fyk`H$cPNlIsSzJw5|YhD_x@VIDHq3hATLlXYB
z2r@+L1SL#oZPHKL0CBfCQafs^O+#98uY(e7Bl|;lD8N*}9hj;%gL5by*?JJ(6YDDh
zIWdOmTOqMWbVp>?7`wG9^IWv5dMR^~RW?C3UD}cKnvtBIw5)IQEo;oM@A&_mzFJ>G
z-a2f&GQ7GYh$f6DymDfJ7x3^)gd9D7IvfDi(MNB|TIz($@^I6H?5<Jy8}(FO5#Non
zSaJpW49^iA2M4Cq*TyLCQ+s6{yI&hR)|x;AHYKJKl+$bP?e#4=eo^!Wkj4Fdql_R#
z;$bmqSO9`8;n0u<`h0myW<3g>Vj_0?OX`|}gCm9wnKN&nL6|npk_@B{a7HAy49K;u
zOb(mIv<m2pb;_~~nL>IrH1`!%N~s?e0X3dI^gz0GA7lJbKpd615&mL_4RbuFZ1aTV
z?K6F7gkWE%70Q0D&LB7A9eQY3*_qtG`h;%Ic$MpflY4^x`<S7Z3M9rDd%8@bXJ&L}
znnAoJniCx49)4X-c1rbZWT9TA)E%#u-G7C7#B-XQ6;gh~C}T;2O#5igj0dUhSDktG
zIlp<ns$Qp4S46leJQ>k{R!yVL8Z7atj=kgrNz_X>06U~3NGtZt{G#Rl^)h4U<674#
z?1ZYxV=j{gfuQ|Y$=DYtBmJNP*w^s{#m9E`VyOsfF+bIDEqVpH!P_-muZ|3R3od>E
z)EWdOLROmH_w7<CLjd4lQb7e-rxYL}zw%3^&~8T+=bFi51FMAHj!2+x-PC6uIp}LO
zTfOWo<z8FD2L1Xd3DiC#Ih%Zj06PLD4H4|Y()^7iy>^w+^x+Xzc$p-pz}3`#Sn*{|
zk8>q^K+m{jP34UJCaqJ41pL915aa|gv(w8t&~d8ky?{BRl9;FuK75O*DV`U@Tv%*}
zbJkQU)DiUwR2dO}K1@Ll;EeqIID?tK2ZzjKYGy&F4WQyhVR2*g99#jnr>U+^-&`I{
z^q)2293GIFuDNRevoE<lGc`HW$>ki>x=}_{9keq}8z8*no^NatD!Xpn9|Q!6o;AKZ
z5<e`c*P}E=c?gdN)_k(tOm$znp|NGtKB;t?uHl*8tovGFD*R{bRStew>63>>C>=iE
zk};uA{8yxM7FHfQAm%yt2Bh+uiJnvj0rToPMN*lY{!((QX)RK88EBbAawxz>!&C+F
zX`oZfE2Cmsb@Gj{9b8hQ-)*Fp3I)1uU##PJXLx(T`Y^*2TAWnH@s4|g0XdUvo5rhC
zT_YEf*MaERtJ4=NheS77<29vA%n<EiUMkYrV?O|J?zz1D8u4Ky>QbOppt0uO9G=D0
z_;AsqgZGH##p$gh^>IPx#p>Tz1)=}ox3oT;J8^~SzNWaixGLI22>zQABs$KC_W-GJ
z-h8&|48Qbom5xE{^~0L8($bHi$Y><_67(en`aJRq6%fnntxo5<!69@%HdczTmZ8w&
zOrHMqDG6dXHXSYRNr3w&kjQSJVdl%=A`RX9e<PkHEzbczq0JO{y<KDZx@;i=L0lWi
zogx^p{D`4yw9$!yr~&Au>}v0`{q4`h2u2F)#A3O6BHhth2wiRGml?nKQftRG;#i@O
zSc{)l>^CFwIs9U18nOn~$yIyYw^7fRV||X42o_N>L?xtXKXMtkGS%-<{u5X=2_~|q
zS`U9*aLX+87NHw74<D|0ex0gk;*Y*=-n>$ACCpNA=iESg*i2MS0%Sm3#f)YUGhf(5
zL%S_@PJ5Luqqx>AY;yzkyB&A0=s%gzA@59_Er_&}0|7bvQC@_iRv<!W9D6{WC9gA;
zJ<-T3fkjUSlqE8x#SLmz<7*#T<klZV0k30VZ6f}AG3&pXN{j-|?f<~*E2qq7vUcEH
zrE_C52f|gSHWHBu2ZJXIEvBP@MZK@<6%Z)PHtAi(nc6D6qi<(w+>%-NYp((LOQILf
zl;zUR`bQMx;Cdy%n^+@8dZ=HQGr$S=ntUg&`?T@en!Rl(f^k;5Szwua45%bxRgF59
z$SM9K!!?XB!f8w_rGA$d5jEmHGwL;?Yfg&iDlswgWA7XkjhT28wt}-!)kP{oHuEAw
zbHz|z_&ef(CI9h5u|Cf?3mM<T8t6xZbCmgE>7EKWPVR@8FXK?u5;h{rgW9(OtZhTj
zZo73S>?Lcy3T)P`?Pq>itTNWT%I@ViE;X4Ph*n7@ma6@~XbpWwr!F>2)AwUGYTfkC
zhd~3+zSM%Ii@+}x*RnaFNcrFw<TX3v4i9^$g3|F@r%{NlaH!`F^#nQy@<N%DxhKsH
zm9i=D-Fr#-FH{Bvk4CU-LddTCgFNU0d7vh&e8ikQ<+zbqW@gd|YlBpxTZaG;_2Cci
z`6xz~8^fynm!|~6DK?4t<Sc}#Gnd<hDzp&^Z%}-uU!2Y=^_m_u2k$(xnY!8U%MbL-
zVc@6|E9WgaYyIhA#*8dsh8}8#g~I!|9l=oje`YKu>n!6)2<iMg#zNS+(?xLp;{AZc
z#N^^&*u$x;JOVX&yJATY9I(~#UwAuw2-LqW2?8d_!KsK;rZHdD)dj-VLKt*7v!g%e
z6DJo~E=!`gqE2Fb>Y^L1ckrDBnDGya95`PP?_W1tMv3+Hf+egHW2K%lH$QqpWRYt)
z1UL|1Km7LV?{0C2$sbPg2U=xg=iRm=f_9sbeVB`2qi&ST<8S6Ljh1k!r_?M;Yo^Zj
ze?_TCA64qS?<dz~asb&OE=q5<TIP{-1_2)yAMQMc^z5&91mgaPh6+ivs*^u5G6I5Q
zA(1CqUju!WqnxprrT5CBuxuWvlrt-tpkeuiy4froZYjd_#iqUeb=$ThS-+F!rqV}6
zRNS43d6=wX`gm8A9cbH!hEg?=v#)s?aTK0C)E5Nmuv#GM7hI9&=oQ&gcemid!#PY=
zH$t-i2q+-q%x`CZ{IG2fGvC9B3Hu}z81l0Nn`DKZ!D$~guRk~I_veCPacppMnwc7n
zLupI?`K>&DTB@;v!{IzoLGnol9<UoISg-5jWJT5H@dPSN;H-jbvSG->1G~y&=v9>z
zb^dSHMDmvk!R0~rB9Q>#n_|DeiASJ}Nuozt!R<cGV9d<aW{z%%Djf7|ZbBD?;D%$X
zKbH7T;*s+c+OL7X?x}G8WgCs9UtaxeTf#aa^SYZ=%YVtyd8{u@XUm%(K2fzUVq4%L
z_MxC7(Wef4cOtNS!|FX1KmWWze#M0qrX@V#qR*c$dU?ELOLza^QAx|JU<d`OFLtcA
z%YNM6Sc_+}6*dC$xL0gBwlk)Py7P`vJPps5HR2J&vmw|1Y3L`^pZw7d@hFh_s!Wtf
zXT3P1(I^xA)@zkaa7MEit=#rVTAd0b8=?c}v+?L$kOYHhgoCl28m?hFO~MK4r~=Hv
z9IY$6qc(^H*e37!PTt}@gv!w#+`O_kXJ(ot86v$w27la`0LN+1XT9qR5FZIxF+;yY
z^82UV6zP)d1_nd>InTXaDOJhw-4*$Dbg7)l0jt`?wcP5MBG~O&G!)n`;d8b8^K-nN
z`rrQM-wy(!t;fd*pqK&-u>2Em4P0veW%6_zY*zjEY6P=tN3#c9HWKe(_9-00HY@3>
ziW&qhy3N5MjxlmoZE?h9ufB8Ql^L_E?HPsL2Nywj+zdf^EOxsxueNs>d_>_Ga&3&m
zELAwA1J-Y9v?*sRC+*A$lSvSXH2Pu`3_WdV5h!%VrTpby0sXa~lZKDWGo4}68|kD{
z>}ksxD3tW?r>_q=!ks-5<1ttPvk(Uz6L&ae+CZ)p^`th1qBVlDwWz7(IS!_BYJ+G5
z?fmgrs^YmDt8S@yxbC^K(jQN~6(H~>?9`I^DnMGiEi+)Z=mT}eY-Hs}f8GGES#<m9
zW1%pDud*-O700+AD@EuCr`KLi#2pWxHLE2uDz>iotR=OXx($nY%^JpTWp#wCBfydD
zl_CR9xw&(FW#x5<C~kC?Qx?}K>mX@464;qjC5aPGh&fRu$8b9z7=Ae!J7)i==HBL&
z6qp7e(jXkHGW8+$hkZZdlzQ~q5lUvzGH1k+Kd3r0xC7l9#EGMAO}(o7JG^QXYeQ!x
zTh_GUDhr9Bi->!|)6K$LQP#5&j$}7dY13PDctdj*vh!o}iic#6iqDMYSKx{f2uY!e
zI=v`+qBrPE&F!nn6CgB|eia3oce*a`TStd+TvLVLGC9>W;~{6$aC2rnZl-V<>KxRv
z>*!QHxJI1+Js1H$(viVH*c^aex;}L_SY32o1)g2c$cUiLoXMh`mmnerE-@y*mTx$%
z=A$y+K`S8nkusodGd~3D)eQnr!OHyX;YJ-zM>UYo3|Z_N!uFE2sg5-YQtC}xLtHN`
ztJm?X0T!)22j#tFK&X&ny%)C>&B)1?f6w;IyUI2<R>NyF00vo_6z6TlL4$;hstB95
zzp!Wp%g4v30ksm@N#qg;bq2p(MW_UoT5ew*(aX(@IV(8dw5u|LgxANYh$c&CCbh`H
zU3EHl4%PhB3Z}B>QaQCw3+`!s#OYb^D5?mASKvZv_7)=H5`PppxwV7`VgyhMQM@j9
z(0f$(3Z5s?E6F1rb(k$~+>$S3r*)t{4**P*Bq5=tz;BS;10X`zr9-nHM2;<x8wVk6
z9i4!ALVVYY&WxnyP}F*TmK-#x9bm%wSDMDI{23qIFI|}6<*1Ud_2b-ywy^M6Ia$HZ
zt@KkSJrOrZx^U3vvM=VnY?_K#%K??)-w%&oNsmvX^Sdi_7AV{u=qo75aNrV`A+4a$
zUs49U@XycLLAA%25X+ZK=7}0ZI}P&47fPl5jgZb@If(EJ02EW*O5M?r0dig##LvPs
z2)|n?;n#Jz%YEpcxQ0<9H$WM7cZqi-4tyAB>fs0L<f_7s!J_e8O5IZ2vLYfPwt7N_
z{Ucmx4|-F1^D>%0^j4@2yjVkL<t<jS%H%`%*(!!h`S4yTP}~n{U*etDc(|833ylyq
znS4@9n7G4%Q1wCJ<Q+8&(OwaTa>E7Ti_|D)2-m2$?1=8$I2q$KvaSI7)RR9Ri)^>6
zx&wiHq^`qLcR|J`M!CWSav+pm=77{?u~U}uaMC_VH%iX)p_;D`b^dz3sC^lCSwvJ3
zsmDY|nv7tsL}AFHrFTU}rMNZE7B5P=gG$bRHDXC4IF{{jl@Zm2GjJo-ekDgvR<;#I
zpE0Y&i07)yd{4+Qht+4H3w#ERoxvx36dvZ+9L;pJZYv21g8E5=B0%aaJFq^)`JxWA
zS;a-KVzg1Foa$7k)*umBh!%%tl|k%6WiNh!SMB=W9jP@Rag^UggohTQyu68nS7-?f
zMloSeQI@t700-t-+mdLMUc<Ux$$8v*;}cr5{@Aix$PxjDwsfMs-mkcwq|;6U04hbz
zy?ghTK!tu8tRMqH$EE+bWt8U(P?Nwj84#0^U9h_lW1AgvQY(%>#nBN#OUsf1TOCBu
zB6I}s4n0G>y0=6DA;%1#We4@Y4N`UlTLlyX(btGpMC=H}^nhNrF2||8q7FxV6uTZ3
zh5@hD_Sm^ats~pnyQFg1VNT{fP>_(A=q!-zy{FwlZ7RIGEW@I~f8?H5O^IhiOt;;+
znZvz}kOS;3r|Xg}AEOP3);X|?YItI`z_%2$>-=xCF2IhaaU872rWz*hWxM7(aDxLF
zo(h!U0zlxTXa<sn&Vs|~;l(A6r5ruVRZ^BSd`g)3M8XZFfM}{OK3Gf1PZ=2{GA&pN
zqO9^!Ivcw5Bvoi~s~sS9g|!UlCdrVRgq4(%@(>b3QCYH%#nB2}pNw@~l2i?04{xMq
z^;j!Ey7Bb}e|7)<zBhRj@n3B4v7R9Gr-$CBxg{>XKX!GBJPOS|+qEQt>H1Zl80d8W
zo+XMh@IgjaPgI7hRK>U$#MQoj{kk>SI<EqkV=U}!X>=HHUNbJ$`sZCU?M)();Y{zW
zTcaDOH^TcFe?IYW?;K_f;kxBH&L?18ejURX5{mQBawx4Yv2t5~M%U@{nnRl{Bf*To
zW0kqXn866cn>RjUeGP}Qzx<LJPMLCjc50W%F=m_c0(`=4*YSCgHM$-Zev^rN=kUPo
zrROab!qz|8s`|{=bLgHF@6cwLo558O=7{)1BDutyL{CKilxnxCOWIgq`NWdhlx4sT
zyZ|Ku6-Z{$JA&>=>r{~cp|8-TRh)ZP(2qUB%<d8X#JdD&$J2jQm*<zudFl4m5v``3
z!$U$x;^M|l;l9Z9u<=bjHKtw9F>*zrF>;bGW!<>&9ckIJm9B@n{|()?`Rx1=b)nsl
zDEYsm$s*h72}vDGBy~>y_Un>l<BT6*6!TXS$;>E$E8367bIw<Cjq%CKqPFR6uPB#X
zCD>pKXI%Gz34sLQN5dseEY6p=uDeb&SGp~X-9!4KZf+W6WAB`)p3oBKt|c9oP>#hQ
zND@d96B9#cRYmEx!(Ca3HXxD|G{tosQLmT*CJ-HDG%%37fk0%{J!NMnY$;_zCXlR6
zC>5f3J39Z(z|3>JBFxcp>UiFT);Qn}JG2m)z(kG%RN|N~3>|}@hLF(uSFf%C&Hz4}
zTs#3ukPoaf)zh}FfKXRp+>aO&JR5}nN-&*`K}Vu=KO%jrt$_0-NX=y;MY=?_kZ*Fg
zBS8**%;>H%rh;6Zd3Y<4PQ!&2xjy(9qil}0UZcV68%;(c9FbKeUfe4p@;b&!ARq0Z
z35O$dRR<LP{P`MN^y9XI&ftzHga_NIYbvx}*YuS|<b{u~;oa{S)Ha7#lRc8Gp5}&S
zY=fyIrF|25L_4J)@zttHuj-NK#5r|7ll)X5>pp&g%1m$t)wsG)Kb+P=_(C_E&U3L1
z6tpOFL&gqus6Oi74^(53Md43@nQ;6rn$0BM5${xW5mh4gdEuo#X!N6uL++qMO5vV9
z!re!`^VR!zsuyOXa8>{qwF9N!Mi$oqX~Z4InSxAQ8QMcPft(I+_gx|Lu=>4+VjmJY
zSt!*0+S3j2YZKpMqY7MBH5oMW&fcC8Z3YyBC=hQ}Ik}hvLsMGyENm<L1rIlWmEHcB
zfLU+Bm;bHH;*VAkS+5s$#2N=Rk2k`f=@XtgkY_>N!gw6s4dgnp=sQlhzwb92twfOo
zXL{gfgA{ug_Pu*+h!q=kl4Kl_`&OVzh}kzwG}Yh%so?e-1NkS!&;0HMNQL9jz3XsT
zp%X|H!gleiQ?vaqTnPNV3LCCft0u(>@Xcnj{?q)h83iI`AC?N3_?;~1eDA&>RROJl
zC>!`DN_rM|ZMd!?<m}f1t4Hi*q8wyP&OVM~i2sd_O^sfl`FMHi)Ls7ipj40p3a9Y3
z7@PV*V@*5UGZVdHz;cMg<Yzk*wh`!|sHm7B3w2hO=rRLPW$q4)r<|aE$uSm?638Eq
zDpG|B$ji^2uX5mzLQSRV?j4ZQq)B)w$jyul73o<fVT*<5e4adXBl7s|HGvC=j(J&J
zRpp|X>nWHI4sf?pA26PU#UN<cB8%Dv0wMA1sSNz*(1J+p3;PF#Qbd%cm!o0<YZxv?
z!SOQb;Vw~jT=uwyP1>6agjO^^b?Qa)lXEi8ea&Dmh_jzRUXv4wF2f;H>YfFrbmHc+
ziE10f8G7jc_RFvrthM{fU%g6bgfYZxM;OEg8F&>?k~ek6yuZj8<J!B&k+Vr(r(>K3
zOc*4^Bh(R_6`;OyXGaGiw>^2Ip3?MzC&Hfb@`baTB><ZxmXV`Eq@YQ@Fg7B}lR<fu
z(H<#5HR$n2VW(Q!G}YKNYndam_6jgcG5hXbn1%$M6t~aY*Z~wojk|`2npcg82TtkE
z(Mmve*qCGqK4FoLjE6xsb*mdRSWnK)Z)eVoFeROMq!EO$79S$nX>QK6rHMO&+QTCf
zJ@(T}bPW%#C=F3c{Sa{z>2ZZPqIhPoDyl8bQi^{&){a|&%Bk}lU_DdncJJ^P(5pWH
zq~4?Gtcbd-8)uwV#J8-8jk&yDE7b6h&4PtSZ@a6BJ9v&>+vyZxo%#{OKXw_9xRMLU
z7Ba@Zh4G-NwE>O$ZKNm*Z>RP{yd8-kXrw1rMt@Z;tU=DOK@N4Aw087=N6dX~2tPKY
zJAsWT8T~Q{`Us(${{-4Y&+k%oDdckP6owueoUv`oS|`clFGf96Bl3W{Ak-Z>=j7?I
zqL6NENg%VA0E?Nyqd__RAQ!}CTPXAo?%dH$G$pV1_Kea!TtzBpqH7t$ixI7t@O6|<
zj5;ja(2WvdO~HDPbQaHs*da@|mXunkhwIUC9<S_3?G%egy6>af?a|>vQFf4=b>!vw
zaFRSur>=<|+ve1#GBY_yzy=xnK-{|xt&{LFXt$}tg!5qu<OU7)$n&tVXX_mmX0SnH
zF1MG27<{-C#I<8GnUb1i9WaO*`$gdxZ0mnvcEqRqF8cSQR(4eIf)6d`au_!IAI}n;
z5+G+W_fk!dEB{bLW#{Zwf*%p&ppMag9wg7?v`%8b6gmTKe0XsaK2Gd=Ta8n!YNgsq
zLXNuZiypE+-dVQN^@*^1vtT;RwJZww`x8fg_@H!VcVgif6jHC4qRs#qXDWaYYfN_L
z5Y=+X;nM@#0oLAQHu7b6cM$d*>Ape)Bi0IJZ+XU4m+oMMmWM@VmSgJpbNTFROoV+p
zix_X5yhfcYjWl!6Q`!_Wb>(cA(DE&}asHmZl0TsAAy`#0`$h7HCL{~e%ujT4T&ei?
zEO#K364mK<s%<i1{Qbnli-sI*cSYjF69dOu=t3|B5THKScKiWU+@2Asc^3J3Vs{9{
z{NSoRs^sC3Z0NDG6hp%dN<QM-px%{*ru4P^vWqH}t&_xGKnf4HdtbfZfi<3`Go{nr
zr2{xLNw({mW-5JWg<FW<pJ>(`2`ahYZtC(^a!w6|5HsD%m|hEz<TA}~AB5@TKFX4z
zj#n$>Z43hg16>CPs9iUuA2*L}0FXinj$4jD4NY4`{vcQ6+c@j@$~o_!pCa=Q^4Whn
zYyOp?JpabW8F?peVMhdrMB-AXoad&+fn+=jvEdSV9<?OzmBTXlE284EUBkJ?r1S;<
z;+QE#?ZB7?qJ1i4#tXn<#j95bU93CHACR^Ig60iD-9XQ5IKf3TAcYBfY|{-LX6eq5
zjaIpt!1kp3KvYyzfgAmpc!SX1+V<Nr#!E8lfEez&qT)zv>*!bp$<cPtSC|bA#ZeT0
z{NeMB=SG2|_oGi%6O{w%a|P1Xf$D`c)BLtX_dX`RpgXJ(2Bnd)3<rnvQ>7F=`_=cW
z{a(N@g7SJT9n%!j^ZJoNb$f3U4kavZA-T0O5p>zbg3>@p(`13hO{q{Ib4RE$yl2pX
z3g513t4EtX(3#*z!|^4$TeuzJLTO;H%<z#!XeW+3(zHVIJMn(~?(&42D#K`2F)Se?
zWO6(`ST%XoC6FaH(90pkq1uoVtmo)Cfy40c$30N<ltAJV0Rzt{7=&bRk`JPad*?nz
z*TC3C^rNs_H#2KHSLXH-)8$0Q#~W7t8Nv|Bvc4YCz}yW4Xd0c2{jp0CGFAc-T+%mU
z-$+n|)^v*&DcML%6yz(ybHmg&P!;DXOKbpkn7CqsDH=*K_mY!kNjeG0$8?F8A=RIB
zt7OgnJy`x3GjV6IAI5aYOtd-@@?dLh6qlour)=Z|l&17j9IgjKFq1up#8QY}AyPx5
zJuu^ajb;A;ZM?`wlqS+`TLO0gi@mhYvAwsEV<_*^bH^I9Nf09U4OAZ1>e<%Zh@6WC
z<5YW>$zrCb9mwMP9!tT-@Kma*|7*z2yC~e$W4CZcpAYP_^Z@__hjigyVkf7OM&=3k
z#+Y^cZ(c<QVhifQ+D<mqOk#U75@V#=7?~)2dOHRAth@%}aXMzXjXx=lj8vy5#-^m?
zp6?%{mvFa20frDw7W<tjuVc_5bsVFdjMHb0I9f}#HiJ(f>@%wckh$s2817O+c%u^f
zM#kM6TavBCQ!eB|`i|_Pu#-30Fd8ga%w(`eq<AL&G%|Ci0JRHMC_`}}Cbw|6Mh+}L
zfUtX{vd7*A#$?(wW;EDWXpr`lRJZR9Ao#$4a9wrcF(jW=4wVP_kfVnKr<}+c5a6UO
zNT1Ifs1tlO4dP#MnUVcL@=2uS%4w3gu;wl^EbC0i`NjMvp1szUMx)eOqU)AC(>Op@
z3$zT#x!w{6wb73SQ2n4_u}P~NX_X~PEHN-pF$c3kIH+-*#;+!E^quhN(lP9bnBOsc
zVLP$TRG@?;)3GoV>P04JIF<}Q0f(bJWl7~Z+D2zEmuvQ1egWfR0922-`gZEHK`Xb&
z?nO{|-_m-ozMZ<g?%1cjPpH%0w`cu-r#JsmT>d9({V&N{|H6vM4mr#@5|^Ew4S?rq
ziTP6=Mjw6U15)z+!JVZP_v9Mv1mpR|z_-%GoX$YQ{JmLL@O}KyeU|-s-_ir1(y8-L
z&?pjTw$z*jduMsO59m9H`Sm?^bJ=q%XNjt8DZ%lz|5d1TenC<8f7ZbN!hQZ5F~WbY
z;{Tl$5%MtFsTBi&K?F%S#8|SH)hFLR`$Yk8iZr-Bz%JFQ?unV@N>j)fzyAl-<eivN
zYN`cQIFD(cZ@de1C3H*K%@I_OExHI>iGfViso@$i4U)lrWGn@GfdKIS&?>%?qvT?E
zNkT!GegpkV6LkTg3Yj%UbdLx~C?rXP_fk%=VOCLGRM{=e;6jTuMIJ(dvAg&VZC53v
zJC}x;A8*8t{(fB@>Oda^Z{nqN7RX9R#ddg3_OW(=ICVSO$cd!*n%k1+-Cxwrc86dh
z8cK4d5XikZX=H}j<Gs}}CK}*Cl!VT%M|wtgZnwSAvC&1Vw#WaMb=x24O0eRu=t`|d
zKgOUakO<qQ?rkzgv4h0FiB{2irvdpnjy14+{8JE0>pg@b*Kf|WLmSJ;UklTFW(0kV
zXkv7S$Vy{LH*RQZ2r_2eWo}nSYSn2iazij~y#ztj*xHYEGl4R1Bo^+q91LXZMFCW7
zm^0^L_<8r#>~gT4P0;Kss++cSb#%P$9Q`KOlFX))cOY#HnBV0q`C}FXXtY%~6oV{4
z6yH#Z{ba-wHmye|H4MDI44$^;j<#mr`zy4n79J525^BsooU)!<o%oQzK@54|4FEcG
z6EQMF%C|xl1%Yn1rkr(MOYy3V<MrZ~ox^@I!Z5J<x$N<Ijxl%c-1(x<rZ#bR(@uFn
zd7EXVX>$~PBBLTedTX08oUmW;H+k>SkJ*ix$qv$F(%$T#4wH`Ix0j^X(HDd5QBM40
zXZd4i0j9-G4l$u(gp`n3W2_cYh!=misZe=?5nE5ULA(|9VM2l-=#<rhDLJp#a7T0~
z%|gIv<4Hh-ze*P2iOc>THlZyoD=&St$;%6y?iv7L+C%P0%PjV?@P}hKJ?_$LBMJ~h
zm2hzFCRj)}d%z!!9X+SJCz@tFV`0lCq5|ggm={;~bfz~Z1A2i8A3h~C;tBaD#%dzL
zw0NcP(Q`Jh;ck);K5CHV>L9Kw=#~SAr;AT6#FIqFo;qsfur8#2V4cLdsf|CbCa(Lj
zTMmpp-B6auFjiCYHp}sdTkjZfYvM+)Cd+%nGuk_nE+iX$!Z!#*??{&m8Q((+BB)TT
zU%p)529>Xfu=j-*CzaEGf98Er3q0oYL_irdEpK?Tu*z<}^pSi~_5o$5zHf(Tf4~#b
z(&}ygV}2Xc{{QdTh!n!dM&Z}VmO5)(JzIRy=;?+d%*BoIC==D=I#zUqf&*SlM>HK0
zvR8v~XQ&uUM84m<_hR;037k9a=h<2(bk(sx8ftb6D2)^032fgM`T*$xBGX;QF)?={
zYi5d9N?Ned+(!nB#TA{+G6s`OrYg}2$Y2E^>>+Y$CJMAXS)@S{Gd#6amC0tJmY(W?
z1Od-FiM|&8>wJ~!{3TB~Jd8RjC3XN>0qT`oM7U%w{2|Wt5+w)y-wghJzsCg}lc1|X
zELummh3;sIv6EB~A`G|{hpm9>1GA~D7y*KAS<qC8SBcIdUL?4}x-ra`mx{142^+E#
z>m-z5Vg;rypA4-cLkU?YyI&`eK^7C_u}on;#tZ0iS81djbbwf(@M&%`zYhnjoweTo
z4<nBWyenf6Bf@{5R6SFxCrEQJ;r&(l1zL$fZbZEzRW)f$gCRJn$nH<dgYlm7h>Tsx
zIfbX~2j*WM$qqc6R`zfVbJ&4?z%IMwcn!jW7>v*E@DP$YMI>TgMz0t~FWD1IJ5+=r
zhhO6NCWD|~uga&BCP~Up1xpl6B3H@qs}P>M8KGTBDyy(_8#p@OIYi}T)FCu5jXHdO
zz+Ovv_y}pywYRtLK5YfCkUlw3L<rHI;c7_rq)$gFgmj^qqDBw7kWX3&W7z|RA)zzq
z`d2^&+2yFww+9nE2G2{ouZHnLgGCzqiMxLyP2$mJMti&^GAn<woth8eq|oj=Gv-Tl
zer3HSLopc7unvBqj)5^`UE4;78k5RL2kWyq6{U)~+@aM5>F1WYp86~5AX9%p0=*<v
zHSt!E39rP6UHjO~$*mYs8`Cq}i2sCC+OS=RLt27{OpIRS%1P-r1FKaqt}?U8K?Mue
zc3Gz6(Qk||Iaf*F51E99F1eTJ5gE@|)v<)E1gTL$9#IWsPnTt1#gcAA1U(9hh44~D
z<)J!DNWDv1AQ%A)-JTI;Xc8T*XE^8^Y13f39)@Cd6(kI4CU{A@sW3oj6Y=v-zY(8a
zjmd+y#xW{ff$^&~wYcq$f0l{L$ZEqi1QC}HkyA+qL{beuBJm(0;TzIUH#6ZiBTc8o
z1`sAi4qaVI+q+{)w*WD^5doR>i+C6<9$LU?FH^>p0?agf95!X;14f^;Ea6mQ4T=CJ
zLh^)FchCo5$Qd@d6~7nTL%cA_yn>P@(EN$onMh|aOcGJ|A)b7cZd?fhQ%<8x@_4jh
zhnn&Fsk34m0*d@IL;jv8D~_FjkPu@#1(~hV%II}HX8X32VJI*<r{%|akl7bx!0%YT
zYIdVm<{j03hsBvXQUPSdHH{3JgDny^K3d#V*~j05*Ox)N9jyQ@uu+ONW}+kO(8YF|
z^2Xzudbx)p9|||=eatQsgvLbtdw%x^p7WzpJo9GI!c^UzQQtdkP|V3b@G-Wp3rx3m
z7_8GW3T@67vR7L>=mW8sH)I|H83~tO>LCTQpxaPgeE68+#a=uJ!j`b?`7?VVOE|O0
z-09aR9G-BZu@`Ogo6#>DIeS@@?ub<C-hD#62$69B(nQXdv*9Z4ClcmM59R&=S_4FU
znI3ls09X${<`RySZoJSR(oSV7n+)e615yZ|Plz_C-p*uQ3AfZ+`9mCp$!lb;HiiZh
z-6?UHA4c>F8FaX?5pjBk*hKWD^h0frEYe*<8XT0AtHF;*dvxw|!Sq05{!ZbkD{*#@
zO5mjpBEgP0@21~MPZQ_Z0YGZ95d6XR_Pwg(2jQF1tBst)d4wQljOGL~ahQzs=1rFH
zPQt9D9rLQOR55-%)v2WF=}y}68xXgN8PbnNt{;Z#(N^@Hx@oI!;9V(|&QTZ7{^nEX
zJM&3kY8n14RmPxc5$4troBF%;2f#qK0fy{nO~Mu2so8Ebalah~UgCr!v%`sB6cJ-P
zKymlM&1GLA-je3J0n$=IM#@znMbk(+DFOM2zG#zxrk~Na-&psh1(+`*u?eF8LI`(9
z|8$J2(FUB910irNs}c)<O-AQK;vK0MC7=}NmW>Yk;z40&HCHmU1=0xoQM$e3B1(={
z*`%e<vp6#|k{>PTMuz^7k!7oFU#upLSe~3hBNG7u;W+Yl1Pu6vQRAF(=7PywKsuR4
z0pD#a1k(D}_9@QTB&$OWTX+q&DBW>da$$Y;6DNE7p$*MF9UU(S<4sCH^snE76*hd3
zlKc36ss(U_Z^irupc8V$$mjwRjV5uhO3-BIk4VaM+#H`troIud0f-nid6i^Vs`(#g
zHxmpSZ#3q@0a%I*XZ*O1^yZM|<HL5Ptu1<hhNwA8;#~KTd?G1_2=$IAU3Hj!e9Gb&
zCKyMON$v`heR-K4hv`nL+?@;(Il$z}pj8jXur{)bC<_l>Lq=_*T_6l&$2Sut0inID
zlUZCnK3J48^hPAedztI)J8zPg)@2AY%~Cx4dJ2q0vBG3t6)|O#<}$CLy<U~A4JDq9
zjxVmRCUYD}Ul*CmPVg)7n4%zUjQuonn4G@>OAYYvFUd|P!<gZi@-VEmRE;Oi$9B1M
z=C=?#8`t)>E)IL69dylB(w9hl8RQ6(V1yxn<v0)X#hm{}&Q=)l09_EVc|ojf8HTU#
zksd}eYOlaDjGA(YrcPkAmjy^I*ST>y*#=Isj-!tkcMFlBM(|9oBhD3KfE;`0+m1N*
z0&ad{izO+C^y`o4DUW}aqxP|K{IJv&G}}2Un4#oDh&bmo+S>?i0(y%g5thkNE%#o#
zu=*Zl`+SU5`P4hLH%id0FePYM7=Q5sLJ80KvH1*UEd@Got6L$Z|EL_<nd%;*HcZsd
z<T#Jb^nnM`9veyL6q&V)TAmE-8ez^js*Jz#eF%dEnJp@=yU-&Fdda)zSBe;uzcGm6
zq=Xum1_N_lr$X{%w4evdJ5<|?3Q!nJ#`ToQElR#C+;kH)f%29=3c1$l4ANG~YRMH8
zZiun8^0+qzr*tU}=~_Ys_fOk=xo$tPU!VmbZs?TgqiWC^fopuWe@&doWI7|JGRe`&
ze8l}>D#`>tX$uQHYE@f6)c$pJz_sMO$(ScYctU~jcg+s*hsz|p%TkRo;IOy~;J6*u
zSz%r^Z_2ZZjNBxvMX(U2D7cIN>XL_om1^}M51EXtLL)+DCz~@yjyTjLv?flkhn-^P
z2K)%?Tza_Esh-@_fzVMl(e6)&xA**VG1~gU`-Ft@v=ml85|W77t|4uvi8GadM0@7U
zDlem0PCfgO9P{gKenv?L&#a{{?P5hZ$=2`GliY1!mt1?f;j7fiylVXti*GE-rR@&a
zG?cX_ZQ`pPk}1A+zv1kqA3jh0?A)&glLyj%Zk(9PJCm~^V4=LHp{9zsS4a^**p3qr
zV&_!K^(<+ZxyK0l_16XTLwok@c{ahD*rnvuYiJEq+-tuiIxGL(HJaG!XE$YT?N|T)
z`!c8mIMWhUH8oMu(fdtIOe8jKx=wrW@S%jH<UVZc7501TUfsNZEPiVDV2$&!`=>(%
z)oPU5zfCJkaWZOJukCHnc&sMxR3lg5-fz57E+p@A*iR$i7@k|&pOm!C#LTRy)7}CA
z_4w#F`hL;pqg>)$(-zN&eByle_?BDy3kwU&K`%G}gLpo^=H%cIk(6|#d^l9}+9w}>
zBq1SDj#GR+Fffutgzr>N1qB72yCWm`a82O;b$%=sE6Ju&5zLtm6zV4{%%dVBX>_F1
z8i4L0Y`UK&6SuMaz8V@?x40F_zOb}3pxCq`+hbx+i}TKHxRq<%kht3k2?vqdS9|?U
z)voO_%^Z+%h%?uI%J`wvj<W05uV3ZveP=v>x%t_hJH>qW=KG4*KzMK%?$V~0Bk5oF
z^Sg(taQD#1Z%=6^I?BZ687!P5y=A|Gf`X!b$5qYH9T8(=&dP8zChBd%6xLS=5wQR+
z=CBj3UN56`=Iu{pteB^-!O+xg2gMLq&~O(gchy%{KLl}R0XgeeUteJ#X4fFU#WC}o
z{3zxvVBMCVoe|jLZu(eZ`x<K}r_=_U)WzZ|(E|gv{s95xdDo{{AB>6{H4O=JoD4V<
zDtM>1$5CO`Vl1;Ik^&~%2VB2-bHn4>O<|?sa7f^Sj9B*(pd|{cK05J^mouYdZXU5!
zMrO&fW$Q2f_I0PL?<h(HbG$4vF0KY0(hm_98{>OU_d0kd=;-JyU3F1eN=g&svhmjj
zJV|q2d4v0z$E}af?)+QbZh<}MrJ0KjxV9w&md(ic_$@8>+7Q7GpE+|Tr!Nv<ce~2n
zf|CoBrZvu-=@(K{Ll)^mXYi*6Ok3N;6fCjLy3~*60Snzh+=zq)iO=UBjJh`(7`($J
zQC(gAuFm`|f!j;Zp2bKN(yVP^X(<w~VQTtt!GZ;2*FH}D>Bfzv%Ba$g*T1%sgJ;8F
z>Oz7@N!H>m)tVuS*z4;|OieFzCoR!1yx4I`jGg<*X~mGb$7a5ZMHTPknZkX=2$Z$F
z0UyUfOcJ!$%lS!2Zck}(&MSnn-8fxGTwKzzS6lj>TL$^tJjU%G+`oScuKx@ef71Eh
ztDm9os@1lj)pmF0R|2`4tsr>TWx1tlhN;8=M5?3ZuB*Gd5^%i5UNKMek>KPqELYF#
z1U0yBV^AU}x$F?bi#p*7EQbW1eEQ9|CMQpxdiqn}HMRSrin)53>Fr$Srw%`7cg%`d
z(6r{so))*Fv@N(b()P?wl_Edi{r}asm)D@u!mh`^k+HEp)D(l|?d!gqHLlJq`{d)w
zii$6Lh{x{OXG6218@@lcbuRWz(xvy;F7Tbtdj}(4cHsSAarDQxxdPbwo0eX}zfwjS
zG&;Q9NS;A0r?+o&892FFKk0i+a|meS<s7fa97fXrq^_lfAaEEP3v**+9qjFYQZ~ik
zR?v47<ByNmJK`xLf)^GQ9sc2myU{vPUwrWeh>xvsV!AyEWL8&H+|yE>!g{;dZeNwC
zACm#g<Tiv?5`)mndma<7zIftAtOc*0E@$IQt^fil8FxcxNg1;rp^sJ{Z(#o-1%G?Y
zP4#{IOyq*Jjf`S|oAp$};ux6-cU_p`MGk#>7{hBy`<GvSVcn06lqiOy`ebIQ>Wm>i
z9NT5lgczoLZVD=1>fTscc^{!xR$l&MqYc{D#@m9JPg7t^*g5oy>J?r7V~CQ|;^n>S
z<p^EF@DxWzM36WsyrNf~Rm0WR(W#ENaDgv7*_}VIE3YwV?niULYVFD+4e-n7Q>@FD
zj}207{2Og*KqlJr2Tb@=)6JiK`pq{rIXW0za<sO#78iBo;K6ItlY?4Qs2saGJFnIE
zRAY|E8oHv_G}{xUn3wj&{CBSa=a;*O1O*{nOJG|UAa9_BV8As?5z!C>8C>#G;5NWD
zUZW|5XyVc}AuA6|Og$MLL``*y$H@{LSp_01ckJnB#0Q!yFuwTJ7V~nN?6z&EU{al`
zBi*}*_QKgJo|9=eFe4$(2=m=oetv6>c;_eJb{evjdHtCXEWTwJFZMOv6>U1nU};w8
zfQVBp4plZ_4dE7w-ke_KVt`M$tTnqoFEnE~^CCR8awsO}iU3nSA^(Bh5e1K$5o-vA
z#a=@-Cnu*Z4dfb<LE!(Kf_D51FHIlQBJSS(`Yo9OacpumwcRfqgGWX%mMbzDtC#RY
zuH!mC`o@hLS@%Kyt$Di=ZD^^@11N({w%+=>j$@H*fjej2XR~)a2oJZ!&__kLk!ZFt
z^BMU&nEp2Y37J;xz53@XS42-6@s_h$CsXV5dh;!k)mf9CUe9DFF=*{cE9Z{b*T@m!
zfq^Syjy~Sw@9&SlQS02+ty}SGlhpcT>-rQCA6%k${}pP|;PM~ujNG`Aq-#wZ*9`k6
z_+10cBqTJ(8fQuP=HDwXKNQ2rF;)rFlFpe-L=#giDVk~OWOX*Ip>A@~*HThaX@&*{
zO5IbpicQz9Th|4rt?rpK323L$*3;WS*MDq!WrtX4yf3+dSF`bH`7`{DETV=SBx@mM
z*S+8F-+vjw{Kq&|gz?WCRdL6A#Hf9F>@%GxZ7mi4eOhNjx*fD5->>Vk6B7@?d%8$u
zk&~n2ya0fP8KXP+mE|&2{O~@Dsih)MT7i<yhr6oAaUc+h)^v_<&%*2hMW6soi%>91
zw_W=>J1ffwZVeq**9@Ok3U^UQ9(!Hi*cj8*Wq|{7Y@)KV@*7uOy!BY>?}1G%;QICZ
zSZOe2|7V_)LV|)80h=j|x5dT9zyH1s>|_H&T=bg-a8tmklP4wPHiBGL3Q1f%%N8tf
z07mO&;Fc=oTkn7;zg+B-wKf5^emA@YmT79+Z`)>o4rO$ahj`opxDRm3_19P5-Q7KP
z?p)p7clChvIgp%wdMVI)V3lz*XWIj_w9S#gLSxUKxb@%O-(P>{PRw24l8CO(&WVQ~
zUI4BnD*5pt(bUXL3z+V@-h&pQIHz*;e7OQCqk++3=*SPgD-I}QpaB`%A3n?#{~0U%
VYBt?jb^*LKz|+;wWt~$(6957zeW?Hd

literal 0
HcmV?d00001

diff --git a/reference/plot-16.png b/reference/plot-16.png
new file mode 100644
index 0000000000000000000000000000000000000000..231b81794fc81297088edc9e1db6be87f0f1fc78
GIT binary patch
literal 19541
zcmeIa2~bnn)<23P-R;2b_S%Xv*m?kQ00j}5^{NerQBgp~piBxvFbp9i0o2>lwg`HH
z%n)rwnt3KdLIT=?kx6BUOaUc;5<(ydA%wtxC)nNIuWr@9UVX3XRlRDeFnG>B`>eh8
zntyBO<|$kA4c~10Movy{18i}^UQTXJgq+-}3tz1TS9+5kOoETK7p%-rfKTuvI!=uS
zA72MsIETo|DaT5GS0oHi`N+xbkb_SgI~$QP-j7f8@Hx+)8pulh$IdP2i<@sHuVlZz
zFu8IJIs1I)^o@r($C*=avU$w1$oMcErNc0C&x}j{ua%|#g&n_@euew`+mny7eszR*
zmsDKa=}~veVCPB%*1-uyUb7wN4Vl)yS<ELmGjgS`34gq4di;E$M1G*Md|<VVz`y^I
zle<{!pQ|lp#B8!&Kv#zqaYKn&0g6G7n7*>~O8fhvMQ7_(R>T!DRy8Not&{%o%6_Hn
zk)u{$(_}aHt4*$y{!x+m_kh3oASd^?Jp8Q}Ko9=14|)|HTMjrqd-lv+Vg34oB5vdn
zCfaYOExIsoY*SORwi*7}jSWV^(1{NpKGby;y4qO@-qaL1sf%F5PGRFlI=3&Rt=4CL
zDkm#)?AtJR2BnBgLKb!~U2FO${Cv}>?H`S`m@JZUK`+mPGHCWssSbL^yG*S{=d|P8
z92{63VUi+9L%rG@IZnzr$C@z@AAfs=r<s$1X-jQYR#a5%EAz1ev(ALMo9Qw85v6;a
zxPB^jsRYa%JT?W!y)?nsvh`{`_yLsu@Lm&S!2?Ms_NbkI-ahI<4d<0X<b3XY;d?FV
zt4kP_J0~3-^s+dTRjXFnnNHTN;+JBEU)HZuFb@8W#Z@M8Ue**vhXe-)ORPtO2Ivws
zI4hH51ZIB`L@_$$(D?vnC*QOnoJRZwbM^K0$&jM)#FHU5k*Ss(ho$!OA)KE(i@#l2
zxwbvJcsrUlH3MVj-o=uuw?^wrDX3$gEmswAc?NB`*4oC##w8RImyn?P1UEgROcMWS
zZZ2PSxmz#|#ZItm#fw|qg6nUeu`M*rY-J(F2br4yTlGoaGh?0PVs0dk((A5=^UP^C
z&}9B}{P^)$;zS5p>|D<K0j8rII*0Uw`XajDFJ*(*?(0a?3mD6$uYIf9Rg6N>L{FkW
zY`Jx1Y2RZ<<9e#TO>ln_M8)#y?M6RoQ^(78=}sk1I6Z#e59N|*g`&Rh-fa#Jov@Cn
zsfXI8cTe*2Lh|zFOP<Jl&c1tH^6a~J?_MYMnK6a*$)B_rFg+8o8nA=ImX^?<VivVb
zG?%EEu5E*P+QB;55k@2+Mvg^pxDe!WciHfBu(3~yxK96^*Ol@|Znpc?c<e&t_U+s8
zSmaY=?UF$4qJx9-Yr?{W_2|Zp8`)=BVTf@krnktQYI^9<p-+$ZyH?TmF`YAQN9$n^
zSJq5`xw$!BgG>+*5dzrL%(6@EkBuxB_isTFrq<=>MTRpCfY+S67sl<{KciL`H8rdq
zEjp7u8oKOOQ*Y(v6&;!SebW*K)fNyosH~zA<&0Fqt$h`j+LtovjJ&+fVeUCaT%K+w
zgCG)2m6n!zzt`IcBQ5Fr1BZ-_7k-9R$3qRHGdc5lc^+N7@TDK%8#ivW+G6S-+oWq*
z+iy@%VBF8kGqb@&AT3Qv`|-~WMl;F-O{47`92(U{5>bYfu?K#l%S}@tp`AMmYxl<N
zDy97+&6tTN(Q<lui`~|Z);Id|@*JBhq8sCtNzqHZGZb?4qG-TI(EPDcK|ukF6!cVw
zj7kuxv=kR`=i`95Huhth_OnzmFMfCkRHG)++nY1FVf*1eQ^`X2S%)xlcb3@zYZ|;f
zr5vv{v!*VpY%8%|a-4B4&y><;a`4inLHF9onTzf$w54D+h$6mWO*r2ZecGXOrezb&
zytRT+#C?{Q;M7(%^5VsddM__8E@|Q2Pg^`9rf+Iw9XZRI=>`1ntRBr0Ux%Cl1?iN)
z-tdN5UhmQlru^&--w?39%>vUv&yokK(pTVI?%S{w{cmcTL%w5w{-=xy)%oWa`pj<S
z2BOLwrEFx}q@u^dsl{z7?}Ma@6rCfQ`=qFmpXZg9klb1|`S$Hwc@iPNmzR|Z?R6}8
zf<o%^^5_P*=9(~WxLS2yUY<tV$6{F!buOmMxZX%dN9V}l!?R2%$H8G{?DlqjI=(7o
zqv4190gVj}K~`mB9FiTqZKNd~omRtOachh6^470kA1XZDHaR&t1$!JgaA2}-Ty3}h
zSWQuWchLr^NP9j229FOovZ9xQULqjv2+dpTiavb!^4k(>UY@=>^VO?Y$+jjl9lO#*
zjs?JWDLXi1-r>|tw;J)c<6Xg+kg=L59&R*KIK<?cD_!|L8u~aBS$mJv+Xd8MAJc2?
z+O@vKom>BU8(26{K$C}}nN>hBB={qregpgUFn4>BHY%zMa6A_5#E-=+@#&m)CK$|_
z=#8vp>y{<wV8BAz8JyW(G(%!?hEnWG3339)+6ysLRZ%e=eKHi^TLn~yrBUt0Dso>s
zKxS-`y%tsR{%iK7wWNLNAN_<A{Y%50Uu_2~B=%itG|A7)+X9JPkbXESk;5~>P7o%6
zD$p4@KRFhANJ^k$)va42Ce)JMbWDlSlwL_wP0><CUY->NSO^nlDKHVC(<3dEq`Bj=
zt(tA1UI2f5*dEYTkjle53~HU1%+EYePY}mOm2MTbUGN{;wCv|k46cz9cX9vKEz-~X
z*{eOIpD{__MaX7yvHUzh^X~yt#$5cH56c4cf8|5&gKHtmiJVe69v1u?O0d8LBfTVo
z22&q#yT=(o7Rm-|qzsiKUV3m9yMqY=gD}L8H~eIXM7#KskFpfBLMZDuu7i5AQJ=C!
zYuWWsCd9WBq@StcTbAiD^+^l6ndgvIB;y0jArgqA${;&*RFH*018%h`!)LK%ncb`8
zkxdcgL{59^&s8wy5>k#Vgdp2V9e4wZC1wD!vk|<3@)5$}O%H^^^lI75Qm%^#%pND5
zsg4P}&bK%+!Z`z1`S7pkw=6EbIME@=^v%L*R7WGxsg0G()D?<Wv#}5e(m>=lwUWj7
zVH2NUi$`>~9FeKjQB-Q%-ffEoa}E$i!@%p?5g8AkG^MqDR>OsD|M;wL{?YPmF(kST
zbw+u}o*mT6@g7vR&_OuPy5m$QWG}LCh<O_>f-xuRD`h%5Z_BL1{|jk@aGdqxRy#q8
zCPVceM*uagD^ie>_sZ$UH?3hVx<MILlHZ_44G|8>fvVLu{V>Obv(mkZ^#O8nF5WF^
zdNcN@RpSa=R<ZW{FFL}Fl3zd7u9Cx^R3i@(U3A$80>!y4b2p#?TLB5u_OHtH2qsFW
zkD=S^OsaIp89feE4QgmPQ{~Qzv)lc|RC@0yN>edHW9egahk-m|tjC;ySa#i}>^R~6
zFYXs#YIyeeGX4Zo520+|q?ZwO)(*IQF}KI7xPY9?cn94m|DIBL{UL`nEa3fsdE2YD
zieKYPutJ)U%Pqer=guI6@SajeXWW*}ZmQA|_lpzP)6A>|Pe-O-LXC&Xc6NeWmm0G=
z;?h@1Z`aY*Z_eUxf)A_V2<q>reBhw8cTdRbI2)vCUGXyO^eyGtP_+T`r*fs~sgviH
zjbw2m;p8*b;Z{_M<2)!MfuF~_6(h`2IOr`?fBnC=;;{7AQSN>RZ?JzU-j{E7$>_dV
zoBa(fA*cbp|Mk3dgj}J1MNEj9A#cH_W$q?4<I!bg$h^|R-~N5cXC}H@3=*TFHizY)
z$+!6G1_3L$GWtJN{<NCS8f`6(h!{=eQH8;_nVb>GNxj+_Mt?bkkv1z%O^x_f$Xk~p
z^F=WRE*68C6Dg2Gy+}sE+gr$0;n=khnLHi1b+ubT_SYcmG*crY$Mr5}BIMlA{7IU$
zTqYMoEqHSkdw@BO&<-+BhZr~F@v_k)52S*MIgM;u*ZQ?|V4X@LL7qQ7o&N;?BeILs
zx1YHJPT~#Am=J^8En3aDN}IyLrq01Krz7WkO7Jzi@$it@=8R=BO#oZb7aKCyjLOPh
zo(h(0*$i~Uvv2;Ke?1KtgmS2O&k+sj8|Cn)1Xf)^R)U`)lnurT!D@6n1V_p4NVjO<
zuJ-|{+3-OqkcfZ;kUq^~vNWRpq@H*Z@i`NPN_wOlJN?-a;=p5V&A)%v({Xtqau@4A
zn~CRj_9)rha?`v1XBkOtpq@&|8s+VdkcBvM#E0I4wfmW6xD2PwpV>%%w|V*Aeh08_
zd7jU}Q3S7n^F<gIf(H=a^3C2al!Ve!wsZsRt;hn&M;3N6FV@e<$ey=k))_fbAVpYE
z387%j)OT(&*#KhKX%wLy(2%VChm=vyUd7TB?L2;6e$oY<yOMvtC8GDc!ev>HwE8we
z!9sv-8C{p;xvbjMe<P@}S=zY4RwsC)E#@+!2XFMRVpI+;3obF+dr)!?@d+^w_e1VN
zPFucEJ5-7fy%ZX-65NBfs8v54?2&PbC^cqU%T`gY{M;|v&N6E6%l#2vSkiwzUqe+h
z&|$uV^B^-A6NsR+-lr`;>~(M@pGcyaF)!iYE>%O?R%L<TcFAP&!}e^{>tJhyTR!?E
z9cqIGL(txJ#WME3aspDb8D2C1{=v)|V~J4p1J*+ZhnO%-PY3ew9NxI+3r4e`YCmKz
z$#@@g4IE@+uWv?C6J0>e)kHt4U*k{zX;Q(Q1L%fPjqcLqp>Q?av1!q#YoE399?&JY
zWsV<mWES5t_wO$*V@nkAAxEl$8hpMqVO_q2Nu_vVT}6m&m2b^~jQOQcp?y;+mIC&r
zQQ6g!1n|ZLjqX&=BPbcdeX0=ULkd=yW5}rQ`=&0_KkcQ?+2A4+WT3{}LIU>IAvHpk
zU)d57I-x{Zaz)brBHy$=9qbFv8`+!F9385j)tBkUb%j+(H#KlFxk|}F>?UpJg-}Av
z?^|+B_AsyOOhw*MRTqULs@hLK?}s1Qk4M|nWVTlB`(q!S4lUD4{_1lT$pLtVJDfmx
zk);&x-m8T7{6cEQRM;b#lVqSIo*sE?`{fOq@4_3UcnL-~>q{4t^(s!k<=xx#^r^Wo
zSSl>>?K6q>!nZ^Wd~p@)s>=@C*r<hWs5a)wvhcd~fPc}K8Z=tpy=~MVa{7xCYuV-L
zQx8R*n`(3o?i;AXreD4^N|Px>jCV6P!&wIc7q3E%YTap^50IH<S@j<};Pcy{8<k|N
z%cLMcXc&ik8Oe`YPjqBflpBOQ{k1HO2ogsgR>|O8)9j6ZnK?AE1p#r3-cPJ$`P~b=
zY-Z>g<P6fM!F)(kN_}K0kU&m{#j@QvcmMfUG*XbIV0dKNdOo#e{3^Q>Bl#nQ&jm5a
z3>;NH8D_kL>Gw^W%mfD~A12p{2S^J?m<>>)@B4KfBU}n8BbhS~?OK;2o9jNmS!2@F
zn8{H82!X}P!ycKO*KkrBW<mfZSc71SP6ok5K8di4d3yTE_tG7Xq3az=2m#k&ScS}y
zz*#Ar%oaPOFYTr$-W}n=ju6fQ(SQs>d)x*r1dQ}=We*V#kn4;-rl)>Yn*a+MVUG+>
zjP;2=zwu$3JG^MhbcT!E>OR|*z#pz+-`q?6il*K4JE=yY<#%dWf-UA0f>IX+fe6SA
zh$$Ys<qvm!5AY@uE((k~yd^{Cp<@)AN3FVKvN)%=<G+|@Ba%<5$xi+`4hVg~&l4+`
zIE@Gp=e5I8sos7_sq?bWNQnhX;0P}sWTssUkwudwQU|c~qWJwpBa)E`m=&&;yRK;2
z;=WwVb~-eqswT3i|ExpDnAl0vGQ~EnKfROA<RV^o;xBKdGZ|H($VUa+%IKKAA37*G
zjbPPtziItTYD=L;2zLr;Q^#5STjnTZPU@bGpu3VXGC28Qcf7IcS!4aR$szGtgwM|A
zLFgbc5(z<+dKOGm{!r=N1;ASKpe=gjVk-eK&9)eGq-M}i_U1>I2bBXG$`P9Jud+g5
z-LHE@Y5|P)IKLBpvS9UGC|I~nON48^v^XRu_x3ula-^0B;g^iT>rDORAMN(%YB<RS
z{TZAGFg=Yk3q_N>X@d*0w^^UonWXPxdLqRdI23|at3JT2gd_0=e1|p5wTAm>5V#dv
zlwE$wmxn$!zcXHT51uMOiFI|SR?9#fIq@;z`&@!$1k3pzEa{MKzFghHALi!|aOW)8
z2QBg_&gdJD<*gc!1{PLjmsLjpdSk@N<$G552-k$i@ZI`%IBYm8m7|Rib~CBSr*Hm<
zrU4Cs<>QPWnD<~)gp&s`EOh=fzaSKD?c5Llh!FNOoe($LYL;xluOh8xHnN-2riQI5
zOr=+(QQ@F6x`C8@aoN*$x#rd3&*`$OPAq$o3by@f_9|q-eOh!)?VQZQ4r)CB3^mcl
zZ)|Wtu9K9~y={=|X*~3ov9wu|cehePf2udc?EKQlZ1GJ+?*pccpvF82PwalO9GVV*
z=sb2^t89bo_9ealtTVfheop#xCCU+e5=S37E5^A?$&R6BAku8j0`Y4p;d{VE7J_z2
zU%gtL`R$s|hRg`a$=9$ciE~$X+{ldS^>`ubEYd{Ur~QSGwF_vt-ChNflsU-EPVgI~
zU;z>{5c&lDWiIQ)6~46dJ+o)hr#8U!OpXTZ(Q(<R_79^A0uPfiMXYtNX<uA=&Sh$m
zBKg!8DTAYKv%wusE*!2=9rbc{%9n=zVrIOJuF7Gb-d)IgbrA+(C-O)K=eoXd9>QzB
zZbm-6`Ds&U+T%^0C>H-mc%V1rint|t2dLAn3zIqJ?eUUAU)pb9&?PyKY&lGJQa7j)
z5h4+kwbAS&-##TN_vA)=ew!qaEy^^RL%QE4Xj@_0*EdQIF#`}ckBHB?)M>*>b!H2!
zl`))>p#8K)_88HJUVJeEr_O%px|t?3z;d(ogjIYh;+B5XY5xKlN^q`olMQWtMtC@G
zMOtu0o*@g)z*P1naaO^$7G(u5I%RrWVm`fr7M;v_3khv8E{HZ%?W+EipA9!41$Kf0
zNPho<j%-{?(1T)!CkD(L3wt<Oi5yZ3y`4lbW%6Kp%FTZeiq{m$e8<s;9DE4>#fcY0
z50Hl|kvT+QKsk!AX(q=Hu2L6~VU<(Cfl|t1=;h~7aaDT(*s%ZuEW_B4c@f#JJLMl6
z1{c{0u0y~ky*gR5Q8t!Z@cbLv8IaEHWu}vqvN)h_oy8f06f6Z*Bf7G6ian!OvvbEl
zKqpv)6zl}sVUIgEwS8q8?5R4=uQTemBLM@gX+=<$Jy2NASj8uTls>4E%=(;u1L>DX
z;vihtdhx_P&M(%+rFbtS08u*q2gzr2CbRBvbYT^PXY^^3vF}U1xmvX`Q*g~wcX8Jr
zy#QZCeHFfaM*_vC;dncMP$XCiVyp?dJ+&lb$`|7Cze=U^6-SgT1RW5S<Ywk0j?iU)
zIdkn}MTPV--nZ~t62SmQzno=mB?Npa_s4XLGRt@lEpxe-8ddt@oW9JGxoK1TVJ)jN
zy-ldcT~>nbOO1<;x*li0(5b}(%ysE)dr3;Y1XB~H_G4wdy>5_fzvQNMfIqT>x)V85
zsXsR+t5sjRF%*@?(Sx<LY0KtrV7D@ee@37!t(fM<E$5ew3Ef_>c|&xfQFOh_$Dw7Z
z`xUq-PlVzA`(OVLZ0}j#LCV>?VLO1+C{=S=&hBTD_Dq`AC^9Plw3)9~wn{!!OegCN
zX&@bVXZ{DMQICO6;a=FaYu9y9Za0^vSECvRhhZteGWg-cMKpReK0bcq<^GzP3P`(<
z8|j0PA<?J7!9i-PiLlT0v1;^KZjQ=n)(oCoW2(tiKxo;$yeQwt)kc}ELkPiy`3zuA
zVIdN{jL7f(f4C|Xi5xmI=|nAhI;WsotIDe}9t+`y-4e)$K=u5IPgBxuILpLm`ZV17
zwiYj3ng}&)45jv~+Dsf7PCPTw&7CRA<<7T(^73r^Mgz{Bhlm?Ja%Sv0fUD+S=Y|x!
zQ^UKf0((uJSTn9|W=n)CGPn1(_<O-GH&`0DmPE2iAbEaz4AO1|c`HzkrfMxm)=Ue`
zKEs;Ho0^)Uw$0FZy%Ywt>5A}wKzE#1AS=jKPf%4-BEU%fP`uGZf3h2f83BsUwg|Q>
zOhSMC`n8cnSTohI9Yuy>RioxoLuyr|i;uDYUa*>vvJp#~t&LxcXV)}WoA(C^3(rLJ
zLk-KbbPWv+OTglFN#3CRov-y|@Y;5g_fW%aiW=@DD4<_JG{OxtholHzdV5w9=gp;J
z;#@L>roI1V??fucuVr2Vuw_3e+DG-*gi*hr7s^CtJRhW};ns-xKQqwvT7P15>O&L%
z3_~b-WTDF~P+cc^69_a*^`}=H97fMN%)A4@g@@x@nQVrUM<6vfWMaQ*b$a@Y^e8Xy
zmT!-A6E2&Y`n(*mB4r$y30oiLu1e;_-`nfN&VXF2F5|AavlNQB^P6vlbjvor-1WuY
zZBaZ2hp-dVQ&e3ZU?45GhzsF9aH_zD5ief6_`yc{pfgeq(8}v1T2&F31w?Pw)>Om+
z6~9x(EF+)x$2QnR8vB+uea;!qI)|~9n+uzLrw|>HtG#0Omh^I)RqH7G0V<J>{Z6PL
zc_vvkO#uacHvmrY@*MIPub|poo9n1Mnf;?B4KugGRya5m{>C*7b4QaeEeVF38Uc8L
z++-br;KOJ(p&ei{yAT4viWkBVE&x27!8XT2ircms8Zp<T9}cWJ0P6w3?pj{n;vtZb
zAJ%rQ8s9vc5z<<P^WgK<r_LUbt8=$@a6o&E1;iZ2@aq<;qdgasCKo|<MNNTr9nMPT
z+=k=Rh726u1<cuz&Qkz5sLLBD^=jk{M2kCkqX3h`l8i&<rvSvB3FU`R^x+tgGXT-{
z0(J8W4xYS1>BBV5#42H4d;m~Rk&2?C0Rdp{6g#tJBk)KTkeq~V_Z=C%2G~HHUd_L&
z%PZ#2my8T`mbd8X=wPHU*E|#*0iZTE;r&gGjh$hVS%5u;O;nFA?tlSCBpwOut;#GV
zif7F%1Xqc*Y^i=+dj891v=r~V|9oVo*yH|B6Q~H&<+>;d;KQmDsws@;PojM*fre*J
z8x(uXs&v>k3qh`R-`o&9c8%NIJvTRpT`Mn7;(UbJhQw%qU>@QR)`nJ9H#9Vurf^(=
zhKxhbr5Bz{koArZGc8On&_+PXZ~q9;|4x!_LY;Wr&rI9}Q6{)JxmS(=(QzKLijiFC
z%yZCB%4n-S&e%=lLjd@T70ZvH4^EJuA37CWlzeDt8p%lIh~X-Y?t3?1P;<y9LtY(|
zcTeY3LHTLg=2VhLv9JbG+`9F{L}1ptcke*m-P6-^P^g0kT@E!K6)ansTwCu^j8N^3
zTRI!ux~9A2{IiL?Ja!5Mz;u-1Ovjl73j`qBoAaHDqs$!~G@$AU+H|Y9A!}qS*d_qs
z{y&1{K<Ve*4ai(0l||j@+x{^WgdKZZikB20OHr=!_K%;CN1%J6)of|O>TwnYAj{=d
z=mAqVhfZC9%q19R+5(QMV+XpplBL-R)7GN$`<v$Y)w-9y^WTH^d2o3Jg{GO<`S|(f
zlh<g0FZyme#BQ$IM+j~y8{D~9`x>F+!Md;Ze3htw9bNKOSAA8g5xjfH>eYK*c_;7O
z_e$VcqWQh%q0&@!U17J`$lCVvNUHUOH%4cGKN?~-+H5e2tL70Ad=zfPpucf+YdJ<k
zLj#rNy|gG1FMW71R6D#i%81EdzhQ&>6(EEY{pEgbR!CpehgT1<S%bZ@cqGNi%x`k>
zBpTo5<z8{F)<?l{#$%Ov#<nBx=M=VX-=0pNe7cT&))E&9LKJI_>VwRHjVi`-F+fnG
zhc5<hR8TO3m{u-@UE1S4m0bBG(uYt(hEsr~(Eep3md_^cVA^%KsM114ZMh$0sjO8I
zSvNx4N)|eC)QAQ8u+G7QS8R}zg@HzfhCMcdB6dK1Lt`W3h+TTvg$wU_Fq@vTTr17^
zIchCUj4WJ4>>!YkvwTNZEGN?Yu7Vp3a_aDRAOaL3ZfPJOq-Q+B$6>TTcrBNS9OJ-{
zwzf=Gz5BgKwK15LpHtcoes$u!KG8crnb_@n07g9|7Ra*T7+ggXRTkRG?Te3*dAs`$
zRxg*BHgvY>ML21f^(hm_Wkc$IdEFL+MIjEic00|#U9OgFe)ipRVhlzr(u8IW)s6@r
z!u<<zf^e>gne`i<mss}Ny_ROH*tOFcON|gqP1FvNZ3MN@L*iu_>7FM)`qfcS4cGuI
zCJj=x5j^nuAbaJ}q5Z6FG}dfYo9p9QnM>J*u3pK`Wrq*xR4&(6Bbqi(vdby`6l<RB
zkwa|EYMLJ;BC!|aeJ;wTAFO!Q7F!@0RWdoC1xM{>+CeyfL>J$P>TX<~)G-n8Bs$Bx
zb7iqf3P|v_h~LVBtGZv_w8aP|(;fP$oEuWQ>LH4-bUEtYoI_s0Kc&i*?YO5()6|`1
zJZ=8y=YGdi61QK^S5YAYZKeTiiKHV0114kN`SfLWG}y1E2`w?sNRHC*!aXTk#Q&~B
z#>$clpYS(tOp^$@<_cI6=RGuFQATeIlr64cw`6?;OIoUSfazJ@XAsqi%GZ_{M+EdS
znKF+e3Tg)B3Cnzt4JD^>g5V-6!5zp5<SUP6J;VrM2lE+1*rR)uul6PP#pK9dpf^|I
zxEs}Qk?5u5|6qaHr>Z6N3KsiSuW8wr^UFu}POK~{tmWmIR>`)b<kwHSgZ=Hjrk-Fl
z)=^Qm*!VMG?}f8f=*%28!r4&%Qg$^sV_s2OtEh+UtjqQ?pZRs75MziL4>9hf#uiGP
zReNP3cJB0A@i~?dxoj!83MJSIx|<6c#l!5`W7Q#p;%S)P{?{J14%#3J>Y`GJrF?qn
zx{hv$FxZt05R2w!j?4~t-kmqNE-YC}<_!3a9P<Z7-lgV!ZId$)*-mg<?V=1B@qF(5
zON_82dc0Of<hhkrij!{+*b&Fha52IaNj-S>bk-Zb;caEdU$VEFfiW2=QN{JkB_&uY
zEpbq>tsr3ClW;43kKTW9Se3Nki}1AudtC9Xs{drKuqv7w6JXZYyNLO7*?>Eyd6Zh8
z6|ATniX`_-2G{zbjcQ{8sI|P>`7b0Di$>#<*SJw@DDE#Vqh$1tyaFV7)$;7XYi~vN
z+I=cr&W1N<1L>tk_L?;@T3=;0Db@xc9OeI@mI4P^V3r^<EO_BOLqXh9yzLNqHDDZD
z|D<I7Y-!O)$j(Ag4Jp6^CVOf-($W0ynpov=cl>XEiAe@1h@-3oF_2OGk=eRFgFa$3
zB32XGlY3<a+H<F6yW$FV7!!`fY8Yt4Fn~5#Gp#a_55AVPbI@cw2~wR{-jWaHQQEI%
zi>rfoelDl%ULmVn9X<Z_GT6J#@((5aYy@w7w_K|{l=wfboZ8=0{Auz3=EYy$?{8lG
z%?mlXzwL!w%-^<C?$xRPPyL90aJ5mePF#F^)$DlpbRyK2TUlg>IfFFGuU)%1nU`NQ
zKQYeL2W5w#!kG<~T^j13;n50I(NJv;pfjAlgE^pqv&d-|jlHQ|4*QLacz%=dadGR%
z*|pR&0YtmPnb+_H!nq2295ykL%!E^kj9tY8pzXLHRE?6subz08M-4zg_gFkgY5iJ?
z@SuG-A8~UIAZ7>45{Dz*w&ECJ-PKiXwgL`>`VdYX4KvJi)Eq8=(AFSCRZ!QAm33Q&
zBUjgH(<UoH7jD{Es3FQiAYa*~4+=Kyj|^6e{=fnP8GuTNM_3tK7E{)p&k3uOCQf^@
zX?x(uIXS9SP)#U?a)*Y7#Gv8>LS-H1^&Z~rPv-x`TO$bx@$umaM`lYQzo-#ia&_;!
zRlIPqxqo4Dl6}+_ZdYNf?bBXaF7braZa7#w+Y`{%)V!}hVd8D+(1>$R0OBN^?QP7<
zNwg<<`}^lX0}AoQyR&IT0%4)Y6uVs-dUzhQ<;LhUkCPrH3hJwE!>Rq;NUB-L@9z>c
za2<D>4tBUi?_u&lzt@s20$40|uI!TUa3M1e^~*w@lz~AE)>HGIeJhXWVa5_&y?WKv
zzYrD-K5N{lZ1|}P^h*!)g92s<iI&?RWVVBOE1*zYMOm2_)c0g+971!$sp%j?kHVXY
z#SavS9|n@`RXW-X6B<E*BRT)lkxQlv?-Z8o8QeqR=QQI~&(We1RJ~&FJsmJ9iD*#R
z$F`3n|Fk=s5CEz@(OBBBtuO`~Sg2RowJIbN1qwtR9FDh6dE9Ztd$cu^0#a+qMTAn(
z%VTMXd^LxwL04}ktaIeZToGg>r6LT`0nPBA>|dhQ3^bUnpkdl%>6g7lZ>cX9O?7WN
z*Oyc@fF$#kCwOz#)T&!v<8|*9%}OGgbfWwV`Br695lxw0EBNm`DT!s_MblW&wfj!U
zSb8zEY11Z9bbUI`jlFTB2UfvP4%Xu}n4qwR?r=dJK5!to9?KB-ql-YB@TXS~j-!-7
zWyJ6D<;zRsf}9%An!gXb<^J6`<#WbE^4~YUz4}}?%5y4C^@tvL8(MQXy;hMn+7d?Z
zifm&~Y#GfD03GSE>KYmYB#u)NeSVA&TBOgHbj_#Pzg$;TGnQAZ#!TAp>Olt?f3otC
z;6X*0O`u5vD_zj3X=!6hXalKS-0ucu0_^u^CMq^Y<UD>%2R+$$pad(y%kEJt%~4_3
zpk$5^W@BqhS7VL>$)zIRyq-#-t<EV+(WiF-RYCoczx4-2S0xJColn$>QyPs&=9PSE
zJ*88}bh|Y5U(F63N%e~|VA7!ko{19A7HB3~9nSAG94Y92@ZbU2Qt-(!f5r+PGj8c}
z32^pKmI?az<A5GepL}ek$;gDRU%wtr1*bkjNZ#Ow2N=o+@^g=q-&++Z?sz>WtuQ@I
z#GEXgc`m)u@NQ@{3qL_YKqY-*{#he9B~rGBxeF|mrh82`y=})OWq_@Xb><J84FDj+
zG#GfB7f!XcwPkw*5KkjSP>P!}Xej7oGMUL5-Hhm^MKeRe9FSH8H4zVD=pH&0IsmHQ
zUCY`}Q8f(xkZCoSBwe>00<DrRd{)#JO*iFTvJ*F@qv@g>kPyb$B4~A7Z~b+7b7^(6
z{q@V`S`DhwrEr52ia66!-WL7Q3N`=sy6VE9tCePSDcC)yWc%4p7cvc$7SY<>+hzH?
z>_z{7{O1V#5`&dXyAT>$QR&x~l>^~y3&V(@7~y6Ljtj&(xrcRP6DV{bI`V*N?_9X2
z5LLT3mSs7K0)`W4kS_v9Os<zVtyfS$7gm~1Z|z*X4E%_Ah_|lbZ0!|Et_yb;@~Hh|
zMrj}MS~f>lq0tXi<LPjglcl09$oMGgqH~2a`++7?lgiO0eK%rbSz*+Ejb!_%gUmL7
zkRn`C9Lr_E@ZiCzgphl#&BT99UXME#4-Njb28f|zN=Al~oq%ItJCMX#u+0e>`WH8V
z(z^xfCRR*mC!%fb?946z$3#)V5x{%xtTfvUU8-HU57pJxi<~c-d1h}{QDNH$5CeSa
z9e~U^{N47nHsgJL;0S<9zkj7^WSmtMfJT<W-x#jWNeQRc>N9H-t}sbJH^qMUoI5^~
z)8R6)@#rQcp!MCUUt<}sc;Ri_P(x7vbB5U|oB~L-`O3m|Skq?@)2Gmpo5Lz_4q?r3
zSqjoqBqiVk2$@sk!euCflLl?CUlu!;j}&Fv<}^orjXnQPi$3=r-{~^o5<r~52-n!I
zCF9OL0jl7b-`SG{WhXiTt)pTMGrKxEI)Eu^Q%kij^8qIkMzzs)=S7M3rjC}~#(H{T
z#j^LI7*U@7{$n0+6a@?W0R$-D@1DT}@s2^1;&mlv!G@GZ0L%pdkca|$T_YpsO^w3G
zpNM{L&+ZRGkvJM8<FfXTg!vP_)VcS!_y_g$W_S>=ZZ72^qpe08$wtQ4DT$aaP<N+q
z3S4LVgOm<4Ll7^-LHw+gl(}Ym{Ug8=Ty@N^oM#K^!lBuTe*A%h>37@HrA+^Jpm7#3
zTdbaIo`t6LYFkVFzMqY?^@6A@^gG-0z)QCScs?sD>P5V=5xwG$PGgP2wKFHF{ZT%M
zw)Cva_vL4Ym>1R;8T(E?H7)|4ds;`=O8Bt+X}|YK(_%he%!{hP4&QTH3_)sP9TO9i
zw+V*t&Q?lo9q=I@9YGZ7ksb2hY}%7f|4xxrRtkt^-r2t#l9!iXYA>X)d)&unJ*!2{
z&!!ZWl=_k%_2OH6Ks9CZJNFVK(S9QY7lzd{MtG(_-#DVrG|I`zK`U?DHh+}buhIi5
z_-Vrv9hVyhUk*iYZRS6K?JY%vZW_QAh7~&QO?B>A`1kF&xP@074u^>JO)df-hZ?DQ
z+%=yJ7JeFbR1<|3&SXj<AiT^Gs1jqcKRwbg`8WYUfJKoD_ZBer$E`GB!ITSk=^Tij
z#GouctL-DMJvci7F`}Mtb{dzSTRivj^BTZOHlw#elxS^c6NrwifJ0(efSv3GXJZaT
zbUFJ;ybEVG!*oom!KhNeZI5$T4ufNRU3GPJ?f!)cTG=$L)cx<P82{JAb<b)L%lQE_
zfC7T*qB$&r4M8Mj1-1r@P$qgQd_I=fqgUxB(Ov7LwL-fY_>Um8aK5?~obBwh53oVx
zg%4|i^=GNWlwOmuXC0W)?xzWRvyCT4($P`F4Y#*zAIUPSd*^+L(u<WIYhc{v_;I0Q
z^>T9S`la6sfcF|H&rbAXUujg%%rB<T8%-xNjG50HyT|R?DlfkTOm#&FUZB+;ZQ442
z|1M$V{1u?YK+JdnBw7$ayYBI3n_0y!+y@YY%yC$}qKt%7C4R6LvzbGJK<_0=dcN$+
zepFeVc*nV*Fc9qBfRfckD1e@gYT$k>oau(Mz`oQl!DC&($Bs&UV{Eg_`_Ymp_Q2Nb
z&`OUKCrzLK5=TAz8o+*$LCAjCqY?zJjC3Ns)1OH1<(WnS?@w0RzFnLQupS3#<nzqG
z5S?FXiUAlD-wtyuUXc7%#$`Z)+35h{CFCyq0qE=U&>Ths^Z;!bpSO0p7<KOZK%j>S
zK(Ot!vyDSR02I0S-K)!{(<KqLeCJV?3*U&_kq2>I3%g8^KKgq1>t|ZV`IoTT*#!f@
z6QeY$1Ao}uj8$Eo^P8cmX_Py%B`z+G7J<PCes$p%C)sDQz&S!cYX4%m=5QDgMf&CV
z0sHYLNz3UmowZIo6uJP2(90Wza3Pw*(vUn_PrLwP3SjX9Q*mE48fd&~1^w(lFjavB
zZQ&gGR}Toy3VOhi&kgWIGRGXGDO<kpRrrtt_^J;_{lI(xC5IYjmhNjeI|>NNIA~xX
znt}KLbI~?<KUW7f`t19wXEHp%4o^iYbW2Y7syq@SAYwMF7QEccD8Dk)pbJpJrQ?WD
zz1lUubN(*CABkQ#{JNYQ(hwud1m9{aXsQIq$V82~xw+FL_*3mS`{e6$e@p&$fe)qQ
zW9J1&XGL4D?@d>v9Z0Z$sgKu<XiMi33TLuv`?a;IZUdX~+J(yp#~A>)ekp!hp#$KG
zD%-#&pV1r^1{5mT?Hn9VJQYB+(e!cfP1;;dh=`cW25(e0jtCYLnsh$(f@NgGWxg$G
z0|u$Qr<keK*yp_fxmp9<%Tf(EZaFeJ#kLWc9}evKv<|qGhaiB;hO^4uB>z6c1SVV`
zw8YXL^aqhsIrpT;iES~%uU}?-ApRrcUoXK4K~**{oP0V!!Us8BYIiw$cXmdiIK(U1
zXA`iSkN-<tx=Av(Gfx{}kLZHRMHgg%7iyTSRYfjz%y$j2$?w$Je(Oxb@4x?^g8&Pl
zPz=%!J6pk1h;KX;r>g@{Y%Cz}HXw5hv_KF+=42OeR^o!_0;Eo;>S2Bm24S_Uc}2(p
z7~pE4?M?aUv+pLsim5wbOU=w`TlTOPwz`ONg0;!kH|M^lrKak~{&crH)z7l&{qprX
zdjMSu)`ANAm&G8PrK+U@(?kT$%TBB2!>>#2>)fM{nz05m%e@)~f7vzo6D|Wcl8Va8
z$mmPvly27#GRDsyZ<fZ%N%n92D@SN6j-;`RU(k)1XDl_fl~h%uc^AY_&Of_R@4^j1
z9(B!&o_DRX%HA^Qk(KI9TLSj^R%O?gB>M*cLSUQt`IR13;k+J&gxj}UD%oLXtltbB
zO(g!SY}HJsgERaKm->1^FALR|OwPzKW>E0PT;?-NV9!2=Q}tU-U$+6{vJu$(sO-eM
zz=~Ugb5few(j>ZFdV-o^v>?|CU`N&bG+<MjpKo<L-~8$Nnyo4-i!<zPhshw@NC*8X
zv$uh{sFa$ECXg3e3OYe#<l!qZeD<wf`9igA&UERsM)MzkYz6U3-7N5KBx7(IeqoA0
zd`rVkiz>T-19Y3J<rC3-fcroG@y8$627!(kd5TM6laB7Qxpg4HYxEVavULD`3iDX7
zuL#s;hoMN<Fp35z(^YL9Ri!@U2{4DpZ_ZdaD*|PVlCc^XT5_bBDHa4F?%=Q`El^q|
z2&(z`c%7A|lUlVCveff2bTL$s`c2cXAm+Hk0XF7$0Oc|&16W15QvIxCdEm+RFV#S^
zGzfq23E*TcH@Nz_R6)Hz$9Q9s2%Ey0Fz^I%KuO`Wt9`?c^3?iu>q<Z`k3PuFJbz0R
z%mq>KUetbDK1+ajqbR*Z!pKGkc~Su|lh~T8KspE)_zE4sXo333_--3B(5cav0`&)B
zZ4egA1;qeMQ<^xQKO-5asKo(mY=%vYs?)p#f=v{R`3Sy~V6W*+uARxRo&FL_kbVt$
z&%PTkZ!0p7^E<)=@xy{NA!!0;Fgm|-@d~0Z{l<do{vba-yH;~pjN+Qof$lTT(LJ6D
z09XC0TnZ`o>@jm}X#<aWd;)YyRdJu%Eh-3qV9nt!7jBaM%X?s3dYd{GyzX?nOruuD
z-M(#u0(}>Dd$Ns9n0oMIQeO&3PhLTVa8&z|OTpFV1^)&G8mN{qmU2RJ+N%#UcahwZ
z0E`)n^to78*CYx)fiHLIlV$4om68}A&_&eK586kTGC?S(nrZ9Th7rok0Y^gt)Wxdd
z0+3?pqk6R-a~3jVL`mk!$^bg|Xf=I`ss8ZmEmMyG2~%3=A^J|(1m#yo?PT6UGWtJ;
zs*mLQ9upo5-t!Sy@Qjp{2r=dc_2$8^{&(5dzFa@ZAcZ3so&XcIw1fB@9E$oz|Bkl<
zQonp{*D|j2UtV+0*&~VLiI|N^2rS^@0dN`!SE*HdI;M6?zjC1mT6)v#fjm-rnCbVa
zr+Q&4YrPcE#;S`fkySALE~l8ZKq&67?$c(16N6+(j4uY6%s%Er{ERG@%m|OtfNcZ~
z(5Sb%Qeg-!>n#;H)neu0w5E_xcZANh0gEHMNBLxqm3gjkl3N*)h#xcd@#k-oliOBM
z*{2Lr{WE>w3k3Fo?$tgM-GK*fmV$Y<NH`nC&f<{Z)|Texw}8-Y>WC(+QvP!l|1Kv4
zR!QVEG&jGOJn&F;^ihwXLri_Yd!Sy270#mAc!le=m;eNvO%TC!%Fm{<q&-8hv2Cyr
zj`E71R?}_L>wuQ-q^fNnNy`>D8qBWm_i7pJ?=r#?eXn)@6iF!V^NWAD9(=`<_gVn7
zDfNc>b`@k6s*B3mi_dg6tz;P#;qB19rmf-pEbk|jr8tPxczSkHxZqVNStnO_Nd}2G
z&R&IL<1rH<wSoG&3TEj|tjJymxb;YUc$?XUCGdb29Ikr0(Fid%R{3qMT(FB2va2gq
z-v7h~SyjtpH=E$~fdeUxHvWOj;0B_boA<pRnref!TCFD+Pza%lm5>18&ii(KS|c}j
zXb0H-7%wBoCoTy?Y0q6Qi}De0O0F2fMHgq0Z3OZ#Ju%g}UU;OQzCx~~S=#at>_6|1
z#xL!Q!u`~%Q*Jv+(kVCoU4mR@Hm@Hr_x1g;I4p97+%{_|u$c3>O{J7USC|Qtp55pr
zErjylK12HQ6~b1@l~{kCY!otz6!R_0Y7)Yt`9BjCP^;uF9+2Xc88um{-a4RoxNzLJ
z>y?Sprz)ND8xz{<xYhzpGK7Oc241GMRI~n>CnB$2O%qN#=}yNS0n#BY0|R+h0&Var
zSsb+PrsgQlZdPqjSDVm6fUjk}?n~p88cfC3fhEN)Qz6FqKJC8^FIpjF7!&UMbRYm(
za6noMbkLT9n;xl+Y6fOZ1r1RSL~d<f&jt~b*GH<X==xvu=Ku9eb(hALR^5LWYM7)p
R`Ga(J_@wQLqJMc_`#<$tZ;Ai_

literal 0
HcmV?d00001

diff --git a/reference/plot-17.png b/reference/plot-17.png
new file mode 100644
index 0000000000000000000000000000000000000000..8c67ffa28f6163d933041f4ae892d70cc4de752d
GIT binary patch
literal 29791
zcmeFZ30PD2wm!_MRobF*T8|?NZQVdA3d%gEt##OpEe^<R1w@(WFvp?lsRPs<1exmq
zR3RW>j1ZDQtzb|<M1l}VPy&cR0zrr&K)$s%p5dN*{`Y^+^S|Ho-S7J@&(l~!viJT?
zYrX4T?^-{7=e&ExM;ks;QBhfe?)lbLMP+HciprA1A1s4+_?cHH;GboO9d>^U|H6-a
z2a^K-d>FCEJz7O&(^>q#Kco*%2B@ffs)By|^}hJLvA&dyKDPv|S&7~72ky^}PJea&
z!TxRAD<d^Je!q?kYU_VuSo~Y`F7u50tieXE#}mgd!uG!RATr{_5~p}wBqLs)lacFM
z`+?)<4ptjhypBEW?YkU(^2O2(FW1&DyHMn%+gSOd>C?w~DatFx+cbAoXu7Apk(W(-
za)e{7LRO(I#V)ua<rCsz|3CY3@Egm%4>vlLbR2Vba+*JiW$DP}2<Z~CW5<r+7-ru>
z`(b8Zm|t6gZH2vb)?@TLOo1ie>JCXg^eA(yx`A77u~ROO=RqmqCGNzMu)6B5(UioS
zHT?0JL3F`{tIhI}i2anR#PntIEZ|m;uI@N1$P!gx$rfA}ZTIc*X}3B?Omua1ljuAb
zxRMTc71hR?8(UpnEj-HLlj=4`y7?pwQWf(H`SYpDDTPd;R7HKVMVt#4F4P^F?7e>d
zx<1ysFL>VRfj54i{`SP)wei6;bwvIhE%yH7$B(IL=HmW_Qxy(UDZ-E`=Fcaxe6D9i
zr4D`cU|6@t(jo7VUHiQw)$&@TC3cjT646!eZ43`SgGegqsrUHfb}yC8a3MRG>fe%M
zDzUmsc@Mu&{U@3-H<K;AFh(%8e8mdW^q8GH82nI2XXjL1t{fhJ?b!25KjBI7(=Z09
zP*g&l+gH)0`0e^n8td1~9ci%v6<z$>pEl`ZV<B`87uHB|?n2y?nKH!JuxL(nH<TY|
z*rX(GWWlr*yG#^Z=wp(7Gio~SG7P?as)IU73mV8tmM_=n7d=C=v$OTMUN7!tRMlii
zzh9h(Lp6DqmI{zI6mxBEafqE!%p0z-^S!q`lA)cj@Z0FRAX=M)bmGaACreNxOG|l<
z$LMJ~&phwdE_`q*X*XhPS6QsK*9%rHBya5$hM2)*=x`sTn}sDN&Yn3?Iz7YXa!aYn
zH~PYSuZZB=rhQ=yPUJviiFVCZp~TnH&Te7idUw}hMsL)k@C?@iMqV^AoOG7Q=vuRo
z=Mm#SHRj)3D%elwJ@ZgE=;TBVHfP_wdDCBPb!PW!^X=Osl@k*aMQC|AgU`tq30#{y
zVNnLqr$KbPOa4u7-@a`{0^;M}-g0gB#L7^k%EJ%NnTH7K5+rEYbPb)iHs5~>K9Y&I
zk#GG^wmy7Ml6>NBMpe+wg&k*Cwn!B9QNM=@+4JRyp|?$HeEhw9|NAfQpDipvHgDb>
zUPkxn3NbUJOf;xUyjh8{WEgasb4m4)kdU$Zmv09q#$B89bw4IHwoTeI4^E0vWT5{E
zMn;sR9}(|#nC|i@w0c|TXZbSo=}1g#ZcfguKh`Dgt(iJ8J=(<xqDi(E)g6N~Bty8b
zUcIuO5%(qaHJnnVZ0AZehiBM<_s^_Q&VK8M58$|Q(|Y;lU}IxrhPs_^-9C!mU{%9#
z=%bGr88BU=)H&Emif^$p5Blp7G^Z%T@Ns(0WTQq2H5oR;Nxv52A#Xol@7`}K>y74Q
z`ctqKr?f1SeoW;kgVCo)O%mZ!&ta~oFt5&|CO+9WG&lEo1aECxw}hC#CHUMufBrl~
zZ;*!1{z805u~RVhM#o6mhV|<ceDwz9s8~=NJ6dSCyZ4)X=iv{FGFs@o;Jaacvo!e(
zJ-BNj7E9#_wQ|BWHf{30B&xZ%Yv79R$v@y%Uz5~ZxG|K$S8n0bPLVXwoKuo+WFEOm
z_o+-#%y_E}SmirU!Qm~`E2{JV>6i?TuNM3$XJ4jKFM9qgVN&a&lne7&;vRbNk?)0`
z*jx~8x~Yri$smK#>gx2U$j{EMIdu5&%d4APKE&^MJELj-LqWszQvGEv(O<hof2~ko
zr=gMS%?RszWUuF@El(c$=r^IGRB->Sx^MiA&&Roq+T4c^A8MoJp(YzD4tn)EVLlZy
zvB#*Vy&l8K*;&(3x{A&_znV-82*1Vu{QRe9pnuHOnfzXfE3+^40OsptlqWigP%evP
zGKr8fQ0~nvPWw~Wc$`Mk%vi#HtgFl8EY_PP+S_tuYKiCFkc5cIw@$fcG#Y)unKpe6
zks%3za2DQt993(>E!3&G(KXsP{{`a%{AuzYv_5|?9B#88bJ=uNAwE)_Aa{Mx<6P2_
zmy^?zDH?S6-8Ms11uNSkKcin!C*{H}WqXYBS8lYJxY}9jMzZGmX1JCMz%)0lS(cub
zR{oqxmbeAewD{~4g|%}knHV%W5ThIM<y>#ud@t#->^zeb(P}wdCZ0~b2*)i0w^cU5
zadC0nml8PczF9Rd#pB@CuK84SeNmKGD7uffx<o~<`BP(V%g`uh0vlP@;LVI{d6UTE
zQ|maq*%x69#h;ZDxMjH$W*W?^3(jUNCkA-B_2H_z@i+w?O*P~uC9(t+hV7(FqC)fB
zmcY>Ns=)&JOc;ZIB`<Hz8Jh|W3^WAy)Wlx;Ls4HC#g6NuE58YYKaH&aJNI;G;XiOs
z%5r?eAFpm%pK#Kgo4#D2lzlv#gc=zePdz<-5$1;dMRZ9_xc5FdFgYUIQ<9nXHHJmc
z8s@aK^*3g@nq|4#-MXiSKl+v|-iUMmzF+C7r5P9k7LEJKj)erwWW&X^I`UU1XND0}
zZ*Zt+Xk4c74Kmq)N`G70!qAqhgU4xy0iT*K%o4r0diAO*ICdRfU0<r`H^eahPyE?G
z;LfKynC9ZqYDqk7lTUSb@~c3~OrXT7{ho1EJzpZz&1pG;)y4Yziyo=lzWFX3-2Yzi
z0j0q-<(H>c-GkNXRvRE3p~J#vSeAJ@52=Y~hyDwG&?tPGVXwE_)`?gtn}un`d>hgo
ze=Ralw0ebg+}PV)wCNl$dZ~%iuRB%w<8d^)U51E(%`p+ZqB5U#Zuah`f402$tWMvp
zJa2t+0ZC{E{*gkPe(Ev0huK$vR+VN%P0x(;D_k&e%|9X5jZIBt9liVa?{l7nF~Y%x
zs?+)7F07ZUEAAaiAgdD_W-Gp7&?>OAG6sL#8x`b<in8^aonhXCi%Uuhw^_VU<e%O?
zb-GXfjpXpzm78*uluZZk@Vrl%YX0yqdQ3mPqPY@}QQoSHgj3P<4Wh{k9DCP$_7m3h
zG*aQwYiDCK=Wwdc&>+OHsMj;ti8g($XsDEK7dw&ARLK*^SPeTlIi(nJgURAvdHwA4
zs3)B#%XAgo33!y5g!#wByxEi_6SHuv$GIXRr&9u>c@@5t8(No$d$zuZ&vuimz1;ki
zEba98JBOP5<Gn}A3K^S%FaB@6X;m4CjR!L-d7D~m-;;pLJWsVT=aRJ&UtRT9Q?!DA
zt<df+^uOQV)UF92Na=y^VZnA@ybo5o;bNmc^_ky|eZjQBw~Mx7+wg_06L<OJU12?U
zM&ugiVP2MR6+gj_224ZIS}rewlkc?k!g_E|02fSA4;oJ^yywobP%OqOe?RO|iGGm{
ziQDJN2%DeUOyiHl6ntmj?G?;AGRmU~bHaU@apS(aBj7Wy%I~(fx35ME_(x6B5<Xvt
z58_az@!fh)dwCP=@Vf^}O*?TUE76h1WB6_aTfi-Pd7#`&e#v9B1vMCzDTE;mer!<C
z>lYrQxzsU<Okv3V-gyw>2G(Zoi6yEllaKzO=(jq<&`IFK)EL)7;2>nDbm=6-!%-Q4
zbBN!yKjf)R--mf$wj~c4hX>O=6qwCs?p~}nSH#J5O=WkDhLT)+-PqF0v#;Gavz&20
zLsE(w?5R5P$0Qt|S+82PO14Qa4o)kEP@Wt$;YoUHqJ=LPtR;0*)oXo|C&~7D91d9`
zkY%{ebb0u){hHD^2^svQ_|5<4=RZ3G{bT!Zzx)(mNNmntF96}5M%h$RHJvxgfM95J
zPb661%D}b)H|>NJTI?6x6x6OW#Ef(s4x{SYbm5(29X%eSl4l+jd!k%0@=PMj#n6<@
z>|_7UGrx*k^vo^bnI)IqeB{R9a(UO6*Hm_m&P!i5{=ILudFPv#j@s0;AMJGuPT|9r
zv%3QZGf-E49)bh@-B88z-}>=w4pv|uV4xqL5l(4B!&cyf{uF%*;b-1QxX(Cha#sgD
ziuvsP!d`G0en*ZB<+(PW#~iiS_rY@qocB}Lw0T?mcr`g3cKO=rMAk07!8t_BIVu&)
zt^Q@3AjHf!>qbpjU#&WhJBtBk6o|krsKfYn&rxLKd~zsO=3YJIU2<d?zj=MP=)#tX
z)XDR{$x)cDZZ|WOf0uDFJ)NS9=3lvDaR+|&#NdD*2@LGodSNt<dC|3*xhzEktT?CO
zMi>l@Qqh&P10y*|uaCzi{m|Q{Q$vFwd+nVRGj7c(8w>%X;ZEm~GhG)RTr?M0q<nOj
z7<FC%fcNmy&Yr>>r1(rD>v&4^4+G*preSlhUY{o!BGmBj9f?p<adb4xH3)-nIYX3m
zdZ48!BOSl5EHeCkd<6Ypyo&-}AQETkg*fK?DA+3-5(*Yph=&1RW5PYsX#gZ!*w<y2
zsH=TV!p#H-+Ow7w8hSlR_QZw_>(Z|BX6q1j^%W~@e@3WOY6ZajgTX2HjY0^A1WROv
zn+6E;XfR4LCJdr`aJs|VHr3MT&bkS{7<nuE%c~hxaT5t$uF+<>Es9_o8a0{BfAi+e
z3fh6uak!?Nt{glfdmGmjLJ%-Pl!3;JE)G#UI6_WTa`N1Z!Co9z3cP|h{S6c74W1wE
zs-VaqAgx>~fH3dnldC(jIz0+2e+}M=UEOtkatEsUeZ<zHvRm|GUSh;eOSf__OJh^h
z%a6SWenzsdT)9VqNc1Vv1%6cM92KrN_!{izByx=IQMjkdFF83m5Hqr|N#3tFxE19g
z*#{w5)i4Ve)XDs34hGL>Zycy4jza%r1#kAo<39U{Z}4?nq!R==KpuGUgXpP};@q&r
zL->G>(mfzz(t@C#X&&11rVQep)L^?X_H9plclxuszxe9s0261JSY6EI+ZQih#9=GW
zs%xbtVmNbB$xHOE?yj3_P}Qm<1M27-85yy*%5Tl7tgKveejvSwm-tJDH2*LDn(Tbf
z?n>U(r2^Ze8Lt9BttCk;LDDc^S4U^1wwzL4CvA2EU*`!cUZI;XpA12&py5No`OF*!
zZ}wTk@TR8bs~sbG=BB38T%@9}CVF@YOnG>xhtShLp(Asvrx?ZH=#t0!n6lbas_F}e
zF`;dH3j5Vg!^G*I8u2Zt5}0Nz-Oa<i3Xq}<for}?^2=4jlr7^QmxKi#ITEIo%#Oc#
z&$T(=R2x6-a{aSs&!*9ZD&V6&M-R|Err#hfuFY$QnwE=I7NYb9mp0`Pdk&mnRlR5M
zJikE^;4tmt<kYe@NaFcCRa`Tix|O?tXe=Y8&3phJvJ1P>esqhwMS(e>lsd%Cbi+kA
zotsV0j7+}^MBw-K4?qBr!IbbChTC8tbcOfco18<|L&&@R3-&_$FUkS6fyTzhBMy4u
zPB=<y$~6o1$VKv<13MwSRM_jaxkSl$G*9K+o?x<7zHWxAS(itJdpt)1Hb!ZMa)c7~
z7RE&gJoZR?cU_NsysCkimh<_*^ZfMFPYMS;j?LRCvL}rv1h7{NKJb1~Mw_<$EE;A#
zoEM!+i5zRbtWR<cW?6CrU`V;+aZK>uwqC(0(bzn^p>5fGvlmbh8L^D$uRo!_HAKs+
zX@ZA@YiMew?t<Mo2Hv;_QFn21p(Nj|A?}`5oB%}8e(}A5G_HdoE2fOsvq!oEEyxfx
zAQViL1F+nevoJfVI6nYRz2X@-^-d)aFDbrGQD0-GsMsm$uYP@NTDG~7Q51@ij+$&3
z1(a749;wVH3*_DB4cTw4i!y{l2rH88_2Aqa3L$zCZfPTe5aLPx=jA^=1IIb)&3MEG
z1Z$gpR8!>g`7SWJB*U;Va6NFs>%QcU2Ge$+Vh8C>AVyDY^}K6yFMjTykiD}X)OZ(&
zT&P}8N2kSh3*N+0uyG}V;5UkS%>O}U0R+A^4=VGWODrudyG!Y*RlHeawBU-U8!gYx
z&!67~H1mto0}ygI>jG4@1`{$2;lENHt25$KARJ9-d0Df2_ii_&<|c18_Z$-+X8rX}
z+*f=wFficT_OY`r9GI!%;^G-y`D<VXeYc89@e}={_IidcQAzJizxdLnOH)BK&Lxo>
z)|&_L(G<;rAUlXgu)ep!ol<)RVGN;f@O%V=KR^GqC+1J!S8k4Juz=p1L_q&myFk&0
zg6o!W`QnCQ>$S32W*?vfZ`8=zn)$<bUzCH><O@fq1wV`0u(_kmJ|D)XV}aD(ySIPN
z6;-3H^DozO-iqXBz=M`~j9NSBDPJ~fgy;E)Q;4YxEUYdEP(Gr=wS*(v@sdrjzM?sV
zA;#I{YvRR7dOPn|JkZ{YNmi$sLm*uX2%;}NY>{Y>Zhfe~Aq|LGB^7BiC`wMoNy|@m
z6i~r#=4PD(Nb`?T^mfWQFw^f`^OMnOf)Ga5>LfHs$8~C^d7g!Fuby1p|Hx7opZkgD
z5De@!OzM8Lz*%+Cy7Z$uAdWL#@xcFT(X7KiQpQuE9UUF!cRXke7iVXme9>mWD!(CJ
zfDA`q5-w_(+im5pIHgF|@@bua+}gS@e4sS;S;z0hDht&L(W=RBPqpT}Ct2<06&a>C
zXo|8~fawhlOp7zBZt;M5ZYY}luky!acXNV~$Xkuy5td-8xnYE_yi%ixq0}e;z{sc)
z(N!0{tL@9gvk;vKFN=!KH>s<uGpHdJ$!{k*sQwU}Tm+a5n`=<r?rlG-)U877?BXJ9
zABo{@e9`=8KM1kf^1t0k%%z2E@cb<I_x!C(1+Kv<yD^j87MD$t-|5L#I#2lA*#|NH
z%~NgGY4k%S9hTt`d{I#!X7q5YDvrBu(b<d)X)&D6UMd245DCsm#j2`n&OJalN!N0F
zZvSv!tKcX>Iz$W|%@e<`sRmJFmUhAstOe)KCiV;*`HSmZc;`ClL;ow+*&9D_u>)m$
z*}L<!d>2FNm4Q1?z|N7VO4K)o_SOs+DCmfS8nSNAqGvN4e_sb|*Y$Sm9vdJc+8m<x
zUvG~ONQ>C?`{s_)!F7K4_*GKt*ZcNwTEE^sUvvwhFacAOtb3jV2<Zl{jC!LpXnqnm
zJ344dhr6kfk(BM)JVotgL8694db;snWt*)B)L^qJx1#oX5;5#Pzl**#QG>gKXy&>#
zWkLz1x-YB?9N^htTDWr+I9v|0+w!tCfR;2wl^_C7kDnS{2Z$^bAJHqYmN-kDD|!Lw
zDV=m~E0N&{ylKpWGprZxf(>lFmUi)COSvaQ98i=|iY41|L$Gk21PO$)h8wlCNG~h8
zFJ8Fdg^79qWuC*CzAa+ObfTo3&MwM`;)_J!MoHfXv*K|Eo7zq68Dif4-Amq2%|@-U
zVHhPxRE3Z(i=HCG+Lk|yW)Mn&=n=ZG8<Q9e)Dqvy`*9bRg~%PT#P`}-P#?2D6K10y
z$s7Ana0H9Plo=w5`xCo-e;3RUksrZsBEyLM1wzUeNfG@u7nE@rCClFd>!v;?g6iV~
zZ`!cr%|g;eMK_{M!qlS1PDY~AbliLwZn-ibKnyK*%88lT7GV)x5=znM_UyLoGRBe*
zZSzgZh$akQ#B$Ch|7oMP1RqT3HAJv=|89sDOjE6a>4MA}MUqzPg)ZXm{a<WAtx%u4
z-wO9)$=lIQHe_vg#q%P<R@b-JZHs=u_w~LeiI%5Ek{9H;h`v_!7;#~XYwCgJ5lQXW
zW&+iFwDw5Tsb#3N`)fWYdCMvy<T-R~%57U-^{?|zr)GS8p3Gc7b(faz6hwS^W6O!h
zt3w}MoAF#WPOAHbW_pybcz)yEO_R-|ck+i$-ra>|H*_2{Ve4e4gt!vt#bRoUL9N{e
z@=Ae=_mj9|Lm#mj$cW+5Leik(iBUNLNFxrox4tJyYe<UunxDH&LON(NQ`ew)^yr=)
zabw+)>}+P-Rh@2F9X4gfed?Nv^ChR)4BN~Pi5ZUYcN<jf6v#`ef4^t0KAS47bRYu3
z{>QFqwxS<xwWCk-cMUm91)Sfn_&Q4OAe{UftwY4aEl#)dGfwkn%AwGjCgRPAa~oTG
zS+ylWHpHLROj@7PiS=3#SbOi}?ZRMtblf4HtzMW^Qd+O@J0<fiD4u@zp<vr{&(pV_
z^W7e=?Aj;~>pOsHIaP&C$ev$6sD)qgIMqbC`IxSvH(S)(WJ54S$Bn;D_)}&0<86&*
zlD}vHHdn;QEBjMIvF^>kKSLn3>xyyqJf-|;lz7P7jzcbQh~ZDHi#H)p7{s}2_Wg8-
zc;dgk9B;b0H=*daTZl_@WyOhmvOf(Gf2)rS(vhD=$N^&2uC!s|vHMMeks9qL-{<@L
zi9Hsd_x5x$=cpnRAz?Ma8xHu3bIxqGCBB_^r0|hfq^z^V`eWjE=f`AYw|;NH#Ke^>
zG)yuh%fr<LXR{)mi4UY5vQ(?%km5<P>xUO3>+QF#xI!eMZN!=Q{rD=`9fYi1W5zw#
zkw-YA`t`Ie16~q`r;dP_DcSy3+(0aOE2{h=GTfta(IT{Ncm(OaJgPOFnP<89V5T0A
zEV`IR<dbWO-~Z`L|BcH5dBKBd<0iOJDo&}kSptt%{$<fzGIkZA<obui#m$h$pH~iO
zI6MG7Kx2VzlFwz)G@W-9k!j2KRd>(TL-3~QWs{001%qjvy}_){xwfdFdvw~4^{f|s
zy%YhH1SvDJtSW?1Q&{M44Ll)>z*d)7p51*<+N@83(5g36G~zG~)PN}n4k$l(E-Dg2
zA!o1sji!B+JLGkSPMQ|<9yJk{(%IwnCzfb=uo9=MsdGCa+6MTO67s_Yq*BkZl4PlL
z-fSiKX3oI(;eW&jZc%EAvsulJ7d6_#O*SYuM?dIm!Bg}r;eLQMIfr4GkSE`rb<P^c
zjYe+0EEXiOpN&p$D9V_kf>uF}hP9r&76a)6Z)^yXop$$vyUMd+R7seu%Yy_1)tXfH
z0X0TPtB$nfkn_*k5_>Z+YtY6vsp0$C4QT2YTnFmhE=&VU{uCu~1p$v=B=wBXoTbk3
z5tdH{Ll3n*;P}6n5PXBj@5#lyS_p1K58j?xjmF*epp^(>I-DrhN0Sa<6<MySQ2;}k
zS)teQ(bu~NTe?h$ZJVdY5np?0!{gN_eX~VbQRmJvasQdEFFpdp7Y<pRW1>~Sot-x#
z+sk-6AM`CBif`*@rrb%e*8^_q$Ps%ZHw%NJ5P+2XB8gpf(4b`C+!<AB3|42$J@5SB
zJ%C1ut^HHEyJtV6Z;p4yGF-!aZdHS0JvJdHk~aU5^x!K4{ApEocUn1(wiX_qzl>0#
zJ{sagOlS)4MGiEt)<592H+bF+UHBUOQcdL1qp#H0D(gM;0>=BN%8PVD&2nKSsG^th
zyWovAfGp>OtfazOdMS>X@&gteMC-y8EwBd)Geu`oIg~+&6z)H&;d+ME3}#X1o=3G3
z31XX>AR1-*+FI7DSwOemO9j~tNdtO0$~nlzYy{$^u!6qu`$_g%-GoVC(nyTd`Psrg
z$Z{teK(6K;L4>{oq|+=p)gN5<0?;oGR4-u|gJR8P0TKZAqzOkiDW7xGCMPHJ(Pm&;
z_ZMX_5O?^(gLA9HpVuW!aeekj2BbxL6NX{pt(!eKZI1a;LCH#i!sUTzYAH~xxe!8x
zLx>aKR~zfgrw6+Y`~=KMx@m4pB|s&&3ZMCKYVy%YFTH?H*C|b_n4=5I*h4=kAXy}7
z?p1$i``g4sgf;gJWV=bW=&oJ61P6mz<=r7Z3;n0m1x(;q#lWs@0+yl$Gyo?aOfIfb
zwADv-E_<X&rzD$74xjKCO)1JixWF#({rvnW3;;#Qh^|}<z~+5A4-%K3seM#el#!&W
z8*ga!Tiw*@5$m+eJN|V<tEf{hC@A8;>LQ}n#4FP`%6Ieau_<isTQH8I-mewm1_QG~
zV{2<g=Yi78h)`2QL&1D754pW3T?Z<B@)45FLz)g3n9lK*BgWax#uutl`bA!5_fE;~
z`VDR~HH}TdIAha^g?q65r3Y+n(drE8Y58_@LHq!|e{k~1@~8JCr9RWQx>sE!%zW!c
zFu(I0tjwad@+>tbYNPHCE{(tc{`)+bKQYqQ1KU>)i3|0uV<a%I1*UK3b}f6*hgjlz
z3^P+xI*EG*kAp(-opL%7XPfNxj+ty=U8j-$$~I~FSSUY!<`Hb!N+a%>+;+*ix8Q=Z
zz<>Dr0vc*}#eXkOE#JKmtUT`8tbyI=4q0e_<hvjZ)X~GK`ePl%6fgU3qjgg!PH%@*
zs)o&`gO+yA4&W(tCk$xMAc$OGAwd+C1PLTc>Wx_I{MJ?Wdbz>0u8_XkY0s%~FnaT&
z$b2e?WFj=Pva0=@8?AA%al6a=gt6Nar&G9bE3CRQkT#u__Jr~X522m{n&0ge{bVF2
z2aio0^#-*ae#i4iBs&lZO>f@X15tOr=rTyVI5D{R>inz#6G3L3#D;Ky1-bv4a$e#%
zEZEZXF6)UKZG03}(4SIw6Re!Z)*`P<B4e}|8*A%D2b8g37qrixXL5V>1P~>#$}*z%
zV{N+GPSO@cVha)4>D~I`w7+5Q2e1$${{(R#Tr_dScJJR3^<~A;_`}$FtZaQ*v@cen
zEf?!~t-}9!eD@129r->i@yEbuOwHLdj`+rwkt*bDwCJUH&Y0@|%4CqBck4ed#cY1A
zc~5MM`V@%f9(%Wahm|=?pCaUyjdR{uw9D>m#FuTJ1{=BEn?H<Q-o2jjIk#{{<AT)h
z=S4r>blVuv<)bveu?MFr8F^1H5Z|ycpk&ot3mvs+G+XA!NwPO4(2&I`Q$Qa>{e7gg
z%Ge2?$_tBdDQ|yfbv-k1f<0l;Xy^Am5gw|Pv{(3x{l%>tSrJ~?T>GIh4rRHNxJv&z
zAoIQ(`iQ~MkyqMOJ@Lf6F#p5bh9a;Mn?_6GBN6W#a=j+w7P6h90x`a-P)*^JniI7M
zZ$2<^l0LAhy26~07orB%q20vp&HJobFHf-^T|lwGl|1<_tOAkq-pwd6qQ8G}KCO!+
zxL}m%jefgT{n{*x))Uu=@Y;nvLr9d3e%7Zd^Y`W~BCw{xz1jLbJ`o%J3a!>Dc9)oJ
zCN7osh+*V*Cv;QO^TtDCDSvwxykY30$g~Rdh_km9@yWoujYh3>@<i&($P3<<@j}ku
zPn)8<K~a+KH|DZZQ0UpXh;l7ZH-B-@=_Kj=s#=GHZ!l|BzunF$9>m2qIv8`kv-Nug
z1)>t^!&SdsL`Jc>wuUR=i2LNa;l*9?vDXz5Gh4sEl|&v?=*A5f?m!LfZ1omr7IASf
zD%iayX04qyb?$mc<|h2I_3N+Y{Z<2RtO@fnIXFCuvNJ>rd++HGx5Qs2l+|R}_i;Yc
zDX%z+$A7LoEK;FIUvyo%_tXj}$5Yy${_)<W-}tL@j6H5FX9T@`y3?ccB0uBI?~@Of
zHs1N;r?*v9|Ge3w$JPAH#}|K&d2{mDy`{bDK8Vj)YI5`9l63>yj#zGAxu#%q%d0U(
zQ{GQa_g~FlII}**E;xVMrl(DyklR-CrrO++#uw?R#fP%c;8W+uHQVF^s9pQOVtjXH
z;3$^kPsWCa#_XQWbf9su!=-_~8;CFHO34r{r=P9@Db^^O`X#p>ZCr`SndriPtfDPv
zAf4*P{%V?-qb&}B)w44RDCjQLhVD=dxoaUD<$jA@Mhgl=a?~KFL#Bo<1jrU=+j1rk
z;pB?;XnI~sx+ZK#__YJX4J~#AR-Yu7?<#hC?Q>~_6<e4MDiWa!BrgrM<w3=6Gn%6>
z7CE}b0sX`4@qimyTJE`R=Nu`?<KL!ji6Fu*mAq?fb%E}Y=-w=uAS~CROP3K&;a;`a
zrFFy=0&jB8M$g|zJZp!Q+qpF0!;RK|O#q>Kb-LjZtB3Q04-6IqgAU{BVR8N8wTm0W
z?&zC{a%G>b^Gw9M$l`j|A0)e(O(lPMqxFOumTb(G=<1#KA_57Ol96i&8IhktT+)9b
z%*mmKE#ImneUG*2$hk-p*4t&P*=D@<7b1{Vaqa-P8jB@vAQ4a6`V~cecy<I~#I^y4
zO45;6Bk8+-CNBIWnzcNBcWslpj=XbA)UVbiCU<DO*>smDgGvy$78Xi=d-!nA03_8a
zoTU169vx-piw06sQY77w2)ZAwfJ|5d$UT<Oc|h`-bNPVXbcb@8fI{*`Q)oF{LukP&
zA;ul=cpc^|Sr+e?`oV#*IIDa%qMs%!rMEJ1xoCv&`SXLNyjm7-7K30-v>pw!i5q(k
z5~v}U$6^lnK%6PAfUmXLN*``^v6to`$^`Hj)6v7Ygz+3wSVm`iFUpegXg=lrDciWW
zkn}eZt<`Z2OV`>Q1C>dI3tb7$onDmTrd?CoF%r@Pw43>vGiM4Qmq*U_$%bsFe#eSR
z#q4Z3jXndpIWY@-Vm?9!P$n#=3v7VLDy$7fF;&g@{xgU>#4*;1a>A0=%Wr1s$5S{-
zbM2a~3B0t8mQO7cDvrU|Ath{$iGT#w0I{fI8i|#O`_h3`HAmzFNLz?m?&y&fiW-Fc
zcx4oI?t4s)^QOqqHlg@xcZeO##$DHDp%9p9k-P1m@YVb(QDcH_*rBygF>ISRl~+5}
zY7JC5Yy>>TbHXw!7$e8E<?7~?WVllOgMxsXTeVU0MNzUp+?70YF9g3vzfI?(ts5XX
z+X?%}GEYRNI!;F{7z3eM0Rp|9*@7h5c{(qh=EF)<L>_3j(+Ad#(PHja(jkw!-o6K0
z+ZM#$%;f;Xf9!GDOBx-Lw$}k)r2N_$6abX<G-}`=t+q|NjR08Hh<{2gc=qULP5j0O
z-&ZHiMGWt+NbJ1Sv8n6PaakWai*su&sDLW^3cRyryV-}~V?V5z%4YS<6cuG;*-g|h
z3CF{TPCyxyh`1)#<{a^e?Ud8At}fXjnrZgRDk`3mX1tNfII(c|T0{%xG)udN%}bnz
z-5UsL*DR!_h*>DP&Pu+0S>G*9(=tl*W9d)0FFLN33ev2(eb~hk>vA}T8b&PpxW-jc
z7;Sm&8l)eDqZHmqjL%)rIFmFtZJJ+zy?So*?zB07+H|JJ=#*R8!O0QCtwd3I2UmQR
zL7LfWyD)Fbk|le`<E*m<jh~@a6y<^{{1oPk?!)xXqhiA%uPzWnXCm|S^9-GC1|<BJ
zpw0dL{ia13=GyN0{>pQ!^#!+qET266Rs)|nl}Db2O9W*9#HAAT(~w!<kY_lMSxMKC
zQ(>2~;~_!b2C%Cy#H<3&9J%F9_J?r}diuk;Qx7j~Hl|eEujb3fx}#mNthRBIg~fBn
zsu!=?uV?9SK}KHD=@C9QI?9}VaaM~>>AbanGfXELi17*-u&oVwPVf1C`)o3OJN_KE
zZ}i4W4M@MjRP9k8_SgnEE_dU`jdO?e2K(r|!sarPm)_ul_#?riVGYk<*1e=e8CPr!
zSorriCd-y<sAUn+e-)I}5bz22+b0aP=37ggFc^ct#Lg~t08Zy9mi#KFFaXz4zldqV
z@2T>rDM5as90=(V%|~N1K=WqbmK9B11nl2w%Np>PK{iawSy}=@0v_THv~UqRYp>^<
zH_|cxgzsjrXFLCva7_`Z7LxY_V*4In6!RD@Y+=W}IK38<#hX#H7)TadKum2;1xDkJ
zb4+?eL&I8~n&S4Obvo5EZ*9{+R;@ci_<@NfnF008gsGuYFdPe=LoK;oWxgCX2|aW6
ztilX(`eP7$q<qO0qET+8orzxc)>c-DWf{^TWJDrS-fzh@uNX=5wlpz$BgUmG$$kKw
zeJup6vuDp1f(Q&K<5YM@m~+gx`bY~I7mT&`WZ#7ug6we~WRIV&ZXhNldOAv7aKd;a
z`NmmO1cgs6MFqaWDau>>OP_|Ab%ZfGj?Ot1%-6$KO0}CRE8nzk-P?YcUs$OC7%4lu
z(mNe4p4DO=28lej9v7HxbxwGk0*s9gnB81zT|h)cL=za-M)gfrF*~r`5S5eSW?U8p
zD&dJWruFT>E7zRiWLI~GlsiN@VHeSYOi_g1pc)#6-|u(eb=n73Xo8{GXchBHD~=Hr
zp9%zE)jaGzi5=vscQk33o0!A|(57L1C-Z<uPYGbxE>l%ig3hNAaoJilHXdW8i~>zK
zCDKfta9VkVnZfnM|J@#&jyiv)B){KdGgoL2RU%3Q?p81*H#+Vsh{d{H4-nWB-L<A>
zB{6BO^=<yMI|4|Y=ckF^BNAtgH%*AW#=aqbwMa4LUV30a_^U%VgSI?PF%)ZRx!+j4
z*p`IzA5YkQ#^p!~B%VLMdrz$hyxQS3t#w(5i=(s`0g(MXlyU%LCLJW6KqavMXtAu*
z_OcLabI$K2kY2s?iST}nT?!`eK^JU*6a)^fT~n}l(uoK8yO*KY)=e@d!oBsJLU{iE
zv-X?05tv(R^tc|t#~X1J8R8x-wkPh^|E*8n$i$3qTl9E!!j|5A`FsF&BKiP<Jyn`w
zql-`R9}V9jUFR=+hjDWKV=>a}yP=j@ONkM0<797LXK<xsp)pKB%I%za9L6t?-un*K
zMOk!Q4bARIO=8UJ9-&W@`HgK($B4(wdnhyB)HBl(6pUoQUf2*l+l4f>zWdvww%#Yx
zA<6Wly7&Y9YU53B1qC;ZOH+<qmdFz0@hUQv<5Tuv*;4ujc<!O$W132S9@}M1lk@c5
z0!ExE$Q%h>8-!U?H#Yn6x6QrEV^b=U#<vbveMQ_oO_F1?M%p@eW_U!V(HGoiO)es0
zj4g(PB5!B@UZYLDW=1Sb){rn;XTa4)1%)H(w~0>>UsutUmZA&JYmO}4M*Ob!3Rde0
zU<ZzqG|w@dOT1aHUIU5<7wOydn<*sjS*-30?zsp0#4$L&cQOOHkFFF={vfGDfG{!Q
zo<9F>zDq>Au{s+rr6s1`+InJMg8Jl+d_^cYk82&)$L1U{b;L5S=`8CkHrIiW*hf2w
z=Zdfg#?grDNxd)(7iFQT#@yBC_b<}LCB;aB2hNt1+t`f}6!)PI<&_90LzKRTNie31
zqq5MQZJnGqK&!swULStTCf>~Z>hJeW(+r=b%gu>)`wMD+>3Ei*Oe_d4Y#AW^dH{-3
z{=<z^OuBV|8uI_^ol`PeD4NtdI2udrW0f@z+Z`pP%<txjMZ8iJS+IDZ4{<%qex_f#
zVTdMO5)+xC+oG)p>J@wY1_}+HE`B<*ZlQXeqTO=9Ehb&5-6Zs6khsRwveAX4H(SIM
z4<Pq806{zZ4Q<*IFXSnRz}Wu>fLx(V*os!S!7YuNEq+(U+4pq0(bQz+mLZD(s2}u%
zY(TE~)*wiWCDnifWFSiFLw!u!1|`}xw>pFR%sX!5fZTk;#c*)rQEw++$Y@Z+1f;-?
zjHo`GTeV7>06~=7h4ge~0&V&_&IH{IR42m9ysXwE=g(+hbB$%f$(}%Esx5cam~~R-
zZn^t~xYT$4wN@#8A&fR%OPvOZ<vp{G7h-SlSJDHeonI7rWr&85wc0gXt4~g{*-+W{
zh5+fnPUV5*kgP2q2hB5J?sSC$2ae_l_jPBfu$@`*Zp1{Sn7x|C%B$AJolMg8_I3B(
zJazE30`y^$O<5`d#OMbol8G8vLHw~7B%!kUvPVTwIcdOE!)!Rf{BB3V^V{tY-UOVo
z#t|!!GrA#`PlQ6sq%KL$<-ERYYs>9&&}-vEMk8NMb_YLw_3~>FWir3yRwr5bx<J|C
zip#D(JfToYp~#rR@w{IpAeTx=D0Ul3J>q;X*HNNB*D6k!`gSS<w4IJlPM7_yfWaRF
zAph-RjPnLJn@nnN=Y4r=4}j8DuxN!MU&#3Q&Hd?&%_3wcS9Xjf*CfrpbZ;Re3GHL!
zP&{bpD18OGG%b4!*uAbU4@1bxyl^ZaCg_me{CV&CZ-NLsMN>1l*T19WDJP?<I4Q9$
zxeLM~%`&JZTx}fsp8?$O;;ZX{Q#R3ksfuysFTBJD+$6%)kRAg-<Ach9V%ry~wtk}A
zQF^^3B3-fe<xsA9c<T2h9W})n(lQVh`jr@gT%-z@i~OG4rMhfcanE?15$oa(%pc0f
z)K{)tX=lwn3wT9A?e(><DTnphg3c-w;Z9ZI5&=sU%K#`B3^{%KDl6^+q$28G{K;)?
z+pt!qtMk1@e*QL+{3Z9AYF!GNx}BR#wHf$R)0?^LAs`fR0c1(}S>%n^#3=SPwY<+P
z%D6n`O^Omdd@LND7@GmfRWDUE7_EQ@F#{b*;+t1Rs1abhU^-6&4<l3GzBnuKr3ZCB
z1Vum}T(T5kyL#KE#gy^q5PfT)VGdR7v(W{R?U=ud)byWJ6GT}--HMFtHsNC@oc0)f
z(APmd(}+J02>F4Hk%EF+(}R<m0wNP{2pRD5L;=zbNX-dkRp!o)j^OI_LN{;sq)?Qj
zpsrfxOeXxt#Qi~t2X?pld%@=MZT5R1zKAY(Vw1>TG)P?%{pG?=Obz5zFOE!AZdwi*
zE@AQqwC)g1C+zy}be}{}7M{f*rhHuvM-NFjhB4am?*K_lRu@=1ANY!_6p}*e9t<5k
zonYwn6p|h<9Sb4B=L9FDBEvP+EbxyLY>~F1Ts)FS7|G1^MlLh2Dwx>>8SOO0*Tv|P
zzfs3$lF3xHV-NCtg*IIaji=Z8yrm=QNcWR@i=F`htU^aznqt-N1R)h(zzVQ2C(ow0
zoX#r<-%DI}3x(y?ppexzkzT#X3xr&aZ6tdJk2xwl=s{KdVbyOs@r?zRE*#Vv91cgR
zZVp7oF&uVp(A4xv5Iww<3kStsdJ)H?FXCllv66Wm!buPyvrRkLkS3IXX#+x{wFfCA
z!k6-OT3Qt6>+NqJcH0@_2R>q9Wbh*a=apvL(TYDuzrY*}EJqG}3~`}W8C{Smy5(FF
z?OWYl26={dkI`@>0je_Vw&)(b%!jHUd)%bnm*n=bVfMJdONqChI(3R<XJqs=zW;=3
z*dFOC*iB8XuN&|?9iMWA)l@#S^+~?wOd8t-VIgi5FBfG5W61{GO33#nbhTgKZODgh
z+?8$~2dqgmVh*BTUkk{Ys)vx;L84sBn=N*2-URuDRcHZ3ZinG?2|a&Z%&S|hF2w*4
zkPYHK!|$k)$9BMA-=BFbKfa!LgEhTGYlF3##QABK=q7p>$##_9M0_2dTA~+45r5GF
zG~6?vxlJ%s$ES9|BVV_y-p^!}5o^|8*A9?aaA{=qBD+Rh_20b&mH~D4F6JTrm}j22
zenQi!>hPst;&+R1lQo3QP(`KH5m>Lpo)61Su{j!I=pvP1y_m=rwX&^Sq{Y<6P?UYy
z-~ZAm@zwt20LXGg!)xE+C}$T+@e)D)d2fP!R4J*@v8;N&llbVC{TFxEN*?qLY(5{e
z2x7Ivx4$RQMdY%+sg&~(i|++og@^ThJh@~56a9o1<bv`>jX4goO|tsp!}c%V*z$&5
zTOzf_{EtR96I|gz&DkW2t`Zj`Uu$lmE@Tb)m`%_9B*Hoq_x`(=dar;#3@=<lvUJ`1
zSZxey@>Z^F?L-0biM-QV4$?_v+JdtQEvS8mEVosZVjEi~@AqX3_hIz&`!*9FjV^PP
zepkGtH;D@BQ6PT`t|IQ2MT022XMCy)HSoId4Y5M;bzOm0_vT%(6RX~MUJ|7<Q<UA7
zzY<~CajM17BTr^-?R}NBlOY*b^H?PGOGFiTU{Lsta2G=&TYKko{C39!%G&SO%+@xw
z>b;@$4V=>yXyI@7*F6O`=sQ__x89riNlQQcJ(Yvsa&ks4*QiFl?7s)(XPD5Jq#8>+
zOvERo9MK+#X4(+>O&hycThVgIDh_}6C{~g;uz~o9MOs#XRb9S(lY_JqA;-1_`X+UL
z-nmF6N7`6(v!rjgk!K_n?V6zWTg3bx)M<XNb$$Q`-yO9w&`*&Zq_m}Vy2P{m<I9#G
zA+-^RQ6fJ|VZ<qXZvV1+@xkoRKx%^%^HIuKX3E)jV^(qIHo;8TP5)`ur*~YT`nL)4
z%w8F)aJd?OoiF46^<DqZA=I*buwcr4_S<FR$!^z~CR%jG%ieA-c|!grDf#wU8G)rN
zD&83N&tDf$E-iT?OXwR2Oj-=8R9c_t8?nZJV<m)~7AF_{EGq3|?@;qyLkvQ<BTH1^
zsLCK~C!}g}zPWeF-y2hQj!(59`mK={iH~e-3P9O~BP!$}vWuo?rS%jLnCBko5zBgf
zpa$UzZ0w%o&s+a2QXahXn)piQPgTbuza}cdyacSaE^4wR_mo<^%Rfxp@ujza_B7dY
z3&iF70n|a>96-whv><OpojqPoUl4;#W#MJK-|j`kn;44u-lUg1NyiZ_$>?ZO8_-2s
z1$@fXPz$I6w0@<tKj*Sg0T0Nu?ZRFl*IpxqE>QuH8*S{iBi1cq!Q<{9!mGPCx<rk9
zSX);G@E|d40QhEKW}hHmw14V?97_CvwoWl#0kZx?;5XmK(WbZJ^%g>)QVK4KT<rC_
z#sw_J^=j2{NYy_8@j)R7M{1#jDz|lPF+wahUBf(n8Y&d8yEYF2L8ax%j0+V4%u;~&
zP2IxvWO{o*+0Di))?tt;?r}WJB*$9iKk}p<fPNO=W4TlSws#+Y)QCd{r>9WSUMthI
ziI2d+_GJ+xm}Z`S;ew4AdLJxN@BJA8U21C6H#UoYCe{6}e!L4LjRCyW0%ho3165uX
zt#{xXCQ!A&&J|sQcWq-q5v~4s!vPSt4r6tna;Ko$U@g@je8FBi@5F&p`VYLhiak-k
zfH!>Uk}9QAIzy8ZaYaf21C%A!Z4G_|aC_8S<=v3<c~Qnsc-1R8PVsMGD`LvEW)8Pd
zANwwH&m9esdI7uj1~>mkboltit+n(x8Ti<>D^{-b@eED@jz`(Yp(sy9*S<rn=Is9*
zV!axuPMnN9+3Z@Fc^(w7<%qJdvR7uncu=giZJW><o`Jfbkph9S&<ipa>O4@GoXfro
z%`ZFw9ty3@%;LN;b$}+1FfU&q-TeJ;R6`dGaBR@{!E7ALS=tM14`Tdq&itxur5|`P
zK=DtdLi3R46R$fq-5FaVa3l?!b62K9k=;0uXHc@8RBfH<dVuG#H#q-F__Y%!PTY)R
z<~xQ%sZlpRO89AWmc9UC{sJP)axI4{N-YO$VPV0OI)*#v69_PF6FIKUxsYA1q7Y&d
zD3*A;-j2T%HL$r~Nj!skx>~FMlPdLiSV5A#H2qz4Sc`B;a3BEAaB5&2k3bzo@h_G*
z;*~{~La*Iv8?)s}n+p2auy3K^OLCYJfbkJ*#qM-XmI)rwq|$hae!jlKPT=S#=1ULI
zHe~1J)g{Hp$4>)|_o8ONr8pxhsiY&}ZA=qk>quSz;_VVDwD7rDPb5l&sPqIB=>LE*
zWYg2EFS)vbvl*^pNqIjjnQa+FTT6D4*mchXQ(E{ujKR>A4?^{+%^eWpEO?AE0i;7o
z=r9Ydg7kkbl+cCeUAYnui<B=mra>)AN{Kar9uC^ImZq1rd{H#lhJe_@tu3rDC#SYF
zY4+*B1?H`!#3rt|9a^{KiCkcYXlNC1_YTxImtENw9f81CQ&Bb?)b5T{!WZ<{k$slc
zjf9ne%0Zml7yrMagiYkY&#O_rI-t=8^+v&sOkjjdzPH9#<SQ(ocIOVL$+F@?nL^S^
zExWmVsDyF`eXxnRZmP8e>SLh*f`>mWGcX-`Y1o=Uh%hA9WKr$`k?aK3zOy`t;hG__
z01a_czQ@AHdg!BSO-vac*#Qtw^BA2bKIN!@ng+J9ot<DL#wwVaY=%O&j@rY(|64*0
z=4LhNS^SAqGU);9Cm>m-1{#m8MH$dy<V%pu0Jzf|j8qHAg}t`W+FOaEQJCU&TZ-z+
zI!1b-aSG7Jfd(Wv06v+k%9^3Qhq<;TC@)?#ji=+Kk6hTgLrD1gjT?I_;kJ{|kfrZu
zQ9GQe^!#yS;y?};2Gs1lKUE;BvjzygCn_4c3pwh@eQ49wXzFIJHtj%gTe2UXyZDbl
zDp?2~LZ8|Tb;7AHpe%fEbOpnMhU?~UW<)iCp6Od`nCDUP98Q(2btaqGj>N$K`@I|=
zEZP!>Kj7_ycSE{e*D{wK+ynKkl7yK7)(<tFf0iBj44lW}bGKeNzL?$p>5~b<+-~{)
zJs<o}$F=R>G2Y*P7*C8g^NT+i;(w|CM0-)|dhpu&i_qC2<G<fUUi*%{w+7E}8N-Hz
z?oQjdE`e5$?e^Kr4Pg^9($dm2Z3WMv&ZiN&O!?%B+=6JZxvjZP;1C7XP&RRPct!}i
zI$!}*gJ|HV!Z8NjgXZ$soJ^d%VX9Ym5S<;#Q^&iQspK&-A@~AA6stE_3cUsp_d*eh
z8rWB{d9zxOnw8Q)I%S){u7sF61x^LcV|2!2)B&5@g9RcrlX$@n<Pb^QnMx>ODCixD
zVfT#0*vTGlPPftH24i!>usgfj@^P`1K9&q+QE@Mb%zwmP$PIbgXWL7y;WP#s-s?Z9
zOY>&lm7G*FcqNIka?_Sa(Wb+}Hij04kKw6k6hyh@5DO-hb_Qj*8rVlg7w>q<$1<`P
zz-M*oj6jEgz9cAWw&)C^i|wU+IxiQnk)}+RLIi>s^f%%7eO5rE4lFnsRI<B|&-`mQ
zB@I9b#}R{9wHe$I4E6j|V(aSv0kNgLfzR|~P!YdA+@+#+43fRJZK-wUTgYmYf-N@!
zYEH_&tvxXsk8OlT8IehU6ebMkX9Xr+76%Uf$V6SKb=64%n|51Vq6#3%-e?o_7KzJn
zwfnr6Ahr_+>(t`$q}UaRC>Q2B3K!nUhP|NK3`kRR!$a^~wCv4;>Kw@)>9ubD_GcbI
z2DF2k(=G#n6|JbC`y2>P*^#bESfx+rbtP4GclhHnydFh<BK?=kuDlo*Np^S$c)U}1
zW01qep;1xNOz_4GsQmEG5}g7(S%m;YR-v_i{YVHDg<=Q;2nZ*@Ln(K%+N7j~CS^Qc
z8slMzE5a=b=LC{@!Qm_wwbx*>lyzOviQxyuYhJP}SJQdnq0evs&^D50UGbg(9PcO=
z;v`K2f^dNn4It|;m|?EIzJ4FG&$*Zpxd$5)a&RBr0Cn;aAYZ0nP$=33yFOhTrBIYK
zbOr}0UtvZT7V%DcgHGrH-EI!vOABvbHs@GSk`Wb3oBokc#H_;=9;0V*+Y_{Ak|p2w
z$sZ(>P_X3dBt3yh0EQ@!u<eW+!t??Lle^M4S{hBstZbMmkaUC2Jo4TJ04^<v2At8v
zV|dH7c@NrjBXB^aT0n0p+-M%AP<NJq`>NMKtlW=YtU$<nnDFrg=(I0B^AP5UydgWQ
z<i1huNd4+B31X(tUlPQY|7wDGx#qYVSdxo@+aRxZ{1~8+wFhgVQAhNeLmrY9k9yu?
znU}o0u;#dd>^Nij%9T(xKED<f^aRlbao1Y+?%hkCo}ShQQFq<Es*e8PEwN@DId7~H
z$e8=+!W{tJIS8l%>P%4Rk#*iU1u~*$-63Wi95&>AUC;dC{+T2fGA_SM@2(1XM6CF5
zs(6_Fbkvgd*Zr?Cv2u|+7rID$T$?L^ja0C7HKK8ZLF)@6VgC0)(ric|!|DnklZ0D}
zi0rdT+h3tZ>gP@FTWuU@^h|0efqk~Q`BkbN`~c?yuUxtEb|2QIQ!}&gw?4dF+4g{a
zLNo?C2;~brD;+cJ`HxxVc9w%4xaBS=Odj<#9uMY~$(=zz+Tm{9aThQbv>5?-<6Qf$
z%}6;MVMbpV=URreN=za>3o)Y%TX+`&TLeI98$j#^C|+)GZGHqiSPH-kDE%LjZicWf
zz_Q_1FKD;-VvthSN)?XHh~t)rJ4-WRGj9T$sX>Z)^<)LAnGY?Eo@d)E25PCEnfmd=
zuN<llv+)Yy)I-5P;w&9}JSjkLFb64gh}r_ZDg?1_UbR0Wlr#f<NB=FA^{jUkb{RBj
z3;(jHce|OH*(DM5lhX$SsAT!re1Ut0h}24%KKwgOgW|iqF{a+_8&K2C8tzV)of!=K
zOptpz#;)w0L(Tku%Ax+c@BrLNfBfI$1w&R|oAv#uu2J$bmCPmj|8E2V|BW%tEef2f
zFK{#fHXs`p`DS4@<|wb+JE;L2=kT}x1&oBd4MBiK6nH|w4n|fgMwHf|d@3mP-zg)1
z^Is1|LZLrG$`@Qk5KRMTA>Qn3a&mO^$`$QL#jj(mvH(y+{qr?P)dzS&4b2`Ac6CAf
z6E?2Bmf@Hi&QdwT@eXDsfV@1CBK$kiTkGr}a1?rcN>J5z?P_NbD`kcQIT*AFDqL{Z
zL2wCaO54Q04OE0GhD*=Vkpzg4lE22*g4>COE1&QCfs`dmv*g=>=FOZk;^3PYg>haB
zlp}N=<1(-gc(_rWVuv5v;{nW*GRNM(;)f%@^|=S(IyaXqYw+GD|0X~7Z-s8!AT|%w
z2A<)r+yLSsL$ZsnO{qK$G0b6Y+CiH>jcNkLKfVJsGBcZ*^%xC+g6J)d-S|!G<wv{2
z+9PzJfmm&c>@k^DQ6XvY2*$j&cbI{<a{w3Y+0@ur?jUUdpy`f5-F+8uE-_|dz40jK
z2{y49+`C=RqeNg3W+;WCB39limDDRC5Q0`Z9A6r%7-z`d+-C~bXEJ>_#y^4mX-isC
z5)L+K?;8@%GNikZe?AVKVVavgfbCi}<*l`D-4)2qao?D&M6r2=43u0JZ^sa=Ftc2V
zOB8hOsD<tnmAKA`W6EX2-8J{PLYA`vS}^KyUn2@!tafITb=-x*AGoAUQI+vVHI@38
z%#cd8<Jv=2U~@8mc?6-z!IK7_Hxz<com21ERX_f(%Xv{gTB+?Gxokk?(9O3T{62>Y
zUr#3gv++mn5{f^WXoX%h99Vg&yd2V$;sQZRRn5Ol9fYwo%tF>#_HBp$ks;kxMFw#z
zZvPBjOmA0aO(g^#6erHNA_9#}l4M05`*eKx8Vr~PBU4k;>g9=olu!pfw^$d6MYq>~
z1P!u9`b8Oqwxz!<9tjNAOwF)vA{f;~tF9^{?=(TE&dEkD?z$d(Edkc!FIg)@SK&(o
z8X@qY5x(IfG*?Zu8vQ%57>Yp&(q%|iNeqfWcw!zm-ZKqtezpT-`q8!dABX|Gxn~To
z^-d@dl{>Lv$nj9ii8jtESAx664SaCnI^4io<y`KkNs#3}THQT{ptR}Lkf67;Na_Xj
zsS1r@mO1Ddj>cHYK=lfcIr|Zz6B~TLGzxNqPAKpj$!}At`EWvUR3yw3;n^u`$oHG4
zLbCx4%*G1Z(pFX{d*P$%x49GIHWA0LJ=i`!-BSC^ymVgm0)%^bV51Ls7Lj{let5r%
zay-X)7o?CCT9N`7uA5HH)%K%vzd^Ufk|CdPXehKlIAyQiU>c;Ye?r=5&}bBdm6H6C
z#qPAj6<{Rr)}eqCb|vwlP9z5F?U~Q70=1+t1xw;Vsx}$n?ryz7L~6&oGsiz#46O&9
z|1q@wHGrvVs1^)eUSlhRkDtB+RZ+%0_Z8p1i*4|=I(*>&wg7!jIo_9aCEv~4a6-~!
zJmUE4$cw|4p%y#u{5k#?n}Xs8n?G3gh4jbAg36Z>X*P!vCe~T*{CM#5jcG>vzWVO#
zS4+3WFZuY3C85UQ2Je60?DT$4;ypY1r=LF4d06!1*%9;X?$NpJ)_-i|2Ix>7<7VYH
zZK*R%;dJ@*LY%Zbo0VEUlL)(b-FKfXatTZ97pqVYeT6QLclj3|F3#E?v>S-r&$eHX
zMJ%!`<NZZK;yAX5pZ@0}Du0`k4L)KO=Uq@rM$-tdo8+PfG<rE26^xah1rh11+R<{w
zOz!{~{RrrX8Vf>NC+Q%PW$HB5Du)^?{;;n6EJEU$v}C0T7pWrW*dr6I+o25W4v-_o
zyjh?xu4BEMxl5>Z@zBc17dXRtbvqzdr)96F6U}9btaNdA^>6{2`WZJDio=YD?y`U-
zUX6m#o$VDxuuc{SKB<ew`#5FeO<szjL^iC$gy!139yM@@+J(uq^;FZeHf%^df?dU>
zA)Q^ml=+wr6LW3(eUH&W7@JTgVM1`cRtHzz_(on6EUFw{WBs-dfB*g4(hTW2yyJDk
zW3UyRD>tBp(fF~PAxqRQQ?wgQ%Tm?-iflv+x^lhRbVqU@bykXWNeLB8tYI+f-~pg#
zBFK)M6fX6Af&z1n{G?8`=EWI})|Rm?ed<Klv%Hr%qRaCjVd&Ar+iMpT7;wp}nz}Mv
z1tw4*c>j~LglezX37tsgsOkbPNSRuVx44@&r_BD+r-e%Yd@9TDSNg&}%(|=0eTs(Q
zg$~9+H1%KUcEfLfT>SQ?6^3LLU8-xd<$Oz9o0}bwxzm6QY+lu~!7Fnjp{1C%HCdc|
z0MmzIEy3!3;mw|eSP3swXmyk}LdkF{#5H7tfI5ndOp!fwZSHpH9%_dUksVQaYn-ph
zILdj>?PsB{&GTNr(KvXoNNhg4yu^wVeCP%K>p**W8bG&Tyr%ETH>2o;=8bm}8G*bR
z=%He$#5Q7H0ErB6GQL_+MmdR8KvS{`rzi)#L3gK)I&EC7EX?ue!%C15Js?b6^o!;S
zky2`iFSIy|F0UEN@jib+#)$rL@blw4bG^hWhg3$)Z%53o*mA*ciCT%U{<p0ToSSsE
zF1PkHPrvE2%oEUt($FaiI;E{GDJ~XlXVgKT>05L`fxlaaNoo2s!Sj=iJN~ckt~IKu
zYu!TC<M5!;*5MO{RyH6*#VRTSLbSF6HwbC*wn9KaMV`u2hzJHNM>)M7P2C9~&(sGX
zYCr`Fk*80LywqqSZ_z-C0V2VG2ubeT^!z-(?zq1$KQqYA-g~X}eczhjoO7Xrv7m!K
zBjA-+6<<A!z?xf*?o=e2VZd|!w}J|+tEkfs`M~*W(|LItyiu-$b*%CVsa7THCkt2p
z6?6(uj&JQ>&-IQvDVy7!0zhb>^|cebR?SixkJ;%5b{>XBpMG0K$MHnUzZ;v$3Ka5=
zaLdBYiDY}(T^YPUbfMPK;@>kUP7_J$`l4kj=oIy^>x{psp%d2$o*Vjz(*5u7dIRBu
zSpdwBNbm)Ne(k#a9GQR0xVcN%^^T!hXK`?LK|(ln!&jufLF~xqGna1(qUR~bzR=B@
z+qCk_>cxAHJS#kxG_Bx>x)!#Uo<0&LLo477lIjb(=4Z7`=;Vh8_|7%=w!=4cvWQ>;
zm#O>hifM0IxiqY3TI?5ampEz+ti^t}>qIWG)YMehG0$Xk4vzrsXEj!}8Q;_Nyxa{G
zD&5D6?VzMEg!~xjb7s+>y!%B9XQCDv1xw=YtQnIiR4Z4C@1ytmMetuL&?bw!jt#Ih
zO9NzTVP7JHI2g7n5fzCLg-(!T_}-bA3*Mrxi1B=q_6>8?eSED&*R)+AXH!$dfaSH8
zmX<7Z7dZPUM>L@H>2E)#PruCFFP_HCj=DY3sc_ySQ1c6?G@uFA{U#s8lmji}EUgql
zhjLPwdJS%<=$Ja<zS>c%4(9oAMw{)DKW;ZZ_Vh6N#hn;56b^}DLS`p`8M|{GCeu(k
z{WJeB|Gci;?li0~3faH^Qrz3KcFy+V{Br3gGQvGZ1NDX(rgL16-%cN_VFmy$hjQsH
zoC9$sP5#L9i9cFU)p0Q~F+E8ddPBleN{l5RE@u}^q@H^48QVpxn;Ky$?^9Povn1(`
zmRn4Hl~G5qeH+e@x8?IasM&;Qtr(s<B|U(-G>uD5)?`3!d`+fwy2V#tAsD%GKhjwc
zcuo50G~kpeWs+u*qtviAc)ga{<EYvB{@#}+@O*z4U$vXe+rk_fB3r_<`d7P1ey-|r
zW{6vMq-A(U&<Wuc!cb(k4-lKN;Cz1Y@@wFKegU7Oi9eq`Fk}Zq!+t=hnU|@3$}0$+
z8kY0rtW<NKI*#@-Cdq8$*vAD0p&ZRWX3ezv6)Ka}V((OY`5Z(!wny&w+_)1e?-0FY
z+{0biH{ZZx6OG;m1@Wrv;0_v_T@ae)*|IYxfwHBl*SSnIq<KC$LaoMS&C#M#iNN%_
z2o$OpxzLYdzGUee@ya`lWslGib;>TVjy0pIq5^66+T(B@LXHR*9r)#~xO~0~e4YW6
zv9ftrfS%#&s)A4!?6fZD^BXJ&EZZu9A&#cod2ShTwKjt_!-c%OS`}J*r=>T%Z8thO
z9q%F54VXQ@figMJBlm!*(!fZS{HeQ0+%(tgTe^(Mb!3A^_Ak7>QhKXA`THCCxQZ;f
z6>n>GXclvMqsXTA<D1D{aQrhTVG8X6hYODEZr|*n_vxN37hs(pyGC)6_gx!EnB3N;
zCO8=#rr)@H#JLv>xd#HZ^QA2g%4lql+cPe_d|X67Rs7T7lD+Pd&UK_yWi>F&bz(Cq
z+%{nyTj!PjRWI=Z_i$c*5_e^WZEi=i%WlQa11r2duzl(yBbF^&7Pjcl%(uV(@l;o+
znrCBsbl;q=sQdF2LGkIsvlRrJ*S5WWHR9$0Ct117Z?c)Fq5@%G@zJXzh4=FGJd+kg
z#zYR(D&>exf8daWpRfPK^&Nc$RNezn1~y9i=#Ik`nseh50isH2@1JvxjaB4xC8OU~
zlI(mfzw-6)CH`$YGEC^Ajf*_6!XrjOBs3!KAI9oQM)R|QP84@Kw>Jl0#1uC1)s+T>
zI&Gm%r?N|K;x|FauqZVWnDJo!U<MZ{K=bz!dnUV+884#CrFAIPxI1sJ6k7p;q{V?9
z@c1m#dmT9Owr>ve=)D@`W=^s6(-b^LUwgVzNmrzwlmMEOT0!Sq(J(rt)oK19>Y|%B
z$p)8U;W*?eQu^MoQZL)t+lxwI3&)`r!=Q4pJCo@zLhkGUW6?3`(b8aAjRwX}B}^ag
z3!fRWO;BAp9soFMT`qM=^Xx9iKbM#t?z+4}SsxRU)ep=!)?28thGhT|id366O+Af#
zRT|vN@J-fgB#leo?w=IY+Eo%5BCL>sNDik~jSN^q8+B}NI93cd`**bbKDGKhtLJX%
zDYHGU37v@P{<QRebg}wtqjMF2fVl*hsrDgFyHu+MHu+n%#Z|*$;8l+Z&0o|xh#wkl
z9Wqz=*yK;A(LGplC9HtNZ+`Gq-u%X0GUb7h{#qQ4QpLYJqLtHht$diN#u+lb+&?>W
zK}u&Z)i0VnY)C4Sm`FqOaMoI%+b3?#Uz6$p<F8XhhQ&k;9@LL=!;vYw)O_f&;*gVR
zgAsq6H!@+HS$d__(9NDRP{D4R9_}xzZ~nv8dUd$4sC+oLBngIacRGeFOB=VWX~&u<
zr4H><|2Nv!oRHcBxQGII^m|%8_zJ^U$K`TMDwV}mrf`EpwCY{`^NpjC)M)HK{WnKl
z!UWZ$9rYtMqAN}&)q`*eMv)Y;ciZm!6Wytq-_ulRb6ig1YHggClapf~GjGYR;yABL
zouUYwg7NI#Wh=#5@YfR%Y?~b+QMWHlCJc7x^Ea_OqZ=G~ot%yHmN$FN_E<^Vd?VO8
z!k^(J68Ao#1_HQNoMHew-io>(T@#v--xrQ18AX$i)}@9<Zl|C7P(+@g+f|$glO>0N
z`8wJd{6Itk+5$g?*Ep5hDZFYP$AU4Zq^6=J8(W({TTn(@p5H?G2|Jf$$}BRgzu@5m
zLpM|lb&ldzt2TkW$X&84C{y?T8}RB`FlEdjA|tZ;Pt6{pvw`GS6J~T+l<@vNO=Q93
zcxKJMVIy?<^dH*8OSDoH$sX`6)v3ttG`Sz3!c?$xr(X7*U6d}vE<y>{#jUntJ><Td
z#dWaf6C_?S*}OuDr(dMKrT4dJd)gD%WXEE#&I}-8zP3$Soc@D#U%GB?cdTMHEMNkX
zM+J){oI*(^=rV-(dR9TgkBdfju<4SG2K3hCPi+@!E|SDi@1LP-PV@XZFy8+Bb(B|U
z(0Xn|9F>}{ZM^y7PS@~35_rw0Dl2t$)FqL0UvEV9$fHr)?9SuCl8q$}H|rPyI@+5l
zxfZlDgpZn4;{3*iRylJ~B^@Jc)8%o9iyw$}^rmV*6>j`fu=OK{n@vv;=}g;|8k?eW
zor)NLJlNDGOY`)2RhdW!CC5#4Ud=+j2n`8YMVe-Se%|P2t<cC8Y9D`=ZG%XbA!8-4
z6}x2>hz7mhKo45O3TFw^+q~CQAxkH1MF(`?26lzaUFvEg(tfB+0>XzgER$@2vN!@N
z9$Q|VYr(qzPDbT)55=pt+$`Qt!9hj3UD1|7YkD1(-&y^>Zw~#$ElkSO)z-h)X*in8
z)MUIlHudY=zk9^z^Nl|=m@0yGGbPlyxYsjR<F1Uc1U;WbqKZtk$OI%AihU{*IN81A
zK`UQ<O1@tTyZiP09{q=!-T$1qZq3E%`nalVIFI0Z11!pnjodF)YB*JVc<^pg)kCXL
z(pbAz%!ASb$MhW2+<H)nR0WUwd=g6L&Rb=(+=>MCH4devNA<Bn4OuQ#q<LC~3qvb9
zRP-@5paqS?*s`UfMdMk#FRn5^JtlXJS445#7FV=u#{`1k<iglS+(3f1`P2<FWA<z=
zlRiKuO*G5RN&3qI%=Vr-{szBrZ8I_M1{11s^qN|oCkKsJRQC3xqA`{=d6wLD6eJ*$
zvfr&wG*0(I@A<6G!A=lS&Qea#YUGhL6mT-PaA7M`onH{z(wtM`wERdzW5Z_m(cZxL
zvk!pdM!+hCFV93s6hC`_P;nYDfs4;Zb5%*fGL6ii;RGn)h$5Hm3=Q_)^KDBX*#SK8
zS3EMb$_DdYzY|K-FiJs)_R!V;C^$o(G8Zho4}xMU+PCG5TQ=5(n`I8m+vy$ZaxA_I
zU1KoPOkEs?y8?#D(GP_c-N&{AVkXAj)pc0~6Qu{|F7&vH5YM5E!i7HcexPJ8ojd62
z#3Z7!7eQ_}^l(U?!SwMDL)&T|o{I|*ojrS2>uue)RGVQ2=pm@@Nt!BCVHwuYwf_@d
zQ`iP9*H`o&1a;a9D10$3Yf;%q^mqKILFAjo2X$B8!Ga97w^cLVAq$mi&F+vfKOt4T
z`MmIWfMjEj_Ka_d%*0*Y&QgZs>C$GbFJtv+`-g_1{@6P9d2~H_5c$!6S4<li7>&-l
z5ia8f>?&ifzjPS-?om{KX0SBn)B2p-D27A8)X^WqsJ(<>m=J~0$5w&Thn_(`U&Tq9
ze2hBK-^QOG^#;|X1avbKH*5QE#$Ew5xT{@Bw$HX=^B!{X)M=g(*UKZ;<okAPY_?0c
zO@H`-aa{G{g@gL*`fqXaSc`Ae-C4|4`CHeDU3g8zge$cNHfSnCZQ#rOa}SOwP4vC%
z;nI4XQIlOD`dWOS2j?6ka?DC3<lnx`SC^qiHM`TF6&}BK!+ftr7=aqpgxWf~C_e^-
z#)iGspi_%B$zhbF#-#c*;lJy-TZ|7SBsmc{8;win9PgGTz28;6zh?xaX{{Kn@`<FN
z2Ga@|OYbZm<>j<(Y)&`d82bX{T!g!1Yb4OoNY=1C;x>VxG)=Pj-|xQ8NiE1R3(+yr
z3`2w0@|Ub(T<S!^JPYshfk*%P?B8hPfB1=QRP`2dEs@-re7u!T`AJj<?~q4~F2})~
z%*&LYCiLCOoG>cp!l>_aM(fK|`=C|gx4dc#@nYVfJE-BRUFulvXp2He`lZXwc%9FZ
zlQxJKlBO>s|B~DCN2|y%s*!i2<xosn%jm~8-N<z+Y2xz+-`pKm34&*g{;t$j`iq2}
z*`=--+&!(kRg1Yl6pnEXftZw~(*(gKKhO*gYLA789mMbvoR^nt)ohJ_q`UeSp$Lo*
z8r(@0j&l=YD1r9_kqSpOkerR;JsTX)jL-hG{>I}&ZzhV!h|JxpJTRSmIH7u{x#P;S
zmiBhySSl&_i}ll3Sk8y}O|LPU;dyGRt#4Tv)fyNtK0OgMpd;rqc8o{a9<>{9bQZKd
z7<_i;s=tb7bajS7J=ruDV6InAW>c}Z;~salLOYZixOtAR!X9TEDaJl)O;i!Nx-kp#
zj?vY`*Q5Ggscx1*z=@rJg6rQ*xl`KIRg;JGqKvj|L9?P!t5`^S_|zw~I)+RhFuIyS
zI2wn&Z6-~Z+5OiHgC!v}qI`2ps%xjExLY?`+{8$<Bga;h)%->%xgP{|RGaq$qmgD}
zaq#AmDL2x&i~Dv4nU~SF3Dzx3zWVo<-HN5NmX~^+5hm}Y5-leB2-Q%<=$}OL1$lo{
z%in8T*FXB3LH(R*kSL|kO{*|_@+M<XrBkVLCgbbU#vPpu@uQ}e_s5S01%F@_F2(>&
zKT5#FhwUBV>A%<bQ6-iMyD68kaVJ82JmdGnI8M)&#=DoS>DhH#Sf}kL%-vp%vFEqP
zk8UzJVfYn|Mx`hQ$UCHIj@&kL?~d_pmnzcQHXRZ0<<IRkd0FyPBxj}gT2kcF)4hc8
zu9!HzCSyZl$`%6ykC^+7v@H8(fIn0H6poD;n%VQCJHz{{YnfD!iZQ?M4}vSc)iZOx
z!HEUiXc+!)5=QW5QI(AtzBU6yaM0$7$!COW=kunb*n?D^N(OKWW@?3mK3%>bGxzRf
rF~MG;e?L7v{=>TYKmTY+l-}%LNq1Df?~Y{C7bm~>_^$ZdfRq0N4AG%l

literal 0
HcmV?d00001

diff --git a/reference/plot-5.png b/reference/plot-5.png
index 3d708bfc9f8361ac40568e8914ec78634b0e85df..72a67d2f802200d337efa4ffe731d1835e674cfa 100644
GIT binary patch
delta 31449
zcmZ6y2T)U6_dXmH3pTED6_IA4C{<B<Q&Az(6zLEUY0^7^1UT5>S^!BX1_VT!)JTma
zgrG=o(rW-gKoUZLkVH!0J8<v&oBw=gCNr6HcGg~dmFHP&?~|zNJ^xhic^iJ<w)DU&
z=BfPB=NI+@niBac&(;^@^Rd}kMY>lpjzp85BT%|N0@{N=(t1$;mI*&}?k?p*fL#%4
zH7Q$CEc}D7y);RRGWJ51pOvKActC$WhB;<x;s`}TN6rO|M@TS4LUnpPp*8{cCSE0U
zu&>RjKz1(QetU`Ee;r=>y;%CD6Lo5%86IPB8R&jJkGlIn!wxqvSXSjHRd}n%4;s2C
zJ&(Q?^j<6<-=sD&qMwp1G4Z`A07Y4oxnL0EyyuR0P?+(uT5RxeXNOZYDaxoUXwfK0
zk5Q$cauXwZ(S)X(pMBqrCH{|u+>9{oN}Pvq4>pnKtOQ=~Yiy8#%l2W-ffo95oXUbu
zK9FtGlfW#}!DB?IDKvKA?TW5lWj`Du-1xdz$!^cVHIzu#+3mqZt&7*{&(TIv?#-)x
zOp}3l^N5YR*7PeK$Q7lgo9Wrey&}(K6*M19kK8aHwxfKpm3VyeTAiTShm?+hL7(tL
zGa|nTojFAY9f21Eo<>(3$6WU=SXIsehP2QSAA_Dl7`BDljXgC+&bfz+wg=CVquqMU
zz9ZE}X;*jk`80LR+~w=DK(6N+m~;##Y58ULo@D>`duqy^qL540oz|GquH^Ni2?4nv
zw87H+@L#d@_uX1~9>Ac2VFOr8m*)L>Oz+M8t7YMf>-ol+V@RYu1wV&T2Zl4p6fmMH
zV}ZVUf@lH%vsSrW<L|O>-`&pAbLL$#-%(-5f6bA}A|jwBCmp`julS*?o4L&xPKck2
z7xMKaEET&Pw}7_-XoUx9e=o3Dj!sYQ?PwRSdOIJ^m>ElT;n2mI0ha98Y#nhkbhU78
zWxHise$Bc3+%Eh+AP8shb}){G+8=G7m;h>rFw>c3Qht5j3WM@S*}9bBoTC2LOOnjj
zO{w5lli9x4!<L&LXkC?~$>e8FHK|Jlj0?%nLFR8LOsiTXl*#<EI!>Q&^^e`VW3|Y;
zo-cxF%ata%aBDR~v6#0!A9GFYB|cB}l`n`xi=FnI4Fwd4`<kjfMbUjdnKF4IH7v&{
zGxPNJch&X1;7!a$$`OwZ4b0?Ao4A2H$AStyW)h`3{?6H2*0%4|yh-=FC~2^vp5Udu
zC4JQ@UHFHGG@p|J+<^RtR*C`L?h)?ZY;fdv1t~A|lfLEF&wB@OSKcthy#n;$uXIu#
zh^1Ym1NEqy`M2AsYi{)mU)2>1ts;<1=6(Me9bCevsrP%%zrNYJeIk0(5tW`4@OH{5
zIdI!oZ~D|E?0hd;Zg@`4?GXx}qt`p(yfH0IVd*Ac^LC6EnSa~Z=EcU~zhy4GYxkPZ
zw<Boe@UGyO`F^yqs;N0z{WBtChJyisl4miDGIcF;(C^r2a%;HW-`dCg@{@bx&YOJU
z8W-&8>-LGnogeQ#>Gz*W$&nA}#5S@1&dYQkp_SN{Hv!b_D1*pLW_Yi=Wc5zjy3wXg
zAzVwHmY-hlka$PvF}K>_p@@QdR@LLk@I!6qlgr3Y{k?2^UI<JkmLV5`+(P3Z%w)!c
z&n4%Z?iyA6$TT9shqeTwY4l^IM*YIA|3E1elw3Q+2hX#(xj#gjqM1eu5Q0FQBCmvS
zL9RPr>2+8OM=7;%D{RU3W-)GIY}iEGHq+$3F$b~?lxo|vb>0nCkKcnSmEeSQIjkup
zU*lDk*=`Z<u)CCGmJBdHpTK_kC62lN6Ml?}&xWSH48vS8d0=(cEk=Jt++X{SL+e0w
zsu3TQ-ugx}waC;(#tzp~T{e$B)`m4IExOk^J*joVC`b%C3L97xrmB5f`HNA|%nmH+
z^xFwR$h{Xw5|DBFd3F_Xch%a(CuZg5i3Ul*rTXg^9(dCGfM<iUZ^Nqe1)|lnTLPeH
z_nTt4>3b4<e+42{a>9F^NecZxa>h0^vNL|6#$zT#Qis*xz5Pw|rB=BI0_6G=0yr$=
z5teB*?G!>r+So)FlWCcrwEDzgiF8Xnqu$7|zflZEM*;6NLv*u;`L#7eq*wmWfc9ow
z5a7D=^7|g+;Dn;<J@=rZZQM5QIYW(Z?ZzzzLJ6Hx$wA)r>S6(-IFsZcZ8aG-Qg|*{
zXvL{<e=t(Tk8<Pmew+;{8L3BiPQC0z9Xm?-4Po+(nnR6Mim1t}K!K>3*qmKml?F!i
zVFc=$anCb_C(T(-5kj9b)4G0s(zkoz2DBEuky_D&4eyxiZ6rh<40)O0<}vrhKxtn!
zNj-$sxJwYbz8II6QC5X73LtnPQ|nh+{e>;A4xaRlFUj+^lp3v8w_g0({%WePZC$E?
z9V8Fc6s|%Ji_<lr@-0VxzIE3_wMvnxQ>Q|TFXoT;CenlsKp;F)ZTuie01)W9l}lOH
z1@RcPz}~^QbkvBX?C9^Z@Rj1J{A+$zb4m+0%U&H)QX76dz4B~mq0C#Gcb@lP;dv3K
z>9L~)*zE0#?7?-0czDL6wJp?$HIOm;mgQHyebGO^{l_sg!y75g;;>(4-5@9hf*BOa
zU0wSdoL0}dBwM?6Rm{U$hR^i$`S}dgsT?TsZqIfhtctdnDF=fMgj3IjJO2z8ijeFr
zmus$<g`{7?K@hyW^Mn^>$3?$sz<bxeNy#UciyPkaMjAAVaXK8x52<V0LIZ@D()W_{
zbhQ6r2d-!6zQdth3237urv-(Qbj8RSFYwR5(yLQD%`wmhlcO)rLV>q|SoD)454q~m
zQ%AzNEYS~-p5ux`KRw#W)r5u~yTjFtetRrS09{>7Iv+0oKwcT%yz%`7NzYxLk)^N3
z)<YZc7IWF7*LmkpNV=tGcc2EKDN^(P(4#^<no?-yUzZLci`CvIWUcg8+n_HVSCx#`
z%#8<&4H|!o5VjKKqKDUU*)Ejy6ij40CU1uHIfhf(gs{=#=zoq&auLv<kE;NV1Ng<0
zrh}I?Ggmh><XtP<(h689N+#=r-4O;|_l3pz0$)Pi)9cl~V5A?A%+Jjvw`@hhl3Sa#
zv<`^L@|Mw~t=;bAS}L22Pl%FXl+ahvh%j$2WK{jSftCk~qv^1rki)BYs+l{!H&OG#
zIm5nsmQh?&PoFO8kmj#)qh;WszSL3iVqZNQiTNR!#MIV#XlNiCGhRq2-W;{uR!(MI
z=~~_7rA#P1Db3PpFF!v_Pb~OrvY66jU7#@tix{_&Ee?X48}vgK<ox@4_d{6RWGBSq
z%7oPy2J*%03ih51F`77I-|{{vPLGm^wvO_VhdwJN0T;?i@z0yS0@eAa_I$Q4tQ=WW
zG+?Tn<3E|eqc!{$m8e?qEL8&<Z36(JHzP0$K0`tIZ{Eim{|F~dAR_9VQ~mC4Z-q4J
zVj^CwS)t|U6{vJG^Yw|`OWQXv<G*agkG`$InFX7gcwx@2U538q>q%%?v+Ss>S|ir4
zpL3%)B4It(F_96OK&AXXg}JZiF^<=C^N}sL#XAxzNZD2jU*Bn9?8Y36NE7I_<1+33
z5AtQ_-K0BsMS4xMUukVK#LdcAZU_4n1vuun$IV)_RZM_@*qlier@dX<w{;&Q|JwVN
zleZ69I1q)5>r@&E0J%@mqNT=syCdkfZAD`K^haBZ?57KW+Xgi`JWT7zIe7wmkvp0h
z%zH<>{<PSktOGtn8H$pYp&b@AgTIk-qx75*`Hl-c3AFxb^N6{q1be9<r>Ml2P&Ms_
z^#>>EUN-L@al|}0&(0;Mz9R1}&B^vLTSF}E*W7-V@;DJ`urFCKsi5x}u0Yfy-<>s?
zXn>u6*Z!9>0GZ^`4B<MfzL>Q3k$9^o!wDf>jlufvIgxndC^Zyj<niRPkdJ0pr<?59
zusteorsC8|SL0E8(!w;u<zOiJq2`3(O}pU}EZ2^c0}O5F#<0ZfX)zl0bGQw)+MuUt
zUdraBr-{br9?gbzkD@sn=f-hE7vAAzNz8b)Lt^Rz;0xt%d9y+2(^Z8ORH-UV!|jXz
z1SvwkoUc0!`6+E0_RrHcvBU%IO<s@w`3_a1w2TGY$S`hKSoZj;#-+Y{S5=Ztb*f$R
ziLXAX*d4DhJs*+!mVFT#^WYZ}m59~soT67S#H6ED7UxSg6Ogfq+a{{^+@nn^!`U<U
zG3l4!z}@v*%Pqd+3G*<s4jovk9^P(tNZiQ%+Qr-9HMO~l;+%~3;#Ssott=-5V3wUe
zz}SqOA8qB9Sm4PRXj@$nk(i5&cS7v5lbQz<>UBJms$uIVXlmVN{M68@cCT!*v$w0A
z<h(9s+?m<i7XUz&TWX?g#ERorv$I)pZd*X+pXV?|F__FeOqz42!N;u<r#^g6RC`0p
zxr#JT=^2xPm$fhL7gxabPsj$mQTPeh7VmW#yVQ%Uyyfy{xZ7VFej?8JW8g-5(Y@RQ
zZkVST+ry^@Tw{vU4Z6&r2(ww+i2ijFN#_h9rXt$u)7^-&baazgN$#J}Rqg1C*G@oZ
zj7Gz=F-%gbjQ#B5OQu4`G68)y1D;lNZEw-G>*G0(BYA|VlxFT<bFJ@t3!M<T!Hj#j
zz(G9}iJIsXft|>1$J*4`mYepKCe?`2FP99y=gx=Un#HqKF{OAMbp6h(8l&O}^#X>q
zc?F}C>zd-l1+t-d)5VB3cZsW$0G@2_GBE{z(Vk2)MW=*a2-qmG83}^AEtK*yerese
z#$;bbuh3{^;Rdt8t}WsJM4g?vD{-11UH!u-IJeR}Cz#kD9Fn32TwpJE$?2oFYO`s?
zn%v~(&_@}S{>P$T$Sx01_wLOmJy>jVDb>MezMAk)r^E|o<9uNBOY_b^^tHkSd@?LO
zd$hNY!F!BZ(Z<O#xUO=gBjN8+MP3K{t7Ll|UTD^YcjM=&rQm6}b{0y+e>fuA0CN6h
zUU=Xr+cdVkDr2F{uq68NL27wp@RP(rU7oge%Qo|iOqKUBd=%frdZh@n?|&UdtsN;F
z9lLd)dDJh>*{fGR+aC=B9KGNs-^v1Yt}PUY{8jRz3jsZ;d`stT7a`EgbV@9uN;?<I
zu&1rpKTq}$yYz>7S7Ok|#AQ&{4r?Vvv6K|$#Z3zbl6sGJ|CK#{9CM|E+yhHaXrzOa
z32bXfFfPb}u;f2^9&@;iDKI-Ne)=?;Cn4xw&4K>RR|ocL^^^eiU-)_>#CrARswKOF
z2G&h5B4sbkwKiJcs6Ni~N&e^!D-M!ZSxB~tRDN8&?^V}Xz~S4<-oJTegcCm2+)&_W
zcNA-!S0Kubv=}7tp?N;$^k`@9<Vxf(t2m-_Bev%JrI^9NK)eC=G7^>j%n9+PL5w_o
zFXOXt`aMzH_$?rRXxbv;0^h|#*#OTh1?&t2dch=nqcG7s)xf7K>Xm5keg$G+Cv>RR
z`lfJl8@D-a+J(&;b}81rayvB6nyM8q5c@ILtZPI8EtY6SMI#@HCkdigtJ+o31(F|#
zhAV2Mjg<K<eE;oN8Q25TTeYuSx!KzuIfr}D{q%@CCjo#SF58>l_nA^2mtFb_hi$px
znHO$=qvzYYc>&Mbl&X&{MKP@$%SYc$NXkf?ZVsuEUtCdjNL5s5nhC)SO8@if;F3sT
zNE(_te90lrrf%KMBen3Rl=A%t9;rA~5|U?WWDU1^AA9!O!KM9cHOK+$K}AD>yh~eK
zDliF4&x=4K95pX1h^|J~=X)Cs>X|H26AelxvL^>+Z<JV-g%^p_o78_t5YXEK5qrFk
zp@B1!``OY=zcm87=u8|}Ia)*T7LXP@%1r4EvXEfb+U8@Aelvft%#i7yI|o^K4z?0!
z!&u4j22DDvQ*s!;W|WutrhZ;8EekNC$bV)HJ=1q;{M)c$vEv79woUJ}f-GCTq3Jc!
z#$_l<31yeCA?s_@`Zq~-@ke%0Q)`&Ry4}wSHTY|T>x#qYsnt>6s)g0lfaw!kv8`bO
z{)n)QgsN)hSe>I)|KHm;K41;#rt%9smF8`$8n1GOW?iYO%i$(x=PzO8yIosD9~EE*
z0{lOWh!i{|wlD3?Z#5iSjCt;SgKc)GmShyP>`s_!YNo~=zQHQ5YJV#boMMW$No?a5
z%7Ha$1*JTcZLWn^q+1}yfN>fpe%|tp(YMW_QhM0CVwhyJkcX!I$G#1d^NeRub<CiT
z)i?Zply`!vYuB;NbWDL9W9^>3OW4l?3e9a1+o7Sxe=e~-F<tf48O~;TaXE$WeuGi#
zsnt!=?cuc=^}7-(Y*AI5rj65{ccEY}NS;3fJv66w2~Aa&G#ZozhHG4SrY-dso79DI
zR7FWlAF`4e_J!oWp7clHHxqHFPUH<({y*<J7F_8^mJ-TGl#Ps+r^f|ZW{kCUxE#>2
z^KaQeV(e5+X3_F5tQN&ESC(1HJggE_b#d1vh$JRmP`R0#G2k|5r#q;g;2gKTW}8y;
z%yQ~;jqUQ;)MQ|^-QI$dZkmTIYVs+bW1QqYt)f{anN#_U|EiM&j&hMLzeaX$>`WD(
zlW)r(nqvvy6&8D&-8m32<)?YWWlx5+0!}N*GR|wDUd!CaX4J>1wRg*3`|dL1%1I>Q
z`^!go>7m-YU)h8CaxdLmYg{E-SHtA*Z>o4EhjNr!!U2FUD0!QsVKv+I{G~syr&nb<
z0JZiO&A>q0dTB^07Pqn8o@3JqTbfg=7oPr-z5b4pqFL0H@@Wd^A{i$r2c@@FXz%mS
z2z(rGa2c1=zGf<R^%Of8vu=#)Q>(|joVR!Bsi+qxUYM83@g^x-b+NoAjTX{7Tey}#
z%-o%=5d`EJ!_2sAYv!jg@3$So$HmLFvo>0|=iiTnY(&T8URv?R-$8w=wrlyd-a!x2
zSHfC-QyD;QELZKTwrjgX%xm6!r)KK%`=fR%cjSYZ@Qjz=2c>MZ|K2kc^Vj6Q$R*i|
zbgJ|Q&a^s)_!#T)`*TELz5fQQs{a_(tFUP97p4SwcBpXd`^y25dlb9Ks>9BRt#Jv)
z?Sfhpw%XmTr*7<Q%lO=q8!G!2#Q;s_dxS|SkHpE=H(ioY(T$6}!ExCPC%d*nC+`^f
zM4qKUqtbAB>YBY)TdAZdqRAor*7EhBscdh}6I&&hdi9H<+LO!oG{hx_r&ZijFK2Ap
zr>qYHqq2IIrvmMBCO4?2{G)CP_U4kU+@Yh*LcAL)LpTf4VphowR<F_YwVKx*i<!)z
z9{-I$VM!HZUK43UH?-t&M+p0T$U|R6<umw#dF#Hj&Vk;^a*kMdYm(7B>V&9<jyI*s
z#tV>EtT8_W7DS)O@me+++;&EErk{0-ZO;Ziv}hX)M;QE3UkhHj#ro@@H?fzKAPoi3
zZs_&A;SvQN#FqZg9ltagcA=4i*yl8qD(nLEr!AJ77;)I2jOy@6x*S{iE21W6a?oS=
z6Z;gjSS%)fO~hv_69PF4f!?}ds&Pj8>YGj_jM8dIT#%mRGNQPk;sC_|A26|i=k(s^
zB!Y_f$zypKRL-A;UTu{kIHkdXeaAf^*Ap4;PjCG2?IK*1CM1N1brMI<w7rR!#I$6j
zwAzl%T^gtUc8RXgw(4?V+I2>W+$E!1i<{zUb<au9#%95t!#xh#7!hR>TELa=iCI?M
zmUlxU_ay(Sd!HKC;M20*>Hwq?ool}oCu5F?SJ&ty*3Mbol32o6mV|FaOcnpmr?~ng
zpN1SN!v;s(*vTPOwIS0P!`Qluap0vibLTE_a7~8|)0bKd-*PnC5nBV!sbSFYB9gZ8
zP7=*P+tOHM!&2sZjs5QL7RFz9z;FuK7&6k+?Ayv`Esqn=N&xLkL0#KV2G+;@x5uE)
zmF?LNP)OcM&r&2WJ1G=KXd}9^Ql6928fV|=sr9TQ<H3TYEpbZQ&cK2)n2D*3NMQmi
zaYC0DGTpt=I3=zAxsNu+gO^Jzp4yW35xrYx74=UyS^H~`V{Ea`h2vDGh^2yaSKstP
zFzk(&3h-iJj9#vlFSg~|bjt(Mvs<~3o}U+>(l-*xRRhJzk-`txez>LwU!T2}>~%(Z
zy!=w=X8#8TS!Jo-`p>!9h0ZRON$p;&e1yZWW4o5j{5ffD<cSlb4lOTbSWbqng^wgO
z3Lgi5@WccYkB-N^Gl<LNcYf;6@<8hM1P9Y^;ec`fmW9Ycxc}msV;m-VO!^AiFN-GM
zY~P}3>FC3*4qgo9bF$BAXYCkY;D8CrC~-cNcuV5613Ue7t3jB=T57v=bHoT;6L-zE
zWwivMvn>DHWb=<0J!`a<uvUi%J|nMigmv$PH(xbWeR~r1C+p_v48_VyhDwIfw3j5H
zCVgEs_(Q=*WadoEn~u=jY<Um^s>%K5Fm?Hy>d=q%N?w0!%h^YndVdVW>ZCJ)w?7XD
z^Lu9yS+uR;Gi=p2)a<i^J~yy73PhKdnbIT$f?dD~b0WNX><XjEzy?ohpPRevtmR$8
z+56RaWiSFVq;niZriDMR+xLxsMFCs+t28h52ISr~znCf9fJ8z5A8t{!NfG>NJwnT}
zbD9)Wk?wjaLOLK9r1xW(E64KM-oXCUw1?CfI!oB<yRhH*9_mp{W`tChJMB5y@wd#-
z{o&!O@I1k%b@E8t{$C;~!N#|=`C2y{5fL5EsaYWEl^&z5bTaOzcZeXb0OV4?lp*Qn
z+PfGUc2vxf#Xl!+QuJDHoiO$FLEf^$1D>*sfTB6H(10>pAj4F_%k%ukA2Hqw#{>PV
zs|OhOOKhBHZ&TM!W4a)c!8TeJgjjaUylY4P03#Tq)Lncam8`Qka?M$+Ejcir$sY9<
zjFLHj_3JDIQy1cj`S67wfLnJdOEWJE<1D+TE2yq|5;JP#PzUV=n+2rRb{>^OR4<d1
zD5RHl9Kl@Yd|lC6tPypvmE2byaTq~9v6_;jAmnkW93<}H0=9btHb~*<QWe-INgmq=
zfn485mF*>*mFPu&j1CrwF0L}TzA`bOL`3&!yU5bh&(rgHLV>R2>f({DJwtbLU7r%=
zs^?y$RXuyp=^x3x<)VZn%-z$($kzrB=dY+VTF+gJbrEccgIdn8Dw42hQ)P$HCkFSV
za{t^CsM0B(aaJH!EVNt!Phyl{8Taf8u1~J<P<5M+@H&W6@e0^Eaj08OO|CaqKflsY
zGui9g62{C305axd69v$V7cl{3Es;v6JtwrS*N*Ak9W-2aR5e)Uylx(AM4+;%sGczg
zFQ7y}+zwYY|E^+l==qBG+X|nXFov^TTRKXlzl5GKS{yjPCz%!8VxRkLp)g^1ORfL5
zf~Jk50x@pECMruo(_&kak^ahUE|aU~U|EJRU(frGz@H6LRlC#6;JD(Sms-o?j90Yq
zG(zf4Y4Wj#rn5#$JtMOY8KIIXk7r8nOAJ}}T8qRBh)g+vR@g8VxLDqmvNljg(CiB$
zJ@;Q|={Xi3nz5QRU!A1VaxVzOS|C3U>_`}oz6+G(@!j7Xl1<)r5MObQ_~%v2=EFyE
zP`d}qK!8*(%qO&~Vk~e$EeLK&!cEnyRvfHea02TAOxQT=kt|@9zc;%oVx&6FCp!cw
zlIX@ZPFlSgiHCm0S}0UUwEe=1H!JE_#Z~^Ig}9bYcn`vEP{VWDxjken8NAn-PO-(D
z;h$`yG$*)CXf^Y1aF_M^zWK8Zarva#E7kyEd_PtEbV!WB!?R}T(us(t$K?5Y?>D&G
z1S2-b&v{93jh~%alxFOc&h5kfRz$Cv{DodSpV)k?BpXqa_lG|yFFk!QC*Nb`&8peC
zx>Rfkr!4^?)cjp{>h$x$HcrTQr>7V4HQr0WR(=_XTD9@|H_LzgvwT-kOlOMUH&3?!
zDBVNzM|X+m(M)2vXmEQz#^ExOchLNzNnDdt#Ocy)7Km=SNZ9^dy$cQO(#m@OywWe^
zA)1aPxZe~hox4g$dkC$3lH=2ZkIo6-)qVr^pDBA!B;gX2gFg>Mh{Bid<q~;~G|SO1
zj!$}_OlwCyrmw9wM<`4$tI-~?Wq?F#qkiNd-Q$d@#2g@z0gtI*T&dE|%gt+^ew3rF
ztdH&qIl8o;Xw>>^-LQ25-$36nb<otZ9=zt+B5pLu;s;`4?p#NHt3mqI6KaZE)o$Xw
zY+ZFJcO8~Z6qsJ|!q~41s%JCK92wJf(R<pUVE>WdYE7-9V3GOA8c^V4YsmH@u?8*!
zEcKHlXZ1vbJv9++G1hC}E2!ULFFQ-CtTNN$^wSM|dN2yuwmX>VtIe&WTMEB|rGWs<
z__GFuCV<%PWXkV0C?XH~VAOVej}j}H_}%7PVcV)mjqz-VXZ(DSs=dp3bRbuBmUC3E
zrNa!-WLBRH9jONRov&pc%lFPmYTuB`O_MaZJ8;8gC9lCeRInJYCDuEwqUs|*BjIB)
z`8j4VoM~OsyM@Sai&vPNP{O>lO*aoaqDM$h>E%_M|1)fCV}TKQAXuc<kq|1cX88D5
zMVuXr97Fb4@QY@?<SGe_GbNVs1tsy^lR>E(r8+;&uXhHX2HXAN6qN#RG4v}yOO5;^
z1-cjVeC@0Paj#_a>ehrOt==D#4)D9pi8RbRU8tk7d^cnYF7?{@q#JB(6}Q6<846YL
z7TQWCD%Mfin_a7nlH&HYq(51WZ~h*I&MK`*J3oy~Ee<2a^K@?6&7NuXA)i?L&z+n2
z2B1svbpqK@HdK5323s8#sjNpl?6kO2ZJ%3Amgwz%nBMN1JE~Y_kyeaARulGsTM}mP
zCgjgTAlu_fZXV>u58RNm20kretn5Rtz!QXr$~PnVA!T%B1uxps>XL(yhjG3ieiIKv
zAfKDgg4=>8r+F|om~zePa}Wr&`N+wid`hLlpwM7GZt&a;yy}ejvf{sv0dnW7OCXU;
z-yfC6R+oT+!HbZkC${2NLWN|bGN^|j2hCD#Ep{J7lK<wiGrb!M{^Gyu?CCu<|9!o8
z8>HKRzeh^F+BwPDy-e?e6PjKURtx;1qOH9>fBW^RegoU_LJRD~?X2#XKua8@zfik7
z8;Z8sV9}7Rn`;aY!VJ00x$Ss=p#|`$;nm6hX9MzY5T*$qKYo0j)&2XsjSrFe!*+1r
zb>I1shWcabo_hW%mq*k`$?yqs?t?rd9cq6eyK8fEGY_0)%MvYNcqeGS$9b|CH;(u{
zQt46XY`s5tW*|y5Wb%pi;2ltl>Bblj5trI(69MY;){cBw#XdLOW97nH&3rQV=ecur
zhd;EQ){fZZI($mzcj)GF6Defr>j57_TMIk8bnqi$7?F^aG+<3c1Q7=9khD#sG&M~n
z^e35%+%Pz~AKfPtCXkL?#84^>qmK#aHasegU^&)D9i7u!|DA<)leGk7<m767N2|Oz
zIIq!x?NJ|+rqAY|Ws7vbMu9k5d6$;-vtK01Eb^YG0UrEUcXX3h9x;R<)j;bPJYSw}
z68-Ey)2cIC>B08Cf4|!$kG8V1(#p4uwZVB0|H#xKr73xh*o)`a)M#uk66oIage`es
zt?er6THx;=y;t)ApIqjrgW&2yR8GBS64qu@wY!`(A>7lIus{?P$!_4c@3a2=@P;w;
z%vG0mS<qam{k7p6vitV!D}DO(sb#rKM-|NX>pp3_u;qq9?Tv-<XwGchDl1zl%y`7Y
zsj(P#B#Zo!Tr~1nAF|N75&+|ZB#zE@q-O0{%R!q1tUhR*ZUjBCqP@M=l@Sbj>)Av_
zmTufuni$N#MI5{D5&?8<DrKOU;1ABe5x(5Oe?TuK)t&IOJ{kzBKdPM2p02sEs^~Fb
z;NJJCn{{@^*_s!UI9Om-c*whUZMI(7YsB<IZ_S}Yhk|Y4<RDSWi8~9ob7_wxXym?p
z;6bXMiP(utq}3k%<o%aK>lPimKi*cPf0>T0*Vos-x)ouSXOw2|O=J$lrCxJ0p(q#I
z5KiAA+$QiqJ{28Y+T*ME==(nxL_&YX7k+D{*Yj#``nI6N;TzC$_x^&X@}$i&eNeop
zf>SdNGjL8`UVgTs<im%v1Njf~aC7Y#pqJgLPWRMyX@6&|AS<t@IgX?g*KuS1`d#}D
zpAssK;H+~FA3AjRn95{i*MXyFR%e^zFOc-cYm16x{5i})c*xHe{D>mk>Xi@n5o<Z#
z4h}!pIjm87p;q{MjW%eI&>-r7tiHhmQ`5j@*NpIi@L$dGIB~YqQp$u5uV$a+R9Tzc
zMylrGQ01VVIt5QH*{EduXWfZ8RSe2B-`GZ>P&FHL5{aoVPYnE(Y#%Y~0J<TD0Y;gi
zlINGz=X^#X^d|>I-o@L3N5^5MVQVWNbwP8KCtMci+RLHZqie1RaAl(ht`u;UmOoMO
z<T{o9y&~BT;WjrlHI@G2#S7|0IGcPR4ZZi8+MbO#wDz?JlBeWsRYIC#g*nQeL%xg8
zc(p<dIqOW44L)%Ge)tAUv)72hCT$bZ)z`$i2GJAO<hioYyo%;r)o2$*ajp^c8^tRE
zB@%`yn{RE+-zuqgCtP|U_vwCCW23HUcp!Q}(dKMEjKE64)~-|D-FUV??V&sX+L9gm
z=VvrFAsg7y`o5Cs`HXq*m+G5K^~!oCZf<UAW`*V_xdryh>1ir?kDU(xof#d4Zc+-^
z?+7k{2%xVki-G5+&dRsAMYsPnp^KG;{$d-yyX=q`{OQxD#|&_hZ1k|QGuI!qwu-3$
zy>??OF^mdGz2v7fG&DRxn*J$n+RLl)16`!z!v%H&s?yw`Tw%1nstMNvbh@e|R}FfP
zn#bNnd?DIbt(&U{eN(-h>nEC}ew#a1eerj>w#H#DU`RaKcI7^Z1i9->D*ZDudi8hr
z^ul~^9-D!de=7}-g?&IasVj-QB_{0`mAL#S_<pN55<ceF#0eX6h&D`9hkH*rw<QTr
zRlq_+LtEu5MsYsy&5zW)m;xKzq6E~M5bV{ezW2RTkHlyMXfA6b>Ohgzg9oTXhYu@r
zw*Z8XZM@SVrl)Rny}T6~`jds`nf}w6s*LS?cg3-!Y#X2!<2u6^tLL<S4`S_GMLMf4
zccHN&p|<*>8@NF!`p2+Tx*KoA$vcGKIUsBV-XT<%lR+rHx7PiPKe8|@PHR2&@ijcL
zLL)arAI=@&IqVSC=+XW01zlhQ1W^KDiK^XPX{(zyseIf$mF!K%b1YDcME3aMu`14=
z={PFX<i?G!xo7!`_7yiB*A*%?K)rhXdT$)ToDfVa<J!Bw=!~-WSdqAX(ij7TOFN;L
zw;pALtw8D30dwmj#zQ_4Jh=C?sr<ZjcS)$QdT`h@X`4f*Y9d*-gCA}@qX92*Tj7ij
zW!cSvZfP8zE8_2yC&N#^yww^pY@VB;oU}i}lj9sM)&O$R9CGU8<&oQ$2(&b@eylx^
zB?hu0tWmcTIl7~1|AQRPFSIf1ZZauZsny#?dwY|S#aWF#lw}yfCc}m4A@9Hx|BC9X
z31wj4SG81-TPrqi0S-cOt>=HM#v5WpCU#Pn&sbwQs;sPxLPWA7C{wTHMJ_=3?LvMw
zgLwIc_4w$thU)JR&ra#TO7xNLkL|G8quq-0u>cW^+Lzxu7!h~FlJ?PtAl~hb&m@lx
zFZOxw`Ly}_>*2b7GYeRy(`4Nf{;j2YUIAlUvtsMYcgX;>6D1tbenmge0P`_NKe?(U
zdlLjSHUL%uzj2^DPJsZq^aR*qWRReh<oBupXP`YGdRV@PhDK1Yg#B5%4Qz}~1bYsB
zcGzwM(X%=5Y6#MACq8X0Ex&kE2Z}es)@G7};#8*od4ot%nXv$|>IBrf+$F{l8;t@`
zs6Eiut}bI$rExInS+FY4;do46Uh8AV|8~mcPs#`F-2@AO16ufXO5p*lJxMF;=W#K{
zZ339!1cO<WktOYs(kP)LRasa2&*U>cv3w9i32)p$o$A5dko8#FWORv+;d~}U(Ss9V
zjE=kw*{f!PLBr0;fNU+TYP1!cwP&(NUtW_EuPd@vr*G#_(E?gwe0~S&3OiC1N9TjL
zPD-1b?&bq3`)Zd)K(Igl^GNZBnLJcX*C$&Zgpt#O+$NlEoXFn664<CeiNo3mTlv+3
z1-WwQjlk7hU~6qoGLSYBG=vh@U-Y{x*ciGp1-zE8tqob8V&A=cS3%?e38arvG<E9s
zY1$)vus)bjI{$A%UAHz&xpqlbN^0c&`~^K<3zQuG_eZSwe5z0Fys3%Fi7#aLiCRul
ztgw3RCFqV{_N#ia2W)(TP}$=|WY-aE^S6j=kAFPeczaG~F*zHg2>`f-wIfC-2h6r3
zg1cVsM4)QGY#)(QP^ebv-cQ+H2;9N%9AJA((;hLObH`(_grhiF@woeAO8EM!s@IN#
zZ=H`{u_GclXL+Cg8pH=teZ=Q;lI<u=u*%C>FzW$}gB;ZAa+7FA7&&P0WHIPJd(;jH
zd42x}IG)z2!DuHT^E2%2DEt5P7g?2iIaIv9@swZ^LVNUs<^AnBkKyZAujD}JFH|>5
zRr2!L;K)EhHHtw{|1#?}S|wcV)|=aiy5|3@Ilm=zb-s5F21QWv^R_O7Bt4LmlXJXf
z%q61lzHXYmt?ih!*>J?@r~OCIc#49i04|`e1uqOqZ>-J-jDVR*8S<h|HM~B&!!)t3
zX+Z<fmowa6Xuib6L^JwO>9iME^Z+RdiHWycTU*a}X|iq6V697994gKF4Ek=uE}%ov
zULx;sA^DJXgcL?7ZjCWF7<(s+Z>Jgt$++6#2Zu-hN5J{CRBwDfkqBh4))w-NZp6_I
zmC1cuAakk|fB5jQ4P3>x_k;jrYl9wF_#m&7@_*DfX&U^NA=Y181+HA|P4E>k4DL?I
zMRj{aD^gF;Ty9sSLMHjacOXm=JFx-|qO~`?=7)z)y_8I`2Me?(uF1lhh}FX&zHHH6
z0Vkzj+3on%^}SzX%6BGct@u#JY}#4qg*$I7-@1`G1Jm8QqG?2MaU)$Iru_hIee@kz
zqehy}(|A<G+?bU9jfj;N$#Af2R&835BW<n_&M3Mk1e?!)Sc8SmB#PE7eLJj^Bx@6V
zi!s}=Ees-byk2(A{j58$%}W5=&_c1JA{rrU!tk*x0n1Yjusd-g;q||}v*4}ee$$PI
z1(m&Prh1LFImO8c#7vI&bu+#@gm+M+g|+n=Svk2yE6}Hm62hYYnB0k%32~>dOvQpY
zyP)vThW6HSTs7#Tu|Y6eyn;Xk<j@KVOYR!*3toO$cVWkqTR_5lIXyup2;8*<1d~GC
zL5BdafLz}I>%A>4)eeVfVHW9^^No>Tw<Oa;rh0wAyry@8LXkU?(*{nSI#mMDDhIvw
z6?MWbY34sx(wzJ?7G6G=YV%dS(Z!=YGc$Ad{pA+y*(P}Bd)1(wLe)cj9^|Sm50C%>
zfYbd6w5@u2IBS^1qK&e@x~7NDcIBlbC?7$3TTl@30o~mj-Vqf@dvuz1iZ<K%Sh=@t
zH3SlAu{yc$p7>6QEU(wIQyZ$I!;IACvoowK9xs=Q!N3w}P7Dixz-jF@QA;$R>r9gb
zYwK%$0%gPj$DVAcPsA$Ft*c|Cwf0ML$IO?twE-JDJ3A|o8X`Q&c;*5FbomxYrCZ(O
zTVPMN&W=$YSD}2aKbDFI`+?%-wzkpZF?Vn~P&pw4Y%XtyPsb>4ZGwhnIAVhiqwJIA
zU`ht>Rs2Fgx*jjKDxWnjwUjXd`>>dXN9vrnUx0^SpKe4Q5%Bi`n=Dd$Tbp!SSC_o%
zWaQpiUJ;EyTOcKk<H6Eve@08!lR-R}nc=^Uz-@lmD*0CnT3(Z0!w~TtEFlw+pchua
zR?;h8Ps|)_b9T&d1zs1)#Vc=B_UoHEy(S={Km#m$+DKdLRKYHl={HRjU=X{VmR9B1
z6zgMvQJCqu;@H@(mnio*mE9=lQ=<~P@=HHXlQooFw9;B=R#@e{&0*Vv!4ny654KOP
zCW&)6L!&^}uq&YE+WFoAti~cL!H%-<e7s&L86RZ9S|o4eW5M~#z)DDM=9Z>IrOk~t
zINz@j8Jnu2B(d8-RyVClD4<=9<m|Eo3#pqzyJY|v!ef@^=H|t4`uMhplIM_|_9}=8
zt~9Vk+`a_Wi8@lP>i6`rjZ!Dt*3W~#{xR5Sx+zN+khviwsRsGqkZ;FdHw5!oE*h~W
zfbCR^65G(netyd@XrnmZYhyZUhN()#`5pZC*=~`{I5OXt|KQWr3wy5*DY)^w(aZ9z
z%3YLY>}zX&gUK&^1#CTi0$>@ogvqCeV*xPPqtifuowf(Fd(a;ydYV8DP3fTC9_d&Z
zhIQ#KM4XRr&bA%o(t9BSHob4aOxKiyTG;x%z+PFdK`{F**c=eoM&XNN;9K4NG)TeI
z547_%VW}Pv{9|`w>Iw+SIDZ)b!d6)jQE#VnYX>{GPYOG9Hxn&__^l46VK8ZDgW`z#
zHrQ9%CuC%hyugs|ib_+4IO+Tdj%OV^nNv}5tt@c9=K_Mgs96d{OXO6S@CF0Jc)M)S
zPNptzv=0Iw?yfDAcZr}@?<uX=f$d7#a5K1Bb4ib&hm3w@a_`<>($dm`@2H4}U8opv
zg@)jZ%y%M{+2>L2dIgs*N#z^#m_tc=D;nyO|81yf@}i5(YW~T-AjXUjOv*kcH!Amb
z^=bAtbY0IRbigB8$_t+1baZEMq^$!AP=ufY3$kYvGy^zV=6BU>xMz0vd?1hyH*bq+
zo?}B6??63@TyeDYlj!OH9$kM?t)qUx%>s%y>B&U7yA9e^ANN>0hl*-j9XB-4&b{fr
zD<7N!`Gr#%;LCEswDfH@qXS_kS{*t?7yi{0a`r|1E8u{$XzOL{6`oLXl7roU4<fH=
z-P5>8u#XC*rM?}M6qx;Qvk0Q+SUz=Q__Bm<IYa8`x&Q4OnOUCZ(*2@;<omiXQrT*X
z%G8ev{ZG?RQwNt^CXhUUXo`a!?Zj4ucK!c0p&)Ly*=bEchwQ<3#)?o;iC;l}7c2kW
z)q+4&3eM%<TCQ8rfF9Ur&nnK2t6=;gDE^=7kx~~?)I$sB@cJp~6`q*vJn@eB3hSOO
zRF!^faz%1>BT7wQ&BBD5T|pElrV}YUdvrV3i8L9v=qaM_GmTcUG+6h^1K?Z5yO$nQ
zoMYCbw03wQ=`LQ!<k>5%!oLq9TVI_!<DZq%{sj*c7naIT%--wNNaft_VWX1tti{}-
zn6@eCl>f>9_cxHUwyTpb_$}_@txW6=hJpvnmowzu9vxf*jp8)r0=01K!pn_I%p0T9
zyMUnEkh*7Q6yQ}N3Dj4npHC{lIa}a2aQlxJCtcq1(?oL-`$H2HtXFLL(|*qMMH8Qc
zkOt%vgqFCWbk!ox?wpV|1R1#r?)#a2JBr%M^+hbjCI!CC&N=rBblYFA=8ZG5bw(Bv
zsqRkX?-oh(^0<x`@QuVeT#6z4K{v2n4xd{_r3a<4wbK?Q(lo`MKpf)J#6C=Zi<Ei#
z>2V0;`0*c4Zu}j6-036;1qZ(KJUx5xpZaG{KOJoTbmSkIy%(gO7TrJ1clO-5C)f3w
z@30mF*_-!I5_$r0bAc0cebvUq39JRN6T66Cq;BE~>oOB~3f_L@TPUtn%1E0D%)qv=
z8L4o=x_=IaG|g$z5Ql&2S}Zf{6n|*QojL$1QjHeI=U+HBszFyWA4`%IoFnh4+X7o4
zC6O}caahr-qk`eZ`;&C*)U|*KC*D!(BI4AJ7b3|=mXnaX{+PWEZnA>cWs^O-0UjA&
zc7WbWn5kp%%y8}aKk{xJ;Y_F3;O*|+@%tSWFYbJ))3f?Yz-w91RO(cX&U`$+bMN6M
zca1bXpkFhW2{#`UnhdikpV^Jsx3Xu<>!V#LqwR$}y8}7Lmr82lI{G9#i+5*#NZz^8
z)!8?piQ9RL4H6loTSr(yOBr6`Vxdh9*B_kqO`g}4-+flcbz-UPZ*0DZ_R@Ry=@6}*
z@s=uk?2@K}dgBBSyrZTYnlGno*4gen`22&rMy6rH&_^faHae31>dEYmMv*U^MNQG&
zK5x*zp2+}rjmKybWy!t1MsPPX2Sm8&6tyaZDRY5R+V6)vU0#Z~%S@!CP+n2iDa8K0
z7I}s{vL7B%>L5JXxALAcgH+jSr<nDwOZ01-vd6vJZ}jWr;k5J9O=*_#ayvpJyFWjL
z2W^HSkHHHgaER{}Tf|z$F*2F2fFC&4$G;=)@}oWDiSQ661+y_{-t{RWQ_TahVAwBQ
zkdZdN9Zl&ptnwJLB$uvFwhNI4oCx5t6sW=zo)C-i3!_Z-<}gLhaL>e`sic``VQk6x
zm8-KGsn1F3xw!IF&#t9>OsMFtlXeUuO^?6I>@6(5%El>LwE#9jaq~^C*Q!5_ELL^B
zA&2h<!b7ed$wU`QFKg+KE1a<XGQ3?8xkY5D9om`L@?h#Lxo*!Fra}0OhzKbdw_!nd
zEEz79T!8Dg!SA9I8+2;U`VP)FWgU3;dJXA~rs<q&aqbT&z_t^1_28nnj+%R61_TR$
zG=gTW11}pcTAo)r%3D(@jtr}h4#5e8Xn}7r8p?5hd8}nibRXZf`9V-A{sMZ+K$AH?
zjrHd~fjrUsPBVrx_5@euv|YWP6~(iXZmn6cuD!RtVbiM!v9Z_4yM9sLtVqXab7~)P
zWAk;}pwW)yV*WBIs)?(To&-4YlsGtY^BjQ;++s!}F;s`E%%&YZ2>A8M>j9kR)#-8b
zOIL65);4rcl>Hs9xjwlsxs$Mi`;mfv@s){e{;N#7g=E(lNuL?z#+k?yweL@74{Amr
zwvKN3f7-tr0DdRH5GP?fGX|oShEpaNDD4zRf4rgjG@z9?q9z;=%-p0Pb8&O#_64!;
zIs>ejPt4{;c1>OG+5LGX*fh^HuTuIRiPJtkTG(VhXlh)rRfLB!Z8qL9{0!yB_wS6A
zxhx%G(d1gdS7=Q8`3GufK4(tMS#Jn$FRyITs-X*h(cT&L@OjZBOw;~TEkO;hmMep=
z!H4ip+u0E-5jTUjDW55CC_4Rwl%myLX8UWY^Q&|3XzlxnTHIp@TH0qEaQ_s^?kYg?
zs)+7LgKWoU?im)vYMF-@ufL$Yd-5+MK9rBL^FuNyX8jHQ>IEAmb#uFeKm7bQsBR%&
zP?E07YNlN1f6;%n(DA_fZn8qI+14SwnbiLK{W=A_?Ha+J%vOqEzr6)pbcwM`BQiyq
z&jtW$;Wmu(5KTLi-YYgl{90cCyc0os2bDk3-d$eZH_Mj93Vt)}r&#PFjOaXDnrbfZ
zQ5Ig0ETk7Il|1~HnyH=co{68c)^9P<{qg<if^t_8;4w3k0{%U-U)DTxw_=IxwxJPy
zv7g3G$@$P9>eOZmt^jKWh?a<0dRcbN?k=d&sdDdl2hF;4LwDmeoJ64)beZGqm;XIl
zy7RbKDm-1?RNF$6fN$}R<2W+ENjzChOR){3we&U_m2?()_c}StGfFenG9B#xQh5}q
zYTnyXpfgMUE~QQy(V|O40s*~^>`KOU*gdZ_I3Kn7KF~XQehm>su1U4jjV+2zhw~LK
ze59m=Dsz24g8Oa5NMd^Gq9<VRPQr1^!{!Q;n%Rh3%xy&;cUKsU6U<zf*gogui(p;_
z;R0?pG5%}HL*DbmUspv*Hk@yD0pre-Yv$jk@yiWd{0$qaMHL5T>0JF2RU!Q6HM8(Y
zwCEV1dYN6MHU0}``ubN5r86}1;X%0jN(o+;;q8<N>vM{4O=Ng;KjcZbAO?;bwtp2h
zHO9dCKA$=wyyX39v0Lm&nEwQRigBUe$5gbaWTHu9PLU^?bd9+EiMxieIxMk$N{9Q1
zuCmq3;5A4<aRvR8+9O6|>{yNUYx11yMrRrT^X(WYKz0!LCnv^;BO$+YW5}x#)NSg$
z{xu7Gi=ap7lNSd&aj8K+v)vizY?Oi*x({>_lFj_K2C?3Ao!+BP%#Fc0a+jL#pnKbm
zROQOGPYsp_Yndqh(Q3!0jshDq`*(0{h`w)Efnl`hc%v+JdxI0}H98W!rrbs^Sps~b
z*1eX0gWP~M!;RBQJqnY}wgKjhb9?BxLHHO~P}36xXI1IBg=v@jEt0P$)f=~H1s~<O
z5x2so@m^$RnrH^d=^`4eU}dWFL}=3v-Fq|nMQM29Q;WxFKPQ0Ht=~AhHpuD?G?683
z{O=Rkqep0;knhJ@NUYZY!`sm;jN;ZsO~Jx0)0H4ev{>zp=iaP3dKz3%da+eLy;obC
z4lZ$j(IuUIHT<k%AI^p)y7;8lJ+IL?Ra(|=E`8?JAx#8$p!@MyYNNC-doXMNyIs0|
z2s<M+$+;Eej(&ZW*5ytnhBie8>@s7KG$@V@2tM8gCP>on524DtNl>>X;J%OENSW_l
zFQXXhYtZuwrgNEevq9cI-kkw;cxBVNjkJF0JSJ9lx@NjC*_di<zO8a^H(?>v@q0Gc
zG{SNtx)eH*69$}ro*;JTvpfjS$D5MhW!)G$*WM@Bw+nK>=Of^4cv?Odygk_7Cwa7Q
zw~DB{d0J{x6OlV!`i2qQ*{A#e-X{9yYJ~{Qd8Ox*RPX%@0EZnw7|XiKOiT6~r@2yq
zGoN;8IP%41P*su(We!wyuCtFW`v2Ysk)97Ic#!1V$+pl|4%n96%ly}ve?=V%k<Yig
z7O+k3e_iOvzRY?@+1G!-HI`U|fB0dSQX!|l<#Np-?lXT-#(OtN8blB;lihWh!u>pi
zG<H74V*kRw_CI%|@+r>Uh8amYN)RSFGwThjyoNN#!X1N1^VK_l_5*>w{w<eJ{{Y3c
z09{~VW<hgkHv{3MDBTvO?7M4m$YF<O*)uL__ca3$>P2e)h|N@*>c5Eo5MwSinHFSr
z6Sm`;$gf9<w|D1-6yEy(7lYRMnjt<`<Z66SrL({s(ZP8H^b0t@B@lHighWEXg7P>T
z_W%Cs^DQ0k?xh+Ecy93JUw<fo>tM_E>$@)6TXI~OEtFU8bJsI=3zx|J%su0I9etvO
zAe0I}_TJG1!g}~g_Kb+y18vox|5kdh1f?d4WCPBNC$ro;10ITkRwe;z4}3%)?~pk7
zlN~3fU1k2<+p$|()@dC%xl|jP8vzpc|Dt?fO-9kyW9#i3LBFs6OCz88!2mMTw&6Gj
zy{7c`Ywmw9xFal*?0M#KI?ixT%@eU*((hWJUl?a$A?uf}%iGt5@HGtztIWiIzyo2m
zw4LD)kB)m>^sIsoq)J3DC3A0h?CsB)>!p;Oe&Jx`0s|~|NLIAmoq>^+ZlE)U%AXao
zjeM}<O<!XA?aj8ce2&6B%B0rG{i!ST-N?Q+c4+*<{uEbDybr<r%67k2Bk>F3mv@s9
zHrQOUO9=UhSv?=J>;H#Oj#i#n#Xs?;c3-;6oS-?k^Yk-Z7D-ht5si`-aO|;SJ5|P?
z{QlCttb;omym^aT$JWqO^Segd-Zgdf(F@YeVVVI8DU{*<QP)_`pR?rMjLQ<AgoVN}
z`PkvMccSU}fU{@-hho6V+93a1J<1)aJOI!ajS571otPBO0-f9@-VA{N0!5;Cy+{Jt
zQKFmbN;yhf>k7qU*4x9|gIER}@`0W{1#&UMvmPu7C+3@;9e8(m0Dqw{&p=xaMJm>+
z_+HA!M)=NHTcJyewm#qk$74X-egg|%_n8Q7``1+#KE<_{>31wo$CcEEj~fC-WmpR=
zwyJ}0+<g4U#P!(Xt)lfz@i#<!=Byj%9|;@2B3*mWLH>Bh!q=?JE^P)x>~_egD<xIr
zp?%x(H;Ux`bjJ55bI&S&zwB=ViB?FXSk3#T<HU%Q=*sQ#@`f-l8Yd`y5{KPSb--uS
z@{3{}Q$0hg9mZqYzgqQg%mHL>X`kju_H6%LVU}wwtZI~F1=tY_T7U`*3xK?C+ps|z
zIk}`&vEHlsX6-R^FW48*I8Ou03!jjb^x*moYQJk?%-(ipeSdgC@2)ZG3%Bb1bXgy!
z*{mF2&X<U$PP>T4<ic3XMz?4SO@=qlyRDH)^7s)gUsD4BHNRJ^$0v?MKGzD{1(hEd
z!|8YjwS}_Frb;;LFJON%d6P4uEj6Rf1;IWrhfl<>wFYT*l0W=U27Y!Eo3!nE*zr>&
zTnByfi?Y~hdSL_}da$}u@Bmu*ODzaatrDY(V}$jg>zpESz)TZvP5Ow?MdRi=5f2D^
z#?ghw^ux|2gwDRgwL|T5h3HzCG*=0l0+Rt*>0pS}UplhMcw=;A6{UjWAnWyF9_d11
zu9Frn^oRDYf1x}Jr%GS+DXdi}w(m}#Q2LxHNJ?YV{uiS^z;xnsrR2e<iI3RM!TE!n
z0~F`tVJpqB*)3w~^NB9c!B=x$hH@#vH<)!2qZUHi0i7Kw3l^I{<~dlviTC7Aq+5pk
z%NfR_w9;@|A+p0Dyz2?V>a|vHjLuShil?EUThJY5kHk-!j}i|OsDTb44TH>r9GHLR
zt4C98KX^B}UpuxVs0gOx74paHDzkD!wJC`U{Fm2Oc1!Ch+*G$yh%~xdB}v#$3(G<1
z5vsy=h69jOL-(XZT;<PH`3cMkYdpwMzbEf8JYlYkO@9EZdBf=RE-PTO`uWX2?DEgU
z=l@?*S00yC*8XjpYTl{zotd|+Or0juu|;!9bDzdZLsLsdb3rR}7f2Bex7*ZAR&ELA
zu2k-#xT3kBHZ>Y<l!^-|mf{8?2_Y(izl;6e#XtP0+<VTs&-(p7&$-739<L<tBYFBU
zp(0Us_bT~mr)mHvb>DEWM-&{tx13T(C2SSYAJOwcFG~fgpk*=s_%k}%*><J!`8sn9
z!8|34+|^d<g7TWi0*=|`Q|4E6d~54L;<z2quQfhz47|g<EH$Nn)EA2z?}>{z?)tt5
z&wSb7bpA(BQp&I`goipju7%pTGp4RQ+Dnw3?Mo{s9r~ZF=P9}u$t#SR=X}<PSy405
zpW8_%)4@0QbQ_gm)rV`g^UYo0&$G8WW8y^5ICTAPWIHn}q2bh6RWw3mMPJ<^k*^pe
zjaIwcV9bgDm#8v_D(%VFS;XA0TQyxBa|^cD+o^}}c#fr&$77<IgSUKG_m6Haxc<A-
znX^<MQvD@k?WlC=H03fl_h4&g+XL_QTQ~z8`7+0ee-|>21SdX-fvN1ynjhNPw;kMS
z<Vo7n6`^*$;MlJ><(J?6^LpZT<h`4A1OzZYcz9fEE8bWI)9Ue(?)X*{#50TSQ4e;3
zrpe4OmSt8<l^1wRBSbjP^nXB#kn!S%Cm>4VNa<npZWZm&?IEvyBb>M&6(E`jic8>h
z&yRh{i3@#_pF#+Pa&`SLl@0~#K-La^WA?_Lxsh$Y)%i`o>4!-(XLZB>y&w)G;{Uxs
z|AVxVLkn2mn$6qTUf-c&dthh3a5#A8`z}OTO1YYsdEngI2nX}O@Wh9nEFOZV@IZ29
zx0|y)+4W<6=)?!T6`8KxZt4ZT>f3`A8VrBS!smo`)cnhnXh%F%k-sx8UjE75KlNQY
zV@7@fyU*ZP&2Peq7u#~ZyYt5nyYNEPL68|HR!){O&c5@C5xzfAusz;&7f|Y3?F=*U
zkM)B)wrhu-Wn*7%y<Q~uf-H?wp?pv2VBZQ*#)9R$@hXv?`A+6{{QLNqyT7PT4*9m~
zTkJ*MLz1m)=8YzRlCO{JWL-2G|4dv?=feV&hWE;mkpc(<LCxPM4pkhlpc(!HDgM_o
z>q7`#$(2x{SS4#V3H=Wm1Km~KQ`NMJ;Dqq}%a~c}YdHxyBuk}pcXJYMn3Ff?53m<L
zlr469?mG)Y!<t4_Z%RkYWSfe+pHHQl2V9?Tt#EA%d^jMqL^ki2Cmsi~H*9|RM1n;T
zk>;QBZ1$Of0;pM?sHc)W4)#}7w7L<pqK+$60`drzSKg#O)5Z<p?AbTG_jOF92=~DK
zmE;~LfT$0q1O<gdzrW_+kvMET4WP9q!&a(wHh3fxajy`$^X@J^(Ed$nH|S68%urx@
z!#?vq#2V0$XaGt#%4z#SoRoh)P&kJS@3Wtu?5Y^62`clc-*G+YLCaf)jXx*h^o$${
zY~A>;Aa?Kx{lkEZYW*MRlnRy^daLSx4QI*&e!eP|G*F?&Drka_xk%qe^wkdeX1W3<
z|Hab%zc;!9Vxj};dk(81I)GfbaZR+YA$iFnw>TOpW;D5pt4XT=2`cPmegG_r#DeFW
znMYp1Of4cD2Pz%13;qKfFTUPCP_=y3{3W%$jVV6sA0wKlD;c`KKQ*y!xMNCIqz{x=
z101U%CQzwJOer&TadQFO9J=Kupm1Bk^`{T{<a+3{nAvZEZMFg$@8^S{Y{0Kd+*6NN
zF;1c^jwEM^8uRw^+DCm~q}${z55iN#HWF0G@LRYm9@9{Ell&K0aNs+|Uoa(UfAhuH
z{kfHI^7lvSFuT_*tF;S8s*&NqcZS;&WCZ?yg0*qvcT~5)Fhjvi?}6s_==Tlna18%H
zfdjMyagf_DF&?5CPKe!kzPY}r@IRgj0$Gc&lK5zH+@tw8Y)SjpFO==UPyYcz=RN(y
zrM%U#fw;V=F9~kjOMq>{G-c@Q(@H>x9)9*EGXJRydhP6G%74?+_Bj9MKeesqjlSyh
zlVK&YxBokZm^NGrT1si(FkkIIdIM7q7^|WxUI#4m5xe+MdcA+wH(z$*X51(P?uuV<
zI_$ZHL`OHxWxu5oP8dDFKgGPX<>vp`8j8M`K~7!HCk_#--4X_p)_=huL>ZCrB%T#L
z<i8x~@F#B{^Rj4BUu`bmaPAoI+eo6fr}PRruJiw6@?UZa)W|sumPnn6cH*;h96;mM
z@+10C$^7;M)?ChY4P>D!eDYb12IHCHXBv_vM#whFyRHC=9t21wB3P?=Bm(p5e`!f?
zMgLIr>-OE-x;~rqeDwn+%|JflU6?%O7H2cQ_5Sj!oGBJ$Z@m3CJpttWWDDf6pZ=G9
zY`IWEK=$FfvOQqsOHh3kHg4)=DOC>D?Hvq*51ZS|?K^bxZX7d$q&g(g1PddLZiMoI
z+>tFg`PkOu7Y<z(EL2NDRW6^S)W&X=Q>SjwRp!RGAwKwiFYxOPL`+=kJ@k%kh;jQk
z_>?yL47P7qurmP7VDcAXrA@bbXLG&st5(0()${GIMwPCEfENrJ>{ZPV((=e%ses;f
z9WFhSDU`kG717O)GS7Cl$*<_V#B=PFbVcsUh}nDR&rbQD6i$T}Yu7cV|MSlKP+~jK
z*oQ`%Is?V1$uHsk+VxWhKGpU9O+S<KHLC+oX)NAD_GBJNpYmTD$ylo4$R_VNevpa~
zL#d6K3fI5scG<eYvahTo5`jt*A?o-q=ay(azO_{ww=q0<asKNz;zvb#FLBF>(z4Oa
zu_4yaj}PlnNYq9ZtCsFgA+Vz+OV-lDZ_CZP?-MNeOZO}QTr-c97okEbz@p9%3U}{D
zo%3>*#)=+rRPFEe>$rA!Q(lHuwyzIy7J_FK(34fvlPt7606UaLcZ!crW!z6#GbA_W
zN6DVX$?{MmpK1Fm|Doxk8a8j*xcKSy++^=#X7u<h95c{7%LV?aP<i+(7F|f?tb*08
z4m0W65dAojHc(q#e24#~BvhfT9%!MkAS#VVHBsmrO0M3*ZUQ&cTR_D&?O1xn+ZviN
z6%@4&v?d>jTCt3))A!zJ1%tjqR_!IpZ&kaP6+Y!)*)a6`wfGY1LB&0^+HF-|{{yU@
zg#poE@#|?Dj8@)0d~^BOwplD`?%;2RR(lWLI>5JdYbvvFqSR8KesS5=#b3l9D9&VG
zrEVkb8+`?Nad)Lj?=vevcIZTDjCK<F(tW@0+{R{-+s}6Jvv(#pzj`1=++s(%R1;b5
z6iSPasJ%IIo19l-U4MH>I^#oByCQYL@2%U8NK15C<p*h|)GW1l++FG}VsTjL<?RT5
z?e(f=nY7?l>vc!%pzj6SzOj^c=7<9R6)F$x%RF#p81Q!=`g4!lRxwx^T}xT)KE7L?
z7!?!_=G@IJzGExO`hC9bb*E51QRiRZflVPx9}0zWzSGOGLd`WU@-A2_0nPgPKkm3c
z?ycxJ5=fHRTQ1kX3qkGxhz`{SUaCgst2}x+Sc9IK`~Mz{6R5qFHBPbQPApoK!P&oV
zwEY+vm$F_86iMEe=&eo8b9sO1ig|6zosBU^H&lPe_M&ROzW3&-*oxP3mhq?k>c=<$
ze??5B6I`0gS>~$3EDa)7%9O81LDCS!0`{N2tDaj<@POAQ=#IK5ReQUdmu@@)+e`nT
zr#wa8ev}fL^=|#cj=AkSz|O$~es=km*rJP9S>TC4g<ohSRFa7C{u^UvQdiL?D2JK<
z%7N6zqzzAb{k1mlmf+%us?+3S=rp6LC*pe?oZQ9{L3O}mF=NM^T;_NG)BqVjGt)Re
z00gjQ8ekoc3_Y}wH>WIU506&)>r_R+x#qE>@^#!+@Om3E3qR|O@}4#}C2GR>c`U#c
z!?|m|Eh8@ITeJBV&gx{a{N|EMvH&Z(y>y_z<FNeZvnNh_VF@|qsQNy1bu|$G(gYE`
zwQGO9lD7QQ8bx_yN7J7Zv)sKt3R5Z@I9j4A|KK|1pJ3Yr$SzlJA)viragL&=J5k#e
zq-#3c-M8BpMEId-?v6e*7E{epR(g4S`!=}zwtTwh?i{X)y>{a^ApbYiul@d0y))|D
z9iWjNzCjLR?LYhNl&g7#+{j3a-TgcJw(WDTeP^#zThYd&-{;M+AJ(@={RlGL$Ie9b
zHhX`@F(uOW%aI{ijx*SyW4EF+#QdlCd&mb$<g+i=-)Me&1b;QO5&vTt0stFk3W%~s
z7clJ*d2~8Rp$3dsx2LKM1Ff#<`NlHG222c7?WwhdDp_5$qv%m^_v5JTr%ifrHwt6k
z7LCAgPo#8oe_r(=R>NpzvY$@H$c2A*=~b(Tp$n>#HO_iHd8%S>sk)e*L1z-1=BBnW
z&!sECOAm*t0<b=LkJC(_B)-nwG(GCBYAL<*?(-UzUY}FRqP%i+(eYeK*&gtmBiMj-
zD2vC=$@b<{PD}GSK1AZi$Qk8Ghg5>MbU9*k%T%~lPh?hIZk0=*^O{_Pw7%gEA4(0Q
zz0Ww(MTg|Ai(b;&Gqx=v;B2_Ozu9wHn!D%xXrfqeJ8sq7{h~#2_Qt)PdE6J2zShBl
zYvvuGGG4BKp6TD66#{Ep-Rr}v@@cuvLR7xwMlH8Hza5;Mrx1{@?@}sZ%J3#c$ADy}
zUS|O{&~fJja-=|Y&+TQU*bn*$ue+M>|CX#D-AEK_1Dw~&-WIowLWVG=tNiSU9=zqd
zIeYFFG=e(oDdx6`Hz(I8xm(!z&dEx9WuM5&_<V6z=@#4*StlE{@QVCf7N@!~w@BbR
zcYNCXz12OJMEUdr0N$y^%AR&iUD%^;298Zz4IzzJ3rU;P#(RZFTbBQlN+v&6Zppd~
z)d0Z=cvnoMR}<h<TD{KMl?Yz2pd!Jrj8V~c^AstdIML6j_vOl@W(}gj-h*?-4Weng
zxyi4HmqArDx+d6jlU1+n){}U4llPpZg~y>VgPmw^^G~s-J|^XSttV0GNg6)fdo*U+
z-EC<~Y2)~6^K4RU1Xl!a5p5g@1p@lrm(dFr0Y1&QY0rygs&Va%^?n4?C>G89RjQgl
z$(GDJ<z1azUDENXy~nGB+QlixJ!gdd4Pz>9Y#Q$sQI_s;>Q1D9O`z`Pd7tM0za$?9
z?~pRMhH$jZ&8?0=o)aKrpU=b@7q)C+rmk)2%q{zu)1IR%xIknmGxF0t^8`})0DO8(
zzajxaVGnW!pK=3v?i}>ODf&}Wa5LDaT``IXV*ATCwE@GB&ZWWPc!{TS#>UYNYf*B(
zY2?wS>$K-QdbSXGk6tUwZ0Vaat*~+6#=y2>70~%!QbLf_i2hpfI%)QNS&K9NZuB>%
zp3%P;qM8tZ+b<nI4+INdzi|pJM|Rw!R9>8_9PsH{^K`SR1S>W4ak^8c|3p#C%(ts`
z2jT8<*uyg@cU8)-ppDHpepdd<2o~l2%6sGm(K9;m3MLlQ_pPYTHLjVuMJ^s2V;eVI
zvQ+jNWrv8IR7W4O;?6x0=El-|9zO?M)$Xg@D=h}vcP(XU_#_^r?mA;$HTh0{$KD#`
zHwECsnY2)8za_H&3NEiciYQxt#}43LtSzLX1IrT^QUV37<3BaOqzb<|)QQiH9b&l0
zwMe(_wKi{z^?7Y!pDfGWPhpIB#-3GxwmKW*fobv^2+QRBppOo%QdF(6k$-&s58&Wp
zRiN<mGY%@sG}1vd$C=?VG?AY8rrD$L$rmkAqBRZFXf{}rl(>?%%Pb21`A+aD66~b}
z&GeS81siQw#eSJ=*htn;ZoKAD(@KsG!|(Ny53k_T7?_pWZ@)^X0GM$6skc)l)OgCM
zVRJA)n?BFkYK-CoD+0K1veR-t3i{KdZ!Y}t{q%QH7ap|~UoFOz9>|<tbao*-25|-H
z6$guZ?6B`fhJxV)r}T^#=cX6-yNVx`IOTjZ{r&W6$XlKnP?;StVm#2dlsz7UoR`K^
z<}j;y^{XBsfVhA%T3Nr!SijAmzqq$tYkO^9zNPhb1D#Ie*CKXZw^vPLGoZ*E_8W+%
zX7de^m<w5VdfkT1XCHSSnJI@B=+CymL-eiVVsLrs?06`Wz+Qt$@Ugm7O?=x4YA!xD
zY9p9tue<`qQK0c=)cg1eZE6@)vFNBT%3hGelK3^Iu@@kkMQ`S8@DpX?);Q>ZL%0VH
zFw($A;rNbOTgS9knjLYbpIL-7HV^8Z!Jcq8dgcr7DkaW@vluB?N4wcSMbz3$oCkU}
zHJTAR{28YdBC0rcfQ1h)kX;V(98AXYh4=BB0k~6c9j1m<to|IcSo`K@A=KOCf~p0M
z?eIepp%i=6N=1u6mS{BF;kYN7f%DV=eC%1ODK6H4s#G$S<Um#}#Dq9U#qF!IYHjH~
zRArTGvM6J;ad@1f+(T7%xks*7O&U?>vPM%cKbfjhVH+)p_UfbTjld=1Ce9cCepY+R
z4sWK>D^((CPvg_O-WvM~C=jYNfEYjT02R_Ye}^b#|H#MVyv}RT=7C$ysRYvW5IwB<
z8$@?muW$I(ma!6N&9}lrEuYRzdYgDXG4icA>#%UiLs>U^?Q1MjWBqoB=TJK-^|?xE
zgm-eUB(5G|UCKy#-$E{LHG42p44;H0jTGDGN5mk!6CyE#@kt})_WNr_GRp6Z-)1+J
zs35u*TD11}L2n9kfis~tZY?ht2xC9eHbkfDk-sHq1XYTCI_N)6wK_bRBG$Jhzb8%C
zJ0!nv^c{xvDVHZAa@czZ{c(G7N9ogs<e&n{<{V5-8P>}ke#JDfZYAH38uVS5*LaJD
zo7~BL6FA8jhO1g}he^vnS#yU=99miptL<7%f-L2~?FO!eh;0SWA+*cQ2WHnGnRbHm
z2;i@Fdsvr>>B++Vph(&mytDLrrYp3XG7u1Bv)PPiCR_awx9m7)llPIaiuM9t@T87L
za}2Jx^i2Rtrz5~GBsPTrei}xAR6DM}0D9A<cdqP~NFJs?7{ZRXm>a33&8Lks!UW~s
zEC~>^u7+1vyAU-MX+%5+f1~NX)LexCrzK|TI4LtfKS&q$!Es)vX4e+yqi*-`W@uv>
zQ+3|Gb7Y!0;H>S^C@v2+OI}iKgTE<T{y@3tc7T8<r98(s7F$|UUq`Qtg%$=>5#H=1
z)y`w0r16YkqUBozM=nqvr_r|o2_QhT3K5!+iTG9D1_wm&UHBq?QTB(FQIW)qbg|AX
zdG!9f@n~Jj_`?R!-AJ~QyX7G*hlbRwM9R}T8pff&F*YoFP`RWWyO~d+l(^-m#|JIQ
zw&KO~E`~#aQ?Vr6b_NNv|DJGlE)40J-gt8u7T^0U5y7zF1dPpx9RT`{5M;_-`c5W_
zuI2Ze%Aq%1d}!8i{wNi)V*Ilo`<f*$NK4g`OG*^Jt7s|@!M_PGA`?UGeH%QP!_-@&
zbCY8v2Y*yYC0gzn5pjRD|N3-m-MxP=+d$W((W8_Kk*1OcEyEt0Xb(1YzcVF@me1WV
zCbEA2^uyuM-d$F};8O3%`YY??&~g0WGkz(>KI9xcNn_=3z@$nc;!RoaX2u0&rc0C)
zoKkG2?8jI;>QgnUE+wa^wn2r5cwLIDB5bUhb8+k0V#G_&2CSM#f}tqVex^Q`L1&(O
z^d5<H*6b(sw>HD``$pp3#fIlpJrfcSTrsQhh>yhe9t2=%#*#?##I0N-;;c@SSEe7#
zD8nJ-i3~-YRYx^z3s)ZnW5+hJqjuOAC|v9@zoLn=nJ2JFkxXsK4WVW5h=v@EOd8Rh
zgNF{CpbNwvJ?N_?k7%s)(lAZx5I(k%e&h@Rv+31P4vjU$Z90f#P4(pDhGhomsI~T!
z27m>)v`Gl~8k~K;L8~EuE)rAc%~N(wQuMy2#8eSgd%Ijb_`wru!SZZ(#i^uRYSp2l
zT=-K%u;Pq9)<1?u_itzv{*W<#j4lXxP}Cep-ptvJZEy9EjXw%$@XC1;&=g{7%{?S+
zY+5`BB~5tB<{?u-$7mOGG%Pv_*t@j=pA-T;Iyr-860gk|hFFXad_dzN)e9ARb`@2=
zfpF%qT$W6_{mq74@aJl|Bq_*$FR<xScrr^crMb@did*-M(q$|I<)pSR%ocab|C7Op
z6>j3BpPqy(ju-#2RB%47&covQg^d`u-lkBwV1J+sxDSA$=Bwn`;QMABHHb;Scn<%(
z{d7H39)pvxD$E9>*;TsDiS<$zU)w?O>@bIXS|gc8#+g+&fk&;KuWSuUd2Umh6mDTj
z{XPBaO&!N@T6zM#60fmRUd`W1W2;QU0<_2&Bz)9R1X&rc;&C)|83+U?2(*YQIAwsR
z3@AKU2zSWus1&rLd$F{k)4C>xvoBhV=R`b+IHbH?Xo!ea^QjWAhpIlWnS|G!^Uh4V
z)Viby6^QmV&e&QFQjGEaQgT|Au1UmPj<)sCT2lRh@K5rALXyC9_YiW(%Bi3RZt2$=
zA9tP`W@dkcV6N39MV6S|h;7B>-H!rrhv?`}DbcEz1n(-nZC*L#bj?!_hi(aDI+z53
zdyHF8)nD_aNp-Qm?#|ERKI=zwTN=tkhCnZD*!IF@1jmrn&t;L8>!fu9VE7;pf?Frz
z8NA=qnZ>U3O5GMOoN~Z?BF`T;<UIGM2W+TozAQcMkQ76+4G-Ua9LO`od7Y!;^#bpX
zgfT5+=<~?qeyn<#p;^RljG>B%QS~&^YJYG(@v=|<pV<(LnaU8~hW<mCv?;wTzg)G9
zkMkT$ssMNuax-VmtS)nvJKj8VebVHPX7be`MV5^Fcm8m6JpT1Ve+31VHTgMK8jomp
z#0VwFX2X2^`xPt@@7g+<)ewV(ml|TGPOrF&BQaADT@SG#MrCvkgK~=+k9Qw6JlDxs
z<oqE`gtgNGb*C<7ov>Ew8_{e`iKd*UzT&xHN&b&$Rzs%^r8*Bp5?B%)tyi{1)QkSt
z=pu|Ub7aoPawY13sXI9Lc`oA+Lf;zBZrbNRUUJn3cw*>m-DTF+-=p1Gv|?;>Kjpru
zBD5Z<+J^61NC(qW_)S}z-gcIW1m|_e?-m_99({T;raRB|HDm>A|8!MXOQ|h5ydU6Z
z#b&~D=SMKX&SHBN!sI*Ba;||jccKJ2!)ROPakQB_Tt><6Yo_qL8lyVVy*pJI0(g3m
zFYtLRn6lUT$by@FGaYlBdIRcUD=0rX8RSk$J6x}3rF2<vKM9#`W-$9vLBw}G;{ZIl
zFgcaJqV#6%x2Nrkm+lLRn2flhSCROxfILiSQln~NqtJ6V0y$*e6G)$Fnr+S2`!@Ih
zXm`mFKJD548(A362Ob9<b_EyZf+b`E^w{OMMJrhB({_OSDZzQp*8KeJA=97zQhK8s
zru}hy8hoV9ff6$?HF0ijtSx0kV)WvYBCT?x86iSsuv^n)yn8pO9uLm+A90DHh-+0X
zK{q2VlLszBNyb0%SP(vO&@!3>dWK5(yN_D?2b%ofWtkWiUkwk{>Hi1J7?{d^-Yx{O
z;jY8O()~drR{%Tmz@z=W<tn!m?48GVWf_7d=j_|SJA^qPyqME%IC<I=^*g+{`Pb59
z+Ro_34iNmQ`Ky}TnGf5inp2gpV{dvm<5j~7HnPz>mzDlrm8nxXSddRY@;CEuUHL<}
zPuF`g=!m0Mpl(>uApm@eAUFQ4k=0%ka`}!C4`t0IH#aOvaOPp$(3`UOu~(>bmw^0}
zQmpfESlS%sJ>UWxkeHq>wU4R8d>-Tu#=aR5f=O-YN9k-G`B=-hK92+BRyKGDVQLNU
zioH75Y)>oe!Ft*FH6Xz3m3<+AJ=s+R7b&u^U=Gg%8i;~_mbp(mJL<e+uZ_i@F%5sb
zq5Z2{_dC$f1CnXTKsTDutl=?&b2Y~+H_ECtI^CV2!yN=oDF#8P(eas$f@S~?r5Yek
z$gRL2nLkP^%*)A!)rqo%itvKL8^(z7%&P8JL_K#aip*)Va`$4jPq8KXMUHk?C75La
z)gy%<+TmvD{MFX9*a&m4=GEji_I*zvRF1Sl?w6wZpBYDSt7&HtHkosA`^=x8<bJ1`
zF_hsxgAOMzU)(=hPMb2yc~*IGk#oo+6Lea+2aDQhR>YAKwNfe>JISQa^bN+lCxAvm
zdbj!y$#<}Loxo!qerN5ISg<NU=(~Rqg?gx_i#@08ucj;w@ehebj$JiI7@zk<Da8h9
zY|*xoi6R>EiOh}onU+^mi48dp+C;S6Ci;)h2^$|GTC89!uBmp2YkgPg@`wCYQQ5)9
zLc7HC4`dA|`7+hab40^w^eu8c7?Gk$eSZ88Ji#FlCty5R+=2OjuNL_NTx~v>>Ex>w
z$yfV+?jJG7sm8GQZd%q<U6zKmPQ^%&UbeJ$oH6E6d=(>nxzIs6Ia7H$s(bi3)FR_T
zoKM~&r`6JPKDh1G!-kkTQGHaaR!?qb<Fx+3Nh51!%KNsP7LJLGl6jb)1y*s^o|p`*
zRmSY$|CI9F%1KR;{B3?FqHDhIB%!do$Q<IC`rNPJ#q(a@Kvl*tqALK-q$i$Ns&dM0
zDc1mFBf`z-oSnq)DRWq%)izgiDf%xN=H=63RL-HvYLEFnht20F3PM%0KefvNBi#G5
zk<$?Y=D4&dqc?EqyYY>StIgR}AA!vnm^a~4P~I~85v--!AKUS^L6vaTm8{E%Oqx3^
z#JUd~(wmGx((&Fn-8lK;n|ZW*6^;4R%?9bgC6qr_9XS>myX-tG+R(+CH`&IF?DLDP
z;`#>CnZt<g097VkXrWZ)0j?MdW~mVpG8lBUipKICk@<#>W7U-cAo^_*_6$DgW<y;1
zKorjGH1&XfV4EtAZ3uPfA4y!!XH=}^^@Z<~-ollZ#HJaWdHSMzLlMtV8d&?iB3{qc
z@r^0jRLC*fsp7uYQJT;fio{(g?S$2ddOv~Di+lyC-13n2GjUArkHVC7vj&QNX_46-
z_9~Q=!+y387y#*@W52~QPZV+LGB!u57n!aTOsF2T8UYzqoKt}V5Z<#ed|&^(;c8J{
zH$Rsx9FN{-ey1zEbr1|FI<pxI@dbQn_|QHRw^faGl$P+<5nYdwgvb3e=*AudM|-*+
z2}b{$^3X#9MKDY%2$1+40Cg6EIF2_z1Qc(zSiRm<n#vfxab_gW8=Ms0RK;YI`;x1)
zQ=Usou%WDM!HF<;df`_O{=PZJ6&x2-*;pjUP;`687t<q@2_zaqI2@VO@_79xGQ~c%
zXMj*_m#`VHPaSn`hiDgG<OyM%58%Tq^|HI)^_q;=MMhxu!HqmoscPblUI3&$FgP&a
zO0l1W#g3H2Cojs`;^ZtD3un;bZvyif!>7|=>R&1K25%`=GgzuJ*5?<Iw&cynkUjq8
z3ty2B7e<vDSnC8{TjiI=UiI>at69DF%3!ZRmoo;-t{pH17afvrqzTgP#O|V)u%7wb
z=#7&!nCA-gKBnb7pgsTm3!GR8&V4|>=#xKqRn#AJvQ>fmlEyTo`7Zo|+e#CBs)W6F
zjkU<svlZv<_LD_sbeOw@NVX%659r0+AZTbCpc5G-%OPOCCGj}z?!FBqMDW4D?5*6d
zH*1n19i9~6<BOAZe}LtJ-no4I=H;F$-|kYtYhOn?+XvTnqPR9pc8~M&5(*lgnEqf6
z?u<NP^3$wkAK$S#f2q2D!w2avVx{lt2UBqd9q)u}Ha$*d;x@54=HDF}<IwQ2Kl;VD
z;BgbDXZOB4;ACB#_mmADjbc6<D<l6ojPqN~gvzx1z8+H5KmQ=*QgiWU5=7lmU~~>@
zk*@a`(_~^q4by7E5pe8MXX{wt)U4~GQK^?O$~UIWF*n+P$N4DNiinI=WzZQqwXc5K
z0rY<O1(%46ttbTlKfx?;6=#HT>8e~#yP(QH3+ac1nV3+W@te*#lp7WZO=vK(7u<so
zNIfrqrVbq$jn{3lK)S-1-QTy4TH}=b&kgJmM&81ygXNh&c8%^*@UKI?2e*!yh|?fV
zYJw)drm-b;5jt>LumVxH4QKt~x5Ni1Euo%Ee5n`c(bl^$6NhjmL3s`i0@*Qu*}m+I
zGeciuP<(sb8?Z->h-Ll0kJKB}25U3Zfvk!6-!Y4fNqHe@8bb5D4bSLr!kL*;`5Nm)
zh>=71_^%;fD>yUi7r@tQ@|l?z0^Y5T&f>i^sT7=<?yTK%ro8NQA1D+Cez&TL^?cnh
zO8qndzy5Oa-Gz1|s?X;P0-hbSx3ae``YL~ZKW-u}?ZA$^?hD`!ugLIZNHtWz*UEp`
zNBaj<k#}axx2Jt9SC4c1IQ2|LgSaxo2giP_#RCy^X(ZhJdJtIZp-1-uZEqi+u0@r2
zadGU_X^AdaKC=Tj!;oCcsHjPbIPUi~^Qx9=f+NTZPD=fIs`|S7iFH;-(=Wua>OQpW
zL(}$g?sOj(Gy_j*@a`fh{v?myRpf_hz?`nFPu@2j!@0*Dd}^*0<$GFajCP-Z+@JYa
zs_dn#ko9=$%2%Dsb#d{p`XQN+b!(iX2G$kli`xu;3d}uA$6}RoY<8`0p{q5hyL<=L
zyw0dEJk#zBZi(w@HiO0kX$RbQlxi9in>J$-E9I@vea@*LD6Fr!lg6Gl0vYYQAf+O+
zN1M*Rf;L;6kG)_Z{k@;%rNuX!w{UJ6*udTS-;<%%pVaW|JnuMdTS2|=pb-ch6HZ`l
zaD3o1XLAnH@r3=vJ4d5XJK^s|4_F*G%f~|+U+R{>ibDXz-j@y{Nw>imi%>PF6!VME
zRD;AID1HLsH#}Q~YpcnW{nE4ZtEsd)dz*7_XP)hA<l58usBHEwt$Z_OjrGu;i9DuF
zThnu{Z+W97wcpvIwc1{Qg0@e3ia$dDAV;7;(ztK&;O}Kct>aXh!=uSXXh9zPp{n3z
zG;Rtic$B_=on|ix&=L|HrpwY1(P&)tYL9t+lX;VRt$Bio13(+&BO^CLDWv-X$%DTI
zhEUmA>S2nR4u_6Cf}&n$cJ=GGy^U)<-A(t^JFk|Kf887uVOC<0=^eb_1kl{E?B;AT
z9y!PlHS_(=+p%xN;px@tQ=y(sL3{WsTKWFcf%kZuA_V6pWInl!YvgS5bxuUj{=}i$
z;{w7eEHlhYB=HHU=`VFzw84BDsB^^ociZE<jHxy%=_@LS<C8QjV~_Hn*l*}%W(2bm
zBtEOV)`c4-NREj!DaMBa>AYHICOi4K!0bttD!ap=L@`y(IX>FYqUzOZUIu$Xb;Ppr
zRf}{~#q{S6ROvMt?@61YdK&GlD6+lo!p6mArr&uIu4?{m_c<?lKW)xGLy;BY&&`~@
zfnG`BhE|yF%WW%J{6InMJ}%V096prhInsB|*}5o&$QR?xT7l>e6_YywlcmslhaO@{
zQaHk6z|MvZQ@7#UA1)q;&{~t;)|X>d?Z_pnZMj;ytRQs}B6TuXg}vUNewC^eaxLKp
z>+}vCzly99rjVEZewOTRa)<eIM|H}q#K{`1)H^RYep9cHO5Z3oxYPmaVPU2M<+z(r
z4um`bw=V$-bHU(>i!MjK^VvdL4JL6zIhIQS`m>G98N8RaU&E|*Po^jY((HyC4G<`@
zBrd>KbWi%8dd8(@DP_5)*~d1a*Scr3NfT)|WL-L8RS_E>dRf)SyI7TOJbG~tzfxjw
zSUoj4RJAz<inBS<?6h0yo3;z_FOQ?g?&B1D03|-LdX;nMO`{n%9DE_%$2rj?!#j(;
zqNQ}D?PgE<eif~JcN=+Ok_Pjm-1^Pi^zY>*NR(}O;BLt#QY(L0Y9Mv^43>%wi-*vT
zIEvPMp~(PW<*H2Gby540;9>fnz02IEan0$p-tLMBzAA3C;ADTdb^17L-Slrkt`^Y!
z<^afWqkj-tenSFb|4(Axi&P@Rl!z(GKO*0sV4@qchfgGm2w*xW8z`}=5KS3hT&FH5
zvV6*AtIY<viR4G7uIt`U^z1twR!^*7Z;ZUsH>f54aFP%voEjP0n{;GxG;$A0Wm^tR
z*sK@sV>jO#HxIs#+&dryo+0^{O-{Ww4POo5MtnPZh@y4;4Ch+#^s`XjHH(PfT3WmV
zZgH(-!I}uW)@*i{)u0-#N;S%qm+DLG0JKeMuNh66R3`YZ^2U$#TZ_cbHf%a<o#~79
zw%)q$??k8+SlqhI$mi(O;#%L<HAz4Y)~`~u=Wg+P_V3>+bS?v{*<fYvU;7KaJkD&*
zCt=DF5HK`aE>kSeQ2TMQg~gld?q@8`W`FlKZH7?qdz?hWBFK(SMDeTYfKNpdo*{m-
z8sfvHba>!Y4Bu|0ryH9`g@@rv-T0;J^OvUd)a{guH}OS$*Zre0S9;QaFkMf8OjWVA
z;vYo)23S(n0T@5(NZi)L;B^ZvVW<+?-8P9EJy5|F02Y2OQ7VRd3wfK>>1z(b1(L|@
z9#W})V7N@-Zt?T`$_j@{mlawk{>AmlWACKQ+LW6861<g!;aDE!HbwKNvIU<vZscQz
z%1r%Ph8jF9lr?p8yqA<1*Mi^U)?0l9zluv&B(wvj$<VF*^fY2&Y@0{>TvkKjX-RE_
zKRH(VynJ^%p8fedVCu4fMwf(1mK%bxr3rYc6Mx>QE1fB(?=yMt82ltYPrJ9{G;f(7
zUBofiip>_c!!zpe>{E0Bd0Wu6+ZZ6jd-BHZkLlP=F@#{>j9BG6nVe%~uqOd6w5u$n
zC$L^4WwDA$2oN36I=-ZxTZc3?K0Q0~u_)quui@+YP5!Z^(<VV^!ZQ2aKBUf;lXYs&
zlH>|Gwq7^L5~QaFJ>rVlAX#(TY1uW#rAL38M`OXmVqalIX4Rr+sT$};!$)v)oUGS(
zaHP<!$x-X}ZQD4!p44`W0Gy9$lwNK`I&Y~f+N;%^vmKo!qzRPpjl=WY>V5X-Cd|Y<
zy{8m&sqX&4ot=a4UhP##LKg<F3!TAAIF6`^4F)sb;^s>?K3%+=?m2B~qEWqZP=G2j
ziy-z7OhSy?JY=D-F#|!(ioK+MQ25afA4?p`TOMRH<Qty23)nP2JT*T2=BL!+5D1tM
za~*01YK-rM*xz&mG;|K*BVF>EX!gvacyf^G+&oOy{KK4)gH(#lSv)+~jLIxu;;r{b
zPbhSHWrO>|4wc5g9XhQP(efj8#>qM>|H+^(c*=>j0qY#q#;G91q9QrmWB1U`qfgn@
zP6c_arzPM?2#6@X>U)i=i|6fqJ);&v_t}%r3(Yc8E*-vT4xL}t^Y|RU)Us*Ut(kpk
z5;}fs_~cH^{8~d45!?(cheFoP{yjgiB{IsNW;zanMTm~Q;BNYNVVeGDo2GZ-HU$qw
zG`q#~n-Z3U02OpKFsYuY5YzULCZovOP3?0*Tl;~S$I`R)%R~9Yk`LBa&fs}D!Ogt1
zv>}h-+RwRA(wL`(CROUJW`McV6X54)I}e6qOWO>XY6tN4*?_&z9zVlGZNN!n#&*j^
zj}u91RdKApf_Er5Z!1dRNf)eVFF!Y*@ygK);O6UPB?^LkN1D%5C!I<ZF7@DfTYv`7
z-V*byqPJ>rX~#`Va|`NU!{}J=@(UZev}-H_Nkr?;!%1Ju(n9m=Ze*Fd^b!hc+DNB4
z*P?In=f(I5$SmQ<`Be_uy)h-S{bt7K?~p0pnJEjNWglun{G8N_@-*j*Fb7=|=`K+Z
z36wHhg-(NrPhTm#22tyKx}>xe$Tx;2tXJ<VcosjKq`n>*)^op*H68<0Lr@Me`E95L
z=>(o#+Erw3;^(qb*YeCm_DDBKthxSoMo)eO0V#H)3wCxFP3E$pbcxdCYp!5<<utGV
zx`8l3KOQ+m$gOQ7QQE|4$DY7X?)3Ru4Rlo_JU&y~PM|}X-MH{)5)gGic)jmW`d11i
z&%l^6hD6~Aj)GU5C?8uvfb(2bGDL~CmWE2uY<5Sj*ChdW9ioGlpRy4Yag?KAq+y6E
z84O-O08KfH1MhSrU-8aVy!GkxI`c&H@{<S^XhE(X!2KD%Jj5Wl_3AhrrkeH*#fWUd
zbJpDF5|PZdRG_$5FN-O9lf-gtx+F+C*t0aK4(qMHT#x-zT(ar>;pH)43k*2>^<<`3
zm1m<C;dB9A`HHNf1x}6~`H!ZTpxH5>tf6WIJ)ikg6&+wi?ACt?k9U&bHZR)lnZe^H
z&UzAl1J={`H0S5MGHU_13@PQbK>Qv*0Gd9twp?&gw^lvNEwkAAl-WXDtc9P)L)pWQ
zI4z}vlE93Z&qych(=q}_YU6AjDE4izq$Y!uj9P8<wwfEq5P#e^w_*+{9-5uk%Oc%y
zwB5tt;>?OY_{t?e6YYc+8HW06rQP2_S-FGnSyNLn&U2&j9yrH_E8e36wgR9drZ>j9
zWa`e<9%EvG&PF(tl*z7zw&V1^iXAIkNp)G5hFhnyc`r7#DXkvuvtRZ2TvUNBPk36K
znz5mP3A)oOKWFe`eYRc&{{@F^Jco&Vkh)qa5;B5@*|qz7%6*iJBP{5O6*5`IQYZ>%
z1Y2a~j+<gr?G}GgbDQ4_;LWO|f$n4L$&a0<?h|8?<|XmK)nZj68{UDTPy&I#R_Ypl
zo*b8Bkl3vYZP&lxUhS}0IS$3olttb@DJ?uwr0&P+9_&AoP6y13J>uU#+0+2fStfp-
zDY>vlJ;|$CPY@T!mS`F;8`g^&B@FX~B0fRIXY|H8zAM}*!3|jNXxoO77uDV3MoEJf
zwHM44u9qJI<7{hhLAnD?7LrvB!CvbLY@qdDn^ShOJ|T;_-{1p192U9!uUW4gb~*%@
zi~;7;(?aVb1o0NLJ780X(&m2YIm1-XdY*@U`QwbuO#*)Km}o^8+aE&Em<?JTwF~#S
z-{5GQ?R^VC_tdo*@O>ADpla`boTT74!}iW%c(`=m<=P-a6Ukoaa_-0O1*Wt0Wz?vp
z5t1-h%oDVJrlj-idLD`?#|NDzC?4^z-?=E%6oHQ2xx6Zc_*}+b8Q+UDgZLE;fh21x
zeetkAIhzf(Y*wc9{2~@C#e(*qsU0PK{FqU|d%TpNXMa4iq%UTDgC)V^H{<+U?Kk?;
zo8jtddiVGeE!8l-Z8KT20NK*Dk_kVjYKh{UY!eoXwF-Tw(g(kbprn7-Hq(bDXi(jp
z=Wx<mhz@jIGgD(7*<*o??Xmj106&|PbE6fjZl`1SXsh1IdSlghl>|w(3x5jopUl~%
ze@;>Tw9vXf$7azoPI`*a&Ut$6eY$ZGDwl1dr363Ph{!BXN@<U>O<)-x29_G!<3|gI
zB-krB&ogC;M7A!4u!Res-#)#f^RFf7VQG8z;QPMYMt#?#AH<w~xxEij0g96ZybHsA
zzQ?WW^UnUh5Iv*l2Exlr3fG}a{n!7+*FOk$O)<B2=YJ4;-~O^qrtzf>81OGb73Jjq
zy|eQ)+CPc4y{|8$&${RJRMNEchE0jtk0|}w8)<2;M29+0t^tOojVUkfNbTU*3ebxV
Lzma~ue((PPrfPe6

delta 31397
zcmYhi2Ut@}7cLB<A{ID`h=_oNqEw|y38<(LX-e;)5D;ksh7uqfD@T!*NC{P>_g)i<
zA|OSO5<*K*5ikiMQj*XD|AzD3```UM2Ar8avu2fdy=#X2+qmy_<G#3X?hY=`4n$N<
z<;#m)0NcRS?;vB`$<zs|XA|qD*oDZ=5kirYR#7={q4&oV|ILv{^(Tzz&Ec#i$Z}8<
z{f+BCTP%?lBaKG_<QL=u-ti@_3R4>kb2?E>RE_Q&j%_#xS$>@}j;fpc&?0a-mG05+
z$FckTC~7tQe*V;tL86OLx`Z4vo_+@7415$EmPp78#`%<%!@OtAE#KtKpq8hshNL_w
z*Py2GSa?lslCpwP%bVDFar}zSo#ZpU``=Ab)-ry<&(f;WQ@j0vW9hEcsdP%*oOhD)
zD@C1qITNv_(CncFgMW<ddo(9pL<t%>PBQ%04WGt87ojHiZ3`kw(9<(weq)iQ0JJ{m
zGSw#XsS;#VWs**Q`zVuhSJ>+UfiIqOd*Sx~vn&D0xUpR>6MpZ}Yu$-@349#6keXX^
zv2=@>P(yM_Vg2@wd8Gwq9nd;x=Zg4lS@WW#s(Hk((eS(UqX;$q>nf@9Wz!ocdmvwf
z(hY1dDdc-|`}sUBDn6SsC;Q$7D#Il?Ny#|^iuCfQ&-VwX_ZSLV@09B{@eSt`|I2z>
zH|f4B4#&L?k&?dW+~j?SLKGoNN^&#&&;#<b*A4``cOPZ_s7<R?tj|<n*t9CyQzS7z
zhO5t?jm#c;&!5+XQe7)?s_ct9W=tin9s2{@oMM<|-fUzsTSnjmN<l!CZX--l=Sc(k
zN1Upp((mh4hFrL-(5Uy@dhtD?KT3B+7y#`T$Eg6(0_BkY{3LRAM!YtTr)aKw^)pe=
zG~Te{aYonH&N(GXSf0k^F&eGw>;6{Ugr3_}&nfNRMul%1(*~6JibWA<<lQ340L?H@
zOr?fdh_0zoCj1CM5yhM<7o$lW<876`yenPN>pm*J`vH3$C3?8A&(*j4=;b(B6Vq5_
z4~3`J+gUkuhoRC0vcrUpscuJXkog==-Lao@=!I)%K-ndj&DZJ+q~V0wv)p@HOBg#$
zo0##;HKf-(P0>Gdp8u9nZi}IFN1^+;0m`;}|Mg|S6>%gcU|d_WFjv>c7!pkDI$B(!
zg}E9KnGZH9-5(JeWriqz;;$DijXq1UB=pEwq+Gtso&j3YLSK@o_l%R7L6;_xTUKsW
zTACjSmXcqS7n7ToCS8<3vlBK(;xMPbdjKXY_mV2Mh*`WoE~n=WCg$Q6Pev-|>ucO6
z0g)0R!{>J-JceG6zX)<osoG-xC@uJ(()aAHe&E)rSMPTuc-OncA#(HQIvnK5+lz6X
za&6dKc~TBl0}ex9#Nh_<d9A(7F3k~Ith~om=LN{n`RJs{MJ4zv-SMlK$sx1mz>vFQ
zzu_}dAChPR1cUIRUPwb~**xGiW{Vx^@VHq%bGA+)VKeR$^6W2Dg?zEwIZwE7YB`13
z(;U9HarrX8{-;tbXFe%330jo?fHZyWw+LEjeiV8P!(mqRbn<;uP?}vteXOp!5Bgd7
zueiKQgOruCLt(TEws|DYdyr%EWa4dk81}&IL_^LIr8XHDYYH&3%A_cM(#dyrxE+&_
z_9#m?9Z9cXEAdWF^FK^4(tLj$J%X2TNaiFx<)2zV_SbSGRAX}f8VAQ$4wt|CI3ju;
z=Cv<xN_eAqT(|7<^yc3v)-Q%OCKk#UHnum}phg>W*tdtoBjE=WU5qxCGTN76@*bjr
z*4t=<lx9=eVtHWxfrO)9w}Ilb&-AmSa41@pe_hcfC$H-I(3zwfgWt$^pWl}TsHIDy
zNC`rrsy2mv);J$@0BqPvB+)7Tp-om=*QaphG>Sf|4qLLKISRiwdw$L$o=&z;pV@Q4
z4~K;=u|$)Mn;(gxpC%i$d~+BI#mLegCavn_jgblg?sB_x>t0EUyg~Ztd6XpnrM^#B
zmZ9XiKg=h0H}iUtu%ax3Mpmf4PPas}a4ST$8oroU96Rh%ZOAugUvznXgO*uCE99M&
zTeY^#$ca(Zt<;hub76h}ZvwR=(>sfzp-m)-ohzY#WAv*PkchvQzyGfSTZ{H_01-XE
z)N?ZzF4;WG$wFx-^3;vot&AQ{&O~9ZT}ro*r%t^N(x0pI&6TGjpIR@nH2P`Res{k+
zw!nPyYvje1qdxUW1y&rXSM|Zy(MI8sK~4&PT`4N#i8VoiykoATuixJs;T@u=)3zn<
zk&zSWx-VX@d+XXgUCqq)`$@RN!@zqBA&cLkO;x+<I>*WB2tu9BLR=$$ifsAgsd3zD
z7492lG1AW0L<i;#x0w%|WU5BaCd_J-xs}QMxZq$ytT3+&2&$QSff48^Ok!BPrBfYI
z2n{b*l>sRP<%kmcd>$Vso?y{L=#cwsd*8G<UuIIBmxJSkd7{EW4i10=wOZZhs;77N
zjFi&BGBJomt%+^jAZ+uuU5A;+ud06Uu~)7F0$xw6&UejnSB}GoNYNp&e=KineeG-%
zHg|&V++Qqb%o}WIcPz6dYHPQ(zn!Pe`0w2RZHmbfDN1>+OtoA8TKsW(IDxzyK|KE9
zgW!+29(yS8o(vtewU#Wna%)IOT<$KK`95dI3hOmV)OBcTD%l*>-RSvDyS8PV=k5>}
zX~&^u=EJ!vDmoN&r1*mN%aFyql~)#y((VQ+AEube@1RZX4~Wjx^_{b$*yzeMDY7rx
z|HuPQUG&J25Ka`@_~>b2kwiUlNZhNYm!Ig3sr{B1Xou;sSLdKW+|x|-v!l+O7tz0t
zhI8IRJ0CmGS&n{wtdo;~hVtIw>_f-#W(y@XmbP99S1?mh3+mbY@~Tz;vBFBWfd=a?
z+K{i5GZVeRM?Rqd+V~r46q+JU_J<xjI|PwLGyb`Jc(X(!?S1z0aHAgj(s6YuJ*~X>
zoa_>sVE5VbT9li9lbPF2v6Po^0?Q?7E4a@koYH%?Tu&VR?{O*4RCLAhYd~uWoG4RJ
z_5g8{%nEVrf1IRgK~wS0SuM|ICud}9+?D)u0zIM?34fwwm4__7*`t7FAH&Kg#D|CR
z>f4ICPV?0cy)&%z$-%YiG+{?pPVzC<rY4w2BN>>mQSnW?&rH}|u{hZ{o(uUhp?7Yk
z6hzX}MR)F+i9w}T;|4T3fERLw%I|AFpZCV(xKx|_Nast<4ieoF<%^ZezAo%(`~EJi
z;T4?%pm%>~4DZ!}x2~;LMK>eri^Mz&m+gbrLwsv%Mu`?zEx0PMUoA|8ImY;(qRCl!
z(;-2{<{C<GSmif#O;VrW7eR62g+eRi$3iX5;>YT?x1;;E@0<|j2Ili@549mnM<34<
zuHa{0+MC~#Tyy0%u$(L4^;s4d@nN&W53R$hS|1Q{75z1|Z?M>$)b$%l-kq1(n=>L}
zunmDZccYe^-jY@;8#0iZw-xD%K>H>rUmqe_j^BsY!k+(b7nd{EH<O%qQ6Wssv3RMG
zIfbz_IFt*vZ{rm(+H&%18h4ay%;4GFMG3(KWwW7elw0?Hmt|LkUu@+z(qvAr;!3Yk
zZe31(sj^P6p;^52#@0ZR`L`ay@s7&==v+me6eqc1Bo`Ruk<3JpCkn20xwgnQT}CxF
z!-Kv<7a<yxj|OO;?C|yyE4FMkf`H$kWnN5_zeD`tDj=U$?!;VLzw#2dK*I8$9i4=n
zW*>ElyYx;J_W&48bDmXkT5`;$H+r=u{c2W@)i<lN60==T7dAx}j>HRDN=lNqPEt)Q
zaP{5~-ZIc748B+PKGK1FUlLI*7PHh(!mC?+k3U*0UKOzSu`V*@BNZV_a*M`aSSdE=
zxhU#R0UQxht3M7zEHvoNMKMo60Tj9Pw_D3+9)0tJDkbx9_0j{MpWql;n)$U)+yQ7t
z;;^lG8pIo5SH%vbp8pMh!3c9Y6aq6C%T%$l9@vQ!TCqUIpliz8nck)IicqoqVlRm*
z=u+EV)=6r4Wri=9Y1A+f*RD)g#QbXupDLhT!a-bVk!~tB%TX{f_x0U$c<nC&p5w<`
z4h4>v<@c7(AC^a(i(V0{e{=qX6uCeuVA8v?PjK)dw0%~~=i$SNCR7=E{d4Q>Im?k-
zdOh#*H@$C?vc*-5<LOY#7Us36*5Q71$=P2G`PgN%MRm(<gW0g-UShrO=tMmjB5w+i
zAoF)fwTGDH1zD)@!M!h#5g3=GYlVX!PBNA@Qbyme0*dw0ll+_SP-M16Ji>Nhg)7fj
zhCjJND$G`4xH>dBjq47IED&6nv(tT)uhM2NkZe#xy=CQ4GC!_ZA0L?1m>!azBL+hx
z;Z4j2*b+qXl`}r^HFt*4s0nP&I)MGfABc~8TA346x+*Ntnu{kbx<-a=Efl{W-_9#G
z2q>QFR%{o3|8>d|i0!-D^KzQ~-Z0fK$&ijefw}6Y*UO%QYH7b2qJ>u7#E9m=4kNeS
z?W{9Z>JW+$D+#g%CScuyy0gvev7kC6ipr8+??xDlq8n0v%@6LJ9g;@@>T1g;`TX5&
zeX7DRSgFz8uui)1^Dq*;YUpUic4k(3`PH<=GmkIu$7RX{7?-2Sn2B$?#36@^(CsoS
z)Os@#t=Q_b<p0g|ewXcXAg;Z^GJrpabR0t^&AWC|NRnh>47G3gW`S8_U+j&Lw@y)D
z3G(5&NcNgsF{Uqq8VJ~7!lR}I6rHwBjUF#Y_tCIE9t4Tp$}a6b^yV!O7^>f}r@p?I
z2@<_@3D)^D&)>^nob3(gZfcHWMw=2Q7?zViJt$kzQ(Zb(S)+|jbRBCs#qq-YoAA*d
z_0y;7zSx!X9gW+TZxl=I;3dD7M)rmj>G{WzTHww3IY}ZzK#3{EF)#$>0~$x?+Q_gx
zD^`*7=NDx&Q!j$n%kXbc0V2ge*#NQ-Y1cLxJ<Wc17cmCg6j9{-*F23m=sj(w-amn?
z>Q!wN{dm4);LPL!OGhyYS*nYiUDn9V6IJ7ab_?FgHH+iA%KCFkUws1jMb7zl!4qqZ
zTH|_*0;6jIB9y0h=-6OI{jVDhr?jaO7E}KmyP-`Vs=faPy*9p`Ecp$nrSkDRmc{4%
zAjn|sTcH?-`ru}_!UC7{Fs-zhAj!=%pMPJUW5j%Y=dqZ$*p#D;jC>T=w>EzjBjyKc
zJB~}R+di&z;EI^Sr?zCn4<#>tK?-;+v`+tx4`hD^(vz7NF^>M-kT+%3qe(rhadI`w
z<5q5cH#EbsC*jn`rJ<i5v`+2A-RPCO7j|&{2!Ep3hhS&&hm*6%P>l_~KC{Q;$?!pA
zw~uMbhX2SVZ1XULB!;=f2M`N#O2}COs0XekZy1JnHI5b+5g&Gul_WbxZoH)ZeYw%V
zki6Rgh_)^ZW3JnHV_bw2Lgcvh&%|FKI+Z@1bVY=!nr|hmf+cBy@n<If1f{`Vvf{Cr
z8n$ad)sy|^a!+WVE$dC+lanf?h|xrhcwwJy<`ln7<y3M`J**#N4&kJEqX_Fnf+34g
zDsQ?K2C-gZIhac}>^R9d#ATEqSxQA~p#a?z!_0YYkr^%?ZGj6n;(e$|b7=}UnZ4_|
zDQsWY4UbR*&6-N=+|qtvll7~spDh2bn`g2lUR}Pc7w34x{8j|Zx`Uc#KVZy5o!U2Q
zVmE0oVA}X5#dZ>xP%~u^LFjMIjYS+dekVfh>pZb~w5iOa=bF(HtBb7o>EWi5R14bB
zcRaa|C~OQ5Xu5-X?o{sT&z3yU>civz4MlU23(+KD?28*wXOR0O`Opz(qz>|3V)(76
zqD#-ja@M0E!nXigC(YK#zh$u}hm<74sJ$`vSQ?p;yP>r|BK^ui5Jd;J6;b5ie;udf
zlup@HeR~U#pEiZBmfvL`7!?hD@}@8OW8qk{P*ZQ15RY!&EHZyB*w453=;Zf1Ls9;%
z2l}CyU-ca#DK(4M7zM*=nJv3{pLm`ENjp~v;oh}+mwX_={`2&GjDoIlEFC?hTAv{t
zEL)uNOXtvP0y&-X3X(PY7?Yt_d2({g3nJBGa#$Q9u_CcysBU7YGK?_hHJ{WKC`l4R
zp0j9tGua$pA^WH0?k5(ZP~OqoYU^|e+wc5W<Y=OhV!JW=v462YCL+6rI+kzDUvgla
z6*IbWHx`)0HtQ&gL=8fdGgX-BeATto{TP?hd4u-|r@OAmD;`oS8*&ELgzH1mit`KO
z=SP&x@GxyLO7A;`E$4$F<8&PbI*-n5hTKX>a5F9wsDoREUnm-bjz7=XslTL|8Kl>}
ze}4Poe4TrgA%~JlVQ9W42!B8ArC|Q-xi91<Kq8eO`{1l+H#->XhqVkqLz}Ja1|l~v
zDg66o;Cea1jDzXCKbZ4eSYSnQG}ZE_J|2x{W-!7^+BbeX`lxE2UPc*^rh8X=;uSN)
zF8BFMb-#O4-)dM9l+afiZp?YDdv&VehGcTRu_jBSiIgQ9x-~FA^jqZ1iOAX6x7_16
zV9IT~$&{6&L3Dv2Jt3Lp!EJ5iO339>5nS?lrA7<AMxdK6uY@GYsslF09oqGDbIQ4A
z;_$i*{#YuHBLCV5s*zFo1>sdK%B)08P9OtJGnh%6_upp57LH9y821f3d}3N0ZfP}!
zL(R?RAWHZ1=0o57>Ux0fqt-(gH-Xdw>=u2#TTw^S@O`MWXE9^TV90-St<TUl!)My8
zQYv`)#FNwctMudfV#mdOIX{~d79NC;-V$h4(F~b-0!29Gu`kDM=IBPbK5vwR_2*x}
zR5sN2jsU2fQK3;4uxLf+iO7>hpzfF9o6X&bI^P394_Qx*dH>~>vr?QV0>PMpvex|W
z`l_$LxA>?l@)))d(L_>zex!3!$4l8LK5|$Eb+VsvSCZh1EVru)`F5hSGI1)l{^WwK
zoE;<M!io#!9wsYl`w~Bgu?jO>@`O{d7yI5JXSJIVf*hagzaz@Z7p6^TRhb`~%d*-x
zN_l%}c2ky`CH19M8EE$=fLFT2pI^#0^j={o=Y;%w@_J}$pJ3s}T_W|;`jI>$`r+-A
zrh`9EHlVi{BLNiXtVFW;B_-`l@$iLg!^vh;KRQIN9M!1OVlLS>tlq(FE|~{5WV<rL
z{)j{}j(2e3-=Lcq`fJ!cLxsvSicbB9PwH4Q;X^lRef=wd2gM!mtv~m`=6iU;b9%X%
zgI9icm`(a6{@>mg1GE-qoTnYxO|eY}$4xY&hyTi}Vv|M*&|cciip`LJeR$AA?seRh
z;=(B$+=Uy!g&B`QIQS<cE3`dh64xtr?}i)uqRF$8A!5FDx7@aRJYlZ~DuMk?TFxR$
z0tsaG(C0boifG`u<jxh?=GC9{-;>?^<GSY>7{)BKGI8ShVM&HbwFB(L>Q>U{O`L&S
zY-)xSOVyEQQeqeCJ~uk@AlRpVH~s(d!`*DzYuQ|{|5(D~UElm*=XF78kX3U)Z{0Ar
z#yogh*Ikp<wOJ6E`h{9sG$hLL_53~@$3H-e3IF!uuLg^2X>P|7e^s08{HP!m3Puuz
z3-6~?(HPy$!Y>YIPleY6Joyu-&hqh;Rl1YmDhWK64)Dv&4=&G66&c!gg+$^*)rAq4
z;3m@bqIz{){M)?#slJA8hhDN>5yUNHx3uPJSSMktHHSvyu}5(Q_$&*wO6<r)dIQYF
z^<Q<4Zi?@JFY{V#WVj#4w7EZQWYRX@)PKw`%4~Lc$Z_dw%f$KtqEmj8{+ud43D&<U
z1A7fAxX7Pe#hMmXP!9PlrFMh4a)r8Xm*l-H!KmEc*79f!4@;Di3z`U0>lh7KK3(vj
zDpWx=h}eTu4Ww6E@btEClt7O*Z38(YkR5JYYG^MzKq>*Rh&BdGj)>}xMaY!h9GoW4
z${6=Nu^o6ORp|m*pGv<C@)0?!w>!aC9SWTy-9|S&Mt8b({M#xbiyDnc6Km#~Q9cld
z_6A2DfA*=>|7)D}V0Zu0#BYdl^!lgb*L_!vxm-zfsh+9YW#D>*hJ?Y^&zLu(967i5
zLgx06(&#kbC9HR;odTz3+j7=`7A>OBLw-`(66bEVyjFYzX6s{~7x};lYSr8KSPnC}
zV8-}d)s-B6YpC54$rKl_Ye(_hEOe*zTXq-*TMjN<A6KLygmGe5F`~K(J^N=D2+YJB
z+5+i~Pctx!8s{vh|DIau5>--Yw0bBxb7#^it`!wp(MehipiQkver>snp@G36uEd)o
zo-RGSf_P(i<?|v$Fafh>xU7b;ieuMIhx&N*qsR`7*T0;;=dLY5NqS&_tUO~ZC_B2I
zUdR%klJrLhZhw+k(tCA9+w-yKyq|V@=cMsdz%s&r;kw0b*3DkDQ09su)Tw86I{;g(
ztN6@pGhpRbr1!)nq<zcL!l_#z_tB#6oNE_cke|{HrA@M{RTcwI6QDQBrk^|3yCS}!
zdR@}HYg1AyD9yTaF&KB)#1I>%trK~9#V>#+b_j`TWpcHN?$$=GT~4m@e|ZyE`G8zs
z-^t4);jgitCtGV(?;CYUttG#I*qkafy7I|ibjLe~p=GdShfzxKXbkFk=XcG)ZQ=7g
ztaHX&TIr{)BG&z-SzK9TT32zp1b@M!Jm*g_J^dMtn#6zhBgbcoBw62ULN9D!?#-!<
zu6W8%o`pfAV&RXHf-+*4y_jQB<QO1&_>1EWrbUkzK$H}!Zq)+fA3EF`nm);wp%I;g
zxf{n$bAe?3u4uvZt>vIRT=>Vkq(V-=`GD^IR+|y)Pn1?tupQ|78g}qn<>YeX1RO^&
z)bTW~&8Y9KdE)~aTX6Iz<XygK(~=Wa(mEYDdBycOhDVkA>;6v7-u)fT4ZQ%O#ilTl
z+|Yp#&3DkzRlH0f_aE7OF#T}4cSFa4PAA4guG)krdAohxPvJ{s`OUKr&1hWy%CP%R
zP5eNRP55aIdiI>89mBD7t=2e?lVk}-+m|fxh_k@C8HPCh#T8+)`n`Xq0-wmEzdbpT
z7i78t*z{uazlJ`(Nm_vcKE-vd9Ch(zjB~lcV#tGh+BtWiw(fE~<{N2I-P~j@s@x&4
zNGqmtR6RO-{LYfg3Cl)E=`2+oZ)ELwj{p7J%i8x})9!hOU<?)HLjB*JQEWCMNWD*z
z{wEmudE>ZZyY5(5Q&}H11ZsLlp}cUCYWmpQYyg&eCCn{hcpA(<F0jrV&AW5<^|5+#
zn20a2mMvVUA-LI=HLqFN&IQH#$_#NbSQZ4?PG(X~GYO^M8j^B4s#!Q;aa!s<LKucn
zm7mj9L*1MYlyPWk%WZa8P9mS%l!n!T89&}|U^Ll~esMGLXMy1Wey1Ck|8OGY5r@L_
z1^2F(%K4YJw}EmwC7X{#PtV}D%L_ATT&&OLV&3<=^}0(}|3ydF)P;O;C%uuh4e@%<
zQ#V?ZsOS1RGWgb#%aFFk!JdU`x0c!kQ9d|PA?s{tRgJDINea|?nS`;TxkDZ#RPDTj
zQZ6fND3eOQby6p=cNVaI6NVA{_)t+NdCUbxFyBgh3wRLhNJ?^QB3NUh$SA#Z?Fp~k
zO?gcl$$3CBGbqWr*U6H?QCON8=rb>TnUtXin_#0Qn*aIWWBQkxU|2S-*!X|AcCHQy
z<5=A25OkoFm7vI9QajSG!+}Su*D>8Ar#0ayqRZ^;sM%T2GX!#8^d;e}Q@S3}5P)z=
zlJgH0#b?jVL(0r4JQ}#LkT=rWlU2hrEM5;Kp1%h#2RUIBtgq&_7?orC1YabB?BG`5
z6AAnbq@%S!ld+1EH*!F`=ae7jB!zWQo$^Lzu1jj4=sJgUT<p3i$$u6)8?Q`8Nx5%)
zwMEA1B9C{(S{0oaI?)=T2{DZp03Ic!hRLgYCp|v;sC6?X*(r_<FE$8DLTnk#MIPVu
zZ3Ru$M1VQJRW=P1v(uCfIukV+P1JtsZ|%$7@bK=Ac4O!HSc>Aar}g2atkw2w``1g<
z&pik+2yx-|q_O<C`Ct>9KSq=^ZBBENB%!m|W>sU|*aayi(ehz!_<(66;Dg&A%x=lM
z0rTH>Uk)MYYl^vS20TW*)snZ|2&h)R98KWx{Z7pRRh`pUX1C>7?Ye0#CCXPnlisb3
z-BUJObSSN;@AqX<Tp7mA4%DxCT!EplYG@+S6mwO6I&nR>wNh83{8L-F>uYgq*%b*y
zd_wtf3B|D$r|$;*%E*Ty=n36@6Ud}r^<McXXavEx@xDxEa$tIc%%J+Hs!Yv_UpJa;
zq+vD(AHNh3cF-nd(&_b-&#bTfaA<|~+*)}O<{jk%c%hany+1g$*RHK|yDBNzAQ+Az
zy<qj8jg?bumY?r6bVbSkcv92%<cv%S&Z;M@QWL7l`Ut#}9667t4WmMwI%-y4Lc2A-
z8gAE&N&9A75F%lSvr_Z4+^OHR!)NQ3n#vt};S){@aCOtUtw~9x_}<~Sv78<((}0Z|
zQX)E=9#rXJm&Y$G@-d3^+xa}v;1NS_3$`*e2C`V8eYGuNF}}zu@MFK?jkmWIyF985
zufQ7&zXSb8TEW7HPjLk@r+{JIHk@nrHu*xZ&kOpoA4A$nEe*GpA6}tfpiO08OZVCz
zOceFWysZL5P`{x)rdtyl4YJ;}Gan>SbE*yovom%uNK$Qr`t%84Bsu<}X7`jNkZXAE
zNp%8UP4UzCbg#Ycda2!oRswYID8i|Jtr2jGuL>=Z@a@t>hZ_t2IA%)Uhrx!4#(8+w
zcRy85mRiA(1EUu#+>1$$i)El~uM5nvjvV4>YpsV(*w$aY#L01J*iJDMQuzEA*gF>e
z&+c*LX0)MQsBW3eK8~@AXD=b>`#3ljt{(ck?|Mh@%{j|CFB2bd1{p=&+YLr1yue$B
z2;%<T3l{LH82)l8{?jB75v5-y!*Ncl(z?W@jJns=ws`5po3IqB21nuV`KEmwH}R4L
zfxRAQHITR@m^y-Q{O>vR8ceePJ?8hp^6kH0KfJxrcI1D}7AL_KE$&A0ipcj53;>A1
zkGEC$lUNiyHE8hBQ{drpHiAJhQT7=6J=zk!nV|@5Z%z1w)O(Hl-(pbknbwsLZ!<nH
zj%14p<Q5eC`SnOyV`<dR7otpnbN*xB6u4B;&MS;clYGbQ4;+B7YRDsn!{5Of*%x(m
zcE}Wb@lG)mEt%c)l&tu7_r0gIiCVm(92eH#vz<@tuU(sG_TZl{elwjad`i>yh40`u
zXXi%bC!W{X)udWXXN>sl8(RTYeGm3dOlLddz>!m{TH9+gPFia}UersL$tWlcfd678
zb?zD%c$PXgHxWI{n*)*g#_8KC=pxxm`-wr*MD(a^m=GzHo=&MT0`-vB@vsufbZLKm
zY+jo==7RQ=vj#57%eOq4tn+5qdryw;O!~G$e7Dw?tTOyMg?1*~Gs7(pb^|7Num|?f
zkIK6Z`3(A4`qZRyFrR`dH|Lq@iq&zR?MaBN^CT=1KYsl9&3JNlb~Zt3+o|4%Se2z4
ziPZF-sA;`x8WIw+4Pi|UlP<HJwwIIK#XbIf&&qc<1*Q$D_m7{Fwf?Iwdx{#g@=XoM
z=tXcG>h#3^5l1r@qZC>SYMnnl&p;`=^(EVNMhmMIhi@|N4j(@J@W6osm2Tfsys<x?
zAF;%({fa6FnB(rTYv07kG^qDlMoszGcXrs*cd)myHnoF^9AoLTyIv(-|1DKbue_N#
z(T>~z$ocQOqNDF*&jQ;knL4zg+}?w&9(u8&Y)xp>Z<K-K5z|0Wr>gi;yP#Qcb=Kyu
zC<Wd)Wi@<YdnDfu<+ZTSB@85#N%kBq!Hg8#&!*kz>8%mvkS@0<wiK8OTlp60J5f`3
zCoe?c<jIAG#U`q@aZB`Al;LED;RLqO49HiF&(Rk*MUr!q<d2zZM-aO{-i~@q3Ykxj
zOiE02+hSK4r)#uMA*iKdY92#5Bfhrvfmh!JMg{VNx0T0#9Qg70%fH9<v^M@^TfIt{
zjub<#{X|I^EH0tl@I@8}oRI6VByf6d*ROHDN~OAvj*fjE4mWPxC^5@7_8q_|0r_-?
zAR->wmwYwT)z&c%fn$+E8NQ9Pi5W*u$zFTN-e7DBo;>;f?2|UmOujS9f4;?E)I-MO
z!fkA9es56A>3=^TQCPKZ^q;-ay0vUT{QUVdW0O`tZ56(;8Ula{S)q)U+9f9E?S{~R
z_GZcE*Z7OR28-Q4R9Zn{8>~BENe+RLkj1fDf}<v-iCVT<%ks~@6Md@GzH!-da|eY&
z;kZSEKQIgwnxFnoazc(jnCXm;URhr55mxnTSbfQF98CYjEtVE<Z_;fTRvEUw{83LV
ze6>39iUcPYXj62{RUyti^w`xR&f4l1ie8+jNMCA_91$M#zkdD7c=hTPbvm3yj7&ox
zP}bPT9fQ81Y$hcrZ+|VgD@KH^<~8<YQI`+$)Cg2Ws~s53_d)N23>&Z1x3WvoSY-*$
zY4lHJ1x^?AaTQC>X7nQ!3C>Y;jLKEcMRc3W$^BiTp<d`Q6}xk#4p?SNdCLYR`NoTb
z>COrOn?YcO{EpWvd!MuGdT29Mb51dIfvU*<wV#oZ=x)`3g8`sq;m+urYT}%mXm_<+
z`{}^WCc0eh>_2>l$yXla2No0*JX&G1rgzYjYB0`K^o?ugLOa`=JD4ykApJ&=($UfJ
zEYy6hwCe?*_87YCnlE^*DylBCe}~NyLmR1^f_JnZ)Ll4R(EBw!x#%rew7<q6=P>$~
zW;JI#dQJ28{(epRLiG);Bb-3FfqdidY%s))7*xXa0~RlNFuQAfINyXmFXeR3YVi#A
zIx9NJ>+X=W+%auK=hL*0?}^OChMAbnbr2|1HG&qWT6z=ZG{1OYmzS5{J3XrRonBnK
zO)wF*0HMMNRTD^?cpr4|T6d079s6%PUv1iGsZDiWp18oNQ$B}KK+x?ZvCgFe+2<Mj
zZ<d!o)1>%2m(taI9n-J6blSsqc0h<t-<%2<2>)L0)cPKh=KUZ;$_cX3kho2qb}Yt4
zEqk}*L)I)nxst%(85W|=^#|q$@?W3T<8$OFi_zZr<NI;&4|8Za87WUZzE%l~6gpFW
zJL*)6dzkNJ9SwL0-B|8b;EFZCgYoIq1gA2cpiT6aP5CF2%$Zo7GASqsN2$*ZD^Asj
z>Yerbq6n3im*>@5v;|?m_u$df6_2MH{HhaWZT#t2dP}IE_=z{+%iU7V^Zn`6P^|~8
z>k?D`by4{lh@y0H_`=vy^v*V`wVbsu9^mle;ITSDinPJ{rZ!#k*G{i|igIx6zPb6T
zh4_ifn=m_&5m=vDt7IgJpiX)c%F^j?qCP(o%w4DpLYcQB+0m$z(RYG`#PEyWEKpKQ
zlLRK(M0;GuVcT&6JOW^EtqjC6hc%_&sjh=L1CE<{u(3+!HZWb8`_}3|Avqi<GrY_X
zyz<kMj`}cvOBIF)Gq`(q*;s4oi*Qd*PZ4X8xLF9obnrWIhv1*DE)q&?W+t*#-mU!p
z@PgM?_OfM5skx@AFVEJc=@y50{hVFoaoU6&d{7(ZLrc7cCBF^~aL1Zqc|I&>b1QII
zSvkP*sApW<j%)3FI<8uN7PXJ@4;=wXb%VgZt6j3`im<nd@(vS{=;d8S?!du3G7Xx;
zR%`j|MegnO0bpAa9~dy#=OGRSal_e9a(2D6>+jEYL84!mh^DI7SjEmP2qUgdLb&E@
zpo1diWo7N_;ndOamaXO9CeU`b?m&#vmW%Ia-+3br`e0`zK^F=@q0hu;=jZd!3j6lF
zzq~1LSGVxhkdpMaTi{g4|2YFoYT`uh=4Ua7a0dPbq1-8R@b4ki`bT1sMX`fq092|Z
z@M<cJIQK0zTP*DFCmz%YD7ZtXGAPr}Dp+r#O7QmjJm2DEJw3LY>f5qDH_T4N6h${J
zRP_R<z|z_qW>@Fs@dQj2qKrS;vB)11<yR(tgMdw61wC;Q4<<v}Q_Y>X0y0Idj8Qvx
z=n%#|LtRtd!J20Iec7zL)7`vmKSZkP^6<=LwqEQr&{@12r;(fC+9Auot+EFnd3C-M
z8rIp_TH$XBq-l6{qa;`wxyNR-LY9CIK_@3%@KUIRgoIG+3n$R8Xx;Fo3-1E2I$$LR
zeVVd}Q{#&uX(`zH^XbUBQc0tf_ooB|y!%&=i#NzX1s$Fa5>Tt413#6%e3@s;r`C5G
zX#gVZ^!psm#RiwS;XvPJhNTpgLd3HAKEMtX>g{?xpOE5jPAKBXGj8C{>Mn6pa_=v3
zXQf@be7QSS$=#S(T-H=%R%}_iJzz`#0mW>CMW0^DO>%s^3nxxo#!;u_ipKLzGKcGY
zh)pJ7xX|&%1is~S`p8nd`fW>;BZ8dk2%@Y*kD~+xv1%<16$7@Gx(N<J4ucyE>WYNN
zw-gopop+~!L2{qcz*cI~#`<ioPlOZLJbCI4_B6P;R|NTk-gHUB<nJ}RNv^oOrD>+d
zW0+YtJ+OyrkHLK9NviXnj89edek=>Us27u#lBSob9ZpKf0Rx`G=hFGk!@<_}OnjgB
zoSq1LWF5rqX43>(ee~n+A3ia`gaHAhp)Or9%~d9u+W8=TDUTu6$vfg2{!)s|7lTJ_
z+|%D%8-G_-zYnHmMvRCiiJ7^xl@A5~ms3(AyA0x@%4KQk4Jz1mm`W($p{Wq;S7824
z6%(Z&X7f?qOUXI_k_J-Tt7oE(!`5e$gbxxkD?ncvY9!~SPE2kB9+?A3%E{F=($irh
znhxmX!ypB#GtAUx`!dt7(pz`78#LgQl5J3+7$N0H-+7E--0CK#G*6IQ8h~*0Vt-KX
zD(&Iv-H^WwvdCLl9uDN-3&HETgd8Y(2vkqMJucWUNh%}w<GMtW{fXef@xg4p*6-LL
z`gEB!Q2FuCu3evY3b~g+?VUhvVbpv{JSgRdU;aIS872BcL_-%U$HC2&?;;vsx~lg?
zgvW5+G5rKmMuaZPvfQzmE|nQJG~YO%5g<zk!Mqg<hPa1&0&mK6f|cX?ry~luE3V^J
zFg;~o($;jmzWAv(w|azC9@jjY?Ew<%?+*R=^de~*WM)c&3XW5-)jxx3??fSpd@W%$
zA6x~<<YlzktHaZX!h9=7%0Y9L2Q^WcnxNd=+`(O@0ooJ-MyXF1?Lxf%`oG67E-nn`
z56Hi0*kRLw%)Qjr3_7jlF8+yt9~KXr#v(YmMA;yst>gp0pWc`#0OemM;)|{5?739m
z3{5y?WZEQMgTd<d;MH8H*pW~;G9)RbvGj#M6A6+qAZW31p0xY1SW{L}@r1owA=niO
zQQ9BZKTo8Kqh}tNh@0EI?&U!kH(XXwu=@29iaem+0)l5@=zMyRqYRV<dX5ul!A*b~
zduKQCFD+CLY=gnu!UtLDQv$RZBW8lfPG50OS_*!VCWTq_RL$`eY=2b$NG<3N7UP)L
z#l?a9$gL0|{S%~ip*K*XAU`Exeg_OerPw22CXJOKgDg@<DulgDQ66tHX|*6#&}sxN
zm(?Ffs})5{8X;D)V*%|m{$RS)8E^2Ld9}X2J_(YDp2zqih6{DH)IAf}Ugzse*JQ;q
znIMjgw)*0hI`2n{1dfe>G~e^Kqa!Kik#bWwy_vN=w>A^ILl*`|%mZ69Vq&4Cc5z!E
zv8#IU>&u(=$y!gA4;b9Q+m46v;2Mu)Pfd~|zZ?LLoSM=BN%ZC!Rj)M|NTY3#NMtuB
z_t`7J-yfg&WF4ATM?o5?wq}Ur#f=^-c&z9xsN_MHZ~F6*E@_exMh4x6bq^azBkk5{
ziSzUGzEQU>RHmqSZttq0k?Y{mU{?@t1xav%!;0DLeQRs$Z3e+<Iv8~Ltzsm=-k2Wu
z&<tEy>wJINOkPCEt?!*V`FUN)?oOl7QYI~{V=l4b-O}Ya+uFx=%xPff!0w#CLEH|L
zv<N{?{=NlPbIg3uxI&|i0rOVWk-}=}6K~!Vz{&<jCpBkofQC@e1Pci>;}L#KtUyhe
z+KrelFfToZnkoZlh)6K~maN#h)$OK`?tvva5QM3q3rE9XFg${_$fiGNe@$D~1tBVY
zlvhM!RScyJYAlss>QFUoMyp%ke}xM=u=?YK5y#(R)2-*c=gwAIdnHB8F1mu8v^8Y6
zmOLdW=rjga<k#CFIl~~3rnZ2T7GQ#|-yH|mLa#KG6gghXp#$TY@}Z#q0^65od!u%P
z|F~`>FI$zs=&n5?-|%A%3>N>f!u$-4Z7{k+<OqysmDr5@ahzigu`h$j2>Y@qb>fX-
z4_qX|986gsdQPi69+^Qs?GUh9JHtOvY~>UVp9XQQB^;z^Qb52U?+58a6Y@i(tP7xj
zQ2)i@a3UZihszM)pB5GD2vJ~J9MSWR1N8Nok5Tfr$Uj+;Ei24PUzT0Xqx;_~R>ZW!
z)^6{*E|?ovy~aYguB-0%7WAOsyAPJ|7Y&l+As>V2B>q%o57QLthBGUvlzJP~({)(q
z+6xY#=sj3HEj)noxnHE`8YGbtqQf}Pr9Q8TstGE%v|9;RRaHG}EaPU%jyHfi+|Oa|
zwm&#P;X>i-oD|eYRFAlK!fKTGKy?6kQnUMvtz7B0?TFIXxM?Z|b%#=ZRMGZ974$bU
zb7I94+?xXnh5}j8(Y>Kx1te_%u5-}*ySDPfN(8z~Zcg>>d!l=N;GgB2-x}ig=lkLF
zzNQlqIJszZRsH{TnI~)32E+v><j6>fNEaps(h`I#6U8ogG#Ju}UsheDbN-tjJQIqX
zbkgK@_f5nYev8$D5+r7awZ3TlPf`xk(}lsnJ?77&D`(Jg1aG0a1OHoEe}=2$Mb#!O
znb5)$5{`QC-vJYN*rco~Bl`ZBi@&mF`OrVh|C{IDt5?ULyu^OFUNT)7gqCP=Y;{c*
z{BNcR=@<@QW^>YCR+i8lUj8SYrPTL-j*;RzZ%>3w0aMQ-*3HqY4{kaNMw)8=Pk@N*
zGpM^K`TF|NPb&trChl(NYsR+PDg9s33!YzSENc_}h|M8GdlR7u+o7}2VhOga2R0`R
z8VY?ZTUebFAW>_4chYW%I$kXQziH16cB29>k&dW+%{Ckw7jOW-1Oe=IMVLDcIZ1e<
zTibjJb2KGX3f82-KWp553QA6YJg-*N{jPY@Vkiq`3)Q&ph9fzNhbwrz$+?YkvmVG*
zFTDKU*#G<a`8J<puwQOYs>JN8I4ko!?v-_v<m)&w@C;DWC-G?lvxNG~8?`M?UbhFV
z_H$?zoDXoP-e@e-KVWx0fIv5CEIY*E%zA=VOg$@)pLuqe2nrK1@>XCQZfp^(b-eQv
zSH$7(j*Y%b0gOKapO?5QxW5j-58RWOI!ESxHT)u|CdWWr?$~+o953RYA+RAXGUQfn
zZ*`F>*-~W)G<qAC6?1a5;JunM-!1}8Dg=DNKTcaZp)66~c^g8=4q7sc+*tE!-|RW}
ziRaI`5B@&)@7qM~e~xpCoWA9E`UdaqTVmm7|H(h}{M<QSzQZ3coXb``=YRV2{o}t&
zo_ak?y!mWsXow#oWuyp{SX7@uH3a$7o0-joO*W#Guu&T7z^VnHmVtpSR9iy$1kl^G
z<)ouYSB*G+{BO)a_yptl=h%{8gyzQ|LhNOEIjjSCHJ_U4ovjNYd6zWE*{Swp4@9s7
zzTfcHa_z-otp$WtHyn@2#zq8%ZMSrb*40{vcI=&5VugNPWbIj`?-_VE3qH;{`*C{>
z7h!y)grMGM^ZY$rd-hL=2vSL#EQ|WM_vX>g$M<%}MZ{M<4}yo+P54Cwq$%IJxZBpY
z#uIEsaxV@wq|!^u)Z5nU+<N!EmvYWdx#Trp|42Q?ihpn5#>F2FA!6x;CTVtitG6}n
zHslYCOhfAT{4oNq*M?n2%NkwgtV3HGZJ3>Zl0<G++Z+6YgD2SLt(8@*Sa5&nQ7zDM
zI5=d_aw-@sO_150oO4a?Xbar@(JOm{WtDe3f`%vmaU_ZVXny!%eRsI?gK=&Fw4Yx9
zI?hZ3UEv!9&?oA0HE<JG=y!JeBWl6rn_@~uEg)Eg7ko;z)2k%IG`zMcujyk`3&Moa
zhWFUp$>|qHD?ZN8(rlZ(__{J}n*D93b2cI=By6;L0piapQwonR5|J5_*q!vs8Oy(A
zF`2#tKYj3Y%h=@6Rzm%2EH?Be<M}gSV-GLx7=pXzEq7E|S(~B=;T6o?O=6oXn{*k~
z!(BV~h>hKW$ApVDEya>CGlUc`*6yqvvR63iJ)y2xWTr{^;*j{?a5&tQF-ZACp((kv
zv_jXgE(p#1ZsyU<Gz{zbo(+!}fvbqBo9Q%9XsiU=p%ZWx04tfKlihtAA6Osmwy?Oe
zC(RLkaNMGb8Gzs$$ZVOMiKV-gjjzya3HNu`ZM!+9Oh0(4t<;?&!}_~bi-oix!~(v>
zKpwPe+P0Xbl*o$yI`#}}Opg_HmY<`m8`bgIh$mU(TRNo&?YYZ7QbK*{gkq_hxn>X$
zifk7ZrE9yHxYUaUdm1p;Uh^&aDE$rV>xxRXKlEfUtN<~KOWj@fpTA|e0jp`1(%4e@
z3EFygU??vCYUr8GaV}r)?(G1E-ZB2)kXnQ}12~u*wLWRhsN+tXdQF@zvW_JEeRTvu
z2oX%8r|)jy%=sMa5HSy{w#|zGUX0G%(hUsV`j^7TQY5syQDQ|vIRfE~XV2y~;>m21
z<z=Otd@UV=(^V(KAscN6lE7dCXNeH@i?2;!2`Vw@R#F36Ee4DY5B79EtK4f~lPanM
z**OTPo4?o<yzSa<cuZT(8&P#ry^Nk1!z~$&l&_M-ekP?ropD#18Kit8gG^J$Cly`H
zTd}un1}vKP;%8JA3?Q5c{xUv)QlMZOIk!&3yA*pCNm&4v#GH-N@V@m1NkLx_2st=T
zB@5t+XO!@7@KUTNTRD=&0mUSH_Al+Z@d;Nk5{q|gFJ7+P1bs0BRHK84gNT`fqnZOQ
z(odn7WD3b@0^rtgH^wJQx{>97UU?{Z{znzr+o|7k+D>_Q4UVz@z`(f#z4T-dP%&@Y
zbjLSyr}6FfMF3s*o-M>$iIw)3BeOKzK7{N!-B?tX)f5SbfWiG3OiGK)UzOd#9FH3Q
zGWzjHii_Q2AXOVr;13vml(A<mr}jFJ3I5HnV<X_^j5rEgX+XrT`QyeN1_96J-fG$#
zaK!V^2L`Y~0jzY!T(PgsQukxkf~^^R!!84bKB|8Sd)l);Ez^i%ex%Iem+;NSY6Dt9
z!<1a3I^SRuMmWAxU|}z@I}>f9OHTxvi<Kj*G^!A$@czCPzEW*#2UAFSQ-}2G{@wMi
zAc~s>7X|QO465)T+(m5ImT)8k$f7*Mzs7rkU$Oy_#n4jo2XU%Q01MQ_`mu_)%QTvs
z*l&aO7P)dW)sjq|%Gzk8jN^?0Ll?!01(kW8(no&(@-)fN4)TXv!c!$>LNT$&@I1#>
zUbh|R>Z?rgu@q6HOInVH;F%$6oLi}>sx9<%Zp!n=R9vdHUQ7x=I@L`mrp^(+X!yIr
zSHVV@par21%M$@>xILXxU*fKrvNa8##|b~Hb(Y{F=@#jk?>M191dihIzE<U)%Yw@X
z-OY7|LFjO2(2V3;n9n6SudXa%@d`(^<{b`Z_)2J%2|JyAavxXTeK*v3Tl5~=J1Xe>
zkWw*LZT(X^z!fk+aWT@qU8~<>PgM6kdGx2Tk+wxWj1*l`6_p}u+UQS;=8*jqP@L3<
zeWSkif^vDqXW!`aEH2V9JS64iGm}L-t1x84Ml^*B&)7_!?=|}TQ^80~N1Btal}`FS
z@bKS=pMNA}2Ia+^%MzF(7J6Q!vG`Og&&tg$uj$5W;7HlHExbI0wQnmGYbDG_tf@>T
zxv~MVA`Lo)T4d~1wQqJ}J+N9n&D>ktwYM_{vhgE?RVCfOxq+umjeDn-Aa^!!n>O5w
zw%+QGR`OKEYEK{eRPX5Tp&7K$U;{6vtgI|@JM%2s)RO<UPd32VJE5&ElXZ0t+uxP}
zt2IDPm+iashf;|zx2Px48a<1XEO!7#0<3R+7PHa7MTy~JG?BdzDU@g6|J`n9lwgTX
z?nG}^5@TZ}npy`Z1ciB#yg5Suj!hCvl92Nv^Tf`g2E0>P4mHraL9-?j*zw-To^IK}
zO<D`ohqmqf`DlPsyHb<A=;trBGob+VW1}sWy7M9Rp8c)P;7qcUA^?+zxbSQmqz;x-
z2~KMdcebXSGJ}LG@{S7pbsVcluF|uO>MVnST5p}Xn%Kj;p4+B<lpQiqYGg@msS_@5
zBRa*Nao%(32)IW<1ZxKGVI<#Qqf-oL&C$5}_x!n{44jSx_<jHnBf-b|<BK`s-ftY6
z?gauk;o^J~YHyL6{1Ps+C?<8Z)yhHVp3dF?D(N04J;<^gOoDaqR$|H>RZDg5vuCce
z_j*f0b-f4w{>5w%d#}-(l^7QfQvM6l^Wb{gkMgubh33Qk@&dC|cZUNJu+!2%nyH52
zc*TCKTb{PZhyOVFsn6gdgG!7TSXzBRp7!JaxA~P4<5TZ7-xWjlw`YhwfU-WMdjKbf
zDWv1xt@!Ae?F?UU-V;XlW!65@j*6L1kkCBDJr6nk|F*X#7iI$Y(yLwuw6tzCV!C`q
z3-)M7#H%ajZJ|)cXG|Bp$kAK`8(G<9K2WZGC13%DKfuM<%dZvxs2;mUI8q#G$;!~)
zo+Z<^C{9Hp_#ktsg+P*2v6E26e}MYx%E)0-kvE>Jh(HhAO2qT2jn_S3Jz*Wgv-9S`
zuQY;URvgtmh_kRO&MY)8a<p-%jl61Ql&M*X@P`xIAphIO`T9r6Ah7q5X%&>O<R#y_
z`S1V93bQSY2pYBEf$!<zpxWxGV|%ZZoZ#HM?QYZO`R}Ux&f{F>k7gKro-&G0gr%`I
z5<EbJ1=n|G3u*jdZ&PaV>CBa||GjnMSmW*XfMULyouB{J7`?muz?v&yLc$&}Qt?tn
zGDYcJ;Uar$<-I-}oT+LC)F7N|;U60ROBpY+>K+CEF=YRKiQO9{;{!Tkpb}%AJ7tf3
zMTCQfX9E+4&EX%^|9d48G*(dGNF<-K)ZQzbpdB{zFdNUfzVYlffL<=}7x{4`+k?%G
z&*J*FS8%mCf{m7JFGdnxuE@lKb^3|V-phg29v?zT8tK#u@(k88vrxWN+tQ)-ONc1s
zo(}cXeK4QAraY$r%j<P}skcN0^q|-xRr=30qvA;3Rh3hpUQ@b?lFWm~XpI9P^8u<S
zjP}Iz9FDV7u5jnJqGL#owXuG}#jQo#dedhXM_nyeu|;Zg1A7*D)F6P<JE}Z@csd<e
z`f$5A{9WjM##drY`h8l7afUkc3#EE^Y0v&``-C4${DE^3N3+e`D6Nyd$^1q0{aQ#P
zH2a-N*`lL}ZS%vq_2D8H?uFyKTRVMTjNueAt!4&<D7c8KnYC6UY~hT)O3xy9E8kRg
z=FE$yd%5#nVnom^5ti5Drr?4M&f881?_(4zF=7{k^meCdYq~NbdJl)yEJPTh@x`nH
zUW}+tm|GvMDAkZ!ow}fc74^<2RI8bHns0WaR5Py<)Rh=PV)|yiPwOd_yBRJ#pT*60
zMX&^}XK8{VDWF<QwHwff?S+ADpyiZzImt8}Ns6wxBI*#nxtrLW${nq|Q-dy+;Iei&
z)$2B@DUpd+m`HqT9^+z)mr;dic$UNTtr(CQwkOLeF<Q2Nd1n^-A|k@&x{efOo(}Hk
z=g#08{U~LrkRHSz@VAE2AQ2O8fDZpE_^tocN-ZZxSn+U*Y=Mn3FpV+EtI~+^u9}^F
z9ipbl?QTU+4dO4so#!H@T4ff;WT*#@`^37lLl`}hz@VcA8%_-npzk~e+2nVM3G2$-
zMLeG&HMNFyr2kvlL2V#zF>#JiJX{>j)yHVZhZiXwOg=K&)Ly*Z?x)B6FvDV&K4CW?
zyZRji=d6litj~0ML|Q>seCmCAI~lE>-y`L5H~{x&*_K2{LmY%WKk+4GMp{E6ErnG@
zt8)28{d#brHUfg-e=?iqaODZD?nhh-B7$_$0u5^7r|G50Cg`EYT48RqT0;xs0pqRY
zq{<X_<Ii<=i3DH)akp*7Awtoy^Zf`H>^>5@*n|cv!}gC9uk-fJ7ok5n$Z!^-X%4c0
z!t_6XtIoZ)m4|0aa(d(Qiz91m1oG$^g#_w!6`z$;#%Py?*dM#;8zG(yya#)kxmEe>
z7;$X|=PO*X=P=GMcjNpTSb7N41+WU$2F;5)_Y^$8^;3Q-#nOr5TSzyorIxR!|6t9L
zB5u|3mS1a_0H0CU)?bmvVgR5LTCnGKpM|A=gnu_=lZhFVgq9{k-w5k$K~n7>CE~UH
zIwjqsCzCAQEfqXYkha~>6|An*m(2uoD+@u(*vt%UY4-t2V9A}Cy@@7NMqWowtC~4s
zGXuPYKE&28n52~8!b9P|`<AdqzM)l{^lq!-$QsYRLKfg~es-+(c@XpC1K}h;(kCTG
zBNwA8k?jp%p^Q*|!P0_^(H711<=U<L!uR6*qB4khu{EBV<1WSJ16uXvrTZ7JnE}Bc
z97mg|Dfap_0V5=vRbpJSXfC1{zP<JTb@t{_No{ZZuua;%WqxmcyJn_#i}YHisi`^N
z@|NLvb0TNUa7d9-QBmPk-m=oPz?_FBM^wxK6Gdz^M@q#36)UF%kraUdk>An2({H`&
zUGG{if2bVT`#k#@KhN{*v(<dO;OR(ed2va%U_C;FF~A5WVeI}^=t8-0XBM!8mtcqf
zprpR-WzEm6yNH01TZ|{4tHA8TEtzJ)9Q~PzuL$l*^{oGq)_=MNdNw~dX=5lRnqRIt
zx?{ehgmsl39F$hz<*WbKx_g(~cA@NABTK|#*a~~;Dvp9LmeE1o5<(ckq>+6wT%*#@
zGC*UETXMj*3-7N9#jKNbLQvXxVxzuND6GbtpUX<F;A|4CuejzPx3<R-Nba<<g}(|s
ze92%SGWjXSxw6pMa^0a^gEQ(+@vzUu^f?4*cW9-{wY0&J>tp}!W>!;T*5{G0aoNDF
z3?ppw_{?6vw@$|6Mj&MU&wz(p{~eFYj_zG>N9+kGbXGjJK7ZS(wU7|ffWC&lwe`;W
zRKMOhx_5otnadz3aSjQ+u$ajj1w&<8wz`DF>fglwLHRLIH7Cg3i&QtM6MvaiN>GL=
zD-HYz5T~+-epMU=DuUg(gfxQH;FSx8Yg4wJ%AQqkF(=GAu+819t=fO!jx)hbWlzbN
zgEYJ8M@T((ink-Kv1h>g*pKRl+?f#O2JTFbxaNPqz%>Lj?Fip>Qd2)zY+@n_tBEs<
z{=MZtV8A&BaQuUXbCt2~g|S<#Y}QM9QcxPQ%Fq0N#3+0?9%ns1J?v-sjC|=oc*mkK
z<V9sX6qU$-Z2Ch?$LwsXK3SG`2)5ZjZy?u`pD;{6{3}~J0S2*PrQ_@Ol(Roh`xo<0
z$Zhn)^TL&ZTjci)Ooig6o(2;Q&(ETD-kpJiftgF_S-W^dZU1^SOuhTRY)=oZeI;n6
z>-FrDC9?|XS%d;Qg5X-AKuZ-B%z?*SfUitY4TXS5WBF>F_`3$7-D8$>VcwqL?SZ_!
zbJ?mvOkw4NP;CwE$bnc5@$t$P{v7KzYgzLpr|{LdYQDcTfZxITz$zlV{x4o^xFLK_
zf8H<Frjrik*I~>Au8uc8%g$3`9%1(kx)S^m*(RIQa+wnsuQjceeK_A(7&>QW{QY6c
zDgFmmF4|;co7e<|5P^n#YrV;q{$PNm0hUiZ#;eHuwkUP|Z;7B5FrsLhLzg{|H&!h8
zVG_Y)r)E_V1gcj`nB-Jmby2y-vA^`Tb4TbYszF=0JVH@b@7@3q5(RADL7n87&%p{U
zL7e`U+WM`rnKef2ZdR20^*w0#^A^eOFc3V0fo$e_{DnC4y!ku};P2vA5cXa}eR<TA
z*W96RQV^?3xcIu{@oJu;oW0?|=|L+CSL;h4K%Q`rD*Xp(g1RjWFIj!c%084I<;E`o
zp{mONKvhX5>lNrCP%->(f)>uJ5|(XAU|NBCbG^9#zwj8bqrQO*_@mC?{}Pta%|WPY
zOQ0EzwDYU!81mJc77AE8;QR+2{}u~aH<P3I)vT$x=SdY3CuBmT2dZ<~XH9@>!alk;
z;z|T6o%PaDFg@OytUpSyCSq$k?)v?Ji*49Fkz2TmF&-NE%+)}!Ch=#(W3c)LM4Exe
zSbz-JRI?NG5Cx7K$B)3i|I0_@KW_ZDi>L%WFTSGPZDQz>Gt;J|U8zVVs+pzPFP;w{
zT^lb~qhq7c(r(=Jf}wQu!o0M?#F1_5#@+Yg2PQ@#-h=cpFCAJ4e~~a^^-hLHE!Jb*
z@hL#f4{z}&XeO$;m2H;s;_noCRYji1s35YJPv2I`=Ts#8$8W4<CeF<p8O|^zLa+ZT
zG#D#2jQ-bP?-=s?2^@P1?h!-2RN?>5b5@rlXq>Tj^pE)VgD_w%vydPR`3(}&_RJ09
z^|hSe15yL)9r$ll`d5Mhirw14Rik+{%3N@jsTRyq`d`XG6~S~G^d@vVNUQ%V<}EGA
zf^wkL4D>xrk8g!;mSI7u|0)uz-1-@a)2mn=t+yhJ-B4fr-bGZX!!SWJ!{zkd|Ep_+
z!ij23G}ou#9EM`{{}N69{{<7^|0|mOCxWbHU?B|`y!;zRqlP?`w=bjCd6m5v6iFq+
zqRM1GZ2$U|*LyB2`6)x!z1Dd+$Vva)@~Thk8Rz*e;9F2;>H9*Q*1szN*1Qxgn5FQ4
zWf;zM^HRRXrQJXBrMn<Jsfv&0ud;?&sVoV>aZ~TQJ8esSym7eEX_ldnNj$~BemQ}k
z!|Li6Pw>887q4s8c_An;4R-|d_2NA`rNktYYi%U5tc;ghsIGrLsO}B?UWp)v!LI23
zATZ(*NY3r+GwUA*+yRFZRYMB-U%ziU5i2+l*BCye-fr?;yrFv?Eu@aEZf>!rSASY`
zmY;`H#C8eHqPV73QgWcG{ExQOo^t6=aT6b^+ai%0i2vBLw&sAFRiIbN+__ON7eN;R
zT^6$>Lq1G0_`|(l+d^{Lpx5l<GyVknNjgdo^NRngxxx3O2yqLn$L=63OxzQ0X8KPU
zQyM9o<!nxrh?RH|7a#iiN&`{S7S#<E7XT0S6a+oFB5ZbitK9xizKXGBejd^+mOGv1
zZtYcINGr*lYj7lu@9DFYFH{1qy<HxnV`j(S>|1fco1|SANnW#_gH!JC^Oe3@D-myQ
zA$-nd%@T%SNaW6N>|-&Xb^2Z)zo*E<7N)9@&5m&NSS&Pe^O3u9ioU6J_B&~x#T#qa
zu+c19b1e<Cm}ewKZ3=t!le_JhC=Fq@QUlhCz$f`)&@jy6*b)ZVDmS=&1D7TG6D47p
zRQMM%WzqcitYuR{!#}}n?$);@mM49BQ;&iiWuczSAvJo*UUm{>-|M7(Dc1U6E64JM
z6o^l>EsP#QH$MNOyISfTJ!6lJ1?x6)hQEdufg6v#`A6s-bWg{P6SU(auReb=6|C!G
z>iui6R=q$OSkS^Xf_T&Z=#2V}H379@cYf=o30QBzg{?-RQdqC)s<}RQ*8N35(T->(
zrn$Sh;7a1;&Uf=2rV7KfJ(zNFHA|bmRzbG*u+-dOu{KSOlEU6^g+?E;Rl|oT&YX#`
z<uh1n^wA25JGUV0N4l3AeADJDBNEHM#wyMAx&H%!5(U9qxYYSsv<?X4X%#{@VPVt{
zJJ?IIKFJYoXKqP|gyQf2peH^2qa6M>=Tdx)W5UIO60}L%?-nn_dTY60tOGZF&styv
z1ANFvzsxV%^g#JS-i}SQb!fNEwyg_%VxLdCJSi7tSss5LC6<d?)BCnlyS~-_Gs_(?
z`rsqXV{-R|Sgp@-Ubj~MU$^=j|1-h_sOl{%^ieah6maOF^qcg_nSphhj=5}P(igw8
z4oTv$QT!PeUu3v$PMK%3Uo7pY_A}vqZ(%)N)0)35pOfRnW6m&SN6|Vktl50y%|oFL
zhkT52(^2pl;}3?$FnW<&V>#1EjhC%SKubr~XpxiDhcW?0oogC-<wah;&y)3s+?0rZ
zUIkv#KT#O|-<R9%OkVtHYwYkf@ta)K`UtRD@LJeCAWP7gjPanAlT4cSk2-q{xmz1z
zA_}pDcxGD^^XjJ`?X1sR!Oj9Fn1$56u)?dbsVFrW!3)W(**xU?gp(*}!_{j|q~o5z
z+XT*kIab}m>DmY8{bx{a_@jFZ8IbLk4WgSZ#OxnB?5JzJ&h>qA%1d5o<?eyJthnA@
z7L;yYl3wIqU>xAQMrE5BXt3zu?g87QlVF45DM86eLl(*R=LN3^X@{S-!I)aXtWh1_
z7@GiSR9jhMR#t9}D6I4Syu#*|Biu<tzNK(-g<YZG7OdF6V{O(NzqR#Hy9boUX{OZ`
zt)*ht^~N717UjH|@wSaG9*H|bDSWw^rWP`cpQ13fUeu`3T^rWR0%0iso~E+*`iPp-
z>%ZF0{}hLpxX{36pW6in*tptr6G>2~A46_U99qWm{>zryf9h3ZFMcw0R*(CkMJLuY
zv7R-yu61SNURK?v?sa<v+i0LZb}bwKon`V<98vB6sdWj!nu7nKT5**AnEvi^0t$sf
zG(@HS$PL5tuf_5aWv$KP2dt0uMsDEz9Npi8TW#gXIls8D#)fMj!CqH&GK^RrL3y(X
zcIZ~az;;6_ORu(eoqzAuTL^F){w<ao$8wDFgnT8Qs?}J@^q?F9BG$(LaRYcokM!a{
z%V}43qm_eIAh4MJ`916Vob+V>q!x^Jxi(%XZ+(su{nmV4T!R*1E7AP1csi$@hOE6S
zjI98ws#)HRKEtM#*fad*{zVzLn@6jTXf)ug1B}4mK<Qf>y2`Np8<!;pv%}{oW$~i!
z=cW4s{MRS|+TO4AytEDZNcB%XdW^1?wX1C#*97ou+juZ*+m0*MDFOqoUBX3v%Pq9c
zr<s09p5n2ginyLx>Y#UP^k=Z>eRYUChAF*Y+)PWbqTkw(;7QOWM~q?%gzd9FA13l+
z7u&`wEzNg)8q<iA1v6gA={-pi@{E?1{ab-DCEqv^__5;<XP64>({{!Jc_vjd<&TH5
zkmE!iQyM#qBFbjfHpSK%`zDT{Bq(NJ;c6_RsYC29xiYd_BE)>n3r-|CufF2RF9adT
zf>$Z4(vu0_nqVtf1+~O)YquUHHU&|8o0qov`(zJ&Kq)Uw$kcjQxyX=7;5Veoi@b*5
zb`&^~IG5;KbAtFdrS-Z0EN1Z@a-j<;DFW{-m>(ts)=CJ<a_vpDB7*WAhi+^;ybJ7e
zR?#o?#|J88UhiHdPBJ!S2RF4gnuUHcC921@KD-j-xG_hn2tUK>hNoFB&L0tQ6{NpN
z<|E(vlKEoY@p$Ra0I6<9M`#pX6jkl>V(5blkZuLztjv%&s;y0k$Jq4V&?WAyOTOp0
zAfM>-{065IYL8LGv@))~bsya!9#d9kP1J6y=*m1H=w_+U7RFBhOsdm7$~TIRK}iK+
z#L?&;w7+);b}+ZAdGThNaJrkdI)n+7QgfQ~id%2Bo(Fsz!A41v^1M;BBWhu1d!eUg
zIQvkRM^?3uZ5YkP-^RbHdJHY)C+iJ|g?RIC9!j&U)7%i0rOPj(qArvZA0yo+hMNN0
zuWl3UW%v~saW&7Yv4Qfg6$&MOs=gJ*rzsp8>Y&SV1_4*gdAS*{w4@5KHCL8gQ&+5T
zi5CNm#%x(m`7*C*?V$5ElO;GZ+~u|0!)k%2Qc<WkKl5un3S5t(Lf<)7m{$krg?)TT
zhh^%oX3{?%8R+stMc4xeuehRSchAF*lF7x%^6u@h_DZl^MTh0C_<G;H=jdmXvK+OD
za%_d^(XZb7+7H`gO6;JD?Ddyvoq<<uz5(?E>DScyrxHFMXnIs!+Mt@-a_iU74TFj=
z`@zNAnuu~j9{8L;$}f1TNLR~U38(xXa~!RB6!pvaFOI87(plYzC9{q4-=;KWA)HDp
z`YP~x+y@gKR4ubO8@pyna`W^|O$}PpZ`sml6nMbR)hyPeVN`h44z(ZUHXz{dU+12N
z@RlF3kg?{1w=73`JEOsQjHId2WlAQWMsZn-j#kx%>|}zl+UG}+z1ysq-0DlXBAg{r
z#EbNZeQWo*Mh@kxI_ic$&ku+V<3G_<ezA5{t}OiHF}=LJc|wAWHKhr=PX+7E@kB%<
zomp2w^UwfWlgI-5QduL#Tq$dzjJ<i4!rggl=c)5He{B8xx4$vJ+z8jd{it%oA)Sqr
zTW^2edbn%rfuFY?u-Lk(EcHp{!L3_!-|wjXDFkvY;KqZknwz)U?++*bK{5y2gwf+&
zoQ3}J+2t7PqS?7wODWUL9fd7jFr}jiKXSo!`W|$306GuvorcK`4t$1I=S>Ac)0`tO
z;#A$OseU*;<8C$yYGnbpEX<s0a$Oj0Fb*7O)av*Nx==Kg22FFUweC>HB_8M~hdM!*
z3g!rwCcba9paM<NB18!qnG9)%nBMPu$HYxFP=sCK2Rj}>BOdI`({PNOWXd@9kxsaN
zd<&r6(Tqz3UacrO-JwCD3j+y25U%kM8ja%xSzb#+sT5T+rdt}+o>q@e9f-c_AaSkk
zYS(JQ=y3yG7<3a?ER9(ZS+E)%X4`iUUBv4;B%(oJRjb^ukXc$bGK+lsBTWlEvKjUL
z3a;7VKDKb?<1J$s?9f8iR0K5Q{?r!$QUqPP4naCEJ%CteuO2g_$D|HcIgg`My^^u0
zEPbzJD^#D9f~HI8P!oNxEGwfnuV#N-k3LZ&XFqk+_&su%tsG>P8&R+J6w(B>Q@G&M
znx%;j&y*<nfZWh7co5Y-l>o&lbbCm93-V{En-p*s(KlM0&n{8)(N-ov*Ep7Z*BQo%
z{DqNrE(;NPj(nn|U-LchpteR^7QKZgN{M|hEK}jldnxP3zuAnA&=ma@X4~IdJ^I1X
zMV|O>TFM;R@zfR39x^T-@FhJ)&B0=KKSj;CYK=4Vh93JD)N4FNv0OJ*Ho*6Ovb;F+
zbneWkJ{fDL5QQ6F3EBp<e|)GLA#OK$Ux$@;Rw{ga3^ij*hmc0^g$ui;gt<D%;CjOM
zO4s0e&K}fm-f7mCY)#R%`kbj(5LoD9Hsd%g3fpx!J*9$!+WQHy_vyG<n|Y|Jxap@Q
zpDggvXML|mD-;Y7QXr=Lz5#y@Kx2h7Ac<O>_O*9%VF1SpYLz|ZsqKH-)VO0BpJ*`d
zUxS1_Tr5fJ46zy2uRxL~>~r8(`5DAa1jJNl`p8MtY96%OSn@df3FrGh+>|%H)&FcH
zDD|^<XiPsWt#|PIK6CKXFV7&zv!X`;JA)VZm;9{cTSi*HXe8dkMCHNkFC%7GmOA{H
zk_14c{!pXvWGppCiC_c@%yYh>3V~=ZBV_BjD7P=a%V2kp<9xJ=rOUi#pU$E7qNbx%
zI3=rxozJBOWDXM#nKpNZjVQ!5-#%yAmO!XJY^CMf@OT%gn7Y5?b%IF9vx0Oe;w{WN
z?7b~YNJp0#<exFD>MwOpQWhz&J^}-<p5-O*%=iSnAh6yEbNQO@+^)IR8&Yyb>S(On
znXHmKA3u-88&X8K>m~R^lAWZjJdC`jpY&L~X;B%s&+Gs~syyB31nVijdY**EEVv)+
zv#PQamS^-boC>{)B`$We5$=vVi_XnlMR;eBE)KY3yB?(kGOXCa!`#Wk*?^IiR4FyM
zWc$9#J~^Z-{!LkH(LM465fA+m^;c*2b1b9ZRlac0S9$2MJJ)qc^A0V71slqJ7t$yw
z$9F9BG(Yz*=w<?*vulPiC%%Dsdsw!uHrM2R=*8&h250<fv4(3g(DzT2&$H0c59Srp
z1;Y!b1gmS`cB$;^x@pq~%y$j)U!Lg+AHnxM=9W@?!;E}WH5XNa$IYK2-jsE%WS&%R
zcT;lltt+-rhBLnJ^X3c{NgL8OwLp1$IPW$vpP>`gy^AG&b`w_`LwIKOJ1{Ix?z><U
zKA|ye=hN}AQm5SUyx1tJSx%L#b^&wQjI_h#$fLNw8l?G<tfLjcfha-MWw20)^ceNO
z+@#x8v7l4H+%KK*7`0|b`p$4B>4F+QFXH~vpA!&KVy8pX1zr247M7G!LS(pv>?|6u
z=Ip5o>~20$Vqd}Gk}_tWIP5B-Xgg0j;esI|2ZE8875jU_#}duOk+VzYbjd{Tpj96^
ztWL2iu!tO*2*gBD$<Wl8s3Nn_7$mbt%DO}m>s9XA)Ka5Pie>rNmEF~8Gr=cTHew1O
zCVL;m_~RzZnAB#1-O(J%t`eg8vSW~zPF)g#<E#XYYQHRLP+UrcHAw4r4TUrv2c<Ox
z`ZN6*ghqcA&ZnVKN`tnJpDIi_?wE+R?6|6}0i+d;$KT7OnXUTOmqQb)^ImctaV@ok
zPMvZR;{#bxo(J+$NXUB=Vj?WhW3F*Be*E7AMm(JIqHw6rOY|*+@L$w3mg*;-S?u{T
z1%Y*b3awPoYI5wnC@`6qPVA~n__BQGvgB9AzKKRgE2;~X(^ynS^0$TnJ@*Kl{=HKo
z5kjKNa|PN%|HIPJ6D1UFe}7Cg4q!<q-a^$aY$%y;pDi{y;bw&-XS+ME$$2G;mYVQP
z-WKSNXWcs!PU8|vEh>Wwj^A;{0J3z5KeyV<zPu`o4X#5A<OK(2a_3_N+toP=$wWw5
zs0FGVaO}^lFxCqEq0ra6H=!`-&c~11CUnrfBM&tJ_WXjz&`I9km#H*3d;3k!LT1$>
z`O=>Zc<dD%5q@PKOdYq7;Xo1$oguyZdOrs=Ovg#XUNfTdphqgX6RF~m;GpD)eib9l
z;E4H;D{T{Uk6R_Uv<jMYmi}Jk3|>`aLV=5J#FyqQ6zDB#<2P+F58Yc-dg;oF-dE|w
zYQ{uEY)PW~_Zu0Wna<q-|A<nnM<aZ*tWb#D@AJ2?sH)J^L5lPEI|_PSLiZK;4>ma~
z)_9P~0YlEsmiL!X<?cpdsk%i|hekv}%{f!48K}n|^!mjnyH1DH)z)AwQ~e|rz)2Na
zT{zXD68#7J1*eF@ifVjNyWlC?qi%eFGv`iLO*;#doN1uZONcYC9Cj969c(aU1f`PS
zBUQR19h7L_!uUm(MAn~-^c@q`>GqO_d5bGG5t~}@@5<)nkTO2b>9VCY{!LSW8&*zE
zRj_s{)hyhdZ2N31ueayx_ZDD3VI1keppdFvi^#~#@0AHuG7`6^DxrvcFM&rE5}N0!
zm0?AD131yBm#c3NPXv>)xd*y;K2?CTcX``V{0gTcIp7&0L3e1c`*e(@O1JnD_f&e6
zVVR6z82{^#iaR54?~K3oV(e}OPtbdvU^7$@hG%@I8n*|TmYmZ7?i;%Xy|Z}I)2Z9`
zY|+#p>3Wj660~l81z)EiG`q;e&Of?ZnN|{<&p~()T{ObTTxbq-B3!_IZvox$aE5}P
zQPV6H?$Fv*-4n((<CjZH?$IK?!i0`{pQ09A8?Pe$gdmcTW}!G>6fV%!9abHQw`p;*
z7wLA^>jUvV4HH5av#&5`Q3d-9&IX@<e+utT?yrkCGz>!6DA_F~r7mPx=uCf><IAeN
z@>lmKk*TJW8n+i04`cds<dxkdIueH@j^;gZZNn-E^D~Iq#_bG?l6x5=73~pSv4-$p
z2M&XZrwV0ey_9=>jD5Uql+Jy763X<O#$W*tUeiJRyV>3D;#F9(bw;fRYube|d{R5i
zXRvO!3ErYc%A%bf9eNC62(AA1;KpSFelD<HRXorSIs;cKnX}quCMe%9=%TDV?+p)Y
zzf5=B_4H{4M%ONq^Gm2u6ODYhs_!}!t<MOtNiL2)F@ZZ7%xcMS>i9@G-dNTNh!(bk
zR(21f*ZpV#=}?y@E~i_yo9L7-w5gdn!j%IU-&5<H3O<qo2i&`rL)F`(dEwHZ=MPuy
zHbW$;58KN)8SLd_>|<@_>BiA#NjqAPt6e%T-~VpbbR-@bA9Y44oLXj=;N%hZD^ht4
zh78obSzE(shz)zJlnLzz5_l1FFz%&6a2b4X8D8KrhCqE<g8f5Ma_5}1CTZgG{ndDP
zF|V|2@<0!}ME12JUx+&Ilqa~vo-ZCM6{S{zA}AQxFP*MyI7t3k<8JVpmi4Vk!uMU`
zxf!$rt+ErHXbZ1LfZ^-G%YZ4%ch7wJ8<=R)<9J7a;f~%qptD$>r5w^{MVjbJ%YM?D
z^1)pdgqr-y#Suj*3+<Qe@!Z+c4iA$06_##bFN6E8K_?<-n_zdvif+deac<zvasBwH
z1{z28nSX;;!{7|6Ul!or>uRo3dQ?)|pw?oBM-8x*-qIrOuikPO*J)PFUF_ZqS~Kw2
zkP(wgP7@vImSjixKjf2lbcJ^5EQ&fVQ|%4n%!E$Fp5H<>=zUkCLz#%LcicVG=WFsw
z;MiRRjNauJ&KPOy;%4|!I}qf7R3Y93gT9E@x}(agC_Y~k#Clv<x*<rh8c1>TsZr&5
zTMrSX=H^P~OOW8;1{#oVbe2jv82^2W?vsrkTP7A%EjFFAovxpb91-)|vfxY9m5FBz
zS-$)n&|oL4{HZIq(fEsDZ$<2x(X@{i7p;&fCrZrSrzwvoYlDo!5?LFVq5kO+pHGnM
zZyPU{x}%l8zNqwU_@(Gzg*0!+x4|&Du0#%*g$Mx&Lc9$w0RBxa`OX@(3osLXkXpI~
zr1ngn^87u>tcOU=JP_M;F?SE;1*5d%qQEvdEI9085WQ!zL?*6Ct*aZ`<eCf-g~;<U
z&=LZ7HQbl5_ySb@OKdJvt>ky4ALB0V1YvAVA$WI17Drjxh5ipk8KxN~RmNX{x`j<G
zDIqorr55`x@0QmaO{ICdTiK>T6Rwa*kKuk#9(Nh9VH)Gfx@sxwv`?}}x%0Ris0w5O
zAuqRBR@=FT8H;<i#ZUrdW{D4rk-2-usf<|#70S$5VR%8#H|82(^kpuaxR@=Ww4{G$
zc7^nR9uc1upmVAwSAYa}KMm)({Dmo~JDGS1ZT-Gpt>~Nw=;UKkXH<A-&jEe9KXS}r
z>1ovOQF~Kv(}L@~sK}Jt9|gn!;9!^J%4^bOl*_{*)pt|;mcyJ8!;FyzFg2+VmXD^<
z%mjp4jG9-270MMqmN!)8KR!??&2k6*;Jg{aug2efnh$(X;dyEHzX_4(6d<+GakwM!
z4`}lf9UNSKW|hf!bG`ebX-=`C^b)SLIPt!zj(1=bJDl?fsfk8x<8wOQYxzVeb?8(f
z%*ivBSTt*kA3L6O@;U*|PX62jQHppxrW^eWxSr?h>rvyOLnPTwPUvs%)$l%+9Vb<M
zfMjEr!dy&BxYSD;)Y(6ub@fr=x!J^r>a~M0sZMriGw{^hI#<1{lcU4<NHwZIjs_1?
zjenmy9aEfQT(38M<fGJLqF^dWWqb9!<I;r7;LXaw`bwqUdF|Yh!@~0B+cYwt(0uzN
z=v<n~CPY_id?Cnz`L%rPo`WDD16XA{De|ntz5S9&=Y{A{^E0s%BqV;wAeKZ9u@Tzy
zhFcC!+kC052;Q<i<!#N-?lV)~w8Xu_c-PFR5889OR=)nDGvz;Wv&)if^@0K*OIK}4
zmIrOkT>9;*%28H65d`+5`tfm^NE<!w)O*H9cU3Z$gtd$xW9y9qmX#hTX#$D$@2o`k
zBAAA-bh$n3KH|cGGwgxVpgWb~f5x5nki^E(1q<JJB_<7c0tcpPdd&W`a#_zF%8_Ej
z_zSOV0qg0cF9z&dMa3vjoED_X)~@uT`}{vsE)dT-K_eR>%IQ!cE@R?#&m6%5hIp%`
zD42WV3-sFL>9Y<{;UDPwitLnDP52|0YQI~|hQY=BMnoav>mNATgQahk?jJo8t?~@)
zg=6yY)tF4GwOd%TVwHUnnOOC`G7!WJenTu!v4jm^xE;cxCMxy4hOCUX)prAq8?nP@
za1&KbYRI|Wo~O7@qRts#{E9;-tUb-K2~ff6cTgdwM#XhkU*2H7I9saO<ZfrnThR7D
zWM(m~*UhyTnT_}d^R36aS(e&Lx#;tqFc0UmqR#OgC^L78)<1uzt<3`{oRVs@`wQ+*
z&1h>}tIjq!GCdEG<xU~Ahj>KYXPG*6REH&JZNuz^{FAESyho;kHAUxfRH)I?%M8!T
zW;z<01{HxPjYF|!@OMHJ*Ve-ryG~2MM35|AF1PI`sz(%n>HWl7Mqee{`26K>8-SYa
zJ0MNJcW9Y+${zWxDjz~e*}}V7ekuctPBwiGJ4+AZEsl0r9};;y6xzm~O{jzDIV_b|
zq^963C|5bkPuVeb6^sb`c|TRC)qVO4_3qJMpxFC6^SpIl=*k_#V^XT+<UTYhX*F@~
z7h$YBwm^H&Mtb1V4~YVBJT09-0N~Q$6BhyQ1e`++zw}r8z28D}-_5;&a8;M;I1($P
zj=EdV#?4FePv_Y-d!9y+4uN9mZ1Zzj4Tx;tGFTiYJR5lmmx8wdUZOmWCmfdYA=JDn
zB5n-Q0pC{ji=0C!?a2{2x#$Rg`J|Jh{;;!=6o?SI^ejWE$=`12CPWFi^YZEG;i9Q3
z#eP4%*9x)MKgYb56EPvc$5Ctqj;mXv+r@fI0n+UwX{S9l%LQEkoAkpS4Y(HL4r=N4
z0|wTOXCu!dB^s{1Z<!gM$*Rx@_hL$HgR~C<vzwdX_ghu5J2%?1vC!&|qpOprJucnB
z9Gv#cf&l+4N(cL2=K+_}LnHH)h!>n-Rc*uJYMjB9?*kBjLLagu@u4Ui?H+SG$)Jo@
zzOB0Jn6URzT5REOMG9`BF^mJly1dUX(80^Y)*ErB0CDLb6aByXWL3{YMaJ(8{0+0-
zIvR#3SyMid<=Wg<Ztj$e$>OlLMQAobI)?CIxvdVr@8MJy0XVKuT-lZI!Q$|HnSX*2
zRCga<5J?wY-@)2gSz=z|(}kZBDtkWIedP?UE@70~`2H?f^J_cC-_BHZsG0DsLuqnl
z`yL4X=)}LbHr1pN4vFXx?%5n)K~l!aZf6ME9hVG0_WQZKOY+=v&|VIG_6fw=TobcP
z;SlJh8?{7046(NqBDx7t5cVC<L7D0}4VAOJ+gJKnve<ZfsNRU6j-1MNm&u0Z+a-1G
z;tNV&*?EF|&7M(5mmpuJW=Bf=oYFIk{ogp+?a>eA(fcx9UZpgNW!_ro3!VFELR_LI
z9MQ`$WR8A7c~@|pBfByt#)l4x8X*%bPQn=+VC{&OgW;hXuP?@yX5>uGK6|r}3UP);
ze&2!iG3?+%L~)(*HM56Abs2nTt*Z|+0?iI}z~ZM1>E?yzX(tM868KbzHxL^m9*@T;
zObZoLra8Ek3pm3BwBG=McigGx)9|}0!<P3^%{m;`bCvq!r&_~n`xIs_GQhG!B5-zr
zD|wi4l2ov)pi0~KU<hA}`U^h5zB?*Fn6)K@cRun2t}MU#B{a`WvqN-{CBB!j;kss0
z<m)fd%ePlbF?9GoSE-C>bYcciSbi!W7i?Mzt&71!V2(=<<l!r4ZZ&?KN*?`Kn34R~
zy-uEXAj|j;y1v*8xQ`rTyJ{z00-lDakGDdQdmqeR4_DhSE7nKFb!RX2AK}d@rp+!x
zY!_-|j}-+RDs$kZ2xI<s37I^F8or%)t2~|OuGpuyG^T6QY)A4ts4;P6ZU16+o~L{q
z2){HkldImEN7R(79}8c~4Z0>2sC0Kr{BU{qENX+Q3k(jTd@!J;ngVpmI0(DhrjEIa
zE`FBq%&`7QKjQ;LvKmDTo*9I<;2IyGmCVpHFFPv4nYdnT={IGKsyDlWx&FNj&kiNz
z`DE|Z-vR$l7k$U{S#RySuCTi8-$>`M{%T#qlI|JxOxo@<Z!Tr;B1oMh?qeU!#(d;d
zAf4r@uCl@X;HG^*uA8m{mVrDM9#LhMx1On(3=aUqw4lzRh;+wDQN~E7s<y@;@!^ye
zlzG2HA<nr1yV{U(NGYh{!4h8>-!`+Vy-8P9n?0dUJ?f~M6sc6TBzmroN<95AX5f>L
z@}`!$!v0H%7RI%xnT118^@6ER6;N4UtbF@prbgkAS_YtD1@oVyFMdOy2d4`SA=Hvz
z>6v~RQ$J}d{ng^qiBnY7PV%&cGzH^m9&k$ZpMK_V7xE#o(8#m$vn%S_Ndwa3(v!>f
zcne+lhbU(pMSJL}Sua=Z+^UAhoUX&t`wWF`3+#s&QN~18y2l*T5JI$c&rMJJy^gRH
zdw1Hz1z^0{4Q9CUyZ9Pgt0(qL570PIM%_7TbgO>ddut8)f^5_^p%H!6c^@ulAfW#x
zeU+R2WaZMb9GB>3EeX%9ddqlIKuFYc@YD>@lHd~edn^1Nq>_<v_95*BAIYBHa;9fF
zEa6(?y{O#O^met1NZpQag60QPTihAEI-VI&HmZQ{?frH=Uphk0f7NhCqw{RaWqZec
z8C9FQl2gyZhS=TVnD_pizY(D(__0f88A)}hPZ6cOtI>QOEoc^XULt^?!yc}dm_HjS
z!(th?TgZoj1RWaftMvy5)-HFZLOQhB6*Gg5Q1%qWP+g0u@T6tAn&Y_^e{GN(9tW&^
z5lY@qE@apfII{fbx()XrG^eF@im+6x35_E*X2_maaBQDhd<fIZf}pS1!>jLB_s+%e
zO~3QE7e-UZgK)BkQv`}|=xpRuc~Mb*ZON>YuG3N~OL`pGH|IS=iayt=0ToB|U!f|L
z>X<&q180{CSW<5A_dk|}_?2@2A6q&iOs@nhQJ%pG*<CIdeTJeue6wUc?K<*k&4ZVp
zrhwu%u`WD|#xA!Q%5fV!TR~1oaZ?NUq$6K$c)E00_65S_BCIv1H@HZGD_v!u&r|6M
zvb2oSAtlwyyfc=^c!T<(H0Pz(U%UKbeDnJYES@p2{OtOyXWPFoj{|TAF|xGVM{PQg
zE@)_frUoAw?enAy6q8H#eviQ!o>@sW?68J$+Y6e(9drfiP6B%hK(#6vYb9Pfb{l&t
zX?Zf*a}^#cOdK+FFBMI8wa_@V83hpkY7%i2G%%fe>ky!3nYAH_>zLCHI4|X75PMdA
zJ0HFC#<v^+;60syV-8~Q%{dB2!meyJfZrO2yAC3>l1ma%C$y6`D;o{Z9#yd}d*Q^e
zC^a{QBoVU!{inf>0!$5~Rg_(?VXty*?{qU=a2yyr`|CuevCGA)M8CrJVv85mezOgQ
z%O5ZG3~D|n1or`<4vcsKOK@n5ZkEf$GaYK5>>$uvh>&S|r<cnVk~Niv_ZG94Xbz$z
zs5gtv&jNW6Q8*iu)5$DcEt8+y5D>Zt+z|Gz>1u<tNt<^<ufu2!91%;lW5-H`tOQsm
z?2EO5CQ*E3%HJ9N)gv#d85()ML7H<*l0O=$mg$=}8?D99edSnmSw_E{FqS&XO#?(|
z18hzCoztY^utVqsT%KbMt;Q%W%<&>j=HzFf$tgR5^v@$frI-76bkhhcJk4%ozL+<D
zyvwkgH>T@4GRn(q7?*4F@dTe1-BXHv->;(-O+MB!=^B(hegGaIxTn$`(vpBvDz#9<
zxM@r;Z_iYCVTYsIp(EpAxjWQ>M$7jtKQqiqCy(DlSU#%LKTiMBU3XNi&>$rq_i`Lw
z|CKk45@n@18$5`=U)xdXF3)<o7)q_$2ySQxq0pXbhPLy4u0;6jQp<^sQe2Bp$0paH
zH)=&M8F!T&mbwlKtgYdnzHt+{fM!Qt-@<;RC4PSRmc*y=?Nal=Gnol6uPu1p9q$zD
zQk0~s<k&!`6F8*cGfrXW5OXGYpYldb1Ww_ZMF^`VW8$Huc2btAHt@Tr2Wn;Yw<I$Y
zj9SKs4tWJiXW#b^?1dA_@g#w08)1u_!%OfC(PN!R_fh3b<YYl=RA^^zRcuGV(azHJ
zk=ZX0;aSg(`?Z}(G9a(Mab@6og>ECXPT{t6`8#BrD{&D$EkB1e4Mg|n_j7h!I=1V(
zZ7r(f)`bN(1aSG)61ldFv<#NdC!8buGpujq4-sha5wlT|ou{7yF0r%`(_Sw-M!i~;
zOxC3$_~fA>@AF4JTrKxwd!HQMAlH8kJjZl<)G1uM8@K2I5Hko-o1q%S-4MGQVrNF*
zYAdD1+j6BCTs}@9kDeHo#5&`O_TmNaGd$mRv0h!4XuW$jUNoibeK@u+iahS`KB}}A
zAA`hc!MGFF7d(A)W4#%9FT-b);46$0Ym-2<Z^CKrgr#=f%V2l^_T0(_MvTaptkXeV
zCb1QE8vx9!bb;r8SXML6gjg3%ZKBIC`W;1%ITH;yivyFvt!kN5GZapj!RiLHx#A{g
zT%&+FVc6l_*SnwFRk4=ET|7&sK>fx~p?%HnzwDpo-k%cN^dTT<zfN)0(`d9)7~qGX
zLg1R*W3;dIBieO6!Jc|#1TO-x&w|&G*o!KdLa+~zb2MY5*t&w`|1gOCGuKh{v`yaz
zyZV+%ZHKP}Khf>v_L&nnVY-i2+)>GwCG$7w8|6v@)(|<qR`BT_-r_enr5EO5O+C?(
z9{dd@f^zJal(jddf^hC>IA*7Gw~P8zjF&w7>nbAGI)sJGIJ6gV;!tGe5F~Bhzj*Zz
zoU@Qb#7#wMcb!@eUg6lIYldxW$LeD727!w*H?B3#z@}N_sT3N4n?gXbl#^KBqW)GT
zcugAjrFN38b=J#B#RM1m4}L{c<#a6d*y$hQ=>C+ho~(s-?))P`mdJJV^q0&*t(YLI
z%*{Ih*#ZK*gq?h=JyaP_`P!w`bQ0HoNEF$*{o94Qch)}B!Y&m{d}GQ|^K$iN$>6r%
zf!zp5Qy5Y*pIXFU+sGA#^6I<>0+!0wl!~F5>>*PXtI@haT3D$k-qz&zQmk)=!FM<F
zGO?(9WP}MpR`*e~>Xeq$@dno{s(U8@`=u3@v><uP<ggP)seGx4lP#8l;AL!Y1I(^2
z3VRY~y~j1#xHq&<N8R?2NU#}B(S+9oX*n{^ab6sjK2-((!4?xSH>23eq854~sBvep
z_;(8^ck$J({VSIq#te&JOI)y}TA{IdBjN@LgOdD=>#yoRaY2NC7wMAh4v45vPKr+#
zj-GBLw6Z-yiv}L4%hkAbgC`M>!<{=H1<Q=Ov+x!caAQVrunrH5iaTYLlMKDm?i1$7
zyOFw%k&!s+0)-mZ=|J+7M_XqtU8^9bpN-l-ePond^f({=;@D*H#iBfe{ru<pXt3d`
zIUOo6IU5<DRPXHM>30c;>Z~On=aQDoA?e}w7h0jKFK#Z8W1x0<2|l?!y{m~h2|P{}
z<K3A$#}N;`<8-yu`(m?N^CA<WIg72ae|p_b@EAqz%l%m{GXp%7czC?EXlk3b(&2;)
zxa5+`sCYM=EU(t$b)_-B#e6z!rO_!zO-!S-=-Dk1wb>FT1%L@u%!B*i7i+WqS|1Bn
z-#~z(kycHNM<=5?-67|tP?~Z51=zo7ki3V;^leso%jw#DOl0S^xnk|Qz=?c=e?%u`
zsI*LW^YS%2U@n6=>2rvlqp4PwrpT$&6n(1G=51l#v{&whW^`k5R_Pnrh_)d{qMs0q
zYu9S>!cl>)$Q`%2Q?(fl*~ILngw@=P>pXkcFW(<z7(GK4O~q>~`R<De&noUtYejZm
zV>YQw#4vQIVKk03;V;~%PT3B^)N=|TJ2agKrrF?YTb&kMAPMUH!|?U^?@7}t3k_fb
zy7q!V)$hM-n|=T$vIYt6cB#E7$QR)DHmIDO{Y9jFU0hMqC$bLVpuwKaRPGJ-kDc}4
zQF-!udUlatZ?J1q3o~~X)m;?mu1!{R$=F4GHRxBalKFw@4d^^=rIgJNUh?;Nyp(O)
XJ3~s#HAx9v`yTYP)1TF+0&e^tVM?}2

diff --git a/reference/plot.html b/reference/plot.html
index 7976902f..a6c2061c 100644
--- a/reference/plot.html
+++ b/reference/plot.html
@@ -9,7 +9,7 @@ Especially the scale_*_mic() functions are relevant wrappers to plot MIC values
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -167,7 +167,7 @@ Especially the scale_*_mic() functions are relevant wrappers to plot MIC values
 <span></span>
 <span><span class="fu">scale_y_percent</span><span class="op">(</span></span>
 <span>  breaks <span class="op">=</span> <span class="kw">function</span><span class="op">(</span><span class="va">x</span><span class="op">)</span> <span class="fu"><a href="https://rdrr.io/r/base/seq.html" class="external-link">seq</a></span><span class="op">(</span><span class="fl">0</span>, <span class="fu"><a href="https://rdrr.io/r/base/Extremes.html" class="external-link">max</a></span><span class="op">(</span><span class="va">x</span>, na.rm <span class="op">=</span> <span class="cn">TRUE</span><span class="op">)</span>, <span class="fl">0.1</span><span class="op">)</span>,</span>
-<span>  limits <span class="op">=</span> <span class="cn">NULL</span></span>
+<span>  limits <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="fl">0</span>, <span class="cn">NA</span><span class="op">)</span></span>
 <span><span class="op">)</span></span>
 <span></span>
 <span><span class="fu">scale_sir_colours</span><span class="op">(</span></span>
@@ -253,6 +253,50 @@ Especially the scale_*_mic() functions are relevant wrappers to plot MIC values
 <dt id="arg-breakpoint-type">breakpoint_type<a class="anchor" aria-label="anchor" href="#arg-breakpoint-type"></a></dt>
 <dd><p>the type of breakpoints to use, either "ECOFF", "animal", or "human". ECOFF stands for Epidemiological Cut-Off values. The default is <code>"human"</code>, which can also be set with the package option <code><a href="AMR-options.html">AMR_breakpoint_type</a></code>. If <code>host</code> is set to values of veterinary species, this will automatically be set to <code>"animal"</code>.</p></dd>
 
+
+<dt id="arg-facet">facet<a class="anchor" aria-label="anchor" href="#arg-facet"></a></dt>
+<dd><p>variable to split plots by, either <code>"interpretation"</code> (default) or <code>"antibiotic"</code> or a grouping variable</p></dd>
+
+
+<dt id="arg-nrow">nrow<a class="anchor" aria-label="anchor" href="#arg-nrow"></a></dt>
+<dd><p>(when using <code>facet</code>) number of rows</p></dd>
+
+
+<dt id="arg-breaks">breaks<a class="anchor" aria-label="anchor" href="#arg-breaks"></a></dt>
+<dd><p>a <a href="https://rdrr.io/r/base/numeric.html" class="external-link">numeric</a> vector of positions</p></dd>
+
+
+<dt id="arg-limits">limits<a class="anchor" aria-label="anchor" href="#arg-limits"></a></dt>
+<dd><p>a <a href="https://rdrr.io/r/base/numeric.html" class="external-link">numeric</a> vector of length two providing limits of the scale, use <code>NA</code> to refer to the existing minimum or maximum</p></dd>
+
+
+<dt id="arg-aesthetics">aesthetics<a class="anchor" aria-label="anchor" href="#arg-aesthetics"></a></dt>
+<dd><p>aesthetics to apply the colours to - the default is "fill" but can also be (a combination of) "alpha", "colour", "fill", "linetype", "shape" or "size"</p></dd>
+
+
+<dt id="arg-position">position<a class="anchor" aria-label="anchor" href="#arg-position"></a></dt>
+<dd><p>position adjustment of bars, either <code>"fill"</code>, <code>"stack"</code> or <code>"dodge"</code></p></dd>
+
+
+<dt id="arg-translate-ab">translate_ab<a class="anchor" aria-label="anchor" href="#arg-translate-ab"></a></dt>
+<dd><p>a column name of the <a href="antibiotics.html">antibiotics</a> data set to translate the antibiotic abbreviations to, using <code><a href="ab_property.html">ab_property()</a></code></p></dd>
+
+
+<dt id="arg-minimum">minimum<a class="anchor" aria-label="anchor" href="#arg-minimum"></a></dt>
+<dd><p>the minimum allowed number of available (tested) isolates. Any isolate count lower than <code>minimum</code> will return <code>NA</code> with a warning. The default number of <code>30</code> isolates is advised by the Clinical and Laboratory Standards Institute (CLSI) as best practice, see <em>Source</em>.</p></dd>
+
+
+<dt id="arg-combine-si">combine_SI<a class="anchor" aria-label="anchor" href="#arg-combine-si"></a></dt>
+<dd><p>a <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> to indicate whether all values of S, SDD, and I must be merged into one, so the output only consists of S+SDD+I vs. R (susceptible vs. resistant) - the default is <code>TRUE</code></p></dd>
+
+
+<dt id="arg-datalabels-size">datalabels.size<a class="anchor" aria-label="anchor" href="#arg-datalabels-size"></a></dt>
+<dd><p>size of the datalabels</p></dd>
+
+
+<dt id="arg-datalabels-colour">datalabels.colour<a class="anchor" aria-label="anchor" href="#arg-datalabels-colour"></a></dt>
+<dd><p>colour of the datalabels</p></dd>
+
 </dl></div>
     <div class="section level2">
     <h2 id="value">Value<a class="anchor" aria-label="anchor" href="#value"></a></h2>
@@ -298,7 +342,7 @@ Especially the scale_*_mic() functions are relevant wrappers to plot MIC values
 <span class="r-plt img"><img src="plot-6.png" alt="" width="700" height="433"></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span></span></span>
-<span class="r-in"><span><span class="co"># Plotting using scale_x_mic()</span></span></span>
+<span class="r-in"><span><span class="co"># Plotting using scale_x_mic() ---------------------------------------------</span></span></span>
 <span class="r-in"><span><span class="co"># \donttest{</span></span></span>
 <span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://ggplot2.tidyverse.org" class="external-link">"ggplot2"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
 <span class="r-in"><span>  <span class="va">mic_plot</span> <span class="op">&lt;-</span> <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/ggplot.html" class="external-link">ggplot</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/data.frame.html" class="external-link">data.frame</a></span><span class="op">(</span>mics <span class="op">=</span> <span class="fu"><a href="as.mic.html">as.mic</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="fl">0.25</span>, <span class="st">"&lt;=4"</span>, <span class="fl">4</span>, <span class="fl">8</span>, <span class="fl">32</span>, <span class="st">"&gt;=32"</span><span class="op">)</span><span class="op">)</span>,</span></span>
@@ -346,6 +390,28 @@ Especially the scale_*_mic() functions are relevant wrappers to plot MIC values
 <span class="r-in"><span>  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/autoplot.html" class="external-link">autoplot</a></span><span class="op">(</span><span class="va">some_sir_values</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
 <span class="r-plt img"><img src="plot-14.png" alt="" width="700" height="433"></span>
+<span class="r-in"><span></span></span>
+<span class="r-in"><span><span class="co"># Plotting using scale_y_percent() -----------------------------------------</span></span></span>
+<span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://ggplot2.tidyverse.org" class="external-link">"ggplot2"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
+<span class="r-in"><span>  <span class="va">p</span> <span class="op">&lt;-</span> <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/ggplot.html" class="external-link">ggplot</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/data.frame.html" class="external-link">data.frame</a></span><span class="op">(</span>mics <span class="op">=</span> <span class="fu"><a href="as.mic.html">as.mic</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="fl">0.25</span>, <span class="st">"&lt;=4"</span>, <span class="fl">4</span>, <span class="fl">8</span>, <span class="fl">32</span>, <span class="st">"&gt;=32"</span><span class="op">)</span><span class="op">)</span>,</span></span>
+<span class="r-in"><span>                               counts <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="fl">1</span>, <span class="fl">1</span>, <span class="fl">2</span>, <span class="fl">2</span>, <span class="fl">3</span>, <span class="fl">3</span><span class="op">)</span><span class="op">)</span>,</span></span>
+<span class="r-in"><span>                         <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/aes.html" class="external-link">aes</a></span><span class="op">(</span><span class="va">mics</span>, <span class="va">counts</span> <span class="op">/</span> <span class="fu"><a href="https://rdrr.io/r/base/sum.html" class="external-link">sum</a></span><span class="op">(</span><span class="va">counts</span><span class="op">)</span><span class="op">)</span><span class="op">)</span> <span class="op">+</span></span></span>
+<span class="r-in"><span>    <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/geom_bar.html" class="external-link">geom_col</a></span><span class="op">(</span><span class="op">)</span></span></span>
+<span class="r-in"><span>  <span class="fu"><a href="https://rdrr.io/r/base/print.html" class="external-link">print</a></span><span class="op">(</span><span class="va">p</span><span class="op">)</span></span></span>
+<span class="r-in"><span>  </span></span>
+<span class="r-in"><span>  <span class="va">p2</span> <span class="op">&lt;-</span> <span class="va">p</span> <span class="op">+</span></span></span>
+<span class="r-in"><span>    <span class="fu">scale_y_percent</span><span class="op">(</span><span class="op">)</span> <span class="op">+</span></span></span>
+<span class="r-in"><span>    <span class="fu">theme_sir</span><span class="op">(</span><span class="op">)</span></span></span>
+<span class="r-in"><span>  <span class="fu"><a href="https://rdrr.io/r/base/print.html" class="external-link">print</a></span><span class="op">(</span><span class="va">p2</span><span class="op">)</span></span></span>
+<span class="r-in"><span>  </span></span>
+<span class="r-in"><span>  <span class="va">p</span> <span class="op">+</span></span></span>
+<span class="r-in"><span>    <span class="fu">scale_y_percent</span><span class="op">(</span>breaks <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/seq.html" class="external-link">seq</a></span><span class="op">(</span>from <span class="op">=</span> <span class="fl">0</span>, to <span class="op">=</span> <span class="fl">1</span>, by <span class="op">=</span> <span class="fl">0.1</span><span class="op">)</span>,</span></span>
+<span class="r-in"><span>                    limits <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="fl">0</span>, <span class="fl">1</span><span class="op">)</span><span class="op">)</span> <span class="op">+</span></span></span>
+<span class="r-in"><span>    <span class="fu">theme_sir</span><span class="op">(</span><span class="op">)</span></span></span>
+<span class="r-in"><span><span class="op">}</span></span></span>
+<span class="r-plt img"><img src="plot-15.png" alt="" width="700" height="433"></span>
+<span class="r-plt img"><img src="plot-16.png" alt="" width="700" height="433"></span>
+<span class="r-plt img"><img src="plot-17.png" alt="" width="700" height="433"></span>
 <span class="r-in"><span><span class="co"># }</span></span></span>
 </code></pre></div>
     </div>
diff --git a/reference/proportion.html b/reference/proportion.html
index 3e042dbf..9d62af62 100644
--- a/reference/proportion.html
+++ b/reference/proportion.html
@@ -9,7 +9,7 @@ resistance() should be used to calculate resistance, susceptibility() should be
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/random.html b/reference/random.html
index edc46716..0a63b34b 100644
--- a/reference/random.html
+++ b/reference/random.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/resistance_predict.html b/reference/resistance_predict.html
index eea41ae0..47942a9d 100644
--- a/reference/resistance_predict.html
+++ b/reference/resistance_predict.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/skewness.html b/reference/skewness.html
index 82ce1db7..82068706 100644
--- a/reference/skewness.html
+++ b/reference/skewness.html
@@ -9,7 +9,7 @@ When negative ('left-skewed'): the left tail is longer; the mass of the distribu
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/translate.html b/reference/translate.html
index abf0ca3f..762b7f2e 100644
--- a/reference/translate.html
+++ b/reference/translate.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9121</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9122</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/search.json b/search.json
index eb643b98..29c0176d 100644
--- a/search.json
+++ b/search.json
@@ -1 +1 @@
-[{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"How to conduct AMR data analysis","text":"Conducting AMR data analysis unfortunately requires -depth knowledge different scientific fields, makes hard right. least, requires: Good questions (always start !) reliable data thorough understanding (clinical) epidemiology, understand clinical epidemiological relevance possible bias results thorough understanding (clinical) microbiology/infectious diseases, understand microorganisms causal infections implications pharmaceutical treatment, well understanding intrinsic acquired microbial resistance Experience data analysis microbiological tests results, understand determination limitations MIC values interpretations SIR values Availability biological taxonomy microorganisms probably normalisation factors pharmaceuticals, defined daily doses (DDD) Available (inter-)national guidelines, profound methods apply course, instantly provide knowledge experience. AMR package, aimed providing (1) tools simplify antimicrobial resistance data cleaning, transformation analysis, (2) methods easily incorporate international guidelines (3) scientifically reliable reference data, including requirements mentioned . AMR package enables standardised reproducible AMR data analysis, application evidence-based rules, determination first isolates, translation various codes microorganisms antimicrobial agents, determination (multi-drug) resistant microorganisms, calculation antimicrobial resistance, prevalence future trends.","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"preparation","dir":"Articles","previous_headings":"","what":"Preparation","title":"How to conduct AMR data analysis","text":"tutorial, create fake demonstration data work . can skip Cleaning data already data ready. start analysis, try make structure data generally look like :","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"needed-r-packages","dir":"Articles","previous_headings":"Preparation","what":"Needed R packages","title":"How to conduct AMR data analysis","text":"many uses R, need additional packages AMR data analysis. package works closely together tidyverse packages dplyr ggplot2 RStudio. tidyverse tremendously improves way conduct data science - allows natural way writing syntaxes creating beautiful plots R. also use cleaner package, can used cleaning data creating frequency tables. Error get(paste0(generic, “.”, class), envir = get_method_env()) : object ‘type_sum.accel’ found AMR package contains data set example_isolates_unclean, might look data users extracted laboratory systems: AMR data analysis, like microorganism column contain valid, --date taxonomy, antibiotic columns cleaned SIR values well.","code":"library(dplyr) library(ggplot2) library(AMR)  # (if not yet installed, install with:) # install.packages(c(\"dplyr\", \"ggplot2\", \"AMR\")) example_isolates_unclean #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria      AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <chr>         <chr> <chr> <chr> <chr> #>  1 J3         A        2012-11-21 E. coli       R     I     S     S     #>  2 R7         A        2018-04-03 K. pneumoniae R     I     S     S     #>  3 P3         A        2014-09-19 E. coli       R     S     S     S     #>  4 P10        A        2015-12-10 E. coli       S     I     S     S     #>  5 B7         A        2015-03-02 E. coli       S     S     S     S     #>  6 W3         A        2018-03-31 S. aureus     R     S     R     S     #>  7 J8         A        2016-06-14 E. coli       R     S     S     S     #>  8 M3         A        2015-10-25 E. coli       R     S     S     S     #>  9 J3         A        2019-06-19 E. coli       S     S     S     S     #> 10 G6         A        2015-04-27 S. aureus     S     S     S     S     #> # ℹ 2,990 more rows  # we will use 'our_data' as the data set name for this tutorial our_data <- example_isolates_unclean"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"taxonomy-of-microorganisms","dir":"Articles","previous_headings":"Preparation","what":"Taxonomy of microorganisms","title":"How to conduct AMR data analysis","text":".mo(), users can transform arbitrary microorganism names codes current taxonomy. AMR package contains --date taxonomic data. specific, currently included data retrieved 24 Jun 2024. codes AMR packages come .mo() short, still human readable. importantly, .mo() supports kinds input: first character codes denote taxonomic kingdom, Bacteria (B), Fungi (F), Protozoa (P). AMR package also contain functions directly retrieve taxonomic properties, name, genus, species, family, order, even Gram-stain. start mo_ use .mo() internally, still arbitrary user input can used: Now can thus clean data: Apparently, uncertainty translation taxonomic codes. Let’s check : ’s good.","code":"as.mo(\"Klebsiella pneumoniae\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"K. pneumoniae\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"KLEPNE\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"KLPN\") #> Class 'mo' #> [1] B_KLBSL_PNMN mo_family(\"K. pneumoniae\") #> [1] \"Enterobacteriaceae\" mo_genus(\"K. pneumoniae\") #> [1] \"Klebsiella\" mo_species(\"K. pneumoniae\") #> [1] \"pneumoniae\"  mo_gramstain(\"Klebsiella pneumoniae\") #> [1] \"Gram-negative\"  mo_ref(\"K. pneumoniae\") #> [1] \"Trevisan, 1887\"  mo_snomed(\"K. pneumoniae\") #> [[1]] #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\" our_data$bacteria <- as.mo(our_data$bacteria, info = TRUE) #> ℹ Microorganism translation was uncertain for four microorganisms. Run #>   mo_uncertainties() to review these uncertainties, or use #>   add_custom_microorganisms() to add custom entries. mo_uncertainties() #> Matching scores are based on the resemblance between the input and the full #> taxonomic name, and the pathogenicity in humans. See ?mo_matching_score. #>  #> -------------------------------------------------------------------------------- #> \"E. coli\" -> Escherichia coli (B_ESCHR_COLI, 0.688) #> Also matched: Enterococcus crotali (0.650), Escherichia coli coli #>               (0.643), Escherichia coli expressing (0.611), Enterobacter cowanii #>               (0.600), Enterococcus columbae (0.595), Enterococcus camelliae (0.591), #>               Enterococcus casseliflavus (0.577), Enterobacter cloacae cloacae #>               (0.571), Enterobacter cloacae complex (0.571), and Enterobacter cloacae #>               dissolvens (0.565) #> -------------------------------------------------------------------------------- #> \"K. pneumoniae\" -> Klebsiella pneumoniae (B_KLBSL_PNMN, 0.786) #> Also matched: Klebsiella pneumoniae ozaenae (0.707), Klebsiella #>               pneumoniae pneumoniae (0.688), Klebsiella pneumoniae rhinoscleromatis #>               (0.658), Klebsiella pasteurii (0.500), Klebsiella planticola (0.500), #>               Kingella potus (0.400), Kluyveromyces pseudotropicale (0.386), #>               Kluyveromyces pseudotropicalis (0.363), Kosakonia pseudosacchari #>               (0.361), and Kluyveromyces pseudotropicalis pseudotropicalis (0.361) #> -------------------------------------------------------------------------------- #> \"S. aureus\" -> Staphylococcus aureus (B_STPHY_AURS, 0.690) #> Also matched: Staphylococcus aureus aureus (0.643), Staphylococcus #>               argenteus (0.625), Staphylococcus aureus anaerobius (0.625), #>               Staphylococcus auricularis (0.615), Salmonella Aurelianis (0.595), #>               Salmonella Aarhus (0.588), Salmonella Amounderness (0.587), #>               Staphylococcus argensis (0.587), Streptococcus australis (0.587), and #>               Salmonella choleraesuis arizonae (0.562) #> -------------------------------------------------------------------------------- #> \"S. pneumoniae\" -> Streptococcus pneumoniae (B_STRPT_PNMN, 0.750) #> Also matched: Streptococcus pseudopneumoniae (0.700), Streptococcus #>               phocae salmonis (0.552), Serratia proteamaculans quinovora (0.545), #>               Streptococcus pseudoporcinus (0.536), Staphylococcus piscifermentans #>               (0.533), Staphylococcus pseudintermedius (0.532), Serratia #>               proteamaculans proteamaculans (0.526), Streptococcus gallolyticus #>               pasteurianus (0.526), Salmonella Portanigra (0.524), and Streptococcus #>               periodonticum (0.519) #>  #> Only the first 10 other matches of each record are shown. Run #> print(mo_uncertainties(), n = ...) to view more entries, or save #> mo_uncertainties() to an object."},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"antibiotic-results","dir":"Articles","previous_headings":"Preparation","what":"Antibiotic results","title":"How to conduct AMR data analysis","text":"column antibiotic test results must also cleaned. AMR package comes three new data types work test results: mic minimal inhibitory concentrations (MIC), disk disk diffusion diameters, sir SIR data interpreted already. package can also determine SIR values based MIC disk diffusion values, read .sir() page. now, just clean SIR columns data using dplyr: basically cleaning, time start data inclusion.","code":"# method 1, be explicit about the columns: our_data <- our_data %>%   mutate_at(vars(AMX:GEN), as.sir)  # method 2, let the AMR package determine the eligible columns our_data <- our_data %>%   mutate_if(is_sir_eligible, as.sir)  # result: our_data #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> #>  1 J3         A        2012-11-21 B_ESCHR_COLI R     I     S     S     #>  2 R7         A        2018-04-03 B_KLBSL_PNMN R     I     S     S     #>  3 P3         A        2014-09-19 B_ESCHR_COLI R     S     S     S     #>  4 P10        A        2015-12-10 B_ESCHR_COLI S     I     S     S     #>  5 B7         A        2015-03-02 B_ESCHR_COLI S     S     S     S     #>  6 W3         A        2018-03-31 B_STPHY_AURS R     S     R     S     #>  7 J8         A        2016-06-14 B_ESCHR_COLI R     S     S     S     #>  8 M3         A        2015-10-25 B_ESCHR_COLI R     S     S     S     #>  9 J3         A        2019-06-19 B_ESCHR_COLI S     S     S     S     #> 10 G6         A        2015-04-27 B_STPHY_AURS S     S     S     S     #> # ℹ 2,990 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"first-isolates","dir":"Articles","previous_headings":"Preparation","what":"First isolates","title":"How to conduct AMR data analysis","text":"need know isolates can actually use analysis without repetition bias. conduct analysis antimicrobial resistance, must include first isolate every patient per episode (Hindler et al., Clin Infect Dis. 2007). , easily get overestimate underestimate resistance antibiotic. Imagine patient admitted MRSA found 5 different blood cultures following weeks (yes, countries like Netherlands blood drawing policies). resistance percentage oxacillin isolates overestimated, included MRSA . clearly selection bias. Clinical Laboratory Standards Institute (CLSI) appoints follows: (…) preparing cumulative antibiogram guide clinical decisions empirical antimicrobial therapy initial infections, first isolate given species per patient, per analysis period (eg, one year) included, irrespective body site, antimicrobial susceptibility profile, phenotypical characteristics (eg, biotype). first isolate easily identified, cumulative antimicrobial susceptibility test data prepared using first isolate generally comparable cumulative antimicrobial susceptibility test data calculated methods, providing duplicate isolates excluded. M39-A4 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 4th Edition. CLSI, 2014. Chapter 6.4 AMR package includes methodology first_isolate() function able apply four different methods defined Hindler et al. 2007: phenotype-based, episode-based, patient-based, isolate-based. right method depends goals analysis, default phenotype-based method case method properly correct duplicate isolates. Read methods first_isolate() page. outcome function can easily added data: 91% suitable resistance analysis! can now filter filter() function, also dplyr package: future use, two syntaxes can shortened: end 2 724 isolates analysis. Now data looks like: Time analysis.","code":"our_data <- our_data %>%   mutate(first = first_isolate(info = TRUE)) #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Using column 'bacteria' as input for col_mo. #> ℹ Using column 'date' as input for col_date. #> ℹ Using column 'patient_id' as input for col_patient_id. #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> => Found 2,724 'phenotype-based' first isolates (90.8% of total where a #>    microbial ID was available) our_data_1st <- our_data %>%   filter(first == TRUE) our_data_1st <- our_data %>%   filter_first_isolate() our_data_1st #> # A tibble: 2,724 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J3         A        2012-11-21 B_ESCHR_COLI R     I     S     S     TRUE  #>  2 R7         A        2018-04-03 B_KLBSL_PNMN R     I     S     S     TRUE  #>  3 P3         A        2014-09-19 B_ESCHR_COLI R     S     S     S     TRUE  #>  4 P10        A        2015-12-10 B_ESCHR_COLI S     I     S     S     TRUE  #>  5 B7         A        2015-03-02 B_ESCHR_COLI S     S     S     S     TRUE  #>  6 W3         A        2018-03-31 B_STPHY_AURS R     S     R     S     TRUE  #>  7 M3         A        2015-10-25 B_ESCHR_COLI R     S     S     S     TRUE  #>  8 J3         A        2019-06-19 B_ESCHR_COLI S     S     S     S     TRUE  #>  9 G6         A        2015-04-27 B_STPHY_AURS S     S     S     S     TRUE  #> 10 P4         A        2011-06-21 B_ESCHR_COLI S     S     S     S     TRUE  #> # ℹ 2,714 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"analysing-the-data","dir":"Articles","previous_headings":"","what":"Analysing the data","title":"How to conduct AMR data analysis","text":"base R summary() function gives good first impression, comes support new mo sir classes now data set:","code":"summary(our_data_1st) #>   patient_id          hospital              date            #>  Length:2724        Length:2724        Min.   :2011-01-01   #>  Class :character   Class :character   1st Qu.:2013-04-07   #>  Mode  :character   Mode  :character   Median :2015-06-03   #>                                        Mean   :2015-06-09   #>                                        3rd Qu.:2017-08-11   #>                                        Max.   :2019-12-27   #>    bacteria               AMX                    AMC                 #>  Class :mo             Class:sir              Class:sir              #>  <NA>  :0              %S   :41.6% (n=1133)   %S   :52.6% (n=1432)   #>  Unique:4              %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)      #>  #1    :B_ESCHR_COLI   %I   :16.4% (n=446)    %I   :12.2% (n=333)    #>  #2    :B_STPHY_AURS   %R   :42.0% (n=1145)   %R   :35.2% (n=959)    #>  #3    :B_STRPT_PNMN   %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)      #>     CIP                    GEN                  first         #>  Class:sir              Class:sir              Mode:logical   #>  %S   :52.5% (n=1431)   %S   :61.0% (n=1661)   TRUE:2724      #>  %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)                     #>  %I   : 6.5% (n=176)    %I   : 3.0% (n=82)                    #>  %R   :41.0% (n=1117)   %R   :36.0% (n=981)                   #>  %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)  glimpse(our_data_1st) #> Rows: 2,724 #> Columns: 9 #> $ patient_id <chr> \"J3\", \"R7\", \"P3\", \"P10\", \"B7\", \"W3\", \"M3\", \"J3\", \"G6\", \"P4\"… #> $ hospital   <chr> \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\",… #> $ date       <date> 2012-11-21, 2018-04-03, 2014-09-19, 2015-12-10, 2015-03-02… #> $ bacteria   <mo> \"B_ESCHR_COLI\", \"B_KLBSL_PNMN\", \"B_ESCHR_COLI\", \"B_ESCHR_COL… #> $ AMX        <sir> R, R, R, S, S, R, R, S, S, S, S, R, S, S, R, R, R, R, S, R,… #> $ AMC        <sir> I, I, S, I, S, S, S, S, S, S, S, S, S, S, S, S, S, R, S, S,… #> $ CIP        <sir> S, S, S, S, S, R, S, S, S, S, S, S, S, S, S, S, S, S, S, S,… #> $ GEN        <sir> S, S, S, S, S, S, S, S, S, S, S, R, S, S, S, S, S, S, S, S,… #> $ first      <lgl> TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,…  # number of unique values per column: sapply(our_data_1st, n_distinct) #> patient_id   hospital       date   bacteria        AMX        AMC        CIP  #>        260          3       1854          4          3          3          3  #>        GEN      first  #>          3          1"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"availability-of-species","dir":"Articles","previous_headings":"Analysing the data","what":"Availability of species","title":"How to conduct AMR data analysis","text":"just get idea species distributed, create frequency table count() based name microorganisms:","code":"our_data %>%   count(mo_name(bacteria), sort = TRUE) #> # A tibble: 4 × 2 #>   `mo_name(bacteria)`          n #>   <chr>                    <int> #> 1 Escherichia coli          1518 #> 2 Staphylococcus aureus      730 #> 3 Streptococcus pneumoniae   426 #> 4 Klebsiella pneumoniae      326  our_data_1st %>%   count(mo_name(bacteria), sort = TRUE) #> # A tibble: 4 × 2 #>   `mo_name(bacteria)`          n #>   <chr>                    <int> #> 1 Escherichia coli          1321 #> 2 Staphylococcus aureus      682 #> 3 Streptococcus pneumoniae   402 #> 4 Klebsiella pneumoniae      319"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"select-and-filter-with-antibiotic-selectors","dir":"Articles","previous_headings":"Analysing the data","what":"Select and filter with antibiotic selectors","title":"How to conduct AMR data analysis","text":"Using -called antibiotic class selectors, can select filter columns based antibiotic class antibiotic results :","code":"our_data_1st %>%   select(date, aminoglycosides()) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) #> # A tibble: 2,724 × 2 #>    date       GEN   #>    <date>     <sir> #>  1 2012-11-21 S     #>  2 2018-04-03 S     #>  3 2014-09-19 S     #>  4 2015-12-10 S     #>  5 2015-03-02 S     #>  6 2018-03-31 S     #>  7 2015-10-25 S     #>  8 2019-06-19 S     #>  9 2015-04-27 S     #> 10 2011-06-21 S     #> # ℹ 2,714 more rows  our_data_1st %>%   select(bacteria, betalactams()) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 2,724 × 3 #>    bacteria     AMX   AMC   #>    <mo>         <sir> <sir> #>  1 B_ESCHR_COLI R     I     #>  2 B_KLBSL_PNMN R     I     #>  3 B_ESCHR_COLI R     S     #>  4 B_ESCHR_COLI S     I     #>  5 B_ESCHR_COLI S     S     #>  6 B_STPHY_AURS R     S     #>  7 B_ESCHR_COLI R     S     #>  8 B_ESCHR_COLI S     S     #>  9 B_STPHY_AURS S     S     #> 10 B_ESCHR_COLI S     S     #> # ℹ 2,714 more rows  our_data_1st %>%   select(bacteria, where(is.sir)) #> # A tibble: 2,724 × 5 #>    bacteria     AMX   AMC   CIP   GEN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI R     I     S     S     #>  2 B_KLBSL_PNMN R     I     S     S     #>  3 B_ESCHR_COLI R     S     S     S     #>  4 B_ESCHR_COLI S     I     S     S     #>  5 B_ESCHR_COLI S     S     S     S     #>  6 B_STPHY_AURS R     S     R     S     #>  7 B_ESCHR_COLI R     S     S     S     #>  8 B_ESCHR_COLI S     S     S     S     #>  9 B_STPHY_AURS S     S     S     S     #> 10 B_ESCHR_COLI S     S     S     S     #> # ℹ 2,714 more rows  # filtering using AB selectors is also possible: our_data_1st %>%   filter(any(aminoglycosides() == \"R\")) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) #> # A tibble: 981 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J5         A        2017-12-25 B_STRPT_PNMN R     S     S     R     TRUE  #>  2 X1         A        2017-07-04 B_STPHY_AURS R     S     S     R     TRUE  #>  3 B3         A        2016-07-24 B_ESCHR_COLI S     S     S     R     TRUE  #>  4 V7         A        2012-04-03 B_ESCHR_COLI S     S     S     R     TRUE  #>  5 C9         A        2017-03-23 B_ESCHR_COLI S     S     S     R     TRUE  #>  6 R1         A        2018-06-10 B_STPHY_AURS S     S     S     R     TRUE  #>  7 S2         A        2013-07-19 B_STRPT_PNMN S     S     S     R     TRUE  #>  8 P5         A        2019-03-09 B_STPHY_AURS S     S     S     R     TRUE  #>  9 Q8         A        2019-08-10 B_STPHY_AURS S     S     S     R     TRUE  #> 10 K5         A        2013-03-15 B_STRPT_PNMN S     S     S     R     TRUE  #> # ℹ 971 more rows  our_data_1st %>%   filter(all(betalactams() == \"R\")) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 462 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 M7         A        2013-07-22 B_STRPT_PNMN R     R     S     S     TRUE  #>  2 R10        A        2013-12-20 B_STPHY_AURS R     R     S     S     TRUE  #>  3 R7         A        2015-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  4 R8         A        2019-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  5 B6         A        2016-11-20 B_ESCHR_COLI R     R     R     R     TRUE  #>  6 I7         A        2015-08-19 B_ESCHR_COLI R     R     S     S     TRUE  #>  7 N3         A        2014-12-29 B_STRPT_PNMN R     R     R     S     TRUE  #>  8 Q2         A        2019-09-22 B_ESCHR_COLI R     R     S     S     TRUE  #>  9 X7         A        2011-03-20 B_ESCHR_COLI R     R     S     R     TRUE  #> 10 V1         A        2018-08-07 B_STPHY_AURS R     R     S     S     TRUE  #> # ℹ 452 more rows  # even works in base R (since R 3.0): our_data_1st[all(betalactams() == \"R\"), ] #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 462 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 M7         A        2013-07-22 B_STRPT_PNMN R     R     S     S     TRUE  #>  2 R10        A        2013-12-20 B_STPHY_AURS R     R     S     S     TRUE  #>  3 R7         A        2015-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  4 R8         A        2019-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  5 B6         A        2016-11-20 B_ESCHR_COLI R     R     R     R     TRUE  #>  6 I7         A        2015-08-19 B_ESCHR_COLI R     R     S     S     TRUE  #>  7 N3         A        2014-12-29 B_STRPT_PNMN R     R     R     S     TRUE  #>  8 Q2         A        2019-09-22 B_ESCHR_COLI R     R     S     S     TRUE  #>  9 X7         A        2011-03-20 B_ESCHR_COLI R     R     S     R     TRUE  #> 10 V1         A        2018-08-07 B_STPHY_AURS R     R     S     S     TRUE  #> # ℹ 452 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"generate-antibiograms","dir":"Articles","previous_headings":"Analysing the data","what":"Generate antibiograms","title":"How to conduct AMR data analysis","text":"Since AMR v2.0 (March 2023), easy create different types antibiograms, support 20 different languages. four antibiogram types, proposed Klinker et al. (2021, DOI 10.1177/20499361211011373), supported new antibiogram() function: Traditional Antibiogram (TA) e.g, susceptibility Pseudomonas aeruginosa piperacillin/tazobactam (TZP) Combination Antibiogram (CA) e.g, sdditional susceptibility Pseudomonas aeruginosa TZP + tobramycin versus TZP alone Syndromic Antibiogram (SA) e.g, susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) Weighted-Incidence Syndromic Combination Antibiogram (WISCA) e.g, susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) male patients age >=65 years heart failure section, show use antibiogram() function create antibiogram types. starters, included example_isolates data set looks like:","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"traditional-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Traditional Antibiogram","title":"How to conduct AMR data analysis","text":"create traditional antibiogram, simply state antibiotics used. antibiotics argument antibiogram() function supports (combination) previously mentioned antibiotic class selectors: Notice antibiogram() function automatically prints right format using Quarto R Markdown (page), even applies italics taxonomic names (using italicise_taxonomy() internally). also uses language OS either English, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Italian, Japanese, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swedish, Turkish, Ukrainian. next example, force language Spanish using language argument:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems())) #> ℹ The function aminoglycosides() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(aminoglycosides()) #>   • your_data %>% select(column_a, column_b, aminoglycosides()) #>   • your_data %>% filter(any(aminoglycosides() == \"R\")) #>   • your_data[, aminoglycosides()] #>   • your_data[, c(\"column_a\", \"column_b\", aminoglycosides())] #>  #> Now returning a vector of all possible antimicrobials that #> aminoglycosides() can select. #> ℹ The function carbapenems() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(carbapenems()) #>   • your_data %>% select(column_a, column_b, carbapenems()) #>   • your_data %>% filter(any(carbapenems() == \"R\")) #>   • your_data[, carbapenems()] #>   • your_data[, c(\"column_a\", \"column_b\", carbapenems())] #>  #> Now returning a vector of all possible antimicrobials that carbapenems() #> can select. antibiogram(example_isolates,             mo_transform = \"gramstain\",             antibiotics = aminoglycosides(),             ab_transform = \"name\",             language = \"es\") #> ℹ The function aminoglycosides() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(aminoglycosides()) #>   • your_data %>% select(column_a, column_b, aminoglycosides()) #>   • your_data %>% filter(any(aminoglycosides() == \"R\")) #>   • your_data[, aminoglycosides()] #>   • your_data[, c(\"column_a\", \"column_b\", aminoglycosides())] #>  #> Now returning a vector of all possible antimicrobials that #> aminoglycosides() can select."},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"combined-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Combined Antibiogram","title":"How to conduct AMR data analysis","text":"create combined antibiogram, use antibiotic codes names plus + character like :","code":"antibiogram(example_isolates,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"))"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"syndromic-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Syndromic Antibiogram","title":"How to conduct AMR data analysis","text":"create syndromic antibiogram, syndromic_group argument must used. can column data, e.g. ifelse() calculations based certain columns:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems()),             syndromic_group = \"ward\") #> ℹ The function aminoglycosides() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(aminoglycosides()) #>   • your_data %>% select(column_a, column_b, aminoglycosides()) #>   • your_data %>% filter(any(aminoglycosides() == \"R\")) #>   • your_data[, aminoglycosides()] #>   • your_data[, c(\"column_a\", \"column_b\", aminoglycosides())] #>  #> Now returning a vector of all possible antimicrobials that #> aminoglycosides() can select. #> ℹ The function carbapenems() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(carbapenems()) #>   • your_data %>% select(column_a, column_b, carbapenems()) #>   • your_data %>% filter(any(carbapenems() == \"R\")) #>   • your_data[, carbapenems()] #>   • your_data[, c(\"column_a\", \"column_b\", carbapenems())] #>  #> Now returning a vector of all possible antimicrobials that carbapenems() #> can select."},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"weighted-incidence-syndromic-combination-antibiogram-wisca","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Weighted-Incidence Syndromic Combination Antibiogram (WISCA)","title":"How to conduct AMR data analysis","text":"create WISCA, must state combination therapy antibiotics argument (similar Combination Antibiogram), define syndromic group syndromic_group argument (similar Syndromic Antibiogram) cases predefined based clinical demographic characteristics (e.g., endocarditis 75+ females). next example simplification without clinical characteristics, just gives idea WISCA can created:","code":"wisca <- antibiogram(example_isolates,                      antibiotics = c(\"AMC\", \"AMC+CIP\", \"TZP\", \"TZP+TOB\"),                      mo_transform = \"gramstain\",                      minimum = 10, # this should be >= 30, but now just as example                      syndromic_group = ifelse(example_isolates$age >= 65 &                                                 example_isolates$gender == \"M\",                                               \"WISCA Group 1\", \"WISCA Group 2\")) wisca"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"plotting-antibiograms","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Plotting antibiograms","title":"How to conduct AMR data analysis","text":"Antibiograms can plotted using autoplot() ggplot2 packages, since AMR package provides extension function:  calculate antimicrobial resistance sensible way, also correcting results, use resistance() susceptibility() functions.","code":"autoplot(wisca)"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"resistance-percentages","dir":"Articles","previous_headings":"Analysing the data","what":"Resistance percentages","title":"How to conduct AMR data analysis","text":"functions resistance() susceptibility() can used calculate antimicrobial resistance susceptibility. specific analyses, functions proportion_S(), proportion_SI(), proportion_I(), proportion_IR() proportion_R() can used determine proportion specific antimicrobial outcome. functions contain minimum argument, denoting minimum required number test results returning value. functions otherwise return NA. default minimum = 30, following CLSI M39-A4 guideline applying microbial epidemiology. per EUCAST guideline 2019, calculate resistance proportion R (proportion_R(), equal resistance()) susceptibility proportion S (proportion_SI(), equal susceptibility()). functions can used : can used conjunction group_by() summarise(), dplyr package: Author: Dr. Matthijs Berends, 26th Feb 2023","code":"our_data_1st %>% resistance(AMX) #> [1] 0.4203377 our_data_1st %>%   group_by(hospital) %>%   summarise(amoxicillin = resistance(AMX)) #> # A tibble: 3 × 2 #>   hospital amoxicillin #>   <chr>          <dbl> #> 1 A              0.340 #> 2 B              0.551 #> 3 C              0.370"},{"path":"https://msberends.github.io/AMR/articles/AMR_for_Python.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"AMR for Python","text":"AMR package R powerful tool antimicrobial resistance (AMR) analysis. provides extensive features handling microbial antimicrobial data. However, work primarily Python, now intuitive option available: AMR Python Package Index. Python package wrapper round AMR R package. uses rpy2 package internally. Despite need R installed, Python users can now easily work AMR data directly Python code.","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR_for_Python.html","id":"install","dir":"Articles","previous_headings":"","what":"Install","title":"AMR for Python","text":"Since Python package available official Python Package Index, can just run: Make sure R installed. need install AMR R package, installed automatically. Linux: macOS (using Homebrew): Windows, visit CRAN download page download install R.","code":"pip install AMR # Ubuntu / Debian sudo apt install r-base # Fedora: sudo dnf install R # CentOS/RHEL sudo yum install R brew install r"},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/AMR_for_Python.html","id":"cleaning-taxonomy","dir":"Articles","previous_headings":"Examples of Usage","what":"Cleaning Taxonomy","title":"AMR for Python","text":"’s example demonstrates clean microorganism drug names using AMR Python package:","code":"import pandas as pd import AMR  # Sample data data = {     \"MOs\": ['E. coli', 'ESCCOL', 'esco', 'Esche coli'],     \"Drug\": ['Cipro', 'CIP', 'J01MA02', 'Ciproxin'] } df = pd.DataFrame(data)  # Use AMR functions to clean microorganism and drug names df['MO_clean'] = AMR.mo_name(df['MOs']) df['Drug_clean'] = AMR.ab_name(df['Drug'])  # Display the results print(df)"},{"path":"https://msberends.github.io/AMR/articles/AMR_for_Python.html","id":"explanation","dir":"Articles","previous_headings":"Examples of Usage > Cleaning Taxonomy","what":"Explanation","title":"AMR for Python","text":"mo_name: function standardises microorganism names. , different variations Escherichia coli (“E. coli”, “ESCCOL”, “esco”, “Esche coli”) converted correct, standardised form, “Escherichia coli”. ab_name: Similarly, function standardises antimicrobial names. different representations ciprofloxacin (e.g., “Cipro”, “CIP”, “J01MA02”, “Ciproxin”) converted standard name, “Ciprofloxacin”.","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR_for_Python.html","id":"taxonomic-data-sets-now-in-python","dir":"Articles","previous_headings":"Examples of Usage","what":"Taxonomic Data Sets Now in Python!","title":"AMR for Python","text":"Python user, might like important data sets AMR R package, microorganisms, antibiotics, clinical_breakpoints, example_isolates, now available regular Python data frames:","code":"AMR.microorganisms AMR.antibiotics"},{"path":"https://msberends.github.io/AMR/articles/AMR_for_Python.html","id":"calculating-amr","dir":"Articles","previous_headings":"Examples of Usage","what":"Calculating AMR","title":"AMR for Python","text":"","code":"import AMR import pandas as pd  df = AMR.example_isolates result = AMR.resistance(df[\"AMX\"]) print(result) [0.59555556]"},{"path":"https://msberends.github.io/AMR/articles/AMR_for_Python.html","id":"generating-antibiograms","dir":"Articles","previous_headings":"Examples of Usage","what":"Generating Antibiograms","title":"AMR for Python","text":"One core functions AMR package generating antibiogram, table summarises antimicrobial susceptibility bacterial isolates. ’s can generate antibiogram Python: example, generate antibiogram selecting various antibiotics.","code":"result2a = AMR.antibiogram(df[[\"mo\", \"AMX\", \"CIP\", \"TZP\"]]) print(result2a) result2b = AMR.antibiogram(df[[\"mo\", \"AMX\", \"CIP\", \"TZP\"]], mo_transform = \"gramstain\") print(result2b)"},{"path":"https://msberends.github.io/AMR/articles/AMR_for_Python.html","id":"conclusion","dir":"Articles","previous_headings":"","what":"Conclusion","title":"AMR for Python","text":"AMR Python package, Python users can now effortlessly call R functions AMR R package. eliminates need complex rpy2 configurations provides clean, easy--use interface antimicrobial resistance analysis. examples provided demonstrate can applied typical workflows, standardising microorganism antimicrobial names calculating resistance. just running import AMR, users can seamlessly integrate robust features R AMR package Python workflows. Whether ’re cleaning data analysing resistance patterns, AMR Python package makes easy work AMR data Python.","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR_with_tidymodels.html","id":"objective","dir":"Articles","previous_headings":"","what":"Objective","title":"`AMR` with `tidymodels`","text":"goal build predictive model using tidymodels framework determine resistance patterns based microbial data. : Preprocess data using selector functions aminoglycosides() betalactams(). Define logistic regression model prediction. Use structured tidymodels workflow preprocess, train, evaluate model.","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR_with_tidymodels.html","id":"data-preparation","dir":"Articles","previous_headings":"","what":"Data Preparation","title":"`AMR` with `tidymodels`","text":"begin loading required libraries preparing example_isolates dataset AMR package. Explanation: - aminoglycosides() betalactams() dynamically select columns antibiotics classes. - drop_na() ensures model receives complete cases training.","code":"# Load required libraries library(tidymodels)   # For machine learning workflows, and data manipulation (dplyr, tidyr, ...) #> Error in get(paste0(generic, \".\", class), envir = get_method_env()) :  #>   object 'type_sum.accel' not found #> ── Attaching packages ────────────────────────────────────── tidymodels 1.2.0 ── #> ✔ broom        1.0.7     ✔ recipes      1.1.0 #> ✔ dials        1.3.0     ✔ rsample      1.2.1 #> ✔ dplyr        1.1.4     ✔ tibble       3.2.1 #> ✔ ggplot2      3.5.1     ✔ tidyr        1.3.1 #> ✔ infer        1.0.7     ✔ tune         1.2.1 #> ✔ modeldata    1.4.0     ✔ workflows    1.1.4 #> ✔ parsnip      1.2.1     ✔ workflowsets 1.1.0 #> ✔ purrr        1.0.2     ✔ yardstick    1.3.1 #> ── Conflicts ───────────────────────────────────────── tidymodels_conflicts() ── #> ✖ purrr::discard() masks scales::discard() #> ✖ dplyr::filter()  masks stats::filter() #> ✖ dplyr::lag()     masks stats::lag() #> ✖ recipes::step()  masks stats::step() #> • Use tidymodels_prefer() to resolve common conflicts. library(AMR)          # For AMR data analysis  # Load the example_isolates dataset data(\"example_isolates\")  # Preloaded dataset with AMR results  # Select relevant columns for prediction data <- example_isolates %>%   # select AB results dynamically   select(mo, aminoglycosides(), betalactams()) %>%   # replace NAs with NI (not-interpretable)    mutate(across(where(is.sir),                  ~replace_na(.x, \"NI\")),           # make factors of SIR columns           across(where(is.sir),                  as.integer),           # get Gramstain of microorganisms           mo = as.factor(mo_gramstain(mo))) %>%   # drop NAs - the ones without a Gramstain (fungi, etc.)   drop_na() # %>% #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For betalactams() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), 'TZP' #>   (piperacillin/tazobactam), 'CZO' (cefazolin), 'FEP' (cefepime), 'CXM' #>   (cefuroxime), 'FOX' (cefoxitin), 'CTX' (cefotaxime), 'CAZ' (ceftazidime), #>   'CRO' (ceftriaxone), 'IPM' (imipenem), and 'MEM' (meropenem)   # Cefepime is not reliable   #select(-FEP)"},{"path":"https://msberends.github.io/AMR/articles/AMR_with_tidymodels.html","id":"defining-the-workflow","dir":"Articles","previous_headings":"","what":"Defining the Workflow","title":"`AMR` with `tidymodels`","text":"now define tidymodels workflow, consists three steps: preprocessing, model specification, fitting.","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR_with_tidymodels.html","id":"preprocessing-with-a-recipe","dir":"Articles","previous_headings":"Defining the Workflow","what":"1. Preprocessing with a Recipe","title":"`AMR` with `tidymodels`","text":"create recipe preprocess data modelling. includes: - Encoding resistance results (S, , R) binary (resistant resistant). - Converting microbial organism names (mo) numerical features using one-hot encoding. Explanation: - step_mutate() transforms resistance results (R) binary variables (TRUE/FALSE). - step_dummy() converts categorical organism (mo) names one-hot encoded numerical features, making compatible model.","code":"# Define the recipe for data preprocessing resistance_recipe <- recipe(mo ~ ., data = data) %>%   step_corr(c(aminoglycosides(), betalactams()), threshold = 0.9) resistance_recipe #>  #> ── Recipe ────────────────────────────────────────────────────────────────────── #>  #> ── Inputs #> Number of variables by role #> outcome:    1 #> predictor: 20 #>  #> ── Operations #> • Correlation filter on: c(aminoglycosides(), betalactams())"},{"path":"https://msberends.github.io/AMR/articles/AMR_with_tidymodels.html","id":"specifying-the-model","dir":"Articles","previous_headings":"Defining the Workflow","what":"2. Specifying the Model","title":"`AMR` with `tidymodels`","text":"define logistic regression model since resistance prediction binary classification task. Explanation: - logistic_reg() sets logistic regression model. - set_engine(\"glm\") specifies use R’s built-GLM engine.","code":"# Specify a logistic regression model logistic_model <- logistic_reg() %>%   set_engine(\"glm\") # Use the Generalized Linear Model engine logistic_model #> Logistic Regression Model Specification (classification) #>  #> Computational engine: glm"},{"path":"https://msberends.github.io/AMR/articles/AMR_with_tidymodels.html","id":"building-the-workflow","dir":"Articles","previous_headings":"Defining the Workflow","what":"3. Building the Workflow","title":"`AMR` with `tidymodels`","text":"bundle recipe model together workflow, organizes entire modeling process.","code":"# Combine the recipe and model into a workflow resistance_workflow <- workflow() %>%   add_recipe(resistance_recipe) %>% # Add the preprocessing recipe   add_model(logistic_model) # Add the logistic regression model resistance_workflow #> ══ Workflow ════════════════════════════════════════════════════════════════════ #> Preprocessor: Recipe #> Model: logistic_reg() #>  #> ── Preprocessor ──────────────────────────────────────────────────────────────── #> 1 Recipe Step #>  #> • step_corr() #>  #> ── Model ─────────────────────────────────────────────────────────────────────── #> Logistic Regression Model Specification (classification) #>  #> Computational engine: glm"},{"path":"https://msberends.github.io/AMR/articles/AMR_with_tidymodels.html","id":"training-and-evaluating-the-model","dir":"Articles","previous_headings":"","what":"Training and Evaluating the Model","title":"`AMR` with `tidymodels`","text":"train model, split data training testing sets. , fit workflow training set evaluate performance. Explanation: - initial_split() splits data training testing sets. - fit() trains workflow training set. Next, evaluate model testing data. Explanation: - predict() generates predictions testing set. - metrics() computes evaluation metrics like accuracy AUC. appears can predict Gram based AMR results 0.995 accuracy. ROC curve looks like:","code":"# Split data into training and testing sets set.seed(123) # For reproducibility data_split <- initial_split(data, prop = 0.8) # 80% training, 20% testing training_data <- training(data_split) # Training set testing_data <- testing(data_split)   # Testing set  # Fit the workflow to the training data fitted_workflow <- resistance_workflow %>%   fit(training_data) # Train the model #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For betalactams() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), 'TZP' #>   (piperacillin/tazobactam), 'CZO' (cefazolin), 'FEP' (cefepime), 'CXM' #>   (cefuroxime), 'FOX' (cefoxitin), 'CTX' (cefotaxime), 'CAZ' (ceftazidime), #>   'CRO' (ceftriaxone), 'IPM' (imipenem), and 'MEM' (meropenem)  fitted_workflow #> ══ Workflow [trained] ══════════════════════════════════════════════════════════ #> Preprocessor: Recipe #> Model: logistic_reg() #>  #> ── Preprocessor ──────────────────────────────────────────────────────────────── #> 1 Recipe Step #>  #> • step_corr() #>  #> ── Model ─────────────────────────────────────────────────────────────────────── #>  #> Call:  stats::glm(formula = ..y ~ ., family = stats::binomial, data = data) #>  #> Coefficients: #> (Intercept)          GEN          TOB          AMK          KAN          PEN   #>   101.11641     -3.69738      4.55879      1.86703    -23.37497     -0.57182   #>         OXA          FLC          AMC          AMP          TZP          CZO   #>    -4.68575    -11.69742      0.79748     -1.56197      0.87667     -2.28424   #>         FEP          CXM          FOX          CAZ          CRO          IPM   #>    -0.19847      0.02659     10.32455     10.27248      0.97321     -0.93096   #>         MEM   #>    -0.88753   #>  #> Degrees of Freedom: 1573 Total (i.e. Null);  1555 Residual #> Null Deviance:       2071  #> Residual Deviance: 74.91     AIC: 112.9 # Make predictions on the testing set predictions <- fitted_workflow %>%   predict(testing_data)                # Generate predictions probabilities <- fitted_workflow %>%   predict(testing_data, type = \"prob\") # Generate probabilities  predictions <- predictions %>%   bind_cols(probabilities) %>%   bind_cols(testing_data) # Combine with true labels  predictions #> # A tibble: 394 × 24 #>    .pred_class   `.pred_Gram-negative` `.pred_Gram-positive` mo        GEN   TOB #>    <fct>                         <dbl>                 <dbl> <fct>   <int> <int> #>  1 Gram-positive              1.07e- 1              8.93e- 1 Gram-p…     5     5 #>  2 Gram-positive              3.17e- 8              1.00e+ 0 Gram-p…     5     1 #>  3 Gram-negative              9.99e- 1              1.42e- 3 Gram-n…     5     5 #>  4 Gram-positive              2.22e-16              1   e+ 0 Gram-p…     5     5 #>  5 Gram-negative              9.46e- 1              5.42e- 2 Gram-n…     5     5 #>  6 Gram-positive              1.07e- 1              8.93e- 1 Gram-p…     5     5 #>  7 Gram-positive              2.22e-16              1   e+ 0 Gram-p…     1     5 #>  8 Gram-positive              2.22e-16              1   e+ 0 Gram-p…     4     4 #>  9 Gram-negative              1   e+ 0              2.22e-16 Gram-n…     1     1 #> 10 Gram-positive              6.05e-11              1.00e+ 0 Gram-p…     4     4 #> # ℹ 384 more rows #> # ℹ 18 more variables: AMK <int>, KAN <int>, PEN <int>, OXA <int>, FLC <int>, #> #   AMX <int>, AMC <int>, AMP <int>, TZP <int>, CZO <int>, FEP <int>, #> #   CXM <int>, FOX <int>, CTX <int>, CAZ <int>, CRO <int>, IPM <int>, MEM <int>  # Evaluate model performance metrics <- predictions %>%   metrics(truth = mo, estimate = .pred_class) # Calculate performance metrics  metrics #> # A tibble: 2 × 3 #>   .metric  .estimator .estimate #>   <chr>    <chr>          <dbl> #> 1 accuracy binary         0.995 #> 2 kap      binary         0.989 predictions %>%   roc_curve(mo, `.pred_Gram-negative`) %>%   autoplot()"},{"path":"https://msberends.github.io/AMR/articles/AMR_with_tidymodels.html","id":"conclusion","dir":"Articles","previous_headings":"","what":"Conclusion","title":"`AMR` with `tidymodels`","text":"post, demonstrated build machine learning pipeline tidymodels framework AMR package. combining selector functions like aminoglycosides() betalactams() tidymodels, efficiently prepared data, trained model, evaluated performance. workflow extensible antibiotic classes resistance patterns, empowering users analyse AMR data systematically reproducibly.","code":""},{"path":"https://msberends.github.io/AMR/articles/EUCAST.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"How to apply EUCAST rules","text":"EUCAST rules? European Committee Antimicrobial Susceptibility Testing (EUCAST) states website: EUCAST expert rules tabulated collection expert knowledge intrinsic resistances, exceptional resistance phenotypes interpretive rules may applied antimicrobial susceptibility testing order reduce errors make appropriate recommendations reporting particular resistances. Europe, lot medical microbiological laboratories already apply rules (Brown et al., 2015). package features latest insights intrinsic resistance unusual phenotypes (v3.1, 2016). Moreover, eucast_rules() function use purpose can also apply additional rules, like forcing ampicillin = R isolates amoxicillin/clavulanic acid = R.","code":""},{"path":"https://msberends.github.io/AMR/articles/EUCAST.html","id":"examples","dir":"Articles","previous_headings":"","what":"Examples","title":"How to apply EUCAST rules","text":"rules can used discard impossible bug-drug combinations data. example, Klebsiella produces beta-lactamase prevents ampicillin (amoxicillin) working . words, practically every strain Klebsiella resistant ampicillin. Sometimes, laboratory data can still contain strains ampicillin susceptible ampicillin. antibiogram available identification available, antibiogram re-interpreted based identification (namely, Klebsiella). EUCAST expert rules solve , can applied using eucast_rules(): convenient function mo_is_intrinsic_resistant() uses guideline, allows check one specific microorganisms antibiotics: EUCAST rules can used correction, can also used filling known resistance susceptibility based results antimicrobials drugs. process called interpretive reading, basically form imputation, part eucast_rules() function well:","code":"oops <- data.frame(   mo = c(     \"Klebsiella\",     \"Escherichia\"   ),   ampicillin = \"S\" ) oops #>            mo ampicillin #> 1  Klebsiella          S #> 2 Escherichia          S  eucast_rules(oops, info = FALSE) #>            mo ampicillin #> 1  Klebsiella          R #> 2 Escherichia          S mo_is_intrinsic_resistant(   c(\"Klebsiella\", \"Escherichia\"),   \"ampicillin\" ) #> [1]  TRUE FALSE  mo_is_intrinsic_resistant(   \"Klebsiella\",   c(\"ampicillin\", \"kanamycin\") ) #> [1]  TRUE FALSE data <- data.frame(   mo = c(     \"Staphylococcus aureus\",     \"Enterococcus faecalis\",     \"Escherichia coli\",     \"Klebsiella pneumoniae\",     \"Pseudomonas aeruginosa\"   ),   VAN = \"-\", # Vancomycin   AMX = \"-\", # Amoxicillin   COL = \"-\", # Colistin   CAZ = \"-\", # Ceftazidime   CXM = \"-\", # Cefuroxime   PEN = \"S\", # Benzylenicillin   FOX = \"S\", # Cefoxitin   stringsAsFactors = FALSE ) data eucast_rules(data)"},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"type-of-input","dir":"Articles","previous_headings":"","what":"Type of input","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function takes data set input, regular data.frame. tries automatically determine right columns info isolates, name species columns results antimicrobial agents. See help page info set right settings data command ?mdro. WHONET data (data), settings automatically set correctly.","code":""},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"guidelines","dir":"Articles","previous_headings":"","what":"Guidelines","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function support multiple guidelines. can select guideline guideline parameter. Currently supported guidelines (case-insensitive): guideline = \"CMI2012\" (default) Magiorakos AP, Srinivasan et al. “Multidrug-resistant, extensively drug-resistant pandrug-resistant bacteria: international expert proposal interim standard definitions acquired resistance.” Clinical Microbiology Infection (2012) (link) guideline = \"EUCAST3.2\" (simply guideline = \"EUCAST\") European international guideline - EUCAST Expert Rules Version 3.2 “Intrinsic Resistance Unusual Phenotypes” (link) guideline = \"EUCAST3.1\" European international guideline - EUCAST Expert Rules Version 3.1 “Intrinsic Resistance Exceptional Phenotypes Tables” (link) guideline = \"TB\" international guideline multi-drug resistant tuberculosis - World Health Organization “Companion handbook guidelines programmatic management drug-resistant tuberculosis” (link) guideline = \"MRGN\" German national guideline - Mueller et al. (2015) Antimicrobial Resistance Infection Control 4:7. DOI: 10.1186/s13756-015-0047-6 guideline = \"BRMO\" Dutch national guideline - Rijksinstituut voor Volksgezondheid en Milieu “WIP-richtlijn BRMO (Bijzonder Resistente Micro-Organismen) (ZKH)” (link) Please suggest (country-specific) guidelines letting us know: https://github.com/msberends/AMR/issues/new.","code":""},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"custom-guidelines","dir":"Articles","previous_headings":"Guidelines","what":"Custom Guidelines","title":"How to determine multi-drug resistance (MDR)","text":"can also use custom guideline. Custom guidelines can set custom_mdro_guideline() function. great importance custom rules determine MDROs hospital, e.g., rules dependent ward, state contact isolation variables data. familiar case_when() dplyr package, recognise input method set rules. Rules must set using R considers ‘formula notation’: row/isolate matches first rule, value first ~ (case ‘Elderly Type ’) set MDRO value. Otherwise, second rule tried . maximum number rules unlimited. can print rules set console overview. Colours help reading console supports colours. outcome function can used guideline argument mdro() function: rules set (custom object case) exported shared file location using saveRDS() collaborate multiple users. custom rules set imported using readRDS().","code":"custom <- custom_mdro_guideline(   CIP == \"R\" & age > 60 ~ \"Elderly Type A\",   ERY == \"R\" & age > 60 ~ \"Elderly Type B\" ) custom #> A set of custom MDRO rules: #>   1. If CIP is \"R\" and age is higher than 60 then: Elderly Type A #>   2. If ERY is \"R\" and age is higher than 60 then: Elderly Type B #>   3. Otherwise: Negative #>  #> Unmatched rows will return NA. #> Results will be of class 'factor', with ordered levels: Negative < Elderly Type A < Elderly Type B x <- mdro(example_isolates, guideline = custom) table(x) #> x #>       Negative Elderly Type A Elderly Type B  #>           1070            198            732"},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"examples","dir":"Articles","previous_headings":"","what":"Examples","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function always returns ordered factor predefined guidelines. example, output default guideline Magiorakos et al. returns factor levels ‘Negative’, ‘MDR’, ‘XDR’ ‘PDR’ order. next example uses example_isolates data set. data set included package contains full antibiograms 2,000 microbial isolates. reflects reality can used practise AMR data analysis. test MDR/XDR/PDR guideline data set, get: Frequency table Class: factor > ordered (numeric) Length: 2,000 Levels: 4: Negative < Multi-drug-resistant (MDR) < Extensively drug-resistant … Available: 1,745 (87.25%, NA: 255 = 12.75%) Unique: 2 another example, create data set determine multi-drug resistant TB: column names automatically verified valid drug names codes, worked exactly way: data set now looks like : can now add interpretation MDR-TB data set. can use: shortcut mdr_tb(): Create frequency table results: Frequency table Class: factor > ordered (numeric) Length: 5,000 Levels: 5: Negative < Mono-resistant < Poly-resistant < Multi-drug-resistant <… Available: 5,000 (100%, NA: 0 = 0%) Unique: 5","code":"library(dplyr) # to support pipes: %>% library(cleaner) # to create frequency tables example_isolates %>%   mdro() %>%   freq() # show frequency table of the result #> Warning: in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) # random_sir() is a helper function to generate # a random vector with values S, I and R my_TB_data <- data.frame(   rifampicin = random_sir(5000),   isoniazid = random_sir(5000),   gatifloxacin = random_sir(5000),   ethambutol = random_sir(5000),   pyrazinamide = random_sir(5000),   moxifloxacin = random_sir(5000),   kanamycin = random_sir(5000) ) my_TB_data <- data.frame(   RIF = random_sir(5000),   INH = random_sir(5000),   GAT = random_sir(5000),   ETH = random_sir(5000),   PZA = random_sir(5000),   MFX = random_sir(5000),   KAN = random_sir(5000) ) head(my_TB_data) #>   rifampicin isoniazid gatifloxacin ethambutol pyrazinamide moxifloxacin #> 1          I         R            S          S            S            S #> 2          S         S            I          R            R            S #> 3          R         I            I          I            R            I #> 4          I         S            S          S            S            S #> 5          I         I            I          S            I            S #> 6          R         S            R          S            I            I #>   kanamycin #> 1         R #> 2         I #> 3         S #> 4         I #> 5         I #> 6         I mdro(my_TB_data, guideline = \"TB\") my_TB_data$mdr <- mdr_tb(my_TB_data) #> ℹ No column found as input for col_mo, assuming all rows contain #>   Mycobacterium tuberculosis. freq(my_TB_data$mdr)"},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"transforming","dir":"Articles","previous_headings":"","what":"Transforming","title":"How to conduct principal component analysis (PCA) for AMR","text":"PCA, need transform AMR data first. example_isolates data set package looks like: Now transform data set resistance percentages per taxonomic order genus:","code":"library(AMR) #> Error in get(paste0(generic, \".\", class), envir = get_method_env()) :  #>   object 'type_sum.accel' not found library(dplyr) glimpse(example_isolates) #> Rows: 2,000 #> Columns: 46 #> $ date    <date> 2002-01-02, 2002-01-03, 2002-01-07, 2002-01-07, 2002-01-13, 2… #> $ patient <chr> \"A77334\", \"A77334\", \"067927\", \"067927\", \"067927\", \"067927\", \"4… #> $ age     <dbl> 65, 65, 45, 45, 45, 45, 78, 78, 45, 79, 67, 67, 71, 71, 75, 50… #> $ gender  <chr> \"F\", \"F\", \"F\", \"F\", \"F\", \"F\", \"M\", \"M\", \"F\", \"F\", \"M\", \"M\", \"M… #> $ ward    <chr> \"Clinical\", \"Clinical\", \"ICU\", \"ICU\", \"ICU\", \"ICU\", \"Clinical\"… #> $ mo      <mo> \"B_ESCHR_COLI\", \"B_ESCHR_COLI\", \"B_STPHY_EPDR\", \"B_STPHY_EPDR\",… #> $ PEN     <sir> R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, S,… #> $ OXA     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ FLC     <sir> NA, NA, R, R, R, R, S, S, R, S, S, S, NA, NA, NA, NA, NA, R, R… #> $ AMX     <sir> NA, NA, NA, NA, NA, NA, R, R, NA, NA, NA, NA, NA, NA, R, NA, N… #> $ AMC     <sir> I, I, NA, NA, NA, NA, S, S, NA, NA, S, S, I, I, R, I, I, NA, N… #> $ AMP     <sir> NA, NA, NA, NA, NA, NA, R, R, NA, NA, NA, NA, NA, NA, R, NA, N… #> $ TZP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CZO     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, NA,… #> $ FEP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CXM     <sir> I, I, R, R, R, R, S, S, R, S, S, S, S, S, NA, S, S, R, R, S, S… #> $ FOX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, NA,… #> $ CTX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ CAZ     <sir> NA, NA, R, R, R, R, R, R, R, R, R, R, NA, NA, NA, S, S, R, R, … #> $ CRO     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ GEN     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ TOB     <sir> NA, NA, NA, NA, NA, NA, S, S, NA, NA, NA, NA, S, S, NA, NA, NA… #> $ AMK     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ KAN     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ TMP     <sir> R, R, S, S, R, R, R, R, S, S, NA, NA, S, S, S, S, S, R, R, R, … #> $ SXT     <sir> R, R, S, S, NA, NA, NA, NA, S, S, NA, NA, S, S, S, S, S, NA, N… #> $ NIT     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R,… #> $ FOS     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ LNZ     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… #> $ CIP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, NA, NA, NA, NA, S, S… #> $ MFX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ VAN     <sir> R, R, S, S, S, S, S, S, S, S, NA, NA, R, R, R, R, R, S, S, S, … #> $ TEC     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… #> $ TCY     <sir> R, R, S, S, S, S, S, S, S, I, S, S, NA, NA, I, R, R, S, I, R, … #> $ TGC     <sir> NA, NA, S, S, S, S, S, S, S, NA, S, S, NA, NA, NA, R, R, S, NA… #> $ DOX     <sir> NA, NA, S, S, S, S, S, S, S, NA, S, S, NA, NA, NA, R, R, S, NA… #> $ ERY     <sir> R, R, R, R, R, R, S, S, R, S, S, S, R, R, R, R, R, R, R, R, S,… #> $ CLI     <sir> R, R, NA, NA, NA, R, NA, NA, NA, NA, NA, NA, R, R, R, R, R, NA… #> $ AZM     <sir> R, R, R, R, R, R, S, S, R, S, S, S, R, R, R, R, R, R, R, R, S,… #> $ IPM     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ MEM     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ MTR     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CHL     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ COL     <sir> NA, NA, R, R, R, R, R, R, R, R, R, R, NA, NA, NA, R, R, R, R, … #> $ MUP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ RIF     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… resistance_data <- example_isolates %>%   group_by(     order = mo_order(mo), # group on anything, like order     genus = mo_genus(mo)   ) %>% #  and genus as we do here   summarise_if(is.sir, resistance) %>% # then get resistance of all drugs   select(     order, genus, AMC, CXM, CTX,     CAZ, GEN, TOB, TMP, SXT   ) # and select only relevant columns  head(resistance_data) #> # A tibble: 6 × 10 #> # Groups:   order [5] #>   order             genus          AMC   CXM   CTX   CAZ   GEN   TOB   TMP   SXT #>   <chr>             <chr>        <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #> 1 (unknown order)   (unknown ge…    NA    NA    NA    NA    NA    NA    NA    NA #> 2 Actinomycetales   Schaalia        NA    NA    NA    NA    NA    NA    NA    NA #> 3 Bacteroidales     Bacteroides     NA    NA    NA    NA    NA    NA    NA    NA #> 4 Campylobacterales Campylobact…    NA    NA    NA    NA    NA    NA    NA    NA #> 5 Caryophanales     Gemella         NA    NA    NA    NA    NA    NA    NA    NA #> 6 Caryophanales     Listeria        NA    NA    NA    NA    NA    NA    NA    NA"},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"perform-principal-component-analysis","dir":"Articles","previous_headings":"","what":"Perform principal component analysis","title":"How to conduct principal component analysis (PCA) for AMR","text":"new pca() function automatically filter rows contain numeric values selected variables, now need : result can reviewed good old summary() function: Good news. first two components explain total 93.3% variance (see PC1 PC2 values Proportion Variance. can create -called biplot base R biplot() function, see antimicrobial resistance per drug explain difference per microorganism.","code":"pca_result <- pca(resistance_data) #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. summary(pca_result) #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\" #> Importance of components: #>                           PC1    PC2    PC3     PC4     PC5     PC6       PC7 #> Standard deviation     2.1539 1.6807 0.6138 0.33879 0.20808 0.03140 1.232e-16 #> Proportion of Variance 0.5799 0.3531 0.0471 0.01435 0.00541 0.00012 0.000e+00 #> Cumulative Proportion  0.5799 0.9330 0.9801 0.99446 0.99988 1.00000 1.000e+00 #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\""},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"plotting-the-results","dir":"Articles","previous_headings":"","what":"Plotting the results","title":"How to conduct principal component analysis (PCA) for AMR","text":"can’t see explanation points. Perhaps works better new ggplot_pca() function, automatically adds right labels even groups:  can also print ellipse per group, edit appearance:","code":"biplot(pca_result) ggplot_pca(pca_result) ggplot_pca(pca_result, ellipse = TRUE) +   ggplot2::labs(title = \"An AMR/PCA biplot!\")"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"import-of-data","dir":"Articles","previous_headings":"","what":"Import of data","title":"How to work with WHONET data","text":"tutorial assumes already imported WHONET data e.g. readxl package. RStudio, can done using menu button ‘Import Dataset’ tab ‘Environment’. Choose option ‘Excel’ select exported file. Make sure date fields imported correctly. example syntax look like : package comes example data set WHONET. use analysis.","code":"library(readxl) data <- read_excel(path = \"path/to/your/file.xlsx\")"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"preparation","dir":"Articles","previous_headings":"","what":"Preparation","title":"How to work with WHONET data","text":"First, load relevant packages yet . use tidyverse analyses. . don’t know yet, suggest read website: https://www.tidyverse.org/. transform variables simplify automate analysis: Microorganisms transformed microorganism codes (called mo) using Catalogue Life reference data set, contains ~70,000 microorganisms taxonomic kingdoms Bacteria, Fungi Protozoa. tranformation .mo(). function also recognises almost WHONET abbreviations microorganisms. Antimicrobial results interpretations clean valid. words, contain values \"S\", \"\" \"R\". exactly .sir() function . errors warnings, values transformed succesfully. also created package dedicated data cleaning checking, called cleaner package. freq() function can used create frequency tables. let’s check data, couple frequency tables: Frequency table Class: character Length: 500 Available: 500 (100%, NA: 0 = 0%) Unique: 38 Shortest: 11 Longest: 40 (omitted 28 entries, n = 57 [11.4%]) Frequency table Class: factor > ordered > sir (numeric) Length: 500 Levels: 5: S < SDD < < R < NI Available: 481 (96.2%, NA: 19 = 3.8%) Unique: 3 Drug: Amoxicillin/clavulanic acid (AMC, J01CR02) Drug group: Beta-lactams/penicillins %SI: 78.59%","code":"library(dplyr) # part of tidyverse #> Error in get(paste0(generic, \".\", class), envir = get_method_env()) :  #>   object 'type_sum.accel' not found library(ggplot2) # part of tidyverse library(AMR) # this package library(cleaner) # to create frequency tables # transform variables data <- WHONET %>%   # get microbial ID based on given organism   mutate(mo = as.mo(Organism)) %>%   # transform everything from \"AMP_ND10\" to \"CIP_EE\" to the new `sir` class   mutate_at(vars(AMP_ND10:CIP_EE), as.sir) # our newly created `mo` variable, put in the mo_name() function data %>% freq(mo_name(mo), nmax = 10) # our transformed antibiotic columns # amoxicillin/clavulanic acid (J01CR02) as an example data %>% freq(AMC_ND2)"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"a-first-glimpse-at-results","dir":"Articles","previous_headings":"","what":"A first glimpse at results","title":"How to work with WHONET data","text":"easy ggplot already give lot information, using included ggplot_sir() function:","code":"data %>%   group_by(Country) %>%   select(Country, AMP_ND2, AMC_ED20, CAZ_ED10, CIP_ED5) %>%   ggplot_sir(translate_ab = \"ab\", facet = \"Country\", datalabels = FALSE)"},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"microorganisms-full-microbial-taxonomy","dir":"Articles","previous_headings":"","what":"microorganisms: Full Microbial Taxonomy","title":"Data sets for download / own use","text":"data set 78 678 rows 26 columns, containing following column names:mo, fullname, status, kingdom, phylum, class, order, family, genus, species, subspecies, rank, ref, oxygen_tolerance, source, lpsn, lpsn_parent, lpsn_renamed_to, mycobank, mycobank_parent, mycobank_renamed_to, gbif, gbif_parent, gbif_renamed_to, prevalence, snomed. data set R available microorganisms, load AMR package. last updated 4 October 2024 13:28:44 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (1.8 MB) Download tab-separated text file (17.7 MB) Download Microsoft Excel workbook (8.7 MB) Download Apache Feather file (8.3 MB) Download Apache Parquet file (3.8 MB) Download IBM SPSS Statistics data file (29 MB) Download Stata DTA file (92.5 MB) NOTE: exported files SPSS Stata contain first 50 SNOMED codes per record, file size otherwise exceed 100 MB; file size limit GitHub. file structures compression techniques inefficient. Advice? Use R instead. ’s free much better many ways. tab-separated text file Microsoft Excel workbook contain SNOMED codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source","dir":"Articles","previous_headings":"microorganisms: Full Microbial Taxonomy","what":"Source","title":"Data sets for download / own use","text":"data set contains full microbial taxonomy six kingdoms List Prokaryotic names Standing Nomenclature (LPSN), MycoBank, Global Biodiversity Information Facility (GBIF): Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; . Accessed https://lpsn.dsmz.de June 24th, 2024. Vincent, R et al (2013). MycoBank gearing new horizons. IMA Fungus, 4(2), 371-9; . Accessed https://www.mycobank.org June 24th, 2024. GBIF Secretariat (2023). GBIF Backbone Taxonomy. Checklist dataset . Accessed https://www.gbif.org June 24th, 2024. Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; . Accessed https://bacdive.dsmz.de July 16th, 2024. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name ‘Microorganism’, OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example-content","dir":"Articles","previous_headings":"microorganisms: Full Microbial Taxonomy","what":"Example content","title":"Data sets for download / own use","text":"Included (sub)species per taxonomic kingdom: Example rows filtering genus Escherichia:","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"antibiotics-antibiotic-antifungal-drugs","dir":"Articles","previous_headings":"","what":"antibiotics: Antibiotic (+Antifungal) Drugs","title":"Data sets for download / own use","text":"data set 485 rows 14 columns, containing following column names:ab, cid, name, group, atc, atc_group1, atc_group2, abbreviations, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antibiotics, load AMR package. last updated 10 October 2024 14:38:20 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (44 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (75 kB) Download Apache Feather file (0.1 MB) Download Apache Parquet file (0.1 MB) Download IBM SPSS Statistics data file (0.4 MB) Download Stata DTA file (0.5 MB) tab-separated text, Microsoft Excel, SPSS, Stata files contain ATC codes, common abbreviations, trade names LOINC codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-1","dir":"Articles","previous_headings":"antibiotics: Antibiotic (+Antifungal) Drugs","what":"Source","title":"Data sets for download / own use","text":"data set contains EARS-Net ATC codes gathered WHONET, compound IDs PubChem. also contains brand names (synonyms) found PubChem Defined Daily Doses (DDDs) oral parenteral administration. ATC/DDD index Collaborating Centre Drug Statistics Methodology (note: may used commercial purposes, freely available CC website personal use) PubChem US National Library Medicine WHONET software 2019 LOINC (Logical Observation Identifiers Names Codes)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"antivirals-antiviral-drugs","dir":"Articles","previous_headings":"","what":"antivirals: Antiviral Drugs","title":"Data sets for download / own use","text":"data set 120 rows 11 columns, containing following column names:av, name, atc, cid, atc_group, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antivirals, load AMR package. last updated 20 October 2023 12:51:48 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (6 kB) Download tab-separated text file (17 kB) Download Microsoft Excel workbook (16 kB) Download Apache Feather file (16 kB) Download Apache Parquet file (13 kB) Download IBM SPSS Statistics data file (32 kB) Download Stata DTA file (78 kB) tab-separated text, Microsoft Excel, SPSS, Stata files contain trade names LOINC codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-2","dir":"Articles","previous_headings":"antivirals: Antiviral Drugs","what":"Source","title":"Data sets for download / own use","text":"data set contains ATC codes gathered compound IDs PubChem. also contains brand names (synonyms) found PubChem Defined Daily Doses (DDDs) oral parenteral administration. ATC/DDD index Collaborating Centre Drug Statistics Methodology (note: may used commercial purposes, freely available CC website personal use) PubChem US National Library Medicine LOINC (Logical Observation Identifiers Names Codes)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"clinical_breakpoints-interpretation-from-mic-values-disk-diameters-to-sir","dir":"Articles","previous_headings":"","what":"clinical_breakpoints: Interpretation from MIC values & disk diameters to SIR","title":"Data sets for download / own use","text":"data set 34 063 rows 14 columns, containing following column names:guideline, type, host, method, site, mo, rank_index, ab, ref_tbl, disk_dose, breakpoint_S, breakpoint_R, uti, is_SDD. data set R available clinical_breakpoints, load AMR package. last updated 29 September 2024 20:17:56 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (70 kB) Download tab-separated text file (3.1 MB) Download Microsoft Excel workbook (2 MB) Download Apache Feather file (1.5 MB) Download Apache Parquet file (0.1 MB) Download IBM SPSS Statistics data file (5.6 MB) Download Stata DTA file (9.3 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-3","dir":"Articles","previous_headings":"clinical_breakpoints: Interpretation from MIC values & disk diameters to SIR","what":"Source","title":"Data sets for download / own use","text":"data set contains interpretation rules MIC values disk diffusion diameters. Included guidelines CLSI (2011-2024) EUCAST (2011-2024). Clinical breakpoints package validated imported WHONET, free desktop Windows application developed supported Collaborating Centre Surveillance Antimicrobial Resistance. can read website. developers WHONET AMR package contact sharing work. highly appreciate development WHONET software. CEO CLSI chairman EUCAST endorsed work public use AMR package (consequently use breakpoints) June 2023, future development distributing clinical breakpoints discussed meeting CLSI, EUCAST, , developers WHONET AMR package. NOTE: AMR package (WHONET software well) contains internal methods apply guidelines, rather complex. example, breakpoints must applied certain species groups (case package available microorganisms.groups data set). important considered using breakpoints use.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"intrinsic_resistant-intrinsic-bacterial-resistance","dir":"Articles","previous_headings":"","what":"intrinsic_resistant: Intrinsic Bacterial Resistance","title":"Data sets for download / own use","text":"data set 301 583 rows 2 columns, containing following column names:mo ab. data set R available intrinsic_resistant, load AMR package. last updated 29 September 2024 20:17:56 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (0.1 MB) Download tab-separated text file (10.9 MB) Download Microsoft Excel workbook (3 MB) Download Apache Feather file (2.5 MB) Download Apache Parquet file (0.3 MB) Download IBM SPSS Statistics data file (16.2 MB) Download Stata DTA file (25 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-4","dir":"Articles","previous_headings":"intrinsic_resistant: Intrinsic Bacterial Resistance","what":"Source","title":"Data sets for download / own use","text":"data set contains defined intrinsic resistance EUCAST bug-drug combinations, based ‘EUCAST Expert Rules’ ‘EUCAST Intrinsic Resistance Unusual Phenotypes’ v3.3 (2021).","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example-content-4","dir":"Articles","previous_headings":"intrinsic_resistant: Intrinsic Bacterial Resistance","what":"Example content","title":"Data sets for download / own use","text":"Example rows filtering Enterobacter cloacae:","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"dosage-dosage-guidelines-from-eucast","dir":"Articles","previous_headings":"","what":"dosage: Dosage Guidelines from EUCAST","title":"Data sets for download / own use","text":"data set 503 rows 9 columns, containing following column names:ab, name, type, dose, dose_times, administration, notes, original_txt, eucast_version. data set R available dosage, load AMR package. last updated 22 June 2023 13:10:59 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (3 kB) Download tab-separated text file (43 kB) Download Microsoft Excel workbook (25 kB) Download Apache Feather file (21 kB) Download Apache Parquet file (9 kB) Download IBM SPSS Statistics data file (64 kB) Download Stata DTA file (0.1 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-5","dir":"Articles","previous_headings":"dosage: Dosage Guidelines from EUCAST","what":"Source","title":"Data sets for download / own use","text":"EUCAST breakpoints used package based dosages data set. Currently included dosages data set meant :  (), ‘EUCAST Clinical Breakpoint Tables’ v11.0 (2021), ‘EUCAST Clinical Breakpoint Tables’ v12.0 (2022).","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example_isolates-example-data-for-practice","dir":"Articles","previous_headings":"","what":"example_isolates: Example Data for Practice","title":"Data sets for download / own use","text":"data set 2 000 rows 46 columns, containing following column names:date, patient, age, gender, ward, mo, PEN, OXA, FLC, AMX, AMC, AMP, TZP, CZO, FEP, CXM, FOX, CTX, CAZ, CRO, GEN, TOB, AMK, KAN, TMP, SXT, NIT, FOS, LNZ, CIP, MFX, VAN, TEC, TCY, TGC, DOX, ERY, CLI, AZM, IPM, MEM, MTR, CHL, COL, MUP, RIF. data set R available example_isolates, load AMR package. last updated 15 June 2024 13:33:49 UTC. Find info structure data set .","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-6","dir":"Articles","previous_headings":"example_isolates: Example Data for Practice","what":"Source","title":"Data sets for download / own use","text":"data set contains randomised fictitious data, reflects reality can used practise AMR data analysis.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example_isolates_unclean-example-data-for-practice","dir":"Articles","previous_headings":"","what":"example_isolates_unclean: Example Data for Practice","title":"Data sets for download / own use","text":"data set 3 000 rows 8 columns, containing following column names:patient_id, hospital, date, bacteria, AMX, AMC, CIP, GEN. data set R available example_isolates_unclean, load AMR package. last updated 27 August 2022 18:49:37 UTC. Find info structure data set .","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-7","dir":"Articles","previous_headings":"example_isolates_unclean: Example Data for Practice","what":"Source","title":"Data sets for download / own use","text":"data set contains randomised fictitious data, reflects reality can used practise AMR data analysis.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"microorganisms-groups-species-groups-and-microbiological-complexes","dir":"Articles","previous_headings":"","what":"microorganisms.groups: Species Groups and Microbiological Complexes","title":"Data sets for download / own use","text":"data set 521 rows 4 columns, containing following column names:mo_group, mo, mo_group_name, mo_name. data set R available microorganisms.groups, load AMR package. last updated 29 September 2024 20:17:56 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (5 kB) Download tab-separated text file (49 kB) Download Microsoft Excel workbook (19 kB) Download Apache Feather file (19 kB) Download Apache Parquet file (13 kB) Download IBM SPSS Statistics data file (63 kB) Download Stata DTA file (81 kB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-8","dir":"Articles","previous_headings":"microorganisms.groups: Species Groups and Microbiological Complexes","what":"Source","title":"Data sets for download / own use","text":"data set contains species groups microbiological complexes, used clinical_breakpoints data set.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"microorganisms-codes-common-laboratory-codes","dir":"Articles","previous_headings":"","what":"microorganisms.codes: Common Laboratory Codes","title":"Data sets for download / own use","text":"data set 4 971 rows 2 columns, containing following column names:code mo. data set R available microorganisms.codes, load AMR package. last updated 29 September 2024 20:17:56 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (22 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (82 kB) Download Apache Feather file (85 kB) Download Apache Parquet file (56 kB) Download IBM SPSS Statistics data file (0.1 MB) Download Stata DTA file (0.1 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-9","dir":"Articles","previous_headings":"microorganisms.codes: Common Laboratory Codes","what":"Source","title":"Data sets for download / own use","text":"data set contains commonly used codes microorganisms, laboratory systems WHONET.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"needed-r-packages","dir":"Articles","previous_headings":"","what":"Needed R packages","title":"How to predict antimicrobial resistance","text":"many uses R, need additional packages AMR data analysis. package works closely together tidyverse packages dplyr ggplot2. tidyverse tremendously improves way conduct data science - allows natural way writing syntaxes creating beautiful plots R. AMR package depends packages even extends use functions.","code":"library(dplyr) #> Error in get(paste0(generic, \".\", class), envir = get_method_env()) :  #>   object 'type_sum.accel' not found library(ggplot2) library(AMR)  # (if not yet installed, install with:) # install.packages(c(\"tidyverse\", \"AMR\"))"},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"prediction-analysis","dir":"Articles","previous_headings":"","what":"Prediction analysis","title":"How to predict antimicrobial resistance","text":"package contains function resistance_predict(), takes input functions AMR data analysis. Based date column, calculates cases per year uses regression model predict antimicrobial resistance. basically easy : function look date column col_date set. running commands, summary regression model printed unless using resistance_predict(..., info = FALSE). text printed summary - actual result (output) function data.frame containing year: number observations, actual observed resistance, estimated resistance standard error estimation: function plot available base R, can extended packages depend output based type input. extended function cope resistance predictions:  fastest way plot result. automatically adds right axes, error bars, titles, number available observations type model. also support ggplot2 package custom function ggplot_sir_predict() create appealing plots:","code":"# resistance prediction of piperacillin/tazobactam (TZP): resistance_predict(tbl = example_isolates, col_date = \"date\", col_ab = \"TZP\", model = \"binomial\")  # or: example_isolates %>%   resistance_predict(     col_ab = \"TZP\",     model = \"binomial\"   )  # to bind it to object 'predict_TZP' for example: predict_TZP <- example_isolates %>%   resistance_predict(     col_ab = \"TZP\",     model = \"binomial\"   ) predict_TZP #> # A tibble: 33 × 7 #>     year  value se_min se_max observations observed estimated #>  * <dbl>  <dbl>  <dbl>  <dbl>        <int>    <dbl>     <dbl> #>  1  2002 0.2        NA     NA           15   0.2       0.0562 #>  2  2003 0.0625     NA     NA           32   0.0625    0.0616 #>  3  2004 0.0854     NA     NA           82   0.0854    0.0676 #>  4  2005 0.05       NA     NA           60   0.05      0.0741 #>  5  2006 0.0508     NA     NA           59   0.0508    0.0812 #>  6  2007 0.121      NA     NA           66   0.121     0.0889 #>  7  2008 0.0417     NA     NA           72   0.0417    0.0972 #>  8  2009 0.0164     NA     NA           61   0.0164    0.106  #>  9  2010 0.0566     NA     NA           53   0.0566    0.116  #> 10  2011 0.183      NA     NA           93   0.183     0.127  #> # ℹ 23 more rows plot(predict_TZP) ggplot_sir_predict(predict_TZP) # choose for error bars instead of a ribbon ggplot_sir_predict(predict_TZP, ribbon = FALSE)"},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"choosing-the-right-model","dir":"Articles","previous_headings":"Prediction analysis","what":"Choosing the right model","title":"How to predict antimicrobial resistance","text":"Resistance easily predicted; look vancomycin resistance Gram-positive bacteria, spread (.e. standard error) enormous:  Vancomycin resistance 100% ten years, might remain low. can define model model parameter. model chosen generalised linear regression model using binomial distribution, assuming period zero resistance followed period increasing resistance leading slowly resistance. Valid values : vancomycin resistance Gram-positive bacteria, linear model might appropriate:  model also available object, attribute:","code":"example_isolates %>%   filter(mo_gramstain(mo, language = NULL) == \"Gram-positive\") %>%   resistance_predict(col_ab = \"VAN\", year_min = 2010, info = FALSE, model = \"binomial\") %>%   ggplot_sir_predict() example_isolates %>%   filter(mo_gramstain(mo, language = NULL) == \"Gram-positive\") %>%   resistance_predict(col_ab = \"VAN\", year_min = 2010, info = FALSE, model = \"linear\") %>%   ggplot_sir_predict() model <- attributes(predict_TZP)$model  summary(model)$family #>  #> Family: binomial  #> Link function: logit  summary(model)$coefficients #>                  Estimate  Std. Error   z value     Pr(>|z|) #> (Intercept) -200.67944891 46.17315349 -4.346237 1.384932e-05 #> year           0.09883005  0.02295317  4.305725 1.664395e-05"},{"path":"https://msberends.github.io/AMR/authors.html","id":null,"dir":"","previous_headings":"","what":"Authors","title":"Authors and Citation","text":"Matthijs S. Berends. Author, maintainer. Dennis Souverein. Author, contributor. Erwin E. . Hassing. Author, contributor. Andrew P. Norgan. Contributor. Anita Williams. Contributor. Annick Lenglet. Contributor. Anthony Underwood. Contributor. Anton Mymrikov. Contributor. Bart C. Meijer. Contributor. Christian F. Luz. Contributor. Dmytro Mykhailenko. Contributor. Eric H. L. C. M. Hazenberg. Contributor. Gwen Knight. Contributor. Jason Stull. Contributor. Javier Sanchez. Contributor. Jonas Salm. Contributor. Judith M. Fonville. Contributor. Larisse Bolton. Contributor. Matthew Saab. Contributor. Peter Dutey-Magni. Contributor. Rogier P. Schade. Contributor. Sofia Ny. Contributor. Alex W. Friedrich. Thesis advisor. Bhanu N. M. Sinha. Thesis advisor. Casper J. Albers. Thesis advisor. Corinna Glasner. Thesis advisor.","code":""},{"path":"https://msberends.github.io/AMR/authors.html","id":"citation","dir":"","previous_headings":"","what":"Citation","title":"Authors and Citation","text":"Berends MS, Luz CF, Friedrich AW, Sinha BNM, Albers CJ, Glasner C (2022). “AMR: R Package Working Antimicrobial Resistance Data.” Journal Statistical Software, 104(3), 1–31. doi:10.18637/jss.v104.i03.","code":"@Article{,   title = {{AMR}: An {R} Package for Working with Antimicrobial Resistance Data},   author = {Matthijs S. Berends and Christian F. Luz and Alexander W. Friedrich and Bhanu N. M. Sinha and Casper J. Albers and Corinna Glasner},   journal = {Journal of Statistical Software},   year = {2022},   volume = {104},   number = {3},   pages = {1--31},   doi = {10.18637/jss.v104.i03}, }"},{"path":"https://msberends.github.io/AMR/index.html","id":"the-amr-package-for-r-","dir":"","previous_headings":"","what":"Antimicrobial Resistance Data Analysis","title":"Antimicrobial Resistance Data Analysis","text":"Provides --one solution antimicrobial resistance (AMR) data analysis One Health approach Used 175 countries, available 20 languages Generates antibiograms - traditional, combined, syndromic, even WISCA Provides full microbiological taxonomy extensive info antimicrobial drugs Applies recent CLSI EUCAST clinical veterinary breakpoints MICs, disk zones ECOFFs Corrects duplicate isolates, calculates predicts AMR per antibiotic class Integrates WHONET, ATC, EARS-Net, PubChem, LOINC, SNOMED CT, NCBI 100% free costs dependencies, highly suitable places limited resources Now available Python ! Click read . https://msberends.github.io/AMR https://doi.org/10.18637/jss.v104.i03","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"introduction","dir":"","previous_headings":"","what":"Introduction","title":"Antimicrobial Resistance Data Analysis","text":"AMR package free open-source R package zero dependencies simplify analysis prediction Antimicrobial Resistance (AMR) work microbial antimicrobial data properties, using evidence-based methods. aim provide standard clean reproducible AMR data analysis, can therefore empower epidemiological analyses continuously enable surveillance treatment evaluation setting. Many different researchers around globe continually helping us make successful durable project! work published Journal Statistical Software (Volume 104(3); DOI 10.18637/jss.v104.i03) formed basis two PhD theses (DOI 10.33612/diss.177417131 DOI 10.33612/diss.192486375). installing package, R knows ~52,000 distinct microbial species (updated December 2022) ~600 antibiotic, antimycotic antiviral drugs name code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC SNOMED CT), knows valid SIR MIC values. integral clinical breakpoint guidelines CLSI EUCAST included, even epidemiological cut-(ECOFF) values. supports can read data format, including WHONET data. package works Windows, macOS Linux versions R since R-3.0 (April 2013). designed work setting, including limited resources. created routine data analysis academic research Faculty Medical Sciences University Groningen, collaboration non-profit organisations Certe Medical Diagnostics Advice Foundation University Medical Center Groningen.","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"used-in-over-175-countries-available-in-20-languages","dir":"","previous_headings":"Introduction","what":"Used in over 175 countries, available in 20 languages","title":"Antimicrobial Resistance Data Analysis","text":"Since first public release early 2018, R package used almost countries world. Click map enlarge see country names. help contributors corners world, AMR package available  English,  Czech,  Chinese,  Danish,  Dutch,  Finnish,  French,  German,  Greek,  Italian,  Japanese,  Norwegian,  Polish,  Portuguese,  Romanian,  Russian,  Spanish,  Swedish,  Turkish,  Ukrainian. Antimicrobial drug (group) names colloquial microorganism names provided languages.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/index.html","id":"filtering-and-selecting-data","dir":"","previous_headings":"Practical examples","what":"Filtering and selecting data","title":"Antimicrobial Resistance Data Analysis","text":"One powerful functions package, aside calculating plotting AMR, selecting filtering based antibiotic columns. can done using -called antibiotic class selectors work base R, dplyr data.table: defined row filter Gram-negative bacteria intrinsic resistance cefotaxime (mo_is_gram_negative() mo_is_intrinsic_resistant()) column selection two antibiotic groups (aminoglycosides() carbapenems()), reference data microorganisms antibiotics AMR package make sure get meant: base R equivalent : base R code work version R since April 2013 (R-3.0). Moreover, code works identically data.table package, starting :","code":"# AMR works great with dplyr, but it's not required or neccesary library(AMR) library(dplyr)  example_isolates %>%   mutate(bacteria = mo_fullname()) %>%   # filtering functions for microorganisms:   filter(mo_is_gram_negative(),          mo_is_intrinsic_resistant(ab = \"cefotax\")) %>%   # antibiotic selectors:   select(bacteria,          aminoglycosides(),          carbapenems()) library(AMR) example_isolates$bacteria <- mo_fullname(example_isolates$mo) example_isolates[which(mo_is_gram_negative() &                          mo_is_intrinsic_resistant(ab = \"cefotax\")),                  c(\"bacteria\", aminoglycosides(), carbapenems())] example_isolates <- data.table::as.data.table(example_isolates)"},{"path":"https://msberends.github.io/AMR/index.html","id":"generating-antibiograms","dir":"","previous_headings":"Practical examples","what":"Generating antibiograms","title":"Antimicrobial Resistance Data Analysis","text":"AMR package supports generating traditional, combined, syndromic, even weighted-incidence syndromic combination antibiograms (WISCA). used inside R Markdown Quarto, table printed right output format automatically (markdown, LaTeX, HTML, etc.). combination antibiograms, clear combined antibiotics yield higher empiric coverage: Like many functions package, antibiogram() comes support 20 languages often detected automatically based system language:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems())) antibiogram(example_isolates,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),             mo_transform = \"gramstain\") antibiogram(example_isolates,             antibiotics = c(\"cipro\", \"tobra\", \"genta\"), # any arbitrary name or code will work             mo_transform = \"gramstain\",             ab_transform = \"name\",             language = \"uk\") # Ukrainian"},{"path":"https://msberends.github.io/AMR/index.html","id":"calculating-resistance-per-group","dir":"","previous_headings":"Practical examples","what":"Calculating resistance per group","title":"Antimicrobial Resistance Data Analysis","text":"manual approach, can use resistance susceptibility() function: use antibiotic class selectors select series antibiotic columns:","code":"example_isolates %>%   # group by ward:   group_by(ward) %>%   # calculate AMR using resistance() for gentamicin and tobramycin   # and get their 95% confidence intervals using sir_confidence_interval():   summarise(across(c(GEN, TOB),                    list(total_R = resistance,                         conf_int = function(x) sir_confidence_interval(x, collapse = \"-\")))) library(AMR) library(dplyr)  out <- example_isolates %>%   # group by ward:   group_by(ward) %>%   # calculate AMR using resistance(), over all aminoglycosides and polymyxins:   summarise(across(c(aminoglycosides(), polymyxins()),             resistance)) out # transform the antibiotic columns to names: out %>% set_ab_names() # transform the antibiotic column to ATC codes: out %>% set_ab_names(property = \"atc\")"},{"path":"https://msberends.github.io/AMR/index.html","id":"what-else-can-you-do-with-this-package","dir":"","previous_headings":"","what":"What else can you do with this package?","title":"Antimicrobial Resistance Data Analysis","text":"package intended comprehensive toolbox integrated AMR data analysis. package can used : Reference taxonomy microorganisms, since package contains microbial (sub)species List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF) (manual) Interpreting raw MIC disk diffusion values, based CLSI EUCAST guideline (manual) Retrieving antimicrobial drug names, doses forms administration clinical health care records (manual) Determining first isolates used AMR data analysis (manual) Calculating antimicrobial resistance (tutorial) Determining multi-drug resistance (MDR) / multi-drug resistant organisms (MDRO) (tutorial) Calculating (empirical) susceptibility mono therapy combination therapies (tutorial) Predicting future antimicrobial resistance using regression models (tutorial) Getting properties microorganism (like Gram stain, species, genus family) (manual) Getting properties antibiotic (like name, code EARS-Net/ATC/LOINC/PubChem, defined daily dose trade name) (manual) Plotting antimicrobial resistance (tutorial) Applying EUCAST expert rules (manual) Getting SNOMED codes microorganism, getting properties microorganism based SNOMED code (manual) Getting LOINC codes antibiotic, getting properties antibiotic based LOINC code (manual) Machine reading EUCAST CLSI guidelines 2011-2021 translate MIC values disk diffusion diameters SIR (link) Principal component analysis AMR (tutorial)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/index.html","id":"latest-official-version","dir":"","previous_headings":"Get this package","what":"Latest official version","title":"Antimicrobial Resistance Data Analysis","text":"package available official R network (CRAN). Install package R CRAN using command: downloaded installed automatically. RStudio, click menu Tools > Install Packages… type “AMR” press Install. Note: functions website may available latest release. use functions data sets mentioned website, install latest development version.","code":"install.packages(\"AMR\")"},{"path":"https://msberends.github.io/AMR/index.html","id":"latest-development-version","dir":"","previous_headings":"Get this package","what":"Latest development version","title":"Antimicrobial Resistance Data Analysis","text":"Please read Developer Guideline . latest unpublished development version can installed GitHub two ways: Manually, using: Automatically, using rOpenSci R-universe platform, adding R-universe address list repositories (‘repos’): , can install update AMR package like official release (e.g., using install.packages(\"AMR\") RStudio via Tools > Check Package Updates…).","code":"install.packages(\"remotes\") # if you haven't already remotes::install_github(\"msberends/AMR\") options(repos = c(getOption(\"repos\"),                   msberends = \"https://msberends.r-universe.dev\"))"},{"path":"https://msberends.github.io/AMR/index.html","id":"get-started","dir":"","previous_headings":"","what":"Get started","title":"Antimicrobial Resistance Data Analysis","text":"find conduct AMR data analysis, please continue reading get started click link ‘’ menu.","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"partners","dir":"","previous_headings":"","what":"Partners","title":"Antimicrobial Resistance Data Analysis","text":"development package part , related , made possible following non-profit organisations initiatives:","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"copyright","dir":"","previous_headings":"","what":"Copyright","title":"Antimicrobial Resistance Data Analysis","text":"R package free, open-source software licensed GNU General Public License v2.0 (GPL-2). nutshell, means package: May used commercial purposes May used private purposes May used patent purposes May modified, although: Modifications must released license distributing package Changes made code must documented May distributed, although: Source code must made available package distributed copy license copyright notice must included package. Comes LIMITATION liability Comes warranty","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":null,"dir":"Reference","previous_headings":"","what":"Options for the AMR package — AMR-options","title":"Options for the AMR package — AMR-options","text":"overview package-specific options() can set AMR package.","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"options","dir":"Reference","previous_headings":"","what":"Options","title":"Options for the AMR package — AMR-options","text":"AMR_antibiogram_formatting_type  numeric (1-12) use antibiogram(), indicate formatting type use. AMR_breakpoint_type  character use .sir(), indicate breakpoint type use. must either \"ECOFF\", \"animal\", \"human\". AMR_cleaning_regex  regular expression (case-insensitive) use .mo() mo_* functions, clean user input. default outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". AMR_custom_ab  file location RDS file, use custom antimicrobial drugs package. explained add_custom_antimicrobials(). AMR_custom_mo  file location RDS file, use custom microorganisms package. explained add_custom_microorganisms(). AMR_eucastrules  character set default types rules eucast_rules() function, must one : \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). AMR_guideline  character set default guideline interpreting MIC values disk diffusion diameters .sir(). Can guideline name (e.g., \"CLSI\") name year (e.g. \"CLSI 2019\"). default latest implemented EUCAST guideline, currently \"EUCAST 2024\". Supported guideline currently EUCAST (2011-2024) CLSI (2011-2024). AMR_ignore_pattern  regular expression ignore (.e., make NA) match given .mo() mo_* functions. AMR_include_PKPD  logical use .sir(), indicate PK/PD clinical breakpoints must applied last resort - default TRUE. AMR_include_screening  logical use .sir(), indicate clinical breakpoints screening allowed - default FALSE. AMR_keep_synonyms  logical use .mo() mo_* functions, indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE. AMR_locale  character set language AMR package, can one supported language names ISO-639-1 codes: English (en), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Italian (), Japanese (ja), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swedish (sv), Turkish (tr), Ukrainian (uk). default current system language (supported, English otherwise). AMR_mo_source  file location manual code list used .mo() mo_* functions. explained set_mo_source().","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"saving-settings-between-sessions","dir":"Reference","previous_headings":"","what":"Saving Settings Between Sessions","title":"Options for the AMR package — AMR-options","text":"Settings R saved globally thus lost R exited. can save options .Rprofile file, user-specific file. can edit using:   file, can set options ...   ...add Portuguese language support antibiotics, allow PK/PD rules interpreting MIC values .sir().","code":"utils::file.edit(\"~/.Rprofile\") options(AMR_locale = \"pt\")  options(AMR_include_PKPD = TRUE)"},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"share-options-within-team","dir":"Reference","previous_headings":"","what":"Share Options Within Team","title":"Options for the AMR package — AMR-options","text":"global approach, e.g. within (data) team, save options file remote file location, shared network drive, user read file automatically start-. work way: Save plain text file e.g. \"X:/team_folder/R_options.R\" fill preferred settings. user, open .Rprofile file using utils::file.edit(\"~/.Rprofile\") put :   Reload R/RStudio check settings getOption(), e.g. getOption(\"AMR_locale\") set value. Now team settings configured one place, can maintained .","code":"source(\"X:/team_folder/R_options.R\")"},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":null,"dir":"Reference","previous_headings":"","what":"The AMR Package — AMR","title":"The AMR Package — AMR","text":"Welcome AMR package. AMR package free open-source R package zero dependencies simplify analysis prediction Antimicrobial Resistance (AMR) work microbial antimicrobial data properties, using evidence-based methods. aim provide standard clean reproducible AMR data analysis, can therefore empower epidemiological analyses continuously enable surveillance treatment evaluation setting. Many different researchers around globe continually helping us make successful durable project! work published Journal Statistical Software (Volume 104(3); doi:10.18637/jss.v104.i03 ) formed basis two PhD theses (doi:10.33612/diss.177417131  doi:10.33612/diss.192486375 ). installing package, R knows ~79 000 microorganisms (updated June 2024) ~600 antibiotic, antimycotic antiviral drugs name code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC SNOMED CT), knows valid SIR MIC values. integral clinical breakpoint guidelines CLSI EUCAST included, even epidemiological cut-(ECOFF) values. supports can read data format, including WHONET data. package works Windows, macOS Linux versions R since R-3.0 (April 2013). designed work setting, including limited resources. created routine data analysis academic research Faculty Medical Sciences public University Groningen, collaboration non-profit organisations Certe Medical Diagnostics Advice Foundation University Medical Center Groningen. AMR package available English, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Italian, Japanese, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swedish, Turkish, Ukrainian. Antimicrobial drug (group) names colloquial microorganism names provided languages.","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"The AMR Package — AMR","text":"cite AMR publications use: Berends MS, Luz CF, Friedrich AW, Sinha BNM, Albers CJ, Glasner C (2022). \"AMR: R Package Working Antimicrobial Resistance Data.\" Journal Statistical Software, 104(3), 1-31. doi:10.18637/jss.v104.i03 BibTeX entry LaTeX users :","code":"@Article{,   title = {{AMR}: An {R} Package for Working with Antimicrobial Resistance Data},   author = {Matthijs S. Berends and Christian F. Luz and Alexander W. Friedrich and Bhanu N. M. Sinha and Casper J. Albers and Corinna Glasner},   journal = {Journal of Statistical Software},   year = {2022},   volume = {104},   number = {3},   pages = {1--31},   doi = {10.18637/jss.v104.i03}, }"},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"The AMR Package — AMR","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":"author","dir":"Reference","previous_headings":"","what":"Author","title":"The AMR Package — AMR","text":"Maintainer: Matthijs S. Berends m.s.berends@umcg.nl (ORCID) Authors: Dennis Souverein (ORCID) [contributor] Erwin E. . Hassing [contributor] contributors: Andrew P. Norgan (ORCID) [contributor] Anita Williams (ORCID) [contributor] Annick Lenglet (ORCID) [contributor] Anthony Underwood (ORCID) [contributor] Anton Mymrikov [contributor] Bart C. Meijer [contributor] Christian F. Luz (ORCID) [contributor] Dmytro Mykhailenko [contributor] Eric H. L. C. M. Hazenberg [contributor] Gwen Knight (ORCID) [contributor] Jason Stull (ORCID) [contributor] Javier Sanchez (ORCID) [contributor] Jonas Salm [contributor] Judith M. Fonville [contributor] Larisse Bolton (ORCID) [contributor] Matthew Saab [contributor] Peter Dutey-Magni (ORCID) [contributor] Rogier P. Schade [contributor] Sofia Ny (ORCID) [contributor] Alex W. Friedrich (ORCID) [thesis advisor] Bhanu N. M. Sinha (ORCID) [thesis advisor] Casper J. Albers (ORCID) [thesis advisor] Corinna Glasner (ORCID) [thesis advisor]","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":null,"dir":"Reference","previous_headings":"","what":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"antimicrobial drugs official names, ATC codes, ATC groups defined daily dose (DDD) included package, using Collaborating Centre Drug Statistics Methodology.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://atcddd.fhi.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://atcddd.fhi./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"","code":"as.ab(\"meropenem\") #> Class 'ab' #> [1] MEM ab_name(\"J01DH02\") #> [1] \"Meropenem\"  ab_tradenames(\"flucloxacillin\") #>  [1] \"culpen\"               \"floxacillin\"          \"floxacillin sodium\"   #>  [4] \"floxapen\"             \"floxapen sodium salt\" \"fluclox\"              #>  [7] \"flucloxacilina\"       \"flucloxacillin\"       \"flucloxacilline\"      #> [10] \"flucloxacillinum\"     \"fluorochloroxacillin\" \"staphylex\""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 500 Isolates - WHONET Example — WHONET","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"example data set exact structure export file WHONET. files can used package, example data set shows. antibiotic results example_isolates data set. patient names created using online surname generators place practice purposes.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"","code":"WHONET"},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"tibble 500 observations 53 variables: Identification number ID sample Specimen number ID specimen Organism Name microorganism. analysis, transform valid microbial class, using .mo(). Country Country origin Laboratory Name laboratory Last name Fictitious last name patient First name Fictitious initial patient Sex Fictitious gender patient Age Fictitious age patient Age category Age group, can also looked using age_groups() Date admissionDate hospital admission Specimen dateDate specimen received laboratory Specimen type Specimen type group Specimen type (Numeric) Translation \"Specimen type\" Reason Reason request Differential Diagnosis Isolate number ID isolate Organism type Type microorganism, can also looked using mo_type() Serotype Serotype microorganism Beta-lactamase Microorganism produces beta-lactamase? ESBL Microorganism produces extended spectrum beta-lactamase? Carbapenemase Microorganism produces carbapenemase? MRSA screening test Microorganism possible MRSA? Inducible clindamycin resistance Clindamycin can induced? Comment comments Date data entryDate data entered WHONET AMP_ND10:CIP_EE 28 different antibiotics. can lookup abbreviations antibiotics data set, use e.g. ab_name(\"AMP\") get official name immediately. analysis, transform valid antibiotic class, using .sir().","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"","code":"WHONET #> # A tibble: 500 × 53 #>    `Identification number` `Specimen number` Organism Country         Laboratory #>    <chr>                               <int> <chr>    <chr>           <chr>      #>  1 fe41d7bafa                           1748 SPN      Belgium         National … #>  2 91f175ec37                           1767 eco      The Netherlands National … #>  3 cc4015056e                           1343 eco      The Netherlands National … #>  4 e864b692f5                           1894 MAP      Denmark         National … #>  5 3d051fe345                           1739 PVU      Belgium         National … #>  6 c80762a08d                           1846 103      The Netherlands National … #>  7 8022d3727c                           1628 103      Denmark         National … #>  8 f3dc5f553d                           1493 eco      The Netherlands National … #>  9 15add38f6c                           1847 eco      France          National … #> 10 fd41248def                           1458 eco      Germany         National … #> # ℹ 490 more rows #> # ℹ 48 more variables: `Last name` <chr>, `First name` <chr>, Sex <chr>, #> #   Age <dbl>, `Age category` <chr>, `Date of admission` <date>, #> #   `Specimen date` <date>, `Specimen type` <chr>, #> #   `Specimen type (Numeric)` <dbl>, Reason <chr>, `Isolate number` <int>, #> #   `Organism type` <chr>, Serotype <chr>, `Beta-lactamase` <lgl>, ESBL <lgl>, #> #   Carbapenemase <lgl>, `MRSA screening test` <lgl>, …"},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":null,"dir":"Reference","previous_headings":"","what":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"Use function e.g. clinical texts health care records. returns list antimicrobial drugs, doses forms administration found texts.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"","code":"ab_from_text(   text,   type = c(\"drug\", \"dose\", \"administration\"),   collapse = NULL,   translate_ab = FALSE,   thorough_search = NULL,   info = interactive(),   ... )"},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"text text analyse type type property search , either \"drug\", \"dose\" \"administration\", see Examples collapse character pass paste(, collapse = ...) return one character per element text, see Examples translate_ab type = \"drug\": column name antibiotics data set translate antibiotic abbreviations , using ab_property(). default FALSE. Using TRUE equal using \"name\". thorough_search logical indicate whether input must extensively searched misspelling faulty input values. Setting TRUE take considerably time using FALSE. default, turn TRUE input elements contain maximum three words. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed .ab()","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"list,  character collapse NULL","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"function also internally used .ab(), although searches first drug name throw note drug names returned. Note: .ab() function may use long regular expression match brand names antimicrobial drugs. may fail systems.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"argument-type","dir":"Reference","previous_headings":"","what":"Argument type","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"default, function search antimicrobial drug names. text elements searched official names, ATC codes brand names. uses .ab() internally, correct misspelling. type = \"dose\" (similar, like \"dosing\", \"doses\"), text elements searched numeric values higher 100 resemble years. output numeric. supports unit (g, mg, IE, etc.) multiple values one clinical text, see Examples. type = \"administration\" (abbreviations, like \"admin\", \"adm\"), text elements searched form drug administration. supports following forms (including common abbreviations): buccal, implant, inhalation, instillation, intravenous, nasal, oral, parenteral, rectal, sublingual, transdermal vaginal. Abbreviations oral ('po', 'per os') become \"oral\", values intravenous ('iv', 'intraven') become \"iv\". supports multiple values one clinical text, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"argument-collapse","dir":"Reference","previous_headings":"","what":"Argument collapse","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"Without using collapse, function return list. can convenient use e.g. inside mutate()):df %>% mutate(abx = ab_from_text(clinical_text)) returned AB codes can transformed official names, groups, etc. ab_* functions ab_name() ab_group(), using translate_ab argument. using collapse, function return character:df %>% mutate(abx = ab_from_text(clinical_text, collapse = \"|\"))","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"","code":"# mind the bad spelling of amoxicillin in this line, # straight from a true health care record: ab_from_text(\"28/03/2020 regular amoxicilliin 500mg po tid\") #> [[1]] #> Class 'ab' #> [1] AMX #>   ab_from_text(\"500 mg amoxi po and 400mg cipro iv\") #> [[1]] #> Class 'ab' #> [1] AMX CIP #>  ab_from_text(\"500 mg amoxi po and 400mg cipro iv\", type = \"dose\") #> [[1]] #> [1] 500 400 #>  ab_from_text(\"500 mg amoxi po and 400mg cipro iv\", type = \"admin\") #> [[1]] #> [1] \"oral\" \"iv\"   #>   ab_from_text(\"500 mg amoxi po and 400mg cipro iv\", collapse = \", \") #> [1] \"AMX, CIP\" # \\donttest{ # if you want to know which antibiotic groups were administered, do e.g.: abx <- ab_from_text(\"500 mg amoxi po and 400mg cipro iv\") ab_group(abx[[1]]) #> [1] \"Beta-lactams/penicillins\" \"Quinolones\"                if (require(\"dplyr\")) {   tibble(clinical_text = c(     \"given 400mg cipro and 500 mg amox\",     \"started on doxy iv today\"   )) %>%     mutate(       abx_codes = ab_from_text(clinical_text),       abx_doses = ab_from_text(clinical_text, type = \"doses\"),       abx_admin = ab_from_text(clinical_text, type = \"admin\"),       abx_coll = ab_from_text(clinical_text, collapse = \"|\"),       abx_coll_names = ab_from_text(clinical_text,         collapse = \"|\",         translate_ab = \"name\"       ),       abx_coll_doses = ab_from_text(clinical_text,         type = \"doses\",         collapse = \"|\"       ),       abx_coll_admin = ab_from_text(clinical_text,         type = \"admin\",         collapse = \"|\"       )     ) } #> Loading required package: dplyr #>  #> Attaching package: ‘dplyr’ #> The following objects are masked from ‘package:stats’: #>  #>     filter, lag #> The following objects are masked from ‘package:base’: #>  #>     intersect, setdiff, setequal, union #> # A tibble: 2 × 8 #>   clinical_text            abx_codes abx_doses abx_admin abx_coll abx_coll_names #>   <chr>                    <list>    <list>    <list>    <chr>    <chr>          #> 1 given 400mg cipro and 5… <ab [2]>  <dbl [2]> <chr [1]> CIP|AMX  Ciprofloxacin… #> 2 started on doxy iv today <ab [1]>  <dbl [1]> <chr [1]> DOX      Doxycycline    #> # ℹ 2 more variables: abx_coll_doses <chr>, abx_coll_admin <chr> # }"},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of an Antibiotic — ab_property","title":"Get Properties of an Antibiotic — ab_property","text":"Use functions return specific property antibiotic antibiotics data set. input values evaluated internally .ab().","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of an Antibiotic — ab_property","text":"","code":"ab_name(x, language = get_AMR_locale(), tolower = FALSE, ...)  ab_cid(x, ...)  ab_synonyms(x, ...)  ab_tradenames(x, ...)  ab_group(x, language = get_AMR_locale(), ...)  ab_atc(x, only_first = FALSE, ...)  ab_atc_group1(x, language = get_AMR_locale(), ...)  ab_atc_group2(x, language = get_AMR_locale(), ...)  ab_loinc(x, ...)  ab_ddd(x, administration = \"oral\", ...)  ab_ddd_units(x, administration = \"oral\", ...)  ab_info(x, language = get_AMR_locale(), ...)  ab_url(x, open = FALSE, ...)  ab_property(x, property = \"name\", language = get_AMR_locale(), ...)  set_ab_names(   data,   ...,   property = \"name\",   language = get_AMR_locale(),   snake_case = NULL )"},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of an Antibiotic — ab_property","text":"x (vector ) text can coerced valid antibiotic drug code .ab() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. tolower logical indicate whether first character every output transformed lower case character. lead e.g. \"polymyxin B\" \"polymyxin b\". ... case set_ab_names() data data.frame: columns select (supports tidy selection column1:column4), otherwise arguments passed .ab() only_first logical indicate whether first ATC code must returned, giving preference J0-codes (.e., antimicrobial drug group) administration way administration, either \"oral\" \"iv\" open browse URL using utils::browseURL() property one column names one antibiotics data set: vector_or(colnames(antibiotics), sort = FALSE). data data.frame columns need renamed, character vector column names snake_case logical indicate whether names -called snake case: lower case spaces/slashes replaced underscore (_)","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of an Antibiotic — ab_property","text":"integer case ab_cid() named list case ab_info() multiple ab_atc()/ab_synonyms()/ab_tradenames() double case ab_ddd() data.frame case set_ab_names() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of an Antibiotic — ab_property","text":"output translated possible. function ab_url() return direct URL official website. warning returned required ATC code available. function set_ab_names() special column renaming function data.frames. renames columns names resemble antimicrobial drugs. always makes sure new column names unique. property = \"atc\" set, preference given ATC codes J-group.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of an Antibiotic — ab_property","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://atcddd.fhi./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of an Antibiotic — ab_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of an Antibiotic — ab_property","text":"","code":"# all properties: ab_name(\"AMX\") #> [1] \"Amoxicillin\" ab_atc(\"AMX\") #> [1] \"J01CA04\" ab_cid(\"AMX\") #> [1] 33613 ab_synonyms(\"AMX\") #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            ab_tradenames(\"AMX\") #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            ab_group(\"AMX\") #> [1] \"Beta-lactams/penicillins\" ab_atc_group1(\"AMX\") #> [1] \"Beta-lactam antibacterials, penicillins\" ab_atc_group2(\"AMX\") #> [1] \"Penicillins with extended spectrum\" ab_url(\"AMX\") #>                                                             Amoxicillin  #> \"https://atcddd.fhi.no/atc_ddd_index//?code=J01CA04&showdescription=no\"   # smart lowercase transformation ab_name(x = c(\"AMC\", \"PLB\")) #> [1] \"Amoxicillin/clavulanic acid\" \"Polymyxin B\"                 ab_name(x = c(\"AMC\", \"PLB\"), tolower = TRUE) #> [1] \"amoxicillin/clavulanic acid\" \"polymyxin B\"                  # defined daily doses (DDD) ab_ddd(\"AMX\", \"oral\") #> [1] 1.5 ab_ddd_units(\"AMX\", \"oral\") #> [1] \"g\" ab_ddd(\"AMX\", \"iv\") #> [1] 3 ab_ddd_units(\"AMX\", \"iv\") #> [1] \"g\"  ab_info(\"AMX\") # all properties as a list #> $ab #> [1] \"AMX\" #>  #> $cid #> [1] 33613 #>  #> $name #> [1] \"Amoxicillin\" #>  #> $group #> [1] \"Beta-lactams/penicillins\" #>  #> $atc #> [1] \"J01CA04\" #>  #> $atc_group1 #> [1] \"Beta-lactam antibacterials, penicillins\" #>  #> $atc_group2 #> [1] \"Penicillins with extended spectrum\" #>  #> $tradenames #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            #>  #> $loinc #>  [1] \"101498-4\" \"15-8\"     \"16-6\"     \"16365-9\"  \"17-4\"     \"18-2\"     #>  [7] \"18861-5\"  \"18862-3\"  \"19-0\"     \"20-8\"     \"21-6\"     \"22-4\"     #> [13] \"25274-2\"  \"25310-4\"  \"3344-9\"   \"55614-2\"  \"55615-9\"  \"55616-7\"  #> [19] \"6976-5\"   \"6977-3\"   \"80133-2\"  #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 1.5 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 3 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all ab_* functions use as.ab() internally, so you can go from 'any' to 'any': ab_atc(\"AMP\") #> [1] \"J01CA01\" \"S01AA19\" ab_group(\"J01CA01\") #> [1] \"Beta-lactams/penicillins\" ab_loinc(\"ampicillin\") #>  [1] \"101477-8\" \"101478-6\" \"18864-9\"  \"18865-6\"  \"20374-5\"  \"21066-6\"  #>  [7] \"23618-2\"  \"27-3\"     \"28-1\"     \"29-9\"     \"30-7\"     \"31-5\"     #> [13] \"32-3\"     \"33-1\"     \"3355-5\"   \"33562-0\"  \"33919-2\"  \"34-9\"     #> [19] \"43883-8\"  \"43884-6\"  \"6979-9\"   \"6980-7\"   \"87604-5\"  ab_name(\"21066-6\") #> [1] \"Ampicillin\" ab_name(6249) #> [1] \"Ampicillin\" ab_name(\"J01CA01\") #> [1] \"Ampicillin\"  # spelling from different languages and dyslexia are no problem ab_atc(\"ceftriaxon\") #> [1] \"J01DD04\" ab_atc(\"cephtriaxone\") #> [1] \"J01DD04\" ab_atc(\"cephthriaxone\") #> [1] \"J01DD04\" ab_atc(\"seephthriaaksone\") #> [1] \"J01DD04\"  # use set_ab_names() for renaming columns colnames(example_isolates) #>  [1] \"date\"    \"patient\" \"age\"     \"gender\"  \"ward\"    \"mo\"      \"PEN\"     #>  [8] \"OXA\"     \"FLC\"     \"AMX\"     \"AMC\"     \"AMP\"     \"TZP\"     \"CZO\"     #> [15] \"FEP\"     \"CXM\"     \"FOX\"     \"CTX\"     \"CAZ\"     \"CRO\"     \"GEN\"     #> [22] \"TOB\"     \"AMK\"     \"KAN\"     \"TMP\"     \"SXT\"     \"NIT\"     \"FOS\"     #> [29] \"LNZ\"     \"CIP\"     \"MFX\"     \"VAN\"     \"TEC\"     \"TCY\"     \"TGC\"     #> [36] \"DOX\"     \"ERY\"     \"CLI\"     \"AZM\"     \"IPM\"     \"MEM\"     \"MTR\"     #> [43] \"CHL\"     \"COL\"     \"MUP\"     \"RIF\"     colnames(set_ab_names(example_isolates)) #>  [1] \"date\"                          \"patient\"                       #>  [3] \"age\"                           \"gender\"                        #>  [5] \"ward\"                          \"mo\"                            #>  [7] \"benzylpenicillin\"              \"oxacillin\"                     #>  [9] \"flucloxacillin\"                \"amoxicillin\"                   #> [11] \"amoxicillin_clavulanic_acid\"   \"ampicillin\"                    #> [13] \"piperacillin_tazobactam\"       \"cefazolin\"                     #> [15] \"cefepime\"                      \"cefuroxime\"                    #> [17] \"cefoxitin\"                     \"cefotaxime\"                    #> [19] \"ceftazidime\"                   \"ceftriaxone\"                   #> [21] \"gentamicin\"                    \"tobramycin\"                    #> [23] \"amikacin\"                      \"kanamycin\"                     #> [25] \"trimethoprim\"                  \"trimethoprim_sulfamethoxazole\" #> [27] \"nitrofurantoin\"                \"fosfomycin\"                    #> [29] \"linezolid\"                     \"ciprofloxacin\"                 #> [31] \"moxifloxacin\"                  \"vancomycin\"                    #> [33] \"teicoplanin\"                   \"tetracycline\"                  #> [35] \"tigecycline\"                   \"doxycycline\"                   #> [37] \"erythromycin\"                  \"clindamycin\"                   #> [39] \"azithromycin\"                  \"imipenem\"                      #> [41] \"meropenem\"                     \"metronidazole\"                 #> [43] \"chloramphenicol\"               \"colistin\"                      #> [45] \"mupirocin\"                     \"rifampicin\"                    colnames(set_ab_names(example_isolates, NIT:VAN)) #>  [1] \"date\"           \"patient\"        \"age\"            \"gender\"         #>  [5] \"ward\"           \"mo\"             \"PEN\"            \"OXA\"            #>  [9] \"FLC\"            \"AMX\"            \"AMC\"            \"AMP\"            #> [13] \"TZP\"            \"CZO\"            \"FEP\"            \"CXM\"            #> [17] \"FOX\"            \"CTX\"            \"CAZ\"            \"CRO\"            #> [21] \"GEN\"            \"TOB\"            \"AMK\"            \"KAN\"            #> [25] \"TMP\"            \"SXT\"            \"nitrofurantoin\" \"fosfomycin\"     #> [29] \"linezolid\"      \"ciprofloxacin\"  \"moxifloxacin\"   \"vancomycin\"     #> [33] \"TEC\"            \"TCY\"            \"TGC\"            \"DOX\"            #> [37] \"ERY\"            \"CLI\"            \"AZM\"            \"IPM\"            #> [41] \"MEM\"            \"MTR\"            \"CHL\"            \"COL\"            #> [45] \"MUP\"            \"RIF\"            # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     set_ab_names()    # this does the same:   example_isolates %>%     rename_with(set_ab_names)    # set_ab_names() works with any AB property:   example_isolates %>%     set_ab_names(property = \"atc\")    example_isolates %>%     set_ab_names(where(is.sir)) %>%     colnames()    example_isolates %>%     set_ab_names(NIT:VAN) %>%     colnames() } #>  [1] \"date\"           \"patient\"        \"age\"            \"gender\"         #>  [5] \"ward\"           \"mo\"             \"PEN\"            \"OXA\"            #>  [9] \"FLC\"            \"AMX\"            \"AMC\"            \"AMP\"            #> [13] \"TZP\"            \"CZO\"            \"FEP\"            \"CXM\"            #> [17] \"FOX\"            \"CTX\"            \"CAZ\"            \"CRO\"            #> [21] \"GEN\"            \"TOB\"            \"AMK\"            \"KAN\"            #> [25] \"TMP\"            \"SXT\"            \"nitrofurantoin\" \"fosfomycin\"     #> [29] \"linezolid\"      \"ciprofloxacin\"  \"moxifloxacin\"   \"vancomycin\"     #> [33] \"TEC\"            \"TCY\"            \"TGC\"            \"DOX\"            #> [37] \"ERY\"            \"CLI\"            \"AZM\"            \"IPM\"            #> [41] \"MEM\"            \"MTR\"            \"CHL\"            \"COL\"            #> [45] \"MUP\"            \"RIF\"            # }"},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":null,"dir":"Reference","previous_headings":"","what":"Add Custom Antimicrobials — add_custom_antimicrobials","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"add_custom_antimicrobials() can add custom antimicrobial drug names codes.","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"","code":"add_custom_antimicrobials(x)  clear_custom_antimicrobials()"},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"x data.frame resembling antibiotics data set, least containing columns \"ab\" \"name\"","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"Important: Due R works, add_custom_antimicrobials() function run every R session - added antimicrobials stored sessions thus lost R exited. two ways circumvent automate process adding antimicrobials: Method 1: Using package option AMR_custom_ab, preferred method. use method: Create data set structure antibiotics data set (containing least columns \"ab\" \"name\") save saveRDS() location choice, e.g. \"~/my_custom_ab.rds\", remote location. Set file location package option AMR_custom_ab: options(AMR_custom_ab = \"~/my_custom_ab.rds\"). can even remote file location, https URL. Since options saved R sessions, best save option .Rprofile file loaded start-R. , open .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"), add text save file:   Upon package load, file loaded run add_custom_antimicrobials() function. Method 2: Loading antimicrobial additions directly .Rprofile file. Note definitions stored user-specific R file, suboptimal workflow. use method: Edit .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"). Add text like save file:   Use clear_custom_antimicrobials() clear previously added antimicrobials.","code":"# Add custom antimicrobial codes: options(AMR_custom_ab = \"~/my_custom_ab.rds\") # Add custom antibiotic drug codes:  AMR::add_custom_antimicrobials(    data.frame(ab = \"TESTAB\",               name = \"Test Antibiotic\",               group = \"Test Group\")  )"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"","code":"# \\donttest{  # returns NA and throws a warning (which is suppressed here): suppressWarnings(   as.ab(\"testab\") ) #> Class 'ab' #> [1] <NA>  # now add a custom entry - it will be considered by as.ab() and # all ab_*() functions add_custom_antimicrobials(   data.frame(     ab = \"TESTAB\",     name = \"Test Antibiotic\",     # you can add any property present in the     # 'antibiotics' data set, such as 'group':     group = \"Test Group\"   ) ) #> ℹ Added one record to the internal antibiotics data set.  # \"testab\" is now a new antibiotic: as.ab(\"testab\") #> Class 'ab' #> [1] TESTAB ab_name(\"testab\") #> [1] \"Test Antibiotic\" ab_group(\"testab\") #> [1] \"Test Group\"  ab_info(\"testab\") #> $ab #> [1] \"TESTAB\" #>  #> $cid #> [1] NA #>  #> $name #> [1] \"Test Antibiotic\" #>  #> $group #> [1] \"Test Group\" #>  #> $atc #> [1] NA #>  #> $atc_group1 #> [1] NA #>  #> $atc_group2 #> [1] NA #>  #> $tradenames #> [1] NA #>  #> $loinc #> [1] NA #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] NA #>  #> $ddd$oral$units #> [1] NA #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] NA #>  #> $ddd$iv$units #> [1] NA #>  #>  #>    # Add Co-fluampicil, which is one of the many J01CR50 codes, see # https://atcddd.fhi.no/ddd/list_of_ddds_combined_products/ add_custom_antimicrobials(   data.frame(     ab = \"COFLU\",     name = \"Co-fluampicil\",     atc = \"J01CR50\",     group = \"Beta-lactams/penicillins\"   ) ) #> ℹ Added one record to the internal antibiotics data set. ab_atc(\"Co-fluampicil\") #> [1] \"J01CR50\" ab_name(\"J01CR50\") #> [1] \"Co-fluampicil\"  # even antibiotic selectors work x <- data.frame(   random_column = \"some value\",   coflu = as.sir(\"S\"),   ampicillin = as.sir(\"R\") ) x #>   random_column coflu ampicillin #> 1    some value     S          R x[, betalactams()] #> ℹ For betalactams() using columns 'coflu' (co-fluampicil) and #>   'ampicillin' #>   coflu ampicillin #> 1     S          R # }"},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Add Custom Microorganisms — add_custom_microorganisms","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"add_custom_microorganisms() can add custom microorganisms, non-taxonomic outcome laboratory analysis.","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"","code":"add_custom_microorganisms(x)  clear_custom_microorganisms()"},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"x data.frame resembling microorganisms data set, least containing column \"genus\" (case-insensitive)","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"function fill missing taxonomy , specific taxonomic columns missing, see Examples. Important: Due R works, add_custom_microorganisms() function run every R session - added microorganisms stored sessions thus lost R exited. two ways circumvent automate process adding microorganisms: Method 1: Using package option AMR_custom_mo, preferred method. use method: Create data set structure microorganisms data set (containing least column \"genus\") save saveRDS() location choice, e.g. \"~/my_custom_mo.rds\", remote location. Set file location package option AMR_custom_mo: options(AMR_custom_mo = \"~/my_custom_mo.rds\"). can even remote file location, https URL. Since options saved R sessions, best save option .Rprofile file loaded start-R. , open .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"), add text save file:   Upon package load, file loaded run add_custom_microorganisms() function. Method 2: Loading microorganism directly .Rprofile file. Note definitions stored user-specific R file, suboptimal workflow. use method: Edit .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"). Add text like save file:   Use clear_custom_microorganisms() clear previously added microorganisms.","code":"# Add custom microorganism codes: options(AMR_custom_mo = \"~/my_custom_mo.rds\") # Add custom antibiotic drug codes:  AMR::add_custom_microorganisms(    data.frame(genus = \"Enterobacter\",               species = \"asburiae/cloacae\")  )"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"","code":"# \\donttest{ # a combination of species is not formal taxonomy, so # this will result in \"Enterobacter cloacae cloacae\", # since it resembles the input best: mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter asburiae\"  # now add a custom entry - it will be considered by as.mo() and # all mo_*() functions add_custom_microorganisms(   data.frame(     genus = \"Enterobacter\",     species = \"asburiae/cloacae\"   ) ) #> ℹ Added Enterobacter asburiae/cloacae to the internal microorganisms data #>   set.  # E. asburiae/cloacae is now a new microorganism: mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter asburiae/cloacae\"  # its code: as.mo(\"Enterobacter asburiae/cloacae\") #> Class 'mo' #> [1] CUSTOM1_ENTRB_ASB/  # all internal algorithms will work as well: mo_name(\"Ent asburia cloacae\") #> [1] \"Enterobacter asburiae/cloacae\"  # and even the taxonomy was added based on the genus! mo_family(\"E. asburiae/cloacae\") #> [1] \"Enterobacteriaceae\" mo_gramstain(\"Enterobacter asburiae/cloacae\") #> [1] \"Gram-negative\"  mo_info(\"Enterobacter asburiae/cloacae\") #> $mo #> [1] \"CUSTOM1_ENTRB_ASB/\" #>  #> $rank #> [1] \"species\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Enterobacter\" #>  #> $species #> [1] \"asburiae/cloacae\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $oxygen_tolerance #> [1] NA #>  #> $url #> [1] \"\" #>  #> $ref #> [1] \"Self-added, 2024\" #>  #> $snomed #> [1] NA #>  #> $lpsn #> [1] NA #>  #> $mycobank #> [1] NA #>  #> $gbif #> [1] NA #>  #> $group_members #> character(0) #>    # the function tries to be forgiving: add_custom_microorganisms(   data.frame(     GENUS = \"BACTEROIDES / PARABACTEROIDES SLASHLINE\",     SPECIES = \"SPECIES\"   ) ) #> ℹ Added Bacteroides/Parabacteroides to the internal microorganisms data #>   set. mo_name(\"BACTEROIDES / PARABACTEROIDES\") #> [1] \"Bacteroides/Parabacteroides\" mo_rank(\"BACTEROIDES / PARABACTEROIDES\") #> [1] \"genus\"  # taxonomy still works, even though a slashline genus was given as input: mo_family(\"Bacteroides/Parabacteroides\") #> [1] \"Bacteroidaceae\"   # for groups and complexes, set them as species or subspecies: add_custom_microorganisms(   data.frame(     genus = \"Citrobacter\",     species = c(\"freundii\", \"braakii complex\"),     subspecies = c(\"complex\", \"\")   ) ) #> ℹ Added Citrobacter braakii complex and Citrobacter freundii complex to the #>   internal microorganisms data set. mo_name(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"Citrobacter freundii complex\" \"Citrobacter braakii complex\"  mo_species(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"freundii complex\" \"braakii complex\"  mo_gramstain(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"Gram-negative\" \"Gram-negative\" # }"},{"path":"https://msberends.github.io/AMR/reference/age.html","id":null,"dir":"Reference","previous_headings":"","what":"Age in Years of Individuals — age","title":"Age in Years of Individuals — age","text":"Calculates age years based reference date, system date default.","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Age in Years of Individuals — age","text":"","code":"age(x, reference = Sys.Date(), exact = FALSE, na.rm = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Age in Years of Individuals — age","text":"x date(s), character (vectors) coerced .POSIXlt() reference reference date(s) (default today), character (vectors) coerced .POSIXlt() exact logical indicate whether age calculation exact, .e. decimals. divides number days year--date (YTD) x number days year reference (either 365 366). na.rm logical indicate whether missing values removed ... arguments passed .POSIXlt(), origin","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Age in Years of Individuals — age","text":"integer (decimals) exact = FALSE, double (decimals) otherwise","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Age in Years of Individuals — age","text":"Ages 0 returned NA warning. Ages 120 give warning. function vectorises x reference, meaning either can length 1 argument larger length.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Age in Years of Individuals — age","text":"","code":"# 10 random pre-Y2K birth dates df <- data.frame(birth_date = as.Date(\"2000-01-01\") - runif(10) * 25000)  # add ages df$age <- age(df$birth_date)  # add exact ages df$age_exact <- age(df$birth_date, exact = TRUE)  # add age at millenium switch df$age_at_y2k <- age(df$birth_date, \"2000-01-01\")  df #>    birth_date age age_exact age_at_y2k #> 1  1965-12-05  59  59.03825         34 #> 2  1980-03-01  44  44.80055         19 #> 3  1949-11-01  75  75.13115         50 #> 4  1947-02-14  77  77.84426         52 #> 5  1940-02-19  84  84.83060         59 #> 6  1988-01-10  36  36.93989         11 #> 7  1997-08-27  27  27.31148          2 #> 8  1978-01-26  46  46.89617         21 #> 9  1972-06-17  52  52.50546         27 #> 10 1986-08-10  38  38.35792         13"},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":null,"dir":"Reference","previous_headings":"","what":"Split Ages into Age Groups — age_groups","title":"Split Ages into Age Groups — age_groups","text":"Split ages age groups defined split argument. allows easier demographic (antimicrobial resistance) analysis.","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Split Ages into Age Groups — age_groups","text":"","code":"age_groups(x, split_at = c(12, 25, 55, 75), na.rm = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Split Ages into Age Groups — age_groups","text":"x age, e.g. calculated age() split_at values split x - default age groups 0-11, 12-24, 25-54, 55-74 75+. See Details. na.rm logical indicate whether missing values removed","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Split Ages into Age Groups — age_groups","text":"Ordered factor","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Split Ages into Age Groups — age_groups","text":"split ages, input split_at argument can : numeric vector. value e.g. c(10, 20) split x 0-9, 10-19 20+. value 50 split x 0-49 50+. default split young children (0-11), youth (12-24), young adults (25-54), middle-aged adults (55-74) elderly (75+). character: \"children\" \"kids\", equivalent : c(0, 1, 2, 4, 6, 13, 18). split 0, 1, 2-3, 4-5, 6-12, 13-17 18+. \"elderly\" \"seniors\", equivalent : c(65, 75, 85). split 0-64, 65-74, 75-84, 85+. \"fives\", equivalent : 1:20 * 5. split 0-4, 5-9, ..., 95-99, 100+. \"tens\", equivalent : 1:10 * 10. split 0-9, 10-19, ..., 90-99, 100+.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Split Ages into Age Groups — age_groups","text":"","code":"ages <- c(3, 8, 16, 54, 31, 76, 101, 43, 21)  # split into 0-49 and 50+ age_groups(ages, 50) #> [1] 0-49 0-49 0-49 50+  0-49 50+  50+  0-49 0-49 #> Levels: 0-49 < 50+  # split into 0-19, 20-49 and 50+ age_groups(ages, c(20, 50)) #> [1] 0-19  0-19  0-19  50+   20-49 50+   50+   20-49 20-49 #> Levels: 0-19 < 20-49 < 50+  # split into groups of ten years age_groups(ages, 1:10 * 10) #> [1] 0-9   0-9   10-19 50-59 30-39 70-79 100+  40-49 20-29 #> 11 Levels: 0-9 < 10-19 < 20-29 < 30-39 < 40-49 < 50-59 < 60-69 < ... < 100+ age_groups(ages, split_at = \"tens\") #> [1] 0-9   0-9   10-19 50-59 30-39 70-79 100+  40-49 20-29 #> 11 Levels: 0-9 < 10-19 < 20-29 < 30-39 < 40-49 < 50-59 < 60-69 < ... < 100+  # split into groups of five years age_groups(ages, 1:20 * 5) #> [1] 0-4   5-9   15-19 50-54 30-34 75-79 100+  40-44 20-24 #> 21 Levels: 0-4 < 5-9 < 10-14 < 15-19 < 20-24 < 25-29 < 30-34 < ... < 100+ age_groups(ages, split_at = \"fives\") #> [1] 0-4   5-9   15-19 50-54 30-34 75-79 100+  40-44 20-24 #> 21 Levels: 0-4 < 5-9 < 10-14 < 15-19 < 20-24 < 25-29 < 30-34 < ... < 100+  # split specifically for children age_groups(ages, c(1, 2, 4, 6, 13, 18)) #> [1] 2-3   6-12  13-17 18+   18+   18+   18+   18+   18+   #> Levels: 0 < 1 < 2-3 < 4-5 < 6-12 < 13-17 < 18+ age_groups(ages, \"children\") #> [1] 2-3   6-12  13-17 18+   18+   18+   18+   18+   18+   #> Levels: 0 < 1 < 2-3 < 4-5 < 6-12 < 13-17 < 18+  # \\donttest{ # resistance of ciprofloxacin per age group if (require(\"dplyr\") && require(\"ggplot2\")) {   example_isolates %>%     filter_first_isolate() %>%     filter(mo == as.mo(\"Escherichia coli\")) %>%     group_by(age_group = age_groups(age)) %>%     select(age_group, CIP) %>%     ggplot_sir(       x = \"age_group\",       minimum = 0,       x.title = \"Age Group\",       title = \"Ciprofloxacin resistance per age group\"     ) } #> Loading required package: ggplot2  # }"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":null,"dir":"Reference","previous_headings":"","what":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"Create detailed antibiograms options traditional, combination, syndromic, Bayesian WISCA methods. Based approaches Klinker et al., Barbieri et al., Bayesian WISCA model (Weighted-Incidence Syndromic Combination Antibiogram) Bielicki et al., function provides flexible output formats including plots tables, ideal integration R Markdown Quarto reports.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"","code":"antibiogram(   x,   antibiotics = where(is.sir),   mo_transform = \"shortname\",   ab_transform = \"name\",   syndromic_group = NULL,   add_total_n = FALSE,   only_all_tested = FALSE,   digits = 0,   formatting_type = getOption(\"AMR_antibiogram_formatting_type\", 10),   col_mo = NULL,   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   sep = \" + \",   info = interactive() )  # S3 method for class 'antibiogram' plot(x, ...)  # S3 method for class 'antibiogram' autoplot(object, ...)  # S3 method for class 'antibiogram' knit_print(   x,   italicise = TRUE,   na = getOption(\"knitr.kable.NA\", default = \"\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"Bielicki JA et al. (2016). Selecting appropriate empirical antibiotic regimens paediatric bloodstream infections: application Bayesian decision model local pooled antimicrobial resistance surveillance data Journal Antimicrobial Chemotherapy 71(3); doi:10.1093/jac/dkv397 Klinker KP et al. (2021). Antimicrobial stewardship antibiograms: importance moving beyond traditional antibiograms. Therapeutic Advances Infectious Disease, May 5;8:20499361211011373; doi:10.1177/20499361211011373 Barbieri E et al. (2021). Development Weighted-Incidence Syndromic Combination Antibiogram (WISCA) guide choice empiric antibiotic treatment urinary tract infection paediatric patients: Bayesian approach Antimicrobial Resistance & Infection Control May 1;10(1):74; doi:10.1186/s13756-021-00939-2 M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"x data.frame containing least column microorganisms columns antibiotic results (class 'sir', see .sir()) antibiotics vector antibiotic name code (evaluated .ab(), column name x, (combinations ) antibiotic selectors aminoglycosides() carbapenems(). combination antibiograms, can also set values separated \"+\", \"TZP+TOB\" \"cipro + genta\", given columns resembling antibiotics exist x. See Examples. mo_transform character transform microorganism input - must \"name\", \"shortname\" (default), \"gramstain\", one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"mycobank\", \"mycobank_parent\", \"mycobank_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". Can also NULL transform input. ab_transform character transform antibiotic input - must one column names antibiotics data set (defaults \"name\"): \"ab\", \"cid\", \"name\", \"group\", \"atc\", \"atc_group1\", \"atc_group2\", \"abbreviations\", \"synonyms\", \"oral_ddd\", \"oral_units\", \"iv_ddd\", \"iv_units\", \"loinc\". Can also NULL transform input. syndromic_group column name x, values calculated split rows x, e.g. using ifelse() case_when(). See Examples. add_total_n logical indicate whether total available numbers per pathogen added table (default TRUE). add lowest highest number available isolate per antibiotic (e.g, E. coli 200 isolates available ciprofloxacin 150 amoxicillin, returned number \"150-200\"). only_all_tested (combination antibiograms): logical indicate isolates must tested antibiotics, see Details digits number digits use rounding susceptibility percentage formatting_type numeric value (1–12) indicating 'cells' antibiogram table formatted. See Details > Formatting Type list options. col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). language language translate text, defaults system language (see get_AMR_locale()) minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether susceptibility determined results either S, SDD, , instead S (default TRUE) sep separating character antibiotic columns combination antibiograms info logical indicate info printed - default TRUE interactive mode ... used R Markdown Quarto: arguments passed knitr::kable() (otherwise, use) object antibiogram() object italicise logical indicate whether microorganism names knitr table made italic, using italicise_taxonomy(). na character use showing NA values","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"function returns table values 0 100 susceptibility, resistance. Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine data set one four available algorithms.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"formatting-type","dir":"Reference","previous_headings":"","what":"Formatting Type","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"formatting 'cells' table can set argument formatting_type. examples, 5 susceptibility percentage, 15 numerator, 300 denominator: 5 15 300 15/300 5 (300) 5% (300) 5 (N=300) 5% (N=300) 5 (15/300) 5% (15/300) 5 (N=15/300) 5% (N=15/300) default 10, can set globally package option AMR_antibiogram_formatting_type, e.g. options(AMR_antibiogram_formatting_type = 5). Set digits (defaults 0) alter rounding susceptibility percentage.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"antibiogram-types","dir":"Reference","previous_headings":"","what":"Antibiogram Types","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"four antibiogram types, summarised Klinker et al. (2021, doi:10.1177/20499361211011373 ), supported antibiogram(). Use WISCA whenever possible, since provides precise coverage estimates accounting pathogen incidence antimicrobial susceptibility. See section Use WISCA? page. four antibiogram types: Traditional Antibiogram Case example: Susceptibility Pseudomonas aeruginosa piperacillin/tazobactam (TZP) Code example:   Combination Antibiogram Case example: Additional susceptibility Pseudomonas aeruginosa TZP + tobramycin versus TZP alone Code example:   Syndromic Antibiogram Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) Code example:   Weighted-Incidence Syndromic Combination Antibiogram (WISCA) WISCA enhances empirical antibiotic selection weighting incidence pathogens specific clinical syndromes combining susceptibility data. provides estimation regimen coverage aggregating pathogen incidences susceptibilities across potential causative organisms. See also section Use WISCA? page. Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) male patients age >=65 years heart failure Code example:   WISCA uses sophisticated Bayesian decision model combine local pooled antimicrobial resistance data. approach evaluates local patterns can also draw multi-centre datasets improve regimen accuracy, even low-incidence infections like paediatric bloodstream infections (BSIs).","code":"antibiogram(your_data,             antibiotics = \"TZP\") antibiogram(your_data,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\")) antibiogram(your_data,             antibiotics = penicillins(),             syndromic_group = \"ward\") library(dplyr) your_data %>%   filter(ward == \"ICU\" & specimen_type == \"Respiratory\") %>%   antibiogram(antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),               syndromic_group = ifelse(.$age >= 65 &                                          .$gender == \"Male\" &                                          .$condition == \"Heart Disease\",                                        \"Study Group\", \"Control Group\"))"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"inclusion-in-combination-antibiogram-and-syndromic-antibiogram","dir":"Reference","previous_headings":"","what":"Inclusion in Combination Antibiogram and Syndromic Antibiogram","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"Note types 2 3 (Combination Antibiogram Syndromic Antibiogram), important realise susceptibility can calculated two ways, can set only_all_tested argument (default FALSE). See example two antibiotics, Drug Drug B, antibiogram() works calculate %SI:","code":"--------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - --------------------------------------------------------------------"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"plotting","dir":"Reference","previous_headings":"","what":"Plotting","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"types antibiograms listed can plotted (using ggplot2::autoplot() base R's plot() barplot()). outcome antibiogram() can also used directly R Markdown / Quarto (.e., knitr) reports. case, knitr::kable() applied automatically microorganism names even printed italics default (see argument italicise). can also use functions specific 'table reporting' packages transform output antibiogram() needs, e.g. flextable::as_flextable() gt::gt().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"why-use-wisca-","dir":"Reference","previous_headings":"","what":"Why Use WISCA?","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"WISCA powerful tool guiding empirical antibiotic therapy provides precise coverage estimates accounting pathogen incidence antimicrobial susceptibility. particularly important empirical treatment, causative pathogen often unknown outset. Traditional antibiograms reflect weighted likelihood specific pathogens based clinical syndromes, can lead suboptimal treatment choices. Bayesian WISCA, described Bielicki et al. (2016), improves earlier methods handling uncertainties common smaller datasets, low-incidence infections. method offers significant advantage : Pooling Data Multiple Sources: WISCA uses pooled data multiple hospitals surveillance sources overcome limitations small sample sizes individual institutions, allowing confident selection narrow-spectrum antibiotics combinations. Bayesian Framework: Bayesian decision tree model accounts local data prior knowledge (inherent resistance patterns) estimate regimen coverage. allows precise estimation coverage, even cases susceptibility data missing incomplete. Incorporating Pathogen Regimen Uncertainty: WISCA allows clinicians see likelihood empirical regimen effective relevant pathogens, taking account uncertainties related pathogen prevalence antimicrobial resistance. leads better-informed, data-driven clinical decisions. Scenarios Optimising Treatment: hospitals settings low-incidence infections, WISCA helps determine whether local data sufficient pooling external data necessary. also identifies statistically significant differences similarities antibiotic regimens, enabling clinicians choose optimal therapies greater confidence. WISCA essential optimising empirical treatment shifting away broad-spectrum antibiotics, often overused empirical settings. offering precise estimates based syndromic patterns pooled data, WISCA supports antimicrobial stewardship guiding targeted therapy, reducing unnecessary broad-spectrum use, combating rise antimicrobial resistance.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # \\donttest{ # Traditional antibiogram ----------------------------------------------  antibiogram(example_isolates,   antibiotics = c(aminoglycosides(), carbapenems()) ) #> ℹ The function aminoglycosides() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(aminoglycosides()) #>   • your_data %>% select(column_a, column_b, aminoglycosides()) #>   • your_data %>% filter(any(aminoglycosides() == \"R\")) #>   • your_data[, aminoglycosides()] #>   • your_data[, c(\"column_a\", \"column_b\", aminoglycosides())] #>  #> Now returning a vector of all possible antimicrobials that #> aminoglycosides() can select. #> ℹ The function carbapenems() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(carbapenems()) #>   • your_data %>% select(column_a, column_b, carbapenems()) #>   • your_data %>% filter(any(carbapenems() == \"R\")) #>   • your_data[, carbapenems()] #>   • your_data[, c(\"column_a\", \"column_b\", carbapenems())] #>  #> Now returning a vector of all possible antimicrobials that carbapenems() #> can select. #> Warning: The following antibiotics were not available and ignored: #> amikacin/fosfomycin, apramycin, arbekacin, astromicin, bekanamycin, #> biapenem, dibekacin, doripenem, ertapenem, framycetin, gentamicin-high, #> habekacin, hygromycin, imipenem/EDTA, imipenem/relebactam, isepamicin, #> kanamycin-high, kanamycin/cephalexin, meropenem/nacubactam, #> meropenem/vaborbactam, micronomicin, neomycin, netilmicin, panipenem, #> pentisomicin, plazomicin, propikacin, razupenem, ribostamycin, ritipenem, #> ritipenem acoxil, sisomicin, streptoduocin, streptomycin, #> streptomycin-high, tebipenem, and tobramycin-high #> # An Antibiogram: 10 × 7 #>    Pathogen       Amikacin    Gentamicin Imipenem Kanamycin Meropenem Tobramycin #>  * <chr>          <chr>       <chr>      <chr>    <chr>     <chr>     <chr>      #>  1 CoNS           0% (0/43)   86% (267/… 52% (25… 0% (0/43) 52% (25/… 22% (12/5… #>  2 E. coli        100% (171/… 98% (451/… 100% (4… NA        100% (41… 97% (450/… #>  3 E. faecalis    0% (0/39)   0% (0/39)  100% (3… 0% (0/39) NA        0% (0/39)  #>  4 K. pneumoniae  NA          90% (52/5… 100% (5… NA        100% (53… 90% (52/5… #>  5 P. aeruginosa  NA          100% (30/… NA       0% (0/30) NA        100% (30/… #>  6 P. mirabilis   NA          94% (32/3… 94% (30… NA        NA        94% (32/3… #>  7 S. aureus      NA          99% (231/… NA       NA        NA        98% (84/8… #>  8 S. epidermidis 0% (0/44)   79% (128/… NA       0% (0/44) NA        51% (45/8… #>  9 S. hominis     NA          92% (74/8… NA       NA        NA        85% (53/6… #> 10 S. pneumoniae  0% (0/117)  0% (0/117) NA       0% (0/11… NA        0% (0/117) #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  antibiogram(example_isolates,   antibiotics = aminoglycosides(),   ab_transform = \"atc\",   mo_transform = \"gramstain\" ) #> ℹ The function aminoglycosides() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(aminoglycosides()) #>   • your_data %>% select(column_a, column_b, aminoglycosides()) #>   • your_data %>% filter(any(aminoglycosides() == \"R\")) #>   • your_data[, aminoglycosides()] #>   • your_data[, c(\"column_a\", \"column_b\", aminoglycosides())] #>  #> Now returning a vector of all possible antimicrobials that #> aminoglycosides() can select. #> Warning: The following antibiotics were not available and ignored: #> amikacin/fosfomycin, apramycin, arbekacin, astromicin, bekanamycin, #> dibekacin, framycetin, gentamicin-high, habekacin, hygromycin, isepamicin, #> kanamycin-high, kanamycin/cephalexin, micronomicin, neomycin, netilmicin, #> pentisomicin, plazomicin, propikacin, ribostamycin, sisomicin, #> streptoduocin, streptomycin, streptomycin-high, and tobramycin-high #> # An Antibiogram: 2 × 5 #>   Pathogen      J01GB01       J01GB03        J01GB04    J01GB06       #> * <chr>         <chr>         <chr>          <chr>      <chr>         #> 1 Gram-negative 96% (658/686) 96% (659/684)  0% (0/35)  98% (251/256) #> 2 Gram-positive 34% (228/665) 63% (740/1170) 0% (0/436) 0% (0/436)    #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  antibiogram(example_isolates,   antibiotics = carbapenems(),   ab_transform = \"name\",   mo_transform = \"name\" ) #> ℹ The function carbapenems() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(carbapenems()) #>   • your_data %>% select(column_a, column_b, carbapenems()) #>   • your_data %>% filter(any(carbapenems() == \"R\")) #>   • your_data[, carbapenems()] #>   • your_data[, c(\"column_a\", \"column_b\", carbapenems())] #>  #> Now returning a vector of all possible antimicrobials that carbapenems() #> can select. #> Warning: The following antibiotics were not available and ignored: biapenem, #> doripenem, ertapenem, imipenem/EDTA, imipenem/relebactam, #> meropenem/nacubactam, meropenem/vaborbactam, panipenem, razupenem, #> ritipenem, ritipenem acoxil, and tebipenem #> # An Antibiogram: 5 × 3 #>   Pathogen                                 Imipenem       Meropenem      #> * <chr>                                    <chr>          <chr>          #> 1 Coagulase-negative Staphylococcus (CoNS) 52% (25/48)    52% (25/48)    #> 2 Enterococcus faecalis                    100% (38/38)   NA             #> 3 Escherichia coli                         100% (422/422) 100% (418/418) #> 4 Klebsiella pneumoniae                    100% (51/51)   100% (53/53)   #> 5 Proteus mirabilis                        94% (30/32)    NA             #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram   # Combined antibiogram -------------------------------------------------  # combined antibiotics yield higher empiric coverage antibiogram(example_isolates,   antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),   mo_transform = \"gramstain\" ) #> # An Antibiogram: 2 × 4 #>   Pathogen  Piperacillin/tazobac…¹ Piperacillin/tazobac…² Piperacillin/tazobac…³ #> * <chr>     <chr>                  <chr>                  <chr>                  #> 1 Gram-neg… 88% (565/641)          99% (681/691)          98% (679/693)          #> 2 Gram-pos… 86% (296/345)          98% (1018/1044)        95% (524/550)          #> # ℹ abbreviated names: ¹​`Piperacillin/tazobactam`, #> #   ²​`Piperacillin/tazobactam + Gentamicin`, #> #   ³​`Piperacillin/tazobactam + Tobramycin` #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  # names of antibiotics do not need to resemble columns exactly: antibiogram(example_isolates,   antibiotics = c(\"Cipro\", \"cipro + genta\"),   mo_transform = \"gramstain\",   ab_transform = \"name\",   sep = \" & \" ) #> # An Antibiogram: 2 × 3 #>   Pathogen      Ciprofloxacin `Ciprofloxacin & Gentamicin` #> * <chr>         <chr>         <chr>                        #> 1 Gram-negative 91% (621/684) 99% (684/694)                #> 2 Gram-positive 77% (560/724) 93% (784/847)                #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram   # Syndromic antibiogram ------------------------------------------------  # the data set could contain a filter for e.g. respiratory specimens antibiogram(example_isolates,   antibiotics = c(aminoglycosides(), carbapenems()),   syndromic_group = \"ward\" ) #> ℹ The function aminoglycosides() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(aminoglycosides()) #>   • your_data %>% select(column_a, column_b, aminoglycosides()) #>   • your_data %>% filter(any(aminoglycosides() == \"R\")) #>   • your_data[, aminoglycosides()] #>   • your_data[, c(\"column_a\", \"column_b\", aminoglycosides())] #>  #> Now returning a vector of all possible antimicrobials that #> aminoglycosides() can select. #> ℹ The function carbapenems() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(carbapenems()) #>   • your_data %>% select(column_a, column_b, carbapenems()) #>   • your_data %>% filter(any(carbapenems() == \"R\")) #>   • your_data[, carbapenems()] #>   • your_data[, c(\"column_a\", \"column_b\", carbapenems())] #>  #> Now returning a vector of all possible antimicrobials that carbapenems() #> can select. #> Warning: The following antibiotics were not available and ignored: #> amikacin/fosfomycin, apramycin, arbekacin, astromicin, bekanamycin, #> biapenem, dibekacin, doripenem, ertapenem, framycetin, gentamicin-high, #> habekacin, hygromycin, imipenem/EDTA, imipenem/relebactam, isepamicin, #> kanamycin-high, kanamycin/cephalexin, meropenem/nacubactam, #> meropenem/vaborbactam, micronomicin, neomycin, netilmicin, panipenem, #> pentisomicin, plazomicin, propikacin, razupenem, ribostamycin, ritipenem, #> ritipenem acoxil, sisomicin, streptoduocin, streptomycin, #> streptomycin-high, tebipenem, and tobramycin-high #> # An Antibiogram: 14 × 8 #>    `Syndromic Group` Pathogen   Amikacin Gentamicin Imipenem Kanamycin Meropenem #>  * <chr>             <chr>      <chr>    <chr>      <chr>    <chr>     <chr>     #>  1 Clinical          CoNS       NA       89% (183/… 57% (20… NA        57% (20/… #>  2 ICU               CoNS       NA       79% (58/7… NA       NA        NA        #>  3 Outpatient        CoNS       NA       84% (26/3… NA       NA        NA        #>  4 Clinical          E. coli    100% (1… 98% (291/… 100% (2… NA        100% (27… #>  5 ICU               E. coli    100% (5… 99% (135/… 100% (1… NA        100% (11… #>  6 Clinical          K. pneumo… NA       92% (47/5… 100% (4… NA        100% (46… #>  7 Clinical          P. mirabi… NA       100% (30/… NA       NA        NA        #>  8 Clinical          S. aureus  NA       99% (148/… NA       NA        NA        #>  9 ICU               S. aureus  NA       100% (66/… NA       NA        NA        #> 10 Clinical          S. epider… NA       82% (65/7… NA       NA        NA        #> 11 ICU               S. epider… NA       72% (54/7… NA       NA        NA        #> 12 Clinical          S. hominis NA       96% (43/4… NA       NA        NA        #> 13 Clinical          S. pneumo… 0% (0/7… 0% (0/78)  NA       0% (0/78) NA        #> 14 ICU               S. pneumo… 0% (0/3… 0% (0/30)  NA       0% (0/30) NA        #> # ℹ 1 more variable: Tobramycin <chr> #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  # now define a data set with only E. coli ex1 <- example_isolates[which(mo_genus() == \"Escherichia\"), ] #> ℹ Using column 'mo' as input for mo_genus()  # with a custom language, though this will be determined automatically # (i.e., this table will be in Spanish on Spanish systems) antibiogram(ex1,   antibiotics = aminoglycosides(),   ab_transform = \"name\",   syndromic_group = ifelse(ex1$ward == \"ICU\",     \"UCI\", \"No UCI\"   ),   language = \"es\" ) #> ℹ The function aminoglycosides() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(aminoglycosides()) #>   • your_data %>% select(column_a, column_b, aminoglycosides()) #>   • your_data %>% filter(any(aminoglycosides() == \"R\")) #>   • your_data[, aminoglycosides()] #>   • your_data[, c(\"column_a\", \"column_b\", aminoglycosides())] #>  #> Now returning a vector of all possible antimicrobials that #> aminoglycosides() can select. #> Warning: The following antibiotics were not available and ignored: #> amikacin/fosfomycin, apramycin, arbekacin, astromicin, bekanamycin, #> dibekacin, framycetin, gentamicin-high, habekacin, hygromycin, isepamicin, #> kanamycin-high, kanamycin/cephalexin, micronomicin, neomycin, netilmicin, #> pentisomicin, plazomicin, propikacin, ribostamycin, sisomicin, #> streptoduocin, streptomycin, streptomycin-high, and tobramycin-high #> # An Antibiogram: 2 × 5 #>   `Grupo sindrómico` Patógeno Amikacina      Gentamicina   Tobramicina   #> * <chr>              <chr>    <chr>          <chr>         <chr>         #> 1 No UCI             E. coli  100% (119/119) 98% (316/323) 98% (318/325) #> 2 UCI                E. coli  100% (52/52)   99% (135/137) 96% (132/137) #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram   # Weighted-incidence syndromic combination antibiogram (WISCA) ---------  # the data set could contain a filter for e.g. respiratory specimens/ICU antibiogram(example_isolates,   antibiotics = c(\"AMC\", \"AMC+CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\",   minimum = 10, # this should be >=30, but now just as example   syndromic_group = ifelse(example_isolates$age >= 65 &     example_isolates$gender == \"M\",   \"WISCA Group 1\", \"WISCA Group 2\"   ) ) #> # An Antibiogram: 4 × 6 #>   `Syndromic Group` Pathogen      Amoxicillin/clavulani…¹ Amoxicillin/clavulan…² #> * <chr>             <chr>         <chr>                   <chr>                  #> 1 WISCA Group 1     Gram-negative 76% (216/285)           95% (270/284)          #> 2 WISCA Group 2     Gram-negative 76% (336/441)           98% (432/442)          #> 3 WISCA Group 1     Gram-positive 76% (310/406)           89% (347/392)          #> 4 WISCA Group 2     Gram-positive 76% (556/732)           89% (617/695)          #> # ℹ abbreviated names: ¹​`Amoxicillin/clavulanic acid`, #> #   ²​`Amoxicillin/clavulanic acid + Ciprofloxacin` #> # ℹ 2 more variables: `Piperacillin/tazobactam` <chr>, #> #   `Piperacillin/tazobactam + Tobramycin` <chr> #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram   # Print the output for R Markdown / Quarto -----------------------------  ureido <- antibiogram(example_isolates,   antibiotics = ureidopenicillins(),   ab_transform = \"name\" ) #> ℹ The function ureidopenicillins() should be used inside a dplyr verb #>   or data.frame call, e.g.: #>   • your_data %>% select(ureidopenicillins()) #>   • your_data %>% select(column_a, column_b, ureidopenicillins()) #>   • your_data %>% filter(any(ureidopenicillins() == \"R\")) #>   • your_data[, ureidopenicillins()] #>   • your_data[, c(\"column_a\", \"column_b\", ureidopenicillins())] #>  #> Now returning a vector of all possible antimicrobials that #> ureidopenicillins() can select. #> Warning: The following antibiotics were not available and ignored: azlocillin, #> mezlocillin, and piperacillin  # in an Rmd file, you would just need to return `ureido` in a chunk, # but to be explicit here: if (requireNamespace(\"knitr\")) {   cat(knitr::knit_print(ureido)) } #>  #>  #> |Pathogen        |Piperacillin/tazobactam | #> |:---------------|:-----------------------| #> |CoNS            |30% (10/33)             | #> |*E. coli*       |94% (393/416)           | #> |*K. pneumoniae* |89% (47/53)             | #> |*S. pneumoniae* |100% (112/112)          |   # Generate plots with ggplot2 or base R --------------------------------  ab1 <- antibiogram(example_isolates,   antibiotics = c(\"AMC\", \"CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\" ) ab2 <- antibiogram(example_isolates,   antibiotics = c(\"AMC\", \"CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\",   syndromic_group = \"ward\" )  if (requireNamespace(\"ggplot2\")) {   ggplot2::autoplot(ab1) }  if (requireNamespace(\"ggplot2\")) {   ggplot2::autoplot(ab2) }   plot(ab1)  plot(ab2)  # }"},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":null,"dir":"Reference","previous_headings":"","what":"Antibiotic Selectors — antibiotic_class_selectors","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"functions allow filtering rows selecting columns based antibiotic test results specific antibiotic class group (according antibiotics data set), without need define columns antibiotic abbreviations. short, column name resembles antimicrobial drug, picked functions matches pharmaceutical class: \"cefazolin\", \"kefzol\", \"CZO\" \"J01DB04\" picked cephalosporins().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"","code":"ab_class(ab_class, only_sir_columns = FALSE, only_treatable = TRUE, ...)  ab_selector(filter, only_sir_columns = FALSE, only_treatable = TRUE, ...)  aminoglycosides(only_sir_columns = FALSE, only_treatable = TRUE, ...)  aminopenicillins(only_sir_columns = FALSE, ...)  antifungals(only_sir_columns = FALSE, ...)  antimycobacterials(only_sir_columns = FALSE, ...)  betalactams(only_sir_columns = FALSE, only_treatable = TRUE, ...)  betalactams_with_inhibitor(only_sir_columns = FALSE, ...)  carbapenems(only_sir_columns = FALSE, only_treatable = TRUE, ...)  cephalosporins(only_sir_columns = FALSE, ...)  cephalosporins_1st(only_sir_columns = FALSE, ...)  cephalosporins_2nd(only_sir_columns = FALSE, ...)  cephalosporins_3rd(only_sir_columns = FALSE, ...)  cephalosporins_4th(only_sir_columns = FALSE, ...)  cephalosporins_5th(only_sir_columns = FALSE, ...)  fluoroquinolones(only_sir_columns = FALSE, ...)  glycopeptides(only_sir_columns = FALSE, ...)  lincosamides(only_sir_columns = FALSE, only_treatable = TRUE, ...)  lipoglycopeptides(only_sir_columns = FALSE, ...)  macrolides(only_sir_columns = FALSE, ...)  nitrofurans(only_sir_columns = FALSE, ...)  oxazolidinones(only_sir_columns = FALSE, ...)  penicillins(only_sir_columns = FALSE, ...)  polymyxins(only_sir_columns = FALSE, only_treatable = TRUE, ...)  quinolones(only_sir_columns = FALSE, ...)  rifamycins(only_sir_columns = FALSE, ...)  streptogramins(only_sir_columns = FALSE, ...)  tetracyclines(only_sir_columns = FALSE, ...)  trimethoprims(only_sir_columns = FALSE, ...)  ureidopenicillins(only_sir_columns = FALSE, ...)  administrable_per_os(only_sir_columns = FALSE, ...)  administrable_iv(only_sir_columns = FALSE, ...)  not_intrinsic_resistant(   only_sir_columns = FALSE,   col_mo = NULL,   version_expertrules = 3.3,   ... )"},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"ab_class antimicrobial class part , \"carba\" \"carbapenems\". columns group, atc_group1 atc_group2 antibiotics data set searched (case-insensitive) value. only_sir_columns logical indicate whether columns class sir must selected (default FALSE), see .sir() only_treatable logical indicate whether antimicrobial drugs excluded laboratory tests (default TRUE), gentamicin-high (GEH) imipenem/EDTA (IPE) ... ignored, place allow future extensions filter expression evaluated antibiotics data set, name %like% \"trim\" col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can \"3.3\", \"3.2\", \"3.1\".","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"used inside selecting filtering, returns character vector column names, additional class \"ab_selector\". used individually, returns 'ab' vector possible antimicrobial function able select filter.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"functions can used data set calls selecting columns filtering rows. work base R, Tidyverse, data.table. heavily inspired Tidyverse selection helpers everything(), limited dplyr verbs. Nonetheless, convenient use dplyr functions select(), filter() summarise(), see Examples. columns data functions called searched known antibiotic names, abbreviations, brand names, codes (ATC, EARS-Net, , etc.) according antibiotics data set. means selector aminoglycosides() pick column names like 'gen', 'genta', 'J01GB03', 'tobra', 'Tobracin', etc. ab_class() function can used filter/select manually defined antibiotic class. searches results antibiotics data set within columns group, atc_group1 atc_group2. ab_selector() function can used internally filter antibiotics data set results, see Examples. allows filtering (part ) certain name, /group name even minimum DDDs oral treatment. function yields highest flexibility, also least user-friendly, since requires hard-coded filter set. administrable_per_os() administrable_iv() functions also rely antibiotics data set - antibiotic columns matched DDD (defined daily dose) resp. oral IV treatment available antibiotics data set. not_intrinsic_resistant() function can used select antibiotic columns pose intrinsic resistance microorganisms data set. example, data set contains microorganism codes names E. coli K. pneumoniae contains column \"vancomycin\", column removed (rather, unselected) using function. currently applies 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021) determine intrinsic resistance, using eucast_rules() function internally. determination, function quite slow terms performance.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"full-list-of-supported-antibiotic-classes","dir":"Reference","previous_headings":"","what":"Full list of supported (antibiotic) classes","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"aminoglycosides() can select:  amikacin (AMK), amikacin/fosfomycin (AKF), apramycin (APR), arbekacin (ARB), astromicin (AST), bekanamycin (BEK), dibekacin (DKB), framycetin (FRM), gentamicin (GEN), gentamicin-high (GEH), habekacin (HAB), hygromycin (HYG), isepamicin (ISE), kanamycin (KAN), kanamycin-high (KAH), kanamycin/cephalexin (KAC), micronomicin (MCR), neomycin (NEO), netilmicin (NET), pentisomicin (PIM), plazomicin (PLZ), propikacin (PKA), ribostamycin (RST), sisomicin (SIS), streptoduocin (STR), streptomycin (STR1), streptomycin-high (STH), tobramycin (TOB), tobramycin-high (TOH) aminopenicillins() can select:  amoxicillin (AMX) ampicillin (AMP) antifungals() can select:  amorolfine (AMO), amphotericin B (AMB), amphotericin B-high (AMH), anidulafungin (ANI), butoconazole (), caspofungin (CAS), ciclopirox (CIX), clotrimazole (CTR), econazole (ECO), fluconazole (FLU), flucytosine (FCT), fosfluconazole (FFL), griseofulvin (GRI), hachimycin (HCH), ibrexafungerp (IBX), isavuconazole (ISV), isoconazole (ISO), itraconazole (ITR), ketoconazole (KET), manogepix (MGX), micafungin (MIF), miconazole (MCZ), nystatin (NYS), oteseconazole (OTE), pimaricin (PMR), posaconazole (POS), rezafungin (RZF), ribociclib (RBC), sulconazole (SUC), terbinafine (TRB), terconazole (TRC), voriconazole (VOR) antimycobacterials() can select:  4-aminosalicylic acid (AMA), calcium aminosalicylate (CLA), capreomycin (CAP), clofazimine (CLF), delamanid (DLM), enviomycin (ENV), ethambutol (ETH), ethambutol/isoniazid (ETI), ethionamide (ETI1), isoniazid (INH), isoniazid/sulfamethoxazole/trimethoprim/pyridoxine (IST), morinamide (MRN), p-aminosalicylic acid (PAS), pretomanid (PMD), protionamide (PTH), pyrazinamide (PZA), rifabutin (RIB), rifampicin (RIF), rifampicin/ethambutol/isoniazid (REI), rifampicin/isoniazid (RFI), rifampicin/pyrazinamide/ethambutol/isoniazid (RPEI), rifampicin/pyrazinamide/isoniazid (RPI), rifamycin (RFM), rifapentine (RFP), simvastatin/fenofibrate (SMF), sodium aminosalicylate (SDA), streptomycin/isoniazid (STI), terizidone (TRZ), thioacetazone (TAT), thioacetazone/isoniazid (THI1), tiocarlide (TCR), viomycin (VIO) betalactams() can select:  amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin (AMP), ampicillin/sulbactam (SAM), apalcillin (APL), aspoxicillin (APX), avibactam (AVB), azidocillin (AZD), azlocillin (AZL), aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), biapenem (BIA), carbenicillin (CRB), carindacillin (CRN), cefacetrile (CAC), cefaclor (CEC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefamandole (MAN), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/nacubactam (FNC), cefepime/tazobactam (FPT), cefetamet (CAT), cefetamet pivoxil (CPI), cefetecol (CCL), cefetrizole (CZL), cefiderocol (FDC), cefixime (CFM), cefmenoxime (CMX), cefmetazole (CMZ), cefodizime (DIZ), cefonicid (CID), cefoperazone (CFP), cefoperazone/sulbactam (CSL), ceforanide (CND), cefoselis (CSE), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotetan (CTT), cefotiam (CTF), cefotiam hexetil (CHE), cefovecin (FOV), cefoxitin (FOX), cefoxitin screening (FOX1), cefozopran (ZOP), cefpimizole (CFZ), cefpiramide (CPM), cefpirome (CPO), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefprozil (CPR), cefquinome (CEQ), cefroxadine (CRD), cefsulodin (CFS), cefsumide (CSU), ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftezole (CTL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), cefuroxime (CXM), cefuroxime axetil (CXA), cephradine (CED), ciclacillin (CIC), clometocillin (CLM), cloxacillin (CLO), dicloxacillin (DIC), doripenem (DOR), epicillin (EPC), ertapenem (ETP), flucloxacillin (FLC), hetacillin (HET), imipenem (IPM), imipenem/EDTA (IPE), imipenem/relebactam (IMR), latamoxef (LTM), lenampicillin (LEN), loracarbef (LOR), mecillinam (MEC), meropenem (MEM), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), metampicillin (MTM), meticillin (MET), mezlocillin (MEZ), mezlocillin/sulbactam (MSU), nacubactam (NAC), nafcillin (NAF), oxacillin (OXA), panipenem (PAN), penamecillin (PNM), penicillin/novobiocin (PNO), penicillin/sulbactam (PSU), pheneticillin (PHE), phenoxymethylpenicillin (PHN), piperacillin (PIP), piperacillin/sulbactam (PIS), piperacillin/tazobactam (TZP), piridicillin (PRC), pivampicillin (PVM), pivmecillinam (PME), procaine benzylpenicillin (PRB), propicillin (PRP), razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), sarmoxicillin (SRX), sulbactam (SUL), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), tazobactam (TAZ), tebipenem (TBP), temocillin (TEM), ticarcillin (TIC), ticarcillin/clavulanic acid (TCC) betalactams_with_inhibitor() can select:  amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin/sulbactam (SAM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), cefepime/clavulanic acid (CPC), cefepime/nacubactam (FNC), cefepime/tazobactam (FPT), cefoperazone/sulbactam (CSL), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefpodoxime/clavulanic acid (CDC), ceftaroline/avibactam (CPA), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), ceftolozane/tazobactam (CZT), ceftriaxone/beta-lactamase inhibitor (CEB), imipenem/relebactam (IMR), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), mezlocillin/sulbactam (MSU), penicillin/novobiocin (PNO), penicillin/sulbactam (PSU), piperacillin/sulbactam (PIS), piperacillin/tazobactam (TZP), ticarcillin/clavulanic acid (TCC) carbapenems() can select:  biapenem (BIA), doripenem (DOR), ertapenem (ETP), imipenem (IPM), imipenem/EDTA (IPE), imipenem/relebactam (IMR), meropenem (MEM), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), panipenem (PAN), razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), tebipenem (TBP) cephalosporins() can select:  cefacetrile (CAC), cefaclor (CEC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefamandole (MAN), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/tazobactam (FPT), cefetamet (CAT), cefetamet pivoxil (CPI), cefetecol (CCL), cefetrizole (CZL), cefiderocol (FDC), cefixime (CFM), cefmenoxime (CMX), cefmetazole (CMZ), cefodizime (DIZ), cefonicid (CID), cefoperazone (CFP), cefoperazone/sulbactam (CSL), ceforanide (CND), cefoselis (CSE), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotetan (CTT), cefotiam (CTF), cefotiam hexetil (CHE), cefovecin (FOV), cefoxitin (FOX), cefoxitin screening (FOX1), cefozopran (ZOP), cefpimizole (CFZ), cefpiramide (CPM), cefpirome (CPO), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefprozil (CPR), cefquinome (CEQ), cefroxadine (CRD), cefsulodin (CFS), cefsumide (CSU), ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftezole (CTL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), cefuroxime (CXM), cefuroxime axetil (CXA), cephradine (CED), latamoxef (LTM), loracarbef (LOR) cephalosporins_1st() can select:  cefacetrile (CAC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefroxadine (CRD), ceftezole (CTL), cephradine (CED) cephalosporins_2nd() can select:  cefaclor (CEC), cefamandole (MAN), cefmetazole (CMZ), cefonicid (CID), ceforanide (CND), cefotetan (CTT), cefotiam (CTF), cefoxitin (FOX), cefoxitin screening (FOX1), cefprozil (CPR), cefuroxime (CXM), cefuroxime axetil (CXA), loracarbef (LOR) cephalosporins_3rd() can select:  cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefetamet (CAT), cefetamet pivoxil (CPI), cefixime (CFM), cefmenoxime (CMX), cefodizime (DIZ), cefoperazone (CFP), cefoperazone/sulbactam (CSL), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotiam hexetil (CHE), cefovecin (FOV), cefpimizole (CFZ), cefpiramide (CPM), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefsulodin (CFS), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), latamoxef (LTM) cephalosporins_4th() can select:  cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/tazobactam (FPT), cefetecol (CCL), cefoselis (CSE), cefozopran (ZOP), cefpirome (CPO), cefquinome (CEQ) cephalosporins_5th() can select:  ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT) fluoroquinolones() can select:  besifloxacin (BES), ciprofloxacin (CIP), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nifuroquine (NIF), norfloxacin (), ofloxacin (OFX), orbifloxacin (ORB), pazufloxacin (PAZ), pefloxacin (PEF), pradofloxacin (PRA), premafloxacin (PRX), prulifloxacin (PRU), rufloxacin (RFL), sarafloxacin (SAR), sitafloxacin (SIT), sparfloxacin (SPX), temafloxacin (TMX), tilbroquinol (TBQ), tioxacin (TXC), tosufloxacin (TFX), trovafloxacin (TVA) glycopeptides() can select:  avoparcin (AVO), dalbavancin (DAL), norvancomycin (NVA), oritavancin (ORI), ramoplanin (RAM), teicoplanin (TEC), teicoplanin-macromethod (TCM), telavancin (TLV), vancomycin (VAN), vancomycin-macromethod (VAM) lincosamides() can select:  acetylmidecamycin (ACM), acetylspiramycin (ASP), clindamycin (CLI), clindamycin inducible screening (CLI1), gamithromycin (GAM), kitasamycin (KIT), lincomycin (LIN), meleumycin (MEL), nafithromycin (ZWK), pirlimycin (PRL), primycin (PRM), solithromycin (SOL), tildipirosin (TIP), tilmicosin (TIL), tulathromycin (TUL), tylosin (TYL), tylvalosin (TYL1) lipoglycopeptides() can select:  dalbavancin (DAL), oritavancin (ORI), telavancin (TLV) macrolides() can select:  acetylmidecamycin (ACM), acetylspiramycin (ASP), azithromycin (AZM), clarithromycin (CLR), dirithromycin (DIR), erythromycin (ERY), flurithromycin (FLR1), gamithromycin (GAM), josamycin (JOS), kitasamycin (KIT), meleumycin (MEL), midecamycin (MID), miocamycin (MCM), nafithromycin (ZWK), oleandomycin (OLE), pirlimycin (PRL), primycin (PRM), rokitamycin (ROK), roxithromycin (RXT), solithromycin (SOL), spiramycin (SPI), telithromycin (TLT), tildipirosin (TIP), tilmicosin (TIL), troleandomycin (TRL), tulathromycin (TUL), tylosin (TYL), tylvalosin (TYL1) nitrofurans() can select:  furazidin (FUR), furazolidone (FRZ), nifurtoinol (NFR), nitrofurantoin (NIT), nitrofurazone (NIZ) oxazolidinones() can select:  cadazolid (CDZ), cycloserine (CYC), linezolid (LNZ), tedizolid (TZD), thiacetazone (THA) penicillins() can select:  amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin (AMP), ampicillin/sulbactam (SAM), apalcillin (APL), aspoxicillin (APX), avibactam (AVB), azidocillin (AZD), azlocillin (AZL), aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), carbenicillin (CRB), carindacillin (CRN), cefepime/nacubactam (FNC), ciclacillin (CIC), clometocillin (CLM), cloxacillin (CLO), dicloxacillin (DIC), epicillin (EPC), flucloxacillin (FLC), hetacillin (HET), lenampicillin (LEN), mecillinam (MEC), metampicillin (MTM), meticillin (MET), mezlocillin (MEZ), mezlocillin/sulbactam (MSU), nacubactam (NAC), nafcillin (NAF), oxacillin (OXA), penamecillin (PNM), penicillin/novobiocin (PNO), penicillin/sulbactam (PSU), pheneticillin (PHE), phenoxymethylpenicillin (PHN), piperacillin (PIP), piperacillin/sulbactam (PIS), piperacillin/tazobactam (TZP), piridicillin (PRC), pivampicillin (PVM), pivmecillinam (PME), procaine benzylpenicillin (PRB), propicillin (PRP), sarmoxicillin (SRX), sulbactam (SUL), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), tazobactam (TAZ), temocillin (TEM), ticarcillin (TIC), ticarcillin/clavulanic acid (TCC) polymyxins() can select:  colistin (COL), polymyxin B (PLB), polymyxin B/polysorbate 80 (POP) quinolones() can select:  besifloxacin (BES), cinoxacin (CIN), ciprofloxacin (CIP), ciprofloxacin/metronidazole (CIM), ciprofloxacin/ornidazole (CIO), ciprofloxacin/tinidazole (CIT), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), flumequine (FLM), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nalidixic acid (NAL), nemonoxacin (NEM), nifuroquine (NIF), nitroxoline (NTR), norfloxacin (), ofloxacin (OFX), orbifloxacin (ORB), oxolinic acid (OXO), pazufloxacin (PAZ), pefloxacin (PEF), pipemidic acid (PPA), piromidic acid (PIR), pradofloxacin (PRA), premafloxacin (PRX), prulifloxacin (PRU), rosoxacin (ROS), rufloxacin (RFL), sarafloxacin (SAR), sitafloxacin (SIT), sparfloxacin (SPX), temafloxacin (TMX), tilbroquinol (TBQ), tioxacin (TXC), tosufloxacin (TFX), trovafloxacin (TVA) rifamycins() can select:  rifabutin (RIB), rifampicin (RIF), rifampicin/ethambutol/isoniazid (REI), rifampicin/isoniazid (RFI), rifampicin/pyrazinamide/ethambutol/isoniazid (RPEI), rifampicin/pyrazinamide/isoniazid (RPI), rifamycin (RFM), rifapentine (RFP) streptogramins() can select:  pristinamycin (PRI) quinupristin/dalfopristin (QDA) tetracyclines() can select:  cetocycline (CTO), chlortetracycline (CTE), clomocycline (CLM1), demeclocycline (DEM), doxycycline (DOX), eravacycline (ERV), lymecycline (LYM), metacycline (MTC), minocycline (MNO), omadacycline (OMC), oxytetracycline (OXY), penimepicycline (PNM1), rolitetracycline (RLT), sarecycline (SRC), tetracycline (TCY), tigecycline (TGC) trimethoprims() can select:  brodimoprim (BDP), sulfadiazine (SDI), sulfadiazine/tetroxoprim (SLT), sulfadiazine/trimethoprim (SLT1), sulfadimethoxine (SUD), sulfadimidine (SDM), sulfadimidine/trimethoprim (SLT2), sulfafurazole (SLF), sulfaisodimidine (SLF1), sulfalene (SLF2), sulfamazone (SZO), sulfamerazine (SLF3), sulfamerazine/trimethoprim (SLT3), sulfamethizole (SLF4), sulfamethoxazole (SMX), sulfamethoxypyridazine (SLF5), sulfametomidine (SLF6), sulfametoxydiazine (SLF7), sulfametrole/trimethoprim (SLT4), sulfamoxole (SLF8), sulfamoxole/trimethoprim (SLT5), sulfanilamide (SLF9), sulfaperin (SLF10), sulfaphenazole (SLF11), sulfapyridine (SLF12), sulfathiazole (SUT), sulfathiourea (SLF13), trimethoprim (TMP), trimethoprim/sulfamethoxazole (SXT) ureidopenicillins() can select:  azlocillin (AZL), mezlocillin (MEZ), piperacillin (PIP), piperacillin/tazobactam (TZP)","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …   # you can use the selectors separately to retrieve all possible antimicrobials: carbapenems() #> ℹ The function carbapenems() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(carbapenems()) #>   • your_data %>% select(column_a, column_b, carbapenems()) #>   • your_data %>% filter(any(carbapenems() == \"R\")) #>   • your_data[, carbapenems()] #>   • your_data[, c(\"column_a\", \"column_b\", carbapenems())] #>  #> Now returning a vector of all possible antimicrobials that carbapenems() #> can select. #> Class 'ab' #>  [1] BIA DOR ETP IMR IPE IPM MEM MEV MNC PAN RIA RIT RZM TBP   # Though they are primarily intended to use for selections and filters. # Examples sections below are split into 'dplyr', 'base R', and 'data.table':  # \\donttest{ if (FALSE) { # \\dontrun{ # dplyr -------------------------------------------------------------------  library(dplyr, warn.conflicts = FALSE)  example_isolates %>% select(carbapenems())  # select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB' example_isolates %>% select(mo, aminoglycosides())  # you can combine selectors like you are used with tidyverse # e.g., for betalactams, but not the ones with an enzyme inhibitor: example_isolates %>% select(betalactams(), -betalactams_with_inhibitor())  # select only antibiotic columns with DDDs for oral treatment example_isolates %>% select(administrable_per_os())  # get AMR for all aminoglycosides e.g., per ward: example_isolates %>%   group_by(ward) %>%   summarise(across(aminoglycosides(),                    resistance))  # You can combine selectors with '&' to be more specific: example_isolates %>%   select(penicillins() & administrable_per_os())  # get AMR for only drugs that matter - no intrinsic resistance: example_isolates %>%   filter(mo_genus() %in% c(\"Escherichia\", \"Klebsiella\")) %>%   group_by(ward) %>%   summarise_at(not_intrinsic_resistant(),                resistance)  # get susceptibility for antibiotics whose name contains \"trim\": example_isolates %>%   filter(first_isolate()) %>%   group_by(ward) %>%   summarise(across(ab_selector(name %like% \"trim\"), susceptibility))  # this will select columns 'IPM' (imipenem) and 'MEM' (meropenem): example_isolates %>%   select(carbapenems())  # this will select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB': example_isolates %>%   select(mo, aminoglycosides())  # any() and all() work in dplyr's filter() too: example_isolates %>%   filter(     any(aminoglycosides() == \"R\"),     all(cephalosporins_2nd() == \"R\")   )  # also works with c(): example_isolates %>%   filter(any(c(carbapenems(), aminoglycosides()) == \"R\"))  # not setting any/all will automatically apply all(): example_isolates %>%   filter(aminoglycosides() == \"R\")  # this will select columns 'mo' and all antimycobacterial drugs ('RIF'): example_isolates %>%   select(mo, ab_class(\"mycobact\"))  # get bug/drug combinations for only glycopeptides in Gram-positives: example_isolates %>%   filter(mo_is_gram_positive()) %>%   select(mo, glycopeptides()) %>%   bug_drug_combinations() %>%   format()  data.frame(   some_column = \"some_value\",   J01CA01 = \"S\" ) %>% # ATC code of ampicillin   select(penicillins()) # only the 'J01CA01' column will be selected  # with recent versions of dplyr, this is all equal: x <- example_isolates[carbapenems() == \"R\", ] y <- example_isolates %>% filter(carbapenems() == \"R\") z <- example_isolates %>% filter(if_all(carbapenems(), ~ .x == \"R\")) identical(x, y) && identical(y, z)  } # } # base R ------------------------------------------------------------------  # select columns 'IPM' (imipenem) and 'MEM' (meropenem) example_isolates[, carbapenems()] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 2,000 × 2 #>    IPM   MEM   #>    <sir> <sir> #>  1 NA    NA    #>  2 NA    NA    #>  3 NA    NA    #>  4 NA    NA    #>  5 NA    NA    #>  6 NA    NA    #>  7 NA    NA    #>  8 NA    NA    #>  9 NA    NA    #> 10 NA    NA    #> # ℹ 1,990 more rows  # select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB' example_isolates[, c(\"mo\", aminoglycosides())] #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2,000 × 5 #>    mo           GEN   TOB   AMK   KAN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI NA    NA    NA    NA    #>  2 B_ESCHR_COLI NA    NA    NA    NA    #>  3 B_STPHY_EPDR NA    NA    NA    NA    #>  4 B_STPHY_EPDR NA    NA    NA    NA    #>  5 B_STPHY_EPDR NA    NA    NA    NA    #>  6 B_STPHY_EPDR NA    NA    NA    NA    #>  7 B_STPHY_AURS NA    S     NA    NA    #>  8 B_STPHY_AURS NA    S     NA    NA    #>  9 B_STPHY_EPDR NA    NA    NA    NA    #> 10 B_STPHY_EPDR NA    NA    NA    NA    #> # ℹ 1,990 more rows  # select only antibiotic columns with DDDs for oral treatment example_isolates[, administrable_per_os()] #> ℹ For administrable_per_os() using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 23 #>    OXA   FLC   AMX   AMC   AMP   CXM   KAN   TMP   NIT   FOS   LNZ   CIP   MFX   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    I     NA    R     NA    NA    R     NA    NA    #>  2 NA    NA    NA    I     NA    I     NA    R     NA    NA    R     NA    NA    #>  3 NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    NA    NA    #>  4 NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    NA    NA    #>  5 NA    R     NA    NA    NA    R     NA    R     NA    NA    NA    NA    NA    #>  6 NA    R     NA    NA    NA    R     NA    R     NA    NA    NA    NA    NA    #>  7 NA    S     R     S     R     S     NA    R     NA    NA    NA    NA    NA    #>  8 NA    S     R     S     R     S     NA    R     NA    NA    NA    NA    NA    #>  9 NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    S     NA    #> 10 NA    S     NA    NA    NA    S     NA    S     NA    NA    NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 10 more variables: VAN <sir>, TCY <sir>, DOX <sir>, ERY <sir>, CLI <sir>, #> #   AZM <sir>, MTR <sir>, CHL <sir>, COL <sir>, RIF <sir>  # filter using any() or all() example_isolates[any(carbapenems() == \"R\"), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 55 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  2 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  3 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP R     NA    NA    R     #>  4 2005-04-21 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  5 2005-04-22 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  6 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  7 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  8 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  9 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> 10 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> # ℹ 45 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … subset(example_isolates, any(carbapenems() == \"R\")) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 55 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  2 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  3 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP R     NA    NA    R     #>  4 2005-04-21 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  5 2005-04-22 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  6 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  7 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  8 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  9 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> 10 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> # ℹ 45 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter on any or all results in the carbapenem columns (i.e., IPM, MEM): example_isolates[any(carbapenems()), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Filtering any of columns 'IPM' and 'MEM' to contain value \"S\", \"I\" or \"R\" #> # A tibble: 962 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  4 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  5 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  6 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  7 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  8 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN R     NA    NA    R     #>  9 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN R     NA    NA    R     #> 10 2002-03-08 4FC193     69 M      Clinical B_ESCHR_COLI R     NA    NA    R     #> # ℹ 952 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … example_isolates[all(carbapenems()), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Filtering all of columns 'IPM' and 'MEM' to contain value \"S\", \"I\" or \"R\" #> # A tibble: 756 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-04-14 F30196     73 M      Outpat… B_STRPT_GRPB  S     NA    S     S     #>  2 2003-04-08 114570     74 M      ICU     B_STRPT_PYGN  S     NA    S     S     #>  3 2003-04-08 114570     74 M      ICU     B_STRPT_GRPA  S     NA    S     S     #>  4 2003-04-08 114570     74 M      ICU     B_STRPT_GRPA  S     NA    S     S     #>  5 2003-08-14 F71508      0 F      Clinic… B_STRPT_GRPB  S     NA    S     S     #>  6 2003-10-16 650870     63 F      ICU     B_ESCHR_COLI  R     NA    NA    R     #>  7 2003-10-20 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  8 2003-10-20 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  9 2003-11-04 2FC253     87 F      ICU     B_ESCHR_COLI  R     NA    NA    NA    #> 10 2003-11-04 2FC253     87 F      ICU     B_ESCHR_COLI  R     NA    NA    NA    #> # ℹ 746 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter with multiple antibiotic selectors using c() example_isolates[all(c(carbapenems(), aminoglycosides()) == \"R\"), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 26 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP R     NA    NA    R     #>  2 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  3 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  4 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  5 2008-12-06 501361     43 F      Clinical B_STNTR_MLTP R     NA    NA    R     #>  6 2011-05-09 207325     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  7 2012-03-12 582258     80 M      ICU      B_STPHY_CONS R     R     R     R     #>  8 2012-05-19 C25552     89 F      Outpati… B_STPHY_CONS R     R     R     R     #>  9 2012-07-17 F05015     83 M      ICU      B_STPHY_CONS R     R     R     R     #> 10 2012-07-20 404299     66 F      Clinical B_STPHY_CONS R     R     R     R     #> # ℹ 16 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter + select in one go: get penicillins in carbapenem-resistant strains example_isolates[any(carbapenems() == \"R\"), penicillins()] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> # A tibble: 55 × 7 #>    PEN   OXA   FLC   AMX   AMC   AMP   TZP   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    NA    NA    NA    NA    #>  2 NA    NA    NA    NA    NA    NA    NA    #>  3 R     NA    NA    R     R     R     R     #>  4 NA    NA    NA    NA    NA    NA    R     #>  5 NA    NA    NA    NA    NA    NA    R     #>  6 NA    NA    NA    NA    NA    NA    R     #>  7 NA    NA    NA    NA    NA    NA    R     #>  8 NA    NA    NA    NA    NA    NA    R     #>  9 R     NA    NA    NA    S     NA    S     #> 10 R     NA    NA    NA    S     NA    S     #> # ℹ 45 more rows  # You can combine selectors with '&' to be more specific. For example, # penicillins() would select benzylpenicillin ('peni G') and # administrable_per_os() would select erythromycin. Yet, when combined these # drugs are both omitted since benzylpenicillin is not administrable per os # and erythromycin is not a penicillin: example_isolates[, penicillins() & administrable_per_os()] #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> ℹ For administrable_per_os() using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 5 #>    OXA   FLC   AMX   AMC   AMP   #>    <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    #>  2 NA    NA    NA    I     NA    #>  3 NA    R     NA    NA    NA    #>  4 NA    R     NA    NA    NA    #>  5 NA    R     NA    NA    NA    #>  6 NA    R     NA    NA    NA    #>  7 NA    S     R     S     R     #>  8 NA    S     R     S     R     #>  9 NA    R     NA    NA    NA    #> 10 NA    S     NA    NA    NA    #> # ℹ 1,990 more rows  # ab_selector() applies a filter in the `antibiotics` data set and is thus # very flexible. For instance, to select antibiotic columns with an oral DDD # of at least 1 gram: example_isolates[, ab_selector(oral_ddd > 1 & oral_units == \"g\")] #> ℹ For ab_selector(oral_ddd > 1 & oral_units == \"g\") using columns 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), 'KAN' (kanamycin), 'FOS' #>   (fosfomycin), 'LNZ' (linezolid), 'VAN' (vancomycin), 'ERY' (erythromycin), #>   'CLI' (clindamycin), 'MTR' (metronidazole), and 'CHL' (chloramphenicol) #> # A tibble: 2,000 × 13 #>    OXA   FLC   AMX   AMC   AMP   KAN   FOS   LNZ   VAN   ERY   CLI   MTR   CHL   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    NA    NA    R     R     R     R     NA    NA    #>  2 NA    NA    NA    I     NA    NA    NA    R     R     R     R     NA    NA    #>  3 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #>  4 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #>  5 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #>  6 NA    R     NA    NA    NA    NA    NA    NA    S     R     R     NA    NA    #>  7 NA    S     R     S     R     NA    NA    NA    S     S     NA    NA    NA    #>  8 NA    S     R     S     R     NA    NA    NA    S     S     NA    NA    NA    #>  9 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #> 10 NA    S     NA    NA    NA    NA    NA    NA    S     S     NA    NA    NA    #> # ℹ 1,990 more rows   # data.table --------------------------------------------------------------  # data.table is supported as well, just use it in the same way as with # base R, but add `with = FALSE` if using a single AB selector.  if (require(\"data.table\")) {   dt <- as.data.table(example_isolates)    # this does not work, it returns column *names*   dt[, carbapenems()] } #> Loading required package: data.table #>  #> Attaching package: ‘data.table’ #> The following objects are masked from ‘package:dplyr’: #>  #>     between, first, last #> The following objects are masked from ‘package:AMR’: #>  #>     %like%, like #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> Warning: It should never be needed to print an antibiotic selector class. Are you #> using data.table? Then add the argument with = FALSE, see our examples at #> ?ab_selector. #> Class 'ab_selector' #> [1] IPM MEM if (require(\"data.table\")) {   # so `with = FALSE` is required   dt[, carbapenems(), with = FALSE] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #>         IPM   MEM #>       <sir> <sir> #>    1:  <NA>  <NA> #>    2:  <NA>  <NA> #>    3:  <NA>  <NA> #>    4:  <NA>  <NA> #>    5:  <NA>  <NA> #>   ---             #> 1996:  <NA>  <NA> #> 1997:     S     S #> 1998:     S     S #> 1999:     S     S #> 2000:     S     S  # for multiple selections or AB selectors, `with = FALSE` is not needed: if (require(\"data.table\")) {   dt[, c(\"mo\", aminoglycosides())] } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #>                 mo   GEN   TOB   AMK   KAN #>               <mo> <sir> <sir> <sir> <sir> #>    1: B_ESCHR_COLI  <NA>  <NA>  <NA>  <NA> #>    2: B_ESCHR_COLI  <NA>  <NA>  <NA>  <NA> #>    3: B_STPHY_EPDR  <NA>  <NA>  <NA>  <NA> #>    4: B_STPHY_EPDR  <NA>  <NA>  <NA>  <NA> #>    5: B_STPHY_EPDR  <NA>  <NA>  <NA>  <NA> #>   ---                                      #> 1996: B_STRPT_PNMN     R     R     R     R #> 1997: B_ESCHR_COLI     S     S     S  <NA> #> 1998: B_STPHY_CONS     S  <NA>  <NA>  <NA> #> 1999: B_ESCHR_COLI     S     S  <NA>  <NA> #> 2000: B_KLBSL_PNMN     S     S  <NA>  <NA> if (require(\"data.table\")) {   dt[, c(carbapenems(), aminoglycosides())] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #>         IPM   MEM   GEN   TOB   AMK   KAN #>       <sir> <sir> <sir> <sir> <sir> <sir> #>    1:  <NA>  <NA>  <NA>  <NA>  <NA>  <NA> #>    2:  <NA>  <NA>  <NA>  <NA>  <NA>  <NA> #>    3:  <NA>  <NA>  <NA>  <NA>  <NA>  <NA> #>    4:  <NA>  <NA>  <NA>  <NA>  <NA>  <NA> #>    5:  <NA>  <NA>  <NA>  <NA>  <NA>  <NA> #>   ---                                     #> 1996:  <NA>  <NA>     R     R     R     R #> 1997:     S     S     S     S     S  <NA> #> 1998:     S     S     S  <NA>  <NA>  <NA> #> 1999:     S     S     S     S  <NA>  <NA> #> 2000:     S     S     S     S  <NA>  <NA>  # row filters are also supported: if (require(\"data.table\")) {   dt[any(carbapenems() == \"S\"), ] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #>            date patient   age gender       ward           mo   PEN   OXA   FLC #>          <Date>  <char> <num> <char>     <char>         <mo> <sir> <sir> <sir> #>   1: 2002-01-19  738003    71      M   Clinical B_ESCHR_COLI     R  <NA>  <NA> #>   2: 2002-01-19  738003    71      M   Clinical B_ESCHR_COLI     R  <NA>  <NA> #>   3: 2002-01-22  F35553    50      M        ICU B_PROTS_MRBL     R  <NA>  <NA> #>   4: 2002-01-22  F35553    50      M        ICU B_PROTS_MRBL     R  <NA>  <NA> #>   5: 2002-02-05  067927    45      F        ICU B_SERRT_MRCS     R  <NA>  <NA> #>  ---                                                                           #> 905: 2005-04-12  D71461    70      M        ICU B_ESCHR_COLI     R  <NA>  <NA> #> 906: 2009-11-12  650870    69      F Outpatient B_ESCHR_COLI     R  <NA>  <NA> #> 907: 2012-06-14  8CBCF2    41      F   Clinical B_STPHY_CONS     R     S     S #> 908: 2012-10-11  175532    78      M   Clinical B_ESCHR_COLI     R  <NA>  <NA> #> 909: 2013-11-23  A97263    77      M   Clinical B_KLBSL_PNMN     R  <NA>  <NA> #>        AMX   AMC   AMP   TZP   CZO   FEP   CXM   FOX   CTX   CAZ   CRO   GEN #>      <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>   1:  <NA>     I  <NA>  <NA>  <NA>  <NA>     S  <NA>     S  <NA>     S  <NA> #>   2:  <NA>     I  <NA>  <NA>  <NA>  <NA>     S  <NA>     S  <NA>     S  <NA> #>   3:  <NA>     I  <NA>  <NA>  <NA>  <NA>     S  <NA>     S     S     S  <NA> #>   4:  <NA>     I  <NA>  <NA>  <NA>  <NA>     S  <NA>     S     S     S  <NA> #>   5:     R     R     R  <NA>     R  <NA>     R     R  <NA>  <NA>  <NA>  <NA> #>  ---                                                                         #> 905:     S     S     S     S  <NA>     S     S     S     S     S     S     S #> 906:     S     S     S     S     S     S     S     S     S     S     S     S #> 907:  <NA>     S  <NA>  <NA>     S     S     S     S     S     R     S     S #> 908:     R     S     R     S  <NA>     S     R     R     S     S     S     S #> 909:     R     S     R     S  <NA>     S     S     S     S     S     S     S #>        TOB   AMK   KAN   TMP   SXT   NIT   FOS   LNZ   CIP   MFX   VAN   TEC #>      <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>   1:     S  <NA>  <NA>     S     S  <NA>  <NA>     R  <NA>  <NA>     R     R #>   2:     S  <NA>  <NA>     S     S  <NA>  <NA>     R  <NA>  <NA>     R     R #>   3:  <NA>  <NA>  <NA>     S     S     R  <NA>     R     S  <NA>     R     R #>   4:  <NA>  <NA>  <NA>     S     S     R  <NA>     R     S  <NA>     R     R #>   5:  <NA>  <NA>  <NA>     S     S     R  <NA>     R     S  <NA>     R     R #>  ---                                                                         #> 905:     S     S  <NA>  <NA>     S     S  <NA>     R     S  <NA>     R     R #> 906:     S     S  <NA>     S     S     S  <NA>     R     S  <NA>     R     R #> 907:  <NA>  <NA>  <NA>     S     S  <NA>  <NA>  <NA>     S  <NA>     S  <NA> #> 908:     S  <NA>  <NA>     R     R     R  <NA>     R     R     R     R     R #> 909:     S  <NA>  <NA>     S     S     S  <NA>     R     S  <NA>     R     R #>        TCY   TGC   DOX   ERY   CLI   AZM   IPM   MEM   MTR   CHL   COL   MUP #>      <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>   1:  <NA>  <NA>  <NA>     R     R     R     S  <NA>  <NA>  <NA>  <NA>  <NA> #>   2:  <NA>  <NA>  <NA>     R     R     R     S  <NA>  <NA>  <NA>  <NA>  <NA> #>   3:     R     R     R     R     R     R     S  <NA>  <NA>  <NA>     R  <NA> #>   4:     R     R     R     R     R     R     S  <NA>  <NA>  <NA>     R  <NA> #>   5:     R     R     R     R     R     R     S  <NA>  <NA>  <NA>     R  <NA> #>  ---                                                                         #> 905:  <NA>  <NA>  <NA>     R     R     R     S     S  <NA>  <NA>  <NA>  <NA> #> 906:  <NA>  <NA>  <NA>     R     R     R     S     S  <NA>  <NA>  <NA>  <NA> #> 907:  <NA>  <NA>  <NA>     S     S     S     S     S  <NA>  <NA>     R  <NA> #> 908:  <NA>  <NA>  <NA>     R     R     R     S     S  <NA>  <NA>     S  <NA> #> 909:  <NA>  <NA>  <NA>     R     R     R     S     S  <NA>  <NA>     S  <NA> #>        RIF #>      <sir> #>   1:     R #>   2:     R #>   3:     R #>   4:     R #>   5:     R #>  ---       #> 905:     R #> 906:     R #> 907:  <NA> #> 908:     R #> 909:     R if (require(\"data.table\")) {   dt[any(carbapenems() == \"S\"), penicillins(), with = FALSE] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #>        PEN   OXA   FLC   AMX   AMC   AMP   TZP #>      <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>   1:     R  <NA>  <NA>  <NA>     I  <NA>  <NA> #>   2:     R  <NA>  <NA>  <NA>     I  <NA>  <NA> #>   3:     R  <NA>  <NA>  <NA>     I  <NA>  <NA> #>   4:     R  <NA>  <NA>  <NA>     I  <NA>  <NA> #>   5:     R  <NA>  <NA>     R     R     R  <NA> #>  ---                                           #> 905:     R  <NA>  <NA>     S     S     S     S #> 906:     R  <NA>  <NA>     S     S     S     S #> 907:     R     S     S  <NA>     S  <NA>  <NA> #> 908:     R  <NA>  <NA>     R     S     R     S #> 909:     R  <NA>  <NA>     R     S     R     S # }"},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Sets with 605 Antimicrobial Drugs — antibiotics","title":"Data Sets with 605 Antimicrobial Drugs — antibiotics","text":"Two data sets containing antibiotics/antimycotics antivirals. Use .ab() one ab_* functions retrieve values antibiotics data set. Three identifiers included data set: antibiotic ID (ab, primarily used package) defined WHONET/EARS-Net, ATC code (atc) defined , Compound ID (cid) found PubChem. properties data set derived one codes. Note drugs multiple ATC codes.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Sets with 605 Antimicrobial Drugs — antibiotics","text":"","code":"antibiotics  antivirals"},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Sets with 605 Antimicrobial Drugs — antibiotics","text":"object class tbl_df (inherits tbl, data.frame) 120 rows 11 columns.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"for-the-antibiotics-data-set-a-tibble-with-observations-and-variables-","dir":"Reference","previous_headings":"","what":"For the antibiotics data set: a tibble with 485 observations and 14 variables:","title":"Data Sets with 605 Antimicrobial Drugs — antibiotics","text":"ab Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available. unique identifier. cid Compound ID found PubChem. unique identifier. name Official name used WHONET/EARS-Net . unique identifier. group short concise group name, based WHONET WHOCC definitions atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC, like J01CR02 atc_group1 Official pharmacological subgroup (3rd level ATC code) defined WHOCC, like \"Macrolides, lincosamides streptogramins\" atc_group2 Official chemical subgroup (4th level ATC code) defined WHOCC, like \"Macrolides\" abbr List abbreviations used many countries, also antibiotic susceptibility testing (AST) synonyms Synonyms (often trade names) drug, found PubChem based compound ID oral_ddd Defined Daily Dose (DDD), oral treatment, currently available 179 drugs oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral (intravenous) treatment, currently available 153 drugs iv_units Units iv_ddd loinc codes associated name antimicrobial drug Logical Observation Identifiers Names Codes (LOINC), Version 2.76 (18 September, 2023). Use ab_loinc() retrieve quickly, see ab_property().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"for-the-antivirals-data-set-a-tibble-with-observations-and-variables-","dir":"Reference","previous_headings":"","what":"For the antivirals data set: a tibble with 120 observations and 11 variables:","title":"Data Sets with 605 Antimicrobial Drugs — antibiotics","text":"av Antiviral ID used package (ACI), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available. unique identifier. Combinations codes contain + indicate , ATA+COBI atazanavir/cobicistat. name Official name used WHONET/EARS-Net . unique identifier. atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC cid Compound ID found PubChem. unique identifier. atc_group Official pharmacological subgroup (3rd level ATC code) defined WHOCC synonyms Synonyms (often trade names) drug, found PubChem based compound ID oral_ddd Defined Daily Dose (DDD), oral treatment oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral treatment iv_units Units iv_ddd loinc codes associated name antiviral drug Logical Observation Identifiers Names Codes (LOINC), Version 2.76 (18 September, 2023). Use av_loinc() retrieve quickly, see av_property().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Sets with 605 Antimicrobial Drugs — antibiotics","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology (WHOCC): https://atcddd.fhi./atc_ddd_index/ Logical Observation Identifiers Names Codes (LOINC), Version 2.76 (18 September, 2023). Accessed https://loinc.org October 19th, 2023. European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Sets with 605 Antimicrobial Drugs — antibiotics","text":"Properties based ATC code available ATC available. properties : atc_group1, atc_group2, oral_ddd, oral_units, iv_ddd iv_units. Synonyms (.e. trade names) derived PubChem Compound ID (column cid) consequently available CID available.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Sets with 605 Antimicrobial Drugs — antibiotics","text":"Like data sets package, data sets publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Data Sets with 605 Antimicrobial Drugs — antibiotics","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://atcddd.fhi.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://atcddd.fhi./copyright_disclaimer/.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Sets with 605 Antimicrobial Drugs — antibiotics","text":"","code":"antibiotics #> # A tibble: 485 × 14 #>    ab        cid name   group atc   atc_group1 atc_group2 abbreviations synonyms #>    <ab>    <dbl> <chr>  <chr> <lis> <chr>      <chr>      <list>        <named > #>  1 AMA      4649 4-ami… Anti… <chr> Drugs for… Aminosali… <chr [1]>     <chr>    #>  2 ACM   6450012 Acety… Macr… <chr> NA         NA         <chr [1]>     <chr>    #>  3 ASP  49787020 Acety… Macr… <chr> NA         NA         <chr [1]>     <chr>    #>  4 ALS      8954 Aldes… Othe… <chr> Drugs for… Drugs for… <chr [1]>     <chr>    #>  5 AMK     37768 Amika… Amin… <chr> Aminoglyc… Other ami… <chr [5]>     <chr>    #>  6 AKF        NA Amika… Amin… <chr> NA         NA         <chr [1]>     <chr>    #>  7 AMO     54260 Amoro… Anti… <chr> Antifunga… Other ant… <chr [1]>     <chr>    #>  8 AMX     33613 Amoxi… Beta… <chr> Beta-lact… Penicilli… <chr [3]>     <chr>    #>  9 AMC  23665637 Amoxi… Beta… <chr> Beta-lact… Combinati… <chr [5]>     <chr>    #> 10 AXS    465441 Amoxi… Beta… <chr> NA         NA         <chr [1]>     <chr>    #> # ℹ 475 more rows #> # ℹ 5 more variables: oral_ddd <dbl>, oral_units <chr>, iv_ddd <dbl>, #> #   iv_units <chr>, loinc <list> antivirals #> # A tibble: 120 × 11 #>    av       name      atc      cid atc_group synonyms oral_ddd oral_units iv_ddd #>    <av>     <chr>     <chr>  <dbl> <chr>     <list>      <dbl> <chr>       <dbl> #>  1 ABA      Abacavir  J05A… 4.41e5 Nucleosi… <chr>         0.6 g              NA #>  2 ACI      Aciclovir J05A… 1.35e8 Nucleosi… <chr>         4   g               4 #>  3 ADD      Adefovir… J05A… 6.09e4 Nucleosi… <chr>        10   mg             NA #>  4 AME      Amenamev… J05A… 1.14e7 Other an… <chr>         0.4 g              NA #>  5 AMP      Amprenav… J05A… 6.50e4 Protease… <chr>         1.2 g              NA #>  6 ASU      Asunapre… J05A… 1.61e7 Antivira… <chr>         0.2 g              NA #>  7 ATA      Atazanav… J05A… 1.48e5 Protease… <chr>         0.3 g              NA #>  8 ATA+COBI Atazanav… J05A… 8.66e7 Antivira… <chr>        NA   NA             NA #>  9 ATA+RIT  Atazanav… J05A… 2.51e7 Antivira… <chr>         0.3 g              NA #> 10 BAM      Baloxavi… J05A… 1.24e8 Other an… <chr>        40   mg             NA #> # ℹ 110 more rows #> # ℹ 2 more variables: iv_units <chr>, loinc <list>"},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to an Antibiotic ID — as.ab","title":"Transform Input to an Antibiotic ID — as.ab","text":"Use function determine antibiotic drug code one antibiotics. data set antibiotics searched abbreviations, official names synonyms (brand names).","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to an Antibiotic ID — as.ab","text":"","code":"as.ab(x, flag_multiple_results = TRUE, info = interactive(), ...)  is.ab(x)"},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to an Antibiotic ID — as.ab","text":"x character vector determine antibiotic ID flag_multiple_results logical indicate whether note printed console probably one antibiotic drug code name can retrieved single input value. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed internal functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to an Antibiotic ID — as.ab","text":"character vector additional class ab","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to an Antibiotic ID — as.ab","text":"entries antibiotics data set three different identifiers: human readable EARS-Net code (column ab, used ECDC WHONET), ATC code (column atc, used ), CID code (column cid, Compound ID, used PubChem). data set contains 5,000 official brand names many different countries, found PubChem. drugs contain multiple ATC codes. properties searched user input. .ab() can correct different forms misspelling: Wrong spelling drug names (\"tobramicin\" \"gentamycin\"), corrects audible similarities f/ph, x/ks, c/z/s, t/th, etc. many vowels consonants Switching two characters (\"mreopenem\", often case clinical data, doctors typed fast) Digitalised paper records, leaving artefacts like 0/o/O (zero O's), B/8, n/r, etc. Use ab_* functions get properties based returned antibiotic ID, see Examples. Note: .ab() ab_* functions may use long regular expression match brand names antimicrobial drugs. may fail systems. can add manual codes considered .ab() ab_* functions, see add_custom_antimicrobials().","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Input to an Antibiotic ID — as.ab","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://atcddd.fhi./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Transform Input to an Antibiotic ID — as.ab","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://atcddd.fhi.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://atcddd.fhi./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Input to an Antibiotic ID — as.ab","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to an Antibiotic ID — as.ab","text":"","code":"# these examples all return \"ERY\", the ID of erythromycin: as.ab(\"J01FA01\") #> Class 'ab' #> [1] ERY as.ab(\"J 01 FA 01\") #> Class 'ab' #> [1] ERY as.ab(\"Erythromycin\") #> Class 'ab' #> [1] ERY as.ab(\"eryt\") #> Class 'ab' #> [1] ERY as.ab(\"   eryt 123\") #> Class 'ab' #> [1] ERY as.ab(\"ERYT\") #> Class 'ab' #> [1] ERY as.ab(\"ERY\") #> Class 'ab' #> [1] ERY as.ab(\"eritromicine\") # spelled wrong, yet works #> Class 'ab' #> [1] ERY as.ab(\"Erythrocin\") # trade name #> Class 'ab' #> [1] ERY as.ab(\"Romycin\") # trade name #> Class 'ab' #> [1] ERY  # spelling from different languages and dyslexia are no problem ab_atc(\"ceftriaxon\") #> [1] \"J01DD04\" ab_atc(\"cephtriaxone\") # small spelling error #> [1] \"J01DD04\" ab_atc(\"cephthriaxone\") # or a bit more severe #> [1] \"J01DD04\" ab_atc(\"seephthriaaksone\") # and even this works #> [1] \"J01DD04\"  # use ab_* functions to get a specific properties (see ?ab_property); # they use as.ab() internally: ab_name(\"J01FA01\") #> [1] \"Erythromycin\" ab_name(\"eryt\") #> [1] \"Erythromycin\"  # \\donttest{ if (require(\"dplyr\")) {   # you can quickly rename 'sir' columns using set_ab_names() with dplyr:   example_isolates %>%     set_ab_names(where(is.sir), property = \"atc\") } #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           J01CE01 J01CF04 J01CF05 #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir>   <sir>   <sir>   #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R       NA      NA      #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R       NA      NA      #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R       NA      S       #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R       NA      S       #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R       NA      S       #> # ℹ 1,990 more rows #> # ℹ 37 more variables: J01CA04 <sir>, J01CR02 <sir>, J01CA01 <sir>, #> #   J01CR05 <sir>, J01DB04 <sir>, J01DE01 <sir>, J01DC02 <sir>, J01DC01 <sir>, #> #   J01DD01 <sir>, J01DD02 <sir>, J01DD04 <sir>, J01GB03 <sir>, J01GB01 <sir>, #> #   J01GB06 <sir>, J01GB04 <sir>, J01EA01 <sir>, J01EE01 <sir>, J01XE01 <sir>, #> #   J01XX01 <sir>, J01XX08 <sir>, J01MA02 <sir>, J01MA14 <sir>, J01XA01 <sir>, #> #   J01XA02 <sir>, J01AA07 <sir>, J01AA12 <sir>, J01AA02 <sir>, … # }"},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to an Antiviral Drug ID — as.av","title":"Transform Input to an Antiviral Drug ID — as.av","text":"Use function determine antiviral drug code one antiviral drugs. data set antivirals searched abbreviations, official names synonyms (brand names).","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to an Antiviral Drug ID — as.av","text":"","code":"as.av(x, flag_multiple_results = TRUE, info = interactive(), ...)  is.av(x)"},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to an Antiviral Drug ID — as.av","text":"x character vector determine antiviral drug ID flag_multiple_results logical indicate whether note printed console probably one antiviral drug code name can retrieved single input value. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed internal functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to an Antiviral Drug ID — as.av","text":"character vector additional class ab","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to an Antiviral Drug ID — as.av","text":"entries antivirals data set three different identifiers: human readable EARS-Net code (column ab, used ECDC WHONET), ATC code (column atc, used ), CID code (column cid, Compound ID, used PubChem). data set contains 5,000 official brand names many different countries, found PubChem. drugs contain multiple ATC codes. properties searched user input. .av() can correct different forms misspelling: Wrong spelling drug names (\"acyclovir\"), corrects audible similarities f/ph, x/ks, c/z/s, t/th, etc. many vowels consonants Switching two characters (\"aycclovir\", often case clinical data, doctors typed fast) Digitalised paper records, leaving artefacts like 0/o/O (zero O's), B/8, n/r, etc. Use av_* functions get properties based returned antiviral drug ID, see Examples. Note: .av() av_* functions may use long regular expression match brand names antimicrobial drugs. may fail systems.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Input to an Antiviral Drug ID — as.av","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://atcddd.fhi./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Transform Input to an Antiviral Drug ID — as.av","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://atcddd.fhi.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://atcddd.fhi./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Input to an Antiviral Drug ID — as.av","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to an Antiviral Drug ID — as.av","text":"","code":"# these examples all return \"ACI\", the ID of aciclovir: as.av(\"J05AB01\") #> Class 'av' #> [1] ACI as.av(\"J 05 AB 01\") #> Class 'av' #> [1] ACI as.av(\"Aciclovir\") #> Class 'av' #> [1] ACI as.av(\"aciclo\") #> Class 'av' #> [1] ACI as.av(\"   aciclo 123\") #> Class 'av' #> [1] ACI as.av(\"ACICL\") #> Class 'av' #> [1] ACI as.av(\"ACI\") #> Class 'av' #> [1] ACI as.av(\"Virorax\") # trade name #> Class 'av' #> [1] ACI as.av(\"Zovirax\") # trade name #> Class 'av' #> [1] ACI  as.av(\"acyklofir\") # severe spelling error, yet works #> Class 'av' #> [1] ACI  # use av_* functions to get a specific properties (see ?av_property); # they use as.av() internally: av_name(\"J05AB01\") #> [1] \"Aciclovir\" av_name(\"acicl\") #> [1] \"Aciclovir\""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to Disk Diffusion Diameters — as.disk","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"transforms vector new class disk, disk diffusion growth zone size (around antibiotic disk) millimetres 0 50.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"","code":"as.disk(x, na.rm = FALSE)  NA_disk_  is.disk(x)"},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"object class disk (inherits integer) length 1.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"x vector na.rm logical indicating whether missing values removed","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"integer additional class disk","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"Interpret disk values SIR values .sir(). supports guidelines EUCAST CLSI. Disk diffusion growth zone sizes must 0 50 millimetres. Values higher 50 lower 100 maximised 50. others input values outside 0-50 range return NA. NA_disk_ missing value new disk class.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"","code":"# transform existing disk zones to the `disk` class (using base R) df <- data.frame(   microorganism = \"Escherichia coli\",   AMP = 20,   CIP = 14,   GEN = 18,   TOB = 16 ) df[, 2:5] <- lapply(df[, 2:5], as.disk) str(df) #> 'data.frame':\t1 obs. of  5 variables: #>  $ microorganism: chr \"Escherichia coli\" #>  $ AMP          : 'disk' int 20 #>  $ CIP          : 'disk' int 14 #>  $ GEN          : 'disk' int 18 #>  $ TOB          : 'disk' int 16  # \\donttest{ # transforming is easier with dplyr: if (require(\"dplyr\")) {   df %>% mutate(across(AMP:TOB, as.disk)) } #>      microorganism AMP CIP GEN TOB #> 1 Escherichia coli  20  14  18  16 # }  # interpret disk values, see ?as.sir as.sir(   x = as.disk(18),   mo = \"Strep pneu\", # `mo` will be coerced with as.mo()   ab = \"ampicillin\", # and `ab` with as.ab()   guideline = \"EUCAST\" ) #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting disk diffusion zones: 'ampicillin' (AMP), EUCAST 2024... #>  OK  #> Class 'sir' #> [1] R  # interpret whole data set, pretend to be all from urinary tract infections: as.sir(df, uti = TRUE) #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting disk diffusion zones: column 'AMP' (ampicillin), EUCAST #> 2024... #>  OK  #> Interpreting disk diffusion zones: column 'CIP' (ciprofloxacin), EUCAST #> 2024... #>  OK  #> Interpreting disk diffusion zones: column 'GEN' (gentamicin), EUCAST #> 2024... #>  OK  #> Interpreting disk diffusion zones: column 'TOB' (tobramycin), EUCAST #> 2024... #>  OK  #>      microorganism AMP  CIP GEN TOB #> 1 Escherichia coli   S <NA>   S   S"},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"transforms vectors new class mic, treats input decimal numbers, maintaining operators (\">=\") allowing valid MIC values known field (medical) microbiology.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"","code":"as.mic(x, na.rm = FALSE, keep_operators = \"all\")  is.mic(x)  NA_mic_  rescale_mic(x, mic_range, keep_operators = \"edges\", as.mic = TRUE)  # S3 method for class 'mic' droplevels(x, as.mic = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"x character numeric vector na.rm logical indicating whether missing values removed keep_operators character specifying handle operators (> <=) input. Accepts one three values: \"\" (TRUE) keep operators, \"none\" (FALSE) remove operators, \"edges\" keep operators ends range. mic_range manual range limit MIC values, e.g., mic_range = c(0.001, 32). Use NA set limit one side, e.g., mic_range = c(NA, 32). .mic logical indicate whether mic class kept - default FALSE ... arguments passed methods","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"Ordered factor additional class mic, mathematical operations acts numeric vector. Bear mind outcome mathematical operation MICs return numeric value.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"interpret MIC values SIR values, use .sir() MIC values. supports guidelines EUCAST (2011-2024) CLSI (2011-2024). class MIC values quite special data type: formally ordered factor valid MIC values factor levels (make sure valid MIC values retained), mathematical operation acts decimal numbers:   makes possible maintain operators often come MIC values, \">=\" \"<=\", even filtering using numeric values data analysis, e.g.:   -called group generic functions implemented MIC class (!, !=, <, >=, exp(), log2()). functions stats package also implemented (quantile(), median(), fivenum()). Since sd() var() non-generic functions, extended. Use mad() alternative, use e.g. sd(.numeric(x)) x vector MIC values. Using .double() .numeric() MIC values remove operators return numeric vector. use .integer() MIC values R convention factors, return index factor levels (often useless regular users). Use droplevels() drop unused levels. default, return plain factor. Use droplevels(..., .mic = TRUE) maintain mic class. rescale_mic(), existing MIC ranges can limited defined range MIC values. can useful better compare MIC distributions. ggplot2, use one scale_*_mic() functions plot MIC values. allows custom MIC ranges plot intermediate log2 levels missing MIC values. NA_mic_ missing value new mic class, analogous e.g. base R's NA_character_.","code":"x <- random_mic(10) x #> Class 'mic' #>  [1] 16     1      8      8      64     >=128  0.0625 32     32     16  is.factor(x) #> [1] TRUE  x[1] * 2 #> [1] 32  median(x) #> [1] 26 x[x > 4] #> Class 'mic' #> [1] 16    8     8     64    >=128 32    32    16  df <- data.frame(x, hospital = \"A\") subset(df, x > 4) # or with dplyr: df %>% filter(x > 4) #>        x hospital #> 1     16        A #> 5     64        A #> 6  >=128        A #> 8     32        A #> 9     32        A #> 10    16        A"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"","code":"mic_data <- as.mic(c(\">=32\", \"1.0\", \"1\", \"1.00\", 8, \"<=0.128\", \"8\", \"16\", \"16\")) mic_data #> Class 'mic' #> [1] >=32    1       1       1       8       <=0.128 8       16      16      is.mic(mic_data) #> [1] TRUE  # this can also coerce combined MIC/SIR values: as.mic(\"<=0.002; S\") #> Class 'mic' #> [1] <=0.002  # mathematical processing treats MICs as numeric values fivenum(mic_data) #> [1]  0.128  1.000  8.000 16.000 32.000 quantile(mic_data) #>     0%    25%    50%    75%   100%  #>  0.128  1.000  8.000 16.000 32.000  all(mic_data < 512) #> [1] TRUE  # rescale MICs using rescale_mic() rescale_mic(mic_data, mic_range = c(4, 16)) #> Class 'mic' #> [1] >=16 <=4  <=4  <=4  8    <=4  8    >=16 >=16  # interpret MIC values as.sir(   x = as.mic(2),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'AMX' (amoxicillin), EUCAST 2024... #>  NOTE  #>   • Multiple breakpoints available for amoxicillin (AMX) in Streptococcus pneumoniae - assuming body site 'Meningitis'. #> Class 'sir' #> [1] R as.sir(   x = as.mic(c(0.01, 2, 4, 8)),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'AMX' (amoxicillin), EUCAST 2024... #>  NOTE  #>   • Multiple breakpoints available for amoxicillin (AMX) in Streptococcus pneumoniae - assuming body site 'Meningitis'. #> Class 'sir' #> [1] S R R R  # plot MIC values, see ?plot plot(mic_data)  plot(mic_data, mo = \"E. coli\", ab = \"cipro\")   if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\") }  if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\", language = \"nl\") # Dutch }"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Use function get valid microorganism code (mo) based arbitrary user input. Determination done using intelligent rules complete taxonomic tree kingdoms Animalia, Archaea, Bacteria, Chromista, Protozoa, microbial species kingdom Fungi (see Source). input can almost anything: full name (like \"Staphylococcus aureus\"), abbreviated name (\"S. aureus\"), abbreviation known field (\"MRSA\"), just genus. See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"as.mo(   x,   Becker = FALSE,   Lancefield = FALSE,   minimum_matching_score = NULL,   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   reference_df = get_mo_source(),   ignore_pattern = getOption(\"AMR_ignore_pattern\", NULL),   cleaning_regex = getOption(\"AMR_cleaning_regex\", mo_cleaning_regex()),   only_fungi = getOption(\"AMR_only_fungi\", FALSE),   language = get_AMR_locale(),   info = interactive(),   ... )  is.mo(x)  mo_uncertainties()  mo_renamed()  mo_failures()  mo_reset_session()  mo_cleaning_regex()"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"x character vector data.frame one two columns Becker logical indicate whether staphylococci categorised coagulase-negative staphylococci (\"CoNS\") coagulase-positive staphylococci (\"CoPS\") instead species, according Karsten Becker et al. (see Source). Please see Details full list staphylococcal species converted. excludes Staphylococcus aureus default, use Becker = \"\" also categorise S. aureus \"CoPS\". Lancefield logical indicate whether beta-haemolytic Streptococcus categorised Lancefield groups instead species, according Rebecca C. Lancefield (see Source). streptococci categorised first group, e.g. Streptococcus dysgalactiae group C, although officially also categorised groups G L. . Please see Details full list streptococcal species converted. excludes enterococci default (group D), use Lancefield = \"\" also categorise enterococci group D. minimum_matching_score numeric value set lower limit MO matching score. left blank, determined automatically based character length x, taxonomic kingdom human pathogenicity. keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). reference_df data.frame used extra reference translating x valid mo. See set_mo_source() get_mo_source() automate usage codes (e.g. used analysis organisation). ignore_pattern Perl-compatible regular expression (case-insensitive) matches x must return NA. can convenient exclude known non-relevant input can also set package option AMR_ignore_pattern, e.g. options(AMR_ignore_pattern = \"(reported|contaminated flora)\"). cleaning_regex Perl-compatible regular expression (case-insensitive) clean input x. Every matched part x removed. default, outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". default can set package option AMR_cleaning_regex. only_fungi logical indicate fungi must found, making sure e.g. misspellings always return records kingdom Fungi. can set globally microorganism functions package option AMR_only_fungi, .e. options(AMR_only_fungi = TRUE). language language translate text like \"growth\", defaults system language (see get_AMR_locale()) info logical indicate info must printed, e.g. progress bar 25 items coerced, list old taxonomic names. default TRUE interactive mode. ... arguments passed functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"character vector additional class mo","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"microorganism (MO) code package (class: mo) human-readable typically looks like examples:   Values coerced considered 'unknown' return MO code UNKNOWN warning. Use mo_* functions get properties based returned code, see Examples. .mo() function uses novel scientifically validated (doi:10.18637/jss.v104.i03 ) matching score algorithm (see Matching Score Microorganisms ) match input available microbial taxonomy package. implicates e.g. \"E. coli\" (microorganism highly prevalent humans) return microbial ID Escherichia coli Entamoeba coli (microorganism less prevalent humans), although latter alphabetically come first.","code":"Code               Full name   ---------------    --------------------------------------   B_KLBSL            Klebsiella   B_KLBSL_PNMN       Klebsiella pneumoniae   B_KLBSL_PNMN_RHNS  Klebsiella pneumoniae rhinoscleromatis   |   |    |    |   |   |    |    |   |   |    |    \\---> subspecies, a 3-5 letter acronym   |   |    \\----> species, a 3-6 letter acronym   |   \\----> genus, a 4-8 letter acronym   \\----> kingdom: A (Archaea), AN (Animalia), B (Bacteria),                   C (Chromista), F (Fungi), PL (Plantae),                   P (Protozoa)"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"coping-with-uncertain-results","dir":"Reference","previous_headings":"","what":"Coping with Uncertain Results","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Results non-exact taxonomic input based matching score. lowest allowed score can set minimum_matching_score argument. default determined based character length input, taxonomic kingdom, human pathogenicity taxonomic outcome. values matched uncertainty, message shown suggest user inspect results mo_uncertainties(), returns data.frame specifications. increase quality matching, cleaning_regex argument used clean input. must regular expression matches parts input removed input matched available microbial taxonomy. matched Perl-compatible case-insensitive. default value cleaning_regex outcome helper function mo_cleaning_regex(). three helper functions can run using .mo() function: Use mo_uncertainties() get data.frame prints pretty format taxonomic names guessed. output contains matching score matches (see Matching Score Microorganisms ). Use mo_failures() get character vector values coerced valid value. Use mo_renamed() get data.frame values coerced based old, previously accepted taxonomic names.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"for-mycologists","dir":"Reference","previous_headings":"","what":"For Mycologists","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"matching score algorithm gives precedence bacteria fungi. analysing fungi, sure use only_fungi = TRUE, better yet, add code run every session:   make sure bacteria 'non-fungi' returned .mo(), mo_* functions.","code":"options(AMR_only_fungi = TRUE)"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"coagulase-negative-and-coagulase-positive-staphylococci","dir":"Reference","previous_headings":"","what":"Coagulase-negative and Coagulase-positive Staphylococci","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Becker = TRUE, following staphylococci converted corresponding coagulase group: Coagulase-negative: S. americanisciuri, S. argensis, S. arlettae, S. auricularis, S. borealis, S. brunensis, S. caeli, S. caledonicus, S. canis, S. capitis, S. capitis capitis, S. capitis urealyticus, S. capitis ureolyticus, S. caprae, S. carnosus, S. carnosus carnosus, S. carnosus utilis, S. casei, S. caseolyticus, S. chromogenes, S. cohnii, S. cohnii cohnii, S. cohnii urealyticum, S. cohnii urealyticus, S. condimenti, S. croceilyticus, S. debuckii, S. devriesei, S. durrellii, S. edaphicus, S. epidermidis, S. equorum, S. equorum equorum, S. equorum linens, S. felis, S. fleurettii, S. gallinarum, S. haemolyticus, S. hominis, S. hominis hominis, S. hominis novobiosepticus, S. jettensis, S. kloosii, S. lentus, S. lloydii, S. lugdunensis, S. marylandisciuri, S. massiliensis, S. microti, S. muscae, S. nepalensis, S. pasteuri, S. petrasii, S. petrasii croceilyticus, S. petrasii jettensis, S. petrasii petrasii, S. petrasii pragensis, S. pettenkoferi, S. piscifermentans, S. pragensis, S. pseudoxylosus, S. pulvereri, S. ratti, S. rostri, S. saccharolyticus, S. saprophyticus, S. saprophyticus bovis, S. saprophyticus saprophyticus, S. schleiferi, S. schleiferi schleiferi, S. sciuri, S. sciuri carnaticus, S. sciuri lentus, S. sciuri rodentium, S. sciuri sciuri, S. shinii, S. simulans, S. stepanovicii, S. succinus, S. succinus casei, S. succinus succinus, S. taiwanensis, S. urealyticus, S. ureilyticus, S. veratri, S. vitulinus, S. vitulus, S. warneri, S. xylosus Coagulase-positive: S. agnetis, S. argenteus, S. coagulans, S. cornubiensis, S. delphini, S. hyicus, S. hyicus chromogenes, S. hyicus hyicus, S. intermedius, S. lutrae, S. pseudintermedius, S. roterodami, S. schleiferi coagulans, S. schweitzeri, S. simiae, S. singaporensis based : Becker K et al. (2014). Coagulase-Negative Staphylococci. Clin Microbiol Rev. 27(4): 870-926; doi:10.1128/CMR.00109-13 Becker K et al. (2019). Implications identifying recently defined members S. aureus complex, S. argenteus S. schweitzeri: position paper members ESCMID Study Group staphylococci Staphylococcal Diseases (ESGS). Clin Microbiol Infect; doi:10.1016/j.cmi.2019.02.028 Becker K et al. (2020). Emergence coagulase-negative staphylococci. Expert Rev Anti Infect Ther. 18(4):349-366; doi:10.1080/14787210.2020.1730813 newly named staphylococcal species, S. brunensis (2024) S. shinii (2023), looked scientific reference make sure species considered correct coagulase group.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"lancefield-groups-in-streptococci","dir":"Reference","previous_headings":"","what":"Lancefield Groups in Streptococci","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Lancefield = TRUE, following streptococci converted corresponding Lancefield group: Streptococcus Group : S. pyogenes Streptococcus Group B: S. agalactiae Streptococcus Group C: S. dysgalactiae, S. dysgalactiae dysgalactiae, S. dysgalactiae equisimilis, S. equi, S. equi equi, S. equi ruminatorum, S. equi zooepidemicus Streptococcus Group F: S. anginosus, S. anginosus anginosus, S. anginosus whileyi, S. constellatus, S. constellatus constellatus, S. constellatus pharyngis, S. constellatus viborgensis, S. intermedius Streptococcus Group G: S. canis, S. dysgalactiae, S. dysgalactiae dysgalactiae, S. dysgalactiae equisimilis Streptococcus Group H: S. sanguinis Streptococcus Group K: S. salivarius, S. salivarius salivarius, S. salivarius thermophilus Streptococcus Group L: S. dysgalactiae, S. dysgalactiae dysgalactiae, S. dysgalactiae equisimilis based : Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de June 24th, 2024. Vincent, R et al (2013). MycoBank gearing new horizons. IMA Fungus, 4(2), 371-9; doi:10.5598/imafungus.2013.04.02.16 . Accessed https://www.mycobank.org June 24th, 2024. GBIF Secretariat (2023). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org June 24th, 2024. Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; doi:10.1093/nar/gkab961 . Accessed https://bacdive.dsmz.de July 16th, 2024. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microorganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"ambiguous user input .mo() mo_* functions, returned results chosen based matching score using mo_matching_score(). matching score \\(m\\), calculated :  : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 1.25, Protozoa = 1.5, Chromista = 1.75, Archaea = 2, others = 3. grouping human pathogenic prevalence \\(p\\) based recent work Bartlett et al. (2022, doi:10.1099/mic.0.001269 ) extensively studied medical-scientific literature categorise bacterial species groups: Established, taxonomic species infected least three persons three references. records prevalence = 1.15 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, Genera World Health Organization's () Priority Pathogen List prevalence = 1.0 microorganisms data set; genus present established list also prevalence = 1.15 microorganisms data set; genus present putative list prevalence = 1.25 microorganisms data set; species subspecies genus present two aforementioned groups, prevalence = 1.5 microorganisms data set; non-bacterial genus, species subspecies genus present following list, prevalence = 1.25 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Actinomucor, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Arthroderma, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Bipolaris, Blastobotrys, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chilomastix, Chrysonilia, Chrysosporium, Cladophialophora, Cladosporium, Clavispora, Coccidioides, Cokeromyces, Conidiobolus, Coniochaeta, Contracaecum, Cordylobia, Cryptococcus, Cryptosporidium, Cunninghamella, Curvularia, Cyberlindnera, Debaryozyma, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Epidermophyton, Exidia, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Geotrichum, Giardia, Graphium, Haloarcula, Halobacterium, Halococcus, Hansenula, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hortaea, Hymenolepis, Hypomyces, Hysterothylacium, Kloeckera, Kluyveromyces, Kodamaea, Lacazia, Leishmania, Lichtheimia, Lodderomyces, Lomentospora, Madurella, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Millerozyma, Mortierella, Mucor, Mycocentrospora, Nannizzia, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Paecilomyces, Paracoccidioides, Pediculus, Penicillium, Phaeoacremonium, Phaeomoniella, Phialophora, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoscopulariopsis, Pseudoterranova, Pulex, Purpureocillium, Quambalaria, Rhinocladiella, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Saksenaea, Saprochaete, Sarcoptes, Scedosporium, Schistosoma, Schizosaccharomyces, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Sporopachydermia, Sporothrix, Sporotrichum, Stachybotrys, Strongyloides, Syncephalastrum, Syngamus, Taenia, Talaromyces, Teleomorph, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Ulocladium, Ustilago, Verticillium, Wallemia, Wangiella, Wickerhamomyces, Wuchereria, Yarrowia, Zygosaccharomyces; records prevalence = 2.0 microorganisms data set. calculating matching score, characters \\(x\\) \\(n\\) ignored -Z, -z, 0-9, spaces parentheses. matches sorted descending matching score user input values, top match returned. lead effect e.g., \"E. coli\" return microbial ID Escherichia coli (\\(m = 0.688\\), highly prevalent microorganism found humans) Entamoeba coli (\\(m = 0.381\\), less prevalent microorganism humans), although latter alphabetically come first.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"# \\donttest{ # These examples all return \"B_STPHY_AURS\", the ID of S. aureus: as.mo(c(   \"sau\", # WHONET code   \"stau\",   \"STAU\",   \"staaur\",   \"S. aureus\",   \"S aureus\",   \"Sthafilokkockus aureus\", # handles incorrect spelling   \"Staphylococcus aureus (MRSA)\",   \"MRSA\", # Methicillin Resistant S. aureus   \"VISA\", # Vancomycin Intermediate S. aureus   \"VRSA\", # Vancomycin Resistant S. aureus   115329001 # SNOMED CT code )) #> Class 'mo' #>  [1] B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS #>  [6] B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS #> [11] B_STPHY_AURS B_STPHY_AURS  # Dyslexia is no problem - these all work: as.mo(c(   \"Ureaplasma urealyticum\",   \"Ureaplasma urealyticus\",   \"Ureaplasmium urealytica\",   \"Ureaplazma urealitycium\" )) #> Class 'mo' #> [1] B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY  # input will get cleaned up with the input given in the `cleaning_regex` argument, # which defaults to `mo_cleaning_regex()`: cat(mo_cleaning_regex(), \"\\n\") #> ([^A-Za-z- \\(\\)\\[\\]{}]+|([({]|\\[).+([})]|\\])|(^| )( ?[a-z-]+[-](resistant|susceptible) ?|e?spp([^a-z]+|$)|e?ssp([^a-z]+|$)|serogr.?up[a-z]*|e?ss([^a-z]+|$)|e?sp([^a-z]+|$)|var([^a-z]+|$)|serovar[a-z]*|sube?species|biovar[a-z]*|e?species|Ig[ADEGM]|e?subsp|biotype|titer|dummy))   as.mo(\"Streptococcus group A\") #> Class 'mo' #> [1] B_STRPT_GRPA  as.mo(\"S. epidermidis\") # will remain species: B_STPHY_EPDR #> Class 'mo' #> [1] B_STPHY_EPDR as.mo(\"S. epidermidis\", Becker = TRUE) # will not remain species: B_STPHY_CONS #> Class 'mo' #> [1] B_STPHY_CONS  as.mo(\"S. pyogenes\") # will remain species: B_STRPT_PYGN #> Class 'mo' #> [1] B_STRPT_PYGN as.mo(\"S. pyogenes\", Lancefield = TRUE) # will not remain species: B_STRPT_GRPA #> Class 'mo' #> [1] B_STRPT_GRPA  # All mo_* functions use as.mo() internally too (see ?mo_property): mo_genus(\"E. coli\") #> [1] \"Escherichia\" mo_gramstain(\"ESCO\") #> [1] \"Gram-negative\" mo_is_intrinsic_resistant(\"ESCCOL\", ab = \"vanco\") #> ℹ Determining intrinsic resistance based on 'EUCAST Expert Rules' and #>   'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3 (2021). This note #>   will be shown once per session. #> [1] TRUE # }"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":null,"dir":"Reference","previous_headings":"","what":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Clean existing SIR values, interpret minimum inhibitory concentration (MIC) values disk diffusion diameters according EUCAST CLSI. .sir() transforms input new class sir, ordered factor containing levels S, SDD, , R, NI. breakpoints currently implemented: clinical microbiology: EUCAST 2011-2024 CLSI 2011-2024; veterinary microbiology: EUCAST 2021-2024 CLSI 2019-2024; ECOFFs (Epidemiological Cut-Values): EUCAST 2020-2024 CLSI 2022-2024. breakpoints used interpretation available clinical_breakpoints data set.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"","code":"as.sir(x, ...)  NA_sir_  is.sir(x)  is_sir_eligible(x, threshold = 0.05)  # Default S3 method as.sir(   x,   S = \"^(S|U)+$\",   I = \"^(I)+$\",   R = \"^(R)+$\",   NI = \"^(N|NI|V)+$\",   SDD = \"^(SDD|D|H)+$\",   ... )  # S3 method for class 'mic' as.sir(   x,   mo = NULL,   ab = deparse(substitute(x)),   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   conserve_capped_values = FALSE,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   host = NULL,   verbose = FALSE,   ... )  # S3 method for class 'disk' as.sir(   x,   mo = NULL,   ab = deparse(substitute(x)),   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   host = NULL,   verbose = FALSE,   ... )  # S3 method for class 'data.frame' as.sir(   x,   ...,   col_mo = NULL,   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   conserve_capped_values = FALSE,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   host = NULL,   verbose = FALSE )  sir_interpretation_history(clean = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"interpretations minimum inhibitory concentration (MIC) values disk diffusion diameters: CLSI M39: Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 2011-2024, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. CLSI M100: Performance Standard Antimicrobial Susceptibility Testing, 2011-2024, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m100/. CLSI VET01: Performance Standards Antimicrobial Disk Dilution Susceptibility Tests Bacteria Isolated Animals, 2019-2024, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/veterinary-medicine/documents/vet01/. CLSI VET09: Understanding Susceptibility Test Data Component Antimicrobial Stewardship Veterinary Settings, 2019-2024, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/veterinary-medicine/documents/vet09/. EUCAST Breakpoint tables interpretation MICs zone diameters, 2011-2024, European Committee Antimicrobial Susceptibility Testing (EUCAST). https://www.eucast.org/clinical_breakpoints. WHONET source machine-reading clinical breakpoints (read ), 1989-2024, Collaborating Centre Surveillance Antimicrobial Resistance. https://whonet.org/.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"x vector values (class mic: MIC values mg/L, class disk: disk diffusion radius millimetres) ... using data.frame: names columns apply .sir() (supports tidy selection column1:column4). Otherwise: arguments passed methods. threshold maximum fraction invalid antimicrobial interpretations x, see Examples S, , R, NI, SDD case-independent regular expression translate input result. regular expression run non-letters whitespaces removed input. mo vector (column name) characters can coerced valid microorganism codes .mo(), can left empty determine automatically ab vector (column name) characters can coerced valid antimicrobial drug code .ab() guideline defaults EUCAST 2024 (latest implemented EUCAST guideline clinical_breakpoints data set), can set package option AMR_guideline. Currently supports EUCAST (2011-2024) CLSI (2011-2024), see Details. uti (Urinary Tract Infection) vector (column name) logicals (TRUE FALSE) specify whether UTI specific interpretation guideline chosen. using .sir() data.frame, can also column containing logicals left blank, data set searched column 'specimen', rows within column containing 'urin' ('urine', 'urina') regarded isolates UTI. See Examples. conserve_capped_values logical indicate MIC values starting \">\" (\">=\") must always return \"R\" , MIC values starting \"<\" (\"<=\") must always return \"S\" add_intrinsic_resistance (useful using EUCAST guideline) logical indicate whether intrinsic antibiotic resistance must also considered applicable bug-drug combinations, meaning e.g. ampicillin always return \"R\" Klebsiella species. Determination based intrinsic_resistant data set, based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021). reference_data data.frame used interpretation, defaults clinical_breakpoints data set. Changing argument allows using interpretation guidelines. argument must contain data set equal structure clinical_breakpoints data set (column names column types). Please note guideline argument ignored reference_data manually set. include_screening logical indicate clinical breakpoints screening allowed - default FALSE. Can also set package option AMR_include_screening. include_PKPD logical indicate PK/PD clinical breakpoints must applied last resort - default TRUE. Can also set package option AMR_include_PKPD. breakpoint_type type breakpoints use, either \"ECOFF\", \"animal\", \"human\". ECOFF stands Epidemiological Cut-values. default \"human\", can also set package option AMR_breakpoint_type. host set values veterinary species, automatically set \"animal\". host vector (column name) characters indicate host. useful veterinary breakpoints, requires breakpoint_type = \"animal\". values can text resembling animal species, even 20 supported languages package. foreign languages, sure set language set_AMR_locale() (though automatically guessed based system language). verbose logical indicate notes printed interpretation MIC values disk diffusion values. col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). clean logical indicate whether previously stored results forgotten returning 'logbook' results","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Ordered factor new class sir","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Note: clinical breakpoints package validated , imported , WHONET. public use AMR package endorsed CLSI EUCAST. See clinical_breakpoints information. NA_sir_ missing value new sir class, analogous e.g. base R's NA_character_.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"how-it-works","dir":"Reference","previous_headings":"","what":"How it Works","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":".sir() function can work four ways: cleaning raw / untransformed data. data cleaned contain valid values, namely: S susceptible, intermediate 'susceptible, increased exposure', R resistant, NI non-interpretable, SDD susceptible dose-dependent. can set using regular expression. Furthermore, .sir() try best clean intelligence. example, mixed values SIR interpretations MIC values \"<0.25; S\" coerced \"S\". Combined interpretations multiple test methods (seen laboratory records) \"S; S\" coerced \"S\", value like \"S; \" return NA warning input invalid. interpreting minimum inhibitory concentration (MIC) values according EUCAST CLSI. must clean MIC values first using .mic(), also gives columns new data class mic. Also, sure column microorganism names codes. found automatically, can set manually using mo argument. Using dplyr, SIR interpretation can done easily either:   Operators like \"<=\" stripped interpretation. using conserve_capped_values = TRUE, MIC value e.g. \">2\" always return \"R\", even breakpoint according chosen guideline \">=4\". prevent capped values raw laboratory data treated conservatively. default behaviour (conserve_capped_values = FALSE) considers \">2\" lower \">=4\" might case return \"S\" \"\". interpreting disk diffusion diameters according EUCAST CLSI. must clean disk zones first using .disk(), also gives columns new data class disk. Also, sure column microorganism names codes. found automatically, can set manually using mo argument. Using dplyr, SIR interpretation can done easily either:   interpreting complete data set, automatic determination MIC values, disk diffusion diameters, microorganism names codes, antimicrobial test results. done simply running .sir(your_data). points 2, 3 4: Use sir_interpretation_history() retrieve data.frame (tibble tibble package installed) results last .sir() call.","code":"your_data %>% mutate_if(is.mic, as.sir) your_data %>% mutate(across(where(is.mic), as.sir)) your_data %>% mutate_if(is.mic, as.sir, ab = \"column_with_antibiotics\", mo = \"column_with_microorganisms\") your_data %>% mutate_if(is.mic, as.sir, ab = c(\"cipro\", \"ampicillin\", ...), mo = c(\"E. coli\", \"K. pneumoniae\", ...))  # for veterinary breakpoints, also set `host`: your_data %>% mutate_if(is.mic, as.sir, host = \"column_with_animal_species\", guideline = \"CLSI\") your_data %>% mutate_if(is.disk, as.sir) your_data %>% mutate(across(where(is.disk), as.sir)) your_data %>% mutate_if(is.disk, as.sir, ab = \"column_with_antibiotics\", mo = \"column_with_microorganisms\") your_data %>% mutate_if(is.disk, as.sir, ab = c(\"cipro\", \"ampicillin\", ...), mo = c(\"E. coli\", \"K. pneumoniae\", ...))  # for veterinary breakpoints, also set `host`: your_data %>% mutate_if(is.disk, as.sir, host = \"column_with_animal_species\", guideline = \"CLSI\")"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"supported-guidelines","dir":"Reference","previous_headings":"","what":"Supported Guidelines","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"interpreting MIC values well disk diffusion diameters, currently implemented guidelines clinical microbiology: EUCAST 2011-2024 CLSI 2011-2024, veterinary microbiology: EUCAST 2021-2024 CLSI 2019-2024. Thus, guideline argument must set e.g., \"EUCAST 2024\" \"CLSI 2024\". simply using \"EUCAST\" (default) \"CLSI\" input, latest included version guideline automatically selected. can set data set using reference_data argument. guideline argument ignored. can set default guideline package option AMR_guideline (e.g. .Rprofile file), :   veterinary guidelines, might best options:   applying veterinary breakpoints (setting host setting breakpoint_type = \"animal\"), CLSI VET09 guideline applied cope missing animal species-specific breakpoints.","code":"options(AMR_guideline = \"CLSI\")   options(AMR_guideline = \"CLSI 2018\")   options(AMR_guideline = \"EUCAST 2020\")   # or to reset:   options(AMR_guideline = NULL) options(AMR_guideline = \"CLSI\")   options(AMR_breakpoint_type = \"animal\")"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"after-interpretation","dir":"Reference","previous_headings":"","what":"After Interpretation","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"using .sir(), can use eucast_rules() defined EUCAST (1) apply inferred susceptibility resistance based results antimicrobials (2) apply intrinsic resistance based taxonomic properties microorganism. determine isolates multi-drug resistant, sure run mdro() (applies MDR/PDR/XDR guideline 2012 default) data set contains S//R values. Read interpreting multidrug-resistant organisms .","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"machine-readable-clinical-breakpoints","dir":"Reference","previous_headings":"","what":"Machine-Readable Clinical Breakpoints","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"repository package contains machine-readable version guidelines. CSV file consisting 34 063 rows 14 columns. file machine-readable, since contains one row every unique combination test method (MIC disk diffusion), antimicrobial drug microorganism. allows easy implementation rules laboratory information systems (LIS). Note contains interpretation guidelines humans - interpretation guidelines CLSI animals removed.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"other","dir":"Reference","previous_headings":"","what":"Other","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"function .sir() detects input contains class sir. input data.frame, iterates columns returns logical vector. base R function .double() can used retrieve quantitative values sir object: \"S\" = 1, \"\"/\"SDD\" = 2, \"R\" = 3. values rendered NA . Note: use .integer(), since (R works internally) return factor level indices, aforementioned quantitative values. function is_sir_eligible() returns TRUE column contains 5% invalid antimicrobial interpretations (S //R /NI /SDD), FALSE otherwise. threshold 5% can set threshold argument. input data.frame, iterates columns returns logical vector.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … summary(example_isolates) # see all SIR results at a glance #>       date              patient               age           gender          #>  Min.   :2002-01-02   Length:2000        Min.   : 0.00   Length:2000        #>  1st Qu.:2005-07-31   Class :character   1st Qu.:63.00   Class :character   #>  Median :2009-07-31   Mode  :character   Median :74.00   Mode  :character   #>  Mean   :2009-11-20                      Mean   :70.69                      #>  3rd Qu.:2014-05-30                      3rd Qu.:82.00                      #>  Max.   :2017-12-28                      Max.   :97.00                      #>      ward                mo                  PEN                 #>  Length:2000        Class :mo             Class:sir              #>  Class :character   <NA>  :0              %S   :25.6% (n=417)    #>  Mode  :character   Unique:90             %SDD : 0.0% (n=0)      #>                     #1    :B_ESCHR_COLI   %I   : 0.7% (n=11)     #>                     #2    :B_STPHY_CONS   %R   :73.7% (n=1201)   #>                     #3    :B_STPHY_AURS   %NI  : 0.0% (n=0)      #>     OXA                   FLC                   AMX                #>  Class:sir             Class:sir             Class:sir             #>  %S   :68.8% (n=251)   %S   :70.5% (n=665)   %S   :40.2% (n=543)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)     %I   : 0.0% (n=0)     %I   : 0.2% (n=3)     #>  %R   :31.2% (n=114)   %R   :29.5% (n=278)   %R   :59.6% (n=804)   #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     #>     AMC                    AMP                   TZP                #>  Class:sir              Class:sir             Class:sir             #>  %S   :71.4% (n=1342)   %S   :40.2% (n=543)   %S   :86.1% (n=862)   #>  %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     #>  %I   : 4.8% (n=91)     %I   : 0.2% (n=3)     %I   : 1.3% (n=13)    #>  %R   :23.7% (n=446)    %R   :59.6% (n=804)   %R   :12.6% (n=126)   #>  %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     #>     CZO                   FEP                   CXM                 #>  Class:sir             Class:sir             Class:sir              #>  %S   :54.9% (n=245)   %S   :85.6% (n=620)   %S   :72.5% (n=1297)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      #>  %I   : 0.4% (n=2)     %I   : 0.1% (n=1)     %I   : 1.2% (n=22)     #>  %R   :44.6% (n=199)   %R   :14.2% (n=103)   %R   :26.3% (n=470)    #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      #>     FOX                   CTX                   CAZ                 #>  Class:sir             Class:sir             Class:sir              #>  %S   :71.6% (n=586)   %S   :84.4% (n=796)   %S   :33.5% (n=607)    #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      #>  %I   : 1.0% (n=8)     %I   : 0.1% (n=1)     %I   : 0.0% (n=0)      #>  %R   :27.4% (n=224)   %R   :15.5% (n=146)   %R   :66.5% (n=1204)   #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      #>     CRO                   GEN                    TOB                #>  Class:sir             Class:sir              Class:sir             #>  %S   :84.4% (n=796)   %S   :74.0% (n=1372)   %S   :65.1% (n=879)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     #>  %I   : 0.1% (n=1)     %I   : 1.5% (n=27)     %I   : 0.5% (n=7)     #>  %R   :15.5% (n=146)   %R   :24.6% (n=456)    %R   :34.4% (n=465)   #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     #>     AMK                   KAN                    TMP                #>  Class:sir             Class:sir              Class:sir             #>  %S   :36.3% (n=251)   %S   : 0.0% (n=0)      %S   :61.2% (n=918)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)     %I   : 0.0% (n=0)      %I   : 0.7% (n=10)    #>  %R   :63.7% (n=441)   %R   :100.0% (n=471)   %R   :38.1% (n=571)   #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     #>     SXT                    NIT                   FOS                #>  Class:sir              Class:sir             Class:sir             #>  %S   :79.1% (n=1392)   %S   :76.0% (n=565)   %S   :57.8% (n=203)   #>  %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     #>  %I   : 0.3% (n=6)      %I   : 6.9% (n=51)    %I   : 0.0% (n=0)     #>  %R   :20.5% (n=361)    %R   :17.1% (n=127)   %R   :42.2% (n=148)   #>  %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     #>     LNZ                   CIP                    MFX                #>  Class:sir             Class:sir              Class:sir             #>  %S   :30.7% (n=314)   %S   :78.9% (n=1112)   %S   :64.5% (n=136)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)     %I   : 4.9% (n=69)     %I   : 1.9% (n=4)     #>  %R   :69.3% (n=709)   %R   :16.2% (n=228)    %R   :33.6% (n=71)    #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     #>     VAN                    TEC                   TCY                #>  Class:sir              Class:sir             Class:sir             #>  %S   :61.7% (n=1149)   %S   :24.3% (n=237)   %S   :68.3% (n=820)   #>  %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)      %I   : 0.0% (n=0)     %I   : 1.9% (n=23)    #>  %R   :38.3% (n=712)    %R   :75.7% (n=739)   %R   :29.8% (n=357)   #>  %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     #>     TGC                   DOX                   ERY                 #>  Class:sir             Class:sir             Class:sir              #>  %S   :87.3% (n=697)   %S   :71.7% (n=814)   %S   :42.3% (n=801)    #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      #>  %I   : 0.0% (n=0)     %I   : 0.6% (n=7)     %I   : 0.5% (n=9)      #>  %R   :12.7% (n=101)   %R   :27.7% (n=315)   %R   :57.2% (n=1084)   #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      #>     CLI                   AZM                    IPM                #>  Class:sir             Class:sir              Class:sir             #>  %S   :38.6% (n=586)   %S   :42.3% (n=801)    %S   :92.7% (n=824)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     #>  %I   : 0.3% (n=4)     %I   : 0.5% (n=9)      %I   : 1.1% (n=10)    #>  %R   :61.2% (n=930)   %R   :57.2% (n=1084)   %R   : 6.2% (n=55)    #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     #>     MEM                   MTR                  CHL                #>  Class:sir             Class:sir            Class:sir             #>  %S   :94.1% (n=780)   %S   :85.3% (n=29)   %S   :78.6% (n=121)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)    %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)     %I   : 0.0% (n=0)    %I   : 0.0% (n=0)     #>  %R   : 5.9% (n=49)    %R   :14.7% (n=5)    %R   :21.4% (n=33)    #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)    %NI  : 0.0% (n=0)     #>     COL                    MUP                   RIF                #>  Class:sir              Class:sir             Class:sir             #>  %S   :18.8% (n=309)    %S   :93.0% (n=251)   %S   :30.2% (n=303)   #>  %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)      %I   : 1.1% (n=3)     %I   : 0.2% (n=2)     #>  %R   :81.2% (n=1331)   %R   : 5.9% (n=16)    %R   :69.6% (n=698)   #>  %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      # For INTERPRETING disk diffusion and MIC values -----------------------  # example data sets, with combined MIC values and disk zones df_wide <- data.frame(   microorganism = \"Escherichia coli\",   amoxicillin = as.mic(8),   cipro = as.mic(0.256),   tobra = as.disk(16),   genta = as.disk(18),   ERY = \"R\" ) df_long <- data.frame(   bacteria = rep(\"Escherichia coli\", 4),   antibiotic = c(\"amoxicillin\", \"cipro\", \"tobra\", \"genta\"),   mics = as.mic(c(0.01, 1, 4, 8)),   disks = as.disk(c(6, 10, 14, 18)) )  # \\donttest{ ## Using dplyr ------------------------------------------------- if (require(\"dplyr\")) {   # approaches that all work without additional arguments:   df_wide %>% mutate_if(is.mic, as.sir)   df_wide %>% mutate_if(function(x) is.mic(x) | is.disk(x), as.sir)   df_wide %>% mutate(across(where(is.mic), as.sir))   df_wide %>% mutate_at(vars(amoxicillin:tobra), as.sir)   df_wide %>% mutate(across(amoxicillin:tobra, as.sir))      # approaches that all work with additional arguments:   df_long %>%     # given a certain data type, e.g. MIC values     mutate_if(is.mic, as.sir,               mo = \"bacteria\",               ab = \"antibiotic\",               guideline = \"CLSI\")   df_long %>%     mutate(across(where(is.mic),                   function(x) as.sir(x,                                      mo = \"bacteria\",                                      ab = \"antibiotic\",                                      guideline = \"CLSI\")))   df_wide %>%     # given certain columns, e.g. from 'cipro' to 'genta'     mutate_at(vars(cipro:genta), as.sir,               mo = \"bacteria\",               guideline = \"CLSI\")   df_wide %>%     mutate(across(cipro:genta,                        function(x) as.sir(x,                                           mo = \"bacteria\",                                           guideline = \"CLSI\")))                           # for veterinary breakpoints, add 'host':   df_long$animal_species <- c(\"cats\", \"dogs\", \"horses\", \"cattle\")   df_long %>%     # given a certain data type, e.g. MIC values     mutate_if(is.mic, as.sir,               mo = \"bacteria\",               ab = \"antibiotic\",               host = \"animal_species\",               guideline = \"CLSI\")   df_long %>%     mutate(across(where(is.mic),                   function(x) as.sir(x,                                      mo = \"bacteria\",                                      ab = \"antibiotic\",                                      host = \"animal_species\",                                      guideline = \"CLSI\")))   df_wide %>%     mutate_at(vars(cipro:genta), as.sir,               mo = \"bacteria\",               ab = \"antibiotic\",               host = \"animal_species\",               guideline = \"CLSI\")   df_wide %>%     mutate(across(cipro:genta,                        function(x) as.sir(x,                                           mo = \"bacteria\",                                           host = \"animal_species\",                                           guideline = \"CLSI\")))      # to include information about urinary tract infections (UTI)   data.frame(mo = \"E. coli\",              nitrofuratoin = c(\"<= 2\", 32),              from_the_bladder = c(TRUE, FALSE)) %>%     as.sir(uti = \"from_the_bladder\")    data.frame(mo = \"E. coli\",              nitrofuratoin = c(\"<= 2\", 32),              specimen = c(\"urine\", \"blood\")) %>%     as.sir() # automatically determines urine isolates    df_wide %>%     mutate_at(vars(cipro:genta), as.sir, mo = \"E. coli\", uti = TRUE) } #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'amoxicillin' (AMX) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for amoxicillin (AMX) in Escherichia coli - assuming body site 'Intravenous'. Use argument uti to set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli - assuming body site 'Non-meningitis'. #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'amoxicillin' (AMX) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for amoxicillin (AMX) in Escherichia coli - assuming body site 'Intravenous'. Use argument uti to set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin) based on #> column 'microorganism', EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in Escherichia coli - assuming an unspecified body site. Use argument uti to set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: 'genta' (GEN, gentamicin) based on #> column 'microorganism', EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in Escherichia coli - assuming an unspecified body site. Use argument uti to set which isolates are from urine. See ?as.sir. #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'amoxicillin' (AMX) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for amoxicillin (AMX) in Escherichia coli - assuming body site 'Intravenous'. Use argument uti to set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli - assuming body site 'Non-meningitis'. #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'amoxicillin' (AMX) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for amoxicillin (AMX) in Escherichia coli - assuming body site 'Intravenous'. Use argument uti to set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin) based on #> column 'microorganism', EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in Escherichia coli - assuming an unspecified body site. Use argument uti to set which isolates are from urine. See ?as.sir. #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'amoxicillin' (AMX) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for amoxicillin (AMX) in Escherichia coli - assuming body site 'Intravenous'. Use argument uti to set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin) based on #> column 'microorganism', EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in Escherichia coli - assuming an unspecified body site. Use argument uti to set which isolates are from urine. See ?as.sir. #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'amoxicillin' (AMX), 'cipro' (CIP, ciprofloxacin), #> 'tobra' (TOB, tobramycin), and 'genta' (GEN, gentamicin) based on column #> 'bacteria', CLSI 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'amoxicillin' (AMX), 'cipro' (CIP, ciprofloxacin), #> 'tobra' (TOB, tobramycin), and 'genta' (GEN, gentamicin) based on column #> 'bacteria', CLSI 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin), CLSI 2024... #>  OK  #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin), CLSI 2024... #>  OK  #> Interpreting disk diffusion zones: 'genta' (GEN, gentamicin), CLSI 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin), CLSI 2024... #>  OK  #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin), CLSI 2024... #>  OK  #> Interpreting disk diffusion zones: 'genta' (GEN, gentamicin), CLSI 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> ℹ Assuming breakpoint_type = \"animal\", since host is set. #> ℹ Please note that in the absence of specific veterinary breakpoints for #>   certain animal hosts, the CLSI guideline VET09 will be applied where #>   possible. #> Interpreting MIC values: 'amoxicillin' (AMX), 'cipro' (CIP, ciprofloxacin), #> 'tobra' (TOB, tobramycin), and 'genta' (GEN, gentamicin) based on column #> 'bacteria', CLSI 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> ℹ Assuming breakpoint_type = \"animal\", since host is set. #> ℹ Please note that in the absence of specific veterinary breakpoints for #>   certain animal hosts, the CLSI guideline VET09 will be applied where #>   possible. #> Interpreting MIC values: 'amoxicillin' (AMX), 'cipro' (CIP, ciprofloxacin), #> 'tobra' (TOB, tobramycin), and 'genta' (GEN, gentamicin) based on column #> 'bacteria', CLSI 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> ℹ Assuming breakpoint_type = \"animal\", since host is set. #>  #> ℹ Please note that in the absence of specific veterinary breakpoints for #>   certain animal hosts, the CLSI guideline VET09 will be applied where #>   possible. #> Interpreting MIC values: 'antibiotic' (TESTAB, test Antibiotic), CLSI #> 2024... #>  WARNING  #>   • No CLSI 2024 MIC breakpoints available for test Antibiotic (TESTAB). #> Interpreting disk diffusion zones: 'antibiotic' (TESTAB, test Antibiotic), #> CLSI 2024... #>  WARNING  #>   • No CLSI 2024 DISK breakpoints available for test Antibiotic (TESTAB). #> Interpreting disk diffusion zones: 'antibiotic' (TESTAB, test Antibiotic), #> CLSI 2024... #>  WARNING  #>   • No CLSI 2024 DISK breakpoints available for test Antibiotic (TESTAB). #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `cipro = (function (x, ...) ...`. #> Caused by warning: #> ! The following animal host(s) could not be coerced: \"animal_species\" #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> ℹ Assuming breakpoint_type = \"animal\", since host is set. #>  #> ℹ Please note that in the absence of specific veterinary breakpoints for #>   certain animal hosts, the CLSI guideline VET09 will be applied where #>   possible. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin), CLSI 2024... #>  OK  #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin), CLSI 2024... #>  OK  #> Interpreting disk diffusion zones: 'genta' (GEN, gentamicin), CLSI 2024... #>  OK  #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `across(...)`. #> Caused by warning: #> ! The following animal host(s) could not be coerced: \"animal_species\" #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting disk diffusion zones: column 'nitrofuratoin' (NIT, #> nitrofurantoin), EUCAST 2024... #>  OK  #> ℹ Assuming value \"urine\" in column 'specimen' reflects a urinary tract #>   infection. #>   Use as.sir(uti = FALSE) to prevent this. #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting disk diffusion zones: column 'nitrofuratoin' (NIT, #> nitrofurantoin), EUCAST 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin), EUCAST 2024... #>  OK  #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin), EUCAST #> 2024... #>  OK  #> Interpreting disk diffusion zones: 'genta' (GEN, gentamicin), EUCAST #> 2024... #>  OK  #>      microorganism amoxicillin cipro tobra genta ERY #> 1 Escherichia coli           8  <NA>     S     S   R   ## Using base R ------------------------------------------------  as.sir(df_wide) #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: column 'amoxicillin' (AMX), EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for amoxicillin (AMX) in Escherichia coli - assuming body site 'Intravenous'. Use argument uti to set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: column 'cipro' (CIP, ciprofloxacin), EUCAST #> 2024... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: column 'tobra' (TOB, tobramycin), EUCAST #> 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in Escherichia coli - assuming an unspecified body site. Use argument uti to set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: column 'genta' (GEN, gentamicin), EUCAST #> 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in Escherichia coli - assuming an unspecified body site. Use argument uti to set which isolates are from urine. See ?as.sir. #> Assigning class 'sir' to already clean column 'ERY' (erythromycin)... #>  OK  #>      microorganism amoxicillin cipro tobra genta ERY #> 1 Escherichia coli           S     I     S     S   R  # return a 'logbook' about the results: sir_interpretation_history() #> # A tibble: 57 × 16 #>    datetime            index ab_given mo_given host_given ab   mo               #>  * <dttm>              <int> <chr>    <chr>    <chr>      <ab> <mo>             #>  1 2024-12-19 19:22:22     4 AMX      B_STRPT… human      AMX  B_STRPT_PNMN     #>  2 2024-12-19 19:22:29     4 genta    Escheri… human      GEN  B_[ORD]_ENTRBCTR #>  3 2024-12-19 19:22:29     4 genta    Escheri… human      GEN  B_[ORD]_ENTRBCTR #>  4 2024-12-19 19:22:30     4 genta    Escheri… cattle     GEN  B_ESCHR_COLI     #>  5 2024-12-19 19:22:30     4 genta    Escheri… cattle     GEN  B_ESCHR_COLI     #>  6 2024-12-19 19:22:22     3 AMX      B_STRPT… human      AMX  B_STRPT_PNMN     #>  7 2024-12-19 19:22:29     3 tobra    Escheri… human      TOB  B_[ORD]_ENTRBCTR #>  8 2024-12-19 19:22:29     3 tobra    Escheri… human      TOB  B_[ORD]_ENTRBCTR #>  9 2024-12-19 19:22:30     3 tobra    Escheri… horses     TOB  B_ESCHR_COLI     #> 10 2024-12-19 19:22:30     3 tobra    Escheri… horses     TOB  B_ESCHR_COLI     #> # ℹ 47 more rows #> # ℹ 9 more variables: host <chr>, method <chr>, input <dbl>, outcome <sir>, #> #   notes <chr>, guideline <chr>, ref_table <chr>, uti <lgl>, #> #   breakpoint_S_R <chr>  # for single values as.sir(   x = as.mic(2),   mo = as.mo(\"S. pneumoniae\"),   ab = \"AMP\",   guideline = \"EUCAST\" ) #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2024... #>  NOTE  #>   • Multiple breakpoints available for ampicillin (AMP) in Streptococcus pneumoniae - assuming body site 'Non-meningitis'. #> Class 'sir' #> [1] R  as.sir(   x = as.disk(18),   mo = \"Strep pneu\", # `mo` will be coerced with as.mo()   ab = \"ampicillin\", # and `ab` with as.ab()   guideline = \"EUCAST\" ) #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting disk diffusion zones: 'ampicillin' (AMP), EUCAST 2024... #>  OK  #> Class 'sir' #> [1] R   # For CLEANING existing SIR values ------------------------------------  as.sir(c(\"S\", \"SDD\", \"I\", \"R\", \"NI\", \"A\", \"B\", \"C\")) #> Warning: in as.sir(): 3 results in column '19' truncated (38%) that were invalid #> antimicrobial interpretations: \"A\", \"B\", and \"C\" as.sir(\"<= 0.002; S\") # will return \"S\" sir_data <- as.sir(c(rep(\"S\", 474), rep(\"I\", 36), rep(\"R\", 370))) is.sir(sir_data) #> [1] TRUE plot(sir_data) # for percentages  barplot(sir_data) # for frequencies   # as common in R, you can use as.integer() to return factor indices: as.integer(as.sir(c(\"S\", \"SDD\", \"I\", \"R\", \"NI\", NA))) #> [1]  1  2  3  4  5 NA # but for computational use, as.double() will return 1 for S, 2 for I/SDD, and 3 for R: as.double(as.sir(c(\"S\", \"SDD\", \"I\", \"R\", \"NI\", NA))) #> [1]  1  2  2  3 NA NA  # the dplyr way if (require(\"dplyr\")) {   example_isolates %>%     mutate_at(vars(PEN:RIF), as.sir)   # same:   example_isolates %>%     as.sir(PEN:RIF)    # fastest way to transform all columns with already valid AMR results to class `sir`:   example_isolates %>%     mutate_if(is_sir_eligible, as.sir)    # since dplyr 1.0.0, this can also be:   # example_isolates %>%   #   mutate(across(where(is_sir_eligible), as.sir)) } #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # }"},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":null,"dir":"Reference","previous_headings":"","what":"Get ATC Properties from WHOCC Website — atc_online_property","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"Gets data WHOCC website determine properties Anatomical Therapeutic Chemical (ATC) (e.g. antibiotic), name, defined daily dose (DDD) standard unit.","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"","code":"atc_online_property(   atc_code,   property,   administration = \"O\",   url = \"https://atcddd.fhi.no/atc_ddd_index/?code=%s&showdescription=no\",   url_vet = \"https://atcddd.fhi.no/atcvet/atcvet_index/?code=%s&showdescription=no\" )  atc_online_groups(atc_code, ...)  atc_online_ddd(atc_code, ...)  atc_online_ddd_units(atc_code, ...)"},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"https://atcddd.fhi./atc_ddd_alterations__cumulative/ddd_alterations/abbrevations/","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"atc_code character (vector) ATC code(s) antibiotics, coerced .ab() ab_atc() internally valid ATC code property property ATC code. Valid values \"ATC\", \"Name\", \"DDD\", \"U\" (\"unit\"), \"Adm.R\", \"Note\" groups. last option, hierarchical groups ATC code returned, see Examples. administration type administration using property = \"Adm.R\", see Details url url website WHOCC. sign %s can used placeholder ATC codes. url_vet url website WHOCC veterinary medicine. sign %s can used placeholder ATC_vet codes (start \"Q\"). ... arguments pass atc_property","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"Options argument administration: \"Implant\" = Implant \"Inhal\" = Inhalation \"Instill\" = Instillation \"N\" = nasal \"O\" = oral \"P\" = parenteral \"R\" = rectal \"SL\" = sublingual/buccal \"TD\" = transdermal \"V\" = vaginal Abbreviations return values using property = \"U\" (unit): \"g\" = gram \"mg\" = milligram \"mcg\" = microgram \"U\" = unit \"TU\" = thousand units \"MU\" = million units \"mmol\" = millimole \"ml\" = millilitre (e.g. eyedrops) N.B. function requires internet connection works following packages installed: curl, rvest, xml2.","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"","code":"# \\donttest{ if (requireNamespace(\"curl\") && requireNamespace(\"rvest\") && requireNamespace(\"xml2\")) {   # oral DDD (Defined Daily Dose) of amoxicillin   atc_online_property(\"J01CA04\", \"DDD\", \"O\")   atc_online_ddd(ab_atc(\"amox\"))    # parenteral DDD (Defined Daily Dose) of amoxicillin   atc_online_property(\"J01CA04\", \"DDD\", \"P\")    atc_online_property(\"J01CA04\", property = \"groups\") # search hierarchical groups of amoxicillin } #> Loading required namespace: rvest #> [1] \"ANTIINFECTIVES FOR SYSTEMIC USE\"         #> [2] \"ANTIBACTERIALS FOR SYSTEMIC USE\"         #> [3] \"BETA-LACTAM ANTIBACTERIALS, PENICILLINS\" #> [4] \"Penicillins with extended spectrum\"      # }"},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":null,"dir":"Reference","previous_headings":"","what":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"Use function e.g. clinical texts health care records. returns list antiviral drugs, doses forms administration found texts.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"","code":"av_from_text(   text,   type = c(\"drug\", \"dose\", \"administration\"),   collapse = NULL,   translate_av = FALSE,   thorough_search = NULL,   info = interactive(),   ... )"},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"text text analyse type type property search , either \"drug\", \"dose\" \"administration\", see Examples collapse character pass paste(, collapse = ...) return one character per element text, see Examples translate_av type = \"drug\": column name antivirals data set translate antibiotic abbreviations , using av_property(). default FALSE. Using TRUE equal using \"name\". thorough_search logical indicate whether input must extensively searched misspelling faulty input values. Setting TRUE take considerably time using FALSE. default, turn TRUE input elements contain maximum three words. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed .av()","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"list,  character collapse NULL","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"function also internally used .av(), although searches first drug name throw note drug names returned. Note: .av() function may use long regular expression match brand names antiviral drugs. may fail systems.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"argument-type","dir":"Reference","previous_headings":"","what":"Argument type","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"default, function search antiviral drug names. text elements searched official names, ATC codes brand names. uses .av() internally, correct misspelling. type = \"dose\" (similar, like \"dosing\", \"doses\"), text elements searched numeric values higher 100 resemble years. output numeric. supports unit (g, mg, IE, etc.) multiple values one clinical text, see Examples. type = \"administration\" (abbreviations, like \"admin\", \"adm\"), text elements searched form drug administration. supports following forms (including common abbreviations): buccal, implant, inhalation, instillation, intravenous, nasal, oral, parenteral, rectal, sublingual, transdermal vaginal. Abbreviations oral ('po', 'per os') become \"oral\", values intravenous ('iv', 'intraven') become \"iv\". supports multiple values one clinical text, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"argument-collapse","dir":"Reference","previous_headings":"","what":"Argument collapse","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"Without using collapse, function return list. can convenient use e.g. inside mutate()):df %>% mutate(avx = av_from_text(clinical_text)) returned AV codes can transformed official names, groups, etc. av_* functions av_name() av_group(), using translate_av argument. using collapse, function return character:df %>% mutate(avx = av_from_text(clinical_text, collapse = \"|\"))","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"","code":"av_from_text(\"28/03/2020 valaciclovir po tid\") #> [[1]] #> Class 'av' #> [1] VALA #>  av_from_text(\"28/03/2020 valaciclovir po tid\", type = \"admin\") #> [[1]] #> [1] \"oral\" #>"},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of an Antiviral Drug — av_property","title":"Get Properties of an Antiviral Drug — av_property","text":"Use functions return specific property antiviral drug antivirals data set. input values evaluated internally .av().","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of an Antiviral Drug — av_property","text":"","code":"av_name(x, language = get_AMR_locale(), tolower = FALSE, ...)  av_cid(x, ...)  av_synonyms(x, ...)  av_tradenames(x, ...)  av_group(x, language = get_AMR_locale(), ...)  av_atc(x, ...)  av_loinc(x, ...)  av_ddd(x, administration = \"oral\", ...)  av_ddd_units(x, administration = \"oral\", ...)  av_info(x, language = get_AMR_locale(), ...)  av_url(x, open = FALSE, ...)  av_property(x, property = \"name\", language = get_AMR_locale(), ...)"},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of an Antiviral Drug — av_property","text":"x (vector ) text can coerced valid antiviral drug code .av() language language returned text - default system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. tolower logical indicate whether first character every output transformed lower case character. ... arguments passed .av() administration way administration, either \"oral\" \"iv\" open browse URL using utils::browseURL() property one column names one antivirals data set: vector_or(colnames(antivirals), sort = FALSE).","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of an Antiviral Drug — av_property","text":"integer case av_cid() named list case av_info() multiple av_atc()/av_synonyms()/av_tradenames() double case av_ddd() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of an Antiviral Drug — av_property","text":"output translated possible. function av_url() return direct URL official website. warning returned required ATC code available.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of an Antiviral Drug — av_property","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://atcddd.fhi./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of an Antiviral Drug — av_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of an Antiviral Drug — av_property","text":"","code":"# all properties: av_name(\"ACI\") #> [1] \"Aciclovir\" av_atc(\"ACI\") #> [1] \"J05AB01\" av_cid(\"ACI\") #> [1] 135398513 av_synonyms(\"ACI\") #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            av_tradenames(\"ACI\") #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            av_group(\"ACI\") #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" av_url(\"ACI\") #>                                                              Aciclovir  #> \"https://atcddd.fhi.no/atc_ddd_index/?code=J05AB01&showdescription=no\"   # lowercase transformation av_name(x = c(\"ACI\", \"VALA\")) #> [1] \"Aciclovir\"    \"Valaciclovir\" av_name(x = c(\"ACI\", \"VALA\"), tolower = TRUE) #> [1] \"aciclovir\"    \"valaciclovir\"  # defined daily doses (DDD) av_ddd(\"ACI\", \"oral\") #> [1] 4 av_ddd_units(\"ACI\", \"oral\") #> [1] \"g\" av_ddd(\"ACI\", \"iv\") #> [1] 4 av_ddd_units(\"ACI\", \"iv\") #> [1] \"g\"  av_info(\"ACI\") # all properties as a list #> $av #> [1] \"ACI\" #>  #> $cid #> [1] 135398513 #>  #> $name #> [1] \"Aciclovir\" #>  #> $group #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" #>  #> $atc #> [1] \"J05AB01\" #>  #> $tradenames #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            #>  #> $loinc #> [1] \"\" #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 4 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 4 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all av_* functions use as.av() internally, so you can go from 'any' to 'any': av_atc(\"ACI\") #> [1] \"J05AB01\" av_group(\"J05AB01\") #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" av_loinc(\"abacavir\") #> [1] \"29113-8\" \"30273-7\" \"30287-7\" \"30303-2\" \"78772-1\" \"78773-9\" \"79134-3\" #> [8] \"80118-3\" av_name(\"29113-8\") #> [1] \"Abacavir\" av_name(135398513) #> [1] \"Aciclovir\" av_name(\"J05AB01\") #> [1] \"Aciclovir\""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":null,"dir":"Reference","previous_headings":"","what":"Check Availability of Columns — availability","title":"Check Availability of Columns — availability","text":"Easy check data availability columns data set. makes easy get idea antimicrobial combinations can used calculation e.g. susceptibility() resistance().","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Check Availability of Columns — availability","text":"","code":"availability(tbl, width = NULL)"},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Check Availability of Columns — availability","text":"tbl data.frame list width number characters present visual availability - default filling width console","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Check Availability of Columns — availability","text":"data.frame column names tbl row names","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Check Availability of Columns — availability","text":"function returns data.frame columns \"resistant\" \"visual_resistance\". values columns calculated resistance().","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Check Availability of Columns — availability","text":"","code":"availability(example_isolates) #>         count available     visual_availabilty resistant      visual_resistance #> date     2000    100.0% |####################|                                  #> patient  2000    100.0% |####################|                                  #> age      2000    100.0% |####################|                                  #> gender   2000    100.0% |####################|                                  #> ward     2000    100.0% |####################|                                  #> mo       2000    100.0% |####################|                                  #> PEN      1629     81.5% |################----|     73.7% |##############------| #> OXA       365     18.3% |###-----------------|     31.2% |######--------------| #> FLC       943     47.2% |#########-----------|     29.5% |#####---------------| #> AMX      1350     67.5% |#############-------|     59.6% |###########---------| #> AMC      1879     94.0% |##################--|     23.7% |####----------------| #> AMP      1350     67.5% |#############-------|     59.6% |###########---------| #> TZP      1001     50.0% |##########----------|     12.6% |##------------------| #> CZO       446     22.3% |####----------------|     44.6% |########------------| #> FEP       724     36.2% |#######-------------|     14.2% |##------------------| #> CXM      1789     89.5% |#################---|     26.3% |#####---------------| #> FOX       818     40.9% |########------------|     27.4% |#####---------------| #> CTX       943     47.2% |#########-----------|     15.5% |###-----------------| #> CAZ      1811     90.6% |##################--|     66.5% |#############-------| #> CRO       943     47.2% |#########-----------|     15.5% |###-----------------| #> GEN      1855     92.8% |##################--|     24.6% |####----------------| #> TOB      1351     67.6% |#############-------|     34.4% |######--------------| #> AMK       692     34.6% |######--------------|     63.7% |############--------| #> KAN       471     23.6% |####----------------|    100.0% |####################| #> TMP      1499     75.0% |###############-----|     38.1% |#######-------------| #> SXT      1759     88.0% |#################---|     20.5% |####----------------| #> NIT       743     37.2% |#######-------------|     17.1% |###-----------------| #> FOS       351     17.6% |###-----------------|     42.2% |########------------| #> LNZ      1023     51.2% |##########----------|     69.3% |#############-------| #> CIP      1409     70.5% |#############-------|     16.2% |###-----------------| #> MFX       211     10.6% |##------------------|     33.6% |######--------------| #> VAN      1861     93.1% |##################--|     38.3% |#######-------------| #> TEC       976     48.8% |#########-----------|     75.7% |###############-----| #> TCY      1200     60.0% |###########---------|     29.8% |#####---------------| #> TGC       798     39.9% |########------------|     12.7% |##------------------| #> DOX      1136     56.8% |###########---------|     27.7% |#####---------------| #> ERY      1894     94.7% |##################--|     57.2% |###########---------| #> CLI      1520     76.0% |###############-----|     61.2% |############--------| #> AZM      1894     94.7% |##################--|     57.2% |###########---------| #> IPM       889     44.5% |########------------|      6.2% |#-------------------| #> MEM       829     41.5% |########------------|      5.9% |#-------------------| #> MTR        34      1.7% |--------------------|     14.7% |##------------------| #> CHL       154      7.7% |#-------------------|     21.4% |####----------------| #> COL      1640     82.0% |################----|     81.2% |################----| #> MUP       270     13.5% |##------------------|      5.9% |#-------------------| #> RIF      1003     50.2% |##########----------|     69.6% |#############-------| # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     filter(mo == as.mo(\"Escherichia coli\")) %>%     select_if(is.sir) %>%     availability() } #>     count available       visual_availabilty resistant        visual_resistance #> PEN   467    100.0% |######################|    100.0% |######################| #> OXA     0      0.0% |----------------------|                                    #> FLC     0      0.0% |----------------------|                                    #> AMX   392     83.9% |##################----|     50.0% |###########-----------| #> AMC   467    100.0% |######################|     13.1% |##--------------------| #> AMP   392     83.9% |##################----|     50.0% |###########-----------| #> TZP   416     89.1% |###################---|      5.5% |#---------------------| #> CZO    82     17.6% |###-------------------|      2.4% |----------------------| #> FEP   317     67.9% |##############--------|      2.8% |----------------------| #> CXM   465     99.6% |######################|      5.4% |#---------------------| #> FOX   377     80.7% |#################-----|      6.9% |#---------------------| #> CTX   459     98.3% |#####################-|      2.4% |----------------------| #> CAZ   460     98.5% |#####################-|      2.4% |----------------------| #> CRO   459     98.3% |#####################-|      2.4% |----------------------| #> GEN   460     98.5% |#####################-|      2.0% |----------------------| #> TOB   462     98.9% |#####################-|      2.6% |----------------------| #> AMK   171     36.6% |########--------------|      0.0% |----------------------| #> KAN     0      0.0% |----------------------|                                    #> TMP   396     84.8% |##################----|     39.1% |########--------------| #> SXT   465     99.6% |######################|     31.6% |######----------------| #> NIT   458     98.1% |#####################-|      2.8% |----------------------| #> FOS    61     13.1% |##--------------------|      0.0% |----------------------| #> LNZ   467    100.0% |######################|    100.0% |######################| #> CIP   456     97.6% |#####################-|     12.5% |##--------------------| #> MFX    57     12.2% |##--------------------|    100.0% |######################| #> VAN   467    100.0% |######################|    100.0% |######################| #> TEC   467    100.0% |######################|    100.0% |######################| #> TCY     3      0.6% |----------------------|     66.7% |##############--------| #> TGC    68     14.6% |###-------------------|      0.0% |----------------------| #> DOX     0      0.0% |----------------------|                                    #> ERY   467    100.0% |######################|    100.0% |######################| #> CLI   467    100.0% |######################|    100.0% |######################| #> AZM   467    100.0% |######################|    100.0% |######################| #> IPM   422     90.4% |###################---|      0.0% |----------------------| #> MEM   418     89.5% |###################---|      0.0% |----------------------| #> MTR     2      0.4% |----------------------|      0.0% |----------------------| #> CHL     0      0.0% |----------------------|                                    #> COL   240     51.4% |###########-----------|      0.0% |----------------------| #> MUP     0      0.0% |----------------------|                                    #> RIF   467    100.0% |######################|    100.0% |######################| # }"},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Bug-Drug Combinations — bug_drug_combinations","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"Determine antimicrobial resistance (AMR) bug-drug combinations data set least 30 (default) isolates available per species. Use format() result prettify publishable/printable format, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"bug_drug_combinations(x, col_mo = NULL, FUN = mo_shortname, ...)  # S3 method for class 'bug_drug_combinations' format(   x,   translate_ab = \"name (ab, atc)\",   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   add_ab_group = TRUE,   remove_intrinsic_resistant = FALSE,   decimal.mark = getOption(\"OutDec\"),   big.mark = ifelse(decimal.mark == \",\", \".\", \",\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"x data set antibiotic columns, amox, AMX AMC col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). FUN function call mo column transform microorganism codes - default mo_shortname() ... arguments passed FUN translate_ab character length 1 containing column names antibiotics data set language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether values S, SDD, summed, resistance based R - default TRUE add_ab_group logical indicate group antimicrobials must included first column remove_intrinsic_resistant logical indicate rows columns 100% resistance tested antimicrobials must removed table decimal.mark character used indicate numeric     decimal point. big.mark character; empty used mark every     big.interval decimals (hence big)     decimal point.","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function bug_drug_combinations() returns data.frame columns \"mo\", \"ab\", \"S\", \"SDD\", \"\", \"R\", \"total\".","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function format() calculates resistance per bug-drug combination returns table ready reporting/publishing. Use combine_SI = TRUE (default) test R vs. S+combine_SI = FALSE test R+vs. S. table can also directly used R Markdown / Quarto without need e.g. knitr::kable().","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # \\donttest{ x <- bug_drug_combinations(example_isolates) head(x) #> # A tibble: 6 × 8 #>   mo                ab        S   SDD     I     R    NI total #>   <chr>             <chr> <int> <int> <int> <int> <int> <int> #> 1 (unknown species) AMC      15     0     0     0     0    15 #> 2 (unknown species) AMK       0     0     0     0     0     0 #> 3 (unknown species) AMP      15     0     0     1     0    16 #> 4 (unknown species) AMX      15     0     0     1     0    16 #> 5 (unknown species) AZM       3     0     0     3     0     6 #> 6 (unknown species) CAZ       0     0     0     0     0     0 #> Use 'format()' on this result to get a publishable/printable format. format(x, translate_ab = \"name (atc)\") #> # A tibble: 39 × 12 #>    Group     Drug  CoNS  `E. coli` `E. faecalis` `K. pneumoniae` `P. aeruginosa` #>    <chr>     <chr> <chr> <chr>     <chr>         <chr>           <chr>           #>  1 \"Aminogl… Amik… \"100… \"  0.0% … \"100.0% (39/… \"\"              \"\"              #>  2 \"\"        Gent… \" 13… \"  2.0% … \"100.0% (39/… \" 10.3% (6/58)\" \"  0.0% (0/30)\" #>  3 \"\"        Kana… \"100… \"\"        \"100.0% (39/… \"\"              \"100.0% (30/30… #>  4 \"\"        Tobr… \" 78… \"  2.6% … \"100.0% (39/… \" 10.3% (6/58)\" \"  0.0% (0/30)\" #>  5 \"Ampheni… Chlo… \"\"    \"\"        \"\"            \"\"              \"100.0% (30/30… #>  6 \"Antimyc… Rifa… \"\"    \"100.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #>  7 \"Beta-la… Amox… \" 93… \" 50.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #>  8 \"\"        Amox… \" 42… \" 13.1% … \"\"            \" 10.3% (6/58)\" \"100.0% (30/30… #>  9 \"\"        Ampi… \" 93… \" 50.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #> 10 \"\"        Benz… \" 77… \"100.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #> # ℹ 29 more rows #> # ℹ 5 more variables: `P. mirabilis` <chr>, `S. aureus` <chr>, #> #   `S. epidermidis` <chr>, `S. hominis` <chr>, `S. pneumoniae` <chr>  # Use FUN to change to transformation of microorganism codes bug_drug_combinations(example_isolates,   FUN = mo_gramstain ) #> # A tibble: 80 × 8 #>    mo            ab        S   SDD     I     R    NI total #>  * <chr>         <chr> <int> <int> <int> <int> <int> <int> #>  1 Gram-negative AMC     463     0    89   174     0   726 #>  2 Gram-negative AMK     251     0     0     5     0   256 #>  3 Gram-negative AMP     226     0     0   405     0   631 #>  4 Gram-negative AMX     226     0     0   405     0   631 #>  5 Gram-negative AZM       1     0     2   696     0   699 #>  6 Gram-negative CAZ     607     0     0    27     0   634 #>  7 Gram-negative CHL       1     0     0    30     0    31 #>  8 Gram-negative CIP     610     0    11    63     0   684 #>  9 Gram-negative CLI      18     0     1   709     0   728 #> 10 Gram-negative COL     309     0     0    78     0   387 #> # ℹ 70 more rows #> Use 'format()' on this result to get a publishable/printable format.  bug_drug_combinations(example_isolates,   FUN = function(x) {     ifelse(x == as.mo(\"Escherichia coli\"),       \"E. coli\",       \"Others\"     )   } ) #> # A tibble: 80 × 8 #>    mo      ab        S   SDD     I     R    NI total #>  * <chr>   <chr> <int> <int> <int> <int> <int> <int> #>  1 E. coli AMC     332     0    74    61     0   467 #>  2 E. coli AMK     171     0     0     0     0   171 #>  3 E. coli AMP     196     0     0   196     0   392 #>  4 E. coli AMX     196     0     0   196     0   392 #>  5 E. coli AZM       0     0     0   467     0   467 #>  6 E. coli CAZ     449     0     0    11     0   460 #>  7 E. coli CHL       0     0     0     0     0     0 #>  8 E. coli CIP     398     0     1    57     0   456 #>  9 E. coli CLI       0     0     0   467     0   467 #> 10 E. coli COL     240     0     0     0     0   240 #> # ℹ 70 more rows #> Use 'format()' on this result to get a publishable/printable format. # }"},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Data set containing clinical breakpoints interpret MIC disk diffusion SIR values, according international guidelines. dataset contain breakpoints humans, 7 different animal groups, ECOFFs. breakpoints currently implemented: clinical microbiology: EUCAST 2011-2024 CLSI 2011-2024; veterinary microbiology: EUCAST 2021-2024 CLSI 2019-2024; ECOFFs (Epidemiological Cut-Values): EUCAST 2020-2024 CLSI 2022-2024. Use .sir() transform MICs disks measurements SIR values.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"","code":"clinical_breakpoints"},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"tibble 34 063 observations 14 variables: guideline Name guideline type Breakpoint type, either \"ECOFF\", \"animal\", \"human\" host Host infectious agent. mostly useful veterinary breakpoints either \"ECOFF\", \"aquatic\", \"cats\", \"cattle\", \"dogs\", \"horse\", \"human\", \"poultry\", \"swine\" method Testing method, either \"DISK\" \"MIC\" site Body site breakpoint must applied, e.g. \"Oral\" \"Respiratory\" mo Microbial ID, see .mo() rank_index Taxonomic rank index mo 1 (subspecies/infraspecies) 5 (unknown microorganism) ab Antibiotic code used package, EARS-Net WHONET, see .ab() ref_tbl Info guideline rule can found disk_dose Dose used disk diffusion method breakpoint_S Lowest MIC value highest number millimetres leads \"S\" breakpoint_R Highest MIC value lowest number millimetres leads \"R\" uti logical value (TRUE/FALSE) indicate whether rule applies urinary tract infection (UTI) is_SDD logical value (TRUE/FALSE) indicate whether intermediate range \"S\" \"R\" interpreted \"SDD\", instead \"\". currently applies 24 breakpoints.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"different-types-of-breakpoints","dir":"Reference","previous_headings":"","what":"Different types of breakpoints","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Supported types breakpoints ECOFF, animal, human. ECOFF (Epidemiological cut-) values used antimicrobial susceptibility testing differentiate wild-type non-wild-type strains bacteria fungi. default \"human\", can also set package option AMR_breakpoint_type. Use .sir(..., breakpoint_type = ...) interpret raw data using specific breakpoint type, e.g. .sir(..., breakpoint_type = \"ECOFF\") use ECOFFs.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"imported-from-whonet","dir":"Reference","previous_headings":"","what":"Imported from WHONET","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Clinical breakpoints package validated imported WHONET, free desktop Windows application developed supported Collaborating Centre Surveillance Antimicrobial Resistance. can read website. developers WHONET AMR package contact sharing work. highly appreciate great development WHONET software.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"response-from-clsi-and-eucast","dir":"Reference","previous_headings":"","what":"Response from CLSI and EUCAST","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"CEO CLSI chairman EUCAST endorsed work public use AMR package (consequently use breakpoints) June 2023, future development distributing clinical breakpoints discussed meeting CLSI, EUCAST, , developers WHONET software, developers AMR package.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"download","dir":"Reference","previous_headings":"","what":"Download","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. Please visit website download links. actual files course available GitHub repository. allow machine reading EUCAST CLSI guidelines, almost impossible MS Excel PDF files distributed EUCAST CLSI, though initiatives started overcome burdens. NOTE: AMR package (WHONET software well) contains rather complex internal methods apply guidelines. example, breakpoints must applied certain species groups (case package available microorganisms.groups data set). important considered using breakpoints use.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"","code":"clinical_breakpoints #> # A tibble: 34,063 × 14 #>    guideline   type  host  method site    mo            rank_index ab   ref_tbl  #>    <chr>       <chr> <chr> <chr>  <chr>   <mo>               <dbl> <ab> <chr>    #>  1 EUCAST 2024 human human DISK   NA      B_ACHRMB_XYLS          2 MEM  A. xylo… #>  2 EUCAST 2024 human human MIC    NA      B_ACHRMB_XYLS          2 MEM  A. xylo… #>  3 EUCAST 2024 human human DISK   NA      B_ACHRMB_XYLS          2 SXT  A. xylo… #>  4 EUCAST 2024 human human MIC    NA      B_ACHRMB_XYLS          2 SXT  A. xylo… #>  5 EUCAST 2024 human human DISK   NA      B_ACHRMB_XYLS          2 TZP  A. xylo… #>  6 EUCAST 2024 human human MIC    NA      B_ACHRMB_XYLS          2 TZP  A. xylo… #>  7 EUCAST 2024 human human DISK   NA      B_ACNTB                3 AMK  Acineto… #>  8 EUCAST 2024 human human DISK   Uncomp… B_ACNTB                3 AMK  Acineto… #>  9 EUCAST 2024 human human MIC    NA      B_ACNTB                3 AMK  Acineto… #> 10 EUCAST 2024 human human MIC    Uncomp… B_ACNTB                3 AMK  Acineto… #> # ℹ 34,053 more rows #> # ℹ 5 more variables: disk_dose <chr>, breakpoint_S <dbl>, breakpoint_R <dbl>, #> #   uti <lgl>, is_SDD <lgl>"},{"path":"https://msberends.github.io/AMR/reference/count.html","id":null,"dir":"Reference","previous_headings":"","what":"Count Available Isolates — count","title":"Count Available Isolates — count","text":"functions can used count resistant/susceptible microbial isolates. functions support quasiquotation pipes, can used summarise() dplyr package also support grouped variables, see Examples. count_resistant() used count resistant isolates, count_susceptible() used count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Count Available Isolates — count","text":"","code":"count_resistant(..., only_all_tested = FALSE)  count_susceptible(..., only_all_tested = FALSE)  count_S(..., only_all_tested = FALSE)  count_SI(..., only_all_tested = FALSE)  count_I(..., only_all_tested = FALSE)  count_IR(..., only_all_tested = FALSE)  count_R(..., only_all_tested = FALSE)  count_all(..., only_all_tested = FALSE)  n_sir(..., only_all_tested = FALSE)  count_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   combine_SI = TRUE )"},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Count Available Isolates — count","text":"... one vectors (columns) antibiotic interpretations. transformed internally .sir() needed. only_all_tested (combination therapies, .e. using one variable ...): logical indicate isolates must tested antibiotics, see section Combination Therapy data data.frame containing columns class sir (see .sir()) translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. combine_SI logical indicate whether values S, SDD, must merged one, output consists S+SDD+vs. R (susceptible vs. resistant) - default TRUE","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Count Available Isolates — count","text":"integer","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Count Available Isolates — count","text":"functions meant count isolates. Use resistance()/susceptibility() functions calculate microbial resistance/susceptibility. function count_resistant() equal function count_R(). function count_susceptible() equal function count_SI(). function n_sir() alias count_all(). can used count available isolates, .e. input antibiotics available result (S, R). use equal n_distinct(). function equal count_susceptible(...) + count_resistant(...). function count_df() takes variable data sir class (created .sir()) counts number S's, 's R's. also supports grouped variables. function sir_df() works exactly like count_df(), adds percentage S, R.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Count Available Isolates — count","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"combination-therapy","dir":"Reference","previous_headings":"","what":"Combination Therapy","title":"Count Available Isolates — count","text":"using one variable ... (= combination therapy), use only_all_tested count isolates tested antibiotics/variables test . See example two antibiotics, Drug Drug B, susceptibility() works calculate %SI:   Please note , combination therapies, only_all_tested = TRUE applies :   , combination therapies, only_all_tested = FALSE applies :   Using only_all_tested impact using one antibiotic input.","code":"--------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - -------------------------------------------------------------------- count_S()    +   count_I()    +   count_R()    = count_all()   proportion_S() + proportion_I() + proportion_R() = 1 count_S()    +   count_I()    +   count_R()    >= count_all()   proportion_S() + proportion_I() + proportion_R() >= 1"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Count Available Isolates — count","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info.  # base R ------------------------------------------------------------ count_resistant(example_isolates$AMX) # counts \"R\" #> [1] 804 count_susceptible(example_isolates$AMX) # counts \"S\" and \"I\" #> [1] 546 count_all(example_isolates$AMX) # counts \"S\", \"I\" and \"R\" #> [1] 1350  # be more specific count_S(example_isolates$AMX) #> Using count_S() is discouraged; use count_susceptible() instead to also #> consider \"I\" and \"SDD\" being susceptible. This note will be shown once for #> this session. #> [1] 543 count_SI(example_isolates$AMX) #> Note that count_SI() will also count dose-dependent susceptibility, #> 'SDD'. This note will be shown once for this session. #> [1] 546 count_I(example_isolates$AMX) #> Note that count_I() will also count dose-dependent susceptibility, 'SDD'. #> This note will be shown once for this session. #> [1] 3 count_IR(example_isolates$AMX) #> Using count_IR() is discouraged; use count_resistant() instead to not #> consider \"I\" and \"SDD\" being resistant. This note will be shown once for #> this session. #> [1] 807 count_R(example_isolates$AMX) #> [1] 804  # Count all available isolates count_all(example_isolates$AMX) #> [1] 1350 n_sir(example_isolates$AMX) #> [1] 1350  # n_sir() is an alias of count_all(). # Since it counts all available isolates, you can # calculate back to count e.g. susceptible isolates. # These results are the same: count_susceptible(example_isolates$AMX) #> [1] 546 susceptibility(example_isolates$AMX) * n_sir(example_isolates$AMX) #> [1] 546  # dplyr ------------------------------------------------------------- # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       R = count_R(CIP),       I = count_I(CIP),       S = count_S(CIP),       n1 = count_all(CIP), # the actual total; sum of all three       n2 = n_sir(CIP), # same - analogous to n_distinct       total = n()     ) # NOT the number of tested isolates!    # Number of available isolates for a whole antibiotic class   # (i.e., in this data set columns GEN, TOB, AMK, KAN)   example_isolates %>%     group_by(ward) %>%     summarise(across(aminoglycosides(), n_sir))    # Count co-resistance between amoxicillin/clav acid and gentamicin,   # so we can see that combination therapy does a lot more than mono therapy.   # Please mind that `susceptibility()` calculates percentages right away instead.   example_isolates %>% count_susceptible(AMC) # 1433   example_isolates %>% count_all(AMC) # 1879    example_isolates %>% count_susceptible(GEN) # 1399   example_isolates %>% count_all(GEN) # 1855    example_isolates %>% count_susceptible(AMC, GEN) # 1764   example_isolates %>% count_all(AMC, GEN) # 1936    # Get number of S+I vs. R immediately of selected columns   example_isolates %>%     select(AMX, CIP) %>%     count_df(translate = FALSE)    # It also supports grouping variables   example_isolates %>%     select(ward, AMX, CIP) %>%     group_by(ward) %>%     count_df(translate = FALSE) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 12 × 4 #>    ward       antibiotic interpretation value #>  * <chr>      <chr>      <ord>          <int> #>  1 Clinical   AMX        SI               357 #>  2 Clinical   AMX        R                487 #>  3 Clinical   CIP        SI               741 #>  4 Clinical   CIP        R                128 #>  5 ICU        AMX        SI               158 #>  6 ICU        AMX        R                270 #>  7 ICU        CIP        SI               362 #>  8 ICU        CIP        R                 85 #>  9 Outpatient AMX        SI                31 #> 10 Outpatient AMX        R                 47 #> 11 Outpatient CIP        SI                78 #> 12 Outpatient CIP        R                 15 # }"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":null,"dir":"Reference","previous_headings":"","what":"Define Custom EUCAST Rules — custom_eucast_rules","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"Define custom EUCAST rules organisation specific analysis use output function eucast_rules().","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"","code":"custom_eucast_rules(...)"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"... rules formula notation, see instructions, Examples","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"list containing custom rules","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"organisations adoption EUCAST rules. function can used define custom EUCAST rules used eucast_rules() function.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"basics","dir":"Reference","previous_headings":"","what":"Basics","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"familiar case_when() function dplyr package, recognise input method set rules. Rules must set using R considers 'formula notation'. rule written tilde (~) consequence rule written tilde:   two custom EUCAST rules: TZP (piperacillin/tazobactam) \"S\", aminopenicillins (ampicillin amoxicillin) must made \"S\", TZP \"R\", aminopenicillins must made \"R\". rules can also printed console, immediately clear work:   rules (part tilde, example TZP == \"S\" TZP == \"R\") must evaluable data set: able run filter data set without errors. means example column TZP must exist. create sample data set test rules set:","code":"x <- custom_eucast_rules(TZP == \"S\" ~ aminopenicillins == \"S\",                          TZP == \"R\" ~ aminopenicillins == \"R\") x #> A set of custom EUCAST rules: #> #>   1. If TZP is \"S\" then set to  S : #>      amoxicillin (AMX), ampicillin (AMP) #> #>   2. If TZP is \"R\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) df <- data.frame(mo = c(\"Escherichia coli\", \"Klebsiella pneumoniae\"),                  TZP = as.sir(\"R\"),                  ampi = as.sir(\"S\"),                  cipro = as.sir(\"S\")) df #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    S     S #> 2 Klebsiella pneumoniae   R    S     S  eucast_rules(df, rules = \"custom\", custom_rules = x, info = FALSE) #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    R     S #> 2 Klebsiella pneumoniae   R    R     S"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"using-taxonomic-properties-in-rules","dir":"Reference","previous_headings":"","what":"Using taxonomic properties in rules","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"one exception columns used rules: column names microorganisms data set can also used, exist data set. column names : \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"mycobank\", \"mycobank_parent\", \"mycobank_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". Thus, next example work well, despite fact df data set contain column genus:","code":"y <- custom_eucast_rules(TZP == \"S\" & genus == \"Klebsiella\" ~ aminopenicillins == \"S\",                          TZP == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\")  eucast_rules(df, rules = \"custom\", custom_rules = y, info = FALSE) #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    S     S #> 2 Klebsiella pneumoniae   R    R     S"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"usage-of-multiple-antibiotics-and-antibiotic-group-names","dir":"Reference","previous_headings":"","what":"Usage of multiple antibiotics and antibiotic group names","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"can define antibiotic groups instead single antibiotics rule consequence, part tilde (~). examples , antibiotic group aminopenicillins includes ampicillin amoxicillin. Rules can also applied multiple antibiotics antibiotic groups simultaneously. Use c() function combine multiple antibiotics. instance, following example sets aminopenicillins ureidopenicillins \"R\" column TZP (piperacillin/tazobactam) \"R\":   31 antibiotic groups allowed rules (case-insensitive) can used combination: aminoglycosides(amikacin, amikacin/fosfomycin, apramycin, arbekacin, astromicin, bekanamycin, dibekacin, framycetin, gentamicin, gentamicin-high, habekacin, hygromycin, isepamicin, kanamycin, kanamycin-high, kanamycin/cephalexin, micronomicin, neomycin, netilmicin, pentisomicin, plazomicin, propikacin, ribostamycin, sisomicin, streptoduocin, streptomycin, streptomycin-high, tobramycin, tobramycin-high) aminopenicillins(amoxicillin ampicillin) antifungals(amorolfine, amphotericin B, amphotericin B-high, anidulafungin, butoconazole, caspofungin, ciclopirox, clotrimazole, econazole, fluconazole, flucytosine, fosfluconazole, griseofulvin, hachimycin, ibrexafungerp, isavuconazole, isoconazole, itraconazole, ketoconazole, manogepix, micafungin, miconazole, nystatin, oteseconazole, pimaricin, posaconazole, rezafungin, ribociclib, sulconazole, terbinafine, terconazole, voriconazole) antimycobacterials(4-aminosalicylic acid, calcium aminosalicylate, capreomycin, clofazimine, delamanid, enviomycin, ethambutol, ethambutol/isoniazid, ethionamide, isoniazid, isoniazid/sulfamethoxazole/trimethoprim/pyridoxine, morinamide, p-aminosalicylic acid, pretomanid, protionamide, pyrazinamide, rifabutin, rifampicin, rifampicin/ethambutol/isoniazid, rifampicin/isoniazid, rifampicin/pyrazinamide/ethambutol/isoniazid, rifampicin/pyrazinamide/isoniazid, rifamycin, rifapentine, simvastatin/fenofibrate, sodium aminosalicylate, streptomycin/isoniazid, terizidone, thioacetazone, thioacetazone/isoniazid, tiocarlide, viomycin) betalactams(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, avibactam, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, biapenem, carbenicillin, carindacillin, cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/nacubactam, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefiderocol, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, ciclacillin, clometocillin, cloxacillin, dicloxacillin, doripenem, epicillin, ertapenem, flucloxacillin, hetacillin, imipenem, imipenem/EDTA, imipenem/relebactam, latamoxef, lenampicillin, loracarbef, mecillinam, meropenem, meropenem/nacubactam, meropenem/vaborbactam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nacubactam, nafcillin, oxacillin, panipenem, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, razupenem, ritipenem, ritipenem acoxil, sarmoxicillin, sulbactam, sulbenicillin, sultamicillin, talampicillin, tazobactam, tebipenem, temocillin, ticarcillin, ticarcillin/clavulanic acid) betalactams_with_inhibitor(amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin/sulbactam, aztreonam/avibactam, aztreonam/nacubactam, cefepime/clavulanic acid, cefepime/nacubactam, cefepime/tazobactam, cefoperazone/sulbactam, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefpodoxime/clavulanic acid, ceftaroline/avibactam, ceftazidime/avibactam, ceftazidime/clavulanic acid, ceftolozane/tazobactam, ceftriaxone/beta-lactamase inhibitor, imipenem/relebactam, meropenem/nacubactam, meropenem/vaborbactam, mezlocillin/sulbactam, penicillin/novobiocin, penicillin/sulbactam, piperacillin/sulbactam, piperacillin/tazobactam, ticarcillin/clavulanic acid) carbapenems(biapenem, doripenem, ertapenem, imipenem, imipenem/EDTA, imipenem/relebactam, meropenem, meropenem/nacubactam, meropenem/vaborbactam, panipenem, razupenem, ritipenem, ritipenem acoxil, tebipenem) cephalosporins(cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefiderocol, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, latamoxef, loracarbef) cephalosporins_1st(cefacetrile, cefadroxil, cefalexin, cefaloridine, cefalotin, cefapirin, cefatrizine, cefazedone, cefazolin, cefroxadine, ceftezole, cephradine) cephalosporins_2nd(cefaclor, cefamandole, cefmetazole, cefonicid, ceforanide, cefotetan, cefotiam, cefoxitin, cefoxitin screening, cefprozil, cefuroxime, cefuroxime axetil, loracarbef) cephalosporins_3rd(cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefetamet, cefetamet pivoxil, cefixime, cefmenoxime, cefodizime, cefoperazone, cefoperazone/sulbactam, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotiam hexetil, cefovecin, cefpimizole, cefpiramide, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefsulodin, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, latamoxef) cephalosporins_4th(cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetecol, cefoselis, cefozopran, cefpirome, cefquinome) cephalosporins_5th(ceftaroline, ceftaroline/avibactam, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam) cephalosporins_except_caz(cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefiderocol, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, latamoxef, loracarbef) fluoroquinolones(besifloxacin, ciprofloxacin, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nifuroquine, norfloxacin, ofloxacin, orbifloxacin, pazufloxacin, pefloxacin, pradofloxacin, premafloxacin, prulifloxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin) glycopeptides(avoparcin, dalbavancin, norvancomycin, oritavancin, ramoplanin, teicoplanin, teicoplanin-macromethod, telavancin, vancomycin, vancomycin-macromethod) glycopeptides_except_lipo(avoparcin, norvancomycin, ramoplanin, teicoplanin, teicoplanin-macromethod, vancomycin, vancomycin-macromethod) lincosamides(acetylmidecamycin, acetylspiramycin, clindamycin, clindamycin inducible screening, gamithromycin, kitasamycin, lincomycin, meleumycin, nafithromycin, pirlimycin, primycin, solithromycin, tildipirosin, tilmicosin, tulathromycin, tylosin, tylvalosin) lipoglycopeptides(dalbavancin, oritavancin, telavancin) macrolides(acetylmidecamycin, acetylspiramycin, azithromycin, clarithromycin, dirithromycin, erythromycin, flurithromycin, gamithromycin, josamycin, kitasamycin, meleumycin, midecamycin, miocamycin, nafithromycin, oleandomycin, pirlimycin, primycin, rokitamycin, roxithromycin, solithromycin, spiramycin, telithromycin, tildipirosin, tilmicosin, troleandomycin, tulathromycin, tylosin, tylvalosin) nitrofurans(furazidin, furazolidone, nifurtoinol, nitrofurantoin, nitrofurazone) oxazolidinones(cadazolid, cycloserine, linezolid, tedizolid, thiacetazone) penicillins(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, avibactam, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, carbenicillin, carindacillin, cefepime/nacubactam, ciclacillin, clometocillin, cloxacillin, dicloxacillin, epicillin, flucloxacillin, hetacillin, lenampicillin, mecillinam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nacubactam, nafcillin, oxacillin, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, sarmoxicillin, sulbactam, sulbenicillin, sultamicillin, talampicillin, tazobactam, temocillin, ticarcillin, ticarcillin/clavulanic acid) polymyxins(colistin, polymyxin B, polymyxin B/polysorbate 80) quinolones(besifloxacin, cinoxacin, ciprofloxacin, ciprofloxacin/metronidazole, ciprofloxacin/ornidazole, ciprofloxacin/tinidazole, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, flumequine, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nalidixic acid, nemonoxacin, nifuroquine, nitroxoline, norfloxacin, ofloxacin, orbifloxacin, oxolinic acid, pazufloxacin, pefloxacin, pipemidic acid, piromidic acid, pradofloxacin, premafloxacin, prulifloxacin, rosoxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin) rifamycins(rifabutin, rifampicin, rifampicin/ethambutol/isoniazid, rifampicin/isoniazid, rifampicin/pyrazinamide/ethambutol/isoniazid, rifampicin/pyrazinamide/isoniazid, rifamycin, rifapentine) streptogramins(pristinamycin quinupristin/dalfopristin) tetracyclines(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline, tigecycline) tetracyclines_except_tgc(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline) trimethoprims(brodimoprim, sulfadiazine, sulfadiazine/tetroxoprim, sulfadiazine/trimethoprim, sulfadimethoxine, sulfadimidine, sulfadimidine/trimethoprim, sulfafurazole, sulfaisodimidine, sulfalene, sulfamazone, sulfamerazine, sulfamerazine/trimethoprim, sulfamethizole, sulfamethoxazole, sulfamethoxypyridazine, sulfametomidine, sulfametoxydiazine, sulfametrole/trimethoprim, sulfamoxole, sulfamoxole/trimethoprim, sulfanilamide, sulfaperin, sulfaphenazole, sulfapyridine, sulfathiazole, sulfathiourea, trimethoprim, trimethoprim/sulfamethoxazole) ureidopenicillins(azlocillin, mezlocillin, piperacillin, piperacillin/tazobactam)","code":"x <- custom_eucast_rules(TZP == \"R\" ~ c(aminopenicillins, ureidopenicillins) == \"R\") x #> A set of custom EUCAST rules: #> #>   1. If TZP is \"R\" then set to \"R\": #>      amoxicillin (AMX), ampicillin (AMP), azlocillin (AZL), mezlocillin (MEZ), piperacillin (PIP), piperacillin/tazobactam (TZP)"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"","code":"x <- custom_eucast_rules(   AMC == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\",   AMC == \"I\" & genus == \"Klebsiella\" ~ aminopenicillins == \"I\" ) x #> A set of custom EUCAST rules: #>  #>   1. If AMC is \"R\" and genus is \"Klebsiella\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   2. If AMC is \"I\" and genus is \"Klebsiella\" then set to  I : #>      amoxicillin (AMX), ampicillin (AMP)  # run the custom rule set (verbose = TRUE will return a logbook instead of the data set): eucast_rules(example_isolates,   rules = \"custom\",   custom_rules = x,   info = FALSE,   verbose = TRUE ) #> # A tibble: 8 × 9 #>     row col   mo_fullname     old   new   rule  rule_group rule_name rule_source #>   <int> <chr> <chr>           <ord> <chr> <chr> <chr>      <chr>     <chr>       #> 1    33 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 2    33 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 3    34 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 4    34 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 5   531 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 6   531 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 7  1485 AMP   Klebsiella oxy… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 8  1485 AMX   Klebsiella oxy… R     I     \"rep… Custom EU… Custom E… Object 'x'…  # combine rule sets x2 <- c(   x,   custom_eucast_rules(TZP == \"R\" ~ carbapenems == \"R\") ) x2 #> A set of custom EUCAST rules: #>  #>   1. If AMC is \"R\" and genus is \"Klebsiella\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   2. If AMC is \"I\" and genus is \"Klebsiella\" then set to  I : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   3. If TZP is \"R\" then set to  R : #>      biapenem (BIA), doripenem (DOR), ertapenem (ETP), imipenem (IPM), #>      imipenem/EDTA (IPE), imipenem/relebactam (IMR), meropenem (MEM), #>      meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), panipenem (PAN), #>      razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), tebipenem (TBP)"},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"EUCAST breakpoints used package based dosages data set. can retrieved eucast_dosage().","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"","code":"dosage"},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"tibble 503 observations 9 variables: ab Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available name Official name antimicrobial drug used WHONET/EARS-Net type Type dosage, either \"high_dosage\", \"standard_dosage\", \"uncomplicated_uti\" dose Dose, \"2 g\" \"25 mg/kg\" dose_times Number times dose must administered administration Route administration, either \"im\", \"iv\", \"oral\" notes Additional dosage notes original_txt Original text PDF file EUCAST eucast_version Version number EUCAST Clinical Breakpoints guideline dosages apply, either 13, 12, 11","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"","code":"dosage #> # A tibble: 503 × 9 #>    ab   name            type  dose  dose_times administration notes original_txt #>    <ab> <chr>           <chr> <chr>      <int> <chr>          <chr> <chr>        #>  1 AMK  Amikacin        stan… 25-3…          1 iv             \"\"    25-30 mg/kg… #>  2 AMX  Amoxicillin     high… 2 g            6 iv             \"\"    2 g x 6 iv   #>  3 AMX  Amoxicillin     stan… 1 g            3 iv             \"\"    1 g x 3-4 iv #>  4 AMX  Amoxicillin     high… 0.75…          3 oral           \"\"    0.75-1 g x … #>  5 AMX  Amoxicillin     stan… 0.5 g          3 oral           \"\"    0.5 g x 3 o… #>  6 AMX  Amoxicillin     unco… 0.5 g          3 oral           \"\"    0.5 g x 3 o… #>  7 AMC  Amoxicillin/cl… high… 2 g …          3 iv             \"\"    (2 g amoxic… #>  8 AMC  Amoxicillin/cl… stan… 1 g …          3 iv             \"\"    (1 g amoxic… #>  9 AMC  Amoxicillin/cl… high… 0.87…          3 oral           \"\"    (0.875 g am… #> 10 AMC  Amoxicillin/cl… stan… 0.5 …          3 oral           \"\"    (0.5 g amox… #> # ℹ 493 more rows #> # ℹ 1 more variable: eucast_version <dbl>"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":null,"dir":"Reference","previous_headings":"","what":"Apply EUCAST Rules — eucast_rules","title":"Apply EUCAST Rules — eucast_rules","text":"Apply rules clinical breakpoints intrinsic resistance defined European Committee Antimicrobial Susceptibility Testing (EUCAST, https://www.eucast.org), see Source. Use eucast_dosage() get data.frame advised dosages certain bug-drug combination, based dosage data set. improve interpretation antibiogram EUCAST rules applied, non-EUCAST rules can applied default, see Details.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Apply EUCAST Rules — eucast_rules","text":"","code":"eucast_rules(   x,   col_mo = NULL,   info = interactive(),   rules = getOption(\"AMR_eucastrules\", default = c(\"breakpoints\", \"expert\")),   verbose = FALSE,   version_breakpoints = 12,   version_expertrules = 3.3,   ampc_cephalosporin_resistance = NA,   only_sir_columns = FALSE,   custom_rules = NULL,   ... )  eucast_dosage(ab, administration = \"iv\", version_breakpoints = 12)"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Apply EUCAST Rules — eucast_rules","text":"EUCAST Expert Rules. Version 2.0, 2012. Leclercq et al. EUCAST expert rules antimicrobial susceptibility testing. Clin Microbiol Infect. 2013;19(2):141-60; doi:10.1111/j.1469-0691.2011.03703.x EUCAST Expert Rules, Intrinsic Resistance Exceptional Phenotypes Tables. Version 3.1, 2016. (link) EUCAST Intrinsic Resistance Unusual Phenotypes. Version 3.2, 2020. (link) EUCAST Intrinsic Resistance Unusual Phenotypes. Version 3.3, 2021. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 9.0, 2019. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 10.0, 2020. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 11.0, 2021. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 12.0, 2022. (link)","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Apply EUCAST Rules — eucast_rules","text":"x data set antibiotic columns, amox, AMX AMC col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). info logical indicate whether progress printed console - default print interactive sessions rules character vector specifies rules applied. Must one \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). default value can set another value using package option AMR_eucastrules: options(AMR_eucastrules = \"\"). using \"custom\", sure fill argument custom_rules . Custom rules can created custom_eucast_rules(). verbose logical turn Verbose mode (default ). Verbose mode, function apply rules data, instead returns data set logbook form extensive info rows columns effected way. Using Verbose mode takes lot time. version_breakpoints version number use EUCAST Clinical Breakpoints guideline. Can \"12.0\", \"11.0\", \"10.0\". version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can \"3.3\", \"3.2\", \"3.1\". ampc_cephalosporin_resistance character value applied cefotaxime, ceftriaxone ceftazidime AmpC de-repressed cephalosporin-resistant mutants - default NA. Currently works version_expertrules 3.2 higher; version 'EUCAST Expert Rules Enterobacterales' state results cefotaxime, ceftriaxone ceftazidime reported note, results suppressed (emptied) three drugs. value NA (default) argument remove results three drugs, e.g. value \"R\" make results drugs resistant. Use NULL FALSE alter results three drugs AmpC de-repressed cephalosporin-resistant mutants. Using TRUE equal using \"R\".  EUCAST Expert Rules v3.2, rule applies : Citrobacter braakii, Citrobacter freundii, Citrobacter gillenii, Citrobacter murliniae, Citrobacter rodenticum, Citrobacter sedlakii, Citrobacter werkmanii, Citrobacter youngae, Enterobacter, Hafnia alvei, Klebsiella aerogenes, Morganella morganii, Providencia, Serratia. only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE) custom_rules custom rules apply, created custom_eucast_rules() ... column name antibiotic, see section Antibiotics ab (vector ) text can coerced valid antibiotic drug code .ab() administration route administration, either \"im\", \"iv\", \"oral\"","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Apply EUCAST Rules — eucast_rules","text":"input x, possibly edited values antibiotics. , verbose = TRUE, data.frame original new values affected bug-drug combinations.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Apply EUCAST Rules — eucast_rules","text":"Note: function translate MIC values SIR values. Use .sir() . Note: ampicillin (AMP, J01CA01) available amoxicillin (AMX, J01CA04) , latter used rules dependency ampicillin. drugs interchangeable comes expression antimicrobial resistance. file containing EUCAST rules located : https://github.com/msberends/AMR/blob/main/data-raw/eucast_rules.tsv.  Note: Old taxonomic names replaced current taxonomy applicable. example, Ochrobactrum anthropi renamed Brucella anthropi 2020; original EUCAST rules v3.1 v3.2 yet contain new taxonomic name. AMR package contains full microbial taxonomy updated June 24th, 2024, see microorganisms.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"custom-rules","dir":"Reference","previous_headings":"","what":"Custom Rules","title":"Apply EUCAST Rules — eucast_rules","text":"Custom rules can created using custom_eucast_rules(), e.g.:","code":"x <- custom_eucast_rules(AMC == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\",                          AMC == \"I\" & genus == \"Klebsiella\" ~ aminopenicillins == \"I\")  eucast_rules(example_isolates, rules = \"custom\", custom_rules = x)"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"-other-rules","dir":"Reference","previous_headings":"","what":"'Other' Rules","title":"Apply EUCAST Rules — eucast_rules","text":"processing, two non-EUCAST rules drug combinations can applied improve efficacy EUCAST rules, reliability data (analysis). rules : drug enzyme inhibitor set S drug without enzyme inhibitor S drug without enzyme inhibitor set R drug enzyme inhibitor R Important examples include amoxicillin amoxicillin/clavulanic acid, trimethoprim trimethoprim/sulfamethoxazole. Needless say, rules work, drugs must available data set. Since rules officially approved EUCAST, applied default. use rules, include \"\" rules argument, use eucast_rules(..., rules = \"\"). can also set package option AMR_eucastrules, .e. run options(AMR_eucastrules = \"\").","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"antibiotics","dir":"Reference","previous_headings":"","what":"Antibiotics","title":"Apply EUCAST Rules — eucast_rules","text":"define antibiotics column names, leave determine automatically guess_ab_col() input text (case-insensitive), use NULL skip column (e.g. TIC = NULL skip ticarcillin). Manually defined non-existing columns skipped warning. following antibiotics eligible functions eucast_rules() mdro(). shown format 'name (antimicrobial ID, ATC code)', sorted alphabetically: Amikacin (AMK, J01GB06), amoxicillin (AMX, J01CA04), amoxicillin/clavulanic acid (AMC, J01CR02), ampicillin (AMP, J01CA01), ampicillin/sulbactam (SAM, J01CR01), apramycin (APR, QA07AA92), arbekacin (ARB, J01GB12), aspoxicillin (APX, J01CA19), azidocillin (AZD, J01CE04), azithromycin (AZM, J01FA10), azlocillin (AZL, J01CA09), aztreonam (ATM, J01DF01), bacampicillin (BAM, J01CA06), bekanamycin (BEK, J01GB13), benzathine benzylpenicillin (BNB, J01CE08), benzathine phenoxymethylpenicillin (BNP, J01CE10), benzylpenicillin (PEN, J01CE01), besifloxacin (BES, S01AE08), biapenem (BIA, J01DH05), carbenicillin (CRB, J01CA03), carindacillin (CRN, J01CA05), cefacetrile (CAC, J01DB10), cefaclor (CEC, J01DC04), cefadroxil (CFR, J01DB05), cefalexin (LEX, J01DB01), cefaloridine (RID, J01DB02), cefalotin (CEP, J01DB03), cefamandole (MAN, J01DC03), cefapirin (HAP, J01DB08), cefatrizine (CTZ, J01DB07), cefazedone (CZD, J01DB06), cefazolin (CZO, J01DB04), cefcapene (CCP, J01DD17), cefdinir (CDR, J01DD15), cefditoren (DIT, J01DD16), cefepime (FEP, J01DE01), cefetamet (CAT, J01DD10), cefiderocol (FDC, J01DI04), cefixime (CFM, J01DD08), cefmenoxime (CMX, J01DD05), cefmetazole (CMZ, J01DC09), cefodizime (DIZ, J01DD09), cefonicid (CID, J01DC06), cefoperazone (CFP, J01DD12), cefoperazone/sulbactam (CSL, J01DD62), ceforanide (CND, J01DC11), cefotaxime (CTX, J01DD01), cefotaxime/clavulanic acid (CTC, J01DD51), cefotetan (CTT, J01DC05), cefotiam (CTF, J01DC07), cefovecin (FOV, QJ01DD91), cefoxitin (FOX, J01DC01), cefozopran (ZOP, J01DE03), cefpiramide (CPM, J01DD11), cefpirome (CPO, J01DE02), cefpodoxime (CPD, J01DD13), cefprozil (CPR, J01DC10), cefquinome (CEQ, QG51AA07), cefroxadine (CRD, J01DB11), cefsulodin (CFS, J01DD03), ceftaroline (CPT, J01DI02), ceftazidime (CAZ, J01DD02), ceftazidime/clavulanic acid (CCV, J01DD52), cefteram (CEM, J01DD18), ceftezole (CTL, J01DB12), ceftibuten (CTB, J01DD14), ceftiofur (TIO, QJ01DD90), ceftizoxime (CZX, J01DD07), ceftobiprole medocaril (CFM1, J01DI01), ceftolozane/tazobactam (CZT, J01DI54), ceftriaxone (CRO, J01DD04), ceftriaxone/beta-lactamase inhibitor (CEB, J01DD63), cefuroxime (CXM, J01DC02), cephradine (CED, J01DB09), chloramphenicol (CHL, J01BA01), ciprofloxacin (CIP, J01MA02), clarithromycin (CLR, J01FA09), clindamycin (CLI, J01FF01), clometocillin (CLM, J01CE07), cloxacillin (CLO, J01CF02), colistin (COL, J01XB01), cycloserine (CYC, J04AB01), dalbavancin (DAL, J01XA04), danofloxacin (DAN, QJ01MA92), daptomycin (DAP, J01XX09), delafloxacin (DFX, J01MA23), dibekacin (DKB, J01GB09), dicloxacillin (DIC, J01CF01), difloxacin (DIF, QJ01MA94), dirithromycin (DIR, J01FA13), doripenem (DOR, J01DH04), doxycycline (DOX, J01AA02), enoxacin (ENX, J01MA04), enrofloxacin (ENR, QJ01MA90), epicillin (EPC, J01CA07), ertapenem (ETP, J01DH03), erythromycin (ERY, J01FA01), fleroxacin (FLE, J01MA08), flucloxacillin (FLC, J01CF05), flurithromycin (FLR1, J01FA14), fosfomycin (FOS, J01XX01), framycetin (FRM, D09AA01), fusidic acid (FUS, J01XC01), gamithromycin (GAM, QJ01FA95), garenoxacin (GRN, J01MA19), gatifloxacin (GAT, J01MA16), gemifloxacin (GEM, J01MA15), gentamicin (GEN, J01GB03), grepafloxacin (GRX, J01MA11), hetacillin (HET, J01CA18), imipenem (IPM, J01DH51), imipenem/relebactam (IMR, J01DH56), isepamicin (ISE, J01GB11), josamycin (JOS, J01FA07), kanamycin (KAN, J01GB04), kitasamycin (KIT, QJ01FA93), lascufloxacin (LSC, J01MA25), latamoxef (LTM, J01DD06), levofloxacin (LVX, J01MA12), levonadifloxacin (LND, J01MA24), lincomycin (LIN, J01FF02), linezolid (LNZ, J01XX08), lomefloxacin (LOM, J01MA07), loracarbef (LOR, J01DC08), marbofloxacin (MAR, QJ01MA93), mecillinam (MEC, J01CA11), meropenem (MEM, J01DH02), meropenem/vaborbactam (MEV, J01DH52), metampicillin (MTM, J01CA14), meticillin (MET, J01CF03), mezlocillin (MEZ, J01CA10), micronomicin (MCR, S01AA22), midecamycin (MID, J01FA03), minocycline (MNO, J01AA08), miocamycin (MCM, J01FA11), moxifloxacin (MFX, J01MA14), nadifloxacin (NAD, D10AF05), nafcillin (NAF, J01CF06), nalidixic acid (NAL, J01MB02), neomycin (NEO, J01GB05), netilmicin (NET, J01GB07), nitrofurantoin (NIT, J01XE01), norfloxacin (, J01MA06), novobiocin (NOV, QJ01XX95), ofloxacin (OFX, J01MA01), oleandomycin (OLE, J01FA05), orbifloxacin (ORB, QJ01MA95), oritavancin (ORI, J01XA05), oxacillin (OXA, J01CF04), panipenem (PAN, J01DH55), pazufloxacin (PAZ, J01MA18), pefloxacin (PEF, J01MA03), penamecillin (PNM, J01CE06), pheneticillin (PHE, J01CE05), phenoxymethylpenicillin (PHN, J01CE02), piperacillin (PIP, J01CA12), piperacillin/tazobactam (TZP, J01CR05), pirlimycin (PRL, QJ51FF90), pivampicillin (PVM, J01CA02), pivmecillinam (PME, J01CA08), plazomicin (PLZ, J01GB14), polymyxin B (PLB, J01XB02), pradofloxacin (PRA, QJ01MA97), pristinamycin (PRI, J01FG01), procaine benzylpenicillin (PRB, J01CE09), propicillin (PRP, J01CE03), prulifloxacin (PRU, J01MA17), quinupristin/dalfopristin (QDA, QJ01FG02), ribostamycin (RST, J01GB10), rifampicin (RIF, J04AB02), rokitamycin (ROK, J01FA12), roxithromycin (RXT, J01FA06), rufloxacin (RFL, J01MA10), sarafloxacin (SAR, QJ01MA98), sisomicin (SIS, J01GB08), sitafloxacin (SIT, J01MA21), solithromycin (SOL, J01FA16), sparfloxacin (SPX, J01MA09), spiramycin (SPI, J01FA02), streptoduocin (STR, J01GA02), streptomycin (STR1, J01GA01), sulbactam (SUL, J01CG01), sulbenicillin (SBC, J01CA16), sulfadiazine (SDI, J01EC02), sulfadiazine/trimethoprim (SLT1, J01EE02), sulfadimethoxine (SUD, J01ED01), sulfadimidine (SDM, J01EB03), sulfadimidine/trimethoprim (SLT2, J01EE05), sulfafurazole (SLF, J01EB05), sulfaisodimidine (SLF1, J01EB01), sulfalene (SLF2, J01ED02), sulfamazone (SZO, J01ED09), sulfamerazine (SLF3, J01ED07), sulfamerazine/trimethoprim (SLT3, J01EE07), sulfamethizole (SLF4, J01EB02), sulfamethoxazole (SMX, J01EC01), sulfamethoxypyridazine (SLF5, J01ED05), sulfametomidine (SLF6, J01ED03), sulfametoxydiazine (SLF7, J01ED04), sulfametrole/trimethoprim (SLT4, J01EE03), sulfamoxole (SLF8, J01EC03), sulfamoxole/trimethoprim (SLT5, J01EE04), sulfanilamide (SLF9, J01EB06), sulfaperin (SLF10, J01ED06), sulfaphenazole (SLF11, J01ED08), sulfapyridine (SLF12, J01EB04), sulfathiazole (SUT, J01EB07), sulfathiourea (SLF13, J01EB08), sultamicillin (SLT6, J01CR04), talampicillin (TAL, J01CA15), tazobactam (TAZ, J01CG02), tebipenem (TBP, J01DH06), tedizolid (TZD, J01XX11), teicoplanin (TEC, J01XA02), telavancin (TLV, J01XA03), telithromycin (TLT, J01FA15), temafloxacin (TMX, J01MA05), temocillin (TEM, J01CA17), tetracycline (TCY, J01AA07), ticarcillin (TIC, J01CA13), ticarcillin/clavulanic acid (TCC, J01CR03), tigecycline (TGC, J01AA12), tilbroquinol (TBQ, P01AA05), tildipirosin (TIP, QJ01FA96), tilmicosin (TIL, QJ01FA91), tobramycin (TOB, J01GB01), tosufloxacin (TFX, J01MA22), trimethoprim (TMP, J01EA01), trimethoprim/sulfamethoxazole (SXT, J01EE01), troleandomycin (TRL, J01FA08), trovafloxacin (TVA, J01MA13), tulathromycin (TUL, QJ01FA94), tylosin (TYL, QJ01FA90), tylvalosin (TYL1, QJ01FA92), vancomycin (VAN, J01XA01)","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Apply EUCAST Rules — eucast_rules","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Apply EUCAST Rules — eucast_rules","text":"","code":"# \\donttest{ a <- data.frame(   mo = c(     \"Staphylococcus aureus\",     \"Enterococcus faecalis\",     \"Escherichia coli\",     \"Klebsiella pneumoniae\",     \"Pseudomonas aeruginosa\"   ),   VAN = \"-\", # Vancomycin   AMX = \"-\", # Amoxicillin   COL = \"-\", # Colistin   CAZ = \"-\", # Ceftazidime   CXM = \"-\", # Cefuroxime   PEN = \"S\", # Benzylpenicillin   FOX = \"S\", # Cefoxitin   stringsAsFactors = FALSE )  head(a) #>                       mo VAN AMX COL CAZ CXM PEN FOX #> 1  Staphylococcus aureus   -   -   -   -   -   S   S #> 2  Enterococcus faecalis   -   -   -   -   -   S   S #> 3       Escherichia coli   -   -   -   -   -   S   S #> 4  Klebsiella pneumoniae   -   -   -   -   -   S   S #> 5 Pseudomonas aeruginosa   -   -   -   -   -   S   S   # apply EUCAST rules: some results wil be changed b <- eucast_rules(a) #> Warning: in eucast_rules(): not all columns with antimicrobial results are of #> class 'sir'. Transform them on beforehand, with e.g.: #>   - a %>% as.sir(PEN:FOX) #>   - a %>% mutate_if(is_sir_eligible, as.sir) #>   - a %>% mutate(across(where(is_sir_eligible), as.sir))  head(b) #>                       mo VAN AMX COL CAZ CXM PEN FOX #> 1  Staphylococcus aureus   -   -   R   R   S   S   S #> 2  Enterococcus faecalis   -   -   R   R   R   S   R #> 3       Escherichia coli   R   -   -   -   -   R   S #> 4  Klebsiella pneumoniae   R   R   -   -   -   R   S #> 5 Pseudomonas aeruginosa   R   R   -   -   R   R   R   # do not apply EUCAST rules, but rather get a data.frame # containing all details about the transformations: c <- eucast_rules(a, verbose = TRUE) #> Warning: in eucast_rules(): not all columns with antimicrobial results are of #> class 'sir'. Transform them on beforehand, with e.g.: #>   - a %>% as.sir(PEN:FOX) #>   - a %>% mutate_if(is_sir_eligible, as.sir) #>   - a %>% mutate(across(where(is_sir_eligible), as.sir)) head(c) #>   row col           mo_fullname old new rule   rule_group #> 1   1 CXM Staphylococcus aureus   -   S       Breakpoints #> 2   1 CAZ Staphylococcus aureus   -   R      Expert Rules #> 3   1 COL Staphylococcus aureus   -   R      Expert Rules #> 4   2 CAZ Enterococcus faecalis   -   R      Expert Rules #> 5   2 COL Enterococcus faecalis   -   R      Expert Rules #> 6   2 CXM Enterococcus faecalis   -   R      Expert Rules #>                                                 rule_name #> 1                                          Staphylococcus #> 2 Table 4: Intrinsic resistance in gram-positive bacteria #> 3 Table 4: Intrinsic resistance in gram-positive bacteria #> 4 Table 4: Intrinsic resistance in gram-positive bacteria #> 5 Table 4: Intrinsic resistance in gram-positive bacteria #> 6 Table 4: Intrinsic resistance in gram-positive bacteria #>                                                                                 rule_source #> 1                                           'EUCAST Clinical Breakpoint Tables' v12.0, 2022 #> 2 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 3 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 4 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 5 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 6 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 # }  # Dosage guidelines:  eucast_dosage(c(\"tobra\", \"genta\", \"cipro\"), \"iv\") #> ℹ Dosages for antimicrobial drugs, as meant for 'EUCAST Clinical Breakpoint #>   Tables' v12.0 (2022). This note will be shown once per session. #> # A tibble: 3 × 4 #>   ab   name          standard_dosage  high_dosage  #>   <ab> <chr>         <chr>            <chr>        #> 1 TOB  Tobramycin    6-7 mg/kg x 1 iv NA           #> 2 GEN  Gentamicin    6-7 mg/kg x 1 iv NA           #> 3 CIP  Ciprofloxacin 0.4 g x 2 iv     0.4 g x 3 iv  eucast_dosage(c(\"tobra\", \"genta\", \"cipro\"), \"iv\", version_breakpoints = 10) #> ℹ Dosages for antimicrobial drugs, as meant for 'EUCAST Clinical Breakpoint #>   Tables' v10.0 (2020). This note will be shown once per session. #> # A tibble: 3 × 4 #>   ab   name          standard_dosage  high_dosage  #>   <ab> <chr>         <chr>            <chr>        #> 1 TOB  Tobramycin    6-7 mg/kg x 1 iv NA           #> 2 GEN  Gentamicin    6-7 mg/kg x 1 iv NA           #> 3 CIP  Ciprofloxacin 0.4 g x 2 iv     0.4 g x 3 iv"},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 2 000 Example Isolates — example_isolates","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"data set containing 2 000 microbial isolates full antibiograms. data set contains randomised fictitious data, reflects reality can used practise AMR data analysis. examples, please read tutorial website.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"","code":"example_isolates"},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"tibble 2 000 observations 46 variables: date Date receipt laboratory patient ID patient age Age patient gender Gender patient, either \"F\" \"M\" ward Ward type patient admitted, either \"Clinical\", \"ICU\", \"Outpatient\" mo ID microorganism created .mo(), see also microorganisms data set PEN:RIF 40 different antibiotics class sir (see .sir()); column names occur antibiotics data set can translated set_ab_names() ab_name()","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …"},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Unclean Data — example_isolates_unclean","title":"Data Set with Unclean Data — example_isolates_unclean","text":"data set containing 3 000 microbial isolates cleaned consequently ready AMR data analysis. data set can used practice.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Unclean Data — example_isolates_unclean","text":"","code":"example_isolates_unclean"},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Unclean Data — example_isolates_unclean","text":"tibble 3 000 observations 8 variables: patient_id ID patient date date receipt laboratory hospital ID hospital, C bacteria info microorganism can transformed .mo(), see also microorganisms AMX:GEN 4 different antibiotics transformed .sir()","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Unclean Data — example_isolates_unclean","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Unclean Data — example_isolates_unclean","text":"","code":"example_isolates_unclean #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria      AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <chr>         <chr> <chr> <chr> <chr> #>  1 J3         A        2012-11-21 E. coli       R     I     S     S     #>  2 R7         A        2018-04-03 K. pneumoniae R     I     S     S     #>  3 P3         A        2014-09-19 E. coli       R     S     S     S     #>  4 P10        A        2015-12-10 E. coli       S     I     S     S     #>  5 B7         A        2015-03-02 E. coli       S     S     S     S     #>  6 W3         A        2018-03-31 S. aureus     R     S     R     S     #>  7 J8         A        2016-06-14 E. coli       R     S     S     S     #>  8 M3         A        2015-10-25 E. coli       R     S     S     S     #>  9 J3         A        2019-06-19 E. coli       S     S     S     S     #> 10 G6         A        2015-04-27 S. aureus     S     S     S     S     #> # ℹ 2,990 more rows"},{"path":"https://msberends.github.io/AMR/reference/export_ncbi_biosample.html","id":null,"dir":"Reference","previous_headings":"","what":"Export Data Set as NCBI BioSample Antibiogram — export_ncbi_biosample","title":"Export Data Set as NCBI BioSample Antibiogram — export_ncbi_biosample","text":"Export Data Set NCBI BioSample Antibiogram","code":""},{"path":"https://msberends.github.io/AMR/reference/export_ncbi_biosample.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Export Data Set as NCBI BioSample Antibiogram — export_ncbi_biosample","text":"","code":"export_ncbi_biosample(   x,   filename = paste0(\"biosample_\", format(Sys.time(), \"%Y-%m-%d-%H%M%S\"), \".xlsx\"),   type = \"pathogen MIC\",   columns = where(is.mic),   save_as_xlsx = TRUE )"},{"path":"https://msberends.github.io/AMR/reference/export_ncbi_biosample.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Export Data Set as NCBI BioSample Antibiogram — export_ncbi_biosample","text":"x data set filename character string specifying file name type character string specifying type data set, either \"pathogen MIC\" \"beta-lactamase MIC\", see https://www.ncbi.nlm.nih.gov/biosample/docs/","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine First Isolates — first_isolate","title":"Determine First Isolates — first_isolate","text":"Determine first isolates microorganisms every patient per episode (needed) per specimen type. functions support four methods summarised Hindler et al. 2007 (doi:10.1086/511864 ). determine patient episodes necessarily based microorganisms, use is_new_episode() also supports grouping dplyr package.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine First Isolates — first_isolate","text":"","code":"first_isolate(   x = NULL,   col_date = NULL,   col_patient_id = NULL,   col_mo = NULL,   col_testcode = NULL,   col_specimen = NULL,   col_icu = NULL,   col_keyantimicrobials = NULL,   episode_days = 365,   testcodes_exclude = NULL,   icu_exclude = FALSE,   specimen_group = NULL,   type = \"points\",   method = c(\"phenotype-based\", \"episode-based\", \"patient-based\", \"isolate-based\"),   ignore_I = TRUE,   points_threshold = 2,   info = interactive(),   include_unknown = FALSE,   include_untested_sir = TRUE,   ... )  filter_first_isolate(   x = NULL,   col_date = NULL,   col_patient_id = NULL,   col_mo = NULL,   episode_days = 365,   method = c(\"phenotype-based\", \"episode-based\", \"patient-based\", \"isolate-based\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Determine First Isolates — first_isolate","text":"Methodology function strictly based : M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. Hindler JF Stelling J (2007). Analysis Presentation Cumulative Antibiograms: New Consensus Guideline Clinical Laboratory Standards Institute. Clinical Infectious Diseases, 44(6), 867-873. doi:10.1086/511864","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine First Isolates — first_isolate","text":"x data.frame containing isolates. Can left blank automatic determination, see Examples. col_date column name result date (date received lab) - default first column date class col_patient_id column name unique IDs patients - default first column starts 'patient' 'patid' (case insensitive) col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). col_testcode column name test codes. Use col_testcode = NULL exclude certain test codes (test codes screening). case testcodes_exclude ignored. col_specimen column name specimen type group col_icu column name logicals (TRUE/FALSE) whether ward department Intensive Care Unit (ICU). can also logical vector length rows x. col_keyantimicrobials (useful method = \"phenotype-based\") column name key antimicrobials determine first isolates, see key_antimicrobials(). default first column starts 'key' followed 'ab' 'antibiotics' 'antimicrobials' (case insensitive). Use col_keyantimicrobials = FALSE prevent . Can also output key_antimicrobials(). episode_days episode days genus/species combination determined 'first isolate' . default 365 days based guideline CLSI, see Source. testcodes_exclude character vector test codes excluded (case-insensitive) icu_exclude logical indicate whether ICU isolates excluded (rows value TRUE column set col_icu) specimen_group value column set col_specimen filter type type determine weighed isolates; can \"keyantimicrobials\" \"points\", see Details method method apply, either \"phenotype-based\", \"episode-based\", \"patient-based\" \"isolate-based\" (can abbreviated), see Details. default \"phenotype-based\" antimicrobial test results present data, \"episode-based\" otherwise. ignore_I logical indicate whether antibiotic interpretations \"\" ignored type = \"keyantimicrobials\", see Details points_threshold minimum number points require differences antibiogram lead inclusion isolate type = \"points\", see Details info logical indicate info printed - default TRUE interactive mode include_unknown logical indicate whether 'unknown' microorganisms included , .e. microbial code \"UNKNOWN\", defaults FALSE. WHONET users, means records organism code \"con\" (contamination) excluded default. Isolates microbial ID NA always excluded first isolate. include_untested_sir logical indicate whether also rows without antibiotic results still eligible becoming first isolate. Use include_untested_sir = FALSE always return FALSE rows. checks data set columns class sir consequently requires transforming columns antibiotic results using .sir() first. ... arguments passed first_isolate() using filter_first_isolate(), otherwise arguments passed key_antimicrobials() (universal, gram_negative, gram_positive)","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine First Isolates — first_isolate","text":"logical vector","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine First Isolates — first_isolate","text":"conduct epidemiological analyses antimicrobial resistance data, -called first isolates included prevent overestimation underestimation antimicrobial resistance. Different methods can used , see . functions context-aware. means x argument can left blank used inside data.frame call, see Examples. first_isolate() function wrapper around is_new_episode() function, efficient data sets containing microorganism codes names. isolates microbial ID NA excluded first isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"different-methods","dir":"Reference","previous_headings":"","what":"Different methods","title":"Determine First Isolates — first_isolate","text":"According Hindler et al. (2007, doi:10.1086/511864 ), different methods (algorithms) select first isolates increasing reliability: isolate-based, patient-based, episode-based phenotype-based. methods select combination taxonomic genus species (subspecies). mentioned methods covered first_isolate() function:","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"isolate-based","dir":"Reference","previous_headings":"","what":"Isolate-based","title":"Determine First Isolates — first_isolate","text":"method require selection, isolates included. , however, respect arguments set first_isolate() function. example, default setting include_unknown (FALSE) omit selection rows without microbial ID.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"patient-based","dir":"Reference","previous_headings":"","what":"Patient-based","title":"Determine First Isolates — first_isolate","text":"include every genus-species combination per patient , set episode_days Inf. Although often inappropriate, method makes sure duplicate isolates selected patient. large longitudinal data set, mean isolates excluded found years initial isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"episode-based","dir":"Reference","previous_headings":"","what":"Episode-based","title":"Determine First Isolates — first_isolate","text":"include every genus-species combination per patient episode , set episode_days sensible number days. Depending type analysis, 14, 30, 60 365. Short episodes common analysing specific hospital ward data, long episodes common analysing regional national data. common method correct duplicate isolates. Patients categorised episodes based ID dates (e.g., date specimen receipt laboratory result). common method, take account antimicrobial test results. means e.g. methicillin-resistant Staphylococcus aureus (MRSA) isolate differentiated wildtype Staphylococcus aureus isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"phenotype-based","dir":"Reference","previous_headings":"","what":"Phenotype-based","title":"Determine First Isolates — first_isolate","text":"reliable method, since also weighs antibiogram (antimicrobial test results) yielding -called 'first weighted isolates'. two different methods weigh antibiogram: Using type = \"points\" argument points_threshold (default) method weighs antimicrobial drugs available data set. difference S R (vice versa) counts 0.5 points, difference S R (vice versa) counts 1 point. sum points exceeds points_threshold, defaults 2, isolate selected first weighted isolate. antimicrobials internally selected using all_antimicrobials() function. output function need passed first_isolate() function. Using type = \"keyantimicrobials\" argument ignore_I method weighs specific antimicrobial drugs, called key antimicrobials. difference S R (vice versa) key antimicrobials select isolate first weighted isolate. ignore_I = FALSE, also differences S R (vice versa) lead . Key antimicrobials internally selected using key_antimicrobials() function, can also added manually variable data set col_keyantimicrobials argument. Another option pass output key_antimicrobials() function directly col_keyantimicrobials argument. default method phenotype-based (using type = \"points\") episode-based (using episode_days = 365). makes sure every genus-species combination selected per patient per year, taking account antimicrobial test results. antimicrobial test results available data set, episode-based method applied default.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine First Isolates — first_isolate","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  example_isolates[first_isolate(info = TRUE), ] #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Using column 'date' as input for col_date. #> ℹ Using column 'patient' as input for col_patient_id. #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> ℹ Excluding 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,387 'phenotype-based' first isolates (69.4% of total where a #>    microbial ID was available) #> # A tibble: 1,387 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  7 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  8 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  9 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #> 10 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> # ℹ 1,377 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # \\donttest{ # get all first Gram-negatives example_isolates[which(first_isolate(info = FALSE) & mo_is_gram_negative()), ] #> ℹ Using column 'mo' as input for mo_is_gram_negative() #> # A tibble: 441 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  4 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  5 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  6 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN R     NA    NA    R     #>  7 2002-03-08 4FC193     69 M      Clinical B_ESCHR_COLI R     NA    NA    R     #>  8 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG R     NA    NA    R     #>  9 2002-04-01 496896     46 F      ICU      B_ESCHR_COLI R     NA    NA    NA    #> 10 2002-04-23 EE2510     69 F      ICU      B_ESCHR_COLI R     NA    NA    NA    #> # ℹ 431 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  if (require(\"dplyr\")) {   # filter on first isolates using dplyr:   example_isolates %>%     filter(first_isolate(info = TRUE)) } #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> ℹ Excluding 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,387 'phenotype-based' first isolates (69.4% of total where a #>    microbial ID was available) #> # A tibble: 1,387 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  7 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  8 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  9 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #> 10 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> # ℹ 1,377 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # short-hand version:   example_isolates %>%     filter_first_isolate(info = FALSE) } #> # A tibble: 1,387 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  7 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  8 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  9 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #> 10 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> # ℹ 1,377 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # flag the first isolates per group:   example_isolates %>%     group_by(ward) %>%     mutate(first = first_isolate(info = TRUE)) %>%     select(ward, date, patient, mo, first) } #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #>  #> Group: ward = \"Clinical\" #> ℹ Excluding 9 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 865 'phenotype-based' first isolates (70.1% of total where a #>    microbial ID was available) #>  #> Group: ward = \"ICU\" #> ℹ Excluding 6 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 452 'phenotype-based' first isolates (70.0% of total where a #>    microbial ID was available) #>  #> Group: ward = \"Outpatient\" #> ℹ Excluding 1 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 99 'phenotype-based' first isolates (82.5% of total where a #>    microbial ID was available) #> # A tibble: 2,000 × 5 #> # Groups:   ward [3] #>    ward     date       patient mo           first #>    <chr>    <date>     <chr>   <mo>         <lgl> #>  1 Clinical 2002-01-02 A77334  B_ESCHR_COLI TRUE  #>  2 Clinical 2002-01-03 A77334  B_ESCHR_COLI FALSE #>  3 ICU      2002-01-07 067927  B_STPHY_EPDR TRUE  #>  4 ICU      2002-01-07 067927  B_STPHY_EPDR FALSE #>  5 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  6 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  7 Clinical 2002-01-14 462729  B_STPHY_AURS TRUE  #>  8 Clinical 2002-01-14 462729  B_STPHY_AURS FALSE #>  9 ICU      2002-01-16 067927  B_STPHY_EPDR TRUE  #> 10 ICU      2002-01-17 858515  B_STPHY_EPDR TRUE  #> # ℹ 1,990 more rows # }"},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":null,"dir":"Reference","previous_headings":"","what":"G-test for Count Data — g.test","title":"G-test for Count Data — g.test","text":"g.test() performs chi-squared contingency table tests goodness--fit tests, just like chisq.test() reliable (1). G-test can used see whether number observations category fits theoretical expectation (called G-test goodness--fit), see whether proportions one variable different different values variable (called G-test independence).","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"G-test for Count Data — g.test","text":"","code":"g.test(x, y = NULL, p = rep(1/length(x), length(x)), rescale.p = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"G-test for Count Data — g.test","text":"code function identical chisq.test(), except : calculation statistic changed \\(2 * sum(x * log(x / E))\\) Yates' continuity correction removed apply G-test possibility simulate p values simulate.p.value removed","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"G-test for Count Data — g.test","text":"x numeric vector matrix. x y can also     factors. y numeric vector; ignored x matrix.      x factor, y factor length. p vector probabilities length x.     error given entry p negative. rescale.p logical scalar; TRUE p rescaled     (necessary) sum 1.  rescale.p FALSE,     p sum 1, error given.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"G-test for Count Data — g.test","text":"list class \"htest\" containing following   components: statistic value chi-squared test statistic. parameter degrees freedom approximate     chi-squared distribution test statistic, NA     p-value computed Monte Carlo simulation. p.value p-value test. method character string indicating type test     performed, whether Monte Carlo simulation continuity     correction used. data.name character string giving name(s) data. observed observed counts. expected expected counts null hypothesis. residuals Pearson residuals,     (observed - expected) / sqrt(expected). stdres standardized residuals,     (observed - expected) / sqrt(V), V     residual cell variance (Agresti, 2007, section 2.4.5     case x matrix, n * p * (1 - p) otherwise).","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"G-test for Count Data — g.test","text":"x matrix one row column, x vector y given, goodness--fit test performed (x treated one-dimensional contingency table). entries x must non-negative integers. case, hypothesis tested whether population probabilities equal p, equal p given. x matrix least two rows columns, taken two-dimensional contingency table: entries x must non-negative integers.  Otherwise, x y must vectors factors length; cases missing values removed, objects coerced factors, contingency table computed .  Pearson's chi-squared test performed null hypothesis joint distribution cell counts 2-dimensional contingency table product row column marginals. p-value computed asymptotic chi-squared distribution test statistic. contingency table case simulation done random sampling set contingency tables given marginals, works marginals strictly positive. Note usual sampling situation assumed chi-squared test (G-test) rather Fisher's exact test. goodness--fit case simulation done random sampling discrete distribution specified p, sample size n = sum(x). simulation done R may slow.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"g-test-of-goodness-of-fit-likelihood-ratio-test-","dir":"Reference","previous_headings":"","what":"G-test Of Goodness-of-Fit (Likelihood Ratio Test)","title":"G-test for Count Data — g.test","text":"Use G-test goodness--fit one nominal variable two values (male female, red, pink white flowers). compare observed counts numbers observations category expected counts, calculate using kind theoretical expectation (1:1 sex ratio 1:2:1 ratio genetic cross). expected number observations category small, G-test may give inaccurate results, use exact test instead (fisher.test()). G-test goodness--fit alternative chi-square test goodness--fit (chisq.test()); tests advantages disadvantages, results two tests usually similar.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"g-test-of-independence","dir":"Reference","previous_headings":"","what":"G-test of Independence","title":"G-test for Count Data — g.test","text":"Use G-test independence two nominal variables, two possible values. want know whether proportions one variable different among values variable. also possible G-test independence two nominal variables. example, Jackson et al. (2013) also data children 3, analysis old vs. young, thigh vs. arm, reaction vs. reaction, analyzed together. Fisher's exact test (fisher.test()) exact test, G-test still approximation. 2x2 table, Fisher's Exact test may slower still run seconds, even sum observations multiple millions. G-test independence alternative chi-square test independence (chisq.test()), give approximately results.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"how-the-test-works","dir":"Reference","previous_headings":"","what":"How the Test Works","title":"G-test for Count Data — g.test","text":"Unlike exact test goodness--fit (fisher.test()), G-test directly calculate probability obtaining observed results something extreme. Instead, like almost statistical tests, G-test intermediate step; uses data calculate test statistic measures far observed data null expectation. use mathematical relationship, case chi-square distribution, estimate probability obtaining value test statistic. G-test uses log ratio two likelihoods test statistic, also called likelihood ratio test log-likelihood ratio test. formula calculate G-statistic : \\(G = 2 * sum(x * log(x / E))\\) E expected values. Since chi-square distributed, p value can calculated R :   df degrees freedom. two categories want find ones significantly different null expectation, can use method testing category vs. sum categories, Bonferroni correction. use G-tests category, course.","code":"p <- stats::pchisq(G, df, lower.tail = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"references","dir":"Reference","previous_headings":"","what":"References","title":"G-test for Count Data — g.test","text":"McDonald, J.H. 2014. Handbook Biological Statistics (3rd ed.). Sparky House Publishing, Baltimore, Maryland. http://www.biostathandbook.com/gtestgof.html.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"G-test for Count Data — g.test","text":"","code":"# = EXAMPLE 1 = # Shivrain et al. (2006) crossed clearfield rice (which are resistant # to the herbicide imazethapyr) with red rice (which are susceptible to # imazethapyr). They then crossed the hybrid offspring and examined the # F2 generation, where they found 772 resistant plants, 1611 moderately # resistant plants, and 737 susceptible plants. If resistance is controlled # by a single gene with two co-dominant alleles, you would expect a 1:2:1 # ratio.  x <- c(772, 1611, 737) g.test(x, p = c(1, 2, 1) / 4) #>  #> \tG-test of goodness-of-fit (likelihood ratio test) #>  #> data:  x #> X-squared = 4.1471, p-value = 0.1257 #>   # There is no significant difference from a 1:2:1 ratio. # Meaning: resistance controlled by a single gene with two co-dominant # alleles, is plausible.   # = EXAMPLE 2 = # Red crossbills (Loxia curvirostra) have the tip of the upper bill either # right or left of the lower bill, which helps them extract seeds from pine # cones. Some have hypothesized that frequency-dependent selection would # keep the number of right and left-billed birds at a 1:1 ratio. Groth (1992) # observed 1752 right-billed and 1895 left-billed crossbills.  x <- c(1752, 1895) g.test(x) #>  #> \tG-test of goodness-of-fit (likelihood ratio test) #>  #> data:  x #> X-squared = 5.6085, p-value = 0.01787 #>   # There is a significant difference from a 1:1 ratio. # Meaning: there are significantly more left-billed birds."},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Clinical or Epidemic Episodes — get_episode","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"functions determine items vector can considered (start ) new episode. can used determine clinical episodes epidemiological analysis. get_episode() function returns index number episode per group, is_new_episode() function returns TRUE every new get_episode() index. absolute relative episode determination supported.","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"","code":"get_episode(x, episode_days = NULL, case_free_days = NULL, ...)  is_new_episode(x, episode_days = NULL, case_free_days = NULL, ...)"},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"x vector dates (class Date POSIXt), sorted internally determine episodes episode_days episode length days specify time period new episode begins, can also less day Inf, see Details case_free_days (inter-epidemic) interval length days new episode start, can also less day Inf, see Details ... ignored, place allow future extensions","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"get_episode(): integer vector is_new_episode(): logical vector","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"Episodes can determined two ways: absolute relative. Absolute method uses episode_days define episode length days, new episode start. common use case AMR data analysis microbial epidemiology: episodes S. aureus bacteraemia ICU patients example. episode length 30 days, new S. aureus isolates ICU episode 30 days considered different (new) episode. Thus, method counts since start previous episode. Relative method uses case_free_days quantify duration case-free days (inter-epidemic interval), new episode start. common use case infectious disease epidemiology: episodes norovirus outbreaks hospital example. case-free period 14 days, new norovirus cases time considered different (new) episode. Thus, methods counts since last case previous episode. table: ** marks start new episode, 8 January 2023 7 days since start previous episode (1 January 2023).  *** marks start new episode, 21 January 2023 7 days since last case previous episode (8 January 2023). Either episode_days case_free_days must provided function.","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"difference-between-get-episode-and-is-new-episode-","dir":"Reference","previous_headings":"","what":"Difference between get_episode() and is_new_episode()","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"get_episode() function returns index number episode, cases/patients/isolates first episode number 1, cases/patients/isolates second episode number 2, etc. is_new_episode() function hand, returns TRUE every new get_episode() index. specify, setting episode_days = 365 (using method 1 explained ), two functions differ:","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"other","dir":"Reference","previous_headings":"","what":"Other","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"first_isolate() function wrapper around is_new_episode() function, efficient data sets containing microorganism codes names allows different isolate selection methods. dplyr package required functions work, episode functions support variable grouping work conveniently inside dplyr verbs filter(), mutate() summarise().","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"","code":"# difference between absolute and relative determination of episodes: x <- data.frame(dates = as.Date(c(   \"2021-01-01\",   \"2021-01-02\",   \"2021-01-05\",   \"2021-01-08\",   \"2021-02-21\",   \"2021-02-22\",   \"2021-02-23\",   \"2021-02-24\",   \"2021-03-01\",   \"2021-03-01\" ))) x$absolute <- get_episode(x$dates, episode_days = 7) x$relative <- get_episode(x$dates, case_free_days = 7) x #>         dates absolute relative #> 1  2021-01-01        1        1 #> 2  2021-01-02        1        1 #> 3  2021-01-05        1        1 #> 4  2021-01-08        2        1 #> 5  2021-02-21        3        2 #> 6  2021-02-22        3        2 #> 7  2021-02-23        3        2 #> 8  2021-02-24        3        2 #> 9  2021-03-01        4        2 #> 10 2021-03-01        4        2   # `example_isolates` is a data set available in the AMR package. # See ?example_isolates df <- example_isolates[sample(seq_len(2000), size = 100), ]  get_episode(df$date, episode_days = 60) # indices #>   [1] 41 37 28  7 11 41 48 47  3  1 32  8  1  1 28 15 28 31 25 27 20 38 33  4 45 #>  [26] 23 15  8 13 44 34 16 42 14  6  4 47  4 10 15 41 16 24  2 14 26 21 20 19 35 #>  [51] 18 17 11 43 17 15 17  2 22 21 20 10 31  9 30 12 22 18 47 11 30 16  5 46 36 #>  [76] 21 20 14 29 18 39 28  7 27 33 10  6 26 22 25 47 40 39 14 14 39  1 34 42 31 is_new_episode(df$date, episode_days = 60) # TRUE/FALSE #>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE #>  [13] FALSE FALSE FALSE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE #>  [25]  TRUE  TRUE FALSE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE #>  [37] FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE  TRUE FALSE  TRUE  TRUE FALSE #>  [49]  TRUE  TRUE  TRUE  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE FALSE #>  [61] FALSE FALSE FALSE  TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE #>  [73]  TRUE  TRUE  TRUE FALSE FALSE FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE #>  [85] FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE #>  [97] FALSE FALSE FALSE FALSE  # filter on results from the third 60-day episode only, using base R df[which(get_episode(df$date, 60) == 3), ] #> # A tibble: 1 × 46 #>   date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>   <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #> 1 2002-06-06 24D393     20 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, RIF <sir>  # the functions also work for less than a day, e.g. to include one per hour: get_episode(   c(     Sys.time(),     Sys.time() + 60 * 60   ),   episode_days = 1 / 24 ) #> [1] 1 2  # \\donttest{ if (require(\"dplyr\")) {   # is_new_episode() can also be used in dplyr verbs to determine patient   # episodes based on any (combination of) grouping variables:   df %>%     mutate(condition = sample(       x = c(\"A\", \"B\", \"C\"),       size = 100,       replace = TRUE     )) %>%     group_by(patient, condition) %>%     mutate(new_episode = is_new_episode(date, 365)) %>%     select(patient, date, condition, new_episode) %>%     arrange(patient, condition, date) } #> # A tibble: 100 × 4 #> # Groups:   patient, condition [99] #>    patient date       condition new_episode #>    <chr>   <date>     <chr>     <lgl>       #>  1 006606  2011-10-30 A         TRUE        #>  2 059414  2006-07-21 C         TRUE        #>  3 066895  2002-02-27 C         TRUE        #>  4 067927  2002-01-16 A         TRUE        #>  5 0DBF93  2015-10-12 A         TRUE        #>  6 0F9638  2014-09-22 C         TRUE        #>  7 179451  2007-09-15 B         TRUE        #>  8 183220  2008-11-14 C         TRUE        #>  9 1D4C00  2011-04-04 B         TRUE        #> 10 218456  2003-09-26 C         TRUE        #> # ℹ 90 more rows  if (require(\"dplyr\")) {   df %>%     group_by(ward, patient) %>%     transmute(date,       patient,       new_index = get_episode(date, 60),       new_logical = is_new_episode(date, 60)     ) %>%     arrange(patient, ward, date) } #> # A tibble: 100 × 5 #> # Groups:   ward, patient [94] #>    ward     date       patient new_index new_logical #>    <chr>    <date>     <chr>       <int> <lgl>       #>  1 Clinical 2011-10-30 006606          1 TRUE        #>  2 Clinical 2006-07-21 059414          1 TRUE        #>  3 Clinical 2002-02-27 066895          1 TRUE        #>  4 ICU      2002-01-16 067927          1 TRUE        #>  5 Clinical 2015-10-12 0DBF93          1 TRUE        #>  6 Clinical 2014-09-22 0F9638          1 TRUE        #>  7 ICU      2007-09-15 179451          1 TRUE        #>  8 Clinical 2008-11-14 183220          1 TRUE        #>  9 Clinical 2011-04-04 1D4C00          1 TRUE        #> 10 Clinical 2003-09-26 218456          1 TRUE        #> # ℹ 90 more rows  if (require(\"dplyr\")) {   df %>%     group_by(ward) %>%     summarise(       n_patients = n_distinct(patient),       n_episodes_365 = sum(is_new_episode(date, episode_days = 365)),       n_episodes_60 = sum(is_new_episode(date, episode_days = 60)),       n_episodes_30 = sum(is_new_episode(date, episode_days = 30))     ) } #> # A tibble: 3 × 5 #>   ward       n_patients n_episodes_365 n_episodes_60 n_episodes_30 #>   <chr>           <int>          <int>         <int>         <int> #> 1 Clinical           68             13            40            51 #> 2 ICU                22              9            17            19 #> 3 Outpatient          4              3             4             4  # grouping on patients and microorganisms leads to the same # results as first_isolate() when using 'episode-based': if (require(\"dplyr\")) {   x <- df %>%     filter_first_isolate(       include_unknown = TRUE,       method = \"episode-based\"     )    y <- df %>%     group_by(patient, mo) %>%     filter(is_new_episode(date, 365)) %>%     ungroup()    identical(x, y) } #> [1] TRUE  # but is_new_episode() has a lot more flexibility than first_isolate(), # since you can now group on anything that seems relevant: if (require(\"dplyr\")) {   df %>%     group_by(patient, mo, ward) %>%     mutate(flag_episode = is_new_episode(date, 365)) %>%     select(group_vars(.), flag_episode) } #> # A tibble: 100 × 4 #> # Groups:   patient, mo, ward [98] #>    patient mo           ward       flag_episode #>    <chr>   <mo>         <chr>      <lgl>        #>  1 F76081  B_ESCHR_COLI ICU        TRUE         #>  2 F74547  B_STPHY_EPDR Clinical   TRUE         #>  3 988763  B_STPHY_AURS Clinical   TRUE         #>  4 8DB5B8  B_STPHY_CONS Clinical   TRUE         #>  5 FB50D6  B_STRPT_MITS ICU        TRUE         #>  6 310665  B_STPHY_CPTS Outpatient TRUE         #>  7 3D2C93  B_STPHY_EPDR ICU        TRUE         #>  8 D80438  B_CRYNB_STRT Clinical   TRUE         #>  9 24D393  B_ESCHR_COLI Clinical   TRUE         #> 10 066895  B_KLBSL_PNMN Clinical   TRUE         #> # ℹ 90 more rows # }"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":null,"dir":"Reference","previous_headings":"","what":"PCA Biplot with ggplot2 — ggplot_pca","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"Produces ggplot2 variant -called biplot PCA (principal component analysis), flexible appealing base R biplot() function.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"ggplot_pca(   x,   choices = 1:2,   scale = 1,   pc.biplot = TRUE,   labels = NULL,   labels_textsize = 3,   labels_text_placement = 1.5,   groups = NULL,   ellipse = TRUE,   ellipse_prob = 0.68,   ellipse_size = 0.5,   ellipse_alpha = 0.5,   points_size = 2,   points_alpha = 0.25,   arrows = TRUE,   arrows_colour = \"darkblue\",   arrows_size = 0.5,   arrows_textsize = 3,   arrows_textangled = TRUE,   arrows_alpha = 0.75,   base_textsize = 10,   ... )"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"ggplot_pca() function based ggbiplot() function ggbiplot package Vince Vu, found GitHub: https://github.com/vqv/ggbiplot (retrieved: 2 March 2020, latest commit: 7325e88; 12 February 2015). per GPL-2 licence demands documentation code changes, changes made based source code : Rewritten code remove dependency packages plyr, scales grid Parametrised options, like arrow ellipse settings Hardened input possibilities defining exact type user input every argument Added total amount explained variance caption plot Cleaned syntax based lintr package, fixed grammatical errors added integrity checks Updated documentation","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"x object returned pca(), prcomp() princomp() choices length 2 vector specifying components plot. default     biplot strict sense. scale variables scaled lambda ^ scale     observations scaled lambda ^ (1-scale)     lambda singular values computed     princomp. Normally 0 <= scale <= 1, warning     issued specified scale outside range. pc.biplot true, use Gabriel (1971) refers \"principal component     biplot\", lambda = 1 observations scaled sqrt(n)     variables scaled sqrt(n).  inner products     variables approximate covariances distances observations     approximate Mahalanobis distance. labels optional vector labels observations. set, labels placed respective points. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). labels_textsize size text used labels labels_text_placement adjustment factor placement variable names (>=1 means away arrow head) groups optional vector groups labels, length labels. set, points labels coloured according groups. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). ellipse logical indicate whether normal data ellipse drawn group (set groups) ellipse_prob statistical size ellipse normal probability ellipse_size size ellipse line ellipse_alpha alpha (transparency) ellipse line points_size size points points_alpha alpha (transparency) points arrows logical indicate whether arrows drawn arrows_colour colour arrow text arrows_size size (thickness) arrow lines arrows_textsize size text end arrows arrows_textangled logical whether text end arrows angled arrows_alpha alpha (transparency) arrows text base_textsize text size plot elements except labels arrows ... arguments passed functions","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"colours labels points can changed adding another scale layer colour, scale_colour_viridis_d() scale_colour_brewer().","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # \\donttest{ if (require(\"dplyr\")) {   # calculate the resistance per group first   resistance_data <- example_isolates %>%     group_by(       order = mo_order(mo), # group on anything, like order       genus = mo_genus(mo)     ) %>% #   and genus as we do here;     filter(n() >= 30) %>% # filter on only 30 results per group     summarise_if(is.sir, resistance) # then get resistance of all drugs    # now conduct PCA for certain antimicrobial drugs   pca_result <- resistance_data %>%     pca(AMC, CXM, CTX, CAZ, GEN, TOB, TMP, SXT)    summary(pca_result)    # old base R plotting method:   biplot(pca_result, main = \"Base R biplot\")    # new ggplot2 plotting method using this package:   if (require(\"ggplot2\")) {     ggplot_pca(pca_result) +       labs(title = \"ggplot2 biplot\")   }   if (require(\"ggplot2\")) {     # still extendible with any ggplot2 function     ggplot_pca(pca_result) +       scale_colour_viridis_d() +       labs(title = \"ggplot2 biplot\")   } } #> Warning: There were 73 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `PEN = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ In group 5: `order = \"Lactobacillales\"` and `genus = \"Enterococcus\"`. #> Caused by warning: #> ! Introducing NA: only 14 results available for PEN in group: order = #> \"Lactobacillales\", genus = \"Enterococcus\" (minimum = 30). #> ℹ Run `dplyr::last_dplyr_warnings()` to see the 72 remaining warnings. #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\"  #>    # }"},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":null,"dir":"Reference","previous_headings":"","what":"AMR Plots with ggplot2 — ggplot_sir","title":"AMR Plots with ggplot2 — ggplot_sir","text":"Use functions create bar plots AMR data analysis. functions rely ggplot2 functions.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"AMR Plots with ggplot2 — ggplot_sir","text":"","code":"ggplot_sir(   data,   position = NULL,   x = \"antibiotic\",   fill = \"interpretation\",   facet = NULL,   breaks = seq(0, 1, 0.1),   limits = NULL,   translate_ab = \"name\",   combine_SI = TRUE,   minimum = 30,   language = get_AMR_locale(),   nrow = NULL,   colours = c(S = \"#3CAEA3\", SI = \"#3CAEA3\", I = \"#F6D55C\", IR = \"#ED553B\", R =     \"#ED553B\"),   datalabels = TRUE,   datalabels.size = 2.5,   datalabels.colour = \"grey15\",   title = NULL,   subtitle = NULL,   caption = NULL,   x.title = \"Antimicrobial\",   y.title = \"Proportion\",   ... )  geom_sir(   position = NULL,   x = c(\"antibiotic\", \"interpretation\"),   fill = \"interpretation\",   translate_ab = \"name\",   minimum = 30,   language = get_AMR_locale(),   combine_SI = TRUE,   ... )"},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"AMR Plots with ggplot2 — ggplot_sir","text":"data data.frame column(s) class sir (see .sir()) position position adjustment bars, either \"fill\", \"stack\" \"dodge\" x variable show x axis, either \"antibiotic\" (default) \"interpretation\" grouping variable fill variable categorise using plots legend, either \"antibiotic\" (default) \"interpretation\" grouping variable facet variable split plots , either \"interpretation\" (default) \"antibiotic\" grouping variable breaks numeric vector positions limits numeric vector length two providing limits scale, use NA refer existing minimum maximum translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() combine_SI logical indicate whether values S, SDD, must merged one, output consists S+SDD+vs. R (susceptible vs. resistant) - default TRUE minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. nrow (using facet) number rows colours named vactor colour used filling. default colours colour-blind friendly. datalabels show datalabels using labels_sir_count() datalabels.size size datalabels datalabels.colour colour datalabels title text show title plot subtitle text show subtitle plot caption text show caption plot x.title text show x axis description y.title text show y axis description ... arguments passed geom_sir() , case scale_sir_colours(), named values set colours. default colours colour-blind friendly, maintaining convention e.g. 'susceptible' green 'resistant' red. See Examples. aesthetics aesthetics apply colours - default \"fill\" can also (combination ) \"alpha\", \"colour\", \"fill\", \"linetype\", \"shape\" \"size\"","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"AMR Plots with ggplot2 — ggplot_sir","text":"default, names antibiotics shown plots using ab_name(). can set translate_ab argument. See count_df(). geom_sir() take variable data sir class (created .sir()) using sir_df() plot bars percentage S, , R. default behaviour bars stacked different antibiotics x axis. Additional functions include: facet_sir() creates 2d plots (default based S//R) using ggplot2::facet_wrap(). scale_y_percent() transforms y axis 0 100% range using ggplot2::scale_y_continuous(). scale_sir_colours() sets colours bars (green S, yellow , red R). multilingual support. default colours colour-blind friendly, maintaining convention e.g. 'susceptible' green 'resistant' red. theme_sir() [ggplot2 theme][ggplot2::theme() minimal distraction. labels_sir_count() print datalabels bars percentage amount isolates using ggplot2::geom_text(). ggplot_sir() wrapper around functions uses data first input. makes possible use function pipe (%>%). See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"AMR Plots with ggplot2 — ggplot_sir","text":"","code":"# \\donttest{ if (require(\"ggplot2\") && require(\"dplyr\")) {   # get antimicrobial results for drugs against a UTI:   ggplot(example_isolates %>% select(AMX, NIT, FOS, TMP, CIP)) +     geom_sir() }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # prettify the plot using some additional functions:   df <- example_isolates %>% select(AMX, NIT, FOS, TMP, CIP)   ggplot(df) +     geom_sir() +     scale_y_percent() +     scale_sir_colours() +     labels_sir_count() +     theme_sir() }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # or better yet, simplify this using the wrapper function - a single command:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir() }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # get only proportions and no counts:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(datalabels = FALSE) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # add other ggplot2 arguments as you like:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(       width = 0.5,       colour = \"black\",       size = 1,       linetype = 2,       alpha = 0.25     ) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # you can alter the colours with colour names:   example_isolates %>%     select(AMX) %>%     ggplot_sir(colours = c(SI = \"yellow\")) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # but you can also use the built-in colour-blind friendly colours for   # your plots, where \"S\" is green, \"I\" is yellow and \"R\" is red:   data.frame(     x = c(\"Value1\", \"Value2\", \"Value3\"),     y = c(1, 2, 3),     z = c(\"Value4\", \"Value5\", \"Value6\")   ) %>%     ggplot() +     geom_col(aes(x = x, y = y, fill = z)) +     scale_sir_colours(Value4 = \"S\", Value5 = \"I\", Value6 = \"R\") }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # resistance of ciprofloxacine per age group   example_isolates %>%     mutate(first_isolate = first_isolate()) %>%     filter(       first_isolate == TRUE,       mo == as.mo(\"Escherichia coli\")     ) %>%     # age_groups() is also a function in this AMR package:     group_by(age_group = age_groups(age)) %>%     select(age_group, CIP) %>%     ggplot_sir(x = \"age_group\") } #> Warning: Removed 6 rows containing missing values or values outside the scale range #> (`geom_col()`). #> Warning: Removed 6 rows containing missing values or values outside the scale range #> (`geom_text()`).  if (require(\"ggplot2\") && require(\"dplyr\")) {   # a shorter version which also adjusts data label colours:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(colours = FALSE) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # it also supports groups (don't forget to use the group var on `x` or `facet`):   example_isolates %>%     filter(mo_is_gram_negative(), ward != \"Outpatient\") %>%     # select only UTI-specific drugs     select(ward, AMX, NIT, FOS, TMP, CIP) %>%     group_by(ward) %>%     ggplot_sir(       x = \"ward\",       facet = \"antibiotic\",       nrow = 1,       title = \"AMR of Anti-UTI Drugs Per Ward\",       x.title = \"Ward\",       datalabels = FALSE     ) } #> ℹ Using column 'mo' as input for mo_is_gram_negative()  # }"},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":null,"dir":"Reference","previous_headings":"","what":"Guess Antibiotic Column — guess_ab_col","title":"Guess Antibiotic Column — guess_ab_col","text":"tries find column name data set based information antibiotics data set. Also supports WHONET abbreviations.","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Guess Antibiotic Column — guess_ab_col","text":"","code":"guess_ab_col(   x = NULL,   search_string = NULL,   verbose = FALSE,   only_sir_columns = FALSE )"},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Guess Antibiotic Column — guess_ab_col","text":"x data.frame search_string text search x , checked .ab() value column x verbose logical indicate whether additional info printed only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE)","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Guess Antibiotic Column — guess_ab_col","text":"column name x, NULL result found.","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Guess Antibiotic Column — guess_ab_col","text":"can look antibiotic (trade) name abbreviation search x antibiotics data set column containing name code antibiotic.","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Guess Antibiotic Column — guess_ab_col","text":"","code":"df <- data.frame(   amox = \"S\",   tetr = \"R\" )  guess_ab_col(df, \"amoxicillin\") #> [1] \"amox\" guess_ab_col(df, \"J01AA07\") # ATC code of tetracycline #> [1] \"tetr\"  guess_ab_col(df, \"J01AA07\", verbose = TRUE) #> Auto-guessing columns suitable for analysis #> ... #>  OK. #> ℹ Using column 'amox' as input for AMX (amoxicillin). #> ℹ Using column 'tetr' as input for TCY (tetracycline). #> ℹ Using column 'tetr' as input for J01AA07 (tetracycline). #> [1] \"tetr\" # NOTE: Using column 'tetr' as input for J01AA07 (tetracycline).  # WHONET codes df <- data.frame(   AMP_ND10 = \"R\",   AMC_ED20 = \"S\" ) guess_ab_col(df, \"ampicillin\") #> [1] \"AMP_ND10\" guess_ab_col(df, \"J01CR02\") #> [1] \"AMC_ED20\" guess_ab_col(df, as.ab(\"augmentin\")) #> [1] \"AMC_ED20\""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"Data set containing defined intrinsic resistance EUCAST bug-drug combinations.","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"","code":"intrinsic_resistant"},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"tibble 301 583 observations 2 variables: mo Microorganism ID ab Antibiotic ID","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"data set based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021).","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. Please visit website download links. actual files course available GitHub repository. allow machine reading EUCAST CLSI guidelines, almost impossible MS Excel PDF files distributed EUCAST CLSI.","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"","code":"intrinsic_resistant #> # A tibble: 301,583 × 2 #>    mo          ab   #>    <mo>        <ab> #>  1 B_GRAMP     ATM  #>  2 B_GRAMP     COL  #>  3 B_GRAMP     NAL  #>  4 B_GRAMP     PLB  #>  5 B_GRAMP     TEM  #>  6 B_ANAER-POS ATM  #>  7 B_ANAER-POS COL  #>  8 B_ANAER-POS NAL  #>  9 B_ANAER-POS PLB  #> 10 B_ANAER-POS TEM  #> # ℹ 301,573 more rows"},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":null,"dir":"Reference","previous_headings":"","what":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"According binomial nomenclature, lowest four taxonomic levels (family, genus, species, subspecies) printed italics. function finds taxonomic names within strings makes italic.","code":""},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"","code":"italicise_taxonomy(string, type = c(\"markdown\", \"ansi\", \"html\"))  italicize_taxonomy(string, type = c(\"markdown\", \"ansi\", \"html\"))"},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"string character (vector) type type conversion taxonomic names, either \"markdown\", \"html\" \"ansi\", see Details","code":""},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"function finds taxonomic names makes italic based microorganisms data set. taxonomic names can italicised using markdown (default) adding * taxonomic names, <> <\/> using html. using 'ansi', ANSI colours added using \\033[3m \\033[23m taxonomic names. multiple ANSI colours available, conversion occur. function also supports abbreviation genus followed species, \"E. coli\" \"K. pneumoniae ozaenae\".","code":""},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"","code":"italicise_taxonomy(\"An overview of Staphylococcus aureus isolates\") #> [1] \"An overview of *Staphylococcus aureus* isolates\" italicise_taxonomy(\"An overview of S. aureus isolates\") #> [1] \"An overview of *S. aureus* isolates\"  cat(italicise_taxonomy(\"An overview of S. aureus isolates\", type = \"ansi\")) #> An overview of S. aureus isolates"},{"path":"https://msberends.github.io/AMR/reference/join.html","id":null,"dir":"Reference","previous_headings":"","what":"Join microorganisms to a Data Set — join","title":"Join microorganisms to a Data Set — join","text":"Join data set microorganisms easily existing data set character vector.","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Join microorganisms to a Data Set — join","text":"","code":"inner_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  left_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  right_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  full_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  semi_join_microorganisms(x, by = NULL, ...)  anti_join_microorganisms(x, by = NULL, ...)"},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Join microorganisms to a Data Set — join","text":"x existing data set join, character vector. case character vector, resulting data.frame contain column 'x' values. variable join - left empty search column class mo (created .mo()) \"mo\" column name exists x, otherwise column name x values exist microorganisms$mo (= \"bacteria_id\"), another column microorganisms (named, like = c(\"bacteria_id\" = \"fullname\")) suffix non-joined duplicate variables x y, suffixes added output disambiguate . character vector length 2. ... ignored, place allow future extensions","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Join microorganisms to a Data Set — join","text":"data.frame","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Join microorganisms to a Data Set — join","text":"Note: opposed join() functions dplyr, character vectors supported default existing columns get suffix \"2\" newly joined columns get suffix. dplyr package installed, join functions used. Otherwise, much slower merge() interaction() functions base R used.","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Join microorganisms to a Data Set — join","text":"","code":"left_join_microorganisms(as.mo(\"K. pneumoniae\")) #> # A tibble: 1 × 26 #>   mo           fullname   status kingdom phylum class order family genus species #>   <mo>         <chr>      <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> <chr>   #> 1 B_KLBSL_PNMN Klebsiell… accep… Bacter… Pseud… Gamm… Ente… Enter… Kleb… pneumo… #> # ℹ 16 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, mycobank <chr>, mycobank_parent <chr>, #> #   mycobank_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list> left_join_microorganisms(\"B_KLBSL_PNMN\") #> # A tibble: 1 × 26 #>   mo           fullname   status kingdom phylum class order family genus species #>   <mo>         <chr>      <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> <chr>   #> 1 B_KLBSL_PNMN Klebsiell… accep… Bacter… Pseud… Gamm… Ente… Enter… Kleb… pneumo… #> # ℹ 16 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, mycobank <chr>, mycobank_parent <chr>, #> #   mycobank_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list>  df <- data.frame(   date = seq(     from = as.Date(\"2018-01-01\"),     to = as.Date(\"2018-01-07\"),     by = 1   ),   bacteria = as.mo(c(     \"S. aureus\", \"MRSA\", \"MSSA\", \"STAAUR\",     \"E. coli\", \"E. coli\", \"E. coli\"   )),   stringsAsFactors = FALSE ) colnames(df) #> [1] \"date\"     \"bacteria\"  df_joined <- left_join_microorganisms(df, \"bacteria\") colnames(df_joined) #>  [1] \"date\"                \"bacteria\"            \"fullname\"            #>  [4] \"status\"              \"kingdom\"             \"phylum\"              #>  [7] \"class\"               \"order\"               \"family\"              #> [10] \"genus\"               \"species\"             \"subspecies\"          #> [13] \"rank\"                \"ref\"                 \"oxygen_tolerance\"    #> [16] \"source\"              \"lpsn\"                \"lpsn_parent\"         #> [19] \"lpsn_renamed_to\"     \"mycobank\"            \"mycobank_parent\"     #> [22] \"mycobank_renamed_to\" \"gbif\"                \"gbif_parent\"         #> [25] \"gbif_renamed_to\"     \"prevalence\"          \"snomed\"               # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     left_join_microorganisms() %>%     colnames() } #> Joining, by = \"mo\" #>  [1] \"date\"                \"patient\"             \"age\"                 #>  [4] \"gender\"              \"ward\"                \"mo\"                  #>  [7] \"PEN\"                 \"OXA\"                 \"FLC\"                 #> [10] \"AMX\"                 \"AMC\"                 \"AMP\"                 #> [13] \"TZP\"                 \"CZO\"                 \"FEP\"                 #> [16] \"CXM\"                 \"FOX\"                 \"CTX\"                 #> [19] \"CAZ\"                 \"CRO\"                 \"GEN\"                 #> [22] \"TOB\"                 \"AMK\"                 \"KAN\"                 #> [25] \"TMP\"                 \"SXT\"                 \"NIT\"                 #> [28] \"FOS\"                 \"LNZ\"                 \"CIP\"                 #> [31] \"MFX\"                 \"VAN\"                 \"TEC\"                 #> [34] \"TCY\"                 \"TGC\"                 \"DOX\"                 #> [37] \"ERY\"                 \"CLI\"                 \"AZM\"                 #> [40] \"IPM\"                 \"MEM\"                 \"MTR\"                 #> [43] \"CHL\"                 \"COL\"                 \"MUP\"                 #> [46] \"RIF\"                 \"fullname\"            \"status\"              #> [49] \"kingdom\"             \"phylum\"              \"class\"               #> [52] \"order\"               \"family\"              \"genus\"               #> [55] \"species\"             \"subspecies\"          \"rank\"                #> [58] \"ref\"                 \"oxygen_tolerance\"    \"source\"              #> [61] \"lpsn\"                \"lpsn_parent\"         \"lpsn_renamed_to\"     #> [64] \"mycobank\"            \"mycobank_parent\"     \"mycobank_renamed_to\" #> [67] \"gbif\"                \"gbif_parent\"         \"gbif_renamed_to\"     #> [70] \"prevalence\"          \"snomed\"              # }"},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":null,"dir":"Reference","previous_headings":"","what":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"functions can used determine first weighted isolates considering phenotype isolate selection (see first_isolate()). Using phenotype-based method determine first isolates reliable methods disregard phenotypes.","code":""},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"","code":"key_antimicrobials(   x = NULL,   col_mo = NULL,   universal = c(\"ampicillin\", \"amoxicillin/clavulanic acid\", \"cefuroxime\",     \"piperacillin/tazobactam\", \"ciprofloxacin\", \"trimethoprim/sulfamethoxazole\"),   gram_negative = c(\"gentamicin\", \"tobramycin\", \"colistin\", \"cefotaxime\", \"ceftazidime\",     \"meropenem\"),   gram_positive = c(\"vancomycin\", \"teicoplanin\", \"tetracycline\", \"erythromycin\",     \"oxacillin\", \"rifampin\"),   antifungal = c(\"anidulafungin\", \"caspofungin\", \"fluconazole\", \"miconazole\", \"nystatin\",     \"voriconazole\"),   only_sir_columns = FALSE,   ... )  all_antimicrobials(x = NULL, only_sir_columns = FALSE, ...)  antimicrobials_equal(   y,   z,   type = c(\"points\", \"keyantimicrobials\"),   ignore_I = TRUE,   points_threshold = 2,   ... )"},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"x data.frame antibiotics columns, like AMX amox. Can left blank determine automatically col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). universal names broad-spectrum antimicrobial drugs, case-insensitive. Set NULL ignore. See Details default antimicrobial drugs gram_negative names antibiotic drugs Gram-positives, case-insensitive. Set NULL ignore. See Details default antibiotic drugs gram_positive names antibiotic drugs Gram-negatives, case-insensitive. Set NULL ignore. See Details default antibiotic drugs antifungal names antifungal drugs fungi, case-insensitive. Set NULL ignore. See Details default antifungal drugs only_sir_columns logical indicate whether columns must included transformed class sir (see .sir()) beforehand (default FALSE) ... ignored, place allow future extensions y, z character vectors compare type type determine weighed isolates; can \"keyantimicrobials\" \"points\", see Details ignore_I logical indicate whether antibiotic interpretations \"\" ignored type = \"keyantimicrobials\", see Details points_threshold minimum number points require differences antibiogram lead inclusion isolate type = \"points\", see Details","code":""},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"key_antimicrobials() all_antimicrobials() functions context-aware. means x argument can left blank used inside data.frame call, see Examples. function key_antimicrobials() returns character vector 12 antimicrobial results every isolate. function all_antimicrobials() returns character vector antimicrobial drug results every isolate. vectors can compared using antimicrobials_equal(), check two isolates generally antibiogram. Missing invalid values replaced dot (\".\") key_antimicrobials() ignored antimicrobials_equal(). Please see first_isolate() function important functions enable 'phenotype-based' method determination first isolates. default antimicrobial drugs used rows (set universal) : Ampicillin Amoxicillin/clavulanic acid Cefuroxime Ciprofloxacin Piperacillin/tazobactam Trimethoprim/sulfamethoxazole default antimicrobial drugs used Gram-negative bacteria (set gram_negative) : Cefotaxime Ceftazidime Colistin Gentamicin Meropenem Tobramycin default antimicrobial drugs used Gram-positive bacteria (set gram_positive) : Erythromycin Oxacillin Rifampin Teicoplanin Tetracycline Vancomycin default antimicrobial drugs used fungi (set antifungal) : Anidulafungin Caspofungin Fluconazole Miconazole Nystatin Voriconazole","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # output of the `key_antimicrobials()` function could be like this: strainA <- \"SSSRR.S.R..S\" strainB <- \"SSSIRSSSRSSS\"  # those strings can be compared with: antimicrobials_equal(strainA, strainB, type = \"keyantimicrobials\") #> [1] TRUE # TRUE, because I is ignored (as well as missing values)  antimicrobials_equal(strainA, strainB, type = \"keyantimicrobials\", ignore_I = FALSE) #> [1] FALSE # FALSE, because I is not ignored and so the 4th [character] differs  # \\donttest{ if (require(\"dplyr\")) {   # set key antibiotics to a new variable   my_patients <- example_isolates %>%     mutate(keyab = key_antimicrobials(antifungal = NULL)) %>% # no need to define `x`     mutate(       # now calculate first isolates       first_regular = first_isolate(col_keyantimicrobials = FALSE),       # and first WEIGHTED isolates       first_weighted = first_isolate(col_keyantimicrobials = \"keyab\")     )    # Check the difference in this data set, 'weighted' results in more isolates:   sum(my_patients$first_regular, na.rm = TRUE)   sum(my_patients$first_weighted, na.rm = TRUE) } #> [1] 1383 # }"},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":null,"dir":"Reference","previous_headings":"","what":"Kurtosis of the Sample — kurtosis","title":"Kurtosis of the Sample — kurtosis","text":"Kurtosis measure \"tailedness\" probability distribution real-valued random variable. normal distribution kurtosis 3 excess kurtosis 0.","code":""},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(x, na.rm = FALSE, excess = FALSE)  # Default S3 method kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for class 'matrix' kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for class 'data.frame' kurtosis(x, na.rm = FALSE, excess = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Kurtosis of the Sample — kurtosis","text":"x vector values, matrix data.frame na.rm logical indicate whether NA values stripped computation proceeds excess logical indicate whether excess kurtosis returned, defined kurtosis minus 3.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(rnorm(10000)) #> [1] 3.03269 kurtosis(rnorm(10000), excess = TRUE) #> [1] 0.07248166"},{"path":"https://msberends.github.io/AMR/reference/like.html","id":null,"dir":"Reference","previous_headings":"","what":"Vectorised Pattern Matching with Keyboard Shortcut — like","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"Convenient wrapper around grepl() match pattern: x %like% pattern. always returns logical vector always case-insensitive (use x %like_case% pattern case-sensitive matching). Also, pattern can long x compare items index vectors, can length iterate cases.","code":""},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"","code":"like(x, pattern, ignore.case = TRUE)  x %like% pattern  x %unlike% pattern  x %like_case% pattern  x %unlike_case% pattern"},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"Idea like function data.table package, although altered explained Details.","code":""},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"x character vector matches sought, object can coerced .character() character vector. pattern character vector containing regular expressions (character string fixed = TRUE) matched given character vector. Coerced .character() character string possible. ignore.case FALSE, pattern matching case sensitive TRUE, case ignored matching.","code":""},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"logical vector","code":""},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"like() %like%/%unlike% functions: case-insensitive (use %like_case%/%unlike_case% case-sensitive matching) Support multiple patterns Check pattern valid regular expression sets fixed = TRUE , greatly improve speed (vectorised pattern) Always use compatibility Perl unless fixed = TRUE, greatly improve speed Using RStudio? %like%/%unlike% functions can also directly inserted code Addins menu can keyboard shortcut like Shift+Ctrl+L Shift+Cmd+L (see menu Tools > Modify Keyboard Shortcuts...). keep pressing shortcut, inserted text iterated %like% -> %unlike% -> %like_case% -> %unlike_case%.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"","code":"# data.table has a more limited version of %like%, so unload it: try(detach(\"package:data.table\", unload = TRUE), silent = TRUE)  a <- \"This is a test\" b <- \"TEST\" a %like% b #> [1] TRUE b %like% a #> [1] FALSE  # also supports multiple patterns a <- c(\"Test case\", \"Something different\", \"Yet another thing\") b <- c(\"case\", \"diff\", \"yet\") a %like% b #> [1] TRUE TRUE TRUE a %unlike% b #> [1] FALSE FALSE FALSE  a[1] %like% b #> [1]  TRUE FALSE FALSE a %like% b[1] #> [1]  TRUE FALSE FALSE  # \\donttest{ # get isolates whose name start with 'Entero' (case-insensitive) example_isolates[which(mo_name() %like% \"^entero\"), ] #> ℹ Using column 'mo' as input for mo_name() #> # A tibble: 106 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinic… B_ENTRC_FACM  NA    NA    NA    NA    #>  2 2002-04-08 130252     78 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA    #>  3 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA    #>  4 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA    #>  5 2003-04-20 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA    #>  6 2003-04-21 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA    #>  7 2003-08-13 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  8 2003-08-13 F35553     52 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA    #>  9 2003-09-05 F35553     52 M      ICU     B_ENTRC       NA    NA    NA    NA    #> 10 2003-09-05 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #> # ℹ 96 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_name() %like% \"^ent\") } #> ℹ Using column 'mo' as input for mo_name() #> # A tibble: 106 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinic… B_ENTRC_FACM  NA    NA    NA    NA    #>  2 2002-04-08 130252     78 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA    #>  3 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA    #>  4 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA    #>  5 2003-04-20 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA    #>  6 2003-04-21 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA    #>  7 2003-08-13 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  8 2003-08-13 F35553     52 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA    #>  9 2003-09-05 F35553     52 M      ICU     B_ENTRC       NA    NA    NA    NA    #> 10 2003-09-05 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #> # ℹ 96 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # }"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Determine isolates multidrug-resistant organisms (MDRO) according international, national, custom guidelines.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"","code":"mdro(   x = NULL,   guideline = \"CMI2012\",   col_mo = NULL,   esbl = NA,   carbapenemase = NA,   mecA = NA,   mecC = NA,   vanA = NA,   vanB = NA,   info = interactive(),   pct_required_classes = 0.5,   combine_SI = TRUE,   verbose = FALSE,   only_sir_columns = FALSE,   ... )  custom_mdro_guideline(..., as_factor = TRUE)  brmo(x = NULL, only_sir_columns = FALSE, ...)  mrgn(x = NULL, only_sir_columns = FALSE, verbose = FALSE, ...)  mdr_tb(x = NULL, only_sir_columns = FALSE, verbose = FALSE, ...)  mdr_cmi2012(x = NULL, only_sir_columns = FALSE, verbose = FALSE, ...)  eucast_exceptional_phenotypes(   x = NULL,   only_sir_columns = FALSE,   verbose = FALSE,   ... )"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"See supported guidelines list publications used function.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"x data.frame antibiotics columns, like AMX amox. Can left blank automatic determination. guideline specific guideline follow, see sections Supported international / national guidelines Using Custom Guidelines . left empty, publication Magiorakos et al. (see ) followed. col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). esbl logical values, column name containing logical values, indicating presence ESBL gene (production proteins) carbapenemase logical values, column name containing logical values, indicating presence carbapenemase gene (production proteins) mecA logical values, column name containing logical values, indicating presence mecA gene (production proteins) mecC logical values, column name containing logical values, indicating presence mecC gene (production proteins) vanA logical values, column name containing logical values, indicating presence vanA gene (production proteins) vanB logical values, column name containing logical values, indicating presence vanB gene (production proteins) info logical indicate whether progress printed console - default print interactive sessions pct_required_classes minimal required percentage antimicrobial classes must available per isolate, rounded . example, default guideline, 17 antimicrobial classes must available S. aureus. Setting pct_required_classes argument 0.5 (default) means every S. aureus isolate least 8 different classes must available. lower number available classes return NA isolate. combine_SI logical indicate whether values S must merged one, resistance considered isolates R, . default behaviour mdro() function, follows redefinition EUCAST interpretation (increased exposure) 2019, see section 'Interpretation S, R' . using combine_SI = FALSE, resistance considered isolates R . verbose logical turn Verbose mode (default ). Verbose mode, function return MDRO results, instead returns data set logbook form extensive info isolates MDRO-positive, . only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE) ... case custom_mdro_guideline(): set rules, see section Using Custom Guidelines . Otherwise: column name antibiotic, see section Antibiotics . as_factor logical indicate whether returned value ordered factor (TRUE, default), otherwise character vector","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"CMI 2012 paper - function mdr_cmi2012() mdro(): Ordered factor levels Negative < Multi-drug-resistant (MDR) < Extensively drug-resistant (XDR) < Pandrug-resistant (PDR) TB guideline - function mdr_tb() mdro(..., guideline = \"TB\"): Ordered factor levels Negative < Mono-resistant < Poly-resistant < Multi-drug-resistant < Extensively drug-resistant German guideline - function mrgn() mdro(..., guideline = \"MRGN\"): Ordered factor levels Negative < 3MRGN < 4MRGN Everything else, except custom guidelines: Ordered factor levels Negative < Positive, unconfirmed < Positive. value \"Positive, unconfirmed\" means , according guideline, entirely sure isolate multi-drug resistant confirmed additional (e.g. molecular) tests","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"functions context-aware. means x argument can left blank used inside data.frame call, see Examples. pct_required_classes argument, values 1 divided 100. support fractions (0.75 3/4) percentages (75). Note: Every test involves Enterobacteriaceae family, internally performed using newly named order Enterobacterales, since Enterobacteriaceae family taxonomically reclassified Adeolu et al. 2016. , Enterobacteriaceae family Enterobacteriales () order. species old Enterobacteriaceae family still new Enterobacterales (without ) order, divided multiple families. way tests performed now mdro() function makes sure results 2016 2016 identical.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"supported-international-national-guidelines","dir":"Reference","previous_headings":"","what":"Supported International / National Guidelines","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Currently supported guidelines (case-insensitive): guideline = \"CMI2012\" (default) Magiorakos AP, Srinivasan et al. \"Multidrug-resistant, extensively drug-resistant pandrug-resistant bacteria: international expert proposal interim standard definitions acquired resistance.\" Clinical Microbiology Infection (2012) (doi:10.1111/j.1469-0691.2011.03570.x ) guideline = \"EUCAST3.3\" (simply guideline = \"EUCAST\") European international guideline - EUCAST Expert Rules Version 3.3 \"Intrinsic Resistance Unusual Phenotypes\" (link) guideline = \"EUCAST3.2\" European international guideline - EUCAST Expert Rules Version 3.2 \"Intrinsic Resistance Unusual Phenotypes\" (link) guideline = \"EUCAST3.1\" European international guideline - EUCAST Expert Rules Version 3.1 \"Intrinsic Resistance Exceptional Phenotypes Tables\" (link) guideline = \"TB\" international guideline multi-drug resistant tuberculosis - World Health Organization \"Companion handbook guidelines programmatic management drug-resistant tuberculosis\" (link) guideline = \"MRGN\" German national guideline - Mueller et al. (2015) Antimicrobial Resistance Infection Control 4:7; doi:10.1186/s13756-015-0047-6 guideline = \"BRMO\" Dutch national guideline - Samenwerkingverband Richtlijnen Infectiepreventie (SRI) (2024) \"Bijzonder Resistente Micro-Organismen (BRMO)\" (link) Also: guideline = \"BRMO 2017\" former Dutch national guideline - Werkgroep Infectiepreventie (WIP), RIVM, last revision 2017: \"Bijzonder Resistente Micro-Organismen (BRMO)\" Please suggest implement guidelines letting us know: https://github.com/msberends/AMR/issues/new.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"using-custom-guidelines","dir":"Reference","previous_headings":"","what":"Using Custom Guidelines","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Custom guidelines can set custom_mdro_guideline() function. great importance custom rules determine MDROs hospital, e.g., rules dependent ward, state contact isolation variables data. familiar case_when() function dplyr package, recognise input method set rules. Rules must set using R considers 'formula notation'. rule written tilde (~) consequence rule written tilde:   row/isolate matches first rule, value first ~ (case 'Elderly Type ') set MDRO value. Otherwise, second rule tried . number rules unlimited. can print rules set console overview. Colours help reading console supports colours.   outcome function can used guideline argument mdro() function:   Rules can also combined custom rules using c():   rules set (custom object case) exported shared file location using saveRDS() collaborate multiple users. custom rules set imported using readRDS().","code":"custom <- custom_mdro_guideline(CIP == \"R\" & age > 60 ~ \"Elderly Type A\",                                 ERY == \"R\" & age > 60 ~ \"Elderly Type B\") custom #> A set of custom MDRO rules: #>   1. CIP is \"R\" and age is higher than 60 -> Elderly Type A #>   2. ERY is \"R\" and age is higher than 60 -> Elderly Type B #>   3. Otherwise -> Negative #> #> Unmatched rows will return NA. x <- mdro(example_isolates,           guideline = custom) table(x) #>       Negative Elderly Type A Elderly Type B #>           1070            198            732 x <- mdro(example_isolates,           guideline = c(custom,                         custom_mdro_guideline(ERY == \"R\" & age > 50 ~ \"Elderly Type C\"))) table(x) #>       Negative Elderly Type A Elderly Type B Elderly Type C #>            961            198            732            109"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"antibiotics","dir":"Reference","previous_headings":"","what":"Antibiotics","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"define antibiotics column names, leave determine automatically guess_ab_col() input text (case-insensitive), use NULL skip column (e.g. TIC = NULL skip ticarcillin). Manually defined non-existing columns skipped warning. following antibiotics eligible functions eucast_rules() mdro(). shown format 'name (antimicrobial ID, ATC code)', sorted alphabetically: Amikacin (AMK, J01GB06), amoxicillin (AMX, J01CA04), amoxicillin/clavulanic acid (AMC, J01CR02), ampicillin (AMP, J01CA01), ampicillin/sulbactam (SAM, J01CR01), apramycin (APR, QA07AA92), arbekacin (ARB, J01GB12), aspoxicillin (APX, J01CA19), azidocillin (AZD, J01CE04), azithromycin (AZM, J01FA10), azlocillin (AZL, J01CA09), aztreonam (ATM, J01DF01), bacampicillin (BAM, J01CA06), bekanamycin (BEK, J01GB13), benzathine benzylpenicillin (BNB, J01CE08), benzathine phenoxymethylpenicillin (BNP, J01CE10), benzylpenicillin (PEN, J01CE01), besifloxacin (BES, S01AE08), biapenem (BIA, J01DH05), carbenicillin (CRB, J01CA03), carindacillin (CRN, J01CA05), cefacetrile (CAC, J01DB10), cefaclor (CEC, J01DC04), cefadroxil (CFR, J01DB05), cefalexin (LEX, J01DB01), cefaloridine (RID, J01DB02), cefalotin (CEP, J01DB03), cefamandole (MAN, J01DC03), cefapirin (HAP, J01DB08), cefatrizine (CTZ, J01DB07), cefazedone (CZD, J01DB06), cefazolin (CZO, J01DB04), cefcapene (CCP, J01DD17), cefdinir (CDR, J01DD15), cefditoren (DIT, J01DD16), cefepime (FEP, J01DE01), cefetamet (CAT, J01DD10), cefiderocol (FDC, J01DI04), cefixime (CFM, J01DD08), cefmenoxime (CMX, J01DD05), cefmetazole (CMZ, J01DC09), cefodizime (DIZ, J01DD09), cefonicid (CID, J01DC06), cefoperazone (CFP, J01DD12), cefoperazone/sulbactam (CSL, J01DD62), ceforanide (CND, J01DC11), cefotaxime (CTX, J01DD01), cefotaxime/clavulanic acid (CTC, J01DD51), cefotetan (CTT, J01DC05), cefotiam (CTF, J01DC07), cefovecin (FOV, QJ01DD91), cefoxitin (FOX, J01DC01), cefozopran (ZOP, J01DE03), cefpiramide (CPM, J01DD11), cefpirome (CPO, J01DE02), cefpodoxime (CPD, J01DD13), cefprozil (CPR, J01DC10), cefquinome (CEQ, QG51AA07), cefroxadine (CRD, J01DB11), cefsulodin (CFS, J01DD03), ceftaroline (CPT, J01DI02), ceftazidime (CAZ, J01DD02), ceftazidime/clavulanic acid (CCV, J01DD52), cefteram (CEM, J01DD18), ceftezole (CTL, J01DB12), ceftibuten (CTB, J01DD14), ceftiofur (TIO, QJ01DD90), ceftizoxime (CZX, J01DD07), ceftobiprole medocaril (CFM1, J01DI01), ceftolozane/tazobactam (CZT, J01DI54), ceftriaxone (CRO, J01DD04), ceftriaxone/beta-lactamase inhibitor (CEB, J01DD63), cefuroxime (CXM, J01DC02), cephradine (CED, J01DB09), chloramphenicol (CHL, J01BA01), ciprofloxacin (CIP, J01MA02), clarithromycin (CLR, J01FA09), clindamycin (CLI, J01FF01), clometocillin (CLM, J01CE07), cloxacillin (CLO, J01CF02), colistin (COL, J01XB01), cycloserine (CYC, J04AB01), dalbavancin (DAL, J01XA04), danofloxacin (DAN, QJ01MA92), daptomycin (DAP, J01XX09), delafloxacin (DFX, J01MA23), dibekacin (DKB, J01GB09), dicloxacillin (DIC, J01CF01), difloxacin (DIF, QJ01MA94), dirithromycin (DIR, J01FA13), doripenem (DOR, J01DH04), doxycycline (DOX, J01AA02), enoxacin (ENX, J01MA04), enrofloxacin (ENR, QJ01MA90), epicillin (EPC, J01CA07), ertapenem (ETP, J01DH03), erythromycin (ERY, J01FA01), fleroxacin (FLE, J01MA08), flucloxacillin (FLC, J01CF05), flurithromycin (FLR1, J01FA14), fosfomycin (FOS, J01XX01), framycetin (FRM, D09AA01), fusidic acid (FUS, J01XC01), gamithromycin (GAM, QJ01FA95), garenoxacin (GRN, J01MA19), gatifloxacin (GAT, J01MA16), gemifloxacin (GEM, J01MA15), gentamicin (GEN, J01GB03), grepafloxacin (GRX, J01MA11), hetacillin (HET, J01CA18), imipenem (IPM, J01DH51), imipenem/relebactam (IMR, J01DH56), isepamicin (ISE, J01GB11), josamycin (JOS, J01FA07), kanamycin (KAN, J01GB04), kitasamycin (KIT, QJ01FA93), lascufloxacin (LSC, J01MA25), latamoxef (LTM, J01DD06), levofloxacin (LVX, J01MA12), levonadifloxacin (LND, J01MA24), lincomycin (LIN, J01FF02), linezolid (LNZ, J01XX08), lomefloxacin (LOM, J01MA07), loracarbef (LOR, J01DC08), marbofloxacin (MAR, QJ01MA93), mecillinam (MEC, J01CA11), meropenem (MEM, J01DH02), meropenem/vaborbactam (MEV, J01DH52), metampicillin (MTM, J01CA14), meticillin (MET, J01CF03), mezlocillin (MEZ, J01CA10), micronomicin (MCR, S01AA22), midecamycin (MID, J01FA03), minocycline (MNO, J01AA08), miocamycin (MCM, J01FA11), moxifloxacin (MFX, J01MA14), nadifloxacin (NAD, D10AF05), nafcillin (NAF, J01CF06), nalidixic acid (NAL, J01MB02), neomycin (NEO, J01GB05), netilmicin (NET, J01GB07), nitrofurantoin (NIT, J01XE01), norfloxacin (, J01MA06), novobiocin (NOV, QJ01XX95), ofloxacin (OFX, J01MA01), oleandomycin (OLE, J01FA05), orbifloxacin (ORB, QJ01MA95), oritavancin (ORI, J01XA05), oxacillin (OXA, J01CF04), panipenem (PAN, J01DH55), pazufloxacin (PAZ, J01MA18), pefloxacin (PEF, J01MA03), penamecillin (PNM, J01CE06), pheneticillin (PHE, J01CE05), phenoxymethylpenicillin (PHN, J01CE02), piperacillin (PIP, J01CA12), piperacillin/tazobactam (TZP, J01CR05), pirlimycin (PRL, QJ51FF90), pivampicillin (PVM, J01CA02), pivmecillinam (PME, J01CA08), plazomicin (PLZ, J01GB14), polymyxin B (PLB, J01XB02), pradofloxacin (PRA, QJ01MA97), pristinamycin (PRI, J01FG01), procaine benzylpenicillin (PRB, J01CE09), propicillin (PRP, J01CE03), prulifloxacin (PRU, J01MA17), quinupristin/dalfopristin (QDA, QJ01FG02), ribostamycin (RST, J01GB10), rifampicin (RIF, J04AB02), rokitamycin (ROK, J01FA12), roxithromycin (RXT, J01FA06), rufloxacin (RFL, J01MA10), sarafloxacin (SAR, QJ01MA98), sisomicin (SIS, J01GB08), sitafloxacin (SIT, J01MA21), solithromycin (SOL, J01FA16), sparfloxacin (SPX, J01MA09), spiramycin (SPI, J01FA02), streptoduocin (STR, J01GA02), streptomycin (STR1, J01GA01), sulbactam (SUL, J01CG01), sulbenicillin (SBC, J01CA16), sulfadiazine (SDI, J01EC02), sulfadiazine/trimethoprim (SLT1, J01EE02), sulfadimethoxine (SUD, J01ED01), sulfadimidine (SDM, J01EB03), sulfadimidine/trimethoprim (SLT2, J01EE05), sulfafurazole (SLF, J01EB05), sulfaisodimidine (SLF1, J01EB01), sulfalene (SLF2, J01ED02), sulfamazone (SZO, J01ED09), sulfamerazine (SLF3, J01ED07), sulfamerazine/trimethoprim (SLT3, J01EE07), sulfamethizole (SLF4, J01EB02), sulfamethoxazole (SMX, J01EC01), sulfamethoxypyridazine (SLF5, J01ED05), sulfametomidine (SLF6, J01ED03), sulfametoxydiazine (SLF7, J01ED04), sulfametrole/trimethoprim (SLT4, J01EE03), sulfamoxole (SLF8, J01EC03), sulfamoxole/trimethoprim (SLT5, J01EE04), sulfanilamide (SLF9, J01EB06), sulfaperin (SLF10, J01ED06), sulfaphenazole (SLF11, J01ED08), sulfapyridine (SLF12, J01EB04), sulfathiazole (SUT, J01EB07), sulfathiourea (SLF13, J01EB08), sultamicillin (SLT6, J01CR04), talampicillin (TAL, J01CA15), tazobactam (TAZ, J01CG02), tebipenem (TBP, J01DH06), tedizolid (TZD, J01XX11), teicoplanin (TEC, J01XA02), telavancin (TLV, J01XA03), telithromycin (TLT, J01FA15), temafloxacin (TMX, J01MA05), temocillin (TEM, J01CA17), tetracycline (TCY, J01AA07), ticarcillin (TIC, J01CA13), ticarcillin/clavulanic acid (TCC, J01CR03), tigecycline (TGC, J01AA12), tilbroquinol (TBQ, P01AA05), tildipirosin (TIP, QJ01FA96), tilmicosin (TIL, QJ01FA91), tobramycin (TOB, J01GB01), tosufloxacin (TFX, J01MA22), trimethoprim (TMP, J01EA01), trimethoprim/sulfamethoxazole (SXT, J01EE01), troleandomycin (TRL, J01FA08), trovafloxacin (TVA, J01MA13), tulathromycin (TUL, QJ01FA94), tylosin (TYL, QJ01FA90), tylvalosin (TYL1, QJ01FA92), vancomycin (VAN, J01XA01)","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"","code":"out <- mdro(example_isolates, guideline = \"EUCAST\") str(out) #>  Ord.factor w/ 3 levels \"Negative\"<\"Positive, unconfirmed\"<..: 1 1 1 1 1 1 1 1 1 1 ... table(out) #> out #>              Negative Positive, unconfirmed              Positive  #>                  1994                     0                     6   out <- mdro(example_isolates,   guideline = custom_mdro_guideline(     AMX == \"R\" ~ \"Custom MDRO 1\",     VAN == \"R\" ~ \"Custom MDRO 2\"   ) ) table(out) #> out #>      Negative Custom MDRO 1 Custom MDRO 2  #>           870           804           326   # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     mdro() %>%     table()    # no need to define `x` when used inside dplyr verbs:   example_isolates %>%     mutate(MDRO = mdro()) %>%     pull(MDRO) %>%     table() } #> Warning: in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `MDRO = mdro()`. #> Caused by warning: #> ! in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) #> . #>                         Negative       Multi-drug-resistant (MDR)  #>                             1617                              128  #> Extensively drug-resistant (XDR)          Pandrug-resistant (PDR)  #>                                0                                0  # }"},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate the Mean AMR Distance — mean_amr_distance","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"Calculates normalised mean antimicrobial resistance multiple observations, help identify similar isolates without comparing antibiograms hand.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"","code":"mean_amr_distance(x, ...)  # S3 method for class 'sir' mean_amr_distance(x, ..., combine_SI = TRUE)  # S3 method for class 'data.frame' mean_amr_distance(x, ..., combine_SI = TRUE)  amr_distance_from_row(amr_distance, row)"},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"x vector class sir, mic disk, data.frame containing columns classes ... variables select (supports tidyselect language column1:column4 (.mic), can thus also antibiotic selectors combine_SI logical indicate whether values S, SDD, must merged one, input consists S+vs. R (susceptible vs. resistant) - default TRUE amr_distance outcome mean_amr_distance() row index, row number","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"mean AMR distance effectively Z-score; normalised numeric value compare AMR test results can help identify similar isolates, without comparing antibiograms hand. MIC values (see .mic()) transformed log2() first; distance thus calculated (log2(x) - mean(log2(x))) / sd(log2(x)). SIR values (see .sir()) transformed using \"S\" = 1, \"\" = 2, \"R\" = 3. combine_SI TRUE (default), \"\" considered 1. data sets, mean AMR distance calculated per column, mean per row returned, see Examples. Use amr_distance_from_row() subtract distances distance one row, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"interpretation","dir":"Reference","previous_headings":"","what":"Interpretation","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"Isolates distances less 0.01 difference considered similar. Differences lower 0.025 considered suspicious.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"","code":"sir <- random_sir(10) sir #> Class 'sir' #>  [1] I I S I I S S S R R mean_amr_distance(sir) #>  [1] -0.4743416 -0.4743416 -0.4743416 -0.4743416 -0.4743416 -0.4743416 #>  [7] -0.4743416 -0.4743416  1.8973666  1.8973666  mic <- random_mic(10) mic #> Class 'mic' #>  [1] 0.001 256   0.25  0.5   32    0.002 8     0.125 0.002 0.125 mean_amr_distance(mic) #>  [1] -1.2863106  1.6478483  0.0146555  0.1779748  1.1578905 -1.1229914 #>  [7]  0.8312519 -0.1486638 -1.1229914 -0.1486638 # equal to the Z-score of their log2: (log2(mic) - mean(log2(mic))) / sd(log2(mic)) #>  [1] -1.2863106  1.6478483  0.0146555  0.1779748  1.1578905 -1.1229914 #>  [7]  0.8312519 -0.1486638 -1.1229914 -0.1486638  disk <- random_disk(10) disk #> Class 'disk' #>  [1] 41 29 40 12 16  7 45 46 22  9 mean_amr_distance(disk) #>  [1]  0.9256143  0.1488750  0.8608860 -0.9515056 -0.6925925 -1.2751469 #>  [7]  1.1845274  1.2492556 -0.3042229 -1.1456904  y <- data.frame(   id = LETTERS[1:10],   amox = random_sir(10, ab = \"amox\", mo = \"Escherichia coli\"),   cipr = random_disk(10, ab = \"cipr\", mo = \"Escherichia coli\"),   gent = random_mic(10, ab = \"gent\", mo = \"Escherichia coli\"),   tobr = random_mic(10, ab = \"tobr\", mo = \"Escherichia coli\") ) y #>    id amox cipr gent tobr #> 1   A    R   29  <=1    4 #> 2   B    I   30    4  <=2 #> 3   C    I   26   16   16 #> 4   D    I   18    2    8 #> 5   E    S   29    4    4 #> 6   F    R   31   16  <=2 #> 7   G    S   31  <=1   16 #> 8   H    R   21   16   16 #> 9   I    I   31   16   16 #> 10  J    S   21  <=1    4 mean_amr_distance(y) #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>  [1]  0.04629994 -0.34117383  0.33391321 -0.69063550 -0.19222473  0.50618460 #>  [7]  0.02978803  0.59753857  0.58783703 -0.87752733 y$amr_distance <- mean_amr_distance(y, where(is.mic)) #> Error in .subset(x, j): invalid subscript type 'list' y[order(y$amr_distance), ] #> Error in order(y$amr_distance): argument 1 is not a vector  if (require(\"dplyr\")) {   y %>%     mutate(       amr_distance = mean_amr_distance(y),       check_id_C = amr_distance_from_row(amr_distance, id == \"C\")     ) %>%     arrange(check_id_C) } #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>    id amox cipr gent tobr amr_distance check_id_C #> 1   C    I   26   16   16   0.33391321  0.0000000 #> 2   F    R   31   16  <=2   0.50618460  0.1722714 #> 3   I    I   31   16   16   0.58783703  0.2539238 #> 4   H    R   21   16   16   0.59753857  0.2636254 #> 5   A    R   29  <=1    4   0.04629994  0.2876133 #> 6   G    S   31  <=1   16   0.02978803  0.3041252 #> 7   E    S   29    4    4  -0.19222473  0.5261379 #> 8   B    I   30    4  <=2  -0.34117383  0.6750870 #> 9   D    I   18    2    8  -0.69063550  1.0245487 #> 10  J    S   21  <=1    4  -0.87752733  1.2114405 if (require(\"dplyr\")) {   # support for groups   example_isolates %>%     filter(mo_genus() == \"Enterococcus\" & mo_species() != \"\") %>%     select(mo, TCY, carbapenems()) %>%     group_by(mo) %>%     mutate(dist = mean_amr_distance(.)) %>%     arrange(mo, dist) } #> ℹ Using column 'mo' as input for mo_genus() #> ℹ Using column 'mo' as input for mo_species() #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Calculating mean AMR distance based on columns \"TCY\", \"IPM\", and \"MEM\" #> # A tibble: 63 × 5 #> # Groups:   mo [4] #>    mo           TCY   IPM   MEM     dist #>    <mo>         <sir> <sir> <sir>  <dbl> #>  1 B_ENTRC_AVIM S     S     NA     0     #>  2 B_ENTRC_AVIM S     S     NA     0     #>  3 B_ENTRC_CSSL NA    S     NA    NA     #>  4 B_ENTRC_FACM S     S     NA    -2.66  #>  5 B_ENTRC_FACM S     R     R     -0.423 #>  6 B_ENTRC_FACM S     R     R     -0.423 #>  7 B_ENTRC_FACM NA    R     R      0.224 #>  8 B_ENTRC_FACM NA    R     R      0.224 #>  9 B_ENTRC_FACM NA    R     R      0.224 #> 10 B_ENTRC_FACM NA    R     R      0.224 #> # ℹ 53 more rows"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 4 971 Common Microorganism Codes — microorganisms.codes","title":"Data Set with 4 971 Common Microorganism Codes — microorganisms.codes","text":"data set containing commonly used codes microorganisms, laboratory systems WHONET. Define set_mo_source(). searched using .mo() consequently mo_* functions.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 4 971 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 4 971 Common Microorganism Codes — microorganisms.codes","text":"tibble 4 971 observations 2 variables: code Commonly used code microorganism. unique identifier. mo ID microorganism microorganisms data set","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 4 971 Common Microorganism Codes — microorganisms.codes","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 4 971 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes #> # A tibble: 4,971 × 2 #>    code  mo                #>    <chr> <mo>              #>  1 1011  B_GRAMP           #>  2 1012  B_GRAMP           #>  3 1013  B_GRAMN           #>  4 1014  B_GRAMN           #>  5 1015  F_YEAST           #>  6 103   B_ESCHR_COLI      #>  7 104   B_SLMNL_ENTR_ENTR #>  8 1100  B_STRPT           #>  9 1101  B_STRPT_VIRI      #> 10 1102  B_STRPT_HAEM      #> # ℹ 4,961 more rows  # 'ECO' or 'eco' is the WHONET code for E. coli: microorganisms.codes[microorganisms.codes$code == \"ECO\", ] #> # A tibble: 1 × 2 #>   code  mo           #>   <chr> <mo>         #> 1 ECO   B_ESCHR_COLI  # and therefore, 'eco' will be understood as E. coli in this package: mo_info(\"eco\") #> $mo #> [1] \"B_ESCHR_COLI\" #>  #> $rank #> [1] \"species\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Escherichia\" #>  #> $species #> [1] \"coli\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $oxygen_tolerance #> [1] \"facultative anaerobe\" #>  #> $url #> [1] \"https://lpsn.dsmz.de/species/escherichia-coli\" #>  #> $ref #> [1] \"Castellani et al., 1919\" #>  #> $snomed #>  [1] \"1095001000112106\" \"715307006\"        \"737528008\"        \"416989002\"        #>  [5] \"116397003\"        \"414097009\"        \"414098004\"        \"414099007\"        #>  [9] \"414100004\"        \"116395006\"        \"735270003\"        \"116396007\"        #> [13] \"83285000\"         \"116394005\"        \"112283007\"        \"710886005\"        #> [17] \"710887001\"        \"710888006\"        \"710889003\"        \"414132004\"        #> [21] \"721892009\"        \"416812001\"        \"416740004\"        \"417216001\"        #> [25] \"457541006\"        \"710253004\"        \"416530004\"        \"417189006\"        #> [29] \"409800005\"        \"713925008\"        \"444771000124108\"  \"838549008\"        #>  #> $lpsn #> [1] \"776057\" #>  #> $mycobank #> [1] NA #>  #> $gbif #> [1] \"11286021\" #>  #> $group_members #> character(0) #>   # works for all AMR functions: mo_is_intrinsic_resistant(\"eco\", ab = \"vancomycin\") #> [1] TRUE"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"data set containing species groups microbiological complexes, used clinical breakpoints table.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"","code":"microorganisms.groups"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"tibble 521 observations 4 variables: mo_group ID species group / microbiological complex mo ID microorganism belonging species group / microbiological complex mo_group_name Name species group / microbiological complex, retrieved mo_name() mo_name Name microorganism belonging species group / microbiological complex, retrieved mo_name()","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"","code":"microorganisms.groups #> # A tibble: 521 × 4 #>    mo_group       mo           mo_group_name                   mo_name           #>    <mo>           <mo>         <chr>                           <chr>             #>  1 B_ACNTB_BMNN-C B_ACNTB_BMNN Acinetobacter baumannii complex Acinetobacter ba… #>  2 B_ACNTB_BMNN-C B_ACNTB_CLCC Acinetobacter baumannii complex Acinetobacter ca… #>  3 B_ACNTB_BMNN-C B_ACNTB_LCTC Acinetobacter baumannii complex Acinetobacter di… #>  4 B_ACNTB_BMNN-C B_ACNTB_NSCM Acinetobacter baumannii complex Acinetobacter no… #>  5 B_ACNTB_BMNN-C B_ACNTB_PITT Acinetobacter baumannii complex Acinetobacter pi… #>  6 B_ACNTB_BMNN-C B_ACNTB_SFRT Acinetobacter baumannii complex Acinetobacter se… #>  7 B_BCTRD_FRGL-C B_BCTRD_FRGL Bacteroides fragilis complex    Bacteroides frag… #>  8 B_BCTRD_FRGL-C B_BCTRD_OVTS Bacteroides fragilis complex    Bacteroides ovat… #>  9 B_BCTRD_FRGL-C B_BCTRD_THTT Bacteroides fragilis complex    Bacteroides thet… #> 10 B_BCTRD_FRGL-C B_PHCCL_VLGT Bacteroides fragilis complex    Bacteroides vulg… #> # ℹ 511 more rows  # these are all species in the Bacteroides fragilis group, as per WHONET: microorganisms.groups[microorganisms.groups$mo_group == \"B_BCTRD_FRGL-C\", ] #> # A tibble: 5 × 4 #>   mo_group       mo           mo_group_name                mo_name               #>   <mo>           <mo>         <chr>                        <chr>                 #> 1 B_BCTRD_FRGL-C B_BCTRD_FRGL Bacteroides fragilis complex Bacteroides fragilis  #> 2 B_BCTRD_FRGL-C B_BCTRD_OVTS Bacteroides fragilis complex Bacteroides ovatus    #> 3 B_BCTRD_FRGL-C B_BCTRD_THTT Bacteroides fragilis complex Bacteroides thetaiot… #> 4 B_BCTRD_FRGL-C B_PHCCL_VLGT Bacteroides fragilis complex Bacteroides vulgatus  #> 5 B_BCTRD_FRGL-C B_PRBCT_DSTS Bacteroides fragilis complex Parabacteroides dist…"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 78 678 Taxonomic Records of Microorganisms — microorganisms","title":"Data Set with 78 678 Taxonomic Records of Microorganisms — microorganisms","text":"data set containing full microbial taxonomy (last updated: June 24th, 2024) six kingdoms. data set backbone AMR package. MO codes can looked using .mo() microorganism properties can looked using mo_* functions. data set carefully crafted, yet made 100% reproducible public authoritative taxonomic sources (using script), namely: List Prokaryotic names Standing Nomenclature (LPSN) bacteria, MycoBank fungi, Global Biodiversity Information Facility (GBIF) others taxons.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 78 678 Taxonomic Records of Microorganisms — microorganisms","text":"","code":"microorganisms"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 78 678 Taxonomic Records of Microorganisms — microorganisms","text":"tibble 78 678 observations 26 variables: mo ID microorganism used package. unique identifier. fullname Full name, like \"Escherichia coli\". taxonomic ranks genus, species subspecies, 'pasted' text genus, species, subspecies. taxonomic ranks higher genus, name taxon. unique identifier. status  Status taxon, either \"accepted\", \"validly published\", \"synonym\", \"unknown\" kingdom, phylum, class, order, family, genus, species, subspecies Taxonomic rank microorganism. Note fungi, phylum equal taxonomic division. Also, fungi, subkingdom subdivision left since occur bacterial taxonomy. rank Text taxonomic rank microorganism, \"species\" \"genus\" ref Author(s) year related scientific publication. contains first surname year latest authors, e.g. \"Wallis et al. 2006 emend. Smith Jones 2018\" becomes \"Smith et al., 2018\". field directly retrieved source specified column source. Moreover, accents removed comply CRAN allows ASCII characters. oxygen_tolerance  Oxygen tolerance, either \"aerobe\", \"anaerobe\", \"anaerobe/microaerophile\", \"facultative anaerobe\", \"likely facultative anaerobe\", \"microaerophile\". data retrieved BacDive (see Source). Items contain \"likely\" missing BacDive extrapolated species within genus guess oxygen tolerance. Currently 68.3% ~39 000 bacteria data set contain oxygen tolerance. source Either \"GBIF\", \"LPSN\", \"MycoBank\", \"manually added\" (see Source) lpsn Identifier ('Record number') List Prokaryotic names Standing Nomenclature (LPSN). first/highest LPSN identifier keep one identifier per row. example, Acetobacter ascendens LPSN Record number 7864 11011. first available microorganisms data set. unique identifier, though available ~33 000 records. lpsn_parent LPSN identifier parent taxon lpsn_renamed_to LPSN identifier currently valid taxon mycobank Identifier ('MycoBank #') MycoBank. unique identifier, though available ~18 000 records. mycobank_parent MycoBank identifier parent taxon mycobank_renamed_to MycoBank identifier currently valid taxon gbif Identifier ('taxonID') Global Biodiversity Information Facility (GBIF). unique identifier, though available ~49 000 records. gbif_parent GBIF identifier parent taxon gbif_renamed_to GBIF identifier currently valid taxon prevalence Prevalence microorganism based Bartlett et al. (2022, doi:10.1099/mic.0.001269 ), see mo_matching_score() full explanation snomed Systematized Nomenclature Medicine (SNOMED) code microorganism, version July 16th, 2024 (see Source). Use mo_snomed() retrieve quickly, see mo_property().","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Set with 78 678 Taxonomic Records of Microorganisms — microorganisms","text":"Taxonomic entries imported order importance: List Prokaryotic names Standing Nomenclature (LPSN): Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de June 24th, 2024. MycoBank: Vincent, R et al (2013). MycoBank gearing new horizons. IMA Fungus, 4(2), 371-9; doi:10.5598/imafungus.2013.04.02.16 . Accessed https://www.mycobank.org June 24th, 2024. Global Biodiversity Information Facility (GBIF): GBIF Secretariat (2023). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org June 24th, 2024. Furthermore, sources used additional details: BacDive: Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; doi:10.1093/nar/gkab961 . Accessed https://bacdive.dsmz.de July 16th, 2024. Systematized Nomenclature Medicine - Clinical Terms (SNOMED-CT): Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microorganism', OID 2.16.840.1.114222.4.11.1009 (v12). Accessed https://phinvads.cdc.gov July 16th, 2024. Grimont et al. (2007). Antigenic Formulae Salmonella Serovars, 9th Edition. Collaborating Centre Reference Research Salmonella (WHOCC-SALM). Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 78 678 Taxonomic Records of Microorganisms — microorganisms","text":"Please note entries based LPSN, MycoBank, GBIF (see ). Since sources incorporate entries based (recent) publications International Journal Systematic Evolutionary Microbiology (IJSEM), can happen year publication sometimes later one might expect. example, Staphylococcus pettenkoferi described first time Diagnostic Microbiology Infectious Disease 2002 (doi:10.1016/s0732-8893(02)00399-1 ), 2007 publication IJSEM followed (doi:10.1099/ijs.0.64381-0 ). Consequently, AMR package returns 2007 mo_year(\"S. pettenkoferi\").","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"included-taxa","dir":"Reference","previous_headings":"","what":"Included Taxa","title":"Data Set with 78 678 Taxonomic Records of Microorganisms — microorganisms","text":"Included taxonomic data LPSN, MycoBank, GBIF : ~39 000 (sub)species kingdoms Archaea Bacteria ~28 000 species kingdom Fungi. kingdom Fungi large taxon almost 300,000 different (sub)species, microbial (rather macroscopic, like mushrooms). , fungi fit scope package. relevant fungi covered (species Aspergillus, Candida, Cryptococcus, Histoplasma, Pneumocystis, Saccharomyces Trichophyton). ~8 100 (sub)species kingdom Protozoa ~1 600 (sub)species 39 relevant genera kingdom Animalia (Strongyloides Taenia) ~22 000 previously accepted names included (sub)species (taxonomically renamed) complete taxonomic tree included (sub)species: kingdom subspecies identifier parent taxons year first author related scientific publication","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"manual-additions","dir":"Reference","previous_headings":"","what":"Manual additions","title":"Data Set with 78 678 Taxonomic Records of Microorganisms — microorganisms","text":"convenience, entries added manually: ~1 500 entries Salmonella, city-like serovars groups H 36 species groups (beta-haemolytic Streptococcus groups K, coagulase-negative Staphylococcus (CoNS), Mycobacterium tuberculosis complex, etc.), group compositions stored microorganisms.groups data set 1 entry Blastocystis (B.  hominis), although officially exist (Noel et al. 2005, PMID 15634993) 1 entry Moraxella (M. catarrhalis), formally named Branhamella catarrhalis (Catlin, 1970) though change never accepted within field clinical microbiology 8 'undefined' entries (unknown, unknown Gram-negatives, unknown Gram-positives, unknown yeast, unknown fungus, unknown anaerobic Gram-pos/Gram-neg bacteria) syntax used transform original data cleansed R format, can found .","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Set with 78 678 Taxonomic Records of Microorganisms — microorganisms","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 78 678 Taxonomic Records of Microorganisms — microorganisms","text":"","code":"microorganisms #> # A tibble: 78,678 × 26 #>    mo          fullname   status kingdom phylum class order family genus species #>    <mo>        <chr>      <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> <chr>   #>  1 B_GRAMN     (unknown … unkno… Bacter… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  2 B_GRAMP     (unknown … unkno… Bacter… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  3 B_ANAER-NEG (unknown … unkno… Bacter… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  4 B_ANAER-POS (unknown … unkno… Bacter… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  5 B_ANAER     (unknown … unkno… Bacter… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  6 F_FUNGUS    (unknown … unkno… Fungi   (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  7   UNKNOWN   (unknown … unkno… (unkno… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  8 P_PROTOZOAN (unknown … unkno… Protoz… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  9 F_YEAST     (unknown … unkno… Fungi   (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #> 10 F_AABRN     Aabaarnia  unkno… Fungi   Ascom… Leca… Ostr… \"\"     Aaba… \"\"      #> # ℹ 78,668 more rows #> # ℹ 16 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, mycobank <chr>, mycobank_parent <chr>, #> #   mycobank_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list>"},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate the Matching Score for Microorganisms — mo_matching_score","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"algorithm used .mo() mo_* functions determine probable match taxonomic records based user input.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"","code":"mo_matching_score(x, n)"},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"x user input value(s) n full taxonomic name, exists microorganisms$fullname","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"note","dir":"Reference","previous_headings":"","what":"Note","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"algorithm originally developed 2018 subsequently described : Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 . Later, work Bartlett et al. bacterial pathogens infecting humans (2022, doi:10.1099/mic.0.001269 ) incorporated, optimalisations algorithm made.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"ambiguous user input .mo() mo_* functions, returned results chosen based matching score using mo_matching_score(). matching score \\(m\\), calculated :  : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 1.25, Protozoa = 1.5, Chromista = 1.75, Archaea = 2, others = 3. grouping human pathogenic prevalence \\(p\\) based recent work Bartlett et al. (2022, doi:10.1099/mic.0.001269 ) extensively studied medical-scientific literature categorise bacterial species groups: Established, taxonomic species infected least three persons three references. records prevalence = 1.15 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, Genera World Health Organization's () Priority Pathogen List prevalence = 1.0 microorganisms data set; genus present established list also prevalence = 1.15 microorganisms data set; genus present putative list prevalence = 1.25 microorganisms data set; species subspecies genus present two aforementioned groups, prevalence = 1.5 microorganisms data set; non-bacterial genus, species subspecies genus present following list, prevalence = 1.25 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Actinomucor, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Arthroderma, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Bipolaris, Blastobotrys, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chilomastix, Chrysonilia, Chrysosporium, Cladophialophora, Cladosporium, Clavispora, Coccidioides, Cokeromyces, Conidiobolus, Coniochaeta, Contracaecum, Cordylobia, Cryptococcus, Cryptosporidium, Cunninghamella, Curvularia, Cyberlindnera, Debaryozyma, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Epidermophyton, Exidia, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Geotrichum, Giardia, Graphium, Haloarcula, Halobacterium, Halococcus, Hansenula, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hortaea, Hymenolepis, Hypomyces, Hysterothylacium, Kloeckera, Kluyveromyces, Kodamaea, Lacazia, Leishmania, Lichtheimia, Lodderomyces, Lomentospora, Madurella, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Millerozyma, Mortierella, Mucor, Mycocentrospora, Nannizzia, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Paecilomyces, Paracoccidioides, Pediculus, Penicillium, Phaeoacremonium, Phaeomoniella, Phialophora, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoscopulariopsis, Pseudoterranova, Pulex, Purpureocillium, Quambalaria, Rhinocladiella, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Saksenaea, Saprochaete, Sarcoptes, Scedosporium, Schistosoma, Schizosaccharomyces, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Sporopachydermia, Sporothrix, Sporotrichum, Stachybotrys, Strongyloides, Syncephalastrum, Syngamus, Taenia, Talaromyces, Teleomorph, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Ulocladium, Ustilago, Verticillium, Wallemia, Wangiella, Wickerhamomyces, Wuchereria, Yarrowia, Zygosaccharomyces; records prevalence = 2.0 microorganisms data set. calculating matching score, characters \\(x\\) \\(n\\) ignored -Z, -z, 0-9, spaces parentheses. matches sorted descending matching score user input values, top match returned. lead effect e.g., \"E. coli\" return microbial ID Escherichia coli (\\(m = 0.688\\), highly prevalent microorganism found humans) Entamoeba coli (\\(m = 0.381\\), less prevalent microorganism humans), although latter alphabetically come first.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"","code":"mo_reset_session() #> ℹ Reset 17 previously matched input values.  as.mo(\"E. coli\") #> Class 'mo' #> [1] B_ESCHR_COLI mo_uncertainties() #> Matching scores are based on the resemblance between the input and the full #> taxonomic name, and the pathogenicity in humans. See ?mo_matching_score. #>  #> -------------------------------------------------------------------------------- #> \"E. coli\" -> Escherichia coli (B_ESCHR_COLI, 0.688) #> Also matched: Enterococcus crotali (0.650), Escherichia coli coli #>               (0.643), Escherichia coli expressing (0.611), Enterobacter cowanii #>               (0.600), Enterococcus columbae (0.595), Enterococcus camelliae (0.591), #>               Enterococcus casseliflavus (0.577), Enterobacter cloacae cloacae #>               (0.571), Enterobacter cloacae complex (0.571), and Enterobacter cloacae #>               dissolvens (0.565) #>  #> Only the first 10 other matches of each record are shown. Run #> print(mo_uncertainties(), n = ...) to view more entries, or save #> mo_uncertainties() to an object.  mo_matching_score(   x = \"E. coli\",   n = c(\"Escherichia coli\", \"Entamoeba coli\") ) #> [1] 0.6875000 0.3809524"},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of a Microorganism — mo_property","title":"Get Properties of a Microorganism — mo_property","text":"Use functions return specific property microorganism based latest accepted taxonomy. input values evaluated internally .mo(), makes possible use microbial abbreviations, codes names input. See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of a Microorganism — mo_property","text":"","code":"mo_name(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_fullname(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_shortname(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_subspecies(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_species(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_genus(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_family(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_order(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_class(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_phylum(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_kingdom(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_domain(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_type(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_status(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_pathogenicity(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_gramstain(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_gram_negative(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_gram_positive(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_yeast(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_intrinsic_resistant(   x,   ab,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_oxygen_tolerance(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_anaerobic(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_snomed(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_ref(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_authors(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_year(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_lpsn(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_mycobank(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_gbif(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_rank(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_taxonomy(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_synonyms(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_current(x, language = get_AMR_locale(), ...)  mo_group_members(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_info(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_url(   x,   open = FALSE,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_property(   x,   property = \"fullname\",   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )"},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of a Microorganism — mo_property","text":"x character (vector) can coerced valid microorganism code .mo(). Can left blank auto-guessing column containing microorganism codes used data set, see Examples. language language translate text like \"growth\", defaults system language (see get_AMR_locale()) keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). ... arguments passed .mo(), 'minimum_matching_score', 'ignore_pattern', 'remove_from_input' ab (vector ) text can coerced valid antibiotic drug code .ab() open browse URL using browseURL() property one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"mycobank\", \"mycobank_parent\", \"mycobank_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\", must \"shortname\"","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of a Microorganism — mo_property","text":"integer case mo_year() ordered factor case mo_pathogenicity() list case mo_taxonomy(), mo_synonyms(), mo_snomed(), mo_info() logical case mo_is_anaerobic(), mo_is_gram_negative(), mo_is_gram_positive(), mo_is_intrinsic_resistant(), mo_is_yeast() named character case mo_synonyms() mo_url() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of a Microorganism — mo_property","text":"functions , default, keep old taxonomic properties, synonyms automatically replaced current taxonomy. Take example Enterobacter aerogenes, initially named 1960 renamed Klebsiella aerogenes 2017: mo_genus(\"Enterobacter aerogenes\") return \"Klebsiella\" (note renaming) mo_genus(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Enterobacter\" (-per-session warning name outdated) mo_ref(\"Enterobacter aerogenes\") return \"Tindall et al., 2017\" (note renaming) mo_ref(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Hormaeche et al., 1960\" (-per-session warning name outdated) short name (mo_shortname()) returns first character genus full species, \"E. coli\", species subspecies. Exceptions abbreviations staphylococci (\"CoNS\", Coagulase-Negative Staphylococci) beta-haemolytic streptococci (\"GBS\", Group B Streptococci). Please bear mind e.g. E. coli mean Escherichia coli (kingdom Bacteria) well Entamoeba coli (kingdom Protozoa). Returning full name done using .mo() internally, giving priority bacteria human pathogens, .e. \"E. coli\" considered Escherichia coli. result, mo_fullname(mo_shortname(\"Entamoeba coli\")) returns \"Escherichia coli\". Since top-level taxonomy sometimes referred 'kingdom' sometimes 'domain', functions mo_kingdom() mo_domain() return exact results. Determination human pathogenicity (mo_pathogenicity()) strongly based Bartlett et al. (2022, doi:10.1099/mic.0.001269 ). function returns factor levels Pathogenic, Potentially pathogenic, Non-pathogenic, Unknown. Determination Gram stain (mo_gramstain()) based taxonomic kingdom phylum. Originally, Cavalier-Smith defined -called subkingdoms Negibacteria Posibacteria (2002, PMID 11837318), considered phyla Posibacteria: Actinobacteria, Chloroflexi, Firmicutes, Tenericutes. phyla later renamed Actinomycetota, Chloroflexota, Bacillota, Mycoplasmatota (2021, PMID 34694987). Bacteria phyla considered Gram-positive AMR package, except members class Negativicutes (within phylum Bacillota) Gram-negative. bacteria considered Gram-negative. Species outside kingdom Bacteria return value NA. Functions mo_is_gram_negative() mo_is_gram_positive() always return TRUE FALSE (NA input NA MO code UNKNOWN), thus always return FALSE species outside taxonomic kingdom Bacteria. Determination yeasts (mo_is_yeast()) based taxonomic kingdom class. Budding yeasts yeasts reproduce asexually process called budding, new cell develops small protrusion parent cell. Taxonomically, members phylum Ascomycota, class Saccharomycetes (also called Hemiascomycetes) Pichiomycetes. True yeasts quite specifically refers yeasts underlying order Saccharomycetales (Saccharomyces cerevisiae). Thus, microorganisms member taxonomic class Saccharomycetes Pichiomycetes, function return TRUE. returns FALSE otherwise (NA input NA MO code UNKNOWN). Determination intrinsic resistance (mo_is_intrinsic_resistant()) based intrinsic_resistant data set, based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021). mo_is_intrinsic_resistant() function can vectorised argument x (input microorganisms) ab (input antibiotics). Determination bacterial oxygen tolerance (mo_oxygen_tolerance()) based BacDive, see Source. function mo_is_anaerobic() returns TRUE oxygen tolerance \"anaerobe\", indicting obligate anaerobic species genus. always returns FALSE species outside taxonomic kingdom Bacteria. function mo_url() return direct URL online database entry, also shows scientific reference concerned species. MycoBank URL used fungi wherever available , LPSN URL bacteria wherever available, GBIF link otherwise. SNOMED codes (mo_snomed()) last updated July 16th, 2024. See Source microorganisms data set info. Old taxonomic names (-called 'synonyms') can retrieved mo_synonyms() (scientific reference name), current taxonomic name can retrieved mo_current(). functions return full names. output translated possible.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Get Properties of a Microorganism — mo_property","text":"function uses .mo() internally, uses advanced algorithm translate arbitrary user input valid taxonomy using -called matching score. can read public algorithm MO matching score page.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of a Microorganism — mo_property","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de June 24th, 2024. Vincent, R et al (2013). MycoBank gearing new horizons. IMA Fungus, 4(2), 371-9; doi:10.5598/imafungus.2013.04.02.16 . Accessed https://www.mycobank.org June 24th, 2024. GBIF Secretariat (2023). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org June 24th, 2024. Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; doi:10.1093/nar/gkab961 . Accessed https://bacdive.dsmz.de July 16th, 2024. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microorganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of a Microorganism — mo_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of a Microorganism — mo_property","text":"","code":"# taxonomic tree -----------------------------------------------------------  mo_kingdom(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_phylum(\"Klebsiella pneumoniae\") #> [1] \"Pseudomonadota\" mo_class(\"Klebsiella pneumoniae\") #> [1] \"Gammaproteobacteria\" mo_order(\"Klebsiella pneumoniae\") #> [1] \"Enterobacterales\" mo_family(\"Klebsiella pneumoniae\") #> [1] \"Enterobacteriaceae\" mo_genus(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella\" mo_species(\"Klebsiella pneumoniae\") #> [1] \"pneumoniae\" mo_subspecies(\"Klebsiella pneumoniae\") #> [1] \"\"   # full names and short names -----------------------------------------------  mo_name(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella pneumoniae\" mo_fullname(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella pneumoniae\" mo_shortname(\"Klebsiella pneumoniae\") #> [1] \"K. pneumoniae\"   # other properties ---------------------------------------------------------  mo_pathogenicity(\"Klebsiella pneumoniae\") #> [1] Pathogenic #> Levels: Pathogenic < Potentially pathogenic < Non-pathogenic < Unknown mo_gramstain(\"Klebsiella pneumoniae\") #> [1] \"Gram-negative\" mo_snomed(\"Klebsiella pneumoniae\") #> [[1]] #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\"        #>  mo_type(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_rank(\"Klebsiella pneumoniae\") #> [1] \"species\" mo_url(\"Klebsiella pneumoniae\") #>                                Klebsiella pneumoniae  #> \"https://lpsn.dsmz.de/species/klebsiella-pneumoniae\"  mo_is_yeast(c(\"Candida\", \"Trichophyton\", \"Klebsiella\")) #> [1]  TRUE FALSE FALSE  mo_group_members(c(\"Streptococcus group A\",                    \"Streptococcus group C\",                    \"Streptococcus group G\",                    \"Streptococcus group L\")) #> $`Streptococcus Group A` #> [1] \"Streptococcus pyogenes\" #>  #> $`Streptococcus Group C` #> [1] \"Streptococcus dysgalactiae\"              #> [2] \"Streptococcus dysgalactiae dysgalactiae\" #> [3] \"Streptococcus dysgalactiae equisimilis\"  #> [4] \"Streptococcus equi\"                      #> [5] \"Streptococcus equi equi\"                 #> [6] \"Streptococcus equi ruminatorum\"          #> [7] \"Streptococcus equi zooepidemicus\"        #>  #> $`Streptococcus Group G` #> [1] \"Streptococcus canis\"                     #> [2] \"Streptococcus dysgalactiae\"              #> [3] \"Streptococcus dysgalactiae dysgalactiae\" #> [4] \"Streptococcus dysgalactiae equisimilis\"  #>  #> $`Streptococcus Group L` #> [1] \"Streptococcus dysgalactiae\"              #> [2] \"Streptococcus dysgalactiae dysgalactiae\" #> [3] \"Streptococcus dysgalactiae equisimilis\"  #>    # scientific reference -----------------------------------------------------  mo_ref(\"Klebsiella aerogenes\") #> [1] \"Tindall et al., 2017\" mo_authors(\"Klebsiella aerogenes\") #> [1] \"Tindall et al.\" mo_year(\"Klebsiella aerogenes\") #> [1] 2017 mo_synonyms(\"Klebsiella aerogenes\") #>   Hormaeche et al., 1960     Bascomb et al., 1971  #> \"Enterobacter aerogenes\"     \"Klebsiella mobilis\"  mo_lpsn(\"Klebsiella aerogenes\") #> [1] \"777146\" mo_gbif(\"Klebsiella aerogenes\") #> [1] \"9281703\" mo_mycobank(\"Candida albicans\") #> [1] \"256187\" mo_mycobank(\"Candida krusei\") #> [1] \"337013\" mo_mycobank(\"Candida krusei\", keep_synonyms = TRUE) #> Warning: Function as.mo() returned one old taxonomic name. Use as.mo(..., #> keep_synonyms = FALSE) to clean the input to currently accepted taxonomic #> names, or set the R option AMR_keep_synonyms to FALSE. This warning #> will be shown once per session. #> [1] \"268707\"   # abbreviations known in the field -----------------------------------------  mo_genus(\"MRSA\") #> [1] \"Staphylococcus\" mo_species(\"MRSA\") #> [1] \"aureus\" mo_shortname(\"VISA\") #> [1] \"S. aureus\" mo_gramstain(\"VISA\") #> [1] \"Gram-positive\"  mo_genus(\"EHEC\") #> [1] \"Escherichia\" mo_species(\"EIEC\") #> [1] \"coli\" mo_name(\"UPEC\") #> [1] \"Escherichia coli\"   # known subspecies ---------------------------------------------------------  mo_fullname(\"K. pneu rh\") #> [1] \"Klebsiella pneumoniae rhinoscleromatis\" mo_shortname(\"K. pneu rh\") #> [1] \"K. pneumoniae\"  # \\donttest{ # Becker classification, see ?as.mo ----------------------------------------  mo_fullname(\"Staph epidermidis\") #> [1] \"Staphylococcus epidermidis\" mo_fullname(\"Staph epidermidis\", Becker = TRUE) #> [1] \"Coagulase-negative Staphylococcus (CoNS)\" mo_shortname(\"Staph epidermidis\") #> [1] \"S. epidermidis\" mo_shortname(\"Staph epidermidis\", Becker = TRUE) #> [1] \"CoNS\"   # Lancefield classification, see ?as.mo ------------------------------------  mo_fullname(\"Strep agalactiae\") #> [1] \"Streptococcus agalactiae\" mo_fullname(\"Strep agalactiae\", Lancefield = TRUE) #> [1] \"Streptococcus Group B\" mo_shortname(\"Strep agalactiae\") #> [1] \"S. agalactiae\" mo_shortname(\"Strep agalactiae\", Lancefield = TRUE) #> [1] \"GBS\"   # language support  --------------------------------------------------------  mo_gramstain(\"Klebsiella pneumoniae\", language = \"de\") # German #> [1] \"Gramnegativ\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"nl\") # Dutch #> [1] \"Gram-negatief\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"es\") # Spanish #> [1] \"Gram negativo\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"el\") # Greek #> [1] \"Αρνητικό κατά Gram\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"uk\") # Ukrainian #> [1] \"Грамнегативні\"  # mo_type is equal to mo_kingdom, but mo_kingdom will remain untranslated mo_kingdom(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_type(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_kingdom(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, no effect #> [1] \"Bacteria\" mo_type(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, translated #> [1] \"细菌\"  mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"de\") #> [1] \"Streptococcus Gruppe A\" mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"uk\") #> [1] \"Streptococcus Група A\"   # other --------------------------------------------------------------------  # gram stains and intrinsic resistance can be used as a filter in dplyr verbs if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_is_gram_positive()) %>%     count(mo_genus(), sort = TRUE) } #> ℹ Using column 'mo' as input for mo_is_gram_positive() #> ℹ Using column 'mo' as input for mo_genus() #> # A tibble: 18 × 2 #>    `mo_genus()`        n #>    <chr>           <int> #>  1 Staphylococcus    840 #>  2 Streptococcus     275 #>  3 Enterococcus       83 #>  4 Corynebacterium    17 #>  5 Micrococcus         6 #>  6 Gemella             3 #>  7 Aerococcus          2 #>  8 Cutibacterium       1 #>  9 Dermabacter         1 #> 10 Fusibacter          1 #> 11 Globicatella        1 #> 12 Granulicatella      1 #> 13 Lactobacillus       1 #> 14 Leuconostoc         1 #> 15 Listeria            1 #> 16 Paenibacillus       1 #> 17 Rothia              1 #> 18 Schaalia            1 if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_is_intrinsic_resistant(ab = \"vanco\")) %>%     count(mo_genus(), sort = TRUE) } #> ℹ Using column 'mo' as input for mo_is_intrinsic_resistant() #> ℹ Using column 'mo' as input for mo_genus() #> # A tibble: 20 × 2 #>    `mo_genus()`         n #>    <chr>            <int> #>  1 Escherichia        467 #>  2 Klebsiella          77 #>  3 Proteus             39 #>  4 Pseudomonas         30 #>  5 Serratia            25 #>  6 Enterobacter        23 #>  7 Citrobacter         11 #>  8 Haemophilus          8 #>  9 Acinetobacter        6 #> 10 Morganella           6 #> 11 Pantoea              4 #> 12 Salmonella           3 #> 13 Neisseria            2 #> 14 Stenotrophomonas     2 #> 15 Campylobacter        1 #> 16 Enterococcus         1 #> 17 Hafnia               1 #> 18 Lactobacillus        1 #> 19 Leuconostoc          1 #> 20 Pseudescherichia     1  # get a list with the complete taxonomy (from kingdom to subspecies) mo_taxonomy(\"Klebsiella pneumoniae\") #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Klebsiella\" #>  #> $species #> [1] \"pneumoniae\" #>  #> $subspecies #> [1] \"\" #>   # get a list with the taxonomy, the authors, Gram-stain, # SNOMED codes, and URL to the online database mo_info(\"Klebsiella pneumoniae\") #> $mo #> [1] \"B_KLBSL_PNMN\" #>  #> $rank #> [1] \"species\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Klebsiella\" #>  #> $species #> [1] \"pneumoniae\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $oxygen_tolerance #> [1] \"facultative anaerobe\" #>  #> $url #> [1] \"https://lpsn.dsmz.de/species/klebsiella-pneumoniae\" #>  #> $ref #> [1] \"Trevisan, 1887\" #>  #> $snomed #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\"        #>  #> $lpsn #> [1] \"777151\" #>  #> $mycobank #> [1] NA #>  #> $gbif #> [1] \"3221874\" #>  #> $group_members #> character(0) #>  # }"},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":null,"dir":"Reference","previous_headings":"","what":"User-Defined Reference Data Set for Microorganisms — mo_source","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"functions can used predefine reference used .mo() consequently mo_* functions (mo_genus() mo_gramstain()). fastest way organisation (analysis) specific codes picked translated package, since bother setting .","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"","code":"set_mo_source(   path,   destination = getOption(\"AMR_mo_source\", \"~/mo_source.rds\") )  get_mo_source(destination = getOption(\"AMR_mo_source\", \"~/mo_source.rds\"))"},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"path location reference file, can text file (comma-, tab- pipe-separated) Excel file (see Details). Can also \"\", NULL FALSE delete reference file. destination destination compressed data file - default user's home directory.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"reference file can text file separated commas (CSV) tabs pipes, Excel file (either 'xls' 'xlsx' format) R object file (extension '.rds'). use Excel file, need readxl package installed. set_mo_source() check file validity: must data.frame, must column named \"mo\" contains values microorganisms$mo microorganisms$fullname must reference column defined values. tests pass, set_mo_source() read file R ask export \"~/mo_source.rds\". CRAN policy disallows packages write file system, although 'exceptions may allowed interactive sessions package obtains confirmation user'. reason, function works interactive sessions user can specifically confirm allow file created. destination file can set destination argument defaults user's home directory. can also set package option AMR_mo_source, e.g. options(AMR_mo_source = \"/location/file.rds\"). created compressed data file \"mo_source.rds\" used default MO determination (function .mo() consequently mo_* functions like mo_genus() mo_gramstain()). location timestamp original file saved attribute compressed data file. function get_mo_source() return data set reading \"mo_source.rds\" readRDS(). original file changed (checking location timestamp original file), call set_mo_source() update data file automatically used interactive session. Reading Excel file (.xlsx) one row size 8-9 kB. compressed file created set_mo_source() size 0.1 kB can read get_mo_source() couple microseconds (millionths second).","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"how-to-setup","dir":"Reference","previous_headings":"","what":"How to Setup","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"Imagine data sheet Excel file. first column contains organisation specific codes, second column contains valid taxonomic names:   save \"home//ourcodes.xlsx\". Now set source:   now created file \"~/mo_source.rds\" contents Excel file. first column foreign values 'mo' column kept creating RDS file. now can use functions:   edit Excel file , say, adding row 4 like :   ...new usage MO function package update data file:   delete reference data file, just use \"\", NULL FALSE input set_mo_source():   original file (previous case Excel file) moved deleted, mo_source.rds file removed upon next use .mo() mo_* function.","code":"|         A          |            B          | --|--------------------|-----------------------| 1 | Organisation XYZ   | mo                    | 2 | lab_mo_ecoli       | Escherichia coli      | 3 | lab_mo_kpneumoniae | Klebsiella pneumoniae | 4 |                    |                       | set_mo_source(\"home/me/ourcodes.xlsx\") #> NOTE: Created mo_source file '/Users/me/mo_source.rds' (0.3 kB) from #>       '/Users/me/Documents/ourcodes.xlsx' (9 kB), columns #>       \"Organisation XYZ\" and \"mo\" as.mo(\"lab_mo_ecoli\") #> Class 'mo' #> [1] B_ESCHR_COLI  mo_genus(\"lab_mo_kpneumoniae\") #> [1] \"Klebsiella\"  # other input values still work too as.mo(c(\"Escherichia coli\", \"E. coli\", \"lab_mo_ecoli\")) #> NOTE: Translation to one microorganism was guessed with uncertainty. #>       Use mo_uncertainties() to review it. #> Class 'mo' #> [1] B_ESCHR_COLI B_ESCHR_COLI B_ESCHR_COLI |         A          |            B          | --|--------------------|-----------------------| 1 | Organisation XYZ   | mo                    | 2 | lab_mo_ecoli       | Escherichia coli      | 3 | lab_mo_kpneumoniae | Klebsiella pneumoniae | 4 | lab_Staph_aureus   | Staphylococcus aureus | 5 |                    |                       | as.mo(\"lab_mo_ecoli\") #> NOTE: Updated mo_source file '/Users/me/mo_source.rds' (0.3 kB) from #>       '/Users/me/Documents/ourcodes.xlsx' (9 kB), columns #>        \"Organisation XYZ\" and \"mo\" #> Class 'mo' #> [1] B_ESCHR_COLI  mo_genus(\"lab_Staph_aureus\") #> [1] \"Staphylococcus\" set_mo_source(NULL) #> Removed mo_source file '/Users/me/mo_source.rds'"},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":null,"dir":"Reference","previous_headings":"","what":"Principal Component Analysis (for AMR) — pca","title":"Principal Component Analysis (for AMR) — pca","text":"Performs principal component analysis (PCA) based data set automatic determination afterwards plotting groups labels, automatic filtering suitable (.e. non-empty numeric) variables.","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Principal Component Analysis (for AMR) — pca","text":"","code":"pca(   x,   ...,   retx = TRUE,   center = TRUE,   scale. = TRUE,   tol = NULL,   rank. = NULL )"},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Principal Component Analysis (for AMR) — pca","text":"x data.frame containing numeric columns ... columns x selected PCA, can unquoted since supports quasiquotation. retx logical value indicating whether rotated variables     returned. center logical value indicating whether variables     shifted zero centered. Alternately, vector     length equal number columns x can supplied.     value passed scale. scale. logical value indicating whether variables     scaled unit variance analysis takes     place.  default FALSE consistency S,     general scaling advisable.  Alternatively, vector length     equal number columns x can supplied.      value passed scale. tol value indicating magnitude components     omitted. (Components omitted     standard deviations less equal tol times     standard deviation first component.)  default null     setting, components omitted (unless rank. specified     less min(dim(x)).).  settings tol     tol = 0 tol = sqrt(.Machine$double.eps),     omit essentially constant components. rank. optionally, number specifying maximal rank, .e.,     maximal number principal components used.  Can set     alternative addition tol, useful notably     desired rank considerably smaller dimensions matrix.","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Principal Component Analysis (for AMR) — pca","text":"object classes pca prcomp","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Principal Component Analysis (for AMR) — pca","text":"pca() function takes data.frame input performs actual PCA R function prcomp(). result pca() function prcomp object, additional attribute non_numeric_cols vector column names columns contain numeric values. probably groups labels, used ggplot_pca().","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Principal Component Analysis (for AMR) — pca","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # \\donttest{ if (require(\"dplyr\")) {   # calculate the resistance per group first   resistance_data <- example_isolates %>%     group_by(       order = mo_order(mo), # group on anything, like order       genus = mo_genus(mo)     ) %>% #   and genus as we do here;     filter(n() >= 30) %>% # filter on only 30 results per group     summarise_if(is.sir, resistance) # then get resistance of all drugs    # now conduct PCA for certain antimicrobial drugs   pca_result <- resistance_data %>%     pca(AMC, CXM, CTX, CAZ, GEN, TOB, TMP, SXT)    pca_result   summary(pca_result)    # old base R plotting method:   biplot(pca_result)   # new ggplot2 plotting method using this package:   if (require(\"ggplot2\")) {     ggplot_pca(pca_result)      ggplot_pca(pca_result) +       scale_colour_viridis_d() +       labs(title = \"Title here\")   } } #> Warning: There were 73 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `PEN = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ In group 5: `order = \"Lactobacillales\"` and `genus = \"Enterococcus\"`. #> Caused by warning: #> ! Introducing NA: only 14 results available for PEN in group: order = #> \"Lactobacillales\", genus = \"Enterococcus\" (minimum = 30). #> ℹ Run `dplyr::last_dplyr_warnings()` to see the 72 remaining warnings. #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\"  #>    # }"},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":null,"dir":"Reference","previous_headings":"","what":"Plotting Helpers for AMR Data Analysis — plot","title":"Plotting Helpers for AMR Data Analysis — plot","text":"Functions plot classes sir, mic disk, support base R ggplot2. Especially scale_*_mic() functions relevant wrappers plot MIC values ggplot2. allows custom MIC ranges plot intermediate log2 levels missing MIC values.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Plotting Helpers for AMR Data Analysis — plot","text":"","code":"scale_x_mic(keep_operators = \"edges\", mic_range = NULL, drop = FALSE, ...)  scale_y_mic(keep_operators = \"edges\", mic_range = NULL, drop = FALSE, ...)  scale_colour_mic(keep_operators = \"edges\", mic_range = NULL, drop = FALSE, ...)  scale_fill_mic(keep_operators = \"edges\", mic_range = NULL, drop = FALSE, ...)  # S3 method for class 'mic' plot(   x,   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   main = deparse(substitute(x)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Minimum Inhibitory Concentration (mg/L)\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for class 'mic' autoplot(   object,   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   title = deparse(substitute(object)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Minimum Inhibitory Concentration (mg/L)\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for class 'mic' fortify(object, ...)  # S3 method for class 'disk' plot(   x,   main = deparse(substitute(x)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Disk diffusion diameter (mm)\", language = language),   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for class 'disk' autoplot(   object,   mo = NULL,   ab = NULL,   title = deparse(substitute(object)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Disk diffusion diameter (mm)\", language = language),   guideline = \"EUCAST\",   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for class 'disk' fortify(object, ...)  # S3 method for class 'sir' plot(   x,   ylab = translate_AMR(\"Percentage\", language = language),   xlab = translate_AMR(\"Antimicrobial Interpretation\", language = language),   main = deparse(substitute(x)),   language = get_AMR_locale(),   ... )  # S3 method for class 'sir' autoplot(   object,   title = deparse(substitute(object)),   xlab = translate_AMR(\"Antimicrobial Interpretation\", language = language),   ylab = translate_AMR(\"Frequency\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   ... )  # S3 method for class 'sir' fortify(object, ...)  facet_sir(facet = c(\"interpretation\", \"antibiotic\"), nrow = NULL)  scale_y_percent(   breaks = function(x) seq(0, max(x, na.rm = TRUE), 0.1),   limits = NULL )  scale_sir_colours(   ...,   aesthetics = \"fill\",   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\") )  theme_sir()  labels_sir_count(   position = NULL,   x = \"antibiotic\",   translate_ab = \"name\",   minimum = 30,   language = get_AMR_locale(),   combine_SI = TRUE,   datalabels.size = 3,   datalabels.colour = \"grey15\" )"},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Plotting Helpers for AMR Data Analysis — plot","text":"keep_operators character specifying handle operators (> <=) input. Accepts one three values: \"\" (TRUE) keep operators, \"none\" (FALSE) remove operators, \"edges\" keep operators ends range. mic_range manual range limit MIC values, e.g., mic_range = c(0.001, 32). Use NA set limit one side, e.g., mic_range = c(NA, 32). drop logical remove intermediate MIC values, defaults FALSE ... arguments passed methods x, object values created .mic(), .disk() .sir() (random_* variants, random_mic()) mo (vector ) text can coerced valid microorganism code .mo() ab (vector ) text can coerced valid antimicrobial drug code .ab() guideline interpretation guideline use - default latest included EUCAST guideline, see Details main, title title plot xlab, ylab axis title colours_SIR colours use filling bars, must vector three values (order S, R). default colours colour-blind friendly. language language used translate 'Susceptible', 'Increased exposure'/'Intermediate' 'Resistant' - default system language (see get_AMR_locale()) can overwritten setting package option AMR_locale, e.g. options(AMR_locale = \"de\"), see translate. Use language = NULL language = \"\" prevent translation. expand logical indicate whether range x axis expanded lowest highest value. MIC values, intermediate values factors 2 starting highest MIC value. disk diameters, whole diameter range filled. include_PKPD logical indicate PK/PD clinical breakpoints must applied last resort - default TRUE. Can also set package option AMR_include_PKPD. breakpoint_type type breakpoints use, either \"ECOFF\", \"animal\", \"human\". ECOFF stands Epidemiological Cut-values. default \"human\", can also set package option AMR_breakpoint_type. host set values veterinary species, automatically set \"animal\".","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Plotting Helpers for AMR Data Analysis — plot","text":"autoplot() functions return ggplot model extendible ggplot2 function. fortify() functions return data.frame extension usage ggplot2::ggplot() function.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Plotting Helpers for AMR Data Analysis — plot","text":"interpretation \"\" named \"Increased exposure\" EUCAST guidelines since 2019, named \"Intermediate\" cases. interpreting MIC values well disk diffusion diameters, supported guidelines used input guideline argument : \"EUCAST 2024\", \"EUCAST 2023\", \"EUCAST 2022\", \"EUCAST 2021\", \"EUCAST 2020\", \"EUCAST 2019\", \"EUCAST 2018\", \"EUCAST 2017\", \"EUCAST 2016\", \"EUCAST 2015\", \"EUCAST 2014\", \"EUCAST 2013\", \"EUCAST 2012\", \"EUCAST 2011\", \"CLSI 2024\", \"CLSI 2023\", \"CLSI 2022\", \"CLSI 2021\", \"CLSI 2020\", \"CLSI 2019\", \"CLSI 2018\", \"CLSI 2017\", \"CLSI 2016\", \"CLSI 2015\", \"CLSI 2014\", \"CLSI 2013\", \"CLSI 2012\", \"CLSI 2011\". Simply using \"CLSI\" \"EUCAST\" input automatically select latest version guideline.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"additional-ggplot-functions","dir":"Reference","previous_headings":"","what":"Additional ggplot2 Functions","title":"Plotting Helpers for AMR Data Analysis — plot","text":"package contains several functions extend ggplot2 package, help visualising AMR data results. functions internally used ggplot_sir() . facet_sir() creates 2d plots (default based S//R) using ggplot2::facet_wrap(). scale_y_percent() transforms y axis 0 100% range using ggplot2::scale_y_continuous(). scale_sir_colours() sets colours bars (green S, yellow , red R). multilingual support. default colours colour-blind friendly, maintaining convention e.g. 'susceptible' green 'resistant' red. theme_sir() [ggplot2 theme][ggplot2::theme() minimal distraction. labels_sir_count() print datalabels bars percentage number isolates, using ggplot2::geom_text().","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Plotting Helpers for AMR Data Analysis — plot","text":"","code":"some_mic_values <- random_mic(size = 100) some_disk_values <- random_disk(size = 100, mo = \"Escherichia coli\", ab = \"cipro\") some_sir_values <- random_sir(50, prob_SIR = c(0.55, 0.05, 0.30))  plot(some_mic_values)  plot(some_disk_values)  plot(some_sir_values)   # when providing the microorganism and antibiotic, colours will show interpretations: plot(some_mic_values, mo = \"S. aureus\", ab = \"ampicillin\")  plot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\")  plot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\", language = \"nl\")    # Plotting using scale_x_mic() # \\donttest{ if (require(\"ggplot2\")) {   mic_plot <- ggplot(data.frame(mics = as.mic(c(0.25, \"<=4\", 4, 8, 32, \">=32\")),                                 counts = c(1, 1, 2, 2, 3, 3)),                      aes(mics, counts)) +     geom_col()   mic_plot +     labs(title = \"without scale_x_mic()\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic() +     labs(title = \"with scale_x_mic()\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic(keep_operators = \"all\") +     labs(title = \"with scale_x_mic() keeping all operators\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic(mic_range = c(1, 16)) +     labs(title = \"with scale_x_mic() using a manual 'within' range\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic(mic_range = c(0.032, 256)) +     labs(title = \"with scale_x_mic() using a manual 'outside' range\") }   if (require(\"ggplot2\")) {   autoplot(some_mic_values) }  if (require(\"ggplot2\")) {   autoplot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\") }  if (require(\"ggplot2\")) {   autoplot(some_sir_values) }  # }"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate Antimicrobial Resistance — proportion","title":"Calculate Antimicrobial Resistance — proportion","text":"functions can used calculate (co-)resistance susceptibility microbial isolates (.e. percentage S, SI, , IR R). functions support quasiquotation pipes, can used summarise() dplyr package also support grouped variables, see Examples. resistance() used calculate resistance, susceptibility() used calculate susceptibility.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate Antimicrobial Resistance — proportion","text":"","code":"resistance(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  susceptibility(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  sir_confidence_interval(   ...,   ab_result = \"R\",   minimum = 30,   as_percent = FALSE,   only_all_tested = FALSE,   confidence_level = 0.95,   side = \"both\",   collapse = FALSE )  proportion_R(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_IR(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_I(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_SI(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_S(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   minimum = 30,   as_percent = FALSE,   combine_SI = TRUE,   confidence_level = 0.95 )  sir_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   minimum = 30,   as_percent = FALSE,   combine_SI = TRUE,   confidence_level = 0.95 )"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Calculate Antimicrobial Resistance — proportion","text":"M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate Antimicrobial Resistance — proportion","text":"... one vectors (columns) antibiotic interpretations. transformed internally .sir() needed. Use multiple columns calculate (lack ) co-resistance: probability one two drugs resistant susceptible result. See Examples. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. as_percent logical indicate whether output must returned hundred fold % sign (character). value 0.123456 returned \"12.3%\". only_all_tested (combination therapies, .e. using one variable ...): logical indicate isolates must tested antibiotics, see section Combination Therapy ab_result antibiotic results test , must one values \"S\", \"SDD\", \"\", \"R\" confidence_level confidence level returned confidence interval. calculation, number S SI isolates, R isolates compared total number available isolates R, S, using binom.test(), .e., Clopper-Pearson method. side side confidence interval return. default \"\" length 2 vector, can also (abbreviated ) \"min\"/\"left\"/\"lower\"/\"less\" \"max\"/\"right\"/\"higher\"/\"greater\". collapse logical indicate whether output values 'collapsed', .e. merged together one value, character value use collapsing data data.frame containing columns class sir (see .sir()) translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. combine_SI logical indicate whether values S, SDD, must merged one, output consists S+SDD+vs. R (susceptible vs. resistant) - default TRUE","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Calculate Antimicrobial Resistance — proportion","text":"double , as_percent = TRUE, character.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Calculate Antimicrobial Resistance — proportion","text":"Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine data set one four available algorithms. function resistance() equal function proportion_R(). function susceptibility() equal function proportion_SI(). Since AMR v3.0, proportion_SI() proportion_I() include dose-dependent susceptibility ('SDD'). Use sir_confidence_interval() calculate confidence interval, relies binom.test(), .e., Clopper-Pearson method. function returns vector length 2 default antimicrobial resistance. Change side argument \"left\"/\"min\" \"right\"/\"max\" return single value, change ab_result argument e.g. c(\"S\", \"\") test antimicrobial susceptibility, see Examples. functions meant count isolates, calculate proportion resistance/susceptibility. Use count_*() functions count isolates. function susceptibility() essentially equal count_susceptible()/count_all(). Low counts can influence outcome - proportion_*() functions may camouflage , since return proportion (albeit dependent minimum argument). function proportion_df() takes variable data sir class (created .sir()) calculates proportions S, , R. also supports grouped variables. function sir_df() works exactly like proportion_df(), adds number isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"combination-therapy","dir":"Reference","previous_headings":"","what":"Combination Therapy","title":"Calculate Antimicrobial Resistance — proportion","text":"using one variable ... (= combination therapy), use only_all_tested count isolates tested antibiotics/variables test . See example two antibiotics, Drug Drug B, susceptibility() works calculate %SI:   Please note , combination therapies, only_all_tested = TRUE applies :   , combination therapies, only_all_tested = FALSE applies :   Using only_all_tested impact using one antibiotic input.","code":"--------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - -------------------------------------------------------------------- count_S()    +   count_I()    +   count_R()    = count_all()   proportion_S() + proportion_I() + proportion_R() = 1 count_S()    +   count_I()    +   count_R()    >= count_all()   proportion_S() + proportion_I() + proportion_R() >= 1"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Calculate Antimicrobial Resistance — proportion","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate Antimicrobial Resistance — proportion","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …   # base R ------------------------------------------------------------ # determines %R resistance(example_isolates$AMX) #> [1] 0.5955556 sir_confidence_interval(example_isolates$AMX) #> [1] 0.5688204 0.6218738 sir_confidence_interval(example_isolates$AMX,   confidence_level = 0.975 ) #> [1] 0.5650148 0.6255670 sir_confidence_interval(example_isolates$AMX,   confidence_level = 0.975,   collapse = \", \" ) #> [1] \"0.565, 0.626\"  # determines %S+I: susceptibility(example_isolates$AMX) #> [1] 0.4044444 sir_confidence_interval(example_isolates$AMX,   ab_result = c(\"S\", \"I\") ) #> [1] 0.3781262 0.4311796  # be more specific proportion_S(example_isolates$AMX) #> [1] 0.4022222 proportion_SI(example_isolates$AMX) #> Note that proportion_SI() will also include dose-dependent #> susceptibility, 'SDD'. This note will be shown once for this session. #> [1] 0.4044444 proportion_I(example_isolates$AMX) #> Note that proportion_I() will also include dose-dependent susceptibility, #> 'SDD'. This note will be shown once for this session. #> [1] 0.002222222 proportion_IR(example_isolates$AMX) #> Note that proportion_IR() will also include dose-dependent #> susceptibility, 'SDD'. This note will be shown once for this session. #> [1] 0.5977778 proportion_R(example_isolates$AMX) #> [1] 0.5955556  # dplyr ------------------------------------------------------------- # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       r = resistance(CIP),       n = n_sir(CIP)     ) # n_sir works like n_distinct in dplyr, see ?n_sir } #> # A tibble: 3 × 3 #>   ward           r     n #>   <chr>      <dbl> <int> #> 1 Clinical   0.147   869 #> 2 ICU        0.190   447 #> 3 Outpatient 0.161    93 if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       cipro_R = resistance(CIP),       ci_min = sir_confidence_interval(CIP, side = \"min\"),       ci_max = sir_confidence_interval(CIP, side = \"max\"),     ) } #> # A tibble: 3 × 4 #>   ward       cipro_R ci_min ci_max #>   <chr>        <dbl>  <dbl>  <dbl> #> 1 Clinical     0.147 0.124   0.173 #> 2 ICU          0.190 0.155   0.230 #> 3 Outpatient   0.161 0.0932  0.252 if (require(\"dplyr\")) {   # scoped dplyr verbs with antibiotic selectors   # (you could also use across() of course)   example_isolates %>%     group_by(ward) %>%     summarise_at(       c(aminoglycosides(), carbapenems()),       resistance     ) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> Warning: There was 1 warning in `summarise()`. #> ℹ In argument: `KAN = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ In group 3: `ward = \"Outpatient\"`. #> Caused by warning: #> ! Introducing NA: only 23 results available for KAN in group: ward = #> \"Outpatient\" (minimum = 30). #> # A tibble: 3 × 7 #>   ward         GEN   TOB   AMK   KAN    IPM    MEM #>   <chr>      <dbl> <dbl> <dbl> <dbl>  <dbl>  <dbl> #> 1 Clinical   0.229 0.315 0.626     1 0.0498 0.0458 #> 2 ICU        0.290 0.400 0.662     1 0.0862 0.0894 #> 3 Outpatient 0.2   0.368 0.605    NA 0.0541 0.0541 if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       R = resistance(CIP, as_percent = TRUE),       SI = susceptibility(CIP, as_percent = TRUE),       n1 = count_all(CIP), # the actual total; sum of all three       n2 = n_sir(CIP), # same - analogous to n_distinct       total = n()     ) # NOT the number of tested isolates!    # Calculate co-resistance between amoxicillin/clav acid and gentamicin,   # so we can see that combination therapy does a lot more than mono therapy:   example_isolates %>% susceptibility(AMC) # %SI = 76.3%   example_isolates %>% count_all(AMC) #   n = 1879    example_isolates %>% susceptibility(GEN) # %SI = 75.4%   example_isolates %>% count_all(GEN) #   n = 1855    example_isolates %>% susceptibility(AMC, GEN) # %SI = 94.1%   example_isolates %>% count_all(AMC, GEN) #   n = 1939     # See Details on how `only_all_tested` works. Example:   example_isolates %>%     summarise(       numerator = count_susceptible(AMC, GEN),       denominator = count_all(AMC, GEN),       proportion = susceptibility(AMC, GEN)     )    example_isolates %>%     summarise(       numerator = count_susceptible(AMC, GEN, only_all_tested = TRUE),       denominator = count_all(AMC, GEN, only_all_tested = TRUE),       proportion = susceptibility(AMC, GEN, only_all_tested = TRUE)     )     example_isolates %>%     group_by(ward) %>%     summarise(       cipro_p = susceptibility(CIP, as_percent = TRUE),       cipro_n = count_all(CIP),       genta_p = susceptibility(GEN, as_percent = TRUE),       genta_n = count_all(GEN),       combination_p = susceptibility(CIP, GEN, as_percent = TRUE),       combination_n = count_all(CIP, GEN)     )    # Get proportions S/I/R immediately of all sir columns   example_isolates %>%     select(AMX, CIP) %>%     proportion_df(translate = FALSE)    # It also supports grouping variables   # (use sir_df to also include the count)   example_isolates %>%     select(ward, AMX, CIP) %>%     group_by(ward) %>%     sir_df(translate = FALSE) } #> # A tibble: 12 × 7 #>    ward       antibiotic interpretation value ci_min ci_max isolates #>  * <chr>      <chr>      <ord>          <dbl>  <dbl>  <dbl>    <int> #>  1 Clinical   AMX        SI             0.423 0.389   0.457      357 #>  2 Clinical   AMX        R              0.577 0.543   0.611      487 #>  3 Clinical   CIP        SI             0.853 0.827   0.876      741 #>  4 Clinical   CIP        R              0.147 0.124   0.173      128 #>  5 ICU        AMX        SI             0.369 0.323   0.417      158 #>  6 ICU        AMX        R              0.631 0.583   0.677      270 #>  7 ICU        CIP        SI             0.810 0.770   0.845      362 #>  8 ICU        CIP        R              0.190 0.155   0.230       85 #>  9 Outpatient AMX        SI             0.397 0.288   0.515       31 #> 10 Outpatient AMX        R              0.603 0.485   0.712       47 #> 11 Outpatient CIP        SI             0.839 0.748   0.907       78 #> 12 Outpatient CIP        R              0.161 0.0932  0.252       15 # }"},{"path":"https://msberends.github.io/AMR/reference/random.html","id":null,"dir":"Reference","previous_headings":"","what":"Random MIC Values/Disk Zones/SIR Generation — random","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"functions can used generating random MIC values disk diffusion diameters, AMR data analysis practice. providing microorganism antimicrobial drug, generated results reflect reality much possible.","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"","code":"random_mic(size = NULL, mo = NULL, ab = NULL, ...)  random_disk(size = NULL, mo = NULL, ab = NULL, ...)  random_sir(size = NULL, prob_SIR = c(0.33, 0.33, 0.33), ...)"},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"size desired size returned vector. used data.frame call dplyr verb, get current (group) size left blank. mo character can coerced valid microorganism code .mo() ab character can coerced valid antimicrobial drug code .ab() ... ignored, place allow future extensions prob_SIR vector length 3: probabilities \"S\" (1st value), \"\" (2nd value) \"R\" (3rd value)","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"class mic random_mic() (see .mic()) class disk random_disk() (see .disk())","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"base R function sample() used generating values. Generated values based EUCAST 2024 guideline implemented clinical_breakpoints data set. create specific generated values per bug drug, set mo /ab argument.","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"","code":"random_mic(25) #> Class 'mic' #>  [1] 0.025   8       0.002   0.005   0.25    >=256   0.01    0.002   64      #> [10] 0.5     4       32      0.002   16      >=256   0.01    0.002   0.0625  #> [19] 0.002   64      8       8       2       <=0.001 0.125   random_disk(25) #> Class 'disk' #>  [1] 43  7 48 40 19 50 50 20 44 14 16 33 31 17 30  6 38  7  6 12 16 11 43 43 45 random_sir(25) #> Class 'sir' #>  [1] R S R R S S R I S R S S R I I R S I R R R R I R S  # \\donttest{ # make the random generation more realistic by setting a bug and/or drug: random_mic(25, \"Klebsiella pneumoniae\") # range 0.0625-64 #> Class 'mic' #>  [1] 0.025  0.25   16     8      0.001  4      16     0.025  0.25   8      #> [11] 0.5    0.005  0.0625 2      0.125  0.002  1      16     16     0.005  #> [21] 0.001  >=32   0.002  0.0625 0.125  random_mic(25, \"Klebsiella pneumoniae\", \"meropenem\") # range 0.0625-16 #> Class 'mic' #>  [1] 4    8    2    8    8    16   8    8    1    0.5  1    >=32 2    4    1    #> [16] >=32 4    2    4    4    2    16   4    16   2    random_mic(25, \"Streptococcus pneumoniae\", \"meropenem\") # range 0.0625-4 #> Class 'mic' #>  [1] <=0.0625 <=0.0625 <=0.0625 0.5      0.125    0.25     0.5      2        #>  [9] 0.125    0.125    0.5      4        <=0.0625 2        0.25     4        #> [17] 2        0.25     1        2        2        <=0.0625 2        <=0.0625 #> [25] 0.5       random_disk(25, \"Klebsiella pneumoniae\") # range 8-50 #> Class 'disk' #>  [1] 30 43 22 49 40  8 14 36 49 23 12  9 17 25 43 46 30 49 34 22 50 24 39 38 46 random_disk(25, \"Klebsiella pneumoniae\", \"ampicillin\") # range 11-17 #> Class 'disk' #>  [1] 17 15 16 14 17 14 12 13 13 17 17 12 14 16 15 14 16 14 16 13 11 16 17 13 13 random_disk(25, \"Streptococcus pneumoniae\", \"ampicillin\") # range 12-27 #> Class 'disk' #>  [1] 25 22 21 23 19 20 21 25 20 19 21 19 27 22 26 25 27 21 17 26 18 23 23 26 27 # }"},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":null,"dir":"Reference","previous_headings":"","what":"Predict Antimicrobial Resistance — resistance_predict","title":"Predict Antimicrobial Resistance — resistance_predict","text":"Create prediction model predict antimicrobial resistance next years statistical solid ground. Standard errors (SE) returned columns se_min se_max. See Examples real live example.","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Predict Antimicrobial Resistance — resistance_predict","text":"","code":"resistance_predict(   x,   col_ab,   col_date = NULL,   year_min = NULL,   year_max = NULL,   year_every = 1,   minimum = 30,   model = NULL,   I_as_S = TRUE,   preserve_measurements = TRUE,   info = interactive(),   ... )  sir_predict(   x,   col_ab,   col_date = NULL,   year_min = NULL,   year_max = NULL,   year_every = 1,   minimum = 30,   model = NULL,   I_as_S = TRUE,   preserve_measurements = TRUE,   info = interactive(),   ... )  # S3 method for class 'resistance_predict' plot(x, main = paste(\"Resistance Prediction of\", x_name), ...)  ggplot_sir_predict(   x,   main = paste(\"Resistance Prediction of\", x_name),   ribbon = TRUE,   ... )  # S3 method for class 'resistance_predict' autoplot(   object,   main = paste(\"Resistance Prediction of\", x_name),   ribbon = TRUE,   ... )"},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Predict Antimicrobial Resistance — resistance_predict","text":"x data.frame containing isolates. Can left blank automatic determination, see Examples. col_ab column name x containing antimicrobial interpretations (\"R\", \"\" \"S\") col_date column name date, used calculate years column consist years already - default first column date class year_min lowest year use prediction model, dafaults lowest year col_date year_max highest year use prediction model - default 10 years today year_every unit sequence lowest year found data year_max minimum minimal amount available isolates per year include. Years containing less observations estimated model. model statistical model choice. generalised linear regression model binomial distribution (.e. using glm(..., family = binomial), assuming period zero resistance followed period increasing resistance leading slowly resistance. See Details valid options. I_as_S logical indicate whether values \"\" treated \"S\" (otherwise treated \"R\"). default, TRUE, follows redefinition EUCAST interpretation (increased exposure) 2019, see section Interpretation S, R . preserve_measurements logical indicate whether predictions years actually available data overwritten original data. standard errors years NA. info logical indicate whether textual analysis printed name summary() statistical model. ... arguments passed functions main title plot ribbon logical indicate whether ribbon shown (default) error bars object model data plotted","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Predict Antimicrobial Resistance — resistance_predict","text":"data.frame extra class resistance_predict columns: year value, estimated preserve_measurements = FALSE, combination observed estimated otherwise se_min, lower bound standard error minimum 0 (standard error never go 0%) se_max upper bound standard error maximum 1 (standard error never go 100%) observations, total number available observations year, .e. \\(S + + R\\) observed, original observed resistant percentages estimated, estimated resistant percentages, calculated model Furthermore, model available attribute: attributes(x)$model, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Predict Antimicrobial Resistance — resistance_predict","text":"Valid options statistical model (argument model) : \"binomial\" \"binom\" \"logit\": generalised linear regression model binomial distribution \"loglin\" \"poisson\": generalised log-linear regression model poisson distribution \"lin\" \"linear\": linear regression model","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Predict Antimicrobial Resistance — resistance_predict","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Predict Antimicrobial Resistance — resistance_predict","text":"","code":"x <- resistance_predict(example_isolates,   col_ab = \"AMX\",   year_min = 2010,   model = \"binomial\" ) plot(x)  # \\donttest{ if (require(\"ggplot2\")) {   ggplot_sir_predict(x) }   # using dplyr: if (require(\"dplyr\")) {   x <- example_isolates %>%     filter_first_isolate() %>%     filter(mo_genus(mo) == \"Staphylococcus\") %>%     resistance_predict(\"PEN\", model = \"binomial\")   print(plot(x))    # get the model from the object   mymodel <- attributes(x)$model   summary(mymodel) }  #> NULL #>  #> Call: #> glm(formula = df_matrix ~ year, family = binomial) #>  #> Coefficients: #>             Estimate Std. Error z value Pr(>|z|) #> (Intercept) 35.76101   72.29172   0.495    0.621 #> year        -0.01720    0.03603  -0.477    0.633 #>  #> (Dispersion parameter for binomial family taken to be 1) #>  #>     Null deviance: 5.3681  on 11  degrees of freedom #> Residual deviance: 5.1408  on 10  degrees of freedom #> AIC: 50.271 #>  #> Number of Fisher Scoring iterations: 4 #>   # create nice plots with ggplot2 yourself if (require(\"dplyr\") && require(\"ggplot2\")) {   data <- example_isolates %>%     filter(mo == as.mo(\"E. coli\")) %>%     resistance_predict(       col_ab = \"AMX\",       col_date = \"date\",       model = \"binomial\",       info = FALSE,       minimum = 15     )   head(data)   autoplot(data) }  # }"},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":null,"dir":"Reference","previous_headings":"","what":"Skewness of the Sample — skewness","title":"Skewness of the Sample — skewness","text":"Skewness measure asymmetry probability distribution real-valued random variable mean. negative ('left-skewed'): left tail longer; mass distribution concentrated right histogram. positive ('right-skewed'): right tail longer; mass distribution concentrated left histogram. normal distribution skewness 0.","code":""},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Skewness of the Sample — skewness","text":"","code":"skewness(x, na.rm = FALSE)  # Default S3 method skewness(x, na.rm = FALSE)  # S3 method for class 'matrix' skewness(x, na.rm = FALSE)  # S3 method for class 'data.frame' skewness(x, na.rm = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Skewness of the Sample — skewness","text":"x vector values, matrix data.frame na.rm logical value indicating whether NA values stripped computation proceeds","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Skewness of the Sample — skewness","text":"","code":"skewness(runif(1000)) #> [1] -0.07394966"},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":null,"dir":"Reference","previous_headings":"","what":"Translate Strings from the AMR Package — translate","title":"Translate Strings from the AMR Package — translate","text":"language-dependent output AMR functions, mo_name(), mo_gramstain(), mo_type() ab_name().","code":""},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Translate Strings from the AMR Package — translate","text":"","code":"get_AMR_locale()  set_AMR_locale(language)  reset_AMR_locale()  translate_AMR(x, language = get_AMR_locale())"},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Translate Strings from the AMR Package — translate","text":"language language choose. Use one supported language names ISO-639-1 codes: English (en), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Italian (), Japanese (ja), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swedish (sv), Turkish (tr), Ukrainian (uk). x text translate","code":""},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Translate Strings from the AMR Package — translate","text":"currently 20 supported languages English (en), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Italian (), Japanese (ja), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swedish (sv), Turkish (tr), Ukrainian (uk). languages translations available antimicrobial drugs colloquial microorganism names. permanently silence -per-session language note non-English operating system, can set package option AMR_locale .Rprofile file like :   save file. Please read adding updating language Wiki.","code":"# Open .Rprofile file utils::file.edit(\"~/.Rprofile\")  # Then add e.g. Italian support to that file using: options(AMR_locale = \"Italian\")"},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"changing-the-default-language","dir":"Reference","previous_headings":"","what":"Changing the Default Language","title":"Translate Strings from the AMR Package — translate","text":"system language used default (returned Sys.getenv(\"LANG\") , LANG set, Sys.getlocale(\"LC_COLLATE\")), language supported. language used can overwritten two ways checked order: Setting package option AMR_locale, either using e.g. set_AMR_locale(\"German\") running e.g. options(AMR_locale = \"German\"). Note setting R option works session. Save command options(AMR_locale = \"(language)\") .Rprofile file apply every session. Run utils::file.edit(\"~/.Rprofile\") edit .Rprofile file. Setting system variable LANGUAGE LANG, e.g. adding LANGUAGE=\"de_DE.utf8\" .Renviron file home directory. Thus, package option AMR_locale set, system variables LANGUAGE LANG ignored.","code":""},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Translate Strings from the AMR Package — translate","text":"","code":"# Current settings (based on system language) ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacin\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Coagulase-negative Staphylococcus (CoNS)\"  # setting another language set_AMR_locale(\"Dutch\") #> ℹ Using Dutch (Nederlands) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacine\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Coagulase-negatieve Staphylococcus (CNS)\"  # setting yet another language set_AMR_locale(\"German\") #> ℹ Using German (Deutsch) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacin\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Koagulase-negative Staphylococcus (KNS)\"  # set_AMR_locale() understands endonyms, English exonyms, and ISO-639-1: set_AMR_locale(\"Deutsch\") #> ℹ Using German (Deutsch) for the AMR package for this session. set_AMR_locale(\"German\") #> ℹ Using German (Deutsch) for the AMR package for this session. set_AMR_locale(\"de\") #> ℹ Using German (Deutsch) for the AMR package for this session. ab_name(\"amox/clav\") #> ℹ More than one result was found for item 1: amoxicillin and clavulansäure #> [1] \"Amoxicillin/Clavulansäure\"  # reset to system default reset_AMR_locale() #> ℹ Using the English language (English) for the AMR package for this #>   session. ab_name(\"amox/clav\") #> [1] \"Amoxicillin/clavulanic acid\""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"amr-2119121","dir":"Changelog","previous_headings":"","what":"AMR 2.1.1.9121","title":"AMR 2.1.1.9121","text":"(beta version eventually become v3.0. ’re happy reach new major milestone soon, new One Health support! Install beta using instructions .)","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"a-new-milestone-amr-v30-with-one-health-support--human--veterinary--environmental-2-1-1-9121","dir":"Changelog","previous_headings":"","what":"A New Milestone: AMR v3.0 with One Health Support (= Human + Veterinary + Environmental)","title":"AMR 2.1.1.9121","text":"package now supports tools AMR data analysis clinical settings, also veterinary environmental microbiology. made possible collaboration University Prince Edward Island’s Atlantic Veterinary College, Canada. celebrate great improvement package, also updated package logo reflect change.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"breaking-2-1-1-9121","dir":"Changelog","previous_headings":"","what":"Breaking","title":"AMR 2.1.1.9121","text":"Removed functions references used deprecated rsi class, replaced sir equivalents year ago","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"new-2-1-1-9121","dir":"Changelog","previous_headings":"","what":"New","title":"AMR 2.1.1.9121","text":"Function .sir() now extensive support veterinary breakpoints CLSI. Use breakpoint_type = \"animal\" set host argument variable contains animal species names. CLSI VET09 guideline implemented address cases veterinary breakpoints missing (applies guideline set CLSI) clinical_breakpoints data set contains breakpoints, can downloaded download page. antibiotics data set contains veterinary antibiotics, pradofloxacin enrofloxacin. WHOCC codes veterinary use added well. ab_atc() now supports ATC codes veterinary antibiotics (start “Q”) ab_url() now supports retrieving WHOCC url ATCvet pages MycoBank now integrated primary taxonomic source fungi. microorganisms data set enriched new columns (mycobank, mycobank_parent, mycobank_renamed_to) provide detailed information fungal species. remarkable addition 20,000 new fungal records New function mo_mycobank() retrieve MycoBank record number, analogous existing functions mo_lpsn() mo_gbif(). .mo() function mo_*() functions now include only_fungi argument, allowing users restrict results solely fungal species. ensures fungi prioritised bacteria microorganism identification. can also set globally new AMR_only_fungi option. Also updated kingdoms, welcoming total 2,149 new records 2023 927 2024. EUCAST 2024 CLSI 2024 now supported, adding 4,000 new clinical breakpoints clinical_breakpoints data set usage .sir(). EUCAST 2024 now new default guideline MIC disk diffusion interpretations. .sir() now brings additional factor levels: “NI” non-interpretable “SDD” susceptible dose-dependent. Currently, clinical_breakpoints data set contains 24 breakpoints can return value “SDD” instead “”. New function group scale_*_mic(), namely: scale_x_mic(), scale_y_mic(), scale_colour_mic() scale_fill_mic(). advanced ggplot2 extensions allow easy plotting MIC values. allow manual range definition plotting missing intermediate log2 levels. New function rescale_mic(), allows users rescale MIC values manually set range. powerhouse behind scale_*_mic() functions, can used independently , instance, compare equality MIC distributions rescaling range first. using R heavy lifting, ‘AMR’ Python Package developed run AMR R package natively Python. Python package always version number R package, built automatically every code change. antimicrobial selectors (aminoglycosides() betalactams()) now supported tidymodels packages recipe parsnip. See info tutorial using AMR function predictive modelling. New function mo_group_members() retrieve member microorganisms microorganism group. example, mo_group_members(\"Strep group C\") returns vector microorganisms belong group.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"changed-2-1-1-9121","dir":"Changelog","previous_headings":"","what":"Changed","title":"AMR 2.1.1.9121","text":"now possible use column names argument ab, mo, uti: .sir(..., ab = \"column1\", mo = \"column2\", uti = \"column3\"). greatly improves flexibility users. Users can now set criteria (using regular expressions) considered S, , R, SDD, NI. get quantitative values, .double() sir object return 1 S, 2 SDD/, 3 R (NI become NA). functions using sir classes (e.g., summary()) updated reflect change contain NI SDD. New argument formatting_type set 12 options formatting ‘cells’. defaults 10, changing output antibiograms cells 5% (15/300) instead previous standard just 5. reason, add_total_n now FALSE default since denominators added cells ab_transform argument now defaults \"name\", displaying antibiotic column names instead codes Added “clindamycin inducible screening” CLI1. Since clindamycin lincosamide, antibiotic selector lincosamides() now contains argument only_treatable = TRUE (similar antibiotic selectors contain non-treatable drugs) Added Amorolfine (AMO, D01AE16), now also part antifungals() selector Added selectors nitrofurans() rifamycins() using antibiotic selectors (aminoglycosides()) exclude non-treatable drugs (gentamicin-high), function now always returns warning can included using only_treatable = FALSE selectors can now run separate command retrieve vector possible antimicrobials selector can select Added valid levels: 4096, 6 powers 0.0625, 5 powers 192 (192, 384, 576, 768, 960) Added new argument keep_operators .mic(). can \"\" (default), \"none\", \"edges\". argument also available new rescale_mic() scale_*_mic() functions. Comparisons MIC values now strict. example, >32 higher (never equal ) 32. Thus, .mic(\">32\") == .mic(32) now returns FALSE, .mic(\">32\") > .mic(32) now returns TRUE. Sorting MIC values (using sort()) fixed manner; <0.001 now gets sorted 0.001, >0.001 gets sorted 0.001. Intermediate log2 levels used MIC plotting now common values instead following strict dilution range Disks 0 5 mm now allowed, newly allowed range disk diffusion (.disk()) now 0 50 mm Updated italicise_taxonomy() support HTML output custom_eucast_rules() now supports multiple antibiotics antibiotic groups affected single rule mo_info() now contains extra element rank group_members (contents new mo_group_members() function) Updated ATC codes WHOCC Updated antibiotic DDDs WHOCC Added 1,500 trade names antibiotics Fix using manual value mo_transform antibiogram() Fix mapping ‘high level’ antibiotics .ab() (amphotericin B-high, gentamicin-high, kanamycin-high, streptomycin-high, tobramycin-high) Improved overall algorithm .ab() better performance accuracy weight given genus species combinations cases subspecies miswritten, result correct genus species Genera World Health Organization’s () Priority Pathogen List now highest prevalence Fixed bug antibiogram() returns empty data set Fixed bug sir_confidence_interval() isolates available Updated prevalence calculation include genera World Health Organization’s () Priority Pathogen List Improved algorithm first_isolate() using phenotype-based method, prioritise records highest availability SIR values scale_y_percent() can now cope ranges outside 0-100% range Implemented new Dutch national MDRO guideline (SRI-richtlijn BRMO, Nov 2024) Added arguments esbl, carbapenemase, mecA, mecC, vanA, vanB denote column names logical values indicating presence genes (production proteins)","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"other-2-1-1-9121","dir":"Changelog","previous_headings":"","what":"Other","title":"AMR 2.1.1.9121","text":"Greatly improved vctrs integration, Tidyverse package working background many Tidyverse functions. users, means functions dplyr’s bind_rows(), rowwise() c_across() now supported e.g. columns class mic. Despite , AMR package still zero-dependent package, including dplyr vctrs. Greatly updated expanded documentation Added Larisse Bolton, Jordan Stull, Matthew Saab, Javier Sanchez contributors, thank valuable input Stopped support SAS (.xpt) files, since file structure extremely inefficient requires disk space GitHub allows single commit.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"older-versions-2-1-1-9121","dir":"Changelog","previous_headings":"","what":"Older Versions","title":"AMR 2.1.1.9121","text":"changelog contains changes AMR v3.0 (October 2024) later. prior v2 versions, please see v2 archive. prior v1 versions, please see v1 archive.","code":""}]
+[{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"How to conduct AMR data analysis","text":"Conducting AMR data analysis unfortunately requires -depth knowledge different scientific fields, makes hard right. least, requires: Good questions (always start !) reliable data thorough understanding (clinical) epidemiology, understand clinical epidemiological relevance possible bias results thorough understanding (clinical) microbiology/infectious diseases, understand microorganisms causal infections implications pharmaceutical treatment, well understanding intrinsic acquired microbial resistance Experience data analysis microbiological tests results, understand determination limitations MIC values interpretations SIR values Availability biological taxonomy microorganisms probably normalisation factors pharmaceuticals, defined daily doses (DDD) Available (inter-)national guidelines, profound methods apply course, instantly provide knowledge experience. AMR package, aimed providing (1) tools simplify antimicrobial resistance data cleaning, transformation analysis, (2) methods easily incorporate international guidelines (3) scientifically reliable reference data, including requirements mentioned . AMR package enables standardised reproducible AMR data analysis, application evidence-based rules, determination first isolates, translation various codes microorganisms antimicrobial agents, determination (multi-drug) resistant microorganisms, calculation antimicrobial resistance, prevalence future trends.","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"preparation","dir":"Articles","previous_headings":"","what":"Preparation","title":"How to conduct AMR data analysis","text":"tutorial, create fake demonstration data work . can skip Cleaning data already data ready. start analysis, try make structure data generally look like :","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"needed-r-packages","dir":"Articles","previous_headings":"Preparation","what":"Needed R packages","title":"How to conduct AMR data analysis","text":"many uses R, need additional packages AMR data analysis. package works closely together tidyverse packages dplyr ggplot2 RStudio. tidyverse tremendously improves way conduct data science - allows natural way writing syntaxes creating beautiful plots R. also use cleaner package, can used cleaning data creating frequency tables. Error get(paste0(generic, “.”, class), envir = get_method_env()) : object ‘type_sum.accel’ found AMR package contains data set example_isolates_unclean, might look data users extracted laboratory systems: AMR data analysis, like microorganism column contain valid, --date taxonomy, antibiotic columns cleaned SIR values well.","code":"library(dplyr) library(ggplot2) library(AMR)  # (if not yet installed, install with:) # install.packages(c(\"dplyr\", \"ggplot2\", \"AMR\")) example_isolates_unclean #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria      AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <chr>         <chr> <chr> <chr> <chr> #>  1 J3         A        2012-11-21 E. coli       R     I     S     S     #>  2 R7         A        2018-04-03 K. pneumoniae R     I     S     S     #>  3 P3         A        2014-09-19 E. coli       R     S     S     S     #>  4 P10        A        2015-12-10 E. coli       S     I     S     S     #>  5 B7         A        2015-03-02 E. coli       S     S     S     S     #>  6 W3         A        2018-03-31 S. aureus     R     S     R     S     #>  7 J8         A        2016-06-14 E. coli       R     S     S     S     #>  8 M3         A        2015-10-25 E. coli       R     S     S     S     #>  9 J3         A        2019-06-19 E. coli       S     S     S     S     #> 10 G6         A        2015-04-27 S. aureus     S     S     S     S     #> # ℹ 2,990 more rows  # we will use 'our_data' as the data set name for this tutorial our_data <- example_isolates_unclean"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"taxonomy-of-microorganisms","dir":"Articles","previous_headings":"Preparation","what":"Taxonomy of microorganisms","title":"How to conduct AMR data analysis","text":".mo(), users can transform arbitrary microorganism names codes current taxonomy. AMR package contains --date taxonomic data. specific, currently included data retrieved 24 Jun 2024. codes AMR packages come .mo() short, still human readable. importantly, .mo() supports kinds input: first character codes denote taxonomic kingdom, Bacteria (B), Fungi (F), Protozoa (P). AMR package also contain functions directly retrieve taxonomic properties, name, genus, species, family, order, even Gram-stain. start mo_ use .mo() internally, still arbitrary user input can used: Now can thus clean data: Apparently, uncertainty translation taxonomic codes. Let’s check : ’s good.","code":"as.mo(\"Klebsiella pneumoniae\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"K. pneumoniae\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"KLEPNE\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"KLPN\") #> Class 'mo' #> [1] B_KLBSL_PNMN mo_family(\"K. pneumoniae\") #> [1] \"Enterobacteriaceae\" mo_genus(\"K. pneumoniae\") #> [1] \"Klebsiella\" mo_species(\"K. pneumoniae\") #> [1] \"pneumoniae\"  mo_gramstain(\"Klebsiella pneumoniae\") #> [1] \"Gram-negative\"  mo_ref(\"K. pneumoniae\") #> [1] \"Trevisan, 1887\"  mo_snomed(\"K. pneumoniae\") #> [[1]] #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\" our_data$bacteria <- as.mo(our_data$bacteria, info = TRUE) #> ℹ Microorganism translation was uncertain for four microorganisms. Run #>   mo_uncertainties() to review these uncertainties, or use #>   add_custom_microorganisms() to add custom entries. mo_uncertainties() #> Matching scores are based on the resemblance between the input and the full #> taxonomic name, and the pathogenicity in humans. See ?mo_matching_score. #>  #> -------------------------------------------------------------------------------- #> \"E. coli\" -> Escherichia coli (B_ESCHR_COLI, 0.688) #> Also matched: Enterococcus crotali (0.650), Escherichia coli coli #>               (0.643), Escherichia coli expressing (0.611), Enterobacter cowanii #>               (0.600), Enterococcus columbae (0.595), Enterococcus camelliae (0.591), #>               Enterococcus casseliflavus (0.577), Enterobacter cloacae cloacae #>               (0.571), Enterobacter cloacae complex (0.571), and Enterobacter cloacae #>               dissolvens (0.565) #> -------------------------------------------------------------------------------- #> \"K. pneumoniae\" -> Klebsiella pneumoniae (B_KLBSL_PNMN, 0.786) #> Also matched: Klebsiella pneumoniae ozaenae (0.707), Klebsiella #>               pneumoniae pneumoniae (0.688), Klebsiella pneumoniae rhinoscleromatis #>               (0.658), Klebsiella pasteurii (0.500), Klebsiella planticola (0.500), #>               Kingella potus (0.400), Kluyveromyces pseudotropicale (0.386), #>               Kluyveromyces pseudotropicalis (0.363), Kosakonia pseudosacchari #>               (0.361), and Kluyveromyces pseudotropicalis pseudotropicalis (0.361) #> -------------------------------------------------------------------------------- #> \"S. aureus\" -> Staphylococcus aureus (B_STPHY_AURS, 0.690) #> Also matched: Staphylococcus aureus aureus (0.643), Staphylococcus #>               argenteus (0.625), Staphylococcus aureus anaerobius (0.625), #>               Staphylococcus auricularis (0.615), Salmonella Aurelianis (0.595), #>               Salmonella Aarhus (0.588), Salmonella Amounderness (0.587), #>               Staphylococcus argensis (0.587), Streptococcus australis (0.587), and #>               Salmonella choleraesuis arizonae (0.562) #> -------------------------------------------------------------------------------- #> \"S. pneumoniae\" -> Streptococcus pneumoniae (B_STRPT_PNMN, 0.750) #> Also matched: Streptococcus pseudopneumoniae (0.700), Streptococcus #>               phocae salmonis (0.552), Serratia proteamaculans quinovora (0.545), #>               Streptococcus pseudoporcinus (0.536), Staphylococcus piscifermentans #>               (0.533), Staphylococcus pseudintermedius (0.532), Serratia #>               proteamaculans proteamaculans (0.526), Streptococcus gallolyticus #>               pasteurianus (0.526), Salmonella Portanigra (0.524), and Streptococcus #>               periodonticum (0.519) #>  #> Only the first 10 other matches of each record are shown. Run #> print(mo_uncertainties(), n = ...) to view more entries, or save #> mo_uncertainties() to an object."},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"antibiotic-results","dir":"Articles","previous_headings":"Preparation","what":"Antibiotic results","title":"How to conduct AMR data analysis","text":"column antibiotic test results must also cleaned. AMR package comes three new data types work test results: mic minimal inhibitory concentrations (MIC), disk disk diffusion diameters, sir SIR data interpreted already. package can also determine SIR values based MIC disk diffusion values, read .sir() page. now, just clean SIR columns data using dplyr: basically cleaning, time start data inclusion.","code":"# method 1, be explicit about the columns: our_data <- our_data %>%   mutate_at(vars(AMX:GEN), as.sir)  # method 2, let the AMR package determine the eligible columns our_data <- our_data %>%   mutate_if(is_sir_eligible, as.sir)  # result: our_data #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> #>  1 J3         A        2012-11-21 B_ESCHR_COLI R     I     S     S     #>  2 R7         A        2018-04-03 B_KLBSL_PNMN R     I     S     S     #>  3 P3         A        2014-09-19 B_ESCHR_COLI R     S     S     S     #>  4 P10        A        2015-12-10 B_ESCHR_COLI S     I     S     S     #>  5 B7         A        2015-03-02 B_ESCHR_COLI S     S     S     S     #>  6 W3         A        2018-03-31 B_STPHY_AURS R     S     R     S     #>  7 J8         A        2016-06-14 B_ESCHR_COLI R     S     S     S     #>  8 M3         A        2015-10-25 B_ESCHR_COLI R     S     S     S     #>  9 J3         A        2019-06-19 B_ESCHR_COLI S     S     S     S     #> 10 G6         A        2015-04-27 B_STPHY_AURS S     S     S     S     #> # ℹ 2,990 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"first-isolates","dir":"Articles","previous_headings":"Preparation","what":"First isolates","title":"How to conduct AMR data analysis","text":"need know isolates can actually use analysis without repetition bias. conduct analysis antimicrobial resistance, must include first isolate every patient per episode (Hindler et al., Clin Infect Dis. 2007). , easily get overestimate underestimate resistance antibiotic. Imagine patient admitted MRSA found 5 different blood cultures following weeks (yes, countries like Netherlands blood drawing policies). resistance percentage oxacillin isolates overestimated, included MRSA . clearly selection bias. Clinical Laboratory Standards Institute (CLSI) appoints follows: (…) preparing cumulative antibiogram guide clinical decisions empirical antimicrobial therapy initial infections, first isolate given species per patient, per analysis period (eg, one year) included, irrespective body site, antimicrobial susceptibility profile, phenotypical characteristics (eg, biotype). first isolate easily identified, cumulative antimicrobial susceptibility test data prepared using first isolate generally comparable cumulative antimicrobial susceptibility test data calculated methods, providing duplicate isolates excluded. M39-A4 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 4th Edition. CLSI, 2014. Chapter 6.4 AMR package includes methodology first_isolate() function able apply four different methods defined Hindler et al. 2007: phenotype-based, episode-based, patient-based, isolate-based. right method depends goals analysis, default phenotype-based method case method properly correct duplicate isolates. Read methods first_isolate() page. outcome function can easily added data: 91% suitable resistance analysis! can now filter filter() function, also dplyr package: future use, two syntaxes can shortened: end 2 724 isolates analysis. Now data looks like: Time analysis.","code":"our_data <- our_data %>%   mutate(first = first_isolate(info = TRUE)) #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Using column 'bacteria' as input for col_mo. #> ℹ Using column 'date' as input for col_date. #> ℹ Using column 'patient_id' as input for col_patient_id. #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> => Found 2,724 'phenotype-based' first isolates (90.8% of total where a #>    microbial ID was available) our_data_1st <- our_data %>%   filter(first == TRUE) our_data_1st <- our_data %>%   filter_first_isolate() our_data_1st #> # A tibble: 2,724 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J3         A        2012-11-21 B_ESCHR_COLI R     I     S     S     TRUE  #>  2 R7         A        2018-04-03 B_KLBSL_PNMN R     I     S     S     TRUE  #>  3 P3         A        2014-09-19 B_ESCHR_COLI R     S     S     S     TRUE  #>  4 P10        A        2015-12-10 B_ESCHR_COLI S     I     S     S     TRUE  #>  5 B7         A        2015-03-02 B_ESCHR_COLI S     S     S     S     TRUE  #>  6 W3         A        2018-03-31 B_STPHY_AURS R     S     R     S     TRUE  #>  7 M3         A        2015-10-25 B_ESCHR_COLI R     S     S     S     TRUE  #>  8 J3         A        2019-06-19 B_ESCHR_COLI S     S     S     S     TRUE  #>  9 G6         A        2015-04-27 B_STPHY_AURS S     S     S     S     TRUE  #> 10 P4         A        2011-06-21 B_ESCHR_COLI S     S     S     S     TRUE  #> # ℹ 2,714 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"analysing-the-data","dir":"Articles","previous_headings":"","what":"Analysing the data","title":"How to conduct AMR data analysis","text":"base R summary() function gives good first impression, comes support new mo sir classes now data set:","code":"summary(our_data_1st) #>   patient_id          hospital              date            #>  Length:2724        Length:2724        Min.   :2011-01-01   #>  Class :character   Class :character   1st Qu.:2013-04-07   #>  Mode  :character   Mode  :character   Median :2015-06-03   #>                                        Mean   :2015-06-09   #>                                        3rd Qu.:2017-08-11   #>                                        Max.   :2019-12-27   #>    bacteria               AMX                    AMC                 #>  Class :mo             Class:sir              Class:sir              #>  <NA>  :0              %S   :41.6% (n=1133)   %S   :52.6% (n=1432)   #>  Unique:4              %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)      #>  #1    :B_ESCHR_COLI   %I   :16.4% (n=446)    %I   :12.2% (n=333)    #>  #2    :B_STPHY_AURS   %R   :42.0% (n=1145)   %R   :35.2% (n=959)    #>  #3    :B_STRPT_PNMN   %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)      #>     CIP                    GEN                  first         #>  Class:sir              Class:sir              Mode:logical   #>  %S   :52.5% (n=1431)   %S   :61.0% (n=1661)   TRUE:2724      #>  %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)                     #>  %I   : 6.5% (n=176)    %I   : 3.0% (n=82)                    #>  %R   :41.0% (n=1117)   %R   :36.0% (n=981)                   #>  %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)  glimpse(our_data_1st) #> Rows: 2,724 #> Columns: 9 #> $ patient_id <chr> \"J3\", \"R7\", \"P3\", \"P10\", \"B7\", \"W3\", \"M3\", \"J3\", \"G6\", \"P4\"… #> $ hospital   <chr> \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\",… #> $ date       <date> 2012-11-21, 2018-04-03, 2014-09-19, 2015-12-10, 2015-03-02… #> $ bacteria   <mo> \"B_ESCHR_COLI\", \"B_KLBSL_PNMN\", \"B_ESCHR_COLI\", \"B_ESCHR_COL… #> $ AMX        <sir> R, R, R, S, S, R, R, S, S, S, S, R, S, S, R, R, R, R, S, R,… #> $ AMC        <sir> I, I, S, I, S, S, S, S, S, S, S, S, S, S, S, S, S, R, S, S,… #> $ CIP        <sir> S, S, S, S, S, R, S, S, S, S, S, S, S, S, S, S, S, S, S, S,… #> $ GEN        <sir> S, S, S, S, S, S, S, S, S, S, S, R, S, S, S, S, S, S, S, S,… #> $ first      <lgl> TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,…  # number of unique values per column: sapply(our_data_1st, n_distinct) #> patient_id   hospital       date   bacteria        AMX        AMC        CIP  #>        260          3       1854          4          3          3          3  #>        GEN      first  #>          3          1"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"availability-of-species","dir":"Articles","previous_headings":"Analysing the data","what":"Availability of species","title":"How to conduct AMR data analysis","text":"just get idea species distributed, create frequency table count() based name microorganisms:","code":"our_data %>%   count(mo_name(bacteria), sort = TRUE) #> # A tibble: 4 × 2 #>   `mo_name(bacteria)`          n #>   <chr>                    <int> #> 1 Escherichia coli          1518 #> 2 Staphylococcus aureus      730 #> 3 Streptococcus pneumoniae   426 #> 4 Klebsiella pneumoniae      326  our_data_1st %>%   count(mo_name(bacteria), sort = TRUE) #> # A tibble: 4 × 2 #>   `mo_name(bacteria)`          n #>   <chr>                    <int> #> 1 Escherichia coli          1321 #> 2 Staphylococcus aureus      682 #> 3 Streptococcus pneumoniae   402 #> 4 Klebsiella pneumoniae      319"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"select-and-filter-with-antibiotic-selectors","dir":"Articles","previous_headings":"Analysing the data","what":"Select and filter with antibiotic selectors","title":"How to conduct AMR data analysis","text":"Using -called antibiotic class selectors, can select filter columns based antibiotic class antibiotic results :","code":"our_data_1st %>%   select(date, aminoglycosides()) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) #> # A tibble: 2,724 × 2 #>    date       GEN   #>    <date>     <sir> #>  1 2012-11-21 S     #>  2 2018-04-03 S     #>  3 2014-09-19 S     #>  4 2015-12-10 S     #>  5 2015-03-02 S     #>  6 2018-03-31 S     #>  7 2015-10-25 S     #>  8 2019-06-19 S     #>  9 2015-04-27 S     #> 10 2011-06-21 S     #> # ℹ 2,714 more rows  our_data_1st %>%   select(bacteria, betalactams()) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 2,724 × 3 #>    bacteria     AMX   AMC   #>    <mo>         <sir> <sir> #>  1 B_ESCHR_COLI R     I     #>  2 B_KLBSL_PNMN R     I     #>  3 B_ESCHR_COLI R     S     #>  4 B_ESCHR_COLI S     I     #>  5 B_ESCHR_COLI S     S     #>  6 B_STPHY_AURS R     S     #>  7 B_ESCHR_COLI R     S     #>  8 B_ESCHR_COLI S     S     #>  9 B_STPHY_AURS S     S     #> 10 B_ESCHR_COLI S     S     #> # ℹ 2,714 more rows  our_data_1st %>%   select(bacteria, where(is.sir)) #> # A tibble: 2,724 × 5 #>    bacteria     AMX   AMC   CIP   GEN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI R     I     S     S     #>  2 B_KLBSL_PNMN R     I     S     S     #>  3 B_ESCHR_COLI R     S     S     S     #>  4 B_ESCHR_COLI S     I     S     S     #>  5 B_ESCHR_COLI S     S     S     S     #>  6 B_STPHY_AURS R     S     R     S     #>  7 B_ESCHR_COLI R     S     S     S     #>  8 B_ESCHR_COLI S     S     S     S     #>  9 B_STPHY_AURS S     S     S     S     #> 10 B_ESCHR_COLI S     S     S     S     #> # ℹ 2,714 more rows  # filtering using AB selectors is also possible: our_data_1st %>%   filter(any(aminoglycosides() == \"R\")) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) #> # A tibble: 981 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J5         A        2017-12-25 B_STRPT_PNMN R     S     S     R     TRUE  #>  2 X1         A        2017-07-04 B_STPHY_AURS R     S     S     R     TRUE  #>  3 B3         A        2016-07-24 B_ESCHR_COLI S     S     S     R     TRUE  #>  4 V7         A        2012-04-03 B_ESCHR_COLI S     S     S     R     TRUE  #>  5 C9         A        2017-03-23 B_ESCHR_COLI S     S     S     R     TRUE  #>  6 R1         A        2018-06-10 B_STPHY_AURS S     S     S     R     TRUE  #>  7 S2         A        2013-07-19 B_STRPT_PNMN S     S     S     R     TRUE  #>  8 P5         A        2019-03-09 B_STPHY_AURS S     S     S     R     TRUE  #>  9 Q8         A        2019-08-10 B_STPHY_AURS S     S     S     R     TRUE  #> 10 K5         A        2013-03-15 B_STRPT_PNMN S     S     S     R     TRUE  #> # ℹ 971 more rows  our_data_1st %>%   filter(all(betalactams() == \"R\")) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 462 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 M7         A        2013-07-22 B_STRPT_PNMN R     R     S     S     TRUE  #>  2 R10        A        2013-12-20 B_STPHY_AURS R     R     S     S     TRUE  #>  3 R7         A        2015-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  4 R8         A        2019-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  5 B6         A        2016-11-20 B_ESCHR_COLI R     R     R     R     TRUE  #>  6 I7         A        2015-08-19 B_ESCHR_COLI R     R     S     S     TRUE  #>  7 N3         A        2014-12-29 B_STRPT_PNMN R     R     R     S     TRUE  #>  8 Q2         A        2019-09-22 B_ESCHR_COLI R     R     S     S     TRUE  #>  9 X7         A        2011-03-20 B_ESCHR_COLI R     R     S     R     TRUE  #> 10 V1         A        2018-08-07 B_STPHY_AURS R     R     S     S     TRUE  #> # ℹ 452 more rows  # even works in base R (since R 3.0): our_data_1st[all(betalactams() == \"R\"), ] #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 462 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 M7         A        2013-07-22 B_STRPT_PNMN R     R     S     S     TRUE  #>  2 R10        A        2013-12-20 B_STPHY_AURS R     R     S     S     TRUE  #>  3 R7         A        2015-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  4 R8         A        2019-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  5 B6         A        2016-11-20 B_ESCHR_COLI R     R     R     R     TRUE  #>  6 I7         A        2015-08-19 B_ESCHR_COLI R     R     S     S     TRUE  #>  7 N3         A        2014-12-29 B_STRPT_PNMN R     R     R     S     TRUE  #>  8 Q2         A        2019-09-22 B_ESCHR_COLI R     R     S     S     TRUE  #>  9 X7         A        2011-03-20 B_ESCHR_COLI R     R     S     R     TRUE  #> 10 V1         A        2018-08-07 B_STPHY_AURS R     R     S     S     TRUE  #> # ℹ 452 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"generate-antibiograms","dir":"Articles","previous_headings":"Analysing the data","what":"Generate antibiograms","title":"How to conduct AMR data analysis","text":"Since AMR v2.0 (March 2023), easy create different types antibiograms, support 20 different languages. four antibiogram types, proposed Klinker et al. (2021, DOI 10.1177/20499361211011373), supported new antibiogram() function: Traditional Antibiogram (TA) e.g, susceptibility Pseudomonas aeruginosa piperacillin/tazobactam (TZP) Combination Antibiogram (CA) e.g, sdditional susceptibility Pseudomonas aeruginosa TZP + tobramycin versus TZP alone Syndromic Antibiogram (SA) e.g, susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) Weighted-Incidence Syndromic Combination Antibiogram (WISCA) e.g, susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) male patients age >=65 years heart failure section, show use antibiogram() function create antibiogram types. starters, included example_isolates data set looks like:","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"traditional-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Traditional Antibiogram","title":"How to conduct AMR data analysis","text":"create traditional antibiogram, simply state antibiotics used. antibiotics argument antibiogram() function supports (combination) previously mentioned antibiotic class selectors: Notice antibiogram() function automatically prints right format using Quarto R Markdown (page), even applies italics taxonomic names (using italicise_taxonomy() internally). also uses language OS either English, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Italian, Japanese, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swedish, Turkish, Ukrainian. next example, force language Spanish using language argument:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems())) #> ℹ The function aminoglycosides() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(aminoglycosides()) #>   • your_data %>% select(column_a, column_b, aminoglycosides()) #>   • your_data %>% filter(any(aminoglycosides() == \"R\")) #>   • your_data[, aminoglycosides()] #>   • your_data[, c(\"column_a\", \"column_b\", aminoglycosides())] #>  #> Now returning a vector of all possible antimicrobials that #> aminoglycosides() can select. #> ℹ The function carbapenems() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(carbapenems()) #>   • your_data %>% select(column_a, column_b, carbapenems()) #>   • your_data %>% filter(any(carbapenems() == \"R\")) #>   • your_data[, carbapenems()] #>   • your_data[, c(\"column_a\", \"column_b\", carbapenems())] #>  #> Now returning a vector of all possible antimicrobials that carbapenems() #> can select. antibiogram(example_isolates,             mo_transform = \"gramstain\",             antibiotics = aminoglycosides(),             ab_transform = \"name\",             language = \"es\") #> ℹ The function aminoglycosides() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(aminoglycosides()) #>   • your_data %>% select(column_a, column_b, aminoglycosides()) #>   • your_data %>% filter(any(aminoglycosides() == \"R\")) #>   • your_data[, aminoglycosides()] #>   • your_data[, c(\"column_a\", \"column_b\", aminoglycosides())] #>  #> Now returning a vector of all possible antimicrobials that #> aminoglycosides() can select."},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"combined-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Combined Antibiogram","title":"How to conduct AMR data analysis","text":"create combined antibiogram, use antibiotic codes names plus + character like :","code":"antibiogram(example_isolates,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"))"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"syndromic-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Syndromic Antibiogram","title":"How to conduct AMR data analysis","text":"create syndromic antibiogram, syndromic_group argument must used. can column data, e.g. ifelse() calculations based certain columns:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems()),             syndromic_group = \"ward\") #> ℹ The function aminoglycosides() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(aminoglycosides()) #>   • your_data %>% select(column_a, column_b, aminoglycosides()) #>   • your_data %>% filter(any(aminoglycosides() == \"R\")) #>   • your_data[, aminoglycosides()] #>   • your_data[, c(\"column_a\", \"column_b\", aminoglycosides())] #>  #> Now returning a vector of all possible antimicrobials that #> aminoglycosides() can select. #> ℹ The function carbapenems() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(carbapenems()) #>   • your_data %>% select(column_a, column_b, carbapenems()) #>   • your_data %>% filter(any(carbapenems() == \"R\")) #>   • your_data[, carbapenems()] #>   • your_data[, c(\"column_a\", \"column_b\", carbapenems())] #>  #> Now returning a vector of all possible antimicrobials that carbapenems() #> can select."},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"weighted-incidence-syndromic-combination-antibiogram-wisca","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Weighted-Incidence Syndromic Combination Antibiogram (WISCA)","title":"How to conduct AMR data analysis","text":"create WISCA, must state combination therapy antibiotics argument (similar Combination Antibiogram), define syndromic group syndromic_group argument (similar Syndromic Antibiogram) cases predefined based clinical demographic characteristics (e.g., endocarditis 75+ females). next example simplification without clinical characteristics, just gives idea WISCA can created:","code":"wisca <- antibiogram(example_isolates,                      antibiotics = c(\"AMC\", \"AMC+CIP\", \"TZP\", \"TZP+TOB\"),                      mo_transform = \"gramstain\",                      minimum = 10, # this should be >= 30, but now just as example                      syndromic_group = ifelse(example_isolates$age >= 65 &                                                 example_isolates$gender == \"M\",                                               \"WISCA Group 1\", \"WISCA Group 2\")) wisca"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"plotting-antibiograms","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Plotting antibiograms","title":"How to conduct AMR data analysis","text":"Antibiograms can plotted using autoplot() ggplot2 packages, since AMR package provides extension function:  calculate antimicrobial resistance sensible way, also correcting results, use resistance() susceptibility() functions.","code":"autoplot(wisca)"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"resistance-percentages","dir":"Articles","previous_headings":"Analysing the data","what":"Resistance percentages","title":"How to conduct AMR data analysis","text":"functions resistance() susceptibility() can used calculate antimicrobial resistance susceptibility. specific analyses, functions proportion_S(), proportion_SI(), proportion_I(), proportion_IR() proportion_R() can used determine proportion specific antimicrobial outcome. functions contain minimum argument, denoting minimum required number test results returning value. functions otherwise return NA. default minimum = 30, following CLSI M39-A4 guideline applying microbial epidemiology. per EUCAST guideline 2019, calculate resistance proportion R (proportion_R(), equal resistance()) susceptibility proportion S (proportion_SI(), equal susceptibility()). functions can used : can used conjunction group_by() summarise(), dplyr package: Author: Dr. Matthijs Berends, 26th Feb 2023","code":"our_data_1st %>% resistance(AMX) #> [1] 0.4203377 our_data_1st %>%   group_by(hospital) %>%   summarise(amoxicillin = resistance(AMX)) #> # A tibble: 3 × 2 #>   hospital amoxicillin #>   <chr>          <dbl> #> 1 A              0.340 #> 2 B              0.551 #> 3 C              0.370"},{"path":"https://msberends.github.io/AMR/articles/AMR_for_Python.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"AMR for Python","text":"AMR package R powerful tool antimicrobial resistance (AMR) analysis. provides extensive features handling microbial antimicrobial data. However, work primarily Python, now intuitive option available: AMR Python Package Index. Python package wrapper round AMR R package. uses rpy2 package internally. Despite need R installed, Python users can now easily work AMR data directly Python code.","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR_for_Python.html","id":"install","dir":"Articles","previous_headings":"","what":"Install","title":"AMR for Python","text":"Since Python package available official Python Package Index, can just run: Make sure R installed. need install AMR R package, installed automatically. Linux: macOS (using Homebrew): Windows, visit CRAN download page download install R.","code":"pip install AMR # Ubuntu / Debian sudo apt install r-base # Fedora: sudo dnf install R # CentOS/RHEL sudo yum install R brew install r"},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/AMR_for_Python.html","id":"cleaning-taxonomy","dir":"Articles","previous_headings":"Examples of Usage","what":"Cleaning Taxonomy","title":"AMR for Python","text":"’s example demonstrates clean microorganism drug names using AMR Python package:","code":"import pandas as pd import AMR  # Sample data data = {     \"MOs\": ['E. coli', 'ESCCOL', 'esco', 'Esche coli'],     \"Drug\": ['Cipro', 'CIP', 'J01MA02', 'Ciproxin'] } df = pd.DataFrame(data)  # Use AMR functions to clean microorganism and drug names df['MO_clean'] = AMR.mo_name(df['MOs']) df['Drug_clean'] = AMR.ab_name(df['Drug'])  # Display the results print(df)"},{"path":"https://msberends.github.io/AMR/articles/AMR_for_Python.html","id":"explanation","dir":"Articles","previous_headings":"Examples of Usage > Cleaning Taxonomy","what":"Explanation","title":"AMR for Python","text":"mo_name: function standardises microorganism names. , different variations Escherichia coli (“E. coli”, “ESCCOL”, “esco”, “Esche coli”) converted correct, standardised form, “Escherichia coli”. ab_name: Similarly, function standardises antimicrobial names. different representations ciprofloxacin (e.g., “Cipro”, “CIP”, “J01MA02”, “Ciproxin”) converted standard name, “Ciprofloxacin”.","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR_for_Python.html","id":"taxonomic-data-sets-now-in-python","dir":"Articles","previous_headings":"Examples of Usage","what":"Taxonomic Data Sets Now in Python!","title":"AMR for Python","text":"Python user, might like important data sets AMR R package, microorganisms, antibiotics, clinical_breakpoints, example_isolates, now available regular Python data frames:","code":"AMR.microorganisms AMR.antibiotics"},{"path":"https://msberends.github.io/AMR/articles/AMR_for_Python.html","id":"calculating-amr","dir":"Articles","previous_headings":"Examples of Usage","what":"Calculating AMR","title":"AMR for Python","text":"","code":"import AMR import pandas as pd  df = AMR.example_isolates result = AMR.resistance(df[\"AMX\"]) print(result) [0.59555556]"},{"path":"https://msberends.github.io/AMR/articles/AMR_for_Python.html","id":"generating-antibiograms","dir":"Articles","previous_headings":"Examples of Usage","what":"Generating Antibiograms","title":"AMR for Python","text":"One core functions AMR package generating antibiogram, table summarises antimicrobial susceptibility bacterial isolates. ’s can generate antibiogram Python: example, generate antibiogram selecting various antibiotics.","code":"result2a = AMR.antibiogram(df[[\"mo\", \"AMX\", \"CIP\", \"TZP\"]]) print(result2a) result2b = AMR.antibiogram(df[[\"mo\", \"AMX\", \"CIP\", \"TZP\"]], mo_transform = \"gramstain\") print(result2b)"},{"path":"https://msberends.github.io/AMR/articles/AMR_for_Python.html","id":"conclusion","dir":"Articles","previous_headings":"","what":"Conclusion","title":"AMR for Python","text":"AMR Python package, Python users can now effortlessly call R functions AMR R package. eliminates need complex rpy2 configurations provides clean, easy--use interface antimicrobial resistance analysis. examples provided demonstrate can applied typical workflows, standardising microorganism antimicrobial names calculating resistance. just running import AMR, users can seamlessly integrate robust features R AMR package Python workflows. Whether ’re cleaning data analysing resistance patterns, AMR Python package makes easy work AMR data Python.","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR_with_tidymodels.html","id":"objective","dir":"Articles","previous_headings":"","what":"Objective","title":"AMR with tidymodels","text":"goal build predictive model using tidymodels framework determine Gramstain microorganism based microbial data. : Preprocess data using selector functions aminoglycosides() betalactams(). Define logistic regression model prediction. Use structured tidymodels workflow preprocess, train, evaluate model.","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR_with_tidymodels.html","id":"data-preparation","dir":"Articles","previous_headings":"","what":"Data Preparation","title":"AMR with tidymodels","text":"begin loading required libraries preparing example_isolates dataset AMR package. Explanation: aminoglycosides() betalactams() dynamically select columns antibiotics classes. drop_na() ensures model receives complete cases training.","code":"# Load required libraries library(tidymodels)   # For machine learning workflows, and data manipulation (dplyr, tidyr, ...) #> Error in get(paste0(generic, \".\", class), envir = get_method_env()) :  #>   object 'type_sum.accel' not found #> ── Attaching packages ────────────────────────────────────── tidymodels 1.2.0 ── #> ✔ broom        1.0.7     ✔ recipes      1.1.0 #> ✔ dials        1.3.0     ✔ rsample      1.2.1 #> ✔ dplyr        1.1.4     ✔ tibble       3.2.1 #> ✔ ggplot2      3.5.1     ✔ tidyr        1.3.1 #> ✔ infer        1.0.7     ✔ tune         1.2.1 #> ✔ modeldata    1.4.0     ✔ workflows    1.1.4 #> ✔ parsnip      1.2.1     ✔ workflowsets 1.1.0 #> ✔ purrr        1.0.2     ✔ yardstick    1.3.1 #> ── Conflicts ───────────────────────────────────────── tidymodels_conflicts() ── #> ✖ purrr::discard() masks scales::discard() #> ✖ dplyr::filter()  masks stats::filter() #> ✖ dplyr::lag()     masks stats::lag() #> ✖ recipes::step()  masks stats::step() #> • Use tidymodels_prefer() to resolve common conflicts. library(AMR)          # For AMR data analysis  # Load the example_isolates dataset data(\"example_isolates\")  # Preloaded dataset with AMR results  # Select relevant columns for prediction data <- example_isolates %>%   # select AB results dynamically   select(mo, aminoglycosides(), betalactams()) %>%   # replace NAs with NI (not-interpretable)    mutate(across(where(is.sir),                  ~replace_na(.x, \"NI\")),           # make factors of SIR columns           across(where(is.sir),                  as.integer),           # get Gramstain of microorganisms           mo = as.factor(mo_gramstain(mo))) %>%   # drop NAs - the ones without a Gramstain (fungi, etc.)   drop_na() #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For betalactams() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), 'TZP' #>   (piperacillin/tazobactam), 'CZO' (cefazolin), 'FEP' (cefepime), 'CXM' #>   (cefuroxime), 'FOX' (cefoxitin), 'CTX' (cefotaxime), 'CAZ' (ceftazidime), #>   'CRO' (ceftriaxone), 'IPM' (imipenem), and 'MEM' (meropenem)"},{"path":"https://msberends.github.io/AMR/articles/AMR_with_tidymodels.html","id":"defining-the-workflow","dir":"Articles","previous_headings":"","what":"Defining the Workflow","title":"AMR with tidymodels","text":"now define tidymodels workflow, consists three steps: preprocessing, model specification, fitting.","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR_with_tidymodels.html","id":"preprocessing-with-a-recipe","dir":"Articles","previous_headings":"Defining the Workflow","what":"1. Preprocessing with a Recipe","title":"AMR with tidymodels","text":"create recipe preprocess data modelling. Explanation: recipe(mo ~ ., data = data) take mo column outcome columns predictors. step_corr() removes predictors (.e., antibiotic columns) higher correlation 90%. Notice recipe contains just antibiotic selector functions - need define columns specifically.","code":"# Define the recipe for data preprocessing resistance_recipe <- recipe(mo ~ ., data = data) %>%   step_corr(c(aminoglycosides(), betalactams()), threshold = 0.9) resistance_recipe #>  #> ── Recipe ────────────────────────────────────────────────────────────────────── #>  #> ── Inputs #> Number of variables by role #> outcome:    1 #> predictor: 20 #>  #> ── Operations #> • Correlation filter on: c(aminoglycosides(), betalactams())"},{"path":"https://msberends.github.io/AMR/articles/AMR_with_tidymodels.html","id":"specifying-the-model","dir":"Articles","previous_headings":"Defining the Workflow","what":"2. Specifying the Model","title":"AMR with tidymodels","text":"define logistic regression model since resistance prediction binary classification task. Explanation: logistic_reg() sets logistic regression model. set_engine(\"glm\") specifies use R’s built-GLM engine.","code":"# Specify a logistic regression model logistic_model <- logistic_reg() %>%   set_engine(\"glm\") # Use the Generalized Linear Model engine logistic_model #> Logistic Regression Model Specification (classification) #>  #> Computational engine: glm"},{"path":"https://msberends.github.io/AMR/articles/AMR_with_tidymodels.html","id":"building-the-workflow","dir":"Articles","previous_headings":"Defining the Workflow","what":"3. Building the Workflow","title":"AMR with tidymodels","text":"bundle recipe model together workflow, organizes entire modeling process.","code":"# Combine the recipe and model into a workflow resistance_workflow <- workflow() %>%   add_recipe(resistance_recipe) %>% # Add the preprocessing recipe   add_model(logistic_model) # Add the logistic regression model"},{"path":"https://msberends.github.io/AMR/articles/AMR_with_tidymodels.html","id":"training-and-evaluating-the-model","dir":"Articles","previous_headings":"","what":"Training and Evaluating the Model","title":"AMR with tidymodels","text":"train model, split data training testing sets. , fit workflow training set evaluate performance. Explanation: initial_split() splits data training testing sets. fit() trains workflow training set. Notice fit(), antibiotic selector functions internally called . training, functions called since stored recipe. Next, evaluate model testing data. Explanation: predict() generates predictions testing set. metrics() computes evaluation metrics like accuracy kappa. appears can predict Gram based AMR results 0.995 accuracy based AMR results aminoglycosides beta-lactam antibiotics. ROC curve looks like :","code":"# Split data into training and testing sets set.seed(123) # For reproducibility data_split <- initial_split(data, prop = 0.8) # 80% training, 20% testing training_data <- training(data_split) # Training set testing_data <- testing(data_split)   # Testing set  # Fit the workflow to the training data fitted_workflow <- resistance_workflow %>%   fit(training_data) # Train the model #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For betalactams() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), 'TZP' #>   (piperacillin/tazobactam), 'CZO' (cefazolin), 'FEP' (cefepime), 'CXM' #>   (cefuroxime), 'FOX' (cefoxitin), 'CTX' (cefotaxime), 'CAZ' (ceftazidime), #>   'CRO' (ceftriaxone), 'IPM' (imipenem), and 'MEM' (meropenem) # Make predictions on the testing set predictions <- fitted_workflow %>%   predict(testing_data)                # Generate predictions probabilities <- fitted_workflow %>%   predict(testing_data, type = \"prob\") # Generate probabilities  predictions <- predictions %>%   bind_cols(probabilities) %>%   bind_cols(testing_data) # Combine with true labels  predictions #> # A tibble: 394 × 24 #>    .pred_class   `.pred_Gram-negative` `.pred_Gram-positive` mo        GEN   TOB #>    <fct>                         <dbl>                 <dbl> <fct>   <int> <int> #>  1 Gram-positive              1.07e- 1              8.93e- 1 Gram-p…     5     5 #>  2 Gram-positive              3.17e- 8              1.00e+ 0 Gram-p…     5     1 #>  3 Gram-negative              9.99e- 1              1.42e- 3 Gram-n…     5     5 #>  4 Gram-positive              2.22e-16              1   e+ 0 Gram-p…     5     5 #>  5 Gram-negative              9.46e- 1              5.42e- 2 Gram-n…     5     5 #>  6 Gram-positive              1.07e- 1              8.93e- 1 Gram-p…     5     5 #>  7 Gram-positive              2.22e-16              1   e+ 0 Gram-p…     1     5 #>  8 Gram-positive              2.22e-16              1   e+ 0 Gram-p…     4     4 #>  9 Gram-negative              1   e+ 0              2.22e-16 Gram-n…     1     1 #> 10 Gram-positive              6.05e-11              1.00e+ 0 Gram-p…     4     4 #> # ℹ 384 more rows #> # ℹ 18 more variables: AMK <int>, KAN <int>, PEN <int>, OXA <int>, FLC <int>, #> #   AMX <int>, AMC <int>, AMP <int>, TZP <int>, CZO <int>, FEP <int>, #> #   CXM <int>, FOX <int>, CTX <int>, CAZ <int>, CRO <int>, IPM <int>, MEM <int>  # Evaluate model performance metrics <- predictions %>%   metrics(truth = mo, estimate = .pred_class) # Calculate performance metrics  metrics #> # A tibble: 2 × 3 #>   .metric  .estimator .estimate #>   <chr>    <chr>          <dbl> #> 1 accuracy binary         0.995 #> 2 kap      binary         0.989 predictions %>%   roc_curve(mo, `.pred_Gram-negative`) %>%   autoplot()"},{"path":"https://msberends.github.io/AMR/articles/AMR_with_tidymodels.html","id":"conclusion","dir":"Articles","previous_headings":"","what":"Conclusion","title":"AMR with tidymodels","text":"post, demonstrated build machine learning pipeline tidymodels framework AMR package. combining selector functions like aminoglycosides() betalactams() tidymodels, efficiently prepared data, trained model, evaluated performance. workflow extensible antibiotic classes resistance patterns, empowering users analyse AMR data systematically reproducibly.","code":""},{"path":"https://msberends.github.io/AMR/articles/EUCAST.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"How to apply EUCAST rules","text":"EUCAST rules? European Committee Antimicrobial Susceptibility Testing (EUCAST) states website: EUCAST expert rules tabulated collection expert knowledge intrinsic resistances, exceptional resistance phenotypes interpretive rules may applied antimicrobial susceptibility testing order reduce errors make appropriate recommendations reporting particular resistances. Europe, lot medical microbiological laboratories already apply rules (Brown et al., 2015). package features latest insights intrinsic resistance unusual phenotypes (v3.1, 2016). Moreover, eucast_rules() function use purpose can also apply additional rules, like forcing ampicillin = R isolates amoxicillin/clavulanic acid = R.","code":""},{"path":"https://msberends.github.io/AMR/articles/EUCAST.html","id":"examples","dir":"Articles","previous_headings":"","what":"Examples","title":"How to apply EUCAST rules","text":"rules can used discard impossible bug-drug combinations data. example, Klebsiella produces beta-lactamase prevents ampicillin (amoxicillin) working . words, practically every strain Klebsiella resistant ampicillin. Sometimes, laboratory data can still contain strains ampicillin susceptible ampicillin. antibiogram available identification available, antibiogram re-interpreted based identification (namely, Klebsiella). EUCAST expert rules solve , can applied using eucast_rules(): convenient function mo_is_intrinsic_resistant() uses guideline, allows check one specific microorganisms antibiotics: EUCAST rules can used correction, can also used filling known resistance susceptibility based results antimicrobials drugs. process called interpretive reading, basically form imputation, part eucast_rules() function well:","code":"oops <- data.frame(   mo = c(     \"Klebsiella\",     \"Escherichia\"   ),   ampicillin = \"S\" ) oops #>            mo ampicillin #> 1  Klebsiella          S #> 2 Escherichia          S  eucast_rules(oops, info = FALSE) #>            mo ampicillin #> 1  Klebsiella          R #> 2 Escherichia          S mo_is_intrinsic_resistant(   c(\"Klebsiella\", \"Escherichia\"),   \"ampicillin\" ) #> [1]  TRUE FALSE  mo_is_intrinsic_resistant(   \"Klebsiella\",   c(\"ampicillin\", \"kanamycin\") ) #> [1]  TRUE FALSE data <- data.frame(   mo = c(     \"Staphylococcus aureus\",     \"Enterococcus faecalis\",     \"Escherichia coli\",     \"Klebsiella pneumoniae\",     \"Pseudomonas aeruginosa\"   ),   VAN = \"-\", # Vancomycin   AMX = \"-\", # Amoxicillin   COL = \"-\", # Colistin   CAZ = \"-\", # Ceftazidime   CXM = \"-\", # Cefuroxime   PEN = \"S\", # Benzylenicillin   FOX = \"S\", # Cefoxitin   stringsAsFactors = FALSE ) data eucast_rules(data)"},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"type-of-input","dir":"Articles","previous_headings":"","what":"Type of input","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function takes data set input, regular data.frame. tries automatically determine right columns info isolates, name species columns results antimicrobial agents. See help page info set right settings data command ?mdro. WHONET data (data), settings automatically set correctly.","code":""},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"guidelines","dir":"Articles","previous_headings":"","what":"Guidelines","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function support multiple guidelines. can select guideline guideline parameter. Currently supported guidelines (case-insensitive): guideline = \"CMI2012\" (default) Magiorakos AP, Srinivasan et al. “Multidrug-resistant, extensively drug-resistant pandrug-resistant bacteria: international expert proposal interim standard definitions acquired resistance.” Clinical Microbiology Infection (2012) (link) guideline = \"EUCAST3.2\" (simply guideline = \"EUCAST\") European international guideline - EUCAST Expert Rules Version 3.2 “Intrinsic Resistance Unusual Phenotypes” (link) guideline = \"EUCAST3.1\" European international guideline - EUCAST Expert Rules Version 3.1 “Intrinsic Resistance Exceptional Phenotypes Tables” (link) guideline = \"TB\" international guideline multi-drug resistant tuberculosis - World Health Organization “Companion handbook guidelines programmatic management drug-resistant tuberculosis” (link) guideline = \"MRGN\" German national guideline - Mueller et al. (2015) Antimicrobial Resistance Infection Control 4:7. DOI: 10.1186/s13756-015-0047-6 guideline = \"BRMO\" Dutch national guideline - Rijksinstituut voor Volksgezondheid en Milieu “WIP-richtlijn BRMO (Bijzonder Resistente Micro-Organismen) (ZKH)” (link) Please suggest (country-specific) guidelines letting us know: https://github.com/msberends/AMR/issues/new.","code":""},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"custom-guidelines","dir":"Articles","previous_headings":"Guidelines","what":"Custom Guidelines","title":"How to determine multi-drug resistance (MDR)","text":"can also use custom guideline. Custom guidelines can set custom_mdro_guideline() function. great importance custom rules determine MDROs hospital, e.g., rules dependent ward, state contact isolation variables data. familiar case_when() dplyr package, recognise input method set rules. Rules must set using R considers ‘formula notation’: row/isolate matches first rule, value first ~ (case ‘Elderly Type ’) set MDRO value. Otherwise, second rule tried . maximum number rules unlimited. can print rules set console overview. Colours help reading console supports colours. outcome function can used guideline argument mdro() function: rules set (custom object case) exported shared file location using saveRDS() collaborate multiple users. custom rules set imported using readRDS().","code":"custom <- custom_mdro_guideline(   CIP == \"R\" & age > 60 ~ \"Elderly Type A\",   ERY == \"R\" & age > 60 ~ \"Elderly Type B\" ) custom #> A set of custom MDRO rules: #>   1. If CIP is \"R\" and age is higher than 60 then: Elderly Type A #>   2. If ERY is \"R\" and age is higher than 60 then: Elderly Type B #>   3. Otherwise: Negative #>  #> Unmatched rows will return NA. #> Results will be of class 'factor', with ordered levels: Negative < Elderly Type A < Elderly Type B x <- mdro(example_isolates, guideline = custom) table(x) #> x #>       Negative Elderly Type A Elderly Type B  #>           1070            198            732"},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"examples","dir":"Articles","previous_headings":"","what":"Examples","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function always returns ordered factor predefined guidelines. example, output default guideline Magiorakos et al. returns factor levels ‘Negative’, ‘MDR’, ‘XDR’ ‘PDR’ order. next example uses example_isolates data set. data set included package contains full antibiograms 2,000 microbial isolates. reflects reality can used practise AMR data analysis. test MDR/XDR/PDR guideline data set, get: Frequency table Class: factor > ordered (numeric) Length: 2,000 Levels: 4: Negative < Multi-drug-resistant (MDR) < Extensively drug-resistant … Available: 1,745 (87.25%, NA: 255 = 12.75%) Unique: 2 another example, create data set determine multi-drug resistant TB: column names automatically verified valid drug names codes, worked exactly way: data set now looks like : can now add interpretation MDR-TB data set. can use: shortcut mdr_tb(): Create frequency table results: Frequency table Class: factor > ordered (numeric) Length: 5,000 Levels: 5: Negative < Mono-resistant < Poly-resistant < Multi-drug-resistant <… Available: 5,000 (100%, NA: 0 = 0%) Unique: 5","code":"library(dplyr) # to support pipes: %>% library(cleaner) # to create frequency tables example_isolates %>%   mdro() %>%   freq() # show frequency table of the result #> Warning: in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) # random_sir() is a helper function to generate # a random vector with values S, I and R my_TB_data <- data.frame(   rifampicin = random_sir(5000),   isoniazid = random_sir(5000),   gatifloxacin = random_sir(5000),   ethambutol = random_sir(5000),   pyrazinamide = random_sir(5000),   moxifloxacin = random_sir(5000),   kanamycin = random_sir(5000) ) my_TB_data <- data.frame(   RIF = random_sir(5000),   INH = random_sir(5000),   GAT = random_sir(5000),   ETH = random_sir(5000),   PZA = random_sir(5000),   MFX = random_sir(5000),   KAN = random_sir(5000) ) head(my_TB_data) #>   rifampicin isoniazid gatifloxacin ethambutol pyrazinamide moxifloxacin #> 1          I         R            S          S            S            S #> 2          S         S            I          R            R            S #> 3          R         I            I          I            R            I #> 4          I         S            S          S            S            S #> 5          I         I            I          S            I            S #> 6          R         S            R          S            I            I #>   kanamycin #> 1         R #> 2         I #> 3         S #> 4         I #> 5         I #> 6         I mdro(my_TB_data, guideline = \"TB\") my_TB_data$mdr <- mdr_tb(my_TB_data) #> ℹ No column found as input for col_mo, assuming all rows contain #>   Mycobacterium tuberculosis. freq(my_TB_data$mdr)"},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"transforming","dir":"Articles","previous_headings":"","what":"Transforming","title":"How to conduct principal component analysis (PCA) for AMR","text":"PCA, need transform AMR data first. example_isolates data set package looks like: Now transform data set resistance percentages per taxonomic order genus:","code":"library(AMR) #> Error in get(paste0(generic, \".\", class), envir = get_method_env()) :  #>   object 'type_sum.accel' not found library(dplyr) glimpse(example_isolates) #> Rows: 2,000 #> Columns: 46 #> $ date    <date> 2002-01-02, 2002-01-03, 2002-01-07, 2002-01-07, 2002-01-13, 2… #> $ patient <chr> \"A77334\", \"A77334\", \"067927\", \"067927\", \"067927\", \"067927\", \"4… #> $ age     <dbl> 65, 65, 45, 45, 45, 45, 78, 78, 45, 79, 67, 67, 71, 71, 75, 50… #> $ gender  <chr> \"F\", \"F\", \"F\", \"F\", \"F\", \"F\", \"M\", \"M\", \"F\", \"F\", \"M\", \"M\", \"M… #> $ ward    <chr> \"Clinical\", \"Clinical\", \"ICU\", \"ICU\", \"ICU\", \"ICU\", \"Clinical\"… #> $ mo      <mo> \"B_ESCHR_COLI\", \"B_ESCHR_COLI\", \"B_STPHY_EPDR\", \"B_STPHY_EPDR\",… #> $ PEN     <sir> R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, S,… #> $ OXA     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ FLC     <sir> NA, NA, R, R, R, R, S, S, R, S, S, S, NA, NA, NA, NA, NA, R, R… #> $ AMX     <sir> NA, NA, NA, NA, NA, NA, R, R, NA, NA, NA, NA, NA, NA, R, NA, N… #> $ AMC     <sir> I, I, NA, NA, NA, NA, S, S, NA, NA, S, S, I, I, R, I, I, NA, N… #> $ AMP     <sir> NA, NA, NA, NA, NA, NA, R, R, NA, NA, NA, NA, NA, NA, R, NA, N… #> $ TZP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CZO     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, NA,… #> $ FEP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CXM     <sir> I, I, R, R, R, R, S, S, R, S, S, S, S, S, NA, S, S, R, R, S, S… #> $ FOX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, NA,… #> $ CTX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ CAZ     <sir> NA, NA, R, R, R, R, R, R, R, R, R, R, NA, NA, NA, S, S, R, R, … #> $ CRO     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ GEN     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ TOB     <sir> NA, NA, NA, NA, NA, NA, S, S, NA, NA, NA, NA, S, S, NA, NA, NA… #> $ AMK     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ KAN     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ TMP     <sir> R, R, S, S, R, R, R, R, S, S, NA, NA, S, S, S, S, S, R, R, R, … #> $ SXT     <sir> R, R, S, S, NA, NA, NA, NA, S, S, NA, NA, S, S, S, S, S, NA, N… #> $ NIT     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R,… #> $ FOS     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ LNZ     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… #> $ CIP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, NA, NA, NA, NA, S, S… #> $ MFX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ VAN     <sir> R, R, S, S, S, S, S, S, S, S, NA, NA, R, R, R, R, R, S, S, S, … #> $ TEC     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… #> $ TCY     <sir> R, R, S, S, S, S, S, S, S, I, S, S, NA, NA, I, R, R, S, I, R, … #> $ TGC     <sir> NA, NA, S, S, S, S, S, S, S, NA, S, S, NA, NA, NA, R, R, S, NA… #> $ DOX     <sir> NA, NA, S, S, S, S, S, S, S, NA, S, S, NA, NA, NA, R, R, S, NA… #> $ ERY     <sir> R, R, R, R, R, R, S, S, R, S, S, S, R, R, R, R, R, R, R, R, S,… #> $ CLI     <sir> R, R, NA, NA, NA, R, NA, NA, NA, NA, NA, NA, R, R, R, R, R, NA… #> $ AZM     <sir> R, R, R, R, R, R, S, S, R, S, S, S, R, R, R, R, R, R, R, R, S,… #> $ IPM     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ MEM     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ MTR     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CHL     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ COL     <sir> NA, NA, R, R, R, R, R, R, R, R, R, R, NA, NA, NA, R, R, R, R, … #> $ MUP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ RIF     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… resistance_data <- example_isolates %>%   group_by(     order = mo_order(mo), # group on anything, like order     genus = mo_genus(mo)   ) %>% #  and genus as we do here   summarise_if(is.sir, resistance) %>% # then get resistance of all drugs   select(     order, genus, AMC, CXM, CTX,     CAZ, GEN, TOB, TMP, SXT   ) # and select only relevant columns  head(resistance_data) #> # A tibble: 6 × 10 #> # Groups:   order [5] #>   order             genus          AMC   CXM   CTX   CAZ   GEN   TOB   TMP   SXT #>   <chr>             <chr>        <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #> 1 (unknown order)   (unknown ge…    NA    NA    NA    NA    NA    NA    NA    NA #> 2 Actinomycetales   Schaalia        NA    NA    NA    NA    NA    NA    NA    NA #> 3 Bacteroidales     Bacteroides     NA    NA    NA    NA    NA    NA    NA    NA #> 4 Campylobacterales Campylobact…    NA    NA    NA    NA    NA    NA    NA    NA #> 5 Caryophanales     Gemella         NA    NA    NA    NA    NA    NA    NA    NA #> 6 Caryophanales     Listeria        NA    NA    NA    NA    NA    NA    NA    NA"},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"perform-principal-component-analysis","dir":"Articles","previous_headings":"","what":"Perform principal component analysis","title":"How to conduct principal component analysis (PCA) for AMR","text":"new pca() function automatically filter rows contain numeric values selected variables, now need : result can reviewed good old summary() function: Good news. first two components explain total 93.3% variance (see PC1 PC2 values Proportion Variance. can create -called biplot base R biplot() function, see antimicrobial resistance per drug explain difference per microorganism.","code":"pca_result <- pca(resistance_data) #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. summary(pca_result) #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\" #> Importance of components: #>                           PC1    PC2    PC3     PC4     PC5     PC6       PC7 #> Standard deviation     2.1539 1.6807 0.6138 0.33879 0.20808 0.03140 1.232e-16 #> Proportion of Variance 0.5799 0.3531 0.0471 0.01435 0.00541 0.00012 0.000e+00 #> Cumulative Proportion  0.5799 0.9330 0.9801 0.99446 0.99988 1.00000 1.000e+00 #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\""},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"plotting-the-results","dir":"Articles","previous_headings":"","what":"Plotting the results","title":"How to conduct principal component analysis (PCA) for AMR","text":"can’t see explanation points. Perhaps works better new ggplot_pca() function, automatically adds right labels even groups:  can also print ellipse per group, edit appearance:","code":"biplot(pca_result) ggplot_pca(pca_result) ggplot_pca(pca_result, ellipse = TRUE) +   ggplot2::labs(title = \"An AMR/PCA biplot!\")"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"import-of-data","dir":"Articles","previous_headings":"","what":"Import of data","title":"How to work with WHONET data","text":"tutorial assumes already imported WHONET data e.g. readxl package. RStudio, can done using menu button ‘Import Dataset’ tab ‘Environment’. Choose option ‘Excel’ select exported file. Make sure date fields imported correctly. example syntax look like : package comes example data set WHONET. use analysis.","code":"library(readxl) data <- read_excel(path = \"path/to/your/file.xlsx\")"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"preparation","dir":"Articles","previous_headings":"","what":"Preparation","title":"How to work with WHONET data","text":"First, load relevant packages yet . use tidyverse analyses. . don’t know yet, suggest read website: https://www.tidyverse.org/. transform variables simplify automate analysis: Microorganisms transformed microorganism codes (called mo) using Catalogue Life reference data set, contains ~70,000 microorganisms taxonomic kingdoms Bacteria, Fungi Protozoa. tranformation .mo(). function also recognises almost WHONET abbreviations microorganisms. Antimicrobial results interpretations clean valid. words, contain values \"S\", \"\" \"R\". exactly .sir() function . errors warnings, values transformed succesfully. also created package dedicated data cleaning checking, called cleaner package. freq() function can used create frequency tables. let’s check data, couple frequency tables: Frequency table Class: character Length: 500 Available: 500 (100%, NA: 0 = 0%) Unique: 38 Shortest: 11 Longest: 40 (omitted 28 entries, n = 57 [11.4%]) Frequency table Class: factor > ordered > sir (numeric) Length: 500 Levels: 5: S < SDD < < R < NI Available: 481 (96.2%, NA: 19 = 3.8%) Unique: 3 Drug: Amoxicillin/clavulanic acid (AMC, J01CR02) Drug group: Beta-lactams/penicillins %SI: 78.59%","code":"library(dplyr) # part of tidyverse #> Error in get(paste0(generic, \".\", class), envir = get_method_env()) :  #>   object 'type_sum.accel' not found library(ggplot2) # part of tidyverse library(AMR) # this package library(cleaner) # to create frequency tables # transform variables data <- WHONET %>%   # get microbial ID based on given organism   mutate(mo = as.mo(Organism)) %>%   # transform everything from \"AMP_ND10\" to \"CIP_EE\" to the new `sir` class   mutate_at(vars(AMP_ND10:CIP_EE), as.sir) # our newly created `mo` variable, put in the mo_name() function data %>% freq(mo_name(mo), nmax = 10) # our transformed antibiotic columns # amoxicillin/clavulanic acid (J01CR02) as an example data %>% freq(AMC_ND2)"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"a-first-glimpse-at-results","dir":"Articles","previous_headings":"","what":"A first glimpse at results","title":"How to work with WHONET data","text":"easy ggplot already give lot information, using included ggplot_sir() function:","code":"data %>%   group_by(Country) %>%   select(Country, AMP_ND2, AMC_ED20, CAZ_ED10, CIP_ED5) %>%   ggplot_sir(translate_ab = \"ab\", facet = \"Country\", datalabels = FALSE)"},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"microorganisms-full-microbial-taxonomy","dir":"Articles","previous_headings":"","what":"microorganisms: Full Microbial Taxonomy","title":"Data sets for download / own use","text":"data set 78 678 rows 26 columns, containing following column names:mo, fullname, status, kingdom, phylum, class, order, family, genus, species, subspecies, rank, ref, oxygen_tolerance, source, lpsn, lpsn_parent, lpsn_renamed_to, mycobank, mycobank_parent, mycobank_renamed_to, gbif, gbif_parent, gbif_renamed_to, prevalence, snomed. data set R available microorganisms, load AMR package. last updated 4 October 2024 13:28:44 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (1.8 MB) Download tab-separated text file (17.7 MB) Download Microsoft Excel workbook (8.7 MB) Download Apache Feather file (8.3 MB) Download Apache Parquet file (3.8 MB) Download IBM SPSS Statistics data file (29 MB) Download Stata DTA file (92.5 MB) NOTE: exported files SPSS Stata contain first 50 SNOMED codes per record, file size otherwise exceed 100 MB; file size limit GitHub. file structures compression techniques inefficient. Advice? Use R instead. ’s free much better many ways. tab-separated text file Microsoft Excel workbook contain SNOMED codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source","dir":"Articles","previous_headings":"microorganisms: Full Microbial Taxonomy","what":"Source","title":"Data sets for download / own use","text":"data set contains full microbial taxonomy six kingdoms List Prokaryotic names Standing Nomenclature (LPSN), MycoBank, Global Biodiversity Information Facility (GBIF): Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; . Accessed https://lpsn.dsmz.de June 24th, 2024. Vincent, R et al (2013). MycoBank gearing new horizons. IMA Fungus, 4(2), 371-9; . Accessed https://www.mycobank.org June 24th, 2024. GBIF Secretariat (2023). GBIF Backbone Taxonomy. Checklist dataset . Accessed https://www.gbif.org June 24th, 2024. Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; . Accessed https://bacdive.dsmz.de July 16th, 2024. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name ‘Microorganism’, OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example-content","dir":"Articles","previous_headings":"microorganisms: Full Microbial Taxonomy","what":"Example content","title":"Data sets for download / own use","text":"Included (sub)species per taxonomic kingdom: Example rows filtering genus Escherichia:","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"antibiotics-antibiotic-antifungal-drugs","dir":"Articles","previous_headings":"","what":"antibiotics: Antibiotic (+Antifungal) Drugs","title":"Data sets for download / own use","text":"data set 485 rows 14 columns, containing following column names:ab, cid, name, group, atc, atc_group1, atc_group2, abbreviations, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antibiotics, load AMR package. last updated 10 October 2024 14:38:20 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (44 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (75 kB) Download Apache Feather file (0.1 MB) Download Apache Parquet file (0.1 MB) Download IBM SPSS Statistics data file (0.4 MB) Download Stata DTA file (0.5 MB) tab-separated text, Microsoft Excel, SPSS, Stata files contain ATC codes, common abbreviations, trade names LOINC codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-1","dir":"Articles","previous_headings":"antibiotics: Antibiotic (+Antifungal) Drugs","what":"Source","title":"Data sets for download / own use","text":"data set contains EARS-Net ATC codes gathered WHONET, compound IDs PubChem. also contains brand names (synonyms) found PubChem Defined Daily Doses (DDDs) oral parenteral administration. ATC/DDD index Collaborating Centre Drug Statistics Methodology (note: may used commercial purposes, freely available CC website personal use) PubChem US National Library Medicine WHONET software 2019 LOINC (Logical Observation Identifiers Names Codes)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"antivirals-antiviral-drugs","dir":"Articles","previous_headings":"","what":"antivirals: Antiviral Drugs","title":"Data sets for download / own use","text":"data set 120 rows 11 columns, containing following column names:av, name, atc, cid, atc_group, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antivirals, load AMR package. last updated 20 October 2023 12:51:48 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (6 kB) Download tab-separated text file (17 kB) Download Microsoft Excel workbook (16 kB) Download Apache Feather file (16 kB) Download Apache Parquet file (13 kB) Download IBM SPSS Statistics data file (32 kB) Download Stata DTA file (78 kB) tab-separated text, Microsoft Excel, SPSS, Stata files contain trade names LOINC codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-2","dir":"Articles","previous_headings":"antivirals: Antiviral Drugs","what":"Source","title":"Data sets for download / own use","text":"data set contains ATC codes gathered compound IDs PubChem. also contains brand names (synonyms) found PubChem Defined Daily Doses (DDDs) oral parenteral administration. ATC/DDD index Collaborating Centre Drug Statistics Methodology (note: may used commercial purposes, freely available CC website personal use) PubChem US National Library Medicine LOINC (Logical Observation Identifiers Names Codes)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"clinical_breakpoints-interpretation-from-mic-values-disk-diameters-to-sir","dir":"Articles","previous_headings":"","what":"clinical_breakpoints: Interpretation from MIC values & disk diameters to SIR","title":"Data sets for download / own use","text":"data set 34 063 rows 14 columns, containing following column names:guideline, type, host, method, site, mo, rank_index, ab, ref_tbl, disk_dose, breakpoint_S, breakpoint_R, uti, is_SDD. data set R available clinical_breakpoints, load AMR package. last updated 29 September 2024 20:17:56 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (70 kB) Download tab-separated text file (3.1 MB) Download Microsoft Excel workbook (2 MB) Download Apache Feather file (1.5 MB) Download Apache Parquet file (0.1 MB) Download IBM SPSS Statistics data file (5.6 MB) Download Stata DTA file (9.3 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-3","dir":"Articles","previous_headings":"clinical_breakpoints: Interpretation from MIC values & disk diameters to SIR","what":"Source","title":"Data sets for download / own use","text":"data set contains interpretation rules MIC values disk diffusion diameters. Included guidelines CLSI (2011-2024) EUCAST (2011-2024). Clinical breakpoints package validated imported WHONET, free desktop Windows application developed supported Collaborating Centre Surveillance Antimicrobial Resistance. can read website. developers WHONET AMR package contact sharing work. highly appreciate development WHONET software. CEO CLSI chairman EUCAST endorsed work public use AMR package (consequently use breakpoints) June 2023, future development distributing clinical breakpoints discussed meeting CLSI, EUCAST, , developers WHONET AMR package. NOTE: AMR package (WHONET software well) contains internal methods apply guidelines, rather complex. example, breakpoints must applied certain species groups (case package available microorganisms.groups data set). important considered using breakpoints use.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"intrinsic_resistant-intrinsic-bacterial-resistance","dir":"Articles","previous_headings":"","what":"intrinsic_resistant: Intrinsic Bacterial Resistance","title":"Data sets for download / own use","text":"data set 301 583 rows 2 columns, containing following column names:mo ab. data set R available intrinsic_resistant, load AMR package. last updated 29 September 2024 20:17:56 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (0.1 MB) Download tab-separated text file (10.9 MB) Download Microsoft Excel workbook (3 MB) Download Apache Feather file (2.5 MB) Download Apache Parquet file (0.3 MB) Download IBM SPSS Statistics data file (16.2 MB) Download Stata DTA file (25 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-4","dir":"Articles","previous_headings":"intrinsic_resistant: Intrinsic Bacterial Resistance","what":"Source","title":"Data sets for download / own use","text":"data set contains defined intrinsic resistance EUCAST bug-drug combinations, based ‘EUCAST Expert Rules’ ‘EUCAST Intrinsic Resistance Unusual Phenotypes’ v3.3 (2021).","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example-content-4","dir":"Articles","previous_headings":"intrinsic_resistant: Intrinsic Bacterial Resistance","what":"Example content","title":"Data sets for download / own use","text":"Example rows filtering Enterobacter cloacae:","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"dosage-dosage-guidelines-from-eucast","dir":"Articles","previous_headings":"","what":"dosage: Dosage Guidelines from EUCAST","title":"Data sets for download / own use","text":"data set 503 rows 9 columns, containing following column names:ab, name, type, dose, dose_times, administration, notes, original_txt, eucast_version. data set R available dosage, load AMR package. last updated 22 June 2023 13:10:59 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (3 kB) Download tab-separated text file (43 kB) Download Microsoft Excel workbook (25 kB) Download Apache Feather file (21 kB) Download Apache Parquet file (9 kB) Download IBM SPSS Statistics data file (64 kB) Download Stata DTA file (0.1 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-5","dir":"Articles","previous_headings":"dosage: Dosage Guidelines from EUCAST","what":"Source","title":"Data sets for download / own use","text":"EUCAST breakpoints used package based dosages data set. Currently included dosages data set meant :  (), ‘EUCAST Clinical Breakpoint Tables’ v11.0 (2021), ‘EUCAST Clinical Breakpoint Tables’ v12.0 (2022).","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example_isolates-example-data-for-practice","dir":"Articles","previous_headings":"","what":"example_isolates: Example Data for Practice","title":"Data sets for download / own use","text":"data set 2 000 rows 46 columns, containing following column names:date, patient, age, gender, ward, mo, PEN, OXA, FLC, AMX, AMC, AMP, TZP, CZO, FEP, CXM, FOX, CTX, CAZ, CRO, GEN, TOB, AMK, KAN, TMP, SXT, NIT, FOS, LNZ, CIP, MFX, VAN, TEC, TCY, TGC, DOX, ERY, CLI, AZM, IPM, MEM, MTR, CHL, COL, MUP, RIF. data set R available example_isolates, load AMR package. last updated 15 June 2024 13:33:49 UTC. Find info structure data set .","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-6","dir":"Articles","previous_headings":"example_isolates: Example Data for Practice","what":"Source","title":"Data sets for download / own use","text":"data set contains randomised fictitious data, reflects reality can used practise AMR data analysis.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example_isolates_unclean-example-data-for-practice","dir":"Articles","previous_headings":"","what":"example_isolates_unclean: Example Data for Practice","title":"Data sets for download / own use","text":"data set 3 000 rows 8 columns, containing following column names:patient_id, hospital, date, bacteria, AMX, AMC, CIP, GEN. data set R available example_isolates_unclean, load AMR package. last updated 27 August 2022 18:49:37 UTC. Find info structure data set .","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-7","dir":"Articles","previous_headings":"example_isolates_unclean: Example Data for Practice","what":"Source","title":"Data sets for download / own use","text":"data set contains randomised fictitious data, reflects reality can used practise AMR data analysis.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"microorganisms-groups-species-groups-and-microbiological-complexes","dir":"Articles","previous_headings":"","what":"microorganisms.groups: Species Groups and Microbiological Complexes","title":"Data sets for download / own use","text":"data set 521 rows 4 columns, containing following column names:mo_group, mo, mo_group_name, mo_name. data set R available microorganisms.groups, load AMR package. last updated 29 September 2024 20:17:56 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (5 kB) Download tab-separated text file (49 kB) Download Microsoft Excel workbook (19 kB) Download Apache Feather file (19 kB) Download Apache Parquet file (13 kB) Download IBM SPSS Statistics data file (63 kB) Download Stata DTA file (81 kB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-8","dir":"Articles","previous_headings":"microorganisms.groups: Species Groups and Microbiological Complexes","what":"Source","title":"Data sets for download / own use","text":"data set contains species groups microbiological complexes, used clinical_breakpoints data set.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"microorganisms-codes-common-laboratory-codes","dir":"Articles","previous_headings":"","what":"microorganisms.codes: Common Laboratory Codes","title":"Data sets for download / own use","text":"data set 4 971 rows 2 columns, containing following column names:code mo. data set R available microorganisms.codes, load AMR package. last updated 29 September 2024 20:17:56 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (22 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (82 kB) Download Apache Feather file (85 kB) Download Apache Parquet file (56 kB) Download IBM SPSS Statistics data file (0.1 MB) Download Stata DTA file (0.1 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-9","dir":"Articles","previous_headings":"microorganisms.codes: Common Laboratory Codes","what":"Source","title":"Data sets for download / own use","text":"data set contains commonly used codes microorganisms, laboratory systems WHONET.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"needed-r-packages","dir":"Articles","previous_headings":"","what":"Needed R packages","title":"How to predict antimicrobial resistance","text":"many uses R, need additional packages AMR data analysis. package works closely together tidyverse packages dplyr ggplot2. tidyverse tremendously improves way conduct data science - allows natural way writing syntaxes creating beautiful plots R. AMR package depends packages even extends use functions.","code":"library(dplyr) #> Error in get(paste0(generic, \".\", class), envir = get_method_env()) :  #>   object 'type_sum.accel' not found library(ggplot2) library(AMR)  # (if not yet installed, install with:) # install.packages(c(\"tidyverse\", \"AMR\"))"},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"prediction-analysis","dir":"Articles","previous_headings":"","what":"Prediction analysis","title":"How to predict antimicrobial resistance","text":"package contains function resistance_predict(), takes input functions AMR data analysis. Based date column, calculates cases per year uses regression model predict antimicrobial resistance. basically easy : function look date column col_date set. running commands, summary regression model printed unless using resistance_predict(..., info = FALSE). text printed summary - actual result (output) function data.frame containing year: number observations, actual observed resistance, estimated resistance standard error estimation: function plot available base R, can extended packages depend output based type input. extended function cope resistance predictions:  fastest way plot result. automatically adds right axes, error bars, titles, number available observations type model. also support ggplot2 package custom function ggplot_sir_predict() create appealing plots:","code":"# resistance prediction of piperacillin/tazobactam (TZP): resistance_predict(tbl = example_isolates, col_date = \"date\", col_ab = \"TZP\", model = \"binomial\")  # or: example_isolates %>%   resistance_predict(     col_ab = \"TZP\",     model = \"binomial\"   )  # to bind it to object 'predict_TZP' for example: predict_TZP <- example_isolates %>%   resistance_predict(     col_ab = \"TZP\",     model = \"binomial\"   ) predict_TZP #> # A tibble: 33 × 7 #>     year  value se_min se_max observations observed estimated #>  * <dbl>  <dbl>  <dbl>  <dbl>        <int>    <dbl>     <dbl> #>  1  2002 0.2        NA     NA           15   0.2       0.0562 #>  2  2003 0.0625     NA     NA           32   0.0625    0.0616 #>  3  2004 0.0854     NA     NA           82   0.0854    0.0676 #>  4  2005 0.05       NA     NA           60   0.05      0.0741 #>  5  2006 0.0508     NA     NA           59   0.0508    0.0812 #>  6  2007 0.121      NA     NA           66   0.121     0.0889 #>  7  2008 0.0417     NA     NA           72   0.0417    0.0972 #>  8  2009 0.0164     NA     NA           61   0.0164    0.106  #>  9  2010 0.0566     NA     NA           53   0.0566    0.116  #> 10  2011 0.183      NA     NA           93   0.183     0.127  #> # ℹ 23 more rows plot(predict_TZP) ggplot_sir_predict(predict_TZP) # choose for error bars instead of a ribbon ggplot_sir_predict(predict_TZP, ribbon = FALSE)"},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"choosing-the-right-model","dir":"Articles","previous_headings":"Prediction analysis","what":"Choosing the right model","title":"How to predict antimicrobial resistance","text":"Resistance easily predicted; look vancomycin resistance Gram-positive bacteria, spread (.e. standard error) enormous:  Vancomycin resistance 100% ten years, might remain low. can define model model parameter. model chosen generalised linear regression model using binomial distribution, assuming period zero resistance followed period increasing resistance leading slowly resistance. Valid values : vancomycin resistance Gram-positive bacteria, linear model might appropriate:  model also available object, attribute:","code":"example_isolates %>%   filter(mo_gramstain(mo, language = NULL) == \"Gram-positive\") %>%   resistance_predict(col_ab = \"VAN\", year_min = 2010, info = FALSE, model = \"binomial\") %>%   ggplot_sir_predict() example_isolates %>%   filter(mo_gramstain(mo, language = NULL) == \"Gram-positive\") %>%   resistance_predict(col_ab = \"VAN\", year_min = 2010, info = FALSE, model = \"linear\") %>%   ggplot_sir_predict() model <- attributes(predict_TZP)$model  summary(model)$family #>  #> Family: binomial  #> Link function: logit  summary(model)$coefficients #>                  Estimate  Std. Error   z value     Pr(>|z|) #> (Intercept) -200.67944891 46.17315349 -4.346237 1.384932e-05 #> year           0.09883005  0.02295317  4.305725 1.664395e-05"},{"path":"https://msberends.github.io/AMR/authors.html","id":null,"dir":"","previous_headings":"","what":"Authors","title":"Authors and Citation","text":"Matthijs S. Berends. Author, maintainer. Dennis Souverein. Author, contributor. Erwin E. . Hassing. Author, contributor. Andrew P. Norgan. Contributor. Anita Williams. Contributor. Annick Lenglet. Contributor. Anthony Underwood. Contributor. Anton Mymrikov. Contributor. Bart C. Meijer. Contributor. Christian F. Luz. Contributor. Dmytro Mykhailenko. Contributor. Eric H. L. C. M. Hazenberg. Contributor. Gwen Knight. Contributor. Jason Stull. Contributor. Javier Sanchez. Contributor. Jonas Salm. Contributor. Judith M. Fonville. Contributor. Larisse Bolton. Contributor. Matthew Saab. Contributor. Peter Dutey-Magni. Contributor. Rogier P. Schade. Contributor. Sofia Ny. Contributor. Alex W. Friedrich. Thesis advisor. Bhanu N. M. Sinha. Thesis advisor. Casper J. Albers. Thesis advisor. Corinna Glasner. Thesis advisor.","code":""},{"path":"https://msberends.github.io/AMR/authors.html","id":"citation","dir":"","previous_headings":"","what":"Citation","title":"Authors and Citation","text":"Berends MS, Luz CF, Friedrich AW, Sinha BNM, Albers CJ, Glasner C (2022). “AMR: R Package Working Antimicrobial Resistance Data.” Journal Statistical Software, 104(3), 1–31. doi:10.18637/jss.v104.i03.","code":"@Article{,   title = {{AMR}: An {R} Package for Working with Antimicrobial Resistance Data},   author = {Matthijs S. Berends and Christian F. Luz and Alexander W. Friedrich and Bhanu N. M. Sinha and Casper J. Albers and Corinna Glasner},   journal = {Journal of Statistical Software},   year = {2022},   volume = {104},   number = {3},   pages = {1--31},   doi = {10.18637/jss.v104.i03}, }"},{"path":"https://msberends.github.io/AMR/index.html","id":"the-amr-package-for-r-","dir":"","previous_headings":"","what":"Antimicrobial Resistance Data Analysis","title":"Antimicrobial Resistance Data Analysis","text":"Provides --one solution antimicrobial resistance (AMR) data analysis One Health approach Used 175 countries, available 20 languages Generates antibiograms - traditional, combined, syndromic, even WISCA Provides full microbiological taxonomy extensive info antimicrobial drugs Applies recent CLSI EUCAST clinical veterinary breakpoints MICs, disk zones ECOFFs Corrects duplicate isolates, calculates predicts AMR per antibiotic class Integrates WHONET, ATC, EARS-Net, PubChem, LOINC, SNOMED CT, NCBI 100% free costs dependencies, highly suitable places limited resources Now available Python ! Click read . https://msberends.github.io/AMR https://doi.org/10.18637/jss.v104.i03","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"introduction","dir":"","previous_headings":"","what":"Introduction","title":"Antimicrobial Resistance Data Analysis","text":"AMR package free open-source R package zero dependencies simplify analysis prediction Antimicrobial Resistance (AMR) work microbial antimicrobial data properties, using evidence-based methods. aim provide standard clean reproducible AMR data analysis, can therefore empower epidemiological analyses continuously enable surveillance treatment evaluation setting. Many different researchers around globe continually helping us make successful durable project! work published Journal Statistical Software (Volume 104(3); DOI 10.18637/jss.v104.i03) formed basis two PhD theses (DOI 10.33612/diss.177417131 DOI 10.33612/diss.192486375). installing package, R knows ~52,000 distinct microbial species (updated December 2022) ~600 antibiotic, antimycotic antiviral drugs name code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC SNOMED CT), knows valid SIR MIC values. integral clinical breakpoint guidelines CLSI EUCAST included, even epidemiological cut-(ECOFF) values. supports can read data format, including WHONET data. package works Windows, macOS Linux versions R since R-3.0 (April 2013). designed work setting, including limited resources. created routine data analysis academic research Faculty Medical Sciences University Groningen, collaboration non-profit organisations Certe Medical Diagnostics Advice Foundation University Medical Center Groningen.","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"used-in-over-175-countries-available-in-20-languages","dir":"","previous_headings":"Introduction","what":"Used in over 175 countries, available in 20 languages","title":"Antimicrobial Resistance Data Analysis","text":"Since first public release early 2018, R package used almost countries world. Click map enlarge see country names. help contributors corners world, AMR package available  English,  Czech,  Chinese,  Danish,  Dutch,  Finnish,  French,  German,  Greek,  Italian,  Japanese,  Norwegian,  Polish,  Portuguese,  Romanian,  Russian,  Spanish,  Swedish,  Turkish,  Ukrainian. Antimicrobial drug (group) names colloquial microorganism names provided languages.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/index.html","id":"filtering-and-selecting-data","dir":"","previous_headings":"Practical examples","what":"Filtering and selecting data","title":"Antimicrobial Resistance Data Analysis","text":"One powerful functions package, aside calculating plotting AMR, selecting filtering based antibiotic columns. can done using -called antibiotic class selectors work base R, dplyr data.table: defined row filter Gram-negative bacteria intrinsic resistance cefotaxime (mo_is_gram_negative() mo_is_intrinsic_resistant()) column selection two antibiotic groups (aminoglycosides() carbapenems()), reference data microorganisms antibiotics AMR package make sure get meant: base R equivalent : base R code work version R since April 2013 (R-3.0). Moreover, code works identically data.table package, starting :","code":"# AMR works great with dplyr, but it's not required or neccesary library(AMR) library(dplyr)  example_isolates %>%   mutate(bacteria = mo_fullname()) %>%   # filtering functions for microorganisms:   filter(mo_is_gram_negative(),          mo_is_intrinsic_resistant(ab = \"cefotax\")) %>%   # antibiotic selectors:   select(bacteria,          aminoglycosides(),          carbapenems()) library(AMR) example_isolates$bacteria <- mo_fullname(example_isolates$mo) example_isolates[which(mo_is_gram_negative() &                          mo_is_intrinsic_resistant(ab = \"cefotax\")),                  c(\"bacteria\", aminoglycosides(), carbapenems())] example_isolates <- data.table::as.data.table(example_isolates)"},{"path":"https://msberends.github.io/AMR/index.html","id":"generating-antibiograms","dir":"","previous_headings":"Practical examples","what":"Generating antibiograms","title":"Antimicrobial Resistance Data Analysis","text":"AMR package supports generating traditional, combined, syndromic, even weighted-incidence syndromic combination antibiograms (WISCA). used inside R Markdown Quarto, table printed right output format automatically (markdown, LaTeX, HTML, etc.). combination antibiograms, clear combined antibiotics yield higher empiric coverage: Like many functions package, antibiogram() comes support 20 languages often detected automatically based system language:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems())) antibiogram(example_isolates,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),             mo_transform = \"gramstain\") antibiogram(example_isolates,             antibiotics = c(\"cipro\", \"tobra\", \"genta\"), # any arbitrary name or code will work             mo_transform = \"gramstain\",             ab_transform = \"name\",             language = \"uk\") # Ukrainian"},{"path":"https://msberends.github.io/AMR/index.html","id":"calculating-resistance-per-group","dir":"","previous_headings":"Practical examples","what":"Calculating resistance per group","title":"Antimicrobial Resistance Data Analysis","text":"manual approach, can use resistance susceptibility() function: use antibiotic class selectors select series antibiotic columns:","code":"example_isolates %>%   # group by ward:   group_by(ward) %>%   # calculate AMR using resistance() for gentamicin and tobramycin   # and get their 95% confidence intervals using sir_confidence_interval():   summarise(across(c(GEN, TOB),                    list(total_R = resistance,                         conf_int = function(x) sir_confidence_interval(x, collapse = \"-\")))) library(AMR) library(dplyr)  out <- example_isolates %>%   # group by ward:   group_by(ward) %>%   # calculate AMR using resistance(), over all aminoglycosides and polymyxins:   summarise(across(c(aminoglycosides(), polymyxins()),             resistance)) out # transform the antibiotic columns to names: out %>% set_ab_names() # transform the antibiotic column to ATC codes: out %>% set_ab_names(property = \"atc\")"},{"path":"https://msberends.github.io/AMR/index.html","id":"what-else-can-you-do-with-this-package","dir":"","previous_headings":"","what":"What else can you do with this package?","title":"Antimicrobial Resistance Data Analysis","text":"package intended comprehensive toolbox integrated AMR data analysis. package can used : Reference taxonomy microorganisms, since package contains microbial (sub)species List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF) (manual) Interpreting raw MIC disk diffusion values, based CLSI EUCAST guideline (manual) Retrieving antimicrobial drug names, doses forms administration clinical health care records (manual) Determining first isolates used AMR data analysis (manual) Calculating antimicrobial resistance (tutorial) Determining multi-drug resistance (MDR) / multi-drug resistant organisms (MDRO) (tutorial) Calculating (empirical) susceptibility mono therapy combination therapies (tutorial) Predicting future antimicrobial resistance using regression models (tutorial) Getting properties microorganism (like Gram stain, species, genus family) (manual) Getting properties antibiotic (like name, code EARS-Net/ATC/LOINC/PubChem, defined daily dose trade name) (manual) Plotting antimicrobial resistance (tutorial) Applying EUCAST expert rules (manual) Getting SNOMED codes microorganism, getting properties microorganism based SNOMED code (manual) Getting LOINC codes antibiotic, getting properties antibiotic based LOINC code (manual) Machine reading EUCAST CLSI guidelines 2011-2021 translate MIC values disk diffusion diameters SIR (link) Principal component analysis AMR (tutorial)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/index.html","id":"latest-official-version","dir":"","previous_headings":"Get this package","what":"Latest official version","title":"Antimicrobial Resistance Data Analysis","text":"package available official R network (CRAN). Install package R CRAN using command: downloaded installed automatically. RStudio, click menu Tools > Install Packages… type “AMR” press Install. Note: functions website may available latest release. use functions data sets mentioned website, install latest development version.","code":"install.packages(\"AMR\")"},{"path":"https://msberends.github.io/AMR/index.html","id":"latest-development-version","dir":"","previous_headings":"Get this package","what":"Latest development version","title":"Antimicrobial Resistance Data Analysis","text":"Please read Developer Guideline . latest unpublished development version can installed GitHub two ways: Manually, using: Automatically, using rOpenSci R-universe platform, adding R-universe address list repositories (‘repos’): , can install update AMR package like official release (e.g., using install.packages(\"AMR\") RStudio via Tools > Check Package Updates…).","code":"install.packages(\"remotes\") # if you haven't already remotes::install_github(\"msberends/AMR\") options(repos = c(getOption(\"repos\"),                   msberends = \"https://msberends.r-universe.dev\"))"},{"path":"https://msberends.github.io/AMR/index.html","id":"get-started","dir":"","previous_headings":"","what":"Get started","title":"Antimicrobial Resistance Data Analysis","text":"find conduct AMR data analysis, please continue reading get started click link ‘’ menu.","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"partners","dir":"","previous_headings":"","what":"Partners","title":"Antimicrobial Resistance Data Analysis","text":"development package part , related , made possible following non-profit organisations initiatives:","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"copyright","dir":"","previous_headings":"","what":"Copyright","title":"Antimicrobial Resistance Data Analysis","text":"R package free, open-source software licensed GNU General Public License v2.0 (GPL-2). nutshell, means package: May used commercial purposes May used private purposes May used patent purposes May modified, although: Modifications must released license distributing package Changes made code must documented May distributed, although: Source code must made available package distributed copy license copyright notice must included package. Comes LIMITATION liability Comes warranty","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":null,"dir":"Reference","previous_headings":"","what":"Options for the AMR package — AMR-options","title":"Options for the AMR package — AMR-options","text":"overview package-specific options() can set AMR package.","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"options","dir":"Reference","previous_headings":"","what":"Options","title":"Options for the AMR package — AMR-options","text":"AMR_antibiogram_formatting_type  numeric (1-12) use antibiogram(), indicate formatting type use. AMR_breakpoint_type  character use .sir(), indicate breakpoint type use. must either \"ECOFF\", \"animal\", \"human\". AMR_cleaning_regex  regular expression (case-insensitive) use .mo() mo_* functions, clean user input. default outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". AMR_custom_ab  file location RDS file, use custom antimicrobial drugs package. explained add_custom_antimicrobials(). AMR_custom_mo  file location RDS file, use custom microorganisms package. explained add_custom_microorganisms(). AMR_eucastrules  character set default types rules eucast_rules() function, must one : \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). AMR_guideline  character set default guideline interpreting MIC values disk diffusion diameters .sir(). Can guideline name (e.g., \"CLSI\") name year (e.g. \"CLSI 2019\"). default latest implemented EUCAST guideline, currently \"EUCAST 2024\". Supported guideline currently EUCAST (2011-2024) CLSI (2011-2024). AMR_ignore_pattern  regular expression ignore (.e., make NA) match given .mo() mo_* functions. AMR_include_PKPD  logical use .sir(), indicate PK/PD clinical breakpoints must applied last resort - default TRUE. AMR_include_screening  logical use .sir(), indicate clinical breakpoints screening allowed - default FALSE. AMR_keep_synonyms  logical use .mo() mo_* functions, indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE. AMR_locale  character set language AMR package, can one supported language names ISO-639-1 codes: English (en), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Italian (), Japanese (ja), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swedish (sv), Turkish (tr), Ukrainian (uk). default current system language (supported, English otherwise). AMR_mo_source  file location manual code list used .mo() mo_* functions. explained set_mo_source().","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"saving-settings-between-sessions","dir":"Reference","previous_headings":"","what":"Saving Settings Between Sessions","title":"Options for the AMR package — AMR-options","text":"Settings R saved globally thus lost R exited. can save options .Rprofile file, user-specific file. can edit using:   file, can set options ...   ...add Portuguese language support antibiotics, allow PK/PD rules interpreting MIC values .sir().","code":"utils::file.edit(\"~/.Rprofile\") options(AMR_locale = \"pt\")  options(AMR_include_PKPD = TRUE)"},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"share-options-within-team","dir":"Reference","previous_headings":"","what":"Share Options Within Team","title":"Options for the AMR package — AMR-options","text":"global approach, e.g. within (data) team, save options file remote file location, shared network drive, user read file automatically start-. work way: Save plain text file e.g. \"X:/team_folder/R_options.R\" fill preferred settings. user, open .Rprofile file using utils::file.edit(\"~/.Rprofile\") put :   Reload R/RStudio check settings getOption(), e.g. getOption(\"AMR_locale\") set value. Now team settings configured one place, can maintained .","code":"source(\"X:/team_folder/R_options.R\")"},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":null,"dir":"Reference","previous_headings":"","what":"The AMR Package — AMR","title":"The AMR Package — AMR","text":"Welcome AMR package. AMR package free open-source R package zero dependencies simplify analysis prediction Antimicrobial Resistance (AMR) work microbial antimicrobial data properties, using evidence-based methods. aim provide standard clean reproducible AMR data analysis, can therefore empower epidemiological analyses continuously enable surveillance treatment evaluation setting. Many different researchers around globe continually helping us make successful durable project! work published Journal Statistical Software (Volume 104(3); doi:10.18637/jss.v104.i03 ) formed basis two PhD theses (doi:10.33612/diss.177417131  doi:10.33612/diss.192486375 ). installing package, R knows ~79 000 microorganisms (updated June 2024) ~600 antibiotic, antimycotic antiviral drugs name code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC SNOMED CT), knows valid SIR MIC values. integral clinical breakpoint guidelines CLSI EUCAST included, even epidemiological cut-(ECOFF) values. supports can read data format, including WHONET data. package works Windows, macOS Linux versions R since R-3.0 (April 2013). designed work setting, including limited resources. created routine data analysis academic research Faculty Medical Sciences public University Groningen, collaboration non-profit organisations Certe Medical Diagnostics Advice Foundation University Medical Center Groningen. AMR package available English, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Italian, Japanese, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swedish, Turkish, Ukrainian. Antimicrobial drug (group) names colloquial microorganism names provided languages.","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"The AMR Package — AMR","text":"cite AMR publications use: Berends MS, Luz CF, Friedrich AW, Sinha BNM, Albers CJ, Glasner C (2022). \"AMR: R Package Working Antimicrobial Resistance Data.\" Journal Statistical Software, 104(3), 1-31. doi:10.18637/jss.v104.i03 BibTeX entry LaTeX users :","code":"@Article{,   title = {{AMR}: An {R} Package for Working with Antimicrobial Resistance Data},   author = {Matthijs S. Berends and Christian F. Luz and Alexander W. Friedrich and Bhanu N. M. Sinha and Casper J. Albers and Corinna Glasner},   journal = {Journal of Statistical Software},   year = {2022},   volume = {104},   number = {3},   pages = {1--31},   doi = {10.18637/jss.v104.i03}, }"},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"The AMR Package — AMR","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":"author","dir":"Reference","previous_headings":"","what":"Author","title":"The AMR Package — AMR","text":"Maintainer: Matthijs S. Berends m.s.berends@umcg.nl (ORCID) Authors: Dennis Souverein (ORCID) [contributor] Erwin E. . Hassing [contributor] contributors: Andrew P. Norgan (ORCID) [contributor] Anita Williams (ORCID) [contributor] Annick Lenglet (ORCID) [contributor] Anthony Underwood (ORCID) [contributor] Anton Mymrikov [contributor] Bart C. Meijer [contributor] Christian F. Luz (ORCID) [contributor] Dmytro Mykhailenko [contributor] Eric H. L. C. M. Hazenberg [contributor] Gwen Knight (ORCID) [contributor] Jason Stull (ORCID) [contributor] Javier Sanchez (ORCID) [contributor] Jonas Salm [contributor] Judith M. Fonville [contributor] Larisse Bolton (ORCID) [contributor] Matthew Saab [contributor] Peter Dutey-Magni (ORCID) [contributor] Rogier P. Schade [contributor] Sofia Ny (ORCID) [contributor] Alex W. Friedrich (ORCID) [thesis advisor] Bhanu N. M. Sinha (ORCID) [thesis advisor] Casper J. Albers (ORCID) [thesis advisor] Corinna Glasner (ORCID) [thesis advisor]","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":null,"dir":"Reference","previous_headings":"","what":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"antimicrobial drugs official names, ATC codes, ATC groups defined daily dose (DDD) included package, using Collaborating Centre Drug Statistics Methodology.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://atcddd.fhi.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://atcddd.fhi./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"","code":"as.ab(\"meropenem\") #> Class 'ab' #> [1] MEM ab_name(\"J01DH02\") #> [1] \"Meropenem\"  ab_tradenames(\"flucloxacillin\") #>  [1] \"culpen\"               \"floxacillin\"          \"floxacillin sodium\"   #>  [4] \"floxapen\"             \"floxapen sodium salt\" \"fluclox\"              #>  [7] \"flucloxacilina\"       \"flucloxacillin\"       \"flucloxacilline\"      #> [10] \"flucloxacillinum\"     \"fluorochloroxacillin\" \"staphylex\""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 500 Isolates - WHONET Example — WHONET","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"example data set exact structure export file WHONET. files can used package, example data set shows. antibiotic results example_isolates data set. patient names created using online surname generators place practice purposes.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"","code":"WHONET"},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"tibble 500 observations 53 variables: Identification number ID sample Specimen number ID specimen Organism Name microorganism. analysis, transform valid microbial class, using .mo(). Country Country origin Laboratory Name laboratory Last name Fictitious last name patient First name Fictitious initial patient Sex Fictitious gender patient Age Fictitious age patient Age category Age group, can also looked using age_groups() Date admissionDate hospital admission Specimen dateDate specimen received laboratory Specimen type Specimen type group Specimen type (Numeric) Translation \"Specimen type\" Reason Reason request Differential Diagnosis Isolate number ID isolate Organism type Type microorganism, can also looked using mo_type() Serotype Serotype microorganism Beta-lactamase Microorganism produces beta-lactamase? ESBL Microorganism produces extended spectrum beta-lactamase? Carbapenemase Microorganism produces carbapenemase? MRSA screening test Microorganism possible MRSA? Inducible clindamycin resistance Clindamycin can induced? Comment comments Date data entryDate data entered WHONET AMP_ND10:CIP_EE 28 different antibiotics. can lookup abbreviations antibiotics data set, use e.g. ab_name(\"AMP\") get official name immediately. analysis, transform valid antibiotic class, using .sir().","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"","code":"WHONET #> # A tibble: 500 × 53 #>    `Identification number` `Specimen number` Organism Country         Laboratory #>    <chr>                               <int> <chr>    <chr>           <chr>      #>  1 fe41d7bafa                           1748 SPN      Belgium         National … #>  2 91f175ec37                           1767 eco      The Netherlands National … #>  3 cc4015056e                           1343 eco      The Netherlands National … #>  4 e864b692f5                           1894 MAP      Denmark         National … #>  5 3d051fe345                           1739 PVU      Belgium         National … #>  6 c80762a08d                           1846 103      The Netherlands National … #>  7 8022d3727c                           1628 103      Denmark         National … #>  8 f3dc5f553d                           1493 eco      The Netherlands National … #>  9 15add38f6c                           1847 eco      France          National … #> 10 fd41248def                           1458 eco      Germany         National … #> # ℹ 490 more rows #> # ℹ 48 more variables: `Last name` <chr>, `First name` <chr>, Sex <chr>, #> #   Age <dbl>, `Age category` <chr>, `Date of admission` <date>, #> #   `Specimen date` <date>, `Specimen type` <chr>, #> #   `Specimen type (Numeric)` <dbl>, Reason <chr>, `Isolate number` <int>, #> #   `Organism type` <chr>, Serotype <chr>, `Beta-lactamase` <lgl>, ESBL <lgl>, #> #   Carbapenemase <lgl>, `MRSA screening test` <lgl>, …"},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":null,"dir":"Reference","previous_headings":"","what":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"Use function e.g. clinical texts health care records. returns list antimicrobial drugs, doses forms administration found texts.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"","code":"ab_from_text(   text,   type = c(\"drug\", \"dose\", \"administration\"),   collapse = NULL,   translate_ab = FALSE,   thorough_search = NULL,   info = interactive(),   ... )"},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"text text analyse type type property search , either \"drug\", \"dose\" \"administration\", see Examples collapse character pass paste(, collapse = ...) return one character per element text, see Examples translate_ab type = \"drug\": column name antibiotics data set translate antibiotic abbreviations , using ab_property(). default FALSE. Using TRUE equal using \"name\". thorough_search logical indicate whether input must extensively searched misspelling faulty input values. Setting TRUE take considerably time using FALSE. default, turn TRUE input elements contain maximum three words. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed .ab()","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"list,  character collapse NULL","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"function also internally used .ab(), although searches first drug name throw note drug names returned. Note: .ab() function may use long regular expression match brand names antimicrobial drugs. may fail systems.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"argument-type","dir":"Reference","previous_headings":"","what":"Argument type","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"default, function search antimicrobial drug names. text elements searched official names, ATC codes brand names. uses .ab() internally, correct misspelling. type = \"dose\" (similar, like \"dosing\", \"doses\"), text elements searched numeric values higher 100 resemble years. output numeric. supports unit (g, mg, IE, etc.) multiple values one clinical text, see Examples. type = \"administration\" (abbreviations, like \"admin\", \"adm\"), text elements searched form drug administration. supports following forms (including common abbreviations): buccal, implant, inhalation, instillation, intravenous, nasal, oral, parenteral, rectal, sublingual, transdermal vaginal. Abbreviations oral ('po', 'per os') become \"oral\", values intravenous ('iv', 'intraven') become \"iv\". supports multiple values one clinical text, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"argument-collapse","dir":"Reference","previous_headings":"","what":"Argument collapse","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"Without using collapse, function return list. can convenient use e.g. inside mutate()):df %>% mutate(abx = ab_from_text(clinical_text)) returned AB codes can transformed official names, groups, etc. ab_* functions ab_name() ab_group(), using translate_ab argument. using collapse, function return character:df %>% mutate(abx = ab_from_text(clinical_text, collapse = \"|\"))","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"","code":"# mind the bad spelling of amoxicillin in this line, # straight from a true health care record: ab_from_text(\"28/03/2020 regular amoxicilliin 500mg po tid\") #> [[1]] #> Class 'ab' #> [1] AMX #>   ab_from_text(\"500 mg amoxi po and 400mg cipro iv\") #> [[1]] #> Class 'ab' #> [1] AMX CIP #>  ab_from_text(\"500 mg amoxi po and 400mg cipro iv\", type = \"dose\") #> [[1]] #> [1] 500 400 #>  ab_from_text(\"500 mg amoxi po and 400mg cipro iv\", type = \"admin\") #> [[1]] #> [1] \"oral\" \"iv\"   #>   ab_from_text(\"500 mg amoxi po and 400mg cipro iv\", collapse = \", \") #> [1] \"AMX, CIP\" # \\donttest{ # if you want to know which antibiotic groups were administered, do e.g.: abx <- ab_from_text(\"500 mg amoxi po and 400mg cipro iv\") ab_group(abx[[1]]) #> [1] \"Beta-lactams/penicillins\" \"Quinolones\"                if (require(\"dplyr\")) {   tibble(clinical_text = c(     \"given 400mg cipro and 500 mg amox\",     \"started on doxy iv today\"   )) %>%     mutate(       abx_codes = ab_from_text(clinical_text),       abx_doses = ab_from_text(clinical_text, type = \"doses\"),       abx_admin = ab_from_text(clinical_text, type = \"admin\"),       abx_coll = ab_from_text(clinical_text, collapse = \"|\"),       abx_coll_names = ab_from_text(clinical_text,         collapse = \"|\",         translate_ab = \"name\"       ),       abx_coll_doses = ab_from_text(clinical_text,         type = \"doses\",         collapse = \"|\"       ),       abx_coll_admin = ab_from_text(clinical_text,         type = \"admin\",         collapse = \"|\"       )     ) } #> Loading required package: dplyr #>  #> Attaching package: ‘dplyr’ #> The following objects are masked from ‘package:stats’: #>  #>     filter, lag #> The following objects are masked from ‘package:base’: #>  #>     intersect, setdiff, setequal, union #> # A tibble: 2 × 8 #>   clinical_text            abx_codes abx_doses abx_admin abx_coll abx_coll_names #>   <chr>                    <list>    <list>    <list>    <chr>    <chr>          #> 1 given 400mg cipro and 5… <ab [2]>  <dbl [2]> <chr [1]> CIP|AMX  Ciprofloxacin… #> 2 started on doxy iv today <ab [1]>  <dbl [1]> <chr [1]> DOX      Doxycycline    #> # ℹ 2 more variables: abx_coll_doses <chr>, abx_coll_admin <chr> # }"},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of an Antibiotic — ab_property","title":"Get Properties of an Antibiotic — ab_property","text":"Use functions return specific property antibiotic antibiotics data set. input values evaluated internally .ab().","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of an Antibiotic — ab_property","text":"","code":"ab_name(x, language = get_AMR_locale(), tolower = FALSE, ...)  ab_cid(x, ...)  ab_synonyms(x, ...)  ab_tradenames(x, ...)  ab_group(x, language = get_AMR_locale(), ...)  ab_atc(x, only_first = FALSE, ...)  ab_atc_group1(x, language = get_AMR_locale(), ...)  ab_atc_group2(x, language = get_AMR_locale(), ...)  ab_loinc(x, ...)  ab_ddd(x, administration = \"oral\", ...)  ab_ddd_units(x, administration = \"oral\", ...)  ab_info(x, language = get_AMR_locale(), ...)  ab_url(x, open = FALSE, ...)  ab_property(x, property = \"name\", language = get_AMR_locale(), ...)  set_ab_names(   data,   ...,   property = \"name\",   language = get_AMR_locale(),   snake_case = NULL )"},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of an Antibiotic — ab_property","text":"x (vector ) text can coerced valid antibiotic drug code .ab() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. tolower logical indicate whether first character every output transformed lower case character. lead e.g. \"polymyxin B\" \"polymyxin b\". ... case set_ab_names() data data.frame: columns select (supports tidy selection column1:column4), otherwise arguments passed .ab() only_first logical indicate whether first ATC code must returned, giving preference J0-codes (.e., antimicrobial drug group) administration way administration, either \"oral\" \"iv\" open browse URL using utils::browseURL() property one column names one antibiotics data set: vector_or(colnames(antibiotics), sort = FALSE). data data.frame columns need renamed, character vector column names snake_case logical indicate whether names -called snake case: lower case spaces/slashes replaced underscore (_)","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of an Antibiotic — ab_property","text":"integer case ab_cid() named list case ab_info() multiple ab_atc()/ab_synonyms()/ab_tradenames() double case ab_ddd() data.frame case set_ab_names() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of an Antibiotic — ab_property","text":"output translated possible. function ab_url() return direct URL official website. warning returned required ATC code available. function set_ab_names() special column renaming function data.frames. renames columns names resemble antimicrobial drugs. always makes sure new column names unique. property = \"atc\" set, preference given ATC codes J-group.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of an Antibiotic — ab_property","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://atcddd.fhi./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of an Antibiotic — ab_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of an Antibiotic — ab_property","text":"","code":"# all properties: ab_name(\"AMX\") #> [1] \"Amoxicillin\" ab_atc(\"AMX\") #> [1] \"J01CA04\" ab_cid(\"AMX\") #> [1] 33613 ab_synonyms(\"AMX\") #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            ab_tradenames(\"AMX\") #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            ab_group(\"AMX\") #> [1] \"Beta-lactams/penicillins\" ab_atc_group1(\"AMX\") #> [1] \"Beta-lactam antibacterials, penicillins\" ab_atc_group2(\"AMX\") #> [1] \"Penicillins with extended spectrum\" ab_url(\"AMX\") #>                                                             Amoxicillin  #> \"https://atcddd.fhi.no/atc_ddd_index//?code=J01CA04&showdescription=no\"   # smart lowercase transformation ab_name(x = c(\"AMC\", \"PLB\")) #> [1] \"Amoxicillin/clavulanic acid\" \"Polymyxin B\"                 ab_name(x = c(\"AMC\", \"PLB\"), tolower = TRUE) #> [1] \"amoxicillin/clavulanic acid\" \"polymyxin B\"                  # defined daily doses (DDD) ab_ddd(\"AMX\", \"oral\") #> [1] 1.5 ab_ddd_units(\"AMX\", \"oral\") #> [1] \"g\" ab_ddd(\"AMX\", \"iv\") #> [1] 3 ab_ddd_units(\"AMX\", \"iv\") #> [1] \"g\"  ab_info(\"AMX\") # all properties as a list #> $ab #> [1] \"AMX\" #>  #> $cid #> [1] 33613 #>  #> $name #> [1] \"Amoxicillin\" #>  #> $group #> [1] \"Beta-lactams/penicillins\" #>  #> $atc #> [1] \"J01CA04\" #>  #> $atc_group1 #> [1] \"Beta-lactam antibacterials, penicillins\" #>  #> $atc_group2 #> [1] \"Penicillins with extended spectrum\" #>  #> $tradenames #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            #>  #> $loinc #>  [1] \"101498-4\" \"15-8\"     \"16-6\"     \"16365-9\"  \"17-4\"     \"18-2\"     #>  [7] \"18861-5\"  \"18862-3\"  \"19-0\"     \"20-8\"     \"21-6\"     \"22-4\"     #> [13] \"25274-2\"  \"25310-4\"  \"3344-9\"   \"55614-2\"  \"55615-9\"  \"55616-7\"  #> [19] \"6976-5\"   \"6977-3\"   \"80133-2\"  #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 1.5 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 3 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all ab_* functions use as.ab() internally, so you can go from 'any' to 'any': ab_atc(\"AMP\") #> [1] \"J01CA01\" \"S01AA19\" ab_group(\"J01CA01\") #> [1] \"Beta-lactams/penicillins\" ab_loinc(\"ampicillin\") #>  [1] \"101477-8\" \"101478-6\" \"18864-9\"  \"18865-6\"  \"20374-5\"  \"21066-6\"  #>  [7] \"23618-2\"  \"27-3\"     \"28-1\"     \"29-9\"     \"30-7\"     \"31-5\"     #> [13] \"32-3\"     \"33-1\"     \"3355-5\"   \"33562-0\"  \"33919-2\"  \"34-9\"     #> [19] \"43883-8\"  \"43884-6\"  \"6979-9\"   \"6980-7\"   \"87604-5\"  ab_name(\"21066-6\") #> [1] \"Ampicillin\" ab_name(6249) #> [1] \"Ampicillin\" ab_name(\"J01CA01\") #> [1] \"Ampicillin\"  # spelling from different languages and dyslexia are no problem ab_atc(\"ceftriaxon\") #> [1] \"J01DD04\" ab_atc(\"cephtriaxone\") #> [1] \"J01DD04\" ab_atc(\"cephthriaxone\") #> [1] \"J01DD04\" ab_atc(\"seephthriaaksone\") #> [1] \"J01DD04\"  # use set_ab_names() for renaming columns colnames(example_isolates) #>  [1] \"date\"    \"patient\" \"age\"     \"gender\"  \"ward\"    \"mo\"      \"PEN\"     #>  [8] \"OXA\"     \"FLC\"     \"AMX\"     \"AMC\"     \"AMP\"     \"TZP\"     \"CZO\"     #> [15] \"FEP\"     \"CXM\"     \"FOX\"     \"CTX\"     \"CAZ\"     \"CRO\"     \"GEN\"     #> [22] \"TOB\"     \"AMK\"     \"KAN\"     \"TMP\"     \"SXT\"     \"NIT\"     \"FOS\"     #> [29] \"LNZ\"     \"CIP\"     \"MFX\"     \"VAN\"     \"TEC\"     \"TCY\"     \"TGC\"     #> [36] \"DOX\"     \"ERY\"     \"CLI\"     \"AZM\"     \"IPM\"     \"MEM\"     \"MTR\"     #> [43] \"CHL\"     \"COL\"     \"MUP\"     \"RIF\"     colnames(set_ab_names(example_isolates)) #>  [1] \"date\"                          \"patient\"                       #>  [3] \"age\"                           \"gender\"                        #>  [5] \"ward\"                          \"mo\"                            #>  [7] \"benzylpenicillin\"              \"oxacillin\"                     #>  [9] \"flucloxacillin\"                \"amoxicillin\"                   #> [11] \"amoxicillin_clavulanic_acid\"   \"ampicillin\"                    #> [13] \"piperacillin_tazobactam\"       \"cefazolin\"                     #> [15] \"cefepime\"                      \"cefuroxime\"                    #> [17] \"cefoxitin\"                     \"cefotaxime\"                    #> [19] \"ceftazidime\"                   \"ceftriaxone\"                   #> [21] \"gentamicin\"                    \"tobramycin\"                    #> [23] \"amikacin\"                      \"kanamycin\"                     #> [25] \"trimethoprim\"                  \"trimethoprim_sulfamethoxazole\" #> [27] \"nitrofurantoin\"                \"fosfomycin\"                    #> [29] \"linezolid\"                     \"ciprofloxacin\"                 #> [31] \"moxifloxacin\"                  \"vancomycin\"                    #> [33] \"teicoplanin\"                   \"tetracycline\"                  #> [35] \"tigecycline\"                   \"doxycycline\"                   #> [37] \"erythromycin\"                  \"clindamycin\"                   #> [39] \"azithromycin\"                  \"imipenem\"                      #> [41] \"meropenem\"                     \"metronidazole\"                 #> [43] \"chloramphenicol\"               \"colistin\"                      #> [45] \"mupirocin\"                     \"rifampicin\"                    colnames(set_ab_names(example_isolates, NIT:VAN)) #>  [1] \"date\"           \"patient\"        \"age\"            \"gender\"         #>  [5] \"ward\"           \"mo\"             \"PEN\"            \"OXA\"            #>  [9] \"FLC\"            \"AMX\"            \"AMC\"            \"AMP\"            #> [13] \"TZP\"            \"CZO\"            \"FEP\"            \"CXM\"            #> [17] \"FOX\"            \"CTX\"            \"CAZ\"            \"CRO\"            #> [21] \"GEN\"            \"TOB\"            \"AMK\"            \"KAN\"            #> [25] \"TMP\"            \"SXT\"            \"nitrofurantoin\" \"fosfomycin\"     #> [29] \"linezolid\"      \"ciprofloxacin\"  \"moxifloxacin\"   \"vancomycin\"     #> [33] \"TEC\"            \"TCY\"            \"TGC\"            \"DOX\"            #> [37] \"ERY\"            \"CLI\"            \"AZM\"            \"IPM\"            #> [41] \"MEM\"            \"MTR\"            \"CHL\"            \"COL\"            #> [45] \"MUP\"            \"RIF\"            # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     set_ab_names()    # this does the same:   example_isolates %>%     rename_with(set_ab_names)    # set_ab_names() works with any AB property:   example_isolates %>%     set_ab_names(property = \"atc\")    example_isolates %>%     set_ab_names(where(is.sir)) %>%     colnames()    example_isolates %>%     set_ab_names(NIT:VAN) %>%     colnames() } #>  [1] \"date\"           \"patient\"        \"age\"            \"gender\"         #>  [5] \"ward\"           \"mo\"             \"PEN\"            \"OXA\"            #>  [9] \"FLC\"            \"AMX\"            \"AMC\"            \"AMP\"            #> [13] \"TZP\"            \"CZO\"            \"FEP\"            \"CXM\"            #> [17] \"FOX\"            \"CTX\"            \"CAZ\"            \"CRO\"            #> [21] \"GEN\"            \"TOB\"            \"AMK\"            \"KAN\"            #> [25] \"TMP\"            \"SXT\"            \"nitrofurantoin\" \"fosfomycin\"     #> [29] \"linezolid\"      \"ciprofloxacin\"  \"moxifloxacin\"   \"vancomycin\"     #> [33] \"TEC\"            \"TCY\"            \"TGC\"            \"DOX\"            #> [37] \"ERY\"            \"CLI\"            \"AZM\"            \"IPM\"            #> [41] \"MEM\"            \"MTR\"            \"CHL\"            \"COL\"            #> [45] \"MUP\"            \"RIF\"            # }"},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":null,"dir":"Reference","previous_headings":"","what":"Add Custom Antimicrobials — add_custom_antimicrobials","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"add_custom_antimicrobials() can add custom antimicrobial drug names codes.","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"","code":"add_custom_antimicrobials(x)  clear_custom_antimicrobials()"},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"x data.frame resembling antibiotics data set, least containing columns \"ab\" \"name\"","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"Important: Due R works, add_custom_antimicrobials() function run every R session - added antimicrobials stored sessions thus lost R exited. two ways circumvent automate process adding antimicrobials: Method 1: Using package option AMR_custom_ab, preferred method. use method: Create data set structure antibiotics data set (containing least columns \"ab\" \"name\") save saveRDS() location choice, e.g. \"~/my_custom_ab.rds\", remote location. Set file location package option AMR_custom_ab: options(AMR_custom_ab = \"~/my_custom_ab.rds\"). can even remote file location, https URL. Since options saved R sessions, best save option .Rprofile file loaded start-R. , open .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"), add text save file:   Upon package load, file loaded run add_custom_antimicrobials() function. Method 2: Loading antimicrobial additions directly .Rprofile file. Note definitions stored user-specific R file, suboptimal workflow. use method: Edit .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"). Add text like save file:   Use clear_custom_antimicrobials() clear previously added antimicrobials.","code":"# Add custom antimicrobial codes: options(AMR_custom_ab = \"~/my_custom_ab.rds\") # Add custom antibiotic drug codes:  AMR::add_custom_antimicrobials(    data.frame(ab = \"TESTAB\",               name = \"Test Antibiotic\",               group = \"Test Group\")  )"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"","code":"# \\donttest{  # returns NA and throws a warning (which is suppressed here): suppressWarnings(   as.ab(\"testab\") ) #> Class 'ab' #> [1] <NA>  # now add a custom entry - it will be considered by as.ab() and # all ab_*() functions add_custom_antimicrobials(   data.frame(     ab = \"TESTAB\",     name = \"Test Antibiotic\",     # you can add any property present in the     # 'antibiotics' data set, such as 'group':     group = \"Test Group\"   ) ) #> ℹ Added one record to the internal antibiotics data set.  # \"testab\" is now a new antibiotic: as.ab(\"testab\") #> Class 'ab' #> [1] TESTAB ab_name(\"testab\") #> [1] \"Test Antibiotic\" ab_group(\"testab\") #> [1] \"Test Group\"  ab_info(\"testab\") #> $ab #> [1] \"TESTAB\" #>  #> $cid #> [1] NA #>  #> $name #> [1] \"Test Antibiotic\" #>  #> $group #> [1] \"Test Group\" #>  #> $atc #> [1] NA #>  #> $atc_group1 #> [1] NA #>  #> $atc_group2 #> [1] NA #>  #> $tradenames #> [1] NA #>  #> $loinc #> [1] NA #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] NA #>  #> $ddd$oral$units #> [1] NA #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] NA #>  #> $ddd$iv$units #> [1] NA #>  #>  #>    # Add Co-fluampicil, which is one of the many J01CR50 codes, see # https://atcddd.fhi.no/ddd/list_of_ddds_combined_products/ add_custom_antimicrobials(   data.frame(     ab = \"COFLU\",     name = \"Co-fluampicil\",     atc = \"J01CR50\",     group = \"Beta-lactams/penicillins\"   ) ) #> ℹ Added one record to the internal antibiotics data set. ab_atc(\"Co-fluampicil\") #> [1] \"J01CR50\" ab_name(\"J01CR50\") #> [1] \"Co-fluampicil\"  # even antibiotic selectors work x <- data.frame(   random_column = \"some value\",   coflu = as.sir(\"S\"),   ampicillin = as.sir(\"R\") ) x #>   random_column coflu ampicillin #> 1    some value     S          R x[, betalactams()] #> ℹ For betalactams() using columns 'coflu' (co-fluampicil) and #>   'ampicillin' #>   coflu ampicillin #> 1     S          R # }"},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Add Custom Microorganisms — add_custom_microorganisms","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"add_custom_microorganisms() can add custom microorganisms, non-taxonomic outcome laboratory analysis.","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"","code":"add_custom_microorganisms(x)  clear_custom_microorganisms()"},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"x data.frame resembling microorganisms data set, least containing column \"genus\" (case-insensitive)","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"function fill missing taxonomy , specific taxonomic columns missing, see Examples. Important: Due R works, add_custom_microorganisms() function run every R session - added microorganisms stored sessions thus lost R exited. two ways circumvent automate process adding microorganisms: Method 1: Using package option AMR_custom_mo, preferred method. use method: Create data set structure microorganisms data set (containing least column \"genus\") save saveRDS() location choice, e.g. \"~/my_custom_mo.rds\", remote location. Set file location package option AMR_custom_mo: options(AMR_custom_mo = \"~/my_custom_mo.rds\"). can even remote file location, https URL. Since options saved R sessions, best save option .Rprofile file loaded start-R. , open .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"), add text save file:   Upon package load, file loaded run add_custom_microorganisms() function. Method 2: Loading microorganism directly .Rprofile file. Note definitions stored user-specific R file, suboptimal workflow. use method: Edit .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"). Add text like save file:   Use clear_custom_microorganisms() clear previously added microorganisms.","code":"# Add custom microorganism codes: options(AMR_custom_mo = \"~/my_custom_mo.rds\") # Add custom antibiotic drug codes:  AMR::add_custom_microorganisms(    data.frame(genus = \"Enterobacter\",               species = \"asburiae/cloacae\")  )"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"","code":"# \\donttest{ # a combination of species is not formal taxonomy, so # this will result in \"Enterobacter cloacae cloacae\", # since it resembles the input best: mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter asburiae\"  # now add a custom entry - it will be considered by as.mo() and # all mo_*() functions add_custom_microorganisms(   data.frame(     genus = \"Enterobacter\",     species = \"asburiae/cloacae\"   ) ) #> ℹ Added Enterobacter asburiae/cloacae to the internal microorganisms data #>   set.  # E. asburiae/cloacae is now a new microorganism: mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter asburiae/cloacae\"  # its code: as.mo(\"Enterobacter asburiae/cloacae\") #> Class 'mo' #> [1] CUSTOM1_ENTRB_ASB/  # all internal algorithms will work as well: mo_name(\"Ent asburia cloacae\") #> [1] \"Enterobacter asburiae/cloacae\"  # and even the taxonomy was added based on the genus! mo_family(\"E. asburiae/cloacae\") #> [1] \"Enterobacteriaceae\" mo_gramstain(\"Enterobacter asburiae/cloacae\") #> [1] \"Gram-negative\"  mo_info(\"Enterobacter asburiae/cloacae\") #> $mo #> [1] \"CUSTOM1_ENTRB_ASB/\" #>  #> $rank #> [1] \"species\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Enterobacter\" #>  #> $species #> [1] \"asburiae/cloacae\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $oxygen_tolerance #> [1] NA #>  #> $url #> [1] \"\" #>  #> $ref #> [1] \"Self-added, 2024\" #>  #> $snomed #> [1] NA #>  #> $lpsn #> [1] NA #>  #> $mycobank #> [1] NA #>  #> $gbif #> [1] NA #>  #> $group_members #> character(0) #>    # the function tries to be forgiving: add_custom_microorganisms(   data.frame(     GENUS = \"BACTEROIDES / PARABACTEROIDES SLASHLINE\",     SPECIES = \"SPECIES\"   ) ) #> ℹ Added Bacteroides/Parabacteroides to the internal microorganisms data #>   set. mo_name(\"BACTEROIDES / PARABACTEROIDES\") #> [1] \"Bacteroides/Parabacteroides\" mo_rank(\"BACTEROIDES / PARABACTEROIDES\") #> [1] \"genus\"  # taxonomy still works, even though a slashline genus was given as input: mo_family(\"Bacteroides/Parabacteroides\") #> [1] \"Bacteroidaceae\"   # for groups and complexes, set them as species or subspecies: add_custom_microorganisms(   data.frame(     genus = \"Citrobacter\",     species = c(\"freundii\", \"braakii complex\"),     subspecies = c(\"complex\", \"\")   ) ) #> ℹ Added Citrobacter braakii complex and Citrobacter freundii complex to the #>   internal microorganisms data set. mo_name(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"Citrobacter freundii complex\" \"Citrobacter braakii complex\"  mo_species(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"freundii complex\" \"braakii complex\"  mo_gramstain(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"Gram-negative\" \"Gram-negative\" # }"},{"path":"https://msberends.github.io/AMR/reference/age.html","id":null,"dir":"Reference","previous_headings":"","what":"Age in Years of Individuals — age","title":"Age in Years of Individuals — age","text":"Calculates age years based reference date, system date default.","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Age in Years of Individuals — age","text":"","code":"age(x, reference = Sys.Date(), exact = FALSE, na.rm = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Age in Years of Individuals — age","text":"x date(s), character (vectors) coerced .POSIXlt() reference reference date(s) (default today), character (vectors) coerced .POSIXlt() exact logical indicate whether age calculation exact, .e. decimals. divides number days year--date (YTD) x number days year reference (either 365 366). na.rm logical indicate whether missing values removed ... arguments passed .POSIXlt(), origin","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Age in Years of Individuals — age","text":"integer (decimals) exact = FALSE, double (decimals) otherwise","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Age in Years of Individuals — age","text":"Ages 0 returned NA warning. Ages 120 give warning. function vectorises x reference, meaning either can length 1 argument larger length.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Age in Years of Individuals — age","text":"","code":"# 10 random pre-Y2K birth dates df <- data.frame(birth_date = as.Date(\"2000-01-01\") - runif(10) * 25000)  # add ages df$age <- age(df$birth_date)  # add exact ages df$age_exact <- age(df$birth_date, exact = TRUE)  # add age at millenium switch df$age_at_y2k <- age(df$birth_date, \"2000-01-01\")  df #>    birth_date age age_exact age_at_y2k #> 1  1965-12-05  59  59.04098         34 #> 2  1980-03-01  44  44.80328         19 #> 3  1949-11-01  75  75.13388         50 #> 4  1947-02-14  77  77.84699         52 #> 5  1940-02-19  84  84.83333         59 #> 6  1988-01-10  36  36.94262         11 #> 7  1997-08-27  27  27.31421          2 #> 8  1978-01-26  46  46.89891         21 #> 9  1972-06-17  52  52.50820         27 #> 10 1986-08-10  38  38.36066         13"},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":null,"dir":"Reference","previous_headings":"","what":"Split Ages into Age Groups — age_groups","title":"Split Ages into Age Groups — age_groups","text":"Split ages age groups defined split argument. allows easier demographic (antimicrobial resistance) analysis.","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Split Ages into Age Groups — age_groups","text":"","code":"age_groups(x, split_at = c(12, 25, 55, 75), na.rm = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Split Ages into Age Groups — age_groups","text":"x age, e.g. calculated age() split_at values split x - default age groups 0-11, 12-24, 25-54, 55-74 75+. See Details. na.rm logical indicate whether missing values removed","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Split Ages into Age Groups — age_groups","text":"Ordered factor","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Split Ages into Age Groups — age_groups","text":"split ages, input split_at argument can : numeric vector. value e.g. c(10, 20) split x 0-9, 10-19 20+. value 50 split x 0-49 50+. default split young children (0-11), youth (12-24), young adults (25-54), middle-aged adults (55-74) elderly (75+). character: \"children\" \"kids\", equivalent : c(0, 1, 2, 4, 6, 13, 18). split 0, 1, 2-3, 4-5, 6-12, 13-17 18+. \"elderly\" \"seniors\", equivalent : c(65, 75, 85). split 0-64, 65-74, 75-84, 85+. \"fives\", equivalent : 1:20 * 5. split 0-4, 5-9, ..., 95-99, 100+. \"tens\", equivalent : 1:10 * 10. split 0-9, 10-19, ..., 90-99, 100+.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Split Ages into Age Groups — age_groups","text":"","code":"ages <- c(3, 8, 16, 54, 31, 76, 101, 43, 21)  # split into 0-49 and 50+ age_groups(ages, 50) #> [1] 0-49 0-49 0-49 50+  0-49 50+  50+  0-49 0-49 #> Levels: 0-49 < 50+  # split into 0-19, 20-49 and 50+ age_groups(ages, c(20, 50)) #> [1] 0-19  0-19  0-19  50+   20-49 50+   50+   20-49 20-49 #> Levels: 0-19 < 20-49 < 50+  # split into groups of ten years age_groups(ages, 1:10 * 10) #> [1] 0-9   0-9   10-19 50-59 30-39 70-79 100+  40-49 20-29 #> 11 Levels: 0-9 < 10-19 < 20-29 < 30-39 < 40-49 < 50-59 < 60-69 < ... < 100+ age_groups(ages, split_at = \"tens\") #> [1] 0-9   0-9   10-19 50-59 30-39 70-79 100+  40-49 20-29 #> 11 Levels: 0-9 < 10-19 < 20-29 < 30-39 < 40-49 < 50-59 < 60-69 < ... < 100+  # split into groups of five years age_groups(ages, 1:20 * 5) #> [1] 0-4   5-9   15-19 50-54 30-34 75-79 100+  40-44 20-24 #> 21 Levels: 0-4 < 5-9 < 10-14 < 15-19 < 20-24 < 25-29 < 30-34 < ... < 100+ age_groups(ages, split_at = \"fives\") #> [1] 0-4   5-9   15-19 50-54 30-34 75-79 100+  40-44 20-24 #> 21 Levels: 0-4 < 5-9 < 10-14 < 15-19 < 20-24 < 25-29 < 30-34 < ... < 100+  # split specifically for children age_groups(ages, c(1, 2, 4, 6, 13, 18)) #> [1] 2-3   6-12  13-17 18+   18+   18+   18+   18+   18+   #> Levels: 0 < 1 < 2-3 < 4-5 < 6-12 < 13-17 < 18+ age_groups(ages, \"children\") #> [1] 2-3   6-12  13-17 18+   18+   18+   18+   18+   18+   #> Levels: 0 < 1 < 2-3 < 4-5 < 6-12 < 13-17 < 18+  # \\donttest{ # resistance of ciprofloxacin per age group if (require(\"dplyr\") && require(\"ggplot2\")) {   example_isolates %>%     filter_first_isolate() %>%     filter(mo == as.mo(\"Escherichia coli\")) %>%     group_by(age_group = age_groups(age)) %>%     select(age_group, CIP) %>%     ggplot_sir(       x = \"age_group\",       minimum = 0,       x.title = \"Age Group\",       title = \"Ciprofloxacin resistance per age group\"     ) } #> Loading required package: ggplot2  # }"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":null,"dir":"Reference","previous_headings":"","what":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"Create detailed antibiograms options traditional, combination, syndromic, Bayesian WISCA methods. Based approaches Klinker et al., Barbieri et al., Bayesian WISCA model (Weighted-Incidence Syndromic Combination Antibiogram) Bielicki et al., function provides flexible output formats including plots tables, ideal integration R Markdown Quarto reports.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"","code":"antibiogram(   x,   antibiotics = where(is.sir),   mo_transform = \"shortname\",   ab_transform = \"name\",   syndromic_group = NULL,   add_total_n = FALSE,   only_all_tested = FALSE,   digits = 0,   formatting_type = getOption(\"AMR_antibiogram_formatting_type\", 10),   col_mo = NULL,   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   sep = \" + \",   info = interactive() )  # S3 method for class 'antibiogram' plot(x, ...)  # S3 method for class 'antibiogram' autoplot(object, ...)  # S3 method for class 'antibiogram' knit_print(   x,   italicise = TRUE,   na = getOption(\"knitr.kable.NA\", default = \"\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"Bielicki JA et al. (2016). Selecting appropriate empirical antibiotic regimens paediatric bloodstream infections: application Bayesian decision model local pooled antimicrobial resistance surveillance data Journal Antimicrobial Chemotherapy 71(3); doi:10.1093/jac/dkv397 Klinker KP et al. (2021). Antimicrobial stewardship antibiograms: importance moving beyond traditional antibiograms. Therapeutic Advances Infectious Disease, May 5;8:20499361211011373; doi:10.1177/20499361211011373 Barbieri E et al. (2021). Development Weighted-Incidence Syndromic Combination Antibiogram (WISCA) guide choice empiric antibiotic treatment urinary tract infection paediatric patients: Bayesian approach Antimicrobial Resistance & Infection Control May 1;10(1):74; doi:10.1186/s13756-021-00939-2 M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"x data.frame containing least column microorganisms columns antibiotic results (class 'sir', see .sir()) antibiotics vector antibiotic name code (evaluated .ab(), column name x, (combinations ) antibiotic selectors aminoglycosides() carbapenems(). combination antibiograms, can also set values separated \"+\", \"TZP+TOB\" \"cipro + genta\", given columns resembling antibiotics exist x. See Examples. mo_transform character transform microorganism input - must \"name\", \"shortname\" (default), \"gramstain\", one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"mycobank\", \"mycobank_parent\", \"mycobank_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". Can also NULL transform input. ab_transform character transform antibiotic input - must one column names antibiotics data set (defaults \"name\"): \"ab\", \"cid\", \"name\", \"group\", \"atc\", \"atc_group1\", \"atc_group2\", \"abbreviations\", \"synonyms\", \"oral_ddd\", \"oral_units\", \"iv_ddd\", \"iv_units\", \"loinc\". Can also NULL transform input. syndromic_group column name x, values calculated split rows x, e.g. using ifelse() case_when(). See Examples. add_total_n logical indicate whether total available numbers per pathogen added table (default TRUE). add lowest highest number available isolate per antibiotic (e.g, E. coli 200 isolates available ciprofloxacin 150 amoxicillin, returned number \"150-200\"). only_all_tested (combination antibiograms): logical indicate isolates must tested antibiotics, see Details digits number digits use rounding susceptibility percentage formatting_type numeric value (1–12) indicating 'cells' antibiogram table formatted. See Details > Formatting Type list options. col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). language language translate text, defaults system language (see get_AMR_locale()) minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether susceptibility determined results either S, SDD, , instead S (default TRUE) sep separating character antibiotic columns combination antibiograms info logical indicate info printed - default TRUE interactive mode ... used R Markdown Quarto: arguments passed knitr::kable() (otherwise, use) object antibiogram() object italicise logical indicate whether microorganism names knitr table made italic, using italicise_taxonomy(). na character use showing NA values","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"function returns table values 0 100 susceptibility, resistance. Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine data set one four available algorithms.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"formatting-type","dir":"Reference","previous_headings":"","what":"Formatting Type","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"formatting 'cells' table can set argument formatting_type. examples, 5 susceptibility percentage, 15 numerator, 300 denominator: 5 15 300 15/300 5 (300) 5% (300) 5 (N=300) 5% (N=300) 5 (15/300) 5% (15/300) 5 (N=15/300) 5% (N=15/300) default 10, can set globally package option AMR_antibiogram_formatting_type, e.g. options(AMR_antibiogram_formatting_type = 5). Set digits (defaults 0) alter rounding susceptibility percentage.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"antibiogram-types","dir":"Reference","previous_headings":"","what":"Antibiogram Types","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"four antibiogram types, summarised Klinker et al. (2021, doi:10.1177/20499361211011373 ), supported antibiogram(). Use WISCA whenever possible, since provides precise coverage estimates accounting pathogen incidence antimicrobial susceptibility. See section Use WISCA? page. four antibiogram types: Traditional Antibiogram Case example: Susceptibility Pseudomonas aeruginosa piperacillin/tazobactam (TZP) Code example:   Combination Antibiogram Case example: Additional susceptibility Pseudomonas aeruginosa TZP + tobramycin versus TZP alone Code example:   Syndromic Antibiogram Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) Code example:   Weighted-Incidence Syndromic Combination Antibiogram (WISCA) WISCA enhances empirical antibiotic selection weighting incidence pathogens specific clinical syndromes combining susceptibility data. provides estimation regimen coverage aggregating pathogen incidences susceptibilities across potential causative organisms. See also section Use WISCA? page. Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) male patients age >=65 years heart failure Code example:   WISCA uses sophisticated Bayesian decision model combine local pooled antimicrobial resistance data. approach evaluates local patterns can also draw multi-centre datasets improve regimen accuracy, even low-incidence infections like paediatric bloodstream infections (BSIs).","code":"antibiogram(your_data,             antibiotics = \"TZP\") antibiogram(your_data,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\")) antibiogram(your_data,             antibiotics = penicillins(),             syndromic_group = \"ward\") library(dplyr) your_data %>%   filter(ward == \"ICU\" & specimen_type == \"Respiratory\") %>%   antibiogram(antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),               syndromic_group = ifelse(.$age >= 65 &                                          .$gender == \"Male\" &                                          .$condition == \"Heart Disease\",                                        \"Study Group\", \"Control Group\"))"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"inclusion-in-combination-antibiogram-and-syndromic-antibiogram","dir":"Reference","previous_headings":"","what":"Inclusion in Combination Antibiogram and Syndromic Antibiogram","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"Note types 2 3 (Combination Antibiogram Syndromic Antibiogram), important realise susceptibility can calculated two ways, can set only_all_tested argument (default FALSE). See example two antibiotics, Drug Drug B, antibiogram() works calculate %SI:","code":"--------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - --------------------------------------------------------------------"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"plotting","dir":"Reference","previous_headings":"","what":"Plotting","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"types antibiograms listed can plotted (using ggplot2::autoplot() base R's plot() barplot()). outcome antibiogram() can also used directly R Markdown / Quarto (.e., knitr) reports. case, knitr::kable() applied automatically microorganism names even printed italics default (see argument italicise). can also use functions specific 'table reporting' packages transform output antibiogram() needs, e.g. flextable::as_flextable() gt::gt().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"why-use-wisca-","dir":"Reference","previous_headings":"","what":"Why Use WISCA?","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"WISCA powerful tool guiding empirical antibiotic therapy provides precise coverage estimates accounting pathogen incidence antimicrobial susceptibility. particularly important empirical treatment, causative pathogen often unknown outset. Traditional antibiograms reflect weighted likelihood specific pathogens based clinical syndromes, can lead suboptimal treatment choices. Bayesian WISCA, described Bielicki et al. (2016), improves earlier methods handling uncertainties common smaller datasets, low-incidence infections. method offers significant advantage : Pooling Data Multiple Sources: WISCA uses pooled data multiple hospitals surveillance sources overcome limitations small sample sizes individual institutions, allowing confident selection narrow-spectrum antibiotics combinations. Bayesian Framework: Bayesian decision tree model accounts local data prior knowledge (inherent resistance patterns) estimate regimen coverage. allows precise estimation coverage, even cases susceptibility data missing incomplete. Incorporating Pathogen Regimen Uncertainty: WISCA allows clinicians see likelihood empirical regimen effective relevant pathogens, taking account uncertainties related pathogen prevalence antimicrobial resistance. leads better-informed, data-driven clinical decisions. Scenarios Optimising Treatment: hospitals settings low-incidence infections, WISCA helps determine whether local data sufficient pooling external data necessary. also identifies statistically significant differences similarities antibiotic regimens, enabling clinicians choose optimal therapies greater confidence. WISCA essential optimising empirical treatment shifting away broad-spectrum antibiotics, often overused empirical settings. offering precise estimates based syndromic patterns pooled data, WISCA supports antimicrobial stewardship guiding targeted therapy, reducing unnecessary broad-spectrum use, combating rise antimicrobial resistance.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # \\donttest{ # Traditional antibiogram ----------------------------------------------  antibiogram(example_isolates,   antibiotics = c(aminoglycosides(), carbapenems()) ) #> ℹ The function aminoglycosides() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(aminoglycosides()) #>   • your_data %>% select(column_a, column_b, aminoglycosides()) #>   • your_data %>% filter(any(aminoglycosides() == \"R\")) #>   • your_data[, aminoglycosides()] #>   • your_data[, c(\"column_a\", \"column_b\", aminoglycosides())] #>  #> Now returning a vector of all possible antimicrobials that #> aminoglycosides() can select. #> ℹ The function carbapenems() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(carbapenems()) #>   • your_data %>% select(column_a, column_b, carbapenems()) #>   • your_data %>% filter(any(carbapenems() == \"R\")) #>   • your_data[, carbapenems()] #>   • your_data[, c(\"column_a\", \"column_b\", carbapenems())] #>  #> Now returning a vector of all possible antimicrobials that carbapenems() #> can select. #> Warning: The following antibiotics were not available and ignored: #> amikacin/fosfomycin, apramycin, arbekacin, astromicin, bekanamycin, #> biapenem, dibekacin, doripenem, ertapenem, framycetin, gentamicin-high, #> habekacin, hygromycin, imipenem/EDTA, imipenem/relebactam, isepamicin, #> kanamycin-high, kanamycin/cephalexin, meropenem/nacubactam, #> meropenem/vaborbactam, micronomicin, neomycin, netilmicin, panipenem, #> pentisomicin, plazomicin, propikacin, razupenem, ribostamycin, ritipenem, #> ritipenem acoxil, sisomicin, streptoduocin, streptomycin, #> streptomycin-high, tebipenem, and tobramycin-high #> # An Antibiogram: 10 × 7 #>    Pathogen       Amikacin    Gentamicin Imipenem Kanamycin Meropenem Tobramycin #>  * <chr>          <chr>       <chr>      <chr>    <chr>     <chr>     <chr>      #>  1 CoNS           0% (0/43)   86% (267/… 52% (25… 0% (0/43) 52% (25/… 22% (12/5… #>  2 E. coli        100% (171/… 98% (451/… 100% (4… NA        100% (41… 97% (450/… #>  3 E. faecalis    0% (0/39)   0% (0/39)  100% (3… 0% (0/39) NA        0% (0/39)  #>  4 K. pneumoniae  NA          90% (52/5… 100% (5… NA        100% (53… 90% (52/5… #>  5 P. aeruginosa  NA          100% (30/… NA       0% (0/30) NA        100% (30/… #>  6 P. mirabilis   NA          94% (32/3… 94% (30… NA        NA        94% (32/3… #>  7 S. aureus      NA          99% (231/… NA       NA        NA        98% (84/8… #>  8 S. epidermidis 0% (0/44)   79% (128/… NA       0% (0/44) NA        51% (45/8… #>  9 S. hominis     NA          92% (74/8… NA       NA        NA        85% (53/6… #> 10 S. pneumoniae  0% (0/117)  0% (0/117) NA       0% (0/11… NA        0% (0/117) #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  antibiogram(example_isolates,   antibiotics = aminoglycosides(),   ab_transform = \"atc\",   mo_transform = \"gramstain\" ) #> ℹ The function aminoglycosides() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(aminoglycosides()) #>   • your_data %>% select(column_a, column_b, aminoglycosides()) #>   • your_data %>% filter(any(aminoglycosides() == \"R\")) #>   • your_data[, aminoglycosides()] #>   • your_data[, c(\"column_a\", \"column_b\", aminoglycosides())] #>  #> Now returning a vector of all possible antimicrobials that #> aminoglycosides() can select. #> Warning: The following antibiotics were not available and ignored: #> amikacin/fosfomycin, apramycin, arbekacin, astromicin, bekanamycin, #> dibekacin, framycetin, gentamicin-high, habekacin, hygromycin, isepamicin, #> kanamycin-high, kanamycin/cephalexin, micronomicin, neomycin, netilmicin, #> pentisomicin, plazomicin, propikacin, ribostamycin, sisomicin, #> streptoduocin, streptomycin, streptomycin-high, and tobramycin-high #> # An Antibiogram: 2 × 5 #>   Pathogen      J01GB01       J01GB03        J01GB04    J01GB06       #> * <chr>         <chr>         <chr>          <chr>      <chr>         #> 1 Gram-negative 96% (658/686) 96% (659/684)  0% (0/35)  98% (251/256) #> 2 Gram-positive 34% (228/665) 63% (740/1170) 0% (0/436) 0% (0/436)    #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  antibiogram(example_isolates,   antibiotics = carbapenems(),   ab_transform = \"name\",   mo_transform = \"name\" ) #> ℹ The function carbapenems() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(carbapenems()) #>   • your_data %>% select(column_a, column_b, carbapenems()) #>   • your_data %>% filter(any(carbapenems() == \"R\")) #>   • your_data[, carbapenems()] #>   • your_data[, c(\"column_a\", \"column_b\", carbapenems())] #>  #> Now returning a vector of all possible antimicrobials that carbapenems() #> can select. #> Warning: The following antibiotics were not available and ignored: biapenem, #> doripenem, ertapenem, imipenem/EDTA, imipenem/relebactam, #> meropenem/nacubactam, meropenem/vaborbactam, panipenem, razupenem, #> ritipenem, ritipenem acoxil, and tebipenem #> # An Antibiogram: 5 × 3 #>   Pathogen                                 Imipenem       Meropenem      #> * <chr>                                    <chr>          <chr>          #> 1 Coagulase-negative Staphylococcus (CoNS) 52% (25/48)    52% (25/48)    #> 2 Enterococcus faecalis                    100% (38/38)   NA             #> 3 Escherichia coli                         100% (422/422) 100% (418/418) #> 4 Klebsiella pneumoniae                    100% (51/51)   100% (53/53)   #> 5 Proteus mirabilis                        94% (30/32)    NA             #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram   # Combined antibiogram -------------------------------------------------  # combined antibiotics yield higher empiric coverage antibiogram(example_isolates,   antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),   mo_transform = \"gramstain\" ) #> # An Antibiogram: 2 × 4 #>   Pathogen  Piperacillin/tazobac…¹ Piperacillin/tazobac…² Piperacillin/tazobac…³ #> * <chr>     <chr>                  <chr>                  <chr>                  #> 1 Gram-neg… 88% (565/641)          99% (681/691)          98% (679/693)          #> 2 Gram-pos… 86% (296/345)          98% (1018/1044)        95% (524/550)          #> # ℹ abbreviated names: ¹​`Piperacillin/tazobactam`, #> #   ²​`Piperacillin/tazobactam + Gentamicin`, #> #   ³​`Piperacillin/tazobactam + Tobramycin` #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  # names of antibiotics do not need to resemble columns exactly: antibiogram(example_isolates,   antibiotics = c(\"Cipro\", \"cipro + genta\"),   mo_transform = \"gramstain\",   ab_transform = \"name\",   sep = \" & \" ) #> # An Antibiogram: 2 × 3 #>   Pathogen      Ciprofloxacin `Ciprofloxacin & Gentamicin` #> * <chr>         <chr>         <chr>                        #> 1 Gram-negative 91% (621/684) 99% (684/694)                #> 2 Gram-positive 77% (560/724) 93% (784/847)                #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram   # Syndromic antibiogram ------------------------------------------------  # the data set could contain a filter for e.g. respiratory specimens antibiogram(example_isolates,   antibiotics = c(aminoglycosides(), carbapenems()),   syndromic_group = \"ward\" ) #> ℹ The function aminoglycosides() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(aminoglycosides()) #>   • your_data %>% select(column_a, column_b, aminoglycosides()) #>   • your_data %>% filter(any(aminoglycosides() == \"R\")) #>   • your_data[, aminoglycosides()] #>   • your_data[, c(\"column_a\", \"column_b\", aminoglycosides())] #>  #> Now returning a vector of all possible antimicrobials that #> aminoglycosides() can select. #> ℹ The function carbapenems() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(carbapenems()) #>   • your_data %>% select(column_a, column_b, carbapenems()) #>   • your_data %>% filter(any(carbapenems() == \"R\")) #>   • your_data[, carbapenems()] #>   • your_data[, c(\"column_a\", \"column_b\", carbapenems())] #>  #> Now returning a vector of all possible antimicrobials that carbapenems() #> can select. #> Warning: The following antibiotics were not available and ignored: #> amikacin/fosfomycin, apramycin, arbekacin, astromicin, bekanamycin, #> biapenem, dibekacin, doripenem, ertapenem, framycetin, gentamicin-high, #> habekacin, hygromycin, imipenem/EDTA, imipenem/relebactam, isepamicin, #> kanamycin-high, kanamycin/cephalexin, meropenem/nacubactam, #> meropenem/vaborbactam, micronomicin, neomycin, netilmicin, panipenem, #> pentisomicin, plazomicin, propikacin, razupenem, ribostamycin, ritipenem, #> ritipenem acoxil, sisomicin, streptoduocin, streptomycin, #> streptomycin-high, tebipenem, and tobramycin-high #> # An Antibiogram: 14 × 8 #>    `Syndromic Group` Pathogen   Amikacin Gentamicin Imipenem Kanamycin Meropenem #>  * <chr>             <chr>      <chr>    <chr>      <chr>    <chr>     <chr>     #>  1 Clinical          CoNS       NA       89% (183/… 57% (20… NA        57% (20/… #>  2 ICU               CoNS       NA       79% (58/7… NA       NA        NA        #>  3 Outpatient        CoNS       NA       84% (26/3… NA       NA        NA        #>  4 Clinical          E. coli    100% (1… 98% (291/… 100% (2… NA        100% (27… #>  5 ICU               E. coli    100% (5… 99% (135/… 100% (1… NA        100% (11… #>  6 Clinical          K. pneumo… NA       92% (47/5… 100% (4… NA        100% (46… #>  7 Clinical          P. mirabi… NA       100% (30/… NA       NA        NA        #>  8 Clinical          S. aureus  NA       99% (148/… NA       NA        NA        #>  9 ICU               S. aureus  NA       100% (66/… NA       NA        NA        #> 10 Clinical          S. epider… NA       82% (65/7… NA       NA        NA        #> 11 ICU               S. epider… NA       72% (54/7… NA       NA        NA        #> 12 Clinical          S. hominis NA       96% (43/4… NA       NA        NA        #> 13 Clinical          S. pneumo… 0% (0/7… 0% (0/78)  NA       0% (0/78) NA        #> 14 ICU               S. pneumo… 0% (0/3… 0% (0/30)  NA       0% (0/30) NA        #> # ℹ 1 more variable: Tobramycin <chr> #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  # now define a data set with only E. coli ex1 <- example_isolates[which(mo_genus() == \"Escherichia\"), ] #> ℹ Using column 'mo' as input for mo_genus()  # with a custom language, though this will be determined automatically # (i.e., this table will be in Spanish on Spanish systems) antibiogram(ex1,   antibiotics = aminoglycosides(),   ab_transform = \"name\",   syndromic_group = ifelse(ex1$ward == \"ICU\",     \"UCI\", \"No UCI\"   ),   language = \"es\" ) #> ℹ The function aminoglycosides() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(aminoglycosides()) #>   • your_data %>% select(column_a, column_b, aminoglycosides()) #>   • your_data %>% filter(any(aminoglycosides() == \"R\")) #>   • your_data[, aminoglycosides()] #>   • your_data[, c(\"column_a\", \"column_b\", aminoglycosides())] #>  #> Now returning a vector of all possible antimicrobials that #> aminoglycosides() can select. #> Warning: The following antibiotics were not available and ignored: #> amikacin/fosfomycin, apramycin, arbekacin, astromicin, bekanamycin, #> dibekacin, framycetin, gentamicin-high, habekacin, hygromycin, isepamicin, #> kanamycin-high, kanamycin/cephalexin, micronomicin, neomycin, netilmicin, #> pentisomicin, plazomicin, propikacin, ribostamycin, sisomicin, #> streptoduocin, streptomycin, streptomycin-high, and tobramycin-high #> # An Antibiogram: 2 × 5 #>   `Grupo sindrómico` Patógeno Amikacina      Gentamicina   Tobramicina   #> * <chr>              <chr>    <chr>          <chr>         <chr>         #> 1 No UCI             E. coli  100% (119/119) 98% (316/323) 98% (318/325) #> 2 UCI                E. coli  100% (52/52)   99% (135/137) 96% (132/137) #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram   # Weighted-incidence syndromic combination antibiogram (WISCA) ---------  # the data set could contain a filter for e.g. respiratory specimens/ICU antibiogram(example_isolates,   antibiotics = c(\"AMC\", \"AMC+CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\",   minimum = 10, # this should be >=30, but now just as example   syndromic_group = ifelse(example_isolates$age >= 65 &     example_isolates$gender == \"M\",   \"WISCA Group 1\", \"WISCA Group 2\"   ) ) #> # An Antibiogram: 4 × 6 #>   `Syndromic Group` Pathogen      Amoxicillin/clavulani…¹ Amoxicillin/clavulan…² #> * <chr>             <chr>         <chr>                   <chr>                  #> 1 WISCA Group 1     Gram-negative 76% (216/285)           95% (270/284)          #> 2 WISCA Group 2     Gram-negative 76% (336/441)           98% (432/442)          #> 3 WISCA Group 1     Gram-positive 76% (310/406)           89% (347/392)          #> 4 WISCA Group 2     Gram-positive 76% (556/732)           89% (617/695)          #> # ℹ abbreviated names: ¹​`Amoxicillin/clavulanic acid`, #> #   ²​`Amoxicillin/clavulanic acid + Ciprofloxacin` #> # ℹ 2 more variables: `Piperacillin/tazobactam` <chr>, #> #   `Piperacillin/tazobactam + Tobramycin` <chr> #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram   # Print the output for R Markdown / Quarto -----------------------------  ureido <- antibiogram(example_isolates,   antibiotics = ureidopenicillins(),   ab_transform = \"name\" ) #> ℹ The function ureidopenicillins() should be used inside a dplyr verb #>   or data.frame call, e.g.: #>   • your_data %>% select(ureidopenicillins()) #>   • your_data %>% select(column_a, column_b, ureidopenicillins()) #>   • your_data %>% filter(any(ureidopenicillins() == \"R\")) #>   • your_data[, ureidopenicillins()] #>   • your_data[, c(\"column_a\", \"column_b\", ureidopenicillins())] #>  #> Now returning a vector of all possible antimicrobials that #> ureidopenicillins() can select. #> Warning: The following antibiotics were not available and ignored: azlocillin, #> mezlocillin, and piperacillin  # in an Rmd file, you would just need to return `ureido` in a chunk, # but to be explicit here: if (requireNamespace(\"knitr\")) {   cat(knitr::knit_print(ureido)) } #>  #>  #> |Pathogen        |Piperacillin/tazobactam | #> |:---------------|:-----------------------| #> |CoNS            |30% (10/33)             | #> |*E. coli*       |94% (393/416)           | #> |*K. pneumoniae* |89% (47/53)             | #> |*S. pneumoniae* |100% (112/112)          |   # Generate plots with ggplot2 or base R --------------------------------  ab1 <- antibiogram(example_isolates,   antibiotics = c(\"AMC\", \"CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\" ) ab2 <- antibiogram(example_isolates,   antibiotics = c(\"AMC\", \"CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\",   syndromic_group = \"ward\" )  if (requireNamespace(\"ggplot2\")) {   ggplot2::autoplot(ab1) }  if (requireNamespace(\"ggplot2\")) {   ggplot2::autoplot(ab2) }   plot(ab1)  plot(ab2)  # }"},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":null,"dir":"Reference","previous_headings":"","what":"Antibiotic Selectors — antibiotic_class_selectors","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"functions allow filtering rows selecting columns based antibiotic test results specific antibiotic class group (according antibiotics data set), without need define columns antibiotic abbreviations. short, column name resembles antimicrobial drug, picked functions matches pharmaceutical class: \"cefazolin\", \"kefzol\", \"CZO\" \"J01DB04\" picked cephalosporins().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"","code":"ab_class(ab_class, only_sir_columns = FALSE, only_treatable = TRUE, ...)  ab_selector(filter, only_sir_columns = FALSE, only_treatable = TRUE, ...)  aminoglycosides(only_sir_columns = FALSE, only_treatable = TRUE, ...)  aminopenicillins(only_sir_columns = FALSE, ...)  antifungals(only_sir_columns = FALSE, ...)  antimycobacterials(only_sir_columns = FALSE, ...)  betalactams(only_sir_columns = FALSE, only_treatable = TRUE, ...)  betalactams_with_inhibitor(only_sir_columns = FALSE, ...)  carbapenems(only_sir_columns = FALSE, only_treatable = TRUE, ...)  cephalosporins(only_sir_columns = FALSE, ...)  cephalosporins_1st(only_sir_columns = FALSE, ...)  cephalosporins_2nd(only_sir_columns = FALSE, ...)  cephalosporins_3rd(only_sir_columns = FALSE, ...)  cephalosporins_4th(only_sir_columns = FALSE, ...)  cephalosporins_5th(only_sir_columns = FALSE, ...)  fluoroquinolones(only_sir_columns = FALSE, ...)  glycopeptides(only_sir_columns = FALSE, ...)  lincosamides(only_sir_columns = FALSE, only_treatable = TRUE, ...)  lipoglycopeptides(only_sir_columns = FALSE, ...)  macrolides(only_sir_columns = FALSE, ...)  nitrofurans(only_sir_columns = FALSE, ...)  oxazolidinones(only_sir_columns = FALSE, ...)  penicillins(only_sir_columns = FALSE, ...)  polymyxins(only_sir_columns = FALSE, only_treatable = TRUE, ...)  quinolones(only_sir_columns = FALSE, ...)  rifamycins(only_sir_columns = FALSE, ...)  streptogramins(only_sir_columns = FALSE, ...)  tetracyclines(only_sir_columns = FALSE, ...)  trimethoprims(only_sir_columns = FALSE, ...)  ureidopenicillins(only_sir_columns = FALSE, ...)  administrable_per_os(only_sir_columns = FALSE, ...)  administrable_iv(only_sir_columns = FALSE, ...)  not_intrinsic_resistant(   only_sir_columns = FALSE,   col_mo = NULL,   version_expertrules = 3.3,   ... )"},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"ab_class antimicrobial class part , \"carba\" \"carbapenems\". columns group, atc_group1 atc_group2 antibiotics data set searched (case-insensitive) value. only_sir_columns logical indicate whether columns class sir must selected (default FALSE), see .sir() only_treatable logical indicate whether antimicrobial drugs excluded laboratory tests (default TRUE), gentamicin-high (GEH) imipenem/EDTA (IPE) ... ignored, place allow future extensions filter expression evaluated antibiotics data set, name %like% \"trim\" col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can \"3.3\", \"3.2\", \"3.1\".","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"used inside selecting filtering, returns character vector column names, additional class \"ab_selector\". used individually, returns 'ab' vector possible antimicrobial function able select filter.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"functions can used data set calls selecting columns filtering rows. work base R, Tidyverse, data.table. heavily inspired Tidyverse selection helpers everything(), limited dplyr verbs. Nonetheless, convenient use dplyr functions select(), filter() summarise(), see Examples. columns data functions called searched known antibiotic names, abbreviations, brand names, codes (ATC, EARS-Net, , etc.) according antibiotics data set. means selector aminoglycosides() pick column names like 'gen', 'genta', 'J01GB03', 'tobra', 'Tobracin', etc. ab_class() function can used filter/select manually defined antibiotic class. searches results antibiotics data set within columns group, atc_group1 atc_group2. ab_selector() function can used internally filter antibiotics data set results, see Examples. allows filtering (part ) certain name, /group name even minimum DDDs oral treatment. function yields highest flexibility, also least user-friendly, since requires hard-coded filter set. administrable_per_os() administrable_iv() functions also rely antibiotics data set - antibiotic columns matched DDD (defined daily dose) resp. oral IV treatment available antibiotics data set. not_intrinsic_resistant() function can used select antibiotic columns pose intrinsic resistance microorganisms data set. example, data set contains microorganism codes names E. coli K. pneumoniae contains column \"vancomycin\", column removed (rather, unselected) using function. currently applies 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021) determine intrinsic resistance, using eucast_rules() function internally. determination, function quite slow terms performance.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"full-list-of-supported-antibiotic-classes","dir":"Reference","previous_headings":"","what":"Full list of supported (antibiotic) classes","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"aminoglycosides() can select:  amikacin (AMK), amikacin/fosfomycin (AKF), apramycin (APR), arbekacin (ARB), astromicin (AST), bekanamycin (BEK), dibekacin (DKB), framycetin (FRM), gentamicin (GEN), gentamicin-high (GEH), habekacin (HAB), hygromycin (HYG), isepamicin (ISE), kanamycin (KAN), kanamycin-high (KAH), kanamycin/cephalexin (KAC), micronomicin (MCR), neomycin (NEO), netilmicin (NET), pentisomicin (PIM), plazomicin (PLZ), propikacin (PKA), ribostamycin (RST), sisomicin (SIS), streptoduocin (STR), streptomycin (STR1), streptomycin-high (STH), tobramycin (TOB), tobramycin-high (TOH) aminopenicillins() can select:  amoxicillin (AMX) ampicillin (AMP) antifungals() can select:  amorolfine (AMO), amphotericin B (AMB), amphotericin B-high (AMH), anidulafungin (ANI), butoconazole (), caspofungin (CAS), ciclopirox (CIX), clotrimazole (CTR), econazole (ECO), fluconazole (FLU), flucytosine (FCT), fosfluconazole (FFL), griseofulvin (GRI), hachimycin (HCH), ibrexafungerp (IBX), isavuconazole (ISV), isoconazole (ISO), itraconazole (ITR), ketoconazole (KET), manogepix (MGX), micafungin (MIF), miconazole (MCZ), nystatin (NYS), oteseconazole (OTE), pimaricin (PMR), posaconazole (POS), rezafungin (RZF), ribociclib (RBC), sulconazole (SUC), terbinafine (TRB), terconazole (TRC), voriconazole (VOR) antimycobacterials() can select:  4-aminosalicylic acid (AMA), calcium aminosalicylate (CLA), capreomycin (CAP), clofazimine (CLF), delamanid (DLM), enviomycin (ENV), ethambutol (ETH), ethambutol/isoniazid (ETI), ethionamide (ETI1), isoniazid (INH), isoniazid/sulfamethoxazole/trimethoprim/pyridoxine (IST), morinamide (MRN), p-aminosalicylic acid (PAS), pretomanid (PMD), protionamide (PTH), pyrazinamide (PZA), rifabutin (RIB), rifampicin (RIF), rifampicin/ethambutol/isoniazid (REI), rifampicin/isoniazid (RFI), rifampicin/pyrazinamide/ethambutol/isoniazid (RPEI), rifampicin/pyrazinamide/isoniazid (RPI), rifamycin (RFM), rifapentine (RFP), simvastatin/fenofibrate (SMF), sodium aminosalicylate (SDA), streptomycin/isoniazid (STI), terizidone (TRZ), thioacetazone (TAT), thioacetazone/isoniazid (THI1), tiocarlide (TCR), viomycin (VIO) betalactams() can select:  amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin (AMP), ampicillin/sulbactam (SAM), apalcillin (APL), aspoxicillin (APX), avibactam (AVB), azidocillin (AZD), azlocillin (AZL), aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), biapenem (BIA), carbenicillin (CRB), carindacillin (CRN), cefacetrile (CAC), cefaclor (CEC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefamandole (MAN), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/nacubactam (FNC), cefepime/tazobactam (FPT), cefetamet (CAT), cefetamet pivoxil (CPI), cefetecol (CCL), cefetrizole (CZL), cefiderocol (FDC), cefixime (CFM), cefmenoxime (CMX), cefmetazole (CMZ), cefodizime (DIZ), cefonicid (CID), cefoperazone (CFP), cefoperazone/sulbactam (CSL), ceforanide (CND), cefoselis (CSE), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotetan (CTT), cefotiam (CTF), cefotiam hexetil (CHE), cefovecin (FOV), cefoxitin (FOX), cefoxitin screening (FOX1), cefozopran (ZOP), cefpimizole (CFZ), cefpiramide (CPM), cefpirome (CPO), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefprozil (CPR), cefquinome (CEQ), cefroxadine (CRD), cefsulodin (CFS), cefsumide (CSU), ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftezole (CTL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), cefuroxime (CXM), cefuroxime axetil (CXA), cephradine (CED), ciclacillin (CIC), clometocillin (CLM), cloxacillin (CLO), dicloxacillin (DIC), doripenem (DOR), epicillin (EPC), ertapenem (ETP), flucloxacillin (FLC), hetacillin (HET), imipenem (IPM), imipenem/EDTA (IPE), imipenem/relebactam (IMR), latamoxef (LTM), lenampicillin (LEN), loracarbef (LOR), mecillinam (MEC), meropenem (MEM), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), metampicillin (MTM), meticillin (MET), mezlocillin (MEZ), mezlocillin/sulbactam (MSU), nacubactam (NAC), nafcillin (NAF), oxacillin (OXA), panipenem (PAN), penamecillin (PNM), penicillin/novobiocin (PNO), penicillin/sulbactam (PSU), pheneticillin (PHE), phenoxymethylpenicillin (PHN), piperacillin (PIP), piperacillin/sulbactam (PIS), piperacillin/tazobactam (TZP), piridicillin (PRC), pivampicillin (PVM), pivmecillinam (PME), procaine benzylpenicillin (PRB), propicillin (PRP), razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), sarmoxicillin (SRX), sulbactam (SUL), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), tazobactam (TAZ), tebipenem (TBP), temocillin (TEM), ticarcillin (TIC), ticarcillin/clavulanic acid (TCC) betalactams_with_inhibitor() can select:  amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin/sulbactam (SAM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), cefepime/clavulanic acid (CPC), cefepime/nacubactam (FNC), cefepime/tazobactam (FPT), cefoperazone/sulbactam (CSL), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefpodoxime/clavulanic acid (CDC), ceftaroline/avibactam (CPA), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), ceftolozane/tazobactam (CZT), ceftriaxone/beta-lactamase inhibitor (CEB), imipenem/relebactam (IMR), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), mezlocillin/sulbactam (MSU), penicillin/novobiocin (PNO), penicillin/sulbactam (PSU), piperacillin/sulbactam (PIS), piperacillin/tazobactam (TZP), ticarcillin/clavulanic acid (TCC) carbapenems() can select:  biapenem (BIA), doripenem (DOR), ertapenem (ETP), imipenem (IPM), imipenem/EDTA (IPE), imipenem/relebactam (IMR), meropenem (MEM), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), panipenem (PAN), razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), tebipenem (TBP) cephalosporins() can select:  cefacetrile (CAC), cefaclor (CEC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefamandole (MAN), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/tazobactam (FPT), cefetamet (CAT), cefetamet pivoxil (CPI), cefetecol (CCL), cefetrizole (CZL), cefiderocol (FDC), cefixime (CFM), cefmenoxime (CMX), cefmetazole (CMZ), cefodizime (DIZ), cefonicid (CID), cefoperazone (CFP), cefoperazone/sulbactam (CSL), ceforanide (CND), cefoselis (CSE), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotetan (CTT), cefotiam (CTF), cefotiam hexetil (CHE), cefovecin (FOV), cefoxitin (FOX), cefoxitin screening (FOX1), cefozopran (ZOP), cefpimizole (CFZ), cefpiramide (CPM), cefpirome (CPO), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefprozil (CPR), cefquinome (CEQ), cefroxadine (CRD), cefsulodin (CFS), cefsumide (CSU), ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftezole (CTL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), cefuroxime (CXM), cefuroxime axetil (CXA), cephradine (CED), latamoxef (LTM), loracarbef (LOR) cephalosporins_1st() can select:  cefacetrile (CAC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefroxadine (CRD), ceftezole (CTL), cephradine (CED) cephalosporins_2nd() can select:  cefaclor (CEC), cefamandole (MAN), cefmetazole (CMZ), cefonicid (CID), ceforanide (CND), cefotetan (CTT), cefotiam (CTF), cefoxitin (FOX), cefoxitin screening (FOX1), cefprozil (CPR), cefuroxime (CXM), cefuroxime axetil (CXA), loracarbef (LOR) cephalosporins_3rd() can select:  cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefetamet (CAT), cefetamet pivoxil (CPI), cefixime (CFM), cefmenoxime (CMX), cefodizime (DIZ), cefoperazone (CFP), cefoperazone/sulbactam (CSL), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotiam hexetil (CHE), cefovecin (FOV), cefpimizole (CFZ), cefpiramide (CPM), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefsulodin (CFS), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), latamoxef (LTM) cephalosporins_4th() can select:  cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/tazobactam (FPT), cefetecol (CCL), cefoselis (CSE), cefozopran (ZOP), cefpirome (CPO), cefquinome (CEQ) cephalosporins_5th() can select:  ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT) fluoroquinolones() can select:  besifloxacin (BES), ciprofloxacin (CIP), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nifuroquine (NIF), norfloxacin (), ofloxacin (OFX), orbifloxacin (ORB), pazufloxacin (PAZ), pefloxacin (PEF), pradofloxacin (PRA), premafloxacin (PRX), prulifloxacin (PRU), rufloxacin (RFL), sarafloxacin (SAR), sitafloxacin (SIT), sparfloxacin (SPX), temafloxacin (TMX), tilbroquinol (TBQ), tioxacin (TXC), tosufloxacin (TFX), trovafloxacin (TVA) glycopeptides() can select:  avoparcin (AVO), dalbavancin (DAL), norvancomycin (NVA), oritavancin (ORI), ramoplanin (RAM), teicoplanin (TEC), teicoplanin-macromethod (TCM), telavancin (TLV), vancomycin (VAN), vancomycin-macromethod (VAM) lincosamides() can select:  acetylmidecamycin (ACM), acetylspiramycin (ASP), clindamycin (CLI), clindamycin inducible screening (CLI1), gamithromycin (GAM), kitasamycin (KIT), lincomycin (LIN), meleumycin (MEL), nafithromycin (ZWK), pirlimycin (PRL), primycin (PRM), solithromycin (SOL), tildipirosin (TIP), tilmicosin (TIL), tulathromycin (TUL), tylosin (TYL), tylvalosin (TYL1) lipoglycopeptides() can select:  dalbavancin (DAL), oritavancin (ORI), telavancin (TLV) macrolides() can select:  acetylmidecamycin (ACM), acetylspiramycin (ASP), azithromycin (AZM), clarithromycin (CLR), dirithromycin (DIR), erythromycin (ERY), flurithromycin (FLR1), gamithromycin (GAM), josamycin (JOS), kitasamycin (KIT), meleumycin (MEL), midecamycin (MID), miocamycin (MCM), nafithromycin (ZWK), oleandomycin (OLE), pirlimycin (PRL), primycin (PRM), rokitamycin (ROK), roxithromycin (RXT), solithromycin (SOL), spiramycin (SPI), telithromycin (TLT), tildipirosin (TIP), tilmicosin (TIL), troleandomycin (TRL), tulathromycin (TUL), tylosin (TYL), tylvalosin (TYL1) nitrofurans() can select:  furazidin (FUR), furazolidone (FRZ), nifurtoinol (NFR), nitrofurantoin (NIT), nitrofurazone (NIZ) oxazolidinones() can select:  cadazolid (CDZ), cycloserine (CYC), linezolid (LNZ), tedizolid (TZD), thiacetazone (THA) penicillins() can select:  amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin (AMP), ampicillin/sulbactam (SAM), apalcillin (APL), aspoxicillin (APX), avibactam (AVB), azidocillin (AZD), azlocillin (AZL), aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), carbenicillin (CRB), carindacillin (CRN), cefepime/nacubactam (FNC), ciclacillin (CIC), clometocillin (CLM), cloxacillin (CLO), dicloxacillin (DIC), epicillin (EPC), flucloxacillin (FLC), hetacillin (HET), lenampicillin (LEN), mecillinam (MEC), metampicillin (MTM), meticillin (MET), mezlocillin (MEZ), mezlocillin/sulbactam (MSU), nacubactam (NAC), nafcillin (NAF), oxacillin (OXA), penamecillin (PNM), penicillin/novobiocin (PNO), penicillin/sulbactam (PSU), pheneticillin (PHE), phenoxymethylpenicillin (PHN), piperacillin (PIP), piperacillin/sulbactam (PIS), piperacillin/tazobactam (TZP), piridicillin (PRC), pivampicillin (PVM), pivmecillinam (PME), procaine benzylpenicillin (PRB), propicillin (PRP), sarmoxicillin (SRX), sulbactam (SUL), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), tazobactam (TAZ), temocillin (TEM), ticarcillin (TIC), ticarcillin/clavulanic acid (TCC) polymyxins() can select:  colistin (COL), polymyxin B (PLB), polymyxin B/polysorbate 80 (POP) quinolones() can select:  besifloxacin (BES), cinoxacin (CIN), ciprofloxacin (CIP), ciprofloxacin/metronidazole (CIM), ciprofloxacin/ornidazole (CIO), ciprofloxacin/tinidazole (CIT), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), flumequine (FLM), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nalidixic acid (NAL), nemonoxacin (NEM), nifuroquine (NIF), nitroxoline (NTR), norfloxacin (), ofloxacin (OFX), orbifloxacin (ORB), oxolinic acid (OXO), pazufloxacin (PAZ), pefloxacin (PEF), pipemidic acid (PPA), piromidic acid (PIR), pradofloxacin (PRA), premafloxacin (PRX), prulifloxacin (PRU), rosoxacin (ROS), rufloxacin (RFL), sarafloxacin (SAR), sitafloxacin (SIT), sparfloxacin (SPX), temafloxacin (TMX), tilbroquinol (TBQ), tioxacin (TXC), tosufloxacin (TFX), trovafloxacin (TVA) rifamycins() can select:  rifabutin (RIB), rifampicin (RIF), rifampicin/ethambutol/isoniazid (REI), rifampicin/isoniazid (RFI), rifampicin/pyrazinamide/ethambutol/isoniazid (RPEI), rifampicin/pyrazinamide/isoniazid (RPI), rifamycin (RFM), rifapentine (RFP) streptogramins() can select:  pristinamycin (PRI) quinupristin/dalfopristin (QDA) tetracyclines() can select:  cetocycline (CTO), chlortetracycline (CTE), clomocycline (CLM1), demeclocycline (DEM), doxycycline (DOX), eravacycline (ERV), lymecycline (LYM), metacycline (MTC), minocycline (MNO), omadacycline (OMC), oxytetracycline (OXY), penimepicycline (PNM1), rolitetracycline (RLT), sarecycline (SRC), tetracycline (TCY), tigecycline (TGC) trimethoprims() can select:  brodimoprim (BDP), sulfadiazine (SDI), sulfadiazine/tetroxoprim (SLT), sulfadiazine/trimethoprim (SLT1), sulfadimethoxine (SUD), sulfadimidine (SDM), sulfadimidine/trimethoprim (SLT2), sulfafurazole (SLF), sulfaisodimidine (SLF1), sulfalene (SLF2), sulfamazone (SZO), sulfamerazine (SLF3), sulfamerazine/trimethoprim (SLT3), sulfamethizole (SLF4), sulfamethoxazole (SMX), sulfamethoxypyridazine (SLF5), sulfametomidine (SLF6), sulfametoxydiazine (SLF7), sulfametrole/trimethoprim (SLT4), sulfamoxole (SLF8), sulfamoxole/trimethoprim (SLT5), sulfanilamide (SLF9), sulfaperin (SLF10), sulfaphenazole (SLF11), sulfapyridine (SLF12), sulfathiazole (SUT), sulfathiourea (SLF13), trimethoprim (TMP), trimethoprim/sulfamethoxazole (SXT) ureidopenicillins() can select:  azlocillin (AZL), mezlocillin (MEZ), piperacillin (PIP), piperacillin/tazobactam (TZP)","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …   # you can use the selectors separately to retrieve all possible antimicrobials: carbapenems() #> ℹ The function carbapenems() should be used inside a dplyr verb or #>   data.frame call, e.g.: #>   • your_data %>% select(carbapenems()) #>   • your_data %>% select(column_a, column_b, carbapenems()) #>   • your_data %>% filter(any(carbapenems() == \"R\")) #>   • your_data[, carbapenems()] #>   • your_data[, c(\"column_a\", \"column_b\", carbapenems())] #>  #> Now returning a vector of all possible antimicrobials that carbapenems() #> can select. #> Class 'ab' #>  [1] BIA DOR ETP IMR IPE IPM MEM MEV MNC PAN RIA RIT RZM TBP   # Though they are primarily intended to use for selections and filters. # Examples sections below are split into 'dplyr', 'base R', and 'data.table':  # \\donttest{ if (FALSE) { # \\dontrun{ # dplyr -------------------------------------------------------------------  library(dplyr, warn.conflicts = FALSE)  example_isolates %>% select(carbapenems())  # select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB' example_isolates %>% select(mo, aminoglycosides())  # you can combine selectors like you are used with tidyverse # e.g., for betalactams, but not the ones with an enzyme inhibitor: example_isolates %>% select(betalactams(), -betalactams_with_inhibitor())  # select only antibiotic columns with DDDs for oral treatment example_isolates %>% select(administrable_per_os())  # get AMR for all aminoglycosides e.g., per ward: example_isolates %>%   group_by(ward) %>%   summarise(across(aminoglycosides(),                    resistance))  # You can combine selectors with '&' to be more specific: example_isolates %>%   select(penicillins() & administrable_per_os())  # get AMR for only drugs that matter - no intrinsic resistance: example_isolates %>%   filter(mo_genus() %in% c(\"Escherichia\", \"Klebsiella\")) %>%   group_by(ward) %>%   summarise_at(not_intrinsic_resistant(),                resistance)  # get susceptibility for antibiotics whose name contains \"trim\": example_isolates %>%   filter(first_isolate()) %>%   group_by(ward) %>%   summarise(across(ab_selector(name %like% \"trim\"), susceptibility))  # this will select columns 'IPM' (imipenem) and 'MEM' (meropenem): example_isolates %>%   select(carbapenems())  # this will select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB': example_isolates %>%   select(mo, aminoglycosides())  # any() and all() work in dplyr's filter() too: example_isolates %>%   filter(     any(aminoglycosides() == \"R\"),     all(cephalosporins_2nd() == \"R\")   )  # also works with c(): example_isolates %>%   filter(any(c(carbapenems(), aminoglycosides()) == \"R\"))  # not setting any/all will automatically apply all(): example_isolates %>%   filter(aminoglycosides() == \"R\")  # this will select columns 'mo' and all antimycobacterial drugs ('RIF'): example_isolates %>%   select(mo, ab_class(\"mycobact\"))  # get bug/drug combinations for only glycopeptides in Gram-positives: example_isolates %>%   filter(mo_is_gram_positive()) %>%   select(mo, glycopeptides()) %>%   bug_drug_combinations() %>%   format()  data.frame(   some_column = \"some_value\",   J01CA01 = \"S\" ) %>% # ATC code of ampicillin   select(penicillins()) # only the 'J01CA01' column will be selected  # with recent versions of dplyr, this is all equal: x <- example_isolates[carbapenems() == \"R\", ] y <- example_isolates %>% filter(carbapenems() == \"R\") z <- example_isolates %>% filter(if_all(carbapenems(), ~ .x == \"R\")) identical(x, y) && identical(y, z)  } # } # base R ------------------------------------------------------------------  # select columns 'IPM' (imipenem) and 'MEM' (meropenem) example_isolates[, carbapenems()] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 2,000 × 2 #>    IPM   MEM   #>    <sir> <sir> #>  1 NA    NA    #>  2 NA    NA    #>  3 NA    NA    #>  4 NA    NA    #>  5 NA    NA    #>  6 NA    NA    #>  7 NA    NA    #>  8 NA    NA    #>  9 NA    NA    #> 10 NA    NA    #> # ℹ 1,990 more rows  # select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB' example_isolates[, c(\"mo\", aminoglycosides())] #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2,000 × 5 #>    mo           GEN   TOB   AMK   KAN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI NA    NA    NA    NA    #>  2 B_ESCHR_COLI NA    NA    NA    NA    #>  3 B_STPHY_EPDR NA    NA    NA    NA    #>  4 B_STPHY_EPDR NA    NA    NA    NA    #>  5 B_STPHY_EPDR NA    NA    NA    NA    #>  6 B_STPHY_EPDR NA    NA    NA    NA    #>  7 B_STPHY_AURS NA    S     NA    NA    #>  8 B_STPHY_AURS NA    S     NA    NA    #>  9 B_STPHY_EPDR NA    NA    NA    NA    #> 10 B_STPHY_EPDR NA    NA    NA    NA    #> # ℹ 1,990 more rows  # select only antibiotic columns with DDDs for oral treatment example_isolates[, administrable_per_os()] #> ℹ For administrable_per_os() using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 23 #>    OXA   FLC   AMX   AMC   AMP   CXM   KAN   TMP   NIT   FOS   LNZ   CIP   MFX   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    I     NA    R     NA    NA    R     NA    NA    #>  2 NA    NA    NA    I     NA    I     NA    R     NA    NA    R     NA    NA    #>  3 NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    NA    NA    #>  4 NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    NA    NA    #>  5 NA    R     NA    NA    NA    R     NA    R     NA    NA    NA    NA    NA    #>  6 NA    R     NA    NA    NA    R     NA    R     NA    NA    NA    NA    NA    #>  7 NA    S     R     S     R     S     NA    R     NA    NA    NA    NA    NA    #>  8 NA    S     R     S     R     S     NA    R     NA    NA    NA    NA    NA    #>  9 NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    S     NA    #> 10 NA    S     NA    NA    NA    S     NA    S     NA    NA    NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 10 more variables: VAN <sir>, TCY <sir>, DOX <sir>, ERY <sir>, CLI <sir>, #> #   AZM <sir>, MTR <sir>, CHL <sir>, COL <sir>, RIF <sir>  # filter using any() or all() example_isolates[any(carbapenems() == \"R\"), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 55 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  2 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  3 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP R     NA    NA    R     #>  4 2005-04-21 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  5 2005-04-22 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  6 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  7 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  8 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  9 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> 10 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> # ℹ 45 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … subset(example_isolates, any(carbapenems() == \"R\")) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 55 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  2 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  3 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP R     NA    NA    R     #>  4 2005-04-21 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  5 2005-04-22 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  6 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  7 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  8 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  9 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> 10 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> # ℹ 45 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter on any or all results in the carbapenem columns (i.e., IPM, MEM): example_isolates[any(carbapenems()), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Filtering any of columns 'IPM' and 'MEM' to contain value \"S\", \"I\" or \"R\" #> # A tibble: 962 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  4 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  5 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  6 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  7 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  8 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN R     NA    NA    R     #>  9 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN R     NA    NA    R     #> 10 2002-03-08 4FC193     69 M      Clinical B_ESCHR_COLI R     NA    NA    R     #> # ℹ 952 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … example_isolates[all(carbapenems()), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Filtering all of columns 'IPM' and 'MEM' to contain value \"S\", \"I\" or \"R\" #> # A tibble: 756 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-04-14 F30196     73 M      Outpat… B_STRPT_GRPB  S     NA    S     S     #>  2 2003-04-08 114570     74 M      ICU     B_STRPT_PYGN  S     NA    S     S     #>  3 2003-04-08 114570     74 M      ICU     B_STRPT_GRPA  S     NA    S     S     #>  4 2003-04-08 114570     74 M      ICU     B_STRPT_GRPA  S     NA    S     S     #>  5 2003-08-14 F71508      0 F      Clinic… B_STRPT_GRPB  S     NA    S     S     #>  6 2003-10-16 650870     63 F      ICU     B_ESCHR_COLI  R     NA    NA    R     #>  7 2003-10-20 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  8 2003-10-20 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  9 2003-11-04 2FC253     87 F      ICU     B_ESCHR_COLI  R     NA    NA    NA    #> 10 2003-11-04 2FC253     87 F      ICU     B_ESCHR_COLI  R     NA    NA    NA    #> # ℹ 746 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter with multiple antibiotic selectors using c() example_isolates[all(c(carbapenems(), aminoglycosides()) == \"R\"), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 26 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP R     NA    NA    R     #>  2 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  3 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  4 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  5 2008-12-06 501361     43 F      Clinical B_STNTR_MLTP R     NA    NA    R     #>  6 2011-05-09 207325     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  7 2012-03-12 582258     80 M      ICU      B_STPHY_CONS R     R     R     R     #>  8 2012-05-19 C25552     89 F      Outpati… B_STPHY_CONS R     R     R     R     #>  9 2012-07-17 F05015     83 M      ICU      B_STPHY_CONS R     R     R     R     #> 10 2012-07-20 404299     66 F      Clinical B_STPHY_CONS R     R     R     R     #> # ℹ 16 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter + select in one go: get penicillins in carbapenem-resistant strains example_isolates[any(carbapenems() == \"R\"), penicillins()] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> # A tibble: 55 × 7 #>    PEN   OXA   FLC   AMX   AMC   AMP   TZP   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    NA    NA    NA    NA    #>  2 NA    NA    NA    NA    NA    NA    NA    #>  3 R     NA    NA    R     R     R     R     #>  4 NA    NA    NA    NA    NA    NA    R     #>  5 NA    NA    NA    NA    NA    NA    R     #>  6 NA    NA    NA    NA    NA    NA    R     #>  7 NA    NA    NA    NA    NA    NA    R     #>  8 NA    NA    NA    NA    NA    NA    R     #>  9 R     NA    NA    NA    S     NA    S     #> 10 R     NA    NA    NA    S     NA    S     #> # ℹ 45 more rows  # You can combine selectors with '&' to be more specific. For example, # penicillins() would select benzylpenicillin ('peni G') and # administrable_per_os() would select erythromycin. Yet, when combined these # drugs are both omitted since benzylpenicillin is not administrable per os # and erythromycin is not a penicillin: example_isolates[, penicillins() & administrable_per_os()] #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> ℹ For administrable_per_os() using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 5 #>    OXA   FLC   AMX   AMC   AMP   #>    <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    #>  2 NA    NA    NA    I     NA    #>  3 NA    R     NA    NA    NA    #>  4 NA    R     NA    NA    NA    #>  5 NA    R     NA    NA    NA    #>  6 NA    R     NA    NA    NA    #>  7 NA    S     R     S     R     #>  8 NA    S     R     S     R     #>  9 NA    R     NA    NA    NA    #> 10 NA    S     NA    NA    NA    #> # ℹ 1,990 more rows  # ab_selector() applies a filter in the `antibiotics` data set and is thus # very flexible. For instance, to select antibiotic columns with an oral DDD # of at least 1 gram: example_isolates[, ab_selector(oral_ddd > 1 & oral_units == \"g\")] #> ℹ For ab_selector(oral_ddd > 1 & oral_units == \"g\") using columns 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), 'KAN' (kanamycin), 'FOS' #>   (fosfomycin), 'LNZ' (linezolid), 'VAN' (vancomycin), 'ERY' (erythromycin), #>   'CLI' (clindamycin), 'MTR' (metronidazole), and 'CHL' (chloramphenicol) #> # A tibble: 2,000 × 13 #>    OXA   FLC   AMX   AMC   AMP   KAN   FOS   LNZ   VAN   ERY   CLI   MTR   CHL   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    NA    NA    R     R     R     R     NA    NA    #>  2 NA    NA    NA    I     NA    NA    NA    R     R     R     R     NA    NA    #>  3 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #>  4 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #>  5 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #>  6 NA    R     NA    NA    NA    NA    NA    NA    S     R     R     NA    NA    #>  7 NA    S     R     S     R     NA    NA    NA    S     S     NA    NA    NA    #>  8 NA    S     R     S     R     NA    NA    NA    S     S     NA    NA    NA    #>  9 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #> 10 NA    S     NA    NA    NA    NA    NA    NA    S     S     NA    NA    NA    #> # ℹ 1,990 more rows   # data.table --------------------------------------------------------------  # data.table is supported as well, just use it in the same way as with # base R, but add `with = FALSE` if using a single AB selector.  if (require(\"data.table\")) {   dt <- as.data.table(example_isolates)    # this does not work, it returns column *names*   dt[, carbapenems()] } #> Loading required package: data.table #>  #> Attaching package: ‘data.table’ #> The following objects are masked from ‘package:dplyr’: #>  #>     between, first, last #> The following objects are masked from ‘package:AMR’: #>  #>     %like%, like #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> Warning: It should never be needed to print an antibiotic selector class. Are you #> using data.table? Then add the argument with = FALSE, see our examples at #> ?ab_selector. #> Class 'ab_selector' #> [1] IPM MEM if (require(\"data.table\")) {   # so `with = FALSE` is required   dt[, carbapenems(), with = FALSE] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #>         IPM   MEM #>       <sir> <sir> #>    1:  <NA>  <NA> #>    2:  <NA>  <NA> #>    3:  <NA>  <NA> #>    4:  <NA>  <NA> #>    5:  <NA>  <NA> #>   ---             #> 1996:  <NA>  <NA> #> 1997:     S     S #> 1998:     S     S #> 1999:     S     S #> 2000:     S     S  # for multiple selections or AB selectors, `with = FALSE` is not needed: if (require(\"data.table\")) {   dt[, c(\"mo\", aminoglycosides())] } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #>                 mo   GEN   TOB   AMK   KAN #>               <mo> <sir> <sir> <sir> <sir> #>    1: B_ESCHR_COLI  <NA>  <NA>  <NA>  <NA> #>    2: B_ESCHR_COLI  <NA>  <NA>  <NA>  <NA> #>    3: B_STPHY_EPDR  <NA>  <NA>  <NA>  <NA> #>    4: B_STPHY_EPDR  <NA>  <NA>  <NA>  <NA> #>    5: B_STPHY_EPDR  <NA>  <NA>  <NA>  <NA> #>   ---                                      #> 1996: B_STRPT_PNMN     R     R     R     R #> 1997: B_ESCHR_COLI     S     S     S  <NA> #> 1998: B_STPHY_CONS     S  <NA>  <NA>  <NA> #> 1999: B_ESCHR_COLI     S     S  <NA>  <NA> #> 2000: B_KLBSL_PNMN     S     S  <NA>  <NA> if (require(\"data.table\")) {   dt[, c(carbapenems(), aminoglycosides())] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #>         IPM   MEM   GEN   TOB   AMK   KAN #>       <sir> <sir> <sir> <sir> <sir> <sir> #>    1:  <NA>  <NA>  <NA>  <NA>  <NA>  <NA> #>    2:  <NA>  <NA>  <NA>  <NA>  <NA>  <NA> #>    3:  <NA>  <NA>  <NA>  <NA>  <NA>  <NA> #>    4:  <NA>  <NA>  <NA>  <NA>  <NA>  <NA> #>    5:  <NA>  <NA>  <NA>  <NA>  <NA>  <NA> #>   ---                                     #> 1996:  <NA>  <NA>     R     R     R     R #> 1997:     S     S     S     S     S  <NA> #> 1998:     S     S     S  <NA>  <NA>  <NA> #> 1999:     S     S     S     S  <NA>  <NA> #> 2000:     S     S     S     S  <NA>  <NA>  # row filters are also supported: if (require(\"data.table\")) {   dt[any(carbapenems() == \"S\"), ] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #>            date patient   age gender       ward           mo   PEN   OXA   FLC #>          <Date>  <char> <num> <char>     <char>         <mo> <sir> <sir> <sir> #>   1: 2002-01-19  738003    71      M   Clinical B_ESCHR_COLI     R  <NA>  <NA> #>   2: 2002-01-19  738003    71      M   Clinical B_ESCHR_COLI     R  <NA>  <NA> #>   3: 2002-01-22  F35553    50      M        ICU B_PROTS_MRBL     R  <NA>  <NA> #>   4: 2002-01-22  F35553    50      M        ICU B_PROTS_MRBL     R  <NA>  <NA> #>   5: 2002-02-05  067927    45      F        ICU B_SERRT_MRCS     R  <NA>  <NA> #>  ---                                                                           #> 905: 2005-04-12  D71461    70      M        ICU B_ESCHR_COLI     R  <NA>  <NA> #> 906: 2009-11-12  650870    69      F Outpatient B_ESCHR_COLI     R  <NA>  <NA> #> 907: 2012-06-14  8CBCF2    41      F   Clinical B_STPHY_CONS     R     S     S #> 908: 2012-10-11  175532    78      M   Clinical B_ESCHR_COLI     R  <NA>  <NA> #> 909: 2013-11-23  A97263    77      M   Clinical B_KLBSL_PNMN     R  <NA>  <NA> #>        AMX   AMC   AMP   TZP   CZO   FEP   CXM   FOX   CTX   CAZ   CRO   GEN #>      <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>   1:  <NA>     I  <NA>  <NA>  <NA>  <NA>     S  <NA>     S  <NA>     S  <NA> #>   2:  <NA>     I  <NA>  <NA>  <NA>  <NA>     S  <NA>     S  <NA>     S  <NA> #>   3:  <NA>     I  <NA>  <NA>  <NA>  <NA>     S  <NA>     S     S     S  <NA> #>   4:  <NA>     I  <NA>  <NA>  <NA>  <NA>     S  <NA>     S     S     S  <NA> #>   5:     R     R     R  <NA>     R  <NA>     R     R  <NA>  <NA>  <NA>  <NA> #>  ---                                                                         #> 905:     S     S     S     S  <NA>     S     S     S     S     S     S     S #> 906:     S     S     S     S     S     S     S     S     S     S     S     S #> 907:  <NA>     S  <NA>  <NA>     S     S     S     S     S     R     S     S #> 908:     R     S     R     S  <NA>     S     R     R     S     S     S     S #> 909:     R     S     R     S  <NA>     S     S     S     S     S     S     S #>        TOB   AMK   KAN   TMP   SXT   NIT   FOS   LNZ   CIP   MFX   VAN   TEC #>      <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>   1:     S  <NA>  <NA>     S     S  <NA>  <NA>     R  <NA>  <NA>     R     R #>   2:     S  <NA>  <NA>     S     S  <NA>  <NA>     R  <NA>  <NA>     R     R #>   3:  <NA>  <NA>  <NA>     S     S     R  <NA>     R     S  <NA>     R     R #>   4:  <NA>  <NA>  <NA>     S     S     R  <NA>     R     S  <NA>     R     R #>   5:  <NA>  <NA>  <NA>     S     S     R  <NA>     R     S  <NA>     R     R #>  ---                                                                         #> 905:     S     S  <NA>  <NA>     S     S  <NA>     R     S  <NA>     R     R #> 906:     S     S  <NA>     S     S     S  <NA>     R     S  <NA>     R     R #> 907:  <NA>  <NA>  <NA>     S     S  <NA>  <NA>  <NA>     S  <NA>     S  <NA> #> 908:     S  <NA>  <NA>     R     R     R  <NA>     R     R     R     R     R #> 909:     S  <NA>  <NA>     S     S     S  <NA>     R     S  <NA>     R     R #>        TCY   TGC   DOX   ERY   CLI   AZM   IPM   MEM   MTR   CHL   COL   MUP #>      <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>   1:  <NA>  <NA>  <NA>     R     R     R     S  <NA>  <NA>  <NA>  <NA>  <NA> #>   2:  <NA>  <NA>  <NA>     R     R     R     S  <NA>  <NA>  <NA>  <NA>  <NA> #>   3:     R     R     R     R     R     R     S  <NA>  <NA>  <NA>     R  <NA> #>   4:     R     R     R     R     R     R     S  <NA>  <NA>  <NA>     R  <NA> #>   5:     R     R     R     R     R     R     S  <NA>  <NA>  <NA>     R  <NA> #>  ---                                                                         #> 905:  <NA>  <NA>  <NA>     R     R     R     S     S  <NA>  <NA>  <NA>  <NA> #> 906:  <NA>  <NA>  <NA>     R     R     R     S     S  <NA>  <NA>  <NA>  <NA> #> 907:  <NA>  <NA>  <NA>     S     S     S     S     S  <NA>  <NA>     R  <NA> #> 908:  <NA>  <NA>  <NA>     R     R     R     S     S  <NA>  <NA>     S  <NA> #> 909:  <NA>  <NA>  <NA>     R     R     R     S     S  <NA>  <NA>     S  <NA> #>        RIF #>      <sir> #>   1:     R #>   2:     R #>   3:     R #>   4:     R #>   5:     R #>  ---       #> 905:     R #> 906:     R #> 907:  <NA> #> 908:     R #> 909:     R if (require(\"data.table\")) {   dt[any(carbapenems() == \"S\"), penicillins(), with = FALSE] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #>        PEN   OXA   FLC   AMX   AMC   AMP   TZP #>      <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>   1:     R  <NA>  <NA>  <NA>     I  <NA>  <NA> #>   2:     R  <NA>  <NA>  <NA>     I  <NA>  <NA> #>   3:     R  <NA>  <NA>  <NA>     I  <NA>  <NA> #>   4:     R  <NA>  <NA>  <NA>     I  <NA>  <NA> #>   5:     R  <NA>  <NA>     R     R     R  <NA> #>  ---                                           #> 905:     R  <NA>  <NA>     S     S     S     S #> 906:     R  <NA>  <NA>     S     S     S     S #> 907:     R     S     S  <NA>     S  <NA>  <NA> #> 908:     R  <NA>  <NA>     R     S     R     S #> 909:     R  <NA>  <NA>     R     S     R     S # }"},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Sets with 605 Antimicrobial Drugs — antibiotics","title":"Data Sets with 605 Antimicrobial Drugs — antibiotics","text":"Two data sets containing antibiotics/antimycotics antivirals. Use .ab() one ab_* functions retrieve values antibiotics data set. Three identifiers included data set: antibiotic ID (ab, primarily used package) defined WHONET/EARS-Net, ATC code (atc) defined , Compound ID (cid) found PubChem. properties data set derived one codes. Note drugs multiple ATC codes.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Sets with 605 Antimicrobial Drugs — antibiotics","text":"","code":"antibiotics  antivirals"},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Sets with 605 Antimicrobial Drugs — antibiotics","text":"object class tbl_df (inherits tbl, data.frame) 120 rows 11 columns.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"for-the-antibiotics-data-set-a-tibble-with-observations-and-variables-","dir":"Reference","previous_headings":"","what":"For the antibiotics data set: a tibble with 485 observations and 14 variables:","title":"Data Sets with 605 Antimicrobial Drugs — antibiotics","text":"ab Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available. unique identifier. cid Compound ID found PubChem. unique identifier. name Official name used WHONET/EARS-Net . unique identifier. group short concise group name, based WHONET WHOCC definitions atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC, like J01CR02 atc_group1 Official pharmacological subgroup (3rd level ATC code) defined WHOCC, like \"Macrolides, lincosamides streptogramins\" atc_group2 Official chemical subgroup (4th level ATC code) defined WHOCC, like \"Macrolides\" abbr List abbreviations used many countries, also antibiotic susceptibility testing (AST) synonyms Synonyms (often trade names) drug, found PubChem based compound ID oral_ddd Defined Daily Dose (DDD), oral treatment, currently available 179 drugs oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral (intravenous) treatment, currently available 153 drugs iv_units Units iv_ddd loinc codes associated name antimicrobial drug Logical Observation Identifiers Names Codes (LOINC), Version 2.76 (18 September, 2023). Use ab_loinc() retrieve quickly, see ab_property().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"for-the-antivirals-data-set-a-tibble-with-observations-and-variables-","dir":"Reference","previous_headings":"","what":"For the antivirals data set: a tibble with 120 observations and 11 variables:","title":"Data Sets with 605 Antimicrobial Drugs — antibiotics","text":"av Antiviral ID used package (ACI), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available. unique identifier. Combinations codes contain + indicate , ATA+COBI atazanavir/cobicistat. name Official name used WHONET/EARS-Net . unique identifier. atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC cid Compound ID found PubChem. unique identifier. atc_group Official pharmacological subgroup (3rd level ATC code) defined WHOCC synonyms Synonyms (often trade names) drug, found PubChem based compound ID oral_ddd Defined Daily Dose (DDD), oral treatment oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral treatment iv_units Units iv_ddd loinc codes associated name antiviral drug Logical Observation Identifiers Names Codes (LOINC), Version 2.76 (18 September, 2023). Use av_loinc() retrieve quickly, see av_property().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Sets with 605 Antimicrobial Drugs — antibiotics","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology (WHOCC): https://atcddd.fhi./atc_ddd_index/ Logical Observation Identifiers Names Codes (LOINC), Version 2.76 (18 September, 2023). Accessed https://loinc.org October 19th, 2023. European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Sets with 605 Antimicrobial Drugs — antibiotics","text":"Properties based ATC code available ATC available. properties : atc_group1, atc_group2, oral_ddd, oral_units, iv_ddd iv_units. Synonyms (.e. trade names) derived PubChem Compound ID (column cid) consequently available CID available.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Sets with 605 Antimicrobial Drugs — antibiotics","text":"Like data sets package, data sets publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Data Sets with 605 Antimicrobial Drugs — antibiotics","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://atcddd.fhi.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://atcddd.fhi./copyright_disclaimer/.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Sets with 605 Antimicrobial Drugs — antibiotics","text":"","code":"antibiotics #> # A tibble: 485 × 14 #>    ab        cid name   group atc   atc_group1 atc_group2 abbreviations synonyms #>    <ab>    <dbl> <chr>  <chr> <lis> <chr>      <chr>      <list>        <named > #>  1 AMA      4649 4-ami… Anti… <chr> Drugs for… Aminosali… <chr [1]>     <chr>    #>  2 ACM   6450012 Acety… Macr… <chr> NA         NA         <chr [1]>     <chr>    #>  3 ASP  49787020 Acety… Macr… <chr> NA         NA         <chr [1]>     <chr>    #>  4 ALS      8954 Aldes… Othe… <chr> Drugs for… Drugs for… <chr [1]>     <chr>    #>  5 AMK     37768 Amika… Amin… <chr> Aminoglyc… Other ami… <chr [5]>     <chr>    #>  6 AKF        NA Amika… Amin… <chr> NA         NA         <chr [1]>     <chr>    #>  7 AMO     54260 Amoro… Anti… <chr> Antifunga… Other ant… <chr [1]>     <chr>    #>  8 AMX     33613 Amoxi… Beta… <chr> Beta-lact… Penicilli… <chr [3]>     <chr>    #>  9 AMC  23665637 Amoxi… Beta… <chr> Beta-lact… Combinati… <chr [5]>     <chr>    #> 10 AXS    465441 Amoxi… Beta… <chr> NA         NA         <chr [1]>     <chr>    #> # ℹ 475 more rows #> # ℹ 5 more variables: oral_ddd <dbl>, oral_units <chr>, iv_ddd <dbl>, #> #   iv_units <chr>, loinc <list> antivirals #> # A tibble: 120 × 11 #>    av       name      atc      cid atc_group synonyms oral_ddd oral_units iv_ddd #>    <av>     <chr>     <chr>  <dbl> <chr>     <list>      <dbl> <chr>       <dbl> #>  1 ABA      Abacavir  J05A… 4.41e5 Nucleosi… <chr>         0.6 g              NA #>  2 ACI      Aciclovir J05A… 1.35e8 Nucleosi… <chr>         4   g               4 #>  3 ADD      Adefovir… J05A… 6.09e4 Nucleosi… <chr>        10   mg             NA #>  4 AME      Amenamev… J05A… 1.14e7 Other an… <chr>         0.4 g              NA #>  5 AMP      Amprenav… J05A… 6.50e4 Protease… <chr>         1.2 g              NA #>  6 ASU      Asunapre… J05A… 1.61e7 Antivira… <chr>         0.2 g              NA #>  7 ATA      Atazanav… J05A… 1.48e5 Protease… <chr>         0.3 g              NA #>  8 ATA+COBI Atazanav… J05A… 8.66e7 Antivira… <chr>        NA   NA             NA #>  9 ATA+RIT  Atazanav… J05A… 2.51e7 Antivira… <chr>         0.3 g              NA #> 10 BAM      Baloxavi… J05A… 1.24e8 Other an… <chr>        40   mg             NA #> # ℹ 110 more rows #> # ℹ 2 more variables: iv_units <chr>, loinc <list>"},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to an Antibiotic ID — as.ab","title":"Transform Input to an Antibiotic ID — as.ab","text":"Use function determine antibiotic drug code one antibiotics. data set antibiotics searched abbreviations, official names synonyms (brand names).","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to an Antibiotic ID — as.ab","text":"","code":"as.ab(x, flag_multiple_results = TRUE, info = interactive(), ...)  is.ab(x)"},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to an Antibiotic ID — as.ab","text":"x character vector determine antibiotic ID flag_multiple_results logical indicate whether note printed console probably one antibiotic drug code name can retrieved single input value. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed internal functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to an Antibiotic ID — as.ab","text":"character vector additional class ab","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to an Antibiotic ID — as.ab","text":"entries antibiotics data set three different identifiers: human readable EARS-Net code (column ab, used ECDC WHONET), ATC code (column atc, used ), CID code (column cid, Compound ID, used PubChem). data set contains 5,000 official brand names many different countries, found PubChem. drugs contain multiple ATC codes. properties searched user input. .ab() can correct different forms misspelling: Wrong spelling drug names (\"tobramicin\" \"gentamycin\"), corrects audible similarities f/ph, x/ks, c/z/s, t/th, etc. many vowels consonants Switching two characters (\"mreopenem\", often case clinical data, doctors typed fast) Digitalised paper records, leaving artefacts like 0/o/O (zero O's), B/8, n/r, etc. Use ab_* functions get properties based returned antibiotic ID, see Examples. Note: .ab() ab_* functions may use long regular expression match brand names antimicrobial drugs. may fail systems. can add manual codes considered .ab() ab_* functions, see add_custom_antimicrobials().","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Input to an Antibiotic ID — as.ab","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://atcddd.fhi./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Transform Input to an Antibiotic ID — as.ab","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://atcddd.fhi.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://atcddd.fhi./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Input to an Antibiotic ID — as.ab","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to an Antibiotic ID — as.ab","text":"","code":"# these examples all return \"ERY\", the ID of erythromycin: as.ab(\"J01FA01\") #> Class 'ab' #> [1] ERY as.ab(\"J 01 FA 01\") #> Class 'ab' #> [1] ERY as.ab(\"Erythromycin\") #> Class 'ab' #> [1] ERY as.ab(\"eryt\") #> Class 'ab' #> [1] ERY as.ab(\"   eryt 123\") #> Class 'ab' #> [1] ERY as.ab(\"ERYT\") #> Class 'ab' #> [1] ERY as.ab(\"ERY\") #> Class 'ab' #> [1] ERY as.ab(\"eritromicine\") # spelled wrong, yet works #> Class 'ab' #> [1] ERY as.ab(\"Erythrocin\") # trade name #> Class 'ab' #> [1] ERY as.ab(\"Romycin\") # trade name #> Class 'ab' #> [1] ERY  # spelling from different languages and dyslexia are no problem ab_atc(\"ceftriaxon\") #> [1] \"J01DD04\" ab_atc(\"cephtriaxone\") # small spelling error #> [1] \"J01DD04\" ab_atc(\"cephthriaxone\") # or a bit more severe #> [1] \"J01DD04\" ab_atc(\"seephthriaaksone\") # and even this works #> [1] \"J01DD04\"  # use ab_* functions to get a specific properties (see ?ab_property); # they use as.ab() internally: ab_name(\"J01FA01\") #> [1] \"Erythromycin\" ab_name(\"eryt\") #> [1] \"Erythromycin\"  # \\donttest{ if (require(\"dplyr\")) {   # you can quickly rename 'sir' columns using set_ab_names() with dplyr:   example_isolates %>%     set_ab_names(where(is.sir), property = \"atc\") } #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           J01CE01 J01CF04 J01CF05 #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir>   <sir>   <sir>   #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R       NA      NA      #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R       NA      NA      #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R       NA      S       #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R       NA      S       #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R       NA      S       #> # ℹ 1,990 more rows #> # ℹ 37 more variables: J01CA04 <sir>, J01CR02 <sir>, J01CA01 <sir>, #> #   J01CR05 <sir>, J01DB04 <sir>, J01DE01 <sir>, J01DC02 <sir>, J01DC01 <sir>, #> #   J01DD01 <sir>, J01DD02 <sir>, J01DD04 <sir>, J01GB03 <sir>, J01GB01 <sir>, #> #   J01GB06 <sir>, J01GB04 <sir>, J01EA01 <sir>, J01EE01 <sir>, J01XE01 <sir>, #> #   J01XX01 <sir>, J01XX08 <sir>, J01MA02 <sir>, J01MA14 <sir>, J01XA01 <sir>, #> #   J01XA02 <sir>, J01AA07 <sir>, J01AA12 <sir>, J01AA02 <sir>, … # }"},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to an Antiviral Drug ID — as.av","title":"Transform Input to an Antiviral Drug ID — as.av","text":"Use function determine antiviral drug code one antiviral drugs. data set antivirals searched abbreviations, official names synonyms (brand names).","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to an Antiviral Drug ID — as.av","text":"","code":"as.av(x, flag_multiple_results = TRUE, info = interactive(), ...)  is.av(x)"},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to an Antiviral Drug ID — as.av","text":"x character vector determine antiviral drug ID flag_multiple_results logical indicate whether note printed console probably one antiviral drug code name can retrieved single input value. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed internal functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to an Antiviral Drug ID — as.av","text":"character vector additional class ab","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to an Antiviral Drug ID — as.av","text":"entries antivirals data set three different identifiers: human readable EARS-Net code (column ab, used ECDC WHONET), ATC code (column atc, used ), CID code (column cid, Compound ID, used PubChem). data set contains 5,000 official brand names many different countries, found PubChem. drugs contain multiple ATC codes. properties searched user input. .av() can correct different forms misspelling: Wrong spelling drug names (\"acyclovir\"), corrects audible similarities f/ph, x/ks, c/z/s, t/th, etc. many vowels consonants Switching two characters (\"aycclovir\", often case clinical data, doctors typed fast) Digitalised paper records, leaving artefacts like 0/o/O (zero O's), B/8, n/r, etc. Use av_* functions get properties based returned antiviral drug ID, see Examples. Note: .av() av_* functions may use long regular expression match brand names antimicrobial drugs. may fail systems.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Input to an Antiviral Drug ID — as.av","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://atcddd.fhi./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Transform Input to an Antiviral Drug ID — as.av","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://atcddd.fhi.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://atcddd.fhi./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Input to an Antiviral Drug ID — as.av","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to an Antiviral Drug ID — as.av","text":"","code":"# these examples all return \"ACI\", the ID of aciclovir: as.av(\"J05AB01\") #> Class 'av' #> [1] ACI as.av(\"J 05 AB 01\") #> Class 'av' #> [1] ACI as.av(\"Aciclovir\") #> Class 'av' #> [1] ACI as.av(\"aciclo\") #> Class 'av' #> [1] ACI as.av(\"   aciclo 123\") #> Class 'av' #> [1] ACI as.av(\"ACICL\") #> Class 'av' #> [1] ACI as.av(\"ACI\") #> Class 'av' #> [1] ACI as.av(\"Virorax\") # trade name #> Class 'av' #> [1] ACI as.av(\"Zovirax\") # trade name #> Class 'av' #> [1] ACI  as.av(\"acyklofir\") # severe spelling error, yet works #> Class 'av' #> [1] ACI  # use av_* functions to get a specific properties (see ?av_property); # they use as.av() internally: av_name(\"J05AB01\") #> [1] \"Aciclovir\" av_name(\"acicl\") #> [1] \"Aciclovir\""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to Disk Diffusion Diameters — as.disk","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"transforms vector new class disk, disk diffusion growth zone size (around antibiotic disk) millimetres 0 50.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"","code":"as.disk(x, na.rm = FALSE)  NA_disk_  is.disk(x)"},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"object class disk (inherits integer) length 1.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"x vector na.rm logical indicating whether missing values removed","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"integer additional class disk","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"Interpret disk values SIR values .sir(). supports guidelines EUCAST CLSI. Disk diffusion growth zone sizes must 0 50 millimetres. Values higher 50 lower 100 maximised 50. others input values outside 0-50 range return NA. NA_disk_ missing value new disk class.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"","code":"# transform existing disk zones to the `disk` class (using base R) df <- data.frame(   microorganism = \"Escherichia coli\",   AMP = 20,   CIP = 14,   GEN = 18,   TOB = 16 ) df[, 2:5] <- lapply(df[, 2:5], as.disk) str(df) #> 'data.frame':\t1 obs. of  5 variables: #>  $ microorganism: chr \"Escherichia coli\" #>  $ AMP          : 'disk' int 20 #>  $ CIP          : 'disk' int 14 #>  $ GEN          : 'disk' int 18 #>  $ TOB          : 'disk' int 16  # \\donttest{ # transforming is easier with dplyr: if (require(\"dplyr\")) {   df %>% mutate(across(AMP:TOB, as.disk)) } #>      microorganism AMP CIP GEN TOB #> 1 Escherichia coli  20  14  18  16 # }  # interpret disk values, see ?as.sir as.sir(   x = as.disk(18),   mo = \"Strep pneu\", # `mo` will be coerced with as.mo()   ab = \"ampicillin\", # and `ab` with as.ab()   guideline = \"EUCAST\" ) #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting disk diffusion zones: 'ampicillin' (AMP), EUCAST 2024... #>  OK  #> Class 'sir' #> [1] R  # interpret whole data set, pretend to be all from urinary tract infections: as.sir(df, uti = TRUE) #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting disk diffusion zones: column 'AMP' (ampicillin), EUCAST #> 2024... #>  OK  #> Interpreting disk diffusion zones: column 'CIP' (ciprofloxacin), EUCAST #> 2024... #>  OK  #> Interpreting disk diffusion zones: column 'GEN' (gentamicin), EUCAST #> 2024... #>  OK  #> Interpreting disk diffusion zones: column 'TOB' (tobramycin), EUCAST #> 2024... #>  OK  #>      microorganism AMP  CIP GEN TOB #> 1 Escherichia coli   S <NA>   S   S"},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"transforms vectors new class mic, treats input decimal numbers, maintaining operators (\">=\") allowing valid MIC values known field (medical) microbiology.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"","code":"as.mic(x, na.rm = FALSE, keep_operators = \"all\")  is.mic(x)  NA_mic_  rescale_mic(x, mic_range, keep_operators = \"edges\", as.mic = TRUE)  # S3 method for class 'mic' droplevels(x, as.mic = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"x character numeric vector na.rm logical indicating whether missing values removed keep_operators character specifying handle operators (> <=) input. Accepts one three values: \"\" (TRUE) keep operators, \"none\" (FALSE) remove operators, \"edges\" keep operators ends range. mic_range manual range limit MIC values, e.g., mic_range = c(0.001, 32). Use NA set limit one side, e.g., mic_range = c(NA, 32). .mic logical indicate whether mic class kept - default FALSE ... arguments passed methods","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"Ordered factor additional class mic, mathematical operations acts numeric vector. Bear mind outcome mathematical operation MICs return numeric value.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"interpret MIC values SIR values, use .sir() MIC values. supports guidelines EUCAST (2011-2024) CLSI (2011-2024). class MIC values quite special data type: formally ordered factor valid MIC values factor levels (make sure valid MIC values retained), mathematical operation acts decimal numbers:   makes possible maintain operators often come MIC values, \">=\" \"<=\", even filtering using numeric values data analysis, e.g.:   -called group generic functions implemented MIC class (!, !=, <, >=, exp(), log2()). functions stats package also implemented (quantile(), median(), fivenum()). Since sd() var() non-generic functions, extended. Use mad() alternative, use e.g. sd(.numeric(x)) x vector MIC values. Using .double() .numeric() MIC values remove operators return numeric vector. use .integer() MIC values R convention factors, return index factor levels (often useless regular users). Use droplevels() drop unused levels. default, return plain factor. Use droplevels(..., .mic = TRUE) maintain mic class. rescale_mic(), existing MIC ranges can limited defined range MIC values. can useful better compare MIC distributions. ggplot2, use one scale_*_mic() functions plot MIC values. allows custom MIC ranges plot intermediate log2 levels missing MIC values. NA_mic_ missing value new mic class, analogous e.g. base R's NA_character_.","code":"x <- random_mic(10) x #> Class 'mic' #>  [1] 16     1      8      8      64     >=128  0.0625 32     32     16  is.factor(x) #> [1] TRUE  x[1] * 2 #> [1] 32  median(x) #> [1] 26 x[x > 4] #> Class 'mic' #> [1] 16    8     8     64    >=128 32    32    16  df <- data.frame(x, hospital = \"A\") subset(df, x > 4) # or with dplyr: df %>% filter(x > 4) #>        x hospital #> 1     16        A #> 5     64        A #> 6  >=128        A #> 8     32        A #> 9     32        A #> 10    16        A"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"","code":"mic_data <- as.mic(c(\">=32\", \"1.0\", \"1\", \"1.00\", 8, \"<=0.128\", \"8\", \"16\", \"16\")) mic_data #> Class 'mic' #> [1] >=32    1       1       1       8       <=0.128 8       16      16      is.mic(mic_data) #> [1] TRUE  # this can also coerce combined MIC/SIR values: as.mic(\"<=0.002; S\") #> Class 'mic' #> [1] <=0.002  # mathematical processing treats MICs as numeric values fivenum(mic_data) #> [1]  0.128  1.000  8.000 16.000 32.000 quantile(mic_data) #>     0%    25%    50%    75%   100%  #>  0.128  1.000  8.000 16.000 32.000  all(mic_data < 512) #> [1] TRUE  # rescale MICs using rescale_mic() rescale_mic(mic_data, mic_range = c(4, 16)) #> Class 'mic' #> [1] >=16 <=4  <=4  <=4  8    <=4  8    >=16 >=16  # interpret MIC values as.sir(   x = as.mic(2),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'AMX' (amoxicillin), EUCAST 2024... #>  NOTE  #>   • Multiple breakpoints available for amoxicillin (AMX) in Streptococcus pneumoniae - assuming body site 'Meningitis'. #> Class 'sir' #> [1] R as.sir(   x = as.mic(c(0.01, 2, 4, 8)),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'AMX' (amoxicillin), EUCAST 2024... #>  NOTE  #>   • Multiple breakpoints available for amoxicillin (AMX) in Streptococcus pneumoniae - assuming body site 'Meningitis'. #> Class 'sir' #> [1] S R R R  # plot MIC values, see ?plot plot(mic_data)  plot(mic_data, mo = \"E. coli\", ab = \"cipro\")   if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\") }  if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\", language = \"nl\") # Dutch }"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Use function get valid microorganism code (mo) based arbitrary user input. Determination done using intelligent rules complete taxonomic tree kingdoms Animalia, Archaea, Bacteria, Chromista, Protozoa, microbial species kingdom Fungi (see Source). input can almost anything: full name (like \"Staphylococcus aureus\"), abbreviated name (\"S. aureus\"), abbreviation known field (\"MRSA\"), just genus. See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"as.mo(   x,   Becker = FALSE,   Lancefield = FALSE,   minimum_matching_score = NULL,   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   reference_df = get_mo_source(),   ignore_pattern = getOption(\"AMR_ignore_pattern\", NULL),   cleaning_regex = getOption(\"AMR_cleaning_regex\", mo_cleaning_regex()),   only_fungi = getOption(\"AMR_only_fungi\", FALSE),   language = get_AMR_locale(),   info = interactive(),   ... )  is.mo(x)  mo_uncertainties()  mo_renamed()  mo_failures()  mo_reset_session()  mo_cleaning_regex()"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"x character vector data.frame one two columns Becker logical indicate whether staphylococci categorised coagulase-negative staphylococci (\"CoNS\") coagulase-positive staphylococci (\"CoPS\") instead species, according Karsten Becker et al. (see Source). Please see Details full list staphylococcal species converted. excludes Staphylococcus aureus default, use Becker = \"\" also categorise S. aureus \"CoPS\". Lancefield logical indicate whether beta-haemolytic Streptococcus categorised Lancefield groups instead species, according Rebecca C. Lancefield (see Source). streptococci categorised first group, e.g. Streptococcus dysgalactiae group C, although officially also categorised groups G L. . Please see Details full list streptococcal species converted. excludes enterococci default (group D), use Lancefield = \"\" also categorise enterococci group D. minimum_matching_score numeric value set lower limit MO matching score. left blank, determined automatically based character length x, taxonomic kingdom human pathogenicity. keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). reference_df data.frame used extra reference translating x valid mo. See set_mo_source() get_mo_source() automate usage codes (e.g. used analysis organisation). ignore_pattern Perl-compatible regular expression (case-insensitive) matches x must return NA. can convenient exclude known non-relevant input can also set package option AMR_ignore_pattern, e.g. options(AMR_ignore_pattern = \"(reported|contaminated flora)\"). cleaning_regex Perl-compatible regular expression (case-insensitive) clean input x. Every matched part x removed. default, outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". default can set package option AMR_cleaning_regex. only_fungi logical indicate fungi must found, making sure e.g. misspellings always return records kingdom Fungi. can set globally microorganism functions package option AMR_only_fungi, .e. options(AMR_only_fungi = TRUE). language language translate text like \"growth\", defaults system language (see get_AMR_locale()) info logical indicate info must printed, e.g. progress bar 25 items coerced, list old taxonomic names. default TRUE interactive mode. ... arguments passed functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"character vector additional class mo","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"microorganism (MO) code package (class: mo) human-readable typically looks like examples:   Values coerced considered 'unknown' return MO code UNKNOWN warning. Use mo_* functions get properties based returned code, see Examples. .mo() function uses novel scientifically validated (doi:10.18637/jss.v104.i03 ) matching score algorithm (see Matching Score Microorganisms ) match input available microbial taxonomy package. implicates e.g. \"E. coli\" (microorganism highly prevalent humans) return microbial ID Escherichia coli Entamoeba coli (microorganism less prevalent humans), although latter alphabetically come first.","code":"Code               Full name   ---------------    --------------------------------------   B_KLBSL            Klebsiella   B_KLBSL_PNMN       Klebsiella pneumoniae   B_KLBSL_PNMN_RHNS  Klebsiella pneumoniae rhinoscleromatis   |   |    |    |   |   |    |    |   |   |    |    \\---> subspecies, a 3-5 letter acronym   |   |    \\----> species, a 3-6 letter acronym   |   \\----> genus, a 4-8 letter acronym   \\----> kingdom: A (Archaea), AN (Animalia), B (Bacteria),                   C (Chromista), F (Fungi), PL (Plantae),                   P (Protozoa)"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"coping-with-uncertain-results","dir":"Reference","previous_headings":"","what":"Coping with Uncertain Results","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Results non-exact taxonomic input based matching score. lowest allowed score can set minimum_matching_score argument. default determined based character length input, taxonomic kingdom, human pathogenicity taxonomic outcome. values matched uncertainty, message shown suggest user inspect results mo_uncertainties(), returns data.frame specifications. increase quality matching, cleaning_regex argument used clean input. must regular expression matches parts input removed input matched available microbial taxonomy. matched Perl-compatible case-insensitive. default value cleaning_regex outcome helper function mo_cleaning_regex(). three helper functions can run using .mo() function: Use mo_uncertainties() get data.frame prints pretty format taxonomic names guessed. output contains matching score matches (see Matching Score Microorganisms ). Use mo_failures() get character vector values coerced valid value. Use mo_renamed() get data.frame values coerced based old, previously accepted taxonomic names.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"for-mycologists","dir":"Reference","previous_headings":"","what":"For Mycologists","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"matching score algorithm gives precedence bacteria fungi. analysing fungi, sure use only_fungi = TRUE, better yet, add code run every session:   make sure bacteria 'non-fungi' returned .mo(), mo_* functions.","code":"options(AMR_only_fungi = TRUE)"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"coagulase-negative-and-coagulase-positive-staphylococci","dir":"Reference","previous_headings":"","what":"Coagulase-negative and Coagulase-positive Staphylococci","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Becker = TRUE, following staphylococci converted corresponding coagulase group: Coagulase-negative: S. americanisciuri, S. argensis, S. arlettae, S. auricularis, S. borealis, S. brunensis, S. caeli, S. caledonicus, S. canis, S. capitis, S. capitis capitis, S. capitis urealyticus, S. capitis ureolyticus, S. caprae, S. carnosus, S. carnosus carnosus, S. carnosus utilis, S. casei, S. caseolyticus, S. chromogenes, S. cohnii, S. cohnii cohnii, S. cohnii urealyticum, S. cohnii urealyticus, S. condimenti, S. croceilyticus, S. debuckii, S. devriesei, S. durrellii, S. edaphicus, S. epidermidis, S. equorum, S. equorum equorum, S. equorum linens, S. felis, S. fleurettii, S. gallinarum, S. haemolyticus, S. hominis, S. hominis hominis, S. hominis novobiosepticus, S. jettensis, S. kloosii, S. lentus, S. lloydii, S. lugdunensis, S. marylandisciuri, S. massiliensis, S. microti, S. muscae, S. nepalensis, S. pasteuri, S. petrasii, S. petrasii croceilyticus, S. petrasii jettensis, S. petrasii petrasii, S. petrasii pragensis, S. pettenkoferi, S. piscifermentans, S. pragensis, S. pseudoxylosus, S. pulvereri, S. ratti, S. rostri, S. saccharolyticus, S. saprophyticus, S. saprophyticus bovis, S. saprophyticus saprophyticus, S. schleiferi, S. schleiferi schleiferi, S. sciuri, S. sciuri carnaticus, S. sciuri lentus, S. sciuri rodentium, S. sciuri sciuri, S. shinii, S. simulans, S. stepanovicii, S. succinus, S. succinus casei, S. succinus succinus, S. taiwanensis, S. urealyticus, S. ureilyticus, S. veratri, S. vitulinus, S. vitulus, S. warneri, S. xylosus Coagulase-positive: S. agnetis, S. argenteus, S. coagulans, S. cornubiensis, S. delphini, S. hyicus, S. hyicus chromogenes, S. hyicus hyicus, S. intermedius, S. lutrae, S. pseudintermedius, S. roterodami, S. schleiferi coagulans, S. schweitzeri, S. simiae, S. singaporensis based : Becker K et al. (2014). Coagulase-Negative Staphylococci. Clin Microbiol Rev. 27(4): 870-926; doi:10.1128/CMR.00109-13 Becker K et al. (2019). Implications identifying recently defined members S. aureus complex, S. argenteus S. schweitzeri: position paper members ESCMID Study Group staphylococci Staphylococcal Diseases (ESGS). Clin Microbiol Infect; doi:10.1016/j.cmi.2019.02.028 Becker K et al. (2020). Emergence coagulase-negative staphylococci. Expert Rev Anti Infect Ther. 18(4):349-366; doi:10.1080/14787210.2020.1730813 newly named staphylococcal species, S. brunensis (2024) S. shinii (2023), looked scientific reference make sure species considered correct coagulase group.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"lancefield-groups-in-streptococci","dir":"Reference","previous_headings":"","what":"Lancefield Groups in Streptococci","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Lancefield = TRUE, following streptococci converted corresponding Lancefield group: Streptococcus Group : S. pyogenes Streptococcus Group B: S. agalactiae Streptococcus Group C: S. dysgalactiae, S. dysgalactiae dysgalactiae, S. dysgalactiae equisimilis, S. equi, S. equi equi, S. equi ruminatorum, S. equi zooepidemicus Streptococcus Group F: S. anginosus, S. anginosus anginosus, S. anginosus whileyi, S. constellatus, S. constellatus constellatus, S. constellatus pharyngis, S. constellatus viborgensis, S. intermedius Streptococcus Group G: S. canis, S. dysgalactiae, S. dysgalactiae dysgalactiae, S. dysgalactiae equisimilis Streptococcus Group H: S. sanguinis Streptococcus Group K: S. salivarius, S. salivarius salivarius, S. salivarius thermophilus Streptococcus Group L: S. dysgalactiae, S. dysgalactiae dysgalactiae, S. dysgalactiae equisimilis based : Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de June 24th, 2024. Vincent, R et al (2013). MycoBank gearing new horizons. IMA Fungus, 4(2), 371-9; doi:10.5598/imafungus.2013.04.02.16 . Accessed https://www.mycobank.org June 24th, 2024. GBIF Secretariat (2023). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org June 24th, 2024. Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; doi:10.1093/nar/gkab961 . Accessed https://bacdive.dsmz.de July 16th, 2024. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microorganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"ambiguous user input .mo() mo_* functions, returned results chosen based matching score using mo_matching_score(). matching score \\(m\\), calculated :  : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 1.25, Protozoa = 1.5, Chromista = 1.75, Archaea = 2, others = 3. grouping human pathogenic prevalence \\(p\\) based recent work Bartlett et al. (2022, doi:10.1099/mic.0.001269 ) extensively studied medical-scientific literature categorise bacterial species groups: Established, taxonomic species infected least three persons three references. records prevalence = 1.15 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, Genera World Health Organization's () Priority Pathogen List prevalence = 1.0 microorganisms data set; genus present established list also prevalence = 1.15 microorganisms data set; genus present putative list prevalence = 1.25 microorganisms data set; species subspecies genus present two aforementioned groups, prevalence = 1.5 microorganisms data set; non-bacterial genus, species subspecies genus present following list, prevalence = 1.25 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Actinomucor, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Arthroderma, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Bipolaris, Blastobotrys, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chilomastix, Chrysonilia, Chrysosporium, Cladophialophora, Cladosporium, Clavispora, Coccidioides, Cokeromyces, Conidiobolus, Coniochaeta, Contracaecum, Cordylobia, Cryptococcus, Cryptosporidium, Cunninghamella, Curvularia, Cyberlindnera, Debaryozyma, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Epidermophyton, Exidia, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Geotrichum, Giardia, Graphium, Haloarcula, Halobacterium, Halococcus, Hansenula, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hortaea, Hymenolepis, Hypomyces, Hysterothylacium, Kloeckera, Kluyveromyces, Kodamaea, Lacazia, Leishmania, Lichtheimia, Lodderomyces, Lomentospora, Madurella, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Millerozyma, Mortierella, Mucor, Mycocentrospora, Nannizzia, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Paecilomyces, Paracoccidioides, Pediculus, Penicillium, Phaeoacremonium, Phaeomoniella, Phialophora, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoscopulariopsis, Pseudoterranova, Pulex, Purpureocillium, Quambalaria, Rhinocladiella, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Saksenaea, Saprochaete, Sarcoptes, Scedosporium, Schistosoma, Schizosaccharomyces, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Sporopachydermia, Sporothrix, Sporotrichum, Stachybotrys, Strongyloides, Syncephalastrum, Syngamus, Taenia, Talaromyces, Teleomorph, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Ulocladium, Ustilago, Verticillium, Wallemia, Wangiella, Wickerhamomyces, Wuchereria, Yarrowia, Zygosaccharomyces; records prevalence = 2.0 microorganisms data set. calculating matching score, characters \\(x\\) \\(n\\) ignored -Z, -z, 0-9, spaces parentheses. matches sorted descending matching score user input values, top match returned. lead effect e.g., \"E. coli\" return microbial ID Escherichia coli (\\(m = 0.688\\), highly prevalent microorganism found humans) Entamoeba coli (\\(m = 0.381\\), less prevalent microorganism humans), although latter alphabetically come first.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"# \\donttest{ # These examples all return \"B_STPHY_AURS\", the ID of S. aureus: as.mo(c(   \"sau\", # WHONET code   \"stau\",   \"STAU\",   \"staaur\",   \"S. aureus\",   \"S aureus\",   \"Sthafilokkockus aureus\", # handles incorrect spelling   \"Staphylococcus aureus (MRSA)\",   \"MRSA\", # Methicillin Resistant S. aureus   \"VISA\", # Vancomycin Intermediate S. aureus   \"VRSA\", # Vancomycin Resistant S. aureus   115329001 # SNOMED CT code )) #> Class 'mo' #>  [1] B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS #>  [6] B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS #> [11] B_STPHY_AURS B_STPHY_AURS  # Dyslexia is no problem - these all work: as.mo(c(   \"Ureaplasma urealyticum\",   \"Ureaplasma urealyticus\",   \"Ureaplasmium urealytica\",   \"Ureaplazma urealitycium\" )) #> Class 'mo' #> [1] B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY  # input will get cleaned up with the input given in the `cleaning_regex` argument, # which defaults to `mo_cleaning_regex()`: cat(mo_cleaning_regex(), \"\\n\") #> ([^A-Za-z- \\(\\)\\[\\]{}]+|([({]|\\[).+([})]|\\])|(^| )( ?[a-z-]+[-](resistant|susceptible) ?|e?spp([^a-z]+|$)|e?ssp([^a-z]+|$)|serogr.?up[a-z]*|e?ss([^a-z]+|$)|e?sp([^a-z]+|$)|var([^a-z]+|$)|serovar[a-z]*|sube?species|biovar[a-z]*|e?species|Ig[ADEGM]|e?subsp|biotype|titer|dummy))   as.mo(\"Streptococcus group A\") #> Class 'mo' #> [1] B_STRPT_GRPA  as.mo(\"S. epidermidis\") # will remain species: B_STPHY_EPDR #> Class 'mo' #> [1] B_STPHY_EPDR as.mo(\"S. epidermidis\", Becker = TRUE) # will not remain species: B_STPHY_CONS #> Class 'mo' #> [1] B_STPHY_CONS  as.mo(\"S. pyogenes\") # will remain species: B_STRPT_PYGN #> Class 'mo' #> [1] B_STRPT_PYGN as.mo(\"S. pyogenes\", Lancefield = TRUE) # will not remain species: B_STRPT_GRPA #> Class 'mo' #> [1] B_STRPT_GRPA  # All mo_* functions use as.mo() internally too (see ?mo_property): mo_genus(\"E. coli\") #> [1] \"Escherichia\" mo_gramstain(\"ESCO\") #> [1] \"Gram-negative\" mo_is_intrinsic_resistant(\"ESCCOL\", ab = \"vanco\") #> ℹ Determining intrinsic resistance based on 'EUCAST Expert Rules' and #>   'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3 (2021). This note #>   will be shown once per session. #> [1] TRUE # }"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":null,"dir":"Reference","previous_headings":"","what":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Clean existing SIR values, interpret minimum inhibitory concentration (MIC) values disk diffusion diameters according EUCAST CLSI. .sir() transforms input new class sir, ordered factor containing levels S, SDD, , R, NI. breakpoints currently implemented: clinical microbiology: EUCAST 2011-2024 CLSI 2011-2024; veterinary microbiology: EUCAST 2021-2024 CLSI 2019-2024; ECOFFs (Epidemiological Cut-Values): EUCAST 2020-2024 CLSI 2022-2024. breakpoints used interpretation available clinical_breakpoints data set.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"","code":"as.sir(x, ...)  NA_sir_  is.sir(x)  is_sir_eligible(x, threshold = 0.05)  # Default S3 method as.sir(   x,   S = \"^(S|U)+$\",   I = \"^(I)+$\",   R = \"^(R)+$\",   NI = \"^(N|NI|V)+$\",   SDD = \"^(SDD|D|H)+$\",   ... )  # S3 method for class 'mic' as.sir(   x,   mo = NULL,   ab = deparse(substitute(x)),   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   conserve_capped_values = FALSE,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   host = NULL,   verbose = FALSE,   ... )  # S3 method for class 'disk' as.sir(   x,   mo = NULL,   ab = deparse(substitute(x)),   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   host = NULL,   verbose = FALSE,   ... )  # S3 method for class 'data.frame' as.sir(   x,   ...,   col_mo = NULL,   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   conserve_capped_values = FALSE,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   host = NULL,   verbose = FALSE )  sir_interpretation_history(clean = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"interpretations minimum inhibitory concentration (MIC) values disk diffusion diameters: CLSI M39: Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 2011-2024, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. CLSI M100: Performance Standard Antimicrobial Susceptibility Testing, 2011-2024, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m100/. CLSI VET01: Performance Standards Antimicrobial Disk Dilution Susceptibility Tests Bacteria Isolated Animals, 2019-2024, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/veterinary-medicine/documents/vet01/. CLSI VET09: Understanding Susceptibility Test Data Component Antimicrobial Stewardship Veterinary Settings, 2019-2024, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/veterinary-medicine/documents/vet09/. EUCAST Breakpoint tables interpretation MICs zone diameters, 2011-2024, European Committee Antimicrobial Susceptibility Testing (EUCAST). https://www.eucast.org/clinical_breakpoints. WHONET source machine-reading clinical breakpoints (read ), 1989-2024, Collaborating Centre Surveillance Antimicrobial Resistance. https://whonet.org/.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"x vector values (class mic: MIC values mg/L, class disk: disk diffusion radius millimetres) ... using data.frame: names columns apply .sir() (supports tidy selection column1:column4). Otherwise: arguments passed methods. threshold maximum fraction invalid antimicrobial interpretations x, see Examples S, , R, NI, SDD case-independent regular expression translate input result. regular expression run non-letters whitespaces removed input. mo vector (column name) characters can coerced valid microorganism codes .mo(), can left empty determine automatically ab vector (column name) characters can coerced valid antimicrobial drug code .ab() guideline defaults EUCAST 2024 (latest implemented EUCAST guideline clinical_breakpoints data set), can set package option AMR_guideline. Currently supports EUCAST (2011-2024) CLSI (2011-2024), see Details. uti (Urinary Tract Infection) vector (column name) logicals (TRUE FALSE) specify whether UTI specific interpretation guideline chosen. using .sir() data.frame, can also column containing logicals left blank, data set searched column 'specimen', rows within column containing 'urin' ('urine', 'urina') regarded isolates UTI. See Examples. conserve_capped_values logical indicate MIC values starting \">\" (\">=\") must always return \"R\" , MIC values starting \"<\" (\"<=\") must always return \"S\" add_intrinsic_resistance (useful using EUCAST guideline) logical indicate whether intrinsic antibiotic resistance must also considered applicable bug-drug combinations, meaning e.g. ampicillin always return \"R\" Klebsiella species. Determination based intrinsic_resistant data set, based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021). reference_data data.frame used interpretation, defaults clinical_breakpoints data set. Changing argument allows using interpretation guidelines. argument must contain data set equal structure clinical_breakpoints data set (column names column types). Please note guideline argument ignored reference_data manually set. include_screening logical indicate clinical breakpoints screening allowed - default FALSE. Can also set package option AMR_include_screening. include_PKPD logical indicate PK/PD clinical breakpoints must applied last resort - default TRUE. Can also set package option AMR_include_PKPD. breakpoint_type type breakpoints use, either \"ECOFF\", \"animal\", \"human\". ECOFF stands Epidemiological Cut-values. default \"human\", can also set package option AMR_breakpoint_type. host set values veterinary species, automatically set \"animal\". host vector (column name) characters indicate host. useful veterinary breakpoints, requires breakpoint_type = \"animal\". values can text resembling animal species, even 20 supported languages package. foreign languages, sure set language set_AMR_locale() (though automatically guessed based system language). verbose logical indicate notes printed interpretation MIC values disk diffusion values. col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). clean logical indicate whether previously stored results forgotten returning 'logbook' results","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Ordered factor new class sir","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Note: clinical breakpoints package validated , imported , WHONET. public use AMR package endorsed CLSI EUCAST. See clinical_breakpoints information. NA_sir_ missing value new sir class, analogous e.g. base R's NA_character_.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"how-it-works","dir":"Reference","previous_headings":"","what":"How it Works","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":".sir() function can work four ways: cleaning raw / untransformed data. data cleaned contain valid values, namely: S susceptible, intermediate 'susceptible, increased exposure', R resistant, NI non-interpretable, SDD susceptible dose-dependent. can set using regular expression. Furthermore, .sir() try best clean intelligence. example, mixed values SIR interpretations MIC values \"<0.25; S\" coerced \"S\". Combined interpretations multiple test methods (seen laboratory records) \"S; S\" coerced \"S\", value like \"S; \" return NA warning input invalid. interpreting minimum inhibitory concentration (MIC) values according EUCAST CLSI. must clean MIC values first using .mic(), also gives columns new data class mic. Also, sure column microorganism names codes. found automatically, can set manually using mo argument. Using dplyr, SIR interpretation can done easily either:   Operators like \"<=\" stripped interpretation. using conserve_capped_values = TRUE, MIC value e.g. \">2\" always return \"R\", even breakpoint according chosen guideline \">=4\". prevent capped values raw laboratory data treated conservatively. default behaviour (conserve_capped_values = FALSE) considers \">2\" lower \">=4\" might case return \"S\" \"\". interpreting disk diffusion diameters according EUCAST CLSI. must clean disk zones first using .disk(), also gives columns new data class disk. Also, sure column microorganism names codes. found automatically, can set manually using mo argument. Using dplyr, SIR interpretation can done easily either:   interpreting complete data set, automatic determination MIC values, disk diffusion diameters, microorganism names codes, antimicrobial test results. done simply running .sir(your_data). points 2, 3 4: Use sir_interpretation_history() retrieve data.frame (tibble tibble package installed) results last .sir() call.","code":"your_data %>% mutate_if(is.mic, as.sir) your_data %>% mutate(across(where(is.mic), as.sir)) your_data %>% mutate_if(is.mic, as.sir, ab = \"column_with_antibiotics\", mo = \"column_with_microorganisms\") your_data %>% mutate_if(is.mic, as.sir, ab = c(\"cipro\", \"ampicillin\", ...), mo = c(\"E. coli\", \"K. pneumoniae\", ...))  # for veterinary breakpoints, also set `host`: your_data %>% mutate_if(is.mic, as.sir, host = \"column_with_animal_species\", guideline = \"CLSI\") your_data %>% mutate_if(is.disk, as.sir) your_data %>% mutate(across(where(is.disk), as.sir)) your_data %>% mutate_if(is.disk, as.sir, ab = \"column_with_antibiotics\", mo = \"column_with_microorganisms\") your_data %>% mutate_if(is.disk, as.sir, ab = c(\"cipro\", \"ampicillin\", ...), mo = c(\"E. coli\", \"K. pneumoniae\", ...))  # for veterinary breakpoints, also set `host`: your_data %>% mutate_if(is.disk, as.sir, host = \"column_with_animal_species\", guideline = \"CLSI\")"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"supported-guidelines","dir":"Reference","previous_headings":"","what":"Supported Guidelines","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"interpreting MIC values well disk diffusion diameters, currently implemented guidelines clinical microbiology: EUCAST 2011-2024 CLSI 2011-2024, veterinary microbiology: EUCAST 2021-2024 CLSI 2019-2024. Thus, guideline argument must set e.g., \"EUCAST 2024\" \"CLSI 2024\". simply using \"EUCAST\" (default) \"CLSI\" input, latest included version guideline automatically selected. can set data set using reference_data argument. guideline argument ignored. can set default guideline package option AMR_guideline (e.g. .Rprofile file), :   veterinary guidelines, might best options:   applying veterinary breakpoints (setting host setting breakpoint_type = \"animal\"), CLSI VET09 guideline applied cope missing animal species-specific breakpoints.","code":"options(AMR_guideline = \"CLSI\")   options(AMR_guideline = \"CLSI 2018\")   options(AMR_guideline = \"EUCAST 2020\")   # or to reset:   options(AMR_guideline = NULL) options(AMR_guideline = \"CLSI\")   options(AMR_breakpoint_type = \"animal\")"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"after-interpretation","dir":"Reference","previous_headings":"","what":"After Interpretation","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"using .sir(), can use eucast_rules() defined EUCAST (1) apply inferred susceptibility resistance based results antimicrobials (2) apply intrinsic resistance based taxonomic properties microorganism. determine isolates multi-drug resistant, sure run mdro() (applies MDR/PDR/XDR guideline 2012 default) data set contains S//R values. Read interpreting multidrug-resistant organisms .","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"machine-readable-clinical-breakpoints","dir":"Reference","previous_headings":"","what":"Machine-Readable Clinical Breakpoints","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"repository package contains machine-readable version guidelines. CSV file consisting 34 063 rows 14 columns. file machine-readable, since contains one row every unique combination test method (MIC disk diffusion), antimicrobial drug microorganism. allows easy implementation rules laboratory information systems (LIS). Note contains interpretation guidelines humans - interpretation guidelines CLSI animals removed.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"other","dir":"Reference","previous_headings":"","what":"Other","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"function .sir() detects input contains class sir. input data.frame, iterates columns returns logical vector. base R function .double() can used retrieve quantitative values sir object: \"S\" = 1, \"\"/\"SDD\" = 2, \"R\" = 3. values rendered NA . Note: use .integer(), since (R works internally) return factor level indices, aforementioned quantitative values. function is_sir_eligible() returns TRUE column contains 5% invalid antimicrobial interpretations (S //R /NI /SDD), FALSE otherwise. threshold 5% can set threshold argument. input data.frame, iterates columns returns logical vector.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … summary(example_isolates) # see all SIR results at a glance #>       date              patient               age           gender          #>  Min.   :2002-01-02   Length:2000        Min.   : 0.00   Length:2000        #>  1st Qu.:2005-07-31   Class :character   1st Qu.:63.00   Class :character   #>  Median :2009-07-31   Mode  :character   Median :74.00   Mode  :character   #>  Mean   :2009-11-20                      Mean   :70.69                      #>  3rd Qu.:2014-05-30                      3rd Qu.:82.00                      #>  Max.   :2017-12-28                      Max.   :97.00                      #>      ward                mo                  PEN                 #>  Length:2000        Class :mo             Class:sir              #>  Class :character   <NA>  :0              %S   :25.6% (n=417)    #>  Mode  :character   Unique:90             %SDD : 0.0% (n=0)      #>                     #1    :B_ESCHR_COLI   %I   : 0.7% (n=11)     #>                     #2    :B_STPHY_CONS   %R   :73.7% (n=1201)   #>                     #3    :B_STPHY_AURS   %NI  : 0.0% (n=0)      #>     OXA                   FLC                   AMX                #>  Class:sir             Class:sir             Class:sir             #>  %S   :68.8% (n=251)   %S   :70.5% (n=665)   %S   :40.2% (n=543)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)     %I   : 0.0% (n=0)     %I   : 0.2% (n=3)     #>  %R   :31.2% (n=114)   %R   :29.5% (n=278)   %R   :59.6% (n=804)   #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     #>     AMC                    AMP                   TZP                #>  Class:sir              Class:sir             Class:sir             #>  %S   :71.4% (n=1342)   %S   :40.2% (n=543)   %S   :86.1% (n=862)   #>  %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     #>  %I   : 4.8% (n=91)     %I   : 0.2% (n=3)     %I   : 1.3% (n=13)    #>  %R   :23.7% (n=446)    %R   :59.6% (n=804)   %R   :12.6% (n=126)   #>  %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     #>     CZO                   FEP                   CXM                 #>  Class:sir             Class:sir             Class:sir              #>  %S   :54.9% (n=245)   %S   :85.6% (n=620)   %S   :72.5% (n=1297)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      #>  %I   : 0.4% (n=2)     %I   : 0.1% (n=1)     %I   : 1.2% (n=22)     #>  %R   :44.6% (n=199)   %R   :14.2% (n=103)   %R   :26.3% (n=470)    #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      #>     FOX                   CTX                   CAZ                 #>  Class:sir             Class:sir             Class:sir              #>  %S   :71.6% (n=586)   %S   :84.4% (n=796)   %S   :33.5% (n=607)    #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      #>  %I   : 1.0% (n=8)     %I   : 0.1% (n=1)     %I   : 0.0% (n=0)      #>  %R   :27.4% (n=224)   %R   :15.5% (n=146)   %R   :66.5% (n=1204)   #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      #>     CRO                   GEN                    TOB                #>  Class:sir             Class:sir              Class:sir             #>  %S   :84.4% (n=796)   %S   :74.0% (n=1372)   %S   :65.1% (n=879)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     #>  %I   : 0.1% (n=1)     %I   : 1.5% (n=27)     %I   : 0.5% (n=7)     #>  %R   :15.5% (n=146)   %R   :24.6% (n=456)    %R   :34.4% (n=465)   #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     #>     AMK                   KAN                    TMP                #>  Class:sir             Class:sir              Class:sir             #>  %S   :36.3% (n=251)   %S   : 0.0% (n=0)      %S   :61.2% (n=918)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)     %I   : 0.0% (n=0)      %I   : 0.7% (n=10)    #>  %R   :63.7% (n=441)   %R   :100.0% (n=471)   %R   :38.1% (n=571)   #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     #>     SXT                    NIT                   FOS                #>  Class:sir              Class:sir             Class:sir             #>  %S   :79.1% (n=1392)   %S   :76.0% (n=565)   %S   :57.8% (n=203)   #>  %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     #>  %I   : 0.3% (n=6)      %I   : 6.9% (n=51)    %I   : 0.0% (n=0)     #>  %R   :20.5% (n=361)    %R   :17.1% (n=127)   %R   :42.2% (n=148)   #>  %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     #>     LNZ                   CIP                    MFX                #>  Class:sir             Class:sir              Class:sir             #>  %S   :30.7% (n=314)   %S   :78.9% (n=1112)   %S   :64.5% (n=136)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)     %I   : 4.9% (n=69)     %I   : 1.9% (n=4)     #>  %R   :69.3% (n=709)   %R   :16.2% (n=228)    %R   :33.6% (n=71)    #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     #>     VAN                    TEC                   TCY                #>  Class:sir              Class:sir             Class:sir             #>  %S   :61.7% (n=1149)   %S   :24.3% (n=237)   %S   :68.3% (n=820)   #>  %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)      %I   : 0.0% (n=0)     %I   : 1.9% (n=23)    #>  %R   :38.3% (n=712)    %R   :75.7% (n=739)   %R   :29.8% (n=357)   #>  %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     #>     TGC                   DOX                   ERY                 #>  Class:sir             Class:sir             Class:sir              #>  %S   :87.3% (n=697)   %S   :71.7% (n=814)   %S   :42.3% (n=801)    #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      #>  %I   : 0.0% (n=0)     %I   : 0.6% (n=7)     %I   : 0.5% (n=9)      #>  %R   :12.7% (n=101)   %R   :27.7% (n=315)   %R   :57.2% (n=1084)   #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      #>     CLI                   AZM                    IPM                #>  Class:sir             Class:sir              Class:sir             #>  %S   :38.6% (n=586)   %S   :42.3% (n=801)    %S   :92.7% (n=824)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     #>  %I   : 0.3% (n=4)     %I   : 0.5% (n=9)      %I   : 1.1% (n=10)    #>  %R   :61.2% (n=930)   %R   :57.2% (n=1084)   %R   : 6.2% (n=55)    #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     #>     MEM                   MTR                  CHL                #>  Class:sir             Class:sir            Class:sir             #>  %S   :94.1% (n=780)   %S   :85.3% (n=29)   %S   :78.6% (n=121)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)    %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)     %I   : 0.0% (n=0)    %I   : 0.0% (n=0)     #>  %R   : 5.9% (n=49)    %R   :14.7% (n=5)    %R   :21.4% (n=33)    #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)    %NI  : 0.0% (n=0)     #>     COL                    MUP                   RIF                #>  Class:sir              Class:sir             Class:sir             #>  %S   :18.8% (n=309)    %S   :93.0% (n=251)   %S   :30.2% (n=303)   #>  %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)      %I   : 1.1% (n=3)     %I   : 0.2% (n=2)     #>  %R   :81.2% (n=1331)   %R   : 5.9% (n=16)    %R   :69.6% (n=698)   #>  %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      # For INTERPRETING disk diffusion and MIC values -----------------------  # example data sets, with combined MIC values and disk zones df_wide <- data.frame(   microorganism = \"Escherichia coli\",   amoxicillin = as.mic(8),   cipro = as.mic(0.256),   tobra = as.disk(16),   genta = as.disk(18),   ERY = \"R\" ) df_long <- data.frame(   bacteria = rep(\"Escherichia coli\", 4),   antibiotic = c(\"amoxicillin\", \"cipro\", \"tobra\", \"genta\"),   mics = as.mic(c(0.01, 1, 4, 8)),   disks = as.disk(c(6, 10, 14, 18)) )  # \\donttest{ ## Using dplyr ------------------------------------------------- if (require(\"dplyr\")) {   # approaches that all work without additional arguments:   df_wide %>% mutate_if(is.mic, as.sir)   df_wide %>% mutate_if(function(x) is.mic(x) | is.disk(x), as.sir)   df_wide %>% mutate(across(where(is.mic), as.sir))   df_wide %>% mutate_at(vars(amoxicillin:tobra), as.sir)   df_wide %>% mutate(across(amoxicillin:tobra, as.sir))      # approaches that all work with additional arguments:   df_long %>%     # given a certain data type, e.g. MIC values     mutate_if(is.mic, as.sir,               mo = \"bacteria\",               ab = \"antibiotic\",               guideline = \"CLSI\")   df_long %>%     mutate(across(where(is.mic),                   function(x) as.sir(x,                                      mo = \"bacteria\",                                      ab = \"antibiotic\",                                      guideline = \"CLSI\")))   df_wide %>%     # given certain columns, e.g. from 'cipro' to 'genta'     mutate_at(vars(cipro:genta), as.sir,               mo = \"bacteria\",               guideline = \"CLSI\")   df_wide %>%     mutate(across(cipro:genta,                        function(x) as.sir(x,                                           mo = \"bacteria\",                                           guideline = \"CLSI\")))                           # for veterinary breakpoints, add 'host':   df_long$animal_species <- c(\"cats\", \"dogs\", \"horses\", \"cattle\")   df_long %>%     # given a certain data type, e.g. MIC values     mutate_if(is.mic, as.sir,               mo = \"bacteria\",               ab = \"antibiotic\",               host = \"animal_species\",               guideline = \"CLSI\")   df_long %>%     mutate(across(where(is.mic),                   function(x) as.sir(x,                                      mo = \"bacteria\",                                      ab = \"antibiotic\",                                      host = \"animal_species\",                                      guideline = \"CLSI\")))   df_wide %>%     mutate_at(vars(cipro:genta), as.sir,               mo = \"bacteria\",               ab = \"antibiotic\",               host = \"animal_species\",               guideline = \"CLSI\")   df_wide %>%     mutate(across(cipro:genta,                        function(x) as.sir(x,                                           mo = \"bacteria\",                                           host = \"animal_species\",                                           guideline = \"CLSI\")))      # to include information about urinary tract infections (UTI)   data.frame(mo = \"E. coli\",              nitrofuratoin = c(\"<= 2\", 32),              from_the_bladder = c(TRUE, FALSE)) %>%     as.sir(uti = \"from_the_bladder\")    data.frame(mo = \"E. coli\",              nitrofuratoin = c(\"<= 2\", 32),              specimen = c(\"urine\", \"blood\")) %>%     as.sir() # automatically determines urine isolates    df_wide %>%     mutate_at(vars(cipro:genta), as.sir, mo = \"E. coli\", uti = TRUE) } #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'amoxicillin' (AMX) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for amoxicillin (AMX) in Escherichia coli - assuming body site 'Intravenous'. Use argument uti to set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli - assuming body site 'Non-meningitis'. #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'amoxicillin' (AMX) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for amoxicillin (AMX) in Escherichia coli - assuming body site 'Intravenous'. Use argument uti to set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin) based on #> column 'microorganism', EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in Escherichia coli - assuming an unspecified body site. Use argument uti to set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: 'genta' (GEN, gentamicin) based on #> column 'microorganism', EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in Escherichia coli - assuming an unspecified body site. Use argument uti to set which isolates are from urine. See ?as.sir. #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'amoxicillin' (AMX) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for amoxicillin (AMX) in Escherichia coli - assuming body site 'Intravenous'. Use argument uti to set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli - assuming body site 'Non-meningitis'. #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'amoxicillin' (AMX) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for amoxicillin (AMX) in Escherichia coli - assuming body site 'Intravenous'. Use argument uti to set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin) based on #> column 'microorganism', EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in Escherichia coli - assuming an unspecified body site. Use argument uti to set which isolates are from urine. See ?as.sir. #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'amoxicillin' (AMX) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for amoxicillin (AMX) in Escherichia coli - assuming body site 'Intravenous'. Use argument uti to set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin) based on #> column 'microorganism', EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in Escherichia coli - assuming an unspecified body site. Use argument uti to set which isolates are from urine. See ?as.sir. #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'amoxicillin' (AMX), 'cipro' (CIP, ciprofloxacin), #> 'tobra' (TOB, tobramycin), and 'genta' (GEN, gentamicin) based on column #> 'bacteria', CLSI 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'amoxicillin' (AMX), 'cipro' (CIP, ciprofloxacin), #> 'tobra' (TOB, tobramycin), and 'genta' (GEN, gentamicin) based on column #> 'bacteria', CLSI 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin), CLSI 2024... #>  OK  #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin), CLSI 2024... #>  OK  #> Interpreting disk diffusion zones: 'genta' (GEN, gentamicin), CLSI 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin), CLSI 2024... #>  OK  #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin), CLSI 2024... #>  OK  #> Interpreting disk diffusion zones: 'genta' (GEN, gentamicin), CLSI 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> ℹ Assuming breakpoint_type = \"animal\", since host is set. #> ℹ Please note that in the absence of specific veterinary breakpoints for #>   certain animal hosts, the CLSI guideline VET09 will be applied where #>   possible. #> Interpreting MIC values: 'amoxicillin' (AMX), 'cipro' (CIP, ciprofloxacin), #> 'tobra' (TOB, tobramycin), and 'genta' (GEN, gentamicin) based on column #> 'bacteria', CLSI 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> ℹ Assuming breakpoint_type = \"animal\", since host is set. #> ℹ Please note that in the absence of specific veterinary breakpoints for #>   certain animal hosts, the CLSI guideline VET09 will be applied where #>   possible. #> Interpreting MIC values: 'amoxicillin' (AMX), 'cipro' (CIP, ciprofloxacin), #> 'tobra' (TOB, tobramycin), and 'genta' (GEN, gentamicin) based on column #> 'bacteria', CLSI 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> ℹ Assuming breakpoint_type = \"animal\", since host is set. #>  #> ℹ Please note that in the absence of specific veterinary breakpoints for #>   certain animal hosts, the CLSI guideline VET09 will be applied where #>   possible. #> Interpreting MIC values: 'antibiotic' (TESTAB, test Antibiotic), CLSI #> 2024... #>  WARNING  #>   • No CLSI 2024 MIC breakpoints available for test Antibiotic (TESTAB). #> Interpreting disk diffusion zones: 'antibiotic' (TESTAB, test Antibiotic), #> CLSI 2024... #>  WARNING  #>   • No CLSI 2024 DISK breakpoints available for test Antibiotic (TESTAB). #> Interpreting disk diffusion zones: 'antibiotic' (TESTAB, test Antibiotic), #> CLSI 2024... #>  WARNING  #>   • No CLSI 2024 DISK breakpoints available for test Antibiotic (TESTAB). #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `cipro = (function (x, ...) ...`. #> Caused by warning: #> ! The following animal host(s) could not be coerced: \"animal_species\" #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> ℹ Assuming breakpoint_type = \"animal\", since host is set. #>  #> ℹ Please note that in the absence of specific veterinary breakpoints for #>   certain animal hosts, the CLSI guideline VET09 will be applied where #>   possible. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin), CLSI 2024... #>  OK  #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin), CLSI 2024... #>  OK  #> Interpreting disk diffusion zones: 'genta' (GEN, gentamicin), CLSI 2024... #>  OK  #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `across(...)`. #> Caused by warning: #> ! The following animal host(s) could not be coerced: \"animal_species\" #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting disk diffusion zones: column 'nitrofuratoin' (NIT, #> nitrofurantoin), EUCAST 2024... #>  OK  #> ℹ Assuming value \"urine\" in column 'specimen' reflects a urinary tract #>   infection. #>   Use as.sir(uti = FALSE) to prevent this. #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting disk diffusion zones: column 'nitrofuratoin' (NIT, #> nitrofurantoin), EUCAST 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin), EUCAST 2024... #>  OK  #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin), EUCAST #> 2024... #>  OK  #> Interpreting disk diffusion zones: 'genta' (GEN, gentamicin), EUCAST #> 2024... #>  OK  #>      microorganism amoxicillin cipro tobra genta ERY #> 1 Escherichia coli           8  <NA>     S     S   R   ## Using base R ------------------------------------------------  as.sir(df_wide) #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: column 'amoxicillin' (AMX), EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for amoxicillin (AMX) in Escherichia coli - assuming body site 'Intravenous'. Use argument uti to set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: column 'cipro' (CIP, ciprofloxacin), EUCAST #> 2024... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: column 'tobra' (TOB, tobramycin), EUCAST #> 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in Escherichia coli - assuming an unspecified body site. Use argument uti to set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: column 'genta' (GEN, gentamicin), EUCAST #> 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in Escherichia coli - assuming an unspecified body site. Use argument uti to set which isolates are from urine. See ?as.sir. #> Assigning class 'sir' to already clean column 'ERY' (erythromycin)... #>  OK  #>      microorganism amoxicillin cipro tobra genta ERY #> 1 Escherichia coli           S     I     S     S   R  # return a 'logbook' about the results: sir_interpretation_history() #> # A tibble: 57 × 16 #>    datetime            index ab_given mo_given host_given ab   mo               #>  * <dttm>              <int> <chr>    <chr>    <chr>      <ab> <mo>             #>  1 2024-12-20 10:00:38     4 AMX      B_STRPT… human      AMX  B_STRPT_PNMN     #>  2 2024-12-20 10:00:46     4 genta    Escheri… human      GEN  B_[ORD]_ENTRBCTR #>  3 2024-12-20 10:00:46     4 genta    Escheri… human      GEN  B_[ORD]_ENTRBCTR #>  4 2024-12-20 10:00:47     4 genta    Escheri… cattle     GEN  B_ESCHR_COLI     #>  5 2024-12-20 10:00:47     4 genta    Escheri… cattle     GEN  B_ESCHR_COLI     #>  6 2024-12-20 10:00:38     3 AMX      B_STRPT… human      AMX  B_STRPT_PNMN     #>  7 2024-12-20 10:00:46     3 tobra    Escheri… human      TOB  B_[ORD]_ENTRBCTR #>  8 2024-12-20 10:00:46     3 tobra    Escheri… human      TOB  B_[ORD]_ENTRBCTR #>  9 2024-12-20 10:00:47     3 tobra    Escheri… horses     TOB  B_ESCHR_COLI     #> 10 2024-12-20 10:00:47     3 tobra    Escheri… horses     TOB  B_ESCHR_COLI     #> # ℹ 47 more rows #> # ℹ 9 more variables: host <chr>, method <chr>, input <dbl>, outcome <sir>, #> #   notes <chr>, guideline <chr>, ref_table <chr>, uti <lgl>, #> #   breakpoint_S_R <chr>  # for single values as.sir(   x = as.mic(2),   mo = as.mo(\"S. pneumoniae\"),   ab = \"AMP\",   guideline = \"EUCAST\" ) #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2024... #>  NOTE  #>   • Multiple breakpoints available for ampicillin (AMP) in Streptococcus pneumoniae - assuming body site 'Non-meningitis'. #> Class 'sir' #> [1] R  as.sir(   x = as.disk(18),   mo = \"Strep pneu\", # `mo` will be coerced with as.mo()   ab = \"ampicillin\", # and `ab` with as.ab()   guideline = \"EUCAST\" ) #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting disk diffusion zones: 'ampicillin' (AMP), EUCAST 2024... #>  OK  #> Class 'sir' #> [1] R   # For CLEANING existing SIR values ------------------------------------  as.sir(c(\"S\", \"SDD\", \"I\", \"R\", \"NI\", \"A\", \"B\", \"C\")) #> Warning: in as.sir(): 3 results in column '19' truncated (38%) that were invalid #> antimicrobial interpretations: \"A\", \"B\", and \"C\" as.sir(\"<= 0.002; S\") # will return \"S\" sir_data <- as.sir(c(rep(\"S\", 474), rep(\"I\", 36), rep(\"R\", 370))) is.sir(sir_data) #> [1] TRUE plot(sir_data) # for percentages  barplot(sir_data) # for frequencies   # as common in R, you can use as.integer() to return factor indices: as.integer(as.sir(c(\"S\", \"SDD\", \"I\", \"R\", \"NI\", NA))) #> [1]  1  2  3  4  5 NA # but for computational use, as.double() will return 1 for S, 2 for I/SDD, and 3 for R: as.double(as.sir(c(\"S\", \"SDD\", \"I\", \"R\", \"NI\", NA))) #> [1]  1  2  2  3 NA NA  # the dplyr way if (require(\"dplyr\")) {   example_isolates %>%     mutate_at(vars(PEN:RIF), as.sir)   # same:   example_isolates %>%     as.sir(PEN:RIF)    # fastest way to transform all columns with already valid AMR results to class `sir`:   example_isolates %>%     mutate_if(is_sir_eligible, as.sir)    # since dplyr 1.0.0, this can also be:   # example_isolates %>%   #   mutate(across(where(is_sir_eligible), as.sir)) } #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # }"},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":null,"dir":"Reference","previous_headings":"","what":"Get ATC Properties from WHOCC Website — atc_online_property","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"Gets data WHOCC website determine properties Anatomical Therapeutic Chemical (ATC) (e.g. antibiotic), name, defined daily dose (DDD) standard unit.","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"","code":"atc_online_property(   atc_code,   property,   administration = \"O\",   url = \"https://atcddd.fhi.no/atc_ddd_index/?code=%s&showdescription=no\",   url_vet = \"https://atcddd.fhi.no/atcvet/atcvet_index/?code=%s&showdescription=no\" )  atc_online_groups(atc_code, ...)  atc_online_ddd(atc_code, ...)  atc_online_ddd_units(atc_code, ...)"},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"https://atcddd.fhi./atc_ddd_alterations__cumulative/ddd_alterations/abbrevations/","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"atc_code character (vector) ATC code(s) antibiotics, coerced .ab() ab_atc() internally valid ATC code property property ATC code. Valid values \"ATC\", \"Name\", \"DDD\", \"U\" (\"unit\"), \"Adm.R\", \"Note\" groups. last option, hierarchical groups ATC code returned, see Examples. administration type administration using property = \"Adm.R\", see Details url url website WHOCC. sign %s can used placeholder ATC codes. url_vet url website WHOCC veterinary medicine. sign %s can used placeholder ATC_vet codes (start \"Q\"). ... arguments pass atc_property","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"Options argument administration: \"Implant\" = Implant \"Inhal\" = Inhalation \"Instill\" = Instillation \"N\" = nasal \"O\" = oral \"P\" = parenteral \"R\" = rectal \"SL\" = sublingual/buccal \"TD\" = transdermal \"V\" = vaginal Abbreviations return values using property = \"U\" (unit): \"g\" = gram \"mg\" = milligram \"mcg\" = microgram \"U\" = unit \"TU\" = thousand units \"MU\" = million units \"mmol\" = millimole \"ml\" = millilitre (e.g. eyedrops) N.B. function requires internet connection works following packages installed: curl, rvest, xml2.","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"","code":"# \\donttest{ if (requireNamespace(\"curl\") && requireNamespace(\"rvest\") && requireNamespace(\"xml2\")) {   # oral DDD (Defined Daily Dose) of amoxicillin   atc_online_property(\"J01CA04\", \"DDD\", \"O\")   atc_online_ddd(ab_atc(\"amox\"))    # parenteral DDD (Defined Daily Dose) of amoxicillin   atc_online_property(\"J01CA04\", \"DDD\", \"P\")    atc_online_property(\"J01CA04\", property = \"groups\") # search hierarchical groups of amoxicillin } #> Loading required namespace: rvest #> [1] \"ANTIINFECTIVES FOR SYSTEMIC USE\"         #> [2] \"ANTIBACTERIALS FOR SYSTEMIC USE\"         #> [3] \"BETA-LACTAM ANTIBACTERIALS, PENICILLINS\" #> [4] \"Penicillins with extended spectrum\"      # }"},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":null,"dir":"Reference","previous_headings":"","what":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"Use function e.g. clinical texts health care records. returns list antiviral drugs, doses forms administration found texts.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"","code":"av_from_text(   text,   type = c(\"drug\", \"dose\", \"administration\"),   collapse = NULL,   translate_av = FALSE,   thorough_search = NULL,   info = interactive(),   ... )"},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"text text analyse type type property search , either \"drug\", \"dose\" \"administration\", see Examples collapse character pass paste(, collapse = ...) return one character per element text, see Examples translate_av type = \"drug\": column name antivirals data set translate antibiotic abbreviations , using av_property(). default FALSE. Using TRUE equal using \"name\". thorough_search logical indicate whether input must extensively searched misspelling faulty input values. Setting TRUE take considerably time using FALSE. default, turn TRUE input elements contain maximum three words. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed .av()","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"list,  character collapse NULL","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"function also internally used .av(), although searches first drug name throw note drug names returned. Note: .av() function may use long regular expression match brand names antiviral drugs. may fail systems.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"argument-type","dir":"Reference","previous_headings":"","what":"Argument type","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"default, function search antiviral drug names. text elements searched official names, ATC codes brand names. uses .av() internally, correct misspelling. type = \"dose\" (similar, like \"dosing\", \"doses\"), text elements searched numeric values higher 100 resemble years. output numeric. supports unit (g, mg, IE, etc.) multiple values one clinical text, see Examples. type = \"administration\" (abbreviations, like \"admin\", \"adm\"), text elements searched form drug administration. supports following forms (including common abbreviations): buccal, implant, inhalation, instillation, intravenous, nasal, oral, parenteral, rectal, sublingual, transdermal vaginal. Abbreviations oral ('po', 'per os') become \"oral\", values intravenous ('iv', 'intraven') become \"iv\". supports multiple values one clinical text, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"argument-collapse","dir":"Reference","previous_headings":"","what":"Argument collapse","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"Without using collapse, function return list. can convenient use e.g. inside mutate()):df %>% mutate(avx = av_from_text(clinical_text)) returned AV codes can transformed official names, groups, etc. av_* functions av_name() av_group(), using translate_av argument. using collapse, function return character:df %>% mutate(avx = av_from_text(clinical_text, collapse = \"|\"))","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"","code":"av_from_text(\"28/03/2020 valaciclovir po tid\") #> [[1]] #> Class 'av' #> [1] VALA #>  av_from_text(\"28/03/2020 valaciclovir po tid\", type = \"admin\") #> [[1]] #> [1] \"oral\" #>"},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of an Antiviral Drug — av_property","title":"Get Properties of an Antiviral Drug — av_property","text":"Use functions return specific property antiviral drug antivirals data set. input values evaluated internally .av().","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of an Antiviral Drug — av_property","text":"","code":"av_name(x, language = get_AMR_locale(), tolower = FALSE, ...)  av_cid(x, ...)  av_synonyms(x, ...)  av_tradenames(x, ...)  av_group(x, language = get_AMR_locale(), ...)  av_atc(x, ...)  av_loinc(x, ...)  av_ddd(x, administration = \"oral\", ...)  av_ddd_units(x, administration = \"oral\", ...)  av_info(x, language = get_AMR_locale(), ...)  av_url(x, open = FALSE, ...)  av_property(x, property = \"name\", language = get_AMR_locale(), ...)"},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of an Antiviral Drug — av_property","text":"x (vector ) text can coerced valid antiviral drug code .av() language language returned text - default system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. tolower logical indicate whether first character every output transformed lower case character. ... arguments passed .av() administration way administration, either \"oral\" \"iv\" open browse URL using utils::browseURL() property one column names one antivirals data set: vector_or(colnames(antivirals), sort = FALSE).","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of an Antiviral Drug — av_property","text":"integer case av_cid() named list case av_info() multiple av_atc()/av_synonyms()/av_tradenames() double case av_ddd() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of an Antiviral Drug — av_property","text":"output translated possible. function av_url() return direct URL official website. warning returned required ATC code available.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of an Antiviral Drug — av_property","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://atcddd.fhi./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of an Antiviral Drug — av_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of an Antiviral Drug — av_property","text":"","code":"# all properties: av_name(\"ACI\") #> [1] \"Aciclovir\" av_atc(\"ACI\") #> [1] \"J05AB01\" av_cid(\"ACI\") #> [1] 135398513 av_synonyms(\"ACI\") #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            av_tradenames(\"ACI\") #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            av_group(\"ACI\") #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" av_url(\"ACI\") #>                                                              Aciclovir  #> \"https://atcddd.fhi.no/atc_ddd_index/?code=J05AB01&showdescription=no\"   # lowercase transformation av_name(x = c(\"ACI\", \"VALA\")) #> [1] \"Aciclovir\"    \"Valaciclovir\" av_name(x = c(\"ACI\", \"VALA\"), tolower = TRUE) #> [1] \"aciclovir\"    \"valaciclovir\"  # defined daily doses (DDD) av_ddd(\"ACI\", \"oral\") #> [1] 4 av_ddd_units(\"ACI\", \"oral\") #> [1] \"g\" av_ddd(\"ACI\", \"iv\") #> [1] 4 av_ddd_units(\"ACI\", \"iv\") #> [1] \"g\"  av_info(\"ACI\") # all properties as a list #> $av #> [1] \"ACI\" #>  #> $cid #> [1] 135398513 #>  #> $name #> [1] \"Aciclovir\" #>  #> $group #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" #>  #> $atc #> [1] \"J05AB01\" #>  #> $tradenames #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            #>  #> $loinc #> [1] \"\" #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 4 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 4 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all av_* functions use as.av() internally, so you can go from 'any' to 'any': av_atc(\"ACI\") #> [1] \"J05AB01\" av_group(\"J05AB01\") #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" av_loinc(\"abacavir\") #> [1] \"29113-8\" \"30273-7\" \"30287-7\" \"30303-2\" \"78772-1\" \"78773-9\" \"79134-3\" #> [8] \"80118-3\" av_name(\"29113-8\") #> [1] \"Abacavir\" av_name(135398513) #> [1] \"Aciclovir\" av_name(\"J05AB01\") #> [1] \"Aciclovir\""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":null,"dir":"Reference","previous_headings":"","what":"Check Availability of Columns — availability","title":"Check Availability of Columns — availability","text":"Easy check data availability columns data set. makes easy get idea antimicrobial combinations can used calculation e.g. susceptibility() resistance().","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Check Availability of Columns — availability","text":"","code":"availability(tbl, width = NULL)"},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Check Availability of Columns — availability","text":"tbl data.frame list width number characters present visual availability - default filling width console","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Check Availability of Columns — availability","text":"data.frame column names tbl row names","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Check Availability of Columns — availability","text":"function returns data.frame columns \"resistant\" \"visual_resistance\". values columns calculated resistance().","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Check Availability of Columns — availability","text":"","code":"availability(example_isolates) #>         count available     visual_availabilty resistant      visual_resistance #> date     2000    100.0% |####################|                                  #> patient  2000    100.0% |####################|                                  #> age      2000    100.0% |####################|                                  #> gender   2000    100.0% |####################|                                  #> ward     2000    100.0% |####################|                                  #> mo       2000    100.0% |####################|                                  #> PEN      1629     81.5% |################----|     73.7% |##############------| #> OXA       365     18.3% |###-----------------|     31.2% |######--------------| #> FLC       943     47.2% |#########-----------|     29.5% |#####---------------| #> AMX      1350     67.5% |#############-------|     59.6% |###########---------| #> AMC      1879     94.0% |##################--|     23.7% |####----------------| #> AMP      1350     67.5% |#############-------|     59.6% |###########---------| #> TZP      1001     50.0% |##########----------|     12.6% |##------------------| #> CZO       446     22.3% |####----------------|     44.6% |########------------| #> FEP       724     36.2% |#######-------------|     14.2% |##------------------| #> CXM      1789     89.5% |#################---|     26.3% |#####---------------| #> FOX       818     40.9% |########------------|     27.4% |#####---------------| #> CTX       943     47.2% |#########-----------|     15.5% |###-----------------| #> CAZ      1811     90.6% |##################--|     66.5% |#############-------| #> CRO       943     47.2% |#########-----------|     15.5% |###-----------------| #> GEN      1855     92.8% |##################--|     24.6% |####----------------| #> TOB      1351     67.6% |#############-------|     34.4% |######--------------| #> AMK       692     34.6% |######--------------|     63.7% |############--------| #> KAN       471     23.6% |####----------------|    100.0% |####################| #> TMP      1499     75.0% |###############-----|     38.1% |#######-------------| #> SXT      1759     88.0% |#################---|     20.5% |####----------------| #> NIT       743     37.2% |#######-------------|     17.1% |###-----------------| #> FOS       351     17.6% |###-----------------|     42.2% |########------------| #> LNZ      1023     51.2% |##########----------|     69.3% |#############-------| #> CIP      1409     70.5% |#############-------|     16.2% |###-----------------| #> MFX       211     10.6% |##------------------|     33.6% |######--------------| #> VAN      1861     93.1% |##################--|     38.3% |#######-------------| #> TEC       976     48.8% |#########-----------|     75.7% |###############-----| #> TCY      1200     60.0% |###########---------|     29.8% |#####---------------| #> TGC       798     39.9% |########------------|     12.7% |##------------------| #> DOX      1136     56.8% |###########---------|     27.7% |#####---------------| #> ERY      1894     94.7% |##################--|     57.2% |###########---------| #> CLI      1520     76.0% |###############-----|     61.2% |############--------| #> AZM      1894     94.7% |##################--|     57.2% |###########---------| #> IPM       889     44.5% |########------------|      6.2% |#-------------------| #> MEM       829     41.5% |########------------|      5.9% |#-------------------| #> MTR        34      1.7% |--------------------|     14.7% |##------------------| #> CHL       154      7.7% |#-------------------|     21.4% |####----------------| #> COL      1640     82.0% |################----|     81.2% |################----| #> MUP       270     13.5% |##------------------|      5.9% |#-------------------| #> RIF      1003     50.2% |##########----------|     69.6% |#############-------| # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     filter(mo == as.mo(\"Escherichia coli\")) %>%     select_if(is.sir) %>%     availability() } #>     count available       visual_availabilty resistant        visual_resistance #> PEN   467    100.0% |######################|    100.0% |######################| #> OXA     0      0.0% |----------------------|                                    #> FLC     0      0.0% |----------------------|                                    #> AMX   392     83.9% |##################----|     50.0% |###########-----------| #> AMC   467    100.0% |######################|     13.1% |##--------------------| #> AMP   392     83.9% |##################----|     50.0% |###########-----------| #> TZP   416     89.1% |###################---|      5.5% |#---------------------| #> CZO    82     17.6% |###-------------------|      2.4% |----------------------| #> FEP   317     67.9% |##############--------|      2.8% |----------------------| #> CXM   465     99.6% |######################|      5.4% |#---------------------| #> FOX   377     80.7% |#################-----|      6.9% |#---------------------| #> CTX   459     98.3% |#####################-|      2.4% |----------------------| #> CAZ   460     98.5% |#####################-|      2.4% |----------------------| #> CRO   459     98.3% |#####################-|      2.4% |----------------------| #> GEN   460     98.5% |#####################-|      2.0% |----------------------| #> TOB   462     98.9% |#####################-|      2.6% |----------------------| #> AMK   171     36.6% |########--------------|      0.0% |----------------------| #> KAN     0      0.0% |----------------------|                                    #> TMP   396     84.8% |##################----|     39.1% |########--------------| #> SXT   465     99.6% |######################|     31.6% |######----------------| #> NIT   458     98.1% |#####################-|      2.8% |----------------------| #> FOS    61     13.1% |##--------------------|      0.0% |----------------------| #> LNZ   467    100.0% |######################|    100.0% |######################| #> CIP   456     97.6% |#####################-|     12.5% |##--------------------| #> MFX    57     12.2% |##--------------------|    100.0% |######################| #> VAN   467    100.0% |######################|    100.0% |######################| #> TEC   467    100.0% |######################|    100.0% |######################| #> TCY     3      0.6% |----------------------|     66.7% |##############--------| #> TGC    68     14.6% |###-------------------|      0.0% |----------------------| #> DOX     0      0.0% |----------------------|                                    #> ERY   467    100.0% |######################|    100.0% |######################| #> CLI   467    100.0% |######################|    100.0% |######################| #> AZM   467    100.0% |######################|    100.0% |######################| #> IPM   422     90.4% |###################---|      0.0% |----------------------| #> MEM   418     89.5% |###################---|      0.0% |----------------------| #> MTR     2      0.4% |----------------------|      0.0% |----------------------| #> CHL     0      0.0% |----------------------|                                    #> COL   240     51.4% |###########-----------|      0.0% |----------------------| #> MUP     0      0.0% |----------------------|                                    #> RIF   467    100.0% |######################|    100.0% |######################| # }"},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Bug-Drug Combinations — bug_drug_combinations","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"Determine antimicrobial resistance (AMR) bug-drug combinations data set least 30 (default) isolates available per species. Use format() result prettify publishable/printable format, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"bug_drug_combinations(x, col_mo = NULL, FUN = mo_shortname, ...)  # S3 method for class 'bug_drug_combinations' format(   x,   translate_ab = \"name (ab, atc)\",   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   add_ab_group = TRUE,   remove_intrinsic_resistant = FALSE,   decimal.mark = getOption(\"OutDec\"),   big.mark = ifelse(decimal.mark == \",\", \".\", \",\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"x data set antibiotic columns, amox, AMX AMC col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). FUN function call mo column transform microorganism codes - default mo_shortname() ... arguments passed FUN translate_ab character length 1 containing column names antibiotics data set language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether values S, SDD, summed, resistance based R - default TRUE add_ab_group logical indicate group antimicrobials must included first column remove_intrinsic_resistant logical indicate rows columns 100% resistance tested antimicrobials must removed table decimal.mark character used indicate numeric     decimal point. big.mark character; empty used mark every     big.interval decimals (hence big)     decimal point.","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function bug_drug_combinations() returns data.frame columns \"mo\", \"ab\", \"S\", \"SDD\", \"\", \"R\", \"total\".","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function format() calculates resistance per bug-drug combination returns table ready reporting/publishing. Use combine_SI = TRUE (default) test R vs. S+combine_SI = FALSE test R+vs. S. table can also directly used R Markdown / Quarto without need e.g. knitr::kable().","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # \\donttest{ x <- bug_drug_combinations(example_isolates) head(x) #> # A tibble: 6 × 8 #>   mo                ab        S   SDD     I     R    NI total #>   <chr>             <chr> <int> <int> <int> <int> <int> <int> #> 1 (unknown species) AMC      15     0     0     0     0    15 #> 2 (unknown species) AMK       0     0     0     0     0     0 #> 3 (unknown species) AMP      15     0     0     1     0    16 #> 4 (unknown species) AMX      15     0     0     1     0    16 #> 5 (unknown species) AZM       3     0     0     3     0     6 #> 6 (unknown species) CAZ       0     0     0     0     0     0 #> Use 'format()' on this result to get a publishable/printable format. format(x, translate_ab = \"name (atc)\") #> # A tibble: 39 × 12 #>    Group     Drug  CoNS  `E. coli` `E. faecalis` `K. pneumoniae` `P. aeruginosa` #>    <chr>     <chr> <chr> <chr>     <chr>         <chr>           <chr>           #>  1 \"Aminogl… Amik… \"100… \"  0.0% … \"100.0% (39/… \"\"              \"\"              #>  2 \"\"        Gent… \" 13… \"  2.0% … \"100.0% (39/… \" 10.3% (6/58)\" \"  0.0% (0/30)\" #>  3 \"\"        Kana… \"100… \"\"        \"100.0% (39/… \"\"              \"100.0% (30/30… #>  4 \"\"        Tobr… \" 78… \"  2.6% … \"100.0% (39/… \" 10.3% (6/58)\" \"  0.0% (0/30)\" #>  5 \"Ampheni… Chlo… \"\"    \"\"        \"\"            \"\"              \"100.0% (30/30… #>  6 \"Antimyc… Rifa… \"\"    \"100.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #>  7 \"Beta-la… Amox… \" 93… \" 50.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #>  8 \"\"        Amox… \" 42… \" 13.1% … \"\"            \" 10.3% (6/58)\" \"100.0% (30/30… #>  9 \"\"        Ampi… \" 93… \" 50.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #> 10 \"\"        Benz… \" 77… \"100.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #> # ℹ 29 more rows #> # ℹ 5 more variables: `P. mirabilis` <chr>, `S. aureus` <chr>, #> #   `S. epidermidis` <chr>, `S. hominis` <chr>, `S. pneumoniae` <chr>  # Use FUN to change to transformation of microorganism codes bug_drug_combinations(example_isolates,   FUN = mo_gramstain ) #> # A tibble: 80 × 8 #>    mo            ab        S   SDD     I     R    NI total #>  * <chr>         <chr> <int> <int> <int> <int> <int> <int> #>  1 Gram-negative AMC     463     0    89   174     0   726 #>  2 Gram-negative AMK     251     0     0     5     0   256 #>  3 Gram-negative AMP     226     0     0   405     0   631 #>  4 Gram-negative AMX     226     0     0   405     0   631 #>  5 Gram-negative AZM       1     0     2   696     0   699 #>  6 Gram-negative CAZ     607     0     0    27     0   634 #>  7 Gram-negative CHL       1     0     0    30     0    31 #>  8 Gram-negative CIP     610     0    11    63     0   684 #>  9 Gram-negative CLI      18     0     1   709     0   728 #> 10 Gram-negative COL     309     0     0    78     0   387 #> # ℹ 70 more rows #> Use 'format()' on this result to get a publishable/printable format.  bug_drug_combinations(example_isolates,   FUN = function(x) {     ifelse(x == as.mo(\"Escherichia coli\"),       \"E. coli\",       \"Others\"     )   } ) #> # A tibble: 80 × 8 #>    mo      ab        S   SDD     I     R    NI total #>  * <chr>   <chr> <int> <int> <int> <int> <int> <int> #>  1 E. coli AMC     332     0    74    61     0   467 #>  2 E. coli AMK     171     0     0     0     0   171 #>  3 E. coli AMP     196     0     0   196     0   392 #>  4 E. coli AMX     196     0     0   196     0   392 #>  5 E. coli AZM       0     0     0   467     0   467 #>  6 E. coli CAZ     449     0     0    11     0   460 #>  7 E. coli CHL       0     0     0     0     0     0 #>  8 E. coli CIP     398     0     1    57     0   456 #>  9 E. coli CLI       0     0     0   467     0   467 #> 10 E. coli COL     240     0     0     0     0   240 #> # ℹ 70 more rows #> Use 'format()' on this result to get a publishable/printable format. # }"},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Data set containing clinical breakpoints interpret MIC disk diffusion SIR values, according international guidelines. dataset contain breakpoints humans, 7 different animal groups, ECOFFs. breakpoints currently implemented: clinical microbiology: EUCAST 2011-2024 CLSI 2011-2024; veterinary microbiology: EUCAST 2021-2024 CLSI 2019-2024; ECOFFs (Epidemiological Cut-Values): EUCAST 2020-2024 CLSI 2022-2024. Use .sir() transform MICs disks measurements SIR values.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"","code":"clinical_breakpoints"},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"tibble 34 063 observations 14 variables: guideline Name guideline type Breakpoint type, either \"ECOFF\", \"animal\", \"human\" host Host infectious agent. mostly useful veterinary breakpoints either \"ECOFF\", \"aquatic\", \"cats\", \"cattle\", \"dogs\", \"horse\", \"human\", \"poultry\", \"swine\" method Testing method, either \"DISK\" \"MIC\" site Body site breakpoint must applied, e.g. \"Oral\" \"Respiratory\" mo Microbial ID, see .mo() rank_index Taxonomic rank index mo 1 (subspecies/infraspecies) 5 (unknown microorganism) ab Antibiotic code used package, EARS-Net WHONET, see .ab() ref_tbl Info guideline rule can found disk_dose Dose used disk diffusion method breakpoint_S Lowest MIC value highest number millimetres leads \"S\" breakpoint_R Highest MIC value lowest number millimetres leads \"R\" uti logical value (TRUE/FALSE) indicate whether rule applies urinary tract infection (UTI) is_SDD logical value (TRUE/FALSE) indicate whether intermediate range \"S\" \"R\" interpreted \"SDD\", instead \"\". currently applies 24 breakpoints.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"different-types-of-breakpoints","dir":"Reference","previous_headings":"","what":"Different types of breakpoints","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Supported types breakpoints ECOFF, animal, human. ECOFF (Epidemiological cut-) values used antimicrobial susceptibility testing differentiate wild-type non-wild-type strains bacteria fungi. default \"human\", can also set package option AMR_breakpoint_type. Use .sir(..., breakpoint_type = ...) interpret raw data using specific breakpoint type, e.g. .sir(..., breakpoint_type = \"ECOFF\") use ECOFFs.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"imported-from-whonet","dir":"Reference","previous_headings":"","what":"Imported from WHONET","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Clinical breakpoints package validated imported WHONET, free desktop Windows application developed supported Collaborating Centre Surveillance Antimicrobial Resistance. can read website. developers WHONET AMR package contact sharing work. highly appreciate great development WHONET software.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"response-from-clsi-and-eucast","dir":"Reference","previous_headings":"","what":"Response from CLSI and EUCAST","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"CEO CLSI chairman EUCAST endorsed work public use AMR package (consequently use breakpoints) June 2023, future development distributing clinical breakpoints discussed meeting CLSI, EUCAST, , developers WHONET software, developers AMR package.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"download","dir":"Reference","previous_headings":"","what":"Download","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. Please visit website download links. actual files course available GitHub repository. allow machine reading EUCAST CLSI guidelines, almost impossible MS Excel PDF files distributed EUCAST CLSI, though initiatives started overcome burdens. NOTE: AMR package (WHONET software well) contains rather complex internal methods apply guidelines. example, breakpoints must applied certain species groups (case package available microorganisms.groups data set). important considered using breakpoints use.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"","code":"clinical_breakpoints #> # A tibble: 34,063 × 14 #>    guideline   type  host  method site    mo            rank_index ab   ref_tbl  #>    <chr>       <chr> <chr> <chr>  <chr>   <mo>               <dbl> <ab> <chr>    #>  1 EUCAST 2024 human human DISK   NA      B_ACHRMB_XYLS          2 MEM  A. xylo… #>  2 EUCAST 2024 human human MIC    NA      B_ACHRMB_XYLS          2 MEM  A. xylo… #>  3 EUCAST 2024 human human DISK   NA      B_ACHRMB_XYLS          2 SXT  A. xylo… #>  4 EUCAST 2024 human human MIC    NA      B_ACHRMB_XYLS          2 SXT  A. xylo… #>  5 EUCAST 2024 human human DISK   NA      B_ACHRMB_XYLS          2 TZP  A. xylo… #>  6 EUCAST 2024 human human MIC    NA      B_ACHRMB_XYLS          2 TZP  A. xylo… #>  7 EUCAST 2024 human human DISK   NA      B_ACNTB                3 AMK  Acineto… #>  8 EUCAST 2024 human human DISK   Uncomp… B_ACNTB                3 AMK  Acineto… #>  9 EUCAST 2024 human human MIC    NA      B_ACNTB                3 AMK  Acineto… #> 10 EUCAST 2024 human human MIC    Uncomp… B_ACNTB                3 AMK  Acineto… #> # ℹ 34,053 more rows #> # ℹ 5 more variables: disk_dose <chr>, breakpoint_S <dbl>, breakpoint_R <dbl>, #> #   uti <lgl>, is_SDD <lgl>"},{"path":"https://msberends.github.io/AMR/reference/count.html","id":null,"dir":"Reference","previous_headings":"","what":"Count Available Isolates — count","title":"Count Available Isolates — count","text":"functions can used count resistant/susceptible microbial isolates. functions support quasiquotation pipes, can used summarise() dplyr package also support grouped variables, see Examples. count_resistant() used count resistant isolates, count_susceptible() used count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Count Available Isolates — count","text":"","code":"count_resistant(..., only_all_tested = FALSE)  count_susceptible(..., only_all_tested = FALSE)  count_S(..., only_all_tested = FALSE)  count_SI(..., only_all_tested = FALSE)  count_I(..., only_all_tested = FALSE)  count_IR(..., only_all_tested = FALSE)  count_R(..., only_all_tested = FALSE)  count_all(..., only_all_tested = FALSE)  n_sir(..., only_all_tested = FALSE)  count_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   combine_SI = TRUE )"},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Count Available Isolates — count","text":"... one vectors (columns) antibiotic interpretations. transformed internally .sir() needed. only_all_tested (combination therapies, .e. using one variable ...): logical indicate isolates must tested antibiotics, see section Combination Therapy data data.frame containing columns class sir (see .sir()) translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. combine_SI logical indicate whether values S, SDD, must merged one, output consists S+SDD+vs. R (susceptible vs. resistant) - default TRUE","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Count Available Isolates — count","text":"integer","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Count Available Isolates — count","text":"functions meant count isolates. Use resistance()/susceptibility() functions calculate microbial resistance/susceptibility. function count_resistant() equal function count_R(). function count_susceptible() equal function count_SI(). function n_sir() alias count_all(). can used count available isolates, .e. input antibiotics available result (S, R). use equal n_distinct(). function equal count_susceptible(...) + count_resistant(...). function count_df() takes variable data sir class (created .sir()) counts number S's, 's R's. also supports grouped variables. function sir_df() works exactly like count_df(), adds percentage S, R.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Count Available Isolates — count","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"combination-therapy","dir":"Reference","previous_headings":"","what":"Combination Therapy","title":"Count Available Isolates — count","text":"using one variable ... (= combination therapy), use only_all_tested count isolates tested antibiotics/variables test . See example two antibiotics, Drug Drug B, susceptibility() works calculate %SI:   Please note , combination therapies, only_all_tested = TRUE applies :   , combination therapies, only_all_tested = FALSE applies :   Using only_all_tested impact using one antibiotic input.","code":"--------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - -------------------------------------------------------------------- count_S()    +   count_I()    +   count_R()    = count_all()   proportion_S() + proportion_I() + proportion_R() = 1 count_S()    +   count_I()    +   count_R()    >= count_all()   proportion_S() + proportion_I() + proportion_R() >= 1"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Count Available Isolates — count","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info.  # base R ------------------------------------------------------------ count_resistant(example_isolates$AMX) # counts \"R\" #> [1] 804 count_susceptible(example_isolates$AMX) # counts \"S\" and \"I\" #> [1] 546 count_all(example_isolates$AMX) # counts \"S\", \"I\" and \"R\" #> [1] 1350  # be more specific count_S(example_isolates$AMX) #> Using count_S() is discouraged; use count_susceptible() instead to also #> consider \"I\" and \"SDD\" being susceptible. This note will be shown once for #> this session. #> [1] 543 count_SI(example_isolates$AMX) #> Note that count_SI() will also count dose-dependent susceptibility, #> 'SDD'. This note will be shown once for this session. #> [1] 546 count_I(example_isolates$AMX) #> Note that count_I() will also count dose-dependent susceptibility, 'SDD'. #> This note will be shown once for this session. #> [1] 3 count_IR(example_isolates$AMX) #> Using count_IR() is discouraged; use count_resistant() instead to not #> consider \"I\" and \"SDD\" being resistant. This note will be shown once for #> this session. #> [1] 807 count_R(example_isolates$AMX) #> [1] 804  # Count all available isolates count_all(example_isolates$AMX) #> [1] 1350 n_sir(example_isolates$AMX) #> [1] 1350  # n_sir() is an alias of count_all(). # Since it counts all available isolates, you can # calculate back to count e.g. susceptible isolates. # These results are the same: count_susceptible(example_isolates$AMX) #> [1] 546 susceptibility(example_isolates$AMX) * n_sir(example_isolates$AMX) #> [1] 546  # dplyr ------------------------------------------------------------- # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       R = count_R(CIP),       I = count_I(CIP),       S = count_S(CIP),       n1 = count_all(CIP), # the actual total; sum of all three       n2 = n_sir(CIP), # same - analogous to n_distinct       total = n()     ) # NOT the number of tested isolates!    # Number of available isolates for a whole antibiotic class   # (i.e., in this data set columns GEN, TOB, AMK, KAN)   example_isolates %>%     group_by(ward) %>%     summarise(across(aminoglycosides(), n_sir))    # Count co-resistance between amoxicillin/clav acid and gentamicin,   # so we can see that combination therapy does a lot more than mono therapy.   # Please mind that `susceptibility()` calculates percentages right away instead.   example_isolates %>% count_susceptible(AMC) # 1433   example_isolates %>% count_all(AMC) # 1879    example_isolates %>% count_susceptible(GEN) # 1399   example_isolates %>% count_all(GEN) # 1855    example_isolates %>% count_susceptible(AMC, GEN) # 1764   example_isolates %>% count_all(AMC, GEN) # 1936    # Get number of S+I vs. R immediately of selected columns   example_isolates %>%     select(AMX, CIP) %>%     count_df(translate = FALSE)    # It also supports grouping variables   example_isolates %>%     select(ward, AMX, CIP) %>%     group_by(ward) %>%     count_df(translate = FALSE) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 12 × 4 #>    ward       antibiotic interpretation value #>  * <chr>      <chr>      <ord>          <int> #>  1 Clinical   AMX        SI               357 #>  2 Clinical   AMX        R                487 #>  3 Clinical   CIP        SI               741 #>  4 Clinical   CIP        R                128 #>  5 ICU        AMX        SI               158 #>  6 ICU        AMX        R                270 #>  7 ICU        CIP        SI               362 #>  8 ICU        CIP        R                 85 #>  9 Outpatient AMX        SI                31 #> 10 Outpatient AMX        R                 47 #> 11 Outpatient CIP        SI                78 #> 12 Outpatient CIP        R                 15 # }"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":null,"dir":"Reference","previous_headings":"","what":"Define Custom EUCAST Rules — custom_eucast_rules","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"Define custom EUCAST rules organisation specific analysis use output function eucast_rules().","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"","code":"custom_eucast_rules(...)"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"... rules formula notation, see instructions, Examples","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"list containing custom rules","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"organisations adoption EUCAST rules. function can used define custom EUCAST rules used eucast_rules() function.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"basics","dir":"Reference","previous_headings":"","what":"Basics","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"familiar case_when() function dplyr package, recognise input method set rules. Rules must set using R considers 'formula notation'. rule written tilde (~) consequence rule written tilde:   two custom EUCAST rules: TZP (piperacillin/tazobactam) \"S\", aminopenicillins (ampicillin amoxicillin) must made \"S\", TZP \"R\", aminopenicillins must made \"R\". rules can also printed console, immediately clear work:   rules (part tilde, example TZP == \"S\" TZP == \"R\") must evaluable data set: able run filter data set without errors. means example column TZP must exist. create sample data set test rules set:","code":"x <- custom_eucast_rules(TZP == \"S\" ~ aminopenicillins == \"S\",                          TZP == \"R\" ~ aminopenicillins == \"R\") x #> A set of custom EUCAST rules: #> #>   1. If TZP is \"S\" then set to  S : #>      amoxicillin (AMX), ampicillin (AMP) #> #>   2. If TZP is \"R\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) df <- data.frame(mo = c(\"Escherichia coli\", \"Klebsiella pneumoniae\"),                  TZP = as.sir(\"R\"),                  ampi = as.sir(\"S\"),                  cipro = as.sir(\"S\")) df #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    S     S #> 2 Klebsiella pneumoniae   R    S     S  eucast_rules(df, rules = \"custom\", custom_rules = x, info = FALSE) #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    R     S #> 2 Klebsiella pneumoniae   R    R     S"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"using-taxonomic-properties-in-rules","dir":"Reference","previous_headings":"","what":"Using taxonomic properties in rules","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"one exception columns used rules: column names microorganisms data set can also used, exist data set. column names : \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"mycobank\", \"mycobank_parent\", \"mycobank_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". Thus, next example work well, despite fact df data set contain column genus:","code":"y <- custom_eucast_rules(TZP == \"S\" & genus == \"Klebsiella\" ~ aminopenicillins == \"S\",                          TZP == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\")  eucast_rules(df, rules = \"custom\", custom_rules = y, info = FALSE) #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    S     S #> 2 Klebsiella pneumoniae   R    R     S"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"usage-of-multiple-antibiotics-and-antibiotic-group-names","dir":"Reference","previous_headings":"","what":"Usage of multiple antibiotics and antibiotic group names","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"can define antibiotic groups instead single antibiotics rule consequence, part tilde (~). examples , antibiotic group aminopenicillins includes ampicillin amoxicillin. Rules can also applied multiple antibiotics antibiotic groups simultaneously. Use c() function combine multiple antibiotics. instance, following example sets aminopenicillins ureidopenicillins \"R\" column TZP (piperacillin/tazobactam) \"R\":   31 antibiotic groups allowed rules (case-insensitive) can used combination: aminoglycosides(amikacin, amikacin/fosfomycin, apramycin, arbekacin, astromicin, bekanamycin, dibekacin, framycetin, gentamicin, gentamicin-high, habekacin, hygromycin, isepamicin, kanamycin, kanamycin-high, kanamycin/cephalexin, micronomicin, neomycin, netilmicin, pentisomicin, plazomicin, propikacin, ribostamycin, sisomicin, streptoduocin, streptomycin, streptomycin-high, tobramycin, tobramycin-high) aminopenicillins(amoxicillin ampicillin) antifungals(amorolfine, amphotericin B, amphotericin B-high, anidulafungin, butoconazole, caspofungin, ciclopirox, clotrimazole, econazole, fluconazole, flucytosine, fosfluconazole, griseofulvin, hachimycin, ibrexafungerp, isavuconazole, isoconazole, itraconazole, ketoconazole, manogepix, micafungin, miconazole, nystatin, oteseconazole, pimaricin, posaconazole, rezafungin, ribociclib, sulconazole, terbinafine, terconazole, voriconazole) antimycobacterials(4-aminosalicylic acid, calcium aminosalicylate, capreomycin, clofazimine, delamanid, enviomycin, ethambutol, ethambutol/isoniazid, ethionamide, isoniazid, isoniazid/sulfamethoxazole/trimethoprim/pyridoxine, morinamide, p-aminosalicylic acid, pretomanid, protionamide, pyrazinamide, rifabutin, rifampicin, rifampicin/ethambutol/isoniazid, rifampicin/isoniazid, rifampicin/pyrazinamide/ethambutol/isoniazid, rifampicin/pyrazinamide/isoniazid, rifamycin, rifapentine, simvastatin/fenofibrate, sodium aminosalicylate, streptomycin/isoniazid, terizidone, thioacetazone, thioacetazone/isoniazid, tiocarlide, viomycin) betalactams(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, avibactam, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, biapenem, carbenicillin, carindacillin, cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/nacubactam, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefiderocol, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, ciclacillin, clometocillin, cloxacillin, dicloxacillin, doripenem, epicillin, ertapenem, flucloxacillin, hetacillin, imipenem, imipenem/EDTA, imipenem/relebactam, latamoxef, lenampicillin, loracarbef, mecillinam, meropenem, meropenem/nacubactam, meropenem/vaborbactam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nacubactam, nafcillin, oxacillin, panipenem, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, razupenem, ritipenem, ritipenem acoxil, sarmoxicillin, sulbactam, sulbenicillin, sultamicillin, talampicillin, tazobactam, tebipenem, temocillin, ticarcillin, ticarcillin/clavulanic acid) betalactams_with_inhibitor(amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin/sulbactam, aztreonam/avibactam, aztreonam/nacubactam, cefepime/clavulanic acid, cefepime/nacubactam, cefepime/tazobactam, cefoperazone/sulbactam, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefpodoxime/clavulanic acid, ceftaroline/avibactam, ceftazidime/avibactam, ceftazidime/clavulanic acid, ceftolozane/tazobactam, ceftriaxone/beta-lactamase inhibitor, imipenem/relebactam, meropenem/nacubactam, meropenem/vaborbactam, mezlocillin/sulbactam, penicillin/novobiocin, penicillin/sulbactam, piperacillin/sulbactam, piperacillin/tazobactam, ticarcillin/clavulanic acid) carbapenems(biapenem, doripenem, ertapenem, imipenem, imipenem/EDTA, imipenem/relebactam, meropenem, meropenem/nacubactam, meropenem/vaborbactam, panipenem, razupenem, ritipenem, ritipenem acoxil, tebipenem) cephalosporins(cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefiderocol, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, latamoxef, loracarbef) cephalosporins_1st(cefacetrile, cefadroxil, cefalexin, cefaloridine, cefalotin, cefapirin, cefatrizine, cefazedone, cefazolin, cefroxadine, ceftezole, cephradine) cephalosporins_2nd(cefaclor, cefamandole, cefmetazole, cefonicid, ceforanide, cefotetan, cefotiam, cefoxitin, cefoxitin screening, cefprozil, cefuroxime, cefuroxime axetil, loracarbef) cephalosporins_3rd(cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefetamet, cefetamet pivoxil, cefixime, cefmenoxime, cefodizime, cefoperazone, cefoperazone/sulbactam, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotiam hexetil, cefovecin, cefpimizole, cefpiramide, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefsulodin, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, latamoxef) cephalosporins_4th(cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetecol, cefoselis, cefozopran, cefpirome, cefquinome) cephalosporins_5th(ceftaroline, ceftaroline/avibactam, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam) cephalosporins_except_caz(cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefiderocol, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, latamoxef, loracarbef) fluoroquinolones(besifloxacin, ciprofloxacin, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nifuroquine, norfloxacin, ofloxacin, orbifloxacin, pazufloxacin, pefloxacin, pradofloxacin, premafloxacin, prulifloxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin) glycopeptides(avoparcin, dalbavancin, norvancomycin, oritavancin, ramoplanin, teicoplanin, teicoplanin-macromethod, telavancin, vancomycin, vancomycin-macromethod) glycopeptides_except_lipo(avoparcin, norvancomycin, ramoplanin, teicoplanin, teicoplanin-macromethod, vancomycin, vancomycin-macromethod) lincosamides(acetylmidecamycin, acetylspiramycin, clindamycin, clindamycin inducible screening, gamithromycin, kitasamycin, lincomycin, meleumycin, nafithromycin, pirlimycin, primycin, solithromycin, tildipirosin, tilmicosin, tulathromycin, tylosin, tylvalosin) lipoglycopeptides(dalbavancin, oritavancin, telavancin) macrolides(acetylmidecamycin, acetylspiramycin, azithromycin, clarithromycin, dirithromycin, erythromycin, flurithromycin, gamithromycin, josamycin, kitasamycin, meleumycin, midecamycin, miocamycin, nafithromycin, oleandomycin, pirlimycin, primycin, rokitamycin, roxithromycin, solithromycin, spiramycin, telithromycin, tildipirosin, tilmicosin, troleandomycin, tulathromycin, tylosin, tylvalosin) nitrofurans(furazidin, furazolidone, nifurtoinol, nitrofurantoin, nitrofurazone) oxazolidinones(cadazolid, cycloserine, linezolid, tedizolid, thiacetazone) penicillins(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, avibactam, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, carbenicillin, carindacillin, cefepime/nacubactam, ciclacillin, clometocillin, cloxacillin, dicloxacillin, epicillin, flucloxacillin, hetacillin, lenampicillin, mecillinam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nacubactam, nafcillin, oxacillin, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, sarmoxicillin, sulbactam, sulbenicillin, sultamicillin, talampicillin, tazobactam, temocillin, ticarcillin, ticarcillin/clavulanic acid) polymyxins(colistin, polymyxin B, polymyxin B/polysorbate 80) quinolones(besifloxacin, cinoxacin, ciprofloxacin, ciprofloxacin/metronidazole, ciprofloxacin/ornidazole, ciprofloxacin/tinidazole, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, flumequine, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nalidixic acid, nemonoxacin, nifuroquine, nitroxoline, norfloxacin, ofloxacin, orbifloxacin, oxolinic acid, pazufloxacin, pefloxacin, pipemidic acid, piromidic acid, pradofloxacin, premafloxacin, prulifloxacin, rosoxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin) rifamycins(rifabutin, rifampicin, rifampicin/ethambutol/isoniazid, rifampicin/isoniazid, rifampicin/pyrazinamide/ethambutol/isoniazid, rifampicin/pyrazinamide/isoniazid, rifamycin, rifapentine) streptogramins(pristinamycin quinupristin/dalfopristin) tetracyclines(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline, tigecycline) tetracyclines_except_tgc(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline) trimethoprims(brodimoprim, sulfadiazine, sulfadiazine/tetroxoprim, sulfadiazine/trimethoprim, sulfadimethoxine, sulfadimidine, sulfadimidine/trimethoprim, sulfafurazole, sulfaisodimidine, sulfalene, sulfamazone, sulfamerazine, sulfamerazine/trimethoprim, sulfamethizole, sulfamethoxazole, sulfamethoxypyridazine, sulfametomidine, sulfametoxydiazine, sulfametrole/trimethoprim, sulfamoxole, sulfamoxole/trimethoprim, sulfanilamide, sulfaperin, sulfaphenazole, sulfapyridine, sulfathiazole, sulfathiourea, trimethoprim, trimethoprim/sulfamethoxazole) ureidopenicillins(azlocillin, mezlocillin, piperacillin, piperacillin/tazobactam)","code":"x <- custom_eucast_rules(TZP == \"R\" ~ c(aminopenicillins, ureidopenicillins) == \"R\") x #> A set of custom EUCAST rules: #> #>   1. If TZP is \"R\" then set to \"R\": #>      amoxicillin (AMX), ampicillin (AMP), azlocillin (AZL), mezlocillin (MEZ), piperacillin (PIP), piperacillin/tazobactam (TZP)"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"","code":"x <- custom_eucast_rules(   AMC == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\",   AMC == \"I\" & genus == \"Klebsiella\" ~ aminopenicillins == \"I\" ) x #> A set of custom EUCAST rules: #>  #>   1. If AMC is \"R\" and genus is \"Klebsiella\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   2. If AMC is \"I\" and genus is \"Klebsiella\" then set to  I : #>      amoxicillin (AMX), ampicillin (AMP)  # run the custom rule set (verbose = TRUE will return a logbook instead of the data set): eucast_rules(example_isolates,   rules = \"custom\",   custom_rules = x,   info = FALSE,   verbose = TRUE ) #> # A tibble: 8 × 9 #>     row col   mo_fullname     old   new   rule  rule_group rule_name rule_source #>   <int> <chr> <chr>           <ord> <chr> <chr> <chr>      <chr>     <chr>       #> 1    33 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 2    33 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 3    34 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 4    34 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 5   531 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 6   531 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 7  1485 AMP   Klebsiella oxy… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 8  1485 AMX   Klebsiella oxy… R     I     \"rep… Custom EU… Custom E… Object 'x'…  # combine rule sets x2 <- c(   x,   custom_eucast_rules(TZP == \"R\" ~ carbapenems == \"R\") ) x2 #> A set of custom EUCAST rules: #>  #>   1. If AMC is \"R\" and genus is \"Klebsiella\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   2. If AMC is \"I\" and genus is \"Klebsiella\" then set to  I : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   3. If TZP is \"R\" then set to  R : #>      biapenem (BIA), doripenem (DOR), ertapenem (ETP), imipenem (IPM), #>      imipenem/EDTA (IPE), imipenem/relebactam (IMR), meropenem (MEM), #>      meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), panipenem (PAN), #>      razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), tebipenem (TBP)"},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"EUCAST breakpoints used package based dosages data set. can retrieved eucast_dosage().","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"","code":"dosage"},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"tibble 503 observations 9 variables: ab Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available name Official name antimicrobial drug used WHONET/EARS-Net type Type dosage, either \"high_dosage\", \"standard_dosage\", \"uncomplicated_uti\" dose Dose, \"2 g\" \"25 mg/kg\" dose_times Number times dose must administered administration Route administration, either \"im\", \"iv\", \"oral\" notes Additional dosage notes original_txt Original text PDF file EUCAST eucast_version Version number EUCAST Clinical Breakpoints guideline dosages apply, either 13, 12, 11","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"","code":"dosage #> # A tibble: 503 × 9 #>    ab   name            type  dose  dose_times administration notes original_txt #>    <ab> <chr>           <chr> <chr>      <int> <chr>          <chr> <chr>        #>  1 AMK  Amikacin        stan… 25-3…          1 iv             \"\"    25-30 mg/kg… #>  2 AMX  Amoxicillin     high… 2 g            6 iv             \"\"    2 g x 6 iv   #>  3 AMX  Amoxicillin     stan… 1 g            3 iv             \"\"    1 g x 3-4 iv #>  4 AMX  Amoxicillin     high… 0.75…          3 oral           \"\"    0.75-1 g x … #>  5 AMX  Amoxicillin     stan… 0.5 g          3 oral           \"\"    0.5 g x 3 o… #>  6 AMX  Amoxicillin     unco… 0.5 g          3 oral           \"\"    0.5 g x 3 o… #>  7 AMC  Amoxicillin/cl… high… 2 g …          3 iv             \"\"    (2 g amoxic… #>  8 AMC  Amoxicillin/cl… stan… 1 g …          3 iv             \"\"    (1 g amoxic… #>  9 AMC  Amoxicillin/cl… high… 0.87…          3 oral           \"\"    (0.875 g am… #> 10 AMC  Amoxicillin/cl… stan… 0.5 …          3 oral           \"\"    (0.5 g amox… #> # ℹ 493 more rows #> # ℹ 1 more variable: eucast_version <dbl>"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":null,"dir":"Reference","previous_headings":"","what":"Apply EUCAST Rules — eucast_rules","title":"Apply EUCAST Rules — eucast_rules","text":"Apply rules clinical breakpoints intrinsic resistance defined European Committee Antimicrobial Susceptibility Testing (EUCAST, https://www.eucast.org), see Source. Use eucast_dosage() get data.frame advised dosages certain bug-drug combination, based dosage data set. improve interpretation antibiogram EUCAST rules applied, non-EUCAST rules can applied default, see Details.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Apply EUCAST Rules — eucast_rules","text":"","code":"eucast_rules(   x,   col_mo = NULL,   info = interactive(),   rules = getOption(\"AMR_eucastrules\", default = c(\"breakpoints\", \"expert\")),   verbose = FALSE,   version_breakpoints = 12,   version_expertrules = 3.3,   ampc_cephalosporin_resistance = NA,   only_sir_columns = FALSE,   custom_rules = NULL,   ... )  eucast_dosage(ab, administration = \"iv\", version_breakpoints = 12)"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Apply EUCAST Rules — eucast_rules","text":"EUCAST Expert Rules. Version 2.0, 2012. Leclercq et al. EUCAST expert rules antimicrobial susceptibility testing. Clin Microbiol Infect. 2013;19(2):141-60; doi:10.1111/j.1469-0691.2011.03703.x EUCAST Expert Rules, Intrinsic Resistance Exceptional Phenotypes Tables. Version 3.1, 2016. (link) EUCAST Intrinsic Resistance Unusual Phenotypes. Version 3.2, 2020. (link) EUCAST Intrinsic Resistance Unusual Phenotypes. Version 3.3, 2021. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 9.0, 2019. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 10.0, 2020. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 11.0, 2021. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 12.0, 2022. (link)","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Apply EUCAST Rules — eucast_rules","text":"x data set antibiotic columns, amox, AMX AMC col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). info logical indicate whether progress printed console - default print interactive sessions rules character vector specifies rules applied. Must one \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). default value can set another value using package option AMR_eucastrules: options(AMR_eucastrules = \"\"). using \"custom\", sure fill argument custom_rules . Custom rules can created custom_eucast_rules(). verbose logical turn Verbose mode (default ). Verbose mode, function apply rules data, instead returns data set logbook form extensive info rows columns effected way. Using Verbose mode takes lot time. version_breakpoints version number use EUCAST Clinical Breakpoints guideline. Can \"12.0\", \"11.0\", \"10.0\". version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can \"3.3\", \"3.2\", \"3.1\". ampc_cephalosporin_resistance character value applied cefotaxime, ceftriaxone ceftazidime AmpC de-repressed cephalosporin-resistant mutants - default NA. Currently works version_expertrules 3.2 higher; version 'EUCAST Expert Rules Enterobacterales' state results cefotaxime, ceftriaxone ceftazidime reported note, results suppressed (emptied) three drugs. value NA (default) argument remove results three drugs, e.g. value \"R\" make results drugs resistant. Use NULL FALSE alter results three drugs AmpC de-repressed cephalosporin-resistant mutants. Using TRUE equal using \"R\".  EUCAST Expert Rules v3.2, rule applies : Citrobacter braakii, Citrobacter freundii, Citrobacter gillenii, Citrobacter murliniae, Citrobacter rodenticum, Citrobacter sedlakii, Citrobacter werkmanii, Citrobacter youngae, Enterobacter, Hafnia alvei, Klebsiella aerogenes, Morganella morganii, Providencia, Serratia. only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE) custom_rules custom rules apply, created custom_eucast_rules() ... column name antibiotic, see section Antibiotics ab (vector ) text can coerced valid antibiotic drug code .ab() administration route administration, either \"im\", \"iv\", \"oral\"","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Apply EUCAST Rules — eucast_rules","text":"input x, possibly edited values antibiotics. , verbose = TRUE, data.frame original new values affected bug-drug combinations.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Apply EUCAST Rules — eucast_rules","text":"Note: function translate MIC values SIR values. Use .sir() . Note: ampicillin (AMP, J01CA01) available amoxicillin (AMX, J01CA04) , latter used rules dependency ampicillin. drugs interchangeable comes expression antimicrobial resistance. file containing EUCAST rules located : https://github.com/msberends/AMR/blob/main/data-raw/eucast_rules.tsv.  Note: Old taxonomic names replaced current taxonomy applicable. example, Ochrobactrum anthropi renamed Brucella anthropi 2020; original EUCAST rules v3.1 v3.2 yet contain new taxonomic name. AMR package contains full microbial taxonomy updated June 24th, 2024, see microorganisms.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"custom-rules","dir":"Reference","previous_headings":"","what":"Custom Rules","title":"Apply EUCAST Rules — eucast_rules","text":"Custom rules can created using custom_eucast_rules(), e.g.:","code":"x <- custom_eucast_rules(AMC == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\",                          AMC == \"I\" & genus == \"Klebsiella\" ~ aminopenicillins == \"I\")  eucast_rules(example_isolates, rules = \"custom\", custom_rules = x)"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"-other-rules","dir":"Reference","previous_headings":"","what":"'Other' Rules","title":"Apply EUCAST Rules — eucast_rules","text":"processing, two non-EUCAST rules drug combinations can applied improve efficacy EUCAST rules, reliability data (analysis). rules : drug enzyme inhibitor set S drug without enzyme inhibitor S drug without enzyme inhibitor set R drug enzyme inhibitor R Important examples include amoxicillin amoxicillin/clavulanic acid, trimethoprim trimethoprim/sulfamethoxazole. Needless say, rules work, drugs must available data set. Since rules officially approved EUCAST, applied default. use rules, include \"\" rules argument, use eucast_rules(..., rules = \"\"). can also set package option AMR_eucastrules, .e. run options(AMR_eucastrules = \"\").","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"antibiotics","dir":"Reference","previous_headings":"","what":"Antibiotics","title":"Apply EUCAST Rules — eucast_rules","text":"define antibiotics column names, leave determine automatically guess_ab_col() input text (case-insensitive), use NULL skip column (e.g. TIC = NULL skip ticarcillin). Manually defined non-existing columns skipped warning. following antibiotics eligible functions eucast_rules() mdro(). shown format 'name (antimicrobial ID, ATC code)', sorted alphabetically: Amikacin (AMK, J01GB06), amoxicillin (AMX, J01CA04), amoxicillin/clavulanic acid (AMC, J01CR02), ampicillin (AMP, J01CA01), ampicillin/sulbactam (SAM, J01CR01), apramycin (APR, QA07AA92), arbekacin (ARB, J01GB12), aspoxicillin (APX, J01CA19), azidocillin (AZD, J01CE04), azithromycin (AZM, J01FA10), azlocillin (AZL, J01CA09), aztreonam (ATM, J01DF01), bacampicillin (BAM, J01CA06), bekanamycin (BEK, J01GB13), benzathine benzylpenicillin (BNB, J01CE08), benzathine phenoxymethylpenicillin (BNP, J01CE10), benzylpenicillin (PEN, J01CE01), besifloxacin (BES, S01AE08), biapenem (BIA, J01DH05), carbenicillin (CRB, J01CA03), carindacillin (CRN, J01CA05), cefacetrile (CAC, J01DB10), cefaclor (CEC, J01DC04), cefadroxil (CFR, J01DB05), cefalexin (LEX, J01DB01), cefaloridine (RID, J01DB02), cefalotin (CEP, J01DB03), cefamandole (MAN, J01DC03), cefapirin (HAP, J01DB08), cefatrizine (CTZ, J01DB07), cefazedone (CZD, J01DB06), cefazolin (CZO, J01DB04), cefcapene (CCP, J01DD17), cefdinir (CDR, J01DD15), cefditoren (DIT, J01DD16), cefepime (FEP, J01DE01), cefetamet (CAT, J01DD10), cefiderocol (FDC, J01DI04), cefixime (CFM, J01DD08), cefmenoxime (CMX, J01DD05), cefmetazole (CMZ, J01DC09), cefodizime (DIZ, J01DD09), cefonicid (CID, J01DC06), cefoperazone (CFP, J01DD12), cefoperazone/sulbactam (CSL, J01DD62), ceforanide (CND, J01DC11), cefotaxime (CTX, J01DD01), cefotaxime/clavulanic acid (CTC, J01DD51), cefotetan (CTT, J01DC05), cefotiam (CTF, J01DC07), cefovecin (FOV, QJ01DD91), cefoxitin (FOX, J01DC01), cefozopran (ZOP, J01DE03), cefpiramide (CPM, J01DD11), cefpirome (CPO, J01DE02), cefpodoxime (CPD, J01DD13), cefprozil (CPR, J01DC10), cefquinome (CEQ, QG51AA07), cefroxadine (CRD, J01DB11), cefsulodin (CFS, J01DD03), ceftaroline (CPT, J01DI02), ceftazidime (CAZ, J01DD02), ceftazidime/clavulanic acid (CCV, J01DD52), cefteram (CEM, J01DD18), ceftezole (CTL, J01DB12), ceftibuten (CTB, J01DD14), ceftiofur (TIO, QJ01DD90), ceftizoxime (CZX, J01DD07), ceftobiprole medocaril (CFM1, J01DI01), ceftolozane/tazobactam (CZT, J01DI54), ceftriaxone (CRO, J01DD04), ceftriaxone/beta-lactamase inhibitor (CEB, J01DD63), cefuroxime (CXM, J01DC02), cephradine (CED, J01DB09), chloramphenicol (CHL, J01BA01), ciprofloxacin (CIP, J01MA02), clarithromycin (CLR, J01FA09), clindamycin (CLI, J01FF01), clometocillin (CLM, J01CE07), cloxacillin (CLO, J01CF02), colistin (COL, J01XB01), cycloserine (CYC, J04AB01), dalbavancin (DAL, J01XA04), danofloxacin (DAN, QJ01MA92), daptomycin (DAP, J01XX09), delafloxacin (DFX, J01MA23), dibekacin (DKB, J01GB09), dicloxacillin (DIC, J01CF01), difloxacin (DIF, QJ01MA94), dirithromycin (DIR, J01FA13), doripenem (DOR, J01DH04), doxycycline (DOX, J01AA02), enoxacin (ENX, J01MA04), enrofloxacin (ENR, QJ01MA90), epicillin (EPC, J01CA07), ertapenem (ETP, J01DH03), erythromycin (ERY, J01FA01), fleroxacin (FLE, J01MA08), flucloxacillin (FLC, J01CF05), flurithromycin (FLR1, J01FA14), fosfomycin (FOS, J01XX01), framycetin (FRM, D09AA01), fusidic acid (FUS, J01XC01), gamithromycin (GAM, QJ01FA95), garenoxacin (GRN, J01MA19), gatifloxacin (GAT, J01MA16), gemifloxacin (GEM, J01MA15), gentamicin (GEN, J01GB03), grepafloxacin (GRX, J01MA11), hetacillin (HET, J01CA18), imipenem (IPM, J01DH51), imipenem/relebactam (IMR, J01DH56), isepamicin (ISE, J01GB11), josamycin (JOS, J01FA07), kanamycin (KAN, J01GB04), kitasamycin (KIT, QJ01FA93), lascufloxacin (LSC, J01MA25), latamoxef (LTM, J01DD06), levofloxacin (LVX, J01MA12), levonadifloxacin (LND, J01MA24), lincomycin (LIN, J01FF02), linezolid (LNZ, J01XX08), lomefloxacin (LOM, J01MA07), loracarbef (LOR, J01DC08), marbofloxacin (MAR, QJ01MA93), mecillinam (MEC, J01CA11), meropenem (MEM, J01DH02), meropenem/vaborbactam (MEV, J01DH52), metampicillin (MTM, J01CA14), meticillin (MET, J01CF03), mezlocillin (MEZ, J01CA10), micronomicin (MCR, S01AA22), midecamycin (MID, J01FA03), minocycline (MNO, J01AA08), miocamycin (MCM, J01FA11), moxifloxacin (MFX, J01MA14), nadifloxacin (NAD, D10AF05), nafcillin (NAF, J01CF06), nalidixic acid (NAL, J01MB02), neomycin (NEO, J01GB05), netilmicin (NET, J01GB07), nitrofurantoin (NIT, J01XE01), norfloxacin (, J01MA06), novobiocin (NOV, QJ01XX95), ofloxacin (OFX, J01MA01), oleandomycin (OLE, J01FA05), orbifloxacin (ORB, QJ01MA95), oritavancin (ORI, J01XA05), oxacillin (OXA, J01CF04), panipenem (PAN, J01DH55), pazufloxacin (PAZ, J01MA18), pefloxacin (PEF, J01MA03), penamecillin (PNM, J01CE06), pheneticillin (PHE, J01CE05), phenoxymethylpenicillin (PHN, J01CE02), piperacillin (PIP, J01CA12), piperacillin/tazobactam (TZP, J01CR05), pirlimycin (PRL, QJ51FF90), pivampicillin (PVM, J01CA02), pivmecillinam (PME, J01CA08), plazomicin (PLZ, J01GB14), polymyxin B (PLB, J01XB02), pradofloxacin (PRA, QJ01MA97), pristinamycin (PRI, J01FG01), procaine benzylpenicillin (PRB, J01CE09), propicillin (PRP, J01CE03), prulifloxacin (PRU, J01MA17), quinupristin/dalfopristin (QDA, QJ01FG02), ribostamycin (RST, J01GB10), rifampicin (RIF, J04AB02), rokitamycin (ROK, J01FA12), roxithromycin (RXT, J01FA06), rufloxacin (RFL, J01MA10), sarafloxacin (SAR, QJ01MA98), sisomicin (SIS, J01GB08), sitafloxacin (SIT, J01MA21), solithromycin (SOL, J01FA16), sparfloxacin (SPX, J01MA09), spiramycin (SPI, J01FA02), streptoduocin (STR, J01GA02), streptomycin (STR1, J01GA01), sulbactam (SUL, J01CG01), sulbenicillin (SBC, J01CA16), sulfadiazine (SDI, J01EC02), sulfadiazine/trimethoprim (SLT1, J01EE02), sulfadimethoxine (SUD, J01ED01), sulfadimidine (SDM, J01EB03), sulfadimidine/trimethoprim (SLT2, J01EE05), sulfafurazole (SLF, J01EB05), sulfaisodimidine (SLF1, J01EB01), sulfalene (SLF2, J01ED02), sulfamazone (SZO, J01ED09), sulfamerazine (SLF3, J01ED07), sulfamerazine/trimethoprim (SLT3, J01EE07), sulfamethizole (SLF4, J01EB02), sulfamethoxazole (SMX, J01EC01), sulfamethoxypyridazine (SLF5, J01ED05), sulfametomidine (SLF6, J01ED03), sulfametoxydiazine (SLF7, J01ED04), sulfametrole/trimethoprim (SLT4, J01EE03), sulfamoxole (SLF8, J01EC03), sulfamoxole/trimethoprim (SLT5, J01EE04), sulfanilamide (SLF9, J01EB06), sulfaperin (SLF10, J01ED06), sulfaphenazole (SLF11, J01ED08), sulfapyridine (SLF12, J01EB04), sulfathiazole (SUT, J01EB07), sulfathiourea (SLF13, J01EB08), sultamicillin (SLT6, J01CR04), talampicillin (TAL, J01CA15), tazobactam (TAZ, J01CG02), tebipenem (TBP, J01DH06), tedizolid (TZD, J01XX11), teicoplanin (TEC, J01XA02), telavancin (TLV, J01XA03), telithromycin (TLT, J01FA15), temafloxacin (TMX, J01MA05), temocillin (TEM, J01CA17), tetracycline (TCY, J01AA07), ticarcillin (TIC, J01CA13), ticarcillin/clavulanic acid (TCC, J01CR03), tigecycline (TGC, J01AA12), tilbroquinol (TBQ, P01AA05), tildipirosin (TIP, QJ01FA96), tilmicosin (TIL, QJ01FA91), tobramycin (TOB, J01GB01), tosufloxacin (TFX, J01MA22), trimethoprim (TMP, J01EA01), trimethoprim/sulfamethoxazole (SXT, J01EE01), troleandomycin (TRL, J01FA08), trovafloxacin (TVA, J01MA13), tulathromycin (TUL, QJ01FA94), tylosin (TYL, QJ01FA90), tylvalosin (TYL1, QJ01FA92), vancomycin (VAN, J01XA01)","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Apply EUCAST Rules — eucast_rules","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Apply EUCAST Rules — eucast_rules","text":"","code":"# \\donttest{ a <- data.frame(   mo = c(     \"Staphylococcus aureus\",     \"Enterococcus faecalis\",     \"Escherichia coli\",     \"Klebsiella pneumoniae\",     \"Pseudomonas aeruginosa\"   ),   VAN = \"-\", # Vancomycin   AMX = \"-\", # Amoxicillin   COL = \"-\", # Colistin   CAZ = \"-\", # Ceftazidime   CXM = \"-\", # Cefuroxime   PEN = \"S\", # Benzylpenicillin   FOX = \"S\", # Cefoxitin   stringsAsFactors = FALSE )  head(a) #>                       mo VAN AMX COL CAZ CXM PEN FOX #> 1  Staphylococcus aureus   -   -   -   -   -   S   S #> 2  Enterococcus faecalis   -   -   -   -   -   S   S #> 3       Escherichia coli   -   -   -   -   -   S   S #> 4  Klebsiella pneumoniae   -   -   -   -   -   S   S #> 5 Pseudomonas aeruginosa   -   -   -   -   -   S   S   # apply EUCAST rules: some results wil be changed b <- eucast_rules(a) #> Warning: in eucast_rules(): not all columns with antimicrobial results are of #> class 'sir'. Transform them on beforehand, with e.g.: #>   - a %>% as.sir(PEN:FOX) #>   - a %>% mutate_if(is_sir_eligible, as.sir) #>   - a %>% mutate(across(where(is_sir_eligible), as.sir))  head(b) #>                       mo VAN AMX COL CAZ CXM PEN FOX #> 1  Staphylococcus aureus   -   -   R   R   S   S   S #> 2  Enterococcus faecalis   -   -   R   R   R   S   R #> 3       Escherichia coli   R   -   -   -   -   R   S #> 4  Klebsiella pneumoniae   R   R   -   -   -   R   S #> 5 Pseudomonas aeruginosa   R   R   -   -   R   R   R   # do not apply EUCAST rules, but rather get a data.frame # containing all details about the transformations: c <- eucast_rules(a, verbose = TRUE) #> Warning: in eucast_rules(): not all columns with antimicrobial results are of #> class 'sir'. Transform them on beforehand, with e.g.: #>   - a %>% as.sir(PEN:FOX) #>   - a %>% mutate_if(is_sir_eligible, as.sir) #>   - a %>% mutate(across(where(is_sir_eligible), as.sir)) head(c) #>   row col           mo_fullname old new rule   rule_group #> 1   1 CXM Staphylococcus aureus   -   S       Breakpoints #> 2   1 CAZ Staphylococcus aureus   -   R      Expert Rules #> 3   1 COL Staphylococcus aureus   -   R      Expert Rules #> 4   2 CAZ Enterococcus faecalis   -   R      Expert Rules #> 5   2 COL Enterococcus faecalis   -   R      Expert Rules #> 6   2 CXM Enterococcus faecalis   -   R      Expert Rules #>                                                 rule_name #> 1                                          Staphylococcus #> 2 Table 4: Intrinsic resistance in gram-positive bacteria #> 3 Table 4: Intrinsic resistance in gram-positive bacteria #> 4 Table 4: Intrinsic resistance in gram-positive bacteria #> 5 Table 4: Intrinsic resistance in gram-positive bacteria #> 6 Table 4: Intrinsic resistance in gram-positive bacteria #>                                                                                 rule_source #> 1                                           'EUCAST Clinical Breakpoint Tables' v12.0, 2022 #> 2 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 3 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 4 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 5 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 6 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 # }  # Dosage guidelines:  eucast_dosage(c(\"tobra\", \"genta\", \"cipro\"), \"iv\") #> ℹ Dosages for antimicrobial drugs, as meant for 'EUCAST Clinical Breakpoint #>   Tables' v12.0 (2022). This note will be shown once per session. #> # A tibble: 3 × 4 #>   ab   name          standard_dosage  high_dosage  #>   <ab> <chr>         <chr>            <chr>        #> 1 TOB  Tobramycin    6-7 mg/kg x 1 iv NA           #> 2 GEN  Gentamicin    6-7 mg/kg x 1 iv NA           #> 3 CIP  Ciprofloxacin 0.4 g x 2 iv     0.4 g x 3 iv  eucast_dosage(c(\"tobra\", \"genta\", \"cipro\"), \"iv\", version_breakpoints = 10) #> ℹ Dosages for antimicrobial drugs, as meant for 'EUCAST Clinical Breakpoint #>   Tables' v10.0 (2020). This note will be shown once per session. #> # A tibble: 3 × 4 #>   ab   name          standard_dosage  high_dosage  #>   <ab> <chr>         <chr>            <chr>        #> 1 TOB  Tobramycin    6-7 mg/kg x 1 iv NA           #> 2 GEN  Gentamicin    6-7 mg/kg x 1 iv NA           #> 3 CIP  Ciprofloxacin 0.4 g x 2 iv     0.4 g x 3 iv"},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 2 000 Example Isolates — example_isolates","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"data set containing 2 000 microbial isolates full antibiograms. data set contains randomised fictitious data, reflects reality can used practise AMR data analysis. examples, please read tutorial website.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"","code":"example_isolates"},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"tibble 2 000 observations 46 variables: date Date receipt laboratory patient ID patient age Age patient gender Gender patient, either \"F\" \"M\" ward Ward type patient admitted, either \"Clinical\", \"ICU\", \"Outpatient\" mo ID microorganism created .mo(), see also microorganisms data set PEN:RIF 40 different antibiotics class sir (see .sir()); column names occur antibiotics data set can translated set_ab_names() ab_name()","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …"},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Unclean Data — example_isolates_unclean","title":"Data Set with Unclean Data — example_isolates_unclean","text":"data set containing 3 000 microbial isolates cleaned consequently ready AMR data analysis. data set can used practice.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Unclean Data — example_isolates_unclean","text":"","code":"example_isolates_unclean"},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Unclean Data — example_isolates_unclean","text":"tibble 3 000 observations 8 variables: patient_id ID patient date date receipt laboratory hospital ID hospital, C bacteria info microorganism can transformed .mo(), see also microorganisms AMX:GEN 4 different antibiotics transformed .sir()","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Unclean Data — example_isolates_unclean","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Unclean Data — example_isolates_unclean","text":"","code":"example_isolates_unclean #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria      AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <chr>         <chr> <chr> <chr> <chr> #>  1 J3         A        2012-11-21 E. coli       R     I     S     S     #>  2 R7         A        2018-04-03 K. pneumoniae R     I     S     S     #>  3 P3         A        2014-09-19 E. coli       R     S     S     S     #>  4 P10        A        2015-12-10 E. coli       S     I     S     S     #>  5 B7         A        2015-03-02 E. coli       S     S     S     S     #>  6 W3         A        2018-03-31 S. aureus     R     S     R     S     #>  7 J8         A        2016-06-14 E. coli       R     S     S     S     #>  8 M3         A        2015-10-25 E. coli       R     S     S     S     #>  9 J3         A        2019-06-19 E. coli       S     S     S     S     #> 10 G6         A        2015-04-27 S. aureus     S     S     S     S     #> # ℹ 2,990 more rows"},{"path":"https://msberends.github.io/AMR/reference/export_ncbi_biosample.html","id":null,"dir":"Reference","previous_headings":"","what":"Export Data Set as NCBI BioSample Antibiogram — export_ncbi_biosample","title":"Export Data Set as NCBI BioSample Antibiogram — export_ncbi_biosample","text":"Export Data Set NCBI BioSample Antibiogram","code":""},{"path":"https://msberends.github.io/AMR/reference/export_ncbi_biosample.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Export Data Set as NCBI BioSample Antibiogram — export_ncbi_biosample","text":"","code":"export_ncbi_biosample(   x,   filename = paste0(\"biosample_\", format(Sys.time(), \"%Y-%m-%d-%H%M%S\"), \".xlsx\"),   type = \"pathogen MIC\",   columns = where(is.mic),   save_as_xlsx = TRUE )"},{"path":"https://msberends.github.io/AMR/reference/export_ncbi_biosample.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Export Data Set as NCBI BioSample Antibiogram — export_ncbi_biosample","text":"x data set filename character string specifying file name type character string specifying type data set, either \"pathogen MIC\" \"beta-lactamase MIC\", see https://www.ncbi.nlm.nih.gov/biosample/docs/","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine First Isolates — first_isolate","title":"Determine First Isolates — first_isolate","text":"Determine first isolates microorganisms every patient per episode (needed) per specimen type. functions support four methods summarised Hindler et al. 2007 (doi:10.1086/511864 ). determine patient episodes necessarily based microorganisms, use is_new_episode() also supports grouping dplyr package.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine First Isolates — first_isolate","text":"","code":"first_isolate(   x = NULL,   col_date = NULL,   col_patient_id = NULL,   col_mo = NULL,   col_testcode = NULL,   col_specimen = NULL,   col_icu = NULL,   col_keyantimicrobials = NULL,   episode_days = 365,   testcodes_exclude = NULL,   icu_exclude = FALSE,   specimen_group = NULL,   type = \"points\",   method = c(\"phenotype-based\", \"episode-based\", \"patient-based\", \"isolate-based\"),   ignore_I = TRUE,   points_threshold = 2,   info = interactive(),   include_unknown = FALSE,   include_untested_sir = TRUE,   ... )  filter_first_isolate(   x = NULL,   col_date = NULL,   col_patient_id = NULL,   col_mo = NULL,   episode_days = 365,   method = c(\"phenotype-based\", \"episode-based\", \"patient-based\", \"isolate-based\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Determine First Isolates — first_isolate","text":"Methodology function strictly based : M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. Hindler JF Stelling J (2007). Analysis Presentation Cumulative Antibiograms: New Consensus Guideline Clinical Laboratory Standards Institute. Clinical Infectious Diseases, 44(6), 867-873. doi:10.1086/511864","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine First Isolates — first_isolate","text":"x data.frame containing isolates. Can left blank automatic determination, see Examples. col_date column name result date (date received lab) - default first column date class col_patient_id column name unique IDs patients - default first column starts 'patient' 'patid' (case insensitive) col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). col_testcode column name test codes. Use col_testcode = NULL exclude certain test codes (test codes screening). case testcodes_exclude ignored. col_specimen column name specimen type group col_icu column name logicals (TRUE/FALSE) whether ward department Intensive Care Unit (ICU). can also logical vector length rows x. col_keyantimicrobials (useful method = \"phenotype-based\") column name key antimicrobials determine first isolates, see key_antimicrobials(). default first column starts 'key' followed 'ab' 'antibiotics' 'antimicrobials' (case insensitive). Use col_keyantimicrobials = FALSE prevent . Can also output key_antimicrobials(). episode_days episode days genus/species combination determined 'first isolate' . default 365 days based guideline CLSI, see Source. testcodes_exclude character vector test codes excluded (case-insensitive) icu_exclude logical indicate whether ICU isolates excluded (rows value TRUE column set col_icu) specimen_group value column set col_specimen filter type type determine weighed isolates; can \"keyantimicrobials\" \"points\", see Details method method apply, either \"phenotype-based\", \"episode-based\", \"patient-based\" \"isolate-based\" (can abbreviated), see Details. default \"phenotype-based\" antimicrobial test results present data, \"episode-based\" otherwise. ignore_I logical indicate whether antibiotic interpretations \"\" ignored type = \"keyantimicrobials\", see Details points_threshold minimum number points require differences antibiogram lead inclusion isolate type = \"points\", see Details info logical indicate info printed - default TRUE interactive mode include_unknown logical indicate whether 'unknown' microorganisms included , .e. microbial code \"UNKNOWN\", defaults FALSE. WHONET users, means records organism code \"con\" (contamination) excluded default. Isolates microbial ID NA always excluded first isolate. include_untested_sir logical indicate whether also rows without antibiotic results still eligible becoming first isolate. Use include_untested_sir = FALSE always return FALSE rows. checks data set columns class sir consequently requires transforming columns antibiotic results using .sir() first. ... arguments passed first_isolate() using filter_first_isolate(), otherwise arguments passed key_antimicrobials() (universal, gram_negative, gram_positive)","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine First Isolates — first_isolate","text":"logical vector","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine First Isolates — first_isolate","text":"conduct epidemiological analyses antimicrobial resistance data, -called first isolates included prevent overestimation underestimation antimicrobial resistance. Different methods can used , see . functions context-aware. means x argument can left blank used inside data.frame call, see Examples. first_isolate() function wrapper around is_new_episode() function, efficient data sets containing microorganism codes names. isolates microbial ID NA excluded first isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"different-methods","dir":"Reference","previous_headings":"","what":"Different methods","title":"Determine First Isolates — first_isolate","text":"According Hindler et al. (2007, doi:10.1086/511864 ), different methods (algorithms) select first isolates increasing reliability: isolate-based, patient-based, episode-based phenotype-based. methods select combination taxonomic genus species (subspecies). mentioned methods covered first_isolate() function:","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"isolate-based","dir":"Reference","previous_headings":"","what":"Isolate-based","title":"Determine First Isolates — first_isolate","text":"method require selection, isolates included. , however, respect arguments set first_isolate() function. example, default setting include_unknown (FALSE) omit selection rows without microbial ID.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"patient-based","dir":"Reference","previous_headings":"","what":"Patient-based","title":"Determine First Isolates — first_isolate","text":"include every genus-species combination per patient , set episode_days Inf. Although often inappropriate, method makes sure duplicate isolates selected patient. large longitudinal data set, mean isolates excluded found years initial isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"episode-based","dir":"Reference","previous_headings":"","what":"Episode-based","title":"Determine First Isolates — first_isolate","text":"include every genus-species combination per patient episode , set episode_days sensible number days. Depending type analysis, 14, 30, 60 365. Short episodes common analysing specific hospital ward data, long episodes common analysing regional national data. common method correct duplicate isolates. Patients categorised episodes based ID dates (e.g., date specimen receipt laboratory result). common method, take account antimicrobial test results. means e.g. methicillin-resistant Staphylococcus aureus (MRSA) isolate differentiated wildtype Staphylococcus aureus isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"phenotype-based","dir":"Reference","previous_headings":"","what":"Phenotype-based","title":"Determine First Isolates — first_isolate","text":"reliable method, since also weighs antibiogram (antimicrobial test results) yielding -called 'first weighted isolates'. two different methods weigh antibiogram: Using type = \"points\" argument points_threshold (default) method weighs antimicrobial drugs available data set. difference S R (vice versa) counts 0.5 points, difference S R (vice versa) counts 1 point. sum points exceeds points_threshold, defaults 2, isolate selected first weighted isolate. antimicrobials internally selected using all_antimicrobials() function. output function need passed first_isolate() function. Using type = \"keyantimicrobials\" argument ignore_I method weighs specific antimicrobial drugs, called key antimicrobials. difference S R (vice versa) key antimicrobials select isolate first weighted isolate. ignore_I = FALSE, also differences S R (vice versa) lead . Key antimicrobials internally selected using key_antimicrobials() function, can also added manually variable data set col_keyantimicrobials argument. Another option pass output key_antimicrobials() function directly col_keyantimicrobials argument. default method phenotype-based (using type = \"points\") episode-based (using episode_days = 365). makes sure every genus-species combination selected per patient per year, taking account antimicrobial test results. antimicrobial test results available data set, episode-based method applied default.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine First Isolates — first_isolate","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  example_isolates[first_isolate(info = TRUE), ] #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Using column 'date' as input for col_date. #> ℹ Using column 'patient' as input for col_patient_id. #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> ℹ Excluding 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,387 'phenotype-based' first isolates (69.4% of total where a #>    microbial ID was available) #> # A tibble: 1,387 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  7 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  8 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  9 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #> 10 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> # ℹ 1,377 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # \\donttest{ # get all first Gram-negatives example_isolates[which(first_isolate(info = FALSE) & mo_is_gram_negative()), ] #> ℹ Using column 'mo' as input for mo_is_gram_negative() #> # A tibble: 441 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  4 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  5 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  6 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN R     NA    NA    R     #>  7 2002-03-08 4FC193     69 M      Clinical B_ESCHR_COLI R     NA    NA    R     #>  8 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG R     NA    NA    R     #>  9 2002-04-01 496896     46 F      ICU      B_ESCHR_COLI R     NA    NA    NA    #> 10 2002-04-23 EE2510     69 F      ICU      B_ESCHR_COLI R     NA    NA    NA    #> # ℹ 431 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  if (require(\"dplyr\")) {   # filter on first isolates using dplyr:   example_isolates %>%     filter(first_isolate(info = TRUE)) } #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> ℹ Excluding 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,387 'phenotype-based' first isolates (69.4% of total where a #>    microbial ID was available) #> # A tibble: 1,387 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  7 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  8 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  9 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #> 10 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> # ℹ 1,377 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # short-hand version:   example_isolates %>%     filter_first_isolate(info = FALSE) } #> # A tibble: 1,387 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  7 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  8 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  9 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #> 10 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> # ℹ 1,377 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # flag the first isolates per group:   example_isolates %>%     group_by(ward) %>%     mutate(first = first_isolate(info = TRUE)) %>%     select(ward, date, patient, mo, first) } #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #>  #> Group: ward = \"Clinical\" #> ℹ Excluding 9 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 865 'phenotype-based' first isolates (70.1% of total where a #>    microbial ID was available) #>  #> Group: ward = \"ICU\" #> ℹ Excluding 6 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 452 'phenotype-based' first isolates (70.0% of total where a #>    microbial ID was available) #>  #> Group: ward = \"Outpatient\" #> ℹ Excluding 1 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 99 'phenotype-based' first isolates (82.5% of total where a #>    microbial ID was available) #> # A tibble: 2,000 × 5 #> # Groups:   ward [3] #>    ward     date       patient mo           first #>    <chr>    <date>     <chr>   <mo>         <lgl> #>  1 Clinical 2002-01-02 A77334  B_ESCHR_COLI TRUE  #>  2 Clinical 2002-01-03 A77334  B_ESCHR_COLI FALSE #>  3 ICU      2002-01-07 067927  B_STPHY_EPDR TRUE  #>  4 ICU      2002-01-07 067927  B_STPHY_EPDR FALSE #>  5 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  6 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  7 Clinical 2002-01-14 462729  B_STPHY_AURS TRUE  #>  8 Clinical 2002-01-14 462729  B_STPHY_AURS FALSE #>  9 ICU      2002-01-16 067927  B_STPHY_EPDR TRUE  #> 10 ICU      2002-01-17 858515  B_STPHY_EPDR TRUE  #> # ℹ 1,990 more rows # }"},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":null,"dir":"Reference","previous_headings":"","what":"G-test for Count Data — g.test","title":"G-test for Count Data — g.test","text":"g.test() performs chi-squared contingency table tests goodness--fit tests, just like chisq.test() reliable (1). G-test can used see whether number observations category fits theoretical expectation (called G-test goodness--fit), see whether proportions one variable different different values variable (called G-test independence).","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"G-test for Count Data — g.test","text":"","code":"g.test(x, y = NULL, p = rep(1/length(x), length(x)), rescale.p = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"G-test for Count Data — g.test","text":"code function identical chisq.test(), except : calculation statistic changed \\(2 * sum(x * log(x / E))\\) Yates' continuity correction removed apply G-test possibility simulate p values simulate.p.value removed","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"G-test for Count Data — g.test","text":"x numeric vector matrix. x y can also     factors. y numeric vector; ignored x matrix.      x factor, y factor length. p vector probabilities length x.     error given entry p negative. rescale.p logical scalar; TRUE p rescaled     (necessary) sum 1.  rescale.p FALSE,     p sum 1, error given.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"G-test for Count Data — g.test","text":"list class \"htest\" containing following   components: statistic value chi-squared test statistic. parameter degrees freedom approximate     chi-squared distribution test statistic, NA     p-value computed Monte Carlo simulation. p.value p-value test. method character string indicating type test     performed, whether Monte Carlo simulation continuity     correction used. data.name character string giving name(s) data. observed observed counts. expected expected counts null hypothesis. residuals Pearson residuals,     (observed - expected) / sqrt(expected). stdres standardized residuals,     (observed - expected) / sqrt(V), V     residual cell variance (Agresti, 2007, section 2.4.5     case x matrix, n * p * (1 - p) otherwise).","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"G-test for Count Data — g.test","text":"x matrix one row column, x vector y given, goodness--fit test performed (x treated one-dimensional contingency table). entries x must non-negative integers. case, hypothesis tested whether population probabilities equal p, equal p given. x matrix least two rows columns, taken two-dimensional contingency table: entries x must non-negative integers.  Otherwise, x y must vectors factors length; cases missing values removed, objects coerced factors, contingency table computed .  Pearson's chi-squared test performed null hypothesis joint distribution cell counts 2-dimensional contingency table product row column marginals. p-value computed asymptotic chi-squared distribution test statistic. contingency table case simulation done random sampling set contingency tables given marginals, works marginals strictly positive. Note usual sampling situation assumed chi-squared test (G-test) rather Fisher's exact test. goodness--fit case simulation done random sampling discrete distribution specified p, sample size n = sum(x). simulation done R may slow.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"g-test-of-goodness-of-fit-likelihood-ratio-test-","dir":"Reference","previous_headings":"","what":"G-test Of Goodness-of-Fit (Likelihood Ratio Test)","title":"G-test for Count Data — g.test","text":"Use G-test goodness--fit one nominal variable two values (male female, red, pink white flowers). compare observed counts numbers observations category expected counts, calculate using kind theoretical expectation (1:1 sex ratio 1:2:1 ratio genetic cross). expected number observations category small, G-test may give inaccurate results, use exact test instead (fisher.test()). G-test goodness--fit alternative chi-square test goodness--fit (chisq.test()); tests advantages disadvantages, results two tests usually similar.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"g-test-of-independence","dir":"Reference","previous_headings":"","what":"G-test of Independence","title":"G-test for Count Data — g.test","text":"Use G-test independence two nominal variables, two possible values. want know whether proportions one variable different among values variable. also possible G-test independence two nominal variables. example, Jackson et al. (2013) also data children 3, analysis old vs. young, thigh vs. arm, reaction vs. reaction, analyzed together. Fisher's exact test (fisher.test()) exact test, G-test still approximation. 2x2 table, Fisher's Exact test may slower still run seconds, even sum observations multiple millions. G-test independence alternative chi-square test independence (chisq.test()), give approximately results.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"how-the-test-works","dir":"Reference","previous_headings":"","what":"How the Test Works","title":"G-test for Count Data — g.test","text":"Unlike exact test goodness--fit (fisher.test()), G-test directly calculate probability obtaining observed results something extreme. Instead, like almost statistical tests, G-test intermediate step; uses data calculate test statistic measures far observed data null expectation. use mathematical relationship, case chi-square distribution, estimate probability obtaining value test statistic. G-test uses log ratio two likelihoods test statistic, also called likelihood ratio test log-likelihood ratio test. formula calculate G-statistic : \\(G = 2 * sum(x * log(x / E))\\) E expected values. Since chi-square distributed, p value can calculated R :   df degrees freedom. two categories want find ones significantly different null expectation, can use method testing category vs. sum categories, Bonferroni correction. use G-tests category, course.","code":"p <- stats::pchisq(G, df, lower.tail = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"references","dir":"Reference","previous_headings":"","what":"References","title":"G-test for Count Data — g.test","text":"McDonald, J.H. 2014. Handbook Biological Statistics (3rd ed.). Sparky House Publishing, Baltimore, Maryland. http://www.biostathandbook.com/gtestgof.html.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"G-test for Count Data — g.test","text":"","code":"# = EXAMPLE 1 = # Shivrain et al. (2006) crossed clearfield rice (which are resistant # to the herbicide imazethapyr) with red rice (which are susceptible to # imazethapyr). They then crossed the hybrid offspring and examined the # F2 generation, where they found 772 resistant plants, 1611 moderately # resistant plants, and 737 susceptible plants. If resistance is controlled # by a single gene with two co-dominant alleles, you would expect a 1:2:1 # ratio.  x <- c(772, 1611, 737) g.test(x, p = c(1, 2, 1) / 4) #>  #> \tG-test of goodness-of-fit (likelihood ratio test) #>  #> data:  x #> X-squared = 4.1471, p-value = 0.1257 #>   # There is no significant difference from a 1:2:1 ratio. # Meaning: resistance controlled by a single gene with two co-dominant # alleles, is plausible.   # = EXAMPLE 2 = # Red crossbills (Loxia curvirostra) have the tip of the upper bill either # right or left of the lower bill, which helps them extract seeds from pine # cones. Some have hypothesized that frequency-dependent selection would # keep the number of right and left-billed birds at a 1:1 ratio. Groth (1992) # observed 1752 right-billed and 1895 left-billed crossbills.  x <- c(1752, 1895) g.test(x) #>  #> \tG-test of goodness-of-fit (likelihood ratio test) #>  #> data:  x #> X-squared = 5.6085, p-value = 0.01787 #>   # There is a significant difference from a 1:1 ratio. # Meaning: there are significantly more left-billed birds."},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Clinical or Epidemic Episodes — get_episode","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"functions determine items vector can considered (start ) new episode. can used determine clinical episodes epidemiological analysis. get_episode() function returns index number episode per group, is_new_episode() function returns TRUE every new get_episode() index. absolute relative episode determination supported.","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"","code":"get_episode(x, episode_days = NULL, case_free_days = NULL, ...)  is_new_episode(x, episode_days = NULL, case_free_days = NULL, ...)"},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"x vector dates (class Date POSIXt), sorted internally determine episodes episode_days episode length days specify time period new episode begins, can also less day Inf, see Details case_free_days (inter-epidemic) interval length days new episode start, can also less day Inf, see Details ... ignored, place allow future extensions","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"get_episode(): integer vector is_new_episode(): logical vector","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"Episodes can determined two ways: absolute relative. Absolute method uses episode_days define episode length days, new episode start. common use case AMR data analysis microbial epidemiology: episodes S. aureus bacteraemia ICU patients example. episode length 30 days, new S. aureus isolates ICU episode 30 days considered different (new) episode. Thus, method counts since start previous episode. Relative method uses case_free_days quantify duration case-free days (inter-epidemic interval), new episode start. common use case infectious disease epidemiology: episodes norovirus outbreaks hospital example. case-free period 14 days, new norovirus cases time considered different (new) episode. Thus, methods counts since last case previous episode. table: ** marks start new episode, 8 January 2023 7 days since start previous episode (1 January 2023).  *** marks start new episode, 21 January 2023 7 days since last case previous episode (8 January 2023). Either episode_days case_free_days must provided function.","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"difference-between-get-episode-and-is-new-episode-","dir":"Reference","previous_headings":"","what":"Difference between get_episode() and is_new_episode()","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"get_episode() function returns index number episode, cases/patients/isolates first episode number 1, cases/patients/isolates second episode number 2, etc. is_new_episode() function hand, returns TRUE every new get_episode() index. specify, setting episode_days = 365 (using method 1 explained ), two functions differ:","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"other","dir":"Reference","previous_headings":"","what":"Other","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"first_isolate() function wrapper around is_new_episode() function, efficient data sets containing microorganism codes names allows different isolate selection methods. dplyr package required functions work, episode functions support variable grouping work conveniently inside dplyr verbs filter(), mutate() summarise().","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"","code":"# difference between absolute and relative determination of episodes: x <- data.frame(dates = as.Date(c(   \"2021-01-01\",   \"2021-01-02\",   \"2021-01-05\",   \"2021-01-08\",   \"2021-02-21\",   \"2021-02-22\",   \"2021-02-23\",   \"2021-02-24\",   \"2021-03-01\",   \"2021-03-01\" ))) x$absolute <- get_episode(x$dates, episode_days = 7) x$relative <- get_episode(x$dates, case_free_days = 7) x #>         dates absolute relative #> 1  2021-01-01        1        1 #> 2  2021-01-02        1        1 #> 3  2021-01-05        1        1 #> 4  2021-01-08        2        1 #> 5  2021-02-21        3        2 #> 6  2021-02-22        3        2 #> 7  2021-02-23        3        2 #> 8  2021-02-24        3        2 #> 9  2021-03-01        4        2 #> 10 2021-03-01        4        2   # `example_isolates` is a data set available in the AMR package. # See ?example_isolates df <- example_isolates[sample(seq_len(2000), size = 100), ]  get_episode(df$date, episode_days = 60) # indices #>   [1] 41 37 28  7 11 41 48 47  3  1 32  8  1  1 28 15 28 31 25 27 20 38 33  4 45 #>  [26] 23 15  8 13 44 34 16 42 14  6  4 47  4 10 15 41 16 24  2 14 26 21 20 19 35 #>  [51] 18 17 11 43 17 15 17  2 22 21 20 10 31  9 30 12 22 18 47 11 30 16  5 46 36 #>  [76] 21 20 14 29 18 39 28  7 27 33 10  6 26 22 25 47 40 39 14 14 39  1 34 42 31 is_new_episode(df$date, episode_days = 60) # TRUE/FALSE #>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE #>  [13] FALSE FALSE FALSE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE #>  [25]  TRUE  TRUE FALSE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE #>  [37] FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE  TRUE FALSE  TRUE  TRUE FALSE #>  [49]  TRUE  TRUE  TRUE  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE FALSE #>  [61] FALSE FALSE FALSE  TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE #>  [73]  TRUE  TRUE  TRUE FALSE FALSE FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE #>  [85] FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE #>  [97] FALSE FALSE FALSE FALSE  # filter on results from the third 60-day episode only, using base R df[which(get_episode(df$date, 60) == 3), ] #> # A tibble: 1 × 46 #>   date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>   <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #> 1 2002-06-06 24D393     20 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, RIF <sir>  # the functions also work for less than a day, e.g. to include one per hour: get_episode(   c(     Sys.time(),     Sys.time() + 60 * 60   ),   episode_days = 1 / 24 ) #> [1] 1 2  # \\donttest{ if (require(\"dplyr\")) {   # is_new_episode() can also be used in dplyr verbs to determine patient   # episodes based on any (combination of) grouping variables:   df %>%     mutate(condition = sample(       x = c(\"A\", \"B\", \"C\"),       size = 100,       replace = TRUE     )) %>%     group_by(patient, condition) %>%     mutate(new_episode = is_new_episode(date, 365)) %>%     select(patient, date, condition, new_episode) %>%     arrange(patient, condition, date) } #> # A tibble: 100 × 4 #> # Groups:   patient, condition [99] #>    patient date       condition new_episode #>    <chr>   <date>     <chr>     <lgl>       #>  1 006606  2011-10-30 A         TRUE        #>  2 059414  2006-07-21 C         TRUE        #>  3 066895  2002-02-27 C         TRUE        #>  4 067927  2002-01-16 A         TRUE        #>  5 0DBF93  2015-10-12 A         TRUE        #>  6 0F9638  2014-09-22 C         TRUE        #>  7 179451  2007-09-15 B         TRUE        #>  8 183220  2008-11-14 C         TRUE        #>  9 1D4C00  2011-04-04 B         TRUE        #> 10 218456  2003-09-26 C         TRUE        #> # ℹ 90 more rows  if (require(\"dplyr\")) {   df %>%     group_by(ward, patient) %>%     transmute(date,       patient,       new_index = get_episode(date, 60),       new_logical = is_new_episode(date, 60)     ) %>%     arrange(patient, ward, date) } #> # A tibble: 100 × 5 #> # Groups:   ward, patient [94] #>    ward     date       patient new_index new_logical #>    <chr>    <date>     <chr>       <int> <lgl>       #>  1 Clinical 2011-10-30 006606          1 TRUE        #>  2 Clinical 2006-07-21 059414          1 TRUE        #>  3 Clinical 2002-02-27 066895          1 TRUE        #>  4 ICU      2002-01-16 067927          1 TRUE        #>  5 Clinical 2015-10-12 0DBF93          1 TRUE        #>  6 Clinical 2014-09-22 0F9638          1 TRUE        #>  7 ICU      2007-09-15 179451          1 TRUE        #>  8 Clinical 2008-11-14 183220          1 TRUE        #>  9 Clinical 2011-04-04 1D4C00          1 TRUE        #> 10 Clinical 2003-09-26 218456          1 TRUE        #> # ℹ 90 more rows  if (require(\"dplyr\")) {   df %>%     group_by(ward) %>%     summarise(       n_patients = n_distinct(patient),       n_episodes_365 = sum(is_new_episode(date, episode_days = 365)),       n_episodes_60 = sum(is_new_episode(date, episode_days = 60)),       n_episodes_30 = sum(is_new_episode(date, episode_days = 30))     ) } #> # A tibble: 3 × 5 #>   ward       n_patients n_episodes_365 n_episodes_60 n_episodes_30 #>   <chr>           <int>          <int>         <int>         <int> #> 1 Clinical           68             13            40            51 #> 2 ICU                22              9            17            19 #> 3 Outpatient          4              3             4             4  # grouping on patients and microorganisms leads to the same # results as first_isolate() when using 'episode-based': if (require(\"dplyr\")) {   x <- df %>%     filter_first_isolate(       include_unknown = TRUE,       method = \"episode-based\"     )    y <- df %>%     group_by(patient, mo) %>%     filter(is_new_episode(date, 365)) %>%     ungroup()    identical(x, y) } #> [1] TRUE  # but is_new_episode() has a lot more flexibility than first_isolate(), # since you can now group on anything that seems relevant: if (require(\"dplyr\")) {   df %>%     group_by(patient, mo, ward) %>%     mutate(flag_episode = is_new_episode(date, 365)) %>%     select(group_vars(.), flag_episode) } #> # A tibble: 100 × 4 #> # Groups:   patient, mo, ward [98] #>    patient mo           ward       flag_episode #>    <chr>   <mo>         <chr>      <lgl>        #>  1 F76081  B_ESCHR_COLI ICU        TRUE         #>  2 F74547  B_STPHY_EPDR Clinical   TRUE         #>  3 988763  B_STPHY_AURS Clinical   TRUE         #>  4 8DB5B8  B_STPHY_CONS Clinical   TRUE         #>  5 FB50D6  B_STRPT_MITS ICU        TRUE         #>  6 310665  B_STPHY_CPTS Outpatient TRUE         #>  7 3D2C93  B_STPHY_EPDR ICU        TRUE         #>  8 D80438  B_CRYNB_STRT Clinical   TRUE         #>  9 24D393  B_ESCHR_COLI Clinical   TRUE         #> 10 066895  B_KLBSL_PNMN Clinical   TRUE         #> # ℹ 90 more rows # }"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":null,"dir":"Reference","previous_headings":"","what":"PCA Biplot with ggplot2 — ggplot_pca","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"Produces ggplot2 variant -called biplot PCA (principal component analysis), flexible appealing base R biplot() function.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"ggplot_pca(   x,   choices = 1:2,   scale = 1,   pc.biplot = TRUE,   labels = NULL,   labels_textsize = 3,   labels_text_placement = 1.5,   groups = NULL,   ellipse = TRUE,   ellipse_prob = 0.68,   ellipse_size = 0.5,   ellipse_alpha = 0.5,   points_size = 2,   points_alpha = 0.25,   arrows = TRUE,   arrows_colour = \"darkblue\",   arrows_size = 0.5,   arrows_textsize = 3,   arrows_textangled = TRUE,   arrows_alpha = 0.75,   base_textsize = 10,   ... )"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"ggplot_pca() function based ggbiplot() function ggbiplot package Vince Vu, found GitHub: https://github.com/vqv/ggbiplot (retrieved: 2 March 2020, latest commit: 7325e88; 12 February 2015). per GPL-2 licence demands documentation code changes, changes made based source code : Rewritten code remove dependency packages plyr, scales grid Parametrised options, like arrow ellipse settings Hardened input possibilities defining exact type user input every argument Added total amount explained variance caption plot Cleaned syntax based lintr package, fixed grammatical errors added integrity checks Updated documentation","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"x object returned pca(), prcomp() princomp() choices length 2 vector specifying components plot. default     biplot strict sense. scale variables scaled lambda ^ scale     observations scaled lambda ^ (1-scale)     lambda singular values computed     princomp. Normally 0 <= scale <= 1, warning     issued specified scale outside range. pc.biplot true, use Gabriel (1971) refers \"principal component     biplot\", lambda = 1 observations scaled sqrt(n)     variables scaled sqrt(n).  inner products     variables approximate covariances distances observations     approximate Mahalanobis distance. labels optional vector labels observations. set, labels placed respective points. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). labels_textsize size text used labels labels_text_placement adjustment factor placement variable names (>=1 means away arrow head) groups optional vector groups labels, length labels. set, points labels coloured according groups. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). ellipse logical indicate whether normal data ellipse drawn group (set groups) ellipse_prob statistical size ellipse normal probability ellipse_size size ellipse line ellipse_alpha alpha (transparency) ellipse line points_size size points points_alpha alpha (transparency) points arrows logical indicate whether arrows drawn arrows_colour colour arrow text arrows_size size (thickness) arrow lines arrows_textsize size text end arrows arrows_textangled logical whether text end arrows angled arrows_alpha alpha (transparency) arrows text base_textsize text size plot elements except labels arrows ... arguments passed functions","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"colours labels points can changed adding another scale layer colour, scale_colour_viridis_d() scale_colour_brewer().","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # \\donttest{ if (require(\"dplyr\")) {   # calculate the resistance per group first   resistance_data <- example_isolates %>%     group_by(       order = mo_order(mo), # group on anything, like order       genus = mo_genus(mo)     ) %>% #   and genus as we do here;     filter(n() >= 30) %>% # filter on only 30 results per group     summarise_if(is.sir, resistance) # then get resistance of all drugs    # now conduct PCA for certain antimicrobial drugs   pca_result <- resistance_data %>%     pca(AMC, CXM, CTX, CAZ, GEN, TOB, TMP, SXT)    summary(pca_result)    # old base R plotting method:   biplot(pca_result, main = \"Base R biplot\")    # new ggplot2 plotting method using this package:   if (require(\"ggplot2\")) {     ggplot_pca(pca_result) +       labs(title = \"ggplot2 biplot\")   }   if (require(\"ggplot2\")) {     # still extendible with any ggplot2 function     ggplot_pca(pca_result) +       scale_colour_viridis_d() +       labs(title = \"ggplot2 biplot\")   } } #> Warning: There were 73 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `PEN = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ In group 5: `order = \"Lactobacillales\"` and `genus = \"Enterococcus\"`. #> Caused by warning: #> ! Introducing NA: only 14 results available for PEN in group: order = #> \"Lactobacillales\", genus = \"Enterococcus\" (minimum = 30). #> ℹ Run `dplyr::last_dplyr_warnings()` to see the 72 remaining warnings. #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\"  #>    # }"},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":null,"dir":"Reference","previous_headings":"","what":"AMR Plots with ggplot2 — ggplot_sir","title":"AMR Plots with ggplot2 — ggplot_sir","text":"Use functions create bar plots AMR data analysis. functions rely ggplot2 functions.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"AMR Plots with ggplot2 — ggplot_sir","text":"","code":"ggplot_sir(   data,   position = NULL,   x = \"antibiotic\",   fill = \"interpretation\",   facet = NULL,   breaks = seq(0, 1, 0.1),   limits = NULL,   translate_ab = \"name\",   combine_SI = TRUE,   minimum = 30,   language = get_AMR_locale(),   nrow = NULL,   colours = c(S = \"#3CAEA3\", SI = \"#3CAEA3\", I = \"#F6D55C\", IR = \"#ED553B\", R =     \"#ED553B\"),   datalabels = TRUE,   datalabels.size = 2.5,   datalabels.colour = \"grey15\",   title = NULL,   subtitle = NULL,   caption = NULL,   x.title = \"Antimicrobial\",   y.title = \"Proportion\",   ... )  geom_sir(   position = NULL,   x = c(\"antibiotic\", \"interpretation\"),   fill = \"interpretation\",   translate_ab = \"name\",   minimum = 30,   language = get_AMR_locale(),   combine_SI = TRUE,   ... )"},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"AMR Plots with ggplot2 — ggplot_sir","text":"data data.frame column(s) class sir (see .sir()) position position adjustment bars, either \"fill\", \"stack\" \"dodge\" x variable show x axis, either \"antibiotic\" (default) \"interpretation\" grouping variable fill variable categorise using plots legend, either \"antibiotic\" (default) \"interpretation\" grouping variable facet variable split plots , either \"interpretation\" (default) \"antibiotic\" grouping variable breaks numeric vector positions limits numeric vector length two providing limits scale, use NA refer existing minimum maximum translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() combine_SI logical indicate whether values S, SDD, must merged one, output consists S+SDD+vs. R (susceptible vs. resistant) - default TRUE minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. nrow (using facet) number rows colours named vactor colour used filling. default colours colour-blind friendly. datalabels show datalabels using labels_sir_count() datalabels.size size datalabels datalabels.colour colour datalabels title text show title plot subtitle text show subtitle plot caption text show caption plot x.title text show x axis description y.title text show y axis description ... arguments passed geom_sir() , case scale_sir_colours(), named values set colours. default colours colour-blind friendly, maintaining convention e.g. 'susceptible' green 'resistant' red. See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"AMR Plots with ggplot2 — ggplot_sir","text":"default, names antibiotics shown plots using ab_name(). can set translate_ab argument. See count_df(). geom_sir() take variable data sir class (created .sir()) using sir_df() plot bars percentage S, , R. default behaviour bars stacked different antibiotics x axis. Additional functions include: facet_sir() creates 2d plots (default based S//R) using ggplot2::facet_wrap(). scale_y_percent() transforms y axis 0 100% range using ggplot2::scale_y_continuous(). scale_sir_colours() sets colours bars (green S, yellow , red R). multilingual support. default colours colour-blind friendly, maintaining convention e.g. 'susceptible' green 'resistant' red. theme_sir() [ggplot2 theme][ggplot2::theme() minimal distraction. labels_sir_count() print datalabels bars percentage amount isolates using ggplot2::geom_text(). ggplot_sir() wrapper around functions uses data first input. makes possible use function pipe (%>%). See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"AMR Plots with ggplot2 — ggplot_sir","text":"","code":"# \\donttest{ if (require(\"ggplot2\") && require(\"dplyr\")) {   # get antimicrobial results for drugs against a UTI:   ggplot(example_isolates %>% select(AMX, NIT, FOS, TMP, CIP)) +     geom_sir() }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # prettify the plot using some additional functions:   df <- example_isolates %>% select(AMX, NIT, FOS, TMP, CIP)   ggplot(df) +     geom_sir() +     scale_y_percent() +     scale_sir_colours() +     labels_sir_count() +     theme_sir() }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # or better yet, simplify this using the wrapper function - a single command:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir() }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # get only proportions and no counts:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(datalabels = FALSE) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # add other ggplot2 arguments as you like:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(       width = 0.5,       colour = \"black\",       size = 1,       linetype = 2,       alpha = 0.25     ) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # you can alter the colours with colour names:   example_isolates %>%     select(AMX) %>%     ggplot_sir(colours = c(SI = \"yellow\")) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # but you can also use the built-in colour-blind friendly colours for   # your plots, where \"S\" is green, \"I\" is yellow and \"R\" is red:   data.frame(     x = c(\"Value1\", \"Value2\", \"Value3\"),     y = c(1, 2, 3),     z = c(\"Value4\", \"Value5\", \"Value6\")   ) %>%     ggplot() +     geom_col(aes(x = x, y = y, fill = z)) +     scale_sir_colours(Value4 = \"S\", Value5 = \"I\", Value6 = \"R\") }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # resistance of ciprofloxacine per age group   example_isolates %>%     mutate(first_isolate = first_isolate()) %>%     filter(       first_isolate == TRUE,       mo == as.mo(\"Escherichia coli\")     ) %>%     # age_groups() is also a function in this AMR package:     group_by(age_group = age_groups(age)) %>%     select(age_group, CIP) %>%     ggplot_sir(x = \"age_group\") } #> Warning: Removed 6 rows containing missing values or values outside the scale range #> (`geom_col()`). #> Warning: Removed 6 rows containing missing values or values outside the scale range #> (`geom_text()`).  if (require(\"ggplot2\") && require(\"dplyr\")) {   # a shorter version which also adjusts data label colours:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(colours = FALSE) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # it also supports groups (don't forget to use the group var on `x` or `facet`):   example_isolates %>%     filter(mo_is_gram_negative(), ward != \"Outpatient\") %>%     # select only UTI-specific drugs     select(ward, AMX, NIT, FOS, TMP, CIP) %>%     group_by(ward) %>%     ggplot_sir(       x = \"ward\",       facet = \"antibiotic\",       nrow = 1,       title = \"AMR of Anti-UTI Drugs Per Ward\",       x.title = \"Ward\",       datalabels = FALSE     ) } #> ℹ Using column 'mo' as input for mo_is_gram_negative()  # }"},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":null,"dir":"Reference","previous_headings":"","what":"Guess Antibiotic Column — guess_ab_col","title":"Guess Antibiotic Column — guess_ab_col","text":"tries find column name data set based information antibiotics data set. Also supports WHONET abbreviations.","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Guess Antibiotic Column — guess_ab_col","text":"","code":"guess_ab_col(   x = NULL,   search_string = NULL,   verbose = FALSE,   only_sir_columns = FALSE )"},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Guess Antibiotic Column — guess_ab_col","text":"x data.frame search_string text search x , checked .ab() value column x verbose logical indicate whether additional info printed only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE)","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Guess Antibiotic Column — guess_ab_col","text":"column name x, NULL result found.","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Guess Antibiotic Column — guess_ab_col","text":"can look antibiotic (trade) name abbreviation search x antibiotics data set column containing name code antibiotic.","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Guess Antibiotic Column — guess_ab_col","text":"","code":"df <- data.frame(   amox = \"S\",   tetr = \"R\" )  guess_ab_col(df, \"amoxicillin\") #> [1] \"amox\" guess_ab_col(df, \"J01AA07\") # ATC code of tetracycline #> [1] \"tetr\"  guess_ab_col(df, \"J01AA07\", verbose = TRUE) #> Auto-guessing columns suitable for analysis #> ... #>  OK. #> ℹ Using column 'amox' as input for AMX (amoxicillin). #> ℹ Using column 'tetr' as input for TCY (tetracycline). #> ℹ Using column 'tetr' as input for J01AA07 (tetracycline). #> [1] \"tetr\" # NOTE: Using column 'tetr' as input for J01AA07 (tetracycline).  # WHONET codes df <- data.frame(   AMP_ND10 = \"R\",   AMC_ED20 = \"S\" ) guess_ab_col(df, \"ampicillin\") #> [1] \"AMP_ND10\" guess_ab_col(df, \"J01CR02\") #> [1] \"AMC_ED20\" guess_ab_col(df, as.ab(\"augmentin\")) #> [1] \"AMC_ED20\""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"Data set containing defined intrinsic resistance EUCAST bug-drug combinations.","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"","code":"intrinsic_resistant"},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"tibble 301 583 observations 2 variables: mo Microorganism ID ab Antibiotic ID","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"data set based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021).","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. Please visit website download links. actual files course available GitHub repository. allow machine reading EUCAST CLSI guidelines, almost impossible MS Excel PDF files distributed EUCAST CLSI.","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"","code":"intrinsic_resistant #> # A tibble: 301,583 × 2 #>    mo          ab   #>    <mo>        <ab> #>  1 B_GRAMP     ATM  #>  2 B_GRAMP     COL  #>  3 B_GRAMP     NAL  #>  4 B_GRAMP     PLB  #>  5 B_GRAMP     TEM  #>  6 B_ANAER-POS ATM  #>  7 B_ANAER-POS COL  #>  8 B_ANAER-POS NAL  #>  9 B_ANAER-POS PLB  #> 10 B_ANAER-POS TEM  #> # ℹ 301,573 more rows"},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":null,"dir":"Reference","previous_headings":"","what":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"According binomial nomenclature, lowest four taxonomic levels (family, genus, species, subspecies) printed italics. function finds taxonomic names within strings makes italic.","code":""},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"","code":"italicise_taxonomy(string, type = c(\"markdown\", \"ansi\", \"html\"))  italicize_taxonomy(string, type = c(\"markdown\", \"ansi\", \"html\"))"},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"string character (vector) type type conversion taxonomic names, either \"markdown\", \"html\" \"ansi\", see Details","code":""},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"function finds taxonomic names makes italic based microorganisms data set. taxonomic names can italicised using markdown (default) adding * taxonomic names, <> <\/> using html. using 'ansi', ANSI colours added using \\033[3m \\033[23m taxonomic names. multiple ANSI colours available, conversion occur. function also supports abbreviation genus followed species, \"E. coli\" \"K. pneumoniae ozaenae\".","code":""},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"","code":"italicise_taxonomy(\"An overview of Staphylococcus aureus isolates\") #> [1] \"An overview of *Staphylococcus aureus* isolates\" italicise_taxonomy(\"An overview of S. aureus isolates\") #> [1] \"An overview of *S. aureus* isolates\"  cat(italicise_taxonomy(\"An overview of S. aureus isolates\", type = \"ansi\")) #> An overview of S. aureus isolates"},{"path":"https://msberends.github.io/AMR/reference/join.html","id":null,"dir":"Reference","previous_headings":"","what":"Join microorganisms to a Data Set — join","title":"Join microorganisms to a Data Set — join","text":"Join data set microorganisms easily existing data set character vector.","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Join microorganisms to a Data Set — join","text":"","code":"inner_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  left_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  right_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  full_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  semi_join_microorganisms(x, by = NULL, ...)  anti_join_microorganisms(x, by = NULL, ...)"},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Join microorganisms to a Data Set — join","text":"x existing data set join, character vector. case character vector, resulting data.frame contain column 'x' values. variable join - left empty search column class mo (created .mo()) \"mo\" column name exists x, otherwise column name x values exist microorganisms$mo (= \"bacteria_id\"), another column microorganisms (named, like = c(\"bacteria_id\" = \"fullname\")) suffix non-joined duplicate variables x y, suffixes added output disambiguate . character vector length 2. ... ignored, place allow future extensions","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Join microorganisms to a Data Set — join","text":"data.frame","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Join microorganisms to a Data Set — join","text":"Note: opposed join() functions dplyr, character vectors supported default existing columns get suffix \"2\" newly joined columns get suffix. dplyr package installed, join functions used. Otherwise, much slower merge() interaction() functions base R used.","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Join microorganisms to a Data Set — join","text":"","code":"left_join_microorganisms(as.mo(\"K. pneumoniae\")) #> # A tibble: 1 × 26 #>   mo           fullname   status kingdom phylum class order family genus species #>   <mo>         <chr>      <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> <chr>   #> 1 B_KLBSL_PNMN Klebsiell… accep… Bacter… Pseud… Gamm… Ente… Enter… Kleb… pneumo… #> # ℹ 16 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, mycobank <chr>, mycobank_parent <chr>, #> #   mycobank_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list> left_join_microorganisms(\"B_KLBSL_PNMN\") #> # A tibble: 1 × 26 #>   mo           fullname   status kingdom phylum class order family genus species #>   <mo>         <chr>      <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> <chr>   #> 1 B_KLBSL_PNMN Klebsiell… accep… Bacter… Pseud… Gamm… Ente… Enter… Kleb… pneumo… #> # ℹ 16 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, mycobank <chr>, mycobank_parent <chr>, #> #   mycobank_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list>  df <- data.frame(   date = seq(     from = as.Date(\"2018-01-01\"),     to = as.Date(\"2018-01-07\"),     by = 1   ),   bacteria = as.mo(c(     \"S. aureus\", \"MRSA\", \"MSSA\", \"STAAUR\",     \"E. coli\", \"E. coli\", \"E. coli\"   )),   stringsAsFactors = FALSE ) colnames(df) #> [1] \"date\"     \"bacteria\"  df_joined <- left_join_microorganisms(df, \"bacteria\") colnames(df_joined) #>  [1] \"date\"                \"bacteria\"            \"fullname\"            #>  [4] \"status\"              \"kingdom\"             \"phylum\"              #>  [7] \"class\"               \"order\"               \"family\"              #> [10] \"genus\"               \"species\"             \"subspecies\"          #> [13] \"rank\"                \"ref\"                 \"oxygen_tolerance\"    #> [16] \"source\"              \"lpsn\"                \"lpsn_parent\"         #> [19] \"lpsn_renamed_to\"     \"mycobank\"            \"mycobank_parent\"     #> [22] \"mycobank_renamed_to\" \"gbif\"                \"gbif_parent\"         #> [25] \"gbif_renamed_to\"     \"prevalence\"          \"snomed\"               # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     left_join_microorganisms() %>%     colnames() } #> Joining, by = \"mo\" #>  [1] \"date\"                \"patient\"             \"age\"                 #>  [4] \"gender\"              \"ward\"                \"mo\"                  #>  [7] \"PEN\"                 \"OXA\"                 \"FLC\"                 #> [10] \"AMX\"                 \"AMC\"                 \"AMP\"                 #> [13] \"TZP\"                 \"CZO\"                 \"FEP\"                 #> [16] \"CXM\"                 \"FOX\"                 \"CTX\"                 #> [19] \"CAZ\"                 \"CRO\"                 \"GEN\"                 #> [22] \"TOB\"                 \"AMK\"                 \"KAN\"                 #> [25] \"TMP\"                 \"SXT\"                 \"NIT\"                 #> [28] \"FOS\"                 \"LNZ\"                 \"CIP\"                 #> [31] \"MFX\"                 \"VAN\"                 \"TEC\"                 #> [34] \"TCY\"                 \"TGC\"                 \"DOX\"                 #> [37] \"ERY\"                 \"CLI\"                 \"AZM\"                 #> [40] \"IPM\"                 \"MEM\"                 \"MTR\"                 #> [43] \"CHL\"                 \"COL\"                 \"MUP\"                 #> [46] \"RIF\"                 \"fullname\"            \"status\"              #> [49] \"kingdom\"             \"phylum\"              \"class\"               #> [52] \"order\"               \"family\"              \"genus\"               #> [55] \"species\"             \"subspecies\"          \"rank\"                #> [58] \"ref\"                 \"oxygen_tolerance\"    \"source\"              #> [61] \"lpsn\"                \"lpsn_parent\"         \"lpsn_renamed_to\"     #> [64] \"mycobank\"            \"mycobank_parent\"     \"mycobank_renamed_to\" #> [67] \"gbif\"                \"gbif_parent\"         \"gbif_renamed_to\"     #> [70] \"prevalence\"          \"snomed\"              # }"},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":null,"dir":"Reference","previous_headings":"","what":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"functions can used determine first weighted isolates considering phenotype isolate selection (see first_isolate()). Using phenotype-based method determine first isolates reliable methods disregard phenotypes.","code":""},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"","code":"key_antimicrobials(   x = NULL,   col_mo = NULL,   universal = c(\"ampicillin\", \"amoxicillin/clavulanic acid\", \"cefuroxime\",     \"piperacillin/tazobactam\", \"ciprofloxacin\", \"trimethoprim/sulfamethoxazole\"),   gram_negative = c(\"gentamicin\", \"tobramycin\", \"colistin\", \"cefotaxime\", \"ceftazidime\",     \"meropenem\"),   gram_positive = c(\"vancomycin\", \"teicoplanin\", \"tetracycline\", \"erythromycin\",     \"oxacillin\", \"rifampin\"),   antifungal = c(\"anidulafungin\", \"caspofungin\", \"fluconazole\", \"miconazole\", \"nystatin\",     \"voriconazole\"),   only_sir_columns = FALSE,   ... )  all_antimicrobials(x = NULL, only_sir_columns = FALSE, ...)  antimicrobials_equal(   y,   z,   type = c(\"points\", \"keyantimicrobials\"),   ignore_I = TRUE,   points_threshold = 2,   ... )"},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"x data.frame antibiotics columns, like AMX amox. Can left blank determine automatically col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). universal names broad-spectrum antimicrobial drugs, case-insensitive. Set NULL ignore. See Details default antimicrobial drugs gram_negative names antibiotic drugs Gram-positives, case-insensitive. Set NULL ignore. See Details default antibiotic drugs gram_positive names antibiotic drugs Gram-negatives, case-insensitive. Set NULL ignore. See Details default antibiotic drugs antifungal names antifungal drugs fungi, case-insensitive. Set NULL ignore. See Details default antifungal drugs only_sir_columns logical indicate whether columns must included transformed class sir (see .sir()) beforehand (default FALSE) ... ignored, place allow future extensions y, z character vectors compare type type determine weighed isolates; can \"keyantimicrobials\" \"points\", see Details ignore_I logical indicate whether antibiotic interpretations \"\" ignored type = \"keyantimicrobials\", see Details points_threshold minimum number points require differences antibiogram lead inclusion isolate type = \"points\", see Details","code":""},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"key_antimicrobials() all_antimicrobials() functions context-aware. means x argument can left blank used inside data.frame call, see Examples. function key_antimicrobials() returns character vector 12 antimicrobial results every isolate. function all_antimicrobials() returns character vector antimicrobial drug results every isolate. vectors can compared using antimicrobials_equal(), check two isolates generally antibiogram. Missing invalid values replaced dot (\".\") key_antimicrobials() ignored antimicrobials_equal(). Please see first_isolate() function important functions enable 'phenotype-based' method determination first isolates. default antimicrobial drugs used rows (set universal) : Ampicillin Amoxicillin/clavulanic acid Cefuroxime Ciprofloxacin Piperacillin/tazobactam Trimethoprim/sulfamethoxazole default antimicrobial drugs used Gram-negative bacteria (set gram_negative) : Cefotaxime Ceftazidime Colistin Gentamicin Meropenem Tobramycin default antimicrobial drugs used Gram-positive bacteria (set gram_positive) : Erythromycin Oxacillin Rifampin Teicoplanin Tetracycline Vancomycin default antimicrobial drugs used fungi (set antifungal) : Anidulafungin Caspofungin Fluconazole Miconazole Nystatin Voriconazole","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # output of the `key_antimicrobials()` function could be like this: strainA <- \"SSSRR.S.R..S\" strainB <- \"SSSIRSSSRSSS\"  # those strings can be compared with: antimicrobials_equal(strainA, strainB, type = \"keyantimicrobials\") #> [1] TRUE # TRUE, because I is ignored (as well as missing values)  antimicrobials_equal(strainA, strainB, type = \"keyantimicrobials\", ignore_I = FALSE) #> [1] FALSE # FALSE, because I is not ignored and so the 4th [character] differs  # \\donttest{ if (require(\"dplyr\")) {   # set key antibiotics to a new variable   my_patients <- example_isolates %>%     mutate(keyab = key_antimicrobials(antifungal = NULL)) %>% # no need to define `x`     mutate(       # now calculate first isolates       first_regular = first_isolate(col_keyantimicrobials = FALSE),       # and first WEIGHTED isolates       first_weighted = first_isolate(col_keyantimicrobials = \"keyab\")     )    # Check the difference in this data set, 'weighted' results in more isolates:   sum(my_patients$first_regular, na.rm = TRUE)   sum(my_patients$first_weighted, na.rm = TRUE) } #> [1] 1383 # }"},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":null,"dir":"Reference","previous_headings":"","what":"Kurtosis of the Sample — kurtosis","title":"Kurtosis of the Sample — kurtosis","text":"Kurtosis measure \"tailedness\" probability distribution real-valued random variable. normal distribution kurtosis 3 excess kurtosis 0.","code":""},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(x, na.rm = FALSE, excess = FALSE)  # Default S3 method kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for class 'matrix' kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for class 'data.frame' kurtosis(x, na.rm = FALSE, excess = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Kurtosis of the Sample — kurtosis","text":"x vector values, matrix data.frame na.rm logical indicate whether NA values stripped computation proceeds excess logical indicate whether excess kurtosis returned, defined kurtosis minus 3.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(rnorm(10000)) #> [1] 3.03269 kurtosis(rnorm(10000), excess = TRUE) #> [1] 0.07248166"},{"path":"https://msberends.github.io/AMR/reference/like.html","id":null,"dir":"Reference","previous_headings":"","what":"Vectorised Pattern Matching with Keyboard Shortcut — like","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"Convenient wrapper around grepl() match pattern: x %like% pattern. always returns logical vector always case-insensitive (use x %like_case% pattern case-sensitive matching). Also, pattern can long x compare items index vectors, can length iterate cases.","code":""},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"","code":"like(x, pattern, ignore.case = TRUE)  x %like% pattern  x %unlike% pattern  x %like_case% pattern  x %unlike_case% pattern"},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"Idea like function data.table package, although altered explained Details.","code":""},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"x character vector matches sought, object can coerced .character() character vector. pattern character vector containing regular expressions (character string fixed = TRUE) matched given character vector. Coerced .character() character string possible. ignore.case FALSE, pattern matching case sensitive TRUE, case ignored matching.","code":""},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"logical vector","code":""},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"like() %like%/%unlike% functions: case-insensitive (use %like_case%/%unlike_case% case-sensitive matching) Support multiple patterns Check pattern valid regular expression sets fixed = TRUE , greatly improve speed (vectorised pattern) Always use compatibility Perl unless fixed = TRUE, greatly improve speed Using RStudio? %like%/%unlike% functions can also directly inserted code Addins menu can keyboard shortcut like Shift+Ctrl+L Shift+Cmd+L (see menu Tools > Modify Keyboard Shortcuts...). keep pressing shortcut, inserted text iterated %like% -> %unlike% -> %like_case% -> %unlike_case%.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"","code":"# data.table has a more limited version of %like%, so unload it: try(detach(\"package:data.table\", unload = TRUE), silent = TRUE)  a <- \"This is a test\" b <- \"TEST\" a %like% b #> [1] TRUE b %like% a #> [1] FALSE  # also supports multiple patterns a <- c(\"Test case\", \"Something different\", \"Yet another thing\") b <- c(\"case\", \"diff\", \"yet\") a %like% b #> [1] TRUE TRUE TRUE a %unlike% b #> [1] FALSE FALSE FALSE  a[1] %like% b #> [1]  TRUE FALSE FALSE a %like% b[1] #> [1]  TRUE FALSE FALSE  # \\donttest{ # get isolates whose name start with 'Entero' (case-insensitive) example_isolates[which(mo_name() %like% \"^entero\"), ] #> ℹ Using column 'mo' as input for mo_name() #> # A tibble: 106 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinic… B_ENTRC_FACM  NA    NA    NA    NA    #>  2 2002-04-08 130252     78 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA    #>  3 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA    #>  4 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA    #>  5 2003-04-20 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA    #>  6 2003-04-21 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA    #>  7 2003-08-13 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  8 2003-08-13 F35553     52 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA    #>  9 2003-09-05 F35553     52 M      ICU     B_ENTRC       NA    NA    NA    NA    #> 10 2003-09-05 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #> # ℹ 96 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_name() %like% \"^ent\") } #> ℹ Using column 'mo' as input for mo_name() #> # A tibble: 106 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinic… B_ENTRC_FACM  NA    NA    NA    NA    #>  2 2002-04-08 130252     78 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA    #>  3 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA    #>  4 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA    #>  5 2003-04-20 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA    #>  6 2003-04-21 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA    #>  7 2003-08-13 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  8 2003-08-13 F35553     52 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA    #>  9 2003-09-05 F35553     52 M      ICU     B_ENTRC       NA    NA    NA    NA    #> 10 2003-09-05 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #> # ℹ 96 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # }"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Determine isolates multidrug-resistant organisms (MDRO) according international, national, custom guidelines.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"","code":"mdro(   x = NULL,   guideline = \"CMI2012\",   col_mo = NULL,   esbl = NA,   carbapenemase = NA,   mecA = NA,   mecC = NA,   vanA = NA,   vanB = NA,   info = interactive(),   pct_required_classes = 0.5,   combine_SI = TRUE,   verbose = FALSE,   only_sir_columns = FALSE,   ... )  custom_mdro_guideline(..., as_factor = TRUE)  brmo(x = NULL, only_sir_columns = FALSE, ...)  mrgn(x = NULL, only_sir_columns = FALSE, verbose = FALSE, ...)  mdr_tb(x = NULL, only_sir_columns = FALSE, verbose = FALSE, ...)  mdr_cmi2012(x = NULL, only_sir_columns = FALSE, verbose = FALSE, ...)  eucast_exceptional_phenotypes(   x = NULL,   only_sir_columns = FALSE,   verbose = FALSE,   ... )"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"See supported guidelines list publications used function.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"x data.frame antibiotics columns, like AMX amox. Can left blank automatic determination. guideline specific guideline follow, see sections Supported international / national guidelines Using Custom Guidelines . left empty, publication Magiorakos et al. (see ) followed. col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). esbl logical values, column name containing logical values, indicating presence ESBL gene (production proteins) carbapenemase logical values, column name containing logical values, indicating presence carbapenemase gene (production proteins) mecA logical values, column name containing logical values, indicating presence mecA gene (production proteins) mecC logical values, column name containing logical values, indicating presence mecC gene (production proteins) vanA logical values, column name containing logical values, indicating presence vanA gene (production proteins) vanB logical values, column name containing logical values, indicating presence vanB gene (production proteins) info logical indicate whether progress printed console - default print interactive sessions pct_required_classes minimal required percentage antimicrobial classes must available per isolate, rounded . example, default guideline, 17 antimicrobial classes must available S. aureus. Setting pct_required_classes argument 0.5 (default) means every S. aureus isolate least 8 different classes must available. lower number available classes return NA isolate. combine_SI logical indicate whether values S must merged one, resistance considered isolates R, . default behaviour mdro() function, follows redefinition EUCAST interpretation (increased exposure) 2019, see section 'Interpretation S, R' . using combine_SI = FALSE, resistance considered isolates R . verbose logical turn Verbose mode (default ). Verbose mode, function return MDRO results, instead returns data set logbook form extensive info isolates MDRO-positive, . only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE) ... case custom_mdro_guideline(): set rules, see section Using Custom Guidelines . Otherwise: column name antibiotic, see section Antibiotics . as_factor logical indicate whether returned value ordered factor (TRUE, default), otherwise character vector","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"CMI 2012 paper - function mdr_cmi2012() mdro(): Ordered factor levels Negative < Multi-drug-resistant (MDR) < Extensively drug-resistant (XDR) < Pandrug-resistant (PDR) TB guideline - function mdr_tb() mdro(..., guideline = \"TB\"): Ordered factor levels Negative < Mono-resistant < Poly-resistant < Multi-drug-resistant < Extensively drug-resistant German guideline - function mrgn() mdro(..., guideline = \"MRGN\"): Ordered factor levels Negative < 3MRGN < 4MRGN Everything else, except custom guidelines: Ordered factor levels Negative < Positive, unconfirmed < Positive. value \"Positive, unconfirmed\" means , according guideline, entirely sure isolate multi-drug resistant confirmed additional (e.g. molecular) tests","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"functions context-aware. means x argument can left blank used inside data.frame call, see Examples. pct_required_classes argument, values 1 divided 100. support fractions (0.75 3/4) percentages (75). Note: Every test involves Enterobacteriaceae family, internally performed using newly named order Enterobacterales, since Enterobacteriaceae family taxonomically reclassified Adeolu et al. 2016. , Enterobacteriaceae family Enterobacteriales () order. species old Enterobacteriaceae family still new Enterobacterales (without ) order, divided multiple families. way tests performed now mdro() function makes sure results 2016 2016 identical.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"supported-international-national-guidelines","dir":"Reference","previous_headings":"","what":"Supported International / National Guidelines","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Currently supported guidelines (case-insensitive): guideline = \"CMI2012\" (default) Magiorakos AP, Srinivasan et al. \"Multidrug-resistant, extensively drug-resistant pandrug-resistant bacteria: international expert proposal interim standard definitions acquired resistance.\" Clinical Microbiology Infection (2012) (doi:10.1111/j.1469-0691.2011.03570.x ) guideline = \"EUCAST3.3\" (simply guideline = \"EUCAST\") European international guideline - EUCAST Expert Rules Version 3.3 \"Intrinsic Resistance Unusual Phenotypes\" (link) guideline = \"EUCAST3.2\" European international guideline - EUCAST Expert Rules Version 3.2 \"Intrinsic Resistance Unusual Phenotypes\" (link) guideline = \"EUCAST3.1\" European international guideline - EUCAST Expert Rules Version 3.1 \"Intrinsic Resistance Exceptional Phenotypes Tables\" (link) guideline = \"TB\" international guideline multi-drug resistant tuberculosis - World Health Organization \"Companion handbook guidelines programmatic management drug-resistant tuberculosis\" (link) guideline = \"MRGN\" German national guideline - Mueller et al. (2015) Antimicrobial Resistance Infection Control 4:7; doi:10.1186/s13756-015-0047-6 guideline = \"BRMO\" Dutch national guideline - Samenwerkingverband Richtlijnen Infectiepreventie (SRI) (2024) \"Bijzonder Resistente Micro-Organismen (BRMO)\" (link) Also: guideline = \"BRMO 2017\" former Dutch national guideline - Werkgroep Infectiepreventie (WIP), RIVM, last revision 2017: \"Bijzonder Resistente Micro-Organismen (BRMO)\" Please suggest implement guidelines letting us know: https://github.com/msberends/AMR/issues/new.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"using-custom-guidelines","dir":"Reference","previous_headings":"","what":"Using Custom Guidelines","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Custom guidelines can set custom_mdro_guideline() function. great importance custom rules determine MDROs hospital, e.g., rules dependent ward, state contact isolation variables data. familiar case_when() function dplyr package, recognise input method set rules. Rules must set using R considers 'formula notation'. rule written tilde (~) consequence rule written tilde:   row/isolate matches first rule, value first ~ (case 'Elderly Type ') set MDRO value. Otherwise, second rule tried . number rules unlimited. can print rules set console overview. Colours help reading console supports colours.   outcome function can used guideline argument mdro() function:   Rules can also combined custom rules using c():   rules set (custom object case) exported shared file location using saveRDS() collaborate multiple users. custom rules set imported using readRDS().","code":"custom <- custom_mdro_guideline(CIP == \"R\" & age > 60 ~ \"Elderly Type A\",                                 ERY == \"R\" & age > 60 ~ \"Elderly Type B\") custom #> A set of custom MDRO rules: #>   1. CIP is \"R\" and age is higher than 60 -> Elderly Type A #>   2. ERY is \"R\" and age is higher than 60 -> Elderly Type B #>   3. Otherwise -> Negative #> #> Unmatched rows will return NA. x <- mdro(example_isolates,           guideline = custom) table(x) #>       Negative Elderly Type A Elderly Type B #>           1070            198            732 x <- mdro(example_isolates,           guideline = c(custom,                         custom_mdro_guideline(ERY == \"R\" & age > 50 ~ \"Elderly Type C\"))) table(x) #>       Negative Elderly Type A Elderly Type B Elderly Type C #>            961            198            732            109"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"antibiotics","dir":"Reference","previous_headings":"","what":"Antibiotics","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"define antibiotics column names, leave determine automatically guess_ab_col() input text (case-insensitive), use NULL skip column (e.g. TIC = NULL skip ticarcillin). Manually defined non-existing columns skipped warning. following antibiotics eligible functions eucast_rules() mdro(). shown format 'name (antimicrobial ID, ATC code)', sorted alphabetically: Amikacin (AMK, J01GB06), amoxicillin (AMX, J01CA04), amoxicillin/clavulanic acid (AMC, J01CR02), ampicillin (AMP, J01CA01), ampicillin/sulbactam (SAM, J01CR01), apramycin (APR, QA07AA92), arbekacin (ARB, J01GB12), aspoxicillin (APX, J01CA19), azidocillin (AZD, J01CE04), azithromycin (AZM, J01FA10), azlocillin (AZL, J01CA09), aztreonam (ATM, J01DF01), bacampicillin (BAM, J01CA06), bekanamycin (BEK, J01GB13), benzathine benzylpenicillin (BNB, J01CE08), benzathine phenoxymethylpenicillin (BNP, J01CE10), benzylpenicillin (PEN, J01CE01), besifloxacin (BES, S01AE08), biapenem (BIA, J01DH05), carbenicillin (CRB, J01CA03), carindacillin (CRN, J01CA05), cefacetrile (CAC, J01DB10), cefaclor (CEC, J01DC04), cefadroxil (CFR, J01DB05), cefalexin (LEX, J01DB01), cefaloridine (RID, J01DB02), cefalotin (CEP, J01DB03), cefamandole (MAN, J01DC03), cefapirin (HAP, J01DB08), cefatrizine (CTZ, J01DB07), cefazedone (CZD, J01DB06), cefazolin (CZO, J01DB04), cefcapene (CCP, J01DD17), cefdinir (CDR, J01DD15), cefditoren (DIT, J01DD16), cefepime (FEP, J01DE01), cefetamet (CAT, J01DD10), cefiderocol (FDC, J01DI04), cefixime (CFM, J01DD08), cefmenoxime (CMX, J01DD05), cefmetazole (CMZ, J01DC09), cefodizime (DIZ, J01DD09), cefonicid (CID, J01DC06), cefoperazone (CFP, J01DD12), cefoperazone/sulbactam (CSL, J01DD62), ceforanide (CND, J01DC11), cefotaxime (CTX, J01DD01), cefotaxime/clavulanic acid (CTC, J01DD51), cefotetan (CTT, J01DC05), cefotiam (CTF, J01DC07), cefovecin (FOV, QJ01DD91), cefoxitin (FOX, J01DC01), cefozopran (ZOP, J01DE03), cefpiramide (CPM, J01DD11), cefpirome (CPO, J01DE02), cefpodoxime (CPD, J01DD13), cefprozil (CPR, J01DC10), cefquinome (CEQ, QG51AA07), cefroxadine (CRD, J01DB11), cefsulodin (CFS, J01DD03), ceftaroline (CPT, J01DI02), ceftazidime (CAZ, J01DD02), ceftazidime/clavulanic acid (CCV, J01DD52), cefteram (CEM, J01DD18), ceftezole (CTL, J01DB12), ceftibuten (CTB, J01DD14), ceftiofur (TIO, QJ01DD90), ceftizoxime (CZX, J01DD07), ceftobiprole medocaril (CFM1, J01DI01), ceftolozane/tazobactam (CZT, J01DI54), ceftriaxone (CRO, J01DD04), ceftriaxone/beta-lactamase inhibitor (CEB, J01DD63), cefuroxime (CXM, J01DC02), cephradine (CED, J01DB09), chloramphenicol (CHL, J01BA01), ciprofloxacin (CIP, J01MA02), clarithromycin (CLR, J01FA09), clindamycin (CLI, J01FF01), clometocillin (CLM, J01CE07), cloxacillin (CLO, J01CF02), colistin (COL, J01XB01), cycloserine (CYC, J04AB01), dalbavancin (DAL, J01XA04), danofloxacin (DAN, QJ01MA92), daptomycin (DAP, J01XX09), delafloxacin (DFX, J01MA23), dibekacin (DKB, J01GB09), dicloxacillin (DIC, J01CF01), difloxacin (DIF, QJ01MA94), dirithromycin (DIR, J01FA13), doripenem (DOR, J01DH04), doxycycline (DOX, J01AA02), enoxacin (ENX, J01MA04), enrofloxacin (ENR, QJ01MA90), epicillin (EPC, J01CA07), ertapenem (ETP, J01DH03), erythromycin (ERY, J01FA01), fleroxacin (FLE, J01MA08), flucloxacillin (FLC, J01CF05), flurithromycin (FLR1, J01FA14), fosfomycin (FOS, J01XX01), framycetin (FRM, D09AA01), fusidic acid (FUS, J01XC01), gamithromycin (GAM, QJ01FA95), garenoxacin (GRN, J01MA19), gatifloxacin (GAT, J01MA16), gemifloxacin (GEM, J01MA15), gentamicin (GEN, J01GB03), grepafloxacin (GRX, J01MA11), hetacillin (HET, J01CA18), imipenem (IPM, J01DH51), imipenem/relebactam (IMR, J01DH56), isepamicin (ISE, J01GB11), josamycin (JOS, J01FA07), kanamycin (KAN, J01GB04), kitasamycin (KIT, QJ01FA93), lascufloxacin (LSC, J01MA25), latamoxef (LTM, J01DD06), levofloxacin (LVX, J01MA12), levonadifloxacin (LND, J01MA24), lincomycin (LIN, J01FF02), linezolid (LNZ, J01XX08), lomefloxacin (LOM, J01MA07), loracarbef (LOR, J01DC08), marbofloxacin (MAR, QJ01MA93), mecillinam (MEC, J01CA11), meropenem (MEM, J01DH02), meropenem/vaborbactam (MEV, J01DH52), metampicillin (MTM, J01CA14), meticillin (MET, J01CF03), mezlocillin (MEZ, J01CA10), micronomicin (MCR, S01AA22), midecamycin (MID, J01FA03), minocycline (MNO, J01AA08), miocamycin (MCM, J01FA11), moxifloxacin (MFX, J01MA14), nadifloxacin (NAD, D10AF05), nafcillin (NAF, J01CF06), nalidixic acid (NAL, J01MB02), neomycin (NEO, J01GB05), netilmicin (NET, J01GB07), nitrofurantoin (NIT, J01XE01), norfloxacin (, J01MA06), novobiocin (NOV, QJ01XX95), ofloxacin (OFX, J01MA01), oleandomycin (OLE, J01FA05), orbifloxacin (ORB, QJ01MA95), oritavancin (ORI, J01XA05), oxacillin (OXA, J01CF04), panipenem (PAN, J01DH55), pazufloxacin (PAZ, J01MA18), pefloxacin (PEF, J01MA03), penamecillin (PNM, J01CE06), pheneticillin (PHE, J01CE05), phenoxymethylpenicillin (PHN, J01CE02), piperacillin (PIP, J01CA12), piperacillin/tazobactam (TZP, J01CR05), pirlimycin (PRL, QJ51FF90), pivampicillin (PVM, J01CA02), pivmecillinam (PME, J01CA08), plazomicin (PLZ, J01GB14), polymyxin B (PLB, J01XB02), pradofloxacin (PRA, QJ01MA97), pristinamycin (PRI, J01FG01), procaine benzylpenicillin (PRB, J01CE09), propicillin (PRP, J01CE03), prulifloxacin (PRU, J01MA17), quinupristin/dalfopristin (QDA, QJ01FG02), ribostamycin (RST, J01GB10), rifampicin (RIF, J04AB02), rokitamycin (ROK, J01FA12), roxithromycin (RXT, J01FA06), rufloxacin (RFL, J01MA10), sarafloxacin (SAR, QJ01MA98), sisomicin (SIS, J01GB08), sitafloxacin (SIT, J01MA21), solithromycin (SOL, J01FA16), sparfloxacin (SPX, J01MA09), spiramycin (SPI, J01FA02), streptoduocin (STR, J01GA02), streptomycin (STR1, J01GA01), sulbactam (SUL, J01CG01), sulbenicillin (SBC, J01CA16), sulfadiazine (SDI, J01EC02), sulfadiazine/trimethoprim (SLT1, J01EE02), sulfadimethoxine (SUD, J01ED01), sulfadimidine (SDM, J01EB03), sulfadimidine/trimethoprim (SLT2, J01EE05), sulfafurazole (SLF, J01EB05), sulfaisodimidine (SLF1, J01EB01), sulfalene (SLF2, J01ED02), sulfamazone (SZO, J01ED09), sulfamerazine (SLF3, J01ED07), sulfamerazine/trimethoprim (SLT3, J01EE07), sulfamethizole (SLF4, J01EB02), sulfamethoxazole (SMX, J01EC01), sulfamethoxypyridazine (SLF5, J01ED05), sulfametomidine (SLF6, J01ED03), sulfametoxydiazine (SLF7, J01ED04), sulfametrole/trimethoprim (SLT4, J01EE03), sulfamoxole (SLF8, J01EC03), sulfamoxole/trimethoprim (SLT5, J01EE04), sulfanilamide (SLF9, J01EB06), sulfaperin (SLF10, J01ED06), sulfaphenazole (SLF11, J01ED08), sulfapyridine (SLF12, J01EB04), sulfathiazole (SUT, J01EB07), sulfathiourea (SLF13, J01EB08), sultamicillin (SLT6, J01CR04), talampicillin (TAL, J01CA15), tazobactam (TAZ, J01CG02), tebipenem (TBP, J01DH06), tedizolid (TZD, J01XX11), teicoplanin (TEC, J01XA02), telavancin (TLV, J01XA03), telithromycin (TLT, J01FA15), temafloxacin (TMX, J01MA05), temocillin (TEM, J01CA17), tetracycline (TCY, J01AA07), ticarcillin (TIC, J01CA13), ticarcillin/clavulanic acid (TCC, J01CR03), tigecycline (TGC, J01AA12), tilbroquinol (TBQ, P01AA05), tildipirosin (TIP, QJ01FA96), tilmicosin (TIL, QJ01FA91), tobramycin (TOB, J01GB01), tosufloxacin (TFX, J01MA22), trimethoprim (TMP, J01EA01), trimethoprim/sulfamethoxazole (SXT, J01EE01), troleandomycin (TRL, J01FA08), trovafloxacin (TVA, J01MA13), tulathromycin (TUL, QJ01FA94), tylosin (TYL, QJ01FA90), tylvalosin (TYL1, QJ01FA92), vancomycin (VAN, J01XA01)","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"","code":"out <- mdro(example_isolates, guideline = \"EUCAST\") str(out) #>  Ord.factor w/ 3 levels \"Negative\"<\"Positive, unconfirmed\"<..: 1 1 1 1 1 1 1 1 1 1 ... table(out) #> out #>              Negative Positive, unconfirmed              Positive  #>                  1994                     0                     6   out <- mdro(example_isolates,   guideline = custom_mdro_guideline(     AMX == \"R\" ~ \"Custom MDRO 1\",     VAN == \"R\" ~ \"Custom MDRO 2\"   ) ) table(out) #> out #>      Negative Custom MDRO 1 Custom MDRO 2  #>           870           804           326   # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     mdro() %>%     table()    # no need to define `x` when used inside dplyr verbs:   example_isolates %>%     mutate(MDRO = mdro()) %>%     pull(MDRO) %>%     table() } #> Warning: in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `MDRO = mdro()`. #> Caused by warning: #> ! in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) #> . #>                         Negative       Multi-drug-resistant (MDR)  #>                             1617                              128  #> Extensively drug-resistant (XDR)          Pandrug-resistant (PDR)  #>                                0                                0  # }"},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate the Mean AMR Distance — mean_amr_distance","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"Calculates normalised mean antimicrobial resistance multiple observations, help identify similar isolates without comparing antibiograms hand.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"","code":"mean_amr_distance(x, ...)  # S3 method for class 'sir' mean_amr_distance(x, ..., combine_SI = TRUE)  # S3 method for class 'data.frame' mean_amr_distance(x, ..., combine_SI = TRUE)  amr_distance_from_row(amr_distance, row)"},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"x vector class sir, mic disk, data.frame containing columns classes ... variables select (supports tidyselect language column1:column4 (.mic), can thus also antibiotic selectors combine_SI logical indicate whether values S, SDD, must merged one, input consists S+vs. R (susceptible vs. resistant) - default TRUE amr_distance outcome mean_amr_distance() row index, row number","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"mean AMR distance effectively Z-score; normalised numeric value compare AMR test results can help identify similar isolates, without comparing antibiograms hand. MIC values (see .mic()) transformed log2() first; distance thus calculated (log2(x) - mean(log2(x))) / sd(log2(x)). SIR values (see .sir()) transformed using \"S\" = 1, \"\" = 2, \"R\" = 3. combine_SI TRUE (default), \"\" considered 1. data sets, mean AMR distance calculated per column, mean per row returned, see Examples. Use amr_distance_from_row() subtract distances distance one row, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"interpretation","dir":"Reference","previous_headings":"","what":"Interpretation","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"Isolates distances less 0.01 difference considered similar. Differences lower 0.025 considered suspicious.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"","code":"sir <- random_sir(10) sir #> Class 'sir' #>  [1] I I S I I S S S R R mean_amr_distance(sir) #>  [1] -0.4743416 -0.4743416 -0.4743416 -0.4743416 -0.4743416 -0.4743416 #>  [7] -0.4743416 -0.4743416  1.8973666  1.8973666  mic <- random_mic(10) mic #> Class 'mic' #>  [1] 0.001 256   0.25  0.5   32    0.002 8     0.125 0.002 0.125 mean_amr_distance(mic) #>  [1] -1.2863106  1.6478483  0.0146555  0.1779748  1.1578905 -1.1229914 #>  [7]  0.8312519 -0.1486638 -1.1229914 -0.1486638 # equal to the Z-score of their log2: (log2(mic) - mean(log2(mic))) / sd(log2(mic)) #>  [1] -1.2863106  1.6478483  0.0146555  0.1779748  1.1578905 -1.1229914 #>  [7]  0.8312519 -0.1486638 -1.1229914 -0.1486638  disk <- random_disk(10) disk #> Class 'disk' #>  [1] 41 29 40 12 16  7 45 46 22  9 mean_amr_distance(disk) #>  [1]  0.9256143  0.1488750  0.8608860 -0.9515056 -0.6925925 -1.2751469 #>  [7]  1.1845274  1.2492556 -0.3042229 -1.1456904  y <- data.frame(   id = LETTERS[1:10],   amox = random_sir(10, ab = \"amox\", mo = \"Escherichia coli\"),   cipr = random_disk(10, ab = \"cipr\", mo = \"Escherichia coli\"),   gent = random_mic(10, ab = \"gent\", mo = \"Escherichia coli\"),   tobr = random_mic(10, ab = \"tobr\", mo = \"Escherichia coli\") ) y #>    id amox cipr gent tobr #> 1   A    R   29  <=1    4 #> 2   B    I   30    4  <=2 #> 3   C    I   26   16   16 #> 4   D    I   18    2    8 #> 5   E    S   29    4    4 #> 6   F    R   31   16  <=2 #> 7   G    S   31  <=1   16 #> 8   H    R   21   16   16 #> 9   I    I   31   16   16 #> 10  J    S   21  <=1    4 mean_amr_distance(y) #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>  [1]  0.04629994 -0.34117383  0.33391321 -0.69063550 -0.19222473  0.50618460 #>  [7]  0.02978803  0.59753857  0.58783703 -0.87752733 y$amr_distance <- mean_amr_distance(y, where(is.mic)) #> Error in .subset(x, j): invalid subscript type 'list' y[order(y$amr_distance), ] #> Error in order(y$amr_distance): argument 1 is not a vector  if (require(\"dplyr\")) {   y %>%     mutate(       amr_distance = mean_amr_distance(y),       check_id_C = amr_distance_from_row(amr_distance, id == \"C\")     ) %>%     arrange(check_id_C) } #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>    id amox cipr gent tobr amr_distance check_id_C #> 1   C    I   26   16   16   0.33391321  0.0000000 #> 2   F    R   31   16  <=2   0.50618460  0.1722714 #> 3   I    I   31   16   16   0.58783703  0.2539238 #> 4   H    R   21   16   16   0.59753857  0.2636254 #> 5   A    R   29  <=1    4   0.04629994  0.2876133 #> 6   G    S   31  <=1   16   0.02978803  0.3041252 #> 7   E    S   29    4    4  -0.19222473  0.5261379 #> 8   B    I   30    4  <=2  -0.34117383  0.6750870 #> 9   D    I   18    2    8  -0.69063550  1.0245487 #> 10  J    S   21  <=1    4  -0.87752733  1.2114405 if (require(\"dplyr\")) {   # support for groups   example_isolates %>%     filter(mo_genus() == \"Enterococcus\" & mo_species() != \"\") %>%     select(mo, TCY, carbapenems()) %>%     group_by(mo) %>%     mutate(dist = mean_amr_distance(.)) %>%     arrange(mo, dist) } #> ℹ Using column 'mo' as input for mo_genus() #> ℹ Using column 'mo' as input for mo_species() #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Calculating mean AMR distance based on columns \"TCY\", \"IPM\", and \"MEM\" #> # A tibble: 63 × 5 #> # Groups:   mo [4] #>    mo           TCY   IPM   MEM     dist #>    <mo>         <sir> <sir> <sir>  <dbl> #>  1 B_ENTRC_AVIM S     S     NA     0     #>  2 B_ENTRC_AVIM S     S     NA     0     #>  3 B_ENTRC_CSSL NA    S     NA    NA     #>  4 B_ENTRC_FACM S     S     NA    -2.66  #>  5 B_ENTRC_FACM S     R     R     -0.423 #>  6 B_ENTRC_FACM S     R     R     -0.423 #>  7 B_ENTRC_FACM NA    R     R      0.224 #>  8 B_ENTRC_FACM NA    R     R      0.224 #>  9 B_ENTRC_FACM NA    R     R      0.224 #> 10 B_ENTRC_FACM NA    R     R      0.224 #> # ℹ 53 more rows"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 4 971 Common Microorganism Codes — microorganisms.codes","title":"Data Set with 4 971 Common Microorganism Codes — microorganisms.codes","text":"data set containing commonly used codes microorganisms, laboratory systems WHONET. Define set_mo_source(). searched using .mo() consequently mo_* functions.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 4 971 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 4 971 Common Microorganism Codes — microorganisms.codes","text":"tibble 4 971 observations 2 variables: code Commonly used code microorganism. unique identifier. mo ID microorganism microorganisms data set","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 4 971 Common Microorganism Codes — microorganisms.codes","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 4 971 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes #> # A tibble: 4,971 × 2 #>    code  mo                #>    <chr> <mo>              #>  1 1011  B_GRAMP           #>  2 1012  B_GRAMP           #>  3 1013  B_GRAMN           #>  4 1014  B_GRAMN           #>  5 1015  F_YEAST           #>  6 103   B_ESCHR_COLI      #>  7 104   B_SLMNL_ENTR_ENTR #>  8 1100  B_STRPT           #>  9 1101  B_STRPT_VIRI      #> 10 1102  B_STRPT_HAEM      #> # ℹ 4,961 more rows  # 'ECO' or 'eco' is the WHONET code for E. coli: microorganisms.codes[microorganisms.codes$code == \"ECO\", ] #> # A tibble: 1 × 2 #>   code  mo           #>   <chr> <mo>         #> 1 ECO   B_ESCHR_COLI  # and therefore, 'eco' will be understood as E. coli in this package: mo_info(\"eco\") #> $mo #> [1] \"B_ESCHR_COLI\" #>  #> $rank #> [1] \"species\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Escherichia\" #>  #> $species #> [1] \"coli\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $oxygen_tolerance #> [1] \"facultative anaerobe\" #>  #> $url #> [1] \"https://lpsn.dsmz.de/species/escherichia-coli\" #>  #> $ref #> [1] \"Castellani et al., 1919\" #>  #> $snomed #>  [1] \"1095001000112106\" \"715307006\"        \"737528008\"        \"416989002\"        #>  [5] \"116397003\"        \"414097009\"        \"414098004\"        \"414099007\"        #>  [9] \"414100004\"        \"116395006\"        \"735270003\"        \"116396007\"        #> [13] \"83285000\"         \"116394005\"        \"112283007\"        \"710886005\"        #> [17] \"710887001\"        \"710888006\"        \"710889003\"        \"414132004\"        #> [21] \"721892009\"        \"416812001\"        \"416740004\"        \"417216001\"        #> [25] \"457541006\"        \"710253004\"        \"416530004\"        \"417189006\"        #> [29] \"409800005\"        \"713925008\"        \"444771000124108\"  \"838549008\"        #>  #> $lpsn #> [1] \"776057\" #>  #> $mycobank #> [1] NA #>  #> $gbif #> [1] \"11286021\" #>  #> $group_members #> character(0) #>   # works for all AMR functions: mo_is_intrinsic_resistant(\"eco\", ab = \"vancomycin\") #> [1] TRUE"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"data set containing species groups microbiological complexes, used clinical breakpoints table.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"","code":"microorganisms.groups"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"tibble 521 observations 4 variables: mo_group ID species group / microbiological complex mo ID microorganism belonging species group / microbiological complex mo_group_name Name species group / microbiological complex, retrieved mo_name() mo_name Name microorganism belonging species group / microbiological complex, retrieved mo_name()","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"","code":"microorganisms.groups #> # A tibble: 521 × 4 #>    mo_group       mo           mo_group_name                   mo_name           #>    <mo>           <mo>         <chr>                           <chr>             #>  1 B_ACNTB_BMNN-C B_ACNTB_BMNN Acinetobacter baumannii complex Acinetobacter ba… #>  2 B_ACNTB_BMNN-C B_ACNTB_CLCC Acinetobacter baumannii complex Acinetobacter ca… #>  3 B_ACNTB_BMNN-C B_ACNTB_LCTC Acinetobacter baumannii complex Acinetobacter di… #>  4 B_ACNTB_BMNN-C B_ACNTB_NSCM Acinetobacter baumannii complex Acinetobacter no… #>  5 B_ACNTB_BMNN-C B_ACNTB_PITT Acinetobacter baumannii complex Acinetobacter pi… #>  6 B_ACNTB_BMNN-C B_ACNTB_SFRT Acinetobacter baumannii complex Acinetobacter se… #>  7 B_BCTRD_FRGL-C B_BCTRD_FRGL Bacteroides fragilis complex    Bacteroides frag… #>  8 B_BCTRD_FRGL-C B_BCTRD_OVTS Bacteroides fragilis complex    Bacteroides ovat… #>  9 B_BCTRD_FRGL-C B_BCTRD_THTT Bacteroides fragilis complex    Bacteroides thet… #> 10 B_BCTRD_FRGL-C B_PHCCL_VLGT Bacteroides fragilis complex    Bacteroides vulg… #> # ℹ 511 more rows  # these are all species in the Bacteroides fragilis group, as per WHONET: microorganisms.groups[microorganisms.groups$mo_group == \"B_BCTRD_FRGL-C\", ] #> # A tibble: 5 × 4 #>   mo_group       mo           mo_group_name                mo_name               #>   <mo>           <mo>         <chr>                        <chr>                 #> 1 B_BCTRD_FRGL-C B_BCTRD_FRGL Bacteroides fragilis complex Bacteroides fragilis  #> 2 B_BCTRD_FRGL-C B_BCTRD_OVTS Bacteroides fragilis complex Bacteroides ovatus    #> 3 B_BCTRD_FRGL-C B_BCTRD_THTT Bacteroides fragilis complex Bacteroides thetaiot… #> 4 B_BCTRD_FRGL-C B_PHCCL_VLGT Bacteroides fragilis complex Bacteroides vulgatus  #> 5 B_BCTRD_FRGL-C B_PRBCT_DSTS Bacteroides fragilis complex Parabacteroides dist…"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 78 678 Taxonomic Records of Microorganisms — microorganisms","title":"Data Set with 78 678 Taxonomic Records of Microorganisms — microorganisms","text":"data set containing full microbial taxonomy (last updated: June 24th, 2024) six kingdoms. data set backbone AMR package. MO codes can looked using .mo() microorganism properties can looked using mo_* functions. data set carefully crafted, yet made 100% reproducible public authoritative taxonomic sources (using script), namely: List Prokaryotic names Standing Nomenclature (LPSN) bacteria, MycoBank fungi, Global Biodiversity Information Facility (GBIF) others taxons.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 78 678 Taxonomic Records of Microorganisms — microorganisms","text":"","code":"microorganisms"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 78 678 Taxonomic Records of Microorganisms — microorganisms","text":"tibble 78 678 observations 26 variables: mo ID microorganism used package. unique identifier. fullname Full name, like \"Escherichia coli\". taxonomic ranks genus, species subspecies, 'pasted' text genus, species, subspecies. taxonomic ranks higher genus, name taxon. unique identifier. status  Status taxon, either \"accepted\", \"validly published\", \"synonym\", \"unknown\" kingdom, phylum, class, order, family, genus, species, subspecies Taxonomic rank microorganism. Note fungi, phylum equal taxonomic division. Also, fungi, subkingdom subdivision left since occur bacterial taxonomy. rank Text taxonomic rank microorganism, \"species\" \"genus\" ref Author(s) year related scientific publication. contains first surname year latest authors, e.g. \"Wallis et al. 2006 emend. Smith Jones 2018\" becomes \"Smith et al., 2018\". field directly retrieved source specified column source. Moreover, accents removed comply CRAN allows ASCII characters. oxygen_tolerance  Oxygen tolerance, either \"aerobe\", \"anaerobe\", \"anaerobe/microaerophile\", \"facultative anaerobe\", \"likely facultative anaerobe\", \"microaerophile\". data retrieved BacDive (see Source). Items contain \"likely\" missing BacDive extrapolated species within genus guess oxygen tolerance. Currently 68.3% ~39 000 bacteria data set contain oxygen tolerance. source Either \"GBIF\", \"LPSN\", \"MycoBank\", \"manually added\" (see Source) lpsn Identifier ('Record number') List Prokaryotic names Standing Nomenclature (LPSN). first/highest LPSN identifier keep one identifier per row. example, Acetobacter ascendens LPSN Record number 7864 11011. first available microorganisms data set. unique identifier, though available ~33 000 records. lpsn_parent LPSN identifier parent taxon lpsn_renamed_to LPSN identifier currently valid taxon mycobank Identifier ('MycoBank #') MycoBank. unique identifier, though available ~18 000 records. mycobank_parent MycoBank identifier parent taxon mycobank_renamed_to MycoBank identifier currently valid taxon gbif Identifier ('taxonID') Global Biodiversity Information Facility (GBIF). unique identifier, though available ~49 000 records. gbif_parent GBIF identifier parent taxon gbif_renamed_to GBIF identifier currently valid taxon prevalence Prevalence microorganism based Bartlett et al. (2022, doi:10.1099/mic.0.001269 ), see mo_matching_score() full explanation snomed Systematized Nomenclature Medicine (SNOMED) code microorganism, version July 16th, 2024 (see Source). Use mo_snomed() retrieve quickly, see mo_property().","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Set with 78 678 Taxonomic Records of Microorganisms — microorganisms","text":"Taxonomic entries imported order importance: List Prokaryotic names Standing Nomenclature (LPSN): Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de June 24th, 2024. MycoBank: Vincent, R et al (2013). MycoBank gearing new horizons. IMA Fungus, 4(2), 371-9; doi:10.5598/imafungus.2013.04.02.16 . Accessed https://www.mycobank.org June 24th, 2024. Global Biodiversity Information Facility (GBIF): GBIF Secretariat (2023). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org June 24th, 2024. Furthermore, sources used additional details: BacDive: Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; doi:10.1093/nar/gkab961 . Accessed https://bacdive.dsmz.de July 16th, 2024. Systematized Nomenclature Medicine - Clinical Terms (SNOMED-CT): Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microorganism', OID 2.16.840.1.114222.4.11.1009 (v12). Accessed https://phinvads.cdc.gov July 16th, 2024. Grimont et al. (2007). Antigenic Formulae Salmonella Serovars, 9th Edition. Collaborating Centre Reference Research Salmonella (WHOCC-SALM). Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 78 678 Taxonomic Records of Microorganisms — microorganisms","text":"Please note entries based LPSN, MycoBank, GBIF (see ). Since sources incorporate entries based (recent) publications International Journal Systematic Evolutionary Microbiology (IJSEM), can happen year publication sometimes later one might expect. example, Staphylococcus pettenkoferi described first time Diagnostic Microbiology Infectious Disease 2002 (doi:10.1016/s0732-8893(02)00399-1 ), 2007 publication IJSEM followed (doi:10.1099/ijs.0.64381-0 ). Consequently, AMR package returns 2007 mo_year(\"S. pettenkoferi\").","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"included-taxa","dir":"Reference","previous_headings":"","what":"Included Taxa","title":"Data Set with 78 678 Taxonomic Records of Microorganisms — microorganisms","text":"Included taxonomic data LPSN, MycoBank, GBIF : ~39 000 (sub)species kingdoms Archaea Bacteria ~28 000 species kingdom Fungi. kingdom Fungi large taxon almost 300,000 different (sub)species, microbial (rather macroscopic, like mushrooms). , fungi fit scope package. relevant fungi covered (species Aspergillus, Candida, Cryptococcus, Histoplasma, Pneumocystis, Saccharomyces Trichophyton). ~8 100 (sub)species kingdom Protozoa ~1 600 (sub)species 39 relevant genera kingdom Animalia (Strongyloides Taenia) ~22 000 previously accepted names included (sub)species (taxonomically renamed) complete taxonomic tree included (sub)species: kingdom subspecies identifier parent taxons year first author related scientific publication","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"manual-additions","dir":"Reference","previous_headings":"","what":"Manual additions","title":"Data Set with 78 678 Taxonomic Records of Microorganisms — microorganisms","text":"convenience, entries added manually: ~1 500 entries Salmonella, city-like serovars groups H 36 species groups (beta-haemolytic Streptococcus groups K, coagulase-negative Staphylococcus (CoNS), Mycobacterium tuberculosis complex, etc.), group compositions stored microorganisms.groups data set 1 entry Blastocystis (B.  hominis), although officially exist (Noel et al. 2005, PMID 15634993) 1 entry Moraxella (M. catarrhalis), formally named Branhamella catarrhalis (Catlin, 1970) though change never accepted within field clinical microbiology 8 'undefined' entries (unknown, unknown Gram-negatives, unknown Gram-positives, unknown yeast, unknown fungus, unknown anaerobic Gram-pos/Gram-neg bacteria) syntax used transform original data cleansed R format, can found .","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Set with 78 678 Taxonomic Records of Microorganisms — microorganisms","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 78 678 Taxonomic Records of Microorganisms — microorganisms","text":"","code":"microorganisms #> # A tibble: 78,678 × 26 #>    mo          fullname   status kingdom phylum class order family genus species #>    <mo>        <chr>      <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> <chr>   #>  1 B_GRAMN     (unknown … unkno… Bacter… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  2 B_GRAMP     (unknown … unkno… Bacter… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  3 B_ANAER-NEG (unknown … unkno… Bacter… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  4 B_ANAER-POS (unknown … unkno… Bacter… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  5 B_ANAER     (unknown … unkno… Bacter… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  6 F_FUNGUS    (unknown … unkno… Fungi   (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  7   UNKNOWN   (unknown … unkno… (unkno… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  8 P_PROTOZOAN (unknown … unkno… Protoz… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  9 F_YEAST     (unknown … unkno… Fungi   (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #> 10 F_AABRN     Aabaarnia  unkno… Fungi   Ascom… Leca… Ostr… \"\"     Aaba… \"\"      #> # ℹ 78,668 more rows #> # ℹ 16 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, mycobank <chr>, mycobank_parent <chr>, #> #   mycobank_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list>"},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate the Matching Score for Microorganisms — mo_matching_score","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"algorithm used .mo() mo_* functions determine probable match taxonomic records based user input.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"","code":"mo_matching_score(x, n)"},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"x user input value(s) n full taxonomic name, exists microorganisms$fullname","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"note","dir":"Reference","previous_headings":"","what":"Note","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"algorithm originally developed 2018 subsequently described : Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 . Later, work Bartlett et al. bacterial pathogens infecting humans (2022, doi:10.1099/mic.0.001269 ) incorporated, optimalisations algorithm made.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"ambiguous user input .mo() mo_* functions, returned results chosen based matching score using mo_matching_score(). matching score \\(m\\), calculated :  : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 1.25, Protozoa = 1.5, Chromista = 1.75, Archaea = 2, others = 3. grouping human pathogenic prevalence \\(p\\) based recent work Bartlett et al. (2022, doi:10.1099/mic.0.001269 ) extensively studied medical-scientific literature categorise bacterial species groups: Established, taxonomic species infected least three persons three references. records prevalence = 1.15 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, Genera World Health Organization's () Priority Pathogen List prevalence = 1.0 microorganisms data set; genus present established list also prevalence = 1.15 microorganisms data set; genus present putative list prevalence = 1.25 microorganisms data set; species subspecies genus present two aforementioned groups, prevalence = 1.5 microorganisms data set; non-bacterial genus, species subspecies genus present following list, prevalence = 1.25 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Actinomucor, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Arthroderma, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Bipolaris, Blastobotrys, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chilomastix, Chrysonilia, Chrysosporium, Cladophialophora, Cladosporium, Clavispora, Coccidioides, Cokeromyces, Conidiobolus, Coniochaeta, Contracaecum, Cordylobia, Cryptococcus, Cryptosporidium, Cunninghamella, Curvularia, Cyberlindnera, Debaryozyma, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Epidermophyton, Exidia, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Geotrichum, Giardia, Graphium, Haloarcula, Halobacterium, Halococcus, Hansenula, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hortaea, Hymenolepis, Hypomyces, Hysterothylacium, Kloeckera, Kluyveromyces, Kodamaea, Lacazia, Leishmania, Lichtheimia, Lodderomyces, Lomentospora, Madurella, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Millerozyma, Mortierella, Mucor, Mycocentrospora, Nannizzia, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Paecilomyces, Paracoccidioides, Pediculus, Penicillium, Phaeoacremonium, Phaeomoniella, Phialophora, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoscopulariopsis, Pseudoterranova, Pulex, Purpureocillium, Quambalaria, Rhinocladiella, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Saksenaea, Saprochaete, Sarcoptes, Scedosporium, Schistosoma, Schizosaccharomyces, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Sporopachydermia, Sporothrix, Sporotrichum, Stachybotrys, Strongyloides, Syncephalastrum, Syngamus, Taenia, Talaromyces, Teleomorph, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Ulocladium, Ustilago, Verticillium, Wallemia, Wangiella, Wickerhamomyces, Wuchereria, Yarrowia, Zygosaccharomyces; records prevalence = 2.0 microorganisms data set. calculating matching score, characters \\(x\\) \\(n\\) ignored -Z, -z, 0-9, spaces parentheses. matches sorted descending matching score user input values, top match returned. lead effect e.g., \"E. coli\" return microbial ID Escherichia coli (\\(m = 0.688\\), highly prevalent microorganism found humans) Entamoeba coli (\\(m = 0.381\\), less prevalent microorganism humans), although latter alphabetically come first.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"","code":"mo_reset_session() #> ℹ Reset 17 previously matched input values.  as.mo(\"E. coli\") #> Class 'mo' #> [1] B_ESCHR_COLI mo_uncertainties() #> Matching scores are based on the resemblance between the input and the full #> taxonomic name, and the pathogenicity in humans. See ?mo_matching_score. #>  #> -------------------------------------------------------------------------------- #> \"E. coli\" -> Escherichia coli (B_ESCHR_COLI, 0.688) #> Also matched: Enterococcus crotali (0.650), Escherichia coli coli #>               (0.643), Escherichia coli expressing (0.611), Enterobacter cowanii #>               (0.600), Enterococcus columbae (0.595), Enterococcus camelliae (0.591), #>               Enterococcus casseliflavus (0.577), Enterobacter cloacae cloacae #>               (0.571), Enterobacter cloacae complex (0.571), and Enterobacter cloacae #>               dissolvens (0.565) #>  #> Only the first 10 other matches of each record are shown. Run #> print(mo_uncertainties(), n = ...) to view more entries, or save #> mo_uncertainties() to an object.  mo_matching_score(   x = \"E. coli\",   n = c(\"Escherichia coli\", \"Entamoeba coli\") ) #> [1] 0.6875000 0.3809524"},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of a Microorganism — mo_property","title":"Get Properties of a Microorganism — mo_property","text":"Use functions return specific property microorganism based latest accepted taxonomy. input values evaluated internally .mo(), makes possible use microbial abbreviations, codes names input. See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of a Microorganism — mo_property","text":"","code":"mo_name(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_fullname(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_shortname(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_subspecies(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_species(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_genus(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_family(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_order(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_class(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_phylum(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_kingdom(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_domain(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_type(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_status(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_pathogenicity(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_gramstain(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_gram_negative(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_gram_positive(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_yeast(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_intrinsic_resistant(   x,   ab,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_oxygen_tolerance(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_anaerobic(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_snomed(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_ref(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_authors(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_year(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_lpsn(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_mycobank(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_gbif(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_rank(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_taxonomy(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_synonyms(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_current(x, language = get_AMR_locale(), ...)  mo_group_members(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_info(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_url(   x,   open = FALSE,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_property(   x,   property = \"fullname\",   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )"},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of a Microorganism — mo_property","text":"x character (vector) can coerced valid microorganism code .mo(). Can left blank auto-guessing column containing microorganism codes used data set, see Examples. language language translate text like \"growth\", defaults system language (see get_AMR_locale()) keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). ... arguments passed .mo(), 'minimum_matching_score', 'ignore_pattern', 'remove_from_input' ab (vector ) text can coerced valid antibiotic drug code .ab() open browse URL using browseURL() property one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"mycobank\", \"mycobank_parent\", \"mycobank_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\", must \"shortname\"","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of a Microorganism — mo_property","text":"integer case mo_year() ordered factor case mo_pathogenicity() list case mo_taxonomy(), mo_synonyms(), mo_snomed(), mo_info() logical case mo_is_anaerobic(), mo_is_gram_negative(), mo_is_gram_positive(), mo_is_intrinsic_resistant(), mo_is_yeast() named character case mo_synonyms() mo_url() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of a Microorganism — mo_property","text":"functions , default, keep old taxonomic properties, synonyms automatically replaced current taxonomy. Take example Enterobacter aerogenes, initially named 1960 renamed Klebsiella aerogenes 2017: mo_genus(\"Enterobacter aerogenes\") return \"Klebsiella\" (note renaming) mo_genus(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Enterobacter\" (-per-session warning name outdated) mo_ref(\"Enterobacter aerogenes\") return \"Tindall et al., 2017\" (note renaming) mo_ref(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Hormaeche et al., 1960\" (-per-session warning name outdated) short name (mo_shortname()) returns first character genus full species, \"E. coli\", species subspecies. Exceptions abbreviations staphylococci (\"CoNS\", Coagulase-Negative Staphylococci) beta-haemolytic streptococci (\"GBS\", Group B Streptococci). Please bear mind e.g. E. coli mean Escherichia coli (kingdom Bacteria) well Entamoeba coli (kingdom Protozoa). Returning full name done using .mo() internally, giving priority bacteria human pathogens, .e. \"E. coli\" considered Escherichia coli. result, mo_fullname(mo_shortname(\"Entamoeba coli\")) returns \"Escherichia coli\". Since top-level taxonomy sometimes referred 'kingdom' sometimes 'domain', functions mo_kingdom() mo_domain() return exact results. Determination human pathogenicity (mo_pathogenicity()) strongly based Bartlett et al. (2022, doi:10.1099/mic.0.001269 ). function returns factor levels Pathogenic, Potentially pathogenic, Non-pathogenic, Unknown. Determination Gram stain (mo_gramstain()) based taxonomic kingdom phylum. Originally, Cavalier-Smith defined -called subkingdoms Negibacteria Posibacteria (2002, PMID 11837318), considered phyla Posibacteria: Actinobacteria, Chloroflexi, Firmicutes, Tenericutes. phyla later renamed Actinomycetota, Chloroflexota, Bacillota, Mycoplasmatota (2021, PMID 34694987). Bacteria phyla considered Gram-positive AMR package, except members class Negativicutes (within phylum Bacillota) Gram-negative. bacteria considered Gram-negative. Species outside kingdom Bacteria return value NA. Functions mo_is_gram_negative() mo_is_gram_positive() always return TRUE FALSE (NA input NA MO code UNKNOWN), thus always return FALSE species outside taxonomic kingdom Bacteria. Determination yeasts (mo_is_yeast()) based taxonomic kingdom class. Budding yeasts yeasts reproduce asexually process called budding, new cell develops small protrusion parent cell. Taxonomically, members phylum Ascomycota, class Saccharomycetes (also called Hemiascomycetes) Pichiomycetes. True yeasts quite specifically refers yeasts underlying order Saccharomycetales (Saccharomyces cerevisiae). Thus, microorganisms member taxonomic class Saccharomycetes Pichiomycetes, function return TRUE. returns FALSE otherwise (NA input NA MO code UNKNOWN). Determination intrinsic resistance (mo_is_intrinsic_resistant()) based intrinsic_resistant data set, based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021). mo_is_intrinsic_resistant() function can vectorised argument x (input microorganisms) ab (input antibiotics). Determination bacterial oxygen tolerance (mo_oxygen_tolerance()) based BacDive, see Source. function mo_is_anaerobic() returns TRUE oxygen tolerance \"anaerobe\", indicting obligate anaerobic species genus. always returns FALSE species outside taxonomic kingdom Bacteria. function mo_url() return direct URL online database entry, also shows scientific reference concerned species. MycoBank URL used fungi wherever available , LPSN URL bacteria wherever available, GBIF link otherwise. SNOMED codes (mo_snomed()) last updated July 16th, 2024. See Source microorganisms data set info. Old taxonomic names (-called 'synonyms') can retrieved mo_synonyms() (scientific reference name), current taxonomic name can retrieved mo_current(). functions return full names. output translated possible.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Get Properties of a Microorganism — mo_property","text":"function uses .mo() internally, uses advanced algorithm translate arbitrary user input valid taxonomy using -called matching score. can read public algorithm MO matching score page.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of a Microorganism — mo_property","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de June 24th, 2024. Vincent, R et al (2013). MycoBank gearing new horizons. IMA Fungus, 4(2), 371-9; doi:10.5598/imafungus.2013.04.02.16 . Accessed https://www.mycobank.org June 24th, 2024. GBIF Secretariat (2023). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org June 24th, 2024. Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; doi:10.1093/nar/gkab961 . Accessed https://bacdive.dsmz.de July 16th, 2024. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microorganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of a Microorganism — mo_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of a Microorganism — mo_property","text":"","code":"# taxonomic tree -----------------------------------------------------------  mo_kingdom(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_phylum(\"Klebsiella pneumoniae\") #> [1] \"Pseudomonadota\" mo_class(\"Klebsiella pneumoniae\") #> [1] \"Gammaproteobacteria\" mo_order(\"Klebsiella pneumoniae\") #> [1] \"Enterobacterales\" mo_family(\"Klebsiella pneumoniae\") #> [1] \"Enterobacteriaceae\" mo_genus(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella\" mo_species(\"Klebsiella pneumoniae\") #> [1] \"pneumoniae\" mo_subspecies(\"Klebsiella pneumoniae\") #> [1] \"\"   # full names and short names -----------------------------------------------  mo_name(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella pneumoniae\" mo_fullname(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella pneumoniae\" mo_shortname(\"Klebsiella pneumoniae\") #> [1] \"K. pneumoniae\"   # other properties ---------------------------------------------------------  mo_pathogenicity(\"Klebsiella pneumoniae\") #> [1] Pathogenic #> Levels: Pathogenic < Potentially pathogenic < Non-pathogenic < Unknown mo_gramstain(\"Klebsiella pneumoniae\") #> [1] \"Gram-negative\" mo_snomed(\"Klebsiella pneumoniae\") #> [[1]] #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\"        #>  mo_type(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_rank(\"Klebsiella pneumoniae\") #> [1] \"species\" mo_url(\"Klebsiella pneumoniae\") #>                                Klebsiella pneumoniae  #> \"https://lpsn.dsmz.de/species/klebsiella-pneumoniae\"  mo_is_yeast(c(\"Candida\", \"Trichophyton\", \"Klebsiella\")) #> [1]  TRUE FALSE FALSE  mo_group_members(c(\"Streptococcus group A\",                    \"Streptococcus group C\",                    \"Streptococcus group G\",                    \"Streptococcus group L\")) #> $`Streptococcus Group A` #> [1] \"Streptococcus pyogenes\" #>  #> $`Streptococcus Group C` #> [1] \"Streptococcus dysgalactiae\"              #> [2] \"Streptococcus dysgalactiae dysgalactiae\" #> [3] \"Streptococcus dysgalactiae equisimilis\"  #> [4] \"Streptococcus equi\"                      #> [5] \"Streptococcus equi equi\"                 #> [6] \"Streptococcus equi ruminatorum\"          #> [7] \"Streptococcus equi zooepidemicus\"        #>  #> $`Streptococcus Group G` #> [1] \"Streptococcus canis\"                     #> [2] \"Streptococcus dysgalactiae\"              #> [3] \"Streptococcus dysgalactiae dysgalactiae\" #> [4] \"Streptococcus dysgalactiae equisimilis\"  #>  #> $`Streptococcus Group L` #> [1] \"Streptococcus dysgalactiae\"              #> [2] \"Streptococcus dysgalactiae dysgalactiae\" #> [3] \"Streptococcus dysgalactiae equisimilis\"  #>    # scientific reference -----------------------------------------------------  mo_ref(\"Klebsiella aerogenes\") #> [1] \"Tindall et al., 2017\" mo_authors(\"Klebsiella aerogenes\") #> [1] \"Tindall et al.\" mo_year(\"Klebsiella aerogenes\") #> [1] 2017 mo_synonyms(\"Klebsiella aerogenes\") #>   Hormaeche et al., 1960     Bascomb et al., 1971  #> \"Enterobacter aerogenes\"     \"Klebsiella mobilis\"  mo_lpsn(\"Klebsiella aerogenes\") #> [1] \"777146\" mo_gbif(\"Klebsiella aerogenes\") #> [1] \"9281703\" mo_mycobank(\"Candida albicans\") #> [1] \"256187\" mo_mycobank(\"Candida krusei\") #> [1] \"337013\" mo_mycobank(\"Candida krusei\", keep_synonyms = TRUE) #> Warning: Function as.mo() returned one old taxonomic name. Use as.mo(..., #> keep_synonyms = FALSE) to clean the input to currently accepted taxonomic #> names, or set the R option AMR_keep_synonyms to FALSE. This warning #> will be shown once per session. #> [1] \"268707\"   # abbreviations known in the field -----------------------------------------  mo_genus(\"MRSA\") #> [1] \"Staphylococcus\" mo_species(\"MRSA\") #> [1] \"aureus\" mo_shortname(\"VISA\") #> [1] \"S. aureus\" mo_gramstain(\"VISA\") #> [1] \"Gram-positive\"  mo_genus(\"EHEC\") #> [1] \"Escherichia\" mo_species(\"EIEC\") #> [1] \"coli\" mo_name(\"UPEC\") #> [1] \"Escherichia coli\"   # known subspecies ---------------------------------------------------------  mo_fullname(\"K. pneu rh\") #> [1] \"Klebsiella pneumoniae rhinoscleromatis\" mo_shortname(\"K. pneu rh\") #> [1] \"K. pneumoniae\"  # \\donttest{ # Becker classification, see ?as.mo ----------------------------------------  mo_fullname(\"Staph epidermidis\") #> [1] \"Staphylococcus epidermidis\" mo_fullname(\"Staph epidermidis\", Becker = TRUE) #> [1] \"Coagulase-negative Staphylococcus (CoNS)\" mo_shortname(\"Staph epidermidis\") #> [1] \"S. epidermidis\" mo_shortname(\"Staph epidermidis\", Becker = TRUE) #> [1] \"CoNS\"   # Lancefield classification, see ?as.mo ------------------------------------  mo_fullname(\"Strep agalactiae\") #> [1] \"Streptococcus agalactiae\" mo_fullname(\"Strep agalactiae\", Lancefield = TRUE) #> [1] \"Streptococcus Group B\" mo_shortname(\"Strep agalactiae\") #> [1] \"S. agalactiae\" mo_shortname(\"Strep agalactiae\", Lancefield = TRUE) #> [1] \"GBS\"   # language support  --------------------------------------------------------  mo_gramstain(\"Klebsiella pneumoniae\", language = \"de\") # German #> [1] \"Gramnegativ\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"nl\") # Dutch #> [1] \"Gram-negatief\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"es\") # Spanish #> [1] \"Gram negativo\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"el\") # Greek #> [1] \"Αρνητικό κατά Gram\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"uk\") # Ukrainian #> [1] \"Грамнегативні\"  # mo_type is equal to mo_kingdom, but mo_kingdom will remain untranslated mo_kingdom(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_type(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_kingdom(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, no effect #> [1] \"Bacteria\" mo_type(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, translated #> [1] \"细菌\"  mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"de\") #> [1] \"Streptococcus Gruppe A\" mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"uk\") #> [1] \"Streptococcus Група A\"   # other --------------------------------------------------------------------  # gram stains and intrinsic resistance can be used as a filter in dplyr verbs if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_is_gram_positive()) %>%     count(mo_genus(), sort = TRUE) } #> ℹ Using column 'mo' as input for mo_is_gram_positive() #> ℹ Using column 'mo' as input for mo_genus() #> # A tibble: 18 × 2 #>    `mo_genus()`        n #>    <chr>           <int> #>  1 Staphylococcus    840 #>  2 Streptococcus     275 #>  3 Enterococcus       83 #>  4 Corynebacterium    17 #>  5 Micrococcus         6 #>  6 Gemella             3 #>  7 Aerococcus          2 #>  8 Cutibacterium       1 #>  9 Dermabacter         1 #> 10 Fusibacter          1 #> 11 Globicatella        1 #> 12 Granulicatella      1 #> 13 Lactobacillus       1 #> 14 Leuconostoc         1 #> 15 Listeria            1 #> 16 Paenibacillus       1 #> 17 Rothia              1 #> 18 Schaalia            1 if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_is_intrinsic_resistant(ab = \"vanco\")) %>%     count(mo_genus(), sort = TRUE) } #> ℹ Using column 'mo' as input for mo_is_intrinsic_resistant() #> ℹ Using column 'mo' as input for mo_genus() #> # A tibble: 20 × 2 #>    `mo_genus()`         n #>    <chr>            <int> #>  1 Escherichia        467 #>  2 Klebsiella          77 #>  3 Proteus             39 #>  4 Pseudomonas         30 #>  5 Serratia            25 #>  6 Enterobacter        23 #>  7 Citrobacter         11 #>  8 Haemophilus          8 #>  9 Acinetobacter        6 #> 10 Morganella           6 #> 11 Pantoea              4 #> 12 Salmonella           3 #> 13 Neisseria            2 #> 14 Stenotrophomonas     2 #> 15 Campylobacter        1 #> 16 Enterococcus         1 #> 17 Hafnia               1 #> 18 Lactobacillus        1 #> 19 Leuconostoc          1 #> 20 Pseudescherichia     1  # get a list with the complete taxonomy (from kingdom to subspecies) mo_taxonomy(\"Klebsiella pneumoniae\") #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Klebsiella\" #>  #> $species #> [1] \"pneumoniae\" #>  #> $subspecies #> [1] \"\" #>   # get a list with the taxonomy, the authors, Gram-stain, # SNOMED codes, and URL to the online database mo_info(\"Klebsiella pneumoniae\") #> $mo #> [1] \"B_KLBSL_PNMN\" #>  #> $rank #> [1] \"species\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Klebsiella\" #>  #> $species #> [1] \"pneumoniae\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $oxygen_tolerance #> [1] \"facultative anaerobe\" #>  #> $url #> [1] \"https://lpsn.dsmz.de/species/klebsiella-pneumoniae\" #>  #> $ref #> [1] \"Trevisan, 1887\" #>  #> $snomed #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\"        #>  #> $lpsn #> [1] \"777151\" #>  #> $mycobank #> [1] NA #>  #> $gbif #> [1] \"3221874\" #>  #> $group_members #> character(0) #>  # }"},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":null,"dir":"Reference","previous_headings":"","what":"User-Defined Reference Data Set for Microorganisms — mo_source","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"functions can used predefine reference used .mo() consequently mo_* functions (mo_genus() mo_gramstain()). fastest way organisation (analysis) specific codes picked translated package, since bother setting .","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"","code":"set_mo_source(   path,   destination = getOption(\"AMR_mo_source\", \"~/mo_source.rds\") )  get_mo_source(destination = getOption(\"AMR_mo_source\", \"~/mo_source.rds\"))"},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"path location reference file, can text file (comma-, tab- pipe-separated) Excel file (see Details). Can also \"\", NULL FALSE delete reference file. destination destination compressed data file - default user's home directory.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"reference file can text file separated commas (CSV) tabs pipes, Excel file (either 'xls' 'xlsx' format) R object file (extension '.rds'). use Excel file, need readxl package installed. set_mo_source() check file validity: must data.frame, must column named \"mo\" contains values microorganisms$mo microorganisms$fullname must reference column defined values. tests pass, set_mo_source() read file R ask export \"~/mo_source.rds\". CRAN policy disallows packages write file system, although 'exceptions may allowed interactive sessions package obtains confirmation user'. reason, function works interactive sessions user can specifically confirm allow file created. destination file can set destination argument defaults user's home directory. can also set package option AMR_mo_source, e.g. options(AMR_mo_source = \"/location/file.rds\"). created compressed data file \"mo_source.rds\" used default MO determination (function .mo() consequently mo_* functions like mo_genus() mo_gramstain()). location timestamp original file saved attribute compressed data file. function get_mo_source() return data set reading \"mo_source.rds\" readRDS(). original file changed (checking location timestamp original file), call set_mo_source() update data file automatically used interactive session. Reading Excel file (.xlsx) one row size 8-9 kB. compressed file created set_mo_source() size 0.1 kB can read get_mo_source() couple microseconds (millionths second).","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"how-to-setup","dir":"Reference","previous_headings":"","what":"How to Setup","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"Imagine data sheet Excel file. first column contains organisation specific codes, second column contains valid taxonomic names:   save \"home//ourcodes.xlsx\". Now set source:   now created file \"~/mo_source.rds\" contents Excel file. first column foreign values 'mo' column kept creating RDS file. now can use functions:   edit Excel file , say, adding row 4 like :   ...new usage MO function package update data file:   delete reference data file, just use \"\", NULL FALSE input set_mo_source():   original file (previous case Excel file) moved deleted, mo_source.rds file removed upon next use .mo() mo_* function.","code":"|         A          |            B          | --|--------------------|-----------------------| 1 | Organisation XYZ   | mo                    | 2 | lab_mo_ecoli       | Escherichia coli      | 3 | lab_mo_kpneumoniae | Klebsiella pneumoniae | 4 |                    |                       | set_mo_source(\"home/me/ourcodes.xlsx\") #> NOTE: Created mo_source file '/Users/me/mo_source.rds' (0.3 kB) from #>       '/Users/me/Documents/ourcodes.xlsx' (9 kB), columns #>       \"Organisation XYZ\" and \"mo\" as.mo(\"lab_mo_ecoli\") #> Class 'mo' #> [1] B_ESCHR_COLI  mo_genus(\"lab_mo_kpneumoniae\") #> [1] \"Klebsiella\"  # other input values still work too as.mo(c(\"Escherichia coli\", \"E. coli\", \"lab_mo_ecoli\")) #> NOTE: Translation to one microorganism was guessed with uncertainty. #>       Use mo_uncertainties() to review it. #> Class 'mo' #> [1] B_ESCHR_COLI B_ESCHR_COLI B_ESCHR_COLI |         A          |            B          | --|--------------------|-----------------------| 1 | Organisation XYZ   | mo                    | 2 | lab_mo_ecoli       | Escherichia coli      | 3 | lab_mo_kpneumoniae | Klebsiella pneumoniae | 4 | lab_Staph_aureus   | Staphylococcus aureus | 5 |                    |                       | as.mo(\"lab_mo_ecoli\") #> NOTE: Updated mo_source file '/Users/me/mo_source.rds' (0.3 kB) from #>       '/Users/me/Documents/ourcodes.xlsx' (9 kB), columns #>        \"Organisation XYZ\" and \"mo\" #> Class 'mo' #> [1] B_ESCHR_COLI  mo_genus(\"lab_Staph_aureus\") #> [1] \"Staphylococcus\" set_mo_source(NULL) #> Removed mo_source file '/Users/me/mo_source.rds'"},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":null,"dir":"Reference","previous_headings":"","what":"Principal Component Analysis (for AMR) — pca","title":"Principal Component Analysis (for AMR) — pca","text":"Performs principal component analysis (PCA) based data set automatic determination afterwards plotting groups labels, automatic filtering suitable (.e. non-empty numeric) variables.","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Principal Component Analysis (for AMR) — pca","text":"","code":"pca(   x,   ...,   retx = TRUE,   center = TRUE,   scale. = TRUE,   tol = NULL,   rank. = NULL )"},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Principal Component Analysis (for AMR) — pca","text":"x data.frame containing numeric columns ... columns x selected PCA, can unquoted since supports quasiquotation. retx logical value indicating whether rotated variables     returned. center logical value indicating whether variables     shifted zero centered. Alternately, vector     length equal number columns x can supplied.     value passed scale. scale. logical value indicating whether variables     scaled unit variance analysis takes     place.  default FALSE consistency S,     general scaling advisable.  Alternatively, vector length     equal number columns x can supplied.      value passed scale. tol value indicating magnitude components     omitted. (Components omitted     standard deviations less equal tol times     standard deviation first component.)  default null     setting, components omitted (unless rank. specified     less min(dim(x)).).  settings tol     tol = 0 tol = sqrt(.Machine$double.eps),     omit essentially constant components. rank. optionally, number specifying maximal rank, .e.,     maximal number principal components used.  Can set     alternative addition tol, useful notably     desired rank considerably smaller dimensions matrix.","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Principal Component Analysis (for AMR) — pca","text":"object classes pca prcomp","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Principal Component Analysis (for AMR) — pca","text":"pca() function takes data.frame input performs actual PCA R function prcomp(). result pca() function prcomp object, additional attribute non_numeric_cols vector column names columns contain numeric values. probably groups labels, used ggplot_pca().","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Principal Component Analysis (for AMR) — pca","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # \\donttest{ if (require(\"dplyr\")) {   # calculate the resistance per group first   resistance_data <- example_isolates %>%     group_by(       order = mo_order(mo), # group on anything, like order       genus = mo_genus(mo)     ) %>% #   and genus as we do here;     filter(n() >= 30) %>% # filter on only 30 results per group     summarise_if(is.sir, resistance) # then get resistance of all drugs    # now conduct PCA for certain antimicrobial drugs   pca_result <- resistance_data %>%     pca(AMC, CXM, CTX, CAZ, GEN, TOB, TMP, SXT)    pca_result   summary(pca_result)    # old base R plotting method:   biplot(pca_result)   # new ggplot2 plotting method using this package:   if (require(\"ggplot2\")) {     ggplot_pca(pca_result)      ggplot_pca(pca_result) +       scale_colour_viridis_d() +       labs(title = \"Title here\")   } } #> Warning: There were 73 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `PEN = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ In group 5: `order = \"Lactobacillales\"` and `genus = \"Enterococcus\"`. #> Caused by warning: #> ! Introducing NA: only 14 results available for PEN in group: order = #> \"Lactobacillales\", genus = \"Enterococcus\" (minimum = 30). #> ℹ Run `dplyr::last_dplyr_warnings()` to see the 72 remaining warnings. #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\"  #>    # }"},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":null,"dir":"Reference","previous_headings":"","what":"Plotting Helpers for AMR Data Analysis — plot","title":"Plotting Helpers for AMR Data Analysis — plot","text":"Functions plot classes sir, mic disk, support base R ggplot2. Especially scale_*_mic() functions relevant wrappers plot MIC values ggplot2. allows custom MIC ranges plot intermediate log2 levels missing MIC values.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Plotting Helpers for AMR Data Analysis — plot","text":"","code":"scale_x_mic(keep_operators = \"edges\", mic_range = NULL, drop = FALSE, ...)  scale_y_mic(keep_operators = \"edges\", mic_range = NULL, drop = FALSE, ...)  scale_colour_mic(keep_operators = \"edges\", mic_range = NULL, drop = FALSE, ...)  scale_fill_mic(keep_operators = \"edges\", mic_range = NULL, drop = FALSE, ...)  # S3 method for class 'mic' plot(   x,   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   main = deparse(substitute(x)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Minimum Inhibitory Concentration (mg/L)\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for class 'mic' autoplot(   object,   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   title = deparse(substitute(object)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Minimum Inhibitory Concentration (mg/L)\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for class 'mic' fortify(object, ...)  # S3 method for class 'disk' plot(   x,   main = deparse(substitute(x)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Disk diffusion diameter (mm)\", language = language),   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for class 'disk' autoplot(   object,   mo = NULL,   ab = NULL,   title = deparse(substitute(object)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Disk diffusion diameter (mm)\", language = language),   guideline = \"EUCAST\",   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for class 'disk' fortify(object, ...)  # S3 method for class 'sir' plot(   x,   ylab = translate_AMR(\"Percentage\", language = language),   xlab = translate_AMR(\"Antimicrobial Interpretation\", language = language),   main = deparse(substitute(x)),   language = get_AMR_locale(),   ... )  # S3 method for class 'sir' autoplot(   object,   title = deparse(substitute(object)),   xlab = translate_AMR(\"Antimicrobial Interpretation\", language = language),   ylab = translate_AMR(\"Frequency\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   ... )  # S3 method for class 'sir' fortify(object, ...)  facet_sir(facet = c(\"interpretation\", \"antibiotic\"), nrow = NULL)  scale_y_percent(   breaks = function(x) seq(0, max(x, na.rm = TRUE), 0.1),   limits = c(0, NA) )  scale_sir_colours(   ...,   aesthetics = \"fill\",   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\") )  theme_sir()  labels_sir_count(   position = NULL,   x = \"antibiotic\",   translate_ab = \"name\",   minimum = 30,   language = get_AMR_locale(),   combine_SI = TRUE,   datalabels.size = 3,   datalabels.colour = \"grey15\" )"},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Plotting Helpers for AMR Data Analysis — plot","text":"keep_operators character specifying handle operators (> <=) input. Accepts one three values: \"\" (TRUE) keep operators, \"none\" (FALSE) remove operators, \"edges\" keep operators ends range. mic_range manual range limit MIC values, e.g., mic_range = c(0.001, 32). Use NA set limit one side, e.g., mic_range = c(NA, 32). drop logical remove intermediate MIC values, defaults FALSE ... arguments passed methods x, object values created .mic(), .disk() .sir() (random_* variants, random_mic()) mo (vector ) text can coerced valid microorganism code .mo() ab (vector ) text can coerced valid antimicrobial drug code .ab() guideline interpretation guideline use - default latest included EUCAST guideline, see Details main, title title plot xlab, ylab axis title colours_SIR colours use filling bars, must vector three values (order S, R). default colours colour-blind friendly. language language used translate 'Susceptible', 'Increased exposure'/'Intermediate' 'Resistant' - default system language (see get_AMR_locale()) can overwritten setting package option AMR_locale, e.g. options(AMR_locale = \"de\"), see translate. Use language = NULL language = \"\" prevent translation. expand logical indicate whether range x axis expanded lowest highest value. MIC values, intermediate values factors 2 starting highest MIC value. disk diameters, whole diameter range filled. include_PKPD logical indicate PK/PD clinical breakpoints must applied last resort - default TRUE. Can also set package option AMR_include_PKPD. breakpoint_type type breakpoints use, either \"ECOFF\", \"animal\", \"human\". ECOFF stands Epidemiological Cut-values. default \"human\", can also set package option AMR_breakpoint_type. host set values veterinary species, automatically set \"animal\". facet variable split plots , either \"interpretation\" (default) \"antibiotic\" grouping variable nrow (using facet) number rows breaks numeric vector positions limits numeric vector length two providing limits scale, use NA refer existing minimum maximum aesthetics aesthetics apply colours - default \"fill\" can also (combination ) \"alpha\", \"colour\", \"fill\", \"linetype\", \"shape\" \"size\" position position adjustment bars, either \"fill\", \"stack\" \"dodge\" translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether values S, SDD, must merged one, output consists S+SDD+vs. R (susceptible vs. resistant) - default TRUE datalabels.size size datalabels datalabels.colour colour datalabels","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Plotting Helpers for AMR Data Analysis — plot","text":"autoplot() functions return ggplot model extendible ggplot2 function. fortify() functions return data.frame extension usage ggplot2::ggplot() function.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Plotting Helpers for AMR Data Analysis — plot","text":"interpretation \"\" named \"Increased exposure\" EUCAST guidelines since 2019, named \"Intermediate\" cases. interpreting MIC values well disk diffusion diameters, supported guidelines used input guideline argument : \"EUCAST 2024\", \"EUCAST 2023\", \"EUCAST 2022\", \"EUCAST 2021\", \"EUCAST 2020\", \"EUCAST 2019\", \"EUCAST 2018\", \"EUCAST 2017\", \"EUCAST 2016\", \"EUCAST 2015\", \"EUCAST 2014\", \"EUCAST 2013\", \"EUCAST 2012\", \"EUCAST 2011\", \"CLSI 2024\", \"CLSI 2023\", \"CLSI 2022\", \"CLSI 2021\", \"CLSI 2020\", \"CLSI 2019\", \"CLSI 2018\", \"CLSI 2017\", \"CLSI 2016\", \"CLSI 2015\", \"CLSI 2014\", \"CLSI 2013\", \"CLSI 2012\", \"CLSI 2011\". Simply using \"CLSI\" \"EUCAST\" input automatically select latest version guideline.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"additional-ggplot-functions","dir":"Reference","previous_headings":"","what":"Additional ggplot2 Functions","title":"Plotting Helpers for AMR Data Analysis — plot","text":"package contains several functions extend ggplot2 package, help visualising AMR data results. functions internally used ggplot_sir() . facet_sir() creates 2d plots (default based S//R) using ggplot2::facet_wrap(). scale_y_percent() transforms y axis 0 100% range using ggplot2::scale_y_continuous(). scale_sir_colours() sets colours bars (green S, yellow , red R). multilingual support. default colours colour-blind friendly, maintaining convention e.g. 'susceptible' green 'resistant' red. theme_sir() [ggplot2 theme][ggplot2::theme() minimal distraction. labels_sir_count() print datalabels bars percentage number isolates, using ggplot2::geom_text().","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Plotting Helpers for AMR Data Analysis — plot","text":"","code":"some_mic_values <- random_mic(size = 100) some_disk_values <- random_disk(size = 100, mo = \"Escherichia coli\", ab = \"cipro\") some_sir_values <- random_sir(50, prob_SIR = c(0.55, 0.05, 0.30))  plot(some_mic_values)  plot(some_disk_values)  plot(some_sir_values)   # when providing the microorganism and antibiotic, colours will show interpretations: plot(some_mic_values, mo = \"S. aureus\", ab = \"ampicillin\")  plot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\")  plot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\", language = \"nl\")    # Plotting using scale_x_mic() --------------------------------------------- # \\donttest{ if (require(\"ggplot2\")) {   mic_plot <- ggplot(data.frame(mics = as.mic(c(0.25, \"<=4\", 4, 8, 32, \">=32\")),                                 counts = c(1, 1, 2, 2, 3, 3)),                      aes(mics, counts)) +     geom_col()   mic_plot +     labs(title = \"without scale_x_mic()\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic() +     labs(title = \"with scale_x_mic()\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic(keep_operators = \"all\") +     labs(title = \"with scale_x_mic() keeping all operators\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic(mic_range = c(1, 16)) +     labs(title = \"with scale_x_mic() using a manual 'within' range\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic(mic_range = c(0.032, 256)) +     labs(title = \"with scale_x_mic() using a manual 'outside' range\") }   if (require(\"ggplot2\")) {   autoplot(some_mic_values) }  if (require(\"ggplot2\")) {   autoplot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\") }  if (require(\"ggplot2\")) {   autoplot(some_sir_values) }   # Plotting using scale_y_percent() ----------------------------------------- if (require(\"ggplot2\")) {   p <- ggplot(data.frame(mics = as.mic(c(0.25, \"<=4\", 4, 8, 32, \">=32\")),                                counts = c(1, 1, 2, 2, 3, 3)),                          aes(mics, counts / sum(counts))) +     geom_col()   print(p)      p2 <- p +     scale_y_percent() +     theme_sir()   print(p2)      p +     scale_y_percent(breaks = seq(from = 0, to = 1, by = 0.1),                     limits = c(0, 1)) +     theme_sir() }    # }"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate Antimicrobial Resistance — proportion","title":"Calculate Antimicrobial Resistance — proportion","text":"functions can used calculate (co-)resistance susceptibility microbial isolates (.e. percentage S, SI, , IR R). functions support quasiquotation pipes, can used summarise() dplyr package also support grouped variables, see Examples. resistance() used calculate resistance, susceptibility() used calculate susceptibility.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate Antimicrobial Resistance — proportion","text":"","code":"resistance(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  susceptibility(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  sir_confidence_interval(   ...,   ab_result = \"R\",   minimum = 30,   as_percent = FALSE,   only_all_tested = FALSE,   confidence_level = 0.95,   side = \"both\",   collapse = FALSE )  proportion_R(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_IR(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_I(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_SI(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_S(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   minimum = 30,   as_percent = FALSE,   combine_SI = TRUE,   confidence_level = 0.95 )  sir_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   minimum = 30,   as_percent = FALSE,   combine_SI = TRUE,   confidence_level = 0.95 )"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Calculate Antimicrobial Resistance — proportion","text":"M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate Antimicrobial Resistance — proportion","text":"... one vectors (columns) antibiotic interpretations. transformed internally .sir() needed. Use multiple columns calculate (lack ) co-resistance: probability one two drugs resistant susceptible result. See Examples. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. as_percent logical indicate whether output must returned hundred fold % sign (character). value 0.123456 returned \"12.3%\". only_all_tested (combination therapies, .e. using one variable ...): logical indicate isolates must tested antibiotics, see section Combination Therapy ab_result antibiotic results test , must one values \"S\", \"SDD\", \"\", \"R\" confidence_level confidence level returned confidence interval. calculation, number S SI isolates, R isolates compared total number available isolates R, S, using binom.test(), .e., Clopper-Pearson method. side side confidence interval return. default \"\" length 2 vector, can also (abbreviated ) \"min\"/\"left\"/\"lower\"/\"less\" \"max\"/\"right\"/\"higher\"/\"greater\". collapse logical indicate whether output values 'collapsed', .e. merged together one value, character value use collapsing data data.frame containing columns class sir (see .sir()) translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. combine_SI logical indicate whether values S, SDD, must merged one, output consists S+SDD+vs. R (susceptible vs. resistant) - default TRUE","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Calculate Antimicrobial Resistance — proportion","text":"double , as_percent = TRUE, character.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Calculate Antimicrobial Resistance — proportion","text":"Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine data set one four available algorithms. function resistance() equal function proportion_R(). function susceptibility() equal function proportion_SI(). Since AMR v3.0, proportion_SI() proportion_I() include dose-dependent susceptibility ('SDD'). Use sir_confidence_interval() calculate confidence interval, relies binom.test(), .e., Clopper-Pearson method. function returns vector length 2 default antimicrobial resistance. Change side argument \"left\"/\"min\" \"right\"/\"max\" return single value, change ab_result argument e.g. c(\"S\", \"\") test antimicrobial susceptibility, see Examples. functions meant count isolates, calculate proportion resistance/susceptibility. Use count_*() functions count isolates. function susceptibility() essentially equal count_susceptible()/count_all(). Low counts can influence outcome - proportion_*() functions may camouflage , since return proportion (albeit dependent minimum argument). function proportion_df() takes variable data sir class (created .sir()) calculates proportions S, , R. also supports grouped variables. function sir_df() works exactly like proportion_df(), adds number isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"combination-therapy","dir":"Reference","previous_headings":"","what":"Combination Therapy","title":"Calculate Antimicrobial Resistance — proportion","text":"using one variable ... (= combination therapy), use only_all_tested count isolates tested antibiotics/variables test . See example two antibiotics, Drug Drug B, susceptibility() works calculate %SI:   Please note , combination therapies, only_all_tested = TRUE applies :   , combination therapies, only_all_tested = FALSE applies :   Using only_all_tested impact using one antibiotic input.","code":"--------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - -------------------------------------------------------------------- count_S()    +   count_I()    +   count_R()    = count_all()   proportion_S() + proportion_I() + proportion_R() = 1 count_S()    +   count_I()    +   count_R()    >= count_all()   proportion_S() + proportion_I() + proportion_R() >= 1"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Calculate Antimicrobial Resistance — proportion","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate Antimicrobial Resistance — proportion","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …   # base R ------------------------------------------------------------ # determines %R resistance(example_isolates$AMX) #> [1] 0.5955556 sir_confidence_interval(example_isolates$AMX) #> [1] 0.5688204 0.6218738 sir_confidence_interval(example_isolates$AMX,   confidence_level = 0.975 ) #> [1] 0.5650148 0.6255670 sir_confidence_interval(example_isolates$AMX,   confidence_level = 0.975,   collapse = \", \" ) #> [1] \"0.565, 0.626\"  # determines %S+I: susceptibility(example_isolates$AMX) #> [1] 0.4044444 sir_confidence_interval(example_isolates$AMX,   ab_result = c(\"S\", \"I\") ) #> [1] 0.3781262 0.4311796  # be more specific proportion_S(example_isolates$AMX) #> [1] 0.4022222 proportion_SI(example_isolates$AMX) #> Note that proportion_SI() will also include dose-dependent #> susceptibility, 'SDD'. This note will be shown once for this session. #> [1] 0.4044444 proportion_I(example_isolates$AMX) #> Note that proportion_I() will also include dose-dependent susceptibility, #> 'SDD'. This note will be shown once for this session. #> [1] 0.002222222 proportion_IR(example_isolates$AMX) #> Note that proportion_IR() will also include dose-dependent #> susceptibility, 'SDD'. This note will be shown once for this session. #> [1] 0.5977778 proportion_R(example_isolates$AMX) #> [1] 0.5955556  # dplyr ------------------------------------------------------------- # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       r = resistance(CIP),       n = n_sir(CIP)     ) # n_sir works like n_distinct in dplyr, see ?n_sir } #> # A tibble: 3 × 3 #>   ward           r     n #>   <chr>      <dbl> <int> #> 1 Clinical   0.147   869 #> 2 ICU        0.190   447 #> 3 Outpatient 0.161    93 if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       cipro_R = resistance(CIP),       ci_min = sir_confidence_interval(CIP, side = \"min\"),       ci_max = sir_confidence_interval(CIP, side = \"max\"),     ) } #> # A tibble: 3 × 4 #>   ward       cipro_R ci_min ci_max #>   <chr>        <dbl>  <dbl>  <dbl> #> 1 Clinical     0.147 0.124   0.173 #> 2 ICU          0.190 0.155   0.230 #> 3 Outpatient   0.161 0.0932  0.252 if (require(\"dplyr\")) {   # scoped dplyr verbs with antibiotic selectors   # (you could also use across() of course)   example_isolates %>%     group_by(ward) %>%     summarise_at(       c(aminoglycosides(), carbapenems()),       resistance     ) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> Warning: There was 1 warning in `summarise()`. #> ℹ In argument: `KAN = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ In group 3: `ward = \"Outpatient\"`. #> Caused by warning: #> ! Introducing NA: only 23 results available for KAN in group: ward = #> \"Outpatient\" (minimum = 30). #> # A tibble: 3 × 7 #>   ward         GEN   TOB   AMK   KAN    IPM    MEM #>   <chr>      <dbl> <dbl> <dbl> <dbl>  <dbl>  <dbl> #> 1 Clinical   0.229 0.315 0.626     1 0.0498 0.0458 #> 2 ICU        0.290 0.400 0.662     1 0.0862 0.0894 #> 3 Outpatient 0.2   0.368 0.605    NA 0.0541 0.0541 if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       R = resistance(CIP, as_percent = TRUE),       SI = susceptibility(CIP, as_percent = TRUE),       n1 = count_all(CIP), # the actual total; sum of all three       n2 = n_sir(CIP), # same - analogous to n_distinct       total = n()     ) # NOT the number of tested isolates!    # Calculate co-resistance between amoxicillin/clav acid and gentamicin,   # so we can see that combination therapy does a lot more than mono therapy:   example_isolates %>% susceptibility(AMC) # %SI = 76.3%   example_isolates %>% count_all(AMC) #   n = 1879    example_isolates %>% susceptibility(GEN) # %SI = 75.4%   example_isolates %>% count_all(GEN) #   n = 1855    example_isolates %>% susceptibility(AMC, GEN) # %SI = 94.1%   example_isolates %>% count_all(AMC, GEN) #   n = 1939     # See Details on how `only_all_tested` works. Example:   example_isolates %>%     summarise(       numerator = count_susceptible(AMC, GEN),       denominator = count_all(AMC, GEN),       proportion = susceptibility(AMC, GEN)     )    example_isolates %>%     summarise(       numerator = count_susceptible(AMC, GEN, only_all_tested = TRUE),       denominator = count_all(AMC, GEN, only_all_tested = TRUE),       proportion = susceptibility(AMC, GEN, only_all_tested = TRUE)     )     example_isolates %>%     group_by(ward) %>%     summarise(       cipro_p = susceptibility(CIP, as_percent = TRUE),       cipro_n = count_all(CIP),       genta_p = susceptibility(GEN, as_percent = TRUE),       genta_n = count_all(GEN),       combination_p = susceptibility(CIP, GEN, as_percent = TRUE),       combination_n = count_all(CIP, GEN)     )    # Get proportions S/I/R immediately of all sir columns   example_isolates %>%     select(AMX, CIP) %>%     proportion_df(translate = FALSE)    # It also supports grouping variables   # (use sir_df to also include the count)   example_isolates %>%     select(ward, AMX, CIP) %>%     group_by(ward) %>%     sir_df(translate = FALSE) } #> # A tibble: 12 × 7 #>    ward       antibiotic interpretation value ci_min ci_max isolates #>  * <chr>      <chr>      <ord>          <dbl>  <dbl>  <dbl>    <int> #>  1 Clinical   AMX        SI             0.423 0.389   0.457      357 #>  2 Clinical   AMX        R              0.577 0.543   0.611      487 #>  3 Clinical   CIP        SI             0.853 0.827   0.876      741 #>  4 Clinical   CIP        R              0.147 0.124   0.173      128 #>  5 ICU        AMX        SI             0.369 0.323   0.417      158 #>  6 ICU        AMX        R              0.631 0.583   0.677      270 #>  7 ICU        CIP        SI             0.810 0.770   0.845      362 #>  8 ICU        CIP        R              0.190 0.155   0.230       85 #>  9 Outpatient AMX        SI             0.397 0.288   0.515       31 #> 10 Outpatient AMX        R              0.603 0.485   0.712       47 #> 11 Outpatient CIP        SI             0.839 0.748   0.907       78 #> 12 Outpatient CIP        R              0.161 0.0932  0.252       15 # }"},{"path":"https://msberends.github.io/AMR/reference/random.html","id":null,"dir":"Reference","previous_headings":"","what":"Random MIC Values/Disk Zones/SIR Generation — random","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"functions can used generating random MIC values disk diffusion diameters, AMR data analysis practice. providing microorganism antimicrobial drug, generated results reflect reality much possible.","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"","code":"random_mic(size = NULL, mo = NULL, ab = NULL, ...)  random_disk(size = NULL, mo = NULL, ab = NULL, ...)  random_sir(size = NULL, prob_SIR = c(0.33, 0.33, 0.33), ...)"},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"size desired size returned vector. used data.frame call dplyr verb, get current (group) size left blank. mo character can coerced valid microorganism code .mo() ab character can coerced valid antimicrobial drug code .ab() ... ignored, place allow future extensions prob_SIR vector length 3: probabilities \"S\" (1st value), \"\" (2nd value) \"R\" (3rd value)","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"class mic random_mic() (see .mic()) class disk random_disk() (see .disk())","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"base R function sample() used generating values. Generated values based EUCAST 2024 guideline implemented clinical_breakpoints data set. create specific generated values per bug drug, set mo /ab argument.","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"","code":"random_mic(25) #> Class 'mic' #>  [1] 0.025   8       0.002   0.005   0.25    >=256   0.01    0.002   64      #> [10] 0.5     4       32      0.002   16      >=256   0.01    0.002   0.0625  #> [19] 0.002   64      8       8       2       <=0.001 0.125   random_disk(25) #> Class 'disk' #>  [1] 43  7 48 40 19 50 50 20 44 14 16 33 31 17 30  6 38  7  6 12 16 11 43 43 45 random_sir(25) #> Class 'sir' #>  [1] R S R R S S R I S R S S R I I R S I R R R R I R S  # \\donttest{ # make the random generation more realistic by setting a bug and/or drug: random_mic(25, \"Klebsiella pneumoniae\") # range 0.0625-64 #> Class 'mic' #>  [1] 0.025  0.25   16     8      0.001  4      16     0.025  0.25   8      #> [11] 0.5    0.005  0.0625 2      0.125  0.002  1      16     16     0.005  #> [21] 0.001  >=32   0.002  0.0625 0.125  random_mic(25, \"Klebsiella pneumoniae\", \"meropenem\") # range 0.0625-16 #> Class 'mic' #>  [1] 4    8    2    8    8    16   8    8    1    0.5  1    >=32 2    4    1    #> [16] >=32 4    2    4    4    2    16   4    16   2    random_mic(25, \"Streptococcus pneumoniae\", \"meropenem\") # range 0.0625-4 #> Class 'mic' #>  [1] <=0.0625 <=0.0625 <=0.0625 0.5      0.125    0.25     0.5      2        #>  [9] 0.125    0.125    0.5      4        <=0.0625 2        0.25     4        #> [17] 2        0.25     1        2        2        <=0.0625 2        <=0.0625 #> [25] 0.5       random_disk(25, \"Klebsiella pneumoniae\") # range 8-50 #> Class 'disk' #>  [1] 30 43 22 49 40  8 14 36 49 23 12  9 17 25 43 46 30 49 34 22 50 24 39 38 46 random_disk(25, \"Klebsiella pneumoniae\", \"ampicillin\") # range 11-17 #> Class 'disk' #>  [1] 17 15 16 14 17 14 12 13 13 17 17 12 14 16 15 14 16 14 16 13 11 16 17 13 13 random_disk(25, \"Streptococcus pneumoniae\", \"ampicillin\") # range 12-27 #> Class 'disk' #>  [1] 25 22 21 23 19 20 21 25 20 19 21 19 27 22 26 25 27 21 17 26 18 23 23 26 27 # }"},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":null,"dir":"Reference","previous_headings":"","what":"Predict Antimicrobial Resistance — resistance_predict","title":"Predict Antimicrobial Resistance — resistance_predict","text":"Create prediction model predict antimicrobial resistance next years statistical solid ground. Standard errors (SE) returned columns se_min se_max. See Examples real live example.","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Predict Antimicrobial Resistance — resistance_predict","text":"","code":"resistance_predict(   x,   col_ab,   col_date = NULL,   year_min = NULL,   year_max = NULL,   year_every = 1,   minimum = 30,   model = NULL,   I_as_S = TRUE,   preserve_measurements = TRUE,   info = interactive(),   ... )  sir_predict(   x,   col_ab,   col_date = NULL,   year_min = NULL,   year_max = NULL,   year_every = 1,   minimum = 30,   model = NULL,   I_as_S = TRUE,   preserve_measurements = TRUE,   info = interactive(),   ... )  # S3 method for class 'resistance_predict' plot(x, main = paste(\"Resistance Prediction of\", x_name), ...)  ggplot_sir_predict(   x,   main = paste(\"Resistance Prediction of\", x_name),   ribbon = TRUE,   ... )  # S3 method for class 'resistance_predict' autoplot(   object,   main = paste(\"Resistance Prediction of\", x_name),   ribbon = TRUE,   ... )"},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Predict Antimicrobial Resistance — resistance_predict","text":"x data.frame containing isolates. Can left blank automatic determination, see Examples. col_ab column name x containing antimicrobial interpretations (\"R\", \"\" \"S\") col_date column name date, used calculate years column consist years already - default first column date class year_min lowest year use prediction model, dafaults lowest year col_date year_max highest year use prediction model - default 10 years today year_every unit sequence lowest year found data year_max minimum minimal amount available isolates per year include. Years containing less observations estimated model. model statistical model choice. generalised linear regression model binomial distribution (.e. using glm(..., family = binomial), assuming period zero resistance followed period increasing resistance leading slowly resistance. See Details valid options. I_as_S logical indicate whether values \"\" treated \"S\" (otherwise treated \"R\"). default, TRUE, follows redefinition EUCAST interpretation (increased exposure) 2019, see section Interpretation S, R . preserve_measurements logical indicate whether predictions years actually available data overwritten original data. standard errors years NA. info logical indicate whether textual analysis printed name summary() statistical model. ... arguments passed functions main title plot ribbon logical indicate whether ribbon shown (default) error bars object model data plotted","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Predict Antimicrobial Resistance — resistance_predict","text":"data.frame extra class resistance_predict columns: year value, estimated preserve_measurements = FALSE, combination observed estimated otherwise se_min, lower bound standard error minimum 0 (standard error never go 0%) se_max upper bound standard error maximum 1 (standard error never go 100%) observations, total number available observations year, .e. \\(S + + R\\) observed, original observed resistant percentages estimated, estimated resistant percentages, calculated model Furthermore, model available attribute: attributes(x)$model, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Predict Antimicrobial Resistance — resistance_predict","text":"Valid options statistical model (argument model) : \"binomial\" \"binom\" \"logit\": generalised linear regression model binomial distribution \"loglin\" \"poisson\": generalised log-linear regression model poisson distribution \"lin\" \"linear\": linear regression model","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Predict Antimicrobial Resistance — resistance_predict","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Predict Antimicrobial Resistance — resistance_predict","text":"","code":"x <- resistance_predict(example_isolates,   col_ab = \"AMX\",   year_min = 2010,   model = \"binomial\" ) plot(x)  # \\donttest{ if (require(\"ggplot2\")) {   ggplot_sir_predict(x) }   # using dplyr: if (require(\"dplyr\")) {   x <- example_isolates %>%     filter_first_isolate() %>%     filter(mo_genus(mo) == \"Staphylococcus\") %>%     resistance_predict(\"PEN\", model = \"binomial\")   print(plot(x))    # get the model from the object   mymodel <- attributes(x)$model   summary(mymodel) }  #> NULL #>  #> Call: #> glm(formula = df_matrix ~ year, family = binomial) #>  #> Coefficients: #>             Estimate Std. Error z value Pr(>|z|) #> (Intercept) 35.76101   72.29172   0.495    0.621 #> year        -0.01720    0.03603  -0.477    0.633 #>  #> (Dispersion parameter for binomial family taken to be 1) #>  #>     Null deviance: 5.3681  on 11  degrees of freedom #> Residual deviance: 5.1408  on 10  degrees of freedom #> AIC: 50.271 #>  #> Number of Fisher Scoring iterations: 4 #>   # create nice plots with ggplot2 yourself if (require(\"dplyr\") && require(\"ggplot2\")) {   data <- example_isolates %>%     filter(mo == as.mo(\"E. coli\")) %>%     resistance_predict(       col_ab = \"AMX\",       col_date = \"date\",       model = \"binomial\",       info = FALSE,       minimum = 15     )   head(data)   autoplot(data) }  # }"},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":null,"dir":"Reference","previous_headings":"","what":"Skewness of the Sample — skewness","title":"Skewness of the Sample — skewness","text":"Skewness measure asymmetry probability distribution real-valued random variable mean. negative ('left-skewed'): left tail longer; mass distribution concentrated right histogram. positive ('right-skewed'): right tail longer; mass distribution concentrated left histogram. normal distribution skewness 0.","code":""},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Skewness of the Sample — skewness","text":"","code":"skewness(x, na.rm = FALSE)  # Default S3 method skewness(x, na.rm = FALSE)  # S3 method for class 'matrix' skewness(x, na.rm = FALSE)  # S3 method for class 'data.frame' skewness(x, na.rm = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Skewness of the Sample — skewness","text":"x vector values, matrix data.frame na.rm logical value indicating whether NA values stripped computation proceeds","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Skewness of the Sample — skewness","text":"","code":"skewness(runif(1000)) #> [1] -0.07394966"},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":null,"dir":"Reference","previous_headings":"","what":"Translate Strings from the AMR Package — translate","title":"Translate Strings from the AMR Package — translate","text":"language-dependent output AMR functions, mo_name(), mo_gramstain(), mo_type() ab_name().","code":""},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Translate Strings from the AMR Package — translate","text":"","code":"get_AMR_locale()  set_AMR_locale(language)  reset_AMR_locale()  translate_AMR(x, language = get_AMR_locale())"},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Translate Strings from the AMR Package — translate","text":"language language choose. Use one supported language names ISO-639-1 codes: English (en), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Italian (), Japanese (ja), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swedish (sv), Turkish (tr), Ukrainian (uk). x text translate","code":""},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Translate Strings from the AMR Package — translate","text":"currently 20 supported languages English (en), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Italian (), Japanese (ja), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swedish (sv), Turkish (tr), Ukrainian (uk). languages translations available antimicrobial drugs colloquial microorganism names. permanently silence -per-session language note non-English operating system, can set package option AMR_locale .Rprofile file like :   save file. Please read adding updating language Wiki.","code":"# Open .Rprofile file utils::file.edit(\"~/.Rprofile\")  # Then add e.g. Italian support to that file using: options(AMR_locale = \"Italian\")"},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"changing-the-default-language","dir":"Reference","previous_headings":"","what":"Changing the Default Language","title":"Translate Strings from the AMR Package — translate","text":"system language used default (returned Sys.getenv(\"LANG\") , LANG set, Sys.getlocale(\"LC_COLLATE\")), language supported. language used can overwritten two ways checked order: Setting package option AMR_locale, either using e.g. set_AMR_locale(\"German\") running e.g. options(AMR_locale = \"German\"). Note setting R option works session. Save command options(AMR_locale = \"(language)\") .Rprofile file apply every session. Run utils::file.edit(\"~/.Rprofile\") edit .Rprofile file. Setting system variable LANGUAGE LANG, e.g. adding LANGUAGE=\"de_DE.utf8\" .Renviron file home directory. Thus, package option AMR_locale set, system variables LANGUAGE LANG ignored.","code":""},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Translate Strings from the AMR Package — translate","text":"","code":"# Current settings (based on system language) ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacin\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Coagulase-negative Staphylococcus (CoNS)\"  # setting another language set_AMR_locale(\"Dutch\") #> ℹ Using Dutch (Nederlands) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacine\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Coagulase-negatieve Staphylococcus (CNS)\"  # setting yet another language set_AMR_locale(\"German\") #> ℹ Using German (Deutsch) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacin\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Koagulase-negative Staphylococcus (KNS)\"  # set_AMR_locale() understands endonyms, English exonyms, and ISO-639-1: set_AMR_locale(\"Deutsch\") #> ℹ Using German (Deutsch) for the AMR package for this session. set_AMR_locale(\"German\") #> ℹ Using German (Deutsch) for the AMR package for this session. set_AMR_locale(\"de\") #> ℹ Using German (Deutsch) for the AMR package for this session. ab_name(\"amox/clav\") #> ℹ More than one result was found for item 1: amoxicillin and clavulansäure #> [1] \"Amoxicillin/Clavulansäure\"  # reset to system default reset_AMR_locale() #> ℹ Using the English language (English) for the AMR package for this #>   session. ab_name(\"amox/clav\") #> [1] \"Amoxicillin/clavulanic acid\""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"amr-2119122","dir":"Changelog","previous_headings":"","what":"AMR 2.1.1.9122","title":"AMR 2.1.1.9122","text":"(beta version eventually become v3.0. ’re happy reach new major milestone soon, new One Health support! Install beta using instructions .)","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"a-new-milestone-amr-v30-with-one-health-support--human--veterinary--environmental-2-1-1-9122","dir":"Changelog","previous_headings":"","what":"A New Milestone: AMR v3.0 with One Health Support (= Human + Veterinary + Environmental)","title":"AMR 2.1.1.9122","text":"package now supports tools AMR data analysis clinical settings, also veterinary environmental microbiology. made possible collaboration University Prince Edward Island’s Atlantic Veterinary College, Canada. celebrate great improvement package, also updated package logo reflect change.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"breaking-2-1-1-9122","dir":"Changelog","previous_headings":"","what":"Breaking","title":"AMR 2.1.1.9122","text":"Removed functions references used deprecated rsi class, replaced sir equivalents year ago","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"new-2-1-1-9122","dir":"Changelog","previous_headings":"","what":"New","title":"AMR 2.1.1.9122","text":"Function .sir() now extensive support veterinary breakpoints CLSI. Use breakpoint_type = \"animal\" set host argument variable contains animal species names. CLSI VET09 guideline implemented address cases veterinary breakpoints missing (applies guideline set CLSI) clinical_breakpoints data set contains breakpoints, can downloaded download page. antibiotics data set contains veterinary antibiotics, pradofloxacin enrofloxacin. WHOCC codes veterinary use added well. ab_atc() now supports ATC codes veterinary antibiotics (start “Q”) ab_url() now supports retrieving WHOCC url ATCvet pages MycoBank now integrated primary taxonomic source fungi. microorganisms data set enriched new columns (mycobank, mycobank_parent, mycobank_renamed_to) provide detailed information fungal species. remarkable addition 20,000 new fungal records New function mo_mycobank() retrieve MycoBank record number, analogous existing functions mo_lpsn() mo_gbif(). .mo() function mo_*() functions now include only_fungi argument, allowing users restrict results solely fungal species. ensures fungi prioritised bacteria microorganism identification. can also set globally new AMR_only_fungi option. Also updated kingdoms, welcoming total 2,149 new records 2023 927 2024. EUCAST 2024 CLSI 2024 now supported, adding 4,000 new clinical breakpoints clinical_breakpoints data set usage .sir(). EUCAST 2024 now new default guideline MIC disk diffusion interpretations. .sir() now brings additional factor levels: “NI” non-interpretable “SDD” susceptible dose-dependent. Currently, clinical_breakpoints data set contains 24 breakpoints can return value “SDD” instead “”. New function group scale_*_mic(), namely: scale_x_mic(), scale_y_mic(), scale_colour_mic() scale_fill_mic(). advanced ggplot2 extensions allow easy plotting MIC values. allow manual range definition plotting missing intermediate log2 levels. New function rescale_mic(), allows users rescale MIC values manually set range. powerhouse behind scale_*_mic() functions, can used independently , instance, compare equality MIC distributions rescaling range first. using R heavy lifting, ‘AMR’ Python Package developed run AMR R package natively Python. Python package always version number R package, built automatically every code change. antimicrobial selectors (aminoglycosides() betalactams()) now supported tidymodels packages recipe parsnip. See info tutorial using AMR function predictive modelling. New function mo_group_members() retrieve member microorganisms microorganism group. example, mo_group_members(\"Strep group C\") returns vector microorganisms belong group.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"changed-2-1-1-9122","dir":"Changelog","previous_headings":"","what":"Changed","title":"AMR 2.1.1.9122","text":"now possible use column names argument ab, mo, uti: .sir(..., ab = \"column1\", mo = \"column2\", uti = \"column3\"). greatly improves flexibility users. Users can now set criteria (using regular expressions) considered S, , R, SDD, NI. get quantitative values, .double() sir object return 1 S, 2 SDD/, 3 R (NI become NA). functions using sir classes (e.g., summary()) updated reflect change contain NI SDD. New argument formatting_type set 12 options formatting ‘cells’. defaults 10, changing output antibiograms cells 5% (15/300) instead previous standard just 5. reason, add_total_n now FALSE default since denominators added cells ab_transform argument now defaults \"name\", displaying antibiotic column names instead codes Added “clindamycin inducible screening” CLI1. Since clindamycin lincosamide, antibiotic selector lincosamides() now contains argument only_treatable = TRUE (similar antibiotic selectors contain non-treatable drugs) Added Amorolfine (AMO, D01AE16), now also part antifungals() selector Added selectors nitrofurans() rifamycins() using antibiotic selectors (aminoglycosides()) exclude non-treatable drugs (gentamicin-high), function now always returns warning can included using only_treatable = FALSE selectors can now run separate command retrieve vector possible antimicrobials selector can select Added valid levels: 4096, 6 powers 0.0625, 5 powers 192 (192, 384, 576, 768, 960) Added new argument keep_operators .mic(). can \"\" (default), \"none\", \"edges\". argument also available new rescale_mic() scale_*_mic() functions. Comparisons MIC values now strict. example, >32 higher (never equal ) 32. Thus, .mic(\">32\") == .mic(32) now returns FALSE, .mic(\">32\") > .mic(32) now returns TRUE. Sorting MIC values (using sort()) fixed manner; <0.001 now gets sorted 0.001, >0.001 gets sorted 0.001. Intermediate log2 levels used MIC plotting now common values instead following strict dilution range Disks 0 5 mm now allowed, newly allowed range disk diffusion (.disk()) now 0 50 mm Updated italicise_taxonomy() support HTML output custom_eucast_rules() now supports multiple antibiotics antibiotic groups affected single rule mo_info() now contains extra element rank group_members (contents new mo_group_members() function) Updated ATC codes WHOCC Updated antibiotic DDDs WHOCC Added 1,500 trade names antibiotics Fix using manual value mo_transform antibiogram() Fix mapping ‘high level’ antibiotics .ab() (amphotericin B-high, gentamicin-high, kanamycin-high, streptomycin-high, tobramycin-high) Improved overall algorithm .ab() better performance accuracy weight given genus species combinations cases subspecies miswritten, result correct genus species Genera World Health Organization’s () Priority Pathogen List now highest prevalence Fixed bug antibiogram() returns empty data set Fixed bug sir_confidence_interval() isolates available Updated prevalence calculation include genera World Health Organization’s () Priority Pathogen List Improved algorithm first_isolate() using phenotype-based method, prioritise records highest availability SIR values scale_y_percent() can now cope ranges outside 0-100% range Implemented new Dutch national MDRO guideline (SRI-richtlijn BRMO, Nov 2024) Added arguments esbl, carbapenemase, mecA, mecC, vanA, vanB denote column names logical values indicating presence genes (production proteins)","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"other-2-1-1-9122","dir":"Changelog","previous_headings":"","what":"Other","title":"AMR 2.1.1.9122","text":"Greatly improved vctrs integration, Tidyverse package working background many Tidyverse functions. users, means functions dplyr’s bind_rows(), rowwise() c_across() now supported e.g. columns class mic. Despite , AMR package still zero-dependent package, including dplyr vctrs. Greatly updated expanded documentation Added Larisse Bolton, Jordan Stull, Matthew Saab, Javier Sanchez contributors, thank valuable input Stopped support SAS (.xpt) files, since file structure extremely inefficient requires disk space GitHub allows single commit.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"older-versions-2-1-1-9122","dir":"Changelog","previous_headings":"","what":"Older Versions","title":"AMR 2.1.1.9122","text":"changelog contains changes AMR v3.0 (October 2024) later. prior v2 versions, please see v2 archive. prior v1 versions, please see v1 archive.","code":""}]