From 7cc570249bb11ead56050f62f72517fcb2d224d5 Mon Sep 17 00:00:00 2001
From: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
Date: Sat, 11 Mar 2023 16:02:25 +0000
Subject: [PATCH] Built site for AMR: 1.8.2.9150@7ad8635

---
 404.html                                      |   2 +-
 LICENSE-text.html                             |   2 +-
 articles/AMR.html                             | 204 +++++++++---------
 .../figure-html/unnamed-chunk-13-1.png        | Bin 42899 -> 42834 bytes
 articles/EUCAST.html                          |   2 +-
 articles/MDR.html                             |  62 +++---
 articles/PCA.html                             |   2 +-
 articles/SPSS.html                            |   2 +-
 articles/WHONET.html                          |   2 +-
 articles/datasets.html                        |   2 +-
 articles/index.html                           |   2 +-
 articles/resistance_predict.html              |   2 +-
 articles/welcome_to_AMR.html                  |   2 +-
 authors.html                                  |   2 +-
 index.html                                    |  75 +++++--
 news/index.html                               |  37 ++--
 pkgdown.yml                                   |   2 +-
 reference/AMR-deprecated.html                 |   2 +-
 reference/AMR-options.html                    |   2 +-
 reference/AMR.html                            |   2 +-
 reference/Rplot005.png                        | Bin 13249 -> 13193 bytes
 reference/Rplot006.png                        | Bin 13227 -> 13213 bytes
 reference/Rplot007.png                        | Bin 13438 -> 12660 bytes
 reference/Rplot008.png                        | Bin 18108 -> 18968 bytes
 reference/Rplot009.png                        | Bin 8579 -> 8614 bytes
 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.html                    |   2 +-
 reference/antibiotic_class_selectors.html     | 190 +++++++++++++++-
 reference/antibiotics.html                    |   2 +-
 reference/as.ab.html                          |   2 +-
 reference/as.av.html                          |   2 +-
 reference/as.disk.html                        |   2 +-
 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/first_isolate.html                  |   2 +-
 reference/g.test.html                         |   2 +-
 reference/get_episode.html                    | 113 +++++-----
 reference/ggplot_pca.html                     |   2 +-
 reference/ggplot_sir.html                     |   2 +-
 reference/guess_ab_col.html                   |   2 +-
 reference/index.html                          |   4 +-
 reference/intrinsic_resistant.html            |   2 +-
 reference/italicise_taxonomy.html             |   2 +-
 reference/join.html                           |   4 +-
 reference/key_antimicrobials.html             |   2 +-
 reference/kurtosis.html                       |   6 +-
 reference/like.html                           |  66 ++----
 reference/mdro.html                           |   2 +-
 reference/mean_amr_distance.html              |  70 +++---
 reference/microorganisms.codes.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-1.png                          | Bin 26913 -> 25922 bytes
 reference/plot-2.png                          | Bin 27615 -> 26511 bytes
 reference/plot-3.png                          | Bin 27972 -> 28010 bytes
 reference/plot-4.png                          | Bin 39727 -> 38912 bytes
 reference/plot-5.png                          | Bin 39742 -> 39067 bytes
 reference/plot-6.png                          | Bin 38976 -> 38225 bytes
 reference/plot-7.png                          | Bin 37837 -> 36899 bytes
 reference/plot-8.png                          | Bin 54976 -> 56317 bytes
 reference/plot-9.png                          | Bin 26304 -> 26319 bytes
 reference/plot.html                           |   2 +-
 reference/proportion.html                     |  26 ++-
 reference/random.html                         |  34 +--
 reference/resistance_predict.html             |   2 +-
 reference/skewness.html                       |   4 +-
 reference/translate.html                      |   2 +-
 search.json                                   |   2 +-
 91 files changed, 634 insertions(+), 425 deletions(-)

diff --git a/404.html b/404.html
index 2817ea22..c2a0d409 100644
--- a/404.html
+++ b/404.html
@@ -36,7 +36,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 423858cf..60f2e76c 100644
--- a/LICENSE-text.html
+++ b/LICENSE-text.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 d4ac6f80..9f73f40a 100644
--- a/articles/AMR.html
+++ b/articles/AMR.html
@@ -38,7 +38,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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">
@@ -962,110 +962,110 @@ antibiograms:</p>
 <tr class="odd">
 <td align="left">Cardial</td>
 <td align="left">
-<em>E. coli</em> (401-401)</td>
-<td align="right">67</td>
-<td align="right">61</td>
-<td align="right">59</td>
+<em>E. coli</em> (400-400)</td>
 <td align="right">65</td>
-</tr>
-<tr class="even">
-<td align="left">Respiratory</td>
-<td align="left">
-<em>E. coli</em> (403-403)</td>
-<td align="right">60</td>
-<td align="right">55</td>
-<td align="right">54</td>
-<td align="right">59</td>
-</tr>
-<tr class="odd">
-<td align="left">Rheumatic</td>
-<td align="left">
-<em>E. coli</em> (446-446)</td>
-<td align="right">65</td>
-<td align="right">59</td>
+<td align="right">58</td>
 <td align="right">60</td>
 <td align="right">64</td>
 </tr>
 <tr class="even">
-<td align="left">Cardial</td>
+<td align="left">Respiratory</td>
 <td align="left">
-<em>K. pneumoniae</em> (99-99)</td>
-<td align="right">65</td>
-<td align="right">61</td>
+<em>E. coli</em> (414-414)</td>
+<td align="right">62</td>
+<td align="right">56</td>
+<td align="right">53</td>
 <td align="right">60</td>
-<td align="right">59</td>
 </tr>
 <tr class="odd">
-<td align="left">Respiratory</td>
+<td align="left">Rheumatic</td>
+<td align="left">
+<em>E. coli</em> (436-436)</td>
+<td align="right">65</td>
+<td align="right">60</td>
+<td align="right">60</td>
+<td align="right">65</td>
+</tr>
+<tr class="even">
+<td align="left">Cardial</td>
 <td align="left">
 <em>K. pneumoniae</em> (110-110)</td>
+<td align="right">61</td>
+<td align="right">47</td>
 <td align="right">62</td>
-<td align="right">49</td>
+<td align="right">61</td>
+</tr>
+<tr class="odd">
+<td align="left">Respiratory</td>
+<td align="left">
+<em>K. pneumoniae</em> (102-102)</td>
+<td align="right">63</td>
+<td align="right">54</td>
+<td align="right">54</td>
 <td align="right">56</td>
-<td align="right">60</td>
 </tr>
 <tr class="even">
 <td align="left">Rheumatic</td>
 <td align="left">
-<em>K. pneumoniae</em> (107-107)</td>
-<td align="right">63</td>
-<td align="right">49</td>
+<em>K. pneumoniae</em> (104-104)</td>
+<td align="right">65</td>
+<td align="right">57</td>
 <td align="right">61</td>
-<td align="right">62</td>
+<td align="right">63</td>
 </tr>
 <tr class="odd">
 <td align="left">Cardial</td>
 <td align="left">
-<em>S. aureus</em> (235-235)</td>
-<td align="right">64</td>
-<td align="right">55</td>
+<em>S. aureus</em> (226-226)</td>
+<td align="right">65</td>
 <td align="right">61</td>
-<td align="right">57</td>
+<td align="right">55</td>
+<td align="right">64</td>
 </tr>
 <tr class="even">
 <td align="left">Respiratory</td>
 <td align="left">
-<em>S. aureus</em> (208-208)</td>
-<td align="right">62</td>
-<td align="right">61</td>
-<td align="right">57</td>
-<td align="right">65</td>
+<em>S. aureus</em> (215-215)</td>
+<td align="right">63</td>
+<td align="right">53</td>
+<td align="right">58</td>
+<td align="right">60</td>
 </tr>
 <tr class="odd">
 <td align="left">Rheumatic</td>
 <td align="left">
-<em>S. aureus</em> (218-218)</td>
-<td align="right">67</td>
-<td align="right">55</td>
-<td align="right">53</td>
-<td align="right">67</td>
+<em>S. aureus</em> (220-220)</td>
+<td align="right">65</td>
+<td align="right">57</td>
+<td align="right">60</td>
+<td align="right">65</td>
 </tr>
 <tr class="even">
 <td align="left">Cardial</td>
 <td align="left">
-<em>S. pneumoniae</em> (132-132)</td>
-<td align="right">62</td>
-<td align="right">56</td>
-<td align="right">62</td>
-<td align="right">68</td>
+<em>S. pneumoniae</em> (127-127)</td>
+<td align="right">61</td>
+<td align="right">57</td>
+<td align="right">61</td>
+<td align="right">67</td>
 </tr>
 <tr class="odd">
 <td align="left">Respiratory</td>
 <td align="left">
 <em>S. pneumoniae</em> (137-137)</td>
-<td align="right">60</td>
-<td align="right">54</td>
-<td align="right">61</td>
-<td align="right">61</td>
+<td align="right">69</td>
+<td align="right">57</td>
+<td align="right">58</td>
+<td align="right">65</td>
 </tr>
 <tr class="even">
 <td align="left">Rheumatic</td>
 <td align="left">
-<em>S. pneumoniae</em> (130-130)</td>
-<td align="right">70</td>
-<td align="right">58</td>
-<td align="right">56</td>
-<td align="right">68</td>
+<em>S. pneumoniae</em> (135-135)</td>
+<td align="right">61</td>
+<td align="right">54</td>
+<td align="right">60</td>
+<td align="right">65</td>
 </tr>
 </tbody>
 </table>
@@ -1090,45 +1090,45 @@ antibiograms:</p>
 <tbody>
 <tr class="odd">
 <td align="left">Cardial</td>
-<td align="left">Gram-negative (500-500)</td>
-<td align="right">66</td>
-<td align="right">61</td>
+<td align="left">Gram-negative (510-510)</td>
 <td align="right">64</td>
+<td align="right">56</td>
+<td align="right">63</td>
 </tr>
 <tr class="even">
 <td align="left">Respiratory</td>
-<td align="left">Gram-negative (513-513)</td>
-<td align="right">60</td>
-<td align="right">54</td>
+<td align="left">Gram-negative (516-516)</td>
+<td align="right">62</td>
+<td align="right">56</td>
 <td align="right">59</td>
 </tr>
 <tr class="odd">
 <td align="left">Rheumatic</td>
-<td align="left">Gram-negative (553-553)</td>
+<td align="left">Gram-negative (540-540)</td>
+<td align="right">65</td>
+<td align="right">59</td>
 <td align="right">65</td>
-<td align="right">57</td>
-<td align="right">64</td>
 </tr>
 <tr class="even">
 <td align="left">Cardial</td>
-<td align="left">Gram-positive (367-367)</td>
-<td align="right">63</td>
-<td align="right">55</td>
-<td align="right">61</td>
+<td align="left">Gram-positive (353-353)</td>
+<td align="right">64</td>
+<td align="right">59</td>
+<td align="right">65</td>
 </tr>
 <tr class="odd">
 <td align="left">Respiratory</td>
-<td align="left">Gram-positive (345-345)</td>
-<td align="right">61</td>
-<td align="right">58</td>
-<td align="right">63</td>
+<td align="left">Gram-positive (352-352)</td>
+<td align="right">66</td>
+<td align="right">54</td>
+<td align="right">62</td>
 </tr>
 <tr class="even">
 <td align="left">Rheumatic</td>
-<td align="left">Gram-positive (348-348)</td>
-<td align="right">68</td>
+<td align="left">Gram-positive (355-355)</td>
+<td align="right">63</td>
 <td align="right">56</td>
-<td align="right">67</td>
+<td align="right">65</td>
 </tr>
 </tbody>
 </table>
@@ -1152,45 +1152,45 @@ antibiograms:</p>
 <tbody>
 <tr class="odd">
 <td align="left">Cardial</td>
-<td align="left">Gram-negative (500-500)</td>
-<td align="right">66</td>
-<td align="right">77</td>
-<td align="right">77</td>
+<td align="left">Gram-negative (510-510)</td>
+<td align="right">64</td>
+<td align="right">78</td>
+<td align="right">75</td>
 </tr>
 <tr class="even">
 <td align="left">Respiratory</td>
-<td align="left">Gram-negative (513-513)</td>
-<td align="right">60</td>
+<td align="left">Gram-negative (516-516)</td>
+<td align="right">62</td>
+<td align="right">74</td>
 <td align="right">72</td>
-<td align="right">71</td>
 </tr>
 <tr class="odd">
 <td align="left">Rheumatic</td>
-<td align="left">Gram-negative (553-553)</td>
+<td align="left">Gram-negative (540-540)</td>
 <td align="right">65</td>
-<td align="right">78</td>
-<td align="right">76</td>
+<td align="right">77</td>
+<td align="right">77</td>
 </tr>
 <tr class="even">
 <td align="left">Cardial</td>
-<td align="left">Gram-positive (367-367)</td>
-<td align="right">63</td>
-<td align="right">79</td>
-<td align="right">75</td>
+<td align="left">Gram-positive (353-353)</td>
+<td align="right">64</td>
+<td align="right">76</td>
+<td align="right">76</td>
 </tr>
 <tr class="odd">
 <td align="left">Respiratory</td>
-<td align="left">Gram-positive (345-345)</td>
-<td align="right">61</td>
-<td align="right">76</td>
-<td align="right">73</td>
+<td align="left">Gram-positive (352-352)</td>
+<td align="right">66</td>
+<td align="right">79</td>
+<td align="right">75</td>
 </tr>
 <tr class="even">
 <td align="left">Rheumatic</td>
-<td align="left">Gram-positive (348-348)</td>
-<td align="right">68</td>
+<td align="left">Gram-positive (355-355)</td>
+<td align="right">63</td>
 <td align="right">77</td>
-<td align="right">79</td>
+<td align="right">75</td>
 </tr>
 </tbody>
 </table>
diff --git a/articles/AMR_files/figure-html/unnamed-chunk-13-1.png b/articles/AMR_files/figure-html/unnamed-chunk-13-1.png
index 8c57cc2599e4945d3f8e00ce04f075bdc31aca3d..164c3b8677f62815d819adcf7f70ad8a7eaba114 100644
GIT binary patch
literal 42834
zcmeFZ2UL_<*DhG*R#du8AW@qF6qKB!ih@N{qGXkvGf2h+iUci^l9dbsl5<d$oFo+)
zksJynORU)k+wcEp{ddjWJ9EETb7u|9Zn2>1J?}X?Jp0+texKixmpXQY>IepdIflD=
zT@iyh5R1X=tNi02yi)aKFd6<jcwa{9I{Xb^>k=iN@YiAMo9cEL46P6PZ%^RZf&m6|
z4uiXXRrx{W?0|EymO+&GHwA~4Q1|m(*DKFmKhSgPo%KP+zaKq2=UaP$ZN&RK-`)+0
zS0lGuIQFu95;%AN6y?~58w___|5C5|z<PpF>NCchk&5TM{*1iU$|gg*oX`Mm8*V5=
zdBVB5PB5z2!ODF;UDIJ`Gi9y3KsiO3We-}M*LhVn;$HL}hVsq+*4=MTUBeth-&{HW
zZ+T%lO}jEbUNJ@gi|^@9wtX1NYa`YEGTH;*Jlp3dCu^rW)5wzlz$AwrKFOq9vfnE`
z0OLaG;NW0ThiClt>v59)(t3I$u@h!iRs=ST*I$yDW36H51$GyI;R%KcedBfQkJ#Ni
z{P(<Y-93*Clh2l(o?bK&?P@y_<z)Er(E;^hdz0z_+6d9Le(pnb5AGT^N50|It5z<N
zJ+eHd;3-5dzGa<JG#)M+EmAZz5$V`#;{5I5A-)Y7j3krA(_X$-&i(~@%mrTz)uc_k
z9RFCPT{BKfN-DD^?6PL4@LVB-Q@@Q=`FfMpxCH&it-;N~wL~p8wG>6)j-H-3&CSjJ
zVo7CX+XrIyRo2F(-`YGV<So3j4|C(MEBkQx7wqK%YT6De_|YF#<Sh#|^f9zf{hV@g
za$pMTd8R6Ko?8oA4xK7R%WX2;7QMNRk%Bq(D*G^1H#GNPyqeB?9pv)d*@`|{Z`UHq
zzez06&74Y5yf{)5*iybZ7va7(z#k~KVXT_2q2jODBOU29=-kP+$Ln5vI)|-!-R^yL
z(<DeID5g06)#nRq71@}KgY$HO%R9HY4hAvGgpO9x?^q9#cGj#`vv*c>NxTZ;+x8hH
zbH(p9@>tY#-5us&vqhE~x!0@t%U^A;_OVArMXe9adxSYJjgLJ%L|5CEAj5s{)05eP
zArI#X;h{GJj(rwEp%u1c^;$MxP8V&?mE;&Ug_n-=X4V}N`|)tLcqRjf4`Ed^T%GMH
z8Vl9Twx4P%T@1-=^by}0o`tJvmRh1S{_e|)&UhSNX<*e^@Qt+obl90_rd#sWKxF6V
zNYQGqnH_0+&1kAEp~t3%mfLQ;k;Zj4>ny*eR>hLNz5OU$sNooY|I3P<l}zV486AAp
zap6lfG<LF<r3=+)vjj){xNU3C`z(iB+2t=)k&8zvcy6?dhILs!=vjVa6#Zr&xd;bt
zi1VDLrlwuTZK;Hml#2vi&uy<TEz)X1MH5B&kEb*qKZga0x$WNi)K~L}*$r$a=H@iZ
zZkI1#c3!Mw2CwoC&Hwa`K!m%PaVB<kb(K!5WY%vEk#=U`4EHtbrYPICh^~!p%w)Dm
zkc$ROC*ak}7efT6lj9bP31w^!4({{xLttuXyTdBB40e9jh$qIyF(@U;H|;q@^O7Mz
z;P3WCxf$*j@0uT%1$UUg9`rg^x;4h0>3A5UNh=zAkGkN&!uLz+*;t(IY*vls*X-h&
z<E2xH5w<()6Kiimu|wN)PTWS#kvi=fnwm=ux;tDI@OHcJ&zZ-coRsgLT(p8?iuBxB
zpPHVYe&YysII-Gi)v{K;Rwf%Mz)8RL?NEDfZ!h;YvIf|)mpLtB!iQ+AD-ARIN}ZQ%
z!Gcz)NY*=B>u<z8J;XM?29B4_yIaLLvxZ2s6;Hlvj20~+j0B4BJlORIkM*&lZ;!|p
zebq|e5tc(kL*2GU=;u%05?!oia2|anwfI7J>u+wu#+yb)Mw!G`3%i1)jhVb*%D@?t
zPSG&s%ciC#!O7UiTvmgnBFn83Jx)XJo0o)f9*aRS@i{r%QuOZjF$Px6e0yUb^d5Pv
zSwL-7$~m;&?BpU>GLunaOVD;2I~nuydVu)OPq8IOu%o3IlG}Jo%+Soj=6r?t+K{Iw
zSfkqL)>4atot<4KL3n*MXsK0#d?h?-v)j2-MQscYbN=MuDu2MzI34Mv1qSo&>0vmB
zwOWQitUBSbRr1^&*v^TGXAA+g&zYlN<ARtHlv!3}BZM4G;qWu{W87Eko*X`@sHPUi
zYt}XT@eq9@vPbnC!?ACV$(!Yci9FvHE4GPN6X1zX@&dz8{Ah*w!06U@)+%D)HrRC6
z>($x@2csV!7rGF$HOkCw(iWeamp7IqzHI{T7?SC^J+t1^;?ZTr{!VVe-^z`_%C)a=
z@gunh$4O>+SyxwA%MxOKq(hhbI=uE$FF=q<uO@)V+Y%{g$K|>@I}4`1?n#;_8Eh<1
znHU?_hVz=)&ZHNN_uI8J)iKAwuZ`<>B;OWYin41KM82?u4=cs$ZuSzgmzsr{)d@=L
zGP)azF(>m@ESen$A(+{rx5o#`*T?KECv7b!iPLt_&J8UDIOz|TIwN=A6kXRUbJ>kZ
zesrS6Ex6HfO9qT@QaXnKI>5yi(pJlQ|AZJJXEwsBTySV>oZs&24GM#b?bU|msrF6t
z!1bjGqs7rWL5OFrF1L2Z*gfmOr^dD*QPiUi=57(mF^V4ASuJp$eCq?ZSTdTXyKM?d
zBdMdaGXdQ01qFLEyT`%{oj!+inl4)kxe%!R`$|<$bKFN!3Fp14n6<q&B%T!IsKKNV
z-9PbpqHrXjfqL+VH)J5eF<U{1;Cj`5bypA32E)!U;}(&9#Wje3f5x!55a=m_GINS@
z{p8oUr8g~ZOpu1vv-NR_@=@X3%>r=~D-q%0wx13&kH+jw#bn?A;=4t(^6Z;+5C&Vf
ztG}4E9C?YKk8d0$oQT2YMC?>MSxQ0z<F1o?Z2febcO7bA1?%A9<6C{dc3X-zL`hzd
z5d~Zb2`=NBkWMXO!-5;e+}28ln%GKa@wP>g@CPMW3N7o8k~95yV(CTZwCx_(`Lg!z
z?$>>mCFyE`*_PmGPWaKNc{iiXppB*hNz74li>Du*r(|@)JxObx^Leujfg)T<(JrR=
zWkGLt&HPLJ{nirrQP-hOoz-r=z-YZ4FuG8bHDRA1KpRDSY)nP3gE@#Z;^YO#f@LH4
z(v38Ed3f}Db4}JiGmCwlkXrEX=^ycY2k^-}5<``5173i`FO1ZX|BU1>o04<iS#er7
zE+F^#@i@ZaL{1HzD^}g9XsUXvp<+uWrlx+(cD2VS23rS-z1%~W1nwn|-`bw{q_?*i
z*r2}8fIBWU8H=5Axc?eku{ki`*4Y`dRyrYSVrn|=G&om02U$jEiE+l|)C!@`9P-uR
zEGG-UgD|;jkybNj4NVZXXl>ASQ?_DbIxPrm<*^juDq3FD_lMW;TQFPt?MbOkqNw}l
zzofA0{Pu+2JTq51PrxU5td-jc_0l_vvg8&wu!siX!G!>99h^b?(gP><F}Mx$95Y&$
zUJRzPn)1=Ue4BwVF3VZ@73zQ${#LyK$9|g{|MGF&oyD-N#juJ-bm2=nr2<4Eu`E%1
z;qyuAD9`%fi`!yiHs3#E>y8W0w$3llot#)v*f?kwOPHIxmwPWW#)sZR0LNw4^&UdJ
zc=u#B#bu3-C8xEz(JLbtnCi^HnJ?Y>aJO<wvp9;s=9LuPo1Pq_iRrY==EgVNu5`L!
zN@v)#UZ*G}t@eoXIZ^N75Xn7#(5Pydw-_BEMA|03K+#ZxhERj)juc$9__&pM|I}G-
z!%=4ObzF<}g}UOqtEEfL4W2s_p5p*Y>XEq)I1Py^CCc{94ol=e;lp4!{@lZ3K2kg%
zFz9~P$kVcHr7OCE1ou1&c&$}3tf#e=<6ACiXP(q-5T>2~b)DbwQ}|K0=f-PwU00a3
z_cb}S;g}7EKRtD)tANAYSQew3&4&2fgPmHFd`PW95@c1&kj4A!2=%$27>Ie>-5j9@
z#`i|V*%qbZaWI~ycw7)(q=LL`LUewLy9EU$Zy(6|y+`7t0_i?vTvSRN&8nfBS$VwT
zdzuxGJ;@|XX<a@?eOPR*->!_VWI8nsZF2vE5r5ILPt?@Zc5r%Q5H@B6kCPvQ^l|sx
zUgPd+hro%SKSu(Mn!<UhMNOm+irv#3y25OwAiAOqUYZRKJr2p+76N6aA2mN92ZxIx
z(o?guvu9<T1ssO*%KsSHv#3_F(Wz7Rkk6sKGffR#WJTc`L9L0X#S*d@y;jOhq4VJ0
zcvD0eiuWPXjA}a02KWi~IPIbTbW`A9`*yra&3m%3Q@s7xJ%<;)i(O-^C>0gna4{yu
zc({nI6}5~(UaNg{fQ-v&u74K?g8eVW(QjWs!IM8_?s5V+?9tDZtsngROp>Bp*p$k4
zHfG4&)8}mb#aB`k#vC$TwVC82yX~qX^+%X>Za{ufMTaX!+MsrI{!l!>EY@v9<}~0y
zz`9$R7M7!Ezb&RiByIsv<;1zj3xKr-Bin+*oGNf4{HHtE=U><V_3PL67saky<D=_(
zJ64{XeS35(TuVx44cKR#T=ewx5*1>i(JlaZt*_Ybt4ILs5T@&~o|yja&#zE*ZZLRx
zTWCR`o=S>|#uokj{(@g9@ki)%d4FzsIq3zvVN0}jx0zal-&t-vmVfYp-WhhC(z>NG
zfPd0>NXX(-MeFSw@M0uj!L{w?l7zmZ5@uCTr>vn<LCgxxaFmM(v>`n1v680CI7RZl
zRX1++k8N%J@DZPNDtv|#9WI-o<C;)ZR5Y=GQcqp+$XzG$sg-n{vSOn$a*-dEa;a}i
zXctC<6fA8AekZM+!?6z$W*2p0BSCzPf~3s;;>_h~hpL#>)zwQHxyeaV4ddOAmxHhr
z+V;1>le_I~^C985kv4}~RMfQd4wz**PzgJli>+n_GUCJ*Uj>fl_gOZ;Nx38z<mDNB
zeRl()c$cWwipd-7^(f;71O&LP=EO98|MEg9MHvNCDLQ9t%zC5ILAR#M1I>UrH1VUz
z-}zjP@lFtNaa{u|J7Cgsi(7|Ry?3LCTkdJTff&-(#8!>xmQ*OaZnVC3%LLj9qZoHb
zyhB+Df!}#?l*Y099uBVnz|R?QFS-_hYvvd?E`*2L0a6p7DCt4QH(s)}*kFgMzj;rR
zYs*4$S{kcN=%qRU?GdBvUQS9!zbuIF9y-@So|oA5StId?u(DYL!THi9+wB#C)$)lx
zlpb}rzEd39rgA0bsjWhoYK##VXO4bwKV}N9YTGPM+Pcc_WVSZvR3Y3D#@@n9&<e_Q
zCz|aOo7WuLP|YNHLZ+-ocu<_Q-r@|2y3ee)S$IB@zjXN68*U@{m@K{md*KSGMVn#!
zL+D9AYt{iVpyZ52kcPi#LS=2qV`nLb8FyTK>xa&WwxzLM!C#mvDb0KBZr@MF)ZU=b
z4%W0RN@&R?cb}9HJ-@jj2G^QMNs6vVALlm8KtIL3oxtvH5;HOqq#*W&e&>hJzOJm1
z0O8}^ONHVRHoqWG`To``c!w}T`AWJ~(|I2nJXDOVq|FLa!~wE1`aRhOXL(JPkqbc}
zWwv@yMeS0}(jQ3>fPlx1A_DlWdam(pKuD1&-a}Yxk<nSir|-nu+CdGpyVkzJ)%?aN
zVSdP;R?!c>Kj-1)HGl-$?6FA<drU4?IKiYaAQ?y(1t{&3_-0QF3N<Llu|u(E3-E1R
zd)`H@1>$H;;QW${W_FZQk3kp!m;=Zt7oh|zpQx4!kv0e-I0H}>{Q2!MH`EN+sVQFm
z4wRtd(m$9CZgdqu<?1Y#QTW}r9{>(Oa5<=cDoRP)^DR2A#LjsUe}8{eu<RDA6XGOi
z*fH^VuplT#r2>SelWCyF6n$u2(BeL4Cph|2Vz)AZt2vLqG2$}qNG|<;I<t1zhd!FW
ze8GR;af7y)w*ouNklC;3Ce+{6JY}B$AEi6xc?5$*;N9rt`)BZ4cOU%ks?Nt$F{itW
zp}v}LXjc%ADzck6Ugz)kuy?fPgjc!Wo@2KjBTR)pASE-ir6WZtP5U_FohpEL(o7j^
z2%Esmu+@Qkx>_FW=;{iE@|~SI%3cvasz<+hCq~8=5j^>4s=W?&OGAcP>Hi~H9BREQ
z0ivtj_c9Pacenj;?4Eo@6vN0pe^&KdR~<tTXo*m<!wV%u6QVBS0>y+-374Xr>i7oU
zgV|?$^3%OhrY9JV#lpkqF|AE<f9%-+XG1^3JpJ>^KJ@pkKlc0&zwm6sl;Xo>NQ5Y1
z=QVUE0<e`0=edY$gPS|es;XS{cm4rbtGu?hHcN<fD4Vth(YE^_N}#~g;P9{`NpW#;
z^`|W~>&F%io78l5GqpJysi>*B0Zn6ZGBPr%nL65IzLZlyv_SYP!6Nzyf|AadZ}%Bg
zAg`><$ghO4X@|ovjQL`^yQcO)?)$fKegFLg;=A(R14r{9D5AO+u_Q}Spz5zoclLmb
z<&btZC*a?WU?coOq{XoY#1TMsC+ZA<ncID18O7H(f_8?mFC6IycJGKteS42R)Q&)m
zu<HY+Dx>q9PDxtqP*NB}Yz&S$Di}(D?4fmfpiSHsUg*lIsj0Q-k)65p8!MoS6R<Ul
zJuUh`jHK^hr?2QbkA<igTHiy?&h9=X(*vkcQCBwxj!%ECzo-a73$S>0#E`+7d~}vF
zw2HV85-Bb&wnbP9;){Zkl2Yg;bv!D3(TA0z>Up_cA+xP_m$U2${fqbDGD0WVItYj1
zC~zG+b_`h#$GvNa_cH{ZMi$@iN!oTFM_^?)g}}D0R~{03IX*rPaclNN)p5bi*&HRd
zFuSz@rwOPj&vrTNa=pna3`|}b!23Y}!Rr?cIL@pIBFDk&cc!Yq2Lfyh!q(7xy2Y%c
z`z$COgE9vAN4;88#BpON>m+3{V4_@5JYwsBE*YG+^VsYgV!|Q7rxVDoTP|Wo$dJR&
z=C;dkH}}!%3_*D&p~#NjTzQlK{@zLKdaaZgUNI#Y<$A=63JD7bVF7v8A>IpRtM(*?
z`Ln)peZc7jVF6_0inQjOdVp$@!;3(Lb|7PSt14?b-&tM*d@4K+C2|8}m=?ZWUO1hQ
z3%u*-=aUMJs1ztJ9xU2Ka94z$Yt0A(EDoQapKtHzc$`w11SzngzsT;8RyFVuQ*t`=
z`GBOR*GtOF#UMna-{&=FEnX`DzB)$lP6t8UQ-EI7#U2hb_0F+~dZ*7nG%JpEx3=Eh
z<bDs7)U4gn7b_Jrhy(@?`(lc@`{Y0?4jJ7_pNun@GdgY{Nkf3$UJma9QUnVYMrB<z
zbEp}-e&4}Xz&-U21Z~26?(>t(<4})pk!9@rlAM+%0|ZZA!(D2<7`;MXK0eiwCl>N+
zr_~~=oUX5Q5D04<3kQ7@FH7^9&(cs}yc?dGI*_K-D(at7=)5Kt42cc>tme;#kdOfP
zg|^wEU|_epMTK%XBoL$TpP!2^ImEcx2ksk)Sy5o)pS}7kH0Xk{SXx*#p-;jJPDI*e
z1FgCuOU-R4i&9czdiv!s9TyX}qEURL%XErpdx`6H5)c8@*6XPL?Rwg|Z^c6%4>5P;
z4FKngcG#yya9)cI>8vmCJ(p#FA$G>4I8!|*vHo<{WlCU8;bp}XWf$+C5C8V3;!RDO
zSV~n%%TJbKdt6Wy)}h97n)v8mS8MCbuW?d9-z>!D<>l3%=4=C0<wq|rR#$xda++#-
zs_hMPGB}DpyXNBiUyevvAI&+IS$Od7{sU;2rL!$*CReH^R?6laG8+=Ybixs>8LT8f
zbv7w)6ZoXfp+hu7&d_$i;k5xH#5tIQr|c{DfG`nySu@{+_4CU+q_X$QETUEEmDX7;
zoHSh(@g=~^(9+VXy!Zb2gO;<jtAhVJ5NAY%;jW>H+#6@v;GCiE-D`|VwfyYI_;uj5
zX2q+5w{s@cgOMia1Vn29hWF2xg2(FOM=SS{_kY*eHT3)ga14X@d}#6SOAZf12;6jU
zh6?`;_6?tfMrLfWGRxRxT%bH2F_<lg^DP?orpCXYxv_hQm1NYMdzOPQD!F*q{QN{w
z{t~FiT%)6nKmu=V5Gr=FBeo8@0z*bS1wiIOs3{`m_t}nxsG;-4Ee3jSF&IVKND2uF
zA+L{)rAEH&<<F`j+3Ix*K}aL9r8oYAtw!UGZv<C5ls0KoM<C})Gz*OQc}zsWB2nXF
zmCDHOgWn#}E#Nws<idloCT3=K5(3^|M(cuH!H<D|Hw~-eyW3xA1AZZ$J$J|W=;Saj
z5QhGPu@BC{)>&Q?KpD@~@()5=8y*TrwW7ZzixpEk>^xrsqTiF*@#HNJ5D6WG%#wk2
z2p;}>L>m)j-zXAKVDg0+#+jbf74IXWIDr}}1%obTh!+56Qy)Th%b@Fg6k@U2J=Yr!
zMS9Mctu-Ud00MDzu4KMB+n|99WgA4a1INWbGkOAT!(C0@cP>|~h|6Ad9xhjuj=5an
z?qBxGU=xis^Py`!$}bw5a!@ojO@`dqt6Z{?@>iS9T>HOdN68L=8USfNXGWK>rxj~>
z>#HM%uCIm(2jLO5F3zi4;$_XYk{T&<HeX&Q$HZO$Q^I(WmO_%)>*CB}G91scPd*_I
zV!aMxOdtKv=!tcxm0<4bU&uo(JLM8T3gy&Hg@m_Rz0ke{mh0sH*2<TZOL6KKMGH!M
z4N7BI)tYY3+>=r*ISN1aviLt(0w?OvNqQZMF|8j`4NlXpCZiHhWhHI3b(x0k!5lq_
z@Kxm>KYS|q#>rnqq{7d8P44?ZcQ60E_cwHLOzfX7SN3&$NJwi?&o`VQUCzn~p5;p@
z`?a(xS<JCpRdb&2E*6Mz6{DpkZb<KJr^}>iqa4Q32)kd&q&cV<HbkiW`3|=@9o1#1
zrKFbE06*<c1l;H)mv8SNXh%<_MC9VDlVL6(Ln}@-pP?5xg)Z+Ej&>QoV*f;k0AEM$
z9Yx=m_9n+@M=k2^o<_1=n0CAEXdk-lQPy41$eZ4g&6LoYhVIGCBHi%-hGQ1lLS<`;
zvZ6-OyIvLZ@WgTD@bFaa1DMKZOz0}!@@i_;I$JTF8TW(UyN^V)=acrJcIe&fb|<g>
zx;V7x&^Q0Fn*Z{`ZC&W~-nHWydLS`PAFfN}(z!*5uTx)o8<YyG`w${DlNmO_++aza
zJ=O^nvoZ@K4iX)lySILk5_Nt<e^?ARwqftxzQ4T=#_~BhBzE-NCbH<<O3BITWyD}K
zvy6mQ$DijzpLXPc3K!2+K1?5-g!S&~Zv7#OcF*gotD%A5i)f2v$FmWmox*vEIus&a
zslPz=<JImq@5VRc`Mn0__%hv6z7+@WzxE^_tRTTV|F1#r|8ta%Ksn}?1!;jmKUS{d
zNs~PWeBkodz~G>meuMj1vbJrPJUxB(7+S(9Im|KhrJe5V3r^`S$;hSxq>b`q(Bddh
z{p&{mM+<{u6YD=Pm|t3e|DL*Hcg2{#a32l27SS|{qdkk^s(cCM9s}pgfLsR@A(1~z
zZsDX~&sd=bwaN!)uq}?pIgJ&c$c2vgreRq)u@3`(T`ai^6_QuesNZe~`#1N?|7UdN
zQO~`*3-Wt;FQd5<z^j&_m6erz&xb5C7BlJUz>`t&cau-gn2n@;sBkY#NzqC$J(#4-
za%_7dGmA6it@i!%04p}$yDrs_v#4-CK+O#$ZHX3AO>RfC6#+FuelBRv>nPSvJn~OX
zbM+uun48NMX;BZo<xR@TVJeRaiZ3b>Y@&8MP8d?iH-uW-y<CEd$}~<6Ft*RmW@dRg
z(`w01uO0kECDqV+L)em+pHMx)s7^>c+xg>D%f7ploswh*`!9ChyveU<URY*9`rdKv
zafRmP`9pc73giyyt3|`NSwc+ncO3H6N__p(IxRHQx`qbxO0BF`q#1|4R$V8yq=mR=
zbXB;TmR;767~AW2VejO<Re)0}00^al=tl%F79fav*8LkHtW-tSsw^o_SGAyTtik`2
z2AYV<Dd8WdCMPGCXxn;)gz6@zPx1T#)I)6rDZH;&ku2&C_<VMD%Vw7b?4K2=G)yju
z4r$#fD?VTMWcoDEAAqdt?T&r%EH4S<eys8tHcPXjW)j*3IW8;HENVR092^a`^31xg
zLnFte@0(qBXQv7}3HWD=(@odSLabcpMdLpqqxo!YTG>lUnGT101J9Rh{$b9-!s4Hu
z%gg0qKC2n^=%5K&K^pr`k}q)Ar*^0?d5Ml0kRjkJHu2vo^7x-&wEqi!2Fmyt%w&sh
zUzp*LkC-ybem6?o*yba7a!_uqRFwjOP^D@bUV1n7<$GbMyj!;wcqWQM(>?VgDEx_y
z<-!^1j%U#s`C0EZro6Ux*|hncfhMWOG&9BGSGGJ-u;SFYAN@)!6J%TT&A(5pb9XXC
zs8?xiS*epvFUY>kcvD$2Fy+?*uk6|1%5cl1Gu5wryaxR^mu@K|x56zD!4UX5bp`I0
z<5A~jPrem$c9gf`-DA{BxFC8;QbMe+{6lqZwvA`NMg}MyY*f2$v^>fHeitmSL0JFK
z)XJwnX&{Sv<#>n+n)OPfBw6NB5K2?N8ICSh`3EB;aId}Zi5CnkYP#sJI5}Eu^X|pm
zDmnUbcOm~KJ=T9gp&-!0m`{!}mj~rb*Sx%xrp%JCFjbAkLEY2a*XN^OgtHy}yw9%V
zi6`B!v{-qQ!OJj>d!onLWJ*I5P(^EQwdaXlo~%+58iHsS{%_?M6!|aILqj|WvD!tz
z1_8s|GJ1pE<u>YwBJu~(M28}+))&VRJH0Cu0`B9Dn7a$~6F-2MiF?e}nUa8(f{D%d
zFT?<>8ASpFkL5V}6_+i<I(Mq+Mx|wz3xRqE=k7kF;`wvfXXy*O2PfoI(ZI`hKAc13
z5O4){UFt?4z)AVxu={zGhb6Tzq98=j0=)>LGLhy05&9;UmhwQrp~ec3pR2+{^&zZw
z8&gS1z{u9nI%y$Y2V#<;#$1OgEcz)K#dzP)j-$Nz_VPU)2K3=xy*%%#y>@EEcV0EH
zSBT&iL1e*yh~CXw(w`~>=o4>mZ)ikcj@jr)+8}PbK?49%6*nT5mL8J3odW?1lyW^#
zHlo&Yk`~(pDq~<Lx%<<0X|h{ElFGYl$JRkxFoG7gGH3#h9BCZ>;ee)~bJ(moxEPA9
zLz1!mA-f!spW81Esc3yXA_(gPZ;Tz+E_ZY8%FvF$qE5z!do$7m?e?4tVx@O)#-irg
z*?k+(%8-F{gx8060jnp1hgPi-NOFLEmqon_8u#U|J-|<FG?qX;h^>RNRgo=hQ+o&K
zzaVTNu)C5ocObj%0PTEKz`ZRV7m+Kb`A%6)xPld=5yuLf3LNvaT!GN-=`B$9oY7$k
zNmXw8wyfr=eawB($0a5$WbN`)$y}bYE1Yb-!<Y^!^E7n%$7~Y-d3IR4Q4rc(RiSKu
zUm#bnooDyHjV)O&uXK(fU5@)y!}|kyTjh-Iftq>teko5K_f+2G1wIS7S!Q*LzlYqG
znh*i+l9-pDKOU-SS$Dah9}gTMACe}yHkCln3ftn-xQ%)e_;@I-LBh6=@3ke8H312~
zEgvCZbKkOfDp5`+sYzvOT2^y7lZ&U??`%-<v1{uZCSJV!{A=r1-^L7oDUb$EP+~{#
zrlz*G>03cUM@KLx^?O$d35k%@vymGc8_>(KvkUP(3zZws=%$vGl9G^*{qrvu!W!JW
z+?VUWLZ<zJitxnZ32}xIjkG(B=lp?duKH18B_zymrEuxH-Pf3mEWLJ}pJ_+^LB^1j
zJIJS=lON~Xd9?X8r`|?s3~yWfdIew8pLDl`gmWAxLsgT3kx453xT(te&>mRM825~<
zEa@*t6+LUJFL&xdNpxQOJ|`6w6_?9n2dfQDCA3t)8|4<^j4CXK+=!!&GmYyZ=lI@n
zQ)~58u}|xrd~<cS!f%gCfh27y8C=Og@*-dtn}F4dCSxz<0C%lJL_TUKi!S9CWC~w4
zGo|`jS>Yj(o0gVlNR_zjrJY=GOmkNX!S@i?DYi9Cz9wsCY1teB?b`P`WkO-vj_QcS
z+9G&vtF<g|kY@6GY45KYZ4b&(mo!d7Ah0<OJrj>4e-Qi_y?%Kuk033c6c2>Y*#HYg
zFKCR2%^M}Oz0{wXp93=t$<KdFR8dXoxJH_obFi9Ox^p>MnZ@07e)bY`ia-5l@2$<u
z#GwL>$&xa8@CIpz7SD2Fp=m|dCLaWb@=lWmav8;?$z@7n;~ZW7DkvyeGo{ES+=)n>
z-&Cg_xJ}42@&4hO;$1!hNUFUjNmQ-DB7CFclZ8hYEw#_jCGGZkO=7-@X^M6$v=@dc
zAI4>=vfaQ?O6J+bckf4ysP#<?D_6~m7Ssr`g?<!jlA2gq%@@sje0p*ihex8WeQXs_
zRMZuJaM5E9M;*eYUP5{PkO?@BdcJv2wVM7P9YAMtKCP&4H8wH9ZIX^XY)e<A+J+M%
zo-I$%G@AI_@u?;i`W6aAO;hs(#eH8li@l9z4$chTW*C<BobT(+iwiQ}t`byc2{}JB
zv5P^~ZaaeFcLjc@S3`K@&U>KH&170UGt+ejUg}?4IYRXWh##XHdJ8f0O=W(i&suJH
zP7~hOC4bU2Fh)liHDeJJLS#+5)ATJjH+R`toHc}~NG2|eI>BFjJ0%J#o16WpixW<#
z=H>BPP?uWeoj91`I^;rts*kO%OFUA-$Y|oFC&_<qGWmJTsIZVwTlU9d@`k`y60sE{
zs=!&{vjD@sRL#(Ov%2xUg*OQZrk`e*j_`ES#DZK0?cdCGz-R$Q_nNb%CVPf{v;cKu
z>QH-qk88qZ^=wP)G(;-CFx!p7-Dmt>V~Ro2iAZ+*gw@T$x4=j(yLc1;3B0Pslmn_s
zkBPGR@=ZJzgvH-pc90>P=4kVOjS<43eiyb5^3rCM2c#7&4w{{V+;eu>b8O2<Vu;rV
zd8_-lnTbgq(x76U2WE8m<9T=UvY#>oi&r#sP7q}+JYR}*1<oynO~AAjt#oN}162%y
zqsN~tkt{)pCB(MRqF}6^HFNgtyAkNpN+Eg=1g`oJp-`6bwtBkjY^L2^o&~vAjm^y)
z3!pEHcwx{zo7pz;5|*8tk-lj*kD%jD7X$r_W{~to+Ekw{TC8Wa1Hy4NTnzNbNFDvO
z6ZHe(HvN*}HgzEPPqfLfH=&z=wx_6q*t$N7Ur1<xw6u<c&J%kk2B6hoH<b_u;%mWO
z#V?3MWMjlcK|u82xae|ga6_K8F2GpGt?5<I$YO(#G*ED^a0GQ{j=2m1?a78Z<?<p6
zpZButZc?|SU-B+p1<a7k|6g*Tz5Dk-_5TH{rT;IP15|!q7IFX}hBI%cW=0j{X|XX^
zeUS6L1?a0Z2DJOqok!(Ul&M19ZOoLR9LSm1^vnxu7(;A|L|F@PhSgTd+wOy=Q|@V*
znF<ox5}71|FCY;f9`k{i`Qe{z8EIMD>6T>{Z7+KTRaXdX$)~qzb@QzsN))_*)M@LQ
zQL&aD8t5;P)u?f+VP3Ostx!eAA{;O-Plp;%l$Crbj?I5dJ%i>M5CI_ptGTClSS0k8
zC%>lj-Hqsw9?1ew-m<CAO3Z}!oFAg-gEkUbQ&Dwwwcp^~0W(Gpgnb4J5))ZYbKgu*
zG^t%H3aGBOKR$Kh#cee;g3&-kj9G>v?_+)#BH&4<xDu$Y^yU6RliBX9v))yf{|OXv
z>b32HqAb0dL<EZR@>Ml>W_o$3%l{jY2=!z69}Mk?yROkO+YOLBw*<LMa(vWhBK6J;
z-{+rLVtki7U4Q;58ScWV+s8Xo8~8Jx1Xta_N&AxFC{ltYj;md}en;@hvyAr=vl-eY
zW)sVsdY;0>-kzn#jI6*-Vm?3plC$UFJi%y?yClZF$yJwL7k4ncY5Y>AAbnB1jjNo}
z9aV90L6P1#r=RQV7bm^#_#>LWoRZrqEJ-|kgeCFrk#jse%2&k}>GpVO9y>hw_ZbR`
zi51SHYMJ$FiqwP*?VxS%iO*BZPk9o9@p!y}m_`1d>!14SP4igT=E9{mkJ<~2l2sV#
zR(NPX=WmSYoTg4W8_^Ux#v6t|abdkucyP*|g^g`6&OKa7X^bppU4SOw(o$$-q?YX0
zQC%%9t;GHI_us|Dzx+;if&Rpa6Q?HTw*xOqhp?!`j<gL@3|6plXqPYz-L!~rdc*Le
zWnwgS#gtPrNF0a5sgJi$UAnwpsZcXR$Yf<}emoR5>$om0&mt(Oo=-jAH2edtIXpak
zjMpen155w2VNc0GMq%Opz}2&NbJnlB<I*})&G;MpR%Xf<UiojDg=6ZZ1{dI~SZ6<L
zY(wzHkrhr%C82-oO}3_Ali|_^W%b^S&n(A}`^4RhK56x1tUF3Rsij)y&Rp|=n%J^6
zMM>rs{*v>~W=u@g@X5o*x-tAE18fmhFNaC|o?Mrs1}rP4DhQ`>ZesS@cMJLqT7E?K
z&n|_%VlN%c9$7G>qIYR35_ZxpV%z;Bw}tAw<Q}Q<rm)N#3Gau(h>k<Ji{0jYJ#OEv
z`1XA38X==Uv74bFBD?*0_*WMK5}Vq~U%dc$`N4tzcf5S%c~^oA#hWI>Z4flG&)xFv
zgsRVgF9QCYrlr;HAO3b`Sgn7T=ztl8aqH#D+wM>*gS<5eL_*Ar%*<)BZ@7w~(ckf2
zojcErAP*qnHZ+IzIVgRFwF0v=(zD@DkNFo`=`35JDEP-0T5rwg&!1~lc$DQ^4x|p0
zIL-WA7=a(8Dkk`b^O(HrO4m%231b7@(<?v8uKq#Uo4>?8m|*L}hYwG;Ck1w8>c$uh
zfmGjNXUmz`oh7j}-V}trtXr<Ny|KbN&2f7#ENli^gl#Zn&_5^czL6^*BbE-}?E(vn
zG)xwCLGj9C{q4&7<|c(ruC>qpU#g)iheM&g144kQ?kv48v`2i^@7#GEDQ{%sGi*EE
zaWT*M>$R+`EN8Ltt@R}r7+5gipybi7{gYkNr}Vz45K6$9D~I#%e%!0J*fTVw3nkFk
z%!-}Vjt*r(n&Ul0M@B4m5&)=1nM<Dc(X;O=D=Y5@P!$xDQLrW7tMYz>Z)p)(@&i;D
z*WG=m$D9w|q@Jz{<-7XkDzQD+q+R*#wWs&}sOCQG-JPbx#O{yaH48O!9V&M>?f!5t
zar@xotLM+3KXUl+SKtKRMvJ<had>v&UZi}|#wsx_J|2rxtnxmV=dtaglCHrkqbV*f
z4x1rARv)4SZOr9QWbBimk-TkcYI@tp-~3-!c>?DL^ot)h<;IIM>i8DtVS6E!OdU}$
z8_^$?`<#Ugp-0XY(S)wMGDF}d_EmURG#ci>9}m*D6RvH(f|LOWRvnZUO1Eykq~f=H
z4|-HN8yg#E-+91{Dit2v%7_>TZ57x90SFm`g1)6wnI*5$xuLiI_19lVjvP^ZeDGK{
zjnl@miCm<>?R3q8&@cCIgO;!pjJPRATo)q5I^7a%F<c_jl#r4B^5vfnldV_jJ-4!G
zj!Px#jf{-&x~`h%nfEB3d2s_4O8_OM0-VdJz&KdGww|Pv)I>KQ#3|s@716RljB{ZB
z{$$h6R2NX)FL!BL72Rihrd{G_(wA?6kB8nfTu0k7sAZ1QU-E{eWGa+c>Z_;i>Dv2F
z+q1!l;5Ze30YR(8k*LoXF%U{_LqUS{#N#-7r}MqK5-b87<||YQ4#eI(nwpE!@BfJr
z7vB0+ixZd*?%#hZnf&p`SSUG6zg0d&Zo{Ts91pq~!@fb&yy+(Xq2Nx_PAL4d{buZi
z4DvLz`)0b*8}PDz0RgJ^_PH<@l3M1vW*EUED<`J{rjiF8YuP~0g)bBv-(RqI<eDhK
zrCAAfjg&!E!>xEmnPsFQHx1%^HD@hw>h$RZ&?Yk|MS%HO^cUWy=C|wsiB}R(D`{$(
zIz<6f_Cm0oT*oLm&M8F@`wGm!ST|s}B+qg{=#4DX4JoNKhnX&E9L@&x8xt`rP^K7z
zCQHbE@@1-W3V!Cb;5rOSb!O^{6ON48b8>R}K7amoV`YZdwBrIJ6I1>DtkK>f|3R0T
z%Y;>^o0Mb4`s?OJ5(`*owGzXQ)R9FrF{O2~Kw>l70%1V3_c7|wl%~0Xl04TnOJpU&
zPIJoFuV0U@USU%G9Y}6T#@&_+=Xr%i!NaH}`tmLDK#|2~tZ%lzO3{yXuYwoYFiOP$
z^+VI=vHVraQY|}CMp|02CV+N;X$G6(G(QM_aF#e!p$qof68yfY36$*F*vpIt8c(-C
z;G~bcGgxbymkPhA0b`sQdTd&S95Rc7amT3nCP5%_TUOSuH{T+HxUL26Jy7h>;7}S_
z3d57rz|@3}<|GNw98bTKbq%l2^`--iJJT;H%sE&@JS-Z`dtR!W@XOFCOHGuEU}0iP
zti4}<{GW8<bz&B@Nl9iU@=-#*zP@cRGxs`kzn-=A2gv}Mi@0zY9}C6mNP=+d6*kXm
zNC)KIt^wOSP&D2$Hcp1ZIi;{rfFRwr@6hpN%YkBiJWMm0HiTYQ4;UzSFA*bc+2Kr{
zuY!X20%)C%`$zz?6SDs11^1W$B-OadY5QUr=3o&JxC0T~VP(QzXk{j|LK<IA+HrLU
z;`UAR8YoAz`-l+lg*>(jU6v<@d&TcodTGh%m4Zqy_14=*<y(s~=-`K~3#ISIGw<lS
zE!=RJAJhh50g{hIu>MghJJQZ}>g_o1_*|i(DgLO&OwgqnZM4S1SqeS)5sMEB8nYJA
z&*`yWUo^1j$-d#fxq7*kGK^i<(IP1<?uU2(`0d4JEth&2`ZC~plWY9-Z-VOx7+r6P
zQ)XIl065gQkB?tqqa%N(><b@@9cB_?s#so8<J0sCL01iOjzQKPWjI|?80*?tt01M@
zO*D^nx4>{CE6&&7zlrbdCg>*3CYq!0@pVDW6I2mB=3PM8btWm$qfiIY+QY-cw7)P5
zh%#Zd5=fthf~#X;ut<;)u2G4(6~Y7#!{d+VJUu;mE&J~vQ--Kx=RYC|Ty)UEqm<vK
z+2cUwRhPF7t~CR1RfWEs0T0#K#6%J-*c2u~P@-Z?2sw<#paVt@96B@u$<5`*$3w7s
z$kL}MDU)@|Tufks4&SEwcz&QnErQ>w3w}rC?X?4h*We~!tNp39w~J)DCvGS!2b;Ne
zy;nymjEdJZzOwSl*`o)+%~2kS5^`vRxO7BWXao{u264G_y=NVmZ7tqc1MXvv44)!@
z?RwkJ_9idnO@eEcIbRy+yLt<(V&K!T7cCsNtSYuu^*M_qey6x65u&d7tHi#f+S*##
zz?#pWje(bU0lB_1q%aiQnH8e#`+#8Se+%v)jW=w3J)Gb4?#2sj!oZyj37_Ld)x7Q-
z_A05$b;NR@dzwN-#31u0x`R3Of=y#nAc~pxWGD2A$ub2E!p3Wj)EYx=0n)b6zTMv{
z4%_#+?Y9=dAuT@l^k7d&2?yoTaBiajvz5h?`SOU7*I<Ea(C8SLYbe~i22_6<v^(eu
zh%h;y)Y^Ir*EU?`V@J~x1&DYCWb?0rLn-A+t)JSty6&=R=9>ptw442Hv=$PC_Gl0+
z6YMXi%p|#@qGG0u>0-MN`Im?PpcD*(S{B_Ot^yiDF=X(;$T9E_(RP+D2)}9IwkS#T
ziRrknsNhV}Ze(f|;Z0(i4DA>bndQQ<L3P1qviwY+t%9R}lxH<tRCo3kg`6{PjeWRx
z-#$Bk#sS3r6U+TZ#6T}5xT=?RM+?^kjcJ;O(0(9sdgdBlzup0De6)oyq$MDyloU03
z@LTl{ETLC#Q*yuiB-datmzdZftKLn)mblTfqUGR+`wop4R)DZIg9xekYv1tbv)?zP
zb?w?Ud(hRHZT(!(C~-`OO2dBZr;X_La(f0Jq*)bnbMsI=1_p-HG&GlR8bCWIx`Qy%
z6Y?c5&enB_->FS)){t4$#=M}9ThwE!jgjC8R&O_3b(f>C{`BaLJk!qXfiRo?WvWg=
zoI<ROqOGlMJ`w7e5MudqNC6&!Dw-M@g}F1>t1iQz4iFpxL@v3z>8NCA_2jw#`1X;e
zFCRjsd=hs%A@=IyMIL$ir3=nhY@&>1iB67wl5sGa#(>)Z=PRXC2*^4$Gr5ZdF@-7M
z8lCByYD*I>P6Jn3EelHOIrT^9=jT&TiWt-f%RX;LC`hr_zgIepEovf*?9-I}c$&LM
zbzMU}v9$iRNHb1nWT`7v|KgI}bdwEN#^erolkMdMo48W3r0B?+Ex(9}QV)TbVS+!#
zMaB;OE-6NF)tw1vt@ghD+WJ-kT;I7HqFQ_|bwdK7-F^5eMJaVW!VksyFsd7*r<v5A
z0&e20-|xrzQXxtx#B9?qFYWQ8M<OR47wEtLvc1$I?rK33_Z5W+oOH=W!>d-W@7#%w
zZ18*jt^Y)01%&qK@4|qp0yb%n`^ZNMoX4fY!9{N@pE>bMREMcO8PPP}D=#f=+m{Gq
z|I=*=FR)VxxnNOJz{jI;@}5C~rXT>{)4e({%^F~#5GnAASTw3uoqfD$pr3=0@dhBP
z5G=2GcdH(&aT()C(e{ikseX-RX^WEA6v7gqBS0Aoy?1&RMzst}-+cGa`^sJHwr(5h
zGTu{^^|{IaU0j@Y-`R%8r+gwdLv|II7_SIPm$S!krV#$}i7-ue0SCD(<o^BpJQlq?
zIM2cO*1k(;UVxji;x+&l<)kytS_>@0pp=Vw|F>^<Q2@d(!<`sIT<*zt2T-M*m*#Vf
zdOVA=l=0lTD}cO0u|x=}z!GN=s!fN=%glDzbV`#UXlTO29efDYb~QnE05<{Nz+6=S
zDuC-1)JGL8hnWZkKpb`@ErvM;F4_~0+zM6<za|4Pw;ln$(y%IDPXyb{c>S6(AwIrP
zwLmCJ9u*nDs@?)rx&p$<q5xMks7%bU=*uq#78Q$&5_akWq8>`T&N5f0`DodLXM@H-
zI@<xzFZlKA3m4P9R{(`{X6Z>;43!VWjX+@U%o|8iVs45ORs+zEZ;NipF>09xtkem}
zl`)~SiB7;eR!Z+j=rZ{U7>`Mc>4N!<ROnC^PxA;z$!nLns0cgGww_cF87`jE_W-{@
zRV0)Q_;~2hCMzaLyTHyl{P=biR<G~k&&0@xO0aM~i*Uds>a{srK}qA;V1F6m?F>=@
z9iW1r)#$W<{65>wiE0pZHcO{<K|GWPnqtBd1Oqsl^LZA1ssKlWu!w#>LPpjw@y7Mc
zzo3$NOSGs9Oxbt7l{f?ik;>JpSGlPCxhRjq|BoCyrUE5EE`V49r-b*>+YcT*$akmm
zmn;K593KyhxQVY0q|fy7!k`_b6?W_Z!khhKdgu>O-e<ra)!pT&ZD~;$9v((%2H<Wi
z6t=GB{f@-m6yRhsNaD~6XVJ`mKeK+6jI15B!`hn^>^kouSp@pe%fUlMe1I&U+CYO9
zr|Ia}a(ZTkDnL04v-@*x&}+VxoCV&Jy1luUrktV(xjU`pHKzom>)U|jASyvNga3o^
zQt=qa0!F|g#s~lig|6GM^j(VJr13Ub9t^fPMoB@TbL!M7>_14uxb+G(pZTp!oigCy
z<3zsj88%WTBqpYMl6IiPvnk7<<~1EnEwcpR1Rao1A_wTM{*$dS&S#)rKn?R=%Sx|3
zZ+67*fBwVj>1gQ3yR9&Jmk7(|=;MPeK^f}N<Hw>xtLWh%ot%y}`dlVZ$hiR678S}b
z@TV14WmSFu64D=`<_I~tnyjpBKBIL1K&useZt;VKcg2px=~t8@ykYF6KOUvU`v|{!
z^-3e_{!>U|OQ#4>4)MS+iuqa?i;6U=o>5yeX{Yr0e^mOfUnfIdssk`i3BY70ltCdE
zl_a4sc=+(4@3UvOU{7-Grxd?bSDOOekzu=6@bIx?on>o-tQXVWu2x4BpALb;M;_ms
zZSaE5<LAAn-rg)69JgR08!#kp|E+S*fddDe-L!)0;z4LI{rUMxfaHqsC=P&}r)X&2
zgI`VQk~U!Qr#K!Uk*nM6yVe3LT~zSXyZv}r>@=To<TOjIK3B@Mr$?syi*mpoQUGQ&
z+|N4Ya_PmFcQ7S@{86Lat;qX0ZR)dUe;hb?upWLNC=4o*2Oq??en@DSKDZ57Tm>G2
zB5ECK0vooov(sDbkOo6Z>9w^t)i0d^Oqd2^$Qn6@{^dIxX6x(gV}fju+u_7iH`nF~
zFeaAHqLPXh0$|N$sfm9DaBZ5+NcB@u_rTgs^<VtZw@|<e9mNi2sPfb0zuF)tE$ur~
zZ2^P*q_Bw*2yWx4^AQoC1TkbeJRI=x?yV&GC=d@MnfF06=!+hwfpU^OtsLkkl!&9H
z^)s&xa|Bzm#vG&X-Mi;Jhm0KE(?N2&$fVV$Du8C8d}mj}`E9XGiby|=Xt0N~gJ_}*
zUY%o+<GMEIw$c-iJBfG!$iVE@T7%U`{^8;t^w0L>0L1{9;yqwX3MT=K?_t(oawp6;
zPQC~^ROZUCmtila8`|qgJ7NlXvwqw7Q$CkvV+dhD9vKxc48da<UU0HtzWDz}G^O96
zz+0F+HjMd6_d5appoIJh{yzhcE@)L!5LM|P##}J$_@~yt@)ku_s2(oQad>H}0v9uC
zFZ4p#&rR>ZFJcOVsbu}lf?+VFkA7e3-|+IM%))=T%PU`V`iNg>ua(2Sp7np9wBPOU
zzd~pAu=RzD7gGwWYWcxXUcP+!{rJ8sV*e_ZQZg9pe{NcRp}i3;Fuiqy>y5AQQOx@F
ze_?tq9TD~lg&pnwd!snh4*e6YUgYnLce{!Jo&F!Y)&JHu#(tKTmF<9_)LG(W1tga?
zB!yJ9%xIX2G=WKHC*Ux@(B5Z)$WadT7V0z`=z;?Sw{!aB$&svu(yz?YXDYt`zLyKf
z!S_%t3C0HK^!w+-Q35vCK(KTRB^Q?!Q<P+0ziVt9wg$QYN?!dQV8nsM5fzH&-?(1)
z>9@rO3$T~}e0T6T%>`h}-%9vQ*S=x^wDYQJ_?D?@s>k+<8ce=x3b`yNqe0m3$0>fO
z|7Mb|JYNL)jtTUF@$pR&{4>$6b9K2xz)yl-Q3=|{gGaqjkO?~@^?E%Yrs2OI-&6bO
z^gqDu0w<7%P-mXQ0W+%@I=bW!QJdH8=MULHpeBL3!d3Z@tChK|=x5zIb>>Xsc?s`H
zxZ9r9&e*H_fFJx)Q!@jPdVu0C7-+J~IX&-T1xC{(2*;}M#4vbQ$GaP32*|a8H{1E~
zCb={n@IQOu(r>CJ_OpP)bTBlH8E`J3l_Kk?DYO~kfhk<sz$j5yRiG!jfKcECuy*6d
z4Fkbu!<;(PJSgW3;Lh|D-KQLqgYfu{L^*0&A^TcjJj&fsu?e_H)B#F`zCznnf>!J6
zhoA2M_B3fffNawEX+mZumqGoh<UqiKCcuyidG3_XczXfExG|g40t@H4_h~<^xQ9sJ
zh*SVg%GJjQFETMn0wp4!qy!lNACC?R@OP?GQUIdLfzO2;Y6{fc2HZRkbnx##KYQWA
z?*MUu^EkcOB^+A$!%a$VLqB+EP8<{|b&#WhCwTkzEigkqC_LlZK0PJN5iN&sfzpg}
zk*xtZC}9McGn5D*?K{p7rb8}(svJU88jQ;U0CCOwa`e=x-xWeICDe}ict94e2_#4s
zI6R`%Eh6ACLk7|!NqvwWc43@qk?mOatQ9cv8o9>9Z*P)<!(Kmp^!Gm))ayhXLLTw(
z_={7iF#w5-p@u_r29$K*5U7oibq9+B2-~pQ4QxcQyNHmG2Hv)m^FCma7mS9nu}2(E
zeu5`Td{j9%poGxQ*PUOrlb1b!1pLnX1KNKALg@naw5@rNQgfp@Ux~Yj=*2n96}w_6
zVaDlVsh@(mBwu5UooIX$M2zAk^ZgwhOB0~r1YERF7vLvs;JVNbG#bE;@qiH!OhoMp
zF!+!<ef-C}FFQ?}_&!E9Yp)-}AykIF$j8Umr$+){>GowN1#bJ@{zJbOC+!C}lM1qG
zd_3@H!b3Gyefe^D9;kpo$RLq=C+pozqKD$Jv@4H!_bvP~$V>S9_;jHfFW+1-Y`kK5
zB*d%SehUBn`*)Fz1HV4<!3#i0fWNUg_OfNX<81dUz0Kg@Qy{sM${;Z_F~I{NwzmiJ
z*&B7&oTfW)iW>K~fLKspg{ep75~ulQr;0(pv$b+>Pqcz3ul}U?^{L<F5GC{MF9s|Q
zR4ri;0pj5K6kk+KyC8gnwZgoeBFvWVLguV=jXXS7l(e;k2tAtPKG-QR55ytD<F9Ui
zD+D?u5db)N*EAwGP??w1e$l7uEfAn-K(8H`CPZ-VD|-8{O^SpmE*Xe)FTWahKpO_-
zb_fVys$iE0ZG%oE{?n&V%TUr52S8~Tg&;CCKERhdRHTXk^0<I*l1#aaA@0iy3PfuN
zx&8bAcg-C4^#VXDK8xODts+}0nENc>Ty|`{BL6!>#(w6cJc`&e81e-o=u8TL8$>Ju
z9EJ<>Jos@JQG%fIME~TXEpT2kECcElKp(6X2)#}o<JNP)Tbup-G5pk*6^p&@bDXyA
zy?V|vJPPUtQxFcC5#d}0zQ^fAlAk?$wl^w`U+<vpceUWh5bn%iLwk$tl7NEj1oW{o
z`BehplzNU|M}onbFdF(m^9Lg3=sG2IVEidLKdDrYNXjR*6GxckBWsmNd-m+1f)If8
zg$6?(?p1*uaTL_Rq8a<d$f)e(-S;}*PTrr}KGgvu%q+MgM~^BOSPo=cl$f+LiNfH1
zhK3M+8O8=#q1y!wpLQT=7~)<X==o;})@c`%_iljcD#eJoV{wlUkvH@0afb#Mv@Z<%
zS|GfrKr=?}4OarkaN%ic>NF7ET!XL%ttAaaA`(Zwe@D3sc$hWdIaR>O?1$Xfrr;z)
z>+}~Nxc%!oEFJg}paP2W0ndIk?>j~((w(;r4S-32Ux+Z_5=9U0xF{x8&M~YHg)gsO
z^-&0v&?@U8uF~|;3p>g}$EOXI4gle1fS^S-0JDs76EU7TgiPHv<9}U@l~sAK3&ffX
zBB+lFEl!?18Hcz;MGgOO2y0XDNCq|Nb3hO8ZxGOV+U0F8Hn5YOlt0r~U_}6KZUvst
zHrC5`{`^&V_|8j6t5E(dgJjqk-lS1z{noVWeF}sk_)DG6pZuRYv^01seT81Yx-w5Y
zMUk<<0vejry>u`so9GTfJF|4rcZP%<|K6uMEGOq}Xb9d0HrN3+Ypiz%c$KgLOEsuY
zc!7{a$o(!yGO#1zV(!H#iW7SiAicR<lKkglg(0U|_Czf-M}7SG(X!7RaxWgz5IXrw
zo76nU-+INsvf)blkS!P2)(BuY!0+0cLsw`8o<W4erzJW_!h2C43!9Lhx;vK!pFNs!
z>+obD(Eg5&xIySo+{Dk7t?3k4Kor;Ns{k_o-Y1)Nu%<kt7CICkz}y=1+_khK)5`6j
zqc@OmGEkg{HCdY*pnLw;?~QSQjX8ASKvBL0pJwQGU0oe?bzWiNSv=a7o3*cl<>llq
z%L?G*A;zIWd8n{bAj7;$(qq#tzl1~13Omrp2dwQYESOhnE9bArp<=G!zNx)_3{O>&
zSHt-N?a`Tho1uLt#&f49Zy?)1rodewN}k|oY;1h*(<>~9!>?Stco98;COWXlWhFIU
zJg9Llp1BV+umH$%<do<8i<F?f0Tj#qtVz(mHP~q#Ff6DW-o7pJH#9L=w1wLBib7<I
z)b}4en7Vu{%V@2*um{u{2G7er(1>wa8Rn?(;g2kd(S2Kf`pj9Ur8AV1)R}^hKYm*v
zM7EoUa<3VFX*T9Dj4F82PZF9i{ELbz6%$u6LkiU&dXOn&;%T5#yxg?OvQWMGiPp&a
zgF>lVJc$%$b2d82ET!wdACo7*t(?ZBOs)3)(1f%%A>X-_+vh&6!2@;XRS<Q2y_3u<
zbfemw&&at6l6|$qLvX+?hlepS3T~N8YinWapeoVjpitsjADNp_z4g+nR5w1?Ec_g)
zzi$slB=eS9IM6|kjIofA({9H}8uY?rIi<l8(q6U8=-yNWCY9`DKme_9A`nEzqqVQr
zi(|7i+C7R6|M5p{zFhU^cU8l+d|!bE_+s8*4_$T1ot;6_^NHmprC|b|;#g1}R_`wn
z=E1u>RB#)CThZ$zy|vjd_ftQ9J4vw(1)B%lMCR5z6AsGk(s4JeJ#O*mns~(53nfyn
z%g3FT##!lAaVAUSG3WOX8Da=Gr8ip>FL-?JCLZu)JoCljVO5JlIlg*jX({M@mEHG=
zA5j#Mb^0v$_2q+sx)hZD#nG;55sx6hUu;;3w9;xVDmk+fGPBo7oSLj*nt||cE_1?7
z?|Z*)`za-k1K;N7b+Lp47_aw7R)R91E095i5_bxKb_R(AkNs%}Aj_D*n9AMd(hTjd
zuDqxP?<ebk)mKmqyL3qwVBfkBpZkhlwf;|kt{vMcR*KzO6Yz;!kw^00V?{)?;CFfp
zZQ|amrv3f*-^(z4uL8jymE&mx(BRJ|GK}~i0xD7S+Z}j7NXE~f51L+cG7P1iX;YJl
z5%(19;{#X1!-Tb9y4DLnKV_KU&K~dtc<S~=^-u3Yfdj7Yr&?~x$_5j?C$M_zp%Lo9
zc89L#_FPk`El_!NQ%<fkg!MTck-K~NCHs4dVvp_Oj6n{oDbE8oIXOM%>N<9Hbyx9^
z`suAt+6YAz+cNU4d9VLzy<JRR+SevlS!y!~N+aKk;aeqOCW$9#4j<mZOP|)gvTnUH
zt)k6oP$u;>>GX0-ZTl~Q5F@r$&A0q>O-;kS9qwKMGp*z4R%{^t*cAw|B7qPD0PUjh
zALnHpOD;vvG^N4E>zCadJhG&A?8X$tdstCQ%6Yuyj_q+10*{(#uhGjU)xu7d8=pbu
zH0<r%U~;~r=`++#&Q01SXU?tH3X4H!vd&|Wq@4rkK!?7H)onCW9P=~r8fmWFw37vi
zI3UZu3|8GI7-tmi%v2Mx$MBNcEA6Ps(r(Z#U`;+h`%8UQkj6x1^2EuLojFDdxHd>v
z+Kl4$VeIU<V&H`GSEAUp3eWA*+yOTG4;@PC<aMkXAUC(-*toe@O?q=o*xkd;pS^~y
zE=iC5=&l*N{Is3LPyBD~eFspK>DncuGdhl##)u${+F}GHOV&}rmZX3npx{Unut9Bd
zzUt_xh+`v21|<myh~(6$j3N?Rvd{u5IU|`S?Ri1x-@mqQ-L0)#TU)hvYO3yBh3>Dv
ze!nN2bDr}U(V4D&%r%pDl4OlIjh`;=x8^wB-lAZ{6wa(`-@6t6JK)%(Ff8}Ma;Qy3
z(dby0-HQZC8|J#4f={wv)@@TxkU8e&bnMcN?>?^6=~!_SqCf(3mIg~}q3oc`^Yim3
zLghmEb!q;5eA-%j<o~6--aYm%eo0=6YbphbA49Ms8dRzCQ?RT<87&_JGWR0+bfxB-
z{^u^PQ96pAicT#_4;C(1Kx7I8iqnZdsT3i?k~+nine3Nebp;vNr<d8}KB<PP|Ng6U
z<*3D<^+;{t?y5-$g1gl0d0Y+&yU`@{>t|SpP&xry4j#>&&kt_|jP#vW{BozT*u2rp
zVOD+Cc2A5(5x;ZCW>}Kx<NRwuW;To|ls6Y7yTM_<159L^Qb&44urgVXU(V;QfjGxW
ziA^dpS_DTZ{*xohGnoEy)$`JV^?gm+6p$(j7*6a!ol!%s@5%k;z*#Yya9p)~9<g$4
zyn9nIzOel9=jB^9gwyo5`=EqmUjN>95z=54`pPs^ImrJix{0SxAPueI;fV#1EX6WC
z@-@$K9r5?{zI(S8GLYd{>y0`91_2?k1epeWGVZ&Di^$zJ<jp~|z=6tPs4CrcVsN93
z?PK6|U1^SAUnQKfgYo?^W;I8kn<&O%cAmnCtAG02Rm>Abp-?`Io>chO{LD6f=g9Mp
z-tWBmq#xbjcRq@ilOX!!3V=L!0UEEur?o|GrotdiB;j^sG2%A&&w*86oELB~Qsqk_
zkQ2g(=2!3&Ww$oU_-fb}Cjh`b#y}O-()(X;8HpkRSVn8T8R#)aBs@BIu_ZO+zFebN
z;E4Uc<ZExlb#e7h?FHGmZfBUanjp#2j3tA%?Npg=_o}!%Ha50bb>0#jdbpsY=vP35
zl>=qAg>M(ZG_2XsjUHkQqey(yX=_&3kD}17OPi{RGUun&-(Z!Gf|`%N2X`MMfddNc
zT@@8Mj@uJWO-<3Xfc=*qq0~3@n6?AWp^=m~8b~AsPz$L8d(}cgc{(jD_G=Hz#g*ZW
z=5gV|g%b2O)lJfu4--)k?*2*m$kH0JtE<~kIo86{HwnOeh@6uqOwbgo5)7n3K%OMc
zn)}RzIY88D2mnsvtSoh#AN(hu?`qg~84H{R(*KiM1cXQpT;L)g%(BE(2Wc}wXvX5U
zTHwk!Z9z7K&yWsLC)W+IDQpX9&y_1b-aP*G>*JET`D=n_8IV{D<YF0zzF<<SCFrFn
z;d!Y*{|MX=ZTARp0ZZt}IItNeYA^CtLu0aag4jRc!nTNkeGe#YQ#C^JiG#rlzuWK$
zT4QcqZ(fP(k-y<Atrp`9w8*G&)(fBBF_?UbK6q+@%$cZTzJ&4W0F-(B?AdTwGG8Kk
zsu+#1(c!NbdVq;4UN50W)rbg0ARQygtSm&f8{q>rFNB6mDbvBX4sqy9BZnOEnkYYj
zpGCk0PZRYp5hO`C4VoBw&Rs88=1y18gm|#Xzx(;JQOT_n(x*^KCRIScbIyC^fSaMp
z0Tl*95gyPOJT7rKf~41na4QNestf(p{A>N9tJEA8D+1IK9F4`BKQ{;BxKIc>_G+#E
zLjci7(CMJ=+}U@Wi?uBrI?}Q*#iWjo^JoZnqi5#$m%ja`1;C@nsLFMslU4%KnmD3%
zOS7m{Ld41hk1Z!5H~*d=SIIjM|4G5=sqk&eE{9=b<f^Sok5S=6(^dhrI2Q7dZm8a@
z+3a5Xgwt7?IB)s*|Jwob<8ySv<mVkIxs+5JoF?FopPQRUFnD;r<K4qJ{j|7W4;`wG
zP+l>O=u!7NOlw((*EEJllmM`4;!ff~q@l${<0*%pITF22JR13Dr}lsltNe5GAzRRH
z8OAgCWe{@pDdu-6vB10nEH5M(WC&}yfF9nPKcz{ic%VVrXaIqn9SH*-n$B{vPTszK
z`)=@@z*nSoemezP2bV_-<SwwE(|-!_wBOI?jFXJ0EqyXp^9V#jIw0vzLN!C!7O;qZ
zrDi^1VPS%*{^76>dkm?V{xg%CyL1zuz`jvY;Y`)M%@^0U8)$cd{Z&2v?NA=<sbnDP
z#N%!|KJXhjFDkyV^2R(Du}#Kc{_uwJfci)PJ!fp}d;fkUf?($zsm9}A@%;X>a~5g^
zOcDqF#Tj9e9K37SzIOu?h{NJbU?|Dg!IlSN#&V!*BPu<cyb(VL5ryKbyW*VWtv~EX
zqihNDGMP)Cuc2VE9qrK*GR!?iq%sIfDVwC4rOlrthltERfSlB&FH0E@UnMZ3HRz=w
znzO_m=xWHxKweCUjEr<G<X^KUk^qQkJ|P9U#2Y~YaC1^8-uHXkRfwkbpDuP_&?hL=
zxohXESFflH=;l7_H-`QBXE>yUU1+=Q^E|Dp9zVo)WB~~Z<eGp<9>^dz?r~_H8|LQX
zvQD+{)u$2#o0xCspOGMPEYQk=TEnB4b3ZtE51<^Bn?k2EkK>umhO3{izki2}83I#%
zvhj_V1qF63Z&m@q1W3IDWIRC6a(o@=Fh9J8N8t{l&_ZwPgU(q~lK~x#8?^#(n;lsB
z1tHCd>=FP~bk{D#aRTc^)dbv>iW)LR(Zf(DzS_<m9;^W%E6F*)6r6ci5|BBPO3NSp
zPU!^8oXDxigNaXADn6P{V-whu;1BcaVggx_2c10kU@3pN<%TSRGP$HL7_W~GUl)>O
zoScFM@(ypp5bvSOj7E-s43vo!-{c_meUL^TRR^e0i%3Pne=nLtA}Q?Nk7(gO&FMr%
zK)yHT^r!(ruyA^XhnIX6NB?jS$BfuhIgeE9ZleN3c$2D#o*$x^6ZlTj9QqAOXaKng
zf*I^`HL&3kcz1$Ep~9%iVbcRcVPkBoAhiRqK1hq#tXvtsXxYXN#9D2@!VRz2tXf3|
z&>jO8Ca;0e0Yd#D#CV{hy?C_3>A2t&#KVQ;X;T?=De)H}YH3h+6yQv?69kLGasu?~
zIJ?%9Y8vmG{4+Hipn1_<Fij)_0H+}w+YWFIiZ84F#yrsgRiepJ50wk(e_v2ga5Bf9
z<_1Tm?2Dg%^)p7I*hNM7JeN-OaMVFAC(jAR0!OUteR9Nt1q)73A{anB5fAZ$x@LXM
zA*o$wvQrf%T2{}!2-FBDFyFttHeY*kwbVWT$HFrbx6}lEa1!`kdPD#i;+(uqi<4{s
zc?L<}Fcho1cI<dV3nO|>N+&QB2YEk3p<m#D)g+=GBw0!mb$AzkkP!*F!%k^w>85G*
zK=IfEOWqTd`&fL$>6M*!(MU1zctXtUjBulBceN!kId5qK(yy$c=eDSzP(1{LDj~iG
z6{*IkLS9?&>h2WKC7Ee8EtDY_*w=ploytJ{#h?X&J?uuc0GxE!x5DNCGqQF^nPYPf
zR8L(GZ}7jZkaXKd*VfjK=It?^I;J6MUh=#A)Ib5jXfX5LoL$}spvteebX3%`BJw7?
z5QR60_pMY5(`|#hV_ZY;ubah_RGoRr`1fnqGRpu}9A%&-_v;slQXIMo``!cTG}Hon
zsD#>JPiMU%v0UZY?t*(?q-S6oO2Q7)ZE}~mxVX`!h>w7u(cOkpI)MNdr>k*z!;y%j
zM@gZ<`Ti@+GLR1Uzjr4i-kYU#LQV}L<0^Ti0r%{#yfYN3ICOgXjjff-Mn&DDnidO9
z8||c>>_<5^0+04A>r~wcrDeMEtw68Lc#UH<qn<VBBH&ZsYTL*pm6*}fC*kV)1Ple~
zTi~*cQd!@-{eb}FnSPX$kB@I=OQNIop-cmGn(#iuz+oVAd0@l6bt#1-<3M65H+OL#
zd4iG@*-V8YW7ic4g_>&E4#;Ln4F}~+66KOEbw2%m&=&Pe-xr`t#uQSC_#KG|fO9n>
zvS^w{Qsoq2K9lShp*cy&KqfNj$bKXT0l`i4m~|)6aGX&-6XTnS0Kp;l(y}%#*_jm_
zx>Cc)H&~#~_vwBpSy3(%H6*FUpyIGiSm_`Wa!gIFbnFyQ)b<CJtIPZTBB2{SWLVOB
zF=vPaDboSAOq4R@c_1rMhz5yyPU+K{UEj$A@RhJ>JPm?e6UhP@oahtq?5oa;6W-n1
zs=S7uzb~%g>-Y8H$(1WtQo(6ZE$sYgl0jBR&Yw|~<nOsSi{Bu}O37=(Luf^;@FtMo
z68M@uT33AsKwLG>DTN9Fr|?BNDIzGOSfF-vhH8jt@@wz>xUCbV$nRbGm{DLvLUJU?
zmPDGmM?uSw`n>srQ+o)hByewR0RoU4z!=7Ro4Z^+?5O-Ol!n+tBB_s{8Usj7gLN(5
zFBLZy1R@V4^GA+YfR)P<zVo$%uwDeJ?l^v$Xm@o*^%>pK*I>0=jw0mqy<~jVkcqY?
z%aStuL(MJqyYa{gKP_KAdUQ`k*zUw>&?J3fn4I-4e6UkXP)kwjSd!mUlcJx`WM14{
zJVOAL05N68Fe>CWq4QGQi>?|vwXUUFu&T)*0JQ?TCH;>IC-(iWJ{DAJM#Mf~S<6wL
zrMXSolc+^h%ZWz$iKy6j?%Vfnb@JD5z|b7Q!(+ykT7e!Apb(HEU4#x{Dj~$kR}5uS
zrnd@S422v~q~e}bj*MF+<wYaYbs}?wSsh7(03Txr(75fRR)B79m-NGT)=h*~C|Cg6
zx*9^_f~0_Z5cO<3sET8ZVf2;V2%L#6W6<QU{i@e5Y_7Bk9LFzag=To6UU-CFH1qYb
zz1;*2M%0W)a6|4SO1$nF`VWNdrdA+J+kplk_;_*plf}7(#@(gUQ&YB3*LI+NC#Ctx
z4C^xxh&aW$%s*S<Z&IPL0;#JDKp5V*UCvXaSVd)E3xOt?D$<1<3AY*l;)vqVCSpzy
zNw3JRgrzw91eeu;2I~QYKKKcMzMy1M>Fw&(v0BQg0~~k@p~a6yL467~k3skmq?M|C
z4-cw^)KV1dQOc|weE%dqq0%D{3D_lYOo$=}F?y5T2m=y6xFmil+(t!|k3&A1nwkPR
zDOO$Sj@(Y<DuhQyT?*=g0s05stsR=MBZm)nK=&dvoOSKmweu)q5_tuguyFsqZ}o)o
zi`DZV{`sBZlked98r<FH0=%E7@w^2T6A3qg;^Kahi6(*{0WI?Io20TPl3-m$%==Vf
zrX}{p)x}`{^^s(EX+?V>f<M8!rH+A51$B)_2N090NTUE@P&_aLl;+uRSQ!D6-$_;#
z$hnu{9f?vK^D~6)#iIl*ff~A7O$>cpUm+0M{Do-GKt&ND5#WKh))~dn7<AfZ*8|PA
zM6pIx+-Nbu(h?OoQVOA;iGCi?zuaX7^bZUQL`_7^$=|tpqTpxK`OkfS2YDdTZeFI<
z;;~n~S?LAfCmv2A=TV4cjjqP4LF)DNxx}5VTehU)dy>o0$iEpTOX#f;$9dB0*R4uk
z7jqPI+9_uM_@p5R@v$*NGtyJ11r<+;M5wLP&1og5yYEvFBZ^E!TPGdY@P8BOaDBK8
zj?&84(b;0<8u@Q(0j|s_%;AxC7w>c&xtg$fpO?q}^^LOT`sjDD_3c{Uy+#TE_8a!E
zYCN*!8>o=61{xjo1QsZKvJv!e%Le~^=bI4XxmxruQXj5r1ARJe!}#OTt8c=Lf7e*w
z_*#ego6EI>zxS9#Rg#bb)IfuOU7+0gVSGzt*8E>?yI<FlbXjQ@fE8<QFpcY%upRS8
zL|j~9XUWjr_goWyeZ4r(pLbPTA3x2oq1f%dzW?wH&wxDTtH|lt<4O;I@!9-?uQn-#
zmbg+5D$V!_3`pnFzLv9GhJS1NxIV7^_FG*4_y73#BW@ni!;pei>K-`YNmw{C1cZa{
zSJ_!II*wQfjBqy?#2+J=X{mq16(A@63&*&2??vU`<nZC-x(kSW0ZdITExWc79x^sa
z05l@s%xS<=vm-NC?nWnlVUyA~#n-k9RL46&ch584q=f@~!-z!G=z`Duj<z4aYf}FE
zhZ*JL=9VSk@`z$h)Z~vjRdJw*vC^gA7g0&#tnAbVTysly&6)+@1R1|v<(GFp%0QtF
zO8uTO8{!TNv@po4KA3Pr8GyQlbGmRG(pqsyDytLE7(kemjXs#*BxkZNZ&NY2QSd45
zWJn150o)NQH2!*{rcd;yF@IwTB0CPd9tci=*%KfcIrWBFmyckNllHuJrz(qXj^EhL
zzLcO7{}m<3@m}&bK=5KuFMO94qaH^Irp&<XMVe|_W^IB&yJgUWjqh%(5U4@g!yKO*
zB#*IpmgnR*^k2UW?(X|~thtPaF`A?du&`Krw=*7jQfiRlG~@#l>DQgMmQat79Ujqz
zD+CmtKv!giT8s3agc-E(uul84*FFct2|H+ebgcodKZ@WCs?-t0Js5?Z<e=0g6$=U7
zz)};ZNp!@j67*w6opXEW#*mi&sdmUk*gi+Ta_E7`40?ZAzU2Vw=z6ae05f2<R}zLz
zyD`*4Cf3-^Cu~oBgAYyqWZuez#3taa?S~F*W_X7t(-s{S+6OX&igJQM$;0x#Teoi)
zUoOG2Gbn%d{C?vG>d!OB)YbjaF1xzs!tC}jrbHW%@*zJP9(P(Mpl}-LuNE2oj6{;M
z*M`khXKXejLZ<)TXk+F@kV?j3J|r$m!o&(0;R02TK%ZUKib*6KpK|O8BO?{MlQ2jo
z;s56z#D049CwrNYF5IZlGE+qDKq;G0WJegFKSGg&%SWr<g|-8o&D%?T$8G(;Dpd}k
zS7yv0uXoR($Qir+#h{f6Blif?HEKvoC^$Dl4$c|t-%G{UryM;B#)s$`Q2Qp44jrY(
z?A<)s6^xuGLyKqnI;H71Jg@wm_2~Ame=O!rewlp5bNz!YHC?v~UphaH%KV98T3ZqJ
zxMRy7iO=GDemZ4!`uOpmOzcjaIK9>J{@X1(Upa;g>n<-62`DNV?!SBKIz>!cu+!Yx
zxosrw*jiNwkIA9oA=|N-rs>{(DcCw;vmx=jF2mPL7Aw}Ft0LQIs@+_ZTpGFuAFgoQ
zf$bc%10qR^*h3c$n;l}fLw|R0ajW7?v*I(59<W>>+Z)KvljZwAdXhbeFgZ$6x-f*o
z$)!xD`-$9_n;NQCR^0=qu!t@71B!dB8FA~<+G;JeW_iE*(J45GU2?SU!`#>0+Cy|S
z@N*>#2VxXPVkfXm$sg|W<|XXtnRz2PRVp+PqXWq|;;Svm(u_GDGaDNgF<tRdm$A5!
zK~`%_o|t8}ibQ4%m)f|C0n&D=&1v*aOiVmsGl_Laa@5O^?%uWAFKhSWhxK0Lus1UB
zhP4f)2+T$BF?4BxFtPcENJA5F4j+>T-Z$mfk@-MI%eK8vQ~<8pwKOe{d7HrKCl8ys
zZJZo$l1+XPp>Wh~CL_1YTU6z<u#cnYBY(94hb)?-WOY2coi6jG(Qg)2UOuIW<vyCy
zu#x4>O>;3g<noh%?Yn~!h6-e>MiGv(Qr?ug;-p?9cD0!y!jd(e1E<L6rNB4yRj41+
zm+Zr$@~?Ou@c!G4sXa|E#f_Qda4rK6YDWiJijx_F&YE7ennR1#Pw?i9m5**wXAt#y
z(Z?mj*RS-`W|xKhX;Zv<sJeJ`xkGYF!EYCAVB-b{94XkJotoQJLwx8Yq2O}e1FYdF
zWB-e@KJ$*a`?k?|G67nVwH*^lvz#QdC1(P6IM~1@FD-FQD%E@#6N35GH^-DF$6#b-
zrpgvxb*jIF<uNma&0zghEG8swVsbzM3S4|@Ez^caN7rRFJ(PcT<H~tK$$78ZDdO#i
zN7m0|Akq#0*s(|Hp+mtGVqPX1&8B579vtn0YnzLG{?i6hqf@A42T3r3BIF)!*EJ6N
zQ;@2JFXxk+?n5D~zHVO#<9zi1Tt^Iw<gh`m1SQ<{f)3{mGO?ea&v-z7F2^+oTOY_e
z%%YCM>tsIEADv3N!V&KmAZ2~HL*HB!7r?TBbQd;UxG$vLN#2i@VLlY823sxQkxY@M
z&@aR|5oCi99Hd;aT2YmeOIE=kAa_4&AlBV54N_xZjnEEIPHupAq+BO(1TGVC4Dk~p
zt9=rzC$CH8Zl(?f*5(S5=g^0nUxh=y7_v4cyL$gRU<~REva*G2JCSqUQix>G`slXs
zTgB;0McP<8%e76+hk`k)UVp1Fco5Ds%}#ny8H%$*imdhd<F7ugRu~-{YnRHOP{Wr$
zCVjZ@`+0+APnul66RViq@h4|;B*UhA%)8SYh_hM0W1;Lb^ulv1N#~zj^6<i2%v`RS
zM-K$?#c-JxJc4v`<jI=Cxiy@)pO$HXkfV`(h|<u}bn7%H0%w>rio(kXvYcyDG!t~N
z_2?P!i*~Y1RsnJ3!dN<S`0}A(-OpqNb`!uIJ~bnwfACTUB*CAtjaIr2m^krkB8E!X
z$puSSY0Sh7VTXdt{*^Jw^H0jYTMzTX(Q-{?ha69W%_3RMKn^6id1U`VT(u>j?*OuZ
zuiv>g=Q2R_c8DLFy6oX9HZj5Sz|yqIe3n+|;C=1*YPoJb)>~g)!vJI`bHJ8%u{KYP
zCx~6523GS(W6ebcjNq}Qt%&$qJs=Akotk-@G8@<m%{;6(<jW=YQvtFL)||=76u{9{
zmT70Q`^h#>PGwjb*~XWPg(EC5Mq#*bF><Xt$(DmbWFAHG7TprsqX(=a<{Y;?zt}=q
zL>7p!J4fK_C};T#2RlH|-N<lxvDENs<u6zl=4MH}<=U~#c0j#*198irThN0+#+g+Q
zK*2bXRZU8H4P{+t;Gnkru3a8n4)>hNwyi4G$I?^3jNENDPQ?aFd9KQL3x==>ZByvc
z0bcBHu;0r&7~C$mopfc)%I@<0qw}i%@NX{HN4}X6ecRx?>Z>vNt#4avz8NfS`R4lh
z%_IDOd5K49<#T!X-G;@z4Pm#9QXiI^_Aufac0AlU@75aqc+^rz!(Y$JmghNT&ZC^m
z|D3+QKKZ~(5580VZb8Q-NleBJI*7gtn;9I_Tn~U>#Wbjp*bzPsOvW}iK9R6$%d~^l
zUTR1X4Yi*SsHg;fk{yEmovpRlC{}bVIw>ZJGq$xYAtgoH{i+TYbL6+xvxCl+rlqEO
zZE&gOB;rTx0gtOI7dNx+@dO1nOUO{k>5`@k_U+pFC3k}wjWf)>CjSA)A6N~BKb}1_
zr!S1>2?DHg$Dd`^X+c&Rn5%DUS~?jNv%a^h>uoBnEg>pOy3v5mW-C9*8XaxxID%|A
zJ$a?3Cc0xO_RCfz_vXr1HHKThHcJgPt50onWKyomtLf5Hr<>#S8sk0N1U>o9r>C3W
zdEYH`t11Fqr&XO3rJo>qPQfb8kFt7pnQLl&_tSEYb<&^Z?Fj)^VdLGjH`-_DMQ@T<
zaEq((?LXz>(feh^gM|x)sDWEQcJ%jacz8_MRn%us_Eu#M|DcxMnBKEAuro_^-@bis
zT_u&{&x|p{Z#v87oo`mHW}baE^62W`%F<Q8f(VcC;5*jf!{j>qZ1C;=GQ>aKDFuDW
z3vY%$k7){kn19<w<M%PMc<$`%tW?te{CTkWp@lWIwYp<z`y+I$Zrzndd0Q4ud)-)D
zTZ@kzouBXVSMJELs)}fW$Paf8qK=;o?Ea7|UHWu&F+QoJmw!em`C2f5tYOpo#s0VE
z*XfiLUfp*aE_}!o>8|nha7XTT$gtM^>?9Ic)7K|ntT2W#7}eQzcZ)cs-Mptt-$Qh0
z@t13jWv|8ceNQtoq`GUWzqDvgPY3AbC#<cmtn_JIHGP`y`Xw39^C~Orp|$|3%tozu
z8@y^Ndtxo7r`5iUoHsHu%2qBhpik8sr;a741<Ck`7jEVw`g3N@V3>rgjNlA?<=I@d
zsmM9D+B5o_pa1{zF#H>yr~kYJ*S|A7{eN~l_YVDr-DF>P1i+K}pN8#!eP8r>&m53X
zK%s$*sWFHwwGa8%2n?+cvEc<@Crx%pqn2=ckbbH8j#L|p0YmcFX!qwfDq+F-1Isj-
z<q>o3wm+Ys8rL*x;Z_W*@P8R2I~2*Tp+U0888uTGCY&;ODM_c2w~#hw(V|7yXYGN9
zwqY`+l$hg^{0lq!9g=fOE6*a6itpc{v>-bV$@U{s`VvcLWR?mxJBZlmW?|v;T+x8P
zcQu^u(!HBG4Tgm*Z|CObZox=%iJp0gFSfyurQ35WvB*|20HIF6jq5$<HCf_eR62JD
zUV3gfAMt2LC_#vhM$ZLLSMvUfQw54Bb@OL9!((H36Y!(Km}%srmxz$fT4d=KYAv+V
zQkZ(RKv_ffKN6qG+#7Qr=G}eVn>?}k$}mk|2&^Z&3y6>(*&Ie?q?E~6{Y8sW3-Vi^
z*Kq_Jw)%5ZE=JAWRiA?UOTshc5{J?YFByUgMQCPF@F8X&XL$6{!-6PT7|#9a<ecbp
zUzTd1@qzvlXt5aFi%L*K8JtN6M@=chEzWCLy`~RM!`zztz5#bA-yV`JynG|iNUej7
zSH^KJ4%+qgx0;mmQq$9;QTKI-+N-4Lt4&I#>F)9+DHz*?wpxbmQsQ+{QK7r8m(uTL
zyOak0(UsR0Xxf9FOR?=p(n7sLG=nLRq15Ft@wc!Ed(Z0s;wWToK?{|(qS4gsZWl%h
zl~z}Zce_|MOkO#$+(GJu1YHrYRa#N$HQJaNgV!qka9eOIJaL0M<fHTQ<a-m+P)Y3D
zCc(;i#oy7}TZ*l@eiWx}gC?2JgIGJfr>J@J(E01Xb~iRQ;v2G&k~;+lYU1I0Vs8-6
z3|Ss6Qq7dL405S7m@@2&KrbznVn!RuFtgym)K%0fs6J?$mL-k0>BMAc7tMkymP&{7
zX+V1E`=F>xi8}FH+h{=owyLM_A^WTnlM;kVS6+gnEJ}~|`m(vw!>sgJ;kxgJQ<p8<
zW9CH~NSVDkC+^r=-#l}IWVe4nYMV8lS5=7JtD1G6MfApEj2=r|MXS7OsE#638s;1*
z!+bbA7NcjD2;=T*lpcC7pQH3yWd(DmLp%vFby`93)!aQ(mdk4E>jM*!hW8j5-l?w?
z*HH1n>5Y!3hHmBZQKQ@Hx|}_G_7{Qi=Zl}gcPaSt+nr=bk@9Ktp|%%yP1*c`#wrGj
z$_)6+=16eQa*0A~kDOSY_*PP%--Qo4S@DX(x9o8(Z~bJl`C^y43t0}8-lMnn!ytGt
zPB+i8su;ymMMFd0?x_9%wV=SZpx<%pt6n#Y><mvzviZw(Ik#;j53{xt<%)xY+nA3{
ztVF>K>*`RtQ;-w8A#Z&l8&+h0NT87LGjrORG}djT;!|Rfpu;ON`f#s8&_M?Whei6F
z>$CYWG25v09_J=x`o6wFqmBJVp;pc1>$RO-Dk-v`qhn&s<C$l*`lA==h)L$<<!x<C
z(dkwV{8%o~W6?F9UDed|eZ#wOkVP>Lf8|OjYlyvP(b$!#+XKcGi+J%PIbp6UK0Ort
zTo@CDM3a4@e6m+#WvZas<;=*wzCIH^{w~^zi6sY8BG=_S#61Gd$Z}u~g^;D5Wb?TF
zir#$?v{H)5_RogiWqIZJ&iV%4hk$Y^!CZ@S-UWOaXo?%FH}|Cb_4TRlb>BNuj*nBy
zn?57&kRm>f%dUH>*1K>a&BBk%nO#3t<)xpnMB&^D$?>3c9+#Bw-$j%f*z~807pORW
ztFf|nD)b@7d5PMTUJj2m0b|=4FUNc>NwZYJ&o?wQ)IEJTwY{`qS-6VaUZu)x3$4J`
zh>N(ZoD4@*N$bY<&r!eO=G~vT;N27rFeHm<m7K3A)}4{|$l1lEQua}pmG>|7RHyE4
zD=J=b#C<xb1~+r-Y~}jJD8ro=bkN!pVq(Nfe?DM?Vs2scMeg(8i9bKOT5%_P*`ZHE
z#O;^QspTGNPM44Ahf3KPG5{y?*IBP5b1&Pd%OM-#te-2m_AOD%=5j6`n9yT6>j<O6
z+|-vG%pJ;i@qB-jB3h^jL*iDi&fv4FIx!-&fdt00j6m)0Y!h^fl>wZ%A`raA*wr9u
zKVv@8MIG01$O3ul<$`5WUYWT$IkIHG7o!D>(GqRS=L2h1<dX0kFWaGVVv}C95e-(4
z=D1u7)-P&AX%dI~dtgbI34{%S(kvx-6_d#%pQsKq@G8sZNQ<+Y0psS0^+)ny4?~bR
zS?VC^Sf#O*Aj75Mu3L|BfTG8Yjt2~d>`62_?fT`F9{gm;+PLag;yx~%JMfaTevS{?
zM^y{taz?<V<!oQgm+dM}P7qn9Ms{%PA)aA;o<Qv_kv{5gmuwH-7cCz*cNNju)YS)&
z5@v`6|CpmJ`~`~1mSA|MWh_5A_amxjeA>RQ8&lo$f8GoJ>!RXcwv+#PiT{+p*u3%Y
z?5t8Hvpr*@VJtuHrd`jz{k48E<>UAH890h^i8%~@k4qR=R#b=zTV2``hiv}3v7&;n
z>D3)cn}meYAyLDA3Ec#p?(95GtlQOM8MwH($mrK2`vBJBA8XM_b5QMZE^JQAj7p%j
z>jwTpI{)lfu>Q3O4aHi-1dApEWfz+dTc@W-*gC)A4`RhF6s78OC5Bv@LoM6f6ZP7J
zcqW+Ds`6@B10thubw_yN*<+TW4!5c2Fxc>_Kca^1(@45-6m1rDZ6X$a(fN6KZhyH-
zs`S6Fuh$<-d(W<5n4NDY@0|8uMM;7l(<V-Pmz@#a4Yk(wKO&-{O#gZ>TO+P<6yoxd
zgasWI=%PzD5Q~fEf%Kr625$B-Bm}W{)xM>#`lA#`q4E~pwpXayvL|L2ut5O#%O_Rb
zqYLTtdPP%MD2JBt7!|a3MnHzy5>a-2z0#8`K?@6|UW?JHHcN?xb`9rv2sGndo-R1?
z=wfPUbV|y>S3TE3%}2&d^ILjSW2pM~i;O{+;d7ey)~oJD0!+qm?J#Y~zsj<7rLiFL
z6%u!njeX!Ji)s}2C*y0X?Sd*7FRI`UOOc}0-w#DOl#wCLeAe0B&70hoofEUI(^B=I
z@$vZTXO`7n+14p3F)>R*X;(kBqz|P7DJ3NtlCHW->lbBCa$!BA#Pak(;{lK$BJuj1
zTTSqxqT6@dUuE4MbUQebTp0NA<hgfXro`T1lv&(LGRfksgmDTO&{acv@x8v{FLIjC
zYNRB)^Y-+!yvQwq+QMW=awt8=XxE*L(9lqnX&DY?jGME)!)G;y3bU>0`bI`td`8cJ
zS=^<G*#t>S6h5GVA&D3k51~d&MTd((3t=Zy_}hvO^c!pQS9qFLa)&i+_x<vtZqT;p
zn<_4hERU_WR5Ng?$i3?#FW&uL*??Xu?&n-9<6Ec@YMG{QX)win81TA+JE?MY9#iT4
zpom3uVGK_V+q)`lRM3Sl(5`X#2h$8)O|k0i1T!OgsrKIICKcR9^G?C<uKg!gAOGKn
zLI0Dt{-4iV=V`XztuDnwO#kO-MSaKMT=^Gxoy&PC?4I5nS%2m}=;KfM#IGw0EC{_=
zD5K@7z|>iEI2%uGCO>^(=;Dvwih9tY0X7K4Pm>KjSr{T7YTfH0O;#>l#(;AhcmozD
zztA?%)m(TBj)paJq75BsyT7q_5h$_{EQbL()dRjN3lzOpf=&vQR)mzhBfOTpRrt;y
z!+pR@xOS=-9b=Hi<6DKpurt?i_|f`p)V|!IvP%hbHge&5OTxt*Kfgfep%mer6}#+0
zCqJ|cQv1M3T#BC~DZ&Gmg!>S#m`doK7|@c=Ay66Zr9Q*V_uoI0hV*&!BbGj?3_8A%
z3q(gsq1xEkfFsG^)du(6o7EK;uatKI&=1*aKK8UeB!1a&Og?F5F?*l|LM1-`<UBxt
z^c9e!)>~~!ca5p6sgZm%Dqr1H!O%aGaSAra%GqdVfbd_9;|T(#v}&lPx|$C@`>|DS
zrOU88Bs|ezPXw+qIAi3@vN*FIGV|x{R~WWc%!R=DJg!YZi$60(eH{(GqDS9&MRzVm
zgX??Yi~oh5PAdd#vH>3L^d5ON(4B2%w4|m*larNu#A?Bmb#CQkl}}FHM4@2(SD=-R
zjW_db>ey>sUw!?Wyz{s$nG7D6!h%hB=L-OtluFpCH-eh&gn4=_vI8S}7yH|O|BfnY
z(->^>^d>u0h_@UEp;s~*;5N&~eJE%SX(-DSPfhEr^l9IuHRay*Fq^en3)$SMc_t>t
z;p}IR3r>B(1%TG?E#9`cuQL3~>$5W-jy2St>#e)(bBDJpyYy%M<uVi@w%2sjBwxtF
z?DW|mst#YeSnGp}*{pHY+e7K<PaChMTTUy!(_J^Ew~J=St@=}JiNEx@9#-&3YOvI7
z$)c0uk~9<`I{Zl<Nj#;=Z48sLVLvZ8*fr%(e(3{a;8JQ8$P72-lq7Jj==F*Pwq*^P
zi!I+E5>_ZD)JeNC?D1lC_lNb`yJ97Z16>BER=K^1ACr|{F_vg?{76opQ_2bf5gX+a
z4Kod^;|GoR**H(Tl<#phv((r)eeu?6s%g`-lGpU!QD^%&q1Cgu@8;E;-FfUbn->_f
z_q<KKw~7(=zWeGY)NmWESwBKR$9}hdmz0a2UJ`ChU_=JcSaH13bQh&aO{yWa;X0lJ
zj^=+yayV<2ajE_&%Q3C;9v&HqN~>n#!Fk@&rlmm^h;66x!}+1tFa}*;(MOGs4#S&=
z(9^M?V^ZicB@zWVoQ#EQzP2n58yguNT`pk#!!e9g=MnZ0#Eh$#(+&%qyn_7CdH~!w
z9Ko5Sqk=vS(>!RtE7yCafR%bt;A-+TgZ=ck&$E|rw1JHhC31qRMlyg?(_gF=S&O-C
z^YNu+V1{2Qm^WJi=Crn5!nInR&PRFj^kMV>X@vV&=LG=5QHowH7Lc>Hn~NFZV&B;=
z%HM2lBOvG90p9S&i6lBu+3i$9KL7p1;>jPc%=~8^E`M!3i6mTszKB0$gB$`5Hri|=
zjVD@rEKXD4oF`p2ZeA+}UP~YeVShX}AG5Cdteh#rbOF6++k+NNK9Eh<&!DDE5LW!?
zx$rWqJS88`+0J{mZS`z?34jB1zN;Yox{V3ui77%t%}RGh`dogwWP2p;XZB%oF`m(z
zJsV#`jC2`-)Hbs8-F7GWb1t>guM2f{{C|{T0lh!hCg%<3RVv$SXDgZ6Xqs+l+D1e#
z_o1;%BBv;KD5Spx`ZPkpd(5<ZSlddgeh2Z18gsItUyv%C-SLPIXMI`Xc}ok6y1f1&
z1hJ7HntQ;3Qwfhxp{mPtMv`Q;Eb)(`L{y^i(dqV~K&{0h$|A|kEzws9?5>B=CPvGx
z-HC4y(0Na<;?fG?at=<zPOR)}J57OKL71k&Fu{yBzsGCXJ?|dGxCizNRt6fMo`UE`
zz&)Y6w>PaX@Nkr-h;H)*z)=M(UkDGJrgkQRC3Gwu86G}G_qq+q|MH|9KfiU|%RR5t
zf1KCB{%cbDj~b=*T-z|aAvUi|SiH&h_|^E|;v8S?HoS-F*_gCyl|9YPfOpDp!~l@@
zq-b1?|Hn-$EE6nndyx`4@??>2f%fqPog1~mwdSvjLDhejo2+B0GoWjb%G}6xbXOXJ
zQpc9LGwJWj_jOt2Kc~mhbaHJdeZU-!It}p_l|gV*X*?qKj?)D9nP`*B51{C!o<Bi=
zr3+)(K>Y!!suK){GSQts)15mUwYQ;fgmgC$G|a7IBqQVKi+bSrNPd$jrR1hN2^_`K
z{G&*rX;0s&>-<d_dA+oW+xg?SPwZuD0;vMHA5ySFQEq#PttQ!P#VFXg+A7`)g@G$(
z!&ulZ=DT*cjtP7<0>~Cj{KOnC2N?*oFOpp}WrITzPF-4Ifh#=53)p$RL5;)F!LEZv
z5smif*@yyyF!`>dDPfzMJN!H3lC~?-PhV#~uite9!Ti*Z;Q<%Xj4%g&-y4~quSgyA
zO>*5v5~71+5IB-g-LoCaif`eOFN)-RB55+GX<8WSrZ+lc8S+@TCq*`WnE|kl&!7FY
z!s87IdPKeER9_kDhY18TOpoM<E0kQ?=_2a)u+Sm3(6YGDU1f#B_*oL?KcGI5Zu2)D
zEOTI{d=dzJk{}A;(S~d$Q#CSb((&jATL4!nQf9eMH4Cuf4M*Z~Kd((Xnx@~-<;*rX
z#I7Grt{+X;HFC2H#r$UsX}d=()9QtrR+PTN&JD3b(~hN25;TW@;PUe23S452K_Mro
z9|u!o<b@#T**jRB<Ss$JTlD7k&TN9vkxCG6I&@`y?%Aqt*Ip|lc2_o=j-_WUuX$}$
z8RYg#!|OT)Q)<z8%8-@xFs{Tz3T#LDR*W|F%cj0fFKS9IP2VXzRR#$SA0`T@i-I`7
zq+MZN$0CdknS;^Gb-Y9lit}=-k|zlq_T@bo$9E+fK)Ft;#>Sba8E9gsppq#=KE2O!
z>!Smbbcg0rv@1RR^daMu&=CQQhKx+Y9Lv}GmR*l-agv`1Xy#O|=YE#nrGf9b57@3C
zQJP6m3HrZ_Y()cq2Zhy?$pdSbuGkomG;WzY>viB7Zw*&KzKhSlW7DoNS|F{f8;~UF
zI~aNw^3J$PkS;-VG<0pd+~&PbMJktxkmhlO_r~TOG3l{#g#=8czveM-NoQNf7mqT&
z@D}^Ih@ikE`%PnlFCQa0jZ#G9ZtYj=4%O(m)z;vNk(Kis%j<U|GAAOPi~@BB_7MMK
z!ioU#M4Ke5Yv^Q(k}<8Jx3?(tqQ}Goj{r&*DrQ1uu-OkMR9o9ev_*W|PZ=HeON-je
zb@trK17Z&$m1~1vpfkWB$Y%GuswVMTXa4rUS`n6dxi|r3{qAEqq=?@tJX^<d_XALz
z3wvn|mEw-#{CUnmL-hT7zDs|tlFelSOv%N=@*#?|ukeuKV!qz(zvtxSDJ9h!drJ#a
z2cIuo(K8Se6QyU+T2n(RA?Vf4$7D!%gkODzGAaARY<lQuYD_C0Gt;>mebK%N)e&6w
zzG`yW-gB4znOyeNzzs!JK;*!R{{$(q2YYK#pJ(CBJ%e2OO#N$!hy6_k-kY$qTm1|e
z6p*xyeZ8b6`6M`0rKPc{d*%Bj^wUPGf7^3Mf!Vy$DxL|!(TvS_rXTqluEz5W6OCuJ
zrNrz+*lYmis3o%bUjL(gq{ZC3+iHu~5u<_3oBISt9^pP}AWR&;K6-Qmr!8MImRo8+
zjzhaJ%^3Pg7O4s<)ud=?wMRfukTL@9Yc^wECDcJ8sdAKM%YOPXhs9T0dw4@J;a(_3
zIC(AC-8)j#ySibJX38)@pqJ$va_s8qDIskZg%mr;5OR)&8t!eGOu?6@hJUyl^yAQp
zy_^MHqu1~p6F`b=5GLd;o>}hMX$a2T87)hV#$O6gdl9{w>0TE-q7uQEpj+TE`(lOr
zpC;{1?`KCd^3@n}P<U+`+VEb4e%j*>Uom1S2?TcI=6CmcOcWR9UEf@zGwr*fc&+Z~
zdtzn#jdN!0x2<$6QZZ!U0DQPyECj1SwFXP$&tGywr|_J2E?uN&FcS0iUhTskLT^eD
z$x{j55u*^g?nHm;K<Ib)_txg5CPduTz997n7uTY6>fwXh3NqCBx3?jik<nMuVPDWc
zkbY=;GUQHe8{*7${hK+wtmF$5n?K>ZEhWS_5w%eldAK{HR9lnun+xIx@5W*fl<6)Z
z<qCV4pO)FY|71UjMsU(b_oXKaUn2dZG6;`tykS-8>$&iVYu;c&s}5swdCHg9cP#jY
zM=tgi5js+M%Ae@$@+B)BCm<sTNpfx7O(bvj*?BN0Hbb2_(WRRo2%16)yL?X(XVV9{
zE!)6E%I4A_L}i#@GAc)Uqmo#4+qjj{q<&&{SKKNO0hv`L$e;ObUGYi$mnK#z^WB4t
zGB3wfu{qBW7kgvYg_zMm4><U8J#!yelnd`!7ZMT<M%C0H4dJs1)fRZqNVZ^#jfHv7
z{9=g<tfhtnS4bky!ocRBuE&V3)63PNPYc;5=K?HQ-LdE6N|Tvqr%oAMMH*10jCz{=
znu)VR0KyWej|n0FNAZnOxp6E-^#c=nroOG%aP%2bArSA=3<yanJPMN|-p~|kz;H^0
z{rGOIWZ@xm{-*L!zKAnWR7pio@~}pnVF}O<R}TIe2S~!(upg-eAF%wLv7EkvX-y60
z0erX>nCz5R=MDAUH07=|b*K%Hu%)(9A>-DlHVsnUqt)vqzg8_xx@NtXfE8)D{xV*1
zUhvvn{3eWWZjb3+-b)k57oLo-9)!-;@rHR2|7DPKf;@7s*(8>ggv!f;oqDcr<AALl
z=%^slhGgr~%V3j;I=nK53w@NQ&yrZx0!X5`X{xlTB?@8&{w9`VV(rb#I+HX#10E*J
zIWghTa%l>65Rznq@)o!#&{&R1cQK?OGdpTC>jxl27URUv)w?6IRMQZ}#H-s*8SQg_
zlEB>*gA;Z0CI36|(;6BY%rAFrxMye2H@#aieQgiVg(>?Z=<$)q7;rn-jzC<*V;-EW
za_8N<<WG#2-9{5{Hz*gJFZt4Zy(?Z<OQE_pK5ZoPXDc#{N@ZYdAVHY@BnHyYsotg;
z8l%N%rq#&4bN@Z@#jNfk7N4TJ(Q%`in&#mjI14;)9_CUjSQc`GQ>5X3nTfz|Gg6r#
zH0uV}Aq~b8ETDeCx|rLVF%2O?k8lHIBP~Rf&uAf;9GZ}fg6^@=QS0gsQHHdzx#%5J
zhf@Zv=*faTW+tc%tHdlp;85o;9@)Bykc*hhzKr?47R>2iu$8X5ITuZf15}OcHr41z
ze+^#Ob3R??Wl+ci<uJZ%n%H=m6fr18gmgVqKZ^aUk{`}5?{#~+8~MtgJd0F@Ltgh8
zg5L~b4t06h;Rv00Q<Q`g2<ZK}eRfH_3hVeHQ0u5gCwuv(ovZ<!dcBbJdu?&?iEkIK
zkoyxP`U)dx2uhs*c3syP7Z2U#`*xsFy%rT_W|N}ne5id=B<`2|Ed6c8dakEAd<z4w
z6Myv-;7ydG6Uv*?D!aq5&lTxnBFy#EQlmH653V!({+x|#GcTQBXn3=Y){@F}9J_WQ
z8z+@ynZOWfegPkgJvnddHww)C9Qiv^dRXW5rf-_*83mnO%5EG@?=^IPwN|&qSYYz~
z^8S93I`sAJrzgLV;uu2wfdT#SEGLo=99>nTlY4eqS-EyB<$Awq!TF6{D4~vuI#&Dv
zd@jUrmNnDEBIT;w=zC-IMy&%y`;K8}vlFh^pX~5%n(lL;<8!y7buK1~BbLHs%O6|4
z-^>Y>+{Zty9;NJA{g40Y!cm8i`rI3}>IW#^iE8H=R)CWo#mLEI@$#UTx!j!C2y;W3
zmA%V)zno-oa0+sBn>Y18?zXq!o;#U$@8SlZF{RyE;r1O@PJ|}i)_tyL`3W`J+<*M*
zZtCC3z5VYAjb}VuE*>RU_e;mDmF|1|$Jtc|7CG09_swLGKc*g0Kb-jM*(?78(m!j=

literal 42899
zcmeFZ2UJvBw<cQZF)JL8fsA@AK#`m?C<+!)0Z}qY&PbG47*UB9Nis^#l4F62<eW1l
zlC#7j*P9!Uf4?60c8~7+`o4Z|jIN=A1-19uYt1$1H^2GK_2#aE^yw4SCr~KVY0RBl
zN+{IfSQP5e=VM3Uoyr%($?)aKBU$NN@D*O0lBHPqa@^*QnjH#7=Y{+|;6J`(h(cXL
zVQ$?}c@jA{<Qk-9=zer(F^oG@Zh`7=hVj2n9Jui(i_{3KjKqn*pFMor>56Z2$#~29
zmgT{`Mr!Qec_(k*J`h~RN`2sv$~bksR)ETr+ovuaY(pInoJDinO_X8dxed6uFNZZo
z2Xb$^bw6UYU7vIJ*tTu<SSN~X_a&I+tDoK<pU<aP>J<CmeeOkjBF}(|{qvy7{yQfw
z|7X0>_Hg!K0aKS5?{(GmWCtqL=VReKrb^V*1v~t^3kwVB+V~RBw<u5bFfK!x3|Um~
z#IacEdy0yRAuMW2vs@_8GoAhY;S&=RtkGF%X|km#R5j%Rp3f4mzVDCuKY8%~ni1c8
zHdJpxx>hNl6T#hSp=i`kWanq4T8X_WqeA5S-Sq)>FIw9>6OCbk$Imi$mdKr0UGm3@
z_=_yx$t;;k&CAa}y~Upt<)}{o<oi?kz0)ZDz=E6ZG&8gdJLITyw^658i<hct?AH5?
zlS)fV39}6$tPS&pgy;e53Q?WinFlL-#0v36m!483wor4GYqwKXm{U}kBX%M(Gc!YX
zXi(MkmM^#XI|T<fFQTr#MN!|uxor;+n$JJbe1{g?nu@bqu46KujB-+tm6c8HGE>b^
z4`zyf^7jMH$G6$aH-0om3W60irabOKeKu)RMWJ*B{%DoBz^2*jbi=t>aB?j6IoS+9
zUWM6kd8|(G=jTIq-=7|x$gZJpNWGtCc8_`BwOxy7VK)Pc<89vgYQGFYFJaOlROP)?
z)wC{kifnwc3bXTEc8!_VkyYgk)fGRdvMaJ7EOkf4em*Um6kViR&)M5sB#E_%tjJ{+
zPlTtd=QBUhb~aon-(C>ep3B{=e^8ElP9}6UScaiut1Bx<_scU87zHx@iE?54Kf-Po
zVk1O}gLb(g6}IE`nvQ*j#j}~EIYv$4WfQzvb*_Z%VHg5E1{Zw&fziTXaq;FvM6UgG
zd)bfkS+&SW<_ZZO8h9)7p3El0P^}Q*g`z7Bq3kUUI(y4yD^ZJ$<~rN`@@%7Tn4)XD
z9_U1EFO;&&hO#v^3ok|r+D(joJFD0jj|n^y1uH1rqiH9fS-McN16I&zRXQIM=O@I>
z6lrtQV{av9a?q}&iOM+g-4#E9j|8{MzGlQu#P*i_i9_n8OO_qR(auI>f@1;bLp7e7
zrH+<<FqXW$ys>`sEV|{8+3m#&@tEB?W4qNh>B+nf1)6u3f8-ayc#?{XoxLY#r>1I^
z6-Dn$+~&y1J73^76vD1EOdLj@D@}VX6`AllvF$nTu^rfyh&5;8*ZW0QTP0Ie)10fW
zYrh-y6K2bD9hz-#<@mX|1ap4!0!!^_{=opk&IJGT!a}nT6}RorFGnZe>-*I;hH)Ql
z%v}<6GjAqg@($=;ab3ha?eF8M1E&XytGp?U>u?Mh+*w7D$7vy5!j9j4`G?=HGz(jQ
z&O>ib@K=O6uS~2(6gbZJ5870oE*^PBV_SbMX)J2dZIUq*yVArzS+>$F3l4#hH(*uD
zS~%pWQNEU8Z8+1J;tXpVns45-E{_F!T>gBBd@Mb;x&F)1iz0Il8lQA;faykhj9z5Z
zEaEsx!Pe*{w)&xLR%?-(!#ZER=`e+6K(XEAy6Y~oq%gjBvg~-C$r!AM_TF+RF=Du_
z?HzWf20KS_R}{98Gt9Q#?plxW`dlCEz1;%ItP!ip(>>;+ob>!Vc-v9VOEtbUp_1gH
zJji^(*Puh>A~v6M0>`Aqx9%|q%lL`!Z5(KzZ{|A~`=tMbMuC+$X|rWThqR`%n>ge=
z8C49kvhvQ~4b2qew(RK)j$oyQw9}$iWTRKnvsk)VJ_xJjyxE`=4Zp}fTJ1Ya^oZH&
zOj>T0Bwve2A`UuNoqw=zB!3Q*@%gRTw2<ELp-?~D|7iUb<qE?OOke!MucVkRzF4+m
z+sIin7No3DmuK3c#2mbp*z}(B3TZ2g6n=<I;F5Bp97a-7vO8TZ@aRQ14#XhY%6@*O
zb?nvagU#_ubFZgjZ>?;1-nvDYu-PmZDZoibN4MGRR32!aS<JY99dJ#wE>j;ir=-Qh
zO*;}3a&x)G!N%=IUQ$fR>TD@_EC<G%>i0IWa~r>|Q>QV!98$LEzSz*2qTJEd6|7;6
z=Y^dYx-zur!H?`5@Uy+v(O@iwuzCC3i9;*wq-FLnUUSv(@Ni_C585`c!g|{+rzpBJ
zuS_(_nwy&w+>B$~9iv@lQsxQ<tTqe5OU#wbW@5UDDtkMV;^N<LT1vwH10SPkRXiTz
zwo!Sp*&4e&u(MGkKKzkskkmxjk-xz5Fd!|f+@;mKr7P{h<U;9U^TyKXQO#RqPBaJZ
zidep6-CxAbw2G}Xw+Zf;X^nMx{-K~OkF~Vo@6S%!w%#~u2s3%8pyun#lO5gNA>1t@
zxmicY7qO&mw~>=Nwa6VKohQNsR~osuCyGgX+bgi7hQuMK7K)0Es=1s7Hd7OmJ5Ekc
z7udBUXR|8G366C2-O;48mf)&8UiG9NtoA|td0p)=^ZLw#3Lzxa^!N84(cFl%Z^sBi
zs6y^*TO6sB5(EKi3@+c)XB-oS-kes%meh@3v}@$ttO0A63+K6(pmc4t#=nJ0Z0QXT
z503$C-!M*nsb+yupK_wLsc9Xu;yZmYyK1WG58sLJPAgVw7hdrf;fmQ?P1<G)iHL~U
z_e@z}1%U<<?D2kner_ufgvPPDz?BSZ_v=|ts;;*W4h|L$*U&j>iopep=lk=K0JuG&
z0WKZ<WkFEG`2J^LvZG<x@CS*pusQb_X9vUQ%LFOXo;!oxgaI-bbeYZAbqQL7g)POQ
zkw7r8_|c<i;FxFIhm22#dq3Fs{w6_u8Mf}Lp?9@V5MAp;Q`wN|6j-PsJ{nzD2o7Zq
z_LuwQ4nz=c!rpqJGFzw}jBYH<IC?r_v9My-5;xWnvuAJA9NAZx0T#yv@zQPV%0;T5
zaT|%Jh&wSRhft^pM$cFCn$ptJI0Fcjl6y_a<|f~;{xl%%iU;GS>Au|vF)hMicRn#<
z*$GQ@I;4F)v_bH@=OG+=(Sule)SXmGCd`6ah7e)-*b;w)=Ft@lndoXOdfG|vJsJsq
z?HwI~PGzHXrlzJ;_QS&^3*a6-Rv2bo&z<fbu;|fpqFbj7jwp>PR4LYMKF$;wfG(bl
zc0D3jv0Q&W5N+)?O0$g@8?^l6^Hi&9FW1GbR<9%TqVC`g&}!oLJtYpaTiS>>#i6aA
zRMITxgyJney9F}J*AsS{2xtrvlFNHsU9W*J8?DTAh~IzgN5{x|o7aZxi&B`ntVOyB
zceB>|!J+YQMpuw_7wsxf^N)pA>=+`}3tqvagY?r&+`@Kmx+95vYYR4fAX<1nuOqg@
zl|7QbY-&JB67OV99_Q=2E3#aB1%o@uUdBP#U2x(ro&(pIvq*AfXY`_$=EP`k_xDVU
zcwMBo-RicQ91&RW)#r9v7}Rtg4-VrtRv^qG0s7-@Z!Z06p93{DHic(UagrK(4HhD0
zQdx<Ki3lKY-dU>2wdl)f1pim(J-H+AD=g}|KDPsIYleo5LG5B=wCh6gCgO<);h6*h
z`{lHVZ5wQ@PFK>48JHszAbCcj(lL`bJ%ulPOg0gsVKu!?B9Qio&ZKQZMV%oZFYjr=
z`E3HpgROWBC*NF=a<bcCO5>I*d%>%cDQdHFa_mN>TAoRpXHOQup96URLi;}UvY$6`
zr?z50`&w@BUw@D(hm#)`8gM-$`u<&Sb0sI3AE3%{{)$a`?I$BI<s$f4>%41Pg@>2?
z4y>F4$HXB7!9P8N!((UT@@%-6y9+&bXURkSVb;U!zcE~f^+A^>XWaw7FON5D;~kN}
z@%1EoV+(d~rCfWYsi{eDIzG_09mBL1<t6<bq6o*i13VU!E;V*;Ki)7Q?p9u#he1;3
zlch<rcVSYDhft`dEhao7V&x^f+hsr~SVsBqpjWS61<53+Fb9`s2T3b0D$jbi(p<tW
zdF#ye(3sdwYT#Yg0<gIwx2Im26-UV?D8b;J#%Kr|Qi#hvs~~V05K5?yhck}CI&P@-
zU(45j0)ma?o@W^>8+w|5@SE<)a<z+Vj5V#2VvLw5jK)Q5C9Gu(rd5*OV`HQ-MqE5p
z%TX<}Y`K2t`%&@Q7}92pwd#<DEDZ`p`Ia+QPq?swt#oxL(Pcir=fajYev}$Jr+=|w
zR-0HN7bTRx_*Aeik-hA#JrcWMd8vL9boJS-Q-+!F*3(5VUFWi;aZky42V2>(n+-Q~
zveq0uDrtrT(C!qGiej4vA*>o95LI<shqWq)q)<L&5HifKpW<b-1DCGDJ~O-&5lGRp
zNhDxN0gHrEt#tr;H<I}I`HdlL2#&lsYm3}BW^X!1DMiJ0Iw90*_=Mk|i0|h(Xwusp
zERzuFu{DjsA#o&vR{4qf+OSoBufRqVh23N`>m1(P5HJe{7em^aR4aS3WYj`TeSl}i
zEXQ5kO<o*Pq){(>@_3JkB{{V^7di?P*S}HEU0aWc%gA6wz#JrEH~;{Q;@f>KxKn!)
z$p#z0U28cJzj#_m^BWTG(0y3aF1OWSQF#xNu`sD&>F4Gz<3B*iBxVpVd(q~o@vatJ
zL1J-JrmOicY{DUMfF}Tueexp2Aks#S-9qu?L>*Ji9Px7ucnXotu|RiG^;h~a?&}zw
zrp=ebuuJX{s`}oZzrG9zkqHu*D%JF=0@EMg-fVhdH@whwN5wb3AQ3?=*GQhQ+T7fX
zT%;Ic=$2M%#hf8~!v`<=a7aAe0Dd(7sPcw{qyt>4^hI}`n2m2tuiRQPhMHl=8{@_*
zNZS=&qC9m25E0O`F)rA(t_MucO9x%`_m>fJt|nqBVV8}xbdmIKeI0(sRg7TYAul+a
zo{LLg9KwGnC@7$H=)8x)`FpI!A)W@gm05mxQnU;6#oZ}s<rJ0W@SZZp(zzU2f?KGz
zi>X!FQnd)AG47MI(b3T?YB^|tGzvJ1L&Hs+e@&8ZAr@Op*(!k>3yj$@KrAH^23ri@
z@H>0Ydu-2#wzx0YY3$G=dyovWBo+X_Ns+eop3?|cv>kSyv|O?+bU<vSV|X|^EwhA~
zv~Eq}8zZ>So9oOH7ZD#II3A?Dj652Wb8g8GIP_@QZH#ys50^O~s_q}`pWmtGFXu$k
zM-PBZ6JFvwdiCSBxUoj=mchB`2Y4(If+Y{e7C<MFX3_S)%-24?rO>pwVO734aiC)u
zoFwt(9L?4wc5hN-ceP`)$=V~3+~eo-Ly4p+ot-Mrl~KrLf+2RgN_J-h?j`SAdBSn!
z@t$Jd0hH%c$Wn1@g+1l)vF0<<wC{u$%eYA^;-o;Yiyi`yL?ajwd{r=lY2mFWgoiIH
zo&D{a1({YRTUvN~Gy@@^a9LVfhKag5Du`{4Auw@Z=k~Y__$?&7@8eR$f54I`?m^g!
zPe@<@&|pp`G!=`$VRv%p8D8+QnznTen{|pFxXqPG<E0-}eU^nowqx(4CoHX9H3;)X
zflP|@KRq;ZqX5GbBe8p%h)FIZ7UoVa26=J>zBwZ!LvZd>C6e8ur)PQj+mUS+m+{GY
z81k-3-YjQ%Hn5XH*prBDBLmpa<@UB0#iv9NmrdGP*#|92;=86EyR$k;Nl8qQ7Fr|u
zBkkjFXWXCKWVHZ775wq~%6<;L@%_0oa1I^7ut0nsN0@?@SNvsqwIAe;aR0WpWR;=z
z3x_LJ!Bl(o{kuv|>H2J}CW%KOiGlde2>JF9?xauVkP|@^#-JghBQ0HX!MEjv#lSFx
z>`4Gnbvv6Y(qlKOCES<wkAIe^_B@g-iKP1UZa=^9@bMW{`%vYx9R)f^_wGRxPfHb7
zS68-@sgEq$Wkrj65>Zi6#l&IPl@W5R0A`t-^ppIMRo!9u?Os*NL)5x7U9hEymtw!r
z!qo(qzMYjWW`-YnHZge~>6OZd5DA&THiGj2Qi*PkUL?JLbCziWa>d4_nu{@gxyDH<
z%v~jN$Y(A)9~-&4{O3&+rK`w`KT%WTmtUX`Q5~X&pP@W&9*aGId~@{$>VNu;TlyI%
zd!xamAY^xy_{_@yG=sbghlYn!%YJm*_xdB(RsiS_FICdIShPy=y2n4!y$7C5U0ofA
zo}ZtGv^(?h?SW9+Vv+PsY8smSlTvDSc6N-4(UItBNcd;E(#$o_=xe2@)RPI%1)$;g
z6<{8b3v)Qkbn@_JR&?qBwg&RY_xeFy*QBF7$itvs{wV?Y1%<kM?7;utH%!tU4qVAl
z&zJy!*}(3x<ShcmsD^iOa2$MGQwF%V8L(Oe6}J)KMsT%_5&Y~3cY$D^#&F*2(sT|g
z2>S-}BV)e5PIpPwDySjIBwIYzbCIx7(Gvqv5^*wsvCNkddxCUeE_Ov6K<4J)q*y38
z-0~g-Fd*Dsm^jv>d}o|JDIp=D)d86!6y<fer2FQ0sBzoJ+f?EnZeozY8^eB<*Vora
zk|Egpll9lL8j*y8*1q*dpJ`ImR#PePQAmJ>R~?2aDkxA<Opuk8RV~K=Q@)zOZU`6K
z-0G=_?obrROPM1Z0d-fWx|6cCM+fVU8|ze7Y&vk1HURJ{Sdd&87X#vya|j;W3>Zj{
z$`7n)yUynWCE*NPK86S}nTp>^Qzk*lvEMW)(xF@JT4)18g)PtJw)o8m?N3f;8s}Mw
z2WegDYPpP<9LNvIw)kN`+u#hkQtuy{z;Df@1^%KTHmm(F#_;2(<uN!QBi+B5?Q_PI
z4b^feE#_b@K+5Pk;7&NF2!jy+F}PhKp@J|A7OPfhrG+y9*o9;%KeqrxQ@wN9zj<{D
zC-0Hf{WuLD5d_b=4;tYi9zYO5I0qW5qRR+j1H;>T^<yd@XgYM=>U0NWWk<EvfqufF
z{UHHiG@qKAlLLPf+W~ehlh7WLc|k*Obl!5CyPww1r$8xXtSIfude>Atn{J-qL^5v;
zEo$Hy=XnX>KbirF%i6ZxrWgkXZI<8i>x<(^(6fb<Ao0ToY|Y~N>#AsHP6K*52qCz&
z19k~YR9wmBdt0-16Jf?=LYBZkAt@`rt2?C{IKDnTFFN2i2j0O=-|KhEhjArzGgvq=
z2iJd^SfRV80nXihUYPQ<udlDzicbju1NBf8O5gaHpSGg-?rJPP=s}it)NStzrzuH-
zn39qb92#sylFg~|b8%9V@gK~H%R^BPRI89rA>`jC1mJgcPJ^5}z>Xp-n3$c-Y2KY)
zmr*zzjs*ApB}Xula+1P)L{|3WU85<wqb?jY>sI|mN7r5fJz)F!z|m7emVlky_4woB
zRG8Q139twBh)T~{+j@I@ol4_cMB+YZvJs;qN=i!sDVb}wts5%OKMVaK{K%e{hiBD+
zxfSM?hnJT@O`KK-;H+<&o@*?tx&}VR8Kuo*bZ`pzxd{Z)<Ho@L7MxrMUK~HW47{Hp
z;@CHSc-tXs05(1!G3;8pjBp5-LkYr}cKZ6G0hQM1I+)iG$cZglO+`gT)e0>7CbG_H
zWN5M(_ve{ny1lsYl^GK6;9-EoQp!-xb=zE453O|6ZI8#eJ1qf|Ec2PO-lc_Gqu%M;
zl)05vGq4cAgFX4=vNl8g;M>E(k-NgdGF8UW_c*~%mMaKAnc`>V>eUFynD%K*pRmgU
z(QeCi=-Ha5^kx?MJ@^F&4DRsB3#-D%iF>;cRQL@P-!sUDpfQks`kzUoLKaGwg@*fp
z{bI)L2$y>6#XR2{n`j{iGsuqu(cTp7^!CFL#rZL|wU@mt95Rp(pa!19mRtm5#B__l
z_=Ly1w^kGb6N^K08#m8UsD#QS&_V)-!2xAS_C6~v?h2&(S~v>Vd;9+Tlc_$VXEcnN
z@RJfTj};io+UcZhpjCH%P*l_+ZUJ2f$XY~q5Ajadf@O-=x;5;;nI!=+hgsfPX_@rl
zZbnEZqn79)3j2R9n=nJ^^7jo0CBOzLS}c#yL*iMNk`yg8b(an(z%09JD&tc^1fYRe
zy0ScYft93jbf>>5u*K(gOwZUj$?H!pW>}r}*46;Py$Q0R-6gaIhiJr*M;wwoCfx^d
zkZ;rT#|L`{2j@$DR|kGxegWAX{mnZg$Q7KNhyhM!U+?t8+mOt!{rUCY1QL~byGuOZ
z@xY2{+PB><25!i%fwj;8JShT=_Cv;Ua2Ajnw1Id454D@fE}8h@&E8z*ykZM8XV{lx
zh;WB~Vp~(R&SUQ?ON#zLR-sqhH-)}+Ku9!JI)=Wr^BH}s51(kPxh(nA)`z1!aq{FQ
zW;e*E`r83{#By>U`4uw<F8mIjl*;-@Jmu}~2uvi1Y0fh9$&R-e#V0k*FLP*K@8&a@
zp4ob$+TLiYW!id}JeKi~Rut-UZHg+l)t;i6R+W(&@fClfGU{~YI%zjWaOHwRx&u|j
zILUpb-N&4Ro=<{xW0xEm=D&kR01U<Y?f!VTRJ`ewk<T{Dkk6yKQpL}j1~oUh$<?zG
zhdQ%mcvDt`%(SXyQ&&4n4#NAf7fyZIcghl%k+Hz*+)dPesqnw^#>edL!zg`8)2ij5
z)GqbVC0uF~Yf3>ucgZREyyyHg6gB0UvzZ$nG7SUfaIYDcuDNv4nO^nK11OFks+pE|
zj1yF5xwMsvKZK`bh~~2$LQygxHAqj+?=w1zwOJH}oh3e@c@3QlI~|dh6{81H99%vJ
z{u$M(=aE=8UKVS`6n*)Oh9{=JzA18q?C$$;YYBP4XvwloPONu2vM$2Zv8NdKld0`~
zKu|0EJo&h!4Se~Jp`F*&Na3{8Up(XLBt-?C&MX&SLw44~KsrVh@cS^sj`A>Z76n~V
zr#IJrgs6vRtC7WYy`zI_AQX>1=OZo)?BDy}!H=8>vfOK#y}0>=USnGho(f}aEzG4u
zm>)$Z=R3pk{a;Xgpy*VRI)tq4eWetK<G?po{Ykrj(f@%(`!~zFzlt#K?yKTNi}vEo
zZo{&8vxcHoIjmYn1IqIrgC{&yY-aw>kCLDm=Tzj!3!+4Ynm5*2U{V~Z{{h4KH)Hq@
zyzzV3>ocKg7wbOexA^ofS3CJA7HcZtkiub?nZvCR;SVBgHHxD4w?YnoUWf83OcJkc
zSB{45(n?PcVq4}beqeF0{wL;d|Gu65l5~m&ro`nl8pC7lV+gqgAnIZ9qp=W;=zt2^
zik{c3$OeryIcTC=>ePLay{RRHpaI6-Zq76pF}uDu*AY%ap?+xrWMH1*)obzUJM#5^
zaU~upyrXnoR{|+6j6E~XqR$==ZWxCVqcI6en0$4*Y{M49>>Lk2k8kfX+`P9OHji$Q
zXwOizPR6EIMnkU%iNXS$*=HNdXZyk6-*Gzs<2liO3N*~a*FP4Q@?oTk@K7cJH{TLl
zb0bA1^&YQ=(WicXk?KN+E4!O%p$=KZT~)Twj^5VZMZ(%gi1iwzekW~eEgJfY)2B}t
zVDHV0m4%=3pzV|`)&0~zJHDfItF%meT|>0+cHq;=3>PyB$SVO5se^!^KvsPy&H~U{
zKAT=?S7)ceHbrvohs$fNk>*g#c;V~!9Dp_T{ai!Hs*ciDj#hUizh?!?Qfg<VXJ|08
z{xw@RCEWB-H{Rj4xo>KpE#N76*-G!2cW>x;S&UA~L&YR+DPJe$)Z!hMA9i0R;IbGf
zvu89=Mlc7br#YOCNXgIV9rqRUTKnq<A3s0&23ZP1sE;qd#*!R(`4Ww9g+BCwLHH0%
zhGxf0O<MWncX><^iZ-vi&iD`A^fMCvIgs<Hhknw6I#4ZwV9;7xT1a-}d!4$pdTlkH
ze#<IdqmV6)Z;RH^!J#WToV8<UNc6j~!F>N?Ou_EC67`Hky!+;Bw%p=e?zPs*M8K4v
zJ!YqpW6l-g@pv5+-t4|U?oIx6lauM1#a#39RU|o1)Ao41rouhD4_X{h@d)SA`}zVs
z+j4YmRW1E`u*?iY;LOz29imiBWpuR5YtBI6+71vdYiXUuS!^HI03&nVu0Nw?B<tj)
z<-^_wnOGOie4)ea%qUaDmjNDDOqAP?P<EYYhq%^5{r(N8L&syK)c}5E$o6JhJdu5v
zub#h4wJMOTI{RU9{d;~-!);rxWdhb$RMg>&M9;QInhNvu!ZpjEi!K`}rg)izoF?p|
z_3WB2FU`8e{PcA8t~Xa>=|MBSPouHg{fD1-X|qp;{@p*`<d8#{DP|2nC1QP_dF|{q
zdnc!)QnrP@KPX*iMx-C@Z^W5^|M?vMKR^row?D$uT>=B4^e*>k$V;CGe!?fzzIK7m
zxpJ5ei3pyYGKfz*{4l%Vvbj*<F3Lr#Fyik6sH=Y6jQbDpzdNl*g5~Gh>-U*WpX~J^
zq0l8!PToP&{FlQ+ow(#l|6Jz!1A`rMHU!}q&L6jy?HS(wg&<I|sQ(m)_%AWfztKA(
z>Yi$x>|#WacxLaqxT-5Y{kpZN?)_iG)%6)z59CU|($EvKGMH+Mgl8;Yiqh;~$W-@|
z{jczj|7}b7Hy-wvX}ne5t2}EOMG8bFw|i&EwIjE36#-Z%pGyEnKU1ovswk=BA!=KM
zDCH-CGzW#c()j-XE&K-}^}qSZuh9KjH{^lpWO`MoU+*&H`};Z3(9qEI%nWt5A!&%r
zx;CwPk@rypn0YpGiO+nd@-6*t#LdloHvQbj=puh)a~{z<Mz(M2{~gtu{`%z?P^z=Y
ztk~Py*G>S}xdIhU7B6}i6F;Gu<T=oBNjCQY4Gy}3aip*hrN#hAA;y#A{OUp019B_r
z$NRt&H8b%3WNccOna9rP#YrG9Zv5htkXmCglvcT|hs${Q$TZia>7CIr+k=x(r|ls2
zSCWfIB3v{=HzO1)$av0`{~Ead7r5YLb5sN(I{{i?volF7xCg{a2z>+TcJ7m<AHY0g
zTQ^lRHN$`$g8Wx>zbpr0E?}h~<z%S~1qO*lJ@2XxX{*O>YdXn)nHp>WaB335v8=R+
z#~@e7ECa31?M3JKP+dbqnK`(<voi<^q!aoVw|ispF<Br0f{0fJ>0Aq<lk%bAX9E!c
z)MS;Lg=W*C7C#6D0E8))cFo_P^qKbeC-%pVMkv?Z4h3P$bvG#1J<xG?z>SRsD$;Yf
z?`$kNcSH;ap^@}VIu?|Z0E4rw8~<p9U*sRMSH_LOEcbtO9vB$NwHkstJkZ-*Qv`&_
z#o&+%%=Oe?Ihlt~7-uXJDj>q3>lB3NgOF+s)V7*HP{9pRi566Kf>4moMVPGjPSfoP
z7#tLrlQh}LOLl-WL}QTR=d*54?U<cPY+`P|=-&+>$T9Uu6vQC)bSO2QQM1C8InR&+
zM-z9tet|etbvUHtg@uJoY8U_Buj>H8zMYr>B0zqEn;lZYh<x(n4WdHou^#@f_@a2o
zse@$<Yhzu$JUhIJi1()Q5ZW2hkQrrle7axKp}bS-^LlBthDkYb)pdSmom3ZI-%ou%
zZ*x7Y%r((MW&3VTRRLg_#}e}zX-O*7ZR6(?ii-tVX)?BTN55Ko9~rO)tWv}I0D&s+
z)A;z4gg(l$NJ&aoe%>vx)kKgA)EpFKC6x&kO!l2M#-eK2;V3S{0a2N^8=9vQg*@D}
z+*EOE+ZL6MUuK%$ZI2Y0fb8SqCvjN^TPq8|MnTuEJYh>$nMq_7g0fzoRUUzwdS;Zd
z4I~!_YBZIV-SbWYh^Z|+Nli2Rqck%m<ysR>hU*G$0zp$pgst-nx@#sG)Ch^DmM+s3
zhjhofq-S!dT)bKzg7TtSoU~I0I<BUH;q?MUKQ!B&(Ev4*5JaI6#&4~S)UI~Mb@mJi
zWqAA}4Rv)89liSUNKvsR;Kpc<VMC71$k!W5@=-#(^72(NOR2uT(=0n$Qc{oyR9>|R
z{2Qbzr+Q-?Y@;@@`TiFA*|{pI-cnc)HBs~TTd&!E=-Za)I^Bht#&G>0V24hhPVt%g
z%bT;;BQ5k|8q7+D>2p+xf=3o6XHPn!O`uAJxl;Tu={T*{j^6h!ZywXo&?xuoM)0h6
zwj6i>PQnm-LGRnZ;nSzp_-$pcgY-hdS;93_jN1Nr{_WWWEsoye$L0=Q7!CWM>zeL!
zMSy>JnT;p`R7oXhp*~BjJx&}rg{N3Sb~qGeR-Tf(T>^|K19X1T<I!c{`m(boS8h{i
zby^P(5BuXUuj}%a6{UwBL2`JM1Z$UKAug1|d3mgygl*6mMs^X@dk~6q88%~LT3Xs-
z&%p4&Yhc&JPZ#fiA_qNNIU~QODGZzyQrROH0`A=iNRbFl|95xItXnp|5)2KHd}@fs
z5-OJTTWsm#jC{i}Lqmbe<QLOmC$eZ1nB58$EKg!uYt=CsDsfQDZu6k2%l_isi9pZy
zvr{JW?dlQF3O;WwR!~UUhq2CfcYR5++$DccvslP$-rWf(wGc}99+EccnteeAO7kcB
z4+8yGo3mUiqO7a@%9Uo*B>!an^#_UCN8HuQ-JD&*b<zv)Y4}%N7Gd|(R8RNDbj{?&
zlQsJx;>H}qD;s!~6oap|tQmKK3B~kCZCjczm{H1uY0=m;IyfrG<;;^$ekzyGeRM0d
zuYX930-pv<YmRN)Zb6FQ-2ohsp9g9NXS(*WsScDD?0GI=Gy1x_RX1Ewoe?fYjszAO
z?VZzWFU9q~dNWnSER>^Mz^~rHAvIe`zr`|;OQGwatdLzN1d**{P~=IR^{2CrXQ*e;
zpXIxC+=#244OgG;cG=BiW=hsGei@wTO!2zGn18X0Hqj;3eRMQ4x?I@B#id}=MLMqB
z#frjWcH3HVZIF#}sejf)*e8EiRdF(OK3|KYdtC$HHQb>rzIM=uVeRLYB_ogp)ghA9
zv8tngSy@!l8`Jm^MG$7Q6~al?^Jd^3iHsOTU3w;EUkI+7jxd!t#FJr=;w8BdxNB=g
z98^`(tOq9zb}P>z!bNo5V6olN#vTwwLM?#}vs}`Hx4LEis~V67brDhH=1628I}JXT
zX2Y+xmp_guEhzy_ULm3^k;A!tKXj3jV^M>!)eT7~QlT&2S#Id)>kC6W?`=*ZJYqa3
zXLF5Pn!&^KxLn`&{da4s8!21sww6LG*7LIvp1A4$1Fc}FTAO_)lx+_!HY4TF?`zkT
z6OrO`BO<G9V6PBCR3jDBK%F*12}bqdJhDwt`b`kE0>=<3kKIxg#Uu#E_FWEAjqga5
zZ%6~-LZr>t<9!hAydsIgS#E~=>S(0aH01CAk#Qi{U@FeP`JFVq;8f-D{a8ym2!T8>
z9+Et!D0?LZq3L+mXeTg=+G|OXIAsOF1kd{Y+ZSBaH#_x9YF|M2Z!qZpc>|fG{|=h_
zKNIx-vkBVo{NM+1#mfrm{QkfNB%&Z5BEh!+^NaOK%+GiDyk}vN?oY5sV&TriIV+Pp
z4hSC-5)y*&AraALzv!Xe?tb-)F`-H+JU?nQ0sM+yDf#vYkm-S0F^{zkKpf+V@)02+
zuPDT?v^aFvaE77*{WM>VbX3kDTO7!G-BP8S+M<{m;rIpUlkNPILf!Yx9yW!92|WJc
zxvR!*8UA>*Iw2#&aO}dvlz8*85Y=SBX2w6HwxQJ2gU~7M?OfmAn_Ff2>t_Ne8yh$*
zFYnOCW@2V0Gb=SaygYZzWA8*~Yb%Fth5VCDF~4F1_lU%NvG84zxGRyK$!>^*-4Wz2
z&GpiYvTOWXb8f<|{8mu%b+2=5GB-cGwoO*mDt~<cj-X~xe0))W{W}@KF&l=OW7oa@
zYzuaHou4k+xJ0bkbL`L0tqJSnogeimoo}jf8;&7vuZ6WVE*R^q4ENBW_U!LSP~-#!
zog<Os!c#vNS%##mrfI%hirjcQWYuCT8r6LF@YjnM1fmoY;^VjS6qOI0<#^dNVpAJ3
zUUK+r*7fNgR=YVz*H7^gB!&KQ+s&Qrn6{C-mv-t$rw1(yBrr|!yMwk=q&o-IGZ-;X
zm%MYj%<jv)B@qahFCWH=ofs|uteb!2vtl9-|1d?oy8Cu+eT)U4M#${6?MuvopHa;7
z(bZmrP+C9FVv77e3$=yYC$~N*>DdX;(l6YWj7L3L7ai(&(s1rG(T+@7*R6MAGn(-Z
zuGr*YeNtzq3Ki`h7VG78wE5N{)KwOA>`65xB^;rKBQd`A2l1X;rCENxW2N0+SNV7O
zB3K*N?1h?6y!a!pa^&ZxdG?Ej^QekPB$7^!wE$6~c$#QGWKm#q_~t?N<y~UM-BQs@
z&4bhSE=5*P13eWK6hbP0N|#-`_T@y-ANDdbZ*jOCabjWYag)%7`&WsFZ=|H0SlPZ>
z{tk!xTl&=`x-UfYMcbI7nOUmWEEQ!-*^m`+-W=u)Ls*-5z!xFk%|f($`mT1>erV1y
z@F2s1`PoJ6$bscAUX>$vZ9`@+P-2sQOizY%QKw2^B$yZ&>ZooVq(;5{+7xqbpLd0A
z{|EZ7U)34-zT(oaQV4we^W^_G-u8Ty0mV74h^8$NxoUTQIF|yEx7LEM!GiBPA74Ro
z<(HUSckk^h8z2XasC;)tdUZM}#;o$y=`B#<1V=`uw<pNXg7!)o;&4}irAEHhkUA&_
zL%--=ow0GRHp;DoKURel4p(mjX8`{>??6e<z{qF@%JKd(=Uk|BCg|7r!4FbEZDBT8
zl&zj`mcXV}lB`$xii<kT&XxP}Kht)%QLEHZ-hFGetv}y9cTU)8A+kA2ILUILz_dA1
z5El<M%2b^SkC$|eZ$FHU8Q`Ht9nNbWQnQ<+5Y?WdoRnwQ#a#96Te4Duj0*??d38Ud
z4j(;AVVn2!#UH=wffAfX`RZLchO%^`E_un4H_mwb_<*Zop5Yi&h!#niXo|QlCMMQW
z6DjPZpeVBR;?$AnN66{tYNi4nG)n)PrK{EOTayZ6M~@x_D66(L9;#!IuRd-sG;Skc
zKi|(ACGhwrh=M!6e|dhMnp*waz0sBhkXf0v#@<LATLH2lW2n>#?xO8js-=*m3|1J*
zrqw=-cjYy#KNrldQ+_P&6;mTp;eprHYNN*YBg4a`PFd7ECIO}uUv%%j`HMm2<E`UE
zjsuo6Ad=Gadi|(++&0CUP%a}QgG2M0v`PTzz8}ndKPT_>i4#hYI^2h}j@PnZrA3@n
z2DvefT1NL*GMYZ!f2yPsoQ8!14qL0H7$xY=$VJDje1!`_;tzIHvRJ;oY~Kjd00X{=
z`*7cc#6+Y1LTiFpSd$U_K_DqE9waaF?D$pOOm{}wr%xQbW}SC{x(LtIEXE~ml<%%<
ztj+c)o@Z9Mo1&D^iFb8k)hX8`^SYwA<nneJROT+AoIOWJmjNH`%F+>Uc#JG4+_E$E
z{&h8$3&GcvrL;=y+W_YV2LuExaw<j&e8|?XNri4X=6fGsz;Loab@EUliMu2F`0?Z6
zf_91Oc_x>=t3HC3U>el5Nts%uA*1gB2tW3xqM?b<9{~Hwc$j^2cWX`Amzww7Uw?gM
zzMnb;5~mL6ZyEP1zT`O9`+-%X;0~@n=vo||u;UXsG1o^t)Lq4P#tyK|4du_YYgQc(
z<3oV#dF&rCV4ewf3KK@(;PvD!X{s%bn%l_7tTP!IMR$gVIS74AJa%3DM$a)C{Ze+J
z&M8ZcUbH(adGqFpPOmSzt?<M=V6#ADs8X<NtGqmMKF88Jw{LYK!n)ol*K~ENO|9CY
zSTm>3VqqS#Gy@D{b#*l}AD=1&)b40e*Bp6j^$gXu`GE&%su}gG8x%TjAK1$`ZbBiX
z&5uslR<y>4Q!q+_RXy*Hzv%kIL_Vss(_n&}oSZJBzWiMI7#W%Nt+m;F7^WyR-l&(@
zr@;IL&%S31m4&CgN7~!v&hIO6NGq@!N+lQHL2|iwbp}cR6OcU((aot8lw270ik%#g
zDr7uAN}dXPzSu7;5G+p<=Gw01t^x%GMN(0b0P>Vqr2SMLJ^ILUK{j)DXbSW(w$@k>
zrXHTD4BSCxcUZe&Rq3*`Ug3aYZl6KnfSoT1L<1eIA0%NM`R1XBZ-J&6lkN5Sw|;)j
z9YuTJ{(<qHkLpc$QUN*O;$c~)K?HGlW)k$pwoJL=AYY>$@PPicg|R8vk5T#q{$g9T
zqjKH$7z}2n^~3WTgDCXc!jQ1+vS6J1_IipdaUl$sUyN`cA@K?Ea=8H)fwW>d-ayl5
z!3V#nfuzO`jflP!BW9duH6(-wJ?vX=Z{-L+%N)@d@W3e=g;vFWp@B#zqo~VjEzWKI
zd{Re>VM7Q8C&w6AVn6*O^zpJS9Roo}Rwqo@$tq;bP6~8K_kn9TM?vwxgwxRLUp{Od
zguoqm@RgR}?WTaltbOo|Q$$4bij+?PT0UAtQ1&nOI3WD)<2p07gohxZ6I|c+$L>g;
zIdew6+^rb4<&S7g36|v1m7*+-vmg0-*s?$GT0=GrvI{zS*sig*iCGVeRMpfpOxxF+
z<(t9EoAu=+bZ6<rB&oGdgSavM=T93}?XupXn1=CoSn$6w{l#`kVj$0xn{<T>3eu9n
z<iNg>gU7X5TqIOrGZQ$qoyX6EkJHxi*i88A>{;-dLkt}4XGzdf@vOvYF*80MEgvJM
z1=erxUkpCxewMbDl6utQ>TRZ#S#T6#VmwoQxk+TS0<o}x!It~x9l<kTV4jr-<?bhW
zsv$-U4or_<-ML&idv$YCeXAZmX2=zmr~Bm~(e(;1?|l%)Jq~Tp?y~@odiTS(z_Y(2
zb=AW{tD#lULdnR;KE#8b%&a>-jOBuNs!Ga7&?Cx$BD%r>wlVECbc7kBF-uEJeT??l
z?RkDnLb(=>2a0l<`rHvsLXLCqp$8=n!cd(q$JMJ>?|_GC2TkOpRUzyrmYVX_cG-pb
zC}AhF-cNeWpecng^X&QauH<`HkSoDj)baY!>~4(u&k!mqN-KP{-Ii_>*I{KcL5Pk4
zKN`?xqH_0c0Mt(7fNhzEHpze>RYn8g5d{4x=;<@#r2S_g{SK{q^bR71iAgftHvxKK
z@5n@)E;nwWw;U|G2c0+fHkZeT^!cm?AI|n<IT0tX>BUfhH&~blX4Yi9J{ZRL;ijad
zAqS-aSC|R}5r?_ndm!Gves|gjNZ#VY4&zDVNl-f4_1s!t4Ia4pLQqS(PQ0f*bbWpx
z>C5w@r34zIT(zcf-VO+GU7z$MF{ZhrSm@Qf>0S3<=6w*hXTH;-w!^}pV8`g=$B)5z
zzoU0wy>~xD{r>zwVGj_rBI}O_EDKXGfsD9#=vj2O$b|*Pn4WCN2Q%p@N>qqSh1LU?
zK_{R!iUMo4K`o!he(f3tOgb37Hq#{wUhikGSDisS$nRs!X{mgvxTU~}t`;G`6~S*E
z62w<2Txv^k<oS(UBX>jcx!+oVCfgQm59s)_qqT$iW`2+vS>sM+{2eHHY?qeP(0H~M
zFl^_~oVkn<vY)!^H|mTF4^M^Wl3PmZj|6rlPwF&0d|nLVP{9KEtT&NE4-{-m{BWeq
zgsfB4JXZ&9OFn=8d}xsu6DH<%^#mG`lfWw$QYJIFY>DH1I0)-L@((|e1lZ8R<Lv;H
zS*mi9Uw5X~Y_>o2V&7Kkw`hZQXybn4!hxYT(=b={23+IR9lpnxXcCyptkdlx9v3)T
zF&vxe$;xVNZPnDr5RoRvQufgzqzA@t_aVy#Cnat^KE9e921L4Bu+7Doh*-PvK(j8#
z6h!#YAk_kN1y}R{#5K`o%Jr8%-b##U^oHT7Ym>0e7Gaxt9ynw>NXRo)Cayzh_`Yak
zi(uvbmlcCdP-~Raa0>WiQ&<b+sURLD0=rW`ln7wut-pVZtp!wE&ePMgVbno>o9GVh
zX;_EdEeFhU(MAN*G`C}JV6=dv0Bsn3#gnCvuBB4G)Pn1J9F&9OCzd~&b*1(#GzeI^
z_|8PeGqo~Y6BHC2aD+NcqodANqXvdqr`*kNG=a(KB<_+ZcCXB}R2%QIDJGT$L4Rym
z%;vj<pXETlIa6pu@U;2&&rhAHnUa1zmyC=2;vA)~R9B{!1`a9PY>P(I>R)Sb`?XLu
z%G{KvkoA~oj+)h$XdSUBYTz_DM@u`Gd3I+eEz3y8z8pG0aP1e&uHR2piLPNg2KUHX
z-=tz<=Pq1f)?XH2a`tV}$;Bl!wxo#H)Ct6G!+vVW532TE-iq8>7Md^~92{G#d|IY?
z2&<j6^E<`x6sZ#^<r)3klj<}T7noX@7xc#6k<oa_hL2u=VJ;FbG2BnS`vnhhdYX2i
zM3aq9<Vh>js8QroH|T)W957DTqPuWmB9L;2L7#O2!gihYC_E>!Rh0TazCWzR(WX&e
z7D9FQOEJTHaB_trRZgJerX>nTDbR^~XyQ}=WQeRyv;Vf)04B%MA$(L&&{(#7f=qB{
zf-D85J;J*D8fNQfB{>5I8nAS7v;>+$!JqyZ)&||TpQZmr@#y*Du?N*TWW}sj?{T<~
zkXp#%z%zf(rOMmGEe#^uY}_@(*~5ocupKW7@CXv*4a@Yojb(KsO}VA&{wXSm0M}$i
zSLOyE{+N);&dy$#_ZhzdS=w&>FBJV*{tDjb6&iLs%YfrqM!5hq0{y_xgmW3bjTgUg
zZIvHD8lPqV9h?}{sw~Wp!!wFP`Am$4AHphlpis0s;Dvrj911LfeLn0oKl4G-Ym4Ow
z7U1T+#bG=H2Es}ktlVs2HY6{T<sKAln)@~ntz$#hqs~7X%n<=3aUITO5Lq9wEnZ#i
zP@EJj2Mwg6v_Jh?QHxcfv5VGZ!TY3&cmG2F2&{sNmNIy;`<j}ON=izDxf)t*p#WzS
z7b{5GfC0LIH=Yz*czTq+wx9)`VG6q7-l2h4#sGW>?z2!OE)4Cua#0z`g%p~!-Sob|
zssxZLK99Ov+K=|07a3ii!>nqIpRn_?0nxF>kB--M-9oF_7Tn5;^F$++C`j<bMO_Qx
z^Gf;-9Xa*W^wb`1@5VDUwCXCmKo^buSnV07D5KDZgtP})W&;J5F3?Lg<gG9P31Tbs
z`!VPCv0(b~u7%8S$Owh@lN(3LXj?&f%!QW<#Nq5$r|y9u`!@J5;xY^Adzv{SPIqdW
zK66ECYSdrcv1O)UU|z^&H5p34V(xJ1&9_<i;-u6IEW);(!5auY`56mx<2bx4Q3eMs
zuvWLFq$XAx-M#+>mI_>nR><iSW`uG)63HRQpz@WXI&}p8y?yIeGC(l(TqED@_YkhG
zGcz*}i1|vzX?tuMV%kS4y%;c{n^nGZ=QUQ5@i`ft&=kmngM(CMH=yT18TzjwG@d(m
zE<QQ=s^w4#5~~pC?Z#&X6M<whL{g0N1Qp~j)w^y|Qc`A6|6JGw{k+PpTQ6FwiAiv7
zf_z7kq7w-VKY9E1Ew0bPF-8ZHBztIao_bC$_R}mKT$Bl58)mhf`1riO8A!vGVN6KC
ziEFzWScisx!FmC=&sI_BbV8zK$QQ8&-xi(iJv^RfP6fk*s9D?+2dVRklP3cK5ZKs!
zLV^Lrk`yo!1cgLDqJfMUI4Nkd&<nnL@9S=f6$Jm%^%97fP|L+TpKyEj&zz!`Sr{3m
zkh*!k7LpR|VmE${?478)^88CI6!qnxTM}Df`SIh&JjZ$UmtJ1m_H)Q#6RG-hZ{T7$
z2HDlxEB+hy7FZg{kbt^R{Qh0H!vFmF^9e;oMHaF_Pt;qpu%x{bn~`S_DP{sG-5gk<
zz1-OeL#`;~w2%%fb`5HXijRHiMPcch>K(DL5(t1mpsw>wOU#|$36}nwH*XMJ3XUrd
zaPmXQgzmvi8}d*?Zk{?dWrF0TAp2Hzb1Q@MN`A001q8l+eQXF0F~GIgQy6G=W_)__
z;>DCVdwDB_<kj!b$(jHD`{suaA7%!NbHz5kADSmr=;-O`iCye5;4%epDCDtI^ytx}
z&Unn(FgZqe`ZORvpoe5H0d6w`9ntHXy)QpNvJQ|Rhg`s6aae1-Av6^7C_rNX$e9oX
z3<)r<>d}%53oI>!<OdHjHQRuQ;WeoJ^R~3~bsioS#y|`>w9eQY&sX89Gq6U`ESfD7
z%sl=)S8f#6ot8GeDT3b|U>q`5z_DK|E4$*P$umHCuY=vqfA;LzGA*)8;m`vl&6x)6
zxDxy}faT6~HEukd!m<S?-E;yfwN@lBEqlP}GstVBBl{r>1l(Y7PQh8XTWw(<|IjX)
zM;iH;-88{Iht}NfxFPPyF<chmq&zj#n;nN>V#^5m2)<30L?5%B%nT?C8Kg!<K5(Y%
zu;7~%EEsI&=HlXNaSw*Wg`OWd-44&S+&QcPfkdgoW0x!VTW!`eZRxsF^RQ+}?2KEY
z5$>bF5;DNxEO66S>7c$hgYzd2`!x{W|EA$$B7g~?CG$d_99-r{vZE4b^!_0|P;S*$
zh31fxx<J8+A)(8sS+<T0g;n@Xy?FKj!e9WC{{H>D+({BZ_|#)@2k&<Nwyn?X(6C7t
z!*=ZGrJn)+IBd@rh@kmqT{1duOD~bug#A0l{k~%vANba$XwlN-O4MFnIG-gm(3YKg
zV>I0Vz&;ep<Hm2$g!)eLJF@;~ynW*~-LK_DortL%xjOUba+5Act%-pc!=HD4KjJxV
zU<V*4zD*}p4h|FC!bcc+0Qv86y-k~a!?m|=eoy)xQ*%G|om}EavO^ML{|aA;J`~N@
zrUJ1P4wTN1e8T__9+NoN^b0tF9UVUYtK<g6qt5Rc{D151a~j|okPYKPT*v@pzQ)2L
z2kx*7T3Qo;@ls$5O-q(+9D|;z&_0W9XvNQ+n{7|<ZZyjM@#BXZU$pqvt);(II)6XQ
zZ9Pc65QdJHOga&y8seEC*f58lTqJ7-kx&Xm{R{Vk!jO#Bf=@82nPuC8F9QB3)~ra!
zT-E+<v7V16Us7nd0+t@L5#WK%PABH}@Y=O&wn9-k>KO>vxZ15@Jze|m3KC|$g)}ee
za{lUqM4_tc!BHeZZiK->MwbkImDfA=z_mg|H2e1Y3^F=6=0WqE-oya7vbREiTsrxi
zh>GpCDb_@CO*GQ3t%hsiKS563^GUCgOVlX0FHf)X$Y~lrWPXCH9^ErAhzCwI{m@Y|
zgMkOIe<0idD;Eo4%zUi&9Xx0V%o2>?eF_O-JK&Q+@F^e`0m<#krlh0@R);I&C!STG
zdg4v>4|jf*520V-60*2xNUjgAaXQXDYzpIM>d*(yt__@9zRk!@1Svpzs^*tFFb^ac
z<Oy%2d???U>bTI&0CRva(?`ka?H31tE?r+3N<**}V8c4T%*YvD3Lc}+8oxKUM0Pf0
z!5Aet=0F7;@xirwfXxt65^@kb_G9nid5}nU!TUC>V-HY`IieoO917UP!upQ^*=t+e
z2}~fSJ>asW{m<_=kn{j*@o{sGr4U5<tcTOV#op&OYP^bj|Mc14|2QPiN29=9;o>i_
zs-G+JZ;O*ogHsVwA7+09Uu*zK;>?*3^r9|PaE?p}x(QmF2S$Y*X5z`kHY9+}#eLDW
z5vK?83@8rB@JxF$wSe>rfw%$T98%BN42{AIYK;;%e(yht?8iV<Vw8$)$9LMXkhU{m
z5H&_Y)3-Ngxf!B6EQia~aH~+bPXVci+B&~Q?_CHO#C!4BTG{{VGWQ@M!?Z(?!p}_p
z9I2${w~D0ZHH-g?LFQK_q2W>X9h@J%X!v|K;LfFuCqM|I$BQ@~!4SRCMzOJF>Mwq7
zPR2M<+#v>o`fEE+{Fm>!q@|(~6fbUegW?-t6rRUFzR?bh1#tt1LVr<F@vUq4Ze-@o
zmnVvkPCYH;Jal;c{y`U@-1{=q)$acGLEqUSs00V`(QH7Y?c3L{YkQUe#CE_VA`u>-
zLJIJI%*u&Az_J0&0!6Qa;}iDL_11Tk;9R?3Bo6&HZ~~LpwRNgaojb?ys~H4!*8+$m
zX=u6(MB{<v-W2nI8N|hdIBy29_FW)n2fep2!@=t&t+7wh(-ov$>jKMiXwP&b&bGXN
zI`|~mvm6ptglp?y|Mj?^bzlUr_Gk<ebMj$ev;#@;@t|4|vn7dha^AxsiDNdNA3H?I
z)|bYZzF7iLZPbSaj1AS4>xA7cZlg>5+6=L>5aw5YUo{4TYcgO}Ssa{zLWY1MP;ljz
zcBXest3c8KCw9al7!v9L3;G%b7S}K?aF#<Juz%o<FaRn-&z(IR2Mj~p=f?=)0(%12
zWYht=#Ro{92iz}2fl|kLCHQ-yGfQ0mh^^%DUqVULIbm!3S_l+GnBv-!A-_q1cnlmk
z7v(9gFu7EvgtyU8ejEn}Gy_fO4i|fn@{u(`8;CQr_V_oYezt&k*0yG|D3a5qr4U#g
zCFEc~)q1%rL*s!|+&zFeVAHBFa40AwyAh`s-#?A~9VsNT^*JbcEP6S#%H7o9T(7(S
z^r9-DL_%OacswY#Kwc0CEyG9QzeYk<fSFw&i#<<A#|mRbPRD~h|E;etuu_#}Z_{qQ
z`3uP<pxp8S#GvdjeArywaJW<|IJ&DsLM0NDGq9|Yf1IDtg`7`4`_an+YeFWlki0;j
z0mpe4=IsPG(#!-e2_^M6eUMO?|NQ>NS&R`Vz)CN2r_iOMcMapq8*oNd%}OU0vI;4G
z`V4Rb#(n%i9i65V>KuIxRAzla%d_f8<roQVFe1ld%`He3888UwghE1rC2Z7KFj#_?
ztTd9Z>H`UEGS&LQ1x^t(;NiLq=TPjw_E^efBuFs3GaX6(Xj7PwKE_x@aI;WTGahJx
zn$-OdHxDBX#ltT~?*RY?CFbK|O*RPgHvy|QXYay!e0jFxGV_DQ%CKaqTBQYGIP}PY
zXfQou{`>uIaI3xavT)ln{TedjI>gHu%hDUqj}#XI#cLQPXeR}>XqQ-{<2ujFfJQ$#
zt8f7f3NT{ekX2~qNI>OCZT2qA054E5?jU0Yd>^T#tn2_r0IZ>GizpHKuRHa{e;#Tl
z%sJR|xWF>PwG_xC`hjm%RnyS@3@KTh5rnQ1=$r&Xl$G`2Ckg1ZB@9|t>@3S#f3152
zv>Euw0OXWM%>ivFGlF9eg$<IWjbDZ4OB3Kd!o{)WU}qoBGAWqA$p>P-|9Zeim`Px;
z33x3y62RXQ-22=xy|AN2qC2pKNVQ{|q~pF8%s*m)d;flaA3!Tg2}oXTElJ?_8b)lA
zAycR3(DnSqrmCbUF@QeuJ{Y*L<6P^@lN4?juKeGhu(`<A_{o!^8a^66ivTo~z>vJ4
zVGokL(n4}tf$#DHVW0w&{qp4twUB-CsUwnpmcR-iX9r?zd-9sE0&4+`WlVgYTGv09
z^&EtWE4Lkg>ndD|UWCJ>&=`OVg*AM@&DmIke6|IwU>!u!CcqaU4&od&b-4L9R5FWZ
zg(0bJ(vN^@8wLj(d_0iyAKdf3r8(^n`-czTyAA+*(H8^NVyNt3+M)Y-B-`HyW17}A
zBQJo9hsw}CpAMTooZmV+Ngv9;XoQq21Fu}e2X+>MjuLThpZ$H|Sb<~96W?KBhqQ2i
zv#}`vE7X!l0y@Fg8c2+<`WM+k8}M{z&Ws>e2Zi`G28P?fXV<N8BBaNvG_Egj)u6P?
zEEw#I@1FZyFDDpr$Ea9tUpkaE#|1N=amAyz-B0OoMl_wM|9Rt8(5}T+guIQ7O(MA-
zy3S;EhCAw}K37=Iw}lLeVyoz8(Nf|{Q?&_?(Hl_#fuh$R>%?^`Cgg5t?;g9(bL9Eu
z*eneo*>Cz_ztQ~l7v&-a<^<3}4||)oHC<gSHw<ZW`xf;#WMIQ<Qbh;eRbIf>Ip%Ui
zG`+MH-MxJEYHeY*Fm3s4LkkoE3{SMW-c#&h4OldFYcsxdY|Qmu3z6sPV{yiWA@5g5
zifyfrp?(Txd8pgZbk;?A0*#q3<wqN4N&<{JG|<;1rNHif83X?ECnGHsxmCcOw7))c
zMFpr2k&DK;edvVU_P{6~{=-l#9f)`VZV9PO(i4N(v_KZJ-ejkFcw7b(LbR(pDGlTG
zxgdMb>)s_Ww4A{|T|EbhfIJM}3~8u7zwy*Ym;!RlSej<hyH;DGT7?pI`qZb6#8gbo
z-MDe$#W^piQB0klv?7ar5nJ`BF37W4(l9MT3asVCsI*U|w?RY}fg)M}$_t2O<IIH%
zjFKSP5V@LiEUqpF%DgN++!D+0NhDCFh~K3pOPCm*Nz~<wFs!!~r=aAwzj5P+nzr46
z<-T+uskoL3QlA{7pnHED_Ptyp3-R#N<u7?j+r_jVFUzN2czMk-?rBn^_BzW-N&zN>
zy1LHwW(&D(eA*_#Ibb9n_bqz}wlhBY(cC~qJ6RiR25?jWI)~#Mcp-YELak#{h;NES
zNHLUqMYuZ39{SW)898_udEKr{YpIR<_z}T_89Ei(P|<H|YulRDA*BWc{0ShdZ^#O2
z$bIYY9*=whg6^C^2*h0G%a?C}8*CuPG$pizh&e527Fgl}JL=W{IDB|qKqChzn{W=j
zXEp9H^)hmDjSnmi>)nxAUif<9BkU%@lOuvlN7K5($6bVI^>9{ueR&`!c=P6(*gSXd
z`C}_F9b)M+#Umxosd`v$TLD^_Db+N!_9pR&?s3~|oJ%E&+dO?1!|rd@??fsXhs=g_
z9F69W`1b8qA6FyDZ1^xIe7Ful<|iY!N^&cDwnydMzy0ygg_F3zLlfnfpkR`Ds-?~$
z&AP&RLm5;Dh>l1NJ+uP{#Vwe+ZGcF~>!2Y{&&<p$#Pwbh_n#AOi9;QO8{xSFlH=o9
zPhS2#ZyaY$`g*x`<d~<EM!&o9%;_H1U3Ob*$7m0$gv2AVCwxp>d$M#w<NlPfG2q`^
zNTj%mEjV=PlC!&0&ZDXmyw<~-kY$CUp<E`~v4<RTR#Sy?0@pO$oT*^1JvUIOh~shF
z_{p-}ZvFS!vuC?<jTJHNP-Yrp5U&ru&V(s>vh;to_uWxdp6`}uG`W^Y5@QrZiFyP@
z1wlaRMq@eBR0O1}AiYWN2aP2vMGr_3;iw=82uPQD5{)3eNpB*(*F!I}-$T52X5IPC
z{4u{fcg>oc<sVr~JbdT--tQ@U@8{W9(paHo3^^exY5_H$Yrmd6DIg+J*)9uO7I0*D
zn|Zdrg5tNHjisV^qG|rcch9POQbYzFvd$;{wS5aMWXMi38R6mQz<obk&TiXqD!`W0
zUr$s<=Wtf@%cG}{%8$*M34Uz*m)}>VAm>{*uWUcgx%YrXyU6^g`cXBr*N_`oq-s8*
ze_rZt2$77;_0V(r!612cvHNv|tzGYI>89(RaGK!|66w;_Jn04ViKKU))T51q4jNxg
z=zgrSw>@%W)1EcPdbFi=j*?$p;{Ltcb}G_e<?@)FvR{A{rx#lx_3O%pT}CAhNx2iI
z=kBcdq+HzJ+PrJ$PSUdwoC#muUT!;}H~i04El!DMkZ4Vf-*StNi1SGB`0Ur?vf5e2
zTl5lpK89SL0Cr*34G%SE?IwlUq~yuvH=slB>HeSAed3gzagwG`enlXz2olye0A(-A
zJ)Zrt76pg<_czG4r@>s(77?EM{gnzbDll*u_)tw;2$t_I8Na``38D#w$c2J}0)oj>
zda)mAgqpqlTRt$3&d6`#ppDG58Z~?En~tPO22@2Ea7vGOk`5bMjh7G`V6W*NC{<V}
zkj%hyBsC72wq$3Z{=IPV^0H=YTJ=VIrVn4JVBf*9h!b~RM7UNy`?SH+%W`q$<y#R*
z%|tuIs+1QpLE))kc;*z!S0r(v=RM2U;Wm8dFUH6A(+cPAJmlZ375{MW&jPt$efWKq
z-PgEp<)l|7MN?hkaSX<&p>8LV5rQZ>3+`hN1>j@${I$yN*s&W};P#vdG=RjTFg%ZD
zx;oWNoi*I5hX^s*ScmST3aoEfR2p!(Dzuse5@5dnqCI>6%QMPTB)m8*h&fBdFYTmR
zMs63i={W6<S)@L2hL>-C`SCrgPSQB7r$;W!U_&zy1+bZZ<O+B_rhk!}ANh?yu^<!F
z=^vw%c?nz8+P3_SA^yGFy0JVVd+Z*CV4MxFFaJhxVlk7-UkRcLbehGg)iYb1pP@&9
zf1H(Co_$9hykk^gg*&hj?M7_qR-;c~=E1PB3(B%U3QkaI$nw-be$C<U6MiU1ny-cY
zX7`<U4=uJ5;y|NM&dA@x4Gr$$f4vsVoumN@6pVvbtq<H}Em|L$wBCyFJCt4kBmqU8
zg-NZQHYRxb^ax~o=Z$|iD;%HrKC7-ITP=w+2mLAmfC&u@fF-y=A?V;Q=s6OYi<v~l
zRIBT%NK^{wH^YHdzVuj_9cn21_&3nU;VH+7>qSY9{f(I$cx7LKU^fBE3`x>sQXX2`
z_Q$200!=_mT8>*XLF5-8bXCw2v#{-=4>1b>Zv|~>P7hDHsDI;^qtV23!>xjfqrd|H
zfwSw3R@;9lvtN)kP_IJz9JH+;pPyK#lkId4)nPg4p>WXs(B2Wn7AZPOBD!_+=Jd`V
z|9*UbD87y5D(3<o?Y%|#7+&IPv}192<D;*<zel)sG<m>mhL}qpB~K(&2sjLSITiqG
zEQluxW4YQpYYf<De{%hk-hFt<QDKy0wd`~6t%qH-i}s&IfH(oFAEeqXSqHEmK!xma
z9**&DJ<QM8{j^H;)x~qIZsXqAX}<2(?c05XKLHnoDrT=9Cwqeq2S-N;nt~F;qKT`i
znnaFvKqr%Qgq6_z?7Q>s+{b4>ot~B0bZesfr_<fztL!oX=?b7YBtks`_W+NE1Owq>
z`FgEYrolS`sOi8TJ4t(1pDJk!=qZplxnoK837#F_P0t5-22g;p6Q~Fb-Z``ZV%I+Z
ziuFsR<sIvO&B5WYW<Pe@FYg5)H}q({SDxH?eN_J7mx;_z?DE@H)JkkixhEi+VBU~I
zMTdiuR<Q3ZN9*pVsLP3nv99jodx*7gx#*_p1Ylo4&HY%~ISHEq4-@DLlB^(nqpsMt
z<?H8QfNaN^29z;0U*qjDKYHq0URiCx%jZ!;Suz(K@a|C&V<zib+N_PyN@wC*5UC&f
z1u=j*MD6FpBSC-R{%<H9codD}x7VKop7aH6LZmDcUwmSE)M#J|o1C~MY$5=N?nbGM
zXM5(%zP7}Fg#S75jN=~@fRvpQaG**q=)0nC3vS5L79{Jq`WjMW3j+?sLJAX&SC%xg
z$?m1L_hlp`G<NLRLGYTyweLWf63z-p)YZnXbKC7#HuTyN#6Xou7c*=~_fI4==W)?M
z>rBWQMYV$hkXz0pTZthXht9+V8)i`B(n%s&Wp~bT`RM<MMnN6~j4CLF2@K!#;N?F<
zrB;Bv1={qhYP_}vo_c|u*Sj`0S)1!VM`RZ$0@Wd5-mqQzB~f0SJ9kdwhuYp$f9R54
z;bQyI=Bfi(!PAN)!ZxIykGOL(c|j`Q_DpyLBBtV{C3-fZN<|)Q5=#Im6^nB~VkDu6
z=-@uVt{%{Sa~5~G2A7q*?Qpw<(W}Hz;Uyy+e{8~u#>+?2;OF*sa(GE?37S(41fxIx
z8?Jlz_N^$|W}=xzl|Qy6oM^u^#6!GS*^#h2XeY_SdSpdtJR*QX?WD$NXC%40EP;F#
zH7wpj+W4W();RE~Xx+)HhI<MO<2)$gdj_gX%Qx`TNgz-G6w;5Y1aF`|K4j!WAQJGM
zB*7t1Bafi3DF>QBURpp90>Z)-?!~vi-I`+2D1PF^iC!Rvz^=*9;l?9YivijNo8X%W
zM*ln#R4w8RgkX>S{Ug8}>d{3ln~s20V;=23a^<go`IhHMxz77P5ZzFO(<7kwHN{CM
zFab)Vxp~s^;<$VB%IV?`7k$)2Ou_s9G27XeT8R&CW~Jf<B!Ux@0a790AQC<h{}xE?
z<Zx>O`M|O;85d02t^0BA<+*Umi`~I868L-~azwKb3p8W3%g_TkWF7Kk32BN|Rz%ti
zI^J$_KqFMfRSmFqL#}%kO36r&!2O6=w!B6Mw|oQ#tn<eD7d*EbfZ?$OheMXoWqh}M
zd(VD{B71g<xfDl~Jakd4t5ldny(;E1VT=%>L_!jf3qY9yV4}cG60rw%r1{|dq}cVI
zpSsrDDFXN{3dq2|BS$VGDB-n&NIJL0ZCsJ?&iV>yMhH^};nIG52Iy}YXdFlzP9ciY
z)snSJp_09zn$Lo3OQJ9#Mu?MjpM8ncuy*ZQ8-^ZmwFzW*d3skFV>q#O;^u<)-8sAN
zGKM36Idf^zmGE777Xb+YJb8%nV3%J(1TuL)0@sX>jDWxy{6r=B_MnW7Bpgr;&?BJQ
zGzgivV+Byc1DTRSMaodY$%7F0bBmF9NOh#*R+LPR^h()nndd-=6Og6{fI#(u^rq*+
z`gu-Yvibuf$P%n;_lO58BwgI^0{JLnNh+FzsaFklMAuc-`w_F_<cs^d%fd{79)WkZ
zY2l(vswXz7x#b^$?%KDY>H1gSoS_q~RYymM+msZr=#{%K5x8`3oR7^f5w*cXjp+$^
zz5!Qh2usb$LCo2{eZKA;KW2eK#aG?E@X%bT+fI_mxT)tEvhHhtlp8ApJTe;sahha(
z+FeM^Dd2OCG>W4rtOAe>+_hctZ@BqrZba>#(l;Z`;C?2s1Jl4HMAlD&kB_fvr7IV+
z(yxTe_A-cor+^4ph@x4W8|Ls(l6B05!m-%P)r}P1glh3uQ`^b3DeR`2jQVaptVF^l
z1mjKJMu`_GR6N^~sh~>UnZJlfMx!{AD|T2mXVtbZHeI11C+>dnsO`fv50?K;kr;@=
z4myK}32)9><MiVo?xW6<-)iBv`1MPKdmney8E@pSFCS)(`9a`EcC~wmWaHXrwk(^x
z(FiJqDb`^Vr^28nHPpN$)UG}&Y23SX#w6KAIaKlmM#ewpl<OiAHM9JMwBJ0i@LE=G
zA>LE=s^s)$15&OZ3K2D-KMxNVL$i)d+J_S_5vJ#%4fQ7-xbKX4qyGUdRG7#}-BJ!z
zoCR)ar`L#`sStonwS$UzK#4i{qX^123^({uh?Egpp<vl_){>zF3n1zd>J?S$@|S74
zAQF&vFjygTFs+g37)Yu>D6B!e5J^=|sG7%lG|;?MR#gi^<Ipy(R8v)=t42hG8lBPN
zF=v5SKp8L~5#rm8bx?hUyZp74lz)#ZJ5%aAaONTpq_IF6F90_}`g#HM`;F1>NSn~+
zyZJsk=VBuv^Zj4}f&hhz;=f3JfQx9d>5Hc&aYI$%Lva_r2tPpruwPI3ofIAq-kuor
zSiP8{A}=BeI@tL<2h}G4wE%(u`Hm1}G^J`Se?!j@Rn!qE`uX<8l_oV?Iu6S#YkMGR
zuO5=azaVJ|p_|AnLByTfaOZeJ?rco{WPP=Fnr2)Blg6arwLG)hr~4${l7|$Ml}Rrq
zaN*@A-QUmB1@&?VRF}{ZVc9mcQ}t=sC+9~Y0?yUjyHU2QgGa<>&Syk6gbJ7*0cq>r
z#??Qx@#@MnBA$?N3TFwTaJlpD*}~kE8BQZuKM`*4dw1_vKu>BL%KbM&+q9mH0N_0U
zM=L*MkV2VyeiMnH5-<9IUn1y{J$o&>68W*lT28v=o|11Ys24DtQ`G&Hyocf;z?2!n
z3+v*Ok5LRs6}iJ_5&~WuSL_UxqsbO6-n_YrK+$wNycFFBj5)#Ku;oD}W!10=0jz*B
z`1~i?a|d;!=1L5c$=^Yu)`O7H0I56~ejqAnBnYB51ODs&{l4V~@W~P38d>cT1#jsY
zfDGp~ZNQ&J(<7if=*2G53Z&|$eDYx+d>>2N$AEDd@|aJp)vY2b8c<GUGU23F0<b}F
zU`j7`d5&%=LKQ<KHa*y(O|LYR71Bym0Eyx6FRoG_2<6nj5kQV(bGTvTc5b!Ge%L<R
zd!Nq(0d%PQKsZp6Scq_j5-W>lAs)nTR%KL1sYsketFB9ne+uUO0F_(#%1uJuGGRDU
zAHeclnl{gMhB6sW5#r6)^0z_iLHf+_r%!*@v;X^P{Rrhl13}3%0Y`(99`Kk)e_dOb
zs895s3($S4Lmq|Oj6ZMRzWovC1PGITd-oQ&7h@x5#NxtSKUi>8bcOf{Ajms+?Mii@
zb08cnSf24M`A{83lYx-*CY$^Ckz>b>O`sK!Kclt(HTHPQ$_%GjG{yk!Bry&Gdx)FC
zz7q0?pwxsVvXx#$g97Fc`$G_XkO-m7D!rgQhs3Ue0*usdq$&k~kDd{cs|p+jsHHeu
z-^YI2y%<XQdi|D9x(7!==Z|D6ckr%O{yRu=RvP^xhc|iX{S+>Zq-k<I2+;wC{%534
zJlYsQ+Ai2EpMucUj8bsO1GzT=L<5n=oX2T|Mu$|wMCC`$Im+22ozo+bftTZJza&a0
z#0)<a=D6NiqGwpb68Y|NTk$RH8{S+CC*cV)q9Q11@a_>-`-;9kT87s=zP|VFRYJU7
zjUgQ}c7xX*2NP&}Gaq6?W4cu>4h8`<P;{Y<i#dL01EJxGARlz_bcY+j=)F|b^=FaL
z-7ERW?(AJ2vF6yL2IeyYx4*L?9<*%m4^doX`T!Vc6<Q~oL4JHbQI1_V<AzO#85CX4
zmW<rr8T<hH%2?AlK&1NtUOn|jE~}fOgOWD|O*c;?5v`&%hWxcyEX>aN?!rlaC3tIq
z75e}k^qiBE?-!K;rZAr<MY#qzxtM(SqwE*)1IM&VV&fpuIQl@hfgU;<BB~SH&L^Ju
zBE|WG@fPGaGC+ocZ)ckI&iVU4d;vHXF93Ze{40Ka4-VylKI?m8|N6;?gKzAA^9`Zb
zGX&|szkUDraLPYT@Um)?{oki*54VN9c)3uC+yS6kf0<LfSFhUHlCk`k@BQnyyh_UZ
z^nAmvGHpTib9Xp?X6#wsEy>~OdFkL5XhAq;{=3PUzJony&R?R~@AJ35H-G3mr+?K0
zsYH1kHW{M5yC>--9lTgB#x<km@$;vVw7>iJ|6EDWf2SfknkeElaw)i^OF@s6!{@?p
zZ+Gtao(w$*2JUNY$FPGC+FJ<wj(N?Ny+AU+J1$9EbW5{9aNCK$f)MeT*ZSO(UrxaL
zd;cqB0+Dmin{4Sjy|rIo_x>W1y!V1kNTL12AGG{{>8fw6UPqzgm)8=!?yv7xUibai
zAKo24>iaPW(oCFtF<iSM&?venCPALB{g#e!NrAu?Zyu&BM^=83P5t~E#3HBZN>7gL
zh^h+KZ^VKIB>r>vP-jALgLWttWSw^YG|)CNw`pr6S$QZGGa+UGa7WR}b(4_SimK|3
zR}BqCyeTjjH$x!Pn7sN*V*!gAjG+o8Xx7f1I|&|$k}I=O7gRg+(`V5lUroG-rj;LE
z;I77N7UCh|Af++Tnc<5vmw+PnVAuB#lKucgf`ctNTJ#HO0~Au<)V|Vaw+sp7E=Rpm
ziGB+Vtjw)jx1v!5A({LdX?v_<tw7)3$J+Dg1g7^+A<C3o*yjQP1|-<`$@CE!0hhqo
zqe;`7Ymec96q(PtO)>&MM_|7O@WZ6RF`-$eKG?S54w6>>`;Aro2QXc!tt`X35E(HG
zoI3?g0>%ucV$MFhfx?m`pQ%NZJ*G$^V8s*cus{52FQJOi_9{i@V+J)GRIO>-+gl`+
zL*<zyvl&oj?@ZAanv&SlP^G9aaM=6x8ItyAkk_j*uSiB(0DV>9gh+o8A90ABW}Ik3
z%vQK6X*q!@A2YD`IDXj(PINy%R>dh^DxHk{K!&}$i1^7=V6iqygUA$nfSlkskts*e
z)zBKjWk?C*wzKou=(!_7ibLNjKlHd3kus11f1=|gZIjt59FM|YI{}b4@DO`QA<k*r
zjef)9PyyXh3;84gD!RvDK2>lf(HJ|Th-Nd(eYv4-S~H1%pV@DX3YCmMDtC)mG>DSI
z5TGA^<UG)9Tt2Rc40Z$s1@R<oTg$2bH<I-Lctr%D&Q_PsN9vT`r9{W!a}EKloIjYZ
zliG(e9zT8ht7V1ej=$FNe_k7SZ)MBTv-e^(qb=I%3N;Rd3D9kP<b5y3<;$m@GI?bC
zW2REoS8EGbM*p<wh1hDL*ur0u{3`|e+O7mWSXZDuIWV3dw4<Py5^Nxs+#TvBYj*WO
zkRx+=&UJD;+f{B3&KbFWVSi@Fw$8@27V^u@6iBn8l@;UE<gKi%h_^v@+qYJy>GM@`
z3ssiBt(o>_Sb~&(759{Fp+*+OV<}^FwJGs_Bc4Ip?yPEO81IY`2eSiKts$`Do1bAU
zIfsq;M|tUu&kDiisuH_d7})S5(G{c*XNjpLwk3vUTtIGaE__lpN%Xx8Pr{>{Z)7es
z-n7Uaw6H2d;SdxhGicH~Fu-F~WTrd*xCs-#RJyWzpUTFXMy?IKr%%u0@c2%Z04fV5
zi{QyM!A}&6bH-j7$?PL8X0~;g?<l%9ri8KACVC#P#HJ!qkHI#VoUp~k#q3^1t20>a
zX!)k?HrYq-s<WiLG@;DDFc)9@prsnBWtNwZPZxHT8_mwn^65<3C%Ed+J1~zLW@$Uw
zyKUGh|0dJk-o6vnp)#E;T*IAFsUb3HB{Lc-dnNipCf}r86EIFHT|K8yRRevJe7a&k
zdv7ks5re_((vkSUz&Ab5?-K)*LEC0nWc2zix+4x!^GaW~R0F~qq!hp}GqKTo%3;Cr
zukTM$sKnc3`&rjX!|t@HlyQYNeIE(K%1$7RigdiL`jwr;{$hMGohgH2tq|Z;eq&{8
zD}z!GvCp3Yxgo^0gc`O!FSvPmw=xf179Ki2dah0e1{6|-V9`yAwrz<Rv5Di$dDa@=
z$C{0xF$VU3rZ|IPqI)$TwK5vX>1Ku=?r3D?xy6Z8cM4A0OL#>$_)&(P%Uo@s&+LB3
zyJ!u^6kY=qL+=~MAoSw9yLG+V@=ifKjQHzjIl5&ilLMKs8!00`Da2rb?EluvWQH1@
z1QgH8YId?pqT!?}N2U(`aGjM)46q7ukcTEFC%Ym;EDO<qh<J!QC)XF3m!EyOFeJUp
z)#$sD0X{Za;i=c#-(Lh$2-loqg{JFjqX(?*f+%p+(~3-Oi8uOLSrz4HlkKNl+ny3{
zP3l;MuZJk0JY5)8ydK^9Jzs&ouZ)@jQ^@Jhb##gz)|THlXVm<_7TNzHNN$xhzH$-z
zul#pCYIV*k@5mw|Vl|lA+Fxy&%3hDo#}uCcqY-A7kdr2MLg^i(OnzR?AFM@qVcrs@
z?Fd*X%R*nWRC>IaQb25rh(Ah0|DojNC-nM0UKeFJ6H@7Nv*B`u7(bOy%fjX)vc2du
zd%rL-WdML9lIw=tmqF&%$+9kNHA;8Tnws($o`Q3lOI64iF~BLPOO2r6$&ihBmKxqw
zi6|v01yZoNnlEC`7fpNf9EO5*U;LY$OAB~m_tv_%jE4nMh?`H8&Kw%6@z%vgnmm2}
z&e90)*i0GCWB#_U_sL!4F^#oM<<{<&G+eX1dwihny^zN>-RZZR4N>gQgfM490xYJ+
ziiFA-^92lYG}!hK$Sjd+u`lo^Awh^Z1(D4Oqetzd<mTVW6_caE3x_NcDbB}MpHHYw
zM&&*+HPsCZLNg8TIWu$x60m9$Ie73vH~P}(+I|wHzy>VNmn}&X1EomqDMycPNBG&{
z^kWHaD3)Yl$LjEueLASULT$Iv_w`Wd3BLJs10NiPE5WWjfHQV2tawN7Z$764F7ICD
zOB~<d16QtBR}X*0+QpgjJF@=7GRZk#s^uX7i%8uBBP`b=3lYcQJ9&tV6cUfZ=9+$-
zMB=wJ-^*Au37aW4!jE>7n<qP&=zA3`1+iR_?+dZi%7w2;*G9(luVllOot<3=SDDjE
zw%ZO_@CZlBbcKu|TgF_ITfbIoA$;^g02xJ87#lb_9Vs!iWllCD<SNr<tJq<?b)mVn
z1dE}95%!E=Kt|jR#s{rvQp&CkRhrcoHXJj`T1QF_&tN<BTb)=x)!5yxhRVd`=UEuj
zI3@Jwz@Vzp=)o)rtmHwA|H<iL&9EO3r7h00-7)9z)YlY|{aV^sXW$o~p5RgoinG>C
zCjn~-A-oN>(=akJYQb^rg4beyMA6iwboTUnp_YE{Rb+*hVupFt=G>86GkQz?w88Of
zDZYP?1?>5<uJil97cJfUVh!_UIqA+X8{)q#QvKo?bK=XA(tr06J?4(=<eZW(T*RF*
zwyCi}C(k2V%KHZaDtjrn_3wT0hsQszE^!E4QGA*Gi#?CS(c=_4(bgdm&*PpPF1JfQ
z+@CAIG~=Ff8rjoj(n$%~CnP2~3?^P{7V0a`dAEL5-Omc}eIGNSrLL|nIc4l>WF)4$
zmcKuJXvp-VE<A|kx-v60Gjq=Kh15C9wKPYXMkX+sax&YLWoz9VV@4$dDNv3V&Ci4n
z3hJNP?Q@^Xnha<?b$^1z+MOlMzi?ct;bO@I0-@UEaX0)5Gczku&Gfjp*wI$0Q!&$I
zu%PxxLh){StXe|4o$Cub2L~l%SM?KJqJBA6tceTl&dPaRqVCmBF-8|uW%E~5t9f%3
z@`!BoyKiV@6eBX2P}~1#&BMtH3AOwaMyf5@Qj(IIvOjH2)r=VlkHfA$y9+6;rl}1#
zJz~{+b{fZRw+-L6EjXv*GxqXnO7c%=*~`8{dVFCP$dQ?x%$+YUGP#2pYv#Zd3En&q
z9~--`zEh%?C$98DYT@{e#0IU4W~WY_)J#u(9wRLjWG<`zXv8f^qU6t*LT$Sw=U*Pp
z#px#Gjnd~$l~hW6!#EzPhiWYF2p>Fn){S>t$l)mFw63N;!U<PPyM&2&>_K}4;6<{}
z<hFXhkA8buOj`QM_3I@En!DyJDlS}}l{j)FXq)RqBLXRTWDg%cT%&I}H|b36N{xDI
zVvJ2aw1xg{JPMm+kBf49n}?NKH8x%-nIMY-np64pYSYYn&m_HcU#<8K{KKKMLcG7h
zH>bn1#!Nf}NT166*x;A8{WTMtTIJ2mTe2m*hxp6tJlv*7#nleU;37jtBx}tD6$M6y
z-hiK5zdmK8OU3)-PbrpWCy1!$_{J{V>ghs5DDvJ0ZROT{5D_J_TJd;z#fLwRn&~Zd
zd3!~y)f?Wx$*CN)dHn{p_RX)t!^1b`HEmR$;ET>nkVDJlzb&*=&P-4%?bWm_M@%HQ
zUMibnKP&N1e2e}GFXDfF#L<6dT>Fo`on^mqy#1mDV9ypm{ohC0|JW<~2Uqbtxp{R;
zCBXkNz^QV?qScmkvzIRYjApG6NCI)R@2;gS)J~ag1;?$wh@M5_tFOKy8JN^y#1;!R
z#G!Jw%+WLBa_OpauxX{Fe`p)V!W83Nvi1>cb2X7CLxEH)aZ#-5Uhg2*gD2tqwB&$&
zmR%T^EdgUk2gSJnm#w`u?CbT+Fu=#9Y91iANb<U4bRO)c)PUEeq@<*XsHi_2#--S0
z1qQ06;KfS|Je)h~y|Jbh1K3cegn-Q;mXjGHZ`TpqMzY44Hfcl)0QV!uJM-aG5=tlW
z6t?W=sY_R}*wf8$Ep^Nt4<(EF0|a#*qYgkhiKU{%W^1XFIUh(V0I|h587_Qz0qC&=
zN;zyNFeM!!k_!s6P5{Vd#Ekx9KkJnqQx?YX9~2I=7f?T?cPVh>2$i|EjMFJ4hKE3h
z)LUqv8YkJDQh-M8$mM3T#(GnN(+PS9WC;7U_mXPkk0$F6tID%<Yn{vbk60nFf{CEg
zQO(;_vh*gNZ-$E)Dv@KG*m0})fNd9d`CJk}7K;7~TRpv2%OWymML~^M?|*oYG^_*Z
z6fiJ<=uRaAV3o%HSQSCNH`Z+)wQf&Mw^h&RJ_`@mFYI<pi?ta{)r?C@<$YDqfE?U_
zu&$uydg_+Xl$vh_Qng6pplVDGjEq=5vzAMGn^-O~ESKcws{_>v**~dAm*FYVb;A5+
zjqO`vi`T_O7g{jPY#*zcC$EiZvMTs%Do!9L|H5Tmj)UskepoSqo&@ghSOBot<GX15
zb__E{{LUf<Va288F2=@tyie*EuBlRofwH!JwW^<>7LEbLEt4kI9zQ=0_g+sD2q{PP
z3+T;@YLC`jM5z%laL(1}gwIQChhBqk@yy5P!ez-?oP<T0hL-B;YE%*MPO?45WKE_;
z2N7$%1H87oWMqP!PAt_&=_V)}&t)GNC*K=6i-KZf`>u5kDTzTQny{wVlpf#{tIydz
zdFpQa6_Ic(^?5@QD^Q>4!LcXO!bd9e@bOG0?HEnX;LLcegyOo^v)tb6(~!FG-Go>&
zvvC5~?XV8{rf_X@bL5pslccG<-^7~ggDc$SUJar>7qRk9o09%`=zX|RAgYMFwvX>L
zUMOC15np{aMtJa>AlsO6`_2{I+qRW37U~(~wIyDoVdGD_6`YDkM(Qw+CRCCbtHb|1
zOShD*@AE8B?Qkpk3d6MH&p6%pVDt49@d74Ay`OCSxO!CFQ1*ri0|%Kb6DzqxlGxK@
z3lloU%vY$kjvqf{Z8>JGT55X+L+bQkC#AK<qTCy2lj{f0h|DQFlItixYgQ&;CLU|O
zI9{5@sW`2*Ni?KnP3mE87Nz=#N^EBW?a@%Wz>_Q)Lp;+|AAaBAhYx)&T%A3Lvg6sa
zu>{3$Y|}ctiq}C*{nO~k$cW|mjkbFwCVZ1dVoImBg;b@C*he2rxQ6%6d(C);K$(f8
z$}L;3yq2w6Zf@$Ctuazj(UsYk@Y#p1t@as;ng4OcrLR@nLqBuiGT3&Ya*OS9h5#^0
z7b4vGVjI{7e|E1P+0+6;!_Vthwd>qdXQ(2((es7b)%W!D=q7MB3vAO$k7Sol*doQX
zSiSqKLrh@=4TZ=2*a0aq?)xgY-kBO07#th?#>^vG<9d&~`R5FM-!$I~lqbQjTEG6L
zdw1|cpe-qwcx`izACG>Uum@#wvW0KjaNW7k{)<5WcmKw&m@NALu9!eSC1qsIkGemV
z+a+{OTOo4%E`MeE@ST#isEp+G1G^21MgrJ{61e1YMoCxYg|_>>P#dC>inHHpE}Hbz
zUTdEz+FY)N@Ya|gzV=}?4yAH(3Y`|26Y4HE7S&vwJ#1wV@q=E0ua}p>+;$7bL!n(-
zmy)L9wn@486<aC)Qk8-jvEDIY=~V_U@betU%g6OgtmzeXT(Y$Gt*sx39U_AI5bISZ
zw5WVktmCQJTXx2Ex-Id();4TWjuYBKV%Vh(k8M{>#J7z@cQsECpt*UI0rbcDG`{is
zdh=H*^P8aKpo(<XmyjRl7_d}YU5+40y8dx*E4N()pvgjqxsWNSAE#C%(f!1alF@d1
zE8l+by{?uytQtxI*7a64JZJYST`whI#<rfpgt4q4NG@mi{K~|Iti*a5XEeOTm@Nq$
z&S<~&!dM`)_>sD9FiP7ec9m2KoOyXM_J>?j3SMxOZ&XH~TsBS?@KeWVOT$Ygt2b*O
z?9`WA9Q8GV$S7;U0-~~vzL;1Wz?Oypy|J94*|NwN{se?5j}v0EK$m<TAHp4YT+-!#
zcw<wBn+RrRib<E*<kar1!Srw^JEvd4+uJDAUQKtlGEk}C%aq&-&*RNc);uMNq{(f(
z<eQvO+~_X4ykNoZK<&yKG2}-$Ht3M3&;H+H!T%~;|3g~g|C9pl-!<g_A6|uBT9)T=
zMc~h)?jJKV?+u5mN=iwogk0~AxapFE#?@>YO+bd^;<}$)VPG-b^D@uznqReULM`b<
zQ(cNxUyxF!a-jw$MngXFI*Uw6l{+X4>>SI6+Fki{?@LL>RvE$2GJ1IIiQNlL+s84v
z>1l4d<;E$NTDMf4We;l%ss>jnOtv_^j;Wj!C_CYIcUUWQlZ!9$>2)+h)x*I<j~TZV
zJ_Wn(*VD3(-yP=?$PKLN>F<}%-(E&l<y(L?0CJ^3@Oi*HMfso4o;nqCFtmSYs5D!q
zLHE&J+Z<g+xs{BJg@EB>zyd}2O{dk>W4^lvR7=6wbvUv`T=kGU<Ua~!f-5GnEiCpM
zKAxSMJM@)RmI=?LI<?Plf{J^xow)?@OM~QS9;Sdjw7&kPk-#1-mSRuYJp~gFu_%+a
zt!Kg?#!P6VJnD0u&{BQ-2dR$q;|02(DTqf&TztoJIjNQTUIe$eD*aSrEOw1V*go!4
zFd=@^6RI6sRs@;FJj^WKfhOSn)H&Dr(dFK~G3~%ES84td!%bI;4Ulm*&e|Fn{1Rh*
z@mo$#qf3{}<kRa9OFkBGE8Wh+Qyd^OYvJ^UyQ28RhYvS})Adj3(d*^Lt;9pPw$y#B
zv~b|up!Ugl>pK3afpq>br{{{*3ax+q@rUJ#iGTy4)Sprko|@F5#Q$3I)V<;EqsRRd
z+n>*8Kh3o_6ByG`g{=NbMHs)4urH@v3ra8}<VsSbXg|5|srj0@QgRN-j3NohjD1i-
z1RdNgQ!ez#umSr!ZVDe3{m3wwyc4WH>>Z+&S<>?G;Tdf`8-RscQ$6W_-gB!LM^Rhw
zB$7Y+!}m<=P#6fheu&6D&%5z*sH)s58?r4_P%xG{89UOv6omGpP+@H9LT5uriQ!c<
zxr=_OIRbhv3Tku4|6>j9Zf7UzZKxl(l<+oxP8gML4YQ`?SNGJlIZ6XFEs~9MR_a}=
zvtE{upY4>W&_)q-B}DaXr-wXWuAsVwV8ct*?u@U4<YUJ7vJH(q&wRhU*XHd10q*zz
zVVL=c80df9i~nTkg`gD0&<<D>dLM2HqAhmQO8@xdDDmsYPNG8?k#Xr`xn#j_3je)a
zzhXiVDuV}vlmXb+PRqi$gDn9Wu<@(_W1Nc<6B8*grow-oeb#Gy^q|xIAK(IryT-xA
z2s36sM%h5;){PaJWv67v9y$cVvJ>W`Tq}F@GO+ik%2?E<FFLC0`F+7Nh^L6!8!#Zn
zW}3j)L3uh3d0k4@1@^Bx^W9N?6Y-Flx0`bxPzWT!zn_6kvAU!8Al(EzU&<A?3=_nx
zD(A`?ML4=d@4&x*G9fJFQgNS7frCY@S2bHhbN1@W9tyS@DbV5JvY+MRUYSqqVyN_Q
zwmV(Q>th1}FOy0gHXqzdK-B`j9peUIX6Y2T=a`6ct9)GzowaK`)=*FbF<Wr3798d;
zYFSn#6(_mhPgQa+EG$H$<!uCL%?9ehKku&(pLEILZtaE5uj0#vOJb6emFB%a74`J?
zQd_rM4EOb!s)$v=4MgHu>nys{uH_tNtgOsVC*Vc@@@Q<RMayjk3a_`<X>5ze!HeFt
zJq82rjs^7kxxx!bVG83FGmnBdBZnRY=IwmNI>NhJL77Hdy1DqO@JVEP`eFG1yL8Ln
zyidkd+Pb^D_c9JLLfpdS8u3gOw%9f|R|jooCu#1`&__Y{;iUM&k@V1&RixJku5pZ6
z;u^u7U|Uf4Br<`!%EMFQ6h|mwg9_>>mI7HyzoI9LdJ=@zK#Xv7d^&014!MHM#pmYy
zHZwHc<l@fC4VXj^jy}om{4g#eDmf>YmTf#bx^Z?qLZ2SaX{Pc^)oV9uT&I5G%#G@T
zjg6X_B|k{|NC<9oO<AbE6G{)Cja*!5nsy{@xOe01;F~BuBk6QSK-TIxEZ!coeI5r=
z<A3^^@7BjIp`h}~?gMTPf;t|*ga|wii!UwxXr^4V<Udor#g>}%hPms|!(C$B-)tW)
z{gC}>ul&A4LOnftuN$*3U7ngR<k`m*UwXM_!MQKl@7dajrF~&FpPhe+3oum8YdRDF
zG(3Cs_vG;p<wrvV8faLf`}U@X)HUZMW8ILok8i(Nh-2J0>>RIjo9zfxd7@}~hgbO7
zAam4zb3}{q9CO;~Ozm3$Dl`6l#p^IBeMm%z<I;0Y=%L<jet*IpomL4juCQ0Ip&W)A
z8J~MG)WgIANtkL=rFd9T;_@tc35W$u<yEpm0_($C9zS2<sd3qg>D3T|M$FDZl6cz$
zHM;dtlZ-2#QwolA%7}LAgQ*BJ7~mgqoqOO69Y7~un-J2X8+%}D<n~`*DAdNw4R7V<
z=4Ljn^`G#MlHLs~YP@yrwLy32*l==iabFmwV6GY%OfKCs5R@oqJUkqtIDUhx298G#
z!M<K4gWwz%m`%?baDE8{XfPljg@2Knv2(*}T<i9w8@AB>Tq~_FhD25)OP(XhKIYoP
z*KZw^*7B0xmv(Xv5FkI*M`p5)E0)a`J}tx>J$L&}mg|7zb0(-f+!3P1ph(Pg_!+$t
zWQPZVjTo$ox<>FDddKapmO-!G05lMa-;WaY#HP?|84^9Kir6E8(GIY?Hdy{=fOeCM
zoBIrX{(sWOHZJ3bN5$T(X-gm`bLu+ws`21(iPI=#`i&Md=T2>V1Ql1dVl}(tz2M8?
zviX14n1YQ>&-#^p)rH?39li|J3o)v)K|`97#U3W~JY)Oq^3tw<1_$~7NdEmD@z#1z
zZ%@yM=O^xiCf(7Ag?pv6#j+&{Y7$s@!uMLl|9<?>#@5Bj_3PIYv!tbV+Ptqr;JY24
zk{Ju;uywcEO^tu^`5q6j0E_sZ^2&;9ms-0W9ULBSE`CjfIx~Oq%RZz?^uJ2B`E&K=
zl#HESnZSGIhlUp|=>`BJW)hZI%rtUX$xn}CLWDw<ovrYVWHOm0n^suA+<3I?H7b6G
zK<m?7!0RCB@S|uzn%m9b!T{fGpbWcu2M5Kvg1#rHN4{SF?c2A#vhKaCHk~!SO_rUu
z=NDqUMSAJST4T|?{H9Nzo(kuCVO`2MdHFi0PTjfo&C$k;Rm&a-|Cm<(@<@LLq3%gu
z%m=MAp{-Opk8QEAMf~mK@2wWQtPF8Pdj}?dC@MbE>93N6(NRjl<vZJIx=b%kVn6xJ
zboM7A3J8g9J9{>vHb4JKt&w5jJ{ZMke_AbcnhwoEdImSgX;Y}}>xXud^U4wAs{OYW
z@;~On(Qa}Cu|aul*TGaOojHA<`2p`qYHdCZ){$jI?nEiTJs2BuWV#mSi-(jD_|$nI
zF`rH$0v!fHsa0e>&;=1(2LmHR&`j?D-d{jw*>MyIYcj*qTVj1QO*KjT&Rsk2dfL_Q
z@j3j0{2A}oX>V%aV2oNU@wk_0ySdS(M#HF6qRd&Tz)<miqG}#WgIoydyW_Kl3ZdpB
zS`MhRq`M``3J4yDVGjcg1pCEH)o*!RoE*k_<pv4M6Psqa>EGl&K)5H<n~CC~7|TDO
zU>SWkxz~~Pl7>?Gtfna6qJu&Q)6NJZq)V<UFO~!b2l+&IrLia^JwT<#?$D<1xavez
z7<<VrBD(7Wqzu4sr}EC>2=52u(_=XoQb=x++kifA5#Uox+7imCheQyRfian}0V6pn
zvSADY#Hm>Kp7!$_A`eJ0S_{Hrbr^FxM2kqYQ#R1ocN4oX^17taj78E4r;$S*`nnJ3
zb8&Ii4-TW4A@`STn}-&MS-iDn<o0}*)uJJa4NKn;)AfTUW!<J__6ZqXkFz^=3sD^%
zr*7tpg_JC`a8`eQ6E-(-jjL;Qp4#57)f@_e9FH}+$#z`O)Z^p|3A{JnDMXWiJ;F7B
z@sk-t5QEx42x<fcigSIDu6VD0?%1P*fyugPx5;Ei2`Nq~64311VlPe?vVbx=eQ;dK
zknFi(%TOsK`mhi!Vm9^He?Oqao8F?3(g|Ho5%D}TFh9@4sDT?RR<DF;+nO+UNoXh~
zxrGTeakB=mxSGb)14d7-orJ`%wxbuKmFYV<P>yu9E-kd$BCmE@ElpY_W9ATKm0_jD
zpychySezki>x1bnE@s58@hh|Sk2=`jyFYldmvEY9SvH5~S8d#Q%;ZPt9p73x9Ve_F
zQS*^X*&_}vp52jIS*~v9Q=(3WKg86%*r{#yAN@Bzqs+8%(vIYMBaI7SCdVWI_MQkV
zIMJZKh+48FR+kl{jjENTxv2WW<BiXn@<~v!g<D)VtYXXxCh5UuMe#<$5Pube5+TVC
zv{yEpWTTCEOPtPAGs`E#2~sTqQ@K+)83Rd0HpRmE5m8b6pat;<lkOitQ;x?w=InzP
zYCbWQ+?(!r(CF<#jn#r0y@Oc90oUhrlDbg#%uSnDU_+;@xX_-WI#RSae0TIv?D}uN
z?SyfhDH1*wL`ZljCTz8QbD3EKPVBPoOrd(0k=&dHgy9d@6w#n3G=%go!L_-+vO;)f
z1ds)IL|M9l`4wBJJBREUKzW=|i{$FDp7}a1@>nM^e%#(O*&w3}LGedQ0R|}F)H1>X
z49y>H)gn%rM4#mzkFb|-0GRqf{Zd%i!hlgXmLR%wd*}II=CCb$=Aq5Ib_0uCc0T*E
zC&^{Iq0UkSdnk{$5;gf%Y{ei7KA`A<s8<GS#n}=${aU`pD#EN%aF|&B{pe5Lwfhy@
zmdQ9~DqiB9xMo&zJ1u2y)<=p<D~`3a*t)cp8Q%$Xy{gMJFMG&7K^~pV(u~{^Kf;%Z
zqeL+WJ4k4miKo2J{zOfFCa3uxhv>H*o`!1m&L`iNS}mHTHcYST#&c{+u;9UM)4&9Z
zWoB<=b7^KBpnCGUl9@N>Q(csqQD2&LZfLaSk+;{Y^5ev|HjMc$P5V;mM$+wE77OJj
z=BYKz#eOCq6{jn=R=g~trKLsNuHpohj``Zu3~s|4?Jh&h|MH6NNJM=(Z`>7Kjz9jy
z4Kg!tdLv9Unl7%c$(T|dWim+&pu0g2)|kK;#hJ?nHC+OM;W&A7+G$Hrq4^oKw$?4d
zWK)qY-LFyh*kNm(lzWrQpm`Al%VP)!&htjT<nbG3-wwq)xvwICDAgpe87pc&UGDlH
z<j|uT=^)J}n$#lGq8&c>IXJ$aqW=2J1^vlu+GXyuZ&=0a^0sKj8GX6bCTKe$d_^?L
z(m6GVciROObHMfM*XQSuP&_R9{Z*83<)p@4Y9z8fykf-X&{fB=TX8?BYrXsGdGWc1
zNe8k#P9K3v(-w0<Y-Johk->n+u+RbBcNa(ysSiNRSDpzfklnx7GQ7~Do8D+F8i{Ma
zd=wC?AQmrB3J5J>lJa}ZzrR|d2YcYv{P8n*95=c`(5o8L)F-sXnHk)&P$BnT`3#s=
zOl9OiW@msCIfJV7iM(J2g=hl4;*@?s#J$i9xay=szDP~NQ~b*OTR(}9v(rf2XGll7
zhSuu5D~LSxQn6a?Lzia=NH>+;Ei;$H2;QCmbZnjp#ElM-sH_l{#V2E%OWHzlO&zz2
zsX1meEDG}nB)3maria3fIO)l?JgzyNcNcUglL9*%%o0klbL?U3;$Um33flYMTKJNS
zo;hgq-rJCh*DFXOuV%~mN)E$~Mn@0rYoaYJ)I-^g-6w3a{q0z&(RR1aeR>6ONAR#1
zPfc*QKy=5eG}Qq)w;|oDb-~4o$QAjV#~xdx<UOm&ml~GNO+O^TrzMN6#c>P89ZoqU
zgkjLpcPR@ZQCrMWcK@|e*}PwDyLX(3z8Ok5YF=1tG`@mE7%S~?95+8`b=t@`v<DR8
zFI`Qy5Xs^(&1XI9Ioq#4ej`}lJa{w5!MP(}J=SQ$V38snm1PGmZSZEN6#rRd@1-%J
zrKH*{#bIz;{JXib@*2xLCX-1wKmxgJEisVwqhMzE5|%LD)v)#Rj*-IS7)UM)oA`~y
zs~}=Py)-Jfn4b-`rECxR7NG|mQ(OHKAC0=F*_h*&UZc_(^Bw&47%7|%R#pk_9lch#
zH>!gazrjSDfsg+r+aIpEA+>$>tldjiqVu1{!f7J8%H(dZGdf!308PV8Lv613;*y{H
zappL`K|$SLaQT^>1UoGT;ifC8a$s0MWAYu7O87RAU5rH5bMuA!GE$Or)f5XkS)-=r
zGSPq4!H~#=-oZ{V;#$$rCoJ{KEkscY^cJf125aqiMt{wYVGIM^a?QLNzv6Yp>+r}|
zh+3qN3s#mn<sBL$O5AjY<>2h_@Z!)goq`1_b;D9T!?PAka3f9A>qnN$hWcKfPVyVk
z5KqodqYiK8%T$Q)Eee*mkoYc7O#=BTP{%=o-a(3cd_;NIJwBL=`q@C7-hmm+0<e+w
zLpH|WFBe{4{u#;<p7ppK$9LZzrciZZ3_i@-ItyjURon_Hon(!<)Ipqo54YzT;{(4f
zB;pmwMkS&^&mIpQF2-x)M-0;E`MB}?fz!{Bnk^el=yv8$JbqRAS4&=`DFh~})}V;Z
zYqTL}5OXZ0<XN}1wT<Sl=j81E^BZ0sW?Pj4L=o*qQZO*FKa@)=v}T8|R~a7zdQp!d
zg?>7k@wKQ0t4MEA1e%hgZ0qor?sh#=qc9eG8Dkk`?t%%<C1&?@wFVAYIm`Q?KqSKu
z?S3T%q|0%JFjw=HPfS(*A$`Hrt28dHL+$LJL;vhH=Eo?8rF2>?qgj?zx4cWEyviB#
z;k*mRvMA4n?P*|>yQ?Y^ms))ph=&q5%lY{$tGh^%Gg=%ZZ&9z8S5thDT<5<$HHjs%
z^@2LZT}TO2Gt+u=se1A>8jUap1UQ>F+_IZISnTyI!($GB`c^9g5_KCQiNa8k#K7x!
zHpuc_yM>&oN=MpmYPfC;s6WbE=7syQaMirT3u2+<QptTp5=109#B?2_1jh-p3lgRi
zX7xoxj7-!-5KK?Vrl*g4C8*Un!q==zd9g!TGgGJG-8Gr1-u7VOz=kBIS6ndkF@Ict
zDW((3%Wk+=YA^3`_WZ~F%l{=DdyyvPu%BGh!4Iu2KhCY)MgITNj;CxK;o`q6xBow_
Z*l_d1uzl@sZRBsMCzO7TKX&QHe*^nw)&Bqh

diff --git a/articles/EUCAST.html b/articles/EUCAST.html
index fe21e554..e060107e 100644
--- a/articles/EUCAST.html
+++ b/articles/EUCAST.html
@@ -38,7 +38,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 ebc6020b..9f1f9af7 100644
--- a/articles/MDR.html
+++ b/articles/MDR.html
@@ -38,7 +38,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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">
@@ -385,19 +385,19 @@ names or codes, this would have worked exactly the same way:</p>
 <div class="sourceCode" id="cb8"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="fu"><a href="https://rdrr.io/r/utils/head.html" class="external-link">head</a></span><span class="op">(</span><span class="va">my_TB_data</span><span class="op">)</span></span>
 <span><span class="co">#&gt;   rifampicin isoniazid gatifloxacin ethambutol pyrazinamide moxifloxacin</span></span>
-<span><span class="co">#&gt; 1          R         I            S          R            S            I</span></span>
-<span><span class="co">#&gt; 2          I         I            R          S            S            S</span></span>
-<span><span class="co">#&gt; 3          R         R            I          R            R            S</span></span>
-<span><span class="co">#&gt; 4          S         S            I          R            I            R</span></span>
-<span><span class="co">#&gt; 5          R         S            S          I            S            S</span></span>
-<span><span class="co">#&gt; 6          S         I            S          R            S            S</span></span>
+<span><span class="co">#&gt; 1          I         R            I          S            S            I</span></span>
+<span><span class="co">#&gt; 2          S         S            S          I            I            I</span></span>
+<span><span class="co">#&gt; 3          I         R            S          I            I            I</span></span>
+<span><span class="co">#&gt; 4          I         I            R          I            S            R</span></span>
+<span><span class="co">#&gt; 5          R         I            I          S            R            R</span></span>
+<span><span class="co">#&gt; 6          R         I            S          R            I            R</span></span>
 <span><span class="co">#&gt;   kanamycin</span></span>
-<span><span class="co">#&gt; 1         S</span></span>
-<span><span class="co">#&gt; 2         I</span></span>
-<span><span class="co">#&gt; 3         S</span></span>
-<span><span class="co">#&gt; 4         R</span></span>
-<span><span class="co">#&gt; 5         R</span></span>
-<span><span class="co">#&gt; 6         R</span></span></code></pre></div>
+<span><span class="co">#&gt; 1         I</span></span>
+<span><span class="co">#&gt; 2         S</span></span>
+<span><span class="co">#&gt; 3         R</span></span>
+<span><span class="co">#&gt; 4         S</span></span>
+<span><span class="co">#&gt; 5         I</span></span>
+<span><span class="co">#&gt; 6         S</span></span></code></pre></div>
 <p>We can now add the interpretation of MDR-TB to our data set. You can
 use:</p>
 <div class="sourceCode" id="cb9"><pre class="downlit sourceCode r">
@@ -438,40 +438,40 @@ Unique: 5</p>
 <tr class="odd">
 <td align="left">1</td>
 <td align="left">Mono-resistant</td>
-<td align="right">3182</td>
-<td align="right">63.64%</td>
-<td align="right">3182</td>
-<td align="right">63.64%</td>
+<td align="right">3198</td>
+<td align="right">63.96%</td>
+<td align="right">3198</td>
+<td align="right">63.96%</td>
 </tr>
 <tr class="even">
 <td align="left">2</td>
 <td align="left">Negative</td>
-<td align="right">1027</td>
-<td align="right">20.54%</td>
-<td align="right">4209</td>
-<td align="right">84.18%</td>
+<td align="right">966</td>
+<td align="right">19.32%</td>
+<td align="right">4164</td>
+<td align="right">83.28%</td>
 </tr>
 <tr class="odd">
 <td align="left">3</td>
 <td align="left">Multi-drug-resistant</td>
-<td align="right">462</td>
-<td align="right">9.24%</td>
-<td align="right">4671</td>
-<td align="right">93.42%</td>
+<td align="right">456</td>
+<td align="right">9.12%</td>
+<td align="right">4620</td>
+<td align="right">92.40%</td>
 </tr>
 <tr class="even">
 <td align="left">4</td>
 <td align="left">Poly-resistant</td>
-<td align="right">237</td>
-<td align="right">4.74%</td>
-<td align="right">4908</td>
-<td align="right">98.16%</td>
+<td align="right">278</td>
+<td align="right">5.56%</td>
+<td align="right">4898</td>
+<td align="right">97.96%</td>
 </tr>
 <tr class="odd">
 <td align="left">5</td>
 <td align="left">Extensively drug-resistant</td>
-<td align="right">92</td>
-<td align="right">1.84%</td>
+<td align="right">102</td>
+<td align="right">2.04%</td>
 <td align="right">5000</td>
 <td align="right">100.00%</td>
 </tr>
diff --git a/articles/PCA.html b/articles/PCA.html
index 95ce8174..d96904ca 100644
--- a/articles/PCA.html
+++ b/articles/PCA.html
@@ -38,7 +38,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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/SPSS.html b/articles/SPSS.html
index fdd2158a..21ed77aa 100644
--- a/articles/SPSS.html
+++ b/articles/SPSS.html
@@ -38,7 +38,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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.html b/articles/WHONET.html
index 7766d164..17cec8e1 100644
--- a/articles/WHONET.html
+++ b/articles/WHONET.html
@@ -38,7 +38,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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/datasets.html b/articles/datasets.html
index 416776cb..2c800a9c 100644
--- a/articles/datasets.html
+++ b/articles/datasets.html
@@ -38,7 +38,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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/index.html b/articles/index.html
index c740f9fa..dcb1f273 100644
--- a/articles/index.html
+++ b/articles/index.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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.html b/articles/resistance_predict.html
index 8034bd61..f677c675 100644
--- a/articles/resistance_predict.html
+++ b/articles/resistance_predict.html
@@ -38,7 +38,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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/welcome_to_AMR.html b/articles/welcome_to_AMR.html
index 81a2b0a7..fb4e2482 100644
--- a/articles/welcome_to_AMR.html
+++ b/articles/welcome_to_AMR.html
@@ -38,7 +38,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 73c91f1f..6ff9dc9b 100644
--- a/authors.html
+++ b/authors.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 085de94d..77fca9bd 100644
--- a/index.html
+++ b/index.html
@@ -42,7 +42,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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">
@@ -219,6 +219,7 @@
 <div class="section level4">
 <h4 id="filtering-and-selecting-data">Filtering and selecting data<a class="anchor" aria-label="anchor" href="#filtering-and-selecting-data"></a>
 </h4>
+<p>One of the most powerful functions of this package, aside from calculating and plotting AMR, is selecting and filtering based on antibiotic columns. This can be done using the so-called <a href="https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html">antibiotic class selectors</a> that work in base R, <code>dplyr</code> and <code>data.table</code>:</p>
 <div class="sourceCode" id="cb1"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="co"># AMR works great with dplyr, but it's not required or neccesary</span></span>
 <span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">library</a></span><span class="op">(</span><span class="va"><a href="https://msberends.github.io/AMR/">AMR</a></span><span class="op">)</span></span>
@@ -226,8 +227,10 @@
 <span></span>
 <span><span class="va">example_isolates</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://dplyr.tidyverse.org/reference/mutate.html" class="external-link">mutate</a></span><span class="op">(</span>bacteria <span class="op">=</span> <span class="fu"><a href="reference/mo_property.html">mo_fullname</a></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"># filtering functions for microorganisms:</span></span>
 <span>  <span class="fu"><a href="https://dplyr.tidyverse.org/reference/filter.html" class="external-link">filter</a></span><span class="op">(</span><span class="fu"><a href="reference/mo_property.html">mo_is_gram_negative</a></span><span class="op">(</span><span class="op">)</span>,</span>
 <span>         <span class="fu"><a href="reference/mo_property.html">mo_is_intrinsic_resistant</a></span><span class="op">(</span>ab <span class="op">=</span> <span class="st">"cefotax"</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"># antibiotic selectors:</span></span>
 <span>  <span class="fu"><a href="https://dplyr.tidyverse.org/reference/select.html" class="external-link">select</a></span><span class="op">(</span><span class="va">bacteria</span>,</span>
 <span>         <span class="fu"><a href="reference/antibiotic_class_selectors.html">aminoglycosides</a></span><span class="op">(</span><span class="op">)</span>,</span>
 <span>         <span class="fu"><a href="reference/antibiotic_class_selectors.html">carbapenems</a></span><span class="op">(</span><span class="op">)</span><span class="op">)</span></span></code></pre></div>
@@ -337,18 +340,21 @@
 </table>
 <p>A base R equivalent would be:</p>
 <div class="sourceCode" id="cb2"><pre class="downlit sourceCode r">
-<code class="sourceCode R"><span><span class="va">example_isolates</span><span class="op">$</span><span class="va">bacteria</span> <span class="op">&lt;-</span> <span class="fu"><a href="reference/mo_property.html">mo_fullname</a></span><span class="op">(</span><span class="va">example_isolates</span><span class="op">$</span><span class="va">mo</span><span class="op">)</span></span>
+<code class="sourceCode R"><span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">library</a></span><span class="op">(</span><span class="va"><a href="https://msberends.github.io/AMR/">AMR</a></span><span class="op">)</span></span>
+<span><span class="va">example_isolates</span><span class="op">$</span><span class="va">bacteria</span> <span class="op">&lt;-</span> <span class="fu"><a href="reference/mo_property.html">mo_fullname</a></span><span class="op">(</span><span class="va">example_isolates</span><span class="op">$</span><span class="va">mo</span><span class="op">)</span></span>
 <span><span class="va">example_isolates</span><span class="op">[</span><span class="fu"><a href="https://rdrr.io/r/base/which.html" class="external-link">which</a></span><span class="op">(</span><span class="fu"><a href="reference/mo_property.html">mo_is_gram_negative</a></span><span class="op">(</span><span class="op">)</span> <span class="op">&amp;</span></span>
 <span>                         <span class="fu"><a href="reference/mo_property.html">mo_is_intrinsic_resistant</a></span><span class="op">(</span>ab <span class="op">=</span> <span class="st">"cefotax"</span><span class="op">)</span><span class="op">)</span>,</span>
 <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="st">"bacteria"</span>, <span class="fu"><a href="reference/antibiotic_class_selectors.html">aminoglycosides</a></span><span class="op">(</span><span class="op">)</span>, <span class="fu"><a href="reference/antibiotic_class_selectors.html">carbapenems</a></span><span class="op">(</span><span class="op">)</span><span class="op">)</span><span class="op">]</span></span></code></pre></div>
-<p>This base R snippet will work in any version of R since April 2013 (R-3.0).</p>
+<p>This base R code will work in any version of R since April 2013 (R-3.0). Moreover, this code works identically with the <code>data.table</code> package, only by starting with:</p>
+<div class="sourceCode" id="cb3"><pre class="downlit sourceCode r">
+<code class="sourceCode R"><span><span class="va">example_isolates</span> <span class="op">&lt;-</span> <span class="fu">data.table</span><span class="fu">::</span><span class="fu"><a href="https://Rdatatable.gitlab.io/data.table/reference/as.data.table.html" class="external-link">as.data.table</a></span><span class="op">(</span><span class="va">example_isolates</span><span class="op">)</span></span></code></pre></div>
 </div>
 <div class="section level4">
 <h4 id="generating-antibiograms">Generating antibiograms<a class="anchor" aria-label="anchor" href="#generating-antibiograms"></a>
 </h4>
 <p>The <code>AMR</code> package supports generating traditional, combined, syndromic, and even weighted-incidence syndromic combination antibiograms (WISCA).</p>
 <p>If used inside R Markdown or Quarto, the table will be printed in the right output format automatically (such as markdown, LaTeX, HTML, etc.).</p>
-<div class="sourceCode" id="cb3"><pre class="downlit sourceCode r">
+<div class="sourceCode" id="cb4"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="fu"><a href="reference/antibiogram.html">antibiogram</a></span><span class="op">(</span><span class="va">example_isolates</span>,</span>
 <span>            antibiotics <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="fu"><a href="reference/antibiotic_class_selectors.html">aminoglycosides</a></span><span class="op">(</span><span class="op">)</span>, <span class="fu"><a href="reference/antibiotic_class_selectors.html">carbapenems</a></span><span class="op">(</span><span class="op">)</span><span class="op">)</span><span class="op">)</span></span></code></pre></div>
 <table class="table">
@@ -464,7 +470,7 @@
 </tbody>
 </table>
 <p>In combination antibiograms, it is clear that combined antibiotics yield higher empiric coverage:</p>
-<div class="sourceCode" id="cb4"><pre class="downlit sourceCode r">
+<div class="sourceCode" id="cb5"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="fu"><a href="reference/antibiogram.html">antibiogram</a></span><span class="op">(</span><span class="va">example_isolates</span>,</span>
 <span>            antibiotics <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="st">"TZP"</span>, <span class="st">"TZP+TOB"</span>, <span class="st">"TZP+GEN"</span><span class="op">)</span>,</span>
 <span>            mo_transform <span class="op">=</span> <span class="st">"gramstain"</span><span class="op">)</span></span></code></pre></div>
@@ -491,7 +497,7 @@
 </tbody>
 </table>
 <p>Like many other functions in this package, <code><a href="reference/antibiogram.html">antibiogram()</a></code> comes with support for 20 languages that are often detected automatically based on system language:</p>
-<div class="sourceCode" id="cb5"><pre class="downlit sourceCode r">
+<div class="sourceCode" id="cb6"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="fu"><a href="reference/antibiogram.html">antibiogram</a></span><span class="op">(</span><span class="va">example_isolates</span>,</span>
 <span>            antibiotics <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="st">"cipro"</span>, <span class="st">"tobra"</span>, <span class="st">"genta"</span><span class="op">)</span>, <span class="co"># any arbitrary name or code will work</span></span>
 <span>            mo_transform <span class="op">=</span> <span class="st">"gramstain"</span>,</span>
@@ -524,15 +530,56 @@
 <h4 id="calculating-resistance-per-group">Calculating resistance per group<a class="anchor" aria-label="anchor" href="#calculating-resistance-per-group"></a>
 </h4>
 <p>For a manual approach, you can use the <code>resistance</code> or <code><a href="reference/proportion.html">susceptibility()</a></code> function:</p>
-<div class="sourceCode" id="cb6"><pre class="downlit sourceCode r">
+<div class="sourceCode" id="cb7"><pre class="downlit sourceCode r">
+<code class="sourceCode R"><span><span class="va">example_isolates</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span>
+<span>  <span class="co"># group by ward:</span></span>
+<span>  <span class="fu"><a href="https://dplyr.tidyverse.org/reference/group_by.html" class="external-link">group_by</a></span><span class="op">(</span><span class="va">ward</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"># calculate AMR using resistance() for gentamicin and tobramycin</span></span>
+<span>  <span class="co"># and get their 95% confidence intervals using sir_confidence_interval():</span></span>
+<span>  <span class="fu"><a href="https://dplyr.tidyverse.org/reference/summarise.html" class="external-link">summarise</a></span><span class="op">(</span><span class="fu"><a href="https://dplyr.tidyverse.org/reference/across.html" class="external-link">across</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="va">GEN</span>, <span class="va">TOB</span><span class="op">)</span>,</span>
+<span>                   <span class="fu"><a href="https://rdrr.io/r/base/list.html" class="external-link">list</a></span><span class="op">(</span>total_R <span class="op">=</span> <span class="va">resistance</span>,</span>
+<span>                        conf_int <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="reference/proportion.html">sir_confidence_interval</a></span><span class="op">(</span><span class="va">x</span>, collapse <span class="op">=</span> <span class="st">"-"</span><span class="op">)</span><span class="op">)</span><span class="op">)</span><span class="op">)</span></span></code></pre></div>
+<table class="table">
+<thead><tr class="header">
+<th align="center">ward</th>
+<th align="center">GEN_total_R</th>
+<th align="center">GEN_conf_int</th>
+<th align="center">TOB_total_R</th>
+<th align="center">TOB_conf_int</th>
+</tr></thead>
+<tbody>
+<tr class="odd">
+<td align="center">Clinical</td>
+<td align="center">0.229</td>
+<td align="center">0.205-0.254</td>
+<td align="center">0.315</td>
+<td align="center">0.284-0.347</td>
+</tr>
+<tr class="even">
+<td align="center">ICU</td>
+<td align="center">0.290</td>
+<td align="center">0.253-0.330</td>
+<td align="center">0.400</td>
+<td align="center">0.353-0.449</td>
+</tr>
+<tr class="odd">
+<td align="center">Outpatient</td>
+<td align="center">0.200</td>
+<td align="center">0.131-0.285</td>
+<td align="center">0.368</td>
+<td align="center">0.254-0.493</td>
+</tr>
+</tbody>
+</table>
+<p>Or use <a href="https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html">antibiotic class selectors</a> to select a series of antibiotic columns:</p>
+<div class="sourceCode" id="cb8"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">library</a></span><span class="op">(</span><span class="va"><a href="https://msberends.github.io/AMR/">AMR</a></span><span class="op">)</span></span>
 <span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">library</a></span><span class="op">(</span><span class="va"><a href="https://dplyr.tidyverse.org" class="external-link">dplyr</a></span><span class="op">)</span></span>
 <span></span>
 <span><span class="va">out</span> <span class="op">&lt;-</span> <span class="va">example_isolates</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span>
 <span>  <span class="co"># group by ward:</span></span>
 <span>  <span class="fu"><a href="https://dplyr.tidyverse.org/reference/group_by.html" class="external-link">group_by</a></span><span class="op">(</span><span class="va">ward</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"># calculate AMR using resistance(), over all aminoglycosides</span></span>
-<span>  <span class="co"># and polymyxins:</span></span>
+<span>  <span class="co"># calculate AMR using resistance(), over all aminoglycosides and polymyxins:</span></span>
 <span>  <span class="fu"><a href="https://dplyr.tidyverse.org/reference/summarise.html" class="external-link">summarise</a></span><span class="op">(</span><span class="fu"><a href="https://dplyr.tidyverse.org/reference/across.html" class="external-link">across</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="fu"><a href="reference/antibiotic_class_selectors.html">aminoglycosides</a></span><span class="op">(</span><span class="op">)</span>, <span class="fu"><a href="reference/antibiotic_class_selectors.html">polymyxins</a></span><span class="op">(</span><span class="op">)</span><span class="op">)</span>,</span>
 <span>            <span class="va">resistance</span><span class="op">)</span><span class="op">)</span></span>
 <span><span class="va">out</span></span></code></pre></div>
@@ -572,7 +619,7 @@
 </tr>
 </tbody>
 </table>
-<div class="sourceCode" id="cb7"><pre class="downlit sourceCode r">
+<div class="sourceCode" id="cb9"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="co"># transform the antibiotic columns to names:</span></span>
 <span><span class="va">out</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> <span class="fu"><a href="reference/ab_property.html">set_ab_names</a></span><span class="op">(</span><span class="op">)</span></span></code></pre></div>
 <table class="table">
@@ -619,7 +666,7 @@
 </tr>
 </tbody>
 </table>
-<div class="sourceCode" id="cb8"><pre class="downlit sourceCode r">
+<div class="sourceCode" id="cb10"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="co"># transform the antibiotic column to ATC codes:</span></span>
 <span><span class="va">out</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> <span class="fu"><a href="reference/ab_property.html">set_ab_names</a></span><span class="op">(</span>property <span class="op">=</span> <span class="st">"atc"</span><span class="op">)</span></span></code></pre></div>
 <table class="table">
@@ -699,7 +746,7 @@
 </h4>
 <p><a href="https://cran.r-project.org/package=AMR" class="external-link"><img src="https://www.r-pkg.org/badges/version-ago/AMR" alt="CRAN"></a> <a href="https://cran.r-project.org/package=AMR" class="external-link"><img src="https://cranlogs.r-pkg.org/badges/grand-total/AMR" alt="CRANlogs"></a></p>
 <p>This package is available <a href="https://cran.r-project.org/package=AMR" class="external-link">here on the official R network (CRAN)</a>. Install this package in R from CRAN by using the command:</p>
-<div class="sourceCode" id="cb9"><pre class="downlit sourceCode r">
+<div class="sourceCode" id="cb11"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="fu"><a href="https://rdrr.io/r/utils/install.packages.html" class="external-link">install.packages</a></span><span class="op">(</span><span class="st">"AMR"</span><span class="op">)</span></span></code></pre></div>
 <p>It will be downloaded and installed automatically. For RStudio, click on the menu <em>Tools</em> &gt; <em>Install Packages…</em> and then type in “AMR” and press <kbd>Install</kbd>.</p>
 <p><strong>Note:</strong> Not all functions on this website may be available in this latest release. To use all functions and data sets mentioned on this website, install the latest development version.</p>
@@ -713,13 +760,13 @@
 <ol style="list-style-type: decimal">
 <li>
 <p>Manually, using:</p>
-<div class="sourceCode" id="cb10"><pre class="downlit sourceCode r">
+<div class="sourceCode" id="cb12"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="fu"><a href="https://rdrr.io/r/utils/install.packages.html" class="external-link">install.packages</a></span><span class="op">(</span><span class="st">"remotes"</span><span class="op">)</span> <span class="co"># if you haven't already</span></span>
 <span><span class="fu">remotes</span><span class="fu">::</span><span class="fu"><a href="https://remotes.r-lib.org/reference/install_github.html" class="external-link">install_github</a></span><span class="op">(</span><span class="st">"msberends/AMR"</span><span class="op">)</span></span></code></pre></div>
 </li>
 <li>
 <p>Automatically, using the <a href="https://ropensci.org/r-universe/" class="external-link">rOpenSci R-universe platform</a>, by adding <a href="https://msberends.r-universe.dev" class="external-link">our R-universe address</a> to your list of repositories (‘repos’):</p>
-<div class="sourceCode" id="cb11"><pre class="downlit sourceCode r">
+<div class="sourceCode" id="cb13"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="fu"><a href="https://rdrr.io/r/base/options.html" class="external-link">options</a></span><span class="op">(</span>repos <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="fu"><a href="https://rdrr.io/r/base/options.html" class="external-link">getOption</a></span><span class="op">(</span><span class="st">"repos"</span><span class="op">)</span>,</span>
 <span>                  msberends <span class="op">=</span> <span class="st">"https://msberends.r-universe.dev"</span><span class="op">)</span><span class="op">)</span></span></code></pre></div>
 <p>After this, you can install and update this <code>AMR</code> package like any official release (e.g., using <code>install.packages("AMR")</code> or in RStudio via <em>Tools</em> &gt; <em>Check for Package Updates…</em>).</p>
diff --git a/news/index.html b/news/index.html
index 41b8f2ee..4783ad0f 100644
--- a/news/index.html
+++ b/news/index.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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">
@@ -142,7 +142,7 @@
     </div>
 
     <div class="section level2">
-<h2 class="pkg-version" data-toc-text="1.8.2.9148" id="amr-1829148">AMR 1.8.2.9148<a class="anchor" aria-label="anchor" href="#amr-1829148"></a></h2>
+<h2 class="pkg-version" data-toc-text="1.8.2.9150" id="amr-1829150">AMR 1.8.2.9150<a class="anchor" aria-label="anchor" href="#amr-1829150"></a></h2>
 <p><em>(this beta version will eventually become v2.0! We’re happy to reach a new major milestone soon!)</em></p>
 <p>This is a new major release of the AMR package, with great new additions but also some breaking changes for current users. These are all listed below.</p>
 <p><strong><a href="https://en.wikipedia.org/wiki/TL;DR" class="external-link">TL;DR</a></strong></p>
@@ -156,37 +156,43 @@
 <li>Now available in 20 languages</li>
 <li>Many small bug fixes</li>
 </ul><div class="section level3">
-<h3 id="new-1-8-2-9148">New<a class="anchor" aria-label="anchor" href="#new-1-8-2-9148"></a></h3>
+<h3 id="new-1-8-2-9150">New<a class="anchor" aria-label="anchor" href="#new-1-8-2-9150"></a></h3>
 <div class="section level4">
-<h4 id="sir-vs-rsi-1-8-2-9148">SIR vs. RSI<a class="anchor" aria-label="anchor" href="#sir-vs-rsi-1-8-2-9148"></a></h4>
+<h4 id="sir-vs-rsi-1-8-2-9150">SIR vs. RSI<a class="anchor" aria-label="anchor" href="#sir-vs-rsi-1-8-2-9150"></a></h4>
 <p>For this milestone version, we replaced all mentions of RSI with SIR, to comply with what is actually being commonly used in the field of clinical microbiology when it comes to this tri-form regarding AMR.</p>
 <p>While existing functions such as <code><a href="../reference/AMR-deprecated.html">as.rsi()</a></code>, <code><a href="../reference/AMR-deprecated.html">rsi_df()</a></code> and <code><a href="../reference/AMR-deprecated.html">ggplot_rsi()</a></code> still work, their replacements <code><a href="../reference/as.sir.html">as.sir()</a></code>, <code><a href="../reference/proportion.html">sir_df()</a></code>, <code><a href="../reference/ggplot_sir.html">ggplot_sir()</a></code> are now the current functions for AMR data analysis. A warning will be thrown once a session to remind users about this. The data set <code>rsi_translation</code> is now called <code>clinical_breakpoints</code> to better reflect its content.</p>
 <p>The ‘RSI functions’ will be removed in a future version, but not before late 2023 / early 2024.</p>
 </div>
 <div class="section level4">
-<h4 id="new-antibiogram-function-1-8-2-9148">New antibiogram function<a class="anchor" aria-label="anchor" href="#new-antibiogram-function-1-8-2-9148"></a></h4>
+<h4 id="new-antibiogram-function-1-8-2-9150">New antibiogram function<a class="anchor" aria-label="anchor" href="#new-antibiogram-function-1-8-2-9150"></a></h4>
 <p>With the new <code><a href="../reference/antibiogram.html">antibiogram()</a></code> function, users can now generate traditional, combined, syndromic, and even weighted-incidence syndromic combination antibiograms (WISCA). With this, we follow the logic in the previously described work of Klinker <em>et al.</em> (2021, DOI <a href="https://doi.org/10.1177/20499361211011373" class="external-link">10.1177/20499361211011373</a>) and Barbieri <em>et al.</em> (2021, DOI <a href="https://doi.org/10.1186/s13756-021-00939-2" class="external-link">10.1186/s13756-021-00939-2</a>).</p>
 <p>The help page for <code><a href="../reference/antibiogram.html">antibiogram()</a></code> extensively elaborates on use cases, and <code><a href="../reference/antibiogram.html">antibiogram()</a></code> also supports printing in R Markdown and Quarto, with support for 20 languages.</p>
 <p>Furthermore, different plotting methods were implemented to allow for graphical visualisations as well.</p>
 </div>
 <div class="section level4">
-<h4 id="interpretation-of-mic-and-disk-diffusion-values-1-8-2-9148">Interpretation of MIC and disk diffusion values<a class="anchor" aria-label="anchor" href="#interpretation-of-mic-and-disk-diffusion-values-1-8-2-9148"></a></h4>
+<h4 id="interpretation-of-mic-and-disk-diffusion-values-1-8-2-9150">Interpretation of MIC and disk diffusion values<a class="anchor" aria-label="anchor" href="#interpretation-of-mic-and-disk-diffusion-values-1-8-2-9150"></a></h4>
 <p>The clinical breakpoints and intrinsic resistance of EUCAST 2022 and CLSI 2022 have been added for <code><a href="../reference/as.sir.html">as.sir()</a></code>. EUCAST 2022 (v12.0) is now the new default guideline for all MIC and disks diffusion interpretations, and for <code><a href="../reference/eucast_rules.html">eucast_rules()</a></code> to apply EUCAST Expert Rules. The default guideline (EUCAST) can now be changed with the new <code>AMR_guideline</code> option, such as: <code>options(AMR_guideline = "CLSI 2020")</code>.</p>
 <p>With the new arguments <code>include_PKPD</code> (default: <code>TRUE</code>) and <code>include_screening</code> (default: <code>FALSE</code>), users can now specify whether breakpoints for screening and from the PK/PD table should be included when interpreting MICs and disks diffusion values. These options can be set globally, which can be read in <a href="https://msberends.github.io/AMR/reference/AMR-options.html">our new manual</a>.</p>
 <p>Interpretation guidelines older than 10 years were removed, the oldest now included guidelines of EUCAST and CLSI are from 2013.</p>
 </div>
 <div class="section level4">
-<h4 id="supported-languages-1-8-2-9148">Supported languages<a class="anchor" aria-label="anchor" href="#supported-languages-1-8-2-9148"></a></h4>
+<h4 id="supported-languages-1-8-2-9150">Supported languages<a class="anchor" aria-label="anchor" href="#supported-languages-1-8-2-9150"></a></h4>
 <p>We added support for the following ten languages: Chinese (simplified), Czech, Finnish, Greek, Japanese, Norwegian (bokmål), Polish, Romanian, Turkish and Ukrainian. All antibiotic names are now available in these languages, and the AMR package will automatically determine a supported language based on the user’s system language.</p>
 <p>We are very grateful for the valuable input by our colleagues from other countries. The <code>AMR</code> package is now available in 20 languages in total, and according to download stats used in almost all countries in the world!</p>
 </div>
 <div class="section level4">
-<h4 id="microbiological-taxonomy-1-8-2-9148">Microbiological taxonomy<a class="anchor" aria-label="anchor" href="#microbiological-taxonomy-1-8-2-9148"></a></h4>
+<h4 id="outbreak-management-1-8-2-9150">Outbreak management<a class="anchor" aria-label="anchor" href="#outbreak-management-1-8-2-9150"></a></h4>
+<p>For analysis in outbreak management, we updated the <code><a href="../reference/get_episode.html">get_episode()</a></code> and <code><a href="../reference/get_episode.html">is_new_episode()</a></code> functions: they now contain an argument <code>case_free_days</code>. This argument can be used to quantify the duration of case-free days (the inter-epidemic interval), after which a new episode will start.</p>
+<p>This is common requirement in outbreak management, e.g. when determining the number of norovirus outbreaks in a hospital. The case-free period could then be 14 or 28 days, so that new norovirus cases after that time will be considered a different (or new) episode.</p>
+</div>
+<div class="section level4">
+<h4 id="microbiological-taxonomy-1-8-2-9150">Microbiological taxonomy<a class="anchor" aria-label="anchor" href="#microbiological-taxonomy-1-8-2-9150"></a></h4>
 <p>The <code>microorganisms</code> data set no longer relies on the Catalogue of Life, but on the List of Prokaryotic names with Standing in Nomenclature (LPSN) and is supplemented with the ‘backbone taxonomy’ from the Global Biodiversity Information Facility (GBIF). The structure of this data set has changed to include separate LPSN and GBIF identifiers. Almost all previous MO codes were retained. It contains over 1,400 taxonomic names from 2022.</p>
 <p>We previously relied on our own experience to categorise species into pathogenic groups, but we were very happy to encounter the very recent work of Bartlett <em>et al.</em> (2022, DOI <a href="https://doi.org/10.1099/mic.0.001269" class="external-link">10.1099/mic.0.001269</a>) who extensively studied medical-scientific literature to categorise all bacterial species into groups. See <code><a href="../reference/mo_matching_score.html">mo_matching_score()</a></code> on how their work was incorporated into the <code>prevalence</code> column of the <code>microorganisms</code> data set. Using their results, the <code><a href="../reference/as.mo.html">as.mo()</a></code> and all <code>mo_*()</code> functions are now much better capable of converting user input to valid taxonomic records.</p>
 <p>The new function <code><a href="../reference/add_custom_microorganisms.html">add_custom_microorganisms()</a></code> allows users to add custom microorganisms to the <code>AMR</code> package.</p>
 <p>We also made the following changes regarding the included taxonomy or microorganisms functions:</p>
 <ul><li>Updated full microbiological taxonomy according to the latest daily LPSN data set (December 2022) and latest yearly GBIF taxonomy backbone (November 2022)</li>
+<li>Added function <code><a href="../reference/mo_property.html">mo_current()</a></code> to get the currently valid taxonomic name of a microorganism</li>
 <li>Support for all 1,516 city-like serovars of <em>Salmonella</em>, such as <em>Salmonella</em> Goldcoast. Formally, these are serovars belonging to the <em>S. enterica</em> species, but they are reported with only the name of the genus and the city. For this reason, the serovars are in the <code>subspecies</code> column of the <code>microorganisms</code> data set and “enterica” is in the <code>species</code> column, but the full name does not contain the species name (<em>enterica</em>).</li>
 <li>All new algorithm for <code><a href="../reference/as.mo.html">as.mo()</a></code> (and thus all <code>mo_*()</code> functions) while still following our original set-up as described in our recently published JSS paper (DOI <a href="https://doi.org/10.18637/jss.v104.i03" class="external-link">10.18637/jss.v104.i03</a>).
 <ul><li>A new argument <code>keep_synonyms</code> allows to <em>not</em> correct for updated taxonomy, in favour of the now deleted argument <code>allow_uncertain</code>
@@ -205,7 +211,7 @@
 <li>The <code>microorganisms.old</code> data set was removed, and all previously accepted names are now included in the <code>microorganisms</code> data set. A new column <code>status</code> contains <code>"accepted"</code> for currently accepted names and <code>"synonym"</code> for taxonomic synonyms; currently invalid names. All previously accepted names now have a microorganisms ID and - if available - an LPSN, GBIF and SNOMED CT identifier.</li>
 </ul></div>
 <div class="section level4">
-<h4 id="antibiotic-agents-and-selectors-1-8-2-9148">Antibiotic agents and selectors<a class="anchor" aria-label="anchor" href="#antibiotic-agents-and-selectors-1-8-2-9148"></a></h4>
+<h4 id="antibiotic-agents-and-selectors-1-8-2-9150">Antibiotic agents and selectors<a class="anchor" aria-label="anchor" href="#antibiotic-agents-and-selectors-1-8-2-9150"></a></h4>
 <p>The new function <code><a href="../reference/add_custom_antimicrobials.html">add_custom_antimicrobials()</a></code> allows users to add custom antimicrobial codes and names to the <code>AMR</code> package.</p>
 <p>The <code>antibiotics</code> data set was greatly updated:</p>
 <ul><li>The following 20 antibiotics have been added (also includes the <a href="https://www.whocc.no/atc_ddd_index/?code=J01RA&amp;showdescription=no" class="external-link">new J01RA ATC group</a>): azithromycin/fluconazole/secnidazole (AFC), cefepime/amikacin (CFA), cefixime/ornidazole (CEO), ceftriaxone/beta-lactamase inhibitor (CEB), ciprofloxacin/metronidazole (CIM), ciprofloxacin/ornidazole (CIO), ciprofloxacin/tinidazole (CIT), furazidin (FUR), isoniazid/sulfamethoxazole/trimethoprim/pyridoxine (IST), lascufloxacin (LSC), levofloxacin/ornidazole (LEO), nemonoxacin (NEM), norfloxacin/metronidazole (NME), norfloxacin/tinidazole (NTI), ofloxacin/ornidazole (OOR), oteseconazole (OTE), rifampicin/ethambutol/isoniazid (REI), sarecycline (SRC), tetracycline/oleandomycin (TOL), and thioacetazone (TAT)</li>
@@ -217,27 +223,24 @@
 </ul><p>Also, we added support for using antibiotic selectors in scoped <code>dplyr</code> verbs (with or without using <code><a href="https://dplyr.tidyverse.org/reference/vars.html" class="external-link">vars()</a></code>), such as in: <code>... %&gt;% summarise_at(aminoglycosides(), resistance)</code>, please see <code><a href="../reference/proportion.html">resistance()</a></code> for examples.</p>
 </div>
 <div class="section level4">
-<h4 id="antiviral-agents-1-8-2-9148">Antiviral agents<a class="anchor" aria-label="anchor" href="#antiviral-agents-1-8-2-9148"></a></h4>
+<h4 id="antiviral-agents-1-8-2-9150">Antiviral agents<a class="anchor" aria-label="anchor" href="#antiviral-agents-1-8-2-9150"></a></h4>
 <p>We now added extensive support for antiviral agents! For the first time, the <code>AMR</code> package has extensive support for antiviral drugs and to work with their names, codes and other data in any way.</p>
 <ul><li>The <code>antivirals</code> data set has been extended with 18 new drugs (also from the <a href="https://www.whocc.no/atc_ddd_index/?code=J05AJ&amp;showdescription=no" class="external-link">new J05AJ ATC group</a>) and now also contains antiviral identifiers and LOINC codes</li>
 <li>A new data type <code>av</code> (<em>antivirals</em>) has been added, which is functionally similar to <code>ab</code> for antibiotics</li>
 <li>Functions <code><a href="../reference/as.av.html">as.av()</a></code>, <code><a href="../reference/av_property.html">av_name()</a></code>, <code><a href="../reference/av_property.html">av_atc()</a></code>, <code><a href="../reference/av_property.html">av_synonyms()</a></code>, <code><a href="../reference/av_from_text.html">av_from_text()</a></code> have all been added as siblings to their <code>ab_*()</code> equivalents</li>
 </ul></div>
 <div class="section level4">
-<h4 id="other-new-functions-1-8-2-9148">Other new functions<a class="anchor" aria-label="anchor" href="#other-new-functions-1-8-2-9148"></a></h4>
+<h4 id="other-new-functions-1-8-2-9150">Other new functions<a class="anchor" aria-label="anchor" href="#other-new-functions-1-8-2-9150"></a></h4>
 <ul><li>Function <code><a href="../reference/proportion.html">sir_confidence_interval()</a></code> to add confidence intervals in AMR calculation. This is now also included in <code><a href="../reference/proportion.html">sir_df()</a></code> and <code><a href="../reference/proportion.html">proportion_df()</a></code>.</li>
 <li>Function <code><a href="../reference/mean_amr_distance.html">mean_amr_distance()</a></code> to calculate the mean AMR distance. The mean AMR distance is a normalised numeric value to compare AMR test results and can help to identify similar isolates, without comparing antibiograms by hand.</li>
 <li>Function <code><a href="../reference/as.sir.html">sir_interpretation_history()</a></code> to view the history of previous runs of <code><a href="../reference/as.sir.html">as.sir()</a></code> (previously <code><a href="../reference/AMR-deprecated.html">as.rsi()</a></code>). This returns a ‘logbook’ with the selected guideline, reference table and specific interpretation of each row in a data set on which <code><a href="../reference/as.sir.html">as.sir()</a></code> was run.</li>
-<li>Function <code><a href="../reference/mo_property.html">mo_current()</a></code> to get the currently valid taxonomic name of a microorganism</li>
-<li>Function <code><a href="../reference/add_custom_antimicrobials.html">add_custom_antimicrobials()</a></code> to add custom antimicrobial codes and names to the <code>AMR</code> package</li>
 </ul></div>
 </div>
 <div class="section level3">
-<h3 id="changes-1-8-2-9148">Changes<a class="anchor" aria-label="anchor" href="#changes-1-8-2-9148"></a></h3>
+<h3 id="changes-1-8-2-9150">Changes<a class="anchor" aria-label="anchor" href="#changes-1-8-2-9150"></a></h3>
 <ul><li>
 <code><a href="../reference/get_episode.html">get_episode()</a></code> (and its wrapper <code><a href="../reference/get_episode.html">is_new_episode()</a></code>):
-<ul><li>Gained an argument <code>new_after_days</code> to determine episodes based on epidemic periods</li>
-<li>Fix for working with <code>NA</code> values</li>
+<ul><li>Fix for working with <code>NA</code> values</li>
 <li>Fix for unsorted dates of length 2</li>
 <li>Now returns class <code>integer</code> instead of <code>numeric</code> since they are always whole numbers</li>
 </ul></li>
@@ -282,7 +285,7 @@
 <code>mo_synonyns()</code> now contains the scientific reference as names</li>
 </ul></div>
 <div class="section level3">
-<h3 id="other-1-8-2-9148">Other<a class="anchor" aria-label="anchor" href="#other-1-8-2-9148"></a></h3>
+<h3 id="other-1-8-2-9150">Other<a class="anchor" aria-label="anchor" href="#other-1-8-2-9150"></a></h3>
 <ul><li>Added Peter Dutey-Magni, Dmytro Mykhailenko, Anton Mymrikov, Andrew Norgan, Jonas Salm, and Anita Williams as contributors, to thank them for their valuable input</li>
 <li>New website to make use of the new Bootstrap 5 and pkgdown 2.0. The website now contains results for all examples and will be automatically regenerated with every change to our repository, using GitHub Actions</li>
 <li>All R and Rmd files in this project are now styled using the <code>styler</code> package</li>
diff --git a/pkgdown.yml b/pkgdown.yml
index adf2cb19..234d2eab 100644
--- a/pkgdown.yml
+++ b/pkgdown.yml
@@ -11,7 +11,7 @@ articles:
   datasets: datasets.html
   resistance_predict: resistance_predict.html
   welcome_to_AMR: welcome_to_AMR.html
-last_built: 2023-03-11T13:28Z
+last_built: 2023-03-11T15:58Z
 urls:
   reference: https://msberends.github.io/AMR/reference
   article: https://msberends.github.io/AMR/articles
diff --git a/reference/AMR-deprecated.html b/reference/AMR-deprecated.html
index 19814a40..0b54821f 100644
--- a/reference/AMR-deprecated.html
+++ b/reference/AMR-deprecated.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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-options.html b/reference/AMR-options.html
index 9cd342e6..08172279 100644
--- a/reference/AMR-options.html
+++ b/reference/AMR-options.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 608c3d16..50aa4833 100644
--- a/reference/AMR.html
+++ b/reference/AMR.html
@@ -18,7 +18,7 @@ The AMR package is available in English, Chinese, Danish, Dutch, French, German,
     
     <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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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/Rplot005.png b/reference/Rplot005.png
index 96205ac97641a605d0ccfc4f350800f82936720e..86bca22725cf10790cd7ec79b4395c080a3051b7 100644
GIT binary patch
literal 13193
zcmch;2UJtvw<n$uTBy>IBBFFD(mN<f2}lP)se(xF(p%7oNSEG`UZqHv7C}Hodans0
zAU)L30(1G!dvE>L%=~BlXT3MWO32N<+;h&}=d(ZOv-i2Y*VR@dCt)H1fk5Oi^+)<3
z5Ey;^CME>V1dn$l10RIenre@LPvGZNxiu8{fV!(c^#XxNsjuJQ(S?u;5a>1t_UNIZ
zU)J`5Z<?9y%*ozv$_oRD!o(X&_IKoy;D*XnDi0!G!%KN0I{0pnjuS^lTs+VlMm)fO
z1cvHAx{-8;WHtC9m_3~Oe%df}oqdMm#oWcE-(Zd1yY!ivg>>n<R@9L9fVkJJ*N(x<
z9siuM2MHXo|Lm)9Uz*e&|5of#;O!0Uwsy+I#JWb&=<g4aRWj=!4)3Sp!$JW?MXj>u
z3p*RHiu4`!)K!c#Ux5-LH;{#pctgf3^YW(i+wP(@Vgcr)&bh*aUy;fWAT>9d2^mv`
z2fGnmBe|e8mF0GD7O6AYJaHSO4HP7!$wEY(VPp(;1CND`WShh?p#zcBXd`qM%b1<h
z7l9Y7FPO;W7?QmObSJ)^pdxzP6$`Fb^sb!pcYv3wl|1H-yKv1zq7`M6rWhn|ZHQvT
z*+ROoEBj{ay-k$_L--|v?Uc}pXNhu63Vp{)U2M=7PU|kIOXN(YHAeP0BKatE#BVc9
z3;sdRm&D}Zi3jS=q>#dPx?ZPKewqX~M~t|h^xG2^!`^JYtht`mqtM#DOZubC(f8i*
z(hDFfpK){beF8@2C_DS{YI+lfqdD<@u?8e;1j8V*n%Keu5>ml+ux$G3jqk?QhP<uZ
zRho+8C?n;%5fU*4Hr>CZ&kdMO=+&;hoO*<FjXBcfMrT^%QdDsv^qW(RN3wDow^%a!
zdTaMwqt0+O@Rf+vTFuI<_E%YO*=I!QW9H;?^yg;k`&xlw89OJXfz_pfupH0d{q$F3
z2}0md-bo=*FvFJ)Qgb2wAI)QBlBUFMnx!K+277jn_sdY|^NQ)_>OO_5djX1fG}DE8
z6*?1(EcpVe-!Cp7_$4>4PQ4O6DvYIn9e?|C&*>xZm`^>0NN{qz)D>A!cH;`~x1y1A
z$pWl_HEwJrC|<WBB)jI;V%|Uv-ddtivC@>U-Bgs}D=w>}ms$v$fGO%&0=zBqc{~=S
zbGBK-*rD`ibwRH0kNPk6VtwN{#Db6G&WyqDR?>|n-u9+Xj>vqk7YR^goNi34l~*_6
z4g|4*I&K_wN(ZoM*gGn`ji2A-kz4QWnQ~ZtU--6acd&|~?C)db#x_03lKtX@lHjEZ
z4tqz;q1c7`Jj->py@~kX%5Cew$DH5h;nu;)^xA@qaB!7({CWwJ0Ks&Th%C;I@RD~o
zKRjJ5jqZat6@;)AZcDC(bg@O$X7ecG)a-OCQQx9HWa>I(>nsZMMZp!472H|ma*?{{
zPc=(VAK1H^X-P%Vql3D<OPFc2$sCKMB*RQtlgaNVH!`8_qw$qKRoo><WH2Fpp$#3B
z@$K*B4AeGn8{AuJ-VjGT!n#>K1|Ps$`2tWf0i9wJ&K6q-gNT*pW*S>X#&$N?$@VOT
zl$cG{zq*wip{W-_$j_BUV5)V(u5BrJpsaL<nK?$0=!CWA=C)JLf`@S4Q!h>o*HZJ^
z0OG}-Uzlx>Jm1=~-c4?5!M$~LcA$Tf6DD^`c8`H#O!03!`-;8B;S@1;ek>SKc*(Q$
zr~*Z6B8d1FaJPnX>12l;LDM5b_qn6>v&DZWn{kI6S0SVDAUiSRE^Phiaw2fLaB<hY
z%R4Iuk?0su@CGj5Dz*K!zBBL%yREO7mNDz2=2v{Cr+34KQmk_1RRrEH&}k)*NMyKc
z_8B2j4y{$Mh+R@a-hImT3*O~P(B{^?kmSZz5pg`bSJty$f9H>yv-N&{t{b>F1>q6o
znolc;J>D$)F#JtE{5X~WsAOAa+w9zA_9n90X2A$yY9`2@6_b5S(W@h-{>ngC#qaMo
zPqe};s_z`srOb9K&U!%HwL@f(Q1wL>BWxq`Syw}DE8v-F&`HpTHLA|1s+^VzA~cMP
zJq~W%W=+pXiuh&6KE3EXtmTV@DB*R8_e<H>hiZ9*b{+57vsK)g*Zre|nA28j4mp|9
zyZHt>72K!AZN`@6V1Vu(38Ki~&RDxdXf_a1xxV%H&GGO$BAO;VF-tiuPu-WXN*)zN
z9wEmN%yO0a+s_HtnO2Cq8nUo7w{|6^nG{}QmJhkRj;ic#+zP??&fcQ)<6fG49fL$h
z``g8KQr#C|YLv}Woy~3R`;E&v_BE0D&=?5aO{dxw>x$blMa&7(TT6BsB#H!c@|93c
z=VBfey(>ryp^K@bT<Qy8Us|Phm;+x$r-%kuFSkN<NT1yjKyBA&a~Rpr>^TTVTALCF
z@oQep{LE6HUX8L3<RL(`YBjt}qFiEHzWVlMx#@gMy(5^ci~QjZ`+VN!UA@jDL}7M_
zl75>H+0xmHvv3>9g`3zG3gPsgeV%qDpld+R;?BiWKl#4qmY?t%Hd;?Nci6_T9)elz
zg(w2E448ZW%~wRmG>cN=K5<v@8zLG<!ZG58Y%K>T$ErJl<Wf^7eV`H=N0U8#U6s;@
zMQmPJu#!kwKh<s)PZc|Y3lmFrCrc&Ebu#Ggh9YfqSR>aVIdLfCsIT3f$mitjAI3qU
z?^B%Y>sgNUuI7k+_n#4LJ(z2c+ueFGgY&zp^B!Bi<Sejk6j8e|iM`Rq2Iq!`9&QrP
zaonP*1>7;f-BGpr2<J5cKiIZ;G`6K~AADk3d8L3bbq&eIG<P+Z{c$6y;+jwA$4&PH
z6Q4hs-L9W#6zv-@B1Cvg&>h{Jgd1tNQ6)T7bG^&)nox;caKSK8b3Bx}i#0w2Djsp@
zQAa!D#Mjb$1;O0ys{Ka0q!z@rL;=(JX1xGTdsxc566Gtt&Grqn^bi67+vYx4Dz1?T
zQn<U;7KvF~mPBM+<ke5ikEP-Yop!F?uO^2)*<(j?L;HlMs2q_6&`*RzDr0dR^HJ&A
zN%CS6TC91}J`VMj>6<d9>1;%Uk-cuw<Z}_2q%yz94)+{dy*Uv_nHI+DeUBu@6rLV&
z%MI|L6rL#iy;?F;+U!=JJ^rK?Mhbm@Wvu7_wv?-~j?_LdVT@!JH5NeA_1TVD()i|Z
zW9+zE8enuCRI751#!=x7eED-UmbWVo2SU@-i%%5q4#)~+RAsnVuNtKjy!bAD=}U~I
z>WIKBw@G4%^SH3=vyL8K&^`ju-1<a%ok!_YeHLmb!dH(fQ4}LVB1Le`e19BVw_;Js
zChHTtQ#IF#SgZd=#=N42Ny&N%&RP4M>2wmoWFK&$^fOlHfS`*lKZaO*fJn4>=*dg+
zB}!GgJXo-6eU_<8?(#}W1D?=W3Vt1~?3uRIh{Gep;}Jw++WxjpD~;pYCNb3G&QfE+
z9Cb#(*s|NB^T}AV(T2&~8`Pn*LFhlF(OO})dRNZNt9+2I+|+ZD2;~G45&GsR%-s{l
zr8M?>x6$^T;iMK~srx`sA5+@oDybL7ja~9jDfTL$a_ue_;A8pEO{pBaju0<uUh5`C
zNnQnWMskOcNwK=gRVis-oC)WJr@KDUQY_x>C_SfBdR@UShLWIhoHjy;+DJzBqLLbE
z!Z)COeVGL!6tOAn@`8HUwCR(#Nvydq=j>T865ZcFUNw0AIaxXl!)-;LC$T8RgmqRT
zm$wL+x9_^ym##G&Q_tD=9>Mfmrpq6)j>vXmYYjV&Gh|VfdSa$*|H1E_d*?2VsP&Ht
ze0kx!jVDjBL^P8VV+cjgmfnGh&N|BC_(IqI$My;1+|&31|65TyZfEE%r?LA%qbRm;
zd!{0RL*P?+c}DWLXfJu!Pfg`t@%dqni6+{Z=VS>SoJioCKHg*GzZ{z14?Nyt=gxjL
z`tBfRY<O6=4i$3FYFw3O7&3GGCZ~B}?N_=%DCR2>Tl!4s<;5ukiweEc;ifXs86DXT
zJ4bk~JJ~(7^Iq_t(lTlD+xzI;tu43rEwwL>ty5ufml<`^%YBJ?r#KI;d9^+oV$&Pl
zLS;4l@u8-U!s#F8ki96&i;9kpj-rl^knJpKuMOW>hm!Ea`j%cHvB}eeHOh<8)Q-dV
zYPbCV99QvIc=k831?_m{2Ksj)p#Io5KN7h^y?5qY#y-3F!c$UG%9Sak|CBzhdl_u~
zcR0_@JQR0iKq<Rb!&zjSKQDqUFyu=<8uD{;aw@qj#D?SQWX~T~xy+|xp(`)(2nFTV
zDi0K;LmqYhy3`SJDh)XpkgU#72tHe04-pU$Fmmg}9jg|o#yDzV=RErba?>Q;7U`<n
zkDo30%(?iU7NuI89U{XZraDqfh!UaBi+yv~=B4nfnAA+C3nl9X;FhVCGmpT%9tNUp
zpIHaC(7$=_cKCzVTNPd0_PR+2<*(9|x!T+m{WfNbCaOCx&y0*MgS{7VAB&2Lm~Kz`
zTy49Bw(gm_wKt4(y(PV}JKC5KHz<BQb6(R;5!js6Ps@PnJv}bi;W27id3AicmaS-=
zE5F#pRvF?DGT>C*?lTd6Q}i-@C$)v`&unk7f3B|UWg<A7ywvIPtIsl#U5A3OtBH$~
z(|Mbe@6P-~o4(lKdyCcO<>hqO6ZUChVq!pCT$~ra;EM`Aop14K`krN3wbzMxEA;r5
zoF69o!(Fw@7puS0mq8XGrz_x0=g&W|j*gBmCnqNtY2EOCviOYasb%j^bzUBwWMpKR
zz8uVwcI}CzYXDkp8Xq73H4nIGC}cTCasz0^K+$2eFtKUcI?9clN$hW`;`z)_Bi{F{
z#=rMkh!_=KJvivG(_+awmHGW~52s&d*qS-{Vvcgu(*=8Wc2?}M+$+GM5af4&fYMB&
zf(`~Khcd*SPK5hd4n_{8GF=*He9^c$3Hgg}G&=Lu9UYhD*CP^a-TM3qjXNLs2Z=Mb
zsX{tw_m|qfz9AZF{+l1w`1W}2<mbKWdAY@;X8VzRa?!rH{zkW#G$=){ZKs)(yOF0!
z0}^x2KW_zY?Y(ujwd=j_G+DWn$fYH76CHW4YFecImX|<i-r3ZYWZcz!?Hf_cZtVQ0
z#sb{!If?L&b{!r`CuH{c?CdimBctR<Y$gCO1;FirMfznMY!_%EhT~n7B7v@fL1IG-
z*W8IO5Oiq-r1a6I_4XrWnkoG2zDO`pmVXzN+e`$Av`=wTzaxl>wX@F(0PDstP7jER
z`+u<<Z`BP^DBupq7<#XI8tdzWiUELaY*bV)ZUI*ov8^cF&hj;W8?P?0okMPpj^&F0
z_6McUx9Wtx;Ev})lchg-_BXN>uFUSJu>~LI`yZ?h$YYQYMe@QyspaUW-R~&fG^Vl&
zJe>e1)1zZ$cNk>>mf5!OUr81n6|ZtW9{@lk@ACCE!JHz{D$3Qtp)5npVN_);%WJS{
zdCu>eXxv)28?meBfWw_Lr9%Qts)9v_zW7(qJD)#mTuBqP)5i4+b++L|hvW{je{n6E
z3AgS4yqCJwalYdfC$mwiygHcOIzTGahB-JqnMvs!eo{R6eV+2O%ktegIZqEu6n9cK
zv^lX6h+c7020>@6n_I=F#<RXQ|AVR%+-|7iswwJha!sfi{dx_Y6SV*1`5fSd*S|zQ
z$6O67Q)>Bb)%L}*NH|X~l^K?QX=rG8x$wn%Vl5|dXCCNae|ozK6*BaOLgp`<U5@{%
z*Se?3yX&wYGB!5u#M;zY_e9RNAJ1-%11z^YIXXJ(Hd+Xy1jX%s*{r%!zxrO}w2V7D
z((EZQy5`|}vpH6)pGmw|=_0m2L!Ui+R?hV}4TIaPYIT*VHSH>nYqfQqyI0+|{{x`P
z7m0}gyMFbn^KHbv1R9x;-EBJvob&5r^}U!n7*bSh1{jxfN@7sr60_8u=`~<;J@U64
z_5XM_qBmH~bbo-Mo6gv5@7r*ma;SXp+2L+UqJGuNj7!tP6JJ_4JKH%*k*2*rKN5v}
za&;vn9{TEEUE&N1)Z#4K0K>4CZH1vGu?lB@RhZq{_BMUzJ^D=G>7sT!K>)oE4D#Qd
zJ2~HJ-DN%poWy$1xJs_JsAxsB%y45m3_{cx%OqaDKBC6fetNo=n|u8IZrs-8yw?yp
zEHzPj3!qu1HqVuxdFx9CCE5!CzrVd7s(xCx`mGH33X?49>vT6VS_-r<HlAY2eR2v6
z^qLbgUB5UiJB$^(jEs)zAFXD(9b4AD9H_bOtpn3VYT8s^ZwN$_xeXH&Q+W4z(>9Hc
zT<uo?O6R>Xl8b&1l$E;!n+E$EQR5R64GIUpMA@EwdF9Zl5=DO$xYM%cvk-E=J@sd<
zccynpGEOPfzV4b2ARikW8##@oTdbunFx_!7z$}D#{@_eyX>wiof(;qk7tj&5-65K3
z+}mI2KX1|DVWzoXBhk}(J`mvXbk(W%HK&tW+$~&((9Tfk<w4+}%w}c#=VWo0*?Pt7
z(96?4aWS#+N|Rda>30f;c}AzJ*|)Avmg6j?Uj9m30m47s!rUC!I#Qr!iHBJc3iaQ;
zrZ_?}Mt2)?^M%$q*VgSoJH3|_vWLUUsZ|#30dEdH<^i)kF1sleFFpV)y2%!V`P$a^
zRRSPT-{mp-#?^pS@lE~BW2x0V+w^J&$&UKsVccz$kK$^Y4gF#;c0rbsMG7N%9VbJv
z0Qa;W16pB)8CVAAyuH08wR07McY${4FqbZ}0J~50v4viAeQKQDNY*P*9Z+Z6?QcLi
zx9#;_WlMSdJ_Y7%-KZodU_%Q+MByCcwhTbV%~`I|dAa1>N(K?~8k*YNwx+R%HP=f&
z)m>Gy6qk%&i~!+%S&3&?p0sfPN-$&@uwEn?yk)~CD}mbo!zXKCWHa`Kq2mY#SkQx&
ztMM5x)gw<|?!&%up7Z;aCL9y&kgL0NHaixt@Rrg>S4h%sFzd`~NFG~2sc?d3(~!<(
zunh7Te#>Cd+$Yd9uisebL#kJ`vI{fg_P>^18ZX!y3Hi%38)sf-HYBG673F+ms^KUT
zsv`uXm!&mc3I{Kk%L<l2ZS~J#@V2%|^%Be^p-{qqcjERxQtvEsIf3FqLSaX#Fi<mu
z@fB-GLpLk_C`y-Gw%~o>C}ZJU5h*Ntz`8{FurU?59u}LC=JGm)<A^WWQ)`PD9VXY!
z02)f+rN3@X-)(&EmYN?vW`LzT9MlOeP8DD(OD$uT_mufm28lGXAkmNMPYI>+`)p!+
z3|>B`WIHY?-`Kd5la&$Rfcs3RMqe#QmtT^Fe#PSM1YTZ%%xBt6mxSr5M5%8?Ju@KM
zIqtvLSXRzA7>bqL_5ZlHf|_sR<w6fK$_Gtl_qrS%3DIq1x5~x_S<Nax8#Zf5lYY4?
zNhf7NVn48_p&|rZ&^0n5Pzf+H!ZxZl@AIrmd@Ls^-ER^GC+kCwWvpQOx%#}~R@D%|
zJl^D_dBGvkt<RrT*kSrN4K>J{3q%uj_%vw~IFeyS9B5Hl#t^Tk`SBcOkNG&knhE12
zX>d-M1{?~w7ymzV_`qcp{4E+BOK?o63hoc<gU^LEQAcYg6y{eXF<~r_q{!RoXI3Ql
zA%BVFAdj^L#b61M)%uReDLh$7we4XjWAn`uS<F{YB2E|}RW!)`_%S}Q&!Y;K5;%^S
zk`v(7u@*M=QDr34H`3_I6FJJJN|W#}An2mM6L^(G&%y|hO6b=2DqJvqsNqjxG(CFs
zuQ)#A1NE*7nWx&~EvaQGx)lJfJb;##pQu$=Ns&p(_tgj^A?EzXz!=NF;b#qaAU_dA
z`|2G2Ts7%B>H!jfD*afn@1J6z>daA=##cmmVf2w}2othG@+hIuvlKAP@MA3I-R(KR
zN{ga|gt-;}aPudPJOJL_Xq16<cCAiew(pe^3PsA2@Pl3wb-M}v`#b>XKBJ|n;ebK!
z1Cx*h`maAM)slgyk;Cu8+r#vbb4W}0IeZm=If0|>FJMR;YYk|cz#gPP!ViumTBS;;
z<AAlR7LCKJAqtPwyFi_wDli2^0c-{iDua7+fn--0C7>pg?e_yK9nn^it?g5w(0kVY
z0D25H@D{;-;*&Uf_UE9Bn`yA;P#}=LvUE$_;fU$5A4h!k7VT{AnZE4d!<75Gi3^yc
z#41fzfH*hcg`PY?KSE3DVQZ1O`9qK}I}-ji)X2R|8)#q3dEo#dr5`rhrI$hA`Qq_L
zLQ`s$8{ZR;gz+_?ONG?oEa|%&A>?T+!3v<0SJV$-2|(hK05`^K#VdgJ-DBtpU&vH{
z1b|)_0DV0tjOaE@U)u1etvUcF-hUyN{|AT3NpLKF2Z=M2Hyd=GB8zaGi!O-+R-_Bq
z&w-wLAn(qAQADP~E8stn{y*LV2;MW&81N*)uv>Auiw{3g?{$Lr!B3HI36i`(?vG=i
zvw<!rw$+o9D4j+8kXIENMdgu3R$h^PsAo-=B|UsP2{Hxx)EGu9??Zo=!%Nr0MdE1w
znyeCdk90UIS^X<s8Kc+R6wH#pF+*;`FCWyB$oWjpX9EZ<d<1y5gItQVnd(IBKC=`{
zGxG@}=0Vs>C0@>uuydf5A-2mfL4svks9}KcP2|%T<!NtW`gYghRu>iwL?9P(5s3|Z
zf^I@e|GORJesoKfYt80i&qrz|KdS*;3pLWf8??0@1*<0*k|d7;sk?se|3vx!w`S#(
z8uJ4gA=2X^Qlpo?3NX#@eNOaO<N*=|R}T9^-75_7qdMVsr@j9XagYG81@QM`RxB7T
zw7V6ZJ9&*0(U|vyI+_eU_5gyZu(vScOam5|_vPDGek6W`CrlU{C6|+aBnes#`N}Hz
zgS7+UEg}WdAOflActoGt!KDM(mIa)ZY%^_-)>)u5C^xZDrKk?H{u_V!sfW+qTY0&h
zvwv#WuyUX8VJExt>Ll4Mu^N+=hDvkOiF(H)K?F+WERMxP&s*#0z2OwCt!!aNrju!A
zX2@v0=S01Al5xc4-EfrULg&?F4_~!6?rgS~?p_>T4&RgX_J?ZFX8LIcDVk|$Gh?&-
zMkt@VqWc5r?`M#C`u1K(u8{i|Mb&EOSOQgVMX@sLiQU$@v@fP13jU94N#;*6fs1CJ
z+f1%%?<sdaXC|9FVo0Um&Pr@i{Ia#ZqN6Ap!2>p)nsjboNUGx^%eddcv(kAmZ?>w1
zTcKCst$bi4E^fNxGod4S?}>jkZf9_!dg1up2Vjg%-=~r;?poc%@LG}7NV^NvP@9mL
z5pP-kJ^?L)1bMrI04mK45=ZyJqrRiQ&FhhW(Jhku3eat2qEOgn3w+%)l2)x;eMLQC
z{O%v8*NaRiN~)d9VXPVqu^g~q<qjsyF1%gzYym14bFCj-e;7k<4V`DEnTA1&NYw!O
zz;21x@!lQhcA?5xa>KC~phxC?@rSuYa-bjvzXW&Va$|U0vI0LWA)qM;>c@KjCL^gc
zF+Z3-<t`6!t~ChSOfpSAP4G8W*g4?G9pHA#@2T)k${^Yk&Jlr00PY@tG?6F{xdQBh
zNY5Pr>K}Ib|DM`L0gHkH7tl9xnuZ@2CO#T~(MEWX)^Ms?H|3y+^VlfjE=(U4F9ddb
zdcB@(*Z`vf%%)!F0lSe0Q8r6#ERz1U9E|`jK>!HHK_o$OU~V<s<PBFXURc7HYr9^%
z<4syR1oDm6A<K#=G=MD=K})<_%B6dFh56Ww(eQuk0R;*YKAYEQmOLCm9&yG3TPqeq
zC|h*{cp#MfIXUQ(ypn64?O6hcw{i#mg`oS5B|U^qm@P7Mh4|l^RLGdu8gF8dj^(qW
zK{xz8C<#l<e?A5F9ra;(mQZ+02qlajLCm_HHQWV4C=mKv>Ye*219A#p4Pt;O;%UD>
zgC&eR{iy&CeIMO5My%m8%=w1ps^pe{=J3e%u-su+c*b<PgH~O4Y3pvz#hmow9WA6O
z7?Aj-yL)Ex^+{RjQuRA=I@_7LakT4n0Lyp<au1mr$<lX#^i!fal=;XjQTf)L+Jyc1
z&bQQoRV0l$)b)jVXCL-v!$Wi9;(?dPKf}LFO;suq`<0v6mY=JVeF_ZNzqN3hJGr=A
zmpU$B_SuKh%3_2h85pG|GQHc8*tajk{IygEOltWo3fV-gwV-%soTV6)N@p^te7$~!
z=>dJbna!BA+-)C7i|yn8)l$d6-+I|e+FtynE1E@bO6nkz(oMf|zvE<EjREDe+wW=z
zd%B{DbP5Zp-JwT=(W0CY%a+JB=)kW)HJmp7;%$!KP8#=h08yMM1WrBABlUs@6T?Dp
z*C+(QL^z7WKp+~{>t_KH#y4LbGrCKQja)JU@}gb413!r6t-R1l%ANm?KcTNX#Pj%D
zl+mDL&Uv-~1}pU~PFR8ruO+!3OU*sZ<4TkeoD^!u2cS*xr!ho<&`+=crHL&0_mINB
zpj4ucm8CtgTkisdw%hk9{9ruHeRtlaRc2Y5LG8tAG7n%vD*$8q;qMXWx843FUSb7B
zXPHh!+-2BLcT`T@h5?OQ4cHT!<vufFgZ!b_DURS~01)U3L{T+}g78wKnNke-KjK$u
z?%;9o=O_-C3J@Tu2Yzz55kyhOU^U28suULxmhC}y4|Ujqm<vRL&?uxMy1+K#TA~S9
z;)O6sMYuypO}cDhZvPR(C!ALItUL~ZOh6@Jmk}e2{OCyl#HuB*xot^uK|M`24Ptx9
z1JfS?DCW{b>|*z6xXZH)cOdqdKXam~ke*ikB7Oe^_b2GtcJxkQKNS#|!7w#S8_<c#
zj{-nF#{KXmlY$ixWAm!;Zhh<j2+YjmDkh8|!Vav%F@Gh!C|`^3@hdJE&{C|^G}Ekp
zbkk+{2T2^f!ZVJ@IJ`0Ig{$v>38$OBdpJ{{Ul??;Hs6Z*;&wah18xuR=L}U^md$h(
z@}7Bgb>YT&U9fk#rC#P)CYo(CBjfVvFOdoPH$>RE7D5W1m+1q%FF%>j9U2PvKc42o
z5mL$(rx6rqnC3cJbY2Se@Eh=jJ42gG6>pf=2(ho13=kgQbDtIe<60F$WWS+m#wptT
z<;qTHI;fjhmV((VX@AjT>U;E6$5G!@hSX;sf^r^Jii-1D2E~RIV}<5ZLKR-Oubbp%
zzH@EN7N&EDJ^8dIH;<WHusMp%jbju>Jv@~SW$%sc7KKavf1G7U>E#$cPJTt^=iBA=
z&X_8vBk74|v%pJs`bX8y<-~m{_eK{B!adQ`&sBJxE;qb?o$Q*b@M`vWBXewKY}Q6p
zcsJMAQau)24kGoRaF(GQqsB|y6%DiS=cm6{i0<;J>gkUF>Z5~RO8P9wx3^{pjN*5b
z0yN?iKqDF)kev(A&AtLsP-8kzR`=1z9ROrXxH$l+9>Drvuh0M2y1(=gzm4agjP~tp
zAtb^KJpN+6ll?xcJ-9<}5&#uno(2q=OSA(C$sM^eL_h!7vPA_*UnM~La)T5Je27Ab
zE91_ZK)$c?v%2BctBev9Cr-u?!;od7qt2Shjqb>&t6dGdIU{6o^mUJ6<+Q+!Q+Sp{
zTzGYGQuukR?jUaDa3+YPbXWh?hA!R2yG37gY-0FfzYj;=forHY6crM1ISJ&6NBY2>
zV>#esE|y(+qQ6r=)=l9P(&3*Vgue1(-h~~F;b*hIInZI^$sr*hIlOg>IIW0bha^^9
zH7;GXfb^qIPJ@rpF9CYI(Bh|$!ha<D|F@Li|JbfB4C+Vbe*3=I#v+{*<+NfM9B^(j
z;9NGsRfr{i4iN<;1j3J3g&(WUcORCZkteYZx|0f$1y$d0>~e$HK%pnM&=P1YjDQ=a
zUkjirhq#R?*aE*EFUn>ikltjF3i(tzJcjUcd;-LIU7vs<LqWY@H`N6czW&Hs2yz~;
z|J3F>)wD7+h9q6*mn)2zrm&%&FC{$+Y@}IF7XgCd`vl~Xo#Yo%eKm9NVv$~eWPTWF
zkV~;8Rs$LEI`legx9IzycdY(p^Xk9)@M8is=7AN1l}XC;^HfP%z%>;>w$X@`MNS|y
zk?A+P+4uwh$-97hz@redAVxoyQpih?L6|7qko)IMMEtM18L-Jj3?nD3M;LFq<-2VM
z$uA+#bWS5)s9z|$^zT6c`UP49&4j*}&0|Mng<|P$1h4uCE5P(W7*0(DyH0=G7Q89<
zJh9k1Y3gF9b)ugwbYuNUGj-cCdjDq;FqQ&@O=o|>4y`+dyD*0NV=>Y*C&FTeg*192
zAOcABORHXX{|KaHY8c8<;jLQFHmdaV^vUzjx4uqf+zu|6J3wnx8MJ(y+CYUOU!QtT
z6!}&<9CxEs$c7)_3bP^(EBLBh_hga)2`u3!;0|D!4G#ZL*H8XWDliXpV8}jBRsga+
z;|A0it$(sx;R!C*2Y)IaXyq*7Ncip8&=J?3%UOS{3yfL=V7M|QumR|ra&TuDSS{4x
zzO7F?fE7=V7s`m<m+Kb1R}*auh!?Fez3fOJDyhqoY>;C>wMhRzsztdoUon~e)NeUp
zw)(u+1}pUZzl9zUgVw#EKD<Ck0el5%gWN`%LVJNM4q$b1KOr=M)eU!n`vhs=Lr4yo
zi<=<>@Q*RCINB*JJ8VkiOp$D!?1J^gs^tx!(+z>@R~*6Ops=%tSlbOXkR4FrU}<hh
z^Z?g<X|bKi!7AcZuf?IijREU${En+e5q<XQcqjv9Wtl6#>Zw+lp_Uh^TW`RpD{N%=
zhP7aK{!z^KGo1{BPt~D+@}!r`E9?bSPss;9LEy=?7Q4UFu#*|478Y%lj4Keal4o<Q
zvnCzZxK`QF-#Pi83OM^wpCFUPttfL;8zyQ^;Y(>%RdE^Piljv2p_Aj|p48_HC^kz&
z^FOxsO*)Om&n!bXm{GUz3M2JG4raX}a9`{8CmolqvZ<Z^*jyCQabc;3xMb(8-G-3U
z$kh_<t0yCqdSgF*H{jUcE)I?XUOSwro#sZSb7s-|23lG;(~M`oJLAYT*{+N?vKcN7
z>TT^U>WbMH7iQ<%PRhnQ#Xs7wNLJniRciPe7wPv~b}ad7THqG4H={(}q)cW^MsHVk
znd4tXy0b{(x-AHtiOmQur1F{pg*4#^-@S3kUIafH34~zU?SXUcsz#&W7sCHmontiq
z|Mxs;ncW$5n6X`ZNTf};fAgMgRMq{{l;=Dc&91T1OX!yF;xI`g#9fGeFfeS}x?5&e
zHTkyX#f_XeoKqKMla1h5$j+T$!~SN~M;!JeHCx8wh{z#g*Q>+!FBG*Fdwi6G34W5E
zO_4S7RZ1L5VzoT_Zj5s#Wyu3gtF)B~)(m^TLSCUPj_g6Ie`K0wwI?LBjW+%+p`paS
zmkWvJmXmm8&=oh<ydR!!%-(;WZo2LwkFIhU$D<HZ6r3yjEF5TF@Reot_--AwJ0I&V
zSu5m<Pnq95xrOX5vE|~1NvCF5;?J9g3<G#R{eOXm%V}qR$DPw*YDIcRjnez?Cu3Ou
z!uDO>X<R9k6s6{sgyec{Z_2Nq&*yE#s_97vXV-LNY1f1A&}~lPZDl{;&mLi$zG)Kw
z>bCi~-UTytNPG^D>7(par<*&3Oz=(+O+Tw4w|6~jKo?fJgG_$!e4ggm+Xx<e8AHwy
z>h*;4dn1_;9`}umHxhU$5Z`3!s=?Ab7d8r#{WUq5IBClZOU?_cV))(un}*ygri8@r
zt#qtdmxvmvz3a*3m(H_XZU+3sw!{awa|h*;z9et1ryy`8oaACv=iVk_Q9h|X6~~BL
zJ<q3F@rBmhI&l~cd!^TLVh3tK6dpnNnxvZwT!uBIz<(Xl%PS=1i8BAVZ?KU}e&u}L
z;P@zC7@Ruk3%{30kxxnw&b^aWzvqF5AR+HnljbO)cDgwl=Pw&`^5ahofG2#{kk4%+
zD@0}L$e%&ajf!|*+~mWZXF1&r7{#`XVvq7gz^Q{$R+{LtLdg1S<*=^^-10IKjLfBu
z;c4YXcwcY^yaYD-LIp7XA1%k*+1=@v{$yy3j)-I_NpU?T*uoDYZ|=+j(|?S|m5z1}
zou=dgzvXQ$jo(Vey30S~3lPW49bjBD>q^bnUoj0AMr3z_n{(V*pBLR!k7#{+JY^Tc
z!DImdNndRb@|ZA(ON@6AFIK=SniUx7G12OcSllJSbVD1vPied@{O6^D?>`=%AL+1I
zN7?;vpL+TKdQiJi;}GwDebiV8_{2H(`J1rTup{JG<OB3^>G@y5!RoAi0aG`O13F%0
zVDqKbi}ckZi;uu_*@YBxATibICgLC4@Mw=5d{u8<Z5K)F(mb3mr$Xlth!PCRH&G<`
z75gO=72{9;`EgIY+ssb~ZRn~g#0+1~<d3IU3;v1Eb#qAkN{uPXX`;WBk3k(oW@HyU
z5`#O)QITHST$BXT-~r#pVn+No{ins78*)E+%T9gPDD?%;X&j3LIC*3<*TROVE`wnD
zaac*Kspt@8VyNq@an|aFY*3rJ`W*xN^TbnX7p>s}sCd<Y*Do)8ceWam=CJrJMK<P~
z9MmCCEd8wG`reKnlBp~AUA+N(*?OVn_dw-)0HSzI`OjPX!rMVXA{$o}80C-Unf-+B
zcJ(Yya78>Dk)Hu!!{5$@tO(qFXxDZNq<{wl^FZFnl@ZSlVix*)Yt~%>PO+;^p+w7l
zYd8*!W2|jE({x?bo{w!1+yS8&oiM&^tBG8{BvQ+@qe<xH>54nLp>$`Cb()`vI~(3d
z<H*OnmcHh!H0CK@17YV4Qn2xpftiE1n3;V%_yzMFmZ2y2^k!b&a0|Kx(t&VOg<zU)
zb0BJKZCi8PFZ@B6`@oK@ajL+ljCfkh?|-kTfeK}gGJGoRDPs9!17db9Z=@LuxuQ8j
zf&6Hv1)ofk*6UzcW3H(0(=aC4NH5{$T15XDs}RI;h$ivyR_4bEgZ5wNG%6$}q-~`2
z)Q)P^-@<jcSV|Ts{Y2GTn5iAVH$AeIBf1dLVfj?=_WRe?U`c`BST8m8kLrTY3?N0q
z*ytE9aE&0}CX<zZil<Dgv%@FkT|@?^Ci=Nz#A*vubFwbPOto~tf^thm-Gru~IRo0T
zdjMY+UHxF;_BNW*UEw)yMMNR8rEbs1?t-qq;g`C9I()*w<>z^vksw5yb3EFWlcUtn
zU@IBHHXPI^CCM=^v7EF0q_D-C)@@c@X+Ug8dR8*8Ix^To?bxO~+r04&v3Q3!B4eLJ
z$wf@it3%UzAqHV{!mLu=fT-(c4(p_Dd@k`ewo^`L3*?5mWb$Oc?)f=~7n!+yJk&&f
z#0q`4O_3LT@y30A2fwSf+3#TEPpRyIpY=SoRY`QnoR74=eLl{ktM+F1K~H9*oaW;>
zP_?&6${_z7Au<Ljj5u1zt?BS$H666OnO7EkV`<tov`gkxsn^dao29dWX5lhUmsGIi
zJyO&*rzC)frY0c4v1@NgktV~6!Hx_S>0bFc9J4&HF6EQjNG%ob&UN(lMN@?PYppL5
zU+5NOi?Ix|u{5rDL3K2H#qC<^8oBSSXYo%2m(G?4|Ni=X#C_p!A7L$fW4b8uK+{y+
zBz)+G<EjxdwqEh+I^C>e^V?|4h`Idc{`EveVq+l%;A|Q>n7Vcp)UMa!k(7<pSWuVk
zgKD*93UJi`qn$kaIxa#tYH$^VChMy0jDm7M^PVWvd+J1N$89<G!;hT<`2$IXcsZk}
zlIz9VH&`-kYf1u4xUCRZ*6rg?^EAs@b_B<lcwHKuT=T4B`L3sn>vbPxnL2O8-FQa(
z^GLRd)txA>45%V1Y)k$0<*rQU@S>slKWDx10$eDuW?d!+mHE>3f7HNKv>#O|S-t*m
D)Vmjt

literal 13249
zcmcJ02UJttwr&a#5CrK80wMtfq<1M%kP@mO2+|c1kgD_&2#TU~BfWQ|_uiriD2Vi4
z5~N87kq*h*{Qr6P-tpdjcicP9c^Pc>%G!IcGUqqHIoI4P@9ycSUA(|@0R#eFM5^D_
z2Z6x&^MjlWs6h?4#sVj@$C_$)fiv(qQf>+aP86={58Xf@O1kp{JUA0@3IbgNA@ANX
z@J`v7@kzL9I8naiSF06AF~I{5z9dDfd=0|c&69isQh9^?EjeU03{v@umVx2$wqAcQ
z`SmO`+VKM9<y+ye0ynN%8PkzKAAM`Z#A-dwYeVQr-XC&5_@mX><ok3J=dm|p?op_#
zU}!$0n|_~F9Ro-HvwsGPwh(P>cE$6+$j;QUZ;g$|t@;Jk-Z@!CI=4Vb^9L7)Ridi@
zxZ1W&nWHQV3{2$p2S#|<&^cL?yel9$V`pIe>WU)OG~{L|dmBlojaC)MHhDQ+0;L%&
zygOk@PbvOa6nZy%WfuGcEJfxFnI(M+viwTdr5NlyvWUHE#V^uK-=hchXEr8prbtPh
zKbvTDrhEuXBm)Vnc%0FFT(vrOQ5jN<5hZlnoq7yxdknbJmos^j)-#M}ygKGAp5nn5
zRXk@_nGZ-8b>duW5?E8g7@!q{IgVnn*FJOn(8G3Mv35x=P(Hjx2K)GRUtMt#o(E&N
z?3GbSGN?Ukj-fned%ji0(d@Lv_U?RX*yG8RXo&|ZdkjBq_1M~?eopg9m9=%{o#5=I
zb99PdeLvVEO^bR%iEIUNS?^GVc8)+CvYyL5_0bh{^*2!DvQ|v&0dJc~Y&rm=Qky4S
zW;ObHEacvzj%l=_nhWv1SkBF{zGI&uXzwo}MQF5}-l%xKLgMe{IGtrTt^0UBDeE~*
zr5*ZscU(qlhHappgQ5KD&MnWk5pC&_^sZ`a*LG23Al*(2W{m$(+S^$#1Bqr$iDnU9
zg&mtPqW!mcv~GArj~4cI>6X%1n1PtH`|7tP$QG@MJCW3c9QpHxlF~T8)W%fB7%?=B
z=7;{WK*iYB(<||zX%1P-hw`&IB`1<I+6tN3udl)1IzCr4$NI^cz!G(?!+#*axEv>+
z3(tN2`1}4j9T`7#SK#2OF2wN^hj`hG*JF<s!V3ELW+wKoGp14)D@@$_tk_~nw@(UL
zzc5X<u6x2UX%IP<Xj0Ye{4S#BbSILAhRYqb|E|*r3|mSxl6u{lI683aYxPavS(?jJ
z-^ST_ia$g_IUtc?oj5uLn(OY8fw9rkYkcx6ogHKLOF=on6n~U57yQz~uC7?XT6GS0
zI7sB#BXF<#a}#Tk>mH5C2ZZb2iER~QQ|=X!W7cJAT^3uz?+%uM`2<jzsoQ-*KpiLF
z$&5k9)XKJ^R=w#Gm?KU^oZ4h*XbHE&*YBRKAa0#m&v)8t4JGc)B>rPw5215*cvYn}
zTgl8tXlB!M(zzQZXiD<sRA((2k&m%I%}5@r7)WEEOq%$=3d*J^DUB?KR}X_)mF@OW
zZ`aKi5^n+hn^2q>mT|!w1EE|O5_Bi~vX@J;mwT*j$~rAvbd4i5<@65P2X;AwaivaZ
zs8}AKJIc$mMP0=f@<6v1<I3NyizW@uwko1Pd|4T?3AnBPge!X`AKV6&%0~6Lq0BUX
zjhc~t=UG2!ejR-?jlVq7MRm`gr*Pi*GoK<G-xIbc8ekk~lM7zD%-39WNIGfKELhF0
zP2STY%~^oBBh$YsO*%@+Susnpt~%b<gqXWsq4m0WtF)N;Z?^GB3YpT3<;2nU#%?Q=
z{5d=)p@L<(x328A^m7?WX?B)Y%R;SQh)GL@qUc6BUtOaOO&Je<)3bK8aI96@jEdlE
zb4G2<1*sHQWY;1VXD3(Ye$6Q#R1&3T*R*QDN56gC=||^eWb+K7v-ZWWFVAgx-cyxt
z?T1vEnRG^djO(LF-^sFk9wp`j^2zkd;gH(hYBwiqdq4t_7ma9zo;O6hN_hGne?O8M
zAn4v<oXexvM8oU@*|u6Jq*31dp^{_ON2@ZFmy;SE!wUqSQ7i{+s>^g(L-9Q-X=<mB
zuf+Nve=WgA3$-5TeD*2Iz1Q6+KBKdLpQ9*C<{BJ7Ri!2Va(|iOfYX1L&B@v@m@-uU
zcKtd$csC@FZA299I_ouU@cHOdq7<njZLh86<PV=sWf{XF#GHP@!BV2sm^V5K)b%8>
z%=bng^a0-nXc{E1R*!9eG3op?+F6g9JEiC7(%gQ4-`z!J3WN^Lr5|1j5w5$h+6Fv}
zusC`l!Eus5Jqcb*e^|lyvnt;OGud-YI)`~lZ<Lk0-*g(Io0a97<qPJRkPYq;VtUN`
z+5CeTN}({HVm!=MEmti&A%Ic4igm8bS7`1ho&6Mu7#=5%Dw+4A@S-%K6U3!fv%wAR
zW_AwDu69T<AG*gKR*lG}Z725SZ{#stDwP^Z(nAEhg%jynBP}<pxQ=Q?$(czSqFi5>
z>Z;C<(qTN0sgXOQqQSfIRUO+r+ktu$Z4}FN%Jnz8F9wJCG^-v~ZF@%AyN!S!$=z6(
z#AAjtl_{7bzdpS-*M+(<_mm7uE?8k7EVP&zyhcWIt(q$Dl8IdM;OK~%%0828=?V=@
zhr7D`Cq+hR|4R+r(x!6o6a93qS$jP*D1|wmZADimRA#2+NJk>zk}H>!`7hQ>1d*Jw
zA9oqr`IW90fC+ShV;Od`ELl5Vmr56Eu8zmmI&ctMKX{DoeDYh%%RkfXtatRF<}Tg}
z3PynXE)jl>(JOxN*7`E*_S{i%$3s$(CB29=#f6p2x6d<pHiQ@vfs1hc*1JXPY;;*V
z@zng&NU*?%T$iSL)<;tsO&@AUJ(sE*R?+1@c(N_pnaVZnsX4E>FHkF8H%8ih%58e)
z64n_Q>`I#RREhF>3+|@Mew;?>3K3+cG#;OD{q!wPqh4unsKU68w3NF#=66Ta%YEs`
zXxHo@o=KwUWoU}-R0Mc%%*{gQaCe7QNs|DYG}&Ak3K$eTAl}{8z!iB1;@yJJ5*)|{
z@pHizui~=~Xt>P65_N_ZZtSP|DtWDE**z2=^QgUrfTmp0#xV#?y>*Q*@Yb^Lv1@YY
z4&F<)Fj|?qD>bC}aF27k_XbYtfpWdaoV(IiyU1j12`_q!o{m_Sb$mfj+t`+Q(33Ym
zx4JEFk0;osPs*wER)!N>LA(gKC?<^;pkS_Q|6{1y)5Oi)V2+bktgZc8p|)l6!N@Pv
zNU(#Xa9{B?<<gZl?fS^=j$n>u^Pnzr!G@@T(a>a_ap44?{M2gi>)rB*ec#VfN4D1U
zwGm4n_(;u|de^Qi75UDG+t)$}EG?y+?t;p{UJw}`rRHtzSIKUeE|}7rWUQ=E7RV9O
z=E(!!N?os(;P~MkSbNKXJW!;N+<bK?dvTiIm#qv@!sz{~7M`%7J3{w4NJlxlk%sH)
zmlzk;WOcjLGEVrHo#39xNN)GNynNi-{T8-{9MclSbvU6q5lf-RmJA8Y-kHejHG~Bt
zglU*Ag}@n~z+GwP)V7hI6_xF9xqi@00XM~RT?56KeQE3TyXrZ*1B4r6h)xScjO}qM
z8nEROa=|$=B{5?SyKfy$#8&nWdK@ezQkva}6Bck5-Tzt3t0>Q9=)g)sJ}er~LOxU1
z8_eX%IQMltB5OrDcLSYC_L;D=^fB@*%SK&SQ$qf_6pGWM3nwmR0wcmxu7B`}&j7%E
z?Uce;#V%q@WhhO>F0*Sbid9GEr%V-P<Gb1gnY4Z-Gi4d)YpLY`qe>4F;zD0hoP;`%
zE6{Dxl^&oRRc|&lW^~zpVM441AU-$xMsDZB$Eq7Tz4kj9Fx9hS^hxl&3!Zm0|I4s+
zkHwHpchD_Izd+fp>7Wpf3@a=wWY>M%+2C9^dVj<U5(lqA-sJTbCqrWB&cE@2d941u
zh!^rE94*7x15bC-ze@LZ#|k*?PrLPT^)P<u7M}9#XG0v=59LX&*Wm&}o<ye0x;<@c
z*`HjaM1C1gb^qgsm&!Erozm-nXdZaBXU%lexF2CUQPIVI()nv3d#tkywPuPtUgsce
zhctnh1WgR2AAfn93_3p8YWo#TuT#Hci#VBRV_{)20geZ{$x<bA*&JuTy8rmOX<OPA
zi`)KK_xkycH((!VvZ+d-r*QhW6Rhj1+jmy$&hT$dZ0kThuXeg3N~5-qEh9HK_Zji*
z0P$z1i-WkHap%?2v}^mt4>a=I*w?wHS<_;5*#`Wvdwt#x4i5Q*oP*#EH&pE_v-IaK
zvpg}$6qgSP6SfxH4Fk$+VqJ(jZ=1dKiK;+FkJaJ)!FdxClftFm<T^cT>-ok%^@4TN
zzgLVbQG11Tv%W<E$xgKmzkl}#2bNm41(c|9p#HcSS@<kcOV4`G6Fb&=B~hFe&JBxk
z4lmB?TYh&7oaxFg#`MYm{>s%R?7uQbY*FZ-5t3hi*?z#W8?=F+U}iRKJKLW^v@In$
z{C0*33JQ*Z8Waz3g#9|!zC>}`>;|`GLSHDOz%w50r0TUG82h0eUp$`>;mYz<<fvM~
zs$hPVkPPu<W)tcZI`t`Z?CEIp-l!>}ZGX~%n8+UAz_xH4?zbzIIep3trP?&b`432C
z!=5NA$~|*+a&S0lmO&l=A#kZhrqFX385)jU=x+-oj;^k*E+r);F<`&EqmS1Dq#pMD
zXfcUUKOZ?|jYWgUs9B}f)c|>{-9Q5q&)(umcKkg9JYWjQ+a=NqY!k=k`zzD(Y|WDB
zYoM*&>vVqa$6U?$(b3`I=?C}kyRF5UI{S>uZ8hIVI89c+p`hnUDequ1O_>6^w>(|o
zMNC|{w%ej&`E3RpeFv2+tl)Nv{@(TJB(hX9SARpu<b#u(de2^iw1h-4tK_rcX-?%g
z5>Z#gpKhG%>(_h~LUCccorY-Oo75{cwLZ1|sZYv0007bEM1TMGE-=)o()ypFCHPlU
zz18+ZES}?!Ldqhph%cRjp=4%$I~~kXulLh;MvN?5e3}KG6Hbp<pXzYLJ57D(X+<qf
zj#dh)G3**iPdQd0If#c{Q9Td5o>E022#3+<GXc4d7#cYxT0}L(wcSIpuq3H*xP1YJ
zAD!w|xM3&vb^nU;);SOb@jB0(oJs&Q*68SJIbJPlGBh&U!f50c3OD}B+B#Sn;w8Oz
z|Ne)XCZ4H32Y|7@9kUEX4WAzE>RQyhKAM^J+d_2?03e*G8MA2G`vl`SUH<lg*HRyN
zCh6RO-BS~7gj)}PqVMY}csQS0I%;b6Fq;AZFKt*#>iuzRt$3zwH+4&Xuang!{Oq8O
zi2Bs%u~vBARaGBwHEgSS_lKoTt5Ji^6!qW>)Mf~q=lCgL4IameC+oYU*E}Ze^A!}I
ze2w;4iE}e>x#+)LMOwdB+N7#TJl&o8o+P<e?H(pD<>|K7a-idLwl~(*a`-cBxu&|>
zKs!NX?q^k>;z{$Nt-RaP_W-Zy=Upeesge$(<KKY*y`i>Oer@T@x5~+3BF=iU+Ww+T
z^G;_yvxWEERHAuv!{Y?tP8)h&os@uInIW490LM|^6GZ3pS5~S712bE+Qr|bQJvj-d
zkzI%;Z9yg9^W?$nu*i9?7Xl_#ds0_7^1$?L{#?VWn@wBn&o>*E1CBmZ3j1HdC)%c6
zk$0Z19}{2uDs{#cB`>!0jW=EX$u|BIELXo^b#!zz3FzD)-R+0$(0Th@oe`{cyR9di
zCsE=*Wae|-6%uXoQ(koUjEszI5ij2~Z>;u=H}{nFS^AzR2TXqWeDZzR`*NH0^N2yj
zi<MDtb8~Zkg2iI|-?)ZqB}uFxKJaKC>uPFhjwFa$w|W86)8+O=j{ga$``)*|T2vOW
z1d!s?0zj|cGP4`0PE8M+Je~ITr(B2x+vXY1sk61kcuV$v;DcEc{~>i2&8eK^)@$9H
zBsuaLUhOz#QoHyz4|U!2cQ13hp^^FCAAm>$6aW_7%Ke~Ux;SB<pZdU^!NnHPy%=I%
zVSjvHzmCGjn%SLq4?w1*|KT>NX1oxJ*r$0MvRK|uo!qw5$=Ze*Gxv%hsRu}?4zU<>
zKdrBrYwAzaR_lqJA0T4$o;X3d+T7g5umXeCw*hCzHBwSirG5bQJNq0h#^=lLk6Y7Q
z`mW>#t@w)dSom$!fPp7iV}#P>eSVM5cSQyIj1(Gn>7>c~=r_tK5MCD*Ucl`hA0Lk%
z`o&t-Zd?-_TMpRmm3EQ0>5dUR=klk0X*0IKGp|ne*2ZoD-lXK*0Dz&S(Fz!qUWIU+
zI;IC4uUz!Rp$@#98&~pLj7rUp2)VnJPSSgOdnLln+n>As@@RpC)5drUU;D1-^PMH#
z2Ul#96>;(x&N6#zOKeQ3(UX&tab|l9p>r9psBir_-R&a|*Z@jj0H88UROqRb?}+&e
zknuMk>Mu)WI%;9Ds|;HkM~4Do;v8eGt*(39bM1)jj<XfrKwlhy!3NFR#yqXW-&j&+
zGuMT4haD$me(TVh<7E7||E`X1;IN)rFPrG&FBn=bRjrcJQo;<-f-v-Oa;&x1;hc6+
zC;Kf0t*wNX3hS=cKn9zq6JXfYa=VUDM%J8zd3L|`3UR=L4d_ZqNK9`7e7QVBQ+u?O
z+{PT}^2njo_F)ZA&C+}bqEcp8bTM!20b?WE!pSrZ;&i*=0N|eev*W#!-umbB0WY>c
z!EjY$7Jh;gfFE8S85_e%05~#dWnqc?3`0x-q*yGo`Z0USxn|@+6$>kCnfBIJPtA-Y
zV9`W2M8GL&G9dXrUB#n?<a0H#5W_kAw?Dn#8L!k%7wVCuLEm{rb{3=4U3+z<GA=Hz
zFjG0i;{Ap~qNo-Cgq|QMth9CeGo@wg>F*vF!k>Hu>Tc`eH$$(y!aNU$rzs~b9f?t-
z2WLJWfKTuKzA`^`r?$`g%UfFQ7W?FTbG}nE(TY*h*7s<n&wUYK)XVqJC&{59n+`bl
zTp~b>XHhuMDJL7bXLXkrO$eJ`JTPNf0B_%|ePoKoG%j#)9DQBY&}`NBdQ54I8BU%6
z!mk2pQLrW^21H*DM^cEK7tynx+{Ja<*KQ*9lbgq$MgPC@kOq$xHavr2(EQ~atmLO;
z2`06623k`t!*zWwMTJG7K1aiCeGgmq*HnsiF&9RMgj9SuTmvI3g+UQE;VK=HOJ7Q)
zCVy6!s2vDAcs+&KE=#LD(_B^cous+P@9SQxHFMj;(3|1?)T^8?-qOGr{*z$wKg5my
zt>Qf-g*Qn#jmQm_Sy~y6ae)Ff9LXQ6fyAbRo<c0a7G%^U0nqQTQZi~yei0-_BU679
z=6|JJP$aCME)5nAhvQGsa_FWH7j!T=kBefMw!QJazxMny7>zHn&dR>a_(yAjAk~gH
zx-k8LwOdxc6I?(7C77QZoDRE6&zeT(haz!R^=W?(FR13X;n<ePhsbtsf<_sQ`>t7O
zMOKQYepJKcU<zYMQgm%GOVkUBkB^nHZfhKoaO7H<9NY@c6*NVeuvzizeJ|~8>-Rt3
z!|huPx)t$}(<$yC44m<PZZ%pL^6YoaSggP$B&Iu4-vs+1$oDhHOGg?c#y3Vo!`Wzw
zuPMt>PaR`G7CQ(@o4j+hWAjc4lOt9TLoz+^TFRMElK}&dMdrc*sroYhJ2L(QNdD)=
zkJ`7;*Qc0e_|+zsutNX@FgYo{CJ+KlL_lo<Y!j}G$!P|@Tacbgt4+vfRD@TkV`4s>
zpt+G6XbNLY4oSj4QM~Pi#Hs<QZ8)-H*qm;=7YVzD)E71EKKmzR#k75eEe5A=r6745
zchzR^w&5pQB*s7~7K0A63B<F?c1uCn`K)hZ;EU&7zQ=BmYIz0z`MN}&QDFz%S<MdU
z-&IYX2C&3z0}aaYU0{AK8i4u~&Z~+H^k3}CTOsw!^!Nm=`k-;}J^u5iJ=g(5ol*M#
zp&N=r_sGf(G%-e$38^oIIu73ux57T}D6Y(HIC>YyD6lE;G&Og0h;G{qZz<b-3@z%u
z90unLTTM#Rb*k^%T)xOIU3+6svdpBnIN62RL?QFADqBtJRZyo`=XGRv=A$Z6s@Z_1
ztl^r?nMIX?{OM^JKrs+4EC$YvCHa>ZpM9Xd_7sY@vNFn`O@N(}dS9~B5fMUSLQ4UQ
zm;#kS<v;>Kx?swnY_t)@w}+S<b}mbZBKWdNo=hoBkt~HYh0>97oywo$kjd3B@n<x=
z;O1|SJ2W5*vZo*f8R0^)px)Ifh)d_2WzdOA8IffALW=Qi1sK$J=>{vceE$e2cdzD=
zHEwIar0hr)Wv;E~Ss+p3P+;C9<Z;$aTGYlIF=_WJ<9PYa#R5yC@MCb?P1BRvpEeE%
zv*Kg^J2O~t*%<Y7hFueGRM665tog-=j1{tC)nF^yg)0SOcF_^$4?Tpsa=8j_yJXb7
zeLhWnmGYE_Me$|rlL;E{Osp^AvO=Zo%W{{88h3HWlLOKOySfO)*0b%b;e+X(Fxlhq
zuC6btd&DnYss=OrLkd!S-BjoennsuXpEkM2xYY2*Pp?ik5372l`5&N$gc}~uVwNp_
z85JK7`?*)s$f&3X;6Sxx`=n{4OtdCRdn%#xSMdh;mS4{)T=flVrMF*S?*)h~v|kTW
zO1cl(BxQ#RLEnHl$jBfxjC_$c*hs9M6;(N-h%|o_V&4RiKBpz5mBg6JpFM%Zk@^%9
zeUllC<ApCjHX;8m{2~<tH%#$AL8p@l@eqTIV%^y*04q>!B{|NA%;NNmZ^MzR+JJgo
zE?$in-MsOcPZ<NZS6FZW6C+(8eyztr`ySE70Za+hL@m8C|6UTD9m9<r^!*x-cHv1O
znliE;7%KG`W8ftr{^tG5&_J?QsJya_t{2nx%3ugLQok=w7+eP42dP3>>3$6Cy}S%i
z?VVN<Gt%|D^(t28suRN)6*y8~I9eDS80Bg?YYEcqp$9m-MY)y4|5iEe+!8t92j2c>
zBUPw6r{3Y71x+k7^h1zdupCDR$6uped)X?+j}z9M$jhYwWH$>)WVZ4jH?O@Es!I*}
zVCP`Y0hy*qd0D3r1K$&2<HnZ+Z9&??-*|zKW3ENc2U$WdVimAN5HAG5YeuzjO85Of
zCg;n7!@~fw`nS=iLXcLn;_GHfzq77)iBcS1E~ly|Ge)X+7NL15)Sd*kp?zyfc$RKV
zT}f!0eXpS(U>y|2)bJxeXe`VupAHa#rHZ=A)}W_R4s%eO{waw(#F)0lf=wa658(`X
z!)UB)Y2_MO3BIizpY<UJvd1QRn$<buC0iUY9&I4HYO3I8F@niYORV%9z=((HrSq$`
zlE}a8hmfkfsOM@}d4X&p(qKza8jKpU$vu5K*GD?K`{FOge17&hCWqS4>F}NTv*V~M
z<}ux~DEnKQX})<kJPIloreOYD+p)hq1m-6DL%`C2B&yIe6y`URK}~c*uO}{?GRZWN
z?8d<PM2`S(h(4i!J=!BBX#e6N7*PB)){$A2byidI`u#%bIuH<b0ieJ^_qnG-UE$@I
z6U-ws9>>M{1OOgU1<>W?hNh2OH}3$nzQ=O352oR*4j78sK(Bp8B}D=L|6VK8cFn`i
zvrt#p7&y{|CbflOF&V3uOMVwnDBO}#rmFajt4Hy&Ci6eQ(aiEO>|)&|p|?977}b9u
zDE?<2B?kVkyOAvuK#(fX<a>s=3>N|Yzk8)y_r&&MEwJ}K*Ce@+c!J0}*#T^Q_+5im
zqb=<^RdSr}BR^PFsEfIS#0(EDI)FK-n`1;bCGoqtl>fjL0mezu#RfX9a-RdRD7Uco
zQjx`*p+3cRCt@SW1Dj^^RueEuK}(1QRX8so2xTiyk-EFjQ$X^@pO3kbg*VtzpH@q5
zOX3ZbUQE9pG|QMb!80ly>}TG_(R~LzdFXq<4&Jy<4txk^;>Ysi<+wv_F1xa9lUi}l
z{m_(y7;-12!;$a4jgg`l%f+{a=5F<agdu^XLi~4b_G0g2<I!bM7#(KY4j+PzqWm~-
zh5vrlracHYiunH1VSQ>@bI;I_+3=2o=&I%&Ny7qG+cM|IoXdMin`*VQa?ZA_!p0jo
z(u`1kLZ#>2&ktb+=>`%<blc=gVa(SU6~<zuQVvQWn{U~(gM^t6TM?>Jj*%diF+}yx
zqM+x9nH6P@N!tZ{*08i&2Maavq=!CCKheOVb|CCJ2t;pqz8An+O7{1zY525PS(X`3
zT}{C|TU`Yg57AXjs31-?;BPEu3LJ{y-_Ui%tgzuL#rgm{#B`5A(nzLh{Nr8k4Yvg`
zV)HdFsi7!VW8ejk7d5e4;1fEXJ1j^UL3_`4Kh-_t-@%azfQg*4lrxrJ^Hs;>T>n-_
zb7-Cs*Z=|IM`_@VurMqD>`3N_uDb@bVFwT(QG}mp8ds^U`8WC0lE^a{LmVG283P0<
zS?O`7ujg`W+tnaI>B$T)Y7%wh<u3p+USgKnrZxudp;P**+%sc?j7suKJ4iT2>;`bH
z(UIbi!b-#OkOQb|iobass0(tW@ZPFa;{*tAUhzK-y@61r2rXJMrUs%>jcU(&4w%d3
zBj?V0I=0X#unX{tQjx}tBnM52rp5NrhiYShJqa-+r)+rMfi)!7*vdxYR2JXH5Qh$V
zf5Jn@0U0e;3&(ukKuX_ykt+Pt>we3<TsS^HXdswro5jk!xR~^psg;6t&?~nXrwF5M
z%&2BM=PRPjx;4G3o?%LhQqgR}i0x4z!B5`ROOHRM@jVdp=hJUC{$a$M;cwyTl$ig(
z@u85lBfr1drX?%Jx1n%#wNbDwV7mM<H(vID*kBJduqMjB8VdyTM9M?4%w(T2yXgw7
zT<~3gbEW4%>_-R88k`4i0(;y>SULRxLWZt_9FmmU$o=y$cJ(>`A`sC1>musES8E#0
z93r>5$~o?l%2VA`m%0i>I7L8&BW_(*M><R9NyY<lfpBPF2UMw%3)Clnu^?U^XZF6%
z(n@>Cxt$1EouHACQkzIHPE8dnv^*Q}7%{YN`aSD7nycUI_Ml9GJ>h=wtr~(9`vCDx
z<K(J#n4#r;O^2ZrpQ0!*6LXOc08u~}^)o?%U*4p{_HS;tM1h4DZ^*qB5^^#37`a2U
z-ZGO=+AN(MW|>m+XJ48*vXjJ2@Ayx_?3S=}fUiNts@xeSpSdrw&Q}?T1uH-1kjT^8
zf#aYh6+1Op2h!0Bri9dNM~X+d7x{+DYpQ3*?u#W4FMcd?+VJL&HFa|G==n%{7WTlB
zNbnF;Dbmu9y3a>(7>}hGSo0I_js)unyT}0C{Qwx`huxSnCS#*gAX?xL(U84xi{nEX
zpraM)^YsOL*S{zR<yQdr=>q#}fc2x)3h25KSn^?~3%M4l3ECxA60jbPkNR}m@j<Yl
zCh^X6D)|c%%*MKGA~)0~Zu7Tw2qRay0enS)1E{n}0zkzPopm5DkE}FQ5WQPW1Q}s;
z1jLQx&javV6yyS#59$h{3<_zy*Y|3GE13)3DWt-S)PHYi62DG~EyWt+X_ewD0TR&x
zRu%Im<S?5V4fQX8Daynqpof;`?Ey+*FC1*l0Km!kFO9?b`M^=2eK46yyBuU0>c`Cp
zWD#=p0lm;;weSMi9&8ZS1$~4a!9GHg@*ws3hI!a-FNj&0S}|pE%hOy&s$&npULY^#
zdwoK|3#q-vN-wq|jvb9Hy&jrtd*B`$jt?i9G;X)#Q4Y38oE={^w=}FVtyqN_*ZXda
zXp3YgcxbE|&qQBreQ0hfU24ZzTbnm3WN}PH%c>Mr!9K<Sn@POIeHA$DNSVI8@e(Re
zOT;S6b|;|?%`cWGv&v^#o*4<@9_?m!6mI9_Tbe?e)6pk}hUw22g9W`-ElpE&V%3%e
zZGMM)rFD?pj5YVr-gs!5PUsa3HN-Wmv75Kx2il0V^saIM9}q#|kf&<x`Ot!29&92l
zSYM|8xO(vj2ul--m6vpmuJ+K62v&xYR<PuVcH%q_HS1SwV^Y>I!eP-*r9e%e*}$;Q
zS!BOmrO0`rI^HDo!9yB-z7upGH1gd=-FGdD5Si>|z=a!_oUi0zry^<-Y}m&0^_KoO
zLk&uq|33id10O(vu)~&bs;D{hug)>(F31*S3{({)F4oN<<aZaaxO0l;fTV*w$=(1!
z{dU_B1H>Z+{543}r3p$I3Evhb8E`$Mp8C+2cUAVXjJVo_D?Ui5lNTBLv%Ln&nzk-(
z_v#?jaISGt;6brz>tn}?)%%YC+d$kIKWKup=zwjZ@sKv~vkS$`QGcVqG~@=7@zL%1
zE-ww#uVh|lv*HWs3P&l@V}h1?#j6Gx8Y?dqqi8k{NM$$@kc(gVkotNC8jt<JhXIk5
z9H5JT<s>kGAEN3{$#*oI$N~tQ3P7?ZX4v7MNk05v=?nLG68|TIU_f$OGu&X@KN2@i
zgW$V5e`RifWRM!#+$~0%WOh^Q9w5r|tN<@`FBm~G!T$OgX_A|~N$BM=AR~0n=%Byy
zIoMkk5$qGqFbPlobB@UYF5H*9foQ#Xp6B5KfY|pd<20`FF5t5h4K&UZe@6dj;_rW+
z)A`E-{r%W^dMAMvON%W9oDqpPT|Irm2P-pRm1GW#-3$B_bQWX@`G9r^x`ijTids<m
z053S?&m}$8wDQB3gzrQ_>Og@|MYGNSokZgb@{#Rky1V#V<}YYm!td*Jl43)b;uhr)
zf2QTkeO#n8lSW6N0z>U<`UOX}@+UabvuB0Lp?btdgTlOq*Ao?b4#XCB8xPU=M})~d
z&lcX^g3&s}(bsCd5yNVxY(i{r2`b2@LT}6BWHrUGuBF22x#%j)PN$}Js;1(}%H%;U
zaUG>%szw>#Y(!J6L(^7Q>$7R}!{>1T3f0^Aco;W4tY25k$7uORGSKf?fXDmz%o(YP
zq-Us;371sqOX`f-gryOOW5`ygs-WMASDU5S$t<D;Sn4D7VxKt&$SFSCz~uJ!rTID!
zj1Dx~Y>h&<x~3|fXVzEZ&1K69Yik=W@8yq{tPNF`auZJKUkuzQYP87BBUDV^EEyI(
z=nOGUPG*+(TWvsvJs@@)qJkDz<_Zm-ePfj-IL{@wot#Z(eb30P$&;LSdoU+N7N9at
zlR|h@29Y8OpgtAJtOp{(foEtJdID!Ix@KTk1K*_A0Qd@3!$I&9(M!KH)j#*hB|P{q
zU-tjo4%Gs`W7>WO1)W~~*_g$hy-F3M1pgip@<Y-&X9FTht)Pn?=@e6a`laPFtW-s1
zq++&4v~U3VK^H-C?#-Sq$S+pB9^z3=Wi&wWyZ267d&}-hWBY+DPRu=I%S~;{*XvNR
z=(`T7&YD#cixpq_^Og1$jAPF>!?vN)dNMc+{b})Hk+LK<7b}v%l0Ys2JrmCpSP<7x
z;@nBU7|t^-<$nKj)X>M@ZxW3-dql2`H=JfN7WZ%5P(<aT(&bFvY;L23+)c}dx2ot|
z#n@b^=z{`dIpa#Z&E8}N3%htYPA_727O4uu*kPXCmyN#K8t_$ia2yEWhipP~i^Sp|
ziOtFNr!Jga<v%+~iL-dKd5ro|Q{t7s<rY#Xmv(n;B{}$FYm>SQeZhD=lhqi><CSnl
z>^^o42^&;l>uBSggRQJosto%y#LZb)ac?tQ`8T{;&52YD0mc<6tn78F=oR8*&X|!M
zXnpn-mug5+DcCN69SGjch(L2=6>K7l#0$xZ34P!6N7)FX%V9+LXPT!MWO7pOc<8s<
zprgq>$wn^)SPAH<_4Ko~_D#fPHu<MhPK-9SA2e9iqBYk*cqS{4!65g+H0)e3N3tap
z0bb%^(F=$NI|Om?vZ*sKh7nCN;-agCvR*W~$sJRfP{2UuQ2#tLpojn1Xj4zEg#-_N
z@L0;#WAKjqCx85I@GB`rs6Y9kTNdr&KJ+tf4DV2Da!Jz-IDw)3(jlL#RpQUp@E`tU
zCBYkogAA2au>?SPR5L3lW-C*^dWmRFTZVG(ZAV~qpTJnq=lz{4RxbFUyIkGQbdT85
z)ep2<kA9Yswo(nNw6j8N>8MK!;B12JMieLTB6Ji42V&>9MU&omB3Jll%dOSsBk<pA
zV$_f`5}pzj7s{@UjTg(44cX59XmAwwh~&|{CB^h@nW*x?KU`mClumZV5m#cFe_!D)
z$UX#;KWSX<e2Uap^_DKn>3<blC)MIwKRKf;xAsw9zsK1FiakSZ{sr8IY^RpNw!Z(K
z>HM1w{i6_TM<((yY)gUqP#;L8U|X;zR)`D^S6c~xW9DTeoujxC-a|-vVB(SorAV>X
zu0GAZRCka*j6fx!5+xhFQ0vtx(FclP8@}JfE;`&#XrfEUF$bxkTlI?5VZiR@EsH20
zrb?}jXqSm@dlQN!Q>Yo0yxD@UTLYC$*?DtTkO#R%P*3PF$Qr!`iHF30$x9@^$#1Q-
zbA%%CW>QyaH>JlI^Y@%I-imsm@vL=i7seOgLS8Z$M>m|>+k+JiMp$BoH_n91tvl<3
zf=Q(1St9EuBgrf{;qQ^vXW#rIYK4By1v8B;$u7w<cwaK6o>o`iw~UO<UzU~(&3;|`
zz}LT?)>!3mH+tU?|8?B8)LYy%>lHdVC{}Oci}3^%-fiH}D~JPRxYpnZYKw}qX53b@
zx~pm~PHx^zgv3E?Ri4kXb;!o{Um*PmD-Dm^WyE8R72@eeP2D8gT5csMDsI`LrQL3>
zNn(GPht~-VLA5wfAI0Q23!6f8qHw~#XY!o(5_AE@Fgm)4yH-_pN$wDKZMy=;6x*~u
z`o_4TASVjsT+fxo6}SguxnJ@6pt0HAtq5LxnVQGYo#q`MkUZ?F?%^lg%jiq0opBq$
z#;xU6Y<9J-yt#R8^)n^?l=q?pNxad3JPhIjjiTRwHA-ia4!b*~NOGzx5dg(gSS1^q
zi`%8+<&uE=9%KYYE(X&C{78LwK34yWhfmWIat<a)OEy<8Dkj{}$3DX=WW@I0N@5hi
zy(&-l)V1=A^p%EJN4tcrdQ%*#q{*1r<2n*$Q*_mK@*?1HjHQ}K8};cW8MsvMYi!cT
z(ls>2!_}4b%G?@A6s^hUSK{45p-T;r`qX}inU-DeENERx-FQB`K8d1aYd0ucZ0Ws)
z%WEwfSMZ~=MX_6<4OKg(eSb9V*An0V76TVGO~%k{7MW3{XxUwv(NVv*Q#uZ8X3jX;
zf9|Yq=hWF!Z}EO<RIk~-om_CJKHd)Zx>bJP_u|Asfv4xhK6mxu=p~bGdh(Ki`tL_V
z;TNT8_vc&~6duq=QoBG18i!O>eD25GK96DEAvCqol<&Myc^q0|C;cNA6VW4V7eR{O
zU?1qP2=bGSNS^huFt4&r+KaZEy5Xke{u0*H<3ef|*6iBSU7x7>w0aN4J$bjng*8nL
z&lT^f1-sI_$~;0Ha29Wwoy6@v)cW;oOLx3(Dx_Q|vL~Um@WYUod&U%wq6Ghfg{Jx5
zl22hWFk86-o^|3WeI}*n9o3@;!KheCV1Fae=hmib8?0h5SHS^S(@`+gaj;~d#JCOR
z8<^>YnB&2&q`sAQV&~*TiH6$K<K=>PqvW#1dqzXHmmk?MOetciQ&TJ_%|46yzwZ|-
zgVbi9ebT71bC_ciLve1t{V9~+M@v14x%C9{z-ya|Q&#ZW)hm9Yb8qLg#3}N@Eo|Cy
zmkw<@B^)S_TXaeSw~||ehR9C{LflvFMhtn?JW8%#P4zeDoqrt-Isj4gxc4YtYWY#a
zA(yTc??mfLni<=Ic14d9Jst(vpU`7|nJH<?quifQdQqtP<VU^Sv^!RkSN)}TV{B_$
z3Tqx*`V7cu)Nt|PV#}Sm6T=ez=f7LYao!+8iMOikB(=Y4pZ^jEsiJeYRLSb){{o9U
B0ayS4

diff --git a/reference/Rplot006.png b/reference/Rplot006.png
index 0e506b0a4531f1361a7e165b9a6f135b6154b7ea..950cb6b25f66a5b3bab9a322932367798efcc7f7 100644
GIT binary patch
literal 13213
zcmch82UJu4mTro40j2k%Aksy8je>{)Dbl42Ql$5m0EvGDr78$Wmo7CRy+;sGDFNxy
zf=KT@^mn*-=B}A}Z_S$b?wiRX<m8+~&i?K1+utrZywTB8qa<e`2Z2D8@JA1HK_D>x
z@<~bz><JobNdR7mtu@ph0I$H~NTo3Zcp-Ct^wbLkqM*5af`3j0pMpSKAozp(`u=I_
zQvpq8yHnV0++^ycpyzi_l^fQD)ui_|=*hD3a`O_6HPkf>7=;Zwa)dLK@`_AM-q(ck
zWqpd6FARE<JtD!;W>aiT^X}2N8yj*s&Q|f}#hCGp-bq=n&9f#;Oh9jstbNO_qWwaT
zUvO(Bng<^DPyZx%-R-}saE;a1NMfx@q;q9sHBh~J{$_%?=1;OmD>W=uR^Hv;6gF2H
zrlv;s-#d1z2{eM?d|ZVk2an{y@VxDryyJ#m)C+9(k}q$$!H5I`dI;%8A7SaSOC>Kj
zxV+z-LuABLHiYr|R_1sXJQPo4<r$-Jz~x;mLbL#Gg^sMWA%`ILU<!0SmU^d2$!OGt
zzng2q3SWPFB;j7sx4oI@{AO_{0w#Ob=m8G%Izt+&iH*eKP?C{f!^@ph(U`8VGYJ-7
zuaT-eq0J2;Mz}873Mp)-8_gXGOUprfp(V3l1YgNTGv8Azf3lZiXmw^>(yBHn30?(9
z59~^mhi=WaJaINYt)7VuGrvB+N2WYre7%Fe!!4UhS}nkp8G&i-%5Q|R_y#g2-alA1
zgxaa%H27OUIo3y4--J<u3?H`F;I>o1Sg`>D<L7BUgc8UiCXAht)z?*GZDg!mH_@-K
zTQzQoa+NmtwGo7Mcbg-VST3ToZfr|1`&mc~Wj7t($)=q_wOu5N(kUh^h(AzC=73|h
zGry6W#aD}L_j+uFxiev%P88d5X@CfnBU(`;k6@=j)4Wl>bY!2iNI~)S4bJpbTO$i{
zT0K_21~FUN5%H;iq}VB%e*F0es}{;IC3ufD>k-?-+oY+T`9b0bgu<oZRyHxqD8+NG
zu5xd0OV+8b85<GyDNM5KiZ*>JnKJrY!XhniQ_a}jZ@!Q$_j79Z8|=G!5xdzZo2rMF
zv6Q&4<5B%Z!SUs6N*~+%X=Vy^wDLqY%S0Fp*MzVu-6o_Hdu2S%6j#QW>!`-U`(Rbe
z3bB>di~f@gtchoH>><;SmX1pz!wOJvqG`b--QAwsHCI13b53niIuCSAZrl=z$AMBo
zdfBss*(cngWeXVE2!vuD<5V5tZtwKFs-gL*;rSa0=|sjsQ%>0JP|gc(Y>xxMp3FRj
zd9{PXz9GO(wEd)&2GL|IZPUbnP`GtK7&P|}YO#I0o`lsV6(;bZDI4C}({6<?ZLdFx
zQbYS?KT93hPW9rOrT+R!<SXuU;HjdNb85+phR;onpUrYVSAvQ~ow(L06<+oqAHD70
zLHAG9MU^uOV?(aR$eSmX+vv#8%aVQld|L|J;ax=tgQ#6IG4BxKs~Q6JaaA2lar-d_
z)L3_OnaV$FT%iwDKGe2)PPQ5E@xr?`z&pgkc~YaIYl3EB&fffWke_!eY_`@(!)m7F
zg}V8)xw(k$_*2wyk}w}zgeUiw$TQI~mNsgS1@~kx(pS#<5@*i%Kr0owS_PvH9O+cb
zCe)3#2BCG6F0xA_%EOv&k>W{I4p}&XPVdLvZ;8Y$WRnkXn^oR!E+#ycGih@1rqd+d
zReYy2#L2zp;N$bggPU%|31v<?;djWrb~~~3{rpt={Efe<O|FQSAEHo>?pIDd%gCT3
zPWw`Vjx#WWM_1L3>u_LspWSN2;E}Uw-dB->l#OGyS)F3DZC3P61YQvl34ZU(AZZ|W
z_|nj5Xz)ls>e>NISuV@5TGAq!cUngwvrHicW-8G=zhI*-vV7Fb$eIzM>F1&`HX&<t
z8jnsTo%y~{VjAJTq<?y?Ku(Txw3%U6KSu){zJzSrg<}mW7Wv!w#TaQ0ru!bJp0)IP
zpX<H7VU}wxwk0i>d5E|%d*gbnTKz(*)XbJ)+w@fXyCKmb+CDnEL*y$jnT$TZoTcJ?
zXnVuaFIKXy`h(DnsPuK*A6K5-Yy~bP-$j~D$~$i*;`*4F_DJGuG4N@nh}K)~`a%cs
zSoY9CePx+xLecF`t2U3{9<4Xow9{OmR>(b$%$zx<Ww|!ah+(pVzO*M+zmV-<B{C#$
z*GW-QIZ=rxvsTv|L8+V^-n(hBwKR@7vq{&3>1H6ezFMb0sO$ft5-K>9i_$=il68H_
z&~%9Ys?A(yJA(KVNsrrQeY%N|U|*!3ezT>LT<<(>NecV0JqkVLmx3KFz()5vkSXp7
zdCpz5CR)ANjZncmir3}|T@EScq_B})GQON|V>ASkX8~VDlV$#Lf0flSfV2x_QjZR@
zS(99RSl>%>@Z()b*@p=b4n(n3_nIiQQm@*+Bi#M*&P7K?mo~LY#5!qayZC@p($9g)
zO4(V$A`FCh*q%a4B=4n~=fBF-w%u3n`GG=#E&7CScFcy9@5vGE>>o~1+H;|%Wcy!8
zF)k#vx@=NiuF^*x3V)fbR1sB~<uB>pbRWfS1}!zzz68GO&vxMQwjHH8AGTC>$aB88
z6g(N`K8^*4a;^vEn4RBO6Puut;R;M!cI=^dl9_eZ?dq>bxzTi#;lyV6m7SLB#*lVq
zw5gfM-At!rWkbF-pR^<KZ9@qp=^e>~V@a|Qp}Y28H-3Z=WxXAO96s2Eh4$+@zYd$Z
zMyY+Byx+Kub0@Wt3BkqL%HU@A3-LK@K0-EatG?tup?&xHdo{(`N{#u~ur!?|@l9Gw
z!(`1HuS~F(w@%-6&ns9tDQ~u)Rm?VC(;7IkX`82<6Ulcsa;KbqY?s_Eu>oOYV-2~<
zUb?>aVz&cT-Xrp`IZ@auVd5Nn<n7wrVM?;y{?wK0^rI+WRa@Bghy}?|7c(!ii6*IA
z&KHin&f<u~eu4U=7|z`4<+```7S237UiJ%|-%ZDS6=$eZh)8{+wnT36ux_V+EZZv+
zaefgQ1M$!w*|Urd>#Ef*(<ThY)xW)$-yOt1tKB^u8cDvUp+*6#G#llnE4#Q^)pK`L
zYC3$2#Fl%O1{qJLTJ^5K^oT9%wE{~AzvRK&F{c%>sftL_ZlOkl4}uGfq!V6As@>e;
zuIz0Fg)BDP;?o6l`bpPX)RJuz>PwyrrbimE&#nM+7*ns*ZPJ!UwRlab^`V>;R6%(u
zKsIShtyH9I)vJ(Os4}yEJIGXd(aQ>>_TkWMa3K=R-u<ZgJ(2Nz6?4|a#yCv@?Cn-g
zGs~808}*<DHY;><p&>MTS1xO!GOYjS8Bf;!LA?V~IO~KkTtcX~zArQUCyA`Ul#Put
zRmFk63sY7pzQvU_Uvsm=@BD}K#l?L!G-0#EBjj~hh?tbK^IpsNPb@A+A%tZ<qgjoR
zj}01_Gf}R+i{--ahK~3wtlZNKRrYn0=v@e9aIibpweGSMf3>CN$lkWoEWf&6Z#_bD
zZk0=FzT%aAG$|3t7MnRhbs8CS<3sU@pV%|Cg4ri)f02g#=5h{E%y5^?rF)jlM!t5>
zAsxd*_tk~8fPd;`|8Q!uFT3aA`{&(NCL#B4A2VYhT@S^iK+}<7iz!l;S4l%G&ckwp
zxf>fry|#}Am&Qg?W$m|o=r&%mYmHGITzfV#!%^`<i;u3miwveCIZ(ArCfxBNG!X#%
zNJ!4jzFG1>M&3{%Q!=}bxl677c@0?lTJUMoH51q5vQEO?N3<qE=IIy8eSB4S#5dp7
zm(0v$FJfrP&7fH)H3|LkZy{RTbfnowy=!-d?u}J^l8mVElQ_*C+v6MXn0=*d(`8vn
z^z7*DFZb7v4-8&;cCbArK+9kD({M6rBFLX<&-<U&Rg)sv7LT>;BIcw*8Gfs`ofB^x
zuHMEcI!xw-x(w<qBgs0mLf5}mhjP53CS4?f$q6PQ&HE>w&-)rVPfmy0?q8kNhPS-f
zrQBS3CB(CTf8Sf=PTmiZ$9YAa%^z{XN^f|4>=>&I4QR7Wt6=hi%UAx>B3VGQqPTI7
zf7v@QM7@!zfu}IU_`Q0b-L36TXoU99f+1^gB9G6bl3V^_#PB#8E8rbJn8E7bZ0-wG
z+Vz^ueXxmP=H#qF9_{>^@|{@k&-IKeQZ3uR+2@njuvgps(ZF`2ZZ4+U4wo_Y!D+Ir
zaihViEtE{-cYDjp)MoHDCgf~Y6BNlH%p&uwEtGblC)o?GqS78-X^(Sdl6IZkA?%6U
z_pu$!ab6I-sFeu#Xi)qu&EwzOU7QzR&rdclT(x`kjLiIJU!`u8w^K!)pC7iyvcZB+
z<>$I$Lt6P}HiwNY+4rh3LF<vp^8>6B($WP|lkV-DnL!8RMl*ghL8)dTXZwe|>3V+8
z6VIlA9eVt`gOihK4NKXPQcg}zCu6hOP!cL<`J+GamW8FInqA@cBe69#HA6}#YrFHw
z;`YHF-`;ZXp6?aF%oSez%zZ^kN$FBQlHh2m{c&eio!1zZ@F_Db;HNaKTJ`MVUnJB^
zdn!8{2tlWf^9fCDMZ%VN((|zD>gv4dfW>s5hfz!eG^~bD_pjI06n2X(&m0>I^$L{I
z&Ny6LTrQM)J~lTiCTJBDFAxs-_41oqmh)3Hq@RC#t6Grm`zt{4ESS};Y5T{tJ`%jL
zvhs6xp;w+24*-yw>a8?IZ+Vc{gDb6_mfL9!Mr_B1Z4wG&qfH4*bA{V;U71ybTJk|}
znHel$`C936cGFD(t38>p3)b#L;bO(Jy+OYWi5EYiZ$r!r7xu3Rw3g|=H1Ai}FADo5
zt~KeopPAm&izlq-@~2W3!Sm#UV2eG;mB*i+<SfibRJK#e3uOR6J{)f!HTRo}wFsC`
zC{0OCl|TFNIQg#aY1NCtkyrgc#~gB^wb%jJr5&A|Fx`{HSDD;h?2Z8k#Jq`3RYdr<
zPa`&)Vc7jq%T_HHmvtY&Cxzpc_R`PuUpPCTcJw5RhtsDVe7hMt>GwU3w;;`LI>2aj
zcvurR{43zkJGHQ{Gl+p~RVesi!mTxEb#?VZCU9@5lG7iLem0JYT#T#l1@PS3Xxvn)
z*I6s;Q?VmxN>53w01ljB#=oQx8QWW{#7zs-H1S>KP$2Adc6M4m&QuEWKJ@|Fbj6%4
z{74XV+UXrF#<a-Y&hTrgOFruRnxPP|vxrkXoD>GdC><|Nv9Pd+l$Mq@Z(M$!#OTiV
zr1qf0De0z~nu7-5Q3wzhrf?FpBOFg?>R9BSIel*G6(4QVg`9u;WxQ5$)D%+>{P|$j
z_I^%QR+jDF(!g#wCF@AT`SGf>W~$UWy2l$}A95956{TTe^m#Piy1Q_4Ro%@7Y={|{
zp3YFu(_J>3104Lq&Fy0BFkmiP+CtWMZOopSl0~BV(hB*_rrp~pFTmzEmKVpP2=M8G
zbnE!@oj>3Ga2bjxhk)0^-Rfq;w56q`IR}3I3e>;V7eOyboZ;R^#t1N(y=6LZwU_u&
z!Jy<NK$$>j#9zX`cy~}MO=i0j2%h$W$H_a3tgdy>;*|#%SUC;{)HsJXDsf5|QzIk3
zggTG84WbWHF25SwTF(wX9Rjcu1TjrJwQ8I}dvEG3QorYwmacF0O3$1QILMCBMNFj!
zd_yWFb9VTzE+?A0G9UeN!bDq?TYag`2wW-T%=GAF*87c#v@kVwZutzGL3)S}asZ5=
zl?Jpx)jr*4ghG1Cd+^iKN;{XM<5f)N(4`fH1sTVlE%Wh$;Q)GG9;T)fvw%{`9RT#3
zd49ArU!5leU}TF^Dcf8vdX3>EVfXHT`G%ISZ`>wU@z!QV7Y7OMgP6_wzW_q!?PC7D
zI^%hw8t+KLbSI?5!X{F<##k)m{B)qcQxVV?mD*p9#iO3ljf)wG^OU1^Q%;!Xd~iwY
z`LX8u`g$P|1;f>*m7?MUrPY$k--6z9h>2g5^<JZFV%A^DQ7I`YA+hqyx$#OtKllrJ
zm?RwfTWbq06)k*tXvpkhV&?o{;?hLHSNXyc3Uiqkr}lGzdDGBGdAjSMSjB^}B@A+2
zkXlkgqDnJG;>9fB?5c-lqn%zvN(YO)Mr#{AD%_V)9LEAYK355+YPO5ll&W{!n5>_W
zl$0Ev1Sk`3Z*otxX{#-?tj7r8Kf_u(HLPh9@JCJi>+3g_uJ~_#AsLlF7_-@oaclWj
zi`<!a|Mj9En)UAUZ$3F{vBAw*S+g^}xDBEBjJM6fX~D<K7k(FKhco^F8&BuI(rTYB
z#PMnn-#ho=9Sww-n;Pwu^64b|<kePyibp>c7i(auM@%;Df*<|P*UoHNuWdbBf7)R^
zG&FSD_$|%z2frT&5bW_?QOvu(rzDaSmjP?n^PyrwOMbnIO9^=?dJ2GbruJ@K6TosX
zZf<U{wG^i^**V0_$@HH~vSvuS&Be;Cd}93F?mPA@{AkoN<gBl^x3}<QqtVUZ+<fYX
z^{$2ErF@71>2B4ualK|jbF=m0eBd&03I>-|R#sOh07l_f#bE?f=ZcPY^K^`v2MHz1
z5LNm9h$-xNr(4wWj?c<a^R)k5^f3@R`=w50^>)_z^Cpj4*!o}>r{jPs%Ol4>+p1*x
z|9&HBWShJfN;vjduO2N!eCJJa1_+!Oc(Pu*YFJ_{=Dq#91DaLk!`qT^@5QQm3n1UM
zWqVQ^p?MD^B}$Gqa_2ZWp6U(OJJsjaSKH0?c8UDRI3I02-*@55MDEyQ8di!zHt&7D
zO!B-MiC3pQy4aI^=bK|?e!mWwIUcE13If9Wtg7D|$jx$Ae^E+(Xv8U<c>h>@#c08F
z(Ry*xYKhBGIyMUVhX3*xV|vK>5hFti(2Yg`DJ&{vA=$p=4v_tEDocHnfE1EkMq83r
zs+7wSa5{!V%6V+U$lPaGmAB7#U~Dj7voT+A_geLHYB(S;%ieO5fTP^(8>~VI?VKFJ
z03yAaVm6(>-`!L@cb)%{pu)<^df~I#e0VNowCeTaJ-=ImoMruQ5wp52Z`8B)ux3kB
z)6^CKqx163mJ^N>02g!L-CpTdCF`%RyG>0@So#1#<lL+twb<PiN{XF#KNz=n^XZda
zJXHe#-SwSt@tcW}->CCGSR1G8NQB$fZ+z|+5d`vZ=Q3}I%sm?$n?Vv>^V{Ira9FS?
z!fY@uuR1z9T6nx&e6=et$>R81Qp;YRXePi;SRn>u>5B!EOxA68vSQZ0`|!>LLK2=D
z1?E_^UT+lqxx9x4Dl*jtT&AV8$M3IhErj2Zt#G*{WIm8bXWJ-5kwVix4P6`vHsod0
z==WBDsbuh|<^t`^VC{T^UzwU8?#%WBN$y;BS)rj=x<s(p>WM%?;77vqd3&&7t9Q3>
zZB!bNu|&&Sj#tEE6n4JV#`mce8J=00SAdLO5*f$6=dFOOX&J}y@M0lCa9xNH_8*(a
z6CPMMJa8<R%3SW2$=}Ab`v&2+(osC{vnO7_Xf;k>Yxpzm2pQe9tfN&P%{!h#nxgqT
zxsm9=HqMu3((t$;XoQd01d%X&MXzZ7!`Lj=oT#&v_|)x{=ex^#c3(AU-81wAJku@i
zN{M&G`_XqlT(Mahbv$KXUw$(mkrd{=i->F`S9n_X;SBqs;hD<jqv4_V9*aYJ-I|-i
z<E_YT{fOz$e+_0~Gc`VJNZ}6@=59f6{z!Z`#93W%NZ8vHJ$^1=ka4l$Hsfow+gg@U
z17^UN89R*~%sq4q{5|^P0CBKatIcj!W-MS{y+&l-Q_ZWDMEq-a^5=l&PXRzmb@EM%
z@-aSb1`lOnP+fkmc{dwKQ6ABn2R1G@IM2ic%RwRpUok2wtUD{h)=>x~zT$z?>j(?u
ztr534_1+2bz>D5G@?&R2?*^NwetyeSs9cl>(uf<v7^8UM>L>t#+$;agCKi=T`<j`I
z4YGDM3d8`7g-AnoX?ir`az7U*GHltS8BxP%LG&QH8;!<RVnhGv#`6@O0t-O$mJ4q^
z9N8iP#@;Gey96!uxZDg~!0snl`GC%5*61XjLfofB2=b{nD_l*B-^v9a=a9w&4|-Tl
zhtGtFs?|z;By%9KfG$Aoc@mR(;EEqjYQVMNMb%nK)G(>4{|m;sp|>F!#MexQ0Y;UX
zkh@QQUK(MKM{WLLmZqsIPW9l03luvFVe8q*PwPXMT_auV*_35k0Ec`v=$67;muUjC
z`M4j2fRFh=)kK}tCHgnwcnp-Qt5BlED`X+0o>M%Ry!zifKSR$P^7tRV4r%>HctQVN
zIWCvHF!7S&t(VQve`tUHO(*ovZbIX<xa>5oU{>~4SGK6!skfv*N`7hLfeSP`z5u(C
zH4!_L2$3jJ3tgdtTHK(s2j-4Zz<~?!*gKt2a4^&i{20<gYIX%#8Y;62o!f~zq1&1+
z${TkY1|jsOaR?&!5au~x5xT-e{z7-850D&LR-jYrJLx~kx7@8N73M~`>7vgaz8?Rz
zS`gxs^TcPK+<#eP*Mvc``l_&z0(`{{;NJza3`?C{U@)n>+MfTlE$25L=gd={vZ3WJ
z^_IWfw;Vas_r8nS3Vx98F(>q8=O=o;iq8!$Fd^S64BhDI&RKK=(PnqiqQAp=c;UL*
zfLl+M$`#8Qo+0L6j@3=jet#5~%b_n!BxCdJZz4f9?8yYE$63Tb&G!GBc)2G@k55O@
zqA0T$PoUC}8De6dg!ceXvw(GoVGZs<-6^&x@lM!0>=k^^zs7}afL!^_EhTs6@-&?&
zBTy^^1F=uKW`D!oJ;Ngvq+RNnum0oKDy7AGtM0OQkr~)@P(jJfc2KmNUOTQK8~Ef$
zR!{c`?Mvr5OD)U}LSlV`*v5d)b;>FqL3x9}g!!U5&hv7lSn5scAslzT`eXpn<-b0x
zi*f^L5to5)K`T+BU~yD4s!=_vlFnZVS67O<UYwX8S9S0ay{uhUA1JGm-_88^@>(_E
zOvoB}6LAU2+SOAg2a<DE!hO#|c$|Ll@K1<^`q-+hE5gb_qOAEhGa$r&0kALb24CVa
zL|c?cVFJik$A47(e<S|?UpIkkb5fMVd(!~%s}AT#H<}S00<t7F)R1C_#|0Wz(^;V&
z;(4s@ma`FVmMgwhzsnEoZo8DW7epK+F;`+pZe5SqV!|WwNxWajsAXhvb=4?&Lq*L(
z$7p9Z!;7zPC0BlR)4PxFEaXuzN=FMCH96jKkCt2*qOu6mssCLaM0i$YyZm__#S8L@
zZpW1tmdd82{Q8WfS{@kzua^q9Is}9)^Ul9EifEW^-zX_8o@g@L{*{_SEFl_j(TyFP
zj~Hjv*8|6xf+w#{b%N9q2o0t=rXt~>n}&*#g^rSI$II{bN6!M=zIhT&9%$4yH@kc2
z)wdbELaU6jHJrKi2~H^Sd7baR^kabSuB|*Es<XSdzF?XWymMTPf#nNr!~9*TM9oi6
zqJPkoJShD2D;gHGEGjKz)FfTj8Zgc(eOg^%wtXDoxbm`ZQ5e4n=i`R!$|e9n(;ENP
zH(@;^;Ki|T8^Z_JH4xNCjS_D}bGT6|P&*ST5U-gnDE$1#Aq=R6WRh9}YJ<i>C-k{Q
z0sW~`o<PB<6_^xVBlDXX3D2k(dEmO4MxQ{`SMD|rz%*sF{Hh)5c;F^PuNppX#waS0
zd{AAAP-;{YkK-xiyseMoj8SY!Er*UcVqbFf0<j<bQHOD_{wWTI{VfRBeM%>PJ$&(5
zB2OU+u%*`Gm2C2X7x=Ia@-2`8Jd6i!Yg7WNHQ=EDOi2bzxhS@N3Xl{>CxC^O>I0P7
zm+olzIC{(MPcRfuiTAY%*5(6b$I|E%QIq1<-8*sa0za-}+3=P0-+;8IRH{QkxQibQ
zy>Zo@;tqQqJ=17=0KoqOdPlGuQB$Ji8l_cbhK5>P?s=9DxP@NkhSS)W0e5&@6*;-j
z{Y+AYE2nJ!#A8&(RBI+^K(<!~$?5TjXczQAs1vxAq^Din1~~V}<+%@U*SJA(4-XkE
zfi(3|FzF_sF1EVDNjD#ZSGzbkA*aF(?D}66fC}KXV?Em}HHw5RTsDYS=B>LxkHi*d
zXgu1?Wa02V55L&3r)--ziXx}00BU;eppIAu<o^oLb1SQKg}H~N%E39PFa!Uf8i_5@
zor^C|?mmPTCy80e&wBaJkij|ifGZ+7m{c6Vm@6iqJ&jAh%48Bzb&GG%Vri$~Wfj5r
zxyC5t$`*M{ukFZ5_v(z<z@BUyzmfrO7<FNYU7Nk(e29sCEY8Fj7BU;23BEArk^q5d
z#V+p!un;iS0aAVz#O!<b_25|dtZ)njcBKq-9^daN!(R9CtIXlUS~Du{G+aaX2%FAC
z@Ni!y+j#oug6B%f==8~;;I0#(jPnCBO)UY(s&k`2Tw*c~zBNiuo{Pfl;j;9<$X4a7
z)JMwOQ5A}ByY#S6u)J7HbPic*7zt_Vh~*v@p&s}CgR(Gw6`fugHuYFW&`_Ihb{s2$
zy=Qf;pYE~(@B#o5Ln2w-<=Mk2_TMwexj_N0;rNG$f`n(^ek5?KS@Kmy@xp%!+#Z4`
z(bh$}zwVF69$;6o7K)jPKt*Gk1!<!Ba8HKV*TstaPAd%@pvx$|JQWi@ed!heZSH$W
z)2(vi^jf0UVew^vnlONxPJ<r0k)>qz#lOh?qhdKTfO59sBS5H^?qNkIXuGzG)=ZL`
z!h03~eP6tyQaM(bC0D%`LsG_F^*Us%T^6{+BE0|>x?E?18@zXOHk%ZRkOM^TxIx*x
z->-`!6WVjbTQzek=Tf_=f$ITZa{v1n<1zwk%`*{~OElzdLFVFkO5@Ck>fZdG2-u~6
z0VIK!z&o+kqc{g+M9d2yT%`X9V7otO)IvG+xfp@#L@S4L-(PYpD}4YIRr`GPCfN3z
z6EyY<RwdzY!NF|=4vyDBnxZbiR2YYcz&X%*@-2LXJ)k=<J!jT(!1I3}A?qyZzlXDc
z*EGi{PF(R*&j*1vpb4ljPaW5`joV_Z<iYYFFSN(M)(Q+;ffZe?SCmK;XcRNa)2NYI
zp)#gW+MTEg4*%xVqy0}|ay3P8>dE3XF;jd+g0S$#ZTrWiDPR5~aW$o&?Pji&?Cqh3
zIR`YPiP6?fW54`GC1Q{Db~^DY)zmzEFP^VY1*FqCUm}i3#Z00#!{1IuZ(AFWp>0_P
z2KMfnQ}5J}*6V|{93~m;{WDL;d*(4cjr-9I2cjDH5>)5<kKKazvC*+JYqU;@ywgr@
zB8$}0O%nUj)TS*aiKyXcwVmmH4em>I6}GZ7NQ4H3SHX-#qtCO!n)%m!33@=q!H$w@
zqfh$1n9c!eGP8~v%{CR`Z>yOvs@i?cy(Z@9@YK4w!I?Ly^)5!JLf?YckEO%D#=Kal
zA|v2j@!Y*#!}g7VCX3Y6ZAI%v_HI2?YHG6lS-xjz+z+6F-b%n$49qb<ooj(0F`qA)
zSP5j-kYa4zMZS7t3@?18%yFEe;aVgH;Qun^WwoW$^*@&5n?a(Nchme!-Zr~3w7}FN
zwI%<NlHjU(nJGvNG{8#a1lFyjlGzyu2gpP)184#jKLP7H#)_iZQC_Hg2Y*&~J;vXU
zAzI(WT_xNt{b=={*%)Hv<yCugJv-AbX4Uwr+iuQB@xzBNi>+|%8>|%eF`f^bKK0tm
ze(%_f>IzFkLVASylgiDRgRx^hr>j6mm$mAe*7$ZXBf!TCC~J;C0sR;=4kAxmb9fG7
z8tWLX1$Xa6nUY=I2zC_6e|Arp68b|AMKWx7a*mFxax5wZsoc(H1P`KxY5G)w%JxY#
zP}zbxfXua$v$h!j-`Gq1yRT^e(U=VDqtqY>kV^LA1k@hV$d~XIaAO|e4u8A>z8JfU
z<-t2zfwxTYA9HDdZjbNkBRTXp9J&I#8k)EzkG-u7ZlSCL6Et+c13KXfL`yAr;bANz
zXdT;Fu_&LwWDmpt0s08Y#**vHIGzMOpkQl-<e+PF7H6P82j<Y&G@7|d7NB3a!Za{-
z1?b`m9LI@~EL#a<yBgN9)ZiA&ac{skPk}Ntm_!DKt7Anak}uqV>&5~tsXI52E_E{p
zS;+wf35xk2?+ET=eX;#)bG{g70YKAA04kV*I6+BZH|PwGCB(1eZ%n1U^w<&BAMf#z
zqmHePNrvo^A9tTzsC7oSvDLD`pWASO*ja3iZHz3Ve|3)-LLYF^6k1d*HWg)qra%dz
z<{GcrD_V^z%qfxeEZYUg<=!nU#9aL7cd0o&!takd@vAkB#3~g%JtYj{B!mOq4n4mX
zzXxoIy;gH35|dGY<^;i@WyFpeQM(VkyXUW2Jvh{R&y%34N$I3L7O;Q4aZNwbU6@nI
z_IrG#dMT|z&Sf{y*;RW2NrNxxeo9mTP>FQpcg8{N7n%L2`gOjT0f=}2Sc6R{qD-Gu
zT+Ss>jsn22XP@=|%(DNkz0E)`km3!wB$gXLcJy!4q<IOh<tsP--sJ;5lL$6ApfiZZ
zzeeyf73%>SXL<FM)WNhvMif#CbW>!=s)+5suMi7r6}YqUlE$WqamsTX#59l>1uT?%
z_%kKJPqp)ZVgU1BY)LPJ@WVSSH?|K;Y9+RH+x_Mp(SM8uLKytP#_V-8KuN{MM5;jX
z_>qVtP<UW~(T5Ra0^;_ZG6eL2SmBDZ;c_mpJbnO2H83zoIdqk1p*sQdEiy}AC3rFJ
zLad%TP5eyXKrWPSG)X0O^a}4|cY1acy#v1-W(Lns-LIDHoqs(Or!`trv+e7wGYCr(
z!tgID2st=z3?Y7|xQ2M)5caWU@Bxb$LbvIJ5p+71@)*C9v`|{NVY%626hi=&E*}8H
zTn5n>#|{&s(}p#+Rqoqr``Ga0MNY};zKfN@SfNiCj0?Zo>B2${TDW(apiqKb+9r~;
z%?Q_;`F`MilBykYSS5+_mi=8DT<0l?|7+~y;Y`!{LWdiUkQw{qdZt97x6^9s_I=IB
zq$;Jebk0N<=IW-4`-)qe$O#jZ>5Sc7%jS5NJ0Gjrwg-iUeO!cHwr9HLBRN6@&c0Aw
z7}W$gm{(W_oCYAARvWcL7Q>4ZgwJ>Ai@_S=IKAb)-yxdK!LyUAZmt5|tX0*cHTFS$
z0#o%^PO=HKIBe~5(xr<(4c!4!mUb~w@B>2ld*YPrlX>jZ0e_%yiqii{_NSb<oF$7?
zRQPV`fBLojKkjVR-Q1)2DBBRk*F{)htDO@}G=D+f+kOpy7+U<~49a9WKBO+iP?!F8
zaUGjj;nAU#<EV2xgmkp4CBps7u^MVhFxl))L~pyQw*__4cJ^||LY8z1?$zIZceJcF
zKMOK^6+|La_)Vf3OJg;ap<Q6=+1oyc9VM%GBNc*#8A_FAJEAke(f26Jq5b3~8ItDw
znNMiczh97Gnc8esq`6LIqRX69h!XBnGeYGJl&a$rjuj)cEnQZ<Dgu@$f!kVU_8rYL
z6HsnXPP@yYTlz$v%Vlc;Oj^bPPS)*x(3ryKx>FLg1n-e@UBLKvf){l#2*TiY(#DUB
z@JO=Ndv3Z*UY`#3Wp9d8H~R$j9hz@yu6jL@?BE*^kbAfFYE$^`%o}fKW7cvnNWHfz
zJ20Cx`T53Mui|v{)+v|blZvPYkr{;^P$KjYG@&n7C?aqmyBD@Et3=)G5wt-$<70rf
zzUU-=QYT-`@+T#n5q*<%>i#My5^XAwW@MC0dhtQKSFB9>)JEj}1z9L(k3@M0Z~RKO
z@-8Ur+S-*8o>Q!0j`eOo>&T+nZolcsqVC_EDv~UW&!`r?LrJ)^{Gh=>8gJDW+iQS*
zg*|;BF0i(Ek9Mm&mv%W{`N)#$Di>X8rf&08eTULtzHL<ZlE9Xq^mWbkojC&AkJFqu
z0=thVO<PuNZNM8(VUXZdZ<?uckj&fi!A?e$CaRI9_jaonDMBYWvTw?{S(X2&0R0M!
zLBr{P6bm-&FjvvG7!BvY54iN;jKW_2e*Lf3Ra;x|hHMTx8eI^tmCJfSL`>VlX$iUo
z@#9H(;#xqPxIMa*-chS_4n^gl&;z^G=y)>uQT=%9-7TLssqb`ms0g>*?Rja1?(@&&
zI9g^>^r}>2aLx0LWda_zXZ@?Zy`6|-dQukj+ti<w0%U#EmJ}kp#n<K$I&621ds9k|
zGqc`aqUAmAHoRkp<O4`SWl1-Uj7@izEt21s!<WR4w&rXa>TEeq7b#%N@v&ia@$U|{
z2AE`-$@~9w*LSYt9p<qDlHXcT76exrk3q9J8iAh2-o!q;ComAD@8XDN%sKI7r8vzd
z`K_*Nz<MPOT%vWmp&hM;K8t^>ZeXvCFX4zthb(}L_jQo)6-g?RbMXTtsk?C2t5cqG
z73WEc0Ya288rG39b5#N=h%!aLBbxR@STU4?2(s*@rOIM`QJuCkeNpp%kLdi!+~wFy
zPZ&{>*<F%A*`@k)_u!FXjPyf~--FMsok<l~5f(zhHOlqMv$$v1+_}rIeb6MZecaj^
zXO)2ohSQ?vy#Dwym+QqKHJ&PU<b&(3i~%=Ps_V9jG1XBq(Xt*~b-$X$<@$iI%|;)M
zNbV!@7sRKqc{rh_$Y9@&(ujv>O_aq+OUra^hCs_pN*lI#sx~Agu`3^4eNWwEw1Pqe
z!ehjVv%u!*)yND{T#6lKTjt9o)OFd;`N+&toiZJQR~@Ge(Wjeqb2gu?7fqCWuq0UQ
zQUJNXpcBX443d%FcW(UM1!EGRE->GMza@NSR|N8l6!z2Tdhl27Q>^H>lmj)abaq!B
z13sz%m8I&*40=o=wWJ(H$9=fwGAgPjYwHYFpku8i&ce4|LB_-~;{QTrKESmSv0=L?
zdPYJ;hN3;2{IUq+<nty=UdF7(4`$a7juLUISdM|Y3T%%8<^mNfx~rR{UGV}$6{C66
zN8_N?t+1A$l(kg~CuE)bNHo3c=Vdu$+j=v$d$_dp3n}IF3wJ$u$mro5jJ{b-$qgbr
z;9?<d^E{Okp%ANcXHE;+0u}1p{zXD2pEnGh;i;0SoYFRac+{Xn(IF~1s+`$w5(?v8
zrul7uqUi3qM_|Pg1>_?l%QNrQknp!4)syXR&uWJbxiDDm+r6-2-qOHV4wQFb>q?fD
z$eOMrTBNe%E2+jrq>!4*P6R9EBuDnF*L04BrHq<~#Lp1V{j8s}Chz-ejWn%6C({?J
zOR<}z6BY&6&q2@S-}V>Dr|Mjti})8qZnR~_ZLHOw-^j{4BWtUfLF_y}^pkT-{C3;+
z=>6SZDdZ_G6__rxlTGl6Pk>oT<(~w>0yAz@RZ+!qVAO6CC$FP{ft?!2Yk90akXrd2
zZn#>3jqq4v>K<O9&9_I_hHmBMIYrjKf%X`9>DyS{A{h~Bo0iqMdA|y&sw8{w374lE
zG;C{e?%bHF<F~!wd#4KA>?XFBteFXlz6mhKR0-4t!3+c});l9;8k#D1g>8@MQi+vu
zU0k^aRusm~z1DaY{Iid5`gI$VVnmiC?tsTcQ#N9jwkLSMT0B_#iG=zmm5*+;2jrVW
zoHfQG{ap82Mt#K|Dv6^)Xc~TG@~u5j+?IIdclG8Ee%0GFuX-Y;7yCszMR`Z9Gux*_
zVX(-YQP}9K!&8bZBIHx_3yv!>HxAv*0MhnLm_nqlONl*-JAS>!5Gbi3FghEWUJ@b6
zMU`jY7b=-PiLlU!3lyVp_ppZ)+}di<eF_x)V7R~&%Gv(PaCGx!tM^~a?SDUwe(OTw
XyrQSEmEqOpf7!rQwH}lyTfO{Wn{P=P

literal 13227
zcmcJ$2Ut^GyC$4M7eqnnRhohnMM4Kf5d#7W2+~2NSEcu$QC^jzNRb-pz4snbLFovD
z5LyuFEeIr`gv{ps&N*}DT;I%m*FWdyA_=Qxul4l%UVHQUo`DVv6Au#z1Y&{Txn%?b
zf$=9V20EZ8Y_vTQ_@H~Fr*jMV1b+5!wnP9QjNW(5eL$d7Y$q@9&*|_Z5J(6FzjebT
zFnwb>=p&y)Tf=sXll~ncDH<(?@4*oJMDH_q9?}XkT@ZKIqM<Q2sei%1m!KUdbb+C<
zwedP0X?^Xo4zkj#niq+v{s@}5b4SbcDtxdtLT$`Ie`NA*aC5NZ=Ahr6!t{eNLuzq;
zNe9K`fmx&|JpTXrH_?Y<h(?WvmzeB~ZQ5`z$r)U`JZ2ha;;#Vb6e{}Sia1zKdLJ}3
z<Ja;ZBYr0%r9^l$2%fh+nb+JR9SKJtEfaa|(n?)UgYrRokrU`W^iZjbfS5ZQh0*)Q
zwP|{^GWr!-AKi`SMK|*Kt>46!HgkQXJ%T)J;NQ7_%8H>6>IkAHF6}qLrjx3ftM|Y*
zZ*d1K?<B8M0<v8Mzw;c|IFt8==ht$&_0hU`eY_4@MH?4Y>7Iu0`ufWH97~I;8_p;x
zKqu*~Xb}wyl661tx@ITmKo&X=jT^o;3$;M}xGqxZvYS4JCOot>)E+6LfkEiB<17&`
zk*p;B$6tO8s>}2Ehnb8xF=SO;b}cxk8Ha0BE%sT%x~ZQ}+kEeg4cd4}H!-+I+sdXc
zBNhtA#Ep%}@|e<>{`G1jVP4q}{dAbDSZyN_q5+zD^D2Xj*WcyZdM36K*i})lcKj&#
z3!~syDMUYcmjl&a`>KmrH8-yF#WRkjmxj<^WxtbSZ`SonLHkSlIrUBUkQkQ7BhzPD
zT5^&5e>GG+b|;6OW5qw}6*>&+fMmX&mK6(?&y39sxV2068J-WK#l0T1Jkrz40%-`t
zE~_H+tY`9MIEzNe`Njb-UNUkhCxrJ7yVfrTEg|=_X+#Q^!kN=SzvR5rkEO)<FuT1z
z#@vpWuekC8(_fL&KZ=ruu_F=RA1v*NsWo7)e)qpBtVCs1O2q76`sOe^E1%sl`xnb#
zZH-u#8AZchIrMJHu~@r7R;sS`%!aj$(F8Yob-?s2afR}#Qud6UBHk2#9Tz@S|GNoQ
zrrb^Ob$>{V3OL#p>dYT}<s8VwWr?qQcByV48W3+XdwC0t{>vXj6tYh_lBiUc6Xwyl
zbTAoLS+viK^!Cc#9g2A?JF*Ui10w$WTAMSp1{XrfBxvSeuOebA;qs4ju#`T>nZq8!
zfmipY*Ys!DOw6<(M@xr~Y9`8y`^n)Y0#u9jnAUFIf3%5>?BPpoFN|?QC=XXkyHNUq
z5Cqys6#rV(es+ziJJ#QPq}C~@!KvwvgA=Gkbxlu+Cr~bnRFgim6It2xlyUB&1%fJm
zwCQ`ZGxA1%!jkA2z3h5$c~)KbxS-OTp*2azOIZbU-Wpls4a!Z5@13OTnX47pi6u6M
z49y+jo4SD+(YCiE8r~e+aPX1_u@ruWo$Va|T8iB+=}f27I0k*gd?cZ{b+W}Ow^|-C
zmLV;6bZ$Wxf3x#`r2>-mSKpw6j4;i_!SJqe<Rn7hd2+{!UGsuF#)_s-be)ubi{b5(
zuKWCGVTSB24?aEeYr`vfmtVL`qc5S`koe%2KNZh+=(@!z>bp5>ecWne%sRd{cfEvH
z&z)1Na)xHz0NW8FG<UtqJ@4{X>}Ae>B%Hdms7bxCtf900W0jevAz>$3Xp|EAqTWgA
zXTb*jI_~q5!1c)*kHnw;RZG63;YgIlf@{PXZ(oU4N3;7nE>8E2&+lAxuG10mF#N_a
zS2(9zoaN;HM=b?Yqoe>XXqazOJu|R7dNx9sZ*MBI{;hgJj=vD!MtTXQ2GPQ>^&`L3
z@(p36h-{e7<9yh%>Bm^WW6i8)FgdG=Iz4qJB>h4<n~%WU@<w0nM8)K-Nm<%Uo!XKd
zposj9pbnC_mFTagLQLq$B5!-Dw=e0s=pI81Ql9o(o6Q`LLH5Rvi_ImL2rz%>W(IP$
z$^X@WyXxe|?@iI%Y!#ta39rE`{bz8;bWM>M6zAC4@DHuVqsJ=fD^>NjpiPPNe74T5
z7_Yx@%Qwjxfm5;!9TEfeSL9TJV<^s)7+>hzsc#lYV<!U{Igj=^5EUFM-Mv=)wvxW|
z8TXyF*HZPlbrM(K8IsssbLKiOgkB5>MZd1|Q<>AEk7F;t_W@E)o6jCjA95v2kxkP9
zk1?-!Ur`pAG20hB{n$l4f>4fR?dfyaIlfLtM{5e=Nmctl6sb-5vW`xj50a`gZY?V-
zfJ4rfqj#N6=C`t4{3Svk4vMEoUwG_>uRt!G?RfI*N$2@j9Jh8-COYrAP6l*k`nZ@(
zy4z9t_Lf|IRPhdWGG&}q2yg%5#Zsd1k@&t~RrmJDi=;<7oz%I7<)*hT)73TS=SYJc
zw8WTKWui3xi*IzdXRaV;RhNqG=?G7*ZF(VR1#T+6?%86Lpa#ArILuMhMi$+morj+i
zd|vCV(lPBJ=-FT+c?=Tjfd~w!SqMhyucgDJAqBK;JM-5qIvWn$7~2wJ7}EqBM66(y
zv4pI!dnUcME-W?tkvDS=Q}kn+a6EUE(ng=wvJm=n>Un+o0^ST+s$7AgxD~%GO3WTD
zrMADTW6<GuYQGzLhGmQXZnSy?e<$bLzKQg|R&8%H#9QFAoR1IB2EPf*nG3k}#TW_V
zfs?hu15_u=mqx~a_1`_bhpDvkI4yc)ixCf<3lc8Qc~9ujTX2pL5?+?CV7E0*vA*y!
z7;P&a`o4GJs-0ygCQ9egmjH?M?43hoFK?Ii%{l$g3P|}B2bqyZRl*pStm?Ai;bfRr
z!NSnH&NJ#T0X1#nhgca*&RDhvoS`cB@*`Py^N==Jke2hzEo`^Ki^@Sa`Of2tF=Uuy
z1zWI~u`}hmMI7c7;}aWMGs`o<-)!?Y5(95TI%0AC&O+`?Hd>8;hQ4R}phAwRQ5b}h
zxZ8o(tuOP35>f2!wNGS3-%b2(|47JNxZSBudpf%=3T0l-d*=C?ATrZ@5!Xe}*8Zta
z#Ok>hpYSdEvoN>z+YIlWvi)^ET5Q*qW03t-JB+=TTg*O|^vj+hF3G%3y6HGYhb%E-
zc~gg~`U_)htraNfkn~`&I=;k(*OUcWB6wq2dGWv&!zSaW6hol$-dgiS6fj!a09EzA
z+xP7wD_1}d^tJ7?96yPCSl+XX>f^QhI0VKaSEdJKs_X&Bx|3XAk3_sAWKEwUUzmHb
zf<n(BNsF(LLn#K>b@Q9cE64O%q<Y(H?MapU<cw0HPaW-?$p>5Ubk8coYwkQ*W_%sZ
z1D@!|$jnKZbDCtS*(0iA8F;(Hd_J6)h5E=H`+eE3rVgYTyV`oOSpD!Xf;1v3=dcdh
z-verk9Apn3Pbq-{4nC3KoLa`9KGe6HSIZwUK-0-t1elQYxpZmCwI+!`E253f)sRjd
zl+HffCd#KqMhx>jZ-P-}g!q=P$+;fNbtWq@9NHRQuwuES{ZKp#n#0hxa~^qpD%Lyo
z=UJqFTZ)UK5Gg6%J;i3tkRc1TecC&8w5toPGfc4hJ8Y7ZHARYazRyf0H<6E;YB$&V
z)8)ygOkU6V?_gPpO7^p}8dWX>BFF_FBx_-+Gj0Nz`AbyGP^jj|z7}rNsZGLPv!yIh
z-A!l1G5y?F`~>|}GGVUc-H=bOyKA)U3l6P{inblw?+Zu)$3=y!$$N)ByMZdg_yacB
zY`M5Q{0`WO9rD~cT%MkJPmJ$jt%~bB!kN5MwPIMX*Lf<h9#9EG=buBVIf<(iX6Jjx
z90fZ$5e~@Az_4o@6G)N7`Hk)}J*8ht;~`hsV<*oB|0TuH&HFW^Yz-Rmrc3=MR#E+Z
zeX`xUA=c1J4|`$z%G?pY+i@)3i+$JMypAFU+XQu12d5D7L}zRFUp0`lIO3bLZsX|g
z7FE9}G8qdzx10A(;(c!Y6it~zU3{f^twf953grKYm?ibAN?LrSq@|^!?%}=-iNV#s
z9GOV&-C~oqG7F9O%;SJQj31S(x=VP(94{({1|^AJ0@GEB!WrcdVsKpqxKw5#(agsD
zuyH<?mtU~ncjYHeoiw#W$aRe`)-K-@8Su+%-mT5~^uS@WgL>>&V3475alBETh<&{I
z@ycV4uBfmj)!F@Df>d&M3uti=Wvl7f_whr4ewx3>Y<pO;VTMZG7ID(6<C+GA-B9fc
z{&1Fh93BUJKLhl*JC^bbE|IZ&Bpk)}$KI*mIK(PwA<;6LN5S>j*ic>J$?o#7&+RyY
zwnBN^t&D(~m9S1miO?%GYR%8{^Ycf=)7<}1-paO<yP^cc19v7pTQ=r$-B$nVtBxRi
zrr(lu2v1E-H8QjI8%tX8JuuefEUTz6MEPONy~Z(^`ma$=m^fdR3>5+z+Hv%i-7vJu
zwj;bIoO(EGEAPLK4GKFX>MvQC6^E%u_EbnE+JU6*Yc}F{jWtxWpN?pRt>Qx8g_4Kg
zq|#GE$KS@O@BgVwv0w33QE(baXQ5*iXqAMO(%}npVuSacG!G|Y*(D4@uO2G=T-oi2
za2%SNN_TZ}DN3E~F#ITIf52hs{?xo9oU(`t*=$PoBd&SWPdG|78<8Q`u3f9`OI28V
zgaFj{^!Cp^Uz5;@<g1#bDWAc2)TYhUEtaW;8WfM>R?3o5j!v9L*tm57MM?g0d-&aS
zrKi|Z^BUMk^$?<B@?~?QkeQ&R4HzJtjxe>^sDF*oB;2})M)8K!{URRMK~2B4x^Q2N
zf7q{v5efH+7V)v4ixg!KTx}i3HiBZ_gyU9l9ewUHlJAkK9{Pnv@#yzP!|Y6cQBhHU
z)DI*h`)$M2Yc4k#)MNA&r+3qVvE#J5y1E8OPd`6DMW=j}($im+<i;Z70-`z|0X+?F
z+^C;~6_%B?DP$NF<Qrt*6y^Ir-FOlH2QUWn#cLbGI)Y(Coi9%fwy#(Bdb&G1H;S2g
zEv*!wHaR0U_IH-Xp?sl$p%q}TW6$NGEKbdX<s4`=inBt@Ck^Idfodb-+^n+dCskQf
z<^rbu#t$Si1Alpf%&eY%<KVOn-G)^ysOKA^G&%&XIS(0nHZ3G&Z7+eN`IP@8oR=~k
z{hd}3FcVY|(7GAA;kc+eLTr3GuMx45mmCXH0^FapKH0D(>*nU>)%NR+RQ>n5&_81Y
z!WUN7Qb3}*tStLq%fmTwec>6Qy`mak+d<zIH776=p(A5o+F|X6M30OZn5%BVh(~@*
zg&^Q+)(XDMLlaOs=7;K`WJ2NxasA+H^48^kVza?)()01-iR*j0*k_WY=AUC+=+&#K
zX=%nqCdFdojX0bI(9qlqpK-70H$B<?!c1GptdXT<$QqPY&6^pWmuz!zG-hVorimVm
zINs^+j^QQYM~jT9wkjDK&pznGf&de)6podc34U;Kny7ZzlR$<3c>u)B_ZS$?S@OD`
zo}Ru+hJm&3u=YG`%KOXs)sf9M(o8`9$cl)>-H+af`~g!{L0K+4EOCdwKNz~Qsu9ps
z{elr4&khRF7$mNrT07U5B0o-D&WSTP==TcunXc*<2yrc6a&(2COsg9+9lX_Bm49!N
zKP9S<DzTHrwWUs3F^u5(v)QtBIzu&J(*=n0U!*}z>Jj7ilJ;PkG|YB_Ity4PUmY+z
zY39iX{YBfrxtCs3e&g0_9e;YHECJI}c70XCek(7f@0hkPd?<MpMw$+|aU%8c(SA2D
z9=4OGmyAiOzWZw@Nu9N6ro!z)dpMsz*4~FS6SC!UxLz~Z7)G2}D)}H`Xe0Y?_JC|y
znmsF%NLjf5+Apu<3S!J5n(NA=iS>z^s6`%9=PB9US;sVwnSO=MtSEtl$BQ@psT2~5
zM()I}{r&w#O+HJQS?@0_^j5%rx6e0=h0Nljx#cn3YJr5S2q0%g#HmttM*=i}<t0d)
z(}%N%BLd;%IT2S^SI?Hs=CyV|tbJ6QwKGoZi~KRMp@W47=8n|?0sg>^pKwC)AJkQZ
zZEUxP9p-n(@~durFw`(t9ru~9gP;!n#FuQu_T3aV&cDlj+$TTC_p>8{ng*K<-QflD
zcGY}OqLiCJ@N$-jy!t1_nZU<)Ll&iMTT%qpfr|tU)eLH=x)Si8d%*%B>s2wan#W}N
z`4-tf(x^~{bRct0lGetzFj+UF47Pya=x9Oln~P@%hftKZT6d1Ozl+38?GN2#rOb^2
z+1+8T^QGUr2<snpnb!|7iJ?F;a<pD?Ww!I<W?^BGUMp|ej7njRZ?yDma)|N@TeGY<
z=a!S7zc?%GL!5BZBqUaZI!smCe{t;6yjN59uqxZ}&+i{0fOg7#=D#@gr`CN2cH81X
z3~vRDPO4vATomzaUdi7XRGN=|`ZB*?QO#}UwxCbn6|b*RF+jy3dNfSeTN)c1ug*mY
z3SftZDzmYz$vFRzrL2!Yxtf1*QWnd#-*WJ$85G31ySQ-AVzJoPt@gv2q<ysDl}BGc
zY-CheZ4fu7Te$5eJsQFm%Nk~yAN~6J`mh7=rWinD-Smpnz9Ta!nQp@Su8l{3dJAOC
ztABqN(@WZoINo0xH~--9ll#|NcfaCn>s;NqO^XW<cKzwfHTFPMQaCR^yvLeXCbhjs
zqibpQr%d8r6X1W_LYKvgy=MJ1_(FbtxasPO^R%!Tt8I3yDZ4!|n0dTfQqfK-tr<9&
zVo{tTY(eiN$yi&oc+Yhnw*Xo77qOLiUx!~|t#-s<a$h!LzgPQZKCi0(dKRx&>vlAd
zKPvUrfxo(zJE)Yc+3%Se2d0|sK;Z1ib{zeYI;EfH71(u>`hixjEtkAw-;%KVz?54>
zTW|-EeLK>xx%~X85q2=8WQRtiC<3|Tf!KimaJ__ns;_a#qVVdESTCRqy12N&_0yHM
zEmQO>XDOQjacaN*5^*%lR15n2PWWbc)uV53j$hER9E>MiG7e8DAt~E;B3X4$v^|if
zxTS^wL+LITmz8-m0eX%I8M;BwPsO=aP*#EDk*N_#z}r?>)D>?zBwG_H6w+*jf9ArU
zA|4qap?JtN{f?)W17F2G?dBJp0j6-AKo+kmhj{by7Qnb~Q~}>jil-{0fzo6eeuU$d
z_6j8(3OdADHhDkYIO%j?9V`{>I9iZJ9sf*j-(3Lw?vOqvCPweH`tFdb;-q`c`HZIW
z-<F1-uCD2tjV=T{YS7Ws>oo%)*_*yh^%ncBHj>5yVDqD(pLM_G0oksY*#s@rZ0i@C
zBp@@vpx^IXikmzTH(Awp5kNdFWZkW(mEZ-mJ!h!4{dEIAK78NW-r5|xV_Y<v^G!lZ
z6Z%m7C+c{&KzP0@=I}=h5Xr|tHC2~i3C?vLgJRA@8`+rc;6_PbA=noH7zA+OWw;Rp
z=!$2v1L?&lATo)ncoIPf=q>T5h+F*cPHl}+{2F@C3NWX?cbdYXW6-jarZGJ(Q7pj<
zM_$F^4+cgGG!)$Sdp`7FGer|iTQc7KvB9^i&3A!cNIiVp<3?t*bgx`lv1D1ZE~g7<
zq<-5Z9w(2!^lf1Ml(dYQdAbU5HJUTM-7Y99)>R@5k52#rXf~II3;j=_?EfmlKc8Bd
z4-$Z^LwDZ_Y|&VO))P%`#EbeRxiaF1(W>b2$nnT3Kng3o3cfOz>4RvIyh-mKB7!-Z
zCZ9dH(+9D~2o9C?rYA(@z5xcOiu34O`Q=2KH94K>G@{jK6kcbG!dEYkv7sYqUUdne
zz_qtXYmqMJEAGVS8kk6fLuCkc*m<|dq;9B_X+0l2Ud60#9hwQX%5<9IM;EhAuFx|N
z%6kT?;@*oE89&eiasJF4ntFevbJy#1YwO~|o%q_tW-Snu@AQ;Sr*E8ggH;#wMXyPm
zDBLaAf(YjH@%c%6C*H(h>?c%%yHHxLz1`>~&}IbM?R3tfp~Bz&fNfhA<$E8RM?N((
zDP@AkOMbElMt5AidffQNL>O-L(gavlb+{|{KU#Y6qdET%3ja5nabla*c$rUqL}=`H
z`AvEB&iPX9_}tcJOOWQNyMywZpO`Sf@;9cX5y@b$C2mD}F00QLqVS&Hu>bGI{!eQ+
z>w*L`eZldfiN<D(__Pl)*W+`a6(_BMQOu(pT(-7FTB7h`r0WXU7J7}X{mk!X;C!&m
z#JG`Cif)vWG<_)wKYveJ9dCP%JHkr4_?>8x7GV5P$M@SGblnR$mJ^+<MBYg@T>wma
zzmCSciH{*Y-f4;soxp^-05`I+7DKSod&=53A7)$1%twB9C;>b|;hyv%;_Y?-IzHDk
z4=}><X@IHanCP)$XTf^$!3nNRiV^ge;j34GmDaZawx+Ioa_MlO&nWqx^hw0VJvs^2
zf9~o3N%;R6*Z+KKp<XlM>LfQ-bFk4PGQy;i18yY4!Xm<Ru$yvkKzyXcOf$o#`uEJU
z`iTj^UW0Ttee#~tcILEh??o5x8CxFi?-3{Fr;aD1FY1MqBuhIT^fzcafF#@;eS7mX
z<r<&Y-HHFR-15WwV5`!@9A~k&{j0jx*ku#?U%BYN62SkOSilXRGc~8Z<tlmQxIRMF
zXpXoaX4qK+*0-+PMKsXO(E8IPK~VIIU>y)u6j>t*pS}$YM4VdJVz5V`pySZTk+Kjo
zu!N{_swjNHOd71l_VH|p+9@TWW@-dlI)MXC4|Q7LZjkYg&^eWW84Z3BVvQ}SA|`Yl
z;HuY+Tr3jHEt`rL8hkXYjw#MVbkIYEb~Weg^Tp3<Su5>^dki%!YM=E!t21L+9pBvX
zoW`vsY}9y-{ra|7k}NYx_wZghY)l>q#o5z*r>3~n1q|ID66tKDt1?1P9EkBSDeu;<
zYbh^mTcX8_fKn~BOd{HZQ$%7_c3#g_-EfPUak#UJDd~1MN#X?glYh3!Yg*J+TlGJ9
zd2mb#+1TCbg<UiY83_;kmQE|%forkaC|W8^0%_0((vbaj$?A4@eIvZ=tk|@HC@?P;
zLvVss&%)TpK|YV?H}!J=-OIaLb58-0z^2QH_e0c0nz&=>GmK+J;p#WDKsKx&*`{YX
z0{O9Yfl1!g%)o_iyo8X0@ywl{@9QH`Oko1pa){qal$}>$$1Fv5XCJOO<1V2CRGY-%
z@y%^oU@O*ZIwV^N9k?xfE?(4y<s6QNVz+)QhL%F=4|4{%YR8N2fq-lNz*6WL>FxHi
zH@tks;70Voyf7EceB6~#F}UR0N68|0&vVNHf%yshS}AphS@EM7+yeRy(s<gr=$0^W
z4bg89CF}Q+K<2h*+JGLT-aG&j5v%b<glw_NSz!FyH`t8|dOl`%=2o3X*w*@hjBb4H
zX8AqVKnc9G9mAYS!iz{3^pZ+Zl6B+<MtfFo25$+1bn#a6w|LRA_gdg1DLW_N<{t_n
z2vr4jY$8=+p`M_F+ZB8Icp7{%nhXEjAW$DDyvBu2O)LaYOeF~+t(q0PgRn+uBk{Jn
z4D$|Xd9-SR|LN6!#QmVIjW<qz;z##ygC>)k`j_^1m#Uf@wZNgQ-sil1+_7dka|<w<
zhiucf0u+kq!Q`z*HseddV9HMP8g$gZPz5e|ze0G;=2~FfAU{UQ`MUW)R%Pg7`sni|
zn@0bIBU-1V9Q6lr!1W{vO7<f=z35nE=88bZy>5QAIdC^rsWUOTo#rkbk^b1|k!pnw
zP=eTrkM)e4bjuVEeCpg-1Wl8=G{QZ2PGyE<UG^wyKF5UDMuxTDWK<uDLzw#xq*M)v
z@7Bsf%Ax)u?!m_*a;O1Sf?j;?EnuQgWN&23aGAWcINu&$1G~M?pGSXCA1vZ?Ws1}R
zGj?8JwuKuh{$5}>Ik`#}NdS(rY+~;LfFMv=3s4~b?}6)Cp!V}0-zls!*gaWF6oDHJ
z-g9Q(^+2*e`Z}$zB$Xt58UB;!;wV(0tAGSngnm)2019#ND?nm-Zzhk3XS*y~gAW1A
zMQWvek`=O|nG40!b`}X2u*<{>!Q(N&<!!*xU<^G5x(Ke3x}N~#4(qB}FtqQrXS`_9
z-G2mwON%V|#lR(<_}t8_d!P#XyRSFB^csgKFmz4m!4hy!s)(P7pEgY0o34_-@(p2f
zmJ+GytHs|9<@MESi5Gp42e?fTzG^vKCDosaFl|scKaNgA+eXSl+f?QhfKtWt64IE7
z={?&{!+e3}ahSx|RR$$~F8a%~;X34%56Kz{qJF9`iC|5xmIy`y(-4i-6uhpKE)yC{
zX8`G9(+cGBRwj(F;gq;yA&fskAa>1@X91L?1{?h%564^k{_swf%q@4BtY(`WugNy(
zof>`Tnxf<rG{V|DoN037F%LZpnZGEty7bibH|JQ((n-TE4z7lhX~4F>{aZLf7X4kd
zKVQYiF2k6W^1m)kvrj+cW@Wb7`Poy!QQs821OQ$q%CUpXR)&}qdDXZgPEzl&kps)@
zGNHn~`8Yh}JWj=|dNE(z=78AL+dG_O;@JdIniZe@HY`nB>uaHnB7zC?OzoMX@C+F<
zP(>~|eCF9!vd3kg5I})-R$#S@Yula951WWTejEJ|s1t?1?mdszs}@j%3YvZ50Bj!p
zh+ZWZfzv$)lxV~F5_&bc154J>^MS3;0Hif4|C<R<Vw`JXB5UHmzcCdBa>6?)#Gy$m
z0Gfh7Rv%%3a#9!fUvTq3udn~9W&z367)`)Zw$Z4ZN&8_rAl1cKEj>5ri~z@hx4;D;
zTd)iSxI0Vt3e<785C)I$DYt--L-9S!$3bWYJC|MZJ-mnRDf|tzV^EjJ>C%TUc*H)7
zqk|nhceWZmi|LD#K;iscx0k^cLRL&yL|Aqut1`}_KLc}VTXDk>u^V3y$0TOlLd{Kh
zqEp3Cb%egx!=t!{IOy@cB)UAATwpO~yas*^9T2$|DaZ!9fugs%|47yFA6Rp|P`4;b
zZ)|kb%l{|x#sU-GoJ7fU+18vPa<T5+0dTJ@r27m^ev5-em4l2p^L1RpBpEPIwgrUC
zPO?(<9_uch>1{<o<_uRReDs6b=@Tr|U@YAMK!GBiEB`o={_j8mpLi<hndP{YKzG2b
z5J7QEpeijq0PtJDBa#ke3)%w7L2#pq@N+=Da4Jd?Al$Ax)TAXsGh+n|X=Lcz?`f&h
zgSr>F71c0~EzBF!f!1OAuD5hD(|U`OlE!M1D%4JYd{7RnTZHjdW46}TTwyY1A^Ize
z`Q|=J5iI0FD-YdO4Zzg%L{MgodN?h%=IfFMU2BrlRPr+Z2s57B?n|ASJiYbZ$ERs`
zYlL$~<ME6fGrsue&^;gYO?Hx?MLBVRJhvm*pIQ^D4!}2M6Jt;u<R|*kCuLac>A;e&
zFjI*9PPFB9Y{QhN!cgmttyi&X3I!T_e*NDHjPl0D#&V-ho0qt6l+~GrHM_^aSN(zQ
zL_qljr%~w&n{H_CL}?&74LkryiACg7>Z#IV6QCA8(5mC3wf<{P3YZTN4FLLY{P#fr
zVs*rlxHSUsg)EsB$OSWSo${*+`Xk64=xmWQP{{qV0SfjQp$U!n&J)f<xLDcz)qgcI
zJgBQoe~&~4pzp0Z8iF^z0DTe9X6JBCjb&;q)}IJ9_%83sMF<2Sm}pTtAYd}I05S<S
z1Zjc<manTu#CkSG)6)e2MK8Xm6bJj!&a_S!4az?QyL2KMfV7ol^p!5IacG_SyZspC
z)b|Yq(9Gr{*GU>_0AByih5xTH{eOeke~15d1zN%xJHb!3y8vu}*j3~*0Y#t&fOv6q
zGvM~qt*4`DJ!uvp<KQT<2Os}kPnvYMAtQ|HbIRxgB&eOU5lX(vxDgtAW~M1x2pM8H
zT50o`61V2&7Mxh}Ie#(f<&K8S!B*e==QiG0*SmTCvSx>%ourD^a>kj9PHFLPN(3th
ziWL0zCKJj&FD@n}3Q8Xd+L=z^*69G<H9#G2k(MC+=%}jhmL%+eDjFKpr2y_#v9RMD
zkGQkdRbg8{??jhW^7#WQ!VOH=0&Qj#EAKd=rrnq7R(ophJM^T#wA$&Sm$e7!oi{VK
z3?Q01r8m1Y;nL(6h8F}i4o20v&>n!q)U#YnebN6xkHzYDgv&l>cwCfg%%S!7gYvkh
z`SZ6LOyJgxEk_d6-A6ywnYXmpU*0gZJ%F3z-j9NdQWyPhyPMZ9a_EOiTi16rzjvLW
z|7YZS7qJ9NUg8d*uPi<xA)_k*m9qN(!@VydLZGS;icj=pNp&8uP!pg~9grZj1L6pA
za*T<n{B<6Hy03v=S^C>R`hiAnAlwip@qYtsfENo@a}pMok9F~ZcqV)>KG(n2N6y<c
z^XVFd6i}%FFXphslueUTUWKoP8kN(TN!wIE8T%zB(leH+Yb*^ux@JGS^?dp1DS|CJ
z4#69VW1DP}XkNG~z%{kaCRQZ5%YB4WZEz1?W#k3Smu#Tw)K&aVuV*Y>*F-w))8N9$
zVHj8jG?Nv)3dGUnVlk`@t;~S@Cfg^k6N*<f0-QuZOJ(Fd&A**6Ur6yKAW^Sg`Ip@O
zzaA|8^I%$*1cwIx<Lm;U%3cP*b9(VTMJJg;0$NAgHJ*$ehyb-La4RwecBub@lmP6T
zW#|rB>)o1Zv7?<|re$;Vo^E{YZNS3Jgc`_v`NgW3h}#WT8eqDHk`u-PKOuPcpBz0s
zU!)bE%Txr=otp1t_<ywiyDJc|`$w-p^O4ht&u9pq8*gA|`W)apCjP)_%rPH<u9Abm
zi&w*sUsoqc%857q6opH60Ot=>IxIL)){UHl7R5ic>(%A_M~MR22!8zFG!->WHsWJW
zPjs3B;fekjT6Fx_%C{B`!XJA6AWxZ7siq1LJ^47Zy4pVVoxBFkb!*EJlUO3q9xXSJ
zmxnno%yP(-U0PD>vz{1rT>G(_v`8XlT=jF-f3x_kw!_!YN7nAX`%rhs@lvTn!|~de
zxSnARG%yR+0^_)Bwg2O^ZEJ&juk*}vL!QWmlx|e1mHOe@lA3x$Rh9n(Wt^9*?s$c(
z>+8WUZ@N)wmd1-g&O4dzo-X0kysh*W*pLyh7g^ikQ)DHW^YCHAberAcZ|Y$#-^Pem
zvBTafY5s+&%)`cmJg<n8RmQU8cq1dm(`@Qo7i$Hn?gqu>o_@e0=5@uwZIb-dP%9N`
z6Q`v{_`IM)TGUu?l5~uwr%l_zm*jTJw2gyX#7ead`d8n)iC*vX2>n)%ndr$)8}lU2
zJBs5lCkpC8vtH!vSt8U)18a;9M$1O_vKIqH#IuZpEHKAwbgJ^|LCd*DIUZR6qP*8_
zM(|<ig3oFNK7H>Z_OCs~+MJI9=?`yADt9R^G-jAot?C*(3mkx{ao!5W9S{*ION$@3
zA*8dbt*lrTSUHwj$aAh(uye1<OUSD7*u}0wm%}Xk(T?|dkMS3-t<J$!LCZ{QK3RXi
zSCN9v9-<!D&(aylUe%YbJcF&=>0NnewL{<|uxM?hfp#K~6QxTEEdb&v^ofp(wv-Oj
zlUklYz0amwMD0M>BYR(Y-X(kUSWH|!CFvkg4)!k#brF-=3p<Bu$6=Np?F^mAEE&zN
zjWugXfeY>*^~*5@Rzd1~O^9mDqNS}0Rrbl??g!O{r-LC_Ww(cys5!3hOO6|7!G~sr
zNwGbdQEm)t*UgNUsrNS4d~Q1mG_M|{Z?(-NVwSR9-xy{q_)5;P%szNB!!BKA?_$?L
z<LVMeXGf2p&ONpA>Cs+=4*7a;`=j%9w(UV5nJ?1{K<Z0;?{Ao_Q%|-<R`dO~*Cf?C
z{($yP81I_?T)+94(70MFBcC>wuNGVhA{)P4bB#MU$GfAf+~xPutMBEiW(py40>WqX
zBO6yVq;{R*xpm}uBrDd{#9g4d^B~<#pt<M3swbpPs&r7ShJLE)G(;TS`#~l*gGke^
zORj7JH?n=qaMpfF;d;n;bZtdTrSKl5gKm`}%kS)1i*f^&`YFX5G*p3*H7PFimxQre
z+lLJ(uv$BWZAxzKRbN4<j*}2;@iN)aMTo61U+p%noey62wQ0hv7*gb-Va|qQeR+1m
zfh8gcJ%+|Ijg1Lx><eCFpD`QDPY5a`?kUfz`R464;bzwy96$k?S!hSJ9-Q+hm>wL)
zuoWi@3W1U&Ebe<QolV+i^zA1|n?&$?Gv5<bw_#O!>+P+ta0$jbE42RME_f1J0Ae+%
zMzbaS(I_VFH4Ukm93D(Pm{}`ki((It!>~=KB64c-m7^++OiHwN<dB3#Tc)E-f@-Jh
zNZP%C)cTIWDMcRJ9_mH-w^e#BXzN{UE}2HIy;Fh1xJPZB_O96aVHg9ps9KEUL66#X
zzly<ci&=nDzs;<TwQK18@9rb~pZmw`_`K~TYE>DzMj1DBjm9RSA0d}%GwEVMMz2kC
zU5!t*a#N%m-lGjwvaI37u5FP!k#!7Ns%HY}lth1IoA?oFW!7`+jnS7snMu^i!mYdB
zqgfxv9fB3vgTKpyavsgk{MF^;&T^zdBzt~hd`LG1WxhmcRs~mpd?E!$aFddwU9`iE
z>yxxq2VFWFGBg7@bpcemN`K!Dx<LL$Nw=BIf#U6f!VL1Y6c`L_6QeGJ39r|x)0(5+
z^up`f3CJZ9A`qRuOCbE8QXT_3gP!}76$opeQOlk`mtZXDI`pQpjTyj4HPB_~N^E6v
z<UB)U<E6PTJ{0FE%UTw^2O{lRttE6_n|ys>$?DVlA@<a}%YKQt+blzDl$elHjVL+W
zFvKB)a58r?<9Cr9|B4^Mn?AKNZ^6U!dFCUf`eY-5p`CZ^(|z2aX`$)GqliEnC0=JC
z<n~i@k0lEY7IgRZuw5nE(02-~+!avX#lnV!1!H#}1bd{hPiwiTUx*plr88<5cu4&z
zgCN1DCZ8fe=wA*m0;g|Z80xqq?T3~|cWpR}Xcwx7%<fs<*XI^NbU&WQh|?TvMpDSW
zAVIn#q2N#+?~AC@A3Ye;?kV<f<6fR@2BSrd+C%K0oAE+<?OV~Vvrh{$s=Z&@7u;EK
zuvz_EJ!X$b?(oM`HY`^q2SjORRgkQ!B{_317}9Rd+dwtgLypdtrNM0bQ~fnNqYmCU
zA35cWe_sl-d*GWk_8C^)A3KfGX6S45iS&Y=dZtFY(s{!r27L*c=~%DB(0g%Kd{k>A
z*}^T0`lT5uD<&;gi`t-qowP|Ej8^ZRnpqjT8J~ni|LQGBa5-RazjcS-5mX}O22KKL
z(rR$BSc2S93eypwt#1MqI@t6H&^i}y`{^vjqX(VhV{}@7om(yPIHyk%u#b46gZmB>
zT|2HV4N^W6C^zV12JH}956QSihP>O5LfTA!L&`-<VZw{*I1V)XBtkE(e1E^@#TJZ1
z2?GIjanRRr*uUY{?Mo*csh=OQodNFS@ZP~{rcAJ6lfBQ3r3}xX%PR1D;u|5N#r1?p
z&w-;+=lXbK?JVZ-jF!fD{z4==;`YcGH2Ey?aT4x!mi|zL&~7^qBRz<ppO>T}j1c0Z
zNor$k78EwI%nsVp-wZ>aX%AInE6I9zIKeb#u}&qNBS?3eMhD{yOY3)}1rhU+0WKi~
ztNJj;wAPw6X@~uDX>^@QaWi+^&;pgsskG>4c(|QdRsrlKMt?{eIOfDVHy`F4%Ii6Y
zXxM*P3_(XBbNo?#@*7%q^qu!x<+I1znle0o%X5=??Tz=>kT3eK+GG<V?QbdMF$mxP
zE;YQyH#0!gE2_g%=RlpwDB9s2Teohv<H#ZC@q<Vg0cfl+$;k>((9ktYXuw(jD|h0X
zU#|-UE9eztB9Sjj-}nigF7O#Z`kiWuYfTdMv#0ZZ$_ZK$B{UnEkBI@?G_mj%VWdVP
plEPjNFw%dm#Q#0*Jb?<<`jY4FWwciS{I3lNu5ECuT+8nH{{XJARF?n%

diff --git a/reference/Rplot007.png b/reference/Rplot007.png
index 395011118e7e6348435ff63af7346c019ad37747..5e4ab73474a409c1a6ee6f98050bdee5f52a0cd4 100644
GIT binary patch
literal 12660
zcmd6Nc|6qn+xKYGKAnzAvZNHHlzkmKNf9BkW~h)YWEsmaR8BcrL&%;bj5T}4)^d=<
zSjJ3DmXd9zA<Ni@=lXWeegE-1zklxEeeT!&c<~y(X1>eyxjxtRUarUbx|eos=i81#
zp>}C$UNAtRxQ39Qty|y-fl?m}FI#SDU%CLV@U^5~69_Nc?rNHOpin#ZB0pSR{Q;{e
z)M1p?h2O6EB(wT`pI#eDS)bPHHz(ELGkcHS+Zj^u%gD0}zwufmge7Q7ZxxGi`x^JB
z*2R=Rcm9cy<QoZ7YEHSJp&xZ|Q&^(4%x||d>{T@Nxe|_t{c+@X0&%ivggUztWMx81
z&m-mKUPsGJ(G>Yf`I8(~@`40=qL0wTdlZGzH;7<uL!s`f9J$AZdU+2unU$@ZlIK0(
z+dMCWLLJ=mT2O)S?U^XeKXMkhhQ{~3#N2PUfAe5-Wey6Z@WBnu3y)H;`G-?+U3M{n
z<&;-YK>73WuN62Zm4fTEzb1YAqkgevo#)$aqT|%-u0|??df4@FSATUq)upWCR}!=G
z@=m6Bv@7;iIwu9J&<7p={Noo!Uq$|8!}^-naCK4s`f~Al*X#QmjZ92(0y(rmBayum
zcT*pR;l|ZF3a!z6GMd;Lubwjj(>spEv=j{2FO4QGH_6v`PL^h8A2+&oEtg2tlK*@+
z=zRJU_<n>IDq5Nyvn!N$|E5V;p2#5%W_ISnKP+f%zAH9#JJh{Z(``eXl?A7-e?G=f
zHy*$Zz2@RDOd7flxz<LJ0vHscqoZS2_LZc$F|~EGw7|9MqS~1c6!zl_=h2wCCxU^i
zZmj+qlV6YPbabSvSGe>m6`EIEPLgx(IvS~x5vjT?R?)uDuugFP^zt{MfW>sL@1N48
z+ZEK|1LJp#kms5$rdfD|8y8s+7Y6+Fl)b)pRF9?R?>Z!BBe3wjj7%-HZ7p}A6;W)9
zYiB~>MzZfJ6s$}&Se2OSK)_q$&(MO<s?XTIW1i$~Rh-Q1OjdWN>PFPJ7Sp@%EQW@L
z*7KA7exGnF^DOCT9g)3S*h;?zm!mB*va$!Q!xGNkeBjHfpc&9y2Wop4IRV2Y7e=Y_
z<g0fo(|`U-oEAxli;MHJW>5ChS4YkSwkXm3o28nbX~i5*s2U8Y!K$q+Op%pzm0;n|
zMyjp(Fc!LXmD>s|s-;+^uC>#TmcF0^pLy+W;+4Mh>FjKaXj)c)tAm4Nw9b*J_YQxr
zfLS%Sg_#*~pSbZjiCNU$c)+T_tnBuS$q80pg?4Og?DpVy#E}}$i6dHlWp;Xu(#igs
zoPgb1g7S#OsNvO$6bQ(LBf?sJCDy?rL=s7f{nA;Cr;A#6o!<ZMqexoG?h21F-G}dP
z8W|bk6x!2^NQ{&HI2u-}$$oaUt*_KJR9B7TsnwNdl<x@{kY8D8oUX5Vz|tpO&bjaD
z0<VD!U6hVQl-!s9Jb2fk?3`5m<><KqzbS_wLvN5wW-u5$k1tTVx-w>F+_ky}>imvr
zRa8`L4u>ojZ5S-p6v?=8)--vGJEg+OL{?Vz#NNlbrKM8EI6b8a5lGtc;Yc-V=$ZQ5
zwAF8-GfVy<7c==V`0|0kb;2&l`1|M16*sJr1pU63gjH;~fA3a_DPy6MJT*!pNU_Q)
z1H(`#ck7WjkM8U%<|I#tlY1b+6B84k>Kr#RG|b%g>+$h<x~qwbpvkHI-5(RAaV^K<
z%WF)MBNG$(uwK2kq>;Gm6beN|tFOv6Ensan&2P=Jms$ds#0x0gJ=errXjx|-2**9l
z*Rzvcy6P4N^8KdjOyaR#30Xnpv8G#+Jyhz+JzMP|#S#@gZc~+z?a-~KR%jzdw3o@F
zyEbrMD&D56_Rb$f9S$_!@G5Y9&C$W3^L^A&qpMfbg*fAv@XW$0o~`_~>h(U;w=^=Z
zvcLBl*7+?M8yUrpwk3IAuvT6A7PH(HU!Qd~^CB@L<NW$!<a%y#AcqO@YP3I*ujnyq
zKlJ*((#TUo$_woSr_D+)Y}~T*y+i-wUqv0;lNI@79iQUo#)T(_-o4qe|5Qh>U0UIX
z50|mNBeA5fA>yUfY9tJwKIMjlY)|nWO;B22ouy+3JLf0t)3{JG!_t<6n>V3Q!CzXG
zQK(Z2lN%NI!at17zTkK-^m}`g+_+GexCI|<LA`!3ye4=Sg_7Iz8ig`FhuVm`!Ns)`
zb#Jq=s>Xd9feRIJAVKv9@f#O^WV2x!D;eGF23bL)9N_jz&&#`9#LTO%?u}WF7|ty!
z(pC1JoXe`GDB|G{<0DZ&3b-MgB(Nm@Sqz0r#V<eP?dj<WX&#1PPG<$!jSKJDnwy>7
z)GY`_izl=(Vo5NgGZ(%^*&FZQ%gfKNfSs?$(7r@fSK!xOx%xq6(=NEPO>n#W|L@!V
zCk}49qxagWt*s3|Sv}@%F1Kgvd)}iooU(-+?@mVA`chh?CmwZg_*xEn=)#foo_v!7
zbuMB&C-GNMucw28pZ{!65YP=9kfyWs288|aUp?#JI9T8>bl1$xY=F7wU;ls_elgQG
zGB)3T?Cb2(x7nrb3^kL0hQV%0{;{FKJC^f93K1LbqcEQO4Lr@!l8*#S#Wc_<BmP^r
z1f}*YEPLrGl?s|yO{W)ZddVdD7I*iZt7q<)iZiJYXpWL>>Q+2x4O<U$=pFCT7CP%P
zy1FO6cIpjt*hr~zL7mClj7N8sGzev7Rt29sOrV%=gNKh=P%7j~o+4RJKJgzjutzUx
z9*?<vJSH{#YKWjY+OxRn#|kGpf+H9vnJT1R#Kg;8bb2k+I;Ng)y=3Y*f<s#hY8P7b
z7h--tpI#n6%l|*Mp8pd$@(-U=W5<x`sqC7m`s;={x;<|n?g%y7kGiKzwC7rV!!2Y#
zH{OX~TN>N9b4!J7Yuv5aEvV<+(+90}B)7}T%QGwKF5T;#!S#uZP>HVRzXi$M{`ic-
zM(UghQtC+)*-6{^j_%ni7Nz;Eq8-XSJ4k5t`Sa=06XN3CX9Aa6YiZ(H!Tt*EZyJcv
zEm?NfKK((1Q}L2bWrF^yX{!Nh7|(lxO2+o+)2B~6-nsM9q1V5C;>OurVf9DfWaAB3
z!B8)cG`8J@H}f|~F-fVE_=p1JpuU*rr;+=&babLmo;>L}Rkv_CdVsLd|4#1DhV_+(
zoVd^nM|^1uOa9OiTm1U7v$JcPKRlE?K2@y{k(rm5_h6Z9q@nQ;Zs}(&m=Ko#a@Q0P
zOo{2onB}=Ahl>3mzo5(dF1)mD-QSidn?F7~0jLaV24fYv>6mZB_WkIk+=7B@r}i7F
z2$KE!J->+Wle~Am@s{Li)0gL}KD%qzw2~EucWN1^2+|-jvqkh}lN<GIeoH3UdXE$3
z!TwKUV_R@oaue*Ok&%(q`JsiCW4?5Csf24%33KJ#)?s59pE{ukwxIdcu9545t*Ntx
zSl9^>QJNwu{pd@xB|JN~bX!`Mqaqq_B`V?apu~B$$<m-Q7MZ@_LXCTd?0*e?JM_RA
z31dYRN=bHr8!5a0L>>EwbM)seL2U#S{@o300tHg>j8JGJ6l^7n_OV%FY3Yn+w%13b
z*!j{)xO}LdsTnlZKwXVX9h;g#!|+Y-0j&N{m+bon=<(U5YfvRS@X<4tG+aMqk%lk<
zshBHdqqDqEA(w}JW~+=&;J0qt;LhLNEts_$`NIEcMz8@3I@6REr@bR+SYb1J&+cGM
zf}Sw4?ja!|wQ*!S)rWKX@9|5JXD7wQ4G%vFymOl*Am)oYWDUq^#**yD9~&P(R_6kE
zb-;Qg<B2MN^HsQ$-#BB?WFc>0d-@qP@L(XJFC6(|hAtHCDj850<C&=q_E9N{i`%cq
z@O~r+;ON1dAxT2bHG8zB0KLVg^f_`Yr#X6X%0!0GNQSS?uU{wd?*B;qxahy4^p$G7
zSX~>@Do?sgRnzpk-kkBB(!}8^TxzGAjwT)oVJ?lO(fTT!Jj|(X{J>z6<5FZCqIH#7
z<wq0v*3>reDnz_0%E$Q4^VGQ%$q$I7Xo`GosfUc$DE6)WDs2DX>Vf}G3q9-vOLSQl
zjY36;n{D*@^zvq+vUgEpQj)f;5FFb9$JmS>fEL|~W67BaDC-zY3$)Dh<wA83ZFddn
zi)95a1_yR1Pt|5l`Hv}+MiZT6Zob`AH`}iKA`woJVi0`hEkN;}JR=gTk}jeJwItLs
zkb}c|w8^IG?MB^eKlz09K{VCpeA(@`t{3r^c|Z<`-ctk7S(4UG@7?&@QZY3mF`H1&
z%UbweWAJkw!9oGKH_m>VbWbDaY~<eUqa+FCpsWD>8=Cj*(90j3p&+z~7VwIJw(Zaw
zB%DxbZcPUju~bLk8_Sd44f)H<cow~C>b)H|>YQjSTX_7&SuyJ{e^o0+X{B0K58!-m
zL7#Jg`_iDehA3;p=@SaL{0Dr;CiDWAWB#HOBplQ8&E^AH*!dVe)lMME(vMu3>NKc*
zjNUT4fnRaSLEhAj_X`YF!v?3wegzgI%JJv@-h1z~4zsg<n!%k$7HxJL7v9nA1_&i$
zV)o6{!U2jp?2BnnwQ?7-Khv+*!-=Ki9Tx%n(&X@-AKy(+&b^vnHU&UT9N1wdpHdJj
z=>Oxl6nMBq1-A_T=1zoScn=cfS*1lxM*!=j)tT0w96ce<H&L~#I2?|#48%{p>x~|b
z#F?khx;!_cCsqR#*&G=gP9AIZlekoBS!C{d2l$1Zb%%QMcGeg9hNW=TwZ-A&IQEji
zVxYx$-?5Y&Lp_WUl<nfBZy(%}Gw1#P+V!nYb@5gKX5r!Cil>vv0k3|%-68A0c$aLc
z-tDF4v+p8ACa<VSLJM8($O&4oSBc9CT6(5S#dv;wEXsge??{w&0$|1d@eXbGnMhcf
z?}0Xt;QsM<Xf+Cuj6$F~Sw&Xm_E91y1S6dmCi{Km0m_lQScwZHgr`D~d97zsLx&Y0
zVa0RTEr1asJxNuyoCkBw#6&zw(}xNj+az8B8}UJq@6aLk+RD@cf~shmf9W!tIo9hW
z9o=FxK<}Pf0Gddh<?M-UhIELg;hD5zTH4xNP6pX-yd#~_of8SH`}$m;!3y#o%)z63
zAKSwXr3wIi8zty$+Q0?e&<}sAhe8qK3qQ#hK3eC3VDe_4;J_oBH*kgXE0(_Fa&&S6
zSbXM6ijonKnU2#{pQ9H<xKIj~HoJy^G&nBLO)M`CN769^X%m>&2e6(|5~T5rukCvv
zuf?2DdI?e*I}S)tK$-ZD?K;R^YeyE`C8+Z1ng<tZ=v9>LJt6$K@M-gMu`!cHF4Vox
zHiWHsI4`u<=qxWGt%ISBwJG~xpIT5+^9)Q73dKL=zN~tqc%Tem`1DC9l)RkWPZ_7{
zg*Kx!fV1qYdIB~?4QvR|6&T(PE7+Q`z$$0@=u#F6HU7PH%a4$K;*@-oV#-t#ub$dR
z0pI`{RFt4vK&=<6FLs%L6qMrP1%FW4JiW}UHgm=^BlGI(EvJ1fOe}q0#7SToE!>S8
zQFm)$!*iC|-H1eTyN&PI-ffuW@yyf!4Sp1=IkbT5GhC$H%AsferUMG~q@jST7SXB5
zEj9+bcI~R&x&w9Z$a}ums%dA~WrI_+a))jTY=$cdQjN2Zp?oFa7PU;Bo%=~f`}Xa#
zY}*XCd6DY(T0MBT(UGVpA|O^l=Xvz#QM3-=jP_GbsKCW9!K?$jZLo0pZ(>dvdtaeY
zK1ZG2QhRz{5DppSLoMPVoQD9SAqD^!wUKiVF134$XnBl&ysE%Yotx;^mO{WwK17eh
zra1wnCoZg6;(CmrXov!jeErLZWw|Vuev(6L+-c%ql}mpf$RU1zhkW7QSX)v~aR56%
zQI$Y~9bfA^J2%sMCf?BnVrg!+agk!E*8?IF60U>Rb7g599a~%57m0^pfsKQwq_=Mg
z;#0W$9P&<E@~`@yw$bIz9m*fS90gV#PqBq?&;GqI8yEYWihHI47L+#!y`k9BE1m!I
zKR%5i`xub93~%e5R+qM-&iw)jJ3ZVCIu@2VXi{uh2ql&*x*2uOE}pGn3Nl$PgUQ?%
z*^C>BHF2EidVyc(ENIKhLnI0dxK^9h)~>?ib|VEqQ)CX(;Uv%YeYg#9x}Kc0fW9y8
z&}(6lAZI@iCx_kyvE>72<u57KWuBMe>w)Y5^2xLPM1oFs{Y9yybBCYLlGWBVbK+x0
zM{l3Ds#nRejid^qo>D<pD{cUpOF&{wAp(k=xw*M}o-#;>DR<v)gVP<2lf745GpW==
zqcI_n>^mErs0E$ttK@ZP*N69v%W!>$-e6)ys2In!wzg{Xy|$bKD75Xy^BD7L_mP`c
zq1Siz*LbU)+@Qepc#ZUr)W9`gfB^<=+>l-8si?L2s)oXe?wr=C1#zD3FV<i~9*uzp
zq$y&M=L>kzLdy@m2qMg74zgFGuWUi~P9G{&*2$PL2FhEZO$_X6pD4B>(B+}<Ff!K^
zsFM-HV({z%E=E`^Ho65;+w8@zA<H_v!}}+~(OH5Rd{%%98)P>hHED==NjVp!&8Pu+
zBb<CYnd?6ljDHEG%^JeqhzB&NvCGI~vo<@STP>{6!;S7NQC&D^WBh5E!C$Eo0RI>L
zRhRthYny*8``fSFS86mKm;AyGuxDWg*|mv!M3?x89%~}YcNm9W5}Px1#L5eZbMbFo
z#hDg+Weh89-?SlBaNK$2y#_Pfy`Cv>1yep*>`!a;_C4ctpif=Z-1WkC#f!BacvYVs
z58>tt0HKBPQ@n+BV>PJ<%p)HgBzId1Xr~Z^{dw@ZRYge=v8afPnZz_KjcpSK;sdBu
zrl&@=2t<NV^<Dl;P0wm+%6<5)K#7Xur)Dgv^DCUq>?e`>Vo#N}%tisbPl%+Asl$b!
zS!if9Uab~VddG@3X$JO#;7k?4g{%O&bqiB)=Blx=aR=UDRQamPKg&mMjI7+_I^z#)
z7EwimTNNWRLC<0hHmK#0M3e76fVKzEl-<<SluRY&=00JP6bV!L!wP&#p7y%9$jwRe
zuGD(MijqZ92WL<C#fqEn9wk#-?9`w&L3>chA&v6`%&Tx4Zc2{Z75olVCPf0;9fVaN
z#!40usEauzcY38b(~*Iv@ck_@qE4S*xhdTpx(AZ@bOx<BFRu&h-ETBUs$5-LXrO(F
z6%V!a?kjgdgw6Tyy~8a5<6SR81D3nf_SZ>7Sc2~T<C`fIxf~bJ^moS(|1V(Od#L}C
zu=F5f^N&=F-!&_%VxnPAUV3`EsV(r(r@%w8B+t&TjiKz-SuzvMjJ|3QyOPTrQ5_ST
zYQ@ZrjkEQ|D3hhvUF(dZe}bE|wTU!?c<!Lz&SXCaT^Nu-EAOxt0pKfx;izR`Xcz;M
zZ!l9NMvK*3b_oE4%tc?{>JP209+s+BFTM-M_dT?y2SN71Q9w5P!Y^WogO$POUdI?p
z^{B(gMcLZbLc94DhO{^a^ZI6H6Y$Ef4HXjrm$3r>d{+Ii!ZBr`%bn_S8myv{lB;T~
zU(oETz?CWhxQ^ca03eQOLFF<z5~Ybv)j1xj_|OaY>*EVGB_V|sUh3*Wac8V7=a%Cw
z+#gHS{y0y@pKZ!=B&Vra1uni53Q=u>*6Io9I5vyBc<s~4k&<sl=pyDxKwI<8$#XQp
zTBRJ&BtRH@p^~HB86>jASu1bdCwq^37he{19Y&9dRS&>vnLD3eQgHE>c;ZidH#Ja4
zY_01<0W1It{Zj(1m%IqSMt|$wRYt>TW(4#9c}o&uj$Y_jtP;w>c5eLpf~OdteXmo#
z_>0-1qooGACCpL9Rt=Vjadmi4NAA^31hn(y1HVqu?cCr4vX6PKk6XzHgwIT?{`W-4
ze}{nm7nAZI5ljE&eQtOm*zuP*QT*#xAL)m{?4aIM7csRsl?0!D^}lMK;Da~MMXk%{
zJG#2QY7w+j7xW?B;eCJe_hthpH1}@)A6Wq>{Bm=1kyrA>U4`#(4h)!2dQCs@Y6=nE
zM7%u*lM>DSQt~432(}+c-!{om%)m$in@^8X#mbbP8!~$D*B>N8_WR>vX2^vjshjVf
zh&YBHH?>pFsUyuoa{=a(lE<xeaDC{1gE{|yvv47NueIY&b;2H;o9otV<u&}+1z_+b
zD5WXN-Utmu<awUm!R(2gwEh2)_={y^)$YaV;Sq(1rU-%j@I&&IHTB@FUb%7w+$n@&
z23npN;kBeqowD}94(3bNrUss9x}hdSu;yp7C%(LI-pb?jvJ$Ph;$Qzx@PVMbOR|Uq
zCHHC~#?Ol}Q`WAe4epKvRmK3ZXaUZG=w$%qL#vay!U+JBekEE4KWEPdC^T*z#w+=@
z8+4p=dBMQ=b6p4PHH3y+t=3ARCS-$MqlX7&o+#L^x^jm-HP|q2os4G?8PvigsF0Wm
zVZc#%US+R>EjxMj=OoSj#KgsCvw}-YORu4ao5H)HK8LDaWG?O5{!nEiJtHFniw3&q
z-q~!=66W2BA9x2*z<oH8!$Sz8(y8YT4{4!6J7D2?rED}in|bB#JcHXfj;LQ~pp!&F
zq&DSX+wDT;Y*-Nj$_V^s!VfL_n6@W4&{Z|U4k_n`eV(eLP`_+NW&w^w>5J@bseuxV
zIN@LrUk#hchEpA*;d(xQ{;ox6b^~sj1B-<>uwwB4KSXs&5a2qnK?!hnxc&b4_uL@p
z0;=C<GBBI^>-@ao;tn64o&cRHUKea&FB-I_&G5ZJqo#Wo>a}Eku7iT_jLnr)mFj25
zke25o^p9E&_sP80mlbauiRxJ6tjt=TNzic|tS2x4FL0MB<yKdlfjd@E0NV8n2B;zc
zlzkCt5De{>sRh4EAq!d$d@gcH5IWxTzCLq^%fP}DO%YHURanA%AB(}VdZ~iW2IT}i
zQ26)UlN}Ij3MC8r?O*;FbW)JocQ?G{KME^yvt4CYN3Z!6h*oVNZj6|5oavPbotc;X
zj0btGCtnTkmiC^sATwNhOB=%kl&NLQO}rl9XeQdF5#WzB!hFI(ptpAHaLLipBv(10
zAMl5~bDvGS@{|ghame~37_(QPk-|}z&-N0phBo{>8X351U1r~Tgv<bzoru_-sXg*d
z&k)D-c1!fJ)E=vbfV%4Oj8K()*Dy(B@L`Ev9LO@`$U0G<xdzN8{d_z0@jz)9AGmzg
zY38SLya<l$Jl$FE$N}KOQJNR5o5H5=gh4m}5az)tQz@>jo8Xmz0kM0&qaiSmFrjTV
zlNA7By@v;EUgoKvxi(HK9+d2VcYh<d%#GJ5*sRSl%h1>P!Wm9hD~Y1)7Y*}3oJ4&L
z260$$3dnxEz%B6$lPoO`U~XW~2vdb?T<%tfwKl1r*$1cXg0;hSX^9enCZ<yKME1I4
zP3)509>M8?Fgw8x2X*w6d0Vs^z-g4vK4{d&rs$z#+Hv-PF7dF#Vkg^uvYF^QmHnYa
zPz~5@HdtwjG;+BPsTCw0Bfx78-PsOnt4kVF=`UU!>v;#FqIt*s2Rr&VLwOp@%^v;G
zB?&eZqh^p(1iZ8YDoz-^p5+rGs@JYyobCKX8@=RGY%!Whbg8!%(CXK5SG0_{mhF7)
zj<`t?CB=JS!i-bxG3E%<BY4mRq*Ei8-dD2F7}4z&Aie;5bVBAz?CqaiTjfMK7d@Pe
z@o&FLTwFOmNDoP#H@Rxn6`LcV?DY(E!b3D1k``co>$#Iu>3C%5#0@K-vz!n&VUMBV
z+SJh)8=!(l6hT1iZ2&rV3|KDRNxJnt*pr^=jDARUc5#tIC~0p);QCDuXJun%DR?C9
z4s;v(mIS<}D6K@QO;)Hn%t*7}!luu-(Q{nxWVY$4+XMcyS3GD~?|pTZl1+C8>-#^Z
zDANFf&UR^^Nq~N^zi>XCu1Z(DnrkEFkm~bwTbXrp1jV-TlTh!dc^DzORWaFN5bzhW
zGiJeid*-8J*|Avt+4vi&p<rO+8qBuH1g!c1Z7H#Cc7#f-h)r|GG`qPMr8y)-P(AoB
z!3afOVc}^!8u9CG<FVN=lOa6CiX~T`XbRA*!t~Am`0PR6cWvQsffdRY?vn*tARku?
z^GU`<%-j8Py_LUZ3vTa6_acj>R2>oP`qxuFbvd-Jb!Mbh*5&i744Si%rDf5%!-uti
zXMzu=kxv+}Bzx)dKZY*hHRW`=Y3;on?bi1gi}o)%E62gTzCO4dw>;0vA6#EsfQ8hz
zw$987N=xs+yH>IXVbcy53~Nr1>ns-Hdr)%Dg8P3g`3GZko=hx9P+KbkvTaKX?ZP_6
zi)%AL2T_bLqzFQ*k_}w*$IO0|2Brl=DcV<;Cp6PB<(4!rzjBsvlqND=;Y-6|P3Tpw
zw2^qLq6BHXY}HpI9VH?!nvx`~AMJhod*z+pXph0_xw|4O!rd0qJ#8{o5lttvCOZ%J
z%bkn^0MCRxiX)GSJN8$C4^!bxm&5u`H{!=qyhD~5pVV!YM7Q_A3<RjHrq`=nt~|U@
zGJh$%8egrqJH_wPN)r@Y-kl#16aSbNum=Pg*95}Yk}K6sD#fpQ@=QM0=PFk#aH+0K
zHI1{X2C2|pJxKMLZ1+M~RUIaXW>6B1$C5oF;QAQm8<?Qj9dT=}JL<gO&lT+`ye?n2
zzP7U288TniuALu?pLl^^VO5ny^pM)YS}3xSN<bb_|9!x?eNh4<JBGaWF{j8`z&Z11
zh5wQ}Hju*x^^gV{qX8MWzZ>BVp5ywbv7~E(>kEO!Fl7Xt+<2n>@li?pj>E`t^+!89
z;cX!#HL13qd_uI#WWxLvurWaeDZlw{OZY+Qi-?*0L|9z}=Z{uMqlf%l*GVwsfF8-%
ze&9g{mB69M0KrJcu01)7W>-@SrKe%3%~i&sOT_u}E6HJZf$%7YI+&3%1@RG)=b*A6
zq6<$&FjaKvOx>J;MrP-`0d;eGwTa3rlJn{$R%azL?*T&12(}8QlIrm6E(+0*{ZX2X
z7}*ZZ(QC_Z{}5Uo;+|RIkiI-R)D;oyaLALQF1(VSS$#V%NmpW}_6bR##jBP_9jeo*
zUqy8(07J@Q#3lttHA|GTy?m9ajf~r|gVk1li#dL!3mkJc%z0Id;kunyJjX7iQ;V&N
zAxS|M)e!RkabFkaa55$%bv#ZtskX5B+sj?eg&qjXI#O;5o#^ev4Eei=yZ2kw{xv7q
zuxlGgNWc6XfB9QHIv3&25!5fPpXKo)O!*Bef2~^QaqP;{x-7ESxapDi)*IixXT|7t
z0TdmWEUg;AYlEfhTECPnLIi6dr|Qi&lEsN+&n~UL8gJL&*2dxKFj@smlr|#bJF`Do
z9VE@SJI;)YTP=k^_m+XZeKg>Zc8S1*mx3qfmXMW||MWxf14XSC>m7SeV%QYJXepsk
zWD|!j3yUi#?Rov)3_204^c-TW6I&<iS6r?nD@d|eKxOs7XA+89W6w)Yn(_2`SH6^p
z16Rus5!myK>+^t^)XjVl$AhdFndf)y5=me;w&7DV4T=-dHE@Nlkxw&*N`74D+2Iqj
zB??~OO$Ck)@`tLxHCw~w2XeWE{Pm;D2`gS~CQa|?#V}3m;C$*O&|9GEJF!`G6FAm!
zNr>>&t-3MvKtA*&K1KH|IoE*#@ViVA-wPbL7}BL7QjxCGM3&bqF+X3MlkAjor?kz?
zK$oN0wc||fb5+8!J-~4D8ZYO*5tmnAwlogAf!*-%yzsFYtwJEeW2t^ch_%k{F{$!<
zFU_;vp)*5+K`Ty!S%`FKNI6BJ&BLG}jo%a+5_){Wvsu8~e)4lQqcbxY#uh+*z`ffg
zpQV~toGIDOh8=VpDKIc5dJUcgChQED{`0+d%cJrQL}U~+aBYdG_DQPea+SbtmN(3q
z!kLlzOqi(igc-dP`$KIl8dzQuSq<vQoIy^q`{kNecg%q5;?PF0NDK(eb8vg1ef`(v
zo5tBRtEnG#^fx#3p>rq-yi<5&!^yIL9u9yaNmJw&ME(Yh#eIbNH76Jjv_oK98Aw>x
zVUhsok0<ExS%*d0jFQt_Eoidf=g7YcM(gz`c~(Dqv}Kr7<U1TLucN>(hYW}~!#niU
zIOR*=_c?}19*@#|1{bMHG6XT5F=oNcVmgsiF#_$1X#uy%sm@TDdtbR_PC)n=L4$M&
zyD&*aG4)dsl<z0uq`?tu!eOOd2UHBLtOi|H0XpzO+ds8mI%vzT%Y`c+#EYLnb@}>o
zz_{4b83dNM<%BV%(R7UH-fi8W{msHCVg<ADS<s68$7hnap-;fWBo<z;N`%1@UK*~<
zrJ<58jBN;xn1+6t0C!<$(STDv&^4G2BOy^wy#fRTTwxYu?t5?doxbuGk-ghyKUqg6
z+&KFzuLKI<Y^c@h5w;)QdRpJa!tJ3Mk~_@1caGePDnmjGiI0SF7JRuRz=o~7)}>qS
z(hn8F8d9bb;+$MuTn?08ue>7(@JX)e+y2+p6fK$w9n~%~=D+N)az%V_WnkeWX#2ab
zxAS&SHX(-cXkLENWezA!S0JK!aamqBJ)uV>LaPC4@Nv8|^NPq`#eyoZ7?KdvkEKkL
zM6-O64_d8_SanfXz#|9~`E}<O!*!7am>9P04{)wh&sSd|j3(H9{PE@8m9xAuF!E(V
zVD}K2uu=aC$8Sle?<p(&40BP#+A?Ki+NZYPVtrO^y}Q7wL6z-SiK=Jh<!>F*eH8pW
zstSM$1K>Or5^wNJsdHMe6XCry9n6U0e)&H@#+ba>Lq+SxKb@~}^e8kOPo8Dvu<c@o
zcRc7KYz?5}=$3)7%fLb~1LPV56ysz0V3YLSp>uW9O^3|VtXcLS)&1m}Y*t?e&~WTR
zSAuql=_xjuHwK?~n8xxR|6ITLbq8kV{ZaFhTMuEfM-|L3ujca-vhJ)YeQ-n|e@$SX
zqK|35uIF8Q(0aG>{yv23%h-23PhK`HyB)5p@a6a9xW<zEsEY%u0S$m7M_R_1UNT^2
zAU1v~-gc^!0h5xkk{1yUW9jqd;k#6|J3YV=HIDqE)rE{a13Pi<E7xk`ty}yWs<iOg
z1BR=*i|CM-73JmQU=g(~HtWL}CyYQ`L_B>ELvyl%gp}67xCF!X8zx%>hMjfJG_00F
zBs@Ohz+me^3Tmvl$te5eH%Q$SkmrHt!=$X3U?g+0W~$wRbADNSELvNl^U<zDGv+zC
zRT%Sj0t*UY2i)%!EclIb;X-PvIR`>30?JIm(49%$7-6~TY{Us@zkDD^01qKhYD1I+
zU;s1o5}MOL$Vov)(r?$k2^_lrlhHs`T;c?PLuApNqh|vCoc5WzEU-pw1?)yYCOEpd
z7&ioPq$CiOJONTK4H?`9{T9HnE>x<JpVKHe2CTPi;Hq1htU*R&87nr|t$s(w&!GSG
zgBK5IbNj>dh*!paJ)h&HxuDs2k87hRWN99Bd@#3`Zwk4j{q?x8C%T}UBrM>eDFR@K
zZi*Bt2KPp6f9MO#-`Nmq2jCUKh24Om9-dF9s6p1i5dH*=wYB>B^Y<@GZ5iUV4eP`#
ze9i=U=Q<#<O4fuY9x+v606zc-Fi$yfJPLpS1WF;Pr36rIZkbs;HmARe4Eo>w^0s!W
zdU*UIYGd<ru+Lzu8tc}$Z@H&90C!D|?`|!EL?OonA$Fh-m_=gdpNR^M-?v8pL;?TO
c19`K)(Si3sd<B!uLcy1ohVF%;^EV#+A8~cBO#lD@

literal 13438
zcmdUW2{_dKzxEH6o)+3eN>5QqmTbv3l}h&PSx4DoY-P(bLrMN+E0Pc@Nn?yjwvd^Y
z2am*9M~JB;TbjgJX3Wg_{CfW9I?MGx*LB|aJ?A>-b&X~k{Fd+cv)uRnx##+6bHlZ(
zq*fsavexL-aVrE7`iOq7TmkRkyQvxQwBnqJ;c<9|uSJ8p7<l?E=#)b+f~?+vehYOD
z5|$8TCt`H`sLiE&Q-cw=ZANk%r$-r#O7;5o1I9<R_OH5PdG~<Si3>(5*ClIzJNw(-
zg6k%GS`K$Kt7a#qdz>sEGgXz;IJsBqc>MUu<<c4lvn584U%znn^eruk)aN^|wmu%8
zC}rnjv~0W9_Vm~e&QDeQQ1gSeLhJ{*bu{jf6T7?K7T==QC?SNz{=PYA5U$a1m#_qa
zh_3v&`~ByJM0NsZ=~d`9B<T3A*zFQZuQFS`8VnKSW%A9*6)DHbWOAt!f@n3aS3wZ5
zH3JCY%Pqs%SK@@z*N-1-ZEfwR;-jXiHv0=nrM1SxO{u*dhBD-srKT90J?Zj8F`weM
zPNe93Z@;p9wT+V#DY)&hp-$Mhc1jEn*Lv@;b%9|jBQ<7e*tMl)<RYipg7DBiRnIOt
zIhoU$NqyAT)^;P392Oy(e?{p))I>K?N-wg4@FPxUUp_t4<tvLYuj6v*Q+$1Z$)5BZ
z4d;yaq^CVnpuDiUb?P`g)V$uc7u%9JCE;)7i^h@<4ejIS85eH4e*AXJ$o?G#7YEiL
z?E_EOd`w9Z(>Qc!lFw!J@_AhLOuoQ5Rd4RhG`}Hnt3sBk?<9lFfj3L4nFOay=Zi+u
zd_PT6PC%_u^-v_Ke_%i(a7foIU*9F?P$1*l+HDn~lXkq>B215oa=p#H(H1QKnJb=c
zTfgu*vA+_RIW$k5_ZfN-v6<~O^;3+%V*hMW?hU5v6?x}HoU99*>Z}>fBiUo|mETn9
zx-+JF{DtBEa&L?2s)QYpr%dh~u+-g=Da%`E!q{o&+U?Ki+-RZuU|ZmeGWvX;NxjU6
znG<F)?%hmH5k&frH3r;y)}heQ(8u-lyqny)sR3`<ELhXe{!#PaHPTE~v(y_U)Zpr8
z{@k6qi4`-`ddN&gLcPYh^wK~$jq4K3ovPlNxwknaJbd1fVQIMClm9c5Haiel+2Zun
z?Q+Bfu_%&kVQ6SbYdQSh*51W4pq|b6%qq%@EROhIGs?NgFKgPNhUHDzC(`D>4L?dZ
zSEbPSk<--g-vf3xdz3r4n+n`*0&;{9F^vPMu^X>nWl*pbO7w_AHYSD|@ch%Y&$ov1
z^rCK`lD%OVk=EVbzSAgjelR?-I$2Wf@j|ecw4IAfuJC06cJPvJsh_5T5xT&#KHX0&
z8?37!0tTuBS)o@Q%r#mjedfOp-e?*whHyTASkEPLypRJsvDZCmD0;@sf1t{&+^co}
z5bf-n6|MOgESt@~aeNo&Pec8OWT$GodTFBI;Qs1X1WAyp%D<vN{wRGm5xaCOZT6iS
zee92o7Tqb^b-Lfbf6~@w9vU95AeC&K27w`G1ji9^v~zbaxbo`0wvNtbu>_vO<yFZ$
z^c<T#ta5X6jb%63wnlxp&?LVlaoi$?lm4A1AmC?mn72nG(!^dQa36@{Pth@g7mv+z
zi%;)+WGI8T!EpQN#*9_*$Bc`*8kph)L0#Ix30w|4`gdVO%k7N5TEJkfEyS$Cies`H
zELF2?^z-dunZCB>6tSX5b>4cY!XMUhCP-|e1-`h~@`A?1#KbI|-Lcm>*lb$F6au9y
zwAaO($MRU+Lj8P0p&~{=kaVxOFnp4?NRKH!&kw{;I@R(ylc79z?_^g#KV*6iQX)i~
z%;7}FANzgkLya{=aA<xgdQu(M3+u&bSE7wEbFnSlc&@KkB4fY{i8WZ;g6My}>)t&$
zNVYaVe4^}(DVE#cJNqTwV*e)XpqEsyR;fZO`Q&Yf%ni4P-uA`e;G)9U`eucHxR5Y3
zlQ(~U?pq&ZJ?G0_3^A23ThOrEIOmQswiK-(d+!BZk&=?C2%B;=%Tg_T7?G2cQyIN@
zu{BT6$-OB>aVYPUY<GWuu^L_18tNFN^>zLE8amryG#gjiaYxZ<Q({9%zfaNl(hMEr
zk$v&6l$!l2IgoG(K|Zc~^K+#H5_>BJ`EIyBBW*N7PJkD1nKBnzmLqG{njaNGJ|c!M
zp=usM(3e7MkXVsrzv^cTN%lvL3i9$)NAL37Yn}*=`@OE7nowos-k8(@v0mcBe@Y}8
zL4sD=#mtU%_yz{bwAb1@#xSXPIohVz;!qnW#>Sr7(H=ZF3K5hLZT2vqo!;z0!JXq0
zsZ>`N7Z<z9a0tQ-V+SJE-o6O71@cXSZI~=oXu8L}lAxJmYj2;K!KtjQd^>WHF|l{U
zZ<6jeGOtuxVzp<re-N%W4gb`oJMzvPc<iR~gvXtCBFU_Z@9yZZWWSic^x{il+TrDE
z|M`a2{iD15e|+<*^P%>9$jR|c+LGsqE=G6vzFhMbi7r-!cW&q%NCoZpbBI>e#Svqu
zZEPJEr~?q=N|}@4{nt0{^@ZX}s1Tj?c`q7dXqccG@L?=!Fx^7GZ$2BjHuTsm2kzt(
zt~Eq^3a58}(_ee_FB|k9U%JWx<v-T1SuqmfI_>S$vNFCH%Y%%J)(?EJyLsk?>tsM2
zdHOb=7Bj$BsOju;n-KS)X<1E(3Jc-bB9~vra;m2<P3ux7^o1{rG^uGeHA%RKa>YFA
z6*jM2R?=HtA0t*Fpw4xim3$e$S#ik^Cn@q<;)9i^oY<=^?rZjmeY_k{ZQNIa*~A-&
zUhh#SIEK8J&iAz$NSNaL_bTfil5XRP_i_?!5pUJ3&umAvtfWfMM^?n*uS7E0c7MjR
zux0m7$=)_EQmD0?Ix^|4D(PA7puirUe%?7=QOSYa%Q9{3*SCBUIH`KI<9v4{&rj2d
zO>iM*XG@XTyKns&J29ZO`&<&SHZ@4A#97JPKl<2%_E=8wW2!8Uy;^i@)x=g;>HZQ3
zlod8KO8ZwmHw2O187qVY#Ud+^mqLF5j{hZZ?)*|K^fBm8t5+y=6MJ=k2q2|QYyEsy
zct5mL%c6V&$8BKS7Q0esVu<!2E96tq8K_{;7nweL&9WcOwCT`O=Me9eZf@(64o319
zNAZ+xi47-Bk-!hnEg=D^jCUTY%T&ao?p^tBy7$XBvGJ}kyik{jk&FhWfX5WLr0+4C
z&@c-RufC(?vft>&$pXhp-wbS`DDv^?XD7rWOZ5bfQF2RmkiebF*1B-6d0eS>Y!?6@
zZsi#Ob|%#2K}X?_v$M0mM7TC{ot&I{7>viuS8qB0>2-X=fIY>PjNwnGrahtothBba
zPM4Lxb!uVop)9m6Vrgk<afB|t>xpH7M^ag*_0Dyt{r$<6oV-!^r884ZFCJ8q<GUU}
zwvY+BJM7h^$d~d$wEYV+Psv)b`I2i^Y))*jv9@+EEP|XmvhzN?-4l)1+q$MI^Yy~}
zCo*eRkah@8?~`>;dj07si?=Cq|A8hi-fKaEJDxsMJQScb$)(EWM^4D+;^+G0SPJ*T
z+D2!5{r!8Y{0G#}zFub3*-f-g6#sU5pH1|+77tZI^**DwUgfr!h-+`o7IyjIgf@yL
zWHft}EKi!^JUD%-&(E&Lxy_LW1(QrrktnI9l99HNi?+RDE8^hq;9(cJYMC(9Pg~3$
ze_hv~i!Un6GR0<{{o#66sACI#eSJ$9%DRI75>~{}StpFNn1aL_u_pwqa(47uH}|AG
z{G3B>)b|?Cq8VL_PeIRnMP|CKEqaJWdHap}>%u9ub#-!m1Cpv)rWYhL045k0S}}wV
z>_|n+`s%v?cVP9Ve$(EPC=YLtWRg#2m=}@j_a&YzfCg_n6<ihB4A;iW*U->FJAR>+
zT_hkHk;o74Z_-B-@$XkH`1Y!8TDA6ko$Y>!HE$){E73$2xg4uYFSldP=q`^tN@5pY
zPPWk9p&U_1$-hDvPCgXEaPVf=lI!Z6S~8V0W&Qh}olsO%bgT^_S`lrg$F?G|yOSw~
zFVpv0FupXWM-6UCJ{daQu+>C6D7)szQAGqv@mSi9w!#0n%KrO?`Jewy=o-*)qj>;P
zyGvc_IJru2Uo*O%<$Z)AGKti+v^c{%A9!Xr)FhFrh#9YX05DXBG_aBN>tFu2CF*}k
z;X78kZJ(S}@|~qV3)s(Jpm8`N@ALHYq=R;mKXon2&b*7{L2eZicCLHsijhj*zv22B
zvW!@QLf+n7bEk2+O{;9{V^+i+?SWRh>DkOvh+>F_RV(7`ChP}H&PKzgJJPHm?q9i`
zz8sr7oc)^M<BpGFP{Qi{O9FSUlW1Rv%Cl!j_jJpg!dfxi)end~hbVxGxKO?pkR1RK
z+t!T`gr<AQ%T3M9l51;gZ%hV|0BclQVg7zGJplB60T7J`zNAdFzwjkj#osnAgh$Ej
zrZp?j5Z2p6y45mrW7vIoIgZZB0K9Gsr5W%Fi+4)&N{2*&hpG>m`lz^fpmFA`em<o(
z^%qPzgI=3>{4tSYnbanep*H#R|3~dd;*R}mDPxp<?M~IT>Zs^AZ$q>xeyG5T{wN~T
z4y8kMV8;siTyq?IqGz+&w!bK3?S{SzpRQT^7`A<!zxd1b-~J|!a!EbjY!|gRSJiWs
zknS2FISK=Zq>?whL{`LGxBmk~_@58(|AF5;(uZg^uCbMY#k738;)l`R+((-g?4FQF
zxF;MT<m2B?YsMZ5`0%8$@nkMAdk&W-h^pt!4H)!nMUdT&eMkzBs6Y1VKfo+~66Y+9
zVkj-jH0PPGtz9zw9|;d8#F5zbM5g#zAQwQq@Z16B9a)#)R*lHn4#UvJk<9t*Qiw7r
zF}^-N9i4?H+>&Yl^okD8j)xCL>}4GkK~l~<xEMYJEv@#`wQUt4<5q(~Z`Nv0JSmVh
z^1gTBn(*b=fV!zF*Dh>G#|htnfbZo)-v{d|gGbHD&NWuh{PTw{4X-uJ)9p*>0a*XT
zN;9@8WjkprHrf)c$y0fwJ_0^3!ITM9p{hz#@yydBtG6oYe&GZ4HwhkXv)#F_{odi=
ziinx7=MdIlojuUHv`xt;H?LVCX9S5vyA4eO(u^@_|7PYz@hFjTgi~zuAjZjCQ<qMv
zjd7ZE9NV2wcOqii@vr9Qw%@>4bh`S@AH3N_X`L2dCal_cW{{dz-(;$>;u#)_a}V#F
z3ODAgpSYc7Y>{c!#ZwE^AFo$OvZ9!z<GVU0=gzBx;9)19PbXDY+749tcU}E$W29Nv
z%=JD%s5B<5Q{>o#1X&{myOQ=lu5Xkx0uI0<55)d4d_hB9{R~Mau>n~2eV4j0pTXKt
zYOmm<DCS9)nzx-s>S%<NhOdq7%(sDR3z9vh)Hl!gUABfvxi`JkcL&;oT}4?m0+C3x
zG%$z*P}#$2lo-6ww4K_E0SO~?uFu;ZJqYktpy9Uk(Q3ev*RHKF3UhrlUjpmv_%qgB
zr7=~8vRe7Y)8dF#!)L6mhjGerWSLbN$+v`lTPEBv9Rn9%f#-%{CxNq|VURXU!t&nE
zi%S?5SSmVIl`KSQ<|rO^>AMxh<PL@ZxzUt3fYwLY%P*Gb4YNPSiBBvHr}kP~=oLDY
zdu?U`<D@>O;HPkDV$y3_L-kIbmyxGuVblBTqpB-8P}tBHLy?n;yt!%`yPg1KK1H81
zR{T{Gv?!2NdPmz%zlES8&td@;u?NK0u3bCv?Hj0H#7lXv9X8W|qoCr0E!!#?c-R!2
zqESL&nAz9oz+U~lwpJU^2WSTN8u`g;yT(Im7o^V)A2<%$8AHHh#ZdI3<`x_U&xcdG
z#*6Y@dvt-UHcH^QA)oFSmzS3pFBV7W6K#|-6;cF1WeZ>p79441WtM1u$r;i0xh0x`
zL*H;bSYMZ*SIZli!_$|V<1Rl_-fpto2TSp)_Up4+LO@5_zk?SR9*$f5Ig<A1pnKz!
zsw%t0EsCAMNG}PtB0+!bk6IQz6frs;!yk>gVOR`WmlD-i>phglO0U*zgMieN1+}1X
zCDN3gpFjP=eFGK42r34sZcpaxS$N1jJIEE@Jd*<GI`T=R2;%m~{%yaY0tf^JW;vP=
zwUb|S0;_&r(*cDto6x1cY1Q~`YjepPu2445-R7-hK=mkrT|*IPRaMo3ID)J(@7w+H
zMB)}7D9qXVc+P3I2=a3MgKz79)Ul`}0P`1~M52YtQZqKNc6`rZI1?Z3Ba9&W3Q?;f
z`<{6=kV<D?+(;m|uz;yN+PCdxk89c*1hIMikR=iT)cfz}Ui%SN_Waj(Sq*`OHy;_L
z?{NrR1@ynv4~dyh#C8V~W^!Cvg75Fk-b7j>NK%NW$R!?!ErlUOPlxAVSFA-|-g@MR
z&~tUFd*|H(fFwXoW8?@UZjThW@?%Z`H7Je(oL2iK&7>k=P+L#1G-J@S4T`8;ACjl;
zleQyf>4JZMg%RM=>JJwacisB)G#jYJ-)x~^LC%=&3I20R&%#6miJiz;`*CWZdTR^{
zfN{8C13>o+_x%v)-%E!j*7!E3$z`jYy|P8o(WCw#f}DItpj_?gf<OiY?#C8})hmG2
zn;q}UX!Vjas&O{YGCk?<?{Clvit%oTK7;^(F3LiBzs_L<d2+h%xLlAB^0dJ3wWg-#
zoh7wLS3ob|4y}V7yz)$FNk%X&0|IfKzF?7Vl7@;ifLuLW?yNNei9E^1Q)J<WLTNjL
z?35V8jT$e^^!@Ps0;-e5+04;z0u`wM72q=qWW3(H2i;2!EeGAies1MLY2EiuQT-o6
zuqmdOj~odf49(mT{o~bx36Le$ll%}Ggj^3CwbG|+kEHu7U9dziCK4r!hY&=fjKk9@
zfZBtqL?F)@bU+jtUVX+A3IsH(=G|svU|=v^^^dlATl||(pZx(ZJ{{TwYvIy|xY7vq
zP_nQ~gA#9g*9#*b<DLoWhJSaS>MJi=;5H_2>*?$~S1%8%T>DJsb?wL<r|!<qho*Z9
zOq6PlgGAQ_;u6NDUI<Y+2fK#StH`D4CiJR-oey4YQ3R0o&tYKQj$M3f|0N=Ch&wdz
z3)0tBWe8*WZ7(sLj?~$F!D9Z~QHYtp?nY>-k4~^_xua;UB4H!DL7p!HYid2G_Yu_J
z2NNQ(yP@@APk7hty7jk<HTN#oIMce!v(=4?a>KG^rjjqwI6V|lNjg{|585vmP5NmL
zuqsfcK4LWY(AbcheKW#mR8tElOY6+jW<kH61Zh{Q^D(j}cW-|5vxj@xzR(&Hk<#{Z
zx;}}vG@?vp+|!Lv6^fSF7qN<SZCk)Tel&>3Vh(ChCgk5zMIq(Bjm_wNoSO?<E-W-M
zv-p|5yx?TARN7bAF{1H`9}CmN8vgz2MxF1=+!HZdUjPN4(}5bYOhNKxAa(KU>3JcD
z-1zx_Cpf%y{jFs)edb1f?f1oT90raJkBB_)Lc-bYer#rNl3$y5RP+i}3yqn+9iZGK
zAGDh=5nwbmtEP|4(|x7e*a^c6o909Y@V35B8ol?;38;4t9uU!z7Rv-I4tN>hIHT0x
z<w;<j!1q#K5lUM#aqp$_-Bh&h^WS_5vK4=4tdyg*E}rjSe?-2!dh<&WNrCS&VIdMb
zYA(=y+w3<cW8>^;HkRn7vd_qt?!9|oR0{pm8SI2!3WzyHUE`lOdV_pZl~h`)gk!5^
zy}Q{>IeB1<_5O_FiDz+D96FHLdFVU^Fo7}MV?C|gqf}rO&nJz0?qvHf4?;Uba<b=a
zNnqR*e`ay%Z$vEd*g9LC{Nz9w32ov&bzwFp&gQY@<aeZI-V3;N4+k)4rNO^bE&m6Q
z=fBcS|K;pQ{tOk7xQFM?jiW=R^ZfvKK;4YiXR<0FbGxta&C_~6$LZ<mDNK+dJb&ne
z^Yy*m>Xp$l!pWVxy3xG7d2hb%`?=URLy-KB=jP@JMXM9uq&+g-1JWYY0&S?eqJsmV
z>gvCfOE=P+{$nGxmrS9^q#<n{s&*Xlgg47nc8<e<rfVROHic^~NY&3q=7fsw|2N58
zJHOaJfEqWpjk$0Q1O@dNezc-X?d(k-PzMsL0rQX@E8kKYM3A5}(~7Z0FeA{wF<>?}
zdB-WBW2io==l%Oje}-&z3AvS>lf!d70P_nurttHf>sCGir5Ns5juq(dZ|mfgv*o~<
z`|+!{ZV8N8_>@oyO21L3H-_r~pzu`Mxw5-VMPu!tWv)(6I5Gj)9rTsWsZHeW)Z@GC
zCbx1}6BEy@XzejdndMd>bdUf$0QL=cSj8*q@=;)~=52E?LCG1AxeVEeJVRdGvba~j
zlLFmk)-Dsan-upHymD)w2eD}LWWq6OlN*H-&or41ZElp%Tl(<^u)lnb<*K6GnZ*~5
zPEM8n1Da-cRgR|FV6l|x;ij!Qt)nvy*_smWw?WuwIqW>CroX$6IyHq$Z*6)y#TTES
z9(Q0~yQQvgaFCC$|Jx76*x;Ibc4Wsw(6(lyY`#Y1z5WzL*^C)ZQVVI6^gfj~_kED$
zp(;QAlG~{H$Vwg}0mcvt?5^>OwB|>Ze2`Yr=iS|J>IE?M@KAO5kh)|yhDmQeL&T0T
z8R-UpPr6N<>V`1EV)T$N@4+|b$<sT&Lw#xBXtup(mnakIrn6HYUgh&=_W}m@0VslU
z9DqW*$B)D+VX4lYm&JW6D=N;9cNT(r(@=l~^+cVzU5I}7pn<sVkC(rr`|lDx-H^r?
z#5qD89beG-Um~ymk14(@YXa`yKCkZh(;I^-9UwhYfYFqoacW?N$ue~$f+msyI(VxW
znK7?R_vN7)Bw^nst6jHl9&Gf*8`(8J@y2h1X<ZLL;Td7)N5O^Dpne==$Gy7GV(Zbj
zJ>&di^@A}P9vbRE%r`F*pX2~y0^Yz7COnw{p<RJp-d6&{KeAK&mTUysv;p-3EDw4>
zl~rgNgUAFiy;AU?B%cl{GW=s`$~(4Yp;<!B<L^Z|<^Mm~;2#$6|NA#T;t+~UogECn
zJ95K^<lW!J76}1#o>7bqXAO~ab;5l|-ev%+j0A~th5A~+bHYsF1#<OJ=ZBhL7_X>%
zw@KH}_2X>K(#?xNqJoEK(yh^mh8WHFC4=Ss(+A#oO}(jv{x6yT)>o#KXH9$7pMVqS
zP1Z>l+{CV)jL-)DoK}?CVipV&Pux_0W!fVyi-v8I4o;Hw0bc^AyGVb;KIa5j4o;)e
zxC1ffXY*bX4Dz6|`SOCa{6eE2c09@8bUijhwet<vuV!$pi_C4|HNYItLOw9%qQ{T-
zj9fgdzy@aj5ME0{)x^Mn^afY37qe(IG82KFq>bva<Qaj$rZjWdm3)}V+m>LUEkK3B
zPNr@<RC-46dbP3*=w%dkPImSUHVP_nKxe6pKtI0&48fQorWjBbcCxppXY*vtm)$aG
zqrj8%VaCpeNpo~=<OGq*NNqURz!|+4oZ|KF?k5}%a7~G_QI_fBFClr;<H_$qAQ*oo
zD${*ptIMNGT(2*q#35VN)3~AQ%f*_{=|>C=n_~0UH6}?Gp!AjRVb$K<{ir@_-jRff
zoIPJzU9FJW;y|JWGWD7HYgS8b+t$<3ah6N~;Q;c4`yq?>Bp-GO)WB{Eg<=mk)594Y
z9Hb^#9)&?RXbaH($lWp;zPDAgl6p9OevEk)#V5a%!g4#zty6#gT_uza4GV*mPi-2B
z$on<pLfgz%H9hDuzlVl|*yshqC_;A!=1UmU{AjAA+DWLyjuq!`0k|$`PTy;i2IqmH
z@y};nr>p=+!<0x%x+=0Cd^De4R$I5HRRn!HrU-Pm*B|sk(2Oqh`2bVx{1N_NI}^=2
z*!Vo)v)k0v6d-(CdUZI<wWqgNVcpZ2+Rs2}ZDCC+Iq*|dD^-!GutG=0pb^_mHVt2h
zKSm|AhFHQJ6x8BMzK*sw47N+yG??h0D6k~40U>P?OCWc%K(UbBP-X{3a{s1P@}Ss~
zVCDkh>0U^H^#>iT2OZ`}B|8$CgM*6hN$1MmpLM`w7z1l}BImb^Y)Wk+<$=(7=X*=i
zPML+5qVG^mq$gj^JEgD6Kc|v2njb@rfb1dn2;Mj8d$~r8Y{s#j939^!DpSvs`Dt<{
z?|?1f$b9BfEAuY!h)zddi&EV?T~Lo06EWi^Sk+YBpMR_5*t<p)I#dV1J)<rehx*9M
zN)D4hSKX>N|G}NiN1Y4bpAU=S*n$x(zu^P0D8>Zy(s1%uNTTbN9MrT^1JXaa2TP5v
zse!TpuWBw9)_l#zMU$I<3CB-^mEPU5ApA^cnA1;L1qaW>nqzDxHs&u}MU$1xZ^H2Z
z(#v9AE#G<`ru1-u3vXl?Ku*X#7}krKkZwyu2T}}(Ubxp+e`8G0v(yYX?lrHl6C|m%
zwcnPvF6sFtt)VoNB;e1}m=k=ps5w8_S0_>o*p<%c=qVckroCOZkn#nUU4OxU3*G7C
z;D>;@)Nm?hXnu6`?BWh!%e%M#LZEK%MSp++rqZK%!yqs<Ig8ZU&=}$X;1)+mM<AY7
zOSdcY*`WA5ymMy@s-BVT$Uo}|;1wtn6q;mmRP72IJ)UZqBpcBAqx5{r;>_s0Lph~Z
znYQ$dKNl#l1C64;Ixt_kWq&1~*CYMsf_Q}&_N^lBz6Q6GsjqqlpPbChi~4@pC2FeD
z&X;ng>{#MfWk%~E=C>A~4;S5CCoY^Og8*X>$8mgdsjR=h|3)>pM)58CaJ#={>#*(5
z@H!i=MCo~*Mb0gye5kT5AHoLw_hhzYf!brB|NDnt9<MdL%j{4V^h`2ADO2sxU`YBR
zc(Xv^f&~H#j}*3P;^V>Ta<8+}kj2*D1mEjeN;($U(7M{%cb=IpUfSB)#-)NInYIBu
zlOE}@1@T8-SdJ6ph_BtlZi&V5k7d)=+PRuE?jY+O7`616IM#=nu97olufNPh%)As4
zzuW5?)mq&zni>(48s`f&88u1eKs{vF;-3yYbj~OEB^vLb6jqtQVL)b8QGW5`O0$Qm
zh+~*s>L=ssuBZCKgh_I>I>-dTMOz^-DD`uWC+6o5VL!1h`7@y6^-}TNXbP%1gC(e|
zc77-dFG-4P`h%4XkiB02?oYUmu|u@QWN-`d(`IIE=h?kj`{3Ymz~$mu1eKQk)%-$V
zv5+NEt8(Rx1El`!jHm2*mfoa{t|lSk^Yy*x9B<Lp-ikt-5<@G*>6woQS*!~x>wwNC
zL_f#<+Z)l6W_at*NSfW#vZV2*0@1NBkdjTfkkHW0sa~rE)am5F+b$^~W5eXmDfJS}
za{tJCsy}pDH?3FV2bs)h&B<-<vp?R5lL`w9d#|wz2<lQjAX5We?}1wcg=aIyR;N8w
z-djZ@D#hT_s|_$UWcS!BfF){iG`|-Mrn5Bs?c$u4kqQv*T|mi41uW`fYv2~lEv>tr
z8BX(78lu{K5u!tB^~DycQ)a!!$;nt0#zUI8=8Y~oR`0xZ>O3g>sILs<%EHx3&tJa1
zD4T(ow!wi)!kMtA6+`u@vp>C12LJ0~RPE~tu9?~Zb7`@JM7rW~Fi61koalSFa7SQ9
zK+#$JGTjTGkLxXdNmp$ggQ0CFINh8&AUwTE5SLw0iV9Gx<MrdO9R<K^!t-90CMHi~
zE=h~!d4n<tDmZEzFqyL~{tmJ<Fw_b#Cjqy!vCw1Rh6F2gHuG^C#@x)t6GNQrth);N
zjb2alE`9#Z<wC<|lqqo7lTr1f;|Z-fhj5(PaYrbK`g3KeK5%d<gGHn?y*gr=tBv}=
zx?o5J0}3xAzJDT>Q-R)JO?McCWG(17vlArB1X`282MPj9#b@1-lvq;48vEMZYoW+L
z=!x1t9?$<AY2m)0Q3m9Qg@q?jd8g9tl`v?I^j;3cYkoHb2xxrh55ZK@%ZV2kIskVD
z1GQdDGh)Q57NVDFWL_I2pNy^;6if3m0Tg;uas7q+sN=#}Dg0C`^^VhD^bR-uxuF(3
zQfzR-{h8^R;V8JML6Q{Y!8W&2XRFB&;u!qYZo(MOZ>jUchY}Qxv}S8)!w|0We8(>A
zq)gN|ko-VNN39H?5^KYr;fYSZ@3@iDHj^3lu9hYypmaMv+Uk1gXp>CL3t2(c2`rvd
zrnn#f;!eL3OzmLCp|p6YCw}+GJV7aq&w1u<Juz)J9`>1q%1v%(WQ0Tz6|43Cy6dkw
zR=BmPI$}Nk`AocW^wI6xw;NDDz!mJvX%$<%_(@q<LL>}qe?9=5>I0$xD{j7ie726s
zGfx8>;hB#7S2o&%r?sGubq@`>c2ofJqH`lltqZ&Q7S!&=NxFxy>gOlmu4q8c+q5T3
zj`9vCu8rHC5I0&~7E=%E7(|#I^_Ab7Yil_T%7l(l>cWU}OkZze$;-8HZm_<favF~%
z;0I1uv0?;V5a^ZoRKU|W_+!-0@oQJGhFe4&<}V(d%EVFX?O@`=cq5J}@lYkAK2!?~
zZ}zG7L#c0C(z>){-X!YqMfCzKZc7EQS#V(C1JVx%e;w0dE~aF7x{s}UDRCP-zmv7o
zjoajmbi%)PgNm*m{Po>uo?fah$dLR=8s7w3WcRx)HFl?oa>l(<m8onEoI0dg?!~wA
zkzh^@g>T%q_hs4uOkrJ0ot27)Q*=u0G2n@_?Rj#%hAL<K!W_yaWsm9I`+eo!lOvf}
zeUDny5)7OS<T~(#f{};v;^&Pvy?JL4ipHO{C{2des%^MFM&*9*f{P02v9%ws8VFDr
z%53&f$8%;4l)k{Qh6rZkI>)ke@r^0l73eeSzTNwNd2d?g*wyc-jCtsC-QX|)atQ`w
zbed@-s+7Cf8^h}bSk?n|3>*E5VNbRi4*J1?ZsrR)3*xS?pI^5<_2=fou5tZQR*m9{
zT7oDJTr0orz1NN#GM=wSgR<z}#T)1iK^9PY*Vi39nX1n@-$!GLCA=wyZgEMbQN?!7
zxZ{W<N=L@OeN%@4t6H;1r*jOC?FFyDLR^(bfUul=uu*oyZ|U?=cyUS<y1y!TTweTq
ztKbDty}?nhNWpY~!SDh_IO1Dbld0~GL#VOHAO2qh5!H&}bz!pnG;t}1zutA#liP5;
z*mt(ll||(SP_*%EmvL<))#|~poMx}`ua&*7YQv4m3a)FYqam-{o-PFMNk3?2X66OO
z7VYPC-)mbcDk^3j=Wc9PFoi}w9?}oxs#1$(Ag<>TK;z9BF#O>FUw6wao@!>7hGZ2o
z4&}6FUl?x80-yBb-mrIY7N}b)5K8JGvG_5mgQhu}t-wE?x%UQ38<PVqfEScF*L0#7
z0^f#}7`|M}d<8z8TQ+Qc+`G%lyCn_<-0Q0iC7~A#!JGA4!kY$d3YAm52<~>bq{AWD
zZ{xxF+<Or)i8dKZcq1Z|B%}j;4E0T?V))N%7Qg1S!c;CG>7b{`^U;kAa6jFkWv=@8
zngt%P`YT~Dfb|0N)aK<uF&Z34N}R}Z3RS^nuTeb}Ke8ITa0Rsw{NBZm-Zk|6LP5=J
zr%57hbS5Glm{_PRdsPAC9Yc5K9XR*h^=BW5qt5NWR>ceQORl%B)ANoa69VLwGpIlb
z-RS%zNfvBOi2~Uy;9a-3*X0eLhHx9g&kv$IyhmCr$4%wDQr)*_pYfvfzpn^q)kovG
zYCx6Q3Z>5<Uc&B4AMat&ARV&-Xg5e$>&GhB&sqsDs5Hr+U(*l6?pblc5Aj;C1#@z%
zM!7-p)_FX$$p}|UVuPsg<<CCNd0VZN*)EkC-DpB8xD@4e*>d6~3YD%ggQ<D**swm&
zU$c5}$>)ak`^eEUM&G-q_MqdKIXwpdj)N~g`Jmh=`f-4F-ueY0+Ad4pN%B<N)2;mW
z@@km-8)A6l7L^2EByiq(ShV`Ncw=9ia)KxrsZjo{nx*???zI3v71(&!U@krn?I}d-
zqPe;qIhy{RARL3CPlCGAZH=RfL^sSgqiKx+axH72BLk94%>TB%4ZQ0+U~I&23LGDb
zVokC6XJ5hisk^UF-Uw!lwE!vg{lQ}m^X(V`Pka7DFn|OTh75!g5JonX+cNrA1K^Sz
zPA{z#bv)FCv+jg^6rM%7$Fn}ao|XezsD&Jc(Y_!E)Cc6lQFjm)&H`)*w#Bci8P&R-
z2A@<&Y=Fn@W{+94&_7%httAvjPgv)7k|<P1c63*fMK8dp3il>4=m&JY`Aw{WGWUe9
zZMg$1(Z*+eC1Kw`5U*XkR-BpoDGq5o3(j{l)IXa7_K34H@)J~;LL_h3vD@k#beX`L
z#AZf!3aVqchrlm=0_r3<fq-sY1uOJpnAwT$xP*?`?E5^O@$4QjjCVq*<lOrTbN0M8
zR5buA8;saG9K3T2H=1i5g<1<k_X$s9(UeW#ru1=vziMD*4n92_2L?V(zxVfLcw>g3
z*+3CQ$D}lNWQqY%ZL{@b(+;1a+{a)fhb}&OGjVWULvW;*avS|H1sJ~#duC4TTCexx
zrAW3;cq!CkaGkp>tz&>~=OKJtV?LV-n#-+Ij~0|OTgE}|@2&>OD#T9y6sPQtoLuRi
zL;#*P0j~XSs3YUGxw~J>Wja5U5iB$nlStdzm!LbKtq%QA1xT|+Xs4MSD@dJ-(x%qb
zIKYo~wBORXCN3-?Ap{mDAieAwI^G-u<IMzKU+nHd_!LATI(vuPa(o{2fG}5{?@)7J
r^xC0c{?|+5Fhmty`EO;~%L0+Ij9q`~*Eq={@MUzu{CMdxw=4eySVe(u

diff --git a/reference/Rplot008.png b/reference/Rplot008.png
index 156a625cb4cf882a2fdf3e3a5a897ec4b3a4259b..664be9923fb516158392f1ec36ddb66ed9f859b1 100644
GIT binary patch
literal 18968
zcmdsf1yq%7x9z4;S`d&FPyy+Z6c7m&DPhwgAkrn>sGu~T0VpXUNQ<!PQc6WYx?8$S
z8t!`i{xi;h&mH%UbME-h7<XKTh_dV5&$FJj=9+V^9jdOXL~@qyEDD7pxqVCi9twpu
zfqWC<!*Be0YGdFBzL~O;Jp6>O{hL(*@Z*frEj<?$is&5jjny^ke}qC^MBSFZq2-yl
zJnG{~H8U!6viqZbSs;P@9HC`STB1HVm6|M3n3)3U4ZI%z>r^Fj$JX|?1|?dynB)&T
z^5?^)v9DhI{#hyKLw<?=&oov`a;{5>axA~9zpb{f9v`xGs1`r)5c)=3!BTC~-{kh<
zt&g-zM@{iza?)s$Mi4o+yu5r*j@BUKMOIdc^8$gPAt9IUqeL|?oqIgI^30UB&G`3s
zuENG=B=k`?3k4ITyac89f4$N+;iI5<--2>@Y$Y7OUDg{YM2sUS{U{D&%*uL4?bYbx
z()-_DUj9@iD=*J}p%&)~E9*;HeN>@w4c%NyfHd}F)Rnt$0$;v7=VC0z&|K)h!$n0!
z_0DCkeXq^Y|CQ^|F7lGfd^JI#l<cfrTtsY2QH`lLpRbSktW6G&pIjR%bBvZb*@(Wq
z6y9X!xtN{hbg+=cCMrsU{8B?xv-^R}(&D1iQhpio=%)l^%>>N8KR>86X#RX#n#;n1
z>%S3hG7%-YDl5gLR&^p`+cyEPcsHK<Z1BX^KKa>T6v|`Njb_9_6#g9Su0<<^Q(KH=
zKE@$PD=!~7l4KxlSaD~g4#%?c&dYOPgQZ}<9GIJv!*BWpm)oF}xVN|Wji{sXy^ku%
zQWsLy2^AC+_IB$|BaaVv%@=#JXMG#^*O!Ys%vMJ#K79C4Ki`?&S>|YBH(tv~f6Y!-
zLxbXEJ4?p2HI`>qux#94vi9V_)^4o&f>IR2=Zd-H@XmB4(ZT-PudcwFkcxS4bHKX}
zxIb3y6*+WC+T7lz>RehU$5|pG4R!UvtQ3E`ocI${+G}>S(nsqz8LoTxB$nFrUcLKP
z5YNAk8MWRbb3*ar7Ve}IZNTZ__{I;Rjt56~C3-EtkdQeEM#l8oUt&$WLU<-8H&?;k
zy%et3O1SXTr+X-J5fPEul24xmv1EhfSXhF{)0LvBb9D-@&8>}A>69DtQiM1Cu&z5^
zacm0btF<a13;d9qtE{h+rJB?jaI%$Ba(s9DG6QKscUV{$E{Y;jvCW#2U6snVzo4z$
zDAd31U@><p(WRY&OFQpY)tLG5qE6j82oaG}>BHsXCWxct(qq`xi~hfhQ$!X`<m&v7
z8<Vg5{HTMi$3>aaD!wxB?YVZ2;)Te)F)RXXtUQA<Qjak&_U35j=oaRH5#Q$?+w&T@
z*jQVmjHnXZeo~aWv9W_{Ye$FZY2lK@r{dyQW48~E{kO8@VBxV)xKD3vY2^>EDBiw(
zyGydwobkFhRg#3;li`(XS?8&!O025R`5!Ntu+b8mEe{ke5X{qdXR0);1)Ta2vV8Pd
zGiDHTLOsPN5u9@z_=q*#60M}FN($k{TeU1mb^g3w!MM7nxrGINXvhcau3Eg&LKB&z
zj?*JD)cxawo%zu!QBp>Uppg;7o}Qj}1qGzWg)}I24Gk>R*KgmfJ1ZZ#xJ*8(P}kJN
zG3rmi7~Z~pCav>B#mHpCb0OYW4prv}2*Rm(z8E;x1aoR;-tSCPaH=p=`8^#W)E?L|
z*AT@h`O$7raKxqKx;hn}?D1R~jgc!w?cNkoqSx%(pTZ<-b*IwF0Vn$<JHjeAFP#%O
zb=cc4h$*tM`E$AVj0M8O!ahElxg&%N??^6{d}>1s)=$8D+iE1>^f*K@Jw%@MjkwE|
zf{NMr43DO^7fDHxO9fS=#ShyA>&mtC^g^FAd2>v!nHLuqI}cjKO}<cKdTdGy0n@-2
zu-{5;uk)l}$#XvSIsb#N<PjHyGCLi^x+`|ad^QHmqbG}6m>S&rjVx6~iE$v3#l^+p
zlAn_?H~)AmB-BTD-CKCJBPH5XD#}SL;&81_#yUYLGA0Iz>&)9{CYY{!BMXW{KpF%~
z(GhUsa<r9l8kE^v$6`|JEB<AYU&4JkL^Vl*1#$@y4Q~miJ<izsj8T<))5PbelUw^v
zy=a}u!|~JFeO19Ei`H1v{sJRHTx_wqL>GSNsYYr?otqxxexe1Hi&rBU#Lv08xvBgP
z_!4x+bAKjIz;pe+>-^8piA;pJA0K=>M@)Z>_^~WXGfTCJEMTu80`ssfJ{Vr=^W4_t
z6C&RF4;tw&XD#V+XYG)zlNEB;5eqW*eEGz4cSz*t5;w6JNS~*2-1#0rCUdmT*-gO8
zYGWjYry?(Z=`-gk>6?&{Tlo0=6cjITiSM(rvYw%>M;^xiC+&+_V3%iP;NE;jEa1q?
z?=&GhXe5zJ`|Pn$yI6yJ60F_lrvzo5M%u9+PfTg&yR+0@EhS3(N#x|@MEL{^r9rNa
z7nNs8YtF#?NRI7Ty@CIX_yTrH$MZG+-74KGcb>oldTg=dr4Q^WzUN$Kf84lq?gkni
z^O^=ft8A(MG0trd?nhOlk-S{iz3@WL?c#F-tFKz7Khv1_c22qJ>5ZKsAY*D=pKK5+
z*n)+JE&hD}XQF%a1xsPNt(=^zjnmHMqpOPjjqX*Wvu?#gD_gS1H*Tn^s($xTEi|cP
zf+8ZXtxbJJHPLEpWpSYP(#iWuh6Sh?WW*N)argK4_ZHLw;$6@5eE)vO(5)B!_51fP
z8Mj}l8yVSKSKQrls5^GA-e{(`X2N29NnKASy>~H|*C?#+Xoin4SWXvXb6)y*TN9S+
z)2B~Y3Oh#(hszw5pyHwGH-@yuYmDH(EfCAf@~jkF<48G5)0gyEwTtmc&aWxB>sLPU
zgh;T|YvFyI(^i`(y9yN4%a<?THcuv;*Anfs665KXChK`Vs3JNV)WYP$y&%g&b=LIP
z*B5&bs}b<-tJl8}d9GmkQT59WP^W&@_;_rsL7Z}CGee#pD0gP-%hP)bCHH})<uue$
zkvX+^;WIiWej-=7xHNQiL+BmKQ@_o`=ZO36t!L2tk#`C_7zrw`tkf?zEKn5nQ?u$X
zND670mLp_wHKI|D<2|1w=|K(o?3_WFgUIkgCGVK$G)ZT^foPHEh8a`?N%v)PSaPb*
z_tozvTvO4~)(%T>tkpx2^TsK|304ehFztjKSFD<25k#JrmL^9`%m0r;0)>wfGQ&AJ
z!p<x;=G3K1<h9GEqa@|U7_Kdyr=baVo^C!<H_iuFV&c1@@O{M_O1(TBJB8De<EGiR
zgoNu+WY@R<(k*_d^4-hl_wwz<1|?>{OF`tU)Zw9)$zF=vi@nP8mAp_SgURKjHovk>
z4O*t0FB|jDCB%O^#V)fSs@KX-ys_Ru7G7Xf73MHn847FFn^@*FDYx<SCRr#%dzkym
zP$(V|bx3cn4x9@}4Z?A!P}YMAmgM@~I&*dSHdd?FGDrGcmnh^ytc0&3<slq$ZJ4y*
zK?netf#rsSohADG;?y<YImtBGMQi<Nrt9)vUS8j&QRGFs+}08(3ex8ZBXhyzQ=6@P
zGz6p!<bVjO20mGYiyy<GG5h)MhIJgJTu4{fJ$S{!2z$DN*#yT%i#Vez@NTKj!ZJCo
zCTw^b?j4`J_OmZfjPaUF@-Y6s!OF^#fxF%uN#89U8cfbgPWXloAJs_2SACJVfqdL|
zD{_9IC>=8QY&E>aH+<fmR$9MiW<ntsh3ax&q2@KTs-=yFePodK)g@$ki7nPGC`Y(a
z7;vm?=(p2r){%UD>S(Kj=9%fGonBbUA=|=G8e`ATM^)x6QD#umX0K%o7XYq8p3QxA
zgcD%a__A~Lub0X}IXMq+Rg5~gaN`rxUc7VX4&9FFP>HqK@8!WrW5bpxMy|}eZ&|Ni
zy()j{9L4y4yNA5BbvC(N$OWN?Asy0(cWIxoEG{lKUXC+l{r>&?5AW&bNFkF4St<!v
z!otH1stcaAvO})W(9`1_!q~<=V(7|eFDiiDMZ*K{C@U)%8z)1#LW;Ob0i|sE#!_ec
zb10XyZw`<BS>(I1MtY=8^!2auR<FxJoF|AnQVTu&aVtIm&TY7XLxn>1R=cFxc&#62
zoTDmg+_{BuD#>GvLav9IpOjfz%KGGI>P^jptjR~(v&ZYtWvGTr?TbhF(lkR$P*93o
zhxS|W(X39v<Youk3$s-d<|gac97Z@YRT3VaFh;j1TqGy&v=UyxD>Fq|>R*|BOu$4A
zN9<@$=2Rf7X7f8&TEOWEgdd=RMxL?})*x~-fFV<v2@ao1j7UsIo_@ZcPICw`H0+yt
zI`Ne3<!sZm^W=^<JtO(0?S*co5uddhGq|LOqoY+G;jMgiQugC?wVD<4Y2orJDv^5-
zT)3!W=E?#hlo=d0NC%Z}OAntFk?&wx&?<)a^*VX61VJ{8*<1Cf<El0;gq7pOxzg=j
zd$7nQVBM9GVV$lRdG7uD_pCB9;|y`nmhOI~st-N>z`})<Xq}QGWErJf@#uZUDy)UD
z#5)cip7YEBM@7i#Z`|9Mes$27i1G)--}sbF+UmqeORI+?5K8?RM_{y3`}b<=?o8-m
zy8ha{u)dI$5(QbhezR?!-rpgI<4)I{c}{%wnU)ihci;G=E%X%$A9u){GB8TG%34@l
z4m{wSJAw-E1>O%i>GL9sR_aDGfnvWLZxwr;oWq5v3qs9Dch_Dj^WKj4*jqORXey4p
zH(SS{k~5Ho1Ri!IN18S~!$Mti9828vZ;pwHneWS|fAr`P3bo<M(A3nles~NAmx!8M
z_pj}@S>)J8m997J?RnrHKMRZ`QL^xFfEt8xt-Wb(B8L8u20b^LXg2x`99baQH#{RL
zU;fle*Q;E{gc>Ndr{}HNzPIJr!2c0072q~8gBW>O+NJzr76px;bpZiEa;b`LnvoSb
zIqTjvw^te_`L)o&1xpupy`cXAq@VurBe_EvJySFRT$*l;x7)p{-z&rB^FLFOj!Ioy
z``OBHS=PwvT_&$z6k0ku?0(t_DJju>wR>ru(kbxeEY7u6>M$DCo+K$+l_H;o&54y5
z6BAsuR!a|wlnag$R!^O02i!VS_R7R>2Msvbaa<ZHqGC&V#rOK)`T53tw^RWB-XMGo
z$Z2vaobOq|lJ#L%k08<_2>9+f`JU|0(aQKs!I6e-0l0;9XpxGqR&{%zd{iI*9v-N4
z%S~dj>4MD4|LE7(k}Wr*mL?jL2m&Tglu|Sk9txVvi8j%3s2-{|RhAu0P=1<^d?0$u
zk2YJePyph;RC{gR!|#Ol!KvxI&ZXm|J!*Glh~@o!gEFKE0T@9V#UTC!!pjsEDDvPh
zhwG@H=}KfrYo{lCW<|7cb?e0`$HaAqqigC~S`YkjDkmkP-P%O@CzcB9RK@vXAT!_r
z>H$<6(qsnRA(Q|5Q)XF>*Aa(Dkc6ElgK3~Py(JKb%|L)Is^>Jw0dV@PXapq2Xui6m
za}^a8v4{Amy8Sjs6l!<GMXk%VZaf;24H>jZf#lfmcYO#2+r);aAa8$<R0F>ggy|M4
zG9-#+#;@#yOdHb4hhX906P6A0v|ryf+$gI%Rw3-%(^~lwOoXJp`SH5CJ*YEnblH`4
z5LE)M^XiZrnn*-P?k6wa^*AfhEeN@R5>Bw-;V1VM{jJxtHM?V6NB(v5{e>x>uvG|b
zy;(fAI$G5<P-GrFyrOz=uCHjgSKYzEA-y~4?T_T^Rh`+Ba9}hDSsDRfLACs{v=g>5
z-4b5ovm0-I0u8=4RGKq!t(PGKvIUV(_3D_Mhd0M>Td0q@Qw=$8RuItb$N7<p;{8F(
zsaAF9Z3NX4uAKM-4A4gsybc;23e9oY^0J-txZiH*utOEkLip`73w_;A#?Zxzt(0^(
zKEWgUA&mr3WS>`_-{J32$<=Z;>!G3)tffka<edEc{PQx$3u+1u4h4Sz2;8%cZ~gMY
zE1Q(MmD1sR{%;+i`XZU0l_@$LLcY~-^$QUnRcjodn$2(z=RDNpt?-age==JB`a~0L
z?JLa@7uW!^Km|MxUn;!)T5Z5Rgai}OWUf$lX0Ha-F-{g`C5GyE_hf5sAdUIp;NYjK
zM_q6EO|b!O#%~Z)b!JCk-9_O1nE=i^&wz%(D6spYD3PE4E2O`V+;F=dg%B|BHt<5C
ziyJMl^3~DjdE;6)MbZ<x)@SG47b>H4x%=kvmw8^4mpV;(ce#JaIg3VX8g~^}P$@hv
zSc-~zYf2k+RC2dln2?3xf>2y5o`MDgy^u;b!>DC?=Ld6h>gX1=uYTIITT<kNVxNrD
zW^Hy*Q7zLS^7Ao0+Wl_OWVfy)oFl|l*V9}08veFr8uDH~8y_9CI&y?crQOpT^-DVv
z_mt7-Jzr@pEv<n9Jd|__S*rTi7w?GhpYjtoY<@Pp0zGeKfu!KW_{`5sJMp5cA6wUU
z({pmZzxes%+c#(@ZhMU`$8K{u3lUW%`X+OQbuG_%nHhxW)2rS1_hktDvwB!KNGpW>
zziWm5dENd~5BT}OBXHhRXv+CPrAQTB_>B)&(=Ir87jgt<CQ7vAszmBtqJEmjaiN76
z<+{^zK`3q345gW{tKZqLTf0VYAmU9hJo%!S&*_5_d+l89SXdq7kYjGMmlxifLC3#t
zUT3xO@$|d{oBpr9?7!dV&&6FFZ7MwJl#Y7_u(xP5Pgxn9Nr`((XtbvklU4jN%iSI)
zGf5E@7rP%+3f6to7Vnc=rXey)Z7U3Uivv`grvyGpWai{ZNI!&4k|P|(K&=7(Fz1@z
z$V%fIxRdg<6RS)|XjGOq*?ksVNSEB0UN^?d0t1Kf*RmG_oy3;^jtgiCh3POxtuv2A
zYz+l(SJz8uaBZZ`_v{_|N<-^J`^>Z|Hq#mc;@)_oZc1;9QnxT%VoURnwOuv_QZ}aO
z;er|WDvD5f@=*DBJNob@yFxzda6LK#qyALucsBD)jyuIEbN+SXzr92C(|U1e183Nu
zk$*Xw`&F5gGpCh5jY(4NwOX29`&FsBEuh@vk`~#$B=MppV%~GY@}HXJ|8j)<|M`H&
z=2#4&^6StinQ#93rd#Qnt!V*-#L%S{Y)`<Q<p3K$LO(cP83p``7&<;A<U?C$;?*9&
zCnG?Lc>W%=6nOZ9c6qFZ9?+1$90I0LP{Dp?YqHxWbqjNZVH@=)EnaaodQSeuol!yK
zopn2LN=_d$fp}38B(Wj^mro{VLR)%x(P)6Y+&er)jPCuG7Dl{rM1jTTnM)E=8|5n!
zVQD3cZ}djVl6;fdfAeG|C&;(FGWW>_zQ;WJIzDP|yIT#|%9pb;>-9LOK>y=|$=bu!
zVl7P#Dvq!xd3oGfm7%g1?`IoXwcjL9UEJO}k0(d?AnaVnyqpzIyX_;RP#Q^gW8p+5
zA$HsBoU?V~YhSU{Sp!EMJYL!7mlS=H=9+%T5jIn*4Q~f-yu||-yW>5%;TdnYBu{G-
z|Iq74qJOfaUiiGH^AW$mxln{Xe<Nb6-L)+`=81y>yrZG5{V+SWU<rsN4n97Q3`Za=
z;2&jFsPAzpve^YCm|CmxVwTF3!3R~c7f~#@a;bmi?_lj%(pDSuL9b-je-C{gK@iM^
znI(?nOn^?|5V_~y=ZDTTtg^E5%CNq5H&p{acjVJd>#yzY?sh*mH#dP|oct;|k(kKP
z)7#6!Kq@-ecPAlJ*RMcwUrL7x4?5M@lsVaBTFP$|x+o=9in~B~L(MAR=`(ndkg%j>
z&B~f~t)&PBoQ!U*Z-wSe2n2`l$sZ!>UzdIV`_C4V-{U!%2&Rg*w~VgdFGsP(S43q>
z4)X!OMvcFITXBEbKs~l5(cORh^u$66(^(`mwJS4c*8%~r=Xn<5{$E&Z{`u{`>s=$r
z<2dUpo$|gEVm>EF-@!4se+kpWo5xYw|9(lrkous&dWY<3%u2+91aZRgrvqA!u&%t8
z);rguTYxRL?|)Qb`0zCTC9R2M-s<!Ja}K|_<)wN_GnW7ezDcKndj^nHmnvs|tDM2b
zhL$<1`i-6`Ej}@kpGSpZUrW<R`no>mr;Xuhn$v3l+94-HI_~dsV|-?+yO=<^R4nlj
zE}1F1rAT1w@ED!|_$8<)qYm=v8uF|!t_({EJS@`v(IqxtNeWowf{=m+IU#O58p{5#
zF`tHVi8l)8<B{39=oXeBr(aET1Mw;vL4l*Y^>T!SM1C}Kx?`&B2Y9*x#PP$WoT}H8
zLnX9r#GUIcFyo;fajI*@s=dXPjH-+o`g%HPk(9%4#MoYXs!}9<-MjF=VMzaZ;r~;x
z;GZ8L`+bElG=A#rS|F=US3AwRTxiofg>>uTMhtc%#-SzMCn}_QTGuDzl6gX&`ehp%
z8^JMsM|B73Pi~?o=mX}S=B{zRArqr0IIdRD1SGF>(T^VMsd&_0AnglYM_YIe?T7ks
zJeNx?u^-7HqM4-;8{%Ufq^)<A>$<u2`TS^-d+moj8Ncao>THX3v@h}~MFW?n1f(il
zUad%wkyWDxE9tj9)*2rVZ4>Zlk9g`kw%~Z$?rZ!Q#58F~zRMH}%x;_HwEB;n@jt)8
z|MH6bmmhG^97V*UpUVuKb=K<$tPyAcxphCHFc?gJFEeBsO}S>&7*L&{h6p_Rb?ay|
zuCDRq_|PEN1Ri0p-;AUoT1j_qkT5Ba=9Of=<d=<wftoh`N=@22|AYcS^lcUYGs=XI
zN$9UlKncJ>{fHMKLevk3nw`GsF>!d2(mSofThL!NPDjf`*%sDN1Cu8v;Rc!$t%NIw
z7P<*Iw4Ya#F0o2z1UH!a>VINpVH=vFyD8~*lb_t_qmHZKSK4|Y9qNInOkMKsa#hd(
zj@i#pQc>RZ)83Yj!N;u1Pfe|b%L9X-$9{feo#vc(^jk8B{Ne!x6%~kz?t>hv&uxxM
z@mZ~i&Ae<kTuM?l>Q0XcetLtO={JyT<elcUGU{gu3QXgeEqQk8_yH6SHR=6J$(~bZ
z9#~k24=W>y`HDHp<k7dwNXsW+_46XC9tZ$uprAADkT&`58-5o1JqHjT|5W56b0y^@
zmkL8rh~i_5657(N<KJ`nHgz*t2}9OU=iW9#Lx<08pQVl-sF8l#D}e4jpuD6SRo6Q6
zsfTy;v9SxZ6)N37Rz5Z?zPVfqSd*e`w6IY^L`BlHB~PS9MgU)XxA@iPcoEy5RUVG6
ztBD6LQ|cT+Gp%vc2TO&HGs&2{&dvg*j^k0VW$Y^BbpbN9N1K1h<a-_ZCe7Cm-dZOA
z5lGKaUXewk5hXUo|G@ftX^}25A_ql^j)m|VRZb-Ptlr?K6`o`FZ~g;BK%zpS%$I0F
zst+Fy?GT|bVc0sE_1m74b$;5JZMV#JM!nvr4UkF{_7izL6}ZK|f$g?Dw~`%novCMV
zIW8yX>sfr3F9hV0pM=eat%9*lC<(X=+RJ1$j$`}i330g@Q3|bwr7hzt?hQ1=Usl|Q
z^R!N%FqN$9UJb(rtc{6O`cis`C&zJ9<lnpiC=g~r+<5VB%To&Y=-A&)nO5=7?(-8C
z_S;s)rg6kJ3#W?PtGNP0)X=RaLxSQb#wi<lL}VOr>;}1Wd8C3eE6JVCeR<%qE_bZ!
z#EXJ_Vv+_l;fqa?i=*465IeiegOrGz(wA>Q5#1tS*`8RUlsa1J)&P2OSe%Lf1)w#X
zfgXJo<rK?ffR6$qn1hQeH$}Iae$kS7co;iiqHZVtFW`eVHy<gJeL5H2uzDB@yG2Lj
zryO*TgUY7T1cNC(JRjZ!OcK6`H(~7}$+cXp-Wes9*O?6&&~AUo%L_84RVm$}!(Xm_
zo}HU}Gb4}K&CQ)mZ_(sO-m+zUCX1xx@V()y^fCswb2QPxf=$7?+z+d?fhGf9mz;E1
zM(mbUfBtg6N@&Y;Y_paI70?EH{>eD9KxK@sGKvDpNXvgeaDNxL{~(QY#mV<^#&;y9
z1<V==eRq0w=0TEqWpAL|@N;Dd!&M1v{-U2)r-;|rJZn09QihNlPw_3J@Ls=q_4LUT
zYy{X8R&So=t(<37lDs4Dn#0M%BT`t0LIG>h-1S}=;rgdQ$)DW@q4r%y#wF`PS9_1u
zk<e(Ff`I8_|6}j1I3AzfRR!P+Cf%z90#1BEEL!N!V&md!C3bJ%=QnRAhNEe^J>U5u
zCr1uK{b74zD2Q)3Ame0v)q}$6VLDRo%)!A?4@s>EH2h*RX8%3Y^xtQ)`#QBPh$rla
zOHF~2Sl{;r@k;RYJ@C@B)h7o_p36loLp_{e@wk9kC%`rEHo#+{3oo38Ptn1FceVD=
zArBNXl+&-T6hM|;;z=m5uhgso+X9HTnfn@3l55pZfeU6pqtOGkev+t(QIGK^P>Y|(
z$J14V4C}d8v-?B8%6;WadbD&{zp)R5q|a|V<ODt^Wwa?#MWg94YPT>^rB}^Si11Wc
z^PA4b)>Z?=wG%ehv}ryW8D@G>hr98!JKoNp@n|NLWDY2#59ZlWJ0?96z!uW+q~zrH
zFE#a>1dy=cLfBfCGJ>T6l3tPXw4&5TBPD<br>fE0S%uRZV%i0Up`KEtEVzj1irN`B
z(V)Tuu5-ilIF87OS7%6a;l0gxkHk<~1eT$(anx9iPnos}=%}=aR-nd*7**iz@CRr%
zGKb2AD?NREX*z|*k<zSpd#O?0+w+e_$9*Xg4fq9{(vRO;vu!txjhR5+rrTZ_rqMBU
z#-rvlCXQ|~PkvH66~^@uHVgLl^NPDU@MoyN#YG#~W*pcbWLpVP$ezN=4b3NcRsIH+
zs*~E{=v-fMhjcjdGN4UhUXyKvhN!wB%-g99=<0xv6zv_#C!Z;HcVW=z^Nt`-rY|6l
zgA(iRmzixTGR#|Z;AH3%CIQn#(@2F&n>Fkw!XU3VQmS3z$+f1tX1BK%CspOPg#YfO
zwMI>9Lq7dC<N%>zhN?dsWfE|_GfVJ`Bp~*$#T%EQ^e+kGJE^Fs*zP<H2~m~1?(<t7
zWF8BT>5K;p{`J6U<#*B`RamjvqaKNcpfi*o?T4>zas2`<p#>J%;JphNf}Sc@ZP#}?
zwesyv-CH(kicpolfa3|&*xr)KX&BJ{Z@TGDu0)2+Yh`hqEm-WN{OG))71!rpV5HIq
zG48h1ciAu4kgzk8_mQgngE(?*n{Vl|t^wh;jXqL1^>c<<^BI3_RJQ;V`jXeQ6oP|_
znwn`>6)Em+7sjz<U`si;x#flFnt)_00@H#oknH)rqDVpHGDmr=jWNQhVgY9REZB6w
z6CwV{7P(Q=s9EzT9v&X>zc`8!w2vX7q=HUw1?Smz2QK$@*~2zE1}RT|Ykdx?FS&)a
zSF@GcbPNq6Kpqs0_g^-8sVZ^-2T|A|FM+Pn1m+A#ybMyOM_b6tr)iFTvS|HT;bMu}
zsgv^pE_HJEun4$9#ofSb#5fQLLSUQ%e}((n7*Bd@rhI*76^>@*g0@X5-US?84XUk_
z)|oG_IW?U?;49T0hb^-HI|IsgmB`OW(F$NABz#wOwDbWX#F3nvn+WR*LRHC?6740f
zpJEKKWnlv5&0>{N(;Aww504M3;98}b>#nNF_s{{G-<hqM^?FOfb^iX?WzJMsCusLM
z$NY9jGfX}rB?ojGfj@4Qff8#<)cv)w8pyDGaKYfdAcOqoci;+V;H`(OATbj8vLMDQ
zMl(f%>`6sKV?O)itr+-GoB)2r?-G}TJA~h1L~Ls=mjq|OflS7(N1CNqqU&}KH!p8<
zo?fw2pPr>@&j$@?V)NXVufa1Qs<uLkwBPzpzlmthTbpALOY1e&t_Oqh1M*jQHGy2E
zy<;fAM(|o8z80~qA41Mx9GgZ2yKHHXi>wlFF(6Q^G(`i~-!-ot0F=b%sitt~WWy0v
zW2wK8;I9)cM=)q1skz}f*>p3#W8?pQa{RIE(y)`0GxWhvF2^n7)d$WXSqMu+$AGo6
z8?8K#y65ne92@X0XdGPLJBz&^9_H*InH$)YMsSq*A(ow4n!md3eUu*@QEvmJd_`}2
zA%T+O#na8LEl7>cueT84fBa}xG&0kt#@Nv5Gam52%zoPxh&`jQKfJK+gbuW&2GG6u
zp)#WCKbnGcFd=IPHl-B5-xu1&risB=kuluSJnfukSaA+QQY4E8G@E`m;4{jGBO%kG
zKner4S7mTqYegu(A&i1e5fB&%iUdG3Jj^#Q!$N^v)m1|C@=n>w)RdX)QXdI)kej8#
zN{}q#GcO-Q73dRj7%5lGinq13MYL?i!dCeE8PJHsE6vw;N1i4)RG#^xx>WDaCd@<4
zhHWw{O#v+hm<lJ*THZO1*Onvc7APlR1-G_W&g&RHM(1iH)*Z;^kb7}ZAZ3A5jp>bm
zIetOasstRiM6c~mCHfj6wSFYVh#Tr5F(h0!&Mw6YypRX(iM=L1|IS|rGN(r_U;_J*
zAWEioeMhTn6f1f(R!bybUH)0&yP4TpR=UVcBXCSq4st~(rk~bSb+HFLt(;hR*new^
z?4tDWkoCsVk?-r+Sp9>(q|I>pcUn3_i}B_D_>DhX<Lzh&aW4ja+}3-t`S~nIt8r;B
zpX+kO-f_o`$koS%%bY$KRFH%eVJdFCU4N~g57;T<Q+gjv@%Ydce5i4BQaq+%dnrOq
z<Q@<_b68u1&h_}n$RvLF<jSyh{Ilid<&2K;u57`ya??>0dqB8MOrBT=56T*%Wey1m
zY*t3)wwt@X&E?9v*MI0FY?R&PsViYcCC2FlzCFgDeEQPwO|flwzWxoBmM27f)}NBn
zIKH;F79U9w1Xfp9Kdf1j&=zA*tlpD0h)biop8QxQ*C;&B(H_bT0v34djy9)DqW~tQ
z{p~IicUZDI!(MiMdU#0Ybiadxlk;=5|27+{9uNjGC|V$xjr|S-7O`t#tVXiZV~w|p
zz6ITkI{BvN|0FGqb*p+GYTQrgM}WTX<jk||NS+@o&RTZ3HTkR5@`zZBkB<z_KL05%
zC+7`+|5`RKkUu11EPM&7!M%|P9>8+IM5#Gf!Nd@PxG69P(0bh?_a-Pg(tJ=q_Qmzn
zciMU!d}73jiIf4*OLwcrKTmIz{K=}GVQDDFtaL9Lt-F~yZIxHfVJK8iN^kYMCHfyM
zAa=aS6LN|qtswG{>UG-2$)_r!stw2CN?3*cpN%`eK@Yn&gdw85a<{(Je)vb>Hd1f^
z7uv_PQ&1!k%Wu@N{2tsJOpFW{|M`t;+6z1u4=2D@!R2Zsn)SYln+^(@UYtN+f4)JS
zs{$p9{E)I2{OW}p6w$^IirYHdgU|s3E{gWa(w8T^NL_qd_;xol17H5fiHw1Xh4{&o
z+{M{?8P;4RFFYj>3aDi`8|;~$_)5LGBM^E@aj2IN%4T3x1ttD6xB$cZ77ex-I3IhD
zZ%3#^rJW3)ysh0}PT3*;Sz&MDH{*GR;l!(Xf3hKvVCS?eyLF$%EO`ys2X;UAZ5dC`
zVf<mYSTY&^xb^f>i@{G8o(BsD%D<T;TnPacJWt~ggZfuw)^rwOC86&D-;gXfwX%fr
z+kzVO;qF=sbR&ZgSL=MzzU`6jnVcTbAU0OJk#Y*e?CU&Hj|E67{m&NO;ex6fh=ubq
z^LUahK-S2JakX-ZxBB$taCRFK(gf6G8!a{?9|Y^iU-P9OTPhRRuQW7xEfBa?y`>6N
zFNmY}*C#&D9+QWL%<sX|DS%t`W#%ZDIKXeVJ02hd#^w8}Yhd9>ue$QyHf0fi`+vst
zs8f<wtu5qrBj`m*0WOF=`b7ve5bTf}VAa~atBU}8F!dF;OAtX71}oj|)}%#2{B=q-
zsmD#>G{cqSEC5yR9{ygTKi>QWE(S%Y2{AgxZ-v*szF_0L$%8)B5`71p?ia8(I)lVJ
z;yE3Ox<9rj-CI3aY-tWlEao~-F2zK~TRwrU1ynOgvQNDnjahKP7L4?S&~%tD_2vKL
zbwL@AfFs8QY<hLerExq;3QQE_DOh0v>v(AF(dUIM+Z&lr)(Kn=pf^VfuSm{|9KR|2
zZLl@S5h7kW#9jPPQ2e&Yy*6M9pdjF(eAhn{c)~Xrd<E=>N-_*?AV?%9CrvFy8jN#)
zUj(4aNH1KfQ28GLU`Lk#K|F4==Mew|xMHxALZ^V(sjT!5)_SkmA&dU+fIB{eeh}xD
zc;UNuC;&DbXV0GHw;SLe@!e{RmCms%AIavONq2+xWGeMJ6E+GVOTc_&+Y5M5qXr<{
z+fzQk-q8U^=38rs+B<vdh=A(Whc+@EtA;<4B>Ru5OzQmKT(j5j+5~WXv&>->^{!J&
zr5nm*Kmf%$7<{Wb59r4#3&D6ZyZx*+>HED}9RH(@mbOzUpM&{*7ZC7>=lJ;s2zWP!
z$cTZBf0uI=bcy}bp!@s-SCiO)M9#g3?{wn^7AW30?@r1rLQmO+-SmV3bARWyKyA4{
zm6z{>V!O-76dcl|Z`d%iBR;?;q4%JgT9|^uV%EKCa<xanU3C6ZBcCZ`gMUcAe-mss
zas%)Yin#WGkD+nIftIvqd*7Gbm@l#XR%ZWF@YEJd-h)cpk0O-?4Kua}t>;5qTlTq2
zA{Q!G1caDzM7oo_^0&Ne0vCV8-GV@#*t(JZF~IJFHJzcfNptI#-us-Zz&@Mz%kA#_
zhA0}Th?dlYoIAI5!`UijM_d@8ctOgoEEq26U3Y6Z3lxS=l6;H7KS<>A6S9WTJq5q(
z&kHmdL*)bIPwfC6J`2|8jpOn%6r{lbMO4{iMWrh5B*uWR#i%O(5gZi34eNwhRnF(a
zo5)F?QxtEk^aM4&xj?#FJo&-p&<=bal_-DZ3(p>ZylGAy-o(IMoC${;6r7cc?Eo+<
zBsoxE-n@3akx(WY(ZVQB02DN1;d?Q15Tgl+${yVvS^x6go;hirW_^6c^-1qa2?+cN
z9#%zM0-36Pj~4q9Rd<L2XZ*6nF^P)_-P7Z*8}$MkUBc$&A%p%sK=H5Do9{U&dFE);
zj^V$K%S>Y4^1K)n_;ND2nYED3Nq=p+^E#;efmkDFU)L4jUh|K4_h)q%8lBUrm@sR+
z0FtFW{(ryz{jcVMqwt)(yu=};2zYHiKqw5=7-&FkUNI0&08eAOzd55@?I{2=2^#wP
zi+`(3N|H<p*O|yh96Y*8z_x>pv`WydpullT6NIzWE!@_r|5Lc}e3LuKZ>d&vL1_c4
z327WV!`V4ez4wBJ$bhKC)|#{7jK^<E-RKu4$+0;V6B2;<ZFT2)=P%<DTF!<s<fSR0
z^!$;SXYrm9)xyM{HvO#=HHNXJL8cHUeZ~)&!2bJk_V}Q`4j;9>HqMO9KVYFK3TZIc
z`m;ICKKXpnOax17I1dlu_zLcm$B+gghftDM{#G|RMo+olZSTpAKg?nt9IQ`IZiGnG
zt@vXh%@UOkIR$~uzOVELy&Lka%gpMal<YnEtVr;b2c%DOV*JV6?2kr7D0q#j7a!R$
zNB%NTKEGqTF}L9fH-b>Jq7R%JEip*@Lj^IO$p*cNrShM|=<2}`dj(-k5HB-=*ua!(
z*=_*dchp6?$h5q?JbyEl$Q73fxsU_zn3$+UwZgnS-0$DtHBNs#^aqb=YGxj>O^^Q%
z1y+iln3x;c`EY1;xu3yk$cN55dv?3TFf<aVPK?X&0c~Uysary9+yE*KKN#UdUdN;s
zw6C%d-KWI|PEXxvrO}iLv7TLR2yI|~my>hWB8&(mAou*CA^q1eF)R$F0ZxB;7Ce_@
z8OBU)>;;&J3IZPuG9+lB&&m5pC!rHqc8~s`0D%Gq<td%IgY&{F4d53?cx{Ql1!!mP
zKm>5rwn9jy{n(TIU!3s&>S+Ey8*~24GKlP}Q7l&0TwD}@zx}g;<>VnmFDjDKWSwh$
z<lDZWuB5$cK2aArsq2s_HJVeK^QTGj^C$3@?|Jn1Ai#gKiG&PA?owqcrrr%Dz_TVq
zOucn!M{Z-ETzh%Ez@Xo)+*g{Gm&WWG;vDhxm2Pw${r%=`^y9@Mz3k-vB|NPZHq3vh
zGR(qlCk_Qjl`-)<W%y(Nt7OQY+3<vaz7s3yIAEYdEJ-OH;PJ5Uzq4FCR!&(+yK`ta
z<rZ=)_K)A>%cRpW^D`l}OeZm7`NR;Di|0a7p(le6Xz?SQXhQ}gO)gT0vrv<Qw<xql
zHd1j?9`|{Jsci3LV=FkH{zJ8Kxqn1y{!pyE<5_z9N->O0A$Awy2HAmB0hmUMiq>oV
zJm)olKHZ$#J!H(j-D8-~RF5K$ZlOGN{>1=YsYi9}lq`yn<s!o(jrzDK`$5cy;Ku3u
znr4zoa4%rv8P8C%1WjY6NFA~$kFigNMcHk|d&?-jj*@Z|dhQ(&|7)E~|BuJ|f9h~J
z2?y%r={`nAn@*1Q$>qfK5Tl6-oO5MmWdtHu{~odh_bmr6uX_#vCXIx2aWq2Q(F&O1
zf?@|lB}IOR?%T_Q-HCO;SfT>Kp$2>|O19k4Y0B?Yrgc=`lT4NZj#9+lq0oJis>ywv
zN+Ek(744Q6do|H(&xn`iorI2Zr!WU;WL>7UI{L8XZKwcX;8I(xox``vjf~kdk1F0J
z)tk>g;8AgLka5YO)==jBlIqfA;=g|xh`n~Ht-B1+6u~$}6R3-J?aW|$MNJ^%j!d2t
zSSZ<}^&5?~gKukHPIsTYEDGl(IjCs3xM*W)cO-1ij7BR+CGRV!(evYm@u8-}G31>g
z`Lz|bZqz+bctiX!cpIPCN^P<kB|f`(GdGe_vDNO<8(^pknTP7PE}Hd{r><BJWA!!P
zZKK2GpqoN3CFETW`Z^+N!pEV{D{mz!pC{ob$u+#NO5D^<Qk8pE-4Jb^t6e($^u|7;
zb4CHRLG(j^?(+)PkABqlzn4tgpzVug_&U)3eJ>?xoI>1z>|`h9=?9UB2tOP_$2sdk
z@%a}qkx4U38s~C~&|KqlH%~`=8Hmx-xtoFp7-4kNPgNrgbNP+IfID5KIC+tSe?=ut
z^t%?<P!jOTx6SCHn8hFA0^xnlp?X6xPqzpg#!$YL)$Zggu0X#4@S3}~$BhxZg)=iV
zs;(4>Q-+7f?bp@<K!?=KO#Du(9{2ozGs&#zg9F;Quz!=*GA-vSD93;(Y^tbH|7MaA
z3<^Sjz7L*zDyUbbwq7;HU}gf&au@@naPIEcqL{8DcL(Vy6)NR7*&<eUb^^F7;q!)4
z+x=sI0G{#j+bs4muR2^5H2#W<>(86>g4n`&li{>1Gy$C!BKmY?+=f9;tF8r0fc$r6
z=bv8$(qE*Y_P~Z+`5YokA2I&7coHa7N0MqU5I21Eo!)|y4FcYMek-3EIl|X*ap@p$
zM2+}XRaVl0sW1NFX;c(2kx*`7wcL3c_`!}%L5OSD9|lIxygYfJkL~)g17Ug!?4IC9
zAI5-(;hi;|6jStyKBUQKrecC%=O6|`4eUjw093xWw!$DF2^tfSX9$yvWy2&$0tZkB
zoF|wOk=IZ+Fj$)3l456X*?c3u6EE9iH-!tHv6N6a>tgq~&V`164POc7Pn8yr>rQu1
z8-c}S$QA+ZX#=KDB=0R9?~c>JsG3JcANYYA6=;lp-Qr;hDhCrW!m~1DBduZBW#w40
zd$!=YG6NPms%NOeC5u+*VFVinrYC^zpMrKjswZB+{2AEfF>ILG_9QN*fFoxm8^6tO
z>{A3Xdym;L(4#hq&n2>bnf%DM6B5Oq`~)%G*1Mg;74TJ2F3>*1QqbTBm0f8uCN2)K
z*+(T}=fk?e-0EKm3AR<*98_|1?Ma=*mTJQoAm*V8)@~)O4HTS@Zh@KRr{TPnUlAaB
z1iEbmc+!S3uu{mqT^G8V-1A{R58Te%tE0onx&fX7de;mB6HwD6EQQA}EgvBK+a;E`
zk$J;Efa=%W+%!1f%8a<^BIVHNMCevaZO^cP=j$;nmc*l><atk<oj)y2$oQYPGZl1p
z;?|`nU%tp8BoR|I4hn{H%vHI#xf>CA$B@hP^Ao%`FeDD^h{MH>>go-XXZ75he2&0)
zZllVcdv$OIgW>VW_%YbF@5Gk@^@IEe)T*+cLf0KZdmk5Di$zBlNSs-zME~9al-gWI
zW&sc`!G0&dprD<h7~B_q+B|=TAsnh!uE8~>efrd;ogXVjAQ-9VvU}=^(f@Rcv#|R(
zcKI~h2IG3lZsT^Y4i$??Yg}eUy6Fo*Bv5X6j%eotn;(u0b9qYfj(IQfYyd4%Qr-tp
zxCuxPc_}6uuyxY_A5~_^h0Ktp_-Vr^wHA2TK>++SHf2`y#`AcmzX^s2xcl#*`OpC?
zJ$FR%-$M`~{&2+c&LIA%Q9J+EC03x`*pL|v(Oi?3zFaVx!;?F@N4jDhDrTrP&@Y9?
z;Bx`ayhA=00Bup#R}_E9AXXZibbLCX@BTZ0<>f9`)nP!+arXN|84X+U)G;jfjDt;i
zAiMzn#vl9CnA?gRtrTQhL(StU=moQ7o<8R6t1BvU&{TnZG@7RmL$W|sVxg9Y%gERi
zBLZ`BXr+C{YWHX9TQT=~m3vL9Fi}Z;UHWGrJ35pNYv<RU9<L!YJ;Qm@?{mvwRMikh
z<bin-wd)-!wj={y?B^6;!h8B+Sp2Ab3y)Jr-PZP#l)nZDmRC<nY(<v&IzyK;25-WY
zUig~dnosExqzR<p!6<YKjD$Xc<5*fA`?n?Y*?Z-<G$8Y1O=yG3k=aV<1lwrNbWXg6
zjxAR0^ZVTXdkY7BFAo-ChoSjGM!I3Nv6UqzM_W(t0wR>8g>x_%bS&+d!3>4xOpFd#
zD1j?{Ox+*WWG3dj$B&ebABp1Ko57Y{_Lg!kDL8-PLk*n^Yx>iZ`D5{E*@FO935rB2
zEbgFs*zeh|YW|4%q}K1yZ038+ADzKrRAN|!?FC^hx84)@{k6es)ZvpbuFwQb-K&D?
z9vFxGGfYg54P)(?qpc{{9eq}Ger#Vy$q1NLLSwje5FQMgE}wAQ<Kwk}7B&A(N{C}K
zpqgT3G~0Vb!SV_gJJc<7E+7LK9YLmsong?^3``59hrJ_nvX%NggQp2Y1o6eE><m?8
zC9bDx=<xXm&R_7HOifwFyyh71CW>`Rk)RC?N7A|@vTc%pr{3F}juvp9l1C2Z=9-0O
z?;YR4=~x4Y&uASZi-jg<7_&p7*%`i(K_SRFxG2aMU{)Z4IQjw(9G=rFVn#Ju$M(1L
zU3UzI3ZdOfgL@*k!m!#;kZ!2^<6&+=8;}{|;epWzWZpx6q^yx9vY_U-K1_hN*72#L
zxu9SIQHrDuW3QR>t##?`!hLOiq#3!rFOOx6^5N{tF8aNDe;81CoP8OI`02I32bL$t
zuz+YuI{VL4%=b}cSZ(_}_Hvny!f~%(-~aj-3)lj{AOne>Ny1|_;@d0s;e}b}=|(?a
zHC!kSj(uve`esv&q5Q<t<pobe@=Q_6t}s<x4}P8L4Mb8xCf7m#d^PlIcJ|u-t2b7{
zL(6WWhO+~1Qt(+AZ-gvKAzee4iRj5byAIrXpE3rQZllMo-<HmJJ`&s`W0E2S|6&EF
z-xZJ>e8PE!<>cGVQOeMMz;vU!&hBZM2Vbg6o(4nxsk30p!+V;SOVQbwtGCS0b_J7h
zoTa{zQCjlu;vUMjD=F4t<SMVP-Bb>BCC7kO(;X_V58+`PVHc@5Gi~ySnv{q%Y-wy>
zefw2j?(s~OUFAwmAJyvqjdyRw_uKa?zka)WWlP1($qAWSMC?5R($Wr%5z)~di;9%{
zZ<41$s&4KO*Fr0R@<Gj`zunTDq8uR9ZzsL?BcrN{9zF+Q-+a350qAINTDbla{9X5j
zq`dyp?I#VBU^KIGaA=0H*q^<<7R&w7^C5)5oy);-3?dgQ5T!pG>~wPE)%u%;&-fi+
zFfN?}7~d3FN$~C&=<0fMa^erdm>eNiTx)QDp~+3c$578e>en+Sx@haC*%IAk1|J6S
z6ks_Rw~`*6mzw~q8ua{1P}9;nt(wJ$lEORY05`y7vVwsD{mX9|oc(PHq8i}th@=;t
zg6uv&KQ9ZPi+~W|p`mBkenZ}|va^$icM9XDp`wms?`moob8@~cxXKZlj%>?l<|Xri
z6T3GDeWBx$VU;@x$iJfY#RlfmE-x%Dz?fF1eMAxV+rwd%;<qre@)O3iRE8n>E0U0q
zG`o}yt1P(2!(<qvwC@`&G$sNkP*^1$q*Dz?$3lw$!M7PO9pt^c%J}{s=i>76CB0Z4
zao3%l9jfS-&=9Lfk6yx9eMksL%pDB{g<xwtcslvl7->IWH2T}pPS@A3gx2wjlTL5q
z6B1Om%Ds24!hef&BaZw}1CqmyJschR0D``K1W))P(^{CHUp6ca#?_*4bqiOzE}Tn}
z_8aoF2Oky8e%{II7QS{(5u804)^xXDKKLHPLyg+m-hN=na4|`h5~V!qZd*d1WovDn
z8pmg%zj#05*k~k>$SM=x(8R=1s-OOQV<T?9Uhy*tNl9x@&w=fSB!P7F^b0V<e_@N5
zgrpNDyCUacq}N^_7G`^ANe2M#rE?{w4fw3z#{!Fcv!Z2$h2<a1)(<4BW_??6r&sau
zrqr+YEPBs51AToQ->dO8cD>l!FE5?Nf0}vvmT7mXpRc=GI^g6kusD}l)2xK=pl-!l
zOk)K?3V!%KflK@Juh+Lr@$Iq{tDGxkFV>U1De?+byU`&8TciYoM;28OM<A*!_U3kW
zc0N`~xb~L!8dAhy%sXZS`x5JuOSc0uq*b~j>aq$j@ww7QnN19t%__$y+9nuF@4Tdn
zh^VM3Fa~%YY;&Fq1zF`o_V4Tp_~eC!D<?4C$v>NEO^1A3#{)rYsSu87dm5Lf_L9GX
z;gpQ8wREJ&2(7lF&83}D{8Ca8FxmDXFIeFBt`kl&J3QIySWP$xF7GfH5%Y*Nj)58<
z<O4NoefQ108%Xh=A_JuQ1_nHi<v^<I6c~QaQcIDQpI=ybi;jGG>GOgs-SpkM_-h7!
z-i+{37;EEo1Qe4Xryz%iyS3Ezqhy>sD;zSsKXX3LfZmSSj~r{^lL+oRIsM#xYzFEP
zjM+ZVA25Ui_Poq-ygjGcH{%{BOiV*wd(iG8(EMo{-|+sQF&`M#A|@uj|KI^Gv;^mN
z_cqK4SteX1z||EArXxLn{NjL9e_;`kN#Nfy)33AO!dT#Q=qge{2!?U_M7J70KR<+V
zjO8<NkkH3yrf|1<?ya+sGKisIh;@8C+DR-?$G^%YJ1-BhDr$h61{`O@M67q&TLqJ4
z0;1G8a1}Hz2FXI22@LQrK<nvQ8wSPjT#JL5qSe(^z1}y`>}tsqzrMY4Nq#O6OV8I_
zKOp4{pZj81?u5k@ZQ1?^xjaC5UP*5EBicwD>LUc2b+Ohtt(s}g^HAkjLhut0B1oW_
mmJ9WdTb*zo!oAK;h(_4VJ&U0}4MRTQ>9&HZe1Y8kC;tNg)`j%|

literal 18108
zcmd^nWmr~i*XE`{x{(wFK^g_5K~hCTRJy@Hx|<u2MgbF$1{D#cyBkzQR9YIOTe@fM
z=Xqzo_d903Ki|9)$INr6JjA{4y{~IsYn|&n&qc(|8)~Gd7*8PxLVERz@+}0x8b|*U
z;=@<`dg@-m2Yd^4HD&k+|LrMN`@;t!$1D0S2trJS{>Az^f;mKxGssot%Xd7JmPUMh
zZ*LvRul0ZaEUEFrgh$||jh4bY;mfWPEOE4W=4axtvA?XQXN(6+_SjXWcUNl6x+Pw^
zdtsB$nOe*K#rbHB8j_^&0Bk&`YaQ=ee=6obeEz~0<6n>@CVI8|cS$OpNmqMNdr;Db
z<Z9O}XX?zWB+gkLMM5kN4i0NA@j;w392`>gA^{QM;hbiOVawu{V!s<h=#Sra`L){y
zOT(4Lr&Vc3N*;Evt+%t4d)6x}w;*LNyJjz*jJ<TcNP=@gE;6oHh>{Y^eGo^&FxQ~;
z+BQXacoyxHv>Chuk%2bi@T-Jq>|k_f+__TNX;S&+%a`$sGOXm7y$(|jX=$cpX^*xb
zaybU)PdmSC@>@HE>YrSFagLpf3$HnhynTJDeSM{Rby9k4kL*{uLyY{<ye9k6-VsJ-
z<Lkw_!D8+U7cQ(#v7Io8iHV6smFDG<m5;bH-MV$lasFML#l}o0`(l?2E{omR0=44!
zsLyI^jn@VRAuh*u{k;x4BcJ6`_6}<sn`cQ$Pk#L}KpI9o#z>9((-)=ow-&=*@#(65
zykypZ(9qJpE|+B`cQp<hTfGz~=I-BG6{D=&6Nz1soqdX$`$kKGn9WUN<EYlh^kKoj
zV6ko*8a{4nQaqfMKWY5&M$Kt4w>)8yw7FrUOFo9))R&T$mX<-xn#S41MeF9x09b;I
zf&vPmnl<e0r9n%3mv$D9@tpj+Ciu}nxcqqa*pZ-W6eDf7=ldJUkz_1VX*D&>Y`$w)
zbV4S~MRmusIZ?}oPrGK7Fc`U_;^OtC;;yFqj}O;KPG7)Xt=(b$($Ud*kLi+q%jSId
zgsT)5;=kXWI=<ySvF^Ece6TuIIh*o$x6-wuD`>I40V`w7v~cAtCFN0^6<2mnj*5Xn
zLRMCmRY6`+(Jh1m7J8=W1-IrYB%`cMhmgG`OY2Qbrbgn|tuS&nI#`eTF$ckeP6y0c
z6YqJhVtFJZFHi7o{*7d*2#5M3@ddr0sdZ18nIc#oEQMWPIrd<R7w0sn49o59T*n?+
zn%4PNRxA~Dv{bn*W^5ae3Hk4-uTMS}N+=hq{7qG8*&ZFfe92*yAG2MY`nr5ErqE%m
zZt{D&(o9uVl@yi&L#X+RQprJ1p&utl#?9OrmV%DyrZT%B$Jt~Li>6>A&p)5JJ3Tz6
zr>7k&jb@~!5v%?@7G%8V!|j=(k01FrP7*TN1q1|s8^7(I7xh2qI@v;mC|Fx(d&TSY
zyFus%*W{4Ahs95pa(k4wI8(H=v{bPzFsEC;PkZb3Z4vw7iY&kWOE!J{hsQhhVHDV~
zCT(!j!j9t#E=S*zrA5q}aNoXvuhj2m<kBg|!_WVu65|&&Vp_O_F1TjSKAr1Wo!`3u
z$&Nn~usl>gmGM}x2@b)tXU_r?5*T}WdmASl5rmhQ7eVId=bg4*J$r_wt*v$YHjYMj
zLXF+kt3<wXsg-sQA3p4{<5)Ia!)yBTim%YT8UK2!91EXrUT}7HRP-C&e3L6TZnPaA
z9TeX0WE}Pw^Seod*D&AZSbuV~I#t{y*NjJRgjA12qo40?q@FOB#g5pA^)HG!r0(f^
z^6%(c9$ZmYKIyhjIZaGVT!=aHzKH8;tY&8?fE|eZ{P|PZx`#(*^Sjd8p6{A>ZM?j{
zTwe7`)l-jFjc2j3p-lD_SmZKm0ekP>efe@t=Fg|IQODxq0s^G{MlPhRK1(7Dp@FcS
zhm-X6;WlHBL^Ybv#>hOn9E5MaG*Cz?=O6VOqPCq{Qzno*#S{C|uwzi=urP^dtqCk`
zvwiuSk`kJY*{&G92R&I@dPR4M;GQ7kuzJs>;~y|DA4lF}iwK|dH_$+4fB#N{oPmQ+
zqTuX&0du^OI%RsYPrtO??eMcd&zLx-Jt&$*I^*{H8&|GgZT$I8oqAzoI?hxTzUKr9
zhC@>FG#rICa{pbW4dc6_Hhmu(8-oZYoGTp%@5Pz_e0$Yt)zEKe*oFL@X3CR^=CC(;
zd3isat|v)Q=GXi=C0M(8%XRL1qtS|UWr1}sFM3=B<A}>gz4`1br(?t2SUtzFm}NXE
zK7amPF&W7xY|#>qZ<jG*sxhd>!GTTlV_--Yl5CMtju*joWo1`Eb0iFobQ;gK0sk1e
z{W-~t_>kn~WN<Z<l{vA-u&601uQnj(I5?gMV8PFGV&TMxhhM?Q7pA0qhCAzv#JzlJ
z_C4+LOe-Ef3BwtmE4iWO40F9Xaa^UadT_HpD-Ist^WlTdk@MRZ{WY5;>2gzByLV|y
zl1U>$^m7f*sUMXewebolupMgF@$pF+gMa_NOTr{h0*70y|H0k6qTVSpncn;J?+eWu
zv0=OJXlq~fvMBJbhef7yZsjoUZ%#2N5@~I1MN<I(>D#w%QOO-F761LdH1zbAbKldo
z4)_HHLr3h@tgU$iy6IabHjeYMvlY)!1mrD}ehbT8tn&J{)HWmIxUX{A+uJ+H<_4q)
z7APia*RGv9r;%{iWPagmA?}Ha6zx0#n{NPw6+0gvF<M!aZUh?W>qmTk!F?9$5A3>%
zo15G9Ar(UpG$Th{8Vz3~q)3*Aq9%X1)~r|SEq1(JUY}l8Mu#R>I4cepX*5%0PIr4H
zBxa<gA+<g`_(+FM`<I0yULKwXA<Q~4JoU!dOlM-E(QHE?j=-P1+dBTw+8kSHb(QTl
z{&Wag&U}46W7jNv6CT~!pP*TCSVe3>$j0^?&im%2nM8*+h<fw7n>o3;t!op_>v8pm
zc-q?9dL>qrIv@40kQoM8%FvaO>cnzW%-%G<<%bU+8sXDID0h&)&cGSl8S}5N#4PlD
zh`(^}6fYm&v((fWCWo5BAIpq6k`Rvg^ap38xIb5tI4Sk^_9|-k;?w))=NnhMb5IZx
zvIl<`)%a*qYv8&vtWUx$adT;;y5IKw!vxQ%s7uP__9HDe`L*Y^SI2}x$=L)UCANOl
zFIK*H?;V9=`0I-gP9cig+9K{tdJv|{kmx$4CdzWMvM7!YcIZn>OBD&(`#$QQMZ?}D
z5n_x`qg%P!eYpjSc5wTYNI#U#2uOy+@4L^7YEY;8ZR-yl{VFgIn)_9nGuNM=x{DSH
zUsE|qC>9;D0_OcJQm#CAN!T#E>1zi^lThZUVN2)|G9wNTeWCEg$Zp4b9`DVz+Le!-
zLvPmDW8_|+2#J!+{@j}koBq5Eh+K=kKhrZ+@6_WW)mXihuS1{@m!qF)B#INUD;pj4
zjvaSv%F`xf62aZBj@GtHuhvkzo1Wd8+SqH!$87QaD6~}j@m`Z{{f8Rc>mix#0ZWU6
z?Pb#akE?LIbg+9f%SlPhPOu{dM>rIidilGO2&|7q!iFNDi1((I)6#&569izmtj{)V
zfQ0)}JcERzS<mv9FJI6%d{ZXb-EZnIkXJdw2oDA8*fj5&;BpbR>wWiW_nNKp$M;4c
zYq4(2ot26!NkB$xeLPy^$Irxd+><+vP&}p+pb9k)&#yl=a9tYEf|~3y0_cPH5K|B7
zo8#ie+mM59?jB(ZUFUCYMCcK+w?(t?T~k*Nq2S;Qcw@KonL9Q7{O!zer7*IHRlilA
zCgCUemSQAIAN2|q`3*`w)r`Oj6#5;wyRdOA_d`7j8C#_%AY-OD+TXJI<L9;2t4o~N
zc|Y`J-r{}2&DAkew9q~=hftXO@IJ+QtwqXySVF{a-&IRXi@nAqzXJAIMPL6l#8jor
zY^0|A(H(|R_JxIomR?;`fg33@5Br$pF}|Oum(bvY7Y)NE$?;GShC{Xak!M_8u%lFh
zi4`&xBx$C&ckdqhh;S}lj4l1J2`f*Wot>dd&KxbfN`+8F5jgU@)P4MT-N<YD6~t%V
z?j*5@$BL25$k*2wTbBllTZbI#1)`ZHsoaM$@z)?yThK2AOB_9Nf@H<MNI=fYT$aB-
z)LOI>YiLgiJ8$!IApDznE^mMuK)TY-*OzHYjM#(YFFuIg6RbFXF$%{OJvCq50~Hi1
zj09bV_BAWEa4HIyF$Y6qkv%<k)|bo2LZ3Jd7TwD*t;Z;Ki>7C1$IJSZ!FqJbpBN4M
zZgh$)>mG6M^z`)L2OjkqI=t50PQ2tmrcY0Z8{9lWc#xqG-o5&Lwf+PH_(_hE5Vz&h
znD1HD7*-Z1qb;S)gRzsktPdY3P5qBb5wqya-J)0u%(C8h2-(pi{#BUl%jeIOq2?{U
zrbo*m6c$r$Q5FLQ=1mihgxcE8q1WGH>JI;?i?}WHJiT{T^@;GTf{sqCmw*52MV?y-
zL3zGVEMjl_O-Qdm;iGB&=#n%yH}`KmbVGON-o&7Xy(O54TCuIS2f@s|e$diPE^j+3
z$j@&}(Et%<N73-Wp1z|>zxcjLz<g4_wH(e0^a0`yqs$v2bAjKxY-v@9_BdX2-X}gd
zIYZeTm%?Gk9oztE5l|w*9UYy7#mL8x*PDoi%!bPB);whfiXV_es8<?Sct<VkRxHlL
zkM<oJtuEx`lj-Xk7({jmR+D6Bhvpvb&8ALe=j1ir)|3rlR|*|}EL2D6BQOO)<+|8M
z3UCYwP&gBik-;I6d;=nbAir+k`qP6HMMBs4pLq7=Oz;x`H<R@{mfha~kiDrbmUq11
zQ2(HdwPy3DI;<cL^df~Wvo}y|NV=f1@BmUIgQW9YuOVR)^n#~PpU(RDu_XWt2WtG4
z)UET8k1$93P=CbldQ}_@-7f}k7+kXDDN`_L`&~5mhon$&!>a#@&+pk;K%AUhT<KX^
zgo)yI7luk4##n<0$lES<$pis{fns&WHn$DUO<914_CAV3MTGqNdas-+X-8jQUklA4
zkT-t7fvae{=2~VYhL!aE`6Hi|N&>Xwf>eYgVJ0!_t@LLx7rh{5QYempdUh5q3yu>Z
z^x{@85)&UokWq((git7&btZ^aEM(`TJv8W9R~}jclusN=#uCXQ?QRAreddx3v|G<#
zynx1xB(;m)xi_QE?_e^we6$JfVXF4AMUnprhJ;N{X3|@u+p$+$ccQ%hNC4WLXUWM?
z=)17SaK9Z%R|*q`TC=eYEf|_e5d~<U3Ov^*@!4sH?Z3v0kjCQGhp=e+Z<UW#dk6_u
zFI@ltIn@$D9WQ1>hfmHrY{vX-AHY{5fI?kJfB?TI9>^b@#_Uv&UDl#umU8`ci0^tN
z*X26m);|F`^HlZ9_2LIzZIAGX%^2_xG4jx$JvrGqIcB3#dFc9W74}fq#ET2UZBOw%
z>_v>sAHr+bt`#^>UvpVuk@cp5YNx2Gs(O7Yd$o~(4HrS7IeSO)4Q|2uL+6i%<z$M4
z=)YcGURSPNi>xxXTqJ2$0I>h*v1o?N^Orj#l(^Vfg|>qie$@N>r!Q9Ru6We*9q)Dd
zCqN&3ry3IYv)8ZBLwC#VzWnQ6nY2qebew15QTdt4!YbC=n3Tv|RHblP9#;DuY)4R@
zRgIq-sB*LU#NK(ZT5k$*{iEE$bRF7S{bA=0ftf0Yx;@n=OqXuVRk8lz`gn0Cr|!v<
zC-`A$Z@d;hyk}%)#Q;hUrck_|ETwIga1P!hUfBGRgzs(vAujghrTV?7PhY>%WM@aB
z#hyJ_51K!{a{FX`4>YAfep3wZj_H0ABgZS{v0{taK7Gj11LdPrDf2S4GBix$w!-Ch
z*06o~+1XSO&UCO6ll}F_r4>ipL!CnBdg(u;j{hks5p{wh|5(@5uXp%9geDqD*57Ae
zL)PX1DE44fZsVevM)%j|68mz)!_D{dv~bWe0P##lORosmH_$U{zLoSpSS}Acx-bH$
ztrd`bYbYtx*X6vLKi3LjC7-$%GCvaJ<GWZN&cN(*a(vXe#jTk_1BV=NL4?y(TSR1J
zq-wd%$C+3G!xrcx-b6p1Gx~mCNX>JG{Xs^oD-Z;en*RIL&^p~Ef7kh1!ihsC-(+M?
zizlO)<u922NN3};<82Y&i0~`{n_?8d_r(5J+U9=@>>q`4Gsd<|tt-n+|9&m15oFE~
zdr0%)xb+8hI?pLljpDblo%e&Xvo)lI+&KY2YrTwL9cr`267F(HCWO{c;mr4Oi>>tn
zZ@FFHx?r2qzCE+zLHP4+e{X!}z%p;zxsqz-1rKZPxqw;|hoFsZ)#rcHDC#N7MuPN!
zEU7U~+S;^aVL0~X(i0-{Rb(37{2yMyk**%GzbX*dfyW-qRSHjR#-RE&#!Ix3m{m`V
zEgQCy3|m_p<z!&dg4^FdWHb_t<Jzfio(Sl?Uu-Lf6xhn)c6B9Zy?x7BF|rbGS|E}9
z?J02@MJWyIqyM10A^D4qVrWoSR;CjE2if&MUbTO;L;ukW%;IE`Yfs0>!#~l-(96*(
z;v#3iw0@?=yD3Q<9&SLD>NX@XJ+^vTf7`cZYxLy!v3r&h2@9#y(XtMCRCsvCIJ*@}
zi~S33<UefW{-Znp-}{0<<81^Q_n;BhAx9dO%g|k82L^EYNhf~`w&97yR?z}FkSgz8
zHm|L?;q_7y<1nGd<0W_LO@{rSqNIw19or)3&!3-Zmth28xaUiu$a$yv3mSkHDdbUw
zL(8$f@M8#nB6(Gwl6G&f&7iHg1T)!ORf?lP#!Qbj_Q32$<J5XfkNElXL{ND{%{hl1
z;2xm9LQs;*1p+eSlsRYI4{Vra_B+qon^a3(!X&#Ea~;#pmk9%Z{rZLLBje}qC6f}*
zwqfOJT<$B!$vD$U&!F>_K%+Y?JDaPNnT!BEL^{HrxmoZWH6}uUK;e-dGQ!94jn?g-
zJrj<c!`xajo`ebi)@T3Uu|5B;_5XkQmdx}KpIQ?DKxgIU*#Z^L+#La8Q5bp&e*Gd`
zMZ%maPM}DN`H9Vp`yr7VJYf*wxa*~_e;V4GLW|Z@Q1O8M)$iq^q|{2hS6-FYNtZCM
z7R`Lw#DvvWoC(D&j~-!f&i%ka)}UaULCrz}5*_MJ2jP=Oejr!Tdiwmi#bEV(NlD3H
zai7>3y1D79Zv7#f@wR}e^MwVfCCz>}35z*(ZEZq!fJ2XDvE8d#va<n9a~gHrFV>f0
zgT|CP4^lQji1oei3~(R@EAD9HIqnyhWW;7?0}!w-Sx(PBRdJ-+venL~34OY9GWqPg
zw`T_*IZ<<E3_dVBl7|zgXuq>E!qoj<lK^pD{zVH(IWqwc89-oYj)`J4yF~%ta2@`(
zD;|WyX)zjR1qbpu+<!Lhnm6@Im++JLeP;<~3dM%0b<W}U-Sfd+vq4?6>J@aeN=v|v
zXJ^OuJQrh28Qvl~#ruVNVRim;v*Tq0X{4`aoFh`Ln7|R5hc)O%(mhs30aftflQCQ6
zE&hB*T;)2CjbvqKTmNJ$f@_*9V`ztIO!6;Ha1W1HE9K(_5+-3Xp1g~l+)=t(kgsqC
z@h9<nm~ekkPKucf7~iV`?7{Cg8fQ1ec3G8f<BhQxl=>Hb3v0t2!!p$3^W<#F{;OhT
z-)ntFmfH1TaEw>0hX07p6@!r*#T?i{OHTxyju>(VKrbvvyp$U+%9uBILA98@pgx8L
z?1%W$A82vSzPvoI<E{d=H*?+Nf4-RfD^hax64v*@t2tgw**j(}TY<dNJqifaZVM*U
zFQscXvgx{Y_=zV&pO&+iz8_)+Lc#~y62)<_#4eUKmKS6s@E-2v_)+%rMMA|jXHabs
zpMC$<+&zDIhJlq*j2d59j5yJWIeRrRd@+RlCX%IPy^Ae|AiWaUiB6){xou?AgcEje
zLuBmh+3;R*Q)j2^iPCXcOa6m#{AYUc|6Got5DN&Q5D+8d;K*=^l>PMuIth#8!@Y`?
zs>P>CNyE1+IWi=Y*Lo%v7rulqx}jn0SUo~H<a)(<{P1N7x)8n8VgV4cQNZ|^@2*Yk
zHj-lkyf$XifglnP6X&qbsHL6u+;5mA>aF0d=EFEow9-MX=ZNqoH0XB&bWFzPe<*_4
ze8V<THe}xnddXi}TF-8Hc=)$#Q5Yh1!a$IKP~a+tj0Y01HjJGddknh|*>%cEz+D$>
z_b7cAs@<eY@%?kv$p2^y6)}E%xXq0;j5h|E7Y`O#{m7s@%}J?cGYx{y>hm{QV!lrO
z48tFoZW#*_tEt#s?m<?*r{kd9g;fGwk&zb79bMf^iw)u7zar~>D+$6feD`ui7Ny<G
z97TI{lx1=KM!jam2*<kQ<&W^l=}mJfDJfe8tPy|cd!inmhR?(_dXPTR+{Vumkd^wd
z;48_*8Tf0!zeE9UeqBy{>Xfka?@#yHXy7|#Kt2L_t7c>hve<M-T={r7)$KcXf?++y
z^e~%qTDHR#T20}<BN!XHWOtZR9_wq0ER+2Hj~HRw0bv<nfYEi%a2W-i?R(|MywJnb
zp@BdrHbJrOcLTcPlA~1eK)t{GA;$lc`^2v=x8#jND9klom>=#9@>?T2ke^Xfc`91k
z5n%kAiV6nc(riBz!p(I<>-rs<rH$<{HcU8lJZV)`j3)W?v#I`a$QdCaa^O+#eJXqQ
ztL)`|`cSEj?h_X2GL-`dVn$iYuo3%qXvR@>XJA>&zZCKX9pK)JUG)e;Z|q755I)Ld
z)QbS*rkOveYzK(-?$8xGa%PDDAm|B^0wBdU;sih?Qnj}ibTw{&&ZQ2GBXGb$FJIF9
zo|(axILh;08LmX-2M8RX+e3g~_?jxuR_ndh1P!*9p&>C+aj;S?f;sfO`{2PPiJC*u
zImN8lX!2qpa+F8P9oX)FjSmEhRY_ah#mnUoUr$>bxPaDSlkSqIB3vAh@+Oqn#1ly)
zGejS<aR9m!=|45FymsjquavfSdfWH7>}(3f7EwVyRwj*ZGtFy{I%9XWFS;2Mlnk&k
z8TSjkCPyr)@?DKJv+~XSuU@@MiV<gs(L13FiYcUZ83k6tzP$ZTN2JiBg(~~c6^Vwx
zfjJ%SI&HYe2^z0~=xYvgO2ur754ty&AV5ffOnl|0nhn$ZO$T#x_L;8K7$WL(XJlnr
z{Erq*(N4Z*t%-QX@A#Yas@X(S2oeBYGW}}ZLEc_RJhXupa6P?33%vWC2_f%OyiZ-c
z|Fr=aCCA^No;{Vb6E_UnzC5uXFXL6DvSYPKB^H2+s=Yb7iTRj>7Ze$d4;X&nVh5fp
zjcHrmG29*uqO~j<v=td+<Dj@wQ4htZ<!8VDiKFG|I1NJ1ebLi|xD;y#=>~VyTXqNZ
zMA#k;wL6>Q@q3a4#XNphYVokYr+&z))Z!?yY|^0@z2M=Gq@tpt0-v3gr}xNWIMSy6
zs}~>)N7u*+4^V~N;hGW&qbQ+anQbFT;{#>~j&>|$1a<ohe5gbOw3QOT55(-#Q+5Vn
zGsJymI086O8i)wcB-w>LLGJ3yH;sX|^K}QPbLkHmX;cD1tz>@U-ka;V{ASCkEONhZ
z5=766xs1mKch3YWAi(Brl1m&B(AXTbS?g=H3zHDC^M9cBwFrNgtF2j4xJ|n_b+@(R
z5p1bug@9~%!XF0w0}bUhkrIwO@c)Klvq4zHR6Dd3`wZpoQ|&RA$c0ehAK-bv8%knS
z?9C)jxL5zE_E^PdqYSknMkFOAJ>lg3fFqS8;nZYX@40Sq_x}CKs>M7dI1Fu1P6zdy
z_>e+8%_J6xShkq~CjiF)9%KMQI-pxk#l_iK7^v7`$7WI_U}?!#=6HAN)3<N-1)3AT
z2vioPY~P0SblETV<pN4+etG_O!qKZM(2&ZoYF@V+0y6;+ck0KUuo*XjpIm!U16WE^
zlYH+Zmq}G#^Smp%Kv8AdW%i*(OMAil)JkefM*co;mZ7-~rXZCoCgT1uNjo50&16Tf
zVZ1M}#%=uM_n-G>7o*SJ$tgRkrPyxM+=+YjD&)_fKf$I7S=o_56r_Lr`0+;>0k7sn
zTs3udlipYfiOhv@AJ3B^O96Murt!fwYinz&1#(nF1%X~mSGV74Xs`Mt>Ill~!s=)B
zJmu9MS483d{riet4y-W*#c~5L2R`tqJyAR8Df1$o0a=}fhQ<sKX;IkE8A#=_mTe>(
zpUaLPsGH=Md#M3-agBY<*q~EW#08~AH-=UA`x`a#!Dg!$7FDc{Dk>`KPeQ`O=aMM5
zSk^$x6oIq2G*sSo_@o3P7ML5y$0X4}K`;z*5lpAF$=63KYg3(kU@4W=!tsPewc9R#
z90+oTi~iBrTS%{qG%Ah1lUR|-6OQ-R<ugh6J!Q(I<90)3A-*9-gyw^vg`f!HD-sS|
zV<qri_rERwbb~qI?jpX5onp@vEAU+G@;QUGK9~M%Y$W>KgarGbI%_q6UeG8UBpi?`
zhP@Ya_3AOQs7x5k$V5r`L!ZwYfojcy8XvY-Mu?k*3mhjD)xR04!=vXt_9m19*9izi
z3UG#0pD+Z1Ga((wu76Y*;Ad_c88H`q1W~UePAE<^Ba@Gpw+RdmjQsK&yjN!v;O!Sp
zM|mj-$G7@T9b8PCijG#e1LXgl=i|FW8#%_db@wFDv>r*C=Ei%U`Qgvr+T)QSjyzo&
zJn=+<h0536Vk|La6&aGDY7d@?+4PMMK1c;9uge2qq7``kXvovet2<#b+)SZ?gT)V~
z;7!6Hd;@U^3=X9lw*Em9HhI)-Bp19th;qG`sb`%++D{+N*s#?Vlby|*shJurXk29m
zdQzvHaL3D7Bvfc}q0e8I#yScYH*zE@m0Frnlc|D{{Ij->PAGT)!uW~nvN}3Cn&V6{
zr=3fy$mI_yfVXb|FAo3oHN^*^mXJ`<b4o);XV9lsFf*8Twf<P}{Q1ky7wUO6m3ye5
zhB6w>UdjS~o?Y!c);Q`~Sm@1JhXfsb_-Gn9GnCp#5IA-1v#F_dX6-<sJxfd^hOX=G
zXDU#XC0%CDKuscXZx%++^xL;@%|N_|o<LDcixRB>Cbiz?kiciea8~LL?4Pj7j~?z>
zA1Qr>Z8rHUp@(zo6$7OTz5+zBW=#<~xuzNk%?dvr*uJBku^6BjQB#fe&5K4S?a?gF
zDD@3=J*aivHTa5e{bJO5kZ+xxt>AnJAQr4Z03o!1YBriF=W&L^x&z!tZ0o<(xNjs`
zIew^z1s*T$H&Iem#b2qMWwix`S>d-*Es)!&*8!SGr*4f)6R@9cb3fi_LDhyX5ov(;
z3JM{n&&bTghiWA_>bGND+y{qjeRnFxvNe(x2|&vgxClhrjp|JkJNwf7ZdS-~5cSb0
zHq36A1Fr}w5g8iPi22TCLag$kD9|%AAlgZ-Ll^7S;{?%qfZ1(ko2)xnxmX{-{BUfF
za*JXU^&I^gU@euTq}1nuE~nZftp4LH#QNHJ5V^SCilYRoKsVeko&d3>CGB$1xT6FL
z=FFkQ43yb1K?*|<rBISaKsyB>Q22s|56%F3S7UNXUlu~#0x*C8(EVm)qNfL<Z5q!h
zSK~`UV;{14hwVKE)<bRBa%1#<Pfs`AFHYA?l>-q&)F!!-96>Q+_?UTQk3Z}(H0FKd
zw<>>ZzdN5%hf_AR%zgq+vU^c%@^y{r_u*NA`@iIAGFtMG8oJHA#R^zMN2nk;2q<=I
zppB!7EntV>LCpGOD-g>qZvDn#!^1{TPG7_aHyb1LvR|9aE!&<nwnZ^Ld;T07q7URR
zM8VBX3@-8CYRQcg=NWLjIjnt?xpk1{=m+6x=ulhwc}KUx4>{gR&IBjUu+M63)ONjP
zJK5XJObd8FPmrn<^T<4B>Vk7l6RRlioic#n@U8n~YL=asXYU;L4BQT4p06mc0{qd^
z*MG>m5z{8VT9swm6scm?_)E1OFE^X_XLq-foJT}l-Xb7c3AcqiZ|q*>CZ_ZI$fX~*
zeE&hwKQ?M5jWVao*HgVXwQI1exexhv^m^ZoVf+7Vy&~v;O8o3`_aT;o-GLALQZkd>
zKMIhlX|K+HO~w3_|2fgjZEq@*{ZU8eESV6~m1Bu?1HbMIYo7vECypFqCgyQcx$i7y
zFXioi4xzvF>)W(5R>4fsJ7Ctq$di?0bNC2<!{dbMfKT&W&)ADNqlnQDpnHA&`Zc(&
z;P<*G1<$^l;`<C5$*#uNKLuBo4GjRnoq}$_dvoso;uLrmc+Q`1ga}K>jq%j0T-6%u
zJDwKuzYNADv_rx|OuVLPfpr0O=Ilf?xDq+$M{A|4JXQsL7&>{akulg)uuX}^Bz7f;
z5rbZI7onz1ZicG|vdVgYVhyFyS@G%V3b=UjBC4BjxWk2^!t>9A)n(3z4vHGE?@oKu
zaS#TlK_=6yay>r^H3Y34T8U>$$h5jL`*~8VR+DJN0uFXoW1ygd$AMmv@DQXFC2$t1
zM@5Ba_1>nzo0A~WkWRPYNzA=EtDI4+{H9(2NJ&T=%3wQDe-aj+r9r9KP(4Q!{&TX8
zNiA*cKw{icPlDGP?Ueqhw8|W)0WsqQoh99AW=bu?Gm*zQPQMd(i8&oF5Lj1du<pc5
zdk7w{$M`FBi@NB)?aqL9OKS-(0>(DQZ&n<^RxWX8Q64KQ1K-ia#N^ZKWOry+4-XIj
zx&Kl-@vST?i>3eaFbH1S6haKf5AxKmFbHj0G}~Lo$oAc`Jj)?9o2y@ppDdj!7qtLp
z3ot{%xk3A|4btb`^DR&>I&JU>RIJ%@_T#8I7gb2dHRbmHvKgXp%678b4h{tdI8O%F
zw!oj16ct?nO<(@*Alva80ji*ZpR*0^a9zBh0)tZAfiK2U8lwU=2Am-S1&foU4?_1(
z041PCipY#K|C8ei&__EL*{LYCHu(7XlmM_R#&#xNA_uCBTy~S<93*AIRnT{Xa?Zhx
ztzd8dyN(Ju6yk5rt^T(r36=Q1yRkq_?}9XDzikZ7C;_V{LT}>94v+w=Sy-`5x*wiQ
z9#-9RxwN0EYLp#X;P-$NNHJc2P=Dp@#ssu3r1~C{EfEFjba{Ri#NX-Z=um2bM?j!e
z<I)H&G83}eoa+NhSOK`~nB_6d0A^7m7uv?jA5M_ZlzN3wfX4!DUD2Kol6k1DM;^el
zix0lFK-vPL*(>U59q~C1>(ijZ4%A9-7NtO^27kcd){d^I%O0fhza-Wy$~?a{>`egk
ziiFp}g#`KfGEiLTuAtAsF4mNLTN`LUCZxb?<Gu_ynBc8ZrE|e_S{xc(xTxR$=4CrO
zyHD=3Rasa@w{Kh4VgK>2osoywIt`$n+{a21j8Sr_<X|!ZmSk?E`qI+&r&*osF}Y#9
zIeHK~zka=L<T2vLPG3Yo;co2iF3#$I=mdSKB~+4lNtgTA*|ht{R*dMke^i|uAFO{m
z3#edwc_<86nX<VwIHM(~=y=lg?OR)n|Dol^HnC8R+3`smlY?!6UCFjk-7bfT@4Cu{
zJ4oXqP${1-SGz5S+K*IWDFnGeI7oY}h&r5rK>6^y|B?F6)?$B`k%@n`i~fK|1H|du
zy%Tl8%D1ifN+=i{=aK*phBJIO@Un^u+IfLSv3HUN;sBh)XT8T>hdd;ddxl5nd$~JT
z<&>S>+{<Se7%7u2oA4ds(e^jzamF_tIv$;nTQ8MZDd+a8pPX079lMgHYSNxZ7Zn=*
z?VdSKd>j)eM`Tn6&-Yb7=E*1B3gRIPSIQiffoQ2^1?!#4`$ehE8^(9ZgMOXC5Iz1s
zr4$S#RtJIS66Kc=B&<0Q+|S}3aR9h;O^OMGkzv<vjd%$s3w2kN{XAE41<5xkJq4a2
zDX`Q912r1ov9mfBlWSOxjpS8Ko=O7VLj=u|ApZp_r2Qy!bBdC9**%X-!)48s*om*A
zb)#J4X?8ZGV3FQGi&DNs+Yicz(p$gBWj_3iY<Sm3=1Ik*3pTiMS4GKJyWCtL#0SLg
zT2g;}w;L6_h&%hZIdPXC`nenLH#YrZ&s2}Fc3aw(r(*UCtiLT*ktOD?w@bx}M>$C_
z$398qq3mRBXl(ulrz1xvw+TGC-`}azBLPFpZII-k?Bw?!HfQ_Hk%dn-Q`)rssae?_
zQRHE%=9IyV*ZZ$U;THTE+tQJd6n&?Y_ROjES1M?y5|vn41I&fS!gFu7<3+Hp?e|g;
z#VphxI27yOQrDv4Iq`c2EwgP?LcZpJt+@Kk^@3R11NtQL!V=<bn-IN&(nqg$q_t`c
zezOQW?#J-$lJQ!NHw1#W>kI-1{}j0I5G1i0-?5*w$5g|Obo^u4Z^QfW)hPUe?CkHN
zox@?ub5&&E@wzS0Iu*ehE`qvkb##?>s?za>iF*HdTTkTVsXjO7l&KuHzjPRA%}Ibw
zBp(fDmtu6`=^lMP>L}J<Bhw=cTv)K~>FYaZ)Umqr2KX;Gw}|@0?LA+SPFVmO<C{m%
zvOq=mtR0PSW9xX9-v&RMVbF^-Jb#0)yl%A}7XU6NWym#o^~c_xGOQaTFcAP=(7`b*
zQ^!U;y=r$m7Y{gbJ(+7t6#swdpZ{|L8w^ueT?|G@On+}-(Kan&`Hp_Fqroe%0rqJ(
z>XY$hg@N9zQkqtL^Vw!KyC5NofbgQxsh#G<on|INW!pErr|zf}VjPv9ubr0BdH=<%
z+Fz%o7h3@@gY6c@YZi7)IpMA~o2}*vuZ6UHK(?wi`wmrjstipoo>orb_&96L$#P+^
z_2I`ZE{31!FI3KQJdX)W`+Gp-Kc$)fEpw#xCJ`IJsh~@-GS+(8O)qbyQu<X&C%S_}
zr}vaxv`$a4^9?;&wvTo72DfuF`wE>|%kG%!$d6I9zUjq<fOnK&Mv(jr<yz-!{D4T(
zB$(GY<wQaC4S&n2T=`AwI>^k=n*#&#&VF%wWnob~m?p`*X2Zx~s(W4>3WIwX&Nbu7
zZr~!7+$7TOaA6!(x<#$X2yDw*Y`D0%uoBKrNHrQX<)1TB)1pDOWH;}oQYZ<3$-L?n
zI!E=bR!b+fjJo`G+G6Vm>Y&>3Cy+N9C|@W|K*ULKSi9ycN+Oh}=(BQiaE9&GqYJ_1
zkd`MnVGyV=?kW(|USts26{c+3&J>E3Iz&1m{B*9n92L-(RiBTguKk8OyT)gap3pH<
za2->GN;mSJ<Y?1RJ3lX^QfyduPu!5BY}^~)I=6peebd*mnyEhj(Paj8!+Lmi1*p$(
z#Idym^%?kL+AX7p=3UPj#qh8mlKhj!`#-6{7<5*qMP#`RYMDf`aI2rqBR6@{D9n*c
z?{o7Ynj!w#y*;oq;={F1E#@qos`2~Clg_y8Mt~E~gZ;nWj`6Qh(Ej$n|0fscU*P2U
z&Vf~9KO%(=XsE~X2U28k{Uu8GCddYKeED({9Eh}hIt}x#88C%YS&icSt)<S9#%E{M
zp2o!yfT9dOH`Hw|>%EB}NitqkAax)C0IHhNQ4wsq&75prn(C3~25<@r(qc1sZZ5kM
zYO7?lV*xD;Qym3^{2$)^TE0oc)p!jYHbL+uAoy*n$1SbEhwm;OJd!YPUq19~_v~)H
zfje;<Z4!BQHk67l?ZSE;Un=i`0bL+Rg+@q4bVFnU)St#_=ZQzef(=kt3q4j%jNE#)
zkpR$ozy@f7Aj8nWF^JnTAPu{|(!tf|EHnTOuq*d84{jgFDP47M+WAZn5YC(oXf#k^
z)2dhS1S_~7$Fjd&Ye-B-{pz*Qqvxxa@1#7^D&TXjK9SQ`8Im{j#_y5Cq1Y{BICdc8
z)Zwe<>)8+tSYr)bqv5`zeszINWffOzhmFwG%cAtTk5b_Sg`Sn5HEwY>8eMrFac((Y
zNo@Z!U;HSWeHngLG97XR<Z`uVl-YcY&C9O1P)*ER!@4B3Zuh&e-O=<NH`m1TuhBdo
zavKA0M~ti{CkYz$<jIn0Yo`@tUr0BYeV3W8W-Yay%G<vF>r;$5f2s4u3qM2#Ba*r6
zRNnQ!xS1QMKX|3v4SCPT&1Z6kLQK1uU@d~08<oW;G865aP<H~zNho|G{RQ6e#;J%y
zHEq+sIRm0*VJcQr9UVI0+o+Ch4YakvulS}$=Fbb$k3fk)clP1-d#b#@EmqOsqzbmF
zG!i6ahjFw-$6U06|Ltdip*d(l?hX3#2njie1~a|M=KWP_69#?qf3sU{fRz;5&5juy
zq^C!jtWWRVyLXL?Tj(&?gu(K!QY8%yQeQdK>&wt+pKjn(DfY)t0<IfWEAaZ!qJr1N
z15|O<f9y+m;ocXT>#r}o<Enz%Z%w`X_h{h1;N<-C=?~<fs->z`0s0(xb4zPOeSIQ;
zF524E3%3aaVU!~sB9qAUDL82X-h-ATn=XZnZ|vRF)eVC$1lxGYu!6%AoMf<OBlciX
z3TuAmm<tFAAeKfqRh~9n@O?K?wd{J1O$r<`F!L4+Qu)|165`&3nGxXjxn#~Y3y-^3
zgB}L@VW@e@m%X%yj3A3u=m1Jhy7Ay^7rD;i5p}Cd$z{|T2oCrw718DllSLhZ)G$^@
z)V~iTRtt!F)OlxvDbT3}=$JCON@22t9i53#x0YRRp`L7|H!XSFr-}JPy$-I|&gTYu
zdwY{GSy=wI4|tUpm|mgIa{*OV1bTL2RnEWWQb0c;QMaxI5e8<ec0;&IQ!x7v*AF+k
z3~wz$v-FqilB*P0?sL$BgP|g0rbX#HfPX4Z%-0)_;MIE0S-M*2F19{bii4q&itS%E
z)Ok1v2-m76CMjH{-a9LHpVQTmir>%GL07lEnhO@`Gu+(m&kf$F#i-uD4-W!UP`01V
zZ^m_mfS#u(%#jAmP_e&|Bk;iu44T}&p0aZ=5^-bKGA)fSzlI8C_Ta**(aaGrnx}3}
zDfS*bkkB#xs0{uak63MCEp2(D11um0fbrF34^rXRX;=?bs2DCq#(~3Zg?Y>Zm^W&1
zzInz-Aiw{y8k-+Yccw-&5Y(2V?VuNOfHeqgG3}_ebQ<KMW*CzMTKai>8_fruk|X<t
zcn*P>_kD1-p2Ax_?9QA3QeHDl=Q}vX*VdZJx$orU<$bHE2lTriYz<R;<mF=+X;3VH
z<~!|?>pA07;w0u)r<P6Kl@zmGamnqQS~hK061TO}g?g+$8u0AbfCI<8U%;eB50u9W
zn^&>1k>FO<M!mc+y0;E**RE{?IRKq%0eeq)sZD<*tZJK)8X-HFiP0Gr6)&$!l>CHI
zpl9f?3%rIt4D3nOIu(WIZgKzm<7thDjkW$$T?o?64bD3qi(8QbhGpTv#O#Rl6X}8}
z{V`lt{DW$R0oY(cfHwrflFKNkF7w;YMH{XQV_nR*Ib4pvw#z<~WP3=~dT}<w;98D9
z0W;0~<FkNRfN-__xw`x9<Fup1S0RhR<?VAvszsPwaHyMubcecXKxzpA$MCrsKw5Bq
zKy7RPcU5e1F~2_gpKcgS0r<8Tb%!*0ePBP1F>elSH9BjMtDU1W0W*XRFttSKkqerG
zIdCu_4L<x6&k@C!vWK~!t32y-B*G;%yC}aB@omr1<x{p$5~Wy}xV$uYkRsU*#|emf
zVFFYFb0~4{dVD~P{4oP?iBEEFfJrdLbCL)~oER%BD>b~I(<q|C<EO5!FqkNiJj~>|
z_BAZ6xi?bxt<-u?Oi3q7<iSuUjI6XU-<hyZhSUHwj=i&RNDeFn>g?t>EF%HR1T=@o
zIk97_Y7ZZtx38K%hl==+;EAG$!yW2U_4!8kSnaQ`!_CI{)VRo{NGkU*mdqn`isLX{
zqynCBMK_>PpMr}XI1NjnM}e0&RNMmKr;}?CGCVvS|Lfog!*5#045Myg9n;tdI+Sp-
z-(P<wxS=oC@CW$PD{NZN-b(gdP#c;-3pCik(YYkh3tNmAK_Y2~@uv_tNwz~}0-0Se
znTF_9w7`;f{W8V8$mYS3=kzOG$D^%&OE@A?eG%e$5ZDz4>tA=;R&p}`ao=?xT*9+T
zt*Eh*;H1DQV1n7+Q<D7JckcB3R*Ieg<T6Oj=C?_Sk_I5TPr-4I&e2(W%!az=e}8^q
ziOCoSGR(yP$PFG52Tn4Npr9&LJO~6~pu=Cr#X;P&I`v1EjIH-Xl*ptQKpItm)-w}C
zd^kzWu=vr{eL(OP0;c+CTup}>?%|t^9=YT6(f?>rVIYGm4-G+(i`&rr0FHUzlY=pb
zk{cyXtry2&e;?GTG2WJOk^4Et3a3^)EI|t5ozWj1wB)>;==s;cWtlmU&;K@4=}Q-}
z!-4&*uG8q&Ep%EHyeS|Zpxy+?lIYt|oxWdu?RVl>?q?XCOxP@b=ZSjHLd`{O*pz8b
zN5?b7!EX;xMt?5=PQ|Og^%XUA4$#F##Q)g$CDhlF&!0Yp@4sMxp$Ofvt@50)c8HEB
zJYu?r#jPg$@+p83tuX%(1V^N`x9jy*qS9NxhxR)7{!UIJOYYV8bPFSYgQ?x>PlRgt
zCn=I~ohD%t2wijtR@!~30ralu6j`51*opgzFc%`er%bJ(T^|GL)y4xB2x9PxKpz&{
z>tHW1s9Ph1Y4QRpUBqSPddGsw1=qQo=*(~DC^=<FJ7TYL2h1uwpku({X|LTGeXR1B
z?)75O>Rd2|=UjT&)8u5BwHLAao`zp~46^YgNG{|<UFgg^h@BZAW})@~r9Qlais@Lx
z0?30fokm%ecNT_jftUvY2*w2@VaCFHYoXW75YcMaJu#k#m!k6^FvLv?Atg>;xlk2d
zf4r4H*O$u#lIf~hSBfm<YO&rn9s<h><ThX-bU3_eaVudN3^;&;e&iZnB4H3l(AjMm
z<Uq%UVAO;eh7XY&sl4D^Sx4PCU=><}<-$f#ITD2Efo1o(Dlpzr6xtQkqa!FI)gI(N
zqUOEX+7;kdQHpJqYSSCS3dnqjnhf++l?Af)G%slseu7ad;ImKZZ=+*$sAr?xSTGJ9
zj{wyabOQ$(xm2OIvdF~FK`UDG!Ic_WaO7EQf{qo!h#9*%L#SSbV>-<HTxNrTK^S<^
zGBDr`rU0mR0}5HY?E{8TcoU)z%g&X-6daSg3;jF)-B=&gP=^(?0EYbAXr8*K=|YST
z$dVR6GE~@ih9Ef$La`aB@hXN*odjnJ3@e&~k5>5*reJAdgb;G!<DWlo!91Dr)vFP6
z-S1<(GW@l*JL?#2h!tv}(3=ZU!Eax{4Zxp@zV}4qA-!vdKzTTj>LIoM5m{a$0frG*
zuw>AY9e3fIFyr0=6IViXf<`<bdD_V7<4^zxO^*t`Ef`?61^$}d0G5hU$!561DFcS|
zV1}f9iV`j;Hl#v4eq}1h)E}f33z#IF`J-^=49pP#MMjFv188fh*FT|12<j;{Od(Rk
z^rp5pI?mVWzIEVIJ;HwA2I`Rr0M|ko&%#o$O1OWFV`f5|g{hA!C9S)8irWCWB;J-;
zLJXEPI-K|`RIHEeTTzY1Y;C-eH1_?wcjgdjApR22@#_UZGI$+kfc{1en0S+$jEf1T
zxT)Ryd>wv~#m322ekG%w?^a0lQ>6mqqb~a(-4&vK@mRm}f`V<peg}YA0=(>K;Idoh
zkELcDo@}qgbGz}7;H*6s2rI#PdMC)<m`N|m(b-JI*7*AM;H%4HW;pMggd7_x6kHt<
zd^##-q8Bd&$*xx^-lFjiOMLqHj$J3$J<rtO4{S+0{6|*ZDb)G~-~DZDh&T3_iw8+s
zEhxL^UDutA`(5T$<V#KMEGQ$CpWb*c^7^_=j9;9H6$>IGCuiZ{&~=fRGMAod4d0oW
zVA-8%+WB<sJ+D5ny7<bG50$NNZ<k4!n;IFNN$hMY;_r(31iu2Kvy)Wy4W&`PO0CI>
zw(8aAXFC2&ddSIZ9B9}1y9|$xPEJqb<t<LGtdLb2k^Qjh@xZTlabhNj%uvvxsj07j
zbL#_cO1?RRRjC0334V(Ixw7(d5!M*L-s9i9y9`}jU4ixVJ?-rTCZ?v(uAl3dqod5V
zz!^Q0kO^{mv+(z2_w~(9T#as>h5aMBV2Y>rPQSj69~T#=p5K_1l++-qL31kP6`w3S
zu2eEvbaZq<adD6y|Mp@{lqybGSlGbGh;fz0(RsGD9jr8y{IKrs+wiOh2R=rorUZ;*
zt45GO8XK{wB5=2NcKjS7*CbaRC4%jSZfesi6286lp>^FL7vH#_Jve~#D(IfS4-c7j
zb#((T;%}|31>E{jvh5W9iRqH%nO_PI9z4j>$q8?tvSDf#)eueWRPbO4pF1(ff%%qG
zSPqw=?1Ti60=L71Ym54j+0Fj`4ims*Ey82uLX`~LBgRzdw-My3$_?c_MYBi$1tz4=
A82|tP

diff --git a/reference/Rplot009.png b/reference/Rplot009.png
index 77f83a1d8a4b385a0c9b0e26ac75fa862f590b68..4e278132b49b999d4a42d6ae5fc09aa050f93867 100644
GIT binary patch
literal 8614
zcmd^Fc|6p6zyF~SNhyhJg@n+NwJa$Sg|Z|xRCcoO%OIWVku;X%VQg8Fz3l7IaTt-E
znd}M;#uCPoZSH5zInQ%m&%O7#ujl@G@8dP|n=!xd{C?l>_p`p=?+L%5r^Uv?!-60P
zoAy-=0|cQPr#+b&;S+QpE)HH8?_bl>fLHkYak(Z0UiP_NHT6UgRu0;eu4g288$kpS
zZ4GrJzohw*KsTe+9qJNMX<$Scd;F&0ttz(rhcbK4mXEeF6OJYi{t_k_w`4ByOtP%(
zMcqX{^DXa}+zF}u4sovttUX}{kMDBxxmuBn=x3Qdh%yr|BkugFAt-EJQbStVYW%p%
z!Hh+)wF+30)suv|f%buQCDY|kN;Lz19ZI4I(p3;drbCeFNanLJab~xas@+X;na{i#
z`6mS76Kp^=$b@~gHc&2LN2;W)RW7OqtPR)|Xd%d?;)_r^<ZP57UGR^oc<-equDr}l
zjo4GVJvj7M53y;&y*=Tama(z%<}X~hG)w9xQAe0#hFny)W~Q?A>)}LY|6-kM*W`k?
z{pQE&EsJWGpJ_(&WS#3!yj;IEvN$+wDIV7&gi%g^efeo_aj}8gW;dp<tIKV$q+E3`
zdcKS}yMz}Yz7#VwGBeAKJg$)9mQ39ysd>Yha#O<R&u_ney)P#(uM@LSyP|jH<RN&V
z+&=6ztM+neR?@=o7bIWseIt#ZaEB9F20423kFF2xLloJhw0Kp6K67$%R*ls7)(A2W
zKV)DU{@N7LOVm$N?B3bHtNFmUz1i5<7QSI!eH2FhtTs3I9X?e#JL|aqQ8cyET4v^3
zJC-CaAu-a(t~Qs5#g2Swd^+;(UgPi^U2IS4$|Hg8hLPZ{`GuBfA*qDx)uJhWzo1|b
zvsK8GA7e*m`}2A|*#uOF=Lbsgd)1@d>%ujDxsq|y#M~TfQT|{+#<y2jfzNm7)m9y)
z=h{f3oYP>PD=F!?l1Jv&Vh9zB8}93y6t1$C8Tg_)ZGV9d$(FLC51MQ_WMW~laDeZ;
z*Rc0fb^)K5JC`qC4j8aYMSl~nYHrpf4U=96f+2f}i-TotoJWpS8i~hQtPPFr5>$3K
zCT6x`CleDB2ZxEKcF9w!KPF=hQ~IkW7;1xlEI%hZId>!}E$D}A8g4Gf*Kgabj|MI#
ze_sPzC)SV)YiJXcVXDkPcXj*FBYLQgq%bKlv2K{U7oN}8{_C&diE1IZ+1XiPZEtUH
zaWS!*vOKzDIQ>-Bn9N5^>~G>%=Z6$_+!c9m`TJJ|QK_!?WqFKc5?%_UH)pbAGK-6g
zDPkj6h11bnYgvoyMz+qKY3h&8*Btk1ldPD2$iyGzsaNAO-;<&eXoNx~<AQfKR}&T8
z)5XQbkA!Pb+FgSUFZj$&Q#Q@X_5w+BFvauI*%o_MJSMNIz(Qj(eaFxyjZfK$yE|LP
zrlvVho-oSE$>qF#do{*uy6c3t!IdjbVk0ItHd!nzEa0PQZi-1|rshobk4gT?7K>G+
zlss@o^!E=;X1JiL;MF|KEHyQL47s>Xs<+yk>^1675<9{&({EzgFF@VEA1;(W!je-}
zrG&0pU8zYPU=l4!MnXH<5*E{8nq94N620&LqH)sk!2_d%d&H%si9hc<?6p|8E*^dL
zZB>=2C#j>qFUN3*moxSG^0LQ>TO(UFDJ8H++U<PM#=C`j>h6IMjC^nYfZO_rFZlzL
zK;I*F)wjo8Do@lYCtS~kD}eK}Jic_^Z9Mc_M>5tOb@<fvuJkJrNA^7Yx>UJPw?0bo
z=9_<1II4$Cw|kswc*MwNU}zYt2{8rB+?lge>os?+%epbW@`%DIaqBccCNG4#d!C$M
zLJQTV2(DBDS`{+Dc~X+6tnH^`oLpQ^tuMu@za=`ISH3@QPw16%=n+;~?K9*#XZw6}
zl^kzjVPKFBo_fo2YmjIJ?-S11%|i5bR2Bv<RA~)WxSF`Tzn7|-<Uo1%8#@<vma<m|
zT%b!+Sh=J1G!QZ^+2b4YF(h>KXQV=iAJeu{>qBkFDoEQA*^p@^#l37uDBW+#>>@3r
z{dtHoTzuO={s3A0n}+Mc%X4&vMMWmc{1yBecnJv!!;{fBVBM>yTW;bO^B_f)m6Z`P
z1fRyeeA%KDAB;6is<xLMTo^j#$-;vm4113KlY`QV)78Cu_llo6Q%bw=>C;i3FVNwK
z9e<F`l{KTZ)zu#gFDZVcA9JPNR<NU=OEMIXD~5rd9q*;1qZhZ7HM>sW;;r>h_XRt8
zo@!7(csk*_8K!$;uX>u1coXi|eP!FS9aei1_NWVzcrmeOz;))ONJ@7RWdFf`@i6)6
z!aW;v8D>g|>gT&EniZ^18)tkQXLT7huE|-o_!F#<i`i4op;OvUPV46S4_!Qh(+2|f
zAc|s1VT?!vLihjUaFIYC^nF~t>HbfskeyYt@&~3^vZJG;EPB&R(ya7qN7aK75d=}W
zMW7$f))y$a{r*y?^2+lUyh`bVgJ#+W&dvn~coow`uDv?V6X{6mNFJ!Zh9Cj?H%#(N
z-@UsLeN`i-G;rMoN|_#R(P{4U`@wQ&EF(Mr8SMa4vagY$p^$c>j18?w#+7k%sEa$1
zFD<N~Ep2RU2v!v46w=2P<uxuDmdC1{m%(M0gnvln(T(EJH4D{bDU^E?r?{kKT&8?>
zl1itOXO-(1juu?PIkmNS!Zl7hl^h%&ZBmNw$Lp)EDC<XG{dwo{^Pn*j)%aEE_F2#2
z<p-l5{YlB$aS|r8O<b0J<<3L0kR92MoxPZMtDpyJTWP?mqp^uewyT=g^bIz?^F}d7
zmX<|t-n_|gkMU9`5FQVclG<h`L{op@itJ@ucQ0vz%Wv1W#?V4!IbVfo`^!@S@uLwA
zgQX6GmF^i&*p8o?S;-jg=`qm7%IiW|nCb0A5Q=R|TXeh#kw}!_$JjZewYltP>n%SH
zZbl7tNEh|hc5|6yx`j4yMXjx^6jqUkYcFZRm<{!fd^4bycCVXf>zVdLywm?%A09@n
zB9fP0M+K<`s<8`)8U1FUE!?w+hywidA?40klK-5v^$`|y3KPF*_M(P!TLO}8ASS1v
z0Gqz2(sy6j#U;Ptfam<Lr=D_x+ll>_weZ?Uk8pC9)hPd#rVj2gMF|ANKTr)0V1Oa+
z9X2~#GJ{|LSDEKu%~1cx##u`?(2CZXqrH@w-ZHP59(iJaU!VOZWyY-3K03+skJOOA
zccXTtqxTu7M5*;hj{g4snUYS`SmAyGVYcBRgITe4czX9+pM~Lsf|@-@8lJ@_@G(@P
z^z=(m!DBL^e{~wJbYDhWTH#;x(?Zto`(5px<F2)@vr__eVq~2NXHY>)O{Q3(Lz%_p
zQj@r_F#6S*UObq!@wa5Mywi#4JQ@9$C1DlIgL~$sIvqokJp-WA=Zt9Tv8*Nho=p5F
zTcWGy%ZG%u85sB9u(Glu*q&&py9VY*Z%>}<Trs+Js~O_`%9Se~9b)_#b4<^~<Hj#O
z@ph68IYv6y;-&hb?d6Qr>}_M(e=N;7@0P>oclXTd0?Kmp@_LB?AaZhZb!h1%wO`t+
zr;K`-X*t$Yuf4sUmiKUrCG}me-4s7f2w%JOdd(19MhaEi7-x_)FTZ}y_R|g6;?cT5
z5p8G<jU60vpaXwXU0qF?v4hlmu5+rTEvDuxv)@1FkbyupbyY~MadC0E1qEgNdzJD5
z*>otS<hF!C3i<ZQjWw8^R?WE?l7yJ>0ELpD)A2+9of5q1z^4*WTJwz#Ni%6VHqLfj
z{w*{H6L<_!I^@SS^!5^dM2-tV{3WeIg`)q0+nINDnjb8q?H<h<x_>>Z?nEq{FZ_WZ
zE!X&P%xy~9t7IZsq5emt@JveJLU&#fF4wfg*87JW+%@mH>#s{26Bwu6?H`*9zV&%O
zR!Gogb;JnM-~`y6l}l>w)d@PJMS+`PxX4n?d9ZY*vZ8xgSzqe~?@SLgHZ6AC`s(c5
zGLw}XF2j{Kdr0+}YzU&K+l*Lxbzey~15m4{*Njxua{D@^ki2IuLJDT&X4qaW3PCN_
zQ-e2`!LKNhu0a`XPw5fCF`J-61OOp{DEM}wtV2xD7;$;3ZFOzP)tC4Hrd$9UrR?`^
zZDAx2EOeTgUS)GSLv*|534)}poX>YSeWYi)JEO+xD3~Ymc_*FgNVPHey||RrEe8jO
zO#uW^RN=;iW`h~)sXL22Ki${xZD&9(7DX*FZ;XF<#G@MI=i5#XA4LDu5VFxIK-pgD
z6j-lmK#*~YwensStLFVQRA_*$$b8`9vM`tfd*BJX)7905@&q)T=QX=XCve{D?FCz~
zArWjiKUCq=_x9#&Z?=BG0EAsl&}jr&Ml~ayDJteg^}7LBQpoz^*x1x%IwWdQhS9G*
zQ7#ue*3zdVCoL`QkA2zyz0!Tc$iyTbS9`CKvFZMMDFGHFG$?+_xQq4Z8E{kRCc8c*
zoGbH~(kU>nD6Fw%Km=WF_J4;vt~MWcwQqYRsdFmU?A_gmC!??Wwlg9ZM_Z4L=jMuw
zaD-31s!)}r+0CLESsbd6-f=&;2l^9k>0iJmtTK$BS86GEsJDr#=;{vDtp`w13)-0A
z2C3c~dbbN;h5AiRO(;251gX<(78*Y!qzO%=PK-g$OOEiLUrCx1Bp<=zI$?3WZ*-kq
zd0YKxd!@}Cq2oq}O!IKFnwy#qEEJt6Q-rR7z(kLvDZtLDQGav}R=B3R)Xd9k_ZaG{
zWZBE+a-XyHYWv-L>2_!ILvr~p_+*BxufH;Pxk=sK*#|5{w%A0`iDdt834<ke`kTu@
zC-hagj{R-JnEjT%Hf_$D)YC52vW}LtsJ#tM$ZX*Nn9`h^A?V9vE=T+ezQJOfh$PSI
zMckIr?c1MGC9r^s^V=#JZi@LdN+CTx{lf2Iy21N>ZGK43vF|h_Khe4e;|&i{sz;#d
zm$C}A>r5#iT85y$xGB~>fa(4H1To(<1FTH3A@PR1IEaLvf%UpiH0Kl+N}>H5pRhe^
zy8p-6iHLVc&)iPCeddkE$=3i}9H(02%qm<^f48CUsK1tL?a~v#_UYC#IeS@;p5_Sm
z`XgMj(-tcy4)~{Jvr5<AuxfsO0*4^h+Rca>rR#FQw*<Q*d({63fS(%1sJrWO;NSq>
z;R=~lIwZ6=c1dac$&)7wi3~`nMb-#1hF%}3rtWTuXq#8K^aBG?6BGqIa^r2IZ}VKK
zMpWxyb<|eSn2EM_`06p0Fp~eWGG@n{BaF?pO(d3J<y90$?;rEbppG1v!zK2TniWx8
ztp~`&x&*)+Ug|l(QWqE1g^5C1_vfdaQno6BO3R@Ji#U-lyIiQRHCWNKe4wI<8Q;PI
zL1Juf?xdoF`LgphWRg$mfeK^wWgE-A>r|1vyyu!3&ondelARm8;1Sb2qRON|z}nC~
z3NrTyRGgNOAiw$o1~-{!tb|}ArH0^yb1dtFXE5e-BQ+IdQSfd|+3|5yjgR*_FJvuo
z<$uSv?_vJlN<j4QZ(oOp`oYqw!Z&X;A(IgS&rc?`5m59<mz9lV1E3FyTlrnaCa8W}
z|9^^9%1x%XoUyq79;KL-ImYq(Pae|lNmBBZ4c^|!Z;xg+Fg54$u!OA6ZI^Tp?Eb}{
ze~T>4yNq^UDD?e~wnP_ihX}<v)@zxve}8Y5>anI=)IKFqSb52EvnO6y8?w@Qz!QXp
zcw}AbqqR&PCN=2W7Ou6eZNO6WVRlCVMv%F9HzWh7m@jS{l~XAGaXJP@`~F;G9{C4<
zy;WpU0HhMd8!!@h8#GS8!-n}_1}?84p~<+zJ1@h_&F=rQJFDEO<WIPqHe|g;Z4M6(
zZJW(YvwHtmi+~vs-4tb00W>9AI0rBjV5t65hhAD9SKZl<Ty%ZaFEkDuM`_J=HMy|Y
zn}~{UuYv5RHL?DWOv0a>!oShGgT?%5SAeuT{j$#ePrxc7BJw9-C2A|q`V)lGuwG46
zwm%q-q^rV5F!+*kTqf&pU8x{5aB4t1(2@oVD=S$3gQuQwrLP+R3aX|okF&2*cG^Gi
zHvg~o7<LhPcSLnFgww^ZJ>a<u7q!nsmN_3k?Xy(upu=f#SA|h99LcC){kk01NHFxe
zz;!ic^&q3N2$1wWzjIsv4C_90+2^LK8~H{*weU*B(T_?*KHq)FMLqH|Lj2DVW1ydQ
zs)M|&@bz<DU`2D}anZ4LIiI=P&O_z8z|p=E7Kzmcc$lrWRy$WG7fO^EvrY585Qo>7
z7x0|s-bl<48d*Iyvy4=zPR;pSVB4f?zlZVrjnirOKt;-SDy%x?w2t-AJE!%$gNEie
zxwO2Yyrob`dz<=Mp0U>4Jvo`4zPvKUnX)~RDYmBO(XNX+d&ncw<W73J;f6(w_Q_~_
zD(()Kn%LG%cB&(!fX&f$Ty|n256}`$Em0?8G6k7m>SPIPM@B}9@^U1b+`2`p$Zt;J
zOw-W+mB9OxGsv}<4H#aQ3OP{upEJN2^lqde?*R$k18wX6>heh1`t-8Uct`HvS;7hC
zV|-tjk0pON<hJ%#K02tu6Nmmq&h39jw3DC47+mb_Z+Lo^K$*6%vdRE34@iwhMyem2
z{{E#A`c(}4cMrshIFdh5-NpP_cnNWF19$f&_ckC3TV7Ool4jE*q<TO^$=6bUu{jy5
ze<Y%bLNIqV#f0&$eQ#u!;0U*0n;RfxOiJphGaz>btyPd>^4ADy0`%Gi_=^W5pfNvl
zw1l5QY2g=EX`|B`C#yMr3&sX9dm6zwt{knCMQIVj*w6OmKu<JSA5y=1wdE!gJAdCb
z={jo_MvuM^kC*^Y%K9%`w<ljPSzTQv2u(@qeJ6!OAM8k(?%w>UAAGWNB_FT;f;Frm
zV9(?`8vScNw)u)sh{{_Z3!&lLGJY{>_dQ9X9ZDqLx>bTXbXa_9@97mK0R#1AYR8s(
z%^09OK8g?~CMD@%nBv6#9gvGm028JJEo(cE;YI?45tY7t(-NTCGKzwxB+mPNPg_;=
zk3dM#pe=xgL!QkmB0x8skEiRp?4KgqxgzU5YXrdkHYT>h?|`CyzIlZnkm{+z4geT7
zo1}y9DIW?=DTL|-3fhw2oyU(K!~OYw2ao@i8}+y?zgy@DGJ;<YQ&b@H*<~G>1fwfg
z9`AytlGH~6Ub(a?D7U-SXO1KMSBEiTIKh3PiZt8x`f_sO#OEEWFV?p9i{;ybVRtTv
zMw^TVt>}(;_38$I?w~)5oqr#_IakuDHzTQ{zq+E=G&5=<lQ2hdKDQ&-h0?QqvgR_B
zY<WEG9Ne~b`^So$T?a1>jzX8{?1>WQ=vLcZVyE$a8Jdwjpl^w2L))4S=-_w13lp^W
zECn&8^nMe|Z=<v@V4NDtbOt6Dx-uTM;2>;93n8__i72I;q<9mGz%z}LX7$170CcAs
zwU+S!?^_zdFA%)(y0CUxCoVpo41TDxP@s_-xS*7bUK;?u@;cVp5p5}?`TT}3$4%I$
z1!#>S=cH0_7ZP?#pe;d@E{xp-lNMIbitmurs17A5gdwhQ4ZTV>{OB!%8nTP)lf%yI
z;Vwe~A<6cssrCX0>K8iy^zw27DqtoHoJZbyaMHFjW#n6cw#!UUmQ<Wh6}#GY7fm{x
zA%nbg=ir{1HkkcPTg-5=P1_yuI1if26``52(5^7%m1EQjTyV?IB6WAsJvILNDHMQ)
zk(x!^kZqkLIS}M36np~&JsP}m*;<>Y-2fz!n%idx-^#&Py*^s^pefy2g&>(oMPKDr
zu!;ad@zojAuSccsd|oIomACH_^!+~mA$C*^hSGrk0zgD5W_o}~s=m8FNHs>{-otC&
zrLbc8-fGMakImo$7`IqJW`5=R7SbY5|Gahy>{1P6E=VvCQfxf3Eg)!R6~*^`!+MyS
znr?b1^1751S}_bSFLh^VjewfgQ!!LxhoO<lFScrdqprrfROgH+iDW%00X*vqLR)4L
zT#DwS`;6M~9ZKts0=r$#1I1I7+#vndSF=i0Hau>;XL94lxC;cRPeoSQ8vQVs&40yK
z^dk^L6gBO_!or2hd9wZS7j@2Wyal%8T1!XfN6Kx~tOrR6Yjjc0Nnx56ZXGiq>Cq4~
zIKjPpuYv!{iMI@{YM(b#V>-s-y_<a7T(xsWIqub~H}PAzv4zw%&yJ7l`rBi9tKRb?
z9c2N#)vKRUNPO$VYd{UHezw9m0AzoLpBSw5FEPk55-p$gOCC@IZVJTR4A5_TsY#x>
z`T5FU<ZT9@5Gv+BRhuVu_}C4SvNw;>=^drhwD=6)l&Yf`fRId4SO8^tc6V!Wv5&Mq
zKV$+*u_@LLI5KFEjh}`bvHJBdhXTM(WmfnDN~BVDbtw$|e&9Uqw*WyuJW&2qaV#LO
z3~kT5h5*e~<GV=k>{Q8?4ql3ICLF@xjqlva2boQTV;@byavJJRU)|;Y>Hg0aK}%Oa
znhQ)0er>Kb)OGT2roV34*)ivtcH!XN$;Wv9!0Q!b!GTyC2Brf>Ksew9LWaMP)V9Aj
z^2k_U#d6Ijy|{5Y6NZ?BifDZA-aRbWy|SYRo&w#obB#u)$@26A5KRM*t*DAz+?pj8
zr555g9qX1`CGd~$LzS(bjJalX^X6+%!%;p1HrXoF_hyT!Kr9wm)?2WvP@;gbggOP#
zStdA`Hc#FIscs|q;7A!~-#0~ec56yqd>dB#k!qvB>~=c0J;2iMqu-x)&7Hzpib0?R
eh5qAVoJu#^J{&E1>StpF{<N>?X%t?%8}=V&*V(E7

literal 8579
zcmeHNcT|)4n*Jz)g2Lz^I!Lh~DAfW;FceXNfPgfS5~2cvAT<;TgrJTx$k2j_v``fx
z6lnnh1RO;`svw~^DFH)=5GjHEWoGU@dw1ua-Th<toIU5}B;R+E@O}Ks`#$gUJa59T
z8|m)j6XAm(XdgoFiYWwfjIv+5dB7*wFO)cN;<;m>dj*`qWBqa!4xILQ>RF*7i2nfl
z#nCwwyaho=A;gtS<`0tRh5|j!8LXY99$4Q{^icHM19dXxCUTE{J?uh%a<1MWoJ4wi
zO3!ht`&qoOn^*(sS!8~GW=rD&&C&W*J?4`254pB-nqnUI^ylHe+?B2gUZ1WieEi^v
zXuPYKIwG-MJo59;h9QQ-Nv$hq-(OpsotoWDmJ66l9=Z>wCI1LP)20*#7~$#_?!yqo
z#a&Tn8#q^HUFDb0I1GjO{V-~D>!)`P=S~x-ydhhM-ioLFAa7UQi{XZ}2;;liR|Fg!
z?Lpy?hip9`9*_A&$}lktySe6A5Z*9OrV#>_Zq-59Nm<nALLAHW<bkjjh9%NBj(}aW
zG9<vQUcGunp1>QF;&y^-mOdU4QFeK51e+96U+cA(pI402p9zyDbo}I$obIfYJK$br
z=<Dk%t?s&F*75sI0;YaKVj0~s^77puBaTE>w&AwMCCJ}$iPmz&!a_>~BJ3NTeiGq7
z9FVP@9u1ytFq){mb?GU3a;9z+wJqi1`S|gr3h;$#j(O<XCDI%>l*}D3Eg%k`#xTB3
z`YjC4b<UI$b924<h2<J;HNC!GVV0z_TEt-9AG*7{E01_oe@5b1j0C#$wU?tZva&-?
zsn{ueQ&y6CASqlYbAG8o!apJ+Vt(}9WB1;-x81v58z!``HyH<ib+2Xl`F~%$9e+(~
zsH9zk{xMQ4u(QO70PoAUt5G}OvpDvCh@c*5tCrG69=>vX?6<ME#Dao0Ih$gKu&S}A
zN34fPGr@}F>Eq>hTN70l24FOuNYR<?&5@nE3Kx`=R1pdZ*GN@@{R2i&U08DxB%u-1
z8y6Q>$;B&BN@kD82u~yuo8>mYhASpZTB1-3$(!eV3TwA9Qya)Czsih^<MH~h&NT;b
z4vdhU2mw-P9NzZw<;&rlYK$*t?0NeAR-)FUR%Z~e&`PFE%~#UInc14G)9Cf;l{U0Q
z(BiwZ9y?SUkIJffGO=~jPa!a5V1RedO&S{gFxh%~T2C@V*_ApSd2znuL)eeXPHm#y
zU%u$!U0hs*!mbDjgq|;7=*o_g%ps9fO7g&HR=my}Hn*}$2-?A^oD~(2O}M6y*Vx%Y
zBTN^DYtCo;TuzT(n;VF)9QiS!O#U&i;QX|Ehv9{xtWb&In{BYU{xXBWwOJEKN5`oR
z2EE7i>xVEIMMcX~LY@AU6|uSAqRjVnkAfPkXZ64yXu6^rb8xjW<^*F9-HyNy<94w7
zBs6R{nG2RmA{Izwiin8F7ow#iqVpjauOwn}a#Gp{_1W3{>eZ{cM55W5!!3Pzt&c}O
ztW*mWGF#5Kn}bl)*qA;ck0hHjhXXyPRzTP(P`=;Ew<$MrO7VTc`7mTSXvL7V6orFN
zZGd+oM~<A2PtvR%h{1Zo{}|D_0@=PnApd63@gKvlpUT?Uz`W|Z2e$OyZ$IzBj6URj
zt|$4WxA%=z$=!ROo}ZSFd={k(maCv@UTp}s!%8@$Dh7XWT~K}XdR47%k{i{wVu7-`
z+IS*rI!0Igvu_VF-imNdsvF#4dD(jxCx?ZF#XV}Cl~s@O?ccatQ#DaDKGsVQYz5(q
zT2th;wM$MO($K0yz>gr5c!}xhmq13{0MiU!3P(A2=UVV_Q{Z|i(*1<5OBEZ;g+eo9
zbqkQ~)^BgULk!VC#1p%WHIeooe>DLY6;L)@kO7l%bK*s$3-qQ$rF(b+ZaX02r}H|j
z4MwwE)Rp7b)enj&>#ZI#2f~~`{`wOcphZameS34E2kg3qsc8nkV)gZSRB%8zy=3lj
z+prNd-30F$9utS4#>#3KCl8b+eXP#ymxl3WcwsB9#Hqb)z?Tam3mRSGf^LPJxCKFb
zfB474ME6CRMa&sUD;-8nx;SYVA}FSo^#Ja!u2bGq<?nIwz#e5KrJGTY;FFt_jL&bt
z&gbi15)Z#}+`G+j__eUKf~Y|GI;ko75f4-car`eFwCXS+ZTM^144g*)Ep?rEexAqr
z*<JdtOsSbZIS<E74J9xy0El<o-gV?wKxh9q7S${*JUPX=RGb5f<j+pyfX--z{FjI5
z5~zntl@Sh~>31#c#-B8>wk;1@_clyYF<haw$D<W2{r5mx<#8ntbEZqT`GtH}xFY4v
z`%pn5nQV<WM<Vlcb7kahE3S`u-n{5P-_nibggV@OKiQZFA37u}#D~BGoXuYvZ)j#>
zBaU1!8X&oKMIXB?i6Gv{@BCUHeiG4@ZEOh=x9zT8Rv<O-7}E#j835Z7@l2aVxG{lN
zR2yw!ViF^H`iE14{&J)jUFucXO}`-!(;L)s%B#*!Q-q7xr@obH;dtJCB3TQ;%qo0V
zFl*zqcoglvFy~-NR@Y3jMlfFjEr5^b@vNeQg{`d|0&e7e^zdF%B|Mu$gPvDXdZ(VR
zX5$;NpX8PVpf(3&zRTpNI1!cmFK-mu4ShZ3zc~6%1peTy<V;8UWf)6a8mZ<)*WO0A
zEk$HJ4jOU7r6V6|g)|@{l~N2<t=kA(+uz5d4u;n&`F=BZ8>}#S|8!rhq=mWpo6=Hq
zvuq;^Lqo%<)$<Ufo<LikaBNEP;)YM6JSOgA8$F!juPO(w?xNcJ@KY9KMI!Fno!V0h
zifbb*8^8kHgk0mPn&+uH=mM+d-3x_qaQ^G?PuJjK2m>;F^e&C_;b26pUbZ($VM23+
zc`)osUc<C7ygil{00QFRUY?WK^#|{omRO`H-xaC4uq)b258zI81F}yW^~qMeQMQGp
zr4vAg(M`&;@bErVBLJ#@za4{9-hUts#D<%H9sY6+jyiD+Q?ONcieA1pOnQAaT)3>l
zeSLW{QN=BBsy$VaW?L|S019!Jb^0SC@AsW!<BGDf@&;frk_bS_a&vP#e|y4zP$0An
zO>46qItf8TH;(qmu3}N3N`s0YFF7|{V>8|m6~C}4a=|^B<Tmj7*yX2s_+boPUY)ht
zh0kIWP5Xw();`fN9~pKE%gV@@Dv6YdXAUgFqgYS!f_9q6OTK=+GmaqFn&-}mPb$^5
z!PwaFto}}dqTPyF8-Z3<5i}e?o0+d#cp=GH7(s;!O0@OKaaTAYvb$i|EunKGObcu4
zPutozYA_7EB&Z~ZjXPOSw9{4MX>xTr=KA5n@|_b+v0x_Wn|TF9-^9sUx&R7kU4tnD
z*mu5%jT9Lf+IXMoj$`%XOSTc2Sq8NG$VOZn3{)oiS@M(D5|JPdrG)sFc4TxPy}Omv
zj9wF6)Rn+yoiupiys<h1hTC7|UznwM!p7P<H^(eH_w{Qj^u|w62%!ZXuv|RRrpifJ
zF1+AP(wHbOY0gMg-{1r{-UZSlLI=<wH+8<{o011&&_)af1Js<rG0%$ngfXct@iRaJ
z?fySK6!Y}LdMtp%>d181x5%b$zws+hgELZD5MZb_74qnPdkJu~cw6tVdCI0cc4H<R
zseA~6cFDVj0P;xLVJ)}<nn-3)ZG4;M%bfwO0xHPOvXvLoy5z#V3Rq-5s@AR+kPt}(
za|Bn*W^6;=&GIQ4q7d{%CVK7@;K@4Zsg}=zxbK%+6VB^q6EL}w_hx&Gma(Xnsa87v
z7zcDp$%<>R5T)tXUy68l>utSv`-;!^#W5o>fYI777(%O{df3$akAIB7XX#0H2AFX`
z*GG$azHhCxFLa!PAkUy;9#v46Fy{r@SJZruLJ;Or9tUN%xOsIfRN}6J#{kK2WP7dr
zBK8yn@gb>)ZnL(TwLR;!)Ivn8R1*`+CZP*8Ogqa~9!TrmCy`MQ{?33y_ZK^c1GPg4
zT1M>Rw9?!KK|Wel%KNxEMbt4qmMxr+R#XfFHVP<fZgH{c$&)96?rPoQf*@&W`u@c)
zIcALVT9)AnonNPO1AwaBUo6f6c!LX=8&a7cY=I6H+8GnXbu=s14u120$N|+gHDUNL
zAP#d23*)ndJrI4py}gxx&bOkVpny09L20@(9V1*Co}*fS4netYpxmS9jY;O0Y~$3H
z;!BTtd^fH`kPtbKg8)On9uD4|6K>y`AE~YF3gv{-Ivn>cCMvrE85+{!NK1b9?3vo1
z3j;+-XxahnNN7Hya{s!VFnu*0f=>BZp?0bJ&)e4DISbOL_2t>ivN!TN$i8&4iwaoJ
z8&pV8L`iR<dL@!{zc0h#TuvpLCL_e>+kGF5Auo?Z{LHP817TN)ldZ-ETu{h(ymH;<
z+FWx`vQc)KL(>7fpLao80uKA$(gG5q!k;};a_d)0@$0{rsOIaEEeJN`m@6~oZ6cUr
zs=mIynyWC_-e2={>%g*JKbP=a@|EdnFf4hi;w%FmE+{P;%nm@M^{{F*gS}Xfi-qGx
z0lk713#*7kkk(!G3<V@Kl1nauLbf2$W7gT%6YmGJIYbV%1$@V<EBFrXSkmi5W6P?r
zfL2t;pe+^B1Q^&4{=It*;|8L0rCqZSaEY0&Y+6uVMn*<5r71MtXp)UH1lp3+S+R)#
z@lF0Y85tQoI<f&FASzo&K+nGneFk*qmq@XT=V~|U$!0s-EFdT1Ryh7((1a4kNu;&e
zHbbY48oK4@XJuZZivk3eT|EB-k<Ot|hB43G6@lObY}%T@7}Or2V9T7^2`!VrX2=1;
zklDonb-Z^_-&J$#9Vd4D$VkWPOc$W!!g4p$0BHLCZD%x?gXl7#pxpY3ueQO|zmGna
zQBauA?E{;Bb8eepa^~<Cw$re@yj<{-7YY$SMo0gbq2{*h@w=8{)+W>cZ!u_BayNo!
z@8Rgm+2rx|{hUxVmlYR0c<TWWw+;$y2r9an_h(>Y_frQe(SQL0<)&o+aW9Z|+H`6@
z{f{A8acwQ&c5MDJ(w0dM5Hz7hHS6#n^a_QycU95|#IyDve?UQyx1?)`1a{S==KI%h
zAOrr6dpqA7G^t=o&f{|4%t%0xD$FXCtAI$P=fXgmn)JgtDL@IHlkgZKmo-1-fYP#^
z&({GIYYJjlFyB4^<Euj85*`Rj8GqT%A))H21z2Z_k&}jdXO;hg!cPJKxw`L$@a{dF
z285jr{!1aMwxz*vZGLEAJr=-MUH{(20%R2#BLJdVhyd>NzoUo#=OPOzD4-AhhcEj#
z5-;8d63S%}j=(P@FG(Wv;JK?qJ5>hr&mb<XK!KoRVj9lsSL46k?qf;p?C?ev)SY(z
z&zkW+NXXycPRP{(4+s=n@B|wpUtmKCs$>(K^%Yt(qtxF5toc3|zbEh_iXEGM)+gi3
zZ`%D6*)+M8e+pac*yaD%lBuwI`I&g&>{&!-4Rd%vW?1?}%pb}6P)iG>%ik!Buc!;Q
zmPS#w7aRu}2ivZVxh6GWJ3O<nYiR3v2`xZg0p-`{xY6H3k(y~fG2P$apFE_<F>i%$
zaxjw6eA2?i0^gyiHj>LYg&{iQqek1g0Q|C7x6bss1Z49*7_EC~UFrSm>AoYcyNQ;>
z;^K2?q~rk;z!W6K)O_^V#F?4oH?!vP^CP_e(q&6srTU*)-ChLrH*)!OXqoNKh$>ak
z6NWwLBPZPDT3GYCDOQ>uYpfCTm-5KUC@Lgg-iA80>{?K%(_@P^R9N5xEHPr_{~*xV
z0aS-i?R}Lofy-~0HYLzb&*%%mO+D20;|-qZoI;x4R_8ey24#lIx@_G{C-1m|ATtnu
zu1&ps_?P$*t&o@ts=N06f0Agw>!qL(%cId%Ubbp+CBEr_sxb}5CMG7**B%A=W{fy>
z5_<M@9YswRU&T*|jW5Ms;8=qjQ&OwAyip2lI(_kTLwnJ-ecG9IiegILxa82DlA}2A
z*QOVCd&<O_+S}W=QR98K;%5-aXzA7Od!%Cde1C&C8aFwZHvRY@`9WKlL^meVmZYb)
zwqLoO<6nB}pUTNJ1J3GyZ`BmYvh`Cnb%q15s~eyq3oF>Z0p&gAqQBo7uw|l|oGDmd
zfa%olOXHw~0#`lTZGd#IG5Q!j3viu}A3wG<5NMOL!RnLl$Z2t-iKW=)22nCEWy;yu
zQe8()y{^?57D(v%x-45*ox!$V@vEbc1;2fgEo|vyy-x1>b$=$BttPfl-e$}VFe@|_
zk)}C52rubtKL>pw&fX8GZ`e`2_X|t0^5avZm%G<L%7(q^*%PGLBo(7qibWN~raor@
zCS2w{sn43$)$ClJY__nn%1OT*s*eZc)ime1B%lo2FE3||W0>>#SB|GY<)K)mx&3aF
z<dVt#7@>(GJ;~#=WY8MO*PU4dzWQ%tp2W$NZBfswSD)w`7$^fjhFz_VG!0O}CwB8Z
z2A<F|)-HM<G!0W@?XJia_`40*u>VZ|`~7Fs9-SB+JbMv%j8OjmfAkRlsvi6|KAUJA
zVV7t#d;3hr;UPOLwgz~@pijX#)o2EMSYAPK^HdFN9<UoPdQbcUZ#OHntH}eiVWTh}
zkH66jEQ-bmU<J>B#p>y{M6spX7hu}IzA5+Gf_TFUxRz_ceggK}y{VQ2YNn9f@9xCW
zTk4QE{Sm)H2XNr>8nnb^PoFlC6D|?w3YZ60xW!Se<7z+tZXEtu{YE)s^k1!h_|e!I
zc+PA+S&OS>=rx*^m6c)U%6h;p2)X(B768YAmIZ#l94G*dn5;+jd$u`?eCanL#MP}e
zch=h{0|*S&M)ZtNKZbjv=%@2{rvpbe3Dg24QBZU1IuJu8;yFjXxNVObX|jCst;_TQ
zQ5u)N0ZBU!R|l~DVqtmfEMNh5V3HqQ4dMTAIy*T7wY?nA?hT>a)wAaY%59>!(~`)O
zFKkLdN?=)Zl%<<nK0|d^ICLl)_~~QsL+Q_C3p!rN+vGKHbQlH@q}x}N96t%kqbP&m
zuJ!1;U3Z4azL>>#yeAQvIuV_P!3^2)Fv!OrD0tIz3FdHdOE0e?aL3R;D$jp1SRcY)
zgxAtVBXsHw)I+u|hnQRkt)frO%?uh?f(i}A17W2VK^dPv`OY2)`+ykfDWZB!B{+Sn
zd&ni0I6lp?AA4}unNHd|`Y4Ef?J$;!9P)g>4>J*?8%a-^`y9h|L5!y5)s0tIj6O6C
zTb@gpU34p99qq7)bb3m1ABaO8NjtIo4Bw|@7}}>@oynHC{bXO)a5@OBZJ-ieLFH!m
z;8Z+@<q+hRwu^Ckl0v(=h4`L4H_EmVm4BjrOx}icjm_<+KWCP?_9&>YPsD!fDNI$U
zoWKj~#<XgB^b{ZyRlPDmD-hh2T8K)u8Uczg59qXeOJD0ZK+yTlyo%4w%e!`ABnV9`
zKY#^qefsZZ-)nh!R-Tlzj*U2cRy+N=9?<G+k_$Q^QGp|3?c04df#t!Ak0sdtC@}gf
zw^vekN^csk%<(_bZWw%;=^>lb>RYb-zKFDWv)qkR8(G#KRVEl>G#0{Xf<(?KfL<9b
z8J(o!=6&9&?Y>uyWV!Qac8_bYK>{}mI)lkAzQ9*j0K8T~_jpW;Bf`B2e^Mb%zp{K7
z)BNQ9Z6@$?$mTMWz=>iz$RlMN)eh%oKyPCK^oLl&bT{h}5P+iqf(#@N6nKnK+=1|8
zU%!iAxZ<W9^(zTj0O%%%PV91%bOCN>TLC~?ViDq8f)D>81t0LGE7~UU2yl>z`T6Se
ztXR+)>@BiK0+=?)?s5mRXMVP%-7m*Hw|lLue4p-!$^bcPTf}i-9&Bx?MDg6p{Y|J*
zne*32OB1oi<b$#|RB6fVD}gUvke+@FU6Um|@;s0^pHeBhm&YcLJ`G*K22C{Xzwlsj
zv}JB>wr{+kaw_pgYPr|Aj{p087fNB-S=T&O?)Q$mlV@JH_=4oTdOSw>q02@uj267n
zl}ZM|P@1@;h+7Z82$t6N%we`OKR=b^;SOfvDqAPkr<ruY!w(O>Y1xXM0KGkHH&oz&
z=c-#t{^oR{32DxqPBPp)HlWc?5)82&7gFMTgf;>h{}xz)Abfz63T!;1n(Ym`ynD|U
ztWGO!eBnd?Y5;+jQ(CH2GRS19?3AXWjVQR;9lO>-SGr$8-%3xb(;B?68$AH#+70?n
zuK@0x5|45PD-3!gV!gRkwPGCDrUKCHR8~>ByA7iWMd(CT8upRW*WE4_&r3;{4E3$8
zhiT}9j9(2g`2nOuUbq5TFUMSFB_fd4mV%j14^>-TKX~vUX!<nw!B6N$e)$w9JHX03
z41_w{;m8xa=m+fIR|fIlIt>&p!2AcNKnI+djP3_vY=@aSiDeK`Zbgv~Qr{{hgWnGv
zV*eHZUVz6Rh<pD0RE(Z8*bmr1q*N=j{g?eGR=*JozdaVzm|o-`>K}M2)knpy_M95<
zbK1oCIizwSA3~W&;h--|W~~j_$Q@B~jy@3fvj$M|ewsU=2i?Q=l&YO+4&0m^Ko|r9
zL*xZmTbt_L#L8P|-rztgC2C;FpcdK%OdgcK`8KWI4N$z=V3tq)LCfig3&YL_pMe_t
z4R~ti0Rff3fb?CeKa{$<rRz$;0Z*kgn1xZ_n9k%2eb4tqTjb0wEo!@m$B{(t$M5V5
z{@CfZHO6eC1}~Wt_bZ21whO%!21T-)PnSYCd}JbnACms6a&BpQZAAvfk}l0d;DNYm
LbfrN1)}wy|h$i13

diff --git a/reference/WHOCC.html b/reference/WHOCC.html
index 9cd0e709..7303908a 100644
--- a/reference/WHOCC.html
+++ b/reference/WHOCC.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 c46fe44b..004c63a8 100644
--- a/reference/WHONET.html
+++ b/reference/WHONET.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 0e10229f..662bee9f 100644
--- a/reference/ab_from_text.html
+++ b/reference/ab_from_text.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 0705f6a4..086c2fd5 100644
--- a/reference/ab_property.html
+++ b/reference/ab_property.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 4580476c..82a181b6 100644
--- a/reference/add_custom_antimicrobials.html
+++ b/reference/add_custom_antimicrobials.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 4540b9d7..b21e38e0 100644
--- a/reference/add_custom_microorganisms.html
+++ b/reference/add_custom_microorganisms.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 d87caba1..f1485e48 100644
--- a/reference/age.html
+++ b/reference/age.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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">
@@ -205,16 +205,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  1974-07-07  48  48.67671         25</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2  1995-07-06  27  27.67945          4</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3  1965-04-10  57  57.91781         34</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4  1954-02-22  69  69.04658         45</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5  1944-08-18  78  78.56164         55</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6  1989-07-26  33  33.62466         10</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7  1983-05-30  39  39.78082         16</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8  1965-08-11  57  57.58082         34</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9  1971-01-15  52  52.15068         28</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10 1948-11-17  74  74.31233         51</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1  1988-09-10  34  34.49863         11</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2  1940-03-15  82  82.98904         59</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 3  1951-03-09  72  72.00548         48</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 4  1963-09-14  59  59.48767         36</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 5  1975-08-04  47  47.60000         24</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 6  1932-09-11  90  90.49589         67</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 7  1980-12-22  42  42.21644         19</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 8  1987-03-31  35  35.94521         12</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 9  1945-12-08  77  77.25479         54</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 10 1971-03-24  51  51.96438         28</span>
 </code></pre></div>
     </div>
   </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
diff --git a/reference/age_groups.html b/reference/age_groups.html
index 9dd6f22b..68498cbc 100644
--- a/reference/age_groups.html
+++ b/reference/age_groups.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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.html b/reference/antibiogram.html
index 492e22b4..36fed6d2 100644
--- a/reference/antibiogram.html
+++ b/reference/antibiogram.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 67d43c17..d1775ff5 100644
--- a/reference/antibiotic_class_selectors.html
+++ b/reference/antibiotic_class_selectors.html
@@ -1,5 +1,7 @@
 <!DOCTYPE html>
-<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><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"><meta name="description" content='These functions allow for filtering rows and selecting columns based on antibiotic test results that are of a specific antibiotic class or group, without the need to define the columns or antibiotic abbreviations. In short, if you have a column name that resembles an antimicrobial drug, it will be picked up by any of these functions that matches its pharmaceutical class: "cefazolin", "CZO" and "J01DB04" will all be picked up by cephalosporins().'><title>Antibiotic Selectors — antibiotic_class_selectors • 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"><link rel="apple-touch-icon" type="image/png" sizes="120x120" href="../apple-touch-icon-120x120.png"><link rel="apple-touch-icon" type="image/png" sizes="76x76" href="../apple-touch-icon-76x76.png"><link rel="apple-touch-icon" type="image/png" sizes="60x60" href="../apple-touch-icon-60x60.png"><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.2.2/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.2.2/bootstrap.bundle.min.js"></script><link href="../deps/Fira_Code-0.4.5/font.css" rel="stylesheet"><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><link href="../extra.css" rel="stylesheet"><script src="../extra.js"></script><meta property="og:title" content="Antibiotic Selectors — antibiotic_class_selectors"><meta property="og:description" content='These functions allow for filtering rows and selecting columns based on antibiotic test results that are of a specific antibiotic class or group, without the need to define the columns or antibiotic abbreviations. In short, if you have a column name that resembles an antimicrobial drug, it will be picked up by any of these functions that matches its pharmaceutical class: "cefazolin", "CZO" and "J01DB04" will all be picked up by cephalosporins().'><meta property="og:image" content="https://msberends.github.io/AMR/logo.svg"><meta name="twitter:card" content="summary_large_image"><meta name="twitter:creator" content="@msberends"><meta name="twitter:site" content="@msberends"><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
+<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><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"><meta name="description" content='These functions allow for filtering rows and selecting columns based on antibiotic test results that are of a specific antibiotic class or group (according to the antibiotics data set), without the need to define the columns or antibiotic abbreviations.
+In short, if you have a column name that resembles an antimicrobial drug, it will be picked up by any of these functions that matches its pharmaceutical class: "cefazolin", "kefzol", "CZO" and "J01DB04" will all be picked up by cephalosporins().'><title>Antibiotic Selectors — antibiotic_class_selectors • 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"><link rel="apple-touch-icon" type="image/png" sizes="120x120" href="../apple-touch-icon-120x120.png"><link rel="apple-touch-icon" type="image/png" sizes="76x76" href="../apple-touch-icon-76x76.png"><link rel="apple-touch-icon" type="image/png" sizes="60x60" href="../apple-touch-icon-60x60.png"><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.2.2/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.2.2/bootstrap.bundle.min.js"></script><link href="../deps/Fira_Code-0.4.5/font.css" rel="stylesheet"><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><link href="../extra.css" rel="stylesheet"><script src="../extra.js"></script><meta property="og:title" content="Antibiotic Selectors — antibiotic_class_selectors"><meta property="og:description" content='These functions allow for filtering rows and selecting columns based on antibiotic test results that are of a specific antibiotic class or group (according to the antibiotics data set), without the need to define the columns or antibiotic abbreviations.
+In short, if you have a column name that resembles an antimicrobial drug, it will be picked up by any of these functions that matches its pharmaceutical class: "cefazolin", "kefzol", "CZO" and "J01DB04" will all be picked up by cephalosporins().'><meta property="og:image" content="https://msberends.github.io/AMR/logo.svg"><meta name="twitter:card" content="summary_large_image"><meta name="twitter:creator" content="@msberends"><meta name="twitter:site" content="@msberends"><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
 <script src="https://oss.maxcdn.com/html5shiv/3.7.3/html5shiv.min.js"></script>
 <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
 <![endif]--></head><body>
@@ -10,7 +12,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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">
@@ -143,7 +145,8 @@
     </div>
 
     <div class="ref-description section level2">
-    <p>These functions allow for filtering rows and selecting columns based on antibiotic test results that are of a specific antibiotic class or group, without the need to define the columns or antibiotic abbreviations. In short, if you have a column name that resembles an antimicrobial drug, it will be picked up by any of these functions that matches its pharmaceutical class: "cefazolin", "CZO" and "J01DB04" will all be picked up by <code>cephalosporins()</code>.</p>
+    <p>These functions allow for filtering rows and selecting columns based on antibiotic test results that are of a specific antibiotic class or group (according to the <a href="antibiotics.html">antibiotics</a> data set), without the need to define the columns or antibiotic abbreviations.</p>
+<p>In short, if you have a column name that resembles an antimicrobial drug, it will be picked up by any of these functions that matches its pharmaceutical class: "cefazolin", "kefzol", "CZO" and "J01DB04" will all be picked up by <code>cephalosporins()</code>.</p>
     </div>
 
     <div class="section level2">
@@ -254,7 +257,7 @@
     </div>
     <div class="section level2">
     <h2 id="details">Details<a class="anchor" aria-label="anchor" href="#details"></a></h2>
-    <p>These functions can be used in data set calls for selecting columns and filtering rows. They are heavily inspired by the <a href="https://tidyselect.r-lib.org/reference/language.html" class="external-link">Tidyverse selection helpers</a> such as <code><a href="https://tidyselect.r-lib.org/reference/everything.html" class="external-link">everything()</a></code>, but also work in base <span style="R">R</span> and not only in <code>dplyr</code> verbs. Nonetheless, they are very convenient to use with <code>dplyr</code> functions such as <code><a href="https://dplyr.tidyverse.org/reference/select.html" class="external-link">select()</a></code>, <code><a href="https://dplyr.tidyverse.org/reference/filter.html" class="external-link">filter()</a></code> and <code><a href="https://dplyr.tidyverse.org/reference/summarise.html" class="external-link">summarise()</a></code>, see <em>Examples</em>.</p>
+    <p>These functions can be used in data set calls for selecting columns and filtering rows. They work with base <span style="R">R</span>, the Tidyverse, and <code>data.table</code>. They are heavily inspired by the <a href="https://tidyselect.r-lib.org/reference/language.html" class="external-link">Tidyverse selection helpers</a> such as <code><a href="https://tidyselect.r-lib.org/reference/everything.html" class="external-link">everything()</a></code>, but are not limited to <code>dplyr</code> verbs. Nonetheless, they are very convenient to use with <code>dplyr</code> functions such as <code><a href="https://dplyr.tidyverse.org/reference/select.html" class="external-link">select()</a></code>, <code><a href="https://dplyr.tidyverse.org/reference/filter.html" class="external-link">filter()</a></code> and <code><a href="https://dplyr.tidyverse.org/reference/summarise.html" class="external-link">summarise()</a></code>, see <em>Examples</em>.</p>
 <p>All columns in the data in which these functions are called will be searched for known antibiotic names, abbreviations, brand names, and codes (ATC, EARS-Net, WHO, etc.) according to the <a href="antibiotics.html">antibiotics</a> data set. This means that a selector such as <code>aminoglycosides()</code> will pick up column names like 'gen', 'genta', 'J01GB03', 'tobra', 'Tobracin', etc.</p>
 <p>The <code>ab_class()</code> function can be used to filter/select on a manually defined antibiotic class. It searches for results in the <a href="antibiotics.html">antibiotics</a> data set within the columns <code>group</code>, <code>atc_group1</code> and <code>atc_group2</code>.</p>
 <p>The <code>ab_selector()</code> function can be used to internally filter the <a href="antibiotics.html">antibiotics</a> data set on any results, see <em>Examples</em>. It allows for filtering on a (part of) a certain name, and/or a group name or even a minimum of DDDs for oral treatment. This function yields the highest flexibility, but is also the least user-friendly, since it requires a hard-coded filter to set.</p>
@@ -324,6 +327,10 @@
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   ERY &lt;sir&gt;, CLI &lt;sir&gt;, AZM &lt;sir&gt;, IPM &lt;sir&gt;, MEM &lt;sir&gt;, MTR &lt;sir&gt;,</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   CHL &lt;sir&gt;, COL &lt;sir&gt;, MUP &lt;sir&gt;, RIF &lt;sir&gt;</span></span>
 <span class="r-in"><span></span></span>
+<span class="r-in"><span></span></span>
+<span class="r-in"><span><span class="co"># Examples sections below are split into 'base R', 'dplyr', and 'data.table':</span></span></span>
+<span class="r-in"><span></span></span>
+<span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># base R ------------------------------------------------------------------</span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># select columns 'IPM' (imipenem) and 'MEM' (meropenem)</span></span></span>
@@ -511,7 +518,7 @@
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   CLI &lt;sir&gt;, AZM &lt;sir&gt;, IPM &lt;sir&gt;, MEM &lt;sir&gt;, MTR &lt;sir&gt;, CHL &lt;sir&gt;,</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   COL &lt;sir&gt;, MUP &lt;sir&gt;, RIF &lt;sir&gt;</span></span>
 <span class="r-in"><span></span></span>
-<span class="r-in"><span><span class="co"># filter + select in one go: get penicillins in carbapenems-resistant strains</span></span></span>
+<span class="r-in"><span><span class="co"># filter + select in one go: get penicillins in carbapenem-resistant strains</span></span></span>
 <span class="r-in"><span><span class="va">example_isolates</span><span class="op">[</span><span class="fu"><a href="https://rdrr.io/r/base/any.html" class="external-link">any</a></span><span class="op">(</span><span class="fu">carbapenems</span><span class="op">(</span><span class="op">)</span> <span class="op">==</span> <span class="st">"R"</span><span class="op">)</span>, <span class="fu">penicillins</span><span class="op">(</span><span class="op">)</span><span class="op">]</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem)</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA'</span>
@@ -567,9 +574,9 @@
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> NA    S     NA    NA    NA   </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># … with 1,990 more rows</span></span>
 <span class="r-in"><span></span></span>
-<span class="r-in"><span><span class="co"># ab_selector() applies a filter in the `antibiotics` data set and is thus very</span></span></span>
-<span class="r-in"><span><span class="co"># flexible. For instance, to select antibiotic columns with an oral DDD of at</span></span></span>
-<span class="r-in"><span><span class="co"># least 1 gram:</span></span></span>
+<span class="r-in"><span><span class="co"># ab_selector() applies a filter in the `antibiotics` data set and is thus</span></span></span>
+<span class="r-in"><span><span class="co"># very flexible. For instance, to select antibiotic columns with an oral DDD</span></span></span>
+<span class="r-in"><span><span class="co"># of at least 1 gram:</span></span></span>
 <span class="r-in"><span><span class="va">example_isolates</span><span class="op">[</span>, <span class="fu">ab_selector</span><span class="op">(</span><span class="va">oral_ddd</span> <span class="op">&gt;</span> <span class="fl">1</span> <span class="op">&amp;</span> <span class="va">oral_units</span> <span class="op">==</span> <span class="st">"g"</span><span class="op">)</span><span class="op">]</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ For ab_selector(oral_ddd &gt; 1 &amp; oral_units == "g") using columns 'OXA'</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC'</span>
@@ -591,8 +598,23 @@
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> NA    S     NA    NA    NA    NA    NA    NA    S     S     NA    NA    NA   </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># … with 1,990 more rows</span></span>
 <span class="r-in"><span></span></span>
-<span class="r-in"><span><span class="co"># dplyr -------------------------------------------------------------------</span></span></span>
 <span class="r-in"><span><span class="co"># \donttest{</span></span></span>
+<span class="r-in"><span><span class="co"># dplyr -------------------------------------------------------------------</span></span></span>
+<span class="r-in"><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://dplyr.tidyverse.org" class="external-link">"dplyr"</a></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://tibble.tidyverse.org/reference/tibble.html" class="external-link">tibble</a></span><span class="op">(</span>kefzol <span class="op">=</span> <span class="fu"><a href="random.html">random_sir</a></span><span class="op">(</span><span class="fl">5</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="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/select.html" class="external-link">select</a></span><span class="op">(</span><span class="fu">cephalosporins</span><span class="op">(</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-msg co"><span class="r-pr">#&gt;</span> ℹ For cephalosporins() using column 'kefzol' (cefazolin)</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 5 × 1</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   kefzol</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> I     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> S     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> R     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">4</span> I     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">5</span> S     </span>
+<span class="r-in"><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://dplyr.tidyverse.org" class="external-link">"dplyr"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
 <span class="r-in"><span>  <span class="co"># get AMR for all aminoglycosides e.g., per ward:</span></span></span>
 <span class="r-in"><span>  <span class="va">example_isolates</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span></span>
@@ -883,6 +905,156 @@
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   prevent this note.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem)</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1] TRUE</span>
+<span class="r-in"><span></span></span>
+<span class="r-in"><span></span></span>
+<span class="r-in"><span><span class="co"># data.table --------------------------------------------------------------</span></span></span>
+<span class="r-in"><span></span></span>
+<span class="r-in"><span><span class="co"># data.table is supported as well, just use it in the same way as with</span></span></span>
+<span class="r-in"><span><span class="co"># base R, but add `with = FALSE` if using a single AB selector:</span></span></span>
+<span class="r-in"><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://r-datatable.com" class="external-link">"data.table"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
+<span class="r-in"><span>  <span class="va">dt</span> <span class="op">&lt;-</span> <span class="fu"><a href="https://Rdatatable.gitlab.io/data.table/reference/as.data.table.html" class="external-link">as.data.table</a></span><span class="op">(</span><span class="va">example_isolates</span><span class="op">)</span></span></span>
+<span class="r-in"><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></span>
+<span class="r-in"><span>    <span class="va">dt</span><span class="op">[</span>, <span class="fu">carbapenems</span><span class="op">(</span><span class="op">)</span><span class="op">]</span> <span class="co"># incorrect, returns column *names*</span></span></span>
+<span class="r-in"><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></span>
+<span class="r-in"><span>    <span class="va">dt</span><span class="op">[</span>, <span class="fu">carbapenems</span><span class="op">(</span><span class="op">)</span>, with <span class="op">=</span> <span class="cn">FALSE</span><span class="op">]</span> <span class="co"># so `with = FALSE` is required</span></span></span>
+<span class="r-in"><span>  <span class="op">)</span></span></span>
+<span class="r-in"><span>  </span></span>
+<span class="r-in"><span>  <span class="co"># for multiple selections or AB selectors, `with = FALSE` is not needed:</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></span>
+<span class="r-in"><span>    <span class="va">dt</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="st">"mo"</span>, <span class="fu">aminoglycosides</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="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></span>
+<span class="r-in"><span>    <span class="va">dt</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="fu">carbapenems</span><span class="op">(</span><span class="op">)</span>, <span class="fu">aminoglycosides</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="op">)</span></span></span>
+<span class="r-in"><span>  </span></span>
+<span class="r-in"><span>  <span class="co"># row filters are also supported:</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">dt</span><span class="op">[</span><span class="fu"><a href="https://rdrr.io/r/base/any.html" class="external-link">any</a></span><span class="op">(</span><span class="fu">carbapenems</span><span class="op">(</span><span class="op">)</span> <span class="op">==</span> <span class="st">"S"</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://rdrr.io/r/base/print.html" class="external-link">print</a></span><span class="op">(</span><span class="va">dt</span><span class="op">[</span><span class="fu"><a href="https://rdrr.io/r/base/any.html" class="external-link">any</a></span><span class="op">(</span><span class="fu">carbapenems</span><span class="op">(</span><span class="op">)</span> <span class="op">==</span> <span class="st">"S"</span><span class="op">)</span>, <span class="fu">penicillins</span><span class="op">(</span><span class="op">)</span>, with <span class="op">=</span> <span class="cn">FALSE</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-msg co"><span class="r-pr">#&gt;</span> Loading required package: data.table</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> Attaching package: ‘data.table’</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> The following objects are masked from ‘package:dplyr’:</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>     between, first, last</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> The following objects are masked from ‘package:AMR’:</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>     %like%, like</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem)</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "IPM" "MEM"</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> attr(,"class")</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "ab_selector" "character"  </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem)</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>        IPM  MEM</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    1: &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    2: &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    3: &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    4: &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    5: &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   ---          </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1996: &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1997:    S    S</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1998:    S    S</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1999:    S    S</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2000:    S    S</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB'</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin)</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>                 mo  GEN  TOB  AMK  KAN</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    1: B_ESCHR_COLI &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    2: B_ESCHR_COLI &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    3: B_STPHY_EPDR &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    4: B_STPHY_EPDR &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    5: B_STPHY_EPDR &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   ---                                 </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1996: B_STRPT_PNMN    R    R    R    R</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1997: B_ESCHR_COLI    S    S    S &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1998: B_STPHY_CONS    S &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1999: B_ESCHR_COLI    S    S &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2000: B_KLBSL_PNMN    S    S &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem)</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB'</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin)</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>        IPM  MEM  GEN  TOB  AMK  KAN</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    1: &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    2: &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    3: &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    4: &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    5: &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   ---                              </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1996: &lt;NA&gt; &lt;NA&gt;    R    R    R    R</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1997:    S    S    S    S    S &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1998:    S    S    S &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1999:    S    S    S    S &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2000:    S    S    S    S &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem)</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>            date patient age gender       ward           mo PEN  OXA  FLC  AMX</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   1: 2002-01-19  738003  71      M   Clinical B_ESCHR_COLI   R &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   2: 2002-01-19  738003  71      M   Clinical B_ESCHR_COLI   R &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   3: 2002-01-22  F35553  50      M        ICU B_PROTS_MRBL   R &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   4: 2002-01-22  F35553  50      M        ICU B_PROTS_MRBL   R &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   5: 2002-02-05  067927  45      F        ICU B_SERRT_MRCS   R &lt;NA&gt; &lt;NA&gt;    R</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  ---                                                                         </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 905: 2005-04-12  D71461  70      M        ICU B_ESCHR_COLI   R &lt;NA&gt; &lt;NA&gt;    S</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 906: 2009-11-12  650870  69      F Outpatient B_ESCHR_COLI   R &lt;NA&gt; &lt;NA&gt;    S</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 907: 2012-06-14  8CBCF2  41      F   Clinical B_STPHY_CONS   R    S    S &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 908: 2012-10-11  175532  78      M   Clinical B_ESCHR_COLI   R &lt;NA&gt; &lt;NA&gt;    R</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 909: 2013-11-23  A97263  77      M   Clinical B_KLBSL_PNMN   R &lt;NA&gt; &lt;NA&gt;    R</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>      AMC  AMP  TZP  CZO  FEP CXM  FOX  CTX  CAZ  CRO  GEN  TOB  AMK  KAN  TMP</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   1:   I &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;   S &lt;NA&gt;    S &lt;NA&gt;    S &lt;NA&gt;    S &lt;NA&gt; &lt;NA&gt;    S</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   2:   I &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;   S &lt;NA&gt;    S &lt;NA&gt;    S &lt;NA&gt;    S &lt;NA&gt; &lt;NA&gt;    S</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   3:   I &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;   S &lt;NA&gt;    S    S    S &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;    S</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   4:   I &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;   S &lt;NA&gt;    S    S    S &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;    S</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   5:   R    R &lt;NA&gt;    R &lt;NA&gt;   R    R &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;    S</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  ---                                                                         </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 905:   S    S    S &lt;NA&gt;    S   S    S    S    S    S    S    S    S &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 906:   S    S    S    S    S   S    S    S    S    S    S    S    S &lt;NA&gt;    S</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 907:   S &lt;NA&gt; &lt;NA&gt;    S    S   S    S    S    R    S    S &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;    S</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 908:   S    R    S &lt;NA&gt;    S   R    R    S    S    S    S    S &lt;NA&gt; &lt;NA&gt;    R</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 909:   S    R    S &lt;NA&gt;    S   S    S    S    S    S    S    S &lt;NA&gt; &lt;NA&gt;    S</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>      SXT  NIT  FOS  LNZ  CIP  MFX VAN  TEC  TCY  TGC  DOX ERY CLI AZM IPM  MEM</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   1:   S &lt;NA&gt; &lt;NA&gt;    R &lt;NA&gt; &lt;NA&gt;   R    R &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;   R   R   R   S &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   2:   S &lt;NA&gt; &lt;NA&gt;    R &lt;NA&gt; &lt;NA&gt;   R    R &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;   R   R   R   S &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   3:   S    R &lt;NA&gt;    R    S &lt;NA&gt;   R    R    R    R    R   R   R   R   S &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   4:   S    R &lt;NA&gt;    R    S &lt;NA&gt;   R    R    R    R    R   R   R   R   S &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   5:   S    R &lt;NA&gt;    R    S &lt;NA&gt;   R    R    R    R    R   R   R   R   S &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  ---                                                                          </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 905:   S    S &lt;NA&gt;    R    S &lt;NA&gt;   R    R &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;   R   R   R   S    S</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 906:   S    S &lt;NA&gt;    R    S &lt;NA&gt;   R    R &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;   R   R   R   S    S</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 907:   S &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;    S &lt;NA&gt;   S &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;   S   S   S   S    S</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 908:   R    R &lt;NA&gt;    R    R    R   R    R &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;   R   R   R   S    S</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 909:   S    S &lt;NA&gt;    R    S &lt;NA&gt;   R    R &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;   R   R   R   S    S</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>       MTR  CHL  COL  MUP  RIF</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   1: &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;    R</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   2: &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;    R</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   3: &lt;NA&gt; &lt;NA&gt;    R &lt;NA&gt;    R</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   4: &lt;NA&gt; &lt;NA&gt;    R &lt;NA&gt;    R</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   5: &lt;NA&gt; &lt;NA&gt;    R &lt;NA&gt;    R</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  ---                         </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 905: &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;    R</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 906: &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;    R</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 907: &lt;NA&gt; &lt;NA&gt;    R &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 908: &lt;NA&gt; &lt;NA&gt;    S &lt;NA&gt;    R</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 909: &lt;NA&gt; &lt;NA&gt;    S &lt;NA&gt;    R</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem)</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA'</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC'</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP'</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   (piperacillin/tazobactam)</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>      PEN  OXA  FLC  AMX AMC  AMP  TZP</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   1:   R &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;   I &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   2:   R &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;   I &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   3:   R &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;   I &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   4:   R &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;   I &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   5:   R &lt;NA&gt; &lt;NA&gt;    R   R    R &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  ---                                 </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 905:   R &lt;NA&gt; &lt;NA&gt;    S   S    S    S</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 906:   R &lt;NA&gt; &lt;NA&gt;    S   S    S    S</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 907:   R    S    S &lt;NA&gt;   S &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 908:   R &lt;NA&gt; &lt;NA&gt;    R   S    R    S</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 909:   R &lt;NA&gt; &lt;NA&gt;    R   S    R    S</span>
 <span class="r-in"><span><span class="co"># }</span></span></span>
 </code></pre></div>
     </div>
diff --git a/reference/antibiotics.html b/reference/antibiotics.html
index b046bea7..5239218d 100644
--- a/reference/antibiotics.html
+++ b/reference/antibiotics.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 8cca1401..0b2f5147 100644
--- a/reference/as.ab.html
+++ b/reference/as.ab.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 57abb576..317f0f5a 100644
--- a/reference/as.av.html
+++ b/reference/as.av.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 70c1021e..141ff7d7 100644
--- a/reference/as.disk.html
+++ b/reference/as.disk.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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.html b/reference/as.mic.html
index 6f8465ae..53dd8665 100644
--- a/reference/as.mic.html
+++ b/reference/as.mic.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 a6ae33f0..7033e0ac 100644
--- a/reference/as.mo.html
+++ b/reference/as.mo.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 cd129cf0..90c1fcf6 100644
--- a/reference/as.sir.html
+++ b/reference/as.sir.html
@@ -12,7 +12,7 @@ All breakpoints used for interpretation are publicly available in the clinical_b
     
     <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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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">
@@ -534,16 +534,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: 50 × 17</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    datetime            index ab_input ab_guid…¹ mo_in…² mo_guideline     guide…³</span>
 <span class="r-out co"><span class="r-pr">#&gt;</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;ab&gt;</span>      <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>             <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>  </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 2023-03-11 <span style="color: #949494;">13:29:32</span>     1 TOB      TOB       Escher… B_[ORD]_ENTRBCTR EUCAST…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 2023-03-11 <span style="color: #949494;">13:29:32</span>     1 GEN      GEN       Escher… B_[ORD]_ENTRBCTR EUCAST…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 2023-03-11 <span style="color: #949494;">13:29:32</span>     1 CIP      CIP       Escher… B_[ORD]_ENTRBCTR EUCAST…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 2023-03-11 <span style="color: #949494;">13:29:31</span>     1 AMP      AMP       Escher… B_[ORD]_ENTRBCTR EUCAST…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 2023-03-11 <span style="color: #949494;">13:29:26</span>     1 CIP      CIP       B_ESCH… B_[ORD]_ENTRBCTR EUCAST…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 2023-03-11 <span style="color: #949494;">13:29:26</span>     2 CIP      CIP       B_ESCH… B_[ORD]_ENTRBCTR EUCAST…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 2023-03-11 <span style="color: #949494;">13:29:26</span>     3 CIP      CIP       B_ESCH… B_[ORD]_ENTRBCTR EUCAST…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 2023-03-11 <span style="color: #949494;">13:29:26</span>     4 CIP      CIP       B_ESCH… B_[ORD]_ENTRBCTR EUCAST…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 2023-03-11 <span style="color: #949494;">13:29:26</span>     5 CIP      CIP       B_ESCH… B_[ORD]_ENTRBCTR EUCAST…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 2023-03-11 <span style="color: #949494;">13:29:26</span>     6 CIP      CIP       B_ESCH… B_[ORD]_ENTRBCTR EUCAST…</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 2023-03-11 <span style="color: #949494;">15:59:39</span>     1 TOB      TOB       Escher… B_[ORD]_ENTRBCTR EUCAST…</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 2023-03-11 <span style="color: #949494;">15:59:39</span>     1 GEN      GEN       Escher… B_[ORD]_ENTRBCTR EUCAST…</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 2023-03-11 <span style="color: #949494;">15:59:38</span>     1 CIP      CIP       Escher… B_[ORD]_ENTRBCTR EUCAST…</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 2023-03-11 <span style="color: #949494;">15:59:38</span>     1 AMP      AMP       Escher… B_[ORD]_ENTRBCTR EUCAST…</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 2023-03-11 <span style="color: #949494;">15:59:33</span>     1 CIP      CIP       B_ESCH… B_[ORD]_ENTRBCTR EUCAST…</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 2023-03-11 <span style="color: #949494;">15:59:33</span>     2 CIP      CIP       B_ESCH… B_[ORD]_ENTRBCTR EUCAST…</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 2023-03-11 <span style="color: #949494;">15:59:33</span>     3 CIP      CIP       B_ESCH… B_[ORD]_ENTRBCTR EUCAST…</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 2023-03-11 <span style="color: #949494;">15:59:33</span>     4 CIP      CIP       B_ESCH… B_[ORD]_ENTRBCTR EUCAST…</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 2023-03-11 <span style="color: #949494;">15:59:33</span>     5 CIP      CIP       B_ESCH… B_[ORD]_ENTRBCTR EUCAST…</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 2023-03-11 <span style="color: #949494;">15:59:33</span>     6 CIP      CIP       B_ESCH… B_[ORD]_ENTRBCTR EUCAST…</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># … with 40 more rows, 10 more variables: ref_table &lt;chr&gt;, method &lt;chr&gt;,</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   input &lt;dbl&gt;, outcome &lt;sir&gt;, breakpoint_S_R &lt;chr&gt;, ab_considered &lt;lgl&gt;,</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   mo_considered &lt;lgl&gt;, breakpoint_S &lt;lgl&gt;, breakpoint_R &lt;lgl&gt;,</span></span>
diff --git a/reference/atc_online.html b/reference/atc_online.html
index 04cd81ff..152b4bdc 100644
--- a/reference/atc_online.html
+++ b/reference/atc_online.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 5191fe8f..36a33f9d 100644
--- a/reference/av_from_text.html
+++ b/reference/av_from_text.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 43057d3e..fcde0198 100644
--- a/reference/av_property.html
+++ b/reference/av_property.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 d0537a80..86ca5fc6 100644
--- a/reference/availability.html
+++ b/reference/availability.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 111ab768..e517c405 100644
--- a/reference/bug_drug_combinations.html
+++ b/reference/bug_drug_combinations.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 c87de6e0..e93c805b 100644
--- a/reference/clinical_breakpoints.html
+++ b/reference/clinical_breakpoints.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 d19ce19f..7c6a82d6 100644
--- a/reference/count.html
+++ b/reference/count.html
@@ -12,7 +12,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 86ec20bb..8be77a3d 100644
--- a/reference/custom_eucast_rules.html
+++ b/reference/custom_eucast_rules.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 a1751b97..3f804535 100644
--- a/reference/dosage.html
+++ b/reference/dosage.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 51954e6e..ee4429db 100644
--- a/reference/eucast_rules.html
+++ b/reference/eucast_rules.html
@@ -12,7 +12,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 7c8541f0..f6301693 100644
--- a/reference/example_isolates.html
+++ b/reference/example_isolates.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 d3c91d71..47ca5f38 100644
--- a/reference/example_isolates_unclean.html
+++ b/reference/example_isolates_unclean.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 788c1bbd..c0c42375 100644
--- a/reference/first_isolate.html
+++ b/reference/first_isolate.html
@@ -12,7 +12,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 fe2ff13a..d07debca 100644
--- a/reference/g.test.html
+++ b/reference/g.test.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 d7a7d31e..17dd237f 100644
--- a/reference/get_episode.html
+++ b/reference/get_episode.html
@@ -1,5 +1,5 @@
 <!DOCTYPE html>
-<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><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"><meta name="description" content="These functions determine which items in a vector can be considered (the start of) a new episode. This can be used to determine clinical episodes for any epidemiological analysis. The get_episode() function returns the index number of the episode per group, while the is_new_episode() function returns TRUE for every new get_episode() index. Both absolute and relative episode determination are supported."><title>Determine (Clinical or Epidemic) Episodes — get_episode • 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"><link rel="apple-touch-icon" type="image/png" sizes="120x120" href="../apple-touch-icon-120x120.png"><link rel="apple-touch-icon" type="image/png" sizes="76x76" href="../apple-touch-icon-76x76.png"><link rel="apple-touch-icon" type="image/png" sizes="60x60" href="../apple-touch-icon-60x60.png"><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.2.2/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.2.2/bootstrap.bundle.min.js"></script><link href="../deps/Fira_Code-0.4.5/font.css" rel="stylesheet"><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><link href="../extra.css" rel="stylesheet"><script src="../extra.js"></script><meta property="og:title" content="Determine (Clinical or Epidemic) Episodes — get_episode"><meta property="og:description" content="These functions determine which items in a vector can be considered (the start of) a new episode. This can be used to determine clinical episodes for any epidemiological analysis. The get_episode() function returns the index number of the episode per group, while the is_new_episode() function returns TRUE for every new get_episode() index. Both absolute and relative episode determination are supported."><meta property="og:image" content="https://msberends.github.io/AMR/logo.svg"><meta name="twitter:card" content="summary_large_image"><meta name="twitter:creator" content="@msberends"><meta name="twitter:site" content="@msberends"><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
+<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><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"><meta name="description" content="These functions determine which items in a vector can be considered (the start of) a new episode. This can be used to determine clinical episodes for any epidemiological analysis. The get_episode() function returns the index number of the episode per group, while the is_new_episode() function returns TRUE for every new get_episode() index. Both absolute and relative episode determination are supported."><title>Determine Clinical or Epidemic Episodes — get_episode • 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"><link rel="apple-touch-icon" type="image/png" sizes="120x120" href="../apple-touch-icon-120x120.png"><link rel="apple-touch-icon" type="image/png" sizes="76x76" href="../apple-touch-icon-76x76.png"><link rel="apple-touch-icon" type="image/png" sizes="60x60" href="../apple-touch-icon-60x60.png"><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.2.2/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.2.2/bootstrap.bundle.min.js"></script><link href="../deps/Fira_Code-0.4.5/font.css" rel="stylesheet"><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><link href="../extra.css" rel="stylesheet"><script src="../extra.js"></script><meta property="og:title" content="Determine Clinical or Epidemic Episodes — get_episode"><meta property="og:description" content="These functions determine which items in a vector can be considered (the start of) a new episode. This can be used to determine clinical episodes for any epidemiological analysis. The get_episode() function returns the index number of the episode per group, while the is_new_episode() function returns TRUE for every new get_episode() index. Both absolute and relative episode determination are supported."><meta property="og:image" content="https://msberends.github.io/AMR/logo.svg"><meta name="twitter:card" content="summary_large_image"><meta name="twitter:creator" content="@msberends"><meta name="twitter:site" content="@msberends"><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
 <script src="https://oss.maxcdn.com/html5shiv/3.7.3/html5shiv.min.js"></script>
 <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
 <![endif]--></head><body>
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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">
@@ -137,7 +137,7 @@
 </nav><div class="container template-reference-topic">
 <div class="row">
   <main id="main" class="col-md-9"><div class="page-header">
-      <img src="../logo.svg" class="logo" alt=""><h1>Determine (Clinical or Epidemic) Episodes</h1>
+      <img src="../logo.svg" class="logo" alt=""><h1>Determine Clinical or Epidemic Episodes</h1>
       <small class="dont-index">Source: <a href="https://github.com/msberends/AMR/blob/HEAD/R/get_episode.R" class="external-link"><code>R/get_episode.R</code></a></small>
       <div class="d-none name"><code>get_episode.Rd</code></div>
     </div>
@@ -193,7 +193,7 @@
 
 
 <p>The <code>get_episode()</code> function returns the index number of the episode, so all cases/patients/isolates in the first episode will have the number 1, all cases/patients/isolates in the second episode will have the number 2, etc.</p>
-<p>The <code>is_new_episode()</code> function returns <code>TRUE</code> for every new <code>get_episode()</code> index, and is thus equal to <code>!duplicated(get_episode(...))</code>.</p>
+<p>The <code>is_new_episode()</code> function on the other hand, returns <code>TRUE</code> for every new <code>get_episode()</code> index.</p>
 <p>To specify, when setting <code>episode_days = 365</code> (using method 1 as explained above), this is how the two functions differ:</p><table class="table table"><tr><td>patient</td><td>date</td><td><code>get_episode()</code></td><td><code>is_new_episode()</code></td></tr><tr><td>A</td><td>2019-01-01</td><td>1</td><td>TRUE</td></tr><tr><td>A</td><td>2019-03-01</td><td>1</td><td>FALSE</td></tr><tr><td>A</td><td>2021-01-01</td><td>2</td><td>TRUE</td></tr><tr><td>B</td><td>2008-01-01</td><td>1</td><td>TRUE</td></tr><tr><td>B</td><td>2008-01-01</td><td>1</td><td>FALSE</td></tr><tr><td>C</td><td>2020-01-01</td><td>1</td><td>TRUE</td></tr></table></div>
 
 <div class="section">
@@ -246,29 +246,28 @@
 <span class="r-in"><span><span class="va">df</span> <span class="op">&lt;-</span> <span class="va">example_isolates</span><span class="op">[</span><span class="fu"><a href="https://rdrr.io/r/base/sample.html" class="external-link">sample</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/seq.html" class="external-link">seq_len</a></span><span class="op">(</span><span class="fl">2000</span><span class="op">)</span>, size <span class="op">=</span> <span class="fl">100</span><span class="op">)</span>, <span class="op">]</span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu">get_episode</span><span class="op">(</span><span class="va">df</span><span class="op">$</span><span class="va">date</span>, episode_days <span class="op">=</span> <span class="fl">60</span><span class="op">)</span> <span class="co"># indices</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   [1]  8 36 16 50 29 40 17  1 46 26 52 49 35 37  3 37 52 40 21 51 38 22 29  5 21</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [26] 37 31 17 49 13 20 44 35 29  9 49  8 11 30  6  8  5 41 27 44 12 39 12 21  3</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [51] 33 44 25 14  8 49 30  7 50 11 34 10 47 21  6 15  3 39 19  7  2 51  5 38 28</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [76] 32 29 22 43 33 49 45  4 31 30 18 44 48  9 47 29 44  2 42 23 42  7 24 19  7</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   [1] 41  9  6 37 14  5 39 36 47 13 45 19 26 35 24 42 46 29  1 38 31 27 20 23 11</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [26] 23 46  3  6 33 44 22 32 21 20 18  7  1 22 21 17 38 28 30 33 40 12  8 32 12</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [51] 47 34 43 24 48 46  9 47  4 47 34 47 26 30 25 44  1  1 10 10 33 20 15 20 45</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [76] 46 14 47  6 30 38  5 31 40 21  4 22  9  4 40  7  2 12  3 43 16 24 15 32  7</span>
 <span class="r-in"><span><span class="fu">is_new_episode</span><span class="op">(</span><span class="va">df</span><span class="op">$</span><span class="va">date</span>, episode_days <span class="op">=</span> <span class="fl">60</span><span class="op">)</span> <span class="co"># TRUE/FALSE</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [13]  TRUE  TRUE  TRUE FALSE FALSE FALSE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [25] FALSE FALSE  TRUE FALSE FALSE  TRUE  TRUE  TRUE FALSE FALSE  TRUE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [37] FALSE  TRUE  TRUE  TRUE FALSE FALSE  TRUE  TRUE FALSE  TRUE  TRUE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [49] FALSE FALSE  TRUE FALSE  TRUE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [61]  TRUE  TRUE  TRUE FALSE FALSE  TRUE FALSE FALSE  TRUE FALSE  TRUE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [73] FALSE FALSE  TRUE  TRUE FALSE FALSE  TRUE FALSE FALSE  TRUE  TRUE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [85] FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [97] FALSE  TRUE FALSE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [13]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [25]  TRUE FALSE FALSE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [37]  TRUE FALSE FALSE FALSE  TRUE FALSE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [49] FALSE FALSE FALSE  TRUE  TRUE FALSE  TRUE FALSE FALSE FALSE  TRUE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [61] FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [73]  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [85] FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [97] FALSE FALSE FALSE FALSE</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># filter on results from the third 60-day episode only, using base R</span></span></span>
 <span class="r-in"><span><span class="va">df</span><span class="op">[</span><span class="fu"><a href="https://rdrr.io/r/base/which.html" class="external-link">which</a></span><span class="op">(</span><span class="fu">get_episode</span><span class="op">(</span><span class="va">df</span><span class="op">$</span><span class="va">date</span>, <span class="fl">60</span><span class="op">)</span> <span class="op">==</span> <span class="fl">3</span><span class="op">)</span>, <span class="op">]</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 3 × 46</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 2 × 46</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   date       patient   age gender ward     mo           PEN   OXA   FLC   AMX  </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;date&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 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;mo&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> 2002-12-14 144280     76 F      Clinical B_STPHY_AURS R     NA    S     R    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> 2002-11-16 762305     87 F      Clinical B_PROTS_MRBL R     NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> 2002-11-16 762305     87 F      Clinical B_BCTRD_FRGL R     NA    NA    R    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> 2003-01-06 894506     83 M      ICU      B_CRYNB      S     NA    NA    NA   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> 2002-11-18 956065     89 F      Clinical B_ESCHR_COLI R     NA    NA    NA   </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># … with 36 more variables: AMC &lt;sir&gt;, AMP &lt;sir&gt;, TZP &lt;sir&gt;, CZO &lt;sir&gt;,</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   FEP &lt;sir&gt;, CXM &lt;sir&gt;, FOX &lt;sir&gt;, CTX &lt;sir&gt;, CAZ &lt;sir&gt;, CRO &lt;sir&gt;,</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   GEN &lt;sir&gt;, TOB &lt;sir&gt;, AMK &lt;sir&gt;, KAN &lt;sir&gt;, TMP &lt;sir&gt;, SXT &lt;sir&gt;,</span></span>
@@ -306,16 +305,16 @@
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   patient, condition [98]</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    patient date       condition new_episode</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;date&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;lgl&gt;</span>      </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 074321  2015-09-20 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 088256  2003-01-25 B         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 097186  2015-10-28 C         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 0D7D34  2011-03-19 B         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 0E2483  2008-07-22 C         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 105248  2005-06-16 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 107DD1  2012-09-03 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 114570  2003-04-08 C         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 136315  2004-02-02 B         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 144280  2002-12-14 B         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 04C169  2012-07-18 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 051150  2007-01-02 C         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 05C73F  2006-01-12 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 092034  2016-08-07 B         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 0C0688  2014-09-05 B         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 0D7D34  2011-03-17 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 0D7D34  2011-03-16 C         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 0DBB93  2003-10-02 C         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 114570  2003-04-22 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 146120  2011-09-23 B         TRUE       </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># … with 90 more rows</span></span>
 <span class="r-in"><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://dplyr.tidyverse.org" class="external-link">"dplyr"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
@@ -329,19 +328,19 @@
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/arrange.html" class="external-link">arrange</a></span><span class="op">(</span><span class="va">patient</span>, <span class="va">ward</span>, <span class="va">date</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 100 × 5</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   ward, patient [94]</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   ward, patient [95]</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    ward     date       patient new_index new_logical</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;date&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>       <span style="color: #949494; font-style: italic;">&lt;int&gt;</span> <span style="color: #949494; font-style: italic;">&lt;lgl&gt;</span>      </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> ICU      2015-09-20 074321          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> ICU      2003-01-25 088256          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> Clinical 2015-10-28 097186          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> ICU      2011-03-19 0D7D34          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> Clinical 2008-07-22 0E2483          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> Clinical 2005-06-16 105248          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> Clinical 2012-09-03 107DD1          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> ICU      2003-04-08 114570          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> Clinical 2004-02-02 136315          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> Clinical 2002-12-14 144280          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> Clinical 2012-07-18 04C169          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> ICU      2007-01-02 051150          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> Clinical 2006-01-12 05C73F          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> Clinical 2016-08-07 092034          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> Clinical 2014-09-05 0C0688          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> ICU      2011-03-16 0D7D34          1 FALSE      </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> ICU      2011-03-17 0D7D34          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> ICU      2003-10-02 0DBB93          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> ICU      2003-04-22 114570          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> Clinical 2011-09-23 146120          1 TRUE       </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># … with 90 more rows</span></span>
 <span class="r-in"><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://dplyr.tidyverse.org" class="external-link">"dplyr"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
@@ -357,9 +356,9 @@
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 3 × 5</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   ward       n_patients n_episodes_365 n_episodes_60 n_episodes_30</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>           <span style="color: #949494; font-style: italic;">&lt;int&gt;</span>          <span style="color: #949494; font-style: italic;">&lt;int&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;int&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;int&gt;</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> Clinical           64             14            44            54</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> ICU                29             10            22            24</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> Outpatient          1              1             1             1</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> Clinical           62             13            35            48</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> ICU                27              9            22            23</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> Outpatient          6              4             6             6</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># grouping on patients and microorganisms leads to the same</span></span></span>
 <span class="r-in"><span><span class="co"># results as first_isolate() when using 'episode-based':</span></span></span>
@@ -388,19 +387,19 @@
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/select.html" class="external-link">select</a></span><span class="op">(</span><span class="fu"><a href="https://dplyr.tidyverse.org/reference/group_data.html" class="external-link">group_vars</a></span><span class="op">(</span><span class="va">.</span><span class="op">)</span>, <span class="va">flag_episode</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 100 × 4</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   patient, mo, ward [98]</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    patient mo           ward     flag_episode</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;lgl&gt;</span>       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> E32B78  B_GEMLL_HMLY ICU      TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 672020  B_STPHY_EPDR Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 578848  B_STPHY_CONS Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 844790  B_STPHY_LGDN ICU      TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 409788  B_STPHY_CONS Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 789292  B_STRPT_SLVR Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 94BB11  B_ESCHR_COLI Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 495616  B_STPHY_EPDR Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 329C35  B_ESCHR_COLI Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> D19627  B_ESCHR_COLI Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   patient, mo, ward [99]</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    patient mo            ward       flag_episode</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>          <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>      <span style="color: #949494; font-style: italic;">&lt;lgl&gt;</span>       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 310665  B_STPHY_CPTS  Outpatient TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> B95551  B_STPHY_CONS  Outpatient TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> F35553  B_ENTRC       ICU        TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 919B60  B_STPHY_AURS  Clinical   TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 911753  B_STPHY_AURS  Clinical   TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> CBC201  B_STPHY_CONS  Clinical   TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> DC47C6  B_PSDMN_AERG  Clinical   TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 287666  B_ESCHR_COLI  Clinical   TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 594103  B_MCRCCC_LUTS Clinical   TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> B12221  B_STPHY_AURS  Clinical   TRUE        </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># … with 90 more rows</span></span>
 <span class="r-in"><span><span class="co"># }</span></span></span>
 </code></pre></div>
diff --git a/reference/ggplot_pca.html b/reference/ggplot_pca.html
index fac7344c..98b44f38 100644
--- a/reference/ggplot_pca.html
+++ b/reference/ggplot_pca.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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.html b/reference/ggplot_sir.html
index 3560e138..3f523dc1 100644
--- a/reference/ggplot_sir.html
+++ b/reference/ggplot_sir.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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/guess_ab_col.html b/reference/guess_ab_col.html
index 6ad8924e..505b94cf 100644
--- a/reference/guess_ab_col.html
+++ b/reference/guess_ab_col.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 24afe186..37f320b4 100644
--- a/reference/index.html
+++ b/reference/index.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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">
@@ -273,7 +273,7 @@
           
           <code><a href="get_episode.html">get_episode()</a></code> <code><a href="get_episode.html">is_new_episode()</a></code> 
         </dt>
-        <dd>Determine (Clinical or Epidemic) Episodes</dd>
+        <dd>Determine Clinical or Epidemic Episodes</dd>
       </dl><dl><dt>
           
           <code><a href="first_isolate.html">first_isolate()</a></code> <code><a href="first_isolate.html">filter_first_isolate()</a></code> 
diff --git a/reference/intrinsic_resistant.html b/reference/intrinsic_resistant.html
index 0f3c1140..8f6beab2 100644
--- a/reference/intrinsic_resistant.html
+++ b/reference/intrinsic_resistant.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 5e1dc36b..5be911a1 100644
--- a/reference/italicise_taxonomy.html
+++ b/reference/italicise_taxonomy.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 2e55f508..02211d3f 100644
--- a/reference/join.html
+++ b/reference/join.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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">
@@ -190,7 +190,7 @@
     <div class="section level2">
     <h2 id="details">Details<a class="anchor" aria-label="anchor" href="#details"></a></h2>
     <p><strong>Note:</strong> As opposed to the <code>join()</code> functions of <code>dplyr</code>, <a href="https://rdrr.io/r/base/character.html" class="external-link">character</a> vectors are supported and at default existing columns will get a suffix <code>"2"</code> and the newly joined columns will not get a suffix.</p>
-<p>If the <code>dplyr</code> package is installed, their join functions will be used. Otherwise, the much slower <code><a href="https://rdrr.io/r/base/merge.html" class="external-link">merge()</a></code> and <code><a href="https://rdrr.io/r/base/interaction.html" class="external-link">interaction()</a></code> functions from base <span style="R">R</span> will be used.</p>
+<p>If the <code>dplyr</code> package is installed, their join functions will be used. Otherwise, the much slower <code><a href="https://Rdatatable.gitlab.io/data.table/reference/merge.html" class="external-link">merge()</a></code> and <code><a href="https://rdrr.io/r/base/interaction.html" class="external-link">interaction()</a></code> functions from base <span style="R">R</span> will be used.</p>
     </div>
 
     <div class="section level2">
diff --git a/reference/key_antimicrobials.html b/reference/key_antimicrobials.html
index 3952a3a1..56c55db9 100644
--- a/reference/key_antimicrobials.html
+++ b/reference/key_antimicrobials.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 d3e8b4e4..4c32258f 100644
--- a/reference/kurtosis.html
+++ b/reference/kurtosis.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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">
@@ -182,9 +182,9 @@
     <div class="section level2">
     <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="fu">kurtosis</span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/stats/Normal.html" class="external-link">rnorm</a></span><span class="op">(</span><span class="fl">10000</span><span class="op">)</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 2.983707</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 3.019054</span>
 <span class="r-in"><span><span class="fu">kurtosis</span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/stats/Normal.html" class="external-link">rnorm</a></span><span class="op">(</span><span class="fl">10000</span><span class="op">)</span>, excess <span class="op">=</span> <span class="cn">TRUE</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.0116776</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.0782188</span>
 </code></pre></div>
     </div>
   </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
diff --git a/reference/like.html b/reference/like.html
index e22e2926..145d48f6 100644
--- a/reference/like.html
+++ b/reference/like.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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">
@@ -201,7 +201,7 @@
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="va">a</span> <span class="op">&lt;-</span> <span class="st">"This is a test"</span></span></span>
 <span class="r-in"><span><span class="va">b</span> <span class="op">&lt;-</span> <span class="st">"TEST"</span></span></span>
 <span class="r-in"><span><span class="va">a</span> <span class="op">%like%</span> <span class="va">b</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] FALSE</span>
 <span class="r-in"><span><span class="va">b</span> <span class="op">%like%</span> <span class="va">a</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1] FALSE</span>
 <span class="r-in"><span></span></span>
@@ -209,12 +209,14 @@
 <span class="r-in"><span><span class="va">a</span> <span class="op">&lt;-</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="st">"Test case"</span>, <span class="st">"Something different"</span>, <span class="st">"Yet another thing"</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="va">b</span> <span class="op">&lt;-</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="st">"case"</span>, <span class="st">"diff"</span>, <span class="st">"yet"</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="va">a</span> <span class="op">%like%</span> <span class="va">b</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] TRUE TRUE TRUE</span>
+<span class="r-wrn co"><span class="r-pr">#&gt;</span> <span class="warning">Warning: </span>argument 'pattern' has length &gt; 1 and only the first element will be used</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1]  TRUE FALSE FALSE</span>
 <span class="r-in"><span><span class="va">a</span> <span class="op">%unlike%</span> <span class="va">b</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1] FALSE FALSE FALSE</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="va">a</span><span class="op">[</span><span class="fl">1</span><span class="op">]</span> <span class="op">%like%</span> <span class="va">b</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1]  TRUE FALSE FALSE</span>
+<span class="r-wrn co"><span class="r-pr">#&gt;</span> <span class="warning">Warning: </span>argument 'pattern' has length &gt; 1 and only the first element will be used</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] TRUE</span>
 <span class="r-in"><span><span class="va">a</span> <span class="op">%like%</span> <span class="va">b</span><span class="op">[</span><span class="fl">1</span><span class="op">]</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1]  TRUE FALSE FALSE</span>
 <span class="r-in"><span></span></span>
@@ -222,52 +224,28 @@
 <span class="r-in"><span><span class="co"># get isolates whose name start with 'Entero' (case-insensitive)</span></span></span>
 <span class="r-in"><span><span class="va">example_isolates</span><span class="op">[</span><span class="fu"><a href="https://rdrr.io/r/base/which.html" class="external-link">which</a></span><span class="op">(</span><span class="fu"><a href="mo_property.html">mo_name</a></span><span class="op">(</span><span class="op">)</span> <span class="op">%like%</span> <span class="st">"^entero"</span><span class="op">)</span>, <span class="op">]</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Using column 'mo' as input for mo_name()</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 106 × 46</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX  </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;date&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 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;mo&gt;</span>          <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 2002-02-21 4FC193     69 M      Clinic… B_ENTRC_FACM  NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 2002-04-08 130252     78 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 2003-04-20 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 2003-04-21 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 2003-08-13 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 2003-08-13 F35553     52 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 2003-09-05 F35553     52 M      ICU     B_ENTRC       NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 2003-09-05 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># … with 96 more rows, and 36 more variables: AMC &lt;sir&gt;, AMP &lt;sir&gt;, TZP &lt;sir&gt;,</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   CZO &lt;sir&gt;, FEP &lt;sir&gt;, CXM &lt;sir&gt;, FOX &lt;sir&gt;, CTX &lt;sir&gt;, CAZ &lt;sir&gt;,</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   CRO &lt;sir&gt;, GEN &lt;sir&gt;, TOB &lt;sir&gt;, AMK &lt;sir&gt;, KAN &lt;sir&gt;, TMP &lt;sir&gt;,</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   SXT &lt;sir&gt;, NIT &lt;sir&gt;, FOS &lt;sir&gt;, LNZ &lt;sir&gt;, CIP &lt;sir&gt;, MFX &lt;sir&gt;,</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   VAN &lt;sir&gt;, TEC &lt;sir&gt;, TCY &lt;sir&gt;, TGC &lt;sir&gt;, DOX &lt;sir&gt;, ERY &lt;sir&gt;,</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   CLI &lt;sir&gt;, AZM &lt;sir&gt;, IPM &lt;sir&gt;, MEM &lt;sir&gt;, MTR &lt;sir&gt;, CHL &lt;sir&gt;,</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   COL &lt;sir&gt;, MUP &lt;sir&gt;, RIF &lt;sir&gt;</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 0 × 46</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># … with 46 variables: date &lt;date&gt;, patient &lt;chr&gt;, age &lt;dbl&gt;, gender &lt;chr&gt;,</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   ward &lt;chr&gt;, mo &lt;mo&gt;, PEN &lt;sir&gt;, OXA &lt;sir&gt;, FLC &lt;sir&gt;, AMX &lt;sir&gt;, AMC &lt;sir&gt;,</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   AMP &lt;sir&gt;, TZP &lt;sir&gt;, CZO &lt;sir&gt;, FEP &lt;sir&gt;, CXM &lt;sir&gt;, FOX &lt;sir&gt;,</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   CTX &lt;sir&gt;, CAZ &lt;sir&gt;, CRO &lt;sir&gt;, GEN &lt;sir&gt;, TOB &lt;sir&gt;, AMK &lt;sir&gt;,</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   KAN &lt;sir&gt;, TMP &lt;sir&gt;, SXT &lt;sir&gt;, NIT &lt;sir&gt;, FOS &lt;sir&gt;, LNZ &lt;sir&gt;,</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   CIP &lt;sir&gt;, MFX &lt;sir&gt;, VAN &lt;sir&gt;, TEC &lt;sir&gt;, TCY &lt;sir&gt;, TGC &lt;sir&gt;,</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   DOX &lt;sir&gt;, ERY &lt;sir&gt;, CLI &lt;sir&gt;, AZM &lt;sir&gt;, IPM &lt;sir&gt;, MEM &lt;sir&gt;, …</span></span>
 <span class="r-in"><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://dplyr.tidyverse.org" class="external-link">"dplyr"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
 <span class="r-in"><span>  <span class="va">example_isolates</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span></span>
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/filter.html" class="external-link">filter</a></span><span class="op">(</span><span class="fu"><a href="mo_property.html">mo_name</a></span><span class="op">(</span><span class="op">)</span> <span class="op">%like%</span> <span class="st">"^ent"</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Using column 'mo' as input for mo_name()</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 106 × 46</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX  </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;date&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 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;mo&gt;</span>          <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 2002-02-21 4FC193     69 M      Clinic… B_ENTRC_FACM  NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 2002-04-08 130252     78 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 2003-04-20 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 2003-04-21 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 2003-08-13 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 2003-08-13 F35553     52 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 2003-09-05 F35553     52 M      ICU     B_ENTRC       NA    NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 2003-09-05 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># … with 96 more rows, and 36 more variables: AMC &lt;sir&gt;, AMP &lt;sir&gt;, TZP &lt;sir&gt;,</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   CZO &lt;sir&gt;, FEP &lt;sir&gt;, CXM &lt;sir&gt;, FOX &lt;sir&gt;, CTX &lt;sir&gt;, CAZ &lt;sir&gt;,</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   CRO &lt;sir&gt;, GEN &lt;sir&gt;, TOB &lt;sir&gt;, AMK &lt;sir&gt;, KAN &lt;sir&gt;, TMP &lt;sir&gt;,</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   SXT &lt;sir&gt;, NIT &lt;sir&gt;, FOS &lt;sir&gt;, LNZ &lt;sir&gt;, CIP &lt;sir&gt;, MFX &lt;sir&gt;,</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   VAN &lt;sir&gt;, TEC &lt;sir&gt;, TCY &lt;sir&gt;, TGC &lt;sir&gt;, DOX &lt;sir&gt;, ERY &lt;sir&gt;,</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   CLI &lt;sir&gt;, AZM &lt;sir&gt;, IPM &lt;sir&gt;, MEM &lt;sir&gt;, MTR &lt;sir&gt;, CHL &lt;sir&gt;,</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   COL &lt;sir&gt;, MUP &lt;sir&gt;, RIF &lt;sir&gt;</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 0 × 46</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># … with 46 variables: date &lt;date&gt;, patient &lt;chr&gt;, age &lt;dbl&gt;, gender &lt;chr&gt;,</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   ward &lt;chr&gt;, mo &lt;mo&gt;, PEN &lt;sir&gt;, OXA &lt;sir&gt;, FLC &lt;sir&gt;, AMX &lt;sir&gt;, AMC &lt;sir&gt;,</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   AMP &lt;sir&gt;, TZP &lt;sir&gt;, CZO &lt;sir&gt;, FEP &lt;sir&gt;, CXM &lt;sir&gt;, FOX &lt;sir&gt;,</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   CTX &lt;sir&gt;, CAZ &lt;sir&gt;, CRO &lt;sir&gt;, GEN &lt;sir&gt;, TOB &lt;sir&gt;, AMK &lt;sir&gt;,</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   KAN &lt;sir&gt;, TMP &lt;sir&gt;, SXT &lt;sir&gt;, NIT &lt;sir&gt;, FOS &lt;sir&gt;, LNZ &lt;sir&gt;,</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   CIP &lt;sir&gt;, MFX &lt;sir&gt;, VAN &lt;sir&gt;, TEC &lt;sir&gt;, TCY &lt;sir&gt;, TGC &lt;sir&gt;,</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   DOX &lt;sir&gt;, ERY &lt;sir&gt;, CLI &lt;sir&gt;, AZM &lt;sir&gt;, IPM &lt;sir&gt;, MEM &lt;sir&gt;, …</span></span>
 <span class="r-in"><span><span class="co"># }</span></span></span>
 </code></pre></div>
     </div>
diff --git a/reference/mdro.html b/reference/mdro.html
index b7781abf..aa1a23f1 100644
--- a/reference/mdro.html
+++ b/reference/mdro.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 14f4728e..0359a4c9 100644
--- a/reference/mean_amr_distance.html
+++ b/reference/mean_amr_distance.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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">
@@ -201,31 +201,31 @@
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="va">sir</span> <span class="op">&lt;-</span> <span class="fu"><a href="random.html">random_sir</a></span><span class="op">(</span><span class="fl">10</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="va">sir</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'sir'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] R I I I I S R S I R</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] S I S R I I S I R I</span>
 <span class="r-in"><span><span class="fu">mean_amr_distance</span><span class="op">(</span><span class="va">sir</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1]  1.449138 -0.621059 -0.621059 -0.621059 -0.621059 -0.621059  1.449138</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [8] -0.621059 -0.621059  1.449138</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -0.4743416 -0.4743416 -0.4743416  1.8973666 -0.4743416 -0.4743416</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -0.4743416 -0.4743416  1.8973666 -0.4743416</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="va">mic</span> <span class="op">&lt;-</span> <span class="fu"><a href="random.html">random_mic</a></span><span class="op">(</span><span class="fl">10</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="va">mic</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'mic'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 0.25    1       8       &lt;=0.005 &lt;=0.005 2       0.01    &gt;=256   16     </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [10] 8      </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 0.0625  &lt;=0.001 0.0625  128     0.0625  64      256     8       0.0625 </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [10] 0.002  </span>
 <span class="r-in"><span><span class="fu">mean_amr_distance</span><span class="op">(</span><span class="va">mic</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -0.27951091  0.09147782  0.64796092 -1.32641444 -1.32641444  0.27697218</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -1.14092007  1.57543274  0.83345528  0.64796092</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -0.4417215 -1.3482772 -0.4417215  1.2298295 -0.4417215  1.0778703</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [7]  1.3817887  0.6219928 -0.4417215 -1.1963180</span>
 <span class="r-in"><span><span class="co"># equal to the Z-score of their log2:</span></span></span>
 <span class="r-in"><span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/Log.html" class="external-link">log2</a></span><span class="op">(</span><span class="va">mic</span><span class="op">)</span> <span class="op">-</span> <span class="fu"><a href="https://rdrr.io/r/base/mean.html" class="external-link">mean</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/Log.html" class="external-link">log2</a></span><span class="op">(</span><span class="va">mic</span><span class="op">)</span><span class="op">)</span><span class="op">)</span> <span class="op">/</span> <span class="fu"><a href="https://rdrr.io/r/stats/sd.html" class="external-link">sd</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/Log.html" class="external-link">log2</a></span><span class="op">(</span><span class="va">mic</span><span class="op">)</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -0.27951091  0.09147782  0.64796092 -1.32641444 -1.32641444  0.27697218</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -1.14092007  1.57543274  0.83345528  0.64796092</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -0.4417215 -1.3482772 -0.4417215  1.2298295 -0.4417215  1.0778703</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [7]  1.3817887  0.6219928 -0.4417215 -1.1963180</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="va">disk</span> <span class="op">&lt;-</span> <span class="fu"><a href="random.html">random_disk</a></span><span class="op">(</span><span class="fl">10</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="va">disk</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'disk'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 42 21 38 40 46 49 41 15 29 48</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1]  8 43 46 31 33 33 37 43 45 27</span>
 <span class="r-in"><span><span class="fu">mean_amr_distance</span><span class="op">(</span><span class="va">disk</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1]  0.44150742 -1.37646431  0.09522709  0.26836726  0.78778775  1.04749800</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7]  0.35493734 -1.89588481 -0.68390365  0.96092792</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -2.3345712  0.7372330  1.0005305 -0.3159570 -0.1404253 -0.1404253</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [7]  0.2106380  0.7372330  0.9127647 -0.6670203</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="va">y</span> <span class="op">&lt;-</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></span></span>
 <span class="r-in"><span>  id <span class="op">=</span> <span class="va">LETTERS</span><span class="op">[</span><span class="fl">1</span><span class="op">:</span><span class="fl">10</span><span class="op">]</span>,</span></span>
@@ -236,21 +236,21 @@
 <span class="r-in"><span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="va">y</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    id amox cipr gent   tobr</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 1   A    R   17  0.5    0.5</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2   B    I   22    4    &gt;=8</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3   C    R   31    1      2</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4   D    R   23    1      1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5   E    R   29    1      1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6   F    I   21    1    &gt;=8</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7   G    R   19  0.5    0.5</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8   H    S   20  0.5      1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9   I    R   22    2 &lt;=0.25</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10  J    S   19    2    0.5</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1   A    R   29  &gt;=8 &lt;=0.25</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2   B    S   31    1      4</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 3   C    S   27  &gt;=8      2</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 4   D    R   25    2 &lt;=0.25</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 5   E    R   27  0.5      1</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 6   F    I   22  0.5      1</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 7   G    R   22  0.5     16</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 8   H    I   23    4      8</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 9   I    S   27  0.5      1</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 10  J    R   20    4      4</span>
 <span class="r-in"><span><span class="fu">mean_amr_distance</span><span class="op">(</span><span class="va">y</span><span class="op">)</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Calculating mean AMR distance based on columns "amox", "cipr", "gent",</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   and "tobr"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -0.55862477  0.58537655  0.77602663  0.17820212  0.51539668  0.02637631</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -0.44622659 -0.72591865  0.07694007 -0.42754836</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1]  0.487327335  0.218326088  0.247132119 -0.092191622  0.008553263</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [6] -0.823174446  0.153968346  0.065818788 -0.465788386  0.200028515</span>
 <span class="r-in"><span><span class="va">y</span><span class="op">$</span><span class="va">amr_distance</span> <span class="op">&lt;-</span> <span class="fu">mean_amr_distance</span><span class="op">(</span><span class="va">y</span>, <span class="fu"><a href="https://tidyselect.r-lib.org/reference/where.html" class="external-link">where</a></span><span class="op">(</span><span class="va">is.mic</span><span class="op">)</span><span class="op">)</span></span></span>
 <span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .subset(x, j):</span> invalid subscript type 'list'</span>
 <span class="r-in"><span><span class="va">y</span><span class="op">[</span><span class="fu"><a href="https://rdrr.io/r/base/order.html" class="external-link">order</a></span><span class="op">(</span><span class="va">y</span><span class="op">$</span><span class="va">amr_distance</span><span class="op">)</span>, <span class="op">]</span></span></span>
@@ -267,16 +267,16 @@
 <span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Calculating mean AMR distance based on columns "amox", "cipr", "gent",</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   and "tobr"</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    id amox cipr gent   tobr amr_distance check_id_C</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 1   C    R   31    1      2   0.77602663  0.0000000</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2   B    I   22    4    &gt;=8   0.58537655  0.1906501</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3   E    R   29    1      1   0.51539668  0.2606300</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4   D    R   23    1      1   0.17820212  0.5978245</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5   I    R   22    2 &lt;=0.25   0.07694007  0.6990866</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6   F    I   21    1    &gt;=8   0.02637631  0.7496503</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7   J    S   19    2    0.5  -0.42754836  1.2035750</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8   G    R   19  0.5    0.5  -0.44622659  1.2222532</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9   A    R   17  0.5    0.5  -0.55862477  1.3346514</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10  H    S   20  0.5      1  -0.72591865  1.5019453</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1   C    S   27  &gt;=8      2  0.247132119 0.00000000</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2   B    S   31    1      4  0.218326088 0.02880603</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 3   J    R   20    4      4  0.200028515 0.04710360</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 4   G    R   22  0.5     16  0.153968346 0.09316377</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 5   H    I   23    4      8  0.065818788 0.18131333</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 6   E    R   27  0.5      1  0.008553263 0.23857886</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 7   A    R   29  &gt;=8 &lt;=0.25  0.487327335 0.24019522</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 8   D    R   25    2 &lt;=0.25 -0.092191622 0.33932374</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 9   I    S   27  0.5      1 -0.465788386 0.71292051</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 10  F    I   22  0.5      1 -0.823174446 1.07030656</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://dplyr.tidyverse.org" class="external-link">"dplyr"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
 <span class="r-in"><span>  <span class="co"># support for groups</span></span></span>
 <span class="r-in"><span>  <span class="va">example_isolates</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span></span>
diff --git a/reference/microorganisms.codes.html b/reference/microorganisms.codes.html
index e71d5a79..f2f3ff1e 100644
--- a/reference/microorganisms.codes.html
+++ b/reference/microorganisms.codes.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 8baf9dc3..182fff17 100644
--- a/reference/microorganisms.html
+++ b/reference/microorganisms.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 ad273f4d..347a906e 100644
--- a/reference/mo_matching_score.html
+++ b/reference/mo_matching_score.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 a05cc85b..73578e15 100644
--- a/reference/mo_property.html
+++ b/reference/mo_property.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 d48847bf..1fa7de4f 100644
--- a/reference/mo_source.html
+++ b/reference/mo_source.html
@@ -12,7 +12,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 15dd79b1..cdce5a05 100644
--- a/reference/pca.html
+++ b/reference/pca.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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-1.png b/reference/plot-1.png
index 6a8d84dfb5c229e42c5842144ae99e2a4b841622..094e1af8e3085530e6157f88f6cf18f0f0fc7cbf 100644
GIT binary patch
literal 25922
zcmeFYXIPWz+AfTvV;M!9aVgSu3@}O)5RpDsj5L)JkS+pJLooybA&dnq2%1RIP;7uC
zp*JZZC<=zEVCYG}0Fh7vfrJv0>?h%!{jT-C-?xwbXaCsySUC<S;ePIVmGe5U>wf0`
zC0k4BU*vz0l9G}JUpRY3O6uomDXGoZwr>SmhSOip17BOOSy`S1zJbr`nR*oPwIl3;
zOQe*PQj+-JrqqcAUn!}BQsA?v9HO&ks4<zr5O=m{nQXoF!i9rge{Pj)4tu}z(009h
z53IlbvFGx;)O&Ab^tPXDp7=fN{ibuLCSKk8{ij=yvwz_ae%^KK7x~9W4s3aU>|XL;
z<JV7;ETSgh56(ciVNozxc04i1-+~y(uId*?!5|akz4$(D$-e&mpZ_xwNTBfA0@?Dz
z_zahSc(!)$kaBjh)T{^AI(bLwvQlk}u!>h^8gDDr)Mgw!__JgWr3OEFh<_yPQyrDG
zIA8v|VL~lPN~-iEy=vwsV1~*a(VG$+BcfsFxwDjKlt;KATOO)x&4D|{x=o42FWV`j
z!ZH1|p)fYNs_SjB<Lt9!(K5xtq2zfoiG8p!w`!(v&OzV|t6{xk<>F->yGt5P8CfO}
znWDL?*$#prZXK(ZQoHSPcL0Tm8@8#221hrFUL&lyldK5}O6jA){*VH*0@v`gL^>Z@
z*jQT^1B>I<ve>wO2h?Tv(oUGxP!0<xUBbm4kE0s~MB8}0HZH5H99w1+r7bf09iSzR
z<#!M@y}x^6hq)d*fg{iS&OE+lAHTYk>U+EY<m<IBYApf>SgK8&Oi2l^xQvL1Sbqo3
zb?N5^a*MVl$5gT0r@yThP`+Z{R<QO{>igy3h}eKL+iR&&YmsYhFqUg~m4Yy{^lNT&
zyS(tvvOoHRXW9PHGkf0sYGKG&7X@$MQy>U)jqPOPbKKkmZW{==$-2U*^CC0-#v~$T
zZ+~r{m0#9!pLAc{kN(N1hJHZmQuQ5-A;jm3Ctt?yv0}FA3h~3vkC)Qrn4%Dvbu*#o
zksG@jvryc3>~`c~W<%j4Dr&5hWmvOf>gG)K-rRqn*A``KsG#WKZO7fIKwvb5u#J6G
z2sK^r<`xaZ=5i7b!iyF~OnHHf+9(x*Y#8&e%PHE@P*J=(4lCyR>vzSr8Z$#$gCf7O
ztANckY2U=`)(&&lxp|V{oj&p2gW*oOJRPS~@!@k#Rjtc&(cpX;chS&=u}rY1=Ohl^
z-Nttt3C*5P4k)lFaFveEtsooc*PPqdu$&c6ZI?gIjR`ekj3A}0b}Rny+Dt=Iw#i%E
zqt7M4O+2s<<4eTm7**(B6ZLq$URvdxMfsuilMRPn)cbNv8+nI$@MrqM)UE?4jbWXV
zMPkP<hil41CJuj7aW81x)@iiNrA$dzWXs?i3%$2aUqzBGDb;sXwUqbf_5vrQ!ynUI
zUu~wn#y#|R<L69g@ss740&21lvZWz6AoFY7aH3o-q+w15Z+pYpkHPj!CYG$dhq2`K
zN0Hx+`-d(z)hm^Bo+EAO=vym)t!d0c{#GK_tzvD8#nVs8{dR0R%qfh+Nh}?oPaGYu
zWGzoF(IM_ATeIoAPoU4-*rkbFca<tz5mMSPb1erfYQ~BB_I&SPp;*a7#invWMUftq
zA^n4?H+Wa8x-%C|lLOQ(3aVB|=U4oa3LwF$_~Kq+)9epcqBLn*wt6L@hBc)hh^?uf
z|Fu&{n=@l%#X{(VEg7<_SUE;+O;@eY)&@Ig=2fh8bj@^C?dRpIfONewp6`1V=k;bm
z<%G{VlCl%46ui#KTFfzLA{IY<UX=f-ezTxGE0X63_h4j2PA-vplZPfdujkYxPKEeq
zRXj<ZPW9f{RTvGu#q-AYD5g<0V#pZT5_a3K-)K6~gKqp<MC<dUU4LzxYu}%FYP}(0
zIehxtyTN}^a+!<1Q2Fbz;RUbt;pDPqgSag*=|1wO3#+>7-wjqsGw(iG&J6F;=`>=x
z>vz?*WJM|;XJnzWzluuymq;JRTvu{hDlxgeLvdlzw5;iokS<vIn4rj=x!HdS^)*>Y
zI&sa$vin_2BP%7cOF@5BunG$t32v%)2UOSysBmZHlT_nPQkuQ4{xc{)ZeHR%<7dii
z1@kuKRRz9b*VoP*>DB5)uCssb+qGV~))bsAt%)nMlrP7(&|_xNpOuL!BD;*jA0aIb
zV*~D!vh<y#D>hl2U<@er8Nt7%uV#gQx-6~l)6XIIk#vWnVtbMW78Nax8jdoVUqzy1
zdt1kh4x=dIuO<536Ngi(vVm<8#oL;+_$<|AyUd?fB*ix;zxRYXixwFah(hSDrOwE%
z`j#vog&jS9casc89^cS6?=OvFU7h^-Av>o`RBps1aM`4o?oSo+ej44wjo~e|HCX+*
zS6X}{>Vu#zBVJG9;8PQ_XU72QVd6Y=sHXb||F1qzm6}B6ij#CZuAy`+F)%kUx=3Y(
zf3m&GFf3a)S#Ca*85DULfP$u5;$V<HmlvWb^*qXf`-P>V@L`D2_d`D@`-}Xohg`Q~
z%z=gpr9M42A1mvO^lK4z3KgKV$Z+Ro<Lbp~mq}_^=+|@sAee^SW`51s8kU>JlJQfl
z7i~&aF?dZUxHLgd64uHRFA1p>D8%B+o=YA?@7kwR^iR#qWLO@oxN2|6f7whAE7=bf
z7i|U)$qab+#N<7+rD5<Xme>cGRKyx8%zu~T!`ny;Dem8^WGKv=1u>J!g47Vv^yo*w
z5*5>+{bADGtL+NuVF!Zbl4p<UTrXaIKON-)xQabJXj1}gCF!VC=`ZH=u-k8jok;zq
zTj%^nipG2xy^SXeM1QI1c(ymB_IA6H;9Bj%9|GC*IKeq*US!?A#rWNZwCbZLn7Md6
zLYb(NbsocW(eFZfEZ$zpeLGjd?Ma_}3rj)us<jNw^-umz0~Y&v@BB|v_;D4SN=PO$
z>QUms?}sSR<Ae#LZlX-|I@t)xF8}N5+)3turD2%RR*zk~LQ9m3aUGnzI~qrfu}I=q
z>HD9b!{-<?24rj+h2N4H6@H?=dC?J)9&@GJfB-{|zhUnqMOt<k`PXM1XAV4}OkocM
zxs-J3iqE>S{0+}$>2%uAv7Pf@DK-jy<EE$<qZ;GUg>#)ALCdaK(UbYt_((uwZw9B|
z%{j;#nmo;cMQXOd!z)lIJN#VbqpIMRhk!qwZPuh!`Q40vWeo4iEHEIH)Tieb#@CL)
zc|DC$)jUFEOLfUuRbx7~!-%boZRjfZ#QKP1-%d4vkL*^>4dB^e`+kX^?A)`?HELC+
z&!l>bq89t3sfB)KvN9oyhPKAVh_?4>6+wcYEFTnYtvyN6MKBXR5&W5ng8(9b$4b-h
ziiudv_<Ay?tBmw4a%OjA%A;9NzZp?ip9h1NndmEXB1paQgdrcG1)7f&WTghClwFXP
z3MAdH(m<~-@_diu{#n}$JFFX`_!fO}fm}jj0zBOx`l2QK$GIXUYZW7-YTBdMxD@Eh
zk98(4=@De8n1g1O%eC4DW_GS-vJ{3y(AC58x9Hm-DnZ-rYKBX?22jm%e9!W(XwRI;
z8CSm<i<gM^#*CDy5PhCX-=5Q+zqY7&Q0vwTSjMjJx}u0DWLGyx%eC&%%&D3hge@$U
zrJ&&V%Dqf&Du)$FNwrxkuA(AaR%CJ`yZmbW35&!A-<BAZ2{S9UyOvg{-(?ioWt93n
zvM33Vv_N{Sd&ew_mKwahiG)AojGZG5Ds+ZW0KOnX?BpUvSwSJ!hfVxv&KWg~C3-0o
zvV9c}u-_)Wi0xa3vso80jh2R*kg)g0{n@f{&<W<ve(89U0+puAygIxv<hB&61%#JU
zEB9ZG6+5C%RruE`IS~<ef*NWL-FWU_kn|*0{zHxKhohU=UK;Pma#*X8#Wl3*WFUyi
zo^YlU<lb#Vv}|p~(uB)dK0ezTk|3fo@|wrs%rZ7+6FaKmgsecUs(Y&PQVD0Mw8TFH
z`dVo^(CzDf)IS0b(;TS9V~H2=!JaS@t0vw3vvy61ckNwY&8o0tIi$bLbMeB^+YCWm
z1@z9lbXkbq$XU^Cm`eq;`dxazgTEna^}dVKSXC_zI78_{fDDgb;^7hvbS%nkNme+O
z8}Cl_B9H~h>a{tRHs!ACTc~;+0dW>q!OC_$DH=&kg?3+!O?y<^fH(~kuwdAeYzn1Q
z_R7~a^UFkJwz*vp!|+hU+q!ejDwp~elUb)iQ14bI6R|k=N?Q^gKS!DOsBkn{t*ZSB
zL};%~Db7)wq@<>!qnlfcp?ZU%U-ux~3%s>HGvv*GTlb{INL#5kR3m)2g*G13A(*lf
z`koP5wYT3~mAv`yg2F_v2^D$sKmjfB87%1)5Lej{sI&bdkAf-*9h%Sb{I+K@?(LzI
zh}h;u&Y<r<Vz=`zG_RFILbm@#${S;bEhZ}XBa6pg3ra#(wu>w?>?cL+Bhub<O)PQ8
z5EE}=7}qUBm~+ae9di{5C>l76Kve0w<Q<x*-g%FkB37(I{P|Xh=&Ilxx1oi&F!0I)
zJG^1UfNlJLe-v>%Nxl+w7kM~kf?kSc)NT_eFV*4{1o#ZdZ_*KeH$C_bfXIJ;{`Vws
zY1Sob6XA}lqYQ4hf;WMIn|6{Z6e8~|9O%wrc~hhT7r8)lAx00L6VKOFPJA<D$l=uw
zuPK%OY8bMfyQo*wj@x@4nJ9i7m3cVbT}orjA6Mg)lzOah*#VC0Qt;Mnfdx~J6lC=X
z*eH>2f5fF6{s=Q_;ghV2lTy`;m~2Yz2RF5!kE=vXUhqNsoN0=ky1>va$JiPd@@dPB
z?b?hN4WmEn{P_M*$0JHk+<&KG%X6Ighm_`D04M_=uX6zJ5dUy``hRc3w_n?}6L=1-
z4y{f}kPJu9LTwyRt4vZD@k-h|A4)Q#gy3Qw=n!gzEq&QR2QS2}@mZX^kZt0V6LxK4
z^XlxlCX}iZ1ET$yS(Kx!Ln=Y2sUItrOakG3y*tkVbxGh`(M;8G%*}~&Z#TeO6bV5V
zhT`!DPmM*z1ai;Vr&_p}Rg078=I*gJN+G5s$%aQKtdSE3>mlz@+@-saUE=;T(Ld2X
znG~(n7Pi_2XMW;OQ%DZ7Jg$}Y40Z<P$;D!Xq+_u4uN2sRd&v<>k8Wvrxcs<~SAq8=
zXb+Dc$bi`4b9AfNFSof!bXfWw=m767<k|0zAQW^SkTee56*n#x^3-J_2;Ck3)K~+@
zAy-bN7zh^YejIF-_`FkA0(^mXoYFXWDh1YC$ivD+Xo|P$^=U`6EL*2ws2iU$^!=oz
zZI@?|o8*D)Z}Zx;heM>S4@G#mgW=%#0Ye<kDO)!t4$QrE8Mj&7$*B*}i<j)Xw{@1>
zH8R81kzHbbg;<L4Z|>|j2VhnCa<;Sk>qB3Vf5L8WZfUUNrk#`BEgm=%{1a_<A(7=F
z-G0<9{B_l|V=8_8WCn!kP@-I<C+^|p>+;H*zfJ<8GzL$^nl7VR88~~q$RxsD{J80X
z-feg+vKVpt%;(tGtQ1No4vH&wSL!W&)2xnL#K|~7pT$vw|B&cI5fEQ{IGC%0k(Nwt
zwWT5WqYq9*IcbGZG+RXsZTAt|K~u5XsPAFh;$l-yrez6TQrXG01pLpm7!k<m7!~9J
zj=y?1S@NL%c><i9<ud!MlHT~JpBVNgd_+@nwDZ4@x|>09DOr`v9n;&z>nRSktb8^T
z|B|vg_+JY~zS6W$^^>0&J0>KiC{B{ihlJQy5|>SG3BDvAmaxxvE1S3WCv5dpO8DA=
zyW%z}yj@d$w94C1-2hZ1mvUPX3QdobJSacg92MQ{z#nQqD$)JPrR{)@mF#D++C}0j
zsMP4=!=vsE%hpxUiprznhJ-UIfO!Z*aL5AReUg<G5hK?_78;$YsGi1~cNS9Qyd{zx
z-E(l1s*E!J?wpZ&a=&<J=?BfP;%}+aS6dn+KQt~ji7Q3_k2Q!%1>p|f2_BSXv3=wQ
zhoS;FVZxct8i#(5s9z7qKwz};hf-e1pFB={ufc6gHl5TuuPg)D@v~45B5d$n@(&BV
zJ-$7|eY@1+j_ARAOzTEv^AFB7ftjCTg%bOl`A30McJ%lARF+fC)hMlP6VlM=Gn6Bg
zoC&9&n$B+r#u(aG>zckkG%D!1zyP!~bD+PT#zlPCn^QWYx4TV&zS6>*9j=+tlNvZU
z{X(L8!XN)7_W!%#U%3z<4|Z3SH7u^me{jRCOi~lzvDt3f?q+qy1;)OQ%#(m}tGNfV
zYV8UvfZI>Wt}d_^o440K#j=^7qMo!mkg8jRmX6(7m8m$ITXy)Lxy`tGyJ}en3kUbc
z$44b@o#qYrZ?tnzQoSR|CEFlC6y>Qhr~Km-MJL5!1K~f2!90#jC~Q?JQg$(WwKjj9
zzKEZOSm?#9PXYz2b^}EZq&>H;P*<5=IwC>e(uZQ~t{)bek_zfBpBd%5Ql=;-xV`uc
zJ1$UrnP29RqvD%6yF@1q=3FFREe5TH##o$SK9K#5VI}X!aiU)1aGyvUI+}d(wMWV*
z{!?U`F67nspA_b7Ru&1e%JREO+zv_AyQw(rWBJa3pNkDBLXLc^4v^nMCX)@Q%avM?
z%9!QgOc&D@l`WyBtBCIsyKahFon+mo=vo!~?8<PkE27oSoKCo{4j_=#kZ6)rFa&Q}
zFbgs@FYUgH)G=A<IWe<II!G#YYUpsPIC?)^dQCy5yMMgbn3*8Edj}9%`IoqK^;rzQ
zTQO|?=r&UiJTTBAY(6h!Ak`7&tOR(Kg-5nK5q_sktfqQJ4=$3vjHJ#*)wo7!xkk;^
zGI_12^;Xrrx6UNWE`BEx1)JDrI1A&^73%KjI4ACioDVe!C+NDZ6Vlvxg&6v#Y)*I8
zI4E5lmu8&%iF2^}&XCZG8NKS64?A_-qINWW7K5cQ7$=xv`PrvJ9n7FTLJLeucknD1
zW|y6Xx|{LH@gOi-s`R-y(&w}GVt8fJR(rENvmwaRx`^iBkyeLTb!1mbe0AOI_1Iu8
zl(GX8Zth8pa>Yp~Oq8b8aZTC;#S9OxvA9H{eOqY9MdC`FEF6e$jd5#vMn3VV=FVa9
z8VT+lyJ)lFp|D<-O8)=~(L6JPlZ99q_-7HNr{^0H<7<*$`>q2fxq1nPWqoAfD6+Wj
z;;-y}oJFCs1GNmO4xqS+tbNk@NQvESX|S4KC7<Y4e@;3pF}(yJixhvH(*Ez|l>h&9
z_|d-k#<#{k9~UHNbZ&M2YX%8$Ab>NzEjI3XCu!|C#!DW?L%Ip(uEd5q!B52!LH)_N
zTVhDaaYOnB(%}#&-rU^`XB_h;Nb>MY^d`0?UflswIOjx+VhxZfPzR9<vAm9PuV2C`
z2C7<iU)3oRR<ETbPRJ|w?wRoz^PphW`O2>DA>-2$$<N3?%mVYDvE(R)6gkSnf|P6r
zGotruBB^-JO{uX-k~B!|HX1H-_%K1CLo6=2*RH)}trs%jCA3Qd2)BY_Q2kO(e1wFw
z8fws3d?6wpc02I}d?*d?iPL^dyFx7-s>uE%*)ah<yE{5HSd>h)$m(V9rYPW-9r|6P
z9VHUb_;D|!u8WHY@XB2Y)>KyGL>k!hgZ5%<GRVTzD5`?hz#5X)k9A2gqXax!-1gVr
z^9MEqbpaTcmFX+1d&>$ha*q17>4Oq&Ui2X8mX7s_gtUs!3CkBLE)?M2C$IpSw?<(t
z<Ls<w0nYq5v1xf9MN2_=d*Pw<Cf)W0EamWd<;C-2j3{L(Ul9n)A0GIM!K-W5Z})mB
z%&(gU{wC8{)s)(H?JZsvExV(a9cpfD-;8=!lDn{4%>q-V<%Kwl_Ez~1V<@btxydHB
z9<gA|KYV4oPxipEhy9-CH%T@272#4Wgexg#yaC_-a$i~Zo0mP;zsur7i8EId?$*O3
z*_(G#$nr0b8LJ;;8^3&#^^9|X^=@fs`bA!2)U3?701*c(+MMDJXlaegq8sW?w&o8N
zC_2Ct33P0*PxN^%hEi}|UIrj#oY8F-?<%^@V+VbM2Z!lGp7Qd$R;~J7UJ7Q*wcWFK
z_Bz208r99Fz{D|Ws56l7xt?%p;!h<iytRq7Z0`A`q)2=4LneQB^&b-To*5jlIzAJU
zS;Wt3jM_TqR5bTZVr2<GD`<=g_^d)o(9lpY)y2d7yR$^0Nl(juqM0Ngm(W-#h03~`
z+AZP-0~0OJ-^WIC=fV6%%A#R3O~$FfdWhuiZhU2f)h0Cn1EIz7K0Wd4YF#E(YgJ&r
z3a%!_0pLFXtv&=LsLIdjQ-pY%tYuaq&*d;hLQYCGlK0Kid~t#?p#4c<wL+D|=z>2u
zZ(=_x7?KVB-cVv&Wv5aoA({#9-h_nZkA=Jm>`5ryfq(R$XNgDPkW0YQ5jer8CxMb_
z2KKf55=}R!G>)lt)zcjK?DIIu@x34ifa7Bed3Mn64Xw6Sp88kBbvNMJP`qxgO_hoR
zHF7gE&XxPxKGoCopC6(e?Q#(7b$W|7f4>WWV+ByiK}*Cy?nf5Po*!SdHhw{T>jwmi
zUo4YP_F?e#5PxfB(a81s7i&xwhedKMPzs}2I9XU+Q<C%pR@INjYZo?FA!wWUB`!!v
zbGh`k#Cp^vs&|AWJCwp6^J{XgszF?UA-El^4+d*)Cyk<dSxNYZmK&%894YdCVgS2D
z*<dgQUu-%k`qa031Gxv@ocp<<SKIongpwbtE6cbcS=I}?{l8WPv;w7RK~9E*Vn?Nl
z`-?d>nGuqnyUl=NBHhWXpzi(tZrP0rQt+2dtK;i8xpmdba~rDM;nO)vyv)@AQe=0t
zytO2j6{Yb>u>`T2J_2&Jv#z3F29U+1XFxJ5!CPz-<`m)B9r0bexNzar6q{YhOFA#V
zSNwN^5uiSi4-Pqa!AG*hu~uLjPur?gl>iC<l9~kch#Yg^+a7+jLp-8M(dXv|(Ivsy
z8v&nEcKDIx#7(<^Mn{V)L_*zpZZT{B;S@;<*t99-KtNW8b&GK*XQhQwOJU;RPO_n4
zS!{*EoHOqoflSkkqK?<mtWgwC?NuNLICH&m#3O;aBV1)lzW#j<D;DorSd3~alW|Hd
z6w;$)CDt`#?W6s*X(**wh$uG;vL!X+ElPw?fb8`h(^zw)EG|Y$WFimU%HDDKQRE+W
zNWQ<WXf-R|4&TU6K(g^XM?>t;vIS1YdQH-^e!yA(l#X(M$v>!(I6;dX(iR_&U@fqZ
z6a3>USd)}83e;K&6$s<pGmwZ$<FlnemfdAPo7(wfQD8p{aj>{7jz$o?B?M($#cq7<
zuu&7y+{FG)y@3-@<dBU3+gXfkL5w)?W2@bM6`wfl!hs-Z+U9HzYKb?GrG?Y5;i*_q
zn8uXL7+#V>-*dBnC>c>`y+d?nQNa+iQ*L^_kQcH$|E*0O7-q{@KQ+q3lvt)7+b<P%
z!=$3FRSd=`C(`iCdQCaPggoUo-Ule4ZPzXozFVtN?cXHj=|7XOJkB~tfrq|eE8%2q
zhx`pRZNmOo>u057cw~w{a8D+X$+4PDh7CIK-`pky>BpDVi9Y+#ZjLVid06*OoPuWk
zy<d^95QF6p6GD~-SOsFz82T-&H%MyWa?7sh5)Wjlad;q|DHClvn@7=CINj~<STge^
z>l5E_RwkNFn}^Uh6Nzg)F#oMz_e^Gvblm$tC?Oqtamx<kq8;3zqa}ternE`b4E!8Q
z#E0i;xCam$P5Q9(^~o*^(K>E#y8F)H3I@K*bg?5ej-jAapRUCpXf^Mf_7tsg<hOby
z0a1b4du;RagJa7SX_Zg4FNTKuw_+ggDiIM}1%TyeT_*axK}4Y~peyY#iass_;%WY(
zdvRE0o<>0QCzs`m9G9M#{W6ju<76inK-jDB6ODNI(Kac??{jbxAI2f8>(nP})sNoV
zS-d^k8)CfJp>Hxxs7QBjNheNdL2G{>{W(D?fPf`r5AONmM69oaC}6$UAojBrmN?&n
z7*}o?nE#XoLkc|OJ+C0+dg9NY@rr+8M(Hh37ES$aV>bv1aD>vUq~)rhPhE>_`&p9|
zhj!bFlDh7141M_zY|AQC%c82Zp$-2!tRQhh!#3NP87MuykB;Q5Fhbb7Bzc6_Hb54{
zb_YInn<BQRcn(r9R3l%Qp8aE_@x&I3V()+l-9SAlKJQQi^5U6+SbAdVGM;jmQh?uP
z-9>yewiT8EwHy=MYEzd%pL|1qcA#hFC*2gemnqpZKTGRFJw4oG0!21z!&i65*_wM$
ziv(8Y;_gynmx?Zc%15mL5d(n}e0>r)NcQk_CnBu5gEm?4_+|oa+EL}|pBt5?U*v<f
zvWJIBT{C1#L4Hc7>%~!Q{t#3F*y`N(M1?}Z`Q~L5o|R9L2D~K2^UEGqPJik6CzMtm
z@TwVr9hN}2McVK;(_)=arSBJ&jVbYz3sr;%NJ^5rg1ARh{-dh1%~ttCBo8GEZgk%+
zS}#5~i&ZiFA1@W%)&s))GZxBjNZpAY=p5yxW$8fo%r>cF>ryiQIjR*QuJQZ761};N
ziB-|5*{sDO)+^ShS(4na0*)?UCW-4n80|<{?g6f0D)M>mf&_DT5USJ_D2>9MG9Ecg
zprNT)9B^P@?q}8-#U9^X^p&Y0{eI2{pPQMrf#_;VWiP@lu9$_E0|hs2wzu^3%+(-C
z>gcuQ;V;nz?heQZg$?vC#U~Rtat5j4vws(cTCTnt>!alS+7i>h-A60}AY1}C&3>Dr
z=$)l|`kJ^U!TtSj60DZe2qefg$OQU$FX&RV@JSBp);vKVckT&G+)Zl000<PG<z%6S
zy#T?TXT7KBKysD-CueZ6I_`GGtQ=tjyU6Wo*@=~KgQ&Z{#qaA&5HoL(0#>6HVS^Y<
zX!6y9RI&o;(0~nwOL*bCts%p@iiG^<21_6YxnA8TSzP1B;3oDn`&qcoMrAEwUnL;j
zI*L_+GAS4glk_3HIecE8*@|yA`~tOuQCP(k_k13^DCb{zhdzIZd()6n&I+ZV9yx4;
zuHw=TRe5ty!9`dgH(j+)vhz~3n2RBrIXe}~YS!Gid4co`{SvJWzyLW|nD(5MEE@bp
z?>{2_=)wOM>HoeE_~vZrVp1`r-{V}-fPBx8=$0TRfrgHjDaZRXAMSoES=8yl-|5~r
zz;oFB$C`OON;kmEBe@S)K9ok50zTFW4%pi?CVpdeF_rRk=r0!D;H(r;j40}TKln?m
z=aiiaw`eLQ@%6^2HyfEs)ZMc58z<`!aM)>XPU2`(QP}b?vJUji0v}i~*NzhYpCr%V
z_Hq_$9L#@7QB^p}EC<u!23wkC2!I&PlBZkotp;5xTZ;8o5s!Xtxms!Bfco-sp*5);
zr|w81&75||nK*WbtTYed>IrL}(j}L9u~)c{fiwi&?L^1etpL|0?O+NX-z&b>@o*IU
z0Ak2FF;Aow@+?BWi)*DM^-XMB7>0HAaB9ql&kU^(M7)AF5OD-vKhdZFlL2moKHiHz
zxQYFjvKz8l9PkW}$Nhc*F!@qNe}@`(ph$?g@sr2y%YdQ7p9iw3A7e6Xt4OdnR}au%
z<2^&O<QnV<@o$Wwcgm_iZC0L7=rZTe_-2&(vXSiA*d9zy<&56IDdm->ZBczL{#pRY
zn=Fq+#<tn#l+WlzRr*`-2eaci<Z1ZG%N)Us|MFTtDSpsbO6n4olU_5kkcwI_ZyzW}
z@_Dc>Bc^8kF6Xy^qNl=B@Qn@c7gL@Esu*3-N``ti*O7e&ez03o!bieeVQohWG{q||
zeB7Ji{*y@uPGsvjaTMZ0>eYt#fYpnZx>quNQd~#?WgGtf_I1kDDU|Ena1C@&wdunn
z7^bSmrixvCe{s%~62JIAi7_Amo#%lfZx}^7D>99B*FIHr{Xfm&Cz?f}xmiH2GxFV-
zpLvj0eb`x8DmYhT|Mqn^ZtH*AL)BI`jkTM?mp@I#;7A1R653^Cskc(U0>qzJ^`7HP
zQNlm`7jX1GKPQcc0Q73cgit5A?%EzhF;i#$O<%RXhTTnds(Cv%1OS?E&{8b{5x`ZF
z)<@jk;HR#~CU?;^X7IFQgUZfIknBsdg^do#m>!AmCEPB(mjEAXO#E}XeP^QtXPb)k
zdH;c5!I*QMqh`c9PZ%@NAg1K_AZpzqciO?yW=N&0d;{XJdQnZW5zU>H#>mY`_9bFi
zk2xOk>GMV^q1e;n_G*kJtsh>{OzrNT67{euFuV%+&=2A_n5CMw0`-cyfXu&QzmG5A
z@zA%nIPGWQU3nCY`s}oWfAZgGatt8Ye*DctaL6)Fd!Q)>Wk4~H{b#w0bSd%Cu)(d}
z{N+NPlBFbFN)V+IO=L1Aj!u6PQT;ERZrS@2C~41cw@zL7$FA2Mr*t12m^^s<kK0~~
z_wFHfggqhudElwWAM1PWJaqf{?4C>Ko5Oy69JBl57SJKkp+)d#GTF$;h`-#*Le}%T
z<^tHP;^Mh(X3W|kr5;jpmBMv`Ef3@SewsY(zJs>+XuGHD!oam$=ImQdk(*731d1|u
z!c?PEahjf_7GqxF%Z(f=@^$eRc2(NMqr;|9b{l8aplSoqwZEl}3cA}khcuLjdzmpc
zC7P(>{Avk8b=<A{tw9B^DPnE!jz##c-u~w?NQm#M4ra!)mX6=XE(7N{9y$DeBY(OD
zjLJ|oB33l0k|CIpLd!uLuyV#YHcez^LbeMG+yHL3w;J!UAf1bFMXC=vPMxd@<`q3P
z(kFAlv?p`dgL5x(`VFcjXzQi@?b#?bd;AWl1i#L9(r8=1R(GEYib10HVn&>OOeA}q
zJe|FR2C6+oE(E98a>_xFqAQbiPe0COqu1k^Mv^YcH+nN!f>UTFJe2<?xxN07Z<f2y
zti-mzy#R#M2;OhpJ`6F9LZVgrE0rZ<j9C}wL#@hdD;mC(9F(+h-v;gSz`T(N+S(b=
z!Q#<&#74$v{U`9J3?yBKP-rXZy9S(*Z<jW)jpCp#X+VmF9fwBEYLbi)3zDUi-GM=%
zn44&Qj3Rp61RQ^eoG(8u@t7B{inq+v8^dO&Ml4Lpt(cL_aV$7~z(sldt3j2dhu0(}
zZ4`MO-HBgE`JfplhUb@EkCb?$8}i7KJ9Vkv);+)U&e}|=b*V~H*#uwUK+2cwH);~Q
z3V~yHJ!d^TmsHHCrGV$F^G#Y7&{lny4aM925)lNRH`k?pWDExdw-f3P;#2KRaSxqV
z>8GW+lFe&XrEg)o_S!h}F3w;4NusUf!FOsd3Tit{p`jNd7VdS|hWM^p)=ur&NGTN+
zAh$A#HPDLb==pd@bie<~+1cWodnYWv(JNohW{k(Xn5)fSRidm0MemU63$jP^)dp*(
z62E!D(cPdy-4`R_F2c=WSfq*X9~zUx-ERiFYhi0n7YmZ(L!XQ*@4e9ua!ViA0Pn|!
zZvXR9XxezFjo~Y`4AAP;tODk(E$kJg>~S6RdMLVIHRe3p612)zQ!sdCn7^z3azSoU
zt+~`>cg2->)9ihyjPV-2Y5dKLS8h7FJ=2q$oy%7^?UMoqKj?bUenstkW0~DEeawij
zUgxuW+f-K_dLK!>{aS!ozuEif?N=fuu5s%8vH0H_7&V8<Y}FVm^l~2P1SxmC8{J?!
zyK-d_g$@RnmnGKCW%fK=UYBS6<khH@1F}>MKU*D29lGh-7d%`YV#LgfM0fF)$_&7~
zVJJxvJ`(N&?LUc}vhr;E{{4F=W+po-ZvQpY&}<N&O+tz5Z~4RJ+Tz+9W<31}y<|-_
zTE-5|NVPD>8ushTMCvy#6WJ4O8YR|Sb8DoACg(x5!_>L-M+(yy{sP{6jqD;<hYbJ5
zoT@$a-o(h$HliM+1CF@LWZR=nO?&B)V~4X{l{_##3>ND-YqM8Z_RSt}Ooxwh?@j%_
znTMY1*KAE@D_^#&z`k8JVkGOg47^&1{d`6looxa?LEV-A@vEf@buH5z2$L1D%kv~h
z@mm?6)3sd19gPJ`y^BEnZJ6?tO6~+E`#w_-jkVkqJGRp^Q?!yQx=|-*eM!j&r`Mo>
zHZ}BJZ-})2t&wgm_raUJby$LAm5;YT^&2tcwnxljFyn*ZE-N{O4T$^Ww}#GIU9!d%
z#6r9o*&A%0F<u1b1(ixtmp`ot@Ljari{<`lBB<i4jzD2-_H4lGMf8Xkxfj!5PR3wN
zkCMqx5+n|{<_x{HJo3Cv)5SUH%+*jkw4vJSpJ=#xEfk%4V(53V*Lbm}4jH>^+eU~$
zcGk}xOYHtdLDkZzphZ5nHEcg--3Ofts`YQ)0PFmLtG`t(za{P?Otw7*ZCt$Jc5Pf2
zf4TD8#&xll>ISy{yWzje1N%Hws%ZWNh=fJN?|Em%WN$L~_VYCNEy(Uh-LD3<dgMrq
z+t-_C@;|qLbnGH-_DUC${V@&sQ|AFq9dido%eC}kvfLuGE6`ytsa+Q$ti=w@#5Ckh
zowt5c4_fWbSGfGzQa#2V9Ry$sFsS#;tqkvV4>Y`BDbck=T|MRo8cMk&OX!~j8F9ba
zN6x?BW=Ksp;Mbt|HE|Ofo?zqQW>JL^I21YU%AB%8A$mhxGW5Gn9yWo`S+k5}0MI;k
zM!b(|km!oN`||8M)!rUi8oFH9Pb`N`_vK^D{IbWj%@m_Y|B4yitTF(2+k|5Y!m-yz
zY-|^wUEi><JkUn1^6JG~k|guRzZ)bm`oGH~(7spN>pI^ty~eOl@~X#+aKyZAAHWpc
z(d}qWwbk=zrrMz1X(fniZS_Veax!xZdwe|r%?8B;qFrwa;Y^T@RYU-~)!>^ppam(h
zu+<q0V2?rOLMK3A#<j}q#O(=(z-lRU8kpu#i}FT$+D?6njYiY0BhE3)3P3UbGaKcA
z?Z4e;z^~QqeeM2SZ#TR33c5~KH6|8)7#&w?KRN!C*1(gf_)C9&zQVC>%8oAPs$@H-
zBNd0qV6aCv0CmdP>u|KX>Y)DI*4<N0-!M06^@+xk^)JlZelR=Qp8LZ-RF|xxUaRYS
zx>_AH_-s5NyY=}^;Go~!n6p8}k~@gW6d*uSi_7CW_e|ts#{Iy;gTB_ZY;e3zr&<gu
zYrGAl5cD=E_o+uifBz-P&N~ct&=%^$KXM*|ZEYehwe68Ecmq0<n>~qc5aA>7%|U2W
z4c~GJ`|?t<9yf@$DAt53bBrE>bF#)aXY;!+a?0h0CHE&CQovMvTi?|ezvk4alV4-v
zaFL=)kWMmE!ryOR*q=g&9BsEuUKyc+<5kK1#><{h5iRc}2=A8w>>OEGz8)DAE$jj<
z+eL($bxO4FcUS!6b@_UG5Wy!F9Sd6hx`vhTl#T~BHilli*H4o78n@T?UGAoUQ|vhE
z)1i{m?y<d~=vJsM*(4A*&3Q`h6AM%7Z&Y^rH!6$8@xKw2stTvJe)+{xHRd{N_0(u+
zHVGTFamh0Ie2Y$V^f`2EpBppWV52w_X$c@}gC=<ue4_7C{|@ln^YIyg8UZUM)T+I2
zKi2rQmNI5=WCv|J2)ALd>EI2;{C6M!HwcO~^q(<6jClulf_dO_DEbjN)H=c)J&n;k
zF(5%NuQu?!E$uYAUOnal+ETqXGPj(5kwXKi*mCkfu`M(Sl)NwiAa42%sKhP;d#GI$
z%;bFl$*LO}kYiu@OIXVupLyH1)94z25FymzDD-$w7o8Gp!<hrIlLZndKKm-{ibwi5
zIgM{&%V`D2tC59A_+w3=q$pwNk9E;IQ1`_tV*Pj-*u#vsU*e?pcDLZ`yX_*bP6!_Y
z>`my4u0RKO+a$R;&#a3~z(Sn8Fea^4^auF~BS3PLFZ%(~y<FMGQ9w7GBtJUbSEf#G
z2jV@4R8Uf}!S~w1^C|Qar*u(VHjLO{NfZmJN%889x=oRzLm)mZ-7tTt#XU7|OfmFA
zdB5?rd>>RT##U^<PT<fSG$EdrP;L_&gYMmJ{Nsh<%`c~HYJ5A3Ny0TZ#8e)bQwWk_
z*)N5H8yjL4CxfYVu-|MHusgNi9enukAvoe82(ol!?Ka3Vgj#2SHH79|7;YJRpi%r8
zcqt7t{uBhAv0rio3$M4QYZ=WqZC3B84j(A<vDB`gDF*?`u@3hLq6CziTb4;fkF(;>
zVMZqVY8qiDLWYh%seaTvk>Qy$U0kmXjyECGxkuKXgSwx;%oJWgCoLU8&_TI_K_$e9
z0q-Q6Hz5p8vx+b*AYAm+yAV-(lI*Sjk6t@lPPO?t&x~=IA?4nFceuMYX`KUFtpTY6
zb2Wi-hho{p$R970Y=Pld?oT1nGr(@kK{Y4W=bJ0S87*ZsL2gHN1qxu{OS`XzAft)V
z+cI67wkaM1_I5@!pPn)P1o=RC4Xy95nQxdU+V>WsIv9Z+9#K;`QCTAz@Xc^fS2BqL
zks0U)JTQUk>TGrE5+In!Px~MsvW2=)t=(5oTh0@p_51g0+V4hh<<;Njcv*nUMY}#N
z`JfvL#wL$#niaemQLew@d8-ByRU5CwO=g*cQ;KT4rUQ$iij7zh#1jcCZmjb(&ogK=
z8C_6OtDQ?!2py>5{8ikkeKDdlL62?|@eO!K!Ssc*2EYbNHu(ahfPAbS$c|d*uND;k
z(aTgF3~!b;90@*uZSB^Q-5u2lgWAq>vhK(KnoQ2lY%Ej(4b}$r7Zd$K`Q7cK-TJ_c
z1IZtkazM;of9OMX1$1!K>_}~7iQN4ucEQaLKbZC4In>x)S=$#zK881~Jz*5bS{4rf
zAFI*rBAUChO$@s)Sm$Ei(>+Ppahk>2*HpDHS!MOQ<l4<`_okv0Dv4IUbGnwgoylKr
z!`EpU<73$q3``tS38s`WKAb%vqZ;$Wm?i%y5oD2ueo@?f4P6n03mOT<hTdxIOt+oU
zP+xML8U@YH?eF6@@3Kt{xfs#0Wk_$w@D)Uzbi{QuvUMaKyr&nB&C6^&N={As!%#z)
zXhL4rJDCs7c|&x+k#1sf8#PbO;>ca!ze}OlQnhw48msqf^EKz|DSy8U(6V&s2qe1m
z)*^c5z$L%*Yin(wj9r)KqK=qhhvyQXUeCz%2rU8CsG#iCzCQqE?7kdIySBC;9BL$-
zwEifgx6(QhlN{i+-Ok3yTU%{4u+N<EVG`u|_8Zrvs&cp3lM`}y;8jZG5nX;22(DO`
zVgg#dl9%HC>=Esv#L<lpyz<twy}%*w6Y)>A-Pz)4UF!yQZBzXXdqwT5ktW#;V`^?l
zOrD0I<8H=vO4!8<7R0{gcUQO8*_Nkrdp0U;rMEE+AaYl7`T#X;eB#LM4Nd{lJ$uIf
zL_sn>mIP|e>-Z9Vwk?|2uU>o1H)^E<6PLdThaA?D%qiZ>|3e@7Qadz2Xg$&G7&q+r
zPOwMj_`UR^nqp%a>j);026G_b#wXVy6HzPj!>u<1j`F76YMirWFewycM&KbJC66~E
z@4QkymIZ>S59W*$Ku{}A>C;)o7HH9p?ia)AmN(dh%<CNkD!ov}R&VTV_V_E!)b^rB
z)o;xe&{>Zo=7bUGAoR?Ih)^`@B1Zwd`vxwY5EzMOT<ID_VIztgHOXBdpbT^tVD?5)
z_v#d<F$S}_8R;i=q&oiE_9kmYmOtY0gp;U0J6(kDvfTC7N0%IO{)TLCVc|eYB=s81
z+}hY_It7nOdJCPZHk+{OIcTT!vg;ElSMDXT!mCHu2W3qPS4;}w4UOEa_doPL)(yQ=
zFIt73IsQzp+h6hg^4(pixOi>yOC&3TU}vjfuA|zuQz~-o<1UdJhxZL$uF{H_CfN4`
z^9=U!VI{7Fu12+MRb(Aas~V>CTl>>xHEP#dgqiV-le>pm%pPisd)h>`dNec_{X))H
z#iHOzdU?+uJ7}Lk5LKf$mhLHBazHavmHBgmQK@RX#kcswWOsY*UxyxZ4#9odiI&z=
zi0R_RH=tZw4il`LGrk)f+E)nIg7#Tw<X=N6PVdK86csubnG`GMM6A;7O=d~HXrl3O
z>EnnP#$mKu*2HjxTdpyF$0vs6jdnuNQNNkgDZ>;->7x_sMi#!q!ebMhaToBs6XuS|
z742n`V;w(Q1X^zAM6O=DsQHBeS2r>v>!{X-w8hT##1EU0b-^C!3I42^+27JJ5-Udb
zP3%u1zqX_#iYe*J+^eUCw*y?+Z>lGPT!yg*y?KQLx#M-8Siv{+oFMvh?}jX>AKS0B
zos1+p?0o=NKI1xsE6gmj@N4~})muSJmE3i)T(<%<YIdw0qc2El?gTe_9^ns^)uhxB
z8cx6NH;O+{5l=7-xN5E=S=`3O{DddTQ*Z*bdO2@~m>*2UjO+(j@Pdx=)QO>GL-95(
zfjXFbc+a=M|Mz4*0s03NM;0&FUfSwCJaULSTX%+usz8sL=}~9jdEMg_IJAkT4h)|Y
z6kmkXsfcV?C##HB8L-+g-XOJ)!P>Oh#zc+!%n$`s1Yc&DfjwMmMPH7%LhXl7n;6LH
zTuZy$5!4V@Ro;+S=2Y3+(6Wn*{lp0KK`+D8J+t)m1)8;W<qiJ#I1ke%9tMW)WK`9c
z$ITi~KmX)|^w?Fw&XRp``c{SujNZnv*nL^(lQv;#H;BLv?H?*6NB@dXzUIO3&28hr
z<%7<dbOv=?BDt9E&P^LnIbso?MGJFn@peU*+)RgJ$8C{qp%*!pX?&4+@%hX349v)@
ziuF&RenLf~i)kP8(=mQm%%-ED=x2_tPU)m$XIE8<qvx*rk0`hP>uM9SN88!*9HW9a
zOC9y5WZu&pJk*90bOe*#@i5@N9RIbTFGA6_VpuH(=D#`y4!u#T#aNmKht6oC4w1>=
z-L}gEG<7o7UhVGMRF_ByBIoT5KKyz(Q!nnbK02;(kpz?pixcboXPtA^o99dbPmo&{
zCZCw2oz7dohDH|L5UZ2%yxP;g%wh`mkirYnbBdLNyUk+8%WVbqn2`p%K~`poAaoeB
zetrl$uY3*zIC)3P<&@?V1CPhsj|?vkIV$I-=|*QLK0|L&yr~If;!mWjo(OX?uS1yC
zLydfER*Xzel@Ic{buTmTW6UP>kN52}#tr2SA@?{M+n{vlgTCQ!)n9CFS{^$4{$p{!
z&Q37x*<4<Moo$4#G<Oa=KI>vurXMu4M}M)>V(5ljt2ZX+`FQ9Nvo?`sbI7whix|^C
z$eznbBAqU#5>d}CJUl>21Yu2T(rAyzKRyNP_518k<;IkyBbg0S$C?|n=X79}GOJmv
z;NhUzv12J*+X&aC2f-x3;d=mwpY6X+;OTX}L!8T-BXy4|=cuc%E`pY=BQCTJgzwBI
zCFLz8)V;gHyoOGqj7$dfiqW{j`x_%{Na=Y*0OuN-zx;=OkXba!jGVHo|FuvH%nQwb
zwzTkOi4Lv5693LQ)y1T*pz}D=<6@Sql;04f*X+J%DWTj-yTp{4ZeK|QhdzAc!Uy0F
z<5A-rLQ?ao$_W2NkxN6+v3fKwCEi8O*hQ+We|1UM^OnrQ=QV<_Cm6=NvE`4)F;i-%
z5YO_qunVU`+fzVxb`kiejNn6g8N$uzxYt+a+K*U#JeIxxigqjMOuEWzpjhGRlU)%-
zuzMY_CU(DL4D-ixJJxf~JoPlPrC-%yD7GThYqijRv;7V;b_nXVD#7z)iU%tNe-~6z
z_-%FWo9J959b}?0ec;5x;Q8JI`Wl_R!W$34ib*!n!EHP@%yp6ZgrDmBdIRe0K-%~{
zb6=oLd^T_Wh!0c=RvTGI?2)aAyODFskL#R!zLyh223%(8sFxG6q};S4X%Oi&LJIvC
z<ET*9QMjVLInIeGwD4WE?uONBx5u)TTq6a&Z=`kg?f9>y)nJOYL+MY;axmp){U-*}
z!7-<OSI>d9f7tU{Kz8^M)YwV+kIr%W<f$}1$$WfKy!N)~L3r2BONZXK6V^g~V=_I=
zYl<{QkhT&;Z#gZ$`fgO9p2x?duQMm22cM4T+N*5^U;KS?0nAGdK#Ck)awc3p4F9IT
zSZ<L|eUsV@u8VDZd=ShjIbzn2pvL1k4LgsDM6+OnYPIDeO;p4^4%0DR#%jvl&Lr+#
zd0gtDwr)<D`E+0X-{8cpZR6}s`a@)uHi611=bot2s<g)}{O%<8iO|wc1DmIhKgs4p
zZ8@%TY}rnqqwSE?a5I}AtB#I#VWyuAAp610>yf#xCFLP};P&~Nua-sM0ceHU37)e@
zr>W9(MShCJ6Skf3Up){FpRtcRgI?6|W$XJ+XOCAO=&uw!e;@z@p|{!-Q#RC&U<A@Z
zp15xdb;+p7Ib?a<<PR6+-@N2~{PJRkRC;mu8DTxjSrZJak_le&{Tc+)0~<P=^ek@r
zvnHKZty;+(#P?F6-Lv+g$|>9c1FhT)!0abKTJ@R%m&%5-pGwE=G$ypkYj#TvXCSDZ
z>j^$_9I$;cFOs%tVFmW>g=|wZs^_dj{MJ2>8|HQB5i7ei^!a<+tX(@CIvK*u6Tq2!
z=lIVaEw@|d*DIOyq7>((!RA+wi0+G{+K5T}-Z1#|<*qUsVI#~OQxDC#4zE*R&{17|
zc9RrL)tivcTRZeU9LX|KrG~c){ccSIxAyoa$Fb5jpM)p-s1N_%j65XidJObyMzJ^5
zQN}LfJbEu$@p*(CqbDO*`bf#}Ve~pYopd7AlZhC9aUTeSLoeqTVNO}txgfoc@jJbN
zzU&pC7<h#Ieo8r&52}Trb*`_Lt-Jsmru*93a?no~u0YfD;+J~NT`$yj2(`hqOn?rw
zyO=F7ouRbKIFASqsm#MN-JHEKq~X{eQGYYN<SDXwOTS5qv26L;Sw)I*R0(HAka$DA
z_a#8tVgbs=Gx!w`Yo%BvMTeFQZ^D0Dexp2$@<|ox<ahjOrlY2$&$Bf7hE(i&01y>5
z@_jksfM=b+=de~DOHNLph;TvJU72#u%?c1TJUyw?B=YI_)sM=zS97WL{<F3}Z@sSJ
z<frMP`mW1r-<|7fmkP}Q>j@_S#H~928Z0Z^;6~4Dk7>p0Rox-O_I|nXL-$}+E*NIb
zQNB;zqv?}xj8v?^lWqprS2Oa~|7^a=N_!X`iyki66{)|gbuHS4FD7q4js+cD9PI$P
zqSw!(lT>5=Y|E4PS6%gLOU`CiT_@Uv?412}z2TnY`9mJ*{3KAW-PEQ?5eRO(S|01w
zmUj>6dJ&BRbEck#GbcMiJ}tt8sRj0tGvWYfndgQ;COzHq<u14}XMFP!i!JW7OA0P?
zonZ4cy~erCJ!VPDPkZziM?gR&=;c#EY{227H=Te5|NHa5mOuh|Fy}f14eeMler6t<
z_wju(h+R}hi(jC8H2!N<zl3?`E=XkPJM8%_*xs)v9b{tfL9ahPvOmFT_{+`BQkgNi
zHinz3G{|Y-6DjlS{NiX~F-V4OA0NrA4$yk!{#vb%>_r*i7w#yER4hC8wo9$A_VHX0
ze^9>PL}&L!&K(d6Gadvkwk<zQjseqh$5+8~Pri1gS$im?-ma>S@t`x6(c_!4Cm@D{
zkGF<gFtVJz$jNFGO-H9v(}6^`jNA1YxVdQhwsso*X<rRLd43&U!dbUmIzqzRPZFw*
zM?HG(tbW_khn=~D04-@-Gr#0R6nw|uhpDN8D=TR_-`>$&;1`@M3b=LdIpfP$c>28s
zk6Pbf9X3s6M=D_4vdXDCA@8(o>LTlOBMX3q5vjzOyc|zgOEam+PMzyg$H!!nG~s`u
zTazmeN$ur)24!5Yj2t?2gcxV1Wc4s1Uiry*X%~lneDHCiR(3@^dYsg9Nt6Z_mQ}3x
zKY1<XyjR^$N^L6F1f_z#E;`g^K`39JJJeqWxhRvzIDexbVNhl}nUonyYAr~9;-(Za
zrUeGx5&1}c%BhWuWC|C+Ld%QnQ<+;Aqig}12g{y7*>D(JhkM@K1(Akb;v>;!K3BWj
zO;D-U5#KY#uNxB1aDQtAE|XLYKSp-5o(jA!me9QuZzQNz=$&n@EYc5P=1tic{obDB
zzH*+4Y6d2~vkTsMoih}zSXtI-^A1&4(%Wq~lCDP8ruL8JXei_PX1pw0cTe0)prZN0
zkD?=0W6imL6Qd|lbc~_t_^oVVzj)TTd=Y--@v@T;)ekBGM})Rrw`781LeRO&U%I%2
z#dxqsu3lMB3W#pY83Ao8zS3HRS$9E~sMVez{|pwMAS-RFoQ+C@SwxPegHns1l3JgJ
zw7=boTqT(7N2t2??{x)>R<4F*?>qv2Z>VNOT3jztjqygi7DZ<BVM3BgJ0@L2{q#uM
zxVst4<3hwT2t_GG#kM(DsMy~BdM5FPX9*Hs0zy6EFutU8G5D&hq%@A9$}1tL)@H(}
z+2d5{^X`1Uad!6gT-dj&=i!Yx(~qdC+tg#O0_nRE4W7RXvM}|u%!d7JOzo)&h|Dgq
zJ_`pI*!UNGTtn)wus+sRM;5ide;e*vWkl|VRg09sjaa<}3h(LStb)DT=4q}xVR=Al
z$sAHe%T$D$?q+PBYBU$9rDM~VKN2zPPT~uAHL~N8R<eDM8Pl|~r;jh~!tU`ep&rq7
zc7)$rewMbDLU;+h3jN}|SOFI}8fkn1qKx>~-p{`+<AL|yhTCelT%PS2emu@DU*E}Y
z8;<0Mj{TS(c{*-}?5i<rCzT4j5_s7?1tFG@Hfep{0y&LC{H?(T5OX4UzE5r^<6hDA
zN^swag1GnWnlAMspKQML+j>N7_fanGcQP|EdQK$|bRXfOwVU4mx>!)L-mn;ZCKz?)
zH*Kr#+U3XHE>oHNLX4swahLRp`zwkE01IyZaBP92zL^#Cbq_4gi2QQzKv$LWw%08o
zlx>Kot}%SSiyumhPw2=+p{tCqMYt`TB(Q?G)th_^#>^H9?0@?~WWCc<_5L5-o%vf+
zSGUKt_SJ`~&_b&+2yG2R3`!9J5dw;12xCAHfgos9rXWKI36mGA6va?8G8j-u7$pG|
zkRhbVU=t?G6iWyw1Y-yg4Tczo@E+Rx+x-vj`FWq`IqR&o*IwtlKWm?rD9VN?<2O7B
z%^v55&epZ)wT%u!23h~U4TxS_3R8Id0}fjB%$m7_AMVC3yXvGhY2%AOxO?f2iWV6x
zS<SjQMFDfrMMtl$E)HE0&A5N`#0Q<Vb<1obT-<jq+O*R=+2vsePs9}Zj=dOAg0j(+
zq3Y;25^kl}sy|wlwK|e;!fgnZBGH_Y7SFr$9X^bEs(YU;;~>bE5<12}APWqbU!=U#
zO@lWfwI)5l(6p=?$sD=*Oiwc%14_=y7FGc+x(|+v^Y(~A9&yiXV&xeLniDUY`^`Dw
zPW)Xqr58&pT;?Mel4AJBn&7G|*hgcaaC&>enC;ln`jhC`DtfmPnBBIQ^51&!yG-Gs
z@&52f6Xl9WO!)V&9=;7}2_cFZWVrcWgzh)kK83goXUkq{1L?Tc$6lwef^g?sV9f4B
z?#N`Gc!bR8zDpJlTSLYL5Zuv$ujPy;lwT<*S@zqVxGw)AshL=5;{l%DLD>WZHN+ZZ
zTL{?YGmrBoy(_QhebU`qpIV4D$DQTh)EX6_P`a`J{7BPyQfR*TAvn8cRQH8dC3(Gh
z>jLx%VmWtvEYfR=HDY7obMzjpZF5@LKdq3P5GNdX{l}FtA4bwr`MGIaQE3skVkGVY
z-&-dOGyd##rCj1WU0ZOYuq%mxH+pJ{rmbBdx_II^+Md!H?&srZn4%icODa{nZ5wdB
z#|f@<YX??>w6-eywNS@GC{CGnZAtjSvU{i#fzPmF>=NEoS-RL!(Vd{=YON1x0k~A7
znTdc5MzDiB(1!H-@u+T_OOSdh64u4Ea+Z{@-oXZIO(qPl!n@v+1LtXcW90DhK{xeu
zL%|MlS!fr&|5CdbH6tuI#<7R~7O2*9B1gWK<FAAn)lqV&Z$*EVvmSu;_8g|9%@_#s
zbDVvAmFEgYQu?lo=M^+c{od<Jlm7wYs=GNNx0{0Y1#gUPMO8x~S^Awxwxg%V!{_#!
zCr+>>_$w-H$ed%u>+Q;$SD6I)b>$~GE&5Nz7ft>J{s@O&YP=&VTj(=SIr2V+%b2)i
z9%z{8Sz%-L3Uhe>nBbstw}DM7Pt~P&FgKJ+{1V#V12PGzn+(%!E0&Vi&*#1Z;-*IX
zfz5|306)K+=@0*Sm=SEo$txtpHf1o^<bE0#0LOc5^(`P36?qRI&uAQ6*)z1iDBPMS
z1&GwM%z3&$E_Ff+_)_kzIP39|WxuEAyCB{Tt;zD;7bX1=6t-L?K8Z0;o<e{(c5DN5
z8flHdYHNLbtCvy9ZkT=8Uyv{&`PW56euiQF<fzf}k_SO!J_5Iybg00vbrjjeHues1
z8AS@JO``*<kO+;W+6k#jV%c{%Mo$o?+bJt1wfvbGHz0eFW{%UeOIKE+O-fQp^6Xf)
zljikSj41w$;|_p1s~|66lpV)(fxPi!F1yn6R&(vxr>-rRp?iGWUx0YAWx?UCjPYSv
z@v8|!)RE+~AK8A?RgZ7%`Nz2;$)|2m=+lYNm~c{+RRDE0B;G~)S>qv0kE>oCg*+)=
z56)k7mmB)xFL}Bu@2@;Q_J%G-QC4*fywkmiUfO>XXns_a$<jW6jJ^KZ!X}5pTMCg?
zL@|Li2GfPcyZ}z0si-byny6XlHxl}Za72&0r@t54-xiZ|Sl<+VE-nexJb;|JodYp5
z=M-1DtgT({l6bB_Kh@E>Da6$16CpIF>a}S#?lMX}1E92=^x#0}$V}OPZa}q=TM85d
z{CLc+b_rHfl&@f>KWZl`?o<~?L3-_FfmM?j|EATFttd9jQm2Ld9KF<dsI&{POIi8@
zW?Au$uXt$t6#IMHu&8)%8R+D8bs|bVu#I0t5#RkusK^EhFw{`M0XwChniq#qMtu$A
zoM{bGR#6@KZ|q)^YBO)*+`=OcEqmrahk!X%O<1(!@g_P&$l}LH-5#DK+1kbB_&?BX
zg6}~z%5X3Zl=q)z>2fFn>~dr6O-qi=KQ?Pkny4%rT43$wi?l_D*<Ss_ROh3o^G)G;
zap}<6tPWTudTC6HwfC_SK#p$knJ{NzpmWWV>d!>0(cnQ8r_;bp-|j>2__49(^7^(T
zu;&QTf?;=COs~a4)X$9r#=#(%qLZ%xwVyEY4m3`>_8AW8y^R-#{NfsvWR62!R}-40
zsBWxB{vQx9%}dT3U%%SD9#nHFGVy;SH7=g(d^&{l)Tl6NDp4<cl>us^q6;BSrnhy|
zJd8>&ly=1+dZ_DX`B8X0aYuO$gcHAN?_cz6d|%tlF9UgxKBreLw{g<}zbc?{8+?Vs
zsi*dV>5KB~a!~G^rK;d*Y;YADCUU9T(sy*zsm~MDOHf~35AJAl#;KkJ>A}AGFw(<O
zMu+PlV#b<aH+d}Fa56YhL;oT7!mCQ8gY%b)Wsur)Hl17NAb3UyJK8)bs5-O|T<tTx
z{0C@?pB!F+j>+XkX2uN#5OajJtM7{_vp)Fsu_pzWr>x&$wmk>vh%Fu~szmP1wRED(
zqUA<LCAQ7&Uf856rC-zkxpn6ES#(gKu~JvuP_Z28nDnQ_FQt_*J{<S^&S8$zTD}zd
zzAb}jj-k2~H0T`iR<`pMVA~Oz`;@F1p;WA$>^%9|S2VD39`+R>zB=lBPQ=GYpdDE1
zpqC<#Jd?aZHf}W>5-pxGxH0womDmC}Eo1-KGry%Owz^jDktpfrLy#!$&y0~~4@84R
z)2)ZJKT!?)_|<C$UAkPBlHNjFZm-LK-^ZAHkqQ)jYmfit=Odf?6`u~IIMmfU&4FC2
z^*`g{Q(9c!OqlgrNfu|*DYLOGrq8yv=Sx^N87?A;zoWbgMGoVuNEXmzO7}?n2kh&k
zghWzX6MtNfARONRe!4x-dF|y<1Bt4N36rtB6gIF)67hRck>Wr^gZ+GmJ~AYxXgSZQ
z8$+2D+K%1pV8K=E>&DGe2BBI_={Qqw%_BMXvQ0RFGJlV%V!<CPTQ9*g_ueY2S^Fw3
zj2b%Dw-S6IP;+N1%HABevQPN(3pDbNnIHsy!_?F|anV5F>tV6m#xop)=nggUPP)=E
z6K~EdzZ*Sl;Y>k$ahTcrH=Zu33P8n`5l{(89X_i`@%0)Uib#P5RB7M-G>;is8XK6}
z4Kr>f;CoObGnWt9l?jDP8-1q%ncj9MXO^8;io14{SId=i0p_`dcK5;A8itVxkmoe-
z^$!F4OD)1RtEi~)7C-iB{iI;rmY+Lzo>*$npC#2idU(xTSYRt0rZ=oQOQF>(u6(iY
zj^*S>Ny(>(r&636f8qrVt*@z6`snvc<l*@>&Xw&MWlzo4khGy*Hf?XYy9EVAGk1vc
zsFB5Di2;dJIq8T-HG~?l8vHP`vRt1x%VW(T%xFeQ@vV12F2!g>I`28B2y%h_G8su#
z8JKj322iJ{?|L4K@)QLooE{7zk_=e5%rMMVxo;Hpy)wt~zQqtq`-hE5rC)BK)MF1C
z!fWTEG>xAZ9XN@LCOtelR{&D8Z5yMYi@t$Kna=N95@4I|IaCH>P<wRNWSVaMzry)>
zJ#c{L-6}QHvMUGCoyp=rQjEcs+EAk09Cx*)(>B^&fA12BzG0;<mIVv0LzEln71j1N
z_ZDcN3Z|ac{F<nzYlzT|m%BBciy=Chc6#kPS``^D&HxN3z|(2sO3EtME8d4FFl&zD
z=N^QU+z$cIS18s&EYD_`IYgeJ4}Zb?(@El3h{~lv>;cy5W*YbH1Vcf&9*T3Y^aKii
zz(c`3-fQTa{%vZE#9{Q)%UCM$v5PG#Sc<(Cf8`?~-sov}I8i5w3T&2M<G<;FOFlk;
z5zZ@0K%x8V2jZUN#;?SG542%SHPrd<TIPYKWR|fDmK%r`=uLa(F6k$LI58<{zmxdt
zn~VgrjVr6J#L#)m;=&Hj=+-T_v;gnZe(eS|T|5WPxL7IqE{(r1N0yErxWRUVn(Pbb
zV4spRdVU>K6Wr7%L)%P(!9tm$_ckPE9^2|9G9I}Po>}n_Hs+KVq*Qyj`eH3}4m1)q
zpDu(*%t@&~-&QS!^BH&7cioeM)D6ZM`P{^0L&@4085!339Kh#<!yc*2!o@J84C&k)
zPQT6)VKuk5Z27u<^B)1FtdqvYLwX5s7TA-TtCW?3RA^SVh(k<`pbPWJpwavTBhM0p
zVum{6q9qo9gfO!_03E9vUr<wK1!J$@n|40Zo4d!0qr<ZrGMMd6+7`mkDbxFpOyE%G
zh}?<^?$kld{t#ShgKC3PC9ktDGjzF)wwm*q@}aC~5`R-}^M0}e*kx?5COZ8hg5C5_
zNaxeUY<I?)oK7zUamxnKY#;}z3k}9pPsqmaATf&*{+=rdac(8+y{AUfF7a!%?#m+H
zev53G)<~}e3mg%;mracPYNrdx*3kj2^<f5~gH<75S`as$uAKMOpME#8OEA2Y1$Oz$
zb55b~0pyr3*NEl2eHO#?7vC5M6qZBHvM@3HC^8xOr=ekV?~f9OJE5h<E5DerD;6P=
zIQoOJ2#Ndwtlci$(T=fc4F@?GT4Tvg=~8a%+blowbT;yjeBToR4sDNhhZ%G1XLrt9
zgQ3Y0O(8JP^Xif{uJ7Rht~F}<C5@SrqHcl~IaWboi^W7gJeHsP^=;joG)B&Wl_l`Z
ze~LvBQ(g#sgeH#vD}ueRgmv7H^v(qk6Rp|uA@U?Ci_zz|QARd?C}6f}?=@4O=kH^x
zq~sJ2qAX>^K87uEvj^ckiJgeMx76NlKSz4;b-ao_6jkJ7E7i`*d6>RH`I!6(GgTz!
z`Zi)x+@|L!fDj{20yHb0skUHqP6Q!(8lX_qYt-eXbH3?czd#W)`fm!M1OH~mh@3?Z
z;_ij~Yg2CekT3c$=OTr3Ep#?G-mRt6-Y5_^z-+E$LL4>Lvsn~a$~B2x;Cr`m6W-YO
zK|3%#!tn&+xNFFxcyw|`XG|p=Q$b1tI)84=*6r|m5dw=Z=dYNI18V{Rlu+@fT3~lN
z4beM)2{9%us^7i7E38LmF<TE+KPX*eeD>6Mz7!spwg1REvPrq!O+4MA^}q^{^e(SN
zyEpBX!wt~A_-If4^lQ>oRo?|ZfPuU@XZD6=8Z;Cm>@>LO0^Ica$WAa%#4aoJJNAUP
zeXFnR30U%52+*VO;!t&SARvlFNXE$4w@L9ujuxms`O+{{u;69`O<cvDbQ2B`CO6yf
zPMC11Xksbe(a}`@tJ)z~J}7;7{J!d1;CkDbED2%LKOX_-gHrFq7RPS}0po9hn=WNy
zu|%Q$-xjwp`|LVeq5bYfn<jV{MrNuMpxAraqqmkFEqQvRwKQUEIVd64J->E-KP(+;
z`rSV#-2r3&UtMb(3mrdg#>lP58|;v<e-Om~YoPPiHoMHcJ+a^aa|R>qjOS^V>*dV<
E0^i|jDF6Tf

literal 26913
zcmeFZcUY5I`#%`PHsgzB97Xy#1{eiFMF>T}5m6%oDkb#5ARxUNAcQ20j_8aO4ZS<k
z6Cf1nkf4lUs8T`;Nl==E5?Tl(gzS?z@4N5!x4*si+VAfE^V|2iE(x6Hl>6NEbKmF0
z-|v{;ko;EWTM!5&3B7sk9tgBI90Zd1<-k6mg_iv1GVrnQ7t<TpfKTArGH%2IAKwJt
zv<m@&<e!TE?TVjXaR-5Z070+)Y!#llKu4zf!kpMbE`@UW%GDPy;P=n}<LXJdsB3$6
zN&jQ*mCK!<-M=%5KB#lb+2rn?y>Fv_{CwC%eb1fm?|lDEQ*-yrp9_9)KC<W90nJkb
z_1Fcy?9X|G2%W~p26M7=Z&gl}H@kXxClmq8Uz@Y`krEU2pCA9<aG)ia-^qG?yk=Of
z@+b9n?l&M?`={y+z*;)b<n85a-t8o9ROpZ_KrQ`x_xtvWX(+$2+gbEWl#<efxW)F~
zKO3f%eL$dc<Wk+2-M|cW--Pdqa<6REYi>Yu<f#Zkf(oB}2aV_5;rz-npz@XD$>lxs
zj#UlwQ}%^0rtM;SjIftV!^6zlm?0o|@2yblTD*ciy-cql!jtowwM9+w$PAfhouY=p
zRIG$H0zZxr#@369FfU%Zmvv#ZjIkUk^yKhZ2x=#xSD{5qn-+>PhkX7+(um8nL!%I_
ztP$2DRyWm$0JF*&`P`sQD`VY~By#4pBI(0E;bzX&dZdQDPqS<TNoLBhO#q%$85L36
z??KY8Wi_7wwmkB4kN1JI8@?`$-7>_W2+mtX48NFVKEElmLuz>NWKk<&vi&x%tAPO{
zu*U+r0*V+Fx3aMJ<SXLz2>w=CwH<W>G*j8DA4+TJIRj+Jd=k~M^i%vdJ_5sSyH>@Y
zv^y!K+Z@NiBYVo;_jc<D$+Elu@;dD6M%*%>9wX!q*$xmqV^+d6dF=EREk`Q@*Ce0j
z`)$YoTes2-!Pxj8Tzh~<m#4@`*~7@8@ATyC4cMSIteMY2oU_s7HklCTn`+&VJWuz%
z$bekxnsDsY6%LLqkppjXXtI$CBuDx$lEWtlLb2w<vT{q+1m2d`P=zqG@2s0*5u~eb
zX>B-gsVw@3u>3V4_gleX@C4lwUGfRlkRH3Isj6)2FY7W+rSxpGd(v9X=j!@Vb~Qjv
z%b|zOhtvXX&pp)1b4{N9)p=5$`iT&EuIk+fNDav@T}WT9;2b7awV}%HG0UPypX}#3
zW>$0{+TH*hirv@LYv(CHK=at&6qX%C2Uy2J`d^+LH;^<vw7|Y1!2q;K*610N6&0rH
zoRJ}LJ_sziaHrRQ`iD<kS;Idtw#J(kji+8U264(sJEu2l(=>PDyH8?I(=2Va>^+{m
zlpWPxJ<5tNxyKaDX7agIFUhK`!^LIP^N$hvq#R<L^R&I&=u+?8_1z4%ehbm9N`lc!
zAa>VnWWjW~bDBM<wU`~01j7Q-^?+p88Z+KZ<QwBBWs*n3*J3KTRz`1bIl1j?vap@D
zm;ENZ_TRX|sZdwc+4eO4Se~9h$SLzToZS3Ivg(lMUKNdi1E!&nJt~D(y;%cT3j`}O
z!sg&<xKTahl;nJ)p?A^_O2+>@q8BPO#s_#E2=d?<d0qE|rN&hE>k_@ErC&VNMwN~g
z_97M9-elzr*kc33eXCjrnrV{+pEnwT`mY<zTYGsawC$)`R<WjcMs3aVpWQoSOL~);
zjW*1Iu@ouYu(r)vV(?PxF1AKla4BbBlLKdLyz6i6N<aR(37fZ~sO`3GKs}ft?|a$3
z2WgQN(u{PS+LHX0zO#eq(M91Mh=DzJAv~t{b-y)_i@gr5>mHgtcAf2<_VTY(=>$L@
z^+NVEuE{wGcxTaVfr}o)y7SS_Os!m@Nhzs`VxOg5Sa#v@CUO^h5>_14yo+tqqz&PJ
zHN>|b-J7Uut-kFND_GB%=E6^>KUB$$9=TQekTINYKnrv}i7b?!y^QS9Wv2%9SkGpL
z2&HGYX)!y*>^>}!F1wljFYfGQ&X4=|AWnQjmpaZ0Jl3&&F*_Er6$Pg~9NjDsow~EJ
z(#wYaNixH-%l=fK5KX4ft|+rN$?<x-Kx+N69t%c|ykCqrS01tYBo(I(^Q#4MA=j!r
zjY$=*219o0B|G=qDq0E0h64ox!9a{aXgHh6%&HJ-hV<xSo}h1BLV5iT>yaizk47nG
z1udK)WHyeT*vj<(>yxCW8*G(gL%u+>;U`J+u^vEgYoqhILUydBxwTZU?uOZEXV2`;
z>vBG-@Qe%&p!~iUg+K2D)ifH}PHz@VYVN}lTm`-H)^NYN3m<EHb=mlkxKgE?8OIfd
z0*zmD>R!1n4kmRSJkgs`A?(+kEm`L?n`S?!NmeDz`oVI7mZU@4=)TV}fD4_{ZFe3!
zpAoE&d><o#cpnfJ&@tDU+*%&5PU~_zbF93i<Djg6(MECfFmJ~wzRJ;0a#*?*P#_zU
zHe?<U*~on$Mz}PhynGHu705dq<VB#2ZBbp{qCHBF*&7E|q+4|9Y6l>nCUx<7Gka}v
zvMaF7<jHQ7`XMjd_E3g)XOnD?UyX@Tq3i`Vf0=ZyZYKhr&uf)#Ct=C$@#%d5LuwPv
zhl&-(j&$U}1m>K_lDnp@Ws*(PcI?ItJWFzI>W4z#BoVv2BZzxJ+G$Zzpphl@V)KBF
z_NTBlx}>J$aInfICl!(r+&s+d$aGutkihu0?JTb9Gx`oTZM@}W`a?W>M}#9A&4=Ow
zHh6EVJa!E)XOf#-zj<1b{C4EqwW~AficS7WNzNHG4zOX{CvYnu`YqQ-%Yx}85&o?*
zb@M@u(ebes{CAl<d~8#s(wd>UQGkGvq{hqT=D?RZkk;3L&r9W^H)qZfenB(r(2-9B
zg;v8^Z`g*D<Fi^u&x90~zpRFz>mm5`X7$j8AsezbWb$9!O=~LURYZ?^!u$^Ws9<G~
z>w2yixzxa%wCI^bWoQiscj~qqRz|PYCLnv?bG5rZ&^~Bu?3rDiK`Sl|Y-CE;7e@5Q
zxEbkfaSJ`<a<urh(L#%@SlxDPnQQ5Mt1_Cq(<QGrn^_wCF4OI)bz!MniAl3|d*na)
zX?q>;OXcg)(RNYsWo68A<=Lm6nQNtd15){@&mso4X7nBA8e%BMO$vgNA6{hnbRWw1
zq{}^DL6?pikqfPA$KKfwO=e2-75mOV56hR%QY138Ji9DqhK8Ley;c@pn`zB?#GF!t
z`OJz%ukcdhR76NmW49i$>dWxVNg&v?C?8wi4cebz0pS;zsqQse^Ej|Gl<7wPxDf9u
zG+!GIr<ZvcNFDYPK+N?DcvJ~h&-RGbOgAip)%jG;Mz9b*T|(JQg_o2IQ&}1S>3_{=
z<OY4tberwb4SlZL-nK#1+`w9>5`$3pTPyd^SIfgQ=Fy_vzZ7eef*t+OYG&$}F`!rA
z6SPLUW{-r7hq7}iTG7X_IKsoYMZdFZ_|9bL`fHm*1&1@_92VQ|TDNOQKHPc4a-B@7
z$!*GOc-U5POvWR`uz)8V<2G*pDfyNyfsfbzt<Yf+;<-TXi4kbnxi@Ka>uzLeZYaW<
zU6O*@*W0A|hrJH`$&FrVBm@w4@*CRrl~q{-x-OCp2ozfG3F%sIEQ&Bk6tY;7ntdB(
z&;|l8n)PP_N!8D@=cMpcNRJ(RW8IpRJlw0pX3u1X4C@Z-d$s94?bV&V8&bx3r90b9
zJhiP`hVJFNO77Z}mwi+{w=>_|H-6oZJG)MmEn<^G%BqtWU+cOBB-14!dmK#B*qZ2-
zLjeaGJkjW|(zx_>gV(P0k1R@p>BzU->m&<ia~m<Nl;$ww==1Nf8)f`dV$`s2!Os7w
z6;b+=4BP8K`poE(>r`3vvR_R3trq=}n}KzN2*7KX)|~rsqEv)ZAU^w+cCtxrD+RUi
zj1b?2sIV|j&U^`5BSV1E)R>_EF+Afz9^MVg`0G1KP|Mq;*U?wJhT0h#J_oiv=s$U%
z+bPz|{S<w()7Ju#!?Js>e*Y<LpnUw@kID8rM|$DLIS26&Vo+1N7XSJ)Ro%jfcX~X<
zBGU|X)%&ETng-ZfN=~Y~v~vcbS+vBpmV+R<E@x`_%ru$U&;HEXFYEvDjXl#Vr+Dcu
zy@0p6k41}9FIBipe-$ymuLlcjZLjq#ZSELzv=RJ*@aELc>#((`l92q@RCH6sz*#h=
zxtjUg@;labN$eH7?g0Y7mh<WJyo^6S^wU{EwgWx?Q?o~I&6-b0sn`f~9*S^!$>&d!
zij5@3{l>e-Ul6g;)j!00ZQfk=B&^9M-`dPzDH1G7*X#o_W6<8lfvBqJw0h>q^3gd9
ztv#v%KAS}xl#Iuad<=uOTn*26HS5lRL5j<m%bD<zBQufZr*tALTh~_8Ouk1Q;d7%o
z?!>_(V2o!g_fxbaq^IH4r(6McVEO1yyjnq*aD^c0%2b<g{$^|z?*NJH<`Vp2SwrU?
zcF<I~6?UBD5_I&KZI55L25*Ojk|o_}w-MSjzm9O8WB|CuIm2N~4C(+q{+~Z`C86g;
z`AX<-2B+hu!$vqO;}RgbzYf_w+$A318v|G;@VG#MY((7h|L-5EHK@M5%SMO%HZcqM
z4YfK^S_1-k=oB|taGp{d@y}(h(wk{}srA%en_<5LXfe-hU-`g@U*=oKt9{u-|B9#x
zacdE#gtNbqAAlV%Pm~Z(<1m$tM&IFQvwo)%t!B+OobDNvH{9YZQd{wmu&ozdYr9JE
zNEcH%`Vq#G<O6oq)f{~@c`_T*UUs*+gm@UKSa0_pNFISSviC7fs>={*PR_|;g;gJq
zGs3Vo^CjP25Wjr9RV182ArbLVK8uR&`Vw}JLxJ)s)X5Ef5+TA5!KX|rmN}nyP76W%
zAcU+JN89uY8az0!JdC7h@1fMwGTzRiDcU8Uw#!VUc7w_v(@71Tub-c!6cP$yaHof-
zK%k68G7Yj8%FV<y7Vyybujgc#bC92&X_d_=l|~NKN{nK#2j`hZLi#40`(rIEmcI_r
zY_90FLOvE(Pxl!w+z%RgW-R5@a_GDPf2~qiuyMPZXqelJDj2J!2b#=tHL0@cig$=q
z1A>F~Z2b8l5B&yKjAqXlWk@~cwa;jIJbJ;cc{Pcs))@f;sg3nn9}aJk&|?+lo^a}n
z&O$BKXJL1?rn#n|krR8GGT5zDuY`>YK#IJsAB;!8jWLumuO@#2&D+PvTY1J`8luYX
zW|&@=2^gS%xej45xFqiD&XIELRtk1h7KoeWlH-g1Ve^}l@$iSzvKzl1j&unCJejYA
zTS;+8WI(nzGuWKWPW2{xUC)`*N+6ei`a>j$sK<|@!q&1hsTgxrY|Pv<62@#ys`sQ%
zME%n+MHeSgmloWyWq%U3$WYG<-psoK1fe|ES*pCu&`@(vUatu?r}yOiVDW}eoBH>n
z?zZYf6ZFWGOXIc+@(JxsTLCq5=kS9Kz2>kCZz1Q`6j9L%q^7xxJ)}cyFyXLRb-Drt
z+vW#7E49{4BQJ7DX1}OMl)KUdT`!=-ybM#WM`%E{t_f>cNz^sG1@U6EyR^8A@YDp|
z9$uEMKPvhYbm&<|iC8_=&g{|<HMHQq12_Xb|7rMd@PoY(dLQ9i?bG)}#6l1)J}S&7
z%a%@vc!;n;OdsbhlquXpm+-tf?^!q&m0DU;a9h;RMOv=m%kIz@?N$~JuEJb=mC9l(
zVc5EmJv{q@)kWEO#JWM~)Xu*p?(3EMwoyxAsN<7AH2@Zt^9Ebk`LvPWh~;#iriyD*
zY8Q5~XY^|#W(FtYt>Q}*?xG)5vbU(k)W<6EaF|n}Ykf4GT8$@X$xKSgB%?%=f<n&&
zV;XPpvuDF#fD4SwvCgt-&etPFY+2>dw0|R~nAIGHsP!&y6bG>tL<7omzX^vh4GP8%
z6V=lrB7<6QGw`xzJLvnZX4H+aIV+~1T}({q4-h+ABvYGe81Q70&0wz>^-BBjwgWOo
zeIg+~brrOe*dv=g6!MMu^Cv(H;HOqbPEH{}jcHnvDztleRBiAS;FMwTho??&6|yo-
zq;`Q8F7IY^b7L(RHA(}w-w713?me~xXp2#ie;Hwwylih;`Y^c*Ks+?Oiblh;qXu=n
z0d-;H5&iaVyvjLIL(wNs-e-{yTu=k13JXF^<uwz=s+cQIs+Sq$-dku5gXR9Ag$gQD
zYkYa}3cb-a_7gWoOy3QgtjJYL7Gh`w8%DS9jTowGn8KMJ^2=nNvvmeu26vpH&l+;=
z9-iAjwNTZ&RN1MnuVy;23v}=Yz`_+v{4aXt*rFrIldy62$}O}Fi@zhG;n!{GEZDi}
z=2UxX!pSSk736Xp*3h5Sz^AA1oe8~|jjG0}@5tYt*ID`NSjvtk&#pJZCdDaq^mQj7
zxSz1DjL3j=Z>HCi$yyqFrHSd!zDUK)N2`j>_|Uf^ZdDd<R1suv8<6}tO;A2pS(r`l
zn4izSq>CjQ$r7%J1nQzI5~z`uTF@QD!`87X#j+lv;T@+xUA33o@XwXehU0-ZK4qBI
z09d6~&;Mf2ES@}yV~Ko6lwYR|;EXF-Jyhi4!9lVY5VNRuR2V_A)Y(d&vE6u|2??7O
zX+xBJ?>`u&D`hMml?EHZ+P5x@<3sQ{K-yp;IloNunBs{jiBh`1k3F>If*4?JvTjjl
z3B4sB*<RG=1U{^`B(9hN6Bu)(BsIT=={-#cm+L9oz3my~YvO<$r6ePo1eBcgKY*a*
z#Q!t^eEAnB{J+N!2-6MEw}#n@U;+>&-kP*DZe=?*zv4wA%n?<W+2Ym%dtx2tNmK`d
zg>^i>tZ5`z)EeckJmD0h3hOO0bZTyBFsnwr+$#<_oi|z<tNrf^<}m!85}=s;iuazC
zSgI~MvjN$f?`D*8+E|9vZ>SbFIhlH)j+{<vJ01cHD?Y?z?H23ZbkLXA2S@%igbDmP
z3#<aF1!NBym33F(jtD}8a!}N#HFa%X5Te4k4)%x+dX;_Qbc{#~9i|(oxrEbFP9F}a
zmu1^EqX2Kc-@K*K7KO)_k;r<aPs+YzD<?$ob~&peVX+ygL&I#~qo4H@t+TXNQ->9h
zmw{PEZpW8kBKu5YzI<U}o~!TH3Ea(CoD7lFMC4e~^G*#mvj<lO@FB{JMh`YkX^k~S
zH8-rWR2|48{;#Y<RMhp8qPlHO$5Cs~Y@`Qs^&GSEi@o-OfQ`ixBd1k;Rym+fi<U;g
zLNR0L$ZtF0tzDxkRw@=8<nn!5wTTvRqA>Zgts%&`1vPhb65vKla{VXCfDw6ic)LkT
zh3gG@#2_O|O6O)BWo%<(i^U~a%6M?HHOczGs-W_O1K}yH*(`bLVH;Qpri8b7^{cly
z0k9#GbjP5!VeIumv5-!fwlp?vsEN`IKzAzkG>LyPWqmY}Dwi0?k5zy9QPdLk7zlN1
z&B(vcOZKanUJ`fw4~qD2posrrNHKt@L7Gk#dc|Yb=t|!9FP&n^)W~Xv*QPj8xz<7(
zbQ$joX9vm`P_v|9V*gi8KLEJ%qf~+lO>=gg<|IIJ3aQ1aa>5ywHFa$bE%ue)eeeGy
z1LkR7!|j^m&QlFGXj}#h&ZTi%sl9PF@*)YAzX5=DK!n{BY-ZnVBCD`aLFkXTjd;w8
zruI=a3*wB5^@9GA5u2kDa5@rMo9&H#cs+-2UM+mhqp(yh`6PRT23|rjnyZknCz{d4
zOB84jg=6rnzS%g-#rAIL`4!7Wlz*LAlO|pTimZCqp$u;}exu~$EUjQ{wpV(-)p9XI
z;pW}>hXmH2v1|K(ZHCWRoQ`>4cc>Us->~uepfn|ez;u3iw56aSv{mtXyfXk9>hgG5
z(Oh*vJ+;JmoZx?19Dbh|-Y~D$$krUnw_H4SsJx7``8x?C{rd$+pQ#m{Ku8hBRb<yB
zs-krcJW#%626>ayVj^|nwd%ty*)kxkb^$m$a<)ce!k~(0q`Ho@MDU^fWtNX-TY9$S
z_V0J`4jE5jSm#9r*AhM~49_rlXB#uWj3+pA@CKW24?By{L9qqeTgo}y6&e5dG5wQu
zSY4~U-eioXDA7TGF;--~*T4jskpQd}#W{lUB^ePF^u3IlBaobY0q-&yy^Af059>NP
zpHVnQlqa-kZQkbeziiWMJ~h$oo40auG^kyE*e?J@Gf4@$g5lR<Q9x$102;3EK_v6g
z^CNEYbWsKbD#^$w@gqTO6tmtC9R+@faSYn|9@@7b6VYnl%%@o!AXqCoF}A10s_<Le
zx8d-?^O}|}kw_H2(agZG*%kTZhIPBehSPZ9z#9wg@sA7nRH)@_q%r4Rw334NfycGM
z`^4&8E*X3L1EVp*)HrbK8SB>RSX6m9jMHivA77k(*Xd3(krx}iyaAJa$3Q`TYlfGS
z90f3rL_&y0ng2_rLt?#Ymqkf32v(jJH87wwdI0m}CFfCeTCGMvo#}@2aE7m{ZZNrB
zk>Ec}Qc@HRh?4g$k!~6;&bCFndovAWhH?bN=;;IIa&z{b3vAh|%k7uO>wHTM$IlbE
z8TiBgSHGri-^uvwW8c8TOECGalB4a`wK;P774Pr$0RH;xT>w|zN1j$heD?T}?WIAx
zX1Gt?%P~#7k2TZYiQEv17@XQv0SXFhgf)DxdLD4|08n`cS=8^*rg(COFY^wa$lGFd
zBus{-`AS)lZ3ID_xtBh+Cs6pqX4+!15wbqNM<+!#xE8RW)H$lIWxIJ%_E>pjD}mqu
zYlKvY%NJ3Pdp!0vp`2_4Awc0DBE|2Ep5DKqSH*i8?S24L)4)10xJNWw`FhQd6ImPY
zSzD6x-8)}^n#0F(L$(Tj7*aCb=%e~v><4U>9psl4hDg$l*h_`Xb9ihC!wEf5023ql
z^51ICP8d|XhAySZ42?Ha2P+^}OiOuDEsrr+A!{`YQwcCj6Rid6bkmez0O<>!Yb6{i
zCoO$SaDxNp$!lXJ1H}~+DvGe*dbo(8HP?vh7gwmF&baMwYQ)RJdi_#M`Jbch>QK!U
z4Q`0{tZ%68o-u2EtR>5MwpMVKczRRz$CquoB-ffHjZ0k}S)s0+K_IXRZQD~7v%KM3
zQF!rYbPmKGU*3VWN)8q@=ev46As4GNT2fJm-uxt*B<k^~?Jl;nlvdXe+8k~q5tggg
zEuQ>*E6{EPv%ovk+C1iaR#%U<1NH$N=@-QuUuOK07bNawn`?YRtR^6ktme=^7<6i@
z%3`l|FMJYdWaWhH-^pU(UW!pMNaqVc2L{E7f%2t>f*4ThfbwFkb->ADasCwbm|<&r
zY1|Jl7#0;jEf*W(twe|b)Dm~zrUjKzyzvwmM7F4=7fFhmUE~4dBO~#GX+$QMTD;+P
znkpu*{4_wGf)SPED?huK<_!<Zvln#-YJ(NK8NzgL#frE!z?EWM|GgbzR!yvmTO)bl
z1v4+b#nEKsC@_C-mbY+SuLreY#jpPN`ANQbw2;-~qcdAWjR(x$^WP`ywXw*I*v7Ml
z3CCbxQ2Bu5nC6Qpdk*DaGar%<Dp9fVv?;Vu5RTvHU*q(!Dp?MA%ME?@B6ae5iCAnd
zH%|KO3!uKIhFSO00)!N*ylk@Hh|##9m31N^L`<XY(+d&|{B!(%>q2W!7~J{K-V~Mg
zGPprGZ|sAXc-IRD+|>KdFQTcr%CrmA<H~&U$BsY6{s%Pw#%>q;jfTpgSgB9aNB%}A
z<tG2cG`E1-5Ac-dY5Pbr5(x8FOk4T-xV7wB-D&aUa*=I^!UG%(3L7@|^-6uMl9cqN
znqJy|$f@<aJT9IXkW>0w6rBYrP!Pg61mJ3ih7Ia^gV=+Cj=Ak^GSa1DOc4au>z8ff
zvX0AMw{v}gGgkaxzX=oXQkxDaqE^9}qMVnwH~^YC3HSqHiFwu=4SBDwEN@tAEUOHj
zbq8G*fkj{tqr2zDnoyGlNE~J(^yxRO`PAlJ!ptHtiRN~nMzD|)#CHF=(gUJhjMTK*
zzy9>Za?v67(#+e>T2!W44H83$uvUHAXbmfKzGqPDn*7ycw*vZ0D&^%u`G@hjH)Oaj
z%XCYcn$aDD2-eDb$==yXywSpZfIWADg_%qiPp*~=kRbD@-H1?T-<;df_smVPE6(@8
zdoC{{x;jkpjzN8d3nH@h;z^W2quwusZ^a&}rm$jY0!_JJ;s#ufsgHmme&!6ZI(_73
z`PcEDY2#&R&1@l|!G}{V;6+w{s^7W;l=f%08fD(Oi1y?1R7Q288HO17mTytiBR40r
zpD=faU)T^?*Ep<1bt4#MT_(Z4-qjiD15|vpPP1T)u(w8do=T!@=65}8WVyyx<+U^N
z^~=t`vkiQ;<Rthgs)~9Na!PlA)WG+2BY|0D4%A0aBaJzOKn22KVLzS?e|Yrt7MtZM
zWB6&G{(DJ0{DEz<|0oa!-4-Ak4M#?<-mtRp+321~>GqLLZpxh9MWxriN-kY4j{f~O
zxc$RZz9fKElh<WDRT==<4-nR~b`&2Cv}w2(?6+p>16hU~^76<t73*Q32y!~YnA2n;
zRS_F$%1IUB5R?r$1^#iwF8iL7p9rb22~y`84vbtqT)Ncw<;Uxx<=cJV41GR9wNMAj
z9rS#v1fx(ZQbypi0z(T7vUF|&g6*-liK3#b(LT%04Y!z`%Cu994(xE%?Q5LR(W8O;
zS-(oo|AXxLTgAi`c^l4`8%7Ps%xxLMX!7Ud#4n2hSX60~RgZb7E%i)cX1}o_@1x0Z
z@D<GBFs77<Ui8uG;h$GaXvJe#g&4f5qbt&Ad#y61xg?CVmNkt|&zddAH!?V7Ss32j
z^D_5V2A{#*_$)=PYl<F49wIahRhLoYw?D+IH6%;Ysyr>o>!xHYAC#n`4QI36h;%y6
zmVu(>0GA1x*=V*Z+d)5CN#+DQmP%J%q)YlN_EZwko#04U&F5piv$AXr!`k$1)acF0
zx4RnW%mT(JDmhJGE^0572B7C(n~n^{=`Yp!BRd_`8)76XQMHaKS&O2Q^k2s;97R=O
z-Y^-{r_^%Qi9a^%%oCnyH4lCFjfxt_C%iY?VBT<c20}*OP(-h@<ZFvVdJV$*l*-@l
zX>yovbHXGqVS)Ph$MU!twE--0i(B!B*ie%PJoYvfT62s2>4BD|xyt<bELKP?YZ=Nn
zrt*Y&m6444juju+TES;CY;<IGg-Fe#9*>XgV*f4)iQCN9T5mStyo2(WsPGua&WjB`
zYZ8okvub!PMRfZJs5*|P?qXZx4_mccEb_-O@rBKA^cqinkMZE7$Y)lCD-MwmA+WXg
z)^W@ryx#?gXvoMXz%;_Nx?1S6Go*ruE1ch1uWd*^OeG-q^}M7u92mh#e#sg&-*Ne?
zf?;FupnvD%vq|x0Odpg)arI?(kKxzwjSsgnelMLO0#$cB3K6)k$t_~^wb-YEYT~Qa
z<;&9*v%QU)s-HAk3olSf(>K4;3pnk)O|@y>Ikn6R<U9+5zza(MJ^DC@;L)G<wd(}`
zCe9x~p)r8zXqZ)p5ht5Y1AbDv_$wlkcLhi>0}wq|KXf#6txSuGnf&)9h*{oDr2MSG
zeY^nwuh<0a8-9_xQ_31CZm;rK&bAQ{iw*z2+lM%*Iw5$-@k!WNq3Yx3d%vI_AebyC
zOTL07`oF|kyvmyZdHTE+yVTHH-hetAfImnG84J^_!4_p}{UXkzK>F_hsVGtX@Sf(2
zjU5;?08?FRSz!crvATSPI6OqjyLJH=ls>aw0=3!%{6U*9Ye~^ATprcJyhj`vT(S<)
z^MZuU5!?6mD_xx!#xg^r)k8pf1E7Wj+Nu*GL_|4PC!VY&?&1b;@GE+JkN&f?F9QUU
z077W&`5yi2C;u6BRVUD<h>-)6F-N}>H!U1Uejpxad(W+Vq8aOR@OgZRzoS8so_{49
zLRh>06=u1#1KdGV^!UQt90zJEVZW6{v7zR@bK;@;?_MWAsH=;(&lzKNP#t77e8sVD
z<mid|ee7(Ys<Kf`ZI-hA3V8bM*3E_t0e{^44*zxGtIrRGYXHYD7*}g?gW8`a`<tGc
zRma=e9v3&5KIq%U4!d35>+r9Jmq5@Yq?jA*RPCjTxmBKcNZu<`kr+z+lL_2;1TIk4
zrj23max(v2_PtB<!vjw7rUaUGj{Lv$=%wkU$TD6maA?Ch_%}K^6RY)@`zCr?YUuN8
z;6mkdYWB;r!y;PBCjkJ4dGIfMXrkUHCb4DLk^i%Ul;R5i$_;sH*~_-{X|s&WhNAv0
z_oM-3D`b@ejqX(v_eE_{`M>-w=3A7K7JxPRm%7TEksM7+J{%@6;q-Z1AUHtHHOzvu
zRSGpy2XYpA!p7POJ8>v37XW0DUN_it+7sFXihA&dq^rzA8x@#_?|}$x6EBO^dYT%1
z9_i0dCjCt)+_OYUCa$Q55JzCpkBpanzqADSfkRXpA(wzHj{7$=lWy{~RxuwtT&(Wg
zs+(fYBjuhtNrD5M1zd!=UQ|e-#AX7ab3=cpSmLCtXeYM8fQd8psXHkEdR;2sFwobL
zU<e;DFCN_g*$6gL>+@TXNM@paekWO*?hStvx2B%vjUE2q?YDa(OJO#ZW$JU8{h@f{
zWR+uW)pOY)1?PBzMYYk;bjnwq4J`+J1H{JDe5{t>T+z1XZ$QP+Z&v$4a*E5wj<^Ut
zIE|$SMa@O%w_IwQhS)xAJpkG?yx}eU8^EbZZ&`59ae|b&0cJ%stkA}SfO#F^!EuwE
zm&As@G$|dBC)~KygHssJ*halS+O`{{lR93+n`RZ6NL_qniZ8Sg)_u9^a!_Ejv2@wI
z<~2!H=()7-NBxc;e=2&rcd+R0>(~2Yao6@<TJmvxjjQ_$JQKv1j%{oMTU_eP>3c8;
z|FP`uv9Q;d_n8Im-+T1ZqXQq5=cj`;xD4b@Q8qkBx}Y{~0L@!(ViIBGf{2C&ym^jZ
zVI$e8&^slO9a(izXLc%)T?x8f->|z$B|pZTZbV@~F_}|bT%@79_oIA-;U&s`+`{k{
zGYPswP9MAIR|DQ^1+&doDT#-djG(KtP)6$ewIddULNL;{+g-sv1PKE9al63r-VH~!
z#uRor4<+-#$k2h<qP_~~P8d$!46-L`hxP5UziIG8T-CjT??+T9g_Z?B>YSs*<GNJp
z-8wRy5#TRzV6H{5v6)|*4f9qo4NQct_V+M7!Mdj?Tv^}Y^Vu2Sy@11w?GBz!EktMR
z0xA0$<K)7|gLHXcax?rp{{YTh?6z9=8@?FiI!TQEVvHMK3a#x7$zIDWpjDpLK#g`@
zG%|t@zg_^v*kvg;09#%L=Rkw+&tm6s<Fz3UJ@sc!8)F^a^b1B~q0Y%ukI&>H4_gFZ
z$C1rfSHTV$KKAg8gvg45%DBbtEMoCxP*hs*i0jkoqTD#|25HqAx2JD0C4Q*IY8WBj
z6*N}31fS}$NP9H#^O?0(b?%)14P1QQ?Sa7dlB@}TsvUGG^CAuc-2qdObMgoFi)^6o
z_aMjM3prDXU<>oKGS_%;?XBQIoPoX&71{CIq7U->**I{3d0NdU6!g&TRSuYK8oaiT
zCQd5e{8cwQm}U{|gnORgm^d|7viNE#xW{zW2Woyht!i`b43SzPE!+{iJ^S0BAiag#
zt7YJ);4S-(o3k2u*(Tj00-~g~%0TR+Q0JtnPN=%6^m`N?cll|7+QratT>XXWTt9X5
z)u_a|bN;?{VlUp3NV^k)<maoEg)SUH#+$G9X05M4cS>h!-cTbud^Weh$<AW(BJd%5
z*gJrhy?;w5@TP<}ajJTAwe3GK@-b=OO*z$x=~BA~iwaYB-?PNX;=^wS6TtjDu9XBW
zp{XXp@X~dH7)-?E0R*D^B|l;ylvc}`1o^3ur1e~H@2_zp{SGXO>y@;=mauSg6)9!a
z&m|Ur4L3elopv$Y&d#ybk-ntfwHmAbu>bO^_3WIijcr?*)|;<Eue(UK1?8mFjQMSL
z@g6h>Zs{Q64`}E&z-WZlP<HK9MHV_cjDL$auT}jutuq6L@ZaC!xt_kv9!*;J{4Yec
zCauF&Mw^4l!v`3raZN?I8-E`)?Lq7f*Dzh>nMbg}Ola_|0ulm7Ud3si74j3n!$X5#
zfs59kWuO3DlO7%U5YR{)oGEU>h7uBtlf^~;M1MbG4qXk?s`*N}S&?Q-qXFdtl;OO^
z+%a9<_GtK(4o2R<xg{(VReVJnK3B7LF~Ic~C<hb9)hV(#$NJmZ^On0C!^~HkdVsID
z0ME(3=nF~w0Wk5)c&J%gN|;l}<;IyY@lK0=26#!wbs_pQQZ9!Y<KTl<;y4GA2lhg|
zRaudcJ)d$^G)Yv%pw@n(iTLUPNVx<M9Wv?7(XR&t$3(IMgqN+A^o^+R6-8jQ(LJb9
zQNcyAI(*3m`eRkLYR!2D7ykHqU1<SuBFdE9gv`wQWU!|aG7u-Jl`LNTiiy*%k;7pf
zW25!hK%DSq<!OpE6f*=py!s`5Ow5_{YrtT`vy?XX9kL<CKu-*7LEcug-;13*==L3_
z)8X8rVmT2tplB;V8GX#A#eba7OWG5jlesi_NU@~it3t)NDD7f!^BZ5;6G6lu&WpOW
zq*Ap^TJN>)`BhB6?Gwb~s;|Ri_k6u&Wq<3d)L-TQUpHu%tZtEU_h&B(;YQc8r?-30
z(!|>+_bAbBLHU~@Pjr>OIVGOor`ubiDaPLthfZ)Du0J>X3LFm&W+(Q2WSXw#_rOJc
zqQI&Lm$OOlW=j!#Wuzyr-Fk=10bAS(#!O>1%vV!Pv-x>F%mDCKDHs-894i`f<#`GC
z4vIbIaDnfiHuV&`;jk*?E9t6G7IBWLQ(pC6fwin6u+gow;mt8#hFFGgC=CU&<=3};
zPV5gOnuUG8Q~(y@?$?6Z#ZyRQ+<q|f4zAXEhb+YLMGLgZD7ENg!pwsoPVclPEF|5}
zNjzE)QAWDpAWEYnl#pI9@n*0$&JwqMSEct+VPVX-VyH88eivg!|4$qSjq6oTV~-0x
za8eKZ4`PKEDPbvRW{s-Ce`6c__?{Lm@$u^Jrb+ILTRe%*%R6&QTw#TU9lIz`k@We5
zSVo$zO3zC!q@Pxu%Q?5UnQyw3!z?TbIXl-_QfHE@Z|I)>Ob>HpGpUD(_WtSM$!;fH
zldgLYyN331suXI-d}v(IRfW5pKX-j_>JM<QX)ts^au+Bf0)x8&p+8G^#7!N>IgUOw
z23;3zlyB4Tkb;bC$MHL-?E=wC=%>ePA3ThQu1=(PUe23Yje47nn{qXSyuMC5-O@Oy
znjkm!@U-_j8@f|GcO3*WXx4i!^?g8NJi;GT`XeykFu2}C#UN#AyU`j_(AY8-9ACIP
z(v$e|O$N(*;z)MFMIoCf(-Gm^q0wYi^rxE3rTK)Zqw(R_6t*WCuvKZ9ih?gUki(6P
zq`?sLbS>az5;4+!W3;eY>Q?5%e&|*kg!FQx9dv$iNQE-*%xzexaX@K&hZ6FcIRh3(
z1}mcy56*}rp+N_+)uA;duS@D57DDSHj!(z1qQUUe;*v>yEPrq1uNU+-Cmx4z8=1{>
z9wj4j@}?S*F2$$gFJI)d$=HEz+X@ZzoT(XP7wF_$Cw9c}LPfiR8N}_qp<piGbQ1LD
zIf%W9)}S=&%{hSUUD7W1_5_l@_b<uAR(6Dng?LT{;D#`1imN}T@3949^Pj5u5O48f
zsF%bC#Sh4U9hTo>7Ujj;x!XO3^%s^^s)>~2)pX2+JXtaS_P`5p81SmyrXTL$ZYO$m
zrSqHRIA$z#>8_=nrwS6IBA86?5Z9sr6RveK_ihlc+_HXtzqk^1#q^u6Q2tFK=syhr
z|NfuwV=%fvw&jDrGc>@zM4ZfBnT(mpD$!TjY6qt%0U##=m!dR^`t4%b?O>-_u}>&*
z-QAS1<_Yb&wb})){j$yWhcaGF^@A-Q6p3r`B6`f*jwLkZ_fE<tME*oUx#fuD3^M-i
zwj3ES>&9T=J1{xv;vd`zu!U)`$!rCHJI`#0Va549zy7tNuT6i_r*4+^l>7Y5&-CZG
z$n%uagvf$~*$Mz9E{ao_R~kS6wZf<0;{634R!{IW#ZBV25wkm!_jZ#v#4+mQ0I;+2
zedCR|o#33vHR#SIN?hXJ(d@+gJ~&T=f=_>L!ZwukjgI2jR%3vqyGX@a(v<<_t}V?Y
zO8+P{#f_^`)+}eH=;>332Yg>}>%d$>eb-}eb@B8=a)3F~F8s2y1=hG-3Bwf@+@23K
z?l>@3@TjTRd^HX{@AK1qJnpg~B~2?)9Lass0oxM%NKwdIZv)e!!+Roeg@t>N@fNGE
z6MtZLwtXbIj;Bt^Y9(>%(mO=tL}~T@=sX!_qtrZnpqG|*k-K;%i?3m}iXZV5ar4Sk
zmrtAMMjVOrte2iWRhtl58zQ6@d!~y`$7SCEz^EXqbB)A_Er*25KTzs9m&Cv~^*G?B
z!y=Rf4ytNyAvl!E))p&69PPTkeO?mF)WBUXPEhdpwc5GNJUAY#;f#1LS}rQ>2Y@+i
zP(v$AyOct;8nG(4{2~5`s`>8g_b>q`<t*-;{GSF9AO1W1D3&yXM7^Y|P#jeRa5HVO
zG#?~`0{D?yls5B-GB^;QfI@ps+H0{}{GY&^uDAM_{Zz;7SE7qCpcmJo!oKUV2)ir3
z0unWLVEJN<3V5q(P%~n4qK7E}f~~0A(4}1rik?2D$2vLan!KcRACS^j&0IWOR4<;z
zHe^qDJ9_~fwwT9GyWe@Xla@@e*jgS32bflpqAQ&<r=ZXt{GVc9Z#y9BoA^+osn$H$
zJjBedLLS;vR9s@}b5^W@Lrr=!R{7+Cvvc~8A#vDnnGtC#S9K1h_3sVHq;-i5Z!rhX
zqeQzJ1|uC+nwz6nLreeshlpyCnwz)X@KN*ej1}83=$yyjI{6<J6uX`Ojtc%CtXQm*
zT}q=`6o2TD%IM1}9vA{n3n&-+`<BFG6Io65VD7C|eW*g#ls|eEV?<HGMXFOE2@7(l
zd6A%^hK>MXWfIqPnsUl`hU_!Dfd@;eAYF0s?H|N0<A<4vti*aC&0d{bKeXhWF$I((
zrsWc+a-rsb2*h6I+N;2OK%kjR;*)Q#7DAVB_qmCJa!=L^egA*n1;9z@VTTbr*!wuC
z{1}GQaveB89`#)8Op8UpWxop2YkG%Zd3|LEfzwRz?J+BKOl5BiOTbtfMY!5AiOrn)
zxN=FH|2#MdczBeJlAs5SeR;qAnLCihw}G*iTg)ohsJP1eYFeb{u1V|jHg-d@s6??H
zmHZrH262(BQ>S$6&vDM=2Ep81^`6Qm_}aVMwMN+EQu4AD_iR{H2HYy=O-rn5F9PL{
zhGA!vJF$7gyWyN_XsaY-s^3(@48Y=-i!6rVrmLl~vXGfqj}N6^8)%z(bWr`n_I4z0
z{71@hbR`hgT=&aAyrb<uuJf`cw)Hs7@nv@gM1}G@ltERQhbtpj7$|m@0e3v)M?cx8
z=NxLLfIG0JxP*kuZ-BWiR+*YZg<SJs1i1uysGeHtpCl=(eLK%@GH`1;WtKNjw7@Yf
zR^x$%%y3fOcXD<jam={{&KGc@|Ja)|`xU|`u8nD{8}UbbPv9C0Z<|s(-$M^&{%I&!
z2ea7;oJD9hbHflV;0({Mc4}DQuol6NIVI$mQ;EQRS*87Qfi0rpNrufnxKeZ_PzE}&
zUokRphzK{@2#qz(w=hzo7;!1Q9<a(%Rj=WwTfBjCe@#%)`kaL_(h8U;ZE8w-en7Tg
z_$>h87tkM0J-ttF*oaeXT&V1<bni?SW%q}H36{WQfR1M5+Kgk+`{U5n3UK^l0;d)i
zNm@ilU@(SKj)8CA(SHsq_eoeVG)D6-Kn)pzA*oRtn0x;5e#IIs4hD_m<$nZUN07lc
z1|4TOS}Bl2Mz?VUB1sPhr)y;Q%NWTmZ}#FGv6HcoC7Z1)!yZyf^&VHU6_s@tK0nt`
zcu{(MCSm)5sDWY)b4ntVHF$5IlOg|%<~4yG{F_$VGP-Z(kbV$IxI&R;hw8t)ey;p6
zvtpnyfK>>s@u$`JrAW^W%(^enrU6q1Ugxd%fM@^lp=yY?E(DL(Am)e6H2Vv&xQhpJ
za}<@4El;GJb$*?Rp?^g4I#h{WNib*KofEOlSB8QFFvOqUfS8O~p9{IT$)7)*FwUJd
z5^n8D*9_IiW$OPBZ%FrlToZPxw|V$Zj>q+rfZxrz9eh;<9S>$YnAqJ=-uhWZFbX~l
zH?hmLO__q-+dYU#wFnM1bC0F@0o9_~(RaV2=N@597ZdX6t?wEz$#375OF|FjTyaqT
zgin0w|5z^le(i-?_wUx{rn~RukS<a*qCY@X(Ge(|qGw<Z0|G@o{iqg-*(aQ6yfCf#
zLG5IXg<|rQ$E07!wSUkGxu*5+d`@Jh-0zIKTs2sTO`F1<TBU2d-w&bDQ@>m2FO;Gs
zPHjvEbX;?MIn{q^wY1t0{Ty5?hYeBwTqwOgxoW>K&~hX@4fqzR#cEbbr2Ugvs5v2#
zGj4A$4o_Ds8Vj~r^+!?#{y6<u+ctSzWYxX4ny$77O5%`n{C3}Y>2~l|2Tmxs<o@%c
zfIP>tFzXJb?_}?t=+iw<xeLus&2Vnx(4eIAq#1D~?GC3rvHrshEQt29a`%s-SwP2X
zEO5i%(e%FEjWk@-1@~ZaDJTkD@Zdp5TOty{&YAj<cw8nR>mr;j301#sC%>}*E)3oA
z_sPo_Pw>Cik1G<PW~(t^K+%x6d0b}llr_|!UKufe7N|^wnXXQOu^ChAVA|Q*$FLE@
z0#i#gxu=0ct#<84SNCAFQl?sfgkmb`3@y+cM@aBB5B9)uRdfyA^`EYwOvg08Y$P2W
z(^pj<^<0RbgTzgicZWiQ@1EdxK9=#jiyl(aRh}Lfl!5_y;HJjGiqO?WFzOOjC%O6p
z<>i^#1?){-7(5wB987VMx|B|w+=Xj)aU4qeMz86?OexS%)c%6Z@mc;jBXc!cbCEM-
zJ#%`0B2Zg?adhncLvK8L*shk;pnbc6I7A2T4PHYYtnEGn$L&MT9B}VZ(M9~W(ent(
zmFBzgVkdQct7@kUXa+#=Ii2A6;w?Y?22Se!<(#0CbT8?h&Fu)B1TS&gHYZa%()pHX
z?cdxqw=+KMw`5W<a-1Q%f>)ypKER4jwIn@$`WJ#3#?`K_Ir2){?mwEf`u@57(xvPr
zZGS=@O<|%LeJjc%5xtGOZr^b)cTf0if@9i!vVyzrkV>IsPKtPY%~hMmi*wMWwBX-A
zHY6UdH@yM59DHlOw6SXv2cS|wUN5E&LH&o$gee6K-A*as?dY(EV4e<^=;|d5;%dh<
zws+x;Fd3?isBu-FUTwRfT(9%IcKU;%yN$#j+>?Kvt12rtbi>{z2gyD4dvk%Zb%wTa
z<4lT5FOdJsfX8vc^}?OGrAd0ixY6_8>9sTHUp>&5DDw%IFH!vNF+!v^XzI{I7OUxM
zi~vRU-DEd(@Yphvg52dI8SdVovaET}@Uq(M@uWzp{3hw!4$TQ;$!rhzzbOUJ1C$yk
zpb@&0OR&a5+3+-rG|#dW?<*_*ZVyZyw5R~jMlW;(ja)zYbERfNN$<j*aBkP<iQDAK
zKsQ{D)vBTYLTRqLDe>bMM4Vz<iQ>FjdUCHRa6i$fC0Z>zgUBRe=5gCiIPP#^2?Of?
z{FNPFi^^321T=;*+n_ot_YoBwizhn_xAuG=fTsX_=t_2tZ>^~}ZlEEa_6R+cT2K!f
zXhCm}Y*~~{39ByDJm)#3Es+|jXFJoWZp~f;tD?Q0ZPVJlFFiE8K{a4U&Ha004SgU1
z4;Fs1v<a}JUDekbg|Ay*udv~FhMk>jmh~~wFQpn93p`eI9CM~Dv)18xCAW=C%gXY?
z4!y*ZaHOJ{n)A*y)j1KgQB#=rd4HbY11z#9Jk9zBtY3KX+Kz@ze|&ajM8?>Ov0}>3
zYvRQ}s>k4=rFp&HCC3-v*zo_s$#_4xYyw?MT%By6m-X+|aZH+`Wv%<+#_KH@lF*&H
zV4>-x_xII}H*gLQ`<XX`yU%uJymv#Fp7dbqYFv2&(x_rRyTyBRYE|e<34t|y-q2zB
zc{@BPROUY?b^J8sjYS432|k_53HhbtLsKVU_0sh`5;*>*-NOCS)MS8>Z<x2@TD?Lu
zzyXVS7B_?49{WibwyTWxL35I)Dxe!s?g&GR(tPj4lLoh0pfVdgw}<xO%TVEM#nnu(
zkiG@fq_XcAk5+}25S3b&^k?@*Npp*1wAl<tC1E6vUQi?wC(?{YEG8Mv0p4iCr;@mF
zaS2oHgX`3r4gfG-P7_rZ&ZlduAa9MyE-RQMpxbs*<#PcoFIT73-m97Q>%45J8nUde
zb4lrd&KKJzJxZ>O_i2HFE~Tc&uO1!d%|af|u69GG-yWFF{|mVbck*rLf?get<o#^h
zR3(7C^*xm~So6``Y(om2bho5>=VHoK-a`!obOa7QbZ5yQYM44Lp<h)XiS{_R7_Tie
z95j;Wsk~L4cywAw_*8TI-4;|Kaf;2G($#eTi$ONeGl}tb!o_CM?y+wN`*!@8M!4|2
zoo8QxL(evW&bMM-ENLKWWmk2n)Eb!HJ6Ac5d9XvwAHHP3<nsVSq7f;iu}&R6HAB@M
z`@`cK;fC6PcaTfEPfo0#oYBJ`zAe2A5tQGx1#TZ6pYa;FpHpGv(OT60>5cvm)BRIh
z;KN^DdJbJ*HZ-Ip{{!-Rrx_aRRgkv6GPuqRpxwjN*~Z%G4;6M_LW_N$$5>du!SBqV
zD~!D<u<Ve|Gx#tZ?Z*d07&DFlI$TPufhVA=Q-U}Ih;@hHT1Vt##7H7=gjK20;|tHy
zibWTAmoCQFNCP|p5)U{Oa-hFcZErX{b*aV|y1D@77s`2toXK5ROr2W4MGDB@KGOOy
z-Lzg#c*rg?rbh)i_ibk;AQ~C7fmtQ7Zp=Njn7ASN5<7Ppt=b$DB4*B>?y>)(9{0k?
z>87iYq>D!BJo1AjAgJWWxk}{tU5Z6}6j#478vEtDcGqJHDU}95Flx3S*?qIDkhm1;
zYZ^Rnh#Xeg3RV*S?iL`AsCQ_{?Vqg*_s;&=gJYX>{ck4_bJoR1P=`~PX<aBYU4k2#
zaI~w>y|GLXn84k?uVTQ5@*VeWzU~pk-(R`ai>NnzeuFK4H)Lxd?{5W39SqX(LKSv#
zG7}f;%ih-9?npR02UDqkWx<e#W?R<_@j;iKRp^|i%&T%0ji%Oswc!VCs@R!QudYU=
z*l}8KMWo&}tS!#NCaw|~ZwCKOIlF?fqc5i1&K!IURywlw7g)dDiWz@)&dyn>=^XHX
zuq?!TLFOg{aZ5=Tm2Tp;9XdW#JJ-UCFS8$Y2(j3Ev89y0q;**I2duLa+NI-5#Mmd`
zJgfQX2cyn*UWvmZDa1MI+g;8c)M3>*mBTNEe<rQB7nCpxYMz98SCYRFVtxT!pE{J3
zI(0XT&xWp|q}fv4t*Uc`c3X>qv3}2?j-6BwGr6Z`b~*RmavX?FetZSntY6%fjD}JJ
zstks>H#I!Z$<J36#EC4Se4lUEXWiwcK^1lbcow$G2<TvCP1U3hzY(Of_z7hWa6hs#
z-&=#Q2y0Z@^2m>=_1snsW2e7Yz0tdx2pSmiOtv@WyV+|6$(fHCSB7KelE$+&S8Rwq
zw0=MS`R4)h>F;T@ny3x?jiHBJS|@MH;b1%O%|8RnUp@l{NURD({(bpG@7XPN3d>@B
zvMB5xp#0jhA_7Vr;8~JDaG5SCfG?&^Ep)6gaVyxq@fVdH>sPbLT?-mNY5D>Be{Lz>
zYv8XSoka|8G@Kl1)j+Gz63l*bPMJEGv<+84%@=i|t8_qIAA?ohp$x5aU-7^*bb_x1
z7rfIA4uf(#ht63t?%)-F%>G!|bZj82c7d&8%dYEijC(ce`vA|5&s}m}r;dKS4|nRh
z#iwHIF59nHs}?n~egg;G3cih#xTo&sxVc)TK8--##|bH)hi85#l+;S5f6?5yp+AV0
z>-i&O0Bsg+ml<e(PF@~shAUJaRiRG?4TH(qQ*YD^PbglRYpeX=me8c^P8t+g&cr*9
z0Ct-)D)h#Mxvv06LCJ@=0qP-tQ~%;v<>oa8dt+r?$XP}vHL){YnkRn>QSa3F>+U%>
z{>6AE_F3pfd4P=wz=!mZlzHBC0jt{ha_z8Ryn6@AJARSbHz`~@qk4yUJYnfyR05W&
zOsSCG8G+XcOi!Q7XX#1{<Ra`MH15p-aLr5Dl&GW8BJ9mP-PK@`uT~j685J2|v4ucl
z{tyAFyC*)|*43{U8vyH076Ib(GviQ$HV8jISK#17UQ8R-`kC9Id3L9hsUBw8Ogw;N
zwaX@7%tT&LN)4HQvBi9`Dj_*g3{(6380w#MvAg@c-29~0qDWw`TJgV@>{U@2)u&kE
z<Z`BdJ(J>{nKq?)Mm02h824`h{9A#01=f6(dFHf>!iy>YGw@LE?fUOmy1-2HRU(v>
zevv(HuPFj3E$f^2I;_qB>35i=dNaxR7U;`6FmV1km#FwiJ)kI7Z6h08nAb(*w><3q
z6O|v+bs0k8CPZqx3!TSqs(NXPzkT|@R{rw;_HJB)wN*xwr`Dy333F9v@)dneSAUo3
zTpT8+7ag-j4Y71x)hR;g=mrczOH6wchATZoWD~W=Pej=`3_p|rr6S>`5K#3wibg_-
z;-{?}8pxd*u*y1xToFPm$F-H+Ifl4sTg?`9{Kk^I0Y7QwaSYLu&mY5-wnYs8(Tux%
zhQd_Y@)xC2&|qhrg%Z*Phw^+AqLeV)HtCY@=S*OSkQ1hU&02TJ@V)tXC_gi|MhOX>
z79yJ3f%`16XVCL`&n$owl|j98lx-YMa6NqIMhbH0G=GXYL<yO>CDVA-Y>?tYC53J7
zVf}B_o&7)4`~Sx&(fLSM=W{59`sAAED7l!>QP|Mhh(yMbbY(J^!%$B7oTI31NJ8f@
zb4}!8Gh5L)+GIqCu_>E1SIcH*8}@zcd~e_H51;Qp@O}Td_iI1ApRd>J`F=hh&-?TB
zX8BbKhivm%4e7S9Nci0|nvxR#@Xlr=%`*MmTzrQU-JoJVvI2S_H#4sleU#c?2Svp&
z5@@ZTT2Ba&f|Wv0zy@M8WuBUc(tq(A3Q)3Xk5mVKanZHm=!5l-Gw-W-zb(TCW8X8c
zD+munm`@iksV$4&8fqjArgN^i>9*cxl26ie|2n^6jRS(J^~618Di`;dKvj$d;l;FE
zuO`KAS#CqQi{ll&BDlM$p2JTa{x!ck27;CaD=9xS4$_Csbl62)s@drYEwj>IyM#r~
z5xNqx|J3%O(7NL9M~u)ZChO7QwD+MwPfrwZcR32AhGPyD$?T7^lxx`V9zQ^JX#B^p
z*Xkky>=O2Ge#sbJQHY1py1n14XkLx@?f&(e<Jb8Ffe$HO8`^O@nV;Sb$SzNIBvP-4
z#*+@de9`BV<VtQB!ssHsaLA&?x!WJGJ+o=Kr-;75u|%8der2FU^VLyYs>9?V50|V9
zCDNk(&aXh%2tpr$)jvePGL*tXZZ!5;QPaow4q$dZH)rcO>8T^2K<JriT10_GnTFP0
zO?;b(33Ga>iR>JZpa(zV8ek``yRwi$Rf=s}+YHfhM#@g&tsr;XFTIhInBM~$<83h(
z0uC*|Cf3TxbhX})pID-tGz5?prTH8M%~!IT?XQvI4!?;4J5Q9&f0K{fibZzBceV-=
z-kHqVy)f4zOglwK5Z3Hp62z;0xV2Kq1}4kY1-!G$De|Mm_Iz<m9D>-4n<xL)lz*H#
z8ry<NeC-S_$>Sa|>rss01?GUyY7@ZrBTtjou};<zhsj=!QH~%&gF*4@0F#lHVvAEd
z-GMHk1GtIK=5+&zs2hK;;Uw`{G$*fV-^GT}(3YOX=TcJj@CrRf+7p)QI5|q>bfJbs
zCGB2Vz~9LL#eihPvq!s=`OmTf#*>wYdoQofx11vE@*mcl!ki{h+-{lz^}<Tn<^*8Z
z5_oAe*sX>|?$}ci;pdMk!squw^VQ#s7|D7pH@Z5OSDL6n_Q}NnX+(iyikeq7=VCQp
z3g0+KbzC;$9E&w@X~oh4GTN%5_74MKhNGg(UhZ!*{;!({e5q5?8gW%krFdp5qn_<d
z^(M7>iX?|i6g_6A{|L#S%PO6RjVuPHvSr<eTV2dl3-0kJ65sMI<5#h*2VZodlJ}3!
z1qN^?ABnoVj;-_l+{!>pc1NUI&{e<x$jsB%C|hAwL#1!qmJ{3|uNv!5TJKAE+~O$b
zw#%m*s~d(D8eE{Y^9`s%Z6GCYsTZFiIAX3$d9|BoJPB(txH$8Iyp=NCZ;=jn1Mo%H
zhxzJBb_CGfFT7JF&CU^Oj8sNt#T6%2HqO`GTuXdU`n&Cjtm^QrB7#v_MBF(>MJ&Li
z_FE}9c0TOk-l@7W>j!1gM%@}ov}dnhPu^o4_rJ)$arcaZ_`v+YicGjTL?y7+NzT0a
z$9v<(CP?WpxdsS_+DWd*DMhuZz*$^Y*CUJnk|d7|C)!1{yK=hf0RG60;mHZ>B{}kL
zJdQy|>Z!8B<Wa+os%#lP?L~l3RLC*!jJA4bhx%ASV@?%b_E8mGlm?|lAsx+ANUV4>
z@r2ccf$^&pS0klcKAN(qA|%Ht#&-QZ{qF}=qT$+Bfvec&;3;le9^W$f5BnSyVb=oI
zu!j)r=uoite7mo<h6%HV#1vzlOzFsC$3!0yNT8lKGqeuxI6~L-y{kP3zYEQ>zK&>^
zdjEe}LkAfI)NbMY3jEoQjTA67?TDU+L=c~cx?gA=W0l>8PQmiay$jA`F6XPiNbB%G
z_eM#raZct&jV-|{QrkRAqQL;b?V*)PUuPuCnGlD}EoaM~yqP17Qx!}j-g+#y!-y0}
zq{J6D2_K8XIYOx^zrj2rxX@;}`%dx7yLd(i6yj2=K5qP?xJ+NeLeQqUagttIK?zZm
zKNvwI=}FIt8Vy~l@CxSBaZ2cb!|%+$?OA<ifVJx_i<|N}n0)gG%Vol}uX}nw!JBov
z!P5DpHnLkSsYdn7WIj6epm-u6y*${_2SA_(p7XX)66@BYNrygn>6D6x*1JFe#YPgW
z8~q&4FkjI`@2an29`~gt9p&F433OhB)Z_ypIAUJ`D<?)H$%J&YOxN~R$2j#^4mIzA
z_SEDcu~uTHscpr@jQ(TJ+Z|C^B`@n+S>CDs&PX-~VP`k5<+^&cDLzlcz4;8!@)Oab
zUD>m58DTSxm(STgI$4^`|4vW3X|0qjBc7h!wajGum+-%!O>1ie&5?*0CAHTEJ<Ddo
zfcMxk3w8@qC~ifZM-sAYwH!@8jG6SrTj`A?TJW@<9`B$_--MgzBJ%gHBA9YR#6`Fe
z*zdj|v<qi?DF(2H@AMA&VW6|%$)*i}U>DrauMo2qLg>l~hO*~}DZS-wpWi^(;Ww(q
z^_bZruf*ivWQGj}15~>UA~w3Pr$=uJ$X6cR_@E-Z@wXSblpzh=Iy=#ZO-xC)*7r-y
zkap&+^&30__Qkc%G}T807G{2TlqXp=J46*%t`?^wT2nmYSw%J&MNOpq5OLIYant{{
zInJ)sZDq_79cPnC84K`XF9xFR-E@33AE4&CS6Hxvm(7%S0MP?LEQ>LyVE$m3AELC+
zjT<dGwUn9HW8nO}HpuEa|GA1#KabK`@4U|=qfNe_`zru0HX7H)Isd3~@u3WFZ3Py+
z#Cri9yB^7yTkjUyjWYw(lnF+Y(Xe*d?Aqzl9zHI$43$p0=Tl9+0G4)e(+*yZ3YwkQ
z^jWSee~>2R7YOQ?sm>AQJVQTP<*r!`fPDQOr98b=B=i>L9cC>(g~)%=N0<14X;mI2
zVU}7Y(Lm|L>!DauTPE};1|^9zn&g42kA=T2yNp`48%8j>S7cLHFZlL+xeJpom@@0j
z=MLIBzipRu%cZ`OtkTk))d?`o#JOIa7>TvsX*$=mTtdF$K!bsmJ=^<(>JWZ|Sw4*+
z86)3MZF_EJa$#`TVKwBvECt0VkjKaq7&`T7^)=<uBgX?e<Nezdf2g7x>dQ4QLoT(o
zv>q*6zGo~S=`X;K_43UHZZ|6vA59KUmg-cfomQ9KFv7H{qWis3(~qKLDC`_a5MU)<
z4JK#1gyh-mnt?<iQ0YVFjB4G#mu_<$5#H`()cA65N4e#A9v(Ja1Zq24%o<@t1@T&M
z6W%`mQ@6<8y~Z8b-81mkIUbmb=iZ%&Q&?AV4Nj!ry8PFeiAiT^wJIC2{H}!prkb#w
zCSw_GHo*uvz%6TATE3BW;tkYI2;@GE|9#>DW7#E>b)e?!Hq_}CYg-`MdGkr=$LH2J
zrz>M4jXF<wzVw@1IPm8sRz7Te^bE%_<#xUyz295_PQAk}!|EqQEPGi9P9G6j0ctWZ
zmjoQu7nvNmbjnxzD}=!t0yU#Xtw=Ow6Up7~zZWWWQF`CBrhpJTw3v@P6f=sS8tIA(
z=e35Of8OwG_{$skv?4qy0t!X@AWFH1&BPGv$qfnMx$QKB_79q&=aOA6c(6IgKF6BK
zO4?J5FwET&<Lv(R^?58e5hMu7mOS*5*j6b#e#j^^ex>P()3!=?Ha8krPAOK{U3Ds`
z@3K5_a$lg9?mNjlTm9*4(>Z%sUrQizl9zrB)3-A&?JI1-8|4oK3?zpD-=1SnC-@e_
z`3dzOOxF|o4LSWu^7E79Y?B(*zrYBv4YGT&sLWgdb6+3%T{o0t^NFl_$tOc6!x&>W
zX??KYOGGSQRu(1mYs&Y{U}&SW9B&#(t5A3{Z@IGIP{WycKh_>MXQJbH{D;RmnZZvM
zd7rF3r8fLYoKp*K<0pUT7S~}D3&Hm{O|1*5qp?-9JXvN%<`*KlSXsDN?I6#86u)n1
z$_Tt7DDQ`gp5UjGr1(7@bAywM>$=xCFQs&tpN>DMF|vN<0zw?7W8cv?WeFyWA1NuZ
zMdh<^*RxH6?ObaBtZ$&aPLNZPa+X}MLaiyBc~?G5NmT%f^uP_CcLVFn(%R$BgF)b2
z^1laA>X?#=XN$W|W?fn0O>|Dsu+HH|(Mu2)6_xG9o8Jg{s5{kCOe=z0#Y3?k{`%?R
zJ`z72ShDAA;0L5GqQCm6KpidZXKc+W8Y-Uo{Kc{)Ell^JIAyr&k9a#nk{33YsCL$l
zxaN6DPpboZKOmrp*a^+~EQiQjAGZA5I5&hzrzIlEmD8v+U@g`{Ma$>pdS!MuhpSIZ
z#JZIR&szZO_}ciO^=_T3OA&pw%)GqiObzbj6Yf~}EzN0Z$5wp~C}J4_-{QuvZ!Edt
zdi@D{Z%wwjbDAq#B4G9w8xnVnRluHM7d<=g-P2Q2#L}mR#1X%K2QU>zQvUkkcvIYX
zNI#)^D0Gc(&OjshfE1M*bk<?oW;UjA@7$2yLh=puezCk<H8;1WZ-{M@)pC52R92JS
z<5MKVyQaf)ay7Kx(xUHce$_8rJgJ;xJZ&`}wt(F)4$#lo4on5*cvI4gJUhbJpRHH>
zX5s=CsEFi-YUhHc)ej}7^oe@xLT-kBZk?Bi9p|FN9O|y4uzT+n(-Ij|{rKSw4$IeF
zCK2hFX+n(XJTNmDHYaD5aQljv*WokDkoI@7hx;)hoRFDj`;YNg7@x7-R!F-7uCqX$
zr{m3<Bl$_p9~49`RW8BSE*q_H?6A{VkmE<!5-e(C{mKq%SiCqsxsl{2&%HwRz>e;K
z&Df7SEnrapL{yeX4_~xUuc6Kep~A;Qn*5D0r`Ao|xm*hC@Sjf0TZW`(s9nT;o1IjM
z>y5CDSG2j(;yr!Dch@OXb71`^$VZ{!kO4t6ION1w#gFQCP!Y~B7m`T6FEJDUoCcgd
zzfIY1J}19KSab1IzRw_5fUxnSc<V(d#O}}wE2BfwPjMa}jOoX1*1BBFs?|L<s<3H@
z+4vA_r2itvf_`>0#VRp#skXGVu^lC)pTY8p^Sw$4>Lb>MxFo4{G@-lrEv6r)cld7k
z4d}n&!`(ggA9HhYPEmy@rjLlW$(6Wlr`Cy|&8B{`^ZIUpb}S-9fU_YvBzZXO^#9qJ
z9_c7J1#tT|ZA)DasTgdK2|6At+!6RcMyf3rjsZqeK(GdhgBtOJyL=MW7VqQDPMrgz
zx_0yW2%vz~6dRcVi;rEqYJx$k=lTOls_~bXc<b-PU?h-bZ&bpWKsL`Bp%2|WGf)9>
zDAoUi4Z0w5iTo)(trD9)pd$n#q!scSsuXfSF=+)&RFkAKC}~5$+p2P<lc)WARmZm|
zeq9mJ!fY^<q11(Z8UC!6V*dvsz)qiHut!LkB=ANi-2I-`5LISq;BEJHEV?5LU6%rs
z-W{PKX9F{xevB}jX=EWfJCh1UPg7522|9|fsj+#iC-_6d^dtD@+d;_puVZfUO?zHL
z6bqBdA6`r>`~XB>H?E2AhB3d3m(XL1y|P+T2o$N-Th?;QXFZz<bc7d{Ry{#e+C)s&
zi&jxWrPl>ccw#v#U41fSvW(Jg&RZYbE!lcLOwC&59n}K2=1$I@vgEJft?8T+&+L6!
zH+}D_C>;)QVsUF2EeYmi#F<t20Z<zudn5SS-fPN{-4V1C5#ztehELqy-f$VEl!VvL
zxtXap_U~X^jPYR{Z0)@~cI;t8<Zvs#w~o`qK(!LRm%euGup1Odnz?K_H!Bit29baa
z-+cdVV(NWRYtQh^bs?^sY{j#MFig1;t=5P~v2bmV&T44MP2UQ;szve9UM>iTK0L6(
zoR2y2f|b(KZ6OVOpcf}M=c3E2rzXI03pcyd3EuaX2JzM$5d5x3si$m9N)lsx$aqu`
zHXKehRr)e`vmhXmNp)jT3X}uWq_XisuBzE-LT<&H=P^^2L@>kY4=K3NdUgJsqTXje
zK}H1je<%9iO|$2<?jwr0HR1KbLHv81f>7(HT*U8rJW8bO)G?N&G7b`?b6iD{q201+
z^rl}!dW*1z8WrBE;xWAI2PWR2gqqK__LaZqte8bcGAQ*a1VCVXZK%XG)fM?}35W)x
zIEHOLqAG8z+wIutP$PDcO~b;Rul!wC+Qv_eT$MI&QS^RfN6*+dOI><Wmg38JX+AWs
zFpJ&hVnR<Zr|i0Q&Y|Ghlf`ANEdP?&>&P3Q7&+-+Sy;qi$bd}IiLZ*<RQc4&ZrX_P
zosaN$&g&4L9dI7L9W)Csp1sm$l&g0hJ%9LnWB^d%ge$ubRBoPobFC_|;((uh`=?fw
zA>NOI5`&%B+K<-6hmu)M6HW}Mk8nz8NTK;kx5ecB2n;_~9z;AaU|+X6JQ71LOF|6Y
z4)PBVXDlDr<ag*;;`kq!;iaXa9oqB7NLEht^EBX3&m(5wcRM&>yUN?%IIS%eBi+8t
zJuK`5<x{IA|0>uSJIKt0&+ItIKqDLQ4zzx#G`Q_(--Ce#ex6wr2;?r@gj6t2{{rM8
zNkRhTm|AER34eC2BL1JkzNR&F-RMI5)u&@aY_sgIeI}&H?x;<ou3`eE%3c5?IakV5
z{KEh(W9CG2k}hz=H3|s+dT|txw*S^~;VYoOPISl6#q+zFMbE&-c{i|r>E3VO{Q-vl
x=e0^(czyUAu=iZqa5?N7m;9fj{vZF60VUg|7A|fJ?b>_@@Y!=`>VFEo`(I?lxk&&3

diff --git a/reference/plot-2.png b/reference/plot-2.png
index b63d05382cbd8f94be412726ad33ea7f17ee8a29..b3c6184f0cdce0b75d4ab40169e1dfec23121bc6 100644
GIT binary patch
literal 26511
zcmeFZX;f2Lw=RsmmW5PlDFPy8fuN;;h!A=#Q7|H)^o<Y{X#+&T5D2XultrgO=>kMW
z1(HDM0zycFQi7pXAoK|+O*AxtKnNs+d^_Pi=hV1&oIA$%<NUaHyn74@?!ES0bIs<N
z&068n6<aIW9~6I(k&%%FUp#LwBeN}1MrO;6o!fys!<jGUfsgGstgX%ipTM<hL5c@H
zcHO$@7A_;BoFw_TDSdLmS4QSn8Swc(93%5)7*TmQ5uO}z|7CTxBPVwK^c#8xy|8(6
z;_k|wf1P~!>tB%{cKlF$EIHw2asLVVZRdYVc`3i}^7HPU*M9k_4FA`!*605iwD{@5
zS^c}^N3Wx3YwHGj)L$%I;QaQIva;{2#f4(4`02bwQGp#ClY56LD&-uPvi9#E|1%Ou
zu;5SAnF{GqUOI(cIC<yqLG-GgmGvz$!$SqW^1z(C!yMsDN0x?l3rAn1=q1iNciD~$
z<z#}Pq%6-3mXa(RcT0XNf4Q|mdgsKY|F|)7Q&vWX(udF_0S^X_ZPJ!0S5|gnys3x6
zo#9RF6xy=3GX`tsnD0U^LW(C=<v~#eF#MdJVSfk~>PS)_r;-Ip>}MGZe3j;D!+|pP
z9=e?)q9l#5UWbf>+wvwAV&_~<tLwwzuh|f6zl)fJ?7!X{&SMwQYi$qr2d#LCt#}AJ
z8k^;eF-{3j@pXZd*qi7KrLtr@M*?oW80j&-j@O6c$~+UHUwRWc3#m9*ZVcHHPGmo2
zcPCCSo62&Y^gF^zwXU5bdjvk=1oj&MOF7jqQaYC;N}7M$v%Tv!ntdOAknbRS{j24g
z4H1#rg3}PDV-D#~Uz2wljrf%9Qo^jTP1P<-8}v@yk>^GZ&%a%yqK&m>P8c@dAtp8k
zc%{N-xQdw5thZ5KpVu&7PA1n!K=cZ`AYI?XuQjP0>q9C><21?^-S>P@2=7GnZEsn5
zs2~zo9XXq~?4vxyN5(fzn}^=l3t1LYq0P_%4-wmlh5V8d2V;7dCdb*qK2W;=t{Z<4
zzTRV6K6o*qya+jWJw?p!lY6)xYB@?ROAE;^Aw3CaAWt)$uwAh7E~ViC(*qGM)Yv~q
z?-S0nKW7Aia`U29_2R0JR2%gs@ULv9U+^NKOIdHHl48;^;bl#{DFv2^|CU&U-qt!O
zPt1WHiZ|HAS!esmatORbml}<y^QN~=Yv+9CjKBpUAEJ?;#b#Rou1?G~D|<zjdnJ^U
zuKP`WDHvC#@1M%^cWxABCQcsKM;3^KS5{V&KyIV_&XUr^`R@-^V^k>c{Kb^-uh_fM
zc#fy6wSN1Md6(Z7@&yP9T>`MwwY>hlj<7b*@M(_X>#g1ODS#DxM#MLvw(Kw-NkGK&
z?)HfbKSsz!)_yf5e}f*9G5Ap_=gTIU^8JVPe1zfH=`#<oBqhHu1<s<Z#Bz4N(joB?
zS*ZQtGLJg}Dllq@#R~CiksjV7D&MAnRog!(ZlcSz5AYM&e)P|>DoND1Cii@3lnwlY
zO<zQD0rMwrXmbwzezUf(O)@0{#2!e*^lSRfh@Y_CR56R*1gNY1m^TRrgA{SnI|t%I
zc?*W3^{VR;-$Ssth*iF@IB|MvPsg5%u-@{5Md!iV1RV+Ao@KWI@p&r=T_NV<)8>kP
zMWw71HcRnbFY#K*5!W2Os+rexp5o@m4B4t}7+uzihz|G9gZBN%+>%a3=RpxoxpnF8
zz-?L3Ujim=fu!_4BTCoZ4s&%FoKexoUTp1K9~T$+b?uC8P64FN*6oZPTR<hECzW?D
zg%135x{Pm{?_Z^>FCR4<T3z6y6#ApVG>;j*g_trKs2h}Bo48QG#_0+eP)kg-)97Gx
z*3qchl!Y!}mD#$H@xJ-tArad-&g3Hb*i@+@ggXDqz5AqDT%s_}Ar$n_JpKxrT8bV@
zF<acsTvYPwR-Pe;3uXv&Z!IyxF2nUbx<SGP!`P|P3&?4OSbc7Vu!;9gfyEr1uUI0+
zMUXtqC-VJu?=oK!7^%JCmlvBDJipGgSwVPE4%~tOL*HIwPH8`?Q~>2W^yAI{>V3P3
zqh0DS?ze?m8VR_J-X1`@hc@|jFr&}I-(OD?!E~FMqvf5mCtLKlUWW37LC~%=wER3X
zwmE8w@#BoLuHagTEoMjOw?%E;w0L^TxSRp|C$An?vs0{*#dCE^?cYIujULJ5h<+R^
zJ8>T7>{|N_dekmjoRS+C*}Tw&xxLn7h5w$dz#4!s;%uopTbR7iTeX7;2pqE~nbN!|
zp~+j;OU9cNxtKER?*a+hd3wG2x+M#tA9E*OmD+a5!85v<QtOC8_wc{6Kj<!dzPMgW
z>xdjrnH3uqb#Xcd)&~t^ZQXo^bvnG9zfOiXV~-qL<0}Y5Yi&oHDvGYB_7WRNg5Ep|
z3nY#{^X7slY1*(*Fq}yAm#eA0uE~r7vD{yY4Sj^;eFG8Ks`}rFAmdLR=tsksLn2D2
zE#QNH`h-kIBi*DBS$;0AcvV-+zvHFoK07nKnY^60u2knXWY_*Zep)XLqjw+S^*DxV
z$Xdx%h>hs_Uezc2WGYr=S#RsT#luwsN<`<h(KVO+aAp<gllVippsQ+70S(|{KhD2z
zyiHa&JL~&j9c3K$4rL)jH!WJcy^Bbyk7}|%*@a{F{j?70?e}V`>ccW1qOW-iEqU*R
z;nNM79qnU`R{qjU!flzcQ!BXNWy(Dpig~bzJLM-F<x1BpjszRVrTX}luDUg)-tSv{
zWGI}{<lHKcB7|`AVlg=tu~pQT4x!mhsH;*W(<jqScW28fPT{Bu<E%LKkZvL%u_QL$
zqS!xJ-Z}n^&#2s?rI=Fli@h^$jXP#SSGKhK;}FhWK|6n=62GKxX;~)r&tDC1HVOqi
z!OCN`fEfx%?$iY!cm~U7>BscO^jY2Q4`;D`LuSh6&^oXhmR~3QOJ3}vS&fLUFkIWl
zx$SZ-VpBLC<bXIiJUbM7X|buj^fWY+=R;Z}7T7a<n{R8Qb(iPZuVt+b@I*CQ1d-Y0
z>os5R)Q7Z#)dIMeUFo^rA|vyheJ>HM%&14&HYvVE-_ByU->-?i-MO$M-Z4hgzkLt{
z8+>>_#A(2wO+GVb-C|+VP)NDHMMN-kKB83qCzOAMQ6;F#6qDA?T~r`GLOM>#c8Fi_
znP1ldz^onU<ZO9RS$XIBbjS^SDG-i|q%+Sz1Tr#xTse9=s9lZZZc#ix#?GPd==&Z`
zxL*(-)>(lVI;&ZWsp6<AeWQA|3(ZDqulq4xm`rUOOM-eOtj{Wai*Kp;Veo+tfx&Bl
zg;9tj1f!zK&g>D0X<##DhYe+YCPlQ^=gRang?Fw)iYXP>^=Ia^sLuTM?^RA^XZ%M$
z(``UHeU;1}k0>bwSry~Xj1Xf>m4poespIBG;{&1&aU@?y)>;iuhryuYikLo|K0n6e
zlEhCw&ap*Z-@+dn#`={83SfZC_vH;`&aU}UJ5O|dM=%UUeP|o<AUY_d*$-flU3bHx
zSbrLBRy3K|;F5c_KTFAPp^V7!=^(7;>IzB``>MuSOK3#X2aCGHevH3o2vbX|X@<N~
zcm{E(fb-p=P6`0qffVX5vz{5HQ_7^~ny4yK9JG@H30=0rV(4qc@Y+JR(WIoBRi$5*
zA)=u#&#I1e6;yFR{=uV8qR!1h3QZDLt_|FBs32yZD@I=A4Qpyoh+=qI&|q^4@<WQ5
zU2xpa_@TU5LVgt|B78Y@maJP7?++#1jt;gsNOc=tFg0BUkP&YowbJz9>~}Sv(LZ{|
zH!sVTRm`r2H?MwXZ<DRsEEjWrbty4nK8v*^6v_6!WtdQj7T*gsg!*AVW&0G(Hj7u;
zMa?Hd-pF?j@}INq6#K?a=c`B&O&zs!74xlHwI87fRmzoE>n6n#Xw><p)c#Cg=bz&5
zD-5$l?a=k1b}_tpc^}T)(|<&V?AyG|kUg?=mq$&<hF%ppG!aQ|9=rlC38ykL_=Hgo
z_qAMsCxcw?+=Q>(QYDAbi&^7q<ch9Nkva~Fzk~~dmlskD2|mW!pRY8z=Tr&E)FXcz
zR<u!BR-gx?qx7F1+o(`;(Cx};;Zwaa#pzM{!Y6A$vY}MU8lqnaZx++xUi_Db=s%r<
zO|ZBurGuOw=oAGJU%vs9hCUR18Q#y{H=T!=IjT6<@UEZqxdnezF$lVW>M}A3s*QJL
zzT7&D30O`cGUzxfgO+H;bA@g-(TybBk@HHbcZRSD{HKX-XmrW!me|-xJyAC6$`&R7
zH$b-IM}HmOxwtspuzX?lgQ1>{xnD=4>42`j0dr}*pEaXoJZ6d&q}%lI|MC+n>1mHK
z{`wC9bbYx=#=w3iWM|TH$3VQB#bd#}CW96wr9NX3`+7=6un@-~#32SB2EX4%cat?A
zPhGjwgv3?#y=H{=ks?6jWO{AKp!jLxQKgz8LnVW$Mfxx>>$p;AbIn!l0I2^d4sMS6
zXdL3eC|Yf^Yp?u)^Ib=RyuWVtk{P==-<p_SB%U^E@w69Ru~?~PR`i&8#M;4&*e8;%
zj7C%uj!cl;c>JVKVozC>rUGIj`?rRo`cOF2sD+IC0*{UOvOm?Quz$|4fw&6&3B#DL
zST9{#NUWcV3R9xq{_=sIBO8CmtxFfXqlWk8D_SuW8?j*2Vp>%1-$b=b3Noe^$=?Q?
z-eLJ9P@E(@N&>|^5Hx4B<jCG-5|#SkCX_GZWDKqowsXzPMHIp-u_>6=%%~s?|1`p^
zzwS4ur)V~}R+9L5LPgO`UsTX1b`}4QgfvZ4f|`c1YeU|;_1h>?M&&^dPOAj(OkfVp
zo4Pqi3Kqa22>jtsKiw$!JpY-~@7#r3f0LT@z-O=(iYQ#i9_h`4`&5|YwPxo1s$qQu
zy$7*X!OQ9a@@KB?9<>+Uf@iVc$m-6FLPWkzHY<C!CbwmeaEB71V>_@y{q`HCF9ca^
zUwXI_zu6}lK=>8_Xa5h^Kw5;fFiSfqv^vzrDM@Crw#nSuIzXP;EPc!144^3BO4xsN
zY}@~V&c7f1Qv%P2h%=jAcYz3pU1twp$B*M+_`}y??>tzLk#Ws4r5EC0t`SE(X2^6E
zEz-_0F+YQzn(6uX0ii3eJ!rIY_olIr^Y4SiAJfeTx?O;p?Zw;haq;1|zo$df=0#if
zjPl&qsXN+`YyCe{;v4sr`wwm_-+S1FTxS&Ypn_6cZvkK5=>rrpt}gicK4KZ2JO?NE
z_E#P);5V>%54B@nu;2RjZ+6UxPqH=T^~TNbh`%*R41SbFp7D)c8&@IFpgUaC6S7iQ
zF2a{D`gr1wjFIoWlCWN`+i6fJWN_lzw0x`^)+V*hf12Ms{E?=CY4BNBMh*`%BYqv*
zHt<-d&rxbC-n;&{ZovP=HzXi2<fQE3Sz&}7a`ANayfzEDA?<%O>T8TKkR+^!6M{e?
z2&N2MC?vrmn}Dr#$<k~vl30ef@6O2DK7<R^#nb103&t>NEuFoOu8PaL>8CAu{#Y-v
zwzZ6%j?DrYkBIDf-)a5CysPB5f~vI<$@7G*4?QNq^!slL;wzECJRABhS@Wa}Y>x&6
zVOKMX7vv-kl6I_}<yAj)`B5@HIC?Yl0}097?a&oZyncWKbK;azy8E^3%Hu0Vv2>VS
zn)pMBD7~zVoE^4FLf`4gm}kQdJ7PQ)d5#Fn@VVw}T8C`ztw}oUx3R{*_RVWCP2UVr
zBeH!=qnh7JW@+4`2D}B!4T|TUY7w-j+?JA3zSu~Lj4m3oQl4_{F()L;g`boR_WrOd
zQl69QFpCE6gK~nX-%qtjLB=^R0kPm^Mvn`HKeRZ+`UVygo2B*>@#`keS5s<Rmc!c%
z@KE@;P1@}ywkAD9y-T}f{mxUiglfVwB4GbBGV(46!nz-KZHg|$#g`Vih+>;M`n3Xf
zhVmVY99^J0@2Fhy6hGIYlIm}Lekdt5WrooS2x!9#AQn{qup_iOBA=ZFGVJuFi*PRK
z&I*zd<&`Htm&4Z~@Mr8tbf(QR`4#dK9LbBfDw8(5T(A1ghn9A^P`iKPGRx~@;Z<xT
zT@UA@lzC?*5+299%jT#<KuSMIXR`ttAz|0-$q255vW$V+W-tA(I&^VB-ci%EoEWk|
z;<A85)6~a&Rc&#$ic#%8edb#wW3#Oq+bq}Yd9Rvt-U*+wi?DL(rw&LS%mi#^(!-sJ
z(C)bD0|opOs;T3Cl74{9slA&x>?j}j(kn8Qc~^3$@kvNZ`iPX1@~!_1q`O}21GK1X
zdD!lloMf!yW@hR96D{g-Md_OX?c1f=*jTQdW0vyNL6CCcPm+h;Jc&-X&~q}DHF3#%
z!W+nLT*)$IKJJzE_#*2t3)RByl>C3}qbe{*c+n8Z&3(V*M&r*`fR%6xf<}V^og_D8
ztPTO%77aTJ_q6>kwF?98TiVdq*b2d2u(12*X5)wlI+Ae-stFRsMgCo(rF474vL3nt
zX$)|AU)U8X{l)odf~0Zz|JaRLw}?&n2M##WnNF3hp$4n$^xZRCqp_S~TX#t~nWZOX
zc}gs12GFqnR|IZHipf-tYWj}h&s%UTEz+MyR|4RrzVZ?Y8Q%o}K5}_t`l@OQd@<3j
z!H-|DFV73!0rjey_T(Vj%6z|Qk!C8HE6t$33An^?k~IL!T#w)$Y|>TS%+yXjb2vD<
zmMWT!{$`<4KXdxP9LieD5C{msP>;Wjih&QHvG<>C;Qxz(|9_Zu5?R?J|H>?&LW#s0
zmsQ6Y?nO@glEa=1YCTu6<&cwUwZIjAmG_$6&32+I*Sxtb8R)%#1~3QXk3QHULWSrm
zeK2ErKNjRvYxpgjL1(C^o0lGT^sIUOyF}Xw&#rIh^sSWi?Lpw;NcH?zB0R-x#B^W_
zP9w!p>L}&!w>Bgr&hd;Ly3FlOE0O1UFK9JD6VzEQ$0XhXem`+iF%4VhLXHbcfrPrw
zNu6xq9q<m{)N?&H4gqgUY~&+wXlIslk)w9L(bTZg`_VS_bUDz;uK9F_ai+19XDdk%
z;a?`Ic+KV`<G@XqnOI#7h|1tC2jcx%w9)d|KO#tNb`Ui@Rm3s-wmQs8(PM}Y=%!0?
zA>x5)o0j*Ex6O{iHs}m><vB~fQvoU%z^Q~?KqJx<b3XX2{V`^lK`2T&b)fOdTo7Fs
z=aA+3@qiG`rnPASG`#ok1Yirr9sozX5XH|$q`t_wc^#-Si8F6KT)yKBev`=?Xqw64
z#wXvHbWxV)-+M=hf>JiFO$%@@Z<1sYJ8-a^YCD`+_^0&@IV7bIcw2b4Njsz|?xkRy
zUHo&ifW|hXM_V4;J$4b{NO$wkr^j-lM<sdKVev{!Eo_wH87opb3rN!SJ`n$yLzA00
z44k=PfY@^nGLFNJ?>abL;4n)yU+dPNdC%slro#EOez&Tpn+!fWm4!VEh2uOlNhz8Y
z(fqmP+2K~X5<tRueUO_+L)K*=jMoqLE-E>9<yVXQC#DBW$&|V88S6XNR$aGAg@^+K
z@C(D6nFT^Bt_R+eb78r#oHX>>n`18%5n=5~I1C}wG|Hq#P|N<CW+3lK7)G(BrWDe)
zS2h{p22W?_dmb)^_y>t8iAvwDIhqy&+c6K>$HSY~-X)@Ir50kGt<c~x?n$@7#$WRh
z+9>(4oXO7xgNEZXA+AY$x@!LpiB;f#)s3v}+=26ODsn7xh7_BTns3_?*6~PhxRAZV
z7SWZk)Zpyz(wO_}nCHFS>giEt%(bJ^@Fa8cvxJ6BIre|pP5-<7t^d(!gYXIbReFf!
zA!%SvfT!&L$Rrrm3eNNXWcNPV$dbGhEBr^ih(;tqFt3|kv)e!_RGCzH3iCPg2K-BJ
z4X1=@A6t)fgb!V0NtOS6VKXz`k!qiRjqw`E=%w^v{hh^b<d^lLKY{WOxCSbk_qc19
zuGb6F0M9?%^V7`XTU~6MjF9xwveVpEsd6JyE_A*UUFM~*m)QFB-EWpXOOWnOTv-Bk
z&Q+P%=q{lnlV;#i;rQN{K8#br+F}no#zqE-8CZ}b1{X)EA3D%0O>oM&HAu}7Z6}sv
zKWrzmDBscaHLyYiT^Z}?;U+C#8-E{UC-A>%VJd_z;b|mKUM-!3n?Bj_yJU`p{nh@-
zo#7023(m^L#UNl5jng=@wZ0$rc6BJ-W|@IEqSpI0wR>gyxWIYMtM?lpsitg_IhE;2
z*Bf%f91;fcN_^$trG=e?vn!JaZeU6&m5;`$FG_{t#aV9%PldkjD<8JC&K-iOJw(&O
znH4~HVn3|!n0U)((&J$}gNi&|MSi@zM9{=04({;CPb=%bybf6qB>J4i+4iut2;QGh
zS{lB59N#2!=r8lKxSN9)PQL3pvzE3aIl_|nF7Yu!WAz4{%r*zzn%Regcm*2{clY2h
zo)JG={fWU9)X)5uIVOio0xHFUJ<WR}5l;U45AK@x^>?krSo6$r{VrLZ3anA3_g~`C
zCRDr4OkX6Tsp~6%Kt`{D#9tmjAepgSjF;?7F7@_SDzQtIP`9_qTJ^=+vEQwoK#&N{
znS=c}+kq;7yP|@6UG;^yxp2&Mx3#uu$@RK-saqRri;Y$%GK{CPeGa$}N0gg&7VG}U
zSpWowsr7d3UT#CE<?Ti6K0A|&@igPmLE_0g=uQgLbra_}U8J<mj!eD3?0L<!RB)eN
zh(5SDS~TQhhG!dG>&h`{o=-_sP&GTSQzlr6x{9U_!U@p~->iyT1SB1YWIG_fs%dA=
zHiIa){V}o2m2Cri<)R0gj5rO8`V7wP^yq7~<k=AUE1#FSX^4hGjL2;tLjKFo>5=CV
z<Y~_=&*t~}2xgS&%yl`B2!-;}l>PH@^<TCJ^>l`~x_^Pwk0zaZ19z0zkj&J<=tqfU
z*(x}O(cjr<>d05PE-j=IRJ(z74C6GM2;V>XO?Ps;f8MBC3|<1%n4zzv3AfC^b4Ht%
zlu&|&F0j2;h)uE^l6PbUmygEd%1i>yarJjzA*BP-B7L?s)Zz;a1I1i*LB5x1Z1;K+
zyF-;O&CYNAtpt6P2;{|Ly1Iaj#Kv--1WDa(;OFKaA~|R1>z~vGqG`wB)FCM~{p$ck
zSUSuSf?tka0BWl=M=4M>rk!$bjBa%lR@y8Lo72srUTyee#Dj{>OglSb`rvtLVbKue
zP>HmXNKlrLDRr1t0?5GM48fHCd7tPoiy1yoZLuXnbnP{z(;B}Aq+<PMNDe<&ao23r
zOSICvD4+6=xrKG?M-E*OH`6+!kW?SL(l{bg)LT>Jg88o*yZ-bst*G~aqiKtfY!kDq
zqHwqy4}!(1^m0^iE$OaO90L{th!bm#h2aXKKP~HGIYF*9U&e0n)3L)g0x6o6@ABE+
z;1rG9;Q}h{ETdF5>p*g5NMN21-NmX*Dm!nhgW-=71384ldQpcU`DX^#KlJU1-4N@m
z3)>ocD5xtN^}-z=?TvWSc;IJgDl3DR99aOa#=qQq6&w5=LB(ZPl}V4{x;!r%N=0E+
zP_cyxBNTXgihmOB-l#wH1KN)&#+4yslMc`Q2ag?N<m<fN5*DT`t`s=YU`=0t(kWGW
z<KKWR0iAS}&Rv;R4h)u3?K{=CR~CT|61%>a*53&al}?P2mmP)oRa19K`8fobkywY$
z1a)Ui-)PqX_RF~?%e($LpbH%|di|A-bg9`sfR0tL<^|Q_^7^kA$EA#&YI5BKqg!Cj
z31!aYLZk4%E2Lu$J{CM_j{0&FKd#XQb0p&gF+4uqMc<&4pX%84WNd=H6y(CAv3Iv=
zO0_f)Dltw6WpeZK2`7Zo_d~|-%GeaT18(|oHK&0M)Vag#ml7@$W&;7qxDM;kaq8)#
zIpHH$=@3V8EkO<e&E79+W#|2?-O-GG7Y(p@=uznKWL38KM(1t2G79T?2nV<90zwZh
ztI~I<w@9UDJm9MP2i2&1{NkPTlI77(gDEz>%f?hpPUNM)oMRo}AJ{n#LX2a+{*6?r
z+<xF*6@MU&I|@hr4=vsYGAw*tef_PV;R`@tPTnqrG<u9K6~PH>AVUJ>1wqb?XLE9c
z%;P#;set=2Ey|=7t-)_8#O<7Sq3*HqO*24-Ij%lzmu)mPMBlGIE2oFoi&is2V#zon
zgr)grh}ESq-Q+Oqp=^5<eP^7#p1Qc>?yxQ8u<m=;<Op}(SmNaA2$YKx3;=x@r90DX
zuQsh4$)2vJwSsn_9VjD{37bjaSF=~?h|sZtVW%#1HHT4t=G~KT5G<^q+73D^Rxpmh
z#?taCmTicHJK6A%=6zU|gHi416cgreYd3jNfZ(pUxAn}*WB{woLsy!(w&CY^qtb%0
zJO*$em(ot0ZO%}{yFa>$$i+saBTH-f?ET6)RgsWkNotA}S2gRvO6QCMAuk3&dFTS!
zwMSR6!`YA$rl+#rd)HB?d?zyOLB)aD2Urg#H#0wKDo0vH)_;5Hwe(WnDgW(^yNv#q
z2Uw1f!kK=s&(@VQ@QhF4lL?Y4a&j~XNUd++6A&&<KaOm<K8M4pgzP-RUnahr*p%gL
zhc6f`zt$9j4Y$Jj8?Pp_D>48q$a035eajB7HyI<l@zNB07y(#OZp9BH35$v__37iX
zn>frT%^q(h?1(<ei9S`fxxU>EM69!oyUWAo5L6*t@V!Wzl=3i|X6+RQ^e$y&iknHa
zAvf7gA#`J0bWMfAn|M7srRyRw7z8U>kL{*}@dT8(zK-3vbeo~BfSv7fH8|uDfPLw%
zsuJrezXv!%{7tNAo)S?y5M^dWr-&pk1N$fi$T)Q3yzr{0+4w4Og5phVWxYiccYjaM
z<Ff8@uLXvBmw8`b=SG*k<^=%L#x}&!s85tAz#PudDXRb(D-IiKF+Z-9`DP`Cx6Uq+
z{W1&e50LrLozdD@iX_Kte8o8`3o0fBpZG!Qm^FlozA;gA$?}IJgXRj=-imxtU{m{W
zma~RU2z6niBJ(~~Lj^b2J!x$wVP8h#O_4<~#fV;YfwC@r{Ub1|f4qYy5qX(6XtN}|
z)r4nGJE~keyU`T<K@qy0<3WnaAMC-}+03GApEmM<=%G-OIXj1w1=&aYHBD2a;2CTI
z{dR^36R;EB1#{(o4Yw}&MKaq!A0RDA4`5!VSo0xoY7!7(4DB^>H{yZvQ|jH`J<aYf
zzdUr99mU#aBh7%>Y;c$yBfp|;8|TcDd;v_;r4#IiiX1rst`Xjv(O4BcQ;#^SL(j6r
zN|RXt{ZEXQ3g}u8EB<!6P_geT`D?EZ0jE{w^=T616K%mGsrE@-zFaj$VcyG~Q6k7M
z32`y~mQA`7RqnxyrX!q%miP^ZtPbjqmDayP-h?yQU^=VcVCsFMH(#A@XD5&>Nv0ee
zec;R-)tP!G>d<hx7H2LI9#Kk^2IW)tB(X-T%&cx3OFG}c)n>1a&Q*fuZyTC-z3QX+
z`BrjJ|IYCSpN)o>j5KJ6;|i?~`lmcTD4E3Ds{Fi^oyNZ;8rU-I>KYTw>!9Dq?b8^J
zt3t9a!X?9GW)1>DLVILlAsrWoLq_rn=`cr(@_)v5H|sOkB-OqRe3H#k(him!36&Z6
zIkRp%aA*tgFgQ-AS+S8IJgb^P<MToE_4U_I8?w5WsXXs>nogPS#!6n3as8uhPh@&Q
zkP5Y0nwHBrf2!QVta>xVxwg^rlQ|KPvxx(8*3Lz)v#hZj;ygO55SWL-rwujUCSe_L
z#x985AxbTB`65wDbY>^80DnGl`g>?Ig{?(r{ijY{r}oOqJKB}n64pZ>ZLAjms={xc
zS$%!=Vd{WKEJa{XjDNK#oo2=WAfuufxUm<eACO~xMoRwH!T+{=3&I2Ib(&QS#Je%;
z#}=e(c5VeCwGyBRMQG-Q9UrA6PJGx49B>4#6G3=|hSAYeP0Ka(@i#Tp5<we#6epq+
zvC)o*0;8!~^_C66?ULvOSLP<7O{}7ELg2W>_&|}9zhf74ClcuHJM+H$SIP$%e>OXx
z{)kRex;IRG&)8yiHP(ukPT!A<$EK<Lry_xw`2<^ZwTioE<y|wOdJCoS$iek5>_Js}
z)7!X8!D~s`L(3qzC|y69$&tfG1KmK)h(DUBQ5-j*@1%6AgFQ)ilJ-c1Y>KS)gLf}e
zS4mv#+gE~B_CrbA<Dm8!nd2zL=zr!g9A-H-jU-RT+xq5@J_QEc$dfG=S)Pr1V=Q?2
zyCUz>=R@cnlBP)v%%WHX)K>4)=0_F9h)JhgVnE#Gnv%r%I+l#sC(_CfiXXm6JVmi`
zp?)@~+6!cf7bUw_6*dj?54D5)%RGUtrZ1g_tURyPRu?VOj|ny;#%ySR;bC4eP$e8a
z%zd1+^g%oB_MmV17Sk`g?7pdk>Sz*}5AQOqEixB<Z`0Z$lYQE`(b%+efu02#;0%;3
ze^#ZxUs(p>(I$zhUP}1KCm^e>#=ni3&b=Ma^xWKd#1N=;>bcJd4Kt@}{+?qPe|O*p
zYZT>$wWdX4^6zwm+q8g9^N+67O;lfOY?jTEB$=>LrEes9s=(^Z;<2I@dWq7v@GxFO
z2`gUzpII};2?K=e5;MnG1XP<;UQ{of$nH@eHiL*T|Iqt=1PnN*8Y}x^?in`ACCiEB
z%+kY;BMaGhioPq;g+Zy0{AWt9=r;jW`@ZlhS`C99qLEI_gD`x$r8#Ya%|W4llS)Y^
zer^Q7BZ^+ypbNPeDC`x;|4J<_PE7#^0+(H2*(PysjVMMHLr$?J0`7zqYGn2_{kEAI
zC{)_a(AHitk(#=3=fJ-lsQkhKz5Dz(ba4waKdCK@&U-JO)17>5sCHB4+^-)GDm*;)
z)2Tn7CtN=F`0BQ;?@nCP`gr2wg`c+lE&t{BzX&hSPHf&R|I1c|^Jo9~CFiE)Zx=6q
zl*!4kKxKq?QsVJUP8oTS;mPo%Gw7mK6FYMflH-JP7GWcJYzV;%Zi!N{%gNv)$)hUn
z$HVPWp5#e!N}!UIL(A?v_xRtQqHzp@<zTd0lml$_9eBOwOO5pD$!hhY00VtrwNSmf
z=)nXo%sT8gY?Xc-bX|%T&)>Y++i>Ez>aFw{Q}J1plDgsVG<a;^VAe!!beqOeL*k2n
zk$DJ=GtcC0on@g+PSIBN`l2DetJh_T8)4`8nP+37)mAP+eGn2(4*$KaNUwJTOkaO;
zyvJW^<+AieA@D||i%TYF;EIQowajx4yO?O_OoBpH8bh{v10(|hN@Q$hL+k_I9_&dB
z<DX;WOHQhgzr%KH$0HV7xf+T=8}*-k!0+#b?^?NAEL}OYXOn#We@<QcY|=&Du$tR2
zx|2Dq9_9BsW$Q+bvorV7e4IAT8rf#0z8Z`gUOG-vr4^!LUT{hNN9!v8xo$A`CBCaL
zI#~?@4!e%Jf5O-7=|rv?j3($9Fw31tR}9`L-|PcUzaweWzJt9yR~Z%P))9^AM+~(n
z8<g<q;HbB>D=d?FE@Kx{txk)ki^|KJcn#KKylm$?>?PHLxueKwsaQ_ERMw;mA>e}1
z=o#CbEQCj^32ACbD(8T+fW+=+;FmJ_!Gd8uuvS382H7Qv)K1bmncUXr_oP(L6qXo9
zGSsAa?cFL_E3Pv5UrYZ57#$0!Z$6PNZAy730Lq2oPL7gZ7)f#a;PaBL9IE>2Fq4aE
zIks^sqEGMHm<=jPWAzHEFeBzD%}#Cbv$se(m*bgd39(Q@*%mSjbcrhmUe;JWhl24l
zlcFLmW~BsOBW;dGs$|||9iWaDOxTil6bc_cJ*ZBb_8Z*TTwBjRcb!7kpMDg+OFEtR
zeSoDTJx6IXP(}}!n_Tk(dEoQyeRvP@F6J&b%y?wS!+pKd_1zgU*u`w|GhJ9|-acGe
z+)3+O+?UR7(2T3?K1-Hxc-AU4V=OkdZ(pWpZv(1P%CshQS{({UHMULFtFhAGcG~>j
z#+uqu6d-+=>FTk|tIsoUV&&-rz8F2BSAr>Kpn2z4A9a9AYb;QCnW^EM)2H8%F>kVD
zP!j`c=BKAEFAq9_&7Ry8<COq-Jj(~q*Kj7(sF;aBuvh-Xaq!{X33OF(@1N^ue1}ri
z8D(Dt388|EsNv4~pLOTk!0W+%lA`UoP%Uy80Y^c=+<LY64Aj7yC2I6Cw^B{$*Izxf
zjzFnq1jC+}c@(95H6`7xPnaWJMUAX>B0AHQlf|ezb9Jn#hQ&^6q);N64EHre&*FFw
zI5czO1Gr#VxcWd%4$S?aP=ib3^AFoZI-&g4>l$7N61L61lqVlcI*j~=M}Mx@?K08z
zFNm7LqXF$TZVtR*>%=B$(H2p8s0sYj2ON3(H@6G|5@)4h!06&Vggyl|p?_R8Dr3S8
zOnEjDS`{Q!>nGE_4OLa<v^EFJh4pCExWgQFU7(iKUM@|k&stqJ+QE@KYFPe(Q`>*6
z>KV*-pg>FDj8Xw}C)5aFZZbGdpQi96LF!)Hv(LPXcDC^C!>0^CPBVTyVVBWhOdHM^
zQKjwh8~RP6Ht#uwBSw%;yRa^`bep;(Qg}QI8BZA#tz}PN?FvGHG@{~B4*nxjX!1@=
z%_t^A$4k9WWW7?0lG<s_&A+6HVL}>eBS-yqY{MS^edB+X$B@qS_D{R`w%qD7i+3B9
zk>+yH=hC*IYtY_?-h~M@|1;NEG}(=P4{NJ?Sw?Y30d+}?7jl`~s0IoC$MD;3C~9bN
zS@cre;ecXkdFJXKS}9e<r>lE6>L2B!@1%JD?;HP}JcvGhvfek795eat`27-xXlz$_
zXY2{Y7I`ow>!u!!m0_Yyd!pKVI}n9KN}<*J5qRFVD;xy?`o4@qJwnE8M#C8zBEuxe
z@?YM4=^n!9aQ*~;`&z6&s#Yz^^UyvC>F4USzn7JtP7t55M!{T%<Ass1rxUD<Ya_zp
zeW*33L(+Wg`SwSDFEg~KL6*YMR+9#m%V2gv)<i1U_A;00m7{BKxoD&><@2nuA0y%D
zeATnbBK5kk<kK!1QCCndYEjN8D|H|jSpe^;W;EvRvC{>!?kg5cGKJ@5%HTcuaMd?6
zY_)y>LN6z6g$d`}-PY$5!f@b%{G0KuvV(^+xaljen4^B*5gBX9COEU<i?njpAAT0r
zBlK;vxRx`a1*VuyCw?;9#RRrbDq}9Ba;XIqNN}8<uPqarv3AK1Jwg7Jb`)F#y3#-Q
z^lC%@8EOBt@z<8uStF(sk1Y~^@%*v>TDZ+JXEfdwHGJV7;`qh+8kqRcNtX;0Roc(T
z9nP5O9aRwE+qGyyDl%QY;dh#@L#Vz4)jriLjf`!Nn)Vnqn)bW=VK-#ueawuH3L37P
z{TqlIG`j8CWWHX%n+*VkOh)v2yP9@Lxs6m}n;(ybjJo{ZW|dOTysIW>$NkJ)WT{78
zKLqSp0MfClERV&MoWvM>trw!!?x4DO1=M35?f0b~bW#RbY%I1irbVZZs!ub`$fI8d
zz5xleEH4~+H%#er$&3$bH(FM!gQCJUV3I?{GUdl2+Uqx2kKI#C|E|f&e_qg*F>;(n
zuo>9^-XoF~>(M+EvC}V~qD!S%n!Qo(KgX$UG>VNb-P<sV!hhe8i1dG#M^Fo1>8!@c
z8Cp|!`;N`#-NL%6yY-Tx-X-99`<Av0lgckfc7bm<0MbYTv)yX`8iUNUo<$mU;V6RM
zMr;41-YzfpN(|@o1DDrok%Yj1BdSD*|9|2K07o*FsGA7X{fuC{N^=@N<66c|_`edK
zsl2V6rBbyzYm`tUDiSp;cTD&}jdPhxQNvscd(PYFujL;BkXP;!H&+c*=C&R|ZrPoY
zhnY|SGk;c%mbgbk_I-rAGpfOiM(Q!Ii}povmg7PvAE?3XxGuLxB>W~^{KdA-I%Dm|
z<mxs6&?b^H4&{a&+G7`Xjl-&8a_qp|_NSjo(8D<s`%7!3^=o$Y-iBEqA7nWL&hGmQ
z=R`(~A+2C-?CEYCc{KhgO=YQ7Y&pphtJ1);XQaOP?FRq}OiL=)G{A8uXzM>u8$6!y
z1$#NIGBPxRr6WGw253f~^<71%<EMRN+0r^B^HVEcseEhMrLc>zsOZ*!5is6{b;}dw
zxv$Tuze{74CrJq^z-1T|em(Vwum7wsxFGuPpRFeTR87l<d$`xei`QdV#-m^q=k=i?
zBj=2XzxUa-x3+$T*lLlNy01k|J_F}i2%qUWM}?xYlp_YN8?uWF-9v^=3~r5`?KI_&
zs12egp6B8`GbjF38eM4~tO;2#4{w;MYzzCa-$jj<oY7F;{JWhsH`ij1p&GCid<PeT
zmLFYTuI)cS$ePGi#O38rsDm25$X5BZr1cHyX_vkI`q#CHL0@pr`|mlxyq8fR<(T<*
zlKu!VZ-W6VFTAq8K3A<pqYj`9xfn(oPd7IsMcCk=dd4oEa3`(036xrt1xlmWb@DEl
zSp}R`ITRhtnERtvvM)PW3xl9Wey8<A@!SfvBIW3ria~NT0^n*#^zsbtgFGZpEk1w3
zABqoiN2SjW5l^(J#K%aOW?|yv%1CqdYKD5Wq98oCKuyjBU@C0>-HzI!ny6bHdi@im
zQBf!=#()+ZgbyRBK?W*(tU@E3fbS{PMBV=KP=0C%N&u=*_0=n>PRyqhIud#8F`Rh(
z;vs1cc+~Mw-YZ)T0}jgq#F9NRJX{mfmI@o;Q25D{(W64IGKzq$7IhwlXn$*X`Q2CQ
zzFaanQ0tvXM_g}I&+t={MqNk~JdXNBFf>nBt6Sr?g|AL#b=7P3EYW{%V@~CTcLw4#
z7unFlrzCFciT=G!Z8v(uzqKGAeetyiS&E<Bgm)E~o&dxUSY^66g+5Nez+?1iHl4<t
zh68BbEOvnf#4c=1I4WMRxx|f8xb~R4$zB;^6Gj5|H=ci(YJXkN`V_A|hyWxp<60U1
zjT_wXdEr-JfV=i};$`4<@w15`ay0*N^-b0%`f-(WeG7CoxrT2qlih<muVJJ2<fA9B
zvBG8Ldf+)6Ou1S$<B~D)HCfwBDC6hWYnr5WDeQB~p6|fk<Hp|wxVvRXnp<UfKs>6-
zkFoQO&qC5j2Xj;{>LP5_7Q7yNuih5Sea+;KzD_C5P7DFZ9Xt95;{m<b?s3PEO=ZDz
z$N_OqcTTYn0)-|HWJcY&fa0WFS#JjKftCPbLW9dn-6C92=vv7$C)8E5{f0+qPc(_X
zUitX~m929Z!;%jSpH8P>1mOE>hFX)ux@{AAPsK!|nxZ_5wq9+D{-nESzYaL`lfB0j
z9bxaaI2}+=7}*AWRMY`Vo?{7)_rLTF`vYYS&GZBtCS?Z7^tpd6nKQg|^AaW?Ck6y&
z1kYYVW$2P&tDX0^9A{l&{BbAgbpyylUA`#K>g<++Z0<{9?nIS>_#R1@rf~u;3R5lJ
zXeJRD$01#A*6ndxv{Eblc;@kNP$|6vMEh#jDQz_TSbZ6C0sXosBj#ogXZ?ilZ%grQ
z0+ZYQuVXY>AD=4S&&!?od>qnWBKWSR5<sYvprDMS>8~^jKK;EitHOM8&!5tJmj|zc
zz4F3*lCSP1MQ1deoZK$ODjD$Q&!<ipJ513{HEG9>BOaUU_)?fq`?;ZLXB6S+Y9xon
z%&C@c$4JTiKl8)83=d>y<<EiO(4$ss9TtS@$ryRV<)e?T+IG~><xXH)f?IZ@8e-bv
z!+keX`hu;)2x@ZHVd-kMmn(H?bzrls2?m(?Y@&4mZK@aYw+6UIV|76--8PJ`rlB#I
z5tc^QprNC?Sc8{P<EW7%NA=B76E)<~*^As#HH<AcO-<!;SjV3{j_so^pgGbPy*{ZH
zpEUsocjnyL;oj#LGi0P)RQmlOG1j*8oRY9wcd|Yv2u0$t%?u|S>Q7FJXE+XJJ&?d)
zyCI!fpSUY1@ujfKlL(;y82=tQ+-sQ<cZ3GD3TQIdsN?UPEDBU)eY(^t9<s<70ns#3
z*Rm$2!RtCSAu8rK8gZOsiOWs<{E}BPY?gH31%%<3a^Qs>a5ivggck?zwoN(k+D^9o
z)8X8k@Q>ros=bJQMIJBO<oZ`~pjD5~C6t4`(at6|12geGha>lP=ubO)BUOL75(ETg
zb-8b?FaL=^yd@fC67is(^K62B1Wqwoj9stZkE!Wwa|<xC3@ON{>TWiR4SQf@{)D?d
z#>+;SE&g(VS8(cjeh5_6((cfUPP&>3EEtyCzifEt(j{(?D?_Cq801dBlX9Tcjxl9e
zeN4ozxlw&Ami>y+KXu`oi$+IFz!O2Q%<hnay$x2j4WL<IB9Ps8@3g&W2+Z4jsJl6N
zy+n_VH;eP_&JXx}ET2bgf%O*i<5YY3&FwJ%>e7{y_Wsp?0`@Pu1^HksqwZJdPIRkT
zf!^BL<WA{OeO{-LpG{u4G~bu{xl%pS$~5V)?z#MA)L7}h!VA+5weUTf_SE{+gPQgj
zqd*QZ>Z*VaUes}aWv177F8T^8{u0;tIOIZ|FKYVeYRnMTTO8o4#0dygvH=*S%QJ8e
zmTrg8Tzcg*wWK#OM~mIXK`5omloO=^MrJ!S>KZEN>cEE|Pn17h3FgrGsNj??O^wlK
z&L(QKVSDDcQNu}txmLk~naS(%J8}ARUB|buO-?KA)4*`(<SG}=uGM!x-;oQ6s8#H-
zj6n^04d?dVNg4WU^(3*v4rW)^2^fiueJ6$}*mG%Bu#ya-g9rrQ9-}GaDzi&7R1HI%
zeSd>S<nW(Y_1;An)hL=B4av9Q4>_*CR7>a3fv?ZL1BX5X`giNE-o*wDog|ccesieZ
zkGa5h0lpdl2uEYKL0{XRY7}T@ncQ2n-Sra2S|~qL>sWKUHnZmQo7*?;MCwzrnQ><a
z^MTlMT==oV!$@hoz=96?o271e^Xwp7qm`pf$O#|+6uc%F$=T9Md2T<q`*=RF)P!n3
z*YLE{(<OB;=8reGL(tFO+~{?VU3{JzJ7mHx8WsD<Usl8rK`9Vh@S!`$-+A;O)4@^-
zWRYZuTH)XRF0CIch?N*yu!&~9ewl?Q$3a5Km+j(02h_Y=lJVIKomBzJzs!txn~<n7
zP<Su){Ok4P?hg5n0N?h$`9>K_=0y8-L!au~na!q2Oo$uj57p43>0J*n9|e?aLq+Xr
z!FejdpFU=W99I?)E6s;ot^EsaV-nq#Is^9U1XWR@J~f*;WjKO@i#y#EKxVage679!
z`t!a9u;`$s&pl9y3Z}@V)ib{vbnSqR7vQmWWH-jjNe3#j%1Fn3$_#D~*jtW}PP-|}
zy1;Shsk{(bvH33y?j-dj?XH{N%~mbK$^JnWy_Fj!TkGrPWNeKoySfhhz0I6?%j3-~
z&{Bw7WHEl5OrwCgvrnIdi4I-lMn7Z89ij$?zp#zT^z6}b|2w<3!cO>mn~R<!3!kzN
zGkY8{Zi^bd#N}CfoQXfMAbtskf2~4IfKGIY{q>ih9PrFwefn*=WV+cO;0%7Fx*hOU
zCUo&MAD8igP5q>^x1s!?K7u`JfJ<y|^aY#scu>Ho;UA9yTMXi26S1&HQP007-IX%*
zf}m@3y<oQNWc+KpoM^|)(QAdBa?Y75W?{)w*7++ZNpF0r|I~pYF>_BRvYA}!(Ylv+
zjr;@iR!nqhr4GzP)K?1!IxrX3r~&r*D<fy7#UL;@u|`q1DAy?I0MX79WY#u9DBD-)
zJLk|J8{#z;$9u_xd^@<y%k@XZrLaOK*IaFN?#JQNyUnx0YDZs<9Q>N1X5}ji#gj5d
zj{2S!dhp`-P`3hu*s{u)B*jUUYi^YArjVQ(Oz}x7(Jp7$In&&&uoDJzM-*@b#+Uz#
z;~SWoqL^47;5I})X&Pk`bT6VK`RaIhh8p3Urn%bDJ;|YY;onM*7v^bSs?_j(IxwBF
zcDc19=m0o>#St<p)}?)z)$`ZVgNJzbn(>Y;xb?-s^ABozV32wJQ@+zK+F{~t31&li
z4lJ8z^_-qtjGi;#6x&NtS3Q-vZ%t@Tib0&}R3(hROP|nBKkdrE3}x^jA$Ch^Cy4>{
z!g!*$ahNbpYe0B>=}n)MJq2%HS6u~}HJ#+fT(|j9Tq>A)_g1(x@YFcig;VJn8)K4u
z+bmTP6LK6P^t7pKTJcLZ*uepOt@EAnw+ao~csKd{J7;z?E6QzD?6MqJt2-G#yX81!
zKjoP3(@BD_>7%-xxeYa1moW7~c`GL^sP)*;lmlct#^2Dzmwept4E1CfM$!94HT+!}
zb2h@Rwf}W}Q1?MkZ5pnMmpmJU(th2(o9;B;%=-59$wBCJ!Lx}aeEKbSa9A*k<wxG)
zo;ut~Lz}@*9A7LbooyQ5{#115^+@UVr?~o8m7TK9u&MTxy_o9<h`K{JQ-+FRhc8#!
zrQ3<2Jm_gLY@U5k!;IQ{LP!qIH*l@q$|=^tqQ^X=8|t4q+jSjVhzfZ<vd_T_-Pt*|
z(r}tF2U73w@{ljFBm1FNP9mwuj$=CROJ?wWgpOn;A+$<dSsWXb@UW+En~?Sl2^sMw
zSDgZ<#AzvU28_Nf)T`~#>zOFYRWnPsCJ*4rI(ReA4ZK$YZ&~cSJ^ib|{`Cw^Z<@ed
zs7(fEUj3@u{xZT6opM!)*Kr@b9QaA;75(WG9lPMl3f)sdF==hcuVV$VttZ{@A$kwy
zKbb(F@^VoDgP%S8t$@u2OXqw{Dy#c`Exts_@=+K1gfFHbtO;jCSmh|#a~h!Bq56xl
zY`yVje+2;@YMJ`^H+~5^GQ?{s4vq$}X4YZL$vl0nffIu(_aZYA+4;|I`z)ojB3+8^
zd`h=j#ZF&BS)fKv&{!uX&GP3`+q0Jr3F_4P{caUa+&&K4QM_ITy)9tiYeo4AaTY0E
z&aM5*fw!*u=0~XnmJb#$DER$sTxio${9Q2hM~1K(b=sYmiDrA+C~Tu&C~WpWO0%jg
z@c!oiWN$-=2r_etOS!~g6`}dc3VLP)!c&NlJ>TLmb;<PD<e}kbr(1mC)n9{9R{EoB
zB>@7XYG7SA*H%tiQ;ihNE!#d79p(cVDxll&AqOge?C0^&Tkp~1O2*EfAlnq%Vtf^d
z_Gn9Ms2%sqrPZP|M)zRA*F#2UUN@~4;1O>+!QY?e^_~b%YK<t%eNOJFK}|Th!GyyO
zgu?Z?R->Z65nJLG#7BeF{JXcub=!Y~TcXphdgx$Y2hQ}&RxO+;_sl(UXJo~s(q;Xx
zr_*=LlOK=eHyhr$rLPWQt1AGGwh-l}Pthmq-rqMIf91Ha^bYhFm=b`myb_H^U6o5X
zv_aB=Iy>^SdO}BAH-Xvu3Q!IkP);?V92mZLaFXzAnSzET9j&}(naTy>o|?y}=y!Hk
zdo5w?2Rp6YM{F}{e8<1Nu6?uqXQ_*GU-ZRPZhu>IT7W$B7dwetyw)885{8sj{N-?r
z*R{dUD)%AFp61l9CvJ9@%=n9gWg3x1QG1+NuV!0qo~u8ygCp-6v0A43D^*(pI47%t
z<meIx*)8#FWN!Zpt>uy(C5uB1KZ@9YsDG!Pyaagm7roebW_bHiO1n7E7M`-N5aHZc
z=aI_wBsoCo0HflP%6wMs+x#~(ADb7)v~}IB$bvU3NA+4qvG(gwRpK3e_0+CY$)6NL
zfDE%G=D-`W9Re3Tt*IGWbUfp4md1(c*){>At`>=3J}$JDowWka-0cy$`+C>~-8Qz#
zIb&Aj(#P-!&u8<5HLAf-=OG|EytZSUk2yewn9fdL=@;}i^+ridpLZ%_2?7LR+45g<
zDc<HK_M<pO05AZS<sAD~D-<U|i1TtP<Q!eyRC&?9Djl=hz(8Xg!(&R+!z)86>ooE4
zXFRG?;TplYRowaKaBhwISKZ6~5=#$I)WOua&GZC5n<bY{hS&skuQ={&7&j~EZj7rA
zJiz*dajxP2nOUn>qW(4frmv`e7n6N0XR%-`Wbu&u12ee8g4;wKubN=tIqlGYl|_tt
z0)*bn-SOX%fPe$fM7{F@hef=mc-Xp*HXPKjjCXY_>b$wE;p^j%vo2)6S$HY#Yt`>;
zjnR0s$Cg`yujSJf2xQ}`+hxrja>q!TN@D(;S@ZIn*Ci`I_DpsL^yuU|w-*IE3zz<C
z)yIGy&ZgoX0eE*00dP9^6m0=N5;b@;hT;tT0j?vy2>)@zGhGg6s-yO3p2O7BR!#;{
zkp}=<;FU~c0b3{*vFia_xKjtn)iJlh+eKpr@_<l@2h3IuhYt_g-ep*;sbr-d6FHOF
zX^GYroH(w$8l)lel7$t5ll;e(21na&Dziq*dU=CSJHI;@I2=b@pW>%p?paWHh0Fi^
z#^+2&wp|;3xkSKgrUSdt4@1&?4lJx%*7L;r$p=H$e^@@6Gm2KySH>hcvXR4&>*EOa
z%lKV2gEci>FUkPiOY8b=8CMjm%y!4rmtFNj%a=kt`vFfYTQ1p@X`3NGqk95w8u7k<
zie{iQWO9l1ms+}Am}8$YjFhn!fU@%&Po5*AgI1ni4%;KTiIRWS@Wk+pl214*c;-1l
zJt}<5Y)ISZ!IeNU40MIXbC_ay;1(UgaR$@iyGl35(O>9l=|SG4kN{P)`*$iN?)XM|
zF)#p$>AYCC@X-`?2z}F~k6>})IHH4Mp&wTor#Bh8yqJ9qL)YPS+w=kTo`wCKZ9KB|
zTkrkKxX@thx-|1MG*H#TA>`77;Sg&8PSTzd&J*aXd~j$MZ=!Ws&HU+U?VEa*i%5rx
zz%>lK&W>RjbD$K$uuM5nV#nx%F8;>D6%EFJzaa_Cr8ldU3h}14I5+VNG~4LayBa&|
z9-aEpH}Gkbsk$n9v*FUG-t-Qk15>RN$1YBYtN6w@2tG@uKe1~%%=s9jo{w7o+Otdy
z$<5us#y9-$#|H)Rf$^A8g8HggEBf!KGdLgS>#eXJ9b}B9d6HLuYk^*2Y52FP!Il57
zyEA`FGT-~SbLz?F%&2GTG-Xy!6KZH>S%SH7ni>-~MsUf|)KWATBsDbL=ro<0rd;M0
zR}?DTa~UNeLd2eFa=?Xg7g1>eO%y3q2mv{_=bS&`d9LfZ9)5)DzOT>cy1)1Lv%FuQ
zFKh2E6~di4;rWR=WAkFJocV^~ZIHt*Z*KFjD9Y~I|5!b+Z(;o}*ULlQSl5Gak~d01
z)aW3Xryb-|k$YXw`oDbl1GIX`Hz`F|3&sC+K8!N|9l{iFcjFr{uDdR_2OnAY*hUNm
z`-JQiZ+2+C-nz9wB5h2x_iStru$q^hI%P?R$tk8d1%}uC&I+?5xa|JOq~(PdF|$t+
zsAsbQ{bj)b<JqIek2#01<YkdFQ;RrhG(2po6F&TQ0n?UX?|E;sE%Ibb5+PJKnp6o!
z+R?nVN@UCvFky(hLPhxhDen&-V0Q@B_`G?q)13`ZnFB?GR574Y`#D&_z1Nw5J{!oa
zzXm&28E6&1FoRqs4-a)k2}19hqqMiQhoDh*I>f>Tg@VjIEb}^9=&KdTx#;dRjSQmn
zSIswOo{x^EBS58$tX)_xk*cBi8wK8$C21jmqpg-hUespB5BtoCD1bgmu)Quj&altb
zUFIN*3Q$#S_GW2lul8e)(?M=W6|6c5ifV!%m3`=LdqXRELXTatXc?+M;KzH$17j1*
zFx9o)kZAaKSL**wo9TbSksHKc?D(?~8c3X9<gROMiSfST^3g4f*_R{hWJ{ZXUK`>W
zfaIS>tX)Ro0@WGF$P(#iCAcMj)uX8vT0T=qX-!;@xJ+z;XnU`{%{q=dZ_9?+z%t8I
z!%d>U-js1n9uSOG($?IK41eGrkOSpU06DgN1lU@7fm>Sgm|6;7S~65kZ1nkzi=PhH
z`^~siQ>BM;H<-kkc{^>jCzfR)8f^A|+qLk>R%ipRP@l_=Q0wyPnA^Anv7s1D013#*
z6K|RQls=&A2>-KUeK3Fl_LV2xGl}*S|Jwk!4(jJqdY2>o0l@t*KOH?Q1!eGQNMV6=
z=*SYNg;!$nr5pT<4|rJbB2WO@&6Sneu@i6ODndz<I^rV4q8xkHBzgx3LiB{Bkfj62
zjYBqfe_x$G$bZh2k&vgq6l1*hw?f#M+9hF7sS&~tgc>-V9gbHx?LE_3SAe(KeI)n3
z+x_jn=*UGtTKLAWdAvZnycijhT^NpA7yAgdGwGNecZ4Vv*GD@>ZgZl!x4cxhgLwr}
zb6-3x6vlG%HB}F&=Y!;INl`~zBiSR*JM0;~G5u~!ORPsXttvHqs^h3kyk{k6plUaw
zYHj6p{U&I$=N{_tC(-O=YSdL{em7*doi+j}gMc0F5qoS#ZGRspX|I{oNXrIcw*6@J
z1A&VA<<y_9jd-A2Wk}U<7_4SXH(A;|tHKLA4uUrSfg)^G9tA-^Pmv3t;h7!g*vSH<
zG;8#{8K6%DH1+q7abPxgwQNYdEiq!ect<e({wt4zd=Xa-u9^1-Ws8#~AWkq_CjBXr
zA}Nu6ip<amMlA^<#{hWa6V~1pLx}{x)=)abTELItrkho|`iV)&olt>>b4F5`T9|+~
zb|D1~eH@7Phe)jl6uvztO5nNwBE8^Zn4~Q;B#$%?Y4bs<BC4f}(Dd|_10QB@F@?2F
z)yU;?6;D?R0c8mye#X&8J3_X)I%c^#<d{)kdmmy9@mT^LB_howj|!}8wF3~Ee}#n_
z6opEij0=Yg0z~zhHtb(mGi__?`2$<j^F@(54fd^ZFvJ*+$6eATt^cMvU#!mq95wQ3
zang#*Z1q~M6-@a4NTH&uDikGL*Ipgoz6dIhJwf*=ulxlRX(z$a57~jk9u<9*eM0cC
zvnsa#;lTOi?^!7~HKkA_qf`2BVT)j#kOr)nK3N0ExBgaL6Tx$-KJ{QD)p`t96`?hd
z+S-NjK>`b(_W@~s#aZ+Iz`kPXPG{x^#ISLnf8KldsnWEaO=k$6cyF=SiTw1&#G`!p
z(uaSLA)>D+F|0#;w{4?rJFA^io_mcMYJZ1em8pHSSGTeN>BY5g9CRKBt5Ets6m25=
zQqo9$>siy$5flL-Y!1vT?aeqa_&D~hvntGa0`%%eV+G`S_GMUi*fM;#@|ReQ^Q8;(
zCjxG2Qo^h&K%7o&HqFQi@U#5cwV4}gLkyE?ogmlkJnE2Kh^!q-k628Z@7yA9qMo<*
zv8)9XN1b^Cqcx%0H<+-q>oN4itb9+4XdfqYtYHNp2l5NsM7P~OpWG-QH(r)63uRDx
z-(y?kdsw@{dF(=-3-(kdFU#EOFU5HQZOtUGCSkZU8J=z9$$jg_(a<C^NPgS^OW@}e
z@`CyJIFCeg`W5g`g6qQkwNr|t#SxC!Co&%aWzEV4q+nRs)ve02_9SDZfNWa)JyN@#
z?R;tF7xJw>AAz1#pJG394!zu7l9iY2Z50&-bvt}|!s}+{a7^Xrg}pwog6Wwuuy@%?
zTeI3a>xwA<eJPV(b5Z*|hH$AZ{|>&1@oWaa*4Wk>R_#kFl8T`4@7(RNg4-qJ*zun?
zTe4OqI0OI2Gv-e-EMVG=|2zyar$HgnZ6#s8kCZ6YeR9n_6C%d6o*#1|UGGtoz=q{8
z1m(kSe^oHcY%5b4RgFGui?zn2@Y??RZOM!l1%6kbFM9CqA*btq&DuX^u{|Y{t_K%s
zv+!|~CUo2~GjVek^~!HGpU%QV#*Lkx*ljkHjL>nCagP|a&F(s>R>i{C%tka5rWt5u
zEp%jSGWI+`>VLWQHwcn_K2&ZAGvdGk?aU!VWx#t_s$cQz4^OkPZn|Nk{vuK(@DZ&r
z*4!H?#mM+t(%13vuz>oj^yeI>Kbi+?T{EyTm$k1xku@pS(_pjGHhCmP&}w_S7A2Yy
zl|L2BuU7?Wb?}Zg_vR#~4G~|fx4;L+)v7co^M=QuX9Y5?rT&wF2G7vOY)w%|cxQZN
zZ$_zjb_wnvQ(mCEoAl?q!h^sOH!%qA80xO<i6vpRJlka7F&}VG)V`fvLD{i$fqPa>
z#xnaplpp)yM2Omk7<5*=^b@mSA#N<@eSfoLA&)TzF`__VfND*X!kp!ZL)ZXe3#fvy
z?1jDBtFZ&_G~aBDCnPMrta8x<e4KY%a*pszO6DE?jptUKksA%FoX0~NRMQaz1WQ%q
znb*8{IyH#w<Qk&9EyreVl{DMg@n}0Ff&MF#gCoqxn3JRIJd>X3qF4WAa=X#CrxpHk
zeZoe21+Q&{!i%O(U!shs6s%cs=andSb}lb=#--_Qg~lA3od*=2da58!ygV@@pgZ)D
zPS=2Y+$~{cwgr^*t>E{uGoF|*&s1;GnK?tm`uA9ENUm=S=WBi$h?+U`dBIc*w+veA
z5j-KiBWl^ub^Z5@iHPzw$T~NXY+W~?u=Zy3a$M1bDvPMP+~j$z7@2kktF3buZ0VVv
z1mQ$5z_nE#f11_rn&-)%z;wfOEGRNxW2=o8RFy>eS>i%^Kjji8=E8E%3bu2$#4vFV
zcWQD7E>Pr6uJbq%b=z*&Ze(%qH3!pp!=g;We-&7qw9(j+qdSO26a&ZiN}B{K7wZ%V
z15p-&zWkvlvYHjZPQ6H=PRJh=x~4P7?_MN848*g7kn?RRRP?I{WVJ1Jy`<A3m5E!g
zNS?0mwAd$~j!r6KvWzmag<mC_8yWQnD~L4W&Rlt-7?7bF0uPwX-3FoU<NY{?KFK~t
zK{_yfoc|dZ>3mdg&v1JyEkHG8W9M0UQ{F%HZ^)Ds=Za~6;H*PmR2zFxWX8HQ>rC`x
zp{p@ZmoF-K;b8}0Z`4f(NuX;KdAW>zjSf-zrg6R)Ux1t9gR3WljdmI{a0eNr%-6My
zbT_5$Tp5|#IDKdw?zd)`aTz)3_pb#3pMWnA!J`DRAS)YPF88O}vLBArBB>=#|Gi`m
zy(?nH=bn3O0QBjCnIY4)K+o#6g-;3sRH4w!0KD&vG<5_yckGJ1+#CaEj@=sck)RnT
z2htbblLJTTkj(j^=E4}USc2&K-Ma}XaHWTYh58p1>TtVE%0C5J+~}g6nB}i{bBMhS
zE6*TN-l{1`p`Ya!nTg}`Avv)?z1an$p8Vo9Vii0{8_28?LGT2K=x9=F`p7nxq|VjA
z%gbz6#t+9lE0Ldgij$zN_J@b1WW`FK#u1JgvH*HkU%VahoFKo>++Q0dDh0YCklF{a
zk-={@?aeIqa!jc0$;ICle>9tzn0~hT9|4NOCRYpX2h427MDY0}8iEmG(z6Ey+-{u7
zqj%&4zT_kbkLxgV$=uBG`A0cJMTA!0G$R>m0;I+3cme4nC`IEF*|EmVE$y@ek+E@2
z={b=+FRfd^Q*J8w#%FhU?f~f)7wlO?eQ+u7_#5?<)8q7ovMdCMNB;`7zF9SrB>a2w
zK1EK@+yoU8sxDRjJcplyFB!fQi}BwRW)~>~&AVoT{C^}Rh2)#uNc9FMy$xW_ig6H<
z90vN4Q$h_R&vY%uDMu<MK;Z>hB&GHTpvz&vhA5fUv5)dmX3*>iLBks&ApxtkyG@>{
zkn+uNnWHh!L{Y(|q!e$F0!a-gZVY|F8mmj7`HC5ymD;zKo~(r!+v!Mgqy)SP_SDCk
zripgf^cEP`0Nd}aQgUVT{6AYRkC({WK>JLNZ`*vb3<VO@c@ZIbnra9M7MBao61@1_
zTAOhN5Nk>;Vn3Q)8+KTE08uJDNPhz~H5CwLl0zTfJ1v%$CN9=vw}_KQsLhhxjb&uY
zZ2hzkAn~o>5sF}i31hU-(x_@DfJKwYI~}0(0lNyvX9**oW#+NDDHE8JA6;gk{CifD
zag>dQj+{98fJ2vu?Cjr*b$Wvvm&O`=uQ`WH=J{JU9FbhzCRR3aLQ92}VGbtIpKoU5
zOfuUPPXS}+3ZeU<O0x*)uaEPNA)59hH@>!c{;><f;=gnovMx<K#6rd89+=@F4OadN
z--<`CXSnl-5@~LQ{_&`>T<XA;frAw%vETpL`31=hopMBdw_o#arsn<yz0qEX_}S^3
z?4w?8#UO&O1l$>3xj5?)XKUfQdp8FI94q9nUo#V<cU-~ytMq~_)Sj4dT&0@*q;k!|
z!yKi0NIs{V`Y=m%;;F$Ji1~L#r=l5Re9Y?dz^>;b{Md29^Y^+Vfp7@X3-}D}bwgw2
zydf-Er<OiHL=;cvQ9Lh%b+3HRlzi)eTpkJcboli=7bHG<f^wZ~UNb74n(%m8yQ}m=
z%c`{^tTSXHgl>y!YOj{Z;C)n$iJ>y3a&Vk!M~ttXzT-p$G*a?b)i1E9YU!?$dCd|=
z^1!8qc&(PoF;9?01qsY4balh1+uUv&?aV>kl{e+KYj0A&0UW$0$E`4cb9iI=f#8{E
z=nbf|z`{w9zMytycB-%EVYL>zQF!9gEE<YP-g}GIOjf{+?+eJrg}_11Sh9X9cTBhn
z<z?V<lJ1GEolEJiPteB2Br;9bUcE-_oU1G85H=2(o0L0vz5i2B8u;q3Mr5z1p8<O7
z?|bQ9-V*CG1Pw2Y4T0*L<S*jq?}OvT$U$!vDNCp<b^>q!L<z^Fd`I|j!zmlx-C-E|
zlzGyuEbgQC5(BdXO|wK#JSj*(FUOJYK|p;{&4!NLYc627!2ER)>)!x&V}~`bAf)LY
z^%T=lR+a4~&mY{#0PfToPp@Y}57oiLIj|J!T<wB_wa`R1_zHg1D7FaD?hiWj>h4;T
z=m6xV%^X`k8w$724hDMb`qQ(%0gTm79>3Ov6zg*Z6CagTPOhtxECSdI`Hig2RZfW2
zWz5#PQUi1)vb#m2UxgTp_}#XKPBQx<jqG$&SxG)OZHn%m%8dYwRSz~2*2~ChPq@vc
zX9(=IB{$5DGc0cqFYiB9m;gkSJC!XJ+GvZ(F(55j0`1*QC3j^L=aLd{57gxz;~ulw
za70=zaK2<%Y*O7;5UsdB{+k>JQ}o<r&#z@heLnQ=iUFFcKPT8Xoavj!AXAR1#jGt*
zI^DVo_`}WZS7Eg+OTsME<SqN8m05N^^rg<~v`VNX0?huwg99sYP`V@(vtwX2lhTY5
zzVESQ{R>t63aR?B+3r{&B{h6bQ~^EVYS;bx&zo2D-&KTJ|E7Cm35v%1E7l+%fB4T_
z$PKdt<v`aoMOp;@bb$Mnjc3%oA<pI{Jyl^yww4mug?I<jO463P=_5NfzyCk{*}!LC
s{oCf4&R6e@iy2%0J+1sdZm;PlFSfrKE}l&6-n=#P+kkVe-$dX1C*?~cr2qf`

literal 27615
zcmeFXd03N4w=Wupc4!-E^>Y9O+BU*RqaY$6Aka1~7!gnz!aRt8j1e$QA%NOq+cIc^
zAY)WyN`NrWAt(wRrl^nv2uVZ&kuZcQ1PDpao6z6heeQnt*?--0_qor>^GIU7RrRi_
zwbpO_)~b4R)y7ipTg7idAdnp7(y!M+pl_l<plvsH?EqTn887F7uN^n6EPn;QfzO(G
zO9Jq<`}QU02oOm5q4eLDw21{@5a<UG<kt)K(YZ4WMB`1UJ4X@~WduI9W$T3-JAOQ}
z>(c4ue;Oo=`hvDxxbywszMU5bFZ`OmMSFbLQpXl;w}0&X?ZUO?t`k3+ZaouDI``e!
zk3YTm%?fnzs*c-<@ZAvgDY2+Z(-xX-2k)P%nI0^S@W69Qi=ndw+6W6<gBw`ObqG2v
z6Y&53`G02z+N*>-${U5W81YRD3{AW269wy!Ul4Bt8IRocm2Ul>a5wmd&a(080#;SB
zUQ(VT*<)O^6BJo1>d}&kl<0H(^Ec98PS>`2NWT*gp7>WoXf<GNwB>SHSN+TFdq6Y4
zb~!|qiQVBGZU#jGJ&VDcI*UU1Z@2`?PBpR_k+d{gwq8$ansZ{j9x+gmXyb@j4`T(%
z{2>qW#}$VteEjR?D0n#EfMSI^4E4<Y$Wfsb;1CWpytrbWMS($i!@rmqRH!&H0v1=Z
zlLYG+T!Z~#`vf;p&!K*u3?#)J%PXB@-FA0#%kvc3@Hr{Mnvt^E=17H#2TEsKyF8&t
z5u2Q2@9CcB;y!$v(bh1gyO_kCr4(9~L>Zr2)SXq_39NB4Hro8_?bRbHg3-^0b56)x
z2gc*8k6ju4U1F!~HomY<5~J0-dW~qAxE5u-NvH$QrMMGnuO3|4iOX{(Ao9YBRTHkd
z!_b@~15ktQ7E6I~5te})g@#>yOX__Rh5qW2AOT!=ePcM+R9$c5-i>lvSY<5N2tVPJ
ztHX(lVtzhirduHKSKRt8z-*|BKzpd<A%Q5B1=R2)Z3_4?FMc|_AI?mUhcUd$AB(TR
zx>#gD>h^Di+R6y8nx~+#pZTv&B}>++@(-A23V0X?b^YE!#-B}drxkcOEIFi-oI@Wn
zIkW;L#wYXMWGec72yJk+?k7A|lvEw7HKHa8oVHRfdbH$}b6!tAj59OlxViGF3Y@rw
z9qV&JyTWN)i6`w`yyh0(7#E{x>N#zgkr+iar0t=48WymOsZ$Ngn5l~r(RYAUWsUft
zps_cxTi%M3va(!Fx>~S7eTL++L_vsLk4f<Ic}&3S`Wg#X-S)7zv^;5ks&yapp>cUc
zzK(mtI?b9Y$WJ<<<Ts1)uer;7g=h2)MqFR=M@WW7p>1&a=V45oV*DE&a)|%3$!I0J
z{bRl2yh?>upvd!&ndQVNW7C1hZJk>ZPYwO~ojfRUcK(2FJ+X3qB<U(Vq2uJ}05*aC
zy(0l}e_V34BRky{-jX^yJ<A&XK0ahHKyKPGepZdVG(9~dY2$k9t`JI_t>JMUv@zJn
zN=J?h^Qt=nU8jum*Z-|GCoGiz=Yo~<03czCQPmg+-l8BR5@YB7<eVQ_le7BvXh;J8
z)bz6Gt^%EP4H;)cB%kfoBKW`yQd?PFdTs_$u*jcdaY_8#h8~AKM<M{ZjVENL7+IOX
z)%1@OMRd&6@^i15R2}=(y@#)K@0qi1kGQcp#vD{l^sfKBhjTQc(I}|1$*=D-VSOQk
z)U;wymL)te4K$BgT$9f_N+cdTpJh<MUskAdk2*tjL3+?fh#O`fW)xnM^TYCW7}1?g
z`1sc9F~1n-&e(?FT?#aWEoXQpxeqV|rE<=@B&BWru>^VM&!>E1I+GPA%e~`XG{;#G
zVL2Z;bgZy`!56|j=d&S?ABgHzXeCzmH|ZPSk80V}fD|_jG{0}U^?E^7*Jq=HVwJ6Y
zePb~<p8Wiyzel@pEGg@bC4!Y}`VfaG`^XuKNF@rBN8+PxFfl<-ncfzdl(^Y=Tzq(E
zle|IPDP%c@A*Ra5aE7nEX!sfwb)293VdHibA*;rx<$bP;ALGMxsBWs+(8h^t`s2BV
z@V@oJODRh8;!JqpXmEQAV4Sm!om&8z+`XtX1XaAv@RuRgJe`%XBzUO5Vbw7&7aVJ%
z+{8H4qa7hp;ABPVRz~%GU7|#+pTA*&A?Ac_O#2;8s2fim(@U9nWyr}t+?{7q%zC~B
zc4}qB9iM+d@h#EWn-N*@?ELID-N5xWg)ZWq&IR((s-gpax#PFtG(%D6chR(#Hw?dR
z%-QuT+UtO_>)RDuLG3mRR0TT54*BxfpR1xIg*-vXDpzbFJ{9o`d_Y0SbQJaEwq-it
zpI7l*<bte2J9GSlC4c6cl5?s=H4*E%&7JiJvI%AHaGYcZ^Q)`!x+@Idyf)Xc7v3p@
zb#6|`a2uAqfy6{{;8g_!uqP2Ksm?zwveNq$Gsb}9@>&wrxuRZPHT&8Re_yx})?Lc|
z!%(Q-LgiN(o&DlOU(52K>g|<!^%Gu*IJw8U=9a{tpAykYn93C^H93!@^-d)`)Jw(a
z-H-Bkvhl%?vs$EpTp>@@Q01OZ66B$J+wU!@)U3CK^-qsrmHG^M5&9n_2P4+WHNy%y
zkDDWDIDhK+V>#XDnNuTu6}(PMW#J2jE~M9e&WI<{yyN;w?NV{;u?<N$tu@KN+yT+J
z-efqQW_VxlXu36{ulF;fpS=7E9|rQ;v*CCUG^8PZ!G}fOsSR>St6&a)U!U9BsZ&GU
zC>!g%Fx?d0-xkwjd^Cg^WPHw_RqP+knjww@LJF0rJMsn3eW~BQ)#(*-1!kcyBo?U(
z9l(zHz&So8{=u1!L|q?NM`~;vRT~_*a`H277Pk6LuRksdN)FleBX4lN=k9@)Nxity
z+$tLvj+^nv$oQhD5n$)8?3>>TGJgL|&QlM=clgX7#l<=(wcvz)y*aZ@SrP6={;XDf
zh^MKK&}J=av@X-V{pfVxpmL8*OJqXnn)hU6mR`^LZsnNrVn;!K*eGr?nLu10Pdagw
z>Vmpi?84)m(T-+l1tI@>+pvbj2L!qbhjjF%&Rr!`ddrRWHAcbbuF*}+II9K3pV~5X
zCuedRX5N0R*9^{`@XU-8`z*XS6pH(HtYZuvk119D9wcxwsf>;3ku-=|_Ntyf!W5jV
z&4_&dN5REDN#UPqdM9Tq11swK#W}DWWwYWdyw^cTLC>pa5|+1s$|mqw)zIgV6^h);
zw*^>FoR&*5uR)o=aUdd<z}XSlG@Xl7rT;9+yTKIB=gH|#r%vc-gIL&@E$a=zFC-?N
zKixdg*&0b(5|h@biyye}PepaI$G8EyD<<KKoP_+U1g2t-5a*dyBk{-P==CNsSWkoa
z?YXA(iS>vTWzW2tM^zd8EM`9-5(qR@*oGaem<?hKapbAz#H#*B5shn}JkyunkAACL
zR}P-_%pf<DM#_}VP`;1t#qyRFkQI8x<T5>LGo$fUPJe00u<7UwEvCaz)So>7BMcAb
z5K5_j!7`r@GWad9#)GrRHS|w}NCA$l@;=0K5sFLK^e{k7j5W|Pj<F%e7`UC!nD(Yx
z_lob>V1&J;u=1QTO8>?c)gHh&g6}E-0PxfLof=sCoiB>?$-Wf?H5X~dn!($fHLL}3
z=6<bVKD2CDQ~Dv#P4tD@J^bWw@2~);ThGJA`)sL8_O7AL#cG8#mJYdC9kUl*<xii|
zW{ceT*?RRDHxVh>)HWo3SHegx5|&%T(~4M0nMLZ>vl{AXjX+#UW|ifwW~m4PB%&Sz
zC|=|rU3$G<^sm-Qp*lXoht#2!Pln?gKl7`TobN&tF0L&nCC+m=%fddn!N!5s+B);8
zadn}7xKD+hV%t_p6IW;anf^db#EMDvIw6T4jTa9yYR4vB<(;B^El)0vFn&)cZ!49e
z(nfSg3N6Fe@%x08<k_Y8Nxg)SNr`{w%CtR^*x%?AOHZB^D*f^mN0XRVG`sU@a<n<W
z5SoANFzp<m)XJ^#HOH+~TVFIM@b%<sx-0ULjrg%?qS>bz{23Okb2Tk*z`rKVpB$rX
z9P=nik=mV0;cb&U)(<yY%vWW7AD<9p{<A)E!!Ptq!$IwQyQM1A$>AC3;$h@$Xl;Iu
zqi4RZ*p3>*cpUC#zKie_)1w;V)f(gg?faTgIkt4?6MN_YHUaA1+8@*9@oLONDUP6o
z>~(qdvYw+$__}F!-&E}VzJ9T>aafnS0>!J29p#1WO7R<>+QMr~`aUH2LqN+`rk#>s
zNN7?0<Mr<Oz;zvR)s9vG4GrwbAy`dLE~l6lGy8ZkA|fz5zBl_WqShaFyLGB70aF8;
zNfb14F$T^o%vm9?BxVaQGOp+_GG!ac)$7p?kXOUGq3`#)>-k7tCjG$obv@UWqeL|(
z#O?7pNgw03U?o*Ezvz#lxczcw<0-559kI9?Y9S+l+7f9nj-)UqXC#FH`>LluHn`o(
z!J4r?N1M@a>(-~lI@68suVJ}kIp@T3l&G@_Ymb~A$8=350V_UwQJM(sz=y2Hu3J(K
z=l<X#l-?5gsd+2ITsjWn=xLO+9+{0({H2X<pAhz)h&3>;H{%>sqV*PmtHH`wM2sR7
zJ!t-iJwBe(kDU$eq~{QKEJP@_QHgn`%&WBXwy<#nt=2N5hOtbo>6l3V@AYPGtuMxk
z0yE1aM)%-$>TihdltnK3$L<5{<Mc#(^&SxDd310Gw1gPCc&_2thn9ej=2UfqID)_v
zD{rtpo&%LMth3d~{Cd)mzuxwSs9Vpo5a=YlaYFSm@ER@&Z%u6A6RE^Mn5_9`*kGmp
zq=CU`*)&y-C-9Yf+51p&>x%}1R`s55ZOu$eXH_VIv%fv}KO4svrckV~l7UY1w^hNM
zx|VARBi{%1H&+e895U<c6lQbykLA2sCvyn9M^4Dm-WoWtpo|uyV(%o;PAu*0=x;o(
zSC|6Yl{s`<?tIyLf0A=qv3&xRfQ`L2&WsMehMCHX2Gsn&_!xg|ljeBs6=Biusy2+_
z3mdH<P~_eJG_(6(O!a@(BQMxU!_3y_(`Jrc)+5?3e#d0u2lv0>&a(m52Lj!e6K1+^
zuBmGhFp!~bHmqM*Qy_6N_ro=zS<{0mX}83K{&LLs#!kw_7geGSX?HLAnqOsG-u_4R
zuN^B*ubQLL$TmN$$QC)VUryQsbn?S{${1<9DkPM;{HC-`))riY#&Y1`5~MAhx<mMF
zv`mJ`M7qJrn%i(Mp{HxYqwlt8OS`u34U6M1r~X!-;F)L4iT+n(gbn{?>TeC?G8?Dy
zbN_0*<HjFQ-hErUqHV3jXFH%;;A1@0hmDE?|0&AjvPq`@>e)bCf6B!sofdfFgpN?P
zztZ>J{`Rn`OC`o4*+{R4bSM%=bIZQ~crWmYdw}fGO3Vtq$_V4GO=mb<;>%HvD`udE
zuxKT!a=bl1?RfIe${hFN*tm{_11qQod%RoZK44&_Yc6f1$0B%Q!K{IQ5L8wq8Cp${
zRJ<Ku<gV^xnn_7F57=_A6X#1~gW#jPd`w<9Blu(cI=2qZR=C6a4LNtn2xbJSFgT54
zCRtN9y7SdVPSV$OW0()jK67WQhyE8IN`!^tbdcg!rlzH$ycexytq;aDS6%<$n^|?r
zWA*Lf$gdw>`ep+ATzO`DD~{8z>}<R?+jDZebY)IjTX@`<2utdTJLvP$hM|rX?H1_|
z5GXYzQC5)hy108&OOEM!(T91-PrD9u%M||%$SLE>jvHK*{qIQ1@C(^E&F=4*v+!&1
zTaSHmbuErb+uFGY=Czm?DNX1V14mEhm*|}}Y}ueEClu>Da*9U$wQ#$n9lZqmfR4sR
zBMlxd2W2BGj(>J<-BUc$;Q9B4G@CkJTiK7&9*K-DYw9815~V|JR@3qb@7=ymX)`Et
z%NE{B^!wj^loi8HN*lZ$IKPrv+us)SA6EFkw?Ww{a!c87T~OkObHwk@g)MSYERV=6
zZsqJ2ZKbeSxaeuu`7n{WRQ$x4?XAJ@$d0zKT!mI!oY;;Zbv#*CjY4E6W~QufTpD*X
z{Ul`pph`{?Nm2Tv{g3?s#RfiQ|NP7T|2H?3Yy%v}+BgO)DlBx6ZT`tTg;x4B6)0a}
zD)vGX>_owEu3G1+8~;5?W)VXj+gs_JM-(AWwJh}9a3q}@Kq<!ZJg&<yO1hxXG+t@E
zZ@+jPm+7G0O_tg5&=1~UzT{mc+~%%z;e>j<UkG7*5yf9!82=(RCSF#(Yu~YJ|6yL6
za+A(Tu_AR0X>ML3BvW`$e@A@Y(It1enix^AbgL4Ze*68gAkS`AwY;seQ^&JH#oi=n
zal>2g4IU#e?Qj|m3R{>vO%c}^b}3inUlnoLYXV22!>sGozhsmeJI$ufjCglEp?O^u
zy&`W<w)#`1*s=@lEz!`B#nleVxMIew5^v{+{wLTnHKzUuSi0?%x-^y-rh{@E2er*N
zYl|KET~D@eEs2Ry3rsUg8&hpv87oHei%3hD()?VEf=s4kC*4}3Z0g9PH(8oESUJ-q
zMx4%V+!rX*zSI@Ih$ifXN~td;6BGtkKFv;=xB~dJ3-D-I(TKpfQ>V?I@p8SmJX5BI
znL|4>+}l;=A8`@tv-e$(a6EBz2T4rN!A)WA0mAHsYAXelk<X3>hqSokn=QwCSKHRu
zWaQtia<z|(uuxeVecC0RHPOVfy~m=p#OS3_=x<eRZ9rCF`9B%Fn5~oK4^6|HntcLF
z_<(%=yQ87xJmc#4S$d|k3?VArwlXP8liXDZJ*8XP$4j10oRKXPbWZ<2lx3;Fp6Xht
z*#1+dI{U56+4-u}(SOL|lh;|l`+s?dZgd0fBIV_&)Uf^|52Uk#aJGP=4m)scMp#bB
zn8)MFy(rlfKWE$;+6&7L#5Da2ek_5Gyyt<e*Z>FF$d*)KbF^{;S@C~wFg2pI39J8*
z^@vn8aCU7aL*;X7@khN|4_F@AH2rS?(;q*0JQaTHU6r(B;z2)vx5|F}Tb=notnhzt
z1Kex)o67xjb|yt(@yF)*XfwR=TPLZAmBqWGhkv(plvjx9%}F`0B5j*7lm;j>2W?!c
zl6RS<gFII2sJ9G@hX$lz#=)5>1e76c#OKfdOW*%r1D8?d%+_0;@Eh=1ZX*}V{lu;2
z&hMYz^rCY>K%qk!Z9sCx!_oT<SKe~dux91rYNOhDu5`VL&yIa&c*tY(p^TgNyD-Kv
z=bM@vW8L`Oy)!Zouin9n9EJj=c&^{W7S9q>y|su_{`UA1k9>@hbo`SSw_DDa$Fc{P
zZ0&7J+S-f?$2hkc++`9*s7{C3nY4MY%u!SvO?<`<$_&OhAF#AgH&O54Qt{c|FGxpz
z8`lasf!gy>ozC(Ut+Q7#IU^D@#rm+F3<4{E+TQwDP*S=AbCi@f2cmtBV)H#r5P|f9
z1}9mlulyqIkXX8+9U4|vOg<uO9J()U<lD{K28Wf|{=G5kHWoR0s4H6><6i&%FN;+N
z9L~VD4p#HND%6D1=JnV|h8UVQfS2I&1BoTgRGrj_jn@*FaoMgSo&am`7<oGJk5DL~
zV7=KoHLQmlLQz&H<4fWb(*N35soBkJ$#f9l#boxHfxT*p>2<>E^~Xs$c=u1=kE)c|
zl(#h>`yk5a9<oeXd%^v5@vscwW`Y5aUnt_<mFxM*4Ovi!FOQE$j~~UVco5=iW$=;s
z%=b~!>=F@+$L6~zOW_miiM7FtZ?l_aDn01CgSWEo#@{1%jCTsx;@D6c>XGN1H&pq$
zqYEbwJ?sF>+GrZSdPLfJXkvS7PuN9%8_CBZcjTOIo9$6=Y1uz9#ptSg)bPdN8Y?BW
zebqa60iNPnk$-maxq)holy)T+0I`c`6g2!GxJKKt0dLwk^NZ7YfC4NmaCMcNE{r<5
zwTx-gw9`%>0(!TfH^BCfG{8KIbHlr<gN6@fdc+1m-Qg4s3Qhep<ABt)BGl4!&bP$I
z@yW+iq^CHiX>zdWj(%fatCSYzZ?M&)-h6ZTWXpH;PZOi~qfH|Q0YqfhCiL~3`0Q>1
zt4PJv3i^z{2L^+N82^_Q0+Ht5iSU0(69=8P@T_pgspn)s2%0{k`2=~3pUVBh?ZPP~
zpOv{INH^JJe8qwifh9X8xFMIe_RC!5=kW)4f2eJ_R^G_UEQOA>buhb@r~j!*stC}n
z)<l61McbZ+n{&@ItK-#jX;`v-!gU7x-IC0oW}JO?mO~vA92v#lO-Y!*U6J^ecJ4h=
zy}G@p-r}0<4J*kP`(KOh@MpNo+*C?W(TY1U)}muk4v(9=rrgl(B70M0-ZuK}RC9`_
zBg<8EiJvFeW0<QqoIoUvFHr`thoP9Eq~@W<90&P;T+dx`<81P{G?YK*{mf^`vC2lQ
z#LZ)_zDi+{{18gp`)4)dZXS6wJz~Jl$JO{T$rf1i%rEuBEC;*`kSNW_(f7^U2!An8
z6e1`BDABl%*G$p2R)LkrS9lvf?4Y~;7_>UU^*){!lOtskZJ&@hmS^NXtJ@blkUz9l
z-t|dnX{O)k8GagiO~kH#>}A_%&41XVbpsOWjEo+>2&xo@M71O0_^0H?W*MBLQJGwc
zBM+xykG#21sM7_UeBH|RJv;aD^kc!ReVy{B<N@-$c^6<SXwtZj+p9~Sv59IPkop=v
zrZ1>@W3eX<U%}`EN>#YI2#oL!VcH$`vTk;}>e`={u^eNTGnytx|2&8turV%2Fs40v
zDtujY6U1xo;iMB25j)!Thbs~VW!#5Ke!JbKOOUW~v8(wDgcQz1pKr246ywKZ{NM}q
z_T4UGzr`aRHA-8VJr;`cAg8Wje+<J%W$C%pjr+|c8(PGTMQZ_KwL_KZ?4MUBzN<M0
z$0Hb&E!x32-Trev<PDQMV-F5{D9>+guXkcwQ*ET+*WfLBiJ809hzKw*L7=%66eZk!
zfO1>vm64b8NmX6esj`6O)jb5%<+$~fJvePgZC-Xzd0Y89l^aX3!={msa8$87ZA~Pp
zPp3C?$rztgA8!YC1T!$O=g*91tGNmkNtrn8fRDJtUYO*Hl_9d%VMWc)BKr=x!6HI|
zcff-srMa7}&JP=0{voxx_E7y5YwBM8UMlheE%z>>>|~$J7*BTq{^aRsi(`JM>Z9gO
zq*)%7(P=NJg63yJ&!ur$ugVMmUdr$*Q)umSNXx6$F7;@A6EAt$JoZ{N%I$v2mASwW
zzw_H@V%2&bM94At$Xn)Sp;tT|V9KR3e@%3Um7P#jIZF`_ST7?)_QE&EDKhV>R8KxQ
z&y2u|8gjl0o|e`t)yZZHehY|KUNqu4@+(o>wvMb&D#dAl?|K7AyMv`GFRho2&jZx`
zQk_iBncY6$v|<1bS@|fw%eKzU?D{ELJ3=}Qy?DeQ_KF4M50bdoo36O>Th&&kflVEz
z@lm|(^FX5a-`k-!b*k4)ytX0R3fIR<Ioe8pf43*L*v2Fwgul$K)k`H@;HPsFY(o%!
z{6|j%H@D%y-sE#sJDkuVD)+o3i!}a)3&WaIh~=Si_QWVhGvgb||B_5M8dp&==ScWk
zGV5>88mSEK_&7GlvyaMJ-ZYg1z#$%PuVWgvzck+t8Ia=Bc6K;wn!6L%V_6}4mzV94
zh(}2QswMF^7SA;`&)pPqT#f%4j6QS_0D$Yi$P%c;k12%B(h`XNYkNygo>SiSS=Y#8
zQc2qTj{_8|*nxFTbdx{NO$s_1;l}^U#bC9eo+TA!9#94n(JeDa$2YI2pG^vkTACpp
zCkInvKi=pb-WQLJom8YJyo&9AjV$Nh<EC0F*ASao>;)l^aGCEZ-7kHIlY-CAR@QaG
zi{|$_E3EP@JRcY1(eiaZw}67faaNv<&3#n4hAdmh`y7;pR-mk-lX)xp2A^oWayzQQ
zsBk@{l%tAMfr_H}4d@W<ihgYTt;LOdNeUmjtW^wP(J=hV5^&rv9STAWIq62joJHLL
z=W`%Bi5xl<s~=h#k$+lWN!>nm7~leXZSsjPj`b4k_+55gaaJA8El{B_X+nW{4LNX=
zejmqjcA`jUYELzAY!~|2%|@La{ch%SvX3Aeh6yyQ4{Fnfp6z9e9&<-Y^<D73+k!x-
zbt;lR*tnTF40Uw6yc&xK^4%+q#<P*Yczl)QZ9%?dBDbnY$O@gjCYwF~H1#`X4v^HI
z{q(%$y)|I#ZaxxUOB3Rqey4#h=IV3Jkygo7lTsipxZTMn;}xYuKhZ((giA_EIIx^I
zgXK<9VtTZ;dl?*=Hv2&`dK+D-D1J5hyC(L4`YaMT5&KR^jW!MH`!eOzu!L;0gwvmP
zwT}Hc4%klFD@zAf<;;&6pFaYnC<`56om}n$dPPIdz|m*^W$NgW*;?*^<t&kTjZ8E0
zEBDbJi49O%DWKpTx>8P4(O4eN^t3EZ!G(HK##IE3p$K{vhca_sb+vtG?4&Nn+0$@%
zccRZ(U}jY6_SPu8hw-PzmN#_c{qs!XI-y{NB`o2{SHvSao#b-^CGV+L^h$Gz&{A<)
z_qeq1Tp5%bzdn@*r#eroHh$4+VxxRBL6y_VaC99J8z1#aT+SUip3<V!8jcm^P(q6G
zS=F&0UyC+K7;?ZYA8w0TCXT44IQ$^p>dI^YnsD(Y$L?%!x$cyv<EeyhrW-QuQ(GjT
z$>jm0Q?;yuep*RTjJ=Qc5x1>RardIT4q($9X<5k;5V*MBUY4oOI7#uCd9w_yPKG%U
zir3xDqt^=MQkQs^Sbudxdy^NjQI=cz_`Hz>2f&qj01wD?q+#O&`k%8Hx0m##vUtfW
z0cf4dUDd1i1pMR@$H|vh8p`;d89#81PQ-afhEjU433etvo#%EcF{f$TuP@7n6#_6>
z-6rqQfVU|Ry($Xg59_4@u(QbBM{!s3yO{7I){dW@l(ktBF8HRE<}CSMO)KmC<XZGn
z<}K+Ipd+U~6XITn$$k&L5KXJf0Jz--{I45VkAdS!LrRo`prpUtCOg>7m-{@&k(OO6
zsW)nU@fU|FtlGvLz-BrM80}S2r5<Mj%o=0+{`?Dt1AVkU-Y!VWY8)7wI}wp8xzDXZ
zufXhu7G;}=Mg!K)pq<_(7$hyxppv5Ic=-EdQ>deDUM<Xp5%zZwHjV<nKt}P~xnJa#
zg#)E4QOWkQ_|%?%8Zar5-E5a5G^CPc29zz0{tosg#Unh^K-QR{sO>yOob+#~3|Ih6
zpVBsSr0ZPRZ$`2`SV;zgfVNFt8vR$|fua%B{|V=3?Pdp3N1|@o5OZwnSo(i|g;LRo
z{LrsNOWQh6<G;7Z*v<Mo6kjm`t|tg`xeIn(yEd!5`qG#+KuN&V+LkjN7_psIJF&b9
zrf%JAF;@HU%W~zXr<N5UBKcx2no?JsYDjD@i*>dP?OZA1CL}w_pb=QVUpvAVPUadE
z)ib`9_{=e$dNpukC`cU6qD+>=0%1Y-b9wWtSU0#Mzm^*TAbNm#C1RS}rH0&8{_Aaf
z6a~jA30dcDf}Jv>5;}}ps3S5J9eML=D>ER|0pOxbvc5AKKH48;zuNVsw+nzzSxHsK
ztw#4c*l%G>y|=PF4I~S+##n%{`X@h;HF?=q{_8YDF=z+x_=uBJ+zmLLdyN8DqsQ09
z3NFDbkL<)oC~*#NHBj{aE;4o6z5yum(`QgzUWWU2P^C}u8f?M=$o`nz57m3NfI9a?
zlj-aQTWr3AN&Wg=ZYGYLYQJY3ae;py;IaLGj#nM!VMD8=sCJBklTC5FwK5i<uTJ+o
zLslh5ATJVN1_slAaKq$uC3CK#i*Ovb`vj#U4tDGLv)jOF0pm4LK~uLp@_3@<A_X9Z
zgc+my_r+$SDJcM9bF^CyfxNmJFH)>S!_hWIQ?Gq#)wex2z8r2@{qi^nCPt}(B47J{
z)9UaLr*41P(ceM7+@tMX?DN@HeKRXW22hA2C(pW1tdSGqg)6gS1lW`pL!OqG%*$uG
z?*LV9Gg)|KJ2M(Vc8^rpBh4n4+3IF7!@eMpT?WBsaA)xdtFHDZnKB$dRBvNy7L7<k
z|0;=<z3|=H3Q!;0zsmd|&0E7;czJ*~{Ch*z7G59L?0Kx%(h9q2DJPVV1mvogr_$TQ
zgjgke0d~%?PUOYE_jk9!4Cv7Y7|A#+0xCK4Z}xsB^H$^Q^=Cl7bIR&3vpbO@HT<NB
z!}?#m_)XkBl(DD%GTf}>0N^E_{Wnh8<F<Khka+6*|E!o^QWaVq$q8g#^66V#`6g|1
zn(Kh}SZ>N@pPXt=8vQJ*<2h+$Y=WE9HJ`rEqKYJidX}3>K%np&N)R@oWG~dy&g4Zi
zZBU1teRR`*)Bsu9utqiO1kzH2qdeZUt+R?;(qH27>HB5zE&eDM0P{_>vON;?DCqz;
z3Q8;03f>h;`!)(683xC2^C)#VVug*$-)Z3(B>=rrfYa3fz`>HL^tN}f4E}Aa016rf
zaL?ESBA|w8cJuEj*J4{IANq>*%x<<N<!|_AjI62eD=S2Nu@|oXT@@?<!31jS3?D4=
z&EJ`?c3z+)6n<ZBxygf%0vN06-$k3C6syhJ;fUobgCjj!M@#0+3@2+z^<)PL>r&m!
zAsQ~!nGyI&wwsMf+on~kkL|>@*z;h!;CN3$vynYeL-K+*9xH2&pnaEt$IiL9189f~
z_T=YL@b>=7b-eo&TL(!{%VQZhL>2*{s_4hgcPG?0_uZt6xjE`-b#aZc?XP*E@L%{?
zh_Hi_Mm{&!$bCj>AP*(rk_0OPtm>^@WGSajGzkXsgo>3a?kLwoZhFz9u2To<kZ_ez
ze5`h~Z!A=9Y(=D&Cg?Yun?m|F3dLNcWeD)M*b*nrg;piQElZ~ZDyl;_STXhIhY#%k
z<<Kub{Ot5r>sRWLpCfg=Aww5`-gj`HvxoD|ea^qB-n-XsyKn1{Kg{1t{6Sch_+!p*
zc|SW<^QO_W&Xc0?<#T!+SE8(=9DsXQoCtTMHNUsiu6PbRWr`G(+JW*YckUTz*y+TX
zl6<Zg1q~UKUPAU-Ron8S(k?Adc?>%X+PfDIJ8DEYq5PrwL>*GT#_^Z1XE)Qp3GQpc
zo|<zBI#O4zw5fagxjfr8{35Cbo%@WvSeEuW6yRAI300S~EFCi>dL&h~rs~BO9BKoC
z5;(*Q<}F-grhLbdzS{#;@KX=8{Q9K$*#u{$bb9UC#DS#HebR|fAINScxlm4_bDy7y
z<x?S%JW)LUa@KKF@YE^Exf<i@s0iN}ElnP0R<oxV7+TxCsB9T9s3^LO>MG9C-af|^
zHX&HR<^L=9`!wtxDH}~CB@aiTTLV6&fIuY$Q`>o4Gz_3Eu$1a3tHpliBCP0&_36j)
zD7HRfVjC)#_)Av#vx!+G7t5>-mF%O}9g?V%Aab;rnxyG%pcgTMON-SIgB!n?qS(t2
zgRLO1Cu#>;cb-`DMu~nRw%i<E!V1)4+%JDx;%g|EI3Im4EIp|f&C6tC9RIn5fy5IU
zT2GMlaDxuYa&eKz%W<464TFCA(9iDj*5PC@E8qoC5E`jNppJ&U+h-_V9am>$R7DHv
ztb8kN!r8F*3ZM`BtWQL9u3LQ80!NrVW$)I2{25epR;S6!5=FeUNYfb5JBns&%GLR2
zZ&+QvcNXH2!@jR!kdKQ+96HcyslL|v6Wqa)5MN!ogL>N{yXDu}PL176WjV@D(9b=4
zO;<nX-hR8@_|3bWrt^0nY}W?;tbP`tuExdSTWEF;L?u1;_!Top=lDzJAzAvKHj9s$
zi+3TW=$kxWUnUy$tM%pm(V-7wCsD1<iyKI}dYMAMz9`z?N_23J56tL4NVkRC;9Br5
zSo$RTeB<KA^K`aA)j#ar(n@+xQ68E-ls=_d0d?jyYb+gP;RPGX$x(n5QnPrFeR*C5
z>MWkDCh~Kj0&Mr<tYTo#S)&tH=+6j1hhbqTo_dVK<;9gk4HENVF&KfrTz!fZ15u&4
zMj^W8xREIZW73)0mjeU$GL;-N@G8}*<#M$?*@WZ1?Ae{@8M`%6A0qA9$uyDzWG?T$
zhN`rCBD}10Un?aiDa5TKwgs?n=2h3CVGinOI$Hsv1+*0xCUXhbP^xtwWW~G}_p=q>
z2r<sN{ws-Kj-!|g`{}L{G=n$_3}fhN7+e=lr;CX0C|7V31jRrkm>HiaMFe)IA3kjT
zx=<#ceb7&Dge1UhRG+ii+0&v>-?aj{x<buK^hTpV+5_ZNQ&e;-+SYeX53+(i?-{b4
zcM5%;aNUn^Vw1XAe6qhM*Z^x!p8_mTNn>Dd*-bl?rJ7;kVv9exsr6;OY?iV;fGMHb
z@11ik1x1jy%rl31D$mYfY{KEFDE|e&V2tfzgIxV)#C5-Q=1t3SQW(U;bB%GKr+d`+
z@goK}#s?)-8y@yDmd!_f0Js9A+JrQKI-13vfM|KV?0u&3h~Wxe>tJqj*RqdA8C+2S
ziX%{QwVRw^JUK(IXo{2~C`j>x{k^C(a0Fo@q(>YHM@1-($m&EO6F^FBNOe=gc^du)
z*^Bya1@84QfXE~}QUh3*8SbRg8yU|&y#weCSSYjjrIBpfuLY&sc?iuOL2!wUZ1DOm
zV0S$s;<|<nd7VFG2OBTovW@VDnC7t)!7QtAJUB<OY*YJx6z#9%O#z`(uu%!dK&o{~
z8j$#pt}1MAxjGq~c}?m)`;5GV>eJka_d(GGn|0o^B_s_++53(Z6j{vAF|KZ=`GbRi
zX0nquYfmqVy!W@Jk-iM><=v{>to)R{IlY^Su8B6UqwH@*waaEW6%_bK(gYWLSGJ%d
zZ<5|zl(j#%*uQzfMft?$;y+ybR|AD=O?`ffd}Z;~*`){V8BFrD!Br@I?irf_S;@U)
z-Z?W15#I&?v1AI5+F-s`((!|;#l)e~tecMk4#I}aU+)q_Rze&5`{Zb}Bq7-F)~A%`
zi3g6q*>k6>qek5JJ6)F~`ceAUU+-ncicgYy26}ffiB}*h;@Z2-onIEx65^yp6Jk&R
z&vXli0Cmc)E6oZZbHg<@I^x5H8cE*hPP5fFt-u|X{5!gUmuZ{{yeCkDM3&DBQ}nva
z*tPrU=7@^mlKfdYimrZ+0jz(ng=aeDS38#-RFQS(04S**K23!$xDb4MGTuCp`l;{W
zc3!F6Gw0I=!RE3JqUNY+HEk+sYm&knVfitd%w}F(=l}=u2BS4)y_|II&dPq=N#BH;
zpDiJq{O-SR!(b7_AhAsabJGX5R*nvq9f+Ssf}@M+Iq2ZIQ&yYuTRq<-tS<_ZKZmgR
z7ETS>iDqC@g>Qmc)NjpFYf4N-15c)$bN#&k;a@)A(zJssBauekn<wKSW#8?*)nME3
z6-8Rp1>d#gjm6Ce?M7;E=xuw@M|00ucSthXDW#Yag8t(H<D<;Dfk3($iSViScV5m)
zyrPNBi;ts#_dJD&e<A@OjYO%d8y+JCpo0e$3CBnUiWN&#IhssS)2Z8G!ivj_J0Z+$
zAaFhE!+>MFQBd%(PE!$OMWAs!)Ik3#EyT`ZAyVUwoK$Ugkb6;aZ5eC}hzE*oNWj=$
z3Xem<Y%AU2aczQIZ-db1O-K{c_y&BYGh(iG1tCxzHA5p(sm5-W-Swi|Lm~HOWgO7x
z(!HoNZJF#t8pmVM0Jz6zu(i;EvU9HwCi`2_HM%5C;KgEF)O~cEA&CUIl9%j?RATCr
z&v~tw6Kl`FwvcK~5=`AtlY|^!mA(>$y!3<3LwAT+i^NCAX^>1IrcZB<gOz04e8pfl
zb1FO%g#gD~>6ROo^>?fb_$2o^vsXO^ib_*A^m`j3bNiy_+j+~)|2#pG!Cd8!|L584
zf9+i|tF~$ML=_hSL@xBBu*r5C{7r4k1r*dzl*d!GUhK^FO;9J9y9D=~ZT^uIfzH*R
zN|I8>RLGQPXcho$x1cDZ)#6i#!S<rN+qL26wMekDZX7wK3i+as5QvK5l*N_yuu{xt
zQ4e@$EiJv2p9fCRnX-`1AwEsojShXc-OXTs>k}!g<)hdbRB-T%3YN9hqztYezS3e1
z37@IzniLC&lGpT4&C14+><8L$-qrPj3~R{Zy~C|PwD8&xnzPwzn6+O2#Vm51+Jblw
z=;sLi6C{XwUOJsI7l{tFn(jZp)Z02H2fMUfI+n2J{~}cr71#Q*Ii4VhXnVQt#Z`_R
z@@`tn<DCZ(FBC|+&GCq0V}=G|whnr~Jj=#xV@zJ10hG7>2BkSYe4)u4qZpr+Qzo;O
z|Gv2OU)#Wc-XkRY&NinS6U`pF8ueSLt9X4${;Z651;<#Sme9TGYmR_l55wf(Zn^9~
zm@=Su>H<f1afShI!+r$WJ0qIYhj`?(Tfu3$SO0Qc)Mw>1%M&pU7$VGOaSjYi@sUBn
zAUJENje%-yTHNRb3#=60Bb-pI%i-QUnC+!Sa+sU+^@)n${q!i-N#>E+*7TTYvn<r0
zi6+Sybu^z{KscjblspOFyhqliZ{56Qy4_r}#}*R4_N^}fZ=b<<o5f_X`ibGE>@Y}V
z9iu&a?-gAL$3(FN5Im9Z(*PFQH1G3?jJaF^^7>&nbA?e_y)kS$0kCFWQh&NqwTTf)
z50XD9q=N}Yg(23!*#;lb{b|GsBs>sxUyboZr{z2eNTPHA2N|%v*MKy@p7eAq*uba_
zn~?16CfNivlIqQB2os}bs7~tK!5z``mDKB9l@g+w+26rC`}+EPSx8#f56m8I;(6n!
zxlv<MA3y*Ge*l0#FX*Hhh8>`hi8-(3>+%q1R}}i(9wm??SRMcpjwwigXo)E>k>9BF
zvO(*_DOlDW-Oex0<XFeHg%lXT1b%+l_!KJaFFgsXXzGtcv1}H{m`la#F){Z;WD4+0
z1mZv&)Y+ql4{kx7KS|;s$QU&HVpy+i>s3f^SCEA2xK%|O<0)GVX&Xj}zns;T*OERx
zy$u{q7f^r%A<0RS4HjH#3i_wCy<H*=LJdFl2$ZT*Lm+eih}yg}_|v9-3?V8E*S5&t
zVzsQpg<!H`lZ<7xUwHxyibF*i*wenzFmRRG)#=Tfu0KQn+Y^QV+@1bY(Kk`}+!>Pj
zK=0wLQ8S{^Pe03!<0>npyigOBJ9s;<A-GYhV31Q3IJ$Ja5MpChU3Iq^Aed0p#*4en
z(nntI=+A|zF!h*Fb2vf&#2W<MTxz1A_T~w-AZZ8Cf8?$Ifyn-MX}A<@05FKny8!>S
zOwthkLj<H=ZTL8;6Ksrj%VKlEO9z5w*~aM!0F+=_BxUsZA4naj(IVSnnEKk!sI(Jn
zfhhO#1{q)a`rU5kLhNmnfm&01-(tg@iAOqn25f7!C_XYQV*u}twvM04WV6Al{ag~G
z2c1h3HlfT>t=c5Bt}vOA{&?-2mbUF8{TYV?j`2geo*34gI5&f4#}Y6~u|zW?(tw=>
zPwSip3Fiuvm2^(?0l$fILUHW#iRXO(!3#pg8IbBX7Ss1E5m*V@B-V1b8Gcb<1_}Sw
zxKGAkntuU+#TI*#s6oQ04>xrhMV^Sch@v^h3tEoX%f$S84!|yx%Ib|z`=(>x|HPL$
z_w<L+*GiRp-JaegGZ#D4KQ<OPJ@5BMpiUj9I?!Mz)&`_W%LPaU8dVn0Osqz)`~fBp
zN3oDKyfy$8PnFY~BK)NR6l`cVagL&c0Y6lYkDi?LlT5I`Jl5`?$n?xlH>~xv^LYlW
z{5=!F%M%G$L`uE&efO5giDcdWOQ<09jAKNd6>0_{n)WnP((e^VrAiYOt(KW;a0~=>
znBp`cK(~gGO$5DLb{_o@NH2P?9l!AS!FvYU&E4l2M!o6H%ZDo2);aoh)QW(xVc*ON
zl$92w`yV#8_^R##bZbPK$;zL1cd86YhfWn^^4HeZz=r2YO?r-oCrIV;K&>Ts_)J9w
zh3yvh{$SJBSC3Kb5J>)2pJzZd=}&68E089^TXr%csm}hsU8%~D@EWigwyHY;+$6lP
zQ#rldwV{5bKA<v$Uhft?_5iY|4N-CNdDf!7mUhaup8fg0d}v+Bz?YdCa{tOK9nF3Y
z_AIaJwnUx(+P+P`R|PTi5fJPR1?ri%)NiZ}G0kB!^&FevC_DX-k#uu;lUiWE9!HQ(
z3}|i<)~Hc+QgKk(Vm~;|^mF32YEC|4@5xcP^ijWwU=+L-i!!D<P0WLdLzUj<6$v8B
z9Ky_1dM(8bPH})N&VzZF+Yv|Z4@<yjV`xQ9+hKabYaDZ!-CQ<111PTfcJS-Qgply5
z!pzA}R@!-YTsx<PK_?N92W-s<<@Hy9JK%+*fL`049P!Ym#_nY_WghXc<#v932$^gM
zq3Z+x>h<ZmAvRVqlCp6jB=k10Yjs1prS^iO>(@~3P>-02q|1wOCg;>A_PjP~!?3BG
z+z6Y;eOZ^`<d>@I!(n_16z1a3`B3N_TQD9EbeJRjMv1)+3=cpBRS;H27}R0II}Y8M
zPvCK8r2ATppYI*Y(S63vHwP*zHvs)0%4;HSAyAmXlR^==Y5wh=!)=Mq+Q9R};3h9x
zh5OD5;JH7_PMxu<(`V)3s5NsZ`Y6k_4T+K{ysRid#}zkhz%-8k)ah-G%6Sbg$vKT#
z-(3x9xp3&f^7Q*OJEH^eVC(RLL-aE#T2|qcirt=OB<86)UzfZLc6PRJ1Gp*daY&X0
z6zts7@Z&@9FuoAjHcYYj@ZB8LXzly@D+QW%W&uyYG^?gqKNCZfiG=dh6b;UYSngp@
z^rDM9?JlH(e%-Z*lBL00gP&zU=k7gtH?Wv<5kG09fxkFSGK6SVI7ezt9CfkXR(WW@
zEwFK->+8Qx10^=DUl33b%UW=sFqVrf%r%Ga{5YGpI2>%!bb8|aR>k>u=?3L%VAh}W
z+KoBrxWel+p5CX;f{<gK-o#?=gLg9q=+U?o_|a!)q6U6Zrm1C#NLkVlk=RBZD7=Nf
z<Ax%i5;AP<)P9lhPWB&YFqx>%6<rVgF8m70ve2!<4lV&>Zs9kt#@U;kCZ(QCeXBfK
zr8}|rcj+{s<Y6(8ABOupt^-Hntr!1DSCVl!5LoA8$LnC5ET~`(l4{d*e`8EziSLmY
zPGj1kH+~=;MwsFAE?LP~wQQdM-~1`+1~3?;8;AiLTnV2BcYzJHNT+^EAYMc122tU~
zU{A$rW$jCg-N$Glu4o;X%44J|hzg1w3Q4_OZ3xsy+p^dl5Yu$_;#iJ}e#kp@h`!od
z9XRcBI1Oy6Hk=WjiUgBdV#&qBZm8)KO(B<q<4=%IA&B&Jwm$^O)<qCgASUWjiFzkY
zyVRQyytOFwhAXN;%@8@Le9Jj!Az-@oXhV_D;EJK)?vR;*$#mL;4{Ed!DtM~Fp`6f=
z_+u`|<cU3e5T8=RRF@d2jkBb?&sfS&*)#j5L+q4vV&hN-_?L2?m&3_=>8izHx#kfX
zk|1?(lPxMoZ8)E832A%6_JOqJva`pc3LLDvZc*0<LontwAMl~N7BwG=ZAKDcbFoCD
z0CkI+PsKZ)2dIOyROcJTirf~vlyyhMd2co$z;Zz6GOEDNXxDu%Ba5AOhT(a;ZXf3L
z9gBF=7ffY{imA(zYt#*{L_XMR@wwh0G8l#1F}T)!MX)yD7&l_1t^RWANL`GL&1EIw
z@-w}`wTX23&jW#@T^n%CLByZG!|Tgaj+lhW!TZ(MZulSuTI<O#3+zzP`&{wNt(K42
zBA>HCNUlElrSlZD;b4LDl%4u)n*sS3Kx$Kqnn9`51L>a`uuVyu!!GZPI90Vauw$j*
zR7mTTs$D@pcU<0r@#s)_VNKh7v`0!TuO(@n`E+VFx&9!=nVYPyTu^_*6apx~#q@_h
z^`>*AEpl^q=+2m47_@YJq<it?iRkIhTLiUeTI^nvSU}Lr_Zn=H{mN|_RKv4YBCh_8
zvsOs%Yl2`B5K+Ca>sH44AV_!i4Mc20va-{<X!sLp4$}5)#j`S@t~y1~P@AH5R=I$i
zGv}aDaB}bErrKaFl7~j-c86(<Z8+m&RN+DEF8?%erX$tlIB6StCT~9`g|P0CQMh0j
zxa=PAegVSFS-c?GtI-u^btp|>s-aw5Q*$RFb<U0x@0@*Z%@IG>M~IatX{Ws~emTqt
zyrQ%KQ4@|(YXMVp>{TyKLB@J^Pxm5Gqd!b+IG4a0(tEl*tIOH~klIQ#9air9Yc~>d
z*@Kte2l79M9Jios=grasSD)9y_bRuPZF~b!q2Ur<&Y7S_Pm<8+*3vh~z!9*gYs-h?
zP)*aCL42r@MGX}&tr%E-VLbd(T(V!Otz4xRQg@c<MQo`~X{oJE(U&_=fUI8bTh>Q*
zhuSQnFAt-WLZ@zihuG_2_B{sROs2j#);|;OH2T@35UQ6Kn;HZf!h4sS?5-OHX~x7C
zjyh}PwN$uR#jPuJ1<_xhJy=lB&DjB{aPgWMPGlDOrewi+wSAS5{_aBN{#JPT2@8s#
zCY~p#xp`_~7<DE*_~i`k`hMG*iWJ(*3PCB3x*x+I#8+UI3iu<%Hq;entBR09`YOtF
zp0nH5n_ll(DJUOIxX`?|!|+OSYDt-$KT2F|-))BYUEk(YCFetz=Cnz43VkYe>zIf0
zXy#+6MvaCQXXms*wXgZ*hw(3G@cPtGq>=-e3w{LMkzbQX%3zAMRkjo`<)s|OP@|)h
zQ_>x~r-10E^Co97?PKhfc{Tp{lI62-XyLLP?XjBYL%)}{1UJTNS#dl+9DbuVUpNQ>
z430mFx3QQe_QqneGy2}<9K3q|RrSUn;1)FskQ>)lyZK`{nmzt{qZt7XvnP?|7Hjg3
z842ZM^~rRDpL%e8n5cnt<8?KX_H~Qyaz7{v>X2`CYqiMwfzg69FFW<)$<Edk<j6JW
zwpTBW)P0|?2487Xib8F~pj7onUQOvfmK?Um9>6q#wad;+YEI4`?`u{A{B*{SmO_r5
zgVG*-jGePn=QDF?5k#Y`a`7HzAh)jZjwu!^qXYlk?uKGd6DE|vO&2lMIlu|(#9Hx4
z;9&Z2W9K4eFEa1r?t$PS-!%j-y~)*g&0UYXanpCrJ1F$yozepse#O+0z8k$c%woE_
zVP(Sx3!)YDq93BDW@>92zLYNCr5)6IalrqOL_6DF-PEA>i^Lk$T3+6HrL?I3rSt6n
zBq0q6^B{}3&eOyXI{RBsD}`d%mCQwdRIb6B`YUgbU!PmaNmnw@eSTANl9>VzLKzob
z@k^*-^75bY4-~^3GhnU-8^9Ou!)@2jS&wHEg0kzA8P6v0gC$Fcd#HJnE#ke`)lH|}
z2XwOEKR2kdRkG9aM24dzTu~?jWtsY+BA|-8I{E_%hv?}le&<b<i`Z*&!Z&^C8%TX&
z@_u7O672P8nP0}>BU`>m)CJKB#v9s|meQ!eGVmu%r|Uf3)h(vWZB2R+OR>{Xa=7H1
zM2A|#;(lXIIICr>xho+3i1O3LA|tcUVF9RzX9t;KO8Tbcva%?bjMS@6bEeLUcx7a_
zO-nhXpZq1>&Hq`rYWK*bIJ@W5ky)K^EA@iVxE)y&Yj3mvxaP{YzV9uV($R<-s$lxI
ztgqhi8;^4diqn7XwqlG4f4DH=7q*vK_pZcfCydxt4^Fcd?EglyR0+fJ3zK*b2pN;<
zk~-VhZa>9c=>BJqzpu_C!#&w?A$iYC;gr)0&hjEIwpk~eZwf!a>#JenLu({wdXRyM
zS)ZtTBKe^W^y^xgT<kTUS_F#bKVd)z_!cDVFcz1TLf)crT;~wgM2{5ae01z=Ci?}L
zOuDhNR<WV4zyLWjd41Bvb?9N&iiWW6a#Idp0}8+9n>W3e)%(cV3RoSb{}x&&u%IpA
zbhoLA7LMph)ESU$!KZqESu!S6bNnaXy(v2pO;apr-pzc_HSHR}UoAUf3ady*+~`IO
zkO$06@sI{#3Zw>K4um9+)0gA?2%ZG5Q~!^(;G}CApzc}WIdYMZ`+S?X|I~^7HG^4I
z#~Lq(L<SX+eDp5IspP~~Ij?#-A(`);2xlJ8O1hR+-}Cb>4<8SrdJ@KAhtVg49+7{j
z8Bqv1V-YfFAZIaL9IyIh($1pud=;tFrrl*cf^br8?;LPT!P#oQLeD~7EhYfvbAA7*
zoY?8$%i*`X|HRhREW54u9Sq_o)xG1mKdVki5AVPk@zzuouJUSw7VF?Z5ZeRnYwTC3
zwo_2DUz0849b&0WfTPb4djm0wUX!&8_e?SiVZR&PDq%tt^et?0Wl;{7cZy!5Te)*k
zGg<5*FbkV5bZIs?<1-lXbswYxBC#R)*oE%BDsrcNS<ZA07VbQ=nskI!l8!h2^!Z-5
z(SYeEuco?A|0m8f(y&}KowLJwZosYk7NsDAVvITSE%q^05x^Tv&y9QDdNt{vL#8D+
ztWaqVTvKC4EALNW;o*fFZwos-uViV$8`2|!t-6n9Qa=8%1hENhTl4w2JpJJ$zZ5+-
zUgNP&A<gT!$RoMltQ?vhv3W||b8@A0i{Eu6?V$$pr&I?T5Tne0ns&=!&zt%hsI3JT
zZrDkK)Y-7Tv(G+_ZCpBJY*$=-=W^=TXH6l##?a&s%&;7*#gUWsB4jD;n&h@`o=;$C
z@yK0z#B)F?l?w_tGmHwXyGqKR+kQH?GNtbvyE`~@@>^wnQ+0l~XU3utA=~-VeCqho
zk>gfqZ8-Y70k5Ie)*r1{Ii^p<k7kLb=_2Q5y+0aKBBTtX;GI8V8JBbJA)p!ps+rd}
zUFb<bT@z|=a-xt{FJi%U|4i)*Zl|v#V-1V}=Cf#kP2UVzjm%|?+i*X}Wz+_(e{<?<
zq2RUn_i~y&)ws=KjZss3eB^=rd*BUEoTsFU(DyOb7#}Upw69-E&Zz%b>pfoMc?kVf
z{>at(>D|n*d~=FnKuh?6l51b=@;qMjuT^ajf{DjQjCY6RnFGX9MbC8lrKd?h?WNXA
zsjzejh_34tQSzsRtY@Zr?Y%+k-ynFGk;Z345k?f9E6M+(yDN=LYG2oO+Pi)BX_t4`
zIayk{JE2BS<yhuW?R_XfG$l3XQgI#%r;w>rJ8f{t1!#^`&U0d7I8nRQz?4!^bHJTS
z1d19chKSr{_jkYEZ}-djvOe%zi}fGg|2sVI^MK<8Z;_cbH(BaZ=P{Eqs9EJE6;Dkk
z<ujm2-YxRmF*^xgyUV=BZ6lN>bGn2^8U+u1{mEi`(R(nzNqTE^WkQvZ%Vi2C!AC3*
z1X2e>kZB?)!k6`|AH|R>9;?F#pYtAvc`#Q>_p}UB-DcwbFq2VH^=P8HQ>e?dhW^i>
zWB=(0dZ2@=a~DR|hHedk*~|)Q<(HD>Krj-6>5P^7rn(eCY>0UTIt_5lZr-APYp(g?
zorNYvsLR_Ef@N*qz}JZ<Wl}3li%Ez5QlGcVR&&m4SmT``bFHJ2#kwulu_$nf>yu#x
zneR^oImS{(E84u6tAd;s>uR?dG-_$5>N<9->U}x9@K>_e2f-^}!Ej~%9Uh6cGG}<b
zCLZI0zuD3kAHHX82-OvqqvFqy4oH0Ht(kV9_nc^`52kJ)M^r;vb1;heXgr)0P_<b3
z^IXB6SFb-O(h?<L6#FeFiP>sZ9lJknZLunPX2>}?C^8EY*cXHkq<<W1JBbuUw&Umw
zJ;pM5vHsWSIKTXRykGnmHf`cs7opIw*|niQTFwd{6+8vURcmzJ=-SR06zk+g9UvFg
zE&73$Qg8cce%QnztsHkRbu)?ojJDlJ_m+COPA67^S#ztT-If>0ZmoA)GxrB`ty*JL
z=VdRWdHQXn_nx12m!w@BW*MqQh2sy(4)1n6l>kPgK3g@5nn`G;kfL9WhYvV<ubokN
z?5mqu*P*p`W)Gb7=QJ4$`}>wj4<hUw)d|g(V+rZq`{dX1h8#W2;|g76#=)bXjv4+;
zr<eL_;wX3C%aBjaxyyoyr{b^s1FPmbwn|bw%I2#MM>oZQ#ghLb+V%k5d)_Ncl~@@C
zj(Aumu#ZwpT47RlLNjOz3s%aTY6ZeSYhPo1goSf@PSya+gfj!o)4Te|hav3zS!3_D
zay+kG*U_+~@K<*6?DtUp5CwN&bm9>5)Mq(dz(0*2$DYn1jcasv4B?8XxYa$9^+>=M
za~yhg(nNjCo<5tsBf4cr%<BreS<<GpJP&r<iCP@I3$;DS@&#@I(VXeIcYa*|rnrK#
zTt2U2qK~AzTS&3{<loBi89Z+1C|p?XDNA>mG`%nCPNj}~*$outl!@Mzz$RjS$4;c#
zl=<!IxFD(kChYEWXc_QWz`{Jl8a9}MZoIZmPXwJmj1XEEI0@TK<|l{oa+8&so)2Vk
z5Eux``!F%KFz@RV9ieKxX-yPw+qk0{s^@cO?{J;`;irC2J<+=#tMm)9DhTHbJ^5~1
zYPy1&djv#DT_!<y`8v7WQcQiOLuUq#cUOUx;y>i@$P{{UAx)E;R4-F0A)?LaV4HJ6
zEP-~{gOQ5f`TBln3Iz+2$rDKPtb@zf!<yRol}rt<Rq($>$l=Y}Fjn4y^IYS{yxw$}
z&e`?a|4xf&#@#;0@BYU|z$!}mnkyRzqV>ui?;Z+Ccg!2u*YW%lGq6~8=30I;Zs%r3
z9A=0+ji`8H?0K&%GK&Oa0giB{_L0>!s^*pQV}ZRVs>{fFIAW%Kf0|+N5R5qZsE+7U
zXTFw6{f+;xS5`@X3H|cWHl|SYjtOBGVdb^;;YS^v;QPu{a^3OuCTB9avRWJ;?g@rk
z@L-uJYIM@)np<m#lJ8O9jz!AL%H#QbN9)~IeN%>8*kGM_|0qur>b@iIEFHlLkqh7l
z^RePlH)vdHn4yvm(RUF?`yG1>)+A|^3CFS$+!PggR{>Y1D&wKK6!lbs=2c&%V-dC_
zuczFPkrK@{NS;E;-a|AGQj)*hma~=yp}XeM7e*m1aHZC>IBq2sO(C4(u*=$u>9*OP
z7JY)eS++au*yQ2+qIZtaTq@a?GeTKM0%X^HU9AB{#j|gyNRF#BRzv-HDi=)i)Q_pF
z>no%BK95`{=_F7J4qA@_w4UXfmB9ZPnCbs*BIPfckP$<rCvqiD%qPbH+F<4E=5XYG
zOuOnRW_VY{oB{3(pg~|G$`%^xFDQmLiI7yTO+89BJyu6gXYvZ_BiH<b)cHu+?Sz??
z%M%JD7KMn8J@t{P_2T?yM^NkZTqkwbrDk0!f#^V#E`a_f%uU|p!n8E9R>Pa(z-zpZ
z$~@jXdS>D%M$#>Q4x#%B<9bJkBp|omJ!$5K)OqYge}P$~%x^lkuMDC9WVbn!hNC%5
zhhIQEjcJ5i`F-3X#tbgI2Qf#;cpwDHh<alBmm7y-9wuznx-lHX4YCMV1}{QvH+#lB
z7v%%ICtwNK9|g`)o}T2Ki^}P6^K@PKOO3DgkFpH7V8EAz0gS;HM69$5cm+ndKOuU5
z(JFZWN@YB;mw;rDr;6B>{e=|+IHdGy@~|d0<>_{XNURF+VXAVojk5t&x7}u#hqpDp
z7_vLWdD$Vfb!Hqw&p)BAwnCKSUkRX${RMRm0VoACp}iY6xfVC2H>j^a$|;3`P$xPT
zD$kyYoIlD8X>`ypzUu2K*8>;F0ahvcNK08b^=Mwt7^8jgLe4_C#4iXF@14HrWjK+;
zj6ToO4bBg=tmvv^Tz8xxgPfNekH4nw(i+Yc%D49$fnD-HAXCmV1|$ulR3q|Cp>kR5
zzH?iZQ!Fpa?DQ5)a*at`)ML}rwv(p9W_x&mBPTWCMKVx0=DTqpZnG%^^h6(ci66AC
zO<puPz)_`v&<c{ZTiLR02sa6FMajNU-(yBfA;;Nyvr_oMg09lv_&%^D5bzXrD8MZD
z%2w`3qX8JW2qqj%hYk4%XEzWnrBzu<u+1kX9}Ng1-zIyK*aIa#Nj(g<N6WPm?xLo$
zd&9BToz$$iY`RzR&~SxUP@3M_9t^O>w5c5ItruBk^MhNgC8I!>dhN7uHTk@3j0)j-
zz)4gKTaoPNMO3)TuX?O-HVLX}TXd1BA-RfSwF}5^VQuj$I-_6HwXgs^%pvFOYFmWh
zVgaIO<;**Xxw9;Ts=Vy#DqDrh>GfS(psMA^5RrnZx+U0{sN-$Se~8j#ny9C|#pF2$
z(`fR`$i{U(giM=l>#%E(Hski{_fL23$Pc>?^d$N8*En&fl~-Tu4sX&D8u!|~ETC$0
zw$Bw803p7dvy3loL`h0gj-khzgTkK~JNezB8x-Djd-n4+B6m131ZYw{TX{nL{d7_3
zMC3KQC$8#Oj@9EQ7&4VpeIw7vle>ys%EUTTQbZ_V|HIi{YvvatZ}ol@Noha!0K2=I
zl<1gzdVDx&zsQ|`7KnQ{L#0BzoqB^?pd6KIh-Hf0J<GOzw8M4ZQ}r@aIjyUbH$z5z
zuc#fOYTK5sledotK6N*7dXDhNuT+Iu^VI}=hKyp*9K0G}fDAlLcZ)v&TE^Z2kT#hX
zCQcLbKTRK?MpqmDG-sa*UlJJHKP<0DVCOpVp1hCH!|p#cuik?+RN4n>|0r<Fif}iF
z<1TQIjI@s9;_0o`qW2YOSj2FZ+>t1$jq($@dw{D!K%{%w!M5l0Ec|LMX+MIwD4U67
zeq<7vY$&GsVXG=Wg8Nxk4Za^0O+I6tLr3lF>+o^FuioWEX4ce_gT4)y;@Ge!`pvXv
zXf=uoHlc4c>KcICAl|uWnEc`>W}895o>+w?9s5D*22XO`7jrUKc18UZqU|CR)H=Mx
z6NHPR3TNE0Y8JJ3s^-Unv{Hy4Sn{(SLcQ}00c=*)P`qeMj6KVp8HlaV_-?VX$7<jH
zESAXu7RdLdQ2dPU+y1p3M>?6!8p{Bfv$<J(R)@_(Q*FN_iOfV06HyYswE_swnf34K
z4Jg{?Z5gCVft0;~I8{Z@p@<S6Xp$2Wq_*QjzC3jL#Q@%MA@tDQPD{?9J5a0#L_6ag
zs=Jj<M5e}zhSf2`xpOnVw_Ra&;JKP!FJqx&2f|<PD5i5PtRN<aTy`mdiglSU*eH27
zS4lc^bw*ccgo`#J26zzL8U0Vu!QgJ5Hin^=I!hQEO`gy}^AFFO85=!mqoe_+m#QCV
zY&B%%Q&8Q^L0XErOP=9ng93nX2)X<3B@p33kE*bD>n(io_iGu;QFbrKUmr(p>zS#i
zN$1~4M2mjF$VF~(5lwW)zj$xbk0AeOyYJ?I1UTDS*BD`K!o&%GOIw+ubs8p`@f!`0
zyL<7=P_LMg<fdgqvPX}Z@hST3XAf>{-@xlhM9<6}?i3lIiLUsAZIyGz!no$Mc`WV}
zd!VA8$z<E-gjHyCtfE%>5R<+?Q2nbMX6%`i2?f@?mdf_ekZB#WmP}mOqIGF%lOGdv
zFO`%80+)6{zSSV_-h`u<!ei&m+JI14<;GN%iPLdmYJf55K(lwmG#QWCmG^pNy&P=1
zUZDcHMC){jXr)-caCVQi#OXN3g-45am5FGgSA>&{%lW*rD0C;p`)W`AoP!01dzZF;
z4(K)J1s3ynzxOgyj&tQS*pyQhgFxWgkJo&l?V5=^b&ju4=+iB#+kTAqc6JHK+cnj!
zD{3q%kMXJqt(32A(L(=vQ%7rWX};Dt@y<$%k&+OnghFi}jM)c)W}LawE|6zcOmvW%
zLne<^-_6U~c?6#X@T{LpBSyN9`*T3mh~~tj`Aq8Xyqox)N66mXH+)iOfVU&z^aoP8
z+HVcysD{?$_#}7(i_1zC0npUj>nF^2dU^+lKZUSIRJe~fq-G~<@57gaqp13&ebPll
zQ%{?nd*Va$z;0r61!f$Mb-^f8t+`uY42@ceL46UrA^+I($TxN*V@{U4S%G?lTH1Y%
zLa@N}bK@$~ZE9v72wJzxYdcLbzfaa58fO9yXtM(@2;k2#-8ll}7Uf=3DJQrUa9~`=
zDf7fmk=U1Pubeo`NAn}-T`;wuoA<#_y%`}g(SRSq<ls<^{1eo+zNTO9b70vmtbf?9
zu_m+BDeCkG$!ES0{kQp?0YRxVo3UijpNes!l&PLA-Tt*mFM4HAp<oxtZo|>l4I`pj
zpU6beXa=82g+lErw}V>csUWra*c($&GPA?GM-1PIlHCNu9-L(VeD%^2hl-qL+drz8
z7|iOFPbAcEW@CYQ5AO}PzC@DXs$RK2r6<9FfAaR6fWOhsl|A~o#p|c9c#9JsF7`lp
zWv@1aV%^Bo{>b<xPySv16*9Kx217mFPKX_|lh)|k9Cxah(mT7?wpEcj^+HopuN@qZ
z7*ojBU=DFwmusEhYia%D-oY6>Vw=!<f@A3pdpK!ha9q`Ck{R9}2bh;l9Owwt7e;v(
z9{lqLL{o?rEi;Ee`Fv5x!p-tb@h^$NzNpV{>wF@y-8eHT#o}IyDQ7amN<1^FP$cg(
zV;J%wm?F0tlWN1Bv<{!|wG7XK2KZUDL_PJ!{OgsiiLtI&1Ym1)5{mh4;<$IA@0U^t
zdn!!bgx-}#7dw!{fz^r+khnz12RG{x)|Fe}&o32iOhqO)2KH5Mu1fILUJs;c;sp##
zoSpqDe~7hQ0aq-VYV0|$(6Ls{UR(_~l{zc*<LVd;R_n4gZ-NTu9GM|j6v2j%hv<;g
z^|#{-t&(tQlMzU2+<Oz;rguE~(O#X9=LL$N7?zm+VSMN{Gp>&Ir7%43L#gwY2h>yJ
z8f1O}DblyhG}*aB@6IIoYWCf#{x7&9U16N<v?BFnd2dYb^!Y#M!o<`aH7q<vNwtn`
zFs0b#k}6i^5=aX|xodVg0H1^rhl|vf9ZUmOdkdk(ifqX~Lr)t6HQm+nfT{4Hy3gg2
zXV=3hk>6?kw0UeV^)<qa-EkYDh)|aSzF%I~sY?BaFAq;KD<)1zW;#S*$axIH%f!G%
zQ7U9r?}8!)T5_*~-$fJRcN}Ru$yu~{Hrae|P`JTjtl!xJ;)XaEp;9#Ryv`;=<u~@Q
z>;2onw|}xw`VP~Iu_P?`CDiwSmQ;6U^7Epa#nP4tFF+$U^@_Xr=CW;riRN-poz{&*
z=RvA_Z;Z3-D<rUTec>&H>=Z&wGr$FH%OZ>$b7E3@+bq6rvlG*BSAi@=vC}cmxdCTj
zwT~ujG58Qi!|GAigSU=H4Khsx#Ep7*Y&(L*f`D=}b~D{3D}wKIF(;620VG?K1yNq^
zu!1a$z=XkWqM4LCJyG9Ns=3xm1ahsO_SvXoFiL5aZNpMG)%^QRKjC7Sf+VoN<+QuG
zQEfwf!XSM9jydI#TxUYJYxLB5@n4YZTW;)t#%l{KIF{&7a|B=E;y7j9XODSqU=0c`
z0D#McSim<#T=aR>g_S+-#W<0*@B>-{L!WXl5C3{~QK<$`T}dE9eH$`0XR7~T_8B$e
z&>q-&41(1-nrk^(l1#A(`l4yD*I>DSmEPVP<AO~9$Vl0;?n*P!S%+}^zWi$}3f^jO
zcYn}2`aJwmhY?2(HtMe2iD{0Q5DgIau$M<c&JTK*bbAjzn7ck^?jp<B#vEaSyokg&
zTrhW8uK|hctM1q7z=IuioDUH14!hA{6S<D0t&yD6=VZ*ynKKxKv>&6{_dfv>Z7qbz
zZCNSbGMF_4;*T&#%*Cl@TF?589v)*YoL7Cj)l=6R_gjYaqW(xZgkH_OxUuoEHaZy4
zzQ`rol^Ef&oZ-J{N6J0m0sc4=2yD;kRD7RRJrrNDMT$q3%|ALBx$4>xOgaOw_rFUu
z%mg#EgJ}>}^p5eAa|lMLL1KSNb%7Vxi3L-Vz&)HS?`G~f$ZIfR$I{k@b=#7?xZ3&K
zK8_e;yb8$I(Ok{4Pk)=zq+`BQV(STIFO7XI-qXS!zEsZ-psl&qyOF>Ic|gR!sprXc
zY=fQBx?H^%6vWK+rcz5qe*{~D)H4vAe@0J#-WOP!j#$5v!4Q?EpEyOlBb|4~1_7FJ
zJZX`d9bE#!xguF-__vANXe28{B|jV;w%@G(&+JhrSNM4%@wESpT{)apphi&$b+8Yj
zQfG4ur&;Eh)k3_O3URG=Td<|HKmND0Ip!Sq<m$5_y(0B}h*8K&{PL7L%-OtUY3w;6
zKexPPs@&LJVGcbkuvI{jUqFqg%G30FEi?i=*TXF}l)`Lm31h?%)FIecfJIgXRlE;o
zO`k<WbH7X-!X$hquSz;?I4$T;s~vH1<5S+Oe4nK9w|J#MAP1`=!xDc(^(`vPpH8*7
zxhSFjHeuv$ChZIW^s_E#PN>5Wcsd0*HkoH(r`QU;`>3ECWNwEP_E^FDQF%y3KU_e?
zIwu*j?1c~QErsPl4Q~@reNQKz^U7MvUu!VX!$h4R#a#&RJa!VI$rn4{X$bM+`n^?^
zuhZFw4X$-s8e|5#<o&v429Kp;2fO$Rsirx(r*g;Z(|<or-gT7{+E#do7~A-i){uR;
z^jdE4EDSoBI`PNtkuDRH?!C6hfsY-qGRL$0V*~r$C*Py1AFUS5C5xO^+08r*sB(*<
zek^V`pG%eqzwypbTV_=)te*4;|HK%now7{NX!?e7K;TU8?YZU|P0RDfi7@h)KmM`#
z@#oj*VKagMj7f(sW6#TqZtrjRx};Z43mrM}GbRpe=Zko*35(x|kwv)kJII4w_}KG1
r-V~r;{qsMNcl2%g|L5ff{_1xP?N<(uY#2Y;yb=B{m*48oUcUL?S=?sO

diff --git a/reference/plot-3.png b/reference/plot-3.png
index 9f3bac2bec373ea6f6ea8976a90284085ce51ce2..e6e1bcc352be20d227890f34af4972505a652593 100644
GIT binary patch
literal 28010
zcmeFZcT`hZ`#%~-lyMwj?9wd(M5Kv`7>bS}96}jDdY2|dKx$|K#1SkMJ)uKDrAaT+
zLT6BzAVq4Z2}%H|p~obYdlJU)`+m#4cdfhbZ{7RH@2sVPlXLcd_OqY*d7jO)KXlZ&
ze&PEC27_?{8n^XfumgTD*#3JzAB66V#=lvHJ`UbPs^5k_p^JX2HU#=O^iadp3kDO6
zVEx+{GqvIXgPnl^w{PC{OI;WbOnl(rFScM!-Tz=H^fwCpmv`?%HQ#<XA9g|S)x@JS
zr=vc6unW`U<k6edYJJA|xbmr5U9j`Q9i_<Ae<wa|zwmp%-t9l`d~6P#*cTRY=ECzc
zWe$C0VfPK={1mhNyc%OeA44+Drx4X>NVQcSsCRkqKUe4^!Y1#3|M$O$1Nmez@WG--
zDuVEOIdC6rFq{j^4Na9j77phRR3gtSwzg3Zz)X$}YG2=@AYMJ}6zeA&O<?&a)(=|Z
zhpbqiq2g1bC>X5da+?<G(LpKbwvADt?&@cFBbM?7SW2-^?^;t3!AlXUut5?82SAFd
z)ZqO0n!rm+br)VJnX&{-U!M;VA&3B7vjwV+VZ`_S7T|eooeZG|xGILfLf{2R>6GbY
z#TcE{EqDx2W)4!}^ci?a0)=1VsS_FAm_o6|*)_(dZ}4C(UQ!MND#?@_iEHZotv;6J
zQzh_joz?1C)S^0ImFlUj{T>f*e6_l!dV#S2dI(9GKmvTVJp<b}JWbmx=(BKZ&DBqb
zJ|J{5f~2)aH+Y~W73k^e0>K^9lh<6Dyp*mG;%*fLT7qKS)tgRO77s^f$z!|*=pu8h
zK&gGFG8j~$8@c<^p1IG?Vz~)!J^$Wq<C+A)GF(aB{Em-h(7DdW;;D{dae}{mX`Sci
zQ%ZkgT)qw`gFg#=$VW|+UxGIZ0(9bOfr+}S3^?M~-@0>LrbDuAyDU0UL&+2$Oc&a*
zvrd}(H`HYYt@qlF6$eD3Nh#5h{w(9>QC@zq4t-!gJ!OZGd)Q?<Sd@?*i>rB@I)4_o
zv8mxX8S15y-n`UTB1JGypvzT@5WehB&Ct%MlZwY`JV<_js|L{!D43zKEGlwjcs__K
zY_nvcd9I4Mwfos_OY>;m8qkpLX{li97FM;CT1@q7i0SXBt?sV#s7tuBO*;osazlc<
zy&XKgeUx`z-`A>WUBFtq%(BIQ?r7bq>>&A&&ue2ZSLMG`xp~P3{P&QWM;AIy26OYw
zd!<!IGHUM2H3!-<tnG^VzQ^&*3?;9*BI!172yeJnmPVoZk3sVnX{<#Y>3caL*cRyA
zPgI4;*gjt9g256`N*DU?l*4ISKwc4Y_(^RbNY+|?8(XZ#^VMIxLe_Zh=4|?<xv3-K
zK=sYVG=0^zv|DL2g&0P993?Zkp<4tW0!E2je^Qmna=b5{u2VMovQ)C|UGa;n%ICI=
zOYui=%&l1PCuAXVbx6f)w|biX0=xCvmc%7qixf__@AeKkHIH2Y^_^;@ZU!{MyT2VX
zPN|Ht>4X@QJ<H%^DMmGQrVG&>oY;Ky9y2p&WBZ8wc5N2iZ_c+GbA?cEa8wpzm}J_Z
zOt1=}-lfa1>M{CD^=q#pA8~mv>k+4|pmwhOv=QD$DUoMuYvC(_10O1pPK8!pT>zDf
zgJ0iz7me)nAGy*#f6f`r>AvBI0=N6>vwe|tK^0VJb;7*6%RT2jvAVMaSNXN*{3I_6
zu+3@N^Ni2N(_)uI;wCq#apBlZ3Bs>!!-{W%E%%?F*L>(WAz2ur*~wS~RAL$Sgb=qx
znu5Gn^3giutc7ppb17V2(^#dNw$vPjNYygY%2QW5ob#SBUM4F(4%!Y8xr4EUX8_A8
zg&)6%d)VC4@=;j7{?>78@Jhlt-qy2R9s`)uJ-%VI3d}u$tIddLNSupU-Y9gifAL(9
z2Z%GO-W-reb?5Zs3*U>2^bDX#uCw*XV)16?hvc=oT-z>V)bzr*%nT)2k(|rBo146H
zcu;y$zQQ4vsMZ@CMiVxB>MSznwro`8^*u6qWjE_%Vr8*nTM(!|(BX_|W+to1a;HoP
z5`T!23uM~fQ(nk-H%bzu^^aZ@*79^|C$`W!ZFYr5RHpJ*>n#!~Ib2>Lag0C5eZ}Ra
zBUb3iGmS)<8Jv9gZl-Nlk#gFo%7%l8%3z6+zVE3Wls5SbX1b{VUC|3YQyt9o)osJh
zwGh%IUQpkflh#;uOb4V8xiBq*iB?4jGYeEIHOsknXCK4@`Gurh@~{zlES@qB2#u92
z?QpGe0<HBWwmY{1B8x|xM`JaD%~}+>^ON2e+3FPY%gJvGRAw#Qb-O+{okm=)8Ij4G
zzjt#K;ivHH+SfZaZT)SPRIpSxj~7i3oiR(GROxHJ4!S^41B#HIsFT(Rp9+^5?3P;R
zh%0ph<B(3g+`&!qXh^t&+1?L3HjOof*~F*DO{Yk0lv#o^VsusUXX%~Ft^ET++U;DC
z47%PeYXkp?tYoXv!SIH8RGRQ6IZRtM!biN~QA+f69|Z5{Wr&{RMF8Na(<_ZlwdzCn
zf^GFGKWogP_eq;1tTwmlf<cl5g#OW2JjgO9O=s*}#rp=^LP16<N}g{f&^Z~B4I5s#
z-@Z^&&p<FDdq;w>tt3hq=3Q7?ZAo<h#y@S*_~09g!T9bf-(4IZa(L<5*A3%&pPo-=
zgilAdjJl+S_}8dLSYib%<(3x0D~KZW`<jO$tg>zx<!8gadQ<%b6RaTq*X-;Ibuf|K
zea8vA|EXKwt!DitJSVHaNwBpC5UQr&Q}|k?x7!1xnOD~3<19_`#PyW8RnwR0#`lgB
zKVG=9_(3QK3E76WHKr)uJ!hMejHhZtHcMJld{M@=a=tHwdUlYH7U*pDul4u<;Hk`o
z`=baE{K^=7SDtVJGc8m_S!tAyRCWn95gPc6?u4xwzsOE+p=K>Cn|JlZ!raYMh#xPd
z=&tVeuW#$kbQ|}t6Bl>1+jm3i@Naep0B((8u3D*alzp$yGpv18ctaGx&3ms9s86ui
zg><Z`W9a<U(n`IXjJHwD3UM$Jr@Kb%sL~aG^%+GPT;FM`UlK)WD@0r`I@?h1GW~!k
zlT%bVHy}Sr?)h!>3h!o(#z;NEtS{ALRI=W#PSN3%dvOCbhn~MhdzVC{iaMt7PY;ZL
zdx%$^tVv14l-YJo@_n86!B*J&G$h1(v1H1TQyNxcWSP$3zv()+V$oOBQgvm0o7o>y
z!4z~Z!qxH(Yzw5Ne{ug%u1MfFI;k@sUN7Z190jP5Ch47kik{rehO?ANS>P?QKNluK
zVZCB8MZQ~Ar5-irrYRmMQ!wz|%5!^v({XU(0L+nq)c5V>3V5HfAC=Zv*5>7OrC_ZM
zP)RLAcznt44HWSY)C{ZYB6I&X>Ed-KKrBnam%$i+dJ*u|q+i^L0(6|E%grD!={UY?
zzP5#NNmG5_9iX7Fu3R=v$6<p?x@%l(N~Y;P;=s2jHKX%br3(ZicA+tHEpon|!Z!ce
zt>kQT#)Ku1mT2D?JMMbenm-*$=UY8&up2ig)?cve#N`#PTzRD~dcflCS#f#9{Iq2n
zs5PQEo=$I#rO;%>pViELw{^Q*Ws%V!<ydk1mOdD%+HFHzSLH4t`2v*#9pq$BLF#AT
zS`0`ARx?y)Tx)N)*c}Y2e=Ou9!UwKEE}EswFj%?c*;l3Dq<St{u}X@7mrR{3i=`Oi
z2GS;QNMO3+)fS&q82T<GTw;D$iuC27?ssmSOZw&qEs6u`O5YSOa!?s?Re{S5x|uuF
z@N5q1H4-wT0aBVn25<MlUZYT&po_WouAum{exBk9fpp!~l34y??R+|1OqA}9<+j&i
zSe|;nw7owPFH2C{UqnleO)2G?YXPhjK75ZGiKoooirn=EC;Kdd-*#Q8OBiH8-Y7qf
zLmGC&Lq}7vle)o6n}>I6;b#pROAS?l)mXT?2;PBrrSR$~Sa*%EjSceWU4ueApXC~}
zqWq7qp_MRig3=qjYee3y@JEfBt4*;y2*xl-p+u_Uzdwmh$=lBBuI>Z3+}g>9KUE}?
zk&tR8{=_dT2*oomb}mijk8%1$bBf}PHN)=3#3p0s4I0{m3^jBAT*Gcr;Y2R~qQeLj
zSwh5v`7#!VN9)o@Hhjbh$w>W%28?ODTfOO;w0Ln~cPt++M#Iwtd~6U*YSaX{Et9~f
z4E^?QikMxbM=J4SLBK7|vf{21g_}%MP(8;&qFd9`8@#3OTWOs}nFLf`y4~|Q%5Ttx
z#H;9Nt_F(NnxHjTad0OwfA^94m7#Ye7Ty0Bmrc+#Ye}%X9aYtXmv+sG-G^YIa6%2h
ziccVuu&VK&Lwok!|NY<pKR6(Ya_ikEb3!PU!h<b9*%so!g>;G{P~>c@%qEa8HOanV
zYO=hvft{Wu-eifd!Iu+&O1eGfFiJ3;@(ylXS#py7uwA)`11B{X%gst2VA+=Z@`g~*
z0fo`9A4#1^^I_Hv87M+!f0NxG4sbT%Iz$v@2+e>ma`ipj7>>V45Ih#ie$d1L?q{4}
zhpj^p8k8As8mn*NPEqo#i~wdcp#Ro(y-RyFsjG(~2|xiW#SI*jCnNzn$l)pW+f7eh
zwJ(zu=ae!oJ2uG8tiy|SR!Q(G$yrtZKUbnh;$w*q=Q8)R3Hg>|9fmdl%`e(@A<O&;
ziGpCNC9jtkxTt<);q;yW-$2IRPpr$pE(|&EUL$yjA0p?OV^d#JlDj55f#}mnZx&Te
zc_PgSf3dqG#Tw#mpFb@ER#yH&TYsNpb1yrLgGx~@=v8U#9_lt6iKq}}0V*&VZMdHp
zHB^(yP_c6_DCcojJ<hsqldQ3<Ln@5htW>e1eiI<z+&{3;7FdDo(K;;JHmkm&dkF6x
z;-nBID!_i;>_MV84At=lzXmyIiA76rtK4>{Rg)R$df))-0WGmZq?MX--Q7n(!`SD>
z(ce()rOW9&3m=%OR@vq>9I-y_aEA40)0`70^&1XsJ~rF<tuI6?3)8&%7yD_)Cmhso
z^*J9aq=3~i9p<QH5u4RoXAhBPS6>~%(J1hcG+)htg>kx9%*jF4x<lo)!xC;PT_o%`
zv+|<F6ItFOR9+prx8)2<0)tg0gZcWt9M(O5nX%?B$p)5-g!sV@5&U^V<)OB+enDsH
zvrKIKAd7%ddEGGd<xNdbd(aLm5Knmx=a<-4MdII#(19Isf*~;7CUBlL4D1A_s3Jnd
z6w%?K2DXU(M!oO=@Yl}Kx&9mL%S7LKQNbp@)v#DxwXRj`7*hm)hQN7`D9`%x^Vw#E
zkgoP>QTwF3sQ)dHC`J#M!Mg%!Df$gxO5oC(o-3e_j?VBtC53hyHdikAYIz3MOr6wO
zkez-Ow?nq>tqK8S>^%tK36U3vWdDF%7;93#Zlr=NGdtWPM2{C8BeY#yxbBVw1a!~u
z>4%L=(3Q?-qXz;FTep2;cJS~S!`9R>w?w=1duk)8_ZYn{WazwGVmlTivFNn<4RV9Y
z?UQy!N7)i1vkmuCclXM|sJB$pH3J)yWfKfXVk~`cvnFrSg3{Z1s?kUaN?j!7;vzq)
zbt|uzWH)?-O`F`!F!Z`qUb(O#;-bG_)^=91tXJHo_NVBd*_0nTT9-llqRF%bd>3RL
znQ&^6(hf7ZA`cO|OZ{bXPr6ef$-qbv8huBYB6K5AOmtX+kOl}P=$q42aI)suErU)o
zT3&g#E8-8<m^L+Rd2Lz*(vm6pxHh!zY9n9kt_PTcVx--54)L6N!=|iHD-5mF5Kmc#
zr)!pZwN%f*6*J!Kf^adPk%Y=)e5|2hkB3qzbf8Pu6A6xjL9&E=a6z`Yy44v8(&7Kw
za^K}>q9mX*&sG<h#8(!=1YHK2KR_t)o~GBEnh4>aAGq0avA;XG9v{n}QQ=?bRZz^n
z;rLRp?$@t*a8-@6h9?!iI>R3Wy$<gwlFS`*ec$D@>$5jlPuh&&32fq;Vp*{wbS3H^
ztz&)u+l2oO_4;oHG8T$ZpzDA6Ag++@(0WoU>K`;hzcKN;D_zBcH81S+V;-?2ce)?>
znl=0Pj&le<-VX@yfi`RX+{odNOx&KD!)zieGZ!Y5eR?0Uo@^>N;5@<l;eWvP{y$sg
z|2e;}LO5ggU*|z3>BXQk%b&Z_Q_M}+mMv6eM}-jdsg2o6XN$Sb$>HWtXRMMbAtI*a
zzs$NdR;%F&75}pb#HAFlMfhK+=6|ew%-(e)3F&DAKE^J@Q=A|K%F_@;h@NJ{p(X7a
z%SBRcqW)+Q6SzM9lA;E5@uBwAI4|pV%QsvKMGluiFb7kyB*Hixj{@besqtl>*l&j(
z8BMlt@ap%!<IoZ0)HMrO;VAWhn|W`@>d%vc6_Vn`U-|(~_F_KkHgZt2;Z=8AQxojh
zKv@J_vG(%xG<-DX+>q=`w%CToU+9tXR~H*D?c4DHC-sju7*>fYo+ZfR+ETCrvhm+o
zdmL(r3`4K#yeqeUr62t!VH8_exBC72D>Zf?pmpF7i4bU#g$YhCP0ugqLH)ab+ZVUF
zfoUa~I1Bd%UtkT@bmi3quFhOy(G|MgqX;6%PuZ$yV#o55e`y9{(o4N&ce>p8w6C$B
zFCUVbg$*X&@|v-%AsUU;!s*T}TTyYFw2@!f?ln>8Xx*fbbNbGHY!LoUNYz=kQ-V3B
z9_7ma<bh%E<drwdwBKNj6*|z(P3l32JQnK>>B-qm)MSQDJz=>kSjR7iNIikNFHn{s
z1&`aTGPhu}I`Q|Tb$wIk*(f)Jmny>{-8c-^U0v*dK&n`qAxRdnHUEaNI~0hlu5>|R
zRHBX-u!9B*p~PhPkNboozzs>q?M(k^$C8x6r+7FT=^1k}nwAOo(-oYTu+g6el`a!f
zun>yT3Akx_dd%S4;KRY8K7%5P7pGdnk>FS?We{#Gq9{Rl4=yO#XwfuRm*A>%1#1Mj
z?za!upK9aq=2#`)CdE%a589ayC=hoisK~Tb7RqV1Jld)BuW(`x+^`tAnglNfJT(r_
zjHnQJ41!e;x2f#!2()acZmgECb+Y_`&7W5BV9<y|@1ugF=I5GgjmA_71G9}OOu799
zUW>5#2gud0SHxU&A0&p{If$&3T)3|q7+NY(sv`1ADV?%$UWIrGf9-JycH%F1VBv&?
z`+Vv2nL{M<yGT{H12e32q16UevwME`3!H~ALMjz$uDz-x_gHKgLI!C%z!<l|&ZMC{
zYCPlev^L<Y0lXD5_TPDeu_Es89oJ*>V_J*)55-mY7YL2X93s(U1*dAICzTovO*0s@
zEodG%{ST+D0n^c4ZD^)Y!(xW&&f&HV08-_mW05F*xStdGm1$5t`6Yz{56py@O@j-G
zlwfg%W#(vjMINEX+@Qg?(a8aa1EE+Z3)zKNkEz%x>O<=-)qSEl#Ci3P2YF&Nfv0qM
z$k1<I{DWCR8zCx$HWstjcmPr&#RJ$x0u*Tr=}|GfF4)-qb$;sntu#A35Ov+lI(f-Q
z7V>moTEgh?wqN~&S?rDs5b?`z%h7jvQI!5i(4=THVzd%Dd<6dxV+}T=CZ#HnCmW5q
zT~F7_63`dzbj^AjrN(Jr`vN=2`Il+?<Y!DYehLwJOq{nYI)8CRDd@wDS-w#EM<Ve|
z#p_d-;7=QqK0e#EJz58NI@AzZ5k!fm;jy|HtzpYSiJm|Muu-dwYX6r2{~^-w=GRLk
zkHCZz1r;F<g(%L`yJB%G#TLC)sH|dQXT|izZQaG5M)$0c-F^2=b7QiY1G_bX9|7Q<
z^w`+Eutc}&wW)ev!*=SI_Sk?@8oyeJK>@?|!}!5eFLHY-(>Ki=g8mu7ylp-#b-8p)
zzPZ+h2+zq3+@F=zrUnEni1^E)p#33QXwqLjng2c|VNskMTkjaUB3%%<`&a}MXw2Bm
zPYUtM*&Rlvr6WCW=1?mhb2R*((igR{jcIi==4F<~;@U$JNFl|S1d4fq{=VFRdT!72
z9UD;LC^E!yiasUkM>R~Mm7SetDWYA!1Vn?>R5r>f3w_QJ1vUbn6DH>bc_3c+bYE%+
zPVkz{%aY11KtF7$<^qb|MUHy`A@ZhUC|tH+omf_iz1xWPXne-S($pcR2lCB<!Ju3p
zlL}_FP2Ty9R_^~tjcUvb&eXM4@8Ty>aWe@i6NT~I_@Jl$(A-U@<)Ll&)uuo9A1@-g
zi_*7aQw+4_pqV%Ny^D$YW@c+7z)iO*lJE>lnW_#hWy2eBl)u{Xfr|oG#-=mQ$_(1O
zj^aT^JyP@8V>&#da3Sm0g<^@)vD)q-7f8gar3hGk-^{Kocot9l*YutN$&ZXOZ{+QA
z4}k%F3!lLpxQ+EoN~O1|M(qsDi-x4l(9DsH_>>84O~K74_>_oLmS>D?etn2^z)Sp4
zK2Hw%En0=(?A-9B-vtuVS}W|5JR`o#i{GGKBsE3<r!V2~84-WAgT)H<A)3QraIJnw
z8s&SqkIH9W8eIr;cq1@ju+DPm2y<zloofrR7o(lRh_p<esK2-Y{1s)owNIaaqrv*s
zPGf>?bcWf}+&P|JZ6Vrq@&RB;rRn;7@3{6(rO>tnu)O2ou+;lO7NV}?mtP^C)*#z;
z-V0}=J@4@W%Uwl%z4ceqv1JmQ$ydbINnmrk(85c~BG<e{JVgaFc&+5}j%p@ceMTRA
zez-Q!+Ke~EzUJBFTo=7I%c9L#3@<`(GVncF%s=6?ZXkKW;}dK$LDY{a@^ikzTZGH7
zo^RnM2bI7z6X0}k_s)m4>t02=)J!H+-x4#LR<ZjV&)(VsI7_YwkFlw*J|24R42QUt
zN1S<Ku-p8hck<Y5yv4Vv+1YsD8@f(`u*ro|E_NgZwQIKzqFY_lm$<6aOp-$Gf>5!g
zySp8=zI4}=TDGs%_*k8)?pn93xP0TO*7Uk9nVdTYVQ7^p>def#sa>&m$c%b_q$v<a
zd)jWH&;<FjP{Vgo9PR^BKw3J5DOsrCcC_yO{Q4!G)Xtos13Og)N3)@ACENmouDm$r
zDmG9+2ip_P4T`pv4SYX!WyPMqcA1bB=aG=9*uw~oJ$gYQ3%;b1u0Qf7SpehZRH$o|
zHYz!eYoO}-OBW$mpL!qr?0)|m^~`2oUGy5~X>0A};QYU?wf^V@fV7y?xV6zHNmeHx
zA3I(}(_YQK)Uaa(RbbxZWQFgW1d1FY-IDMMjAO%4q6H9C7#57!Fp_{Y!mwU(C<qME
z@){1SGHSKLA*}nDcNtZpc=Z;ud4r>=hbMRKzkRDc3BIlp8?Im73RzIv-S$Q^q}~O0
z2Irhe4J5Z;Pd{xFB;U*|-PbA{TahwhIrsSzDQY}lbOpdQr1WkDT0)$A**?}6&KCQ^
z{z&`F*%i0<zn`x~3N>CJ2y#v4*NW0~a}_N&Iy9L+K#{8n${d_A654GGFV%*$DH}_9
z0tD;N1_sY`SE0L%4YgZU?2~46H1+*&Hu4vgUM6d-wzf~^NY9ex37irbg_sM`b8c(q
z>fWsCxnm-S^ym2ei;LD`biMSIDp7jC)XI4Ly0DdVh;QhcwWTu^*X;h<&_}afiddWz
zn`%;Wc3d#cdRCS?=xt4H{&bBRHWxLpY1Mpva<wdWe85#uJxZSOQRG^@=yV9eA;KFB
zQtI>&Hc3LePSIz$e!I2tI4YRR3r$^(jU)Z`bSJuFJ>DSHHmH90CBk{+S%ZI*hfnx6
z(>2{2^*Zh4$J&^D1vjQz=hpmn)WTJYe}1s3Gui9FeB`GZIKP<ShhGYcooRf;erpBa
zmppp;&$jY8l~~SxYj*+4NMC?Kxn50|AZ*gzXN2Ft?ew6%0mx}6wEGa)t-83Faq!x1
zFj9zTEslYQJ9&@nile0zN-KIH2sVJ&m98rMwGKJ{%I$4X+l4+E7u~}0#;b2mbLW*8
zC;ss(GzV<I7q((}GuGSvw2x6Ty0{U4c{5LFyUm#4j$G@^hhnIz%R6$nTI(McQFDUT
z=VGqgS@mSN8%&L<^Y|}ik?xw#TVYyj2qUY?=U%w~;y3imAVbFiSIeVF!^Yty@Hd5_
zIhsr~mb)ss#I5D5HB4{`lt;6o+QgiGiS36c#fWKRc7@vF6|SdRp*W2ad-P|oI9VPf
zgdl7P$=&Wi<n%Y-pst2+5BG18cv1AuW{ZKu49Wkg7j1Q@-As30&L|9BdJMZ|sJT6@
zY!Iw+nAmQiIUEC(p^GjxSV<AuHD@ghP4j0TKh2uf_l@Wl!+Y+9Qm0vN8%>QBtXkVI
zB<x}`zjCYK{lnBAudD#!xei2qcl9{-!F(hJt$FAP9?qkqaC0j?LJ2L6$YPo?K0;P%
z=x{GHdB|vOD+rv&Zngf>T|34>-52LyY+=jhYy~u*C8_GkB<9tG<>94Q9})iZ(ZuW!
z$>lZ?`Ya69Ddul?u#wjYR4S9BPXD^O@m=gnDs#=58g4g}X`cLcc0*%X$|zx?5TWwY
zKH+2+Yk2WEf6nsXSi*5bHzef?T5l6Uk{>i~f)^l%9|f9$DC}4oB|J7cBLrO1CLDxf
zSXps|leD(@_`^U={Gac!O6b2gKv2N)T|P7O?DS#+1t+fXWHg!b7d+&pue+JQeGN4(
zLOv2ZVfnzaofCk1IM6@?xca53G8Q$>FOI0(J(Kn4Epy1%)z`^6=_~j_*3#x+LFV)s
zRGYAfzhU?&uc=cEyf%AGV@_VOfb;!*OHdd-jDSG;SVDNq&jP6w>+6e?`o6BLw4ort
zW%)0gwD_f>&-J1LhZh4w+Nql(<+V(H$Og-|?%w^WKxa3WLcYFuO8fF}W>qLqb)nok
zmJ)ra6-v*VVn?COCiG3+6+(-cAcviogJx1VF*_)0caso)3%Nw5ubl$Yk|?~#A|3vK
z!uLXe6AE3LaKQ3k-ik_uXISpAQu74;vPZ*ZUSN*y^{4x`tJqLxfu`mah`N98wvo>}
z$`z3r6tx9aBNOc-y4DbetqbY)wGhH5jy}d2kb?B|1S25u%tku^0Qs?7pV+{uO=;z^
zx>_;C^Mpyx(}8{<kI#s%&gx3M-6PZ01voV4&o-Uc#R(apK&+=1D_t{sb`^PLA*t+G
zRr1)jY0LNb;8tc|a9}&P+UqJ#s4K{(v(_9`78PVAjxQ?WpxV*!qgvF=3SNBoe6=}f
zP3*uc6Xp?%+mrb-pDB-XL!|dbwy28X1A1>lZ<LsrA0kEMq`clX1IgN}8T+O&WxXm5
zStd3op}b89Xt*+aBUFC&BM=REw*6SZ(Yg>5=Ur3Kb$?fFWpD6ZWNA}DjTC_fvAjeS
zBRQ3#0F7L5*;T|Z2FesGGu<0(S*Wag#c?)1(3JeyD2xW7x5l3=><kWjKo3KY^YWXS
z%}jeAE1#G9PP|rCTwd%felpR)9l5HD<^IXUt0>i*_1yX(^ez%e>vyK6=}UOu?Bg<B
zvUIi{(!V70NeV(_SXY6NYux?s-dUK1-`3KsozwgDFR}0cY8w-qlG`Z;)w^`!8q6<Z
z3?uHQk>l-WdLjrHOGKv7!T*5Uq0YoXZqhuquC$LNPcX&`SjhR_0?E3oQSDyR$ki9|
z_gE1x%tnJBg3iV*@oVB0e)%!oy7+zO8~E<*vBao~W^Q&@)_uSn;fDpQl`j%TCAt^!
z_8mQ@sT~+6uq`L{KAR|;pZU$Ks6@aDEJLpO13Om;ZphZH%LJzW(PrcFpx`@pWO!Q^
zj)#MLacg+9f?XntY|4fQis8-2G+fQLF((rS?oaydnpm@m>Uiz3@OH}(4B>C_KaGQe
z@LMCfaa(`KTGo+WY$e%Kw*IX>$ok>6h%3pS4HbmSy5!$(X~A|#dMyQM@<u@B>k6Sz
z@*^9Kkm(!IT!y+~TH^;9cR;j=qB2;|9;d>{?pgRPY~6W6Hz<JkV#2;@R9Fc?dWrgP
zzZ?N}>Q=XAAjE}YjfkPXq9no_4S3&+5I#a#ohQ^<hUj)DCNYQL>8|2B>~{l(qzT&M
z@;=?VW$2b6sDtaR+-5wSmbX4GNjQbTtO0I1WzHNcmwC<ggNuKll&^<kAp`ee+!$LR
zY|~W(Kjl5Wr9_C1Yghy=Qrtk=hpUer-tJXTpal<1U;@B##NsK@;j2xl2yn|erydD9
z88RwG6|*1&Chj0BZHLLApf&GUWo<{Dowl@cR&@Z#r!Fp@58nfKZCW8kD-^Y<;+Cau
zYBGC}j9@Egvg@~}>{U2gKsv=0w>f=w+R#0%(gPp|Wo_rbInTzA5<MWbXuRtzEdQad
zMPgA}YId}!w;|wfs5un69Ic>N<s=qqBKS`*FJH}7)r&E^!NBfP+~%&S)gFW2=NEEN
zBfzmCNCPPCaNWPZ_HrE_6!U-3&NaBXqy*Juc%*n~uQi!<@n6~dm&jXxwB(bAIjAl|
zzoYpRx|;<HOR_pnG;?zUZ9sM3*1Lj9ltGbh<yxrHl68$ONAEnSvE#LnCnRfoKI}A0
zk>Gr9his?r`~brGiVBZ%9d5u<f`MSMtn8&qA-g4wRaLA2wk(6Tnq1+Qy9XLy>M?p2
zo=1o8jwz-kmF-8*z`cOrSCr|l)9e)+*&IJa%A?2rxzu@Hh1KN;YfA3(ea5caz*_D5
z5q?QrG1{v+&NKTT-9m&cjqQ~@VCx=tH1SbaWBS?{Y|P5$V3Z3d1kCa1c>VzfiVk};
z`AZAyDHU{x16`Ud;C1H$!2^&&?Ww?PwOY7;V0>dfcDM@Cd(6M|ewv$v0fXcSZjwcZ
zSk&Bzy6To(QPP#utGyH~M}Uf1N%rOrV`;!r0!7s@jY$K1se22J96mA|Z~EO0T$I3=
z_tkQ=+`8B;j0it%D!8ZVq4DJvk7=fHn=i0qkmwb|{cq)LuMDx18w{wVNPv8?hy&5f
zyitNRaj2RU60NXQgk<C){AS|U7ma5FXP?@o9&8h(2M3Ttml$v{ZK?9Xp}k5+euw0&
z=(&WYEA@qM+%Z{HgY(fI`af!Yv$!G4fYf+|SbNU1J#@U_va0U3)c9O<f2Z=a)cW|9
zc9__^qJtg-a%I<^)yfn0AW+j(c)G493j>wktGAdqNa-rjt09r5$2A0AnjJNnt;Kwh
z)zM^uqL)bfFjh;cKa<ZAhT~)voK~V1vj3T`JhPA=jj8V?IRj)TiAAziFZz!xj2g03
zE9L*TJU9Ru{1<VX`;d&T-11#y4WT0nAQ{av{a9}wySQka8Ef}#Y7;J9tfUfbzgL?<
zwLk8a6kaY9!FT~u`Rinmf(3$;Kl(T%#JeY+*w(xf^uD)IH@(8QII{j-A*@YnPvGto
z!s7?=mk1DES)Z`pDW)h&*wrpWwR4l~;v@ZSL6rG(hY^84oUO@D3lLs<b}?cP6CSk$
z>lDXvwWIpJt19=wn^89#1?v><GG-2%xSQ9gHagowJvPv#g^%LBl%#l=A>yZMG)t|@
z2q?O|*{Wh^EV0L4$Xkf;g>TFs!l8S)J8@`|5z=4*ENj7c{d-X|r}Ai>a6!RFq-+=N
zYQpBMsth54pMmDT$F}aFkJcq_$>ibtUNaaB!H@x`LUrR-6{p)P(aA^Iw*E5+#N9VR
z>HuYKO{M>}R{7Bd3NicR>h0d@MRo<6S<Hj*?#1%P@vk*3`kRg?dqYLvER5^og_A+{
zy=+4P%Ws1ptMdZVEd9s4y<|n_$s+VmzgoGxCH$@*LjF<EbX7b=>drPdvc0*na;h(=
zr5q1Oh~jra|6M!YQW>E@k>SEAd4&yOHbcu@QJOzhbxyu5e~*am85SWFNeWQ4=(zOj
zq-EBeHk(>yw_9Qie3`*#2yJq;3a0#n7T|uYKx!FkbFVTW%9N|g&GK<WIkP$~U?ywv
z*onoB0Y)J(Xgv7fV$Vx&^itVSDL}%JHk{r6bD7*sC#;Gn)r;uWUUoANz9u(2=8fV~
zt+X98@3p9$C<3~)pbCccQw~Me$e%%+1m_Dw)JdZMos&d3DVefYHIFSjIIx3NKTUn-
z`izfV#cGQEmM}3MONnn!Tmv6iU3QFsI~li*rP?#~I1mT-DqWvJA1rsM0M5QmhuH>1
zBZ2Qm<H?ji;Y4pCcOB0UCU4o;x>4a&|AgQN6<`TVS(?QdR9>eFYG2DAITW`kq2DgM
z4)x_Fh|$w=ZEa$TA%A+Xw+Yo@hqZ|NxN$E+(NVAQC>Ob4o!aMAI4)r)?IO`6%jy||
zF0)?8XW_=8P**o+W%ab#!y8!`sCuAaG!jw%qx3#<vF9Nf?hchRJwOFG9!`+HTwCik
z`Vdtk?^m_K8>l{GlJKt*1ms2=-t{(IBfJvNI`obD7hHF)9Ln@Y3gr@(isn=9@Ul=;
zSP27isF>fgwo^5h1{JTMNm+reS&&~&zuG}IaSkaie9d|)bhaPL?RGVp?eT-DYX430
zA+HQIwh0@JY|s6zPyMguc~(RhBSJ^xHg&`mj54mVN*2uRvFO}#X%nk!tl^sq?n^W?
z-*_LZQx{dt$?|b({_hIFhYo-Wq^g=_lYiRTZj6AQxYYlsURD@BRshlxD8kqU93>wR
z8u~iI8WzU(fN}_w>ylD~HRuk9!p{Wk*yV}qV&%v8JYEM%qB$@Kj8aY`OA?NmU1tY*
zuoF<EkmSm*ujy8<*K5~(k{z?bdac6HGx3AAJ^{wyOnKe(S;=Dd<0u^{bQm==ix`;g
z6G!+Fp&o&81K$-Z;y(^EvL_zC2I%0t&#-8cSsZzn%XXYi96!2^aw}byrF=BNV_2o@
zS-$h!xEXX_<ghBi7pmSEG*s@98akr0yp%?XgvSWmEPMe}`khr332o-l?5a)ZzQrU;
zE7TxxxUIL%kRKfT?7uSy_nQ1A_L(P^-6#NAIC;Mrecy?t5&s}JuvTPPl2DAAhH}&m
z+~y7-#MmuG&)D`__|!KwuDSWY|E;V9{-^etmmE(+%Wg$pDsvB4yM4n~Dn()6aZ1?F
zdQJJam!HQxI8uFK-_5^I?B~1L!Z-2Lv)lK=PM<mY`^%Rv6B6o7r+4(^tGc~wa`FT7
zYO`}x(`RyXy1j8;bHwoh`MyR)j1IDt#S+-1KOw_P(~!Q&jDtgXgWhA`oD)-R<^Lot
zzq5oR_U%>}oOtB{4fi%E{hutr<Y!i*BiU{}J4#fgxjCct8Vvq@#Hvf}s<@IEoa6_#
zhLy-bDq*D;TNT~oR{VCW@ZU#KHIC(38bvSiExK98s*e7Xwj6!~1$^XFQxVZUOQve{
z49SmdBiVG?Ezw1`VhWxhI$S(dl|N*BJ+FE<8BR<IPJ93p%L?d>q5jjlfp(3WsD~4%
z15^9KAVtEfTXSy6RSBR=Y6)?c5M%y)Z}Vhbp@P=>ohd0XJk%rKhqV|-lf~pne?90>
zIL~fAg2Lyh3GKWOi>1I$W;OK=#%C#gfG}1Cr)S+Y*vpS)!ml2Ksw0NrDG|IOlrhN*
zyEmq1YAy&RQRqHU4i8;dU*iC7z!Pht!L|3&4OC_4#A#LS)p}k5wkX@Y={VQ?X{*){
zob2t26;ib(FWrB`cA&63*F*-&e{prACeNN{4Hl~XuJA~mIkxV#)b52&ELvC7^Ks2q
z4p8JKE;QnE4|LDQ9jT)s<)72WPBPeRGkZu}zvI|&FVa`+_~MfClj<SAOJ(eEQ_|V)
zwj-$Y_CosAJGC*VrqnC{ZR-Oc=<T$gUfjvJ!2eH2RyZUrRTAyBt@o>HF9;9(`)2J^
zqmRgrNS>OSullzknA>mbh^H4TPfdOLhvhbB%i|`tE%a1^B7Id2VpYliK8Wh^sRU@p
zKdRBG|FJ^?u`Vj(af@%bM#hSZJI@-th>oIU-YurBSngG)*NPx+sA{c_e4U9A^|u5c
zbM`A=Amn4W>^#WAB6O>N<WeSk5$Nie)5CuP8d50bcLDNY&V^llBk9W4X~(?)@xdPm
zu<krj`z!Y-DapQA=UkS=4-ZwDecz;1j35UJ#8El{U#@rW^GRrXFh>kuHnkVjpKehB
zHVdnQnWBp2q=So2rKkUC#~B{fS5?(?7aGrMz|>y$gYRwX{O7^rT*UHzwuOOlL9U?w
z^#xkYUJr=PFOa^Z8O74vb9Gre4jW{l2it1&Q|5EWSigtLvzQnJ?iwVJg);u>k}E3Y
za0dkvAYaTWMkm5)$g;wZtbTqN>_T~5sB+fQ{0L*F1>AxviC`*@GV0?WJ8AYj!dLkU
z;YDwkDu<gfS?Kfc>;{e-hd1G-Znk!I0lFjpm`{s1ISf0kDmj$&`y<gbs5KXS;QFR`
zM$}&mEUx&>u5w>0hlGQO$`!tvot~NOnZd=A>mD`4lCn@A7s%E-Ah%hxz&`)M|H6??
z*5`fybo?ngysC(D5+}HV0!fr6$klkdfooWcQCoI*Nz*|&$QbBBJwlXI;Fv6dw6V=R
z;p6toUfpu%&ZQd2aA~g&!XvnbXpiCDx~n@$ci6OEihPU>QZg*_{cOY-_`0LsA=7Hg
z^aFMKN6koyU%Jil^^yY@$o@Y1d2Jp+#7At}lod2RosGoKGee|Yk@6RP6bT2CsF_n{
zoA%3-(#o>=={d@Pj?QWsoT}yNK;9A4l_fc2_ZlF$9K{Jqvm$3y<0+p5$YzJS$QL%p
zF$`PZdw0XoPN1b4E<~fu-5OVq4a$7yr3Th#A6fWy&kZ#l^y*#*W2|+`Du$|z!qzH3
zHV}0cTZ<w!msJXeLOjC7+^VwpX6y86`wH(UB7VrEq~ylhe=*KU3T-E*5;BvcZC~bN
z>#D!gWer}ibNj@@|6#DJ2FKplzF5VXJ$E3*8W^Oiyj@Z~F_r$K-y#i?ta=B%o!LJz
z3lGjl`+I+S8$@_olW=k>V}yrgG^gA3!4MsJ<*)g*Tu<T!Ue1kn27+4;+De-&Aa@a{
zrboJ7KIjv-))}0iWiqX;_}st0|0HqH+;jZN5cK-c_ewE52FwxhN97&(Bn`xUuDM1K
z1M8HqTyw*wH0BqmX==lCyMuLt&(UtvC;xiG3(z8sQV!?QjQhit?~__C=uP8a8=Caf
z0PW^hg>_c0rF8B9(K@S{aCc2lqdcOE1L8qsL)r+@w||pxWPAGpVP3!9n3S;TY25U4
zPIlFIVia?8v1?haHTvRay;Jf&-~0XNP*Yx2uD7j`YU4=t{_%Hg`*^7gD#uzVxG*0S
zF?j<M?aCNywAYJV&hf7?V|<t`hh&j4(p}=NM$31xQhCFp{)z-tj$dl$bPq3PY1}(<
zCyn&F(Ua-@ScT`}oN7>{NvMzC%>ehhoQ*|uh*SEdRO4)3n}~J}YESNtfw^0V*@Ei*
z+t!HZHP&hRb$y~N19GX%<7l14<3Mhqo*C(=9&%urFGzD#8z+hlBMi@NeEGQD&3mL<
za4sP5GQ(>rK*0Ee_ut23-Vb-&3R3_`=ETM`cUJz=8k5Nnp)VLOj2bRT#ATqN29EmK
zh~a0Kn-MOxqfZ;$Ec%uGHCJ>}Saz`FZ<Uu68mJ^g=rj=dqbgIgW+@J8t1BkVbw3xj
z$Y|VO#_*ak1(v|M`9*V3AeqvM*;WpS+9Bx?=|M#)KdZbURUuj$AJxbc=sxv11s<tT
z%t)!-@X*11^|+d$4u^2yXMj)~r82jx<$c)>2Nh=?=`|&M;1hJ#=w4$JpN<wa3T*|R
zpJy_U)s5;$4c6CG?<zR*%|3|2PGCBpHUz(U$6Ocxh;U_VLdHf+`#4IY-uR?XmsJKy
z;&}kMbK=M=^Iqn!%s=-rKiyPEpY}|RgD*oVSOW<dt9m*mWT4b_j;=YFKA~JQmDq)(
z2L0q{V-9xPZ%Ds>!3<VW&OcWBDOZ#z<YZgvzt#cocB@wQxNTjGr25w`#(u?JW!bGz
zM=5Qp+=TYQ1#<jA-#JonR6`{kU-B-Hw$F$A!X}RyrO@J(<L3(#Ezh^BOwPw&Ehun$
zFP1@kKm3aHleO^0rAB04_q&;#0HJQA{0QCGl@lR$^<Eh5Nz%CDf&R*w8tZKn6tk~}
zt5YCh?l1a!2X#x1z2Hs@kTf&1&AFgjHndxKaJ&B9JJoOenGwgC?kbrv5_3?OMQw=q
zz*yd=+&hPL`x<6H(u)pmeA;-RqrKtJ5Hv+tudEJckiN4fGg2dqm5(XN{MDVAZ161t
zzoh1AocCer2u@8sfsG&Dsr3p-&*&D=pGi`~5#_(FJ$<{QxPLR@ykCq!NeJY5V|1l^
zlw58v1_+veSgD5Q;h@d}I)vp9Zg}OAscMCqsKg1$94>mmC(M4kp`^LSPzA!YrH1SK
zKz}e_UoyOkv^aA2)HK$S!7@}=8wztzss;Lj5`8IQ6Hej%A$Eglm*0?8OmR&M>F3eN
zfWC_=zBibjk2Ws9LT|5UKmU$D=uu#-i1|{;-!FZvZYmax(U89!Aa1D7cnVLKoU{1+
zdx2P{g7R(t(Nf6|SG4#Kk)YsB0~F5Wn?UR2seKhrb2(cD1QmP>As=GG_=do_u;A?u
zYX81pArSWHdso*Gr9O3tw2~Di@%j(rue-I=yGEW>#vJ$I?93f47I;*fdhyFBb$p{i
z?%+b8TL3WQ8N1Z}bg1g;(>GiW=RBPrGqw+r*5s7*s+9?9YU3?~yz|J*J2O)im3Bnl
zZnF`ni?3o)a}~uKvQlq+0yE~^QF&uOO?UN~1x-8f4#??LBjI@2+}wO*=h}ecz2}fe
zwdqk-Y{A;P6DBww%p%pcvkyOxGY}^|Y}y$;&a_Uts8|zwv9$Vf4Nc)WqphE2Ie3by
zt&j0q3%mQQUN<{g$F~0QU+wUXqHtHnvAPWK&u+;%A%tG6GUUI<ckDZ=g^bGuE3PTa
zgu6lqKYH9pVp`9+Z2M*=m)&cWpA$%S$@&`&o%;Y29M`rI+67pNeq04)rOrE~H{4+s
zpYU-XSWY~3(v@3KKPPpxDg+@vFoA;)OVmG^5YjJKy*h9l^LQjZZKJcN*1CsC<f{}v
zR+r$gZc|=+awA>IG||hsmxDS9rY2I{0B)TPMv+#a#|8Q+pC7#d8hNkgrrv#<g2xDC
z>@rU-p7dBjBqpnBt?hPf`K!yiUE!RnIff4rB}g*n3OC60at7J~s@-gHE<%Y9c<-;$
zUS$;QT>4&i*0sT+-}!nNjZ-b<=6OHkv9kng5j+$$Y(mK%VUF@mxPLp<Xbf!=a2`XB
zbBP|61eTIWO7&t_BYj@-pIS*Lm1rkTY~Oy&P=`oYz8SgZ(#zp~455z`li0S7ozB3=
zNR8Cvr>bpi<4*NWLC0nAx_K|Y@5_}Mv7XEKdarYC{F+<hK;!LCi|y;v>;CO8uTS}U
zOb3=;XIq$_=&m`vlE>3w$`wN)RR=Mf-OaUW2l9=;*Ty+~75J~{Ii|FhdnWbyYW^k)
zlkX!LaRRgD+H%z)jMjf}Bj&;!a=Fqeef=blz)bp4^%Jh7t52$Jmb5R^Iy0WHD&`vf
zz2yxev0E1iGy2*~J5Sz{q;>fwL{}6{w+~a>a?|oN8ER_@xl-Ql(sNtEdBtb9?iuYy
z%-vZLhS1v3&ZPx-qw&_(pZk0o^kO5ltNxg?ez_nvdC(B5q~7wOD*`+DL$m_Mrmnuo
zJEX(!n?=Wjm~(H(>>tTrjfNt`=bj(+xJKg)0v6n)1%{MFp|iRL7gVJQhWqC%u#^KI
zyLr+luBCi@1uR)^ZI!@@y7FJ?Zn<fVcKVnDP7V!UAv9Yp?*m;mE4gVW@okKC_lR{C
z6js{o#2E<xs`)gy{(=H;bKu(BE%)3zw{^by=ib2w%M%D6w?}*Vowq*jTlCFgxCHBC
zjM8r7OGeHf+muC$WhNu>g^NQ;cgPJP678Jw54^VD2K9V4D`|qr+kw)dUcQYksdjW4
zM46i6S2_*cvJ7av-N;Hxk5}!=4G_;UFc<UHzpIpdJPi>u<X6cpUi|%mUa<b-o%Zfm
zA<BBU2Q<FKxyM1l?8rT`l^VV6)`+zQS?JoAl}~zYs&cl%@5@C7Y>Fx?{n37U4F$F-
zmtTe441CixEenKIZH=^<-I^@cqW&JT%(rp1mh<=&nrDcty4#Hy{5CJCMz_7i>M}3k
zRjRqb!}qhdRh}LWs0gJUL9JJa5Rfm@ciqDL;`Oy<p|Vs8B?ZHz9iOuGS|Gh{a7`YY
zN4w^|Y60X2-Z=A3w{_h`@f3b1hA+0SF~&Ckdi1eUte#LfT2O0h8B6k#`F5&%upo^R
zTxhMsJh{>3qR^34`Zv_c-gKYV0R;-G3YjF-i|f{1%X(?jl5>`+go8oKqV)&*!v&qD
z<d%^K7e-A#Jls7L-S~AwO|{D95Ar!wr<T{N3fJ6eSF73G2wtU&n3sLeeX&wqoa?V9
z1a<MhQ+i)s|HL&1&o@@W5ube&fzqB(wT)`19koK|Q<T1lkg>{ssVu(!wfDe|QogEK
zuy~8Agix%@m(sWzYc0=+b<jycYn2nTz1_}HYArpmRrSd<uz`GR{yMqc2m5!7)V*pF
zhipN$bx*e)e}BS+t0Txk&CnMai_!L+yxZqpkeY9<k4ulyksqm5;!GbZ+09z_M9#=R
z*nj0rGa?Py8^|5L9pRliGn-svwd<0(_B-pufXUtNt~ofd-M8~4Gr<6pEl_cKAY<@8
zxe+6S;<>~(UGKxhs`n$V)wit;-tD_^Da%YNNaW^L_@QX)5$XCixr=GH!>Y)dz2zYi
z-PnB2g~smChP2e?nPIb;bwu0Kjd-=%gd)omr`74%joNv|w|*Th;>~cw78`bCNN3Xo
z7L+q}`Z(Mb!)Ot%2d>$%0*I!!eDM>4mGub14i_`{Mo~)UJeibA$abtY9^ZL>h53Bz
z@!-=hk>&4AhScYGiaNd(Gmy(gM$;!-hnEnqi){~)ZjPRSj$^FsG%we^-Ii>-&lxE*
zcd9j@vh$nkta3vNSMFLrT(`KYBDOKMVaO;{ZZDF}lLXvS=Hw<2`j{f7ZC<lpEjAVB
zlDUA@*Zv|?gwYp)?_MQL<*GD>KzPTYs#KY2!P(Ay=2O{`aixLZzmN+jzdy)plLx~5
zU)uFDgMw&Bd_??=QF6_-(4Ue3(&An0ml8mW<hj&_bA+VauE(6&$qlv^*2OW(_g~$#
z5rq4-t*x&Mk@pV{6S-bAkV?B6YR<7j?4|%$Kze2CRkWS$^=K_=&ef7=yGLBEqa3bX
z$tB}&8NchPTqVrTf16)^yEW^x&O)Qt7DnLGTC0!XF<KQ(#E-Z;w@0mv$X1Dza;g3M
zhSKKpIjn)zFFu<abL%^SKBGRH11H#U(*2gf^*bvK*^?&siTh@!RE35;E|q-YeTKjo
zi{QPG7^q|afDfHtas#Tvl_ZT_88}D26b|*ZT7n5V$uqQ^aj2ssO`jYrMu;)MoDaxg
zI)d(KL5>$d7`maZcpjn*cD34CCvM%Y^udeb756&|$kk^>kMDnT07##Ge!G-iX;jQk
zj%`}^s>879y`v*3ALH*@&mK&yNXa()&g0l6P<N$Njxf%K1<c4&>=eK0IR+afMG&mz
z<}lHa)>sXNqjf#~+e%Ap;C{|u3xTvT&vf*CyeedaOO@eZ?TxBvjn#K>>g@I3PQKuf
z*52{~TY9^Ux!iCr$Ei;w*P&#x<f|%psjce3BR9-@i2Cfs%)24pf@GgF(5_^!Rl}{3
z8%ZsW?}r`n7-d57!Rt1!ScvM?7d)BC_qc5acg_*4ec8)rBM>$^|D4?D5P!isQc;q$
z<phQ-LG2}9f^z0zCKl}Q`GKf#fdb6r=j{6|cEJ)2*mq$tuOA0|{x!-Ec;d%-jGX_>
zG+0yWk3&2EPX_6)EZT1)1p!LNEH*D0l9vYd&=*+bLrrihz6#yBeuPD0lc+t5eKBxr
z?Xrp|4MHHqzsAZv)CDHzt)F+Kt_>~7&htAE?3F`D5q|uM9L4`N#Q!*P^#2A25-5L`
zukk!G@2}$gfhAozWR>i98w{)%n|UKiV<V)8p|gOZX>rgg&dSQqM0dFV@1U32H%NbB
zu#?FUe=OoChb1>QzQ;45t%rp^abn8~EcAb1fTEv5S{A$tfQ|?5XN5m_)}b)hh`pi_
ze<TOB75WQ8?%JM1p%_&S=<ohe)17a#=4lFdcpeT_VgCV<C>gw|W7;4;Tv3Do<*BP|
zNZF<xg3gMnY|~8oO^ZfTQz?+@B~jWNwsq6))%E#8Xw$<VXjA0ni_Nuigrc`ys_@~e
z;w}=PqTi1{N3iPq+4ta{sJ#}+zW<H1ja@KEXiTSk$vxVTH4c@?Rtp(380;8Yw1>4;
z7=Jv6J1ttGT^f)VY&l~r=I^nxW|w`EEj%)(;C{7e+S?$;)0*A8u^~m<>~nRY{^y!U
z>&;J2A@B6pmqS?YKj&(cUQH~Lmfi++KCSr|W&;a7a2|TP`{Y#N`8la9TC$}I?jdX9
zQ2)}xdDzL09{kdUaq96Y=&Z=YsLjzAt0Cnl*hMaxbf_VJzTgPc9ZNZkT2Or$*}#5J
zyX!a?|ECu91=Y6~LR^v`v2Mcn(~s2k(dw?~X72iZ*x@`irK@|A)!PayF@+Afl1I%K
z=AkYqy@bY|dyTByO#<KqPFi?jc_>iK)a8xvi~#%Yuk}|6o}WfjoY)y9%;wnTWKdKJ
z>8S=5O0HKZ5BQ@E4`bMTles09#RpZP_RznkI=L|P&e-{S{6kfu!x`3CH>%)%Gu^zo
z*@_w?rt9p6#zX`28a7d|P{Kb|q<`s}12<_FQ9iW;pJK}(9O{@}E?hsU#;#!AkLr2N
z8WiT${xfO#x&onMeqr+6)t}g;Os8{D*CF#C?L(IWe2d>VD$7o>-}=qqO2=OiK$qfk
zf^E4==qz3&snP%LddnW|svvZzmYMK&YYnHy9_qn$=(rL3rk+Z6{u$O2p`C5#P<?2B
zu#GsCZ~o2Q=`e=<VoE3n^+C|<j}1kxrEE~zCOT=aBKmKJ^uL+FOJ#SCF`+Jj#jRTt
zMjMOzKUn!!AofyK9d0jIhQU%^9;v&sathc4SSHIY9Wq%5*d`y^wqJ3vE*#YV!0)@x
zq1g2NX9Ijg4hifi64KzsOIKr`_}l;`4C)W6j(R|CZTw*@oJw0#L=jGS4AxyHL|{`B
zC}r?kR@;>&Ae3Z3b9$R}kzkIsh^4H;a|YT>T!w<3#(i}`W|YU6hccWX>qF;ZL3NJ1
zaCI?%eNX{97&U;ZC=<MT$68f$wFV9yPLuvW+WXF^Cbw<vC@R}yVY}@jpql_9O$DSA
z8|X{jK%_`jQ0Z(?zyKjwwkTCYl`d6^bV5&16buLv0RssnDuGDXK!{09a#!5ve&^h8
zd}DlL+`sp}e;APPX07$EHRm&*`OFz(5*X}TCm<J_Ay3%~WP|D#&C=dETjyh*T-)5C
zGs;H1|M4^-z^?+%3c-?p@{mQEJeStlOtdVr5q-<=G046of=$x(<ABnO_IknE0l{R|
zGY$_PS!Pyj+|eS^lfTk-)-}kw;uXE||4?@p@-MRC%g?E9zlxcCk5XU>JfeY^j-O&^
zM0CYY93v(nH{(i>?yoU7BjjBja8#+;Wf``R#B3Wrp7X~tHP?&!Xbn`IyOSgP;8M??
zszG>XIp&D6>~+nEb68CfSkL`v4X8LLbaDdq><V>+9L9_1=RjsuON@uI>Cq5A&29aX
ztHhi?q&*j=N8Gt-fe<_-+<rEx0lPtXC5uEhc*x&VH{luA>jZZv@<4HrwrHhqUJCe~
z2jJPL-shKObhY2?5=z7g&TktdAQv#JF@o6L{Gg#T9e#S+oj!-|Cn~zt$#=f)Hbzch
zGLRU_+<ado3kA_~7(b~nK#SmyH5dTX9|NpAxaEo4?S>wr!>{q#QnOQW5h6SOlDipe
zHiE7~`6X-{|Jvf?H-fNTY->wxTds_gz-2W^Bgkkju_kfD^7A-jD{p0WSWK(uY4Au&
zFJHG2lGpJumr^-0wV3i2Q9T}=Y#y=<r(3b^LlXX9s!g~-z5eZ>{K`!G`nOBb2%<#q
zLbmVirph^1gMNYptl+1^x9Aqcv6Lm&K#Pp5Hbd_nIO$!}L3^g>%XF}787VGCJ~7*j
zo*luU-r@kA^BoSvly8uAK~TLB@iAoVFoLG)UvUXO6ES?Yu}+41#$xzp0Prl+@+ZE_
z0atRW-(m=yBl;jbqnMYA3B}&MKN1=4%1l_t&&z(XLIXHZ^Z|EA=4p<Z2lGK2aZdR_
zy4^slf$Fz^<C*H$kiSj^_Eu}=H8mbLIg9P6_`<YOd$kdEEIa|^Eeb5nAzB9QmkD=k
zR`=mhcRM;whp1wwa6ZFUVUNh6bGc+T@x77a=!3ETlpmbJ{On?$5^EzAroi>8@HzN_
z-@IfS0d?nlu^WH0G^$SWc~l7+nS5LMv~!j41@D%cyr2qpmE$2(a0F)7?ys66@dg*M
zH`PdQzwRh5QyjlUrmA$>ypU3+$YuLh#GYQXCd~~IrYJRE=KZ!&Q{``I^ndBakPC$=
zN?UHIH)-GD;7t(mEsip<m>nRHX`Eq0(GBV%OKe$*S;zC~MQAD0cVs!)ZlID^j$D~H
zKH7<jaL@Kde(lBP*we#3D&R}$NFrmt%<LDs%BVM$uY_Xj%UbI-z2qo*i!hqJZ|*j!
zoV<_w;;UU^mfwjDY|O?hVE6eOo6ic8+^tx*S50ZSPj6OdR*YI&L}LEs;GZ46yT2{y
zd<vFQ;eDsx59r&`QFihf=A4aaeCI3O8VYbQ$RTU#Eu-sTZ)L<$fMc>6fCRLhmSt<!
zJ#fEj@&~wFML!8*xxdC=A8p2*_;~BT&?VPua_)GBU$=q5Ze9Q(Wefz8*5vX%w&qw4
z9Cf9_XAgzdfh=+%WHA_cPdWPxf^Na&5`6FIG_;p~bnkfsub0NxX79lxFHI!n`mCn3
zM%&=Mz12V-+21H0h)`==*37i`E@^x~5R685NfgcG$n-viXf7Ga{d2Fr{U=4i3I2Gm
zR|MGzpKRu5mH-eIF7qlO?ICAN+dtOB3e11&&<bY4tsw(>d~$h^8fay);+GE><uI7@
z`637G-jYeik}Z}{)&GC-4xRpQgf`Wd+9BVq%4Jsuk@3xS!3S+pNsHp0GxpI63i=j@
z!~Knf1I7^-e-D@r=gAeD_23qd&#D!i^heH_gyv>!9cylQ@J%@XVCr9VLSxe#ijN5*
zMZHuKc8r|xvE*TfA{R+<+QvT)MIR=T#o#gXIY<)f5eMe;tu0u6$_JSdpzPLFI1P8$
zR?bO+*IZz|ga^HyQ$8r`l1iveas*Z0L8H^{j5hg)vxBw~L_SDU4qXO5srHzanfA-i
z->X5Vke)S4mC$r>)CccDX7}h0M$QYZWo?!}!pS3{^eo>4f0ZB~j=8c0LHnj!?k;4|
zret<oU)c~uDA{T(XPSGS<MWQA7H{lE37G)?=T{J(93udpcFNy!X9uTZ-u>}4_g2ii
z1HFdwi>mr-Lu~{VO`f#nZyl9tSL;`%@!Nnf*G81C*1HXMOo!sA1rRc&R-Pz1&)PY>
zpu&-}4vB|j(tWLHl~@qX)hOtl>@Ex6*V}jGqs*+D>UoZvBOUN$8)bR`nAr0A7tm3Y
z<_`s(Zce^=a7&u}uyiLM#K-GkUsA<KuomYxEUm_S1J_wPw&$ouWsrtN$fb<iV5eG&
z$q!S0Hk@ABPg*|lYse{V*~m1r%&bcSrdk!?3Jm+PUYr67Nj`l{Q%MPh!qTlm0xL|&
znVr2Kn(3C>8mwTMp7&`gwgZT5utUHx)owRP`4I}<egkM9n&%I_vBX9d%pcMZal=wW
zK`lV-@y!1he2F2dDzu&@pN4JmA;5K(^?!kRc#4bGGvCU=xh~?r&ng0k$9O2#6Wp{0
z!}d5qS_DM~pNv4z2#Z;QzJ>)UgI1l}twM@;VavQ|n8%cU`#cCSnED%F7rushC=*>%
zI*t;ZplVB23dmoE1f%&WJYhphhdyy~s%d>p;><UQHWvD8*O|88i9re|Co$qw%{mX~
zT4AR*<CYas{xcY_WvE=1^b;1TjcKF^+?vPzacqCl9^e6Oo;K8h!XS8=V(aW9eS{TD
zzzchHHYMs1k^edLCr<p`Mpp%d2;}&DLI&eCwDicAK}v`7m0E+*?In288YGOw#>e53
zty!^l$v-6vV_$KhGF|I+RV$f25urc=<<el9Jq=LQ55G<URH289CeScZ02*=a`|H-j
zrdkz=v2CC%L6;6z2T*UUiq)CEh<<&3gy#_X;rv3S%FN&Lg_$1auz4TND;GUk`(?gg
z{L0@k_PgKgv@GZ{aV!qtU=+^sa&hkFtZbj_gEMF6sM7z8XjQcUo~5RE(c3z-0Yv^%
zX;CY@DI-Xj&xD8jx00NC0LlP<@x3j1oobAf5(?>xzk#i(E~=p_aWA<F+u>5q=iR5q
zu#B+s-$nx1;bG=~gMEvE;f4s>gv`#h1|#AV6L*r20+<H4?o*z4g-1LbuYv1bd21Y)
z&4@RVi^MJrUr7+Z+I8@RNw@#OY(@&2BRG%cD00tKye3DdGAfWOzso)HJzn3gfVzUE
zt~R0n#DZj)i};^lW>S_Rp%F!YDveh|tT89apAo|;(8z%dZ#^-k5C#mlD^~igv6uMG
z9z`ci&g$UGvK%<ZP+&ge0~DC<i>Ku)a!GKelAaE+Y@TYAD+Xx)d;Pao;MCP}aFR3Q
zK=vkuF$66=X1swLqySL?6~gC%p1t@~hC6m)PSGOfFZL67`15{o)j(_=Ocl%GQG@h|
z3gtq3;W?~bN{(hx3k>#A)E<uAVkfvwxk+tLxv*{z`N^#7U8!Z=JuxP>ZkTNUd?@5k
zrN`^F8cV>(dXIv0s!zQ9Q?8WV)rrm7E%AHIHj6uZJyvuN5k<<;!f0$6ycNRAlvi_|
zQx;MfrDFdSRC?ewm~H&b1EifpwZF5iLdbF^18vgTjm<f>@&({3T@8!nN-w6;cr*1+
znB!gL1F*K^gKSQK$z*@&!M$Ct0KywH1dhvn-<Gm<fac6`Oywl6+tsxRP(rn+iK-)*
zhK3_x``!3{nocq>c(~qU!)CXbfhnp9_rXu>Gw^8>8sR<!?SjdJD8^qF<B&>!%sA<~
z5rF9IE|oaeUaZUb#Y4c9-51y<9(7d50X@G4(baZ9dQ(>qAnRfR6WWA<HOm-ldyy-e
z<h1b@Sl1N;{n5|9{bzCJSip{ag4Sk_n8HAe(*~BV2C6R`t0sOVJk1}6iot!W1h&t=
zM_#?J6yYE&5ac3@cEK{$z#s!t$#fg4GPHeO(E<j$fGf$$`lJ8}Pj;VQ%iCFmT6Yb&
zp91MA_^p}?A>_c98(=Xnwp+2@!1D*@5N>qp)jwcc0F)|_o@R5x(0rUis|i-;Dx2PS
ze(=O8@W|%AR|&h>n<no|)czqJ+R!SG|GAL1u^bDChuWvA3f#a5Obd+w)_qUh28~lX
zS#FpNY*gtpe#dO=rejakfO|W2Jv}7~|DD_ObGfA7hG5HfBSbdXT$$JFYZbv9UN@yO
zm~r`-G4Tr4t^*~ZBW)d;L`{PPfc~qeh)zb5%a?x+0R#f?5`$|9&1!SYX7%LNGZL8z
z!24$RI%7MI6N~JguY!`6#d6cRQv9S22oXElY4$mf8Hnq9ltDxmyMm3XQeRGC?3V!r
zgI$W@zV^v)0@_^D86UTQ-stEB(D_YI?ELa$lWdhMyEJNF0OeZkm~lF=L&C~=upAzD
zc@bDbO+R0e%U(JILQ+j?o^MjE5*&rb4r6ojeeW%4m(Of9Fd!;Jd3lV|$$OhmfxY*o
zub51y?p;*3t}hb2gZ=OI|5<^URvc)B1-~9D^X6A+BRp>50$Y~@+L4%}2YIc|spNlb
z3KmLqZK@L+m6+B#ZDPr+!Ze;1pzCz>3imA#S(2$ZpADmT5@p@9DbZC8(MuFV+V%Ga
z`9Z^HFqRfP*+N%W!uD+TrGLP-oCPq)dkzmewJx6(?0^EvKIeYh>Mu(L@6Nb(%Vqg#
z;?sHZ)A=b0*t{5eX|e0qag4%eKnMc+D&k71!QQ=k0m&jW=ua4H5YR?*p=gy+he+n@
zq-u$Mmy3FvAETB$!aC?+?;I0<)MtlyRyH=rF{4?DTQVN|6S17yX%4BI)#or?@|ZH^
zri<!IT>tK9d&&aDdiojoaXn=s7Yb9-(;#MRMn%)n^TyTH$%OjF{e$7}55r(vXT;wT
zP@8+AK=3S$9{U=V4-bMuPRlUKKuksyO7L1Btb+nK1gnCLQX)Fr4LBS2wWtisWis|d
zG<P{>AAGO4B-JlvLTz+CN^sw3uw98;1ZNgU<V4yUF-uC|i2S4D7<-u&DQr$U<F9hl
zsN{P2PV&-7A>A|O2MQZBDu`AfF2h@G?iyzshEr1}lt;g;5X_n!KVA)`){OQVD-LWr
zQ`I3k=<`Q-s^)N{@pd`e>qQ;0W|CzQ>Im#y2Q`;5fh0|JHmt4a&g$ttn~WIDWq0hw
z67%n}@!RK(GRn|uYR@@YLmyhjpl8dh`YigZ26F=K87#WIjW=ukB>-Y2RavP5u0!q}
z2`^7crAkUR%B7{wC*N?MB-MH@^v!v_ykYuE%a``K6zUEr$2wT%#b#(l<;cmtk0umO
zZnITjpO;zrUe)R7DEbDT&e#Lve8bOrKCFpc%AqwNStv6bso~tR)CPqi_c(vp=4#Xg
zz7v{5ffHZ9X&FgUjl&faJv&J+BHUxydHuuq^lI;^e+}4m7VTkN&?3UU77!*2@>vqR
z*>cl++K{SYZB4$D;w@`y?V~{>!O@vs*DK(*DJ{`qiOh27z1R6H1q*we&1RZ)@c~Gu
zO2D2w38a~``+CvT2fcsDVvu(NuSQZ1pm9$=x>n20v&pEA(jLpNVO&{Cy6?SP!^VK`
z?cR}G_V=oia-q-OQ+k;f?}U%F8pdx3awaF>2E{C>qwdx9ALS+1^0VDoSKevCO27#F
z!h*5qi?e1tlrO$#JgBmAb30Z{P&3KZI2mO~ytSEj;=a2@y|oN;5H1C23tpP#rrqn-
zhTKw*K50-GT?x5G_vF3O|7?y$%*QWx0$pN#xC}iVNt(^IQ=sRMe+?EMBYN5@+~J*n
zuf{gIUzuWPKs@avps<y4Wepj}x9SU*kSj(tIZ_65y<fTbh;Gw+Cs9kZRL1L2f@J9d
zK`Sdq<`Ls5B<$4vkpFzhA!9R5oqiUBY;4yW-E}y2q}R<XRF+n>)L_x4jWYDhz3bQH
zOlsAH4h9%W5*amTotdo0>XHCAO^PuGgm@m8fvicYk0VnjGM4AfiDIIoH<7MCK|YL&
zk88VI8sm6$Enn~RSV{2C4kmou@4}>K$YgQ%V(iG|lhMteE+?arQPXc`r;(eJpjE_R
zeEpjDXyoqDn!&GdhONCdJ=kUwX&nXgV{*UoXfNP7)aHcTM-c%EF5$&lN;ju(@h!Nw
zh+bd{w6o1eC_f@MkxqABF}EiKhJT?Vmh^P1CL>6>!BgHVdKVN4>DogKm%I;6jRStB
zRHiX_eyRyJ@;Cc;;N@h897K|<28qu^6NO845^JQRFCu%jd6&#WP&OQn=|Mi*WKv!!
zq2{38_gML)=5%2%*Ia&%(D00ZXGbVd*Sa>_zi$_PC+!<zo;I1RocCPy)BF^%{P|Yz
z*7D)dJI(Q&cYbjv?_$#gKrD%<3!=9$Kh}oL8-@2I77Z{DJqf&{vmdQ)J%5QZqg}Lk
zLk^5>&&yA<=u>WfNt2gvtgfjb3f$A1_I@<O0+o}b+9NHn4O4WjHRh5pwF>I?=ic16
zn|{?q?(U3sKt)szx%dDZmp*ACXfjo;{+?JUEMQn+US1=t3+1K7Ps(U}V6r!p@5Xx?
z`CZ6W-`U~X8EcRI6XETMfYi&WIYZ$hFua1WfE<IVo}rl=k1P-`4CelQ<@}G{#j8ug
z9>Gb<ean}MXxVYBDd{x<#t!|}t$()(YWcnZ_Z-R*T}&ky6fRvgK`}RcTgY`QWJs1{
zO#^h5h!_19=t`ZpfaK-bv`yc+4@2^EZkeMsoMWJV#98YZ;;n7PUrW&jM1(lR1&m^q
zJuW_;*X-6?S6Twr(ye^YfLTTHr|Jl*YmmbpXRZsaAh6-X=Q~A%FD_Gz!%bfwA7Fa?
zCe3!qo6+`ki^c#Vek;#c8rGGB-13(K5G<ij$<3%h_zd6MPaR4xZA9lt(Yq7oJojY1
zLIv31BhF2-jY~szO*oLp9cB&W*W7E4U^*}7(>3~Zq-{78_tDXyfPqqLN$9p!;D5-9
zD5BTu-D)3s9r+C7MhVW(X!<SSzYN7in)`1<5hs4`8XoGbQKoB-9;t1r8tL?@&{Gy&
zH48p2Lr$>aP=+pItE_4hc=~KD-a#)Bk~wpGXXDj+W=DDO;0s$SbMTpNDfeK4XWrnn
zQzv1a$7ONqWglZV8WAK{mu9L~+Rf;z(M!%+E3lk?(0cj?eS1hzp`kC5v11#*17#z0
z>podRH`6%0_8fWRce>%|!D?qaK|lvGNYeV9=$b>GWWL#Qt8d$4<{66y{cwB#RHjE!
zJ}}SMz?brXoK6A#DYVp-v_^Wnz%&HZmQPq&2BXvFT1Lxw8tuqZ_BA%SCbreu#yIla
zWHtyePUjPlsiLCOf@o4z5GKpFm@8?gfDJ1-aMdyCP)_XQ#{s@9SxOqCH<U~B!5^V$
z4a`kA9baS?%r^O7Vum=A-}|_0!eU+)M(tY<%Zl`MZ=HS9m@yiFgQLc_epcPNFTU}?
zAjlhT)-+t=$FX*rj!b6JxR2nXkphvsY@H|uApex3w?m`v8uL9b?LYi|HX*Nf#i4fr
zBWuZ$)o;a5VrSxyT2UKGxzPa#$tnEy05IFObSr)quyL@hwF<<Na^tTWWo8Llp$&zT
z4nVbQvw&zijXA#y2=|Hy|6&U(hkwYCBj-*sw~iwMb1)Z2<kAkJPT6o??Cc4r7A8+u
z$v)9d3YKG{<9Y3NiG9*DuL_qG_Wz)y_5#I4aoe{?LL5MAHXO!b_J@e2bf5w3ht&Hi
z@*2w%d#Tw<y0n%-)uiz6kMyNK8Qr`!#2od(b&)?HH{+ezlZd6M{Ug<hH?B|UQlhro
zC#>jOOu6Lsh%H@@7VuPKT4K81jANlu9vOj^OB`A=n0@YzDT6nAAFsY_Y)22YWYO#Q
z$)iZ-tPh|NMhWFyaj&QEN1i#zz-e=)zd?ELUj`#`8Cyb8*DGuu5wd6wH9*_#mWv&|
zp^H!(*yBXeArh2O77^~P^sKq#QT2GtYtcT$4^<_uw<`@X%0=IdAl5xE7ee3W;O=<^
zB9!)0<d+|Cj7y`Q!NvDqpTQ${v)8QBenHz*=mpU;X5YTZwh&Fs>LfBfa>$ntFj-pF
zB|rBcXt$FpKdJcS+NW6)K6!01yXTjx*z4>sjcEbaodC`abR>UtefTYY|Bo@r0FC|c
zds~W>q%5^1{~VseD_yKdjd?njbBOSK?=j{I`9aXgjqufdb%eqrK{Go#QaWOBC1yuY
zqSYO6!i__eeJ`jz|MYz-J!lz<aYk9NnkA+Enz%a0PYg{Rg9TNxvunvaSHFEKj5<>R
zf1@RE#gewSU?Mv$`QKf~Q+yA1ATqxNYnY`){jj~;reUrfy8<e%5LRhlg(D9l0B>Km
zjVC>`04I6>vHW=6aM17x!{}ycMfqvB)NAr;gj_&52m@a3BcG_eQRYr1y=bX9Oa1AD
zhui*n96d~09p8zpn)LZC(V2{dwhn8o=LhMLU&u3}rtsb)sB<>^?$a$dthWz5V_S;5
zFn@CW9;e&4UzypCJwzX^`-hiI`kkv4#ZXFt<3Uvm=2y|}A?A43+Z=-%@yoQxYdk}I
zCEi}AGpDE%Qz<n%KZoA=?uT!l==u!?uce$s+*HFaqEyn5WtPrKR7G#To6Jc>3~yw(
z=d(2%N2wXimS1chy~wVk%m(|#l?-ON6`UU!?2e5TeNZ*)s8Em8J3Rb8=u0*4z3NsO
zEd!03><D4t%a<feYR2ST;o|5jrqe(~@!FQ2(5*<H4j3$<W@&;m35(f%i9%Ti`{-1E
z_iy=5$p*kEgG)u>ZywQ6d7Xy%_b#)|AZ-FJd$X=B;-CL>uKo#$i$?sY3573Y@uVRW
Lt8>+7JnsAlq)tf0

literal 27972
zcmeFZXH-*pv^N~bHjbiWufRASK%{q(5*0-b5KuZIMS4d<jUfbe!~z1I&|54N=}MK3
zgMfk1L~0<Ygbs;>5+RU0Ct>E^yVkvTy`SE-o)1sfngLJFIsbk3fA8Pk`?vSu$#sKk
z0>7R34S_%ifI3%<5Qy!;2*g(VUw6PqDDf|Uz(01_>s`A7|AarQTGe>?$F4g%mVO9?
z;3M9DTcXDooDhgV5a5+dCc&w5BiKYoQ;f=-ZReI9JAS{Pdga5`bFY}%Pj;HbJl<)d
z{`-CHGjgx&e-Zixx-xc>ppq=p+$q~#Gb45^^2Ckn2X8$2^UAY7UmZBS_4(tSkAJ&#
zecL5R$0<g%DQ=mbK2)7s9b~#puVc&(_2&=Gz9r63m9`od)SCUm7w`Z5@BbeSyj{ns
zlO{A<FoZq7)gMLJ1z4y|!z;ZQ>l3jYoeZh>i;N!Kjd*)5KgoYn0LiFrGQ8g|UITyd
zx5hvA-vfh=0tiI>#A9$L0?{xd@?ke3-^7EUu1*>wsLPW!pt)W(ydN|Rg{YD6B9)RP
z6>O1@&DQ{W673VUOemd32ea;u;YCOyV8{G3WbI!pg;5hoi%<iQzJbc3m5QV!keWt|
zPu7e^F~0-#>5d7&D99`VIhrJu_}@FJV0tobf2{*Cmbk10O6xOM0b!6y5V`eQV5~}J
z2z?!z6vJF@tqt^o5;BL4t(D_w=0>3$wixC*qqACUP=V9|(se3rrS&RRka4sKFjVti
zaEn_kF|%-l3qNtgx#hW7TFcU(QH|j>&5eW*k1b<12{e*c)J77J!ag;*JfpHQ^u>C%
z9C$=N=~n^R3jRK}li;c57^xtXO7qy-Tp;8kR@wGTQFr`}k)y(fiwqArT%Zm*6eWp2
zKX=k5tk(VeU@G+MspdTQwb2;pV*Ul`2)2g47{(f!4}UyKP})F_bh+eCXm}bhC$|;`
znW5@s_U!kNU+esQo@28OmeHcP-*Mr|>)Qv8&qAs1{#xj4`%3%rPzi@jbJS|pAGuw)
z{FWMAEmG<GNt4)ihpm_oGAFKb_IRV1Q>P2Nvu;q2Mu33w@}P8yLLFQ1wayPwk^O^=
zy9}XM3=`cyD{Q&Q`JPbmUDRm+sZ&{$BB}hrDyY3*;63$`#~RM<V!dxjy!Hm`Po8~9
ztaN^cjy*VV+{4J(Mtb>#EvgvR7%+37=4hsRGIB1!TL-g;Q@uNqktFa=L}XW>*>2>c
zYkS@sSZU*IOOw9Vo_)Z0hZI^%lOY?s7gmUjM?4hWsr<1zh`6GM`e7he`DeSWw*To5
zYEhk^-!Sk9yT8Me(zYPF4i~*q#ovXnnSg132Knz1B@$N`ZQtt9-57kMbtqA9IcAT+
zk!8O-x(B>1s<ZNmn4;}AlkHn)hzT@Hr2ry|*#OKM3$=~PIJI|$YQ{OTw>Os`dtE0p
z<bP+!sDtsDs+H~HdcTn?L`h>imT;HaS7k(2Z)??`G;&VRR437sHmvhe#m21{dIENR
zhE1y@?EO%w(>8~wv63&DY+>FOjfch*xTISXz8$c~W~#4+-a&0hi|<OWI_@nDqKUCr
z$jPym5!ouGL<2M<*`v4pYnrO`oV5q4HMz3rSXbx;r^Z~Dm7yXK{674pD>OQJAaLec
zZ&7FEH1eLE^-Mo^#KbR6`5CiLXDIE1l?FA{ag<CouFhEBOH{cs9I>30Y?0h|5H{SE
z<j`w<ORDmug9_{DKLTd=+YWXW%^$BR68wGgvdfRC*%HMWzQivM2RuoVxOsy6SMowO
zp+;tz1l4;_v9gjiQM;%T#?DLaK^QIKG!Q-CGdU<QzpvoQ{LgSrl*cR0{H#vdXs%4t
z8%Bhq;x6i_r(E5`fuhq{RRXnpbKL4x+x4DHe%vD9+lxEi9eAImwAKEW>;0fp#7y5|
zp2r~ya#F7TEC$phedqGro6`*}C(Ap+W3QOkhgM{BC2O;`F$f-oi{as#wguBAE?Ptf
zkF}8OtPL@bp-zkH$E+{$ut9_DUDSQ$zxNn@@%mw=;`fuByn^qs*QfN|a=1Wpa9=A;
z`-)o*J9aert6;y2+ZPrRA$z;;>vn`0B=aQ|uLlt`0TXHpEhDz2k=1dBt5NFJ`kJ|M
zE0!iEfWtpu`)fp5+`~rt<D`2BzUXBq#l3_3{$*zeuEQ&3%}GRaNY>2A`6wp{HS&7r
zl65ZZ_pgf+my;+<N0lbIZ#paIjq3N(x%~#`LC9A5i<JMf>87fZrgzP&mNP>e`(PF1
z+jpWi$mLaID?qjg#<lT1TX{)X^f(I&=j@y9sq^09WBli;%E?0C>nNg<0B+5T{AI~+
z0FpPZoPINl4Q*t*H@=}q9QW${YF!bdqVfwRTeG}&vJ7_<RqeAEQ=kNfDmm?nWr<Xt
zCk24sZNu1X?}DLe0B@uaNKpvp-f6&Ee%eFz4UN~vaknB4PNY~O>_k-6+Eb*LOHj~J
zu~k;=$IfO=ubDm}RO=4y2e&BK`%7yYLr@GaKdq5vrOBgfqxVtBM@r%zTU7)DW}M~A
zolICwXK$rJ<kSqJ7{(kmQZi9XXI;H$gxnq6oE$5o849B%NKJ+whg^Y1jN_GasA?W3
zn}@s`%Hm(cl2rM_l0^K$i!VSBfC-)v28C$-gjB+}zy#aJ)8SPQZ_Q2$1fZg$M{WE<
zE7vQ&uAC9VS5l8|>{)#H;e1Wz#JYq6+iyUX^i65L!|fOr1x05_e(UlPj~UMuC#5Qi
z*|cPiy5#7=w($1XwsGXl7Q_&<Cl-|;6i-`<Rl0NZ`ww7WdJuggd}UGClHpPmUX|r^
zbizaTP;?{eU>(OO@_XH}hgnGjWBzWC@QP}E5X4??H7uIOYA4r6o|kiSdsH~+d~pMJ
zM7HleQqQ`QyCv*u4A16r^`KKk`PW{Zv9#vhgmo`SV#ksOnmWsMbHxt){!TsXC4J`f
zn#@sHp`$uU-zpMci*KQpD>EYEJTH*A#>TAbTBKo4PEpE6N-UQf?4Y%g2MsGYDbFR7
zsb>f_3FpB;w>MTqTG;kTrJPP^6OiNr^#(QSMt5kru-v#C$>lw6q2v%stjK}2WlAc?
z_I<xsabKzGm*)Zt^EY~2Qo=O@Jo0QzdpHFG?*d4d84(#HsJ`U2NQ(5d@R*c%Nie&2
z<B#@e=IHCJ(HAJPvhq?MW$Mm5<X9Dotl8Z)xl3SSnc^sAnNG}Xg5A8~uO!}1n)PRg
zo_QmH>riUHpkDTpj?d<F(<`zt^TXqB=#xLbONN}udIs9mm)^Nq(Z#kGsg@(Ptfh`7
z(#Di<HVG4%R|37>sMWuucMAk~Ro6_cAMC+DqX>w%2}yoIuS>!je(?YZ-Vzo^8y8oY
z4j-9wtxsMYo$;fS!+mXHXdB`s2VI2XsAou{nLzMt4es%=gcOAyq<C$exr*zVTww6@
z_>J|Ggw!q@*D`I4ZN5L(r+t;(mx}ag2(D24qLDkX9tBd>?1q)CP5eSpx(Dt$kIa{W
zLJ(~hT(SNb(7bGkhOHKXNLyGTOXGe-0fq*}hOKkuNiEIUMnYPl;EZris8Rb*8Lz35
zE(haAwnc}YBH+~CQ58C>4~otw4iZ<_Vri`X;!mpF*$+MCD=grsWHxg^00iZ!vES&^
z_!IUuUXW+bbiL}hCbh6XkOD*-qUXbA%WJPR7VTRNeWWoH@2b<hXnA6p4=r8ENmrVU
zqCAX|e%>f(@#gzxCvj5Vg*J^3YH<+R<IJj3$2JBG9&xE(Q4o@J2l=|{`1?h#6X=?m
zg#=j5V!{2QmCpATaO%r=6-ANYmW9nb>nDnwKp>pG3_v5VoSb?Ek>_h1ky~SapwRQ;
zg`4ImF;!6#H_iVK2l=Twi)pIHm6Vf&Tk5pnB7?z5FAIhtb8@$9y@?g1j@>d3Ct`0D
zWso<rcM~&vL%CZUip5}Sxt^L*95un(QOb6LCbK-(6yJFDMibP}kZyzC)>lH>+T#Hk
zJvfrv+FarKWT@}8sfeFN%gy25K^wB9qdQAi^Y+x={wf2hpC50Fx}+?ksyt>W9jfVM
zTxPq+HRvvsowZ*3)}n2-gvQw!ws$inzPa={_F5&2A-E5Y%dy*<yv02X3Q?HY)z;X|
z1JXK7AF$BsYnk-SGaMuK<9wr$^8{66{N3!V5u}ump<aixZ1t>-n?M><S#)s^e>fq0
z0qoOR#c=-=QC%vCz4GO#ai}O#$RTp9M#e0+KO11rNctZvC5mD^TWgs$z#}o$Kb)M|
zDufV85>`INBK70P*hOP{w2R2<vslY~HDJ{M@`F;J2dW62>~$gWH<%Yf|Hn^c=a&rF
z7{i`UA8ENs;ug$KZbMvz9NT#Z;g6j!>?*upF6iDr%KQ2MKL7V<AdHlp?2qvOTZ^!6
z04YgDmT5sa!l?w>%#mjP?!EY631(So8VJv-@q`XL>^hRM^~FI0kXZ?MSRI>v13VI0
zHQVjL-(Xqo6eH&!>59`AdFQ^E9kMV!%=;~D7cU&apQ*FEZ1@MFpnnd$2_WnZE6^7i
zlp$?}<{(-&Sg3<`g4D#0@lE9|S?7nej3J1=3DvT{jKt7B0xr=?yovx}H&}e7aVjl=
z)>HeMlmm94xHNBQSczl_8W<*x@8+G-@Yu^henf3XJ^QnBRsW<lXcI?^1S&f7kb!?K
zL=9!dvhIA&*vc3EnB(>PL0XWNgja`Qv9C?aJd|qe=BEdFUE4o*Oov~aUeuH9mc=|0
z8>}<u+<?v)AE+~}5K+BA>aFcRNjN1RKgC-z%t`Nl5HqSU))2IedP!7+YKoa_Z=PS}
zl~V}+``Z{ajaNo>b{8p~X01ERgn4`lqD$mJ4I!vgcXe%xmrs7|K3C)+-r*N|K(H92
zTo=<8Rvxqx<v9CnfOj~|R2yDFIybg|ud7<z;OJoc>s@e(3@i63tV_E%RavXf&l{nc
zHO3H8amm(J9A8xMg7<xxH}qAoNN?vCMgpx(V7Xe-PLg-n?qSK5MkbmTwzeTL-We_b
zJOALS!h@hCgHJ!6ED;6XAYqa3_<rMkfslB(jWJaVCzaA5^KY9~ic}O|)&4Qtd@4eM
zFZXLGlY}$VL^M|BHY%+)?V=%9^h2Ah5P^0{D!S66ZH%YzhTJpou}~x_i*H8J#?ISp
zyZ^S}t?)J%{2?to3+angDv;uLwaAaAxyhVnkHt6hE(|j@ydNaLqJwsYvH{hzBo5eT
zK7&s#emS%q<fxM3z^s;2XLz?k9A=BCiiucO$BaD%qSG(dynZV_u95a1#@VNTA<UHa
zGdAhHq3xAXwpgVs32Wb{#JjTV%m+20PJL!n>uejLMw0}S47EYtdeG4<$<aI4p@W1F
zH|qJ8EHWbfgwtEz1&BiwvC1<gZBnOtvfBv~%k@e{-lKqU$FRsr8_it1mWBf`mjPF?
zE;VOMo(!rema+-D)!3yRJSsC(Pxt%#h)skH>-edYe6T`c<xMF&PjlHA>?kT#Egz9>
z(cT2koAv_KZmfQ02uiD3*tE5C-WZui>y7KbCMj~3cmEe`Ao!Y(LuQDJR`s+lhM26J
zVA>jO<<BSO8lL{~LGA8nL99w&xvsKFt4d$#>eb8|%BwSc;>B#+E^2r6d!tZ&uRPlG
zIOb80A$`+U6`2d0&ITuxg0(F3R)$V7j;Kr#RV`qyZB=qGbwO}j4vg{daKYey(2`~f
ztsXm$gVxO<F|oljBs!QLQ(R8RVZD^aRwt9+(XGXa{edrd(q62{Pw_|OH3)*~NwmD$
z{vbo9jKI8Y49v+?Wt+AVE$+JVPfGxQM78uo>K902gt>t(`g_1d`HL+?v#e!i&i}>Z
z9}x|*%Ay!wXg4&ROj`kLb(k$+V2a(Xu~Ko8KSU4}{FQf-f7<byu>cRK2g`St255lC
zFu_`T{cn6~Js_~hBf50)VMFtgX5Lo_JDuz-&&a-sh4OcGd_1(cNB-(`%v^N!HdF?q
zr9-PE)#~Okz6*rO4aLeoU}b<i`RcHCA@GeU>_4#Xzk%QXEeH4@Z1CO#63a@H*|x&i
zm~P|4b(mZ*9-5Ai#vhwJ$<szy+^0P@;R}603L)R?cK!n+=Y`Phhwpe_A&$L9i7Nyf
zCj0-v`&U;$-=+Tr@&9jm=>L%8Cd^Sz{q=xQb9O%D^p77@;z_H2Hgt<-jAPaKm~itd
z-^%Pn<R2v5uKANx4_H$Ew&(<ze*p<)vPXCijBqFwciO=K348fSU)3S%!9Og>BQD`j
z*Np=;n+Kc-W#caANTHxm3`{v9QRu6X1Yub9!+YM>VNNi(V=%f<4>UKDO%DgeL{+i*
z`}rZNEneh=Hlqe0(gjflD75#QSP+3$2zKbA@3u<X@^7x~=?6_yZ%nGjDfiTBGIW`_
zfD2HGv)OoeCNk)Ya%Rn=f1RP>j|T^8PC~;s-TXqKXNyCg3A9w*6f4M6?WtYM#ed=E
zNjOPOowQQRjD}7nK|czrq)6RhA-$HGNQ-%Qh3`g^R=nWlpBbXtir%v^{G1jC<Iyuo
zK5D!;$cte6<CxpG4uzH*X};OG&VNYh=U>xmux73O`&_XwT3uwn<V$b;=La=Rg=wqR
zj?&taAi&D!BVX<L^1KypWYz>;q~wq}9o|By^Stvfn)C64d~fh>Je?&mo(8RFyyULw
zu428m^KH+cu#FLHec?rDJz(qoX4GlRW|kt6Dsmz|;S3xH;n)}&dyl_%8}WF}>!8cw
zh8bMXiyN@W4<mN-pU*-Z##Ba{R8#;69bIW1_4d8RyMR~!RgX6k_VTZ`&;){yH!pxT
zgup&eY9(tjT`H0<LSFJVnZ{r{2zOJ+uO+^P2O(jmF7BVVbnP+*S9FWZAHL&AIthLw
z5Io&)tMl$<QAUQ5mOxlPOS(oFR{v&k#Nz@<N$S~h$-nWh=$VqK+e$dVK%tExmKerj
zeV88@kLV~y_4|mdqG3`THd1S`lYHU2oM83&_5=77+8RLAM_UY8j`B^`;wli_GTRMm
zDl&!%P>3iAE{Ibc8NNIDl3&E97%PjX6sA&CNxQ(pf-k1g5d?K5lCr}ye|6ZBTK?0L
zHV)J%WEm-2tEp`qtW6=*h?7Dcp7^W(8`E5Mf0)gu(pW~wJQgz+HB>HanK5>H(=Gg)
z-|nIwHwHtcNbDYDw^|x)3D{XKG#$K|av{>*b#3$MwT5X7TJn<NQsDE=?m#K8xOmZx
z0uA(vgCH1(midqiJpVfXbQ-WlF^9<=GaKKoY=$;bgZmX&Zv)E*ETMngGf{FEl|D0b
zg71<S;XI4)U>Drs+}2|IUX;Aj^dG#v2#dQ0hcxN*&1OYItK$>CLH-YjUc5u5F;N#y
z<i!qYsYw3q8e*vFJopfF!0|2V?Jr4i%2O9hd&^6CJSqS+u~qPY$(%il`78Y=YQQk^
zHUuTIS^;D4`l_SWOA$4(N{#WLwR+K0Jb;l1+a@EcYYYm-(Vl^I@w9kACChV|)y!*b
zP{Ql5q8K9xiDEtnMs;DUu_D|`r;UK=>5h%R*jEL?XmcxtHUSW)tR37xaZcXFsfb~Q
ze<`d!W@vzREn3goZ|jk1L8RRSZDN>MjuA9#4CVHVtolRdVybpq9O$vM2B1ET)(%Re
zRyR6NVP)*{iK44{HmSmo@sD6-ghjn04b3bx0OpzNbtzGX{Yyya$8`!V1>&TNOUcdZ
z3XLKZ>aYjC<9DwFdoSHTF&9X)+93sTG`-`Ty2`U8p{>o>iQmVDarfjnx|xjUyXSb%
z?BIJ5Lh6CTw}|o{jChRK3JN_+m7620R>3J^K(KeXVR0FZG^(78(^*)Pq1w}=KymQP
z8Hq_-`L8&QH~rpzx{!BlRN=?6$;U-ykR<RyElvJ)NPqZ(_H&q{U@foN94_IRhJ|(@
z3T-pP6?>nXjJP{=%)zl32sW?NQegSvwIBz=Ts-tCS+^JmvBgw1NfeJ}j5bultD;`k
zawsOv1L7j9$_i}(6Tx=v!T8a<`tw%!9Dj5Xy&RZzUn@ePor*>nUrOEDl7arE!sTwB
zwpZ<-dVM&)urmOr3q8rpxXxrff?VsOIV?-<fkLE7v&M81d%3wrQBUtjM~J0t8tw7b
zCD_iw`sUN+54v;6Z>qL2s$e#iyhpSo*nH<MYMfUJd1KfXa%|ae>-PvSH!obJYkKu%
zkgL)Rm~)!TSd%s6n~4hw;MXF@CA_Vm(UZyNXX^Ugmp_s>SUKKOQx|O8J|Cz7EsgI^
zq{IFe_9VG=xWyis<XB`gGO=X%LzE<OE+G0CE>Uvpff@-)n>;(IPKspR>_5`tL_eyx
zIDadLQBm1vlF3QJ&9Dl;FesO69)u{C=w15Ke%3(uGS2yR5k5B+@7n4z-x@pGSOL|D
zIQ1!(<l1Tvd)>oPbbgp2WyanY!CU{L??ciC@k>#bdaL?t@ekN~-I0^pr_QuJ*v4p8
ziYuO2A-k-_In)Fy-J>uV$r=&?>@ShNdPSVo#STM}%D3jMWaayUb`HrdXUx5f-Pql+
zNv(KdB{E{QCGXmS02Nb4f7+3Oif7vxwGs}gHJ{{oOCI*=oa1I_y4zSA-w&$R9eMbA
zPmGh+{h;wG^9j)dDawWJR!aA<7~-1yFF&{7W>TDgXyyfRW)wTKyxMNZSwtQ0Do_4e
z`v=K#n)oFRuYP-*Z&16IJbUry=Remfo_{Tn7G$<xjp9K^!B1yr?zNz5OhASC%vw@T
zwUcA_yHuSYg||A%bCavBa<<h~Zet$oFGV2wS`kNu{e@vRjkg<Lw>FADpJ;%-9<iXj
znx`wt;xCz|TBtX8%riUo<8l=M*Ew%KPvpkiYp9m!T`BcF)n{}opf5{O*gwRX>ot_h
z9RGM3b{bSGq^&UKdFyXpq<sr0?24K8tX=Jb!CFoGh+x|jSk22b<j{1(`81gStstZ(
zFhx29zz##SZfjM!*FenRwRwgPQ$lH;+T*cUsTok8!117VkRNLlWLiABfjVXT^{mFf
zvjE=5x&lM*vs%B1?dlh+EdN~ojK~!qyzrqWcI@pD``op8vS>8hn(?=!rYgnkKC3Lw
zH#A_^7%W%=WYRB}%Kg<3-VloJNRamNKia}!(E{!|BRg9%$xmx9wC}1lE-7`|mj#7n
z$Ws?j4AITqSlQyF?wr_+@8mhExyg|5kXn#2G%qp9h(`<C#?kr!B50|5yZr#QC341S
zf5qPJ(9ruq*YE#eo%7mf<sVxTkG;<t2=}O!^1~PH?u8{vY(3v;`LC+f>I}sO9c-)v
z0vRDYO=hTStq4nH7%mDG6xf(hOUOh1mJwrY@a_cnEvHJp0~>y9@~VI@>;@;Vc&7}?
z6sF&r##=yAN*gktKKD<Jyp*RpX_Xd<2K%&rWpUr?vK@{JJG;RAXtuHQicrO;cNE<p
zLPp11b_Bx;(I@LEu#s<M63zQ#zmAyXunTVN_*8uQLp8cq!tbDqLUaT7rtaVV=R{6p
zE>3j7en0rh^Ck8AG}kZ*)v=fP0$>=T{d9|0{J^NzVcOJ5>{#e4w08ozV+j}3dZNMu
zI+Z$DKWS6{n02G<+JtE2&K%KTq{bEYPFRcepN>_#pK~Hbu$}0&3TZUch+{<s+Zgxa
ze5u8M`NG24fw?CSjU>wN_G&JeCVnmGppL*;)cuGg{|79fsmjh2uu56V>c@mGB~N}`
zlA1%_Ku<k5u34!TnFLG;f`J98+!E@l@KUACvK(8mI2dc*y!!L^`Mh1!Xn2pf`P6N&
z#+~V&a}Nu_VYB-cYd+tm^^Wl{(KPp&(isBt?4s>TD;#y*b)gJmfOttj{SDP1G(;>r
zv|IN0Xc}wnBM_uqTGWv|tU|I5f8U%8XV0q-sIw&mbv2P2{o!TePo@D32nn0d*bK85
z8EdzSk|S{g2MTRRJkeb{JS5vy<k<`}Bl>Ibjr6Q9<u7~qv0pR}>B7)RgdNYk&IjV^
zqpc^r?fou6wi)U|8VXzKB_PKq!WTjCb;?|C17KDMZv_>Z+l+c$WCwtnv9us;(P&Ds
zxT*00%u55Er17=oSP`+@{`918t8tne-feU20yf&?Snspm71&?L(CAk5DKEiC&y?0G
z_3lWD$kiX}l~LY-bLMS<gqLVALuZw^Sf7_l!P%rVDzLgIDnu~$Ln*kO`W^i{RR(qI
z%PQG}%A{<gzE%_zB#H?gLec4QgG$$<(^Xc=<Ip2LJNlP7!%n;8)@zLF`VTZ8Pf!B;
zDuN>^L&?nZrUzHeQD=GC%LUIIwYpAL8z5t7DZF?U3`JUrsfDJ~gpCe-FfR?kX*)20
zYrKMU@7%`VN^J{mLy<Shf!8hejwXw0um@vkr{ntjzm!rmN%fhYeeto!xiXzUNZ)Sj
zi>Q{EbC82~E1$H(@|>s+n%}_m9QgiTLF5J}Pn?0(YBk;$*{mQjUW7Uuz9Hen6@}x~
zTS+gSq?i5`13CqHnlY6rE@i$o*nCEqFGkxL-{O*u87oyW8?v$Nan6p-=-01S*?Y|I
zT~zDb4)*{BuxP$aHPdh;TsQKOj9k2mNplq|tX$dBs^)<Li;?l*$UuDos!#LAaToEE
zOE84L)qUo0WLySX?>tu6I0a|K0&bK0C$43Zzi$*BX|`WgRU!3?r(_8d<R5TpvB12H
zG5sZ01Y_Om9HC${=#p=3tn4|Q&01RqIsV(^7>P7t?D*(Z(_rVQ7zPC;h^Q+0CEPjx
z%80`}Ft%y}A?b0#$ptP4jTwmm+)%J-P1u1%t>O%_L*(A#pbewGn}wq9xf<g(Co6Ku
zp{MUSK~|!_^NNv%`<}XBc`8hb9ZO;Zl^Ttm6QQ>4=ZjMM=}~*?E&DI09|^YgSq~C$
zt?+2Q`>h8~xWOX^nZRwI`84kA_FEMldy{aT5A5Y11Qm|;aD^yFexVmg%V22cZF0_1
zeanuKl<4DsQn6;uKO1k40=yLg@JHcZmd>E8`*k!+DaV$AfzkDJ3mjUmEf0-C--M#^
zMvY3ygcarA)GAaa=H1d&Wj?5xTi>ss2OGA^|AERna(;sB`|0<E^y_Z;&X?5F@LkD0
zeFp@h$=~~%QVlGdzpVjC5N)L=w}r5{5xeXlOk@tM?}zIxj3Y+^>;RcBV>6MWPAPye
zJ&s6#S47G<tv)f&^y~`g2ND2`2gGur7Ypbu^n>Z2BNqChkep0k^Qs`xRnOM7sz+Ip
zJN<}25SV0&b%MA$Oc^-tF<(EqqB`qTi>yy)KIG9&`sDQ%(**RbWcfU|YM4A~ZrWpW
z%oF9T5}@Yt_dD4W`##OpV-3^p@Hp5m_xnK;?=_ruoRo;zCbMT!MS;!wCUh|B;YzLA
zco2Kzi;OX^zS&w<cBN5HTu<>-DlPilBr>Hqo`z@HjGh_4G2dc7<f)5U4<^DcrEZoI
zdyUYEV!j86ZsG=Eg+C_&F2S)ACKE98j*Ty`!Vs8dv-+{LqLf#d<aOEix6iu}frLy?
z@1-IzJpoFca;b<N`9@5pO@eT5sk*kRT4dF(b>bR0n8qm-pI!QlOM%ueK?JPRkqM#W
zHR6XPT3&+Gcv@7fOjrJmI{9@QC?PAqn!V(I<^#Jn7GK26qF*X!c*ZNH(em7=%QzTZ
zkFKl@$2zig;hBf%f)4fc5dD-7@;BmLEs{%mIOwx`A2rHN1@mezi}<0NEXE)hI3EY6
zuWi5M==w}{Ez>|;A=JgwV9?d8`G%grCU2eTCh>uNGLEToq>GUf$5fc;#nl;UI)2!s
zQ1b71i3I2E8ff1=6?83geE<WedaXfLcdoo;=7W}FC+vm;H;cWcezW^Q)|oZFTQ*>-
zbat{AW!|c6;ZR0VaU#4v0~3mG&*3CVR-%GDw#Ui?Ub9Je_3iehJntdqLreh0q}5zX
zR>;E5Cf$(;?%a}p(-^clg5L*gK~fDCp))s@dm0WgQzcpuKEH<3P_t$&F^;#rW%1U2
zy%X-6nblhHS;{sYt6fxhoZ_81Rf$vqsf+t1cqhJ7CXE>>TTn{inE`;2)=xhj$6S?a
z+GV|50dhqB`m=T%OTZhV^&w%y3p}k%%p`<aM^Xstq9hfg1MjQFRvjTJP}%_P)S6ty
z7QvVlp?Y6}-YG%!RhX*b->419hNBaX{FlQPGorcUY-TKP8+Py`8D6v!4;ccLK8)d^
z*nmJ`>z+w0JS-=l5>z*K_uBX8n;cI;DQv8fj0^xHOf1f#$7_1QoAwg8mO-AHPZ&ly
z_pcF#HyOg$?Z;vMfUxet2=<1afr0vi_t-9=_jK8oBlMl(CF5I~-8k~P@cNPm;Sn-3
zR5sx6b9^DduIxPKGptY;Y(q+GukhJfgoFId@tXWS(Rxg_+vM(hTd{chz-CtgvFDC+
zEBd6D5aYyuw6aVTf>i*FE3`ovmLRQYtzgF=f4}W!po0$Nk-N*)V3a=E@}CM_YDk<k
z>a<XD!E#kObG`6CiB7MMuOkwqad;HMSDz;h!oBpJTOav6k?e_PF@b1QF&2`F3#=A{
zwZ=78Wz`erhWNcS#IX`B`D*gtK?F~$9C$QBPgXr2%@KEa{CxbwX1|~dDu;`RA|p6!
zq&%8hj01`oamXVI!7gxX#0Sb2!-PUE8RWa(vq5}K%C<Nqr9G=&tf`vWL(RbiuuW!c
z<h~!P{wfZJ#&Aw{SrciNgxv*7&ir;(gS?-I^TFqfF3D8t^@?&M7HNOWdGSfOs%N;O
z-PgndCxx?JX0KopHmMl+bmJM9X)~7$@423!Ec(Qa9p^6vc>HdzA?8PT53@cJq&&D`
zTnRF#ftDy)>J7qIo={;<6Ddh3%|fDi(4|be(Bcf-t)U<DjU>pQ{ZM_{&*dVKSa9$g
zMMO3G^F%y(<Wu24WXuZ@FR$U{WnIi8OaL(_7Vl*<!ii%ZmTLN}^#9p`%Y)O-qvyu4
z9eHXMMw}F~s6xLOMlX}@z`OdId24otWJ_14AZTNW!F~DkCl6W?W^s=k16RWcu&0Yu
z<{RNXU<+RbCkiFh@T=i*_FV@A63k~<CuI8y<I0a#9R8YU`HF9QH;W51eWmr#Hbo&s
zOh6A9rNa~k0}YZsU_aI<%Ye*{c>C$(|4wx-1tkDJ<T>()l(+&$Sf2Ev*{*93_2ju_
zW39*vkrHIRwEP2p1N4G7E?m#Ka2w3l3Kx9YmwZFR)D1fpR^Ar(4-=MAAadf!Ov1q`
zdWK+PfeY0vA!|U~Dcmn@IgZI1`i<XUoXRRcP{SyQTuzl+nNR+29l)@cdv1o?nc%8l
ztZ{Y-;^pk}Tg--pR9*#NYyZ~{L8<Py$*D1p?J-_><rkdCx~qRTJ><Jw{-HK_Y_g<q
zF74nmdw=TScMCXx-Y#07KhnZC$_uWacTojkSv;)d#{QEp6;1k@rpsJ!oy}@*O3X*<
zFo*Wkf4M?P%HUA{rA~+J57ZDzbH%?Y<QCP(ObGO3L7p%NwYau1_NV=A^%b3By*3B$
zW5ayH-IX#CyUjbLrOC}D@a*dnV<^q)JT;!FhIFg>#!qxw6-Xi{LSyAAEDcaIKCYTH
zbQ#6(IvY8+a}-I3!9ublUR$L?v14B98UM-hsIUMVLItC#j$TgWERhq?U{W=CITpyy
z<gS&f0IG7NL5FAj){;f}5yIDbm58MdvS@IHq-N^j=^ApO()#=G!0ar{;QeY*RSD8T
z=#=m-G|$*xh^U$EoyaY;yfvwsR4uvyqd1?c&ye)EUhq$E+G2D6rygH|)dzYPl&T_0
z%^0t8J+wh)yA)V1c=fFVZ)gqvNLeaOBR+it%NcR_SlXx9zkGVVz$gQB0AslscoZpe
zfp?PK;7#(0n#KVM5{@vev7zFW=hy7|w`JddZB@&Y9^Ea9)<u8#b+e;qmee9rDeu=G
zVg2dd0fC#ZzA<$-Y_>KJm3?0MUjEA|1wBRHoiFMQ-Fo$H9}M8o#?4cHO7C4VLpH+7
zRp179>AwwbFRAW3^?(l?>TW=AjSrAIi_tEV<=@K5g&(S&E>hI6Ey<p>`}tj_x2>gd
zUp3wt!91gualEMA+XzU#z}zOKxX(K+hul$Bhl#z!_q{e-I5>)#wzgbFS9JXET>xYF
zES$u+PnqI`uKzUL=7vHlUxp@Z-(=|Fl)$Sv5S6L!Drh+)sQMz5tGl}RdJo^IEI32S
zAK2XhzDt4;Q~d5k)2`#1&o!qe1FvL;eEa@4UkJ0OJl|^bywB<aCd(D+x<5LOv{V74
z-Pm!Tiu2Mu1-)&pm4N$@9t2P1Hw%k8<;-C*F%&;CBc`g#`(Uc^sK{zIfE8VJhjvz+
zSLR)VSmeb|%i4F!D>kD@k_t4ONNWSV1<|Rmt)BAfWV<Ff?ZBEq%eW2(L<6O)`9>SY
z6DQwu)+m11)d7qiu{y>-tb^S}6|_3>Xna}_jPk&cx84-uje{c0(%{o8Dirs&^<=}N
z8-;LJuR5Fjy|(Z_yLw<2fma{!&i<b!I^Mt!kj4lDS^#*oXsCd)+`+i+R^kJB-5vMI
zRxjtT(hxIb@PnRABLjw~Ud_KI)D)SA-i4ye_{=o|p*5sIdM2*m>k_qEl-DOx`7(%;
z3mA|67W<@_1do0p5TzLfO2M#vU+KeGoDEbhGAKfl@mPbKO#!vcI#7se#Ghn9<Xwih
z`kJ%yC3YELh(gc*zM*+TT)6kYemj~IYn$xY7PC>u<(3377Cy%XjQm8hHGTblR~0{d
zF6&h)phPkOz8HPfI+5(=Holsjb7?KZE$4}whUh-C6+Poup+awqGa~hc<e7gZ|BCtJ
zN7&_8um1crFQCH0F-C<wye5Yl$?1(Y3Lef37JK<-5pLeHf31)~&ey<p2HE;qUuFLc
zNApd`;%M@@AL$mQGW4N-4VJeXw!6+ytCIJ?i2U8C!@-Q3r9LMVn)`Mz`Nu3&;M1uV
zr7BT(hJ~)OJp{)2k?XCrqUqO-;BL*g9;5WbQPtRPj>Uhy3%AUbsQ$Nar}U7p>)Flu
zEA2bgCJ{MOqLtDl&89l9rn=8Jn&zvaVP~eB{MHVg<y7KO;GeuTWf{pQK486|{@!`m
zYeY%UackbX%m`3g%3Do}wC_YKAL7IId+9Q}{k6xXMOV%GS(9Reg8`I!r_zUmi9Xt!
zqcd9YeNs#wQVtT<eSInO)obeNZ4s3|AoH<_F&{(_viC)I*MMkv$U>yj3K}(3685PO
z&N??IltkOU%;R6-BJV{3xEDmXSm+3BUUbnx8TIXyipc83p$@*8zb({%-O#pPZ3P*B
zCdUe~it4@H{@Co#ZcQb)-+U-qQIdU^Z<BTc?(W+daDT+6qMrCIBB(x=_M&Pd8w^yA
z-Pe9WgJk}h{44cQ=7}b(<yL-&J8Z|PgpN;S^T<2HZcV=X(l6SOg(C8K8+lPH`PlO$
zAX;i@^4Xo?oe?Wz|0u@J+BLTUYv0ZJ{A&xY%=P3ZT+80i`mKg_Ziu3N-W%JknfsF8
zP(<`Sgb%Y1&ySorRbf%;L%Gh!4#ezb<Ly+Rqw^Z@*?!%1FaPV=!ZJgTqVEhxAD%Z<
zjOB-dhN>=;dn~Q1?94N#SSeT8wkQAHqEj*Mnj@L>w9`=-i+;IB`jTqSq~kg13}cD`
zAL}Npjn4$vC(z28Si(BYHDKq;6!s$A-&w71@`9sE%0JfD@K{-_@@(5R-d<}%i$;fW
zMf7*v9?QCc6CNr1`TaE6*W~~P>uvpUzM}RFNvOb4*Xj_z!S>=b3f2AA@fzeJs(Ox;
zLhzjJcCo5ud;&Uk(0+}o{5_VvUklAy`;4p@pda0xEh8>B{mP#hbN!SR{yhYlhVegI
zwc@46c+Ou6k$>6PSaHt%>}DHQ%N<s?Q#V~`Q_&6EV9(Gfa%E7iZ)WCZJmu70Wxo_?
z;y<(9cG%01&uPN5E4ClcZce5>@yKmR0pQUhB<UVl7el)ZDk~l1y=j36gLh)UZ^oi}
zmaz}T#1rOp(QZ&t|NJEbx3j{@0chxGW)l9_;XF>2?Y|Z?r&B!8(CoQ3tGKuxPf^SI
z*YxBc{?Z5+JN5d-@9tT2>cM>;qQ|D4=6k>*`Se^r<=nH+7**N**R@{TX9GMsEzFen
zbbeYqDit2LFgh6F%tw)~U$$>buIlu>Y_KGTCIpu)#dwGz2EP<_7!0gP<U75rgD9+w
zb0h+^?hj$b221L2#8;iS!SXNjGEJ|nKr|Yv5LGR0sbc_`OAyOI=?rffyOHy<q@Bix
zJ+NMx*+(jnflpNpC_4$auKP$}jMtFf<16JRuR|t#kLS=^a=gU&faE`{NeZyEiJarq
zm5TSi`O*ZKJJ&_TOAJ1zvg(&&CGn|&0GtlBK{aPc?bd9f@`n&H)IGkC&g9Eb#Aoq~
z96d<w3)}46ox1k}tT0mc;L}UnsRdy9VVq{HBco6gZfD}VCz}DR{-1;5*Eb7|<BJXc
zPos%o@w<TvqkD_#O?4{z=UdA6ocp0!HNY)ck{R~aRr-v{VRR}ck1w752bYu;4^2*A
zW%m>2PB7o+JzZH47?<}k5Fe5Ol?1h9)ClX&3mXST<M;EFA^V?rUGaIigc7lWJJISy
zjWsq-MZRD>idZpJB=YlZSwkLDm${BAI!6`=(Bz`&H%p5IyI57Pa3+g6yjvj_Gje`m
zJiCf@7`3S|>ri2rg`<;H#?MY%GPas4tf2Mne#hV3S$)|1qmRyStzMZozz4|;345GP
zz!*~*mzowH`lpwi6y2Oakd=W~<al&zV*VOSw=P9?U6(GI8vw2ad5vH8WA8m5>etP2
zFUi@wXYag`R91PSd-?$GDUR|Km-+fBB}k;Qoz~;o6y;B!d@(P!^W%m0Q`o-0m}#X7
zM&o#Q$`hW@4K*GxW|o0A<`pbGW)g61Wx86NBqLf``hLC?K)S-Btt4(?N1q+y%8{<{
zt_T~f$oXJVWWekK_UWR7AsJvb5UPEuIVq+p*EX5FaR)-W$wpf)uJ5tc5jLS|=D6Y=
zYj~6o0&$m;N^3tJs(T;V&crxb4vK^6H+)df>e7`r!M`Dr{m#T#IYg#Hdd6GNbU@=3
zqdVW}w@nDTRxYXvkOWHtj~ZFc+N9IsO(MP(1X9vq4{A1H@YRri3DpjlplRRd_Zb~t
zh#%%*T-u{RPXi?%=H&-+DVynG<hO62^rwRC+wWz2@7p~M_GoDiFXtZoC;psi7W@Ef
zpqilmu9Nc!P?aGe#V{ec(JbRZh!zH@^jXOS=`0TjCFGu68w7-N>&u<YwS149e9Dhj
zk<-sAm*0$pQiv6?WBICokW?)>10jl}+twR45GQ*4D!7tjR7bFX&YvT5?fzhC<6oml
zS^!rJO+!NLAj6>LN<WFDjwp)As=?i(UOsTMeuOcNTZ^Ss$d5+!if`I@L^{FX-GX1v
zk*_o5a=orSnV~Z2Hv>zi&sf@Iz&-JRCKfl{u?SFmO0h}Ey%TB=DO5)xJ#q(C^fsOH
z<`T#Mw`XGcU5xjyMjvIx^ygoYZ;L1q%P#pj>^prZVD#2frBC$vebZ0<s-HM(sBUgS
z*DHx0ad~>#<$8^$p`%G5Hx*``rq%amvj(`sk}|`bZ@;~xnk`}7OWX{e{UXEL@Y1OX
z|EH0=x31C8treP2W-lHaE@|PYIb!ayY$QHb`E)bV+Ot%Z{<(dOfWs-{BLO=Pdj~z+
zk1tTIa>duSaD0Mr+_J;=);6Wl$JI6w40SBKq0M#g*&!9yz^L^$20YHbFCwt0yMec6
z!-ZE3Y8aJ6^P$E!hmA_jPaLjIbPO7y7AI%$z7AWhaEoghJ(G6dLFVMOsT9E0(n+&q
zsukGTJFfwG+Fs3n=>L@2U-TzG{=D6hU*3Sd+KAgJHKZI3PeO76*e?L{<*CIvNttj~
zNu?_u6Nlj&pPzTxcAFjSV92F+9-A3-k2QDNVWiyEw(8$?RSfR2Ah~F(B2CLuLwz*o
zoV}n;DYEz}fAXo}gsj2KmG{jh78H(Juc82mCZBWAc;$-skK0UDR9yf%Z3Lp#2{ctn
zlHeF6qjcyX?|~AHf2&y>*YFbK{R2Uc68Pu0hTzQ*jhKkt+>C})`JFP21IaY89x`$p
z-2`v#`fnn&ZVEMpR|M%V3-RvJaKaHDar#LC9*GVPT!gC!IAaRfjDLv4R|-bYzG{@s
z^Rd8=YPmUZX=ku$nFz8tKXlpINCB%X0G^eu8ZmMG6bgD9ET?jU+bSDw@v%K@+Cm4d
z16>ncO#`?wG$zn5HW*J^1Un31hTF>Ov3Zph9J?w-NpJ%?ud_s!wqP~u5CmWb9#0B2
zy@pb+SB#$ju$ZsJ7FAUy$%v@JOh8V0Ugmt)kue;SG)sWre@%a5y@h;=pU%zp5{znv
zPdHQJb1jtHgBw5M%)=$#r&+S_+?dHzEzKrZX-z;;+E+|pa*NB4WpwtDF%i<1rgzcD
z7c3B>`aGYpDAE@HB<)qN(G(1#Ctop6LUT#EF>8t6S0?v9_SGNpxt4o*BqP;`=KpD1
zXGtGf>z)cowG_rWMSkC&D9$tRhP%stApD--agd%s3k1tE&e=$1tR=F?dXC3cl?rNP
z27}C%s!lQV?DR2%JeHSXaZcv~{NBqA7Iy8oNy`EOu<izNa(Gv|i_~3DXg47>eda`!
zOYUWk$nl~-DE>7fdfc-X`smNcTDHob=6jR`MU2${S=>7fzV}I^XI0kvOqvjTpS1m{
z9<gSl{XdP5ht^Sj)iXYgXNv}>FVnu~7yhC4Bsd}4Ph*Sh8NT)Gz*<~rdN-SO$fy2Q
z=M9Y&nL}*hQ3vkJCQhSS6624_ECqop_1z!!$}>s^`q@t@jD#7DnZr5S)Af0C|IPx4
z*rvl{MD$+&Vn6#MyK7{~ONHWy@QemHyOp)D^t4Vjs?mD75j5R1*?gB<<UayuXlIt|
z%=488x2$xyzD}t)w9$!DGFqLt<OKWs$oQzw4yr_Kr&b@9Gw}FB%z~hA#GCmoaq;Np
z{2lv!#H5r(e}{kheq*f=XQ<2k3fLMlca8z)?~grQK|Twfvw`0ccc*@jTMvbZf^y33
z)$$~%0QR8N#1@6kl*PHT@#%`H@l*KS0qcP3{>z>_56>4Jnx|wbKr54kxl>{v_Ny1W
z;+;P_2&dDI@?KUSGa9cuO_~5;a}MridF6fbCAm%O@9X{;XunmpoiGAQzoA^qU?GJN
ziSqm~lke#Pc^KCQ4JFaS#GBc9Rih6zRy1U4Cu=pb>oyAV$bJ^%*SHmXr&1(|uWrlr
zrdDtK_ArHT%Xmq{Kd!P4kTBdXHxu~%+@d8((x5vAsJHr9X}A^hA=!aXA(EpW0u0cl
zbgoErm3nAw!)9aoG#Dyo>g#{n^!9?`3{D2+5=-Beqy3Q@LsNNrK1g4wVX_sVK<iey
zZl}zw9$DyQe_}OC63y%_40HWv#^Zq^@j7Hk<WI%fh^y>ReZ`2c*CKg2+7x5o=i>!G
z&2xTB?ulaMF9~0|3lshU^%|d#A76j-{pUer)N<GC&&86ECB~Z-aeJKiCx_PkHT^C>
z9PZre=DLk#swOxGY-4CWJwNNapca<&nr9YWl#`#u9cyLMF1w#xhyu%w4SuevIVy^|
z9Dnp0_iYr;#+Sm$(Pl|!B_{-pn!FAaPIScL*we2^<Ahbuw?#BHp50w@bk9_Z$?Gc#
zYe<*KQ<J^<M}niJzSmUVt3g<Z@E|H|{K#iaQE4L0r?~37chACI%X9bX`e-{}cHRu7
zi0<1Vc35>@VFI&H%6`2krX_Ye)$h?1{>q_Xmz)Ny$^Pso4;gmtayxlpuGB>f3d&Hx
z&tnPds=aRpEg$!{HJhBdPoPzTbyjoOz>Vc-Y-)+*Cn1%I%Ah0jw~tsjaN>;bdiqH1
zPQ1-`)vhQM$WiY7+XZC84NAz775Q;?ay3W0GE|vlX+4Q7^~UG6_)=gCsA#d4%)51J
zK1R+#zsC&>RD7RyzIV>0(JNv_35We~p*;CXI~<R~7UrJ2(}y1QjdHK%P9u)E05-@V
z9T%Z5#>F+kHP^a1mxyEarY!?_@*?-GD|aAKF3U{|YWEV8n{2(ziSrWKQlft^;r6LG
z+R+~JW5&*2Tb9K;7zZ1M%FH3S6UAL)BSGe?NZUxS3pU8zAl0<OmOzuRW(UE6*Kbb9
z1Ya9UJ{6dKLN$bF!oqq$Db0~hA?IJY+V<T%g7BlK`im<1xT|4vS+D}_l;=`%b;_2g
zQ~Qh$8@Py2b<<-yesSN>&a^RRVZdmdRS#+LTi&NJfvc(20^Os3dNd~WUhV6U_#Rn(
zUO3-P`-gm_dDhxKw}W|wn&*1YQe_l>ht0??{Zt}N0i+w@;rIPVlU@c(RH7hmkvBI4
zvRYfhVj**w)`nD^RuAnJgX`_WKNIjMrd0qtv~pR;zAx&bKj-+JtI$a+^7gQy<2jt!
zz|EXlf6$|3o$yReVg38filoamaWy5HEtXr?1QQ+2M_2_pSvM?nOdpS!jdFILNw218
zP7hCBS_QO!1X}4ZJnXy5{MTc@$I)+o44yt4bfAwQI$^@2T(m3XdQEmVdU}1df`@ht
zQKm0&-@@ufQE2o?XdsSE2e?VO18m_OO_8b-Dx#~CRU2Ov7u|Z6ox7B}XK&tgn~BaE
zlTxj8<+lI6aogI6UqG$FDJx@U#aMp$8V#8U52@ng-3_Q#P>4E72F}(uvV)E_eLnkD
zYFbjdWvFCn-@{JP%Hk$<#Mwk%CnT(QD5m4SH^WEusOZ=y|16hae>i^YEAS`D6IH5v
zj*qOq2X<B@?j|f0ug&&?9Ucn%69f46+@QY321fHKGOh~yPgK}K+5PiJGtNzI#d*4`
z@v<e?uG?@#2t1(Q4!^$$|G5n@c<?l32=yp@-DqQZ27qT(uS8VtnSBb_da3Q|6XWL;
zeGpL(?Mwk>15)gzsby0JASZJk2wy7pKf-;GBYzc6z!iN?lj_9=pVNBhvx=qX6Wl-c
zM*&DG8s=RNX2QsF5t>V(4VVZ&QRgKLPaX6qFY_YnV`!H^jx4DO^o9p{pokfYP_kq6
z7CCx6tsn>f3mT_;?@L7IJM44tz|BPg`%X%2Jco<!T><Q82Q~X|mYgO%$ti3!%)VP#
zk-auGizTe1A<CY|3mZU@VX-O+`yB_9Q;HLjKm=&urM4eNP9fq9Yf+byX11R@1(@&k
zjoNMYcp>9(6c)}(zQS1vap_vHO4d0*CM)?U^i430mb<6UEKme<+f14+e0>Q|rWrXm
zd+IW?_SA)YDyI}o&r8W2KKIrDE`S^6k{s``a<o3$46VUz<E<r(7NlW(_=d3YFlTrR
z=9Dpu@;vv43YdKeBPjpPuRtWo(Dc3Fc>9u%z~j}9s?j*Pr$HJ6Vx*&=L!Y-emlTZ7
zKLsiT8ct-x$}5?C2mjF&^xfR1C-kJ;$9KUCJ{Ha5Khk5yeeTu~Xl|f)Lhe9$jAM~W
z-Uw2RL|lHdxU%-skk)rb*^rmdaBnD_G_L)2Q=hpcM{hZ+46JJ73jM@F3d<&5`4`5`
z^CrgUdn(OVKy*mFZ9+s&VRmSg_*$A`&c~$VhWhL#!IXAq>`g@9dDt8hg^y-0Iy-&&
zg%NM!HzzH~o!*nKQkEc)qdg)mia|$j>^wSoKFcsN^UojI^6MeBV|R6)cN(I8-tr*T
zS#l<R4jf+dHeimwV#w@yjKf^$M0!wg3TtQYz)N_bDT4J}w|mjzTM)9lI#I>8BX#1W
zM#8#X<au`1xhWA6etCd9{|XlkCsQcqwE(P}|0qyf%DJnT`zjD=_1Ut4j%%7{=`HVD
zkT7~?U#m_^F@A=&X<LyQG8e1#e^^%mtd2IZ9tk|&Xj$%O@9R!j4fM?wH<ET!+iz#R
z7LtqC#=n}sVu9zSV6H=#p;4(iyc0Cr5?KZl5CaZed&n!G8rxC*5SToq8sbGh6<!vU
zJ1q^t^WTAcr|K)I%9(4`>+>K-f#j2M&ddje4$f`*D6Pk2P8g>jA76fleavxs$vL@o
zE%b#eQQlvhoQKz8MwJr~eVO$JOcgJ&4{N;q>|zhh@W1%ZuD^9PKjrBPm6!ij1RZ@&
zjHP`5>(Xia%$_&CjglDRD*o+@%{=!j(&1wLs3EiDwWyL<9WnQP8az>hru~M4A=ckk
z_{8t*R+HDE1lr&juoEHMw)u206CxwBN<U{m660>r4yabOaEfEr<6hw?fJ^^8vGZ$p
zDJs~pn?wG!MMJ$;y?7L^5KJn4bd;)Cp8#Q*wK}gjRcTeJH1R)^2Mj#_$QH|9yk#4k
zd$AsWVNuivrPTiS!)blX1xS*Z^*Z4{GBKFbnJ}x53*UmUyEQ)5hR?6}HZc7dayR!z
znM!7|%;JL_?IMmL(V`k|g7-fCBBRT!ux2M{qVakVtb%$a(@Q_RrX%;Hl@gu?*0Xy$
z6QE(Sv}sW&_bkp5A{r?Dwi;vN_eto2_PV#;cA6z~90)R0Drnvc)dW4PQvp_c0X))i
zE;`dV45?0XY0-PGy0E-QXi%W5RDxoFu)EozqvSG_^WefSh=S_#X{Ik3u!emkqOjT!
zB{P{Dm}#0l8q0aGkA7o`oo2E-Rx0C!QdLRaM$=X9!5K=Sq0+_&NG)s4iq>lK@C#l~
zNw@TgVVTq+RqvBsDmip5440wsg1h*%PAn?TsYS1txhOZ&cf~+&MZZk;X1yOy+Vpwg
zA;WV~cwL92U*Lk8XA6rC!@n@9pN`oiy6?}w{q!$xY)8vNwT8#Tu?|%6J9@=6$YYiw
zY<dcBpBv3(UEr+ea|m8+N6Z#<OmPDiw>HWUX*s+>R1Qs6V35Fam-n;df-qNoTRr2v
zx0H+--2c)@gJ`dFCh%7C<x4vlWyZBT5e?^?rGBKFo~n4wS$l4>m`#74n^-AAx{+g6
zBNGu=|Mv2*gAr=-t)dL$A^cL}cvCkre=OB}xEz1s46f6l*eCZ!^*;UV#Nf4GSw#sC
zN^0!Xbu7Qu+FcyYNM5ne;rca`efw(9rm^2^^xk)^FkHSRC6yI)8Tvo%eP>it>$Y~V
zz&<v%dn<|{hy)R(s(^ri!ch!$D;=arkPeX=BZOc>1SFauAT5dl29Y8qB6W*`5vdA+
zP+|#$9tj~Kge3P3?sM<CcieHmamM(*U-w%-7-40tmAT%mcfNBz&ogJNlH&<om*4T=
zDe$q8sBa)onGqi8jK7J{A$wUb0$>0xOKRb-sEZm!O{FKczIk|>cKGO(W5K3Yr+e~X
z+tkA_j%a@WR4Uu!e0&s!pwpe>u=p)Q`M#9e<_5;LUQtqk$W8snm{NyG?J@&6B5TJT
zUelrmrEiLkY(&swLrB6y@B6xm3$suJ`33FQyWigtO|Eizl0FiUs;R>swB~*NK7oP;
z_5R7ur*40rt%Wt2elrlS7^>t*d>m<zJG(NYSiFbleki4~y$}S+@<u6~0Uda$znuoP
z+%}?r6B?<4@-w6iJ;$v!um6_GjIG6H%R^e!?Lj3Z@J_zwl};;zDv%1j3+Jj4u!znC
z;V?c<FYi{{d{*z~hHg9E4@*_Vq9m7>YW<T`D9?cq>4gv4Fm+$Hxy4<xH0C`BC#R~R
zhyd*|WnA2qo$aQt0;Ct^FSu4q!)mg|q@5=*!v)5ZS2sYi4vXW3V{=t-`KnjRi=#?;
zC`UUotM|?L{tKp)k*lQX-Td<Xw_m<mhCfd_sv(C92{XF$X6$rqZt%q(e)h}B`0?Ef
z5)i)u%gDzP;CX2x(3@vC6Aqj2z3>gj@nvWj_{~TSD9U*>-X_f0_-$IjC?ak2#&kIa
zdwDFZ{*zh=bLXdHsng9VoIB?1W-AI;e;Ww%dz(VCZUP^1OAMXhf4HCKW2;zi0-K$y
zo6~ziBotS2{fh{S^1uqfX!(r_?<nv|MO6tSyDW|)v=r5;$P1TBVX^QM##7>4>+_Gr
zxfx$|iDw+RAX;#*PxA;&V?a@V^fnbBz~uv4%y6yv6Po05D6bC6{XkV~Bix^cBa3VE
zet~HByd%aVw2JIE>>Vg_P`u@3C^U!7=XF&><nSZP<oXno6rxaa&p_z;PIP@1UDbIK
zd3BT#T(?AXz-o1&bGCPlcC;qD*va=Gt$Mj5N<NC`*qE+E5xI`;_MNvIq7)HlS=A1o
z{M2`#74Fds)SLYj4EJ%&O74#UN)TZPn2CdVx%6pu(T(W9dc9!ywIkxi*Vt-f#r%s^
zcVB<3pj|pCmJ8J{=F;>UYmsSLT%(!qU3+?%EztVuCg6Z?y)nb_3+?v_Z*1=#?Eukm
z<|zZUA7fPIBdawps~eyDKOLWUV`Bn8!PY}6IB0G1#-&;il)p0dp=CTU{dRl?tP|cG
zbzk-yst@k=mhJp5R}&nG#z{`)+$ogmZy(JPM$Tj?)V-<GvX0!GhJKWWiYz(zL2&Q~
zhf@V>%KTc^Ou01Peucc40-vW|X#-3wYJ4&?J|8!ZDV;y7JN^9<Z0x=}HV#GIu$Xsj
z?e_5MKMpv4<!mPk&!HVldRu6)2u~cNu<HF#MJ=?hsOxK`vb<RC1FK0IPJ=31v8)1P
z4we4ihl*3EFf-jaCe%|kQ0otvu{v)vT5+_0haBix@-a20Gft=fdrWv$;5tZ!Ctxwc
zY#2|jr4T2IhwGnr=M#ll9@CL<obiGCvpd9OM(|K#RC2dC{>CYP;>oS_YA}E|&fVki
z1szo>a-Z^gHRt(^?!Tuq;wl)Ugqry~Q>&dZmpkf8k^aS370NzPU8{FPyk#-;YG!(Y
z0O#;Yhy4<S1Tr+!i$1avkcvGR0zD_1zcKW{%dWXh`V@F6CYLrtTHcD|^o-8V7-2$_
zq9)a}H|`K<y}<dvqIFl$r2u8i`T$k62(R3VENvc3pGIA|lu~zWZiaXUz~BdebS2cw
z%mqua8_NO|``6CYgBq00L9+rkFJO7Kp`BE|L1XCf-vDaUx?}6yuxB-L>twxAUa#Wl
zKS+|)bqKzRQ#F{3_4m3WV_JQG>H@)pWJc}Hp--00mH3F7)~C@fR5w#Yf`D;p)-29i
z1XB;?;h|F1VDj{sME<a)sI2GEl*y{jgUzB}Dj^Bvs|XyNYP-%Qv-SX>#n8Cbpn5>y
zgdV+)tUck^B2-T1V62a9hj>4#ug-&1%%k?MgQR}RyUy@mHd~RFoHhN6&`3yZ09|U*
zFj?#82J`7lp{f#)YP)MlmayPY7lJM8<7+{oB+%SEi3Js%?;4g{*l1(&IaqDYnq3>m
zcr2twerz{%^VYZFoe~upam8~R5~8Py4$iNG=)TiST%bbBLyk{ib>%_&0D%nb-RPMZ
zj>gI1LqhfqOgK<RHMYJLb8`vNHXu)Ls2t0_d<I858xd{30C{8sl%bF2pb628qFMkF
z``up0T;&m?Cf*3H<N(@d=m8xswii<B1+Zhr8;4Kw&`$NMVoDP7k@!CX$V~d^<F8ke
z*W?Q)f7>_~xa?+_@>4f=tS#WDPSoJi24<8;hA;OJT)zMBYpR2mReMk$+<_aZ52I<3
zIgV|^+wD!n9|zGn-FhtURRFE-1yuZRLX8C&L(M}}i`tAeB|^o-!5_9`n4NQc(m(Hb
zaGHO!7AHOfG5|Px8z88Pe;mdP**7*I>9e*wH~~B=t2Q?(WAuO4erLgp0@mIUBj#%_
zA}xQ?A^(J4r<CfXqVc)+{DexENh>pEf5G0nzvRJW<i@(Pr$LDmuu}K^FQ95ZQ(W&0
z=w1skLVoFAL&zZs2I7nqY}&=*NEmGY0o4CY-`Ajh@f(o;#?ZBt`2YGv^lI`TkzboY
z8L4;x%mmTh;-CX;+ARia1Calp2A~fry6+2LUzvZ8UW|_`yXGQ36k^>gOFZ)<|K9~C
z>OU)A|DWGy4%Ie69XgZ^m@hd%<+EC$`YNs=I$((fSP;lmZE0X7Qbjr7>~Zq-W;Br{
zs|gCku@1P=-@Dh?o`igb9D0d^a-_v*(|!6K;-<HYv#AbT#^>7K#e<N5^4~TlCN7+C
zk@yj!9YGOLpMsi9&{`=6%Dlr^Ydzr|<VhHR5?(IuZ}S8{o9B-G;PDJ$dWf82e|Jm+
zi}~d6GJlKm+83Ts7aowY%irrkkWS6Hkh3gS+40-DS>KQSMe>=)ea5izU8_av<Y3(F
z9-X#%hbIZ$2g71HhZe;%AL5;0_w?vAC+&G^bp8GTe<#`J8voGdfbX%z@UnHUaN-c$
zV_0?msUQL;df;~^PVqdZ(c|Zn>g^$(lY5CW)>b8TNM!kbCs*&rz@6b|qRnuz`tp(4
zJTax&l3m>svu>uv6a*))(KIN*<8<j0@Lh+AB5@Yw`v*WCU*~+rOFpddN~Ye9wFlbU
zC;$HV;zXG2(XI*TuAP<n!)If}_CnY-x@1n&rm9`420m|hbFEp#{cUN`Slz5OT2K47
zb+7hb)dM_I*>F=fJr8E`FleC$XdYDh8{YE^-BM>&@h4Qs#;?<i)yPt+nE=!QTOl4l
zYwf>d{`hbi)GjyX+uBZ06Ul3Y>ibu}nNI^SOhgace$Bc0Jy6?2tu*Lwc-^iF+Wd@y
zCJp^@jX-TgfI35gw!&h%+{lf*W9=IM|IfcZ0tp|?z^bmjT~1uxzW|FrM7|HJJy54a
zrr_grK(CiLLr@MjG+>(znHjLa%R7^>maIaVNC_9a4-{Hh3ard#iNx9n8b7gkYU9BD
zn*#dAxp-xL^k8VW(~*rX&6<`B-Q^z{f1Po$7JI;;;(@h9V)f&>4UmA(WS9w#-Xor^
z3A$fS!8GqkY;W0O|7D|#5yy&!ea8jh0UL_6eyP$QECf;$l{(N+$(Gd&KpHT+mnML6
z%~>;4?)=UOW**)6bh9}=S8oaMST0D<tS$?3+1Z!K`YA}oI>6yn!_z4=5|By}E_*`Y
z02B3|J5CH})|Rnd4}jC-jR8!#^#>DVfs3z*838PDVU0SNu%XMg6t25Fd7U?8qh~_R
z_nFiDBtWKsRqyMgGA1HKWpjcASPTZzFq%|^T?DrFx3xRjd76)hg@qjkl9hqm=<|0E
zxv1A#;ZK;71?M~EBwIo%-tReSB-tnoD?^B8)J63x*FIVP3T|j_&>`iy24|?u2Dq$t
z=+N^*c?m$j23YY{>JO9Ce1;#4Va!dRg8_uNkT|fKZ_LgquSt)U8yrXC88wKu2UsWP
z4timvLK#ql>bzqTkbOhxK|zU`P+l=xafr{`-MLviRD96x!j@P#?mHC*qK&IY+T`!J
zIQ0(E6|{d2Orq5Mugfs|YY_IhR$T7Gam-;wgU$^AeQ_!F<0+O&)#Pkzd0o)5xhL(S
z7Y0)`iM&+u4fySk>9?S?vkYm<ZPGs<07$p$N&YIiSW-J*9Ic!TmchprEDOJ^jhAdy
z7M+sJ6dfcFWJE}~++U~FvQl%8uA0njra0{fOW6%gyNIySv241l#sqMrBv!RL;Rd%S
z=97ervvn_|C+(aUhUv<tW%y#rg_7C|z*`Tbk)SAhTzj$G6jB5QaNcJdK{OKzBs0!S
zwe&Yo(a{<(h~6fk2ZPr%#}k%6<OAGOX*k1=mo##bG=rBPG;4y)JOpyOx!sH<?)z_9
za_}8m+Hk<4xzL0vz!k-j#GJbK8MF?$d0?&)zZw(^!qSS2P+MJ#K|H=eiHrh`)O5{|
z&Lsw|nl=%(IDcrJy;0!0Ux9tpBl9!N-gn{p(4oG#pnrYh{%<>@<-%|VP%T<fZJ%OY
zyUW$w&yRxYkul029|KKeX2$ETdtMMhw3YQh1_0642ff8L^9n|G4cn-0KCP*^_v@?9
zrP{#XV7lG|i^1nVaighN4?Ke(U`Sas-jk%C8jeW}a2oDzbwg`xOo%oILFVoObKGoZ
zSI&wuZsd7?>W<wmMtX&j##+`34e^P7=EL3Q!we~i)2X#XJFbp!8i@WN<Y>VzOKU*1
zQ`h59ybNnr2Az69lD-iZf4JWwmhmp5_V?Yuf}BeVMp+7`2w<<6lTBRsT!8k&eF7*5
z6q^;lRw)440#_pI!esClJTT2F{m(|<K^5hWboJ=~fkyc&K|HMMEa+J@2h+4;O|S_x
zB-601Yh~4HI89;Lz&K5@nibo80&B<0fI1JL;x)+~_}O8glftit;ku!9I%G%Cix*Jp
zr_Ojhj2A&cm$k8#6Z)z=C!kVj&?9SWqsAbREiK~T2(T-1+gI-1%;zOQfdX}rIL}CP
zz@h?`$O8MFd@W+6&=$9dYtZgbVxFpfx;T>O{?=Fr)LHY~_Hw^L%Pk}LN<P~b2SaTm
z2o6uWX?a1FEi*H4Q)dGI<`(^5eWv`sESj_T(hH&#u&sRd!v}=Neb<Nz9o*vA^R+-b
z+5dg{OX=$IwAig2!!TV+S5UkRZb9)zzlrqo#tc<~o15EQ@ELoGI58=;;#x88VhkAb
zImyG)d-vNSPa({4B!AS!$FZ>}?D1IX<3%IFvi5}=$q}Qdu#)d=qxM>Ltpg{JCv9&`
zXeiVMyi#*q2+C^zs$xFYjR8oO$-8i=!b8*2h76)Bs<L8!5n;>HTJK{L+5$iF5ssYy
zwGOE6jyXP#uVKgyRBRk`U6!>hnHldlmlsVzrKC}q#74=SrkJ))cn$W?Aj0i_&klUN
zhDYDq|1jCVcrg*x{EZVULlSX*4ga7&$td2lUC;XBSO5BN)>SRB@g?U_H@X%Zq3-rO
z?<bOH+MTcDCaPtJkS}k<7l!_EjeFfed1_@ZCTAsUShX(f=3-N53;JNU>9dohY5{eV
zPLBEy%>nLG?ei0~iZdENYI#S29Q2oki|`8sdd&Ly?h1-``FE$-xm3Kx@7O=9H#G>#
z#sha;$+_AYFiiyzZ$fmjI;5ewUD(m5=E=^MeB{t{%8T0cfL=)~G61aUF@yabDVffk
zJEX^xi$o=+-4VBIq>o=8!#E|2pby+RVv(22bd|&9!3Xry#AE}x^TwLDk)y?%o$h<#
zR$ZOrnbr{@IOCaBy{A{LnK>oP!crwBgNr+%<f!y47CLH1K@UEp8^E@`XEDm^C!@|2
z_&qbL!}gurhA86@BC}QX^~#dmc0=%W_~B@!-{%QIY(^iv)(eNn$JHID5MKQHymK8Q
z$J89-AdmDYQ8U{{>~6d_ZMaG_^m9#@n-G>pZ7qu$2`bAAX9Y~_oNdD>WWUZ(U2>z+
zgU@{W`C!R4r+3MX-`+BaSxs;mMf8-PW%AVVC4Yq5^pYq$e%<^|m?D{5e=O)4cM-;!
z{KUOE@_O=e6rstzs$t&<vq}0xxx7JRR!NIa+B_d+<D~Fn<xv5%i>+m*>C0p9r99=z
zKN@Aw@`d*35Np=80w#ewMRE8u+NuO)mf1z3-0aRwb^a3i-G8#;Tb5QaSN^k=o-c1P
z#+o8LSN>;w`wI?LRu_9f@rLgz<>kdKks5Z>HPvKFYEd~FObZu%$-6xo7R$ocHQWC|
zBX9;yU#w#`Iwyg3HnD&?Bbm$JdYY!({t?)^+$O<rhj9gQZxe*fgDb+7gr=PHcgx&~
zlcQ*%|F$I5$zG&CIxWmb=7QpdT;@#^G*$CQ?ZQ!Z>^q&t<OieMG*<{?HHgo_6}0f@
zjWK6BpOD-4Jq)>~FB|t?Y}>WXj<J<x89B?zc|vmMNeWg<8z9a&d1p4W=49WoO%1Jd
zRD3U{=fj-c$1eq~k5<dHeAwBPD3@`;$b+EI!<MzX1kQUZU(o@L;`uIb{(7g0@k-R;
zUG+vK?ZN|_%cNu&S7Qh!p)yy7S7hA|y+QlG7s4V!(I0Plkg!*QPbs?-?Em>hcH9;m
zdDj&wj}H7*jZl{Elc``u$UwTMV&;0tSsX)Vt_py(e!aq5N^p^XiT>E(y2=2if$vDs
zRy+fl!qJyxH#P+z_9_#MKdGh1sXF#P`y0V7qGJ=EYpF^T!E}RA_g>zMo=s?S_UA2*
zcB4-7E0k8aRri7(*Ms=>G1OV5&cN}{pg_J;uW0`Hamv%`g`?FLC8w)!B>}HqjMY+x
zJKs5(WB};2wEESTN5K_@qVl{`C~KC^?)FmPRN^|bGHHqsZQVu_swAXBrQhr#jJ4o^
z=;4DF@cQ-|+H51D(<#OAPNeA#AL~|a)VwCu2=uO>Lm#sE6CLxQ($abBASS0k@J<OH
zUmrk2ouqXnrt+2w(6^PaQ!xQ0J~T^vMAVGF6e5SZEIXZ_8S}aQQlZ)Ke=?<C-RqxB
z0TJX$EmM3~d%9v)(2haNjFmC9{@iqt?&F56R1anLsPQW+-1x?fQ;Nm;fB)#ov55|y
zH*Kp-<z`6-rw3PjX4f1&h=rL*KFKN$M!A{NAQfQ`0ctflzSDz-P^fqysZrFr`~hnq
zoy~a!8&9h9jHGcQ_yxuR4)pEjZ4Fi+kp>!|_``YE2Px+}@5E&~M7|2MULq}+HSRrr
zX0@iQVVh7nuRUlmv|~d=_CQUQuam+J*JiM&WJ^GHh|$?F<XP4uM|n}HHKwa|iKXAk
ziAruDb+b3=5BJHwLl>)ymZMGEcg<M=*whNwcsq%gR3PYAT0zD-36_c+lsiS5j!J><
zCFc^ye|dx2Ej#q|Vtit)3h&ft{N+Ti9ih0Q=sER=Y`FGp@X*t;@gh&FpPxO@k)s6h
zzS7*+uMp!)?U;t^K~d}-EcMO1X9Bn9H6NrF+blFN)u?s~JxI7A#T?KzNz10D-lBMr
z0vvFZm`PUhiD6V9Gy9<|djiX_w@5X`w((>QK~02Gt5(VJKzvioYhA(a)Rhy*(BcUh
z)mJVHJjF?AIoyTJ>8&E4k~i-w<}b)2!?6PQWC3H_b|&DzB3IaTug98?wu(T3Ir<}m
zKdY$Qjoc-W+G!DAG#T5M#T%_ks>~W!{@p@nS`c@(7ZVHCE<vs*yHT%^ki%L{AtpOW
zaqp0n$o%9c|D`EXADjd{v8#0i+DQS0qLqz|ooM5oi9Q$JBn|~`5gxauWEmYDS?48Z
zzjJwhAe#S-TTBVJxnT5UqL&V@@J(l2{EfnbdRpax3GlW?8WNlcqV<zg*MJ_n+m0pJ
zp4NCMZ|58nPp^<%oMt>(qTGcE38mQk4VkK_;01vczCpwB6g)7#`xZ2|Fq_Z%47Edi
zX#l@4Lw?<;+kfzVanWM$%vNHuGsBlB-_@M)RmPQSM9##YP|CxOAgrSmg)f@W<ii$r
zrYSI!KS*4gXtZLEZFmU01arQ@knG=<WLkbkAp3ehS)`T*B8A=`&!Dk81RQI}U(n}D
z3=lLt`Qx8C)<Wu(-ko;uf4`lz#{lv}L_%^k&#%8IpMbfgr{{FtXWZ0V&B;e2VsI$<
zqEgbcN8W0i@*gA(-g$I)@Zj}*%MzRP++5`cf1xJb-Q-hswfNlyZ^Y1W=L8Ovno4iE
zIXdKf<e~M#e9qsr+b$Qm<1fjiZ50Un-XlGHz4vx~n5{0^lF=d1X`YIeMD(|jWHIyK
zKh!yLbb>kbvUJ^q83k^bWd*7x^4WBwHLGC4#LhN=R^2pgWIn95EfhiDGIoI5lac<&
zXSAvG!{p{(>iaLD@Y!R57VhXj9xfSH8)wvKS>ZVoTVxv`+Sj&tLLR*|K74dEUw^Q@
z_3_+MwNv*rjbSXmj|}%rD@wb_OHxhiO^z4idpzuKCQZ-Jam_yL>B0nm7CijzN4#<2
z*d3^T@GL@?iI*=whX}jdK7|J#Pe?C3Wn1W3G|qrp;Nk)X+h7C1v#CM#(teHGLb2mz
z6Mbb9TOi&^5G}|bvhl7xjp?MS?rC?NbI0&7PTnQ>Ns)`CD<fQ!d;>~&iBgyo<k91B
zc`)1J4FT~_b4A>Ai?Z@UcK4DDmaj{0g7WbrmaZ9a9hDxAI(aC4*GZ4g5Q@(|x;G9G
zeos&IHD&oKksm<ot0DrEi^7UaH(oVRS*!@+e@Zu1iGiYWJAd~Lx+<-qQg@%#-qV}@
zu>-3n;2l<RIZk*v+mR2&_IVJ>D1);7eu~HHwuPpRYckgC2UGRY?QG3CkZLNC*HmMW
tNi_)|kOa|M{%`+>9pa<@cWeO@iXDFULPtuIhs8GxJ8k>-GBfY%{|4My_Xhv~

diff --git a/reference/plot-4.png b/reference/plot-4.png
index e773bff19197269821856c67d406b7fbf2eacf79..7e450553dcf761cee422ce845a46b3eecfad7290 100644
GIT binary patch
literal 38912
zcmeFZcT`i`|1BC6MdS!a5wTH}00IIU5TuKW5UL<Wx=NGYdlmJ7q69*Tp(+HB-g_vD
zNQXl&0iseOCA2^wguq?lobSD_jq!Vbym8-nZ`?fwNl5nIS$nPd`OG;#Ywf&wsI7YH
z<i(Q^2;>x8?Y<raa?B3`Ir{9xaqtc<@zWZ3I{r*U^*(q88|7YoD0pIaQ#1C2K)534
ze+-DZbsGqT7XrVptnZhyJms6h?!Di(?ki<#)_K+7A%pULWqa;t%319~trn0u{dgWi
z>gUJN<!;ZETi=?qVcAQXne9~BSTe4DjO67F=lvLdRwcHstRxxFgTKJu(hWs-3)HU#
zD02H-``R|z*v75;k~(}FEtwBn^uHedR}X+5_~?;*J@?zsbweqU*Hdf0M<9>{LzgNM
zdfzO6@!+46aq^w`Yx(CYBLpH`nBrvgpHBP1#$fU9>(7`IYv4Hgc86ajjPswD5MiNn
z#z(>HPMz(44hxhzf(2g)W7b&Y%}vHwL2sdknkO2K2Lj-h8oTNPoXB&gO|IIdDKDX^
z4hh4`122$w4foU4llT@+i5#e1B+Nje3-{qDxGY@H08Zk6kCN0LFhohFLQlmHspx6J
zyZE&dHeKN?1E2dCkO6Sni2zAt?X)8_7;0aKF@n-k9$c6!%rJkX<j{^?LBx4sFnmyh
zxC-5YHso~TW*(;ULXnX_3p|gXWTB)vk7bMV*BL=o6l2U`#ZBVY`(mydN&NPK=N6OU
zbCl_BeN&dhD<xkIwm!mfng`JfPwZD77&yCOE}pA;l5j&y?@h~$sAH(X()sF*xBRJp
zqU_A!p6o-ONKE+IMIm@0v_~Vxb=fLI^H12I@b0bDl#d~AB;zTtE8|Tq8ZgU;@u=e-
zis@(2cb>pp+~7^h0%7Nu^eBOSs?bv?{SVfu*)_B4X<h4AP@dOfy&S{KEZpGId>wU(
z+kq17&Z38n8|(Tb;eb~MrW|1g*U5=JFjW_e*^JfL-G&nRB=RKD8_{JO`63eG5@<;t
z;o2=u52(U2N!BTD=;j+(xPE`Jecp?ErfLIP@DaX!T_o?SSC5;Juh|*<d$1Q~Ih)dQ
zm(#Vwq_5gncH<>aD=}D9!y*K)EvcZq(xGaoH`})U)s=_Mcp~ogVSwc}^rY-;`@1sD
z>UXus4fd2M(;FVydY7_lmFKIrID|&lyBW7wI^KzCZkt?A{g}dQu<5uc-7F{E8t_fA
zQ?3~|m^G<~{#b_^5wqumJ!1W)A>Di_w&MO5re6|VKYG3emSb@yhhJBM3ef9)@v0wI
zok8eeRQd{Is2f3wjjp<ut}e$Oq?>PSlWGLN)Ycs1qsi}0-laK*@0$OP^-01c!ZK4m
zp<LG`!iN{ew2*nwYa-V;Xi2-wYiV)w{_(zH(v}0PsIou-HR?x=I)r(2^--)+=ey^M
z>bCcbXpMcb`sTJt?-Ax3(Q1pRj~2?u{am#kCZ<DN1*VhdrbZ5<B&=b`fynLln2-Ir
z8s-J&3NqSz-13p_&?nO$vmEFr@W%pf9$}aq`Dlci!=i5b{V(l^f(;Mrd0(!SA3KrV
zM;_Ukv=P)C_}IU>%Y`VR>Nt%3WwQM5_44t0&M6uZUviILQRAQ_spm4W=65LgIVk<5
z?ojZ&x$w@w6<G0>v+x0=7&^78CtY0o+H)?%C8rJ}V=&O69ug4iYqnvT$m<-#F#VLd
zQ~g$RaxNIbs{f4O+`0S4XCCgO>SuXkH?fmPFKzo_>hYQK#ZP8o=rD7v3b*}Lq^t~P
zVa9#$jhHv-V#o5Why`6Sdt|M-(usdt)Q}AwgR+lp>8T7vGPW^(LQgI&RDB#}7HdOY
zTi+Dua9GeS<~_P@!7%-adGUiom^Axp&xVU51ASPVExMh*;S*q)T!ZWHHKtFaO=G5(
z`Pkz<)T{5UWS(jWk5w=mm?Xy97HK5ya@&h}!OJJ-c7(**a9<UBh5pkgDF1j*q^it#
z$>ZLwy|}LR8T05+-ey^jn)uVPURc#S-lJG)fzMWX4AYto(p}|+#~_foYiQF{(10@g
zzq-h(Q0G|Y5P6Y>i)hnYwuc@EGiTd_C1*9!l*dzh!uH6n#vpiQ+%=`?2r-;d0LK5T
z4ONHRp6oql$h)1(Z$WC;fMqf?d5(|XRG!#K>~UOFZR~D;EVvZ!_q0m0e#(Z5=c?jR
zm&MQRgdTsy1s~8x1Zy3+-lkz3=5MpnU~EAT>}z&j?I4q8P>sTAS~d^<h>k}ecvfPb
zp<lm<-c&QfTUo+hNLK&&WPJ{*-ueJt`zY1#*f~P2llYd}%;rJ*Xr-UNZAIB=W~|0U
zrox7(>v&^!h~(Osw63kBjmkz|7ugW@rRnjMS+se^H`0vy{Ke`7wBejT`q=PD7j|^U
z65(=DKv(<E@ITgU|3{M;{TLv3RHSt~j)gs&)3|tTK?426*&xDda-KOs^T*ZLN^UAP
z+t=-vcZdZ;K96}-&aP70Xk~jWx@~0X=Xb|1wHt{<$Hj<I{8RViojSula4R$NRx~xZ
zq|4nUGt5~ADHg}v*%!B2gJH2g62E1gt??#U^e=@CVa<nzD)Aivs+9n$A5%{M07J$x
zB?jl34WYVSHMf3nQK0-xkTCYaqimBAA4IT4CWCK{Q}MNf8H0{z<AIB}3ZHYkkB6jY
ztiBAMQw%M^U3=1DMl!O_c01v4@tx+{Ntnj;i&0JY09V7Is&fzsv{@;S&SN_&wl6T5
zPz8PoCKq9CWUaIOh%I7f##P++m$zKQ=w5?%S@04q`#Q>!yDV6XwzeyGIjPhHW7~*X
z<*MT0&8^)cEr{8tC;IY+#9#*Zj6@wb*q4=VzsAC7)7KI7Z;F@rhcVH73w^N6zQr!a
ztH;#>)NI9c#B;vW8hdBPdf`KJeu!YaKy2gH^}2I*UGLgSq_vabR=yUY5hVSast+DO
zr{>Cvo3{3(Q8bs#P=1okoCSg=-QMk;YRBc+H1DA>V6Co&2=+&sWXBj)O(!eUBmUoR
zOwhe=`y%TCEE7^3J9O7pyO%@Ee&RcAKYx-ip`bin{fbj<ai+{QXOiGv_}Qmj;To~(
z_PKBnj>Y(+(9{oK>M+m3yT~Fo57uSh|K770ID(L8i$PnCcHsG^_((}pS$M>Vj|O{1
zWOv|H$5ZYF*__APRrqA(ivQ7sKqSvx<MX&jKiV8${ZK;$AH-0d#}HkC(W7rWi6(#O
zFR}<4BzUO?439fb5ldHX_|p`jIs;o@3<QNP@i(lLG~{7A#6aK%UVJ~nO`TpJ8|}BU
z{QF$3lag_-=i~~X1W`Fp_*bCB@L`AZ9d>v|z4`!8!rs^WJ!Vzn-eXeJeCZn24+Nz2
zH>>7pPz7Q3AKoPEGu{P}-@9aPq}mZRD%|3MlBo3#$;5QM%%8BBI|k1ZqdIiHo5vas
z?7!U?PZwd|X}CY&3;QytS>I<vy&{IQRExnIB7)m$or=X4#u+Kc?X$bcm(jcxT<_R4
z90V6U;qQav<NkLkn2hOGYdQnZgl@$Qso6r46a?+n^vvNX<2G3ZZTF6YlL*ONMQ%+u
zF`imXU>{#kF83UffE2*<^*lk89rweSUT5FSE&A=<7snjti()Ql<xXF`>lp%gR<>1@
zwi^(i(4F~>Z*}8LqVb>C(Yp=t_d_VK7cSK#IRm{<-cB#Ny^cAu$1id0kV(Fa$XSX2
zb>~}VfhJbEtDc@G!4@ba_dBN7s&G=Zc1|roBn;LV!z}5a`}<3KjOLnX<P#1Cix!<9
zH=y<@s{U`d$4{)O)3rsPGouTZDXv?b?4Hxs`0*(ADcn)70B>DeEe)99zn_2ZmC!{%
z18GI~1wPLD-~!Q_&3(?FK3fM}TX>E>7AssHi6KE15{Yk@=dQvAMXjy!UVFXM`1RpE
zQc)Y$bZM^f&x|-`q>I+i9j}DW;8GPqR}EQ>=|P>E+&@-(?jI&rL3$QzPFp^OmJv4+
zxb2bylFhm2>RwI->Cn_Gx#bvV#YLmj3F>uv13!_rRJEo%^JM4hTBFz$7`z2~D?#$s
zYcE&0Y=)Ub{Ma_qmjAZxE2QPCH6wVTb>kiQtTLQanDnJ}0Tz`<OZrih1KmQ}JMQJR
zul88erOQKBk8*RsbzzJ}F}1|q8%zD_0>6hJ+lsa4!KxV#uG^!#^_f@Ickc}Bp6yDq
zpPSMba0`s@Zl64A;}UBj&i)w9=b6973FBKL-?!{c2~<GK+(IO5GQmZyizvmgFDY5D
z7n#Pe(YYKaeIK?eJ=>6R6WEJyGuHd8s_oZPDs|^a_I+(!ejZ544e#}E!M-R;=Zb}s
zqcGYq!k!>p5bhu(VG>e`8Rb{VeE#I-rK69hW9_2?G-OTZUG=pFJmAIZ0VZF><P9xW
zdo=$Q4u`P#FCWPIpZ+xouhqi**Oi<cYRGgrmHd~M<G(!h|HTgEhdulWj}e09W+<=s
zi86@Z3+;W*>FJUj<}Waw{95swg%~d6h<bqP03OOECKO*eLD??p#?QoGkN5XD-o+>!
zl>_C_$opC1`Z*)mAVZZ<QxR22Y(Rc)30fMHkdN+&9nu}(L(an|gct1KkD%uKx!Pyu
z)E2gyR88#@+s(>PAr+C5cjxz53TD2l@7J{|JrFcTCBa6Q;BXeGb7C#GE4=P@wwMJu
z*6TG!r+{QEu;2pU>MULM8fbjRWy-HiqhA#--%7&SQtmAEm6wlIwp`Jq-zhKlCdm}|
zqga~mfPji6p9_MIYalwF`HWYen%1Lg&Fq!;<qvIJ{zzojKOWJAmHw-CnJ4=jF^2a0
zGHN6QpPF=E;hb?>+CtgE4R}}F=N3_<2YdWn&Or}~87e4zz_+yHcBZXPVL$bL@X5G#
zf*rg^e&e&CeWk{P9=t8#-uS{ueXe)60yp6>8(fGLk<b&kYX2U205Q`&{o|COuZq&|
z=osc#^PTTTdg8poFrLr`5rVEJsjxyzLU;Tu$F%?#f8%QsDW703I)5pkw;zb2Xg*=m
z<GNX;;V0L8^fnc+YI-_wYUjJ(r#jxrD;f?&joh@bbfFMK)61f#1acAG*M=@H=^E&1
zz+XZYQtw-&oA_^O{CX_?8pc2%*-Y#PpC$4|$6ruzX3|LAeN&PVntlO!(Rd*Ws_?`a
z&u`xp)}>uNt+#orzPKxd-pTEeVlW=<`L4<A^Rb&x4ITCUcbL}<1q`eo;2%I!=lOz{
zKbO9}EsU+zoJzF*)U5-1Eb#EcSf+2A|79yCKbj{0+52JDiJBk#Sz&^^$n5vsk|$mE
zHk+uz6Gc@zZcZ@8(hXUqFzlp0iur*m)O@z&KvLys?rT=6pfQz4Jfdt+EAU;0W!Mpj
zaLr*Xgn4+q-`b1mzNQJ6Ro0tY)@R~S(?Q2-;?)DDR09GlhE32ifg(vGBc!40@f2-3
zT3>z|A+;D6zOH6E%jLYwiOxNW?M7{*WI}fF^CO<Qn7%Xdmby;5UU?C{tkmM_G}pKb
z{g?aF%4Wo2gO3=Eed_G(y1H>xU-ao_NZ84D5OK&89fN!QvFPHiclxDA{e#b7Qm;$Y
zl~;B<$G2E3cDuwGyUm}Z?N@C_BhygEjJBDWb&n=zC8^bmNS6fTJ<M1D_x0`5pE|BT
z8@V%}g|uDVW|`R>T;cf}R{Pv^+21JE80!?B5!Let>Vj^(5LW@ARVX`O#FIO}0DtNE
z_Upi3ge<4)3m$04k_YoCs7^+GRyQGntw^y_$D|?7e7@?p7EF0gaIWFDj_Q(sVnSni
zx8tTAT*+j?@q1S8X-`&dz8)uof}pC_xzncE$%!yeSutcSYnRQri|U(MU5&76n**Ks
z;3|W8A41n0_K87Nrw0F&3EGiph`Q@|z$$alH$5rK8F;$jJu<taLMNp0+XhKCVL%Q+
zEeuw$p2+Ef2J@08CJLrFrRDF;H{2YQwQa!IK`VuGcHs+_guCd|m@F7gO-27&ZqpVi
z0oggw-RFAXxSjvhpvc}Lq%3U)w=b`PYdxsNm|rDLwChSXbKM_T#)!r-A0ep8cBt;t
zkr`7JW#b~cCuwWS=7<B9@^+++_?kz8X3Tecccib4Vi>FMI8Q9ISnXW!d(Dr{LQ~Qn
zX*oChH%}M^4DnwrzZy_RIi|o=96XKc3NA&T+F(sP)?u;NCbBj&``q7hX3o8h2Mru&
z%F9PQCe#4+fDZmCDVaXpH5JzuMfgCz*utp8_Gv4!8QOxOJfhHQ|CgSvRfObIxK7Pb
zOWMn_R1N>591Y%+3+s1}T@xSnQW>e@@^FocE{R6}ELr77cwB|O7}wtkPR$PFCOgje
z!M;q4ZA?eXh^Y>wGB0k2&OL16Eg~_Gl*X}NM)e3?j5gRznVh%MYHc;N$R#&zSuMJ!
zwz+q7emi>#$-IxFnHKz|zEam)5xv0mWL!Cmmg(J1Qruty9Tip~8cTV&k@La1G+$lr
zn5A>6h@VcZSBz%Z6(d^<Ww}U+M*?@ojOJTR)%2WII6tCMysKF-J`-ZUdW6XCPwFG$
z{?8GSun9o{{7)F42JyAMLr3=uKP|H)Cq_R$SSCKHE5$P!bB}`-sPH?cN`8!VZvtTl
z^-f?u!9R1MHr??$wT?%Cw9C?wvaS5KQTvzb)?E9$-(@eaNLX83svXIE*?nRnGKH|&
z9VJt20DA$W21M9|%g7bb1lzKL^;f>Ygk<|xV6>1|=1%DK%r9S&(`95)lovLGWq&A9
zvU8$Zx1K4*)kyM=w3_Wu8Lh5}Pr`TB-&m|qr;e<Cd9(hT>^!-KNKQ$^w==Tk3+>kB
zi41a|T5lhHlRj!+M>tJQdeeUW_t4$mOlDQnw(bP4j0~dlEjZ`3-H=?KC$#Xo-cb|E
zA6jl^Qb(~U;oY<ocV%g-vma(gy3A1QHq-UFo%h4GZ>ua_vTXCYNyUZ__laB_V$ECr
zI3QITJs$JyU$|z!4RL$J!|W*j{1=B>#mm^J*`Va#g*Pc}OzlvK;jjj!kS%+;)n_tH
z?D;}<YaKV;sgp-OQ{En5-p9<^@HN*z?qx_xd~1R7Qg!C%gD$YjAUaKX+1J*RvVW*9
zjmg>%U9s$M)?be2IrVID<86xNONByO)&wn}wQ--vdrVwK^+p@wYvoH5cCLX})<>L9
z6BT!d#XO7d)h%(*zP2nR&0mwvtM}|C7mZXE!uWn76Bai1Fx037+mg1MeI{+2kvPSk
ziIC?fy)`3nOZw`o^3N=DW@h&rmCXCaag#2%rViQpGRP9=kayaXIZwmznPrIU{dyhh
znS;nC)`jDK#4;ss&DbO_D*i6KxOMh4bw_uerQ3S7?%FEEH8#Vt%6y@uDK5iu&(Hsx
z>`FAGi&fZ}L#4RMDE$OI-d~jGXnj~HDNfGdsrmJiLrU)af|Sumg$<kh$(LuM3awZ@
zJLEzt9v56Hw0iK}*_Y*`PgRv*QovOUP<M41l~nC#i#2Ev<|;{oJ#rsYMvS!?s&KMK
z+2F|yS_{WA@4>z#MTRILhq%qnu5UX&9leq<<w{c+oM<#$@f4Y0C}sHtOzZZjkEO~>
z_w{Ai>KmMeR{!Z$YW<K3j3GU;yKooj?>h15gV%-{r}*F;MN7J0-Ls(WrcdL#@(jla
zIl4aU8jnlyBcTS;?UsrC@_UU{LFih)>Q1>DYo>u;xbC-Zsl>(~zZu(FkNdGJgtM+q
zKXWFTNQxRSkejMntdFFT@mI*Y!V8noMZGkJ=_6?WSw0wpeNH3qIHXvC*pteT$fZ9K
zlQF80Al?XpT=;&~5fY}L^|(Lx#4kch0%ifm5-}^{e#aKwMeZ3Xrzwwj$S#eGy4~!_
zoMbB`%*aQ-u|Z^4yu84H#@!Nq<TXsTJ{RS$(aVSHRV!7zWMd&1(bau`(-Jr@ivF<}
zI6*t$54@kQa4HNX413Yf4145pwr$8eM>EDMYOB77m2v6{`+c7>iFty#J9T-q=R`!X
zRA6lFPE*@OcoPuk%fDwGU<`X_WDq-LUGLJ{Dss95J;D>JlZhjw;t@|fbpNV^&ABOc
z!|X0na#8&j_M6Q?<J;(cgc72yfPk<*C*+v_?MvDHJ*;-tW^W5?3afAX=!nXEbR;kf
zk({Oou923anZS{C)1w8J4@bu><YBroedKt}hdoQWi%2Q-o%BIM(`q5%9<m@anU{*^
zNA6#dxLWfTBL%bMCC1A{z>!H=#+FSUHs`dcFEQKvseFXSCsA7|;;T*X6$U7TLx3*t
zd*LoX?#NtiW`T?iUe5geSvAKX-&buHvE`XTS(yyCA~U6>iczf)?lZSWKQ$Cvgv&em
z@Va;-+w9_Sw-WSBYZdzDVtXSedXU+jlX(i=6NaXGnKdAImWLQAsbUM9=#R#h=pP-5
zH@z!We>QNSilVmm>L$md@(V{+zLY*HAZ(it{AGQvH`d1zDxC2<D62HeVM>tQno^!&
z>2^DTqB2Q#86ic9d6#mzDBz-o#uxSzc+Ig+2`KftB$#qjkB2K0y)JCO{bc$jQY@Zw
zW<eI6drjT?hy_=?Y*X=|S6@rWDcQ=ws-l}pMx~3D2+ii}O4-q5yQEfz5%JGUPE3@O
zNcm||zok}}qsZFVjY(UVap!QOg|<ll8s@Tt_XgJ`yn9c<h^1587IT@=3n#lOdd#6c
ziIg*6h@mfdtU{*S`1-O(NO^}{>Xe@3WDE(r&U@IU-$H&+;k}viMBG5V<F<^4L~H)!
z#Ss!4e10o#D=6$>QD4@4PQHwo5VnCxeJQ1Q!-{DO>td&9GLR2Da5NVwzisS|W*hf0
zC&rene#fu~UHq|iaty~XjQUkY5SA_cHY#TC*umH(r9J_~r`8hX{!(pLw^??S^}NV?
zPE*^UuwQCR6jM~)*aDHF!)e^tX4<#TFmoSfo|f*_Q%DfvZX5g3=gUP_fhq_}98<Xm
zw=?xm6(J?<nV$4sr^;$=%X`>7_@+Lfj@Tq`DVV)ct^CV6d`Njn=j4j4cu87A_8)MR
z!kH%b@EH#%*K-<H%9cvFsgxtZuOhIE_eOG8hiKcF#Pg2vMbvlgnagzrT9bD_q)%l_
zpMcAD?v6WSYSYVJs$aUaX7}k9<a0B9GKvfxhHgbu6s{9=(@J|gG>3gWGujm8KF2Nx
zMUn~#o(bq<o#f-CUp|c8aa8O7;js66^zpWFUrxt6Ml%6VYK?-r%=Pl~A2zA4-!ER<
zz36TFP*}%y_ZWQFZc<UskCd7*_~*BBqY~dsGBRBOiU#wcDsp2}roEX3L>Q<2_Gt^U
znon`RBcc7>_aIYSXzp1qo8Jk&a1h9Gz1#}RlB&7Zi$2cbR+!&doOl;wflhT5KIyLc
zUgKdT@52@y{h5;T{FgN_8D<1TAt5nMHLES{B7gr~7pB&|%a<PG1?;g~q|A-&3pe9v
z#k4s)0oC|<wE&Cxi=q4yqFV0ZlKgMUGukX=>bBpo!RC!8OO|;D)cfmILey_^L3msK
z>7yLuJ~^8QsebP_>sn>WfBiAq@6(XN`FGyc1=}S896o>R(R|7!p+JTu1^9~$lB@Q>
zD&b3E-t!xM_IXEe%p)WeEA=jN#X$1LMLD*WPdAl#il<&f6?i>Gw#s*Dq6<i`S6h48
zljDyxYkH14>zJ-F!S7igu{nq*)qYF75X#bI?Q$$JLwVirJ@kELNTaN6y+TGwwO$;Z
zb@Lq+<c^8ogB2?TTF-nvyHQDq*}B+pxo`E5cb6BGu-SGX({F!eY?H~oHtHX}mGV5c
z(hKXPz$23Ty3O4O4^yr0+YYGId;+X2o6tJp+qt*V@(HlfgL(D3p<RkX@zJAak?5D$
zV$CPmmy-llgq^s&e^g4&Ld|eMh<dN359X1Nti3anY2Pa511p_>gObH1CKg{nqo*wU
z6F$vwI-s99yK<$sd(>1O@FDi_o*gZ{a?ggVYcqHP*kUE6Z7uhnPllROW#!_1bu}CB
zS<gpT4sv!(Ci(lHq|_2gaSzmkwD=_^gff1g<q)HA$Ngt5z}!!LIG@dfhogpG@lI;<
zvRm<+?+p;ACTQn=-Bl^}l&eL2sN(z)ctrqF(tWM*po7uq>MqTB0BQX3+Eq`-)dy%9
zQO^R8izXBm>u^nj%bi@GzU6<%MYU9J-M0NJgHWqA%_l^Jr8b&9zZBP(`!-rXUm!PK
z^A6utdpEN>?VAfl4>xa}M%Jd~sMVDoi6;n}yDsf$!HOedy74<t&=f?|`wj`8Z!_+&
z;;BrVY~2#eKm(iXQ<Q%7!O>4?E&#=YGHmd=!HKkMH$u!bx$oJ8SCRb*o!AH+q@+oG
z6Q@Y0cNOlPxd%^zINHC751FP3!~3xpY$n@;7y3~DL@unR>2C&^%GmG@>WsB@$DvQ=
z1a$8^z%2LV9k~V-Y%Tw!xoV)BY<$tW)1^`I=h`=Uc)nrYr}HRG3#w0Y3!Ks0oG8>=
z98{kb-Ze=U$bC`S@D>#JBU5r7tLH3xEjb4^cg}3yXQEHX-TCvP@UC*MeYlk~nW<H7
zrpoSWb6`U^(|Tl!)%z6A$E1@V)dgZ^<I`!8mcv1=f2=8rt~y#P*$T@ZxiM|(-j?`$
zyOvolaF*r@M}6D7yky`Q7>JIo&|W|Z2jHBrIzX0rkMrnl$_5^Dj`$Wo+BQ=&2AeXh
zXi}XX-93Wx(h*Q2R5j~mcWK-*H$dC}nGzjrV9Pob>61RXoy|CRyVB;37rDJ_$vdgn
zU#)*s(=#G?{R~Zk&m%3c{;Ij1+|ESr%z3$H$7&%9#1hv4XFKCu!(xNRn;iG&qU?Wa
zdYxJ^l)S;Me}I#H<3S|3UCQDSiG;YmtSM{Q7h50vFh)jE26~A>vZ#CG%0qIh^HJX;
zQ<@%v*?ve^^Egi@Atxp~Il(qLM5#=eond+e%tEZ7n8%1n<0m$elSVgn&i+W~zADFO
zeNJzjpY(It9Bpbclk;lq(ow8|^|_n%k8CA}1JFwqTDC>qa{QI>7}ZbR#3~JILu~cY
z2kX&DnN=<r!w&*Ss?Sd!k*V}w15V{tgbuR^s?CvoexzbNbIn}ckVwJr2>%?@7yP-6
zm7xt?AvpUHch6acVoxVDg}aSQyqtGZ0KIhc-aHF)^_@!Md3axY_X`tYPf>w(MqliM
zd$x60{lQx?7mn4!1y0E5W-FZRco!el{_g5~173-YjnnAuZK<Wnd5yYz9ZVy?DE_J0
zp4=T+?U~9%<HwG<-CI-FJ*RaZ&(+R7(k&{VvXdveYdVEV_qW(f))v0(MzQ)(D+~la
z$Ue4x(Q5t5=0Oeud121{*&HcNlgB`5W#{8AK1P$rCl=!l`?6g);$MKYw-X;;Rpkg2
zLO_Z~t<p5Okqd!EmC@t;5_!Iu48DMuVseoIz9nQq3E@lh%tIFLV3aNO%@ZO`M5ZrE
z4&Hq`?Lw3i=Dg#uEKYN<t-pE)Ii29&Gt%p$Lf`#k#+7CkY4Y>je&eFHEDum-Z*JnV
zo;JEyZho4Vndwb`J$<hqZz1B7W@4m?8mPt`0ibpFVyzCxk>>Q9uxbK|ASrq0Pm4G-
zH(!W@Abt0+6Kh|mSYXBPm8@$f?^RM$-igA@=<XV#IA>i?52YArs*^%-yIZYjA;FSg
z3u*kPgZp1g^gaInxCy_1SS1qHpaVTKZmHMcG)iCU0yg7q=WAytJ`mOQZEMGiAY}C|
zC>N5b{?CWJOHw9mJMnQu`m(XZZ4Zppzb_Nc{?{vNj$rRJn^e058@srykTepn=l-fV
zc)`Sd8)IJYbJTI@^ZG;j2gi;bJ8=2?<CnE)E;$P~oO3l-<I|SEusf1k$x>W;4<FvJ
z-C7(zwlLDCLs7F#mU0$jiD+SWsV7#o%xrUc{jDths^urMj>4Ay3@_<e43`D%PPNNa
zFDuw7T7ILQVV(MXNu;_VH?=s@`-t$x>c-|3re8eZORX+SK6f)MwrJ2!RSFHcRg8W4
zTRi-;YWCmrkUP&9{a!%cbIDcx{Q8<jM|S-iyQSiCNlR7R3a-Z8$|du``@i;yuA%iL
zQlHYn%zRJswz#NhkBE>^ZllXo-95YB6#x0c>gfQDe8a-OS_yI<v+Z{3>gsvql_{!O
zleb1rke}mt*<8X;H@~mJ+f%-gxSKXMHZtJvDJuABb?_U%ITl_Lc9%hDH|_oXtMxRt
z2d0+p{k;bkDh2EhWBs;{k*R|Fx_Wwg-cxnnqSHa7o~VgR$L-ahEfLjjT}qMrS0e+g
z)nlBsVMPBb{n<K(&pSXxF<g}O`kjT`{PB`a`wf0H_fZZ5XrKc-YlQC}{(y$R$8zp^
zjdfczSFq3WSU&;h+SK5-JXSiI=0A@<C^D}nC+$?&fq!;s+xXD_0^{=DosBN>{M}qr
z*|`=|d;46j5@wrvF-TcgK9Aa~s>WX#sZ23%t#`vm3Qcvubu<v$vbB<Xc@zRRW0Gz;
zhFp4c|1RjIr5=3ncIwQDDc;>E-bLLD2D4=B)zMRTT2;e1PqdGfT3sqKE}vgJCu$P(
zH#okql-jtr(Ur%-DJBm`K8U{Tzw}5);a0gpz9DXdMB<}RD6tRTUnJJ-{E9Ma0(-g!
zueWmQ$j*gs4I3d)m={Nx(qbK^!msfx7}vP{jEhynY>QS;mR-YnGdxtp?!K_@A2G5B
zd?eQ-ohlNOXH5-HNl7Ui!$-Y+tIouFd51WZ`^XiADJv_RWa9Swm|(i=1=_t7%UmG?
ziFr(4j<$0PAYk$3@l&$pH8r;jT??)5_sS4b5PSPGZeX<2Md2vR5K8hoHCq!sa0hw!
z)5GzP$}bIfIzrcee6eKXlCAI?DKNGxuxtt$2%!?ICB`e1<Jlk_{UuLZqW$I)jAYeM
zT32X1efqPiKU1}7S@6!%FdH<giW{Q$NKfy~;&?e>TxoCZ-qgnpr>VLvBq1$uC0NOR
zkjMf+Ql0hr^Yb1$W)HyNT~be)@iLR8sl;qSAo_p2`=OF`>)E%+8QZ?J;0XZ!`s16o
z7fRc>sd4Fb1?Kfq2l>T~i|0?i?mYg-`8DUgeJ(klSNuX}-prom<fI1R=LiH<IuI?O
zXPBov`xJzNqqy%=sLSPjkLXxWk@3uvBU;w`I5#%jzGrX0uzEx^D=X{MQgKsb&y|SF
z9$LeB1_u{dBifAe4T<ZZk(LsEYd^@z(yl%!kCs~4lnN+qO8e^tG%{{A8jHo+v79{l
zUD9Fb`EP!dna9`NttE5L6T53IY>qy}iLJ>x@1^O~<YcN-g0R5@o`Bz<Ub;5X$cfr*
zZDJwi)*VRUR5@S8V#7j{ZNmJ#q9q6hs*VzEGfkW2i~<OHt*<}VUS(;ZeBv>eTxy>B
zEnnrJt~MQrl1n?pSYy>G9qL;Fkc5sIgi=U9JyD#@6aSzPNVfN#bZ;xo9pTeeiYaia
z+8TdO;16|fNcZW{G1ZY<y*_?y&al|R{O?Rv#9%>yf~CIxX8Rk#v@tu%#@y>Sy@KPT
z_nrJTP-3F;l-anxJfq@i^V-_lzLjcxh%cjiW3Cy#ORRo*%<Z=Pr+}?RL~TO|acLCm
zPjdXVO`)Y*yGl6>eHM6>qfKQ0VHaLB(}p;RN?*FHZ~3IFqvK5tQ6s16L>YH(l~Twq
zOR<#T_@179AAc?YDq%Ws)j0&TeJdZtx`MyI|IA5x_d1QO%}0sVeU3A2n$J0<S?L1#
z@#-}8b43VkYg8USQN8su&vWml{hYzZVBhY_Ym|YBNz$qyZBR!kxCDC3VdyvM>({Sk
zJG3^Q(7gaEK{0rDGl*C@DiG1~bTl-6GR12EP6BwFTI!L;%ZJRi$9l$Tao(rIszIgu
ze;wDRYG`QO>q(Ywa%p|b!S$@#6<1ZbQfAY&C}vu<Jk}b;spAJ?#4>s+bRKO-_5(pK
z{-&$w2|$wb_h>Gh?U(RlJ&FK=H`nL3R;KE47<k<N<@&;!nwlpI16f?IwR4HlGvD7+
zXQRX${cey~t;L1c7xRm`Z$AI~qo?o6Bn9_*?foTbsQ_@fR35-M4Yu7M+`&v*BS-;w
zumbN4v&z-jF}$Z$v{udS`+0MMEqz-M;kbc;0eN^GrBlk`VVi_){NLZCoBFBg1%rU+
z^!6X7f96qBshZf;tR^9ws-|7*=W_~kQhgJ<!#y5lYsxHx7Bsq3$;8U#VACq6TqV$H
zo+edJ{u_G~Qn8mw<c;Cc`^)&Pw<1Nit1%diLw93^(h?>hSoQtITaLS%3!#s(e(P`O
zUCz;!C>nS}iU?AS?DfYbKQLf4-tz>leVJLGJH$(s_tJ<wT=w&#VqIP93wwgJ^@<1a
zderRR?ozQ(sP4J@mN#6dv5O!Gr!A4P-isCAmL50JR32`rZP9*KH@P`_>UD@Gkj;?b
zYX?CmS+4R}&Myw<n<{`_FSH0)$eJ#<>)Q_m?Wk@YzBMOxW4MkXjQzn{#z6i=&8J1*
zrIe9O@=et&g9x;Q9rty3Ptq;Z#fpPh?Akk7?la##`4<2(uq6(|d71S-#DJBxpDm`{
z$<lr9nE1F%gknG{w9u@!OiOr+B`-*6rD1z|Uc|8AcMJ+;6a>;O9t#d+@g+_S+kqAk
zLO1(WkBZmMB2_^Xw>_Pb03UGMh1SUZe8q0D2dGi3oRfKXkJKmLu+b^9>IkF>+q%su
zZuuG-9XTl|R5h_vq!{bE{;QRCc-FyeErQbi&dlg&fibC`L&Wg%RK8JhdCKDM_e-v3
z*gi$76E~gmh`8$Qsm9<y{7tLxX4R{W)S~GsXVWR57*4(Cs`P2)Fe-QlNRmxvHpUp~
zMM(8!jWWkPBTiIG=XezAi7Lf<6*E0Vr+9ntZ7Ee7n;;S+mY3@H?$hoF3!9p*=A@$b
zDz}s?9CIrwD@gkdn*$n0K_V#i`TC0aWwk4Q+Luo3X`%a+e86NQ@$vEcO>19S`l57Z
zst-`zm7>DJCencS9jl$jJwl*o7HA-^O~>@g>@+k=*mm#ORXPlhgo5F1BQK2>M>WuZ
zz{#V{#_3pyzz=pun_NIoDZeotS8g&SAKxN(48GPPYfw+KQkn`DHjlNow#tAYlPfW;
zb~%W_<Qe3<)GX%ZC;Dft<186<*_2k<nrN?+^*1ys6^cRjNhI~kxo*yO#4*vpP;ibB
z$lVfsW}ZJ@F!kc;ody`+JH~WM&;IDk6-UT&>W;vP6V0QRp&;XMfjpl-6^*{-IMPnn
zl;s|Cok~E)WPY!(9}Lh*meOkZ>(nD<<u8e>T(a2U1KRdM@x2Jv<f)CF7M}eQIFhc^
zKpUj+OD~oE<5$~&&`DAsxL}vEJ_*2mkkHUzQt6Ndm~V2Z)T#~f41outaD|@kUPH~j
z`c)9om!w?+miMKcC!B(3V^tO3i`$XrdwvS0`8_LvHtg>%h04vvKME<^=HTE+un3{d
zi2(gN^a%*wV7jzgZ3v<5j{YJD1EniR=tg_q14l;@ooUo<%V8kel34*la-^Kb+}7G-
z`I1jvfX(_I%>H%v6Aa$j)1&3+6_4LYWpr17K*iA^yv7NIg*ui0fTPkeWWr>EGBo^I
zcZLdxZCba`q*5;scZ}1l#Fo&Ty1l)M51j>6qAeyW8vLExW~KU|n&a$QClioNN<io{
zdPFan;emErNxJR+%ef(7D<EiZXFXJbSTUHmxjasappV;Q=$Vd%!JNL&EMhfJ-WySr
z8x3P*ayO5q1Mu;*{B$!~s6L(CbgI!|tmNmO(4%bmv($Zeq;_bmw!&Vc(%vSg#ojE+
zDNqsQ*@bo7TcEqdv1?yf`xLe(PlH?)>^0Y!KqT}e8#MqYVfqW9Re4G?>mOFS0~sl{
z42^-_a-Q(Y#N9k~QSzE`>9bY^`mwj@*-!)U0@azZ6Cfi`CtZ=2VihejpWC!ICtgI-
z`nEq<_2f%<`~$0Fx{W+rOQQ!W$V4&o2}$$}kN<4!y{^tqk9_^y4H6ja)J-LSgaUc&
z3P?%9&!@4JcVnS2D?oS8+nz>nk#zwrXeCM7R|oFM`Yi95EHeq2#tCSJfN);YKyKm>
z_P1-Sm*VqyyV!mOK-4T?v^!-WjME+D#3_zTFC9k9#z$7Qh<pBoROt?(+ur*WLZ~=;
z!JzSApNh}^zJWWy1#JFa$A1j3*V`SfRz+}MIu68X4D{6b8$S{=qh%N0ikenQKA)&q
zSSEmuZ@52aM-4r*6X#(01mDYZNx!GB4^M6fr9hGWkx;>fP0od(mQ`wtPUuhm-+M@d
z$B!S60LhPl+HcHuL_0g?IrBm=QKzwYAU-RT#@FBmdHV33FBw3h;<uMZSCx?a<v?=n
zb;JoupO^DlUI$&ho(l}kPu<K1=D0%B>ik|X1m5fRR!u)e#l*;4`&v0cK*}LPyFnx^
zR~=(Hm!b~@m@P0gfgpWaXlMf^<_&^)k|T64Cp{z}2Fm6B?R2>wTF!&KJgx<`A1||M
zo134nLTw#0gq|r~EoXuEQ}|G#riP{ion!K{zAJmLP4~^~yeJ!~zSI4k2_ngYraAh@
zj6?n$J$h$DZ-MDdu9I_c9uYfRT*#JZ-eqgrBwa~zo~SThs!&i;QaS^4?$ubeUNR9E
znrt=Tdf+NY9<w^CP|aJk`dK&Aw&%mmOk##gRNZy+x(X{G$G;;KcYnuP_ln~V;+oU-
z|1mzmUhZG(=;oILB<k>ziA~XYz8h_q=GiO5)(CX05ncbJ4RSE{TkhmW;I|{v_rGfV
zO=%5WDy(+E`{ILB&xx6htpLX$<2G7kP938zdz#jI*ofv-<W{|a#E3lr#;(1qOC%8k
z2qvfEh7K?u>U1m+-(8SM3#I3`q`0_8!f?I^?|%RE3R*UEeEs^h{lOs8ff7R3&TaJG
zwTWQm5}-SRQ-WGan}mHD6;WW2KeF@v{Uy9)(9YVq(l*zLid;41;!y6)?TgJlKqyxf
zTkn@%7Znw~Mt8sTKM|3xO75Rytt=_?h543EjZ128=w2}y%E8Gws+MJud!lTQw}>fh
zmO^Ao(XXmf9QLu;7#(36F0v^v#3xTs!o!b@n!daD>2DVX?Iv1NAuw`sdl+yZ$`%p0
zn(I^oh+Azq`P{D4fzFXoy#*Ez508*Q1gHV10kKrw{o$rnP}DimY*a$RoQ2z$W24Xj
z{PF)o&n}J@TcUsxRFd&t90K`ft>qIxKfeKy^j1!~jo0}<NdLSUk|t-#pFEJP?lwB|
z%J+^xU5fjH5`^p%phR!c=H0(C3+{P<46hAzi*|8>h*6c7tSyM}rm63Pz<W&12dJyU
z<}~z-jnOkoNpij`UNoi(kmgO5fU>u%a+%uQ0~EKUl`31=0h~qX=EhtX;)0aZW1NwN
zzfGrIdN8>H3P{2^7IW&7)a{T<E7^d0a0Mj4b>M}9t|U}c@r3Mr%EL8+TxAqXS9V$<
z8@*l>Wiz&qunPePX2YM;rc<NSgMW$?L4`hqG$#_P8nHP44og!W{rbe7sx+VJRQx_Z
zF^+w?CIP@2<o-OwWtk0G>NbGh_TC$I!H~&%U)Q$S;L<Xh65OUDXsLL&OVGa9GZzUv
z7)(Fj&xu|Cen|%e>T(Te%+J5&R<Y%+z^OKR$yLcyS&9QNq<yu@rgpCoq$E(W!EFeh
z10%RB(1r)WlsQ!B1n~5t^f<RcB&~q#SPS&jQmT3*<YC$gAQAH(<@DOZh4(`W-!|#&
zgnH<mWMK(bc?;BNqZd5`gaE<Mq@F~q-UGDcl8AA;y<GG0E9g4Idq_|YsNONYe<gK;
zw6XD41MoVKX^3Om_JHe>-6#|w3==?b`#R$rgGbeqWa!P4^Inv6SedMy0?aFs8%!me
zPE@-#Z2$#21VTMp2oR&xI8G7=-t_2<7cwb%^5rHnDELn*kd7v5CbJbFOzb1zdO+<o
z`DpNXnkI=aB!W8j5`+G65O>MafSH;P6n7L$<ca(I9Lifq^~k^mRFaVPnR?Fj%s*i7
zXiw-u;P;#4m*RT2K(_3a0eFc>OiVoIwK`3!1u=PW186%(x{Q6AD(hV*+#l`>SeEPs
zC};dST!}cA3&+#WtEB-G*Q%nTB7}%Ml_CCo0Mk(nb`Nj|O>CeKR#e2POFj*_(z$U<
zzhS;evf%iB26ltw(3c*#QhN?LROO7TwhUTttxk!i%qP1hVf32xF}P94nA~YlDcJg*
ziRk?d)LK<~$ZoFspOm@T+22SFG56Hf?k-R?sQ>j|diw9T93rgiru(1<)B;GsofGab
zQh>Hn0FJLA9ZIj@vFs(zRPO;R3sk&^O)6l<rU+2;bF4l{qnk4cJyFu36(}iLBY+e)
zx(~e3Tl%2P0Ud4@(8lE(?*cqwFEBXK`vj!}iaX37=yksibKj{-M}Q_KGw)#oRsX^Y
z;yef&`I-9F#=r)^OHK7Xp7i1(km4&cNUsrNyPmf?)j+SG)fk|c5>#>Vb`<UK8tywb
zH$wJyBItE6zRrR3?i~4m>u@fhmO#nPX35|wvB@v&)0Y#6hfM5#oVcarEJ_TbkZ=bm
zlvlAUNZR6KB~R}S9#+jjyj!wGw8R3Ycs@brj>~{3jjjVLt6aQ!ID`Ol=Ji384O5^z
zOawp6*Ly8&XzA+4&V;duD{mcR0}1N@lvSswfYx0$fB@&-9Bta)x|B21S>Cjkr|Ms!
z<U&*Vo5DYs#>vS^(9m;nDVpKD>55%{Fa=T+cY-!8g>jfZhBukSg$pw>G6rJ#R70d(
zCTkXy<-Y^cpnYT4*{s~9WT7nT%#e*><b8mCuWu*@!1H}VufbBO_=9O5Kn0cHupJyq
z<dT$Ad*EVj&P8AngT@j?O&2u=Kn}>hoj_WtU#*J6fPCAhmKCBLj|XKBHt0evA&uGu
zzE=uVO_|~I<Q8D$b~Atq@bVO{2lSsqUKk``=xMMCq`o~Vo^d3<M&9P{{+UfW23TL;
zwE;?js!Zpj@^T<U4&pI~QiEPqp=-mbw0cM2?_Y-=Q1LiA+va>r1Vxe5)T77$@Y6?f
z2XFRY0cVg41Xp}(*^6#afJ+stTd7-`-~#SA)HBb~-rimrSLM9A(-*ow__3lwQs2bn
zB2d21UIJ}D+2}Z0^c5tXkU-#yLOIewmC_ckJ^;Mo01-gU^D-szkES^}W}xp9lu=^l
zQqdPA1Y$y-OxCy$szzUy8MPl?x_@TtXl}cqX?pH|h>&9Mxc$v1WPgt`OfNryD$mbh
zBg;a<c1rlK>I0ow5QZ)`={d9{?JC8P;#H8BCKrKIQv`w~6bBs6N~J0vUD)OVds|Ee
z79K$ae8*Y5LBksEr7fjB`Th5&sF#aOU@WB@LJ#)y_lEdBH-4m7PbaFJsnO6W?@@Ew
zWHbq9i7{nsT4htBz2;P+qY0Q@@7K^^^0=J>0MmCVpU^sBRIpd>{Z%2iR8YR6l^v3M
zGOw7S#P=Da_@80NPhE_c1Zem^kfk99E<JmF4rRGtZx9di@K;c2zHJXGGlIaM2NzLZ
z-ThPs&hzefe`ecXJHddCKlzj9y<;)p&Fh+U*wA%M9~zjB4FHGBL7<US-r%7%I||@o
zJN<wHhUiQ>@Y3GiAi3kLetmmWG-m<ge!F!#ZwHvipc3$*$tsrAO92HI%3!?Eqy4k#
z^K=Dlxks;~_DujAS4q!4M*&PGd;ze6Q#;E!&%gEE=nzyo0M)V7U?9Vlg22OpizQv}
zN#lb^tU0C+iW|ri2uo1uU=T4XasqyE#_ryyhtRVp6NsQ{rva+Dp2<sZnDiTyfrk&9
z<zHk%CiGM(#{DBbGt5bYBP+Q?Y{SEcDz#i=t_Q1G1qGU=ELXF>_HCsq1p4$xp5}9j
z!GL=64>G8Va^k2UiPkQ?=Cr730KtMl@F?vU=cM{foLTbOnA-6##CR5+c<?az1#}9`
zFNk{s)<6JJ?Lq<>bJ-Wv$%+tD>Dr;E?<?$KmG;P-F2HbU22MAH9vA?X_@UHmVIZ2$
z|9=A<Q+@sEp30rJyJZ9n93fOQJFVk?jPu$XgT()=1&Fx>fWZ$B`1MAxu5Gm*lpvat
z<^4B4vH<_KPOsmW(5oK6q)wea`T8ob5R_baoPg&pnMj=l6+JPK6ap{1o(fqmZDXCT
z^|TuX4qa1mt@-F96Cv5i4Hg!bu0(OmeS}1xJP8jZ!(Oj82v1x!-f!l;GM{SnUc1l~
zy~WFPWARg!+kZBmKE2|tt=(JXb{ks`D!up=zh7^}>B2iS`1hv>#VDO^GMMN9t(;W`
zOfo5A=x+l^6UTb{N7!qSii0-*YPnbSr$O;&nzA{l!$h~aXh09*z2G`xfwBgYY?vqc
zmZQ{CMwD29S8s|;sE<0}PeO=dAbD8?%(<)qavL564!sOy+gnrhzM(Fl)@#J=*?luQ
z3hlK#=05m}nf-Y6^Zs8ig$?rd&Vq>%x_458A_q{<L%Oz+y<3o&i^agrk2@_%O!aE)
zPwaZ(0MQWB#(IlE@hcDdy5(nT8+YJxUv8qQ#UA-!jz3|^)XXep5G2IV_{79{Ita!^
zifW!!|FA%CD@gru`S#is_{AGfnng>atXqW<qbFf}k&Snd+A?$T>A<>fprKP<gIa{v
zRUJ?=&ZC!%flbst^yZCjKfkKd=K$P54WO~JqeG~tr$^L<Zs>t^P^x>@`WCl1Qdo}*
z``~r#kZcShU6)FI-`v0I%%7#8`c%cMnSp7t%(f?~h4cDjH#o3<RmafVV1Ce#1RMjN
zF2Rn1sRYj7!nJ|*zy_Q$uXHd-264)E;kMh4>hU7BuuhSwkg%%8y}w5erdv5JgMI;A
zc(&T-q)L%1M=b&+a9c0FEP3@kOiO2W+T?_gZ<OEr^e4^Y;`uKujL&!0e(Gop+!{5D
z8`yJug9TL??<U}_4Y_2!K6ER&K_0qi4YK_`!WU=Tn=-B_C}=kdEZ=mGk2zSS=^rdm
z(r*cY`~tUc9`RbpLKVpZ7l995ZP*SFH!j1dKcuj7%kK<KPEK+G(;sl<vpfUji$)I5
z$3oR?P<eZ0Sn#;NF>rf@9ZW(#L=tx)fk_*?nolyDAdqiXVw}8B=%R}qnRWu!2kMEF
z?A9TWu#K7O!{cYc9E-Y!hIqS=LYRWFf6%{8xf%Yy{Vjug--#Vj1&4PcLwNbGmn8}S
zoA}S%?H&Hs6BgEH&@;JLaviFc{@Ew200(Au-j<vH&-=ZNC&gzweU3d8G80)i2bW=(
z<w%SdT(}BnKhn<jCHJcRUl`l*BDFiVa9I^SD30TwW<tsqw9&lAF$h(Ofa7Z4dCu<P
zWpIdz7Zz6zuPyAPfHaQdPSy?m0rQi#jH^>fF;vCXFziFtJnkX2!d0vcZdk1=2W4Jp
zZdz?q5AM&SZ*$QQaU_R+MFI3<&_nIJGBPJQSK^2cm^b5gho3i3Ux_@8K70vQ791{g
z{O6zldz0Y*9{3P`c&{)0zc6*Mn&IEK_4VjC@f~g-k@RJ$|7`#7o;r6D+~0N*KB20|
z0e=e5LRM+)8t6fzw*E!X!!M_Q^k8E!WMqJvtg4<P!irNp06uU44HnKVm~=c`X8{&=
z4DdE58|T0S?hd?wbK^S$Ca>BTV)CI4*B+4nJ<*?@YqsiY1Lxtz9SSw|Dg$gI<#ET6
z0`OhLPW``~^5=`Mnzb5w2OsdG@H*{*)5yGzJ+8M<qMZWaF^&!8RoVU9+|(7mjS77K
z?-BZbjDB5s2Bb?Qg=UD>#q#lsA}h4&b!z`CtqK)dc)GNc{ETeLm+MZ^|2Jap*eHip
z@12UIP~h-txUkku1PsmxRXAVn{3PkWUvtOlAEKcORw0diJ=g~|v;Pj%6LE0E)E?Jq
z5~)s-wA;@Qk^*E;DbSbOZrps7axlEGvK(`Vmx0~-)Cb1%=akR;#H#EtT$MXn_6KWb
z<cSlo9Z$DAcaAAPyga0=8>@BUmGU{|SOXtsjj)ne{MKJ$V!*xDOMC9F+`;w%xr>U`
zF6ns$(s~VIH!ZM<@F+clHDS>=cy$}xXL=F(BekhVVrGl!u_KvUxd8d+X9)NN!Q0zC
z?{wsvO>(;5;X}i~&B_3QvFvNTcvIW&#d)k#eX^Hw2&+Y6^bbmoGy4%%U2(OkUq$l~
z`bt&Z7p037^{0FSuvxoH%5{eeM;<t~WL$cDRLVffoYu9ub8h&;@MzwsK992psWK{w
zvHDV;RlegbW-lJyspqJq?R>Fh-x>PJo4;r^*Tbewr>Z-uP8v-=C+-frik0`07oQHx
zF)jT;-{rihsboP)XhD&&LiGf;+p}6<yg>W&zRM4=MxNg6vT$D;^T#y9xR~wl!(91;
zd6x`Fb6H)>vRcN6(Zig1Y??}9(r4*EYXmWrVOV|Ul&dHm{0=MxwS4}81Miy@BL6H5
z+`9@cG@IGa_^q8G8&}P|*72f4%sNJgp|bn}wu*^Z<;fR2<BLVZc1)iS?+$cK0w3+z
zZoPfsF!d4MT<`rc;P5QA%zkYIpW(WNot7vk`a(3w<LeBoJJ{lh+g!ys+~E%@J@J;a
z?mtEU3{n!x2!2%tY<&Db4$pgDC=d)pB~y`L{9zM>8CKPI0_0rZ9$vzY^ZCk$sD99S
zaynt_wF8x5<hFO@1Ns@l*6BmYnU}29R-GrN)EtmpK6f}eF`^d@zXsZUA2rrzr|;Oj
z$OkZh=zgbT{P+;?&3W`U`nunR20b;W?*Yk=4)fjbO}c>h*VX#x4McK5559HyUd~M6
z(IL5@u)|c@EX@1E{DSM{k`Xe)zwok+I&5fI?3sV)<z4(gKdJKs^MATfhQpNCtj7FL
zzI&klPqMqAcf^AJo&S?h;r!U^=)13fEzX}JF}+|v{uy+$+YQ;$I&wzx`F2!Z6z3Ep
zgevgEMrgkxV7d904p$8~=*p{8CGcx?CeuQJhTbn7+QO-jCp?VU>#cHmgLzv=hw8Mw
zgS@99^blh`H=55X<Iu9};+4R6ZmNrcviTZcyfFI6+4Q*tWI2wGw3f}AuTc6rxnk!(
z(@(BEV`!vQCyk%Wj&hj^Gb61kj`=M4Fg&oT#Cjh>>q*b)|Bv<Z|D$6a=q87ituv|q
z{SW?MBEo!axQrA^b}K;wx#c5a7rgaq(R6rjn16U=k?X&e_vTSeX4}3fmJQpjNU7Tf
z5h%+Dg$k$$2nf-#6ho`@eNY4x2oW%JAqk3#76@g6^qmb|LI{lzAOuhpDl|cb&;=5d
zP68oxAtZt1euTZxsdLAB<J~vLz4zQRE`QjB^{qA6oNLbco6Wbv$aX4_9cHhc`X}q|
z>x~sN;=>nLNsc<1iHbxPbT};4FwS0(VJfMMvaCXBd&qp!>l<5nZ7ca<YO{`OHxSaP
zl_c@kyWvhrcr-F^!vyVKSG&)QcE7|%Pm@~F3r>6Yq^HMlo=B&ARN$mxFi?5}g=prO
z=<1;>X<>@%N4x2eI-qd!Zx=C>UG@e+dsZaZ5&rz=oPJKHZYa6}vO+<LR{U{XCDYS(
z0*OrF0ecfJQ9Y%Lwylbsh_JxDsCO{PL`R3<GVxr0X2+1nw2a(<KY(FDhPslTAWvzB
zcB>lGf;g}UuWfaat(#GH<Fi7^CXLR7#>UJ(18zw4fTw>a-6Xit*tH>-l=Jx%=Es`e
zrBS^ND|ceNlo5|_J}}h!W3_!(sU-OGGdX$dCS#1-ps*R^QRSW5*T<cR=rg2bQn*cS
zZWYGl&>c@-x_ghT8^cpJNhLwl@9Nu@(zeu>9pAZcP6Fe9;fz`Z{k_E+>OYB*OC&T@
zwokXtgw#`jDa4O9!(p@>XX+bQ@CBlueG;C2Fb}v#M6M(m;m~!CZ!|1@GhgZ=nq1VL
zA)BHc*XADRdcAr4_Xst2lUGKKQJ(w^4rMb#m7+-29a)>=kisI@W+{i+jUqO(2*FOD
zH&d*yI>uz(y+5;cGXvmi%)W5$(OuKY-ihw_l*L?&)ESuHRj-7{4Ya{|MtjD?2zY4_
zIIiooJ_f8S!ExTEk19KnG7_bIOQY?BYmzz*%dW;RnUDQ{T<7h<!k6#+aD>U_ScAVI
zFYsTg6QVFxwBF4DpT+pf!qKCIE=MSlUee&~QAP6~Ds;>&3~g{VsjTZ<nt#hF;T-Qa
zI^e+bd_KD_?U>l!Ynym|1h#*L+03x`-Q0YQx_D7y#>WthcdbOWdLa?H=)3T5(@q8%
ziDU;wf;PP3T_ocrV@KweMm266?~8Cw-2g7L{=H={V|$4Vu#@0+g-5ep<`#-m9h@(j
z3bi4W8qQ6EowGf&ZBaK3x^f3^A%YkIghF0EeL`KT+z>h<S>IU9?u<$EL7u(Nor>@o
zSmwi2r#e@hL-C{&uV~hmnCq=0AFJa4W{m|j-atI#fUR<K`QJEiI4%q(UZ6jK6x?8x
zGr*;mvaa2xcR|g6k51$=TJdI%(kjt_I@55-OC+KeB*haZok*p0kNXY#$6rl(!|6d4
zmt`AhQY9{V)})@@eiz<DU-Kp1W2nEJFl5N%jh&_)D-2~Mo_3jv3HQb^>Ucy+h|c2d
zwY30#y1D^KHi6fH6Z_^^c{I)t&tM=_K-VRq%If?O&IngNKE2PHKrbn!o`K2KC!zKH
zX4cV+p@TD(3@5ywW1KaVQX=B28|<Zc^KBRtoJGbcVcN0KX0kMwF7wx3EuS{=>NpdO
zTs;?}xK5pLm$dYf!(yCfgk}s`28K6W2ilNU?r#>z;;2(m%G>avfdHY61GgMzORNC(
z0uvi*6EfIoO3=}m4LIfe2sqST@Q}?_E^2ows@_uwTH@=Wt@rh1E0$#_?3?qv6ADa1
znvr)JnbmRAU1tJt;~j8lTJeBj{H2c5v$Rb4l8p!Ofa<Ys<Qd6Eo&0<xK1lYjm^Iy=
zzq9xZT)}8O-brV^K9^8>T16UMg~&t81~^h*{=jl`(8*53gepyDU!z7CNh0{~?u%p=
z$(jFn@YPqe?kHJjv_71kzyn{~h+zWW19W)!wLm>vBB7Z|l<TrC@TN2CRNV57o;pLP
zMEgc_E>LBQlx)AWwZ4^}us(~5?x^=R&IVtt4jvyd!T3h^pP@6)={7{<dCG?OJ_Kk|
z>`Jf!ChyBtk~04~jr6Rpgzu9jc$+>?`RhDuV&KJNy!hnTtlScG@We{h<_#2IrVh}A
zCP&S7%ro%^>|43MvkbzdJuf|S_9LVA-v$L9Eb9#=ARWlrs?wIFU~B%AKa!t|-y3eo
z+smljHnVZctPc8bg)>q()(k>eq-2mm%?xCg1=NTSFjNXAWv8ob=cR4+4w-~jr$R>^
zg7$D{mPH{c+t#GC?&gT<KX-S8d^-(sg-_^iz0Pnb?1B!>URn<!<m6KBcy8jASnTD<
zrrH_wT}uYR<eZQE_i(AFetCo%h6q8}B391Ok&NiU4SAs+?~1@wMEM|Iubqc(V6C#>
z0E!wt*H|(9a}n;1QC`h~Q^C_yt<N_1{2=FSRq6>C)|;Q7?eq%Zw{T`I8~o70AZDCg
za#f%cJegyY2bzl3g<7MwGrWtG<AkcOdoy_Y)8viQp3WxsMluQ&+!f`#W^!Cjke{t~
ze(z<x-aowMloK3ZN&&pWJv5(w*<e$dJ0SnY^SY9&h)Ms&3so-l>|#2;SMl0(sTF!a
z`hFceIpVzWiM3P3DyZ0Lt(q5W<f;0_x{;%~MMhztsdAy=mW)yOJ?<{>t$M*-OsgTA
zdm`1{6CJeasGfZjl9WC_x@WdjztBeQQUnAS6W)CRXl-?TF&Y#;jUF=<$ZS7FP2BTh
zlTO){RY5oUt+!%!pUKc9Z>F78b7o}g!Tgt!5BlPi1RaG91RX;K4(Hl(M+EbNo{YEs
z@xZAhcO)dK7OBgmg*<KFB+f{m&z8r_6u-%H{iM~4+NV~!2uJ1dvS_hM75LC`EtO-%
zsKVPg8Yq|P%O0lmpSqUaXA_{JXVL&cL?LeQKXbku>y7+$L3VM9TuBtbGQ|@8*$E-R
zL2&3ha3?G9bISYAe;tX7mxv?OwhIW^=gzMH+D>f4Zy3`(1FvKh|2rPn>)EeBF{+BX
zib&=7GIn=QCgr4u4s$+Dt+X=|4gaYq#}!oORGrpfh^}KD)Jyz~sTB#sO@4MmRUMQ=
z;vbJ@mVC%o2-g{GUp25lVA-le>Q(69*e2e<zKK#w`}>f0VJoi${ie>f%13cBkeFkv
z0wvdR|Ej^{0KW_3Von3Y(Bd4At2-*ct7l`5j8gzZzo*aR@Gy(>yiDCu<G=m}*_S?F
z7#0a@^_1C``1?^CM}9A0NJ$2|thc#(yVUYz*egcQyC_B=1_I;ubG)+j`9Ar-7@W1a
zj+Gh@Pi8~vV$eBV$)~@P#sk73Kcz{N8@{X6f1Mu+fP+}h_w-Q{;)qFAR9na4e+D+|
z1`k~*%AQ*3=inHc$TZ5!s0f6pBh-edtyCn7ykhij6vdD^hTI`D!5H9NA{ozhLs=d$
zyeE^MSxzO3UT+d_2yyS@oe^ZmaH6N_;?O*$qZVl#JB)X-7nD>h^veRpri@d!n%t`L
zqe2j|93kToB|X#y=Oswyq!v!frYN&ip0F1LFe(d^nloqGkyml3Fm9EMyQg9zx7Jtc
zJ4}`~O>QvG&hh6FAL(Jc>}$k;J%3=}<y_eu@|iCMBjZga1XX)feqE91CjZgY$_@r<
zf1k`4-7Qn{-^$a<e2A0h;5PT1>p$$c)_gD8mwy78Ms5&^Ih&9XYw7?nXvC|!!PLsk
z)+hCP2nY#m3p<=g|MAHDyNP86wO~|QnHs6{J+67U%Lxdjd~=ZZaEyALgZPWGC$a(o
zpjyd1zB;Wsk>$K5>X<))f1R;~Vn9qR@ibZ#EfPkz&Fo$udhq2-$2n7c{-cj^P6i}Z
zsE3bei071hs3<A+vxjdByT3Urt}B7<y0)NAf_kpG;(l5=(mko_P7QgoZJiS_!H15I
zpw`Yzf?tbbIS{L5+}beb!Tl)1{-FrpXrb!F5Yl(GgxV7oX1tk|3)!%$0fT@841pEr
z41reb{rI2N4R$l@^3W4^!r<Q!R?9uZ3@yJFzuEj=C%+aj`X?)H+~^@+i=?CLL1&4=
zG(O;D-P8N-t{&Cj)x9<)7Vq-7w|8^Dt4Gaubvdu_{rl#6LEocY`RSZ(R@H|ihJO&J
zr;^SNq`Xo;G8G=CJ2{s=pF-^!)Yoko+_YSExDjfC8p$v?1ca+)qWWSQCB-q;ih&72
zz^%4XqTKnD#GK4KU_#W_SDA7#9$IHch@x*DD@Ta*7(wo!(j1E*${g+x-sRhM&%b2s
zLl)^#4y|NetaHmCIZZlD%NHT+aSrv4WpZ-j5DH$wOpQ@@sRaoiA*On;5{Yi4`U8(*
zQme-F8FjA{`#*h+Q=GSX`mw)05}E2=m(S7IKfFV3hW=_ZYk+|VSGBr~E@LuE>`S8{
z{0WYj(h-R;Zj^N6ZDwEgTKTr{4&mP&TX{X@{WqQB99t9;NVzl}4<~@5Z^U_W`!AEr
z*$qn-PGJ%xxa_;W*Nq(Mk{kbF96N%&SJ4(8DKJ2;kR;Qun839Pu1mI02KE)3X_dqa
zMc4SxrdAFyka)t(nMpo_TrisYR!lxcBzT?;U2WNfl!e+?Zhzjy<NCG`_*{Quytwl)
zyPCHA_eNKb+JE?1;4%xc-G*zUE+O7`81|KTcHfGR%Xs+iMD0cj{@mXHwo*NDKP{TW
zU9YK~_`1aTtlMhlpaTmz(5s7Q2kc>)k|6!!5%n9qajV&yXf*%HRIMA{*q-V1DtP@E
zkBsQ`sMgyA-Z2<)b@HIrxgq+}Ck>oPhl^5U8Bhb4Nbv**uiGW<Un)0_<AtmeIkViM
zg$-412Gk4Mt2kRoIn2y>n8H>8o*8JgZ*^+4H=!5>J)J~VMP1=5GJ1t?WvQElPT=%P
zYKlbN>dd|FWlg4zgZr$4-YkFNJZ5O&?eNMDW|mNJA*2ZDi=#g6`*lT@$vW8$JXLH}
z4R!v#(`q?~`i7?PXD?obky^N6b$yhNkL<IRVV9D!OZ$h{cLkgov;Vi8PtP?27m7z!
zP@XGt;j3Yv%)}jh0eCWjgR(rnN@H=?AF}OT`M6)UzT8ng0L;dnb-95QbCh(u8XKbm
z_|N>!_^%l#Jf*Wk7&~=dwqy!maRqAlX?u*GiNuRv#+e!JKwU?0IeJzPSQ?HPcNF5^
zp=R~%b0s2s#0!qD)dS}6BZ`wzVVxQODd$fPoACOt2ovRu7`nIm(7$~TeLz3k4d=Bo
z`5*ksK>B<m0C3lHY`*_K{SPeTt^@<%b0Xl+6#nArjFFYq<1_ilm5zwfzxp6Gzz3m}
zCWn1|S0#V-LDDea)l>!}^)CH1BfvKiYVcPmK8;^29Q7vXI0*s-OzprTbd=F#%~a?C
zM~v>j4SS5Talv*nRPbE}+Yuy3YW|=n>W%1T)$2M4f`UHf%yJwqA3XbS!>?_ETRD#9
zxKoKnFwxKv2DdP2*s!v$YsvjzJk~l?y2J<Y#Bjz;I|XJCTI~QYn*Dt1GU=|&@p*xF
z);<uJ8{-AmYG9~}gGWAau5D2mBblIMHlG4=IlYPM_h$u@tC6xfd$V4WZ_EDW^{69Y
zE3cSw2~RmYfD=5KS~TnGs0~7VzqdLb$dnB!J9$aIzE!WbcF-jClwcPlpkP$&1Xroq
zaJmjK04XKHEB1uz4^eOHEV8e8oKk75r&;yO9+m+ngq7ons<8>$kAIZGz-uAT`33NY
zrdH}0u)oTc>S4Tj(8fVPq`SP2gy$-O@BUS|W?c!n_As|^k?brbcJN<+L!l>ttJ(vM
zmqS?Nx}$D8{~~%MHGRHdtt5Cw4ke?eL<tBP7uUkJy`9b+x&YJMm8pb5<#`@tQ8NOm
zr$4A|u}(+VbL6TfxMQ4fJb<wOl&f~oAxZ9hepYtPpg6}#rS|)kZDqu$JN&Nrps}A8
zLm5X841c(wU6kXx*7{0$lbrMGT_jJ(>>6O$0$m-dSYiagOSRHj0~Ix=Y=gzYWolM<
zbNYPTHqN83CU}u_TWKWq{&Z*aYeF30s5YrQj|nFtE%_st4Nm7h+a3|luWy-OL=>~^
zs8Qt+HxK@+7vM9Hd@H#gUX)X|4*t8g)R))->+t;jnvl61os<aHjN<QPKna?WH~9uu
zj(%!I8up4srn(o1k<4p|RS#aj-t64o_*tJukFZ_?<7qv3(N~F-9sw&d`l`Vj3MMyp
zzCsSbQ_=is)LIqBsdQ?1;2L59hc18C>hANIIs-I_@l`zTi6+|w2j#q;>)Q{n_P>tm
zwIWfzdoD8*!<PP3%({*y-`c0l`G!W}$QY-!i~JUKrhZS3(;N`Q`1mHq2uAp89F@%s
zQSnqObvT-r7c%w~{DlEGVIk#8!84yOlbbG1Ji)b~tkf#r@qEM~Go3cvvVg<n@A}Kk
zt<vTB%VZ$^*ApBEo5|^G7<|R-hriygHX^qZfve)39U!~~a)3DQPyoV786W3V*mYje
z!@>Sl(+N4<bkseYQd9OV9o9gmu%0q#Pp!^|3ovlL+2&=LO$5SPrMV#D>>!<Z2%pII
zp#v!-lsokEE!;HhuR|OGh~hq+7llTA4VrN81@)Wci^iv985Oyc-SxBfi&dO~?$)nX
z%i|_*Xr`3qK^fjZ*aVpR=j$boF91}w&o=(F0UEvh0n7TzfAn5`5PYwUkb^DPkaKkq
z88&SCJKzCK0(=9v%CZDae+NP+l(=IBznQU-%hmz>6#JBJ!+(gWFa(y7iZs%3UgkME
zh5^IFh{cCHwL0XI&=rHHyf&1?cjvyQ2DEE{cxmMW$AnSMS>h;n&o`XE{nt!}yrVLZ
z?-g-Ux@AU2Zu6m#jbeqI<ELvUB1mVhsmL@g<u<U7-|uraEXi-;y>k+GV{+Ka^d_Wi
zS6)iX8Y64*VXSK~n@yx2fddYJSUQjlx#487{l09-Ik~tQ<i=~#@<;#w*E#eLj|dI$
z)w~HI-y*Hj7;4hAk&x+4*sKuIb@(>@MK2eAR7PLGvwsGCSNt)KbLc2=m$wl8GMnj9
z@BjRnY=nI7+ID}qZp48ZTCRg~q4x$kbDIM{%YJ>zw%RqVaqq5?p#eD{Yq9L%3FgW9
z%YwzD>$O67b!g_J&GX#h^W>nIy7fnzuKrsLSu)~b=!OqXiKHjd6B-$c@Qpc3Zv4O!
zQu68?aj-+^#;D5{iv9-VP-NWnPWB+ygII@bE?H@qUwX|Ll{;M2j7Qp=Y1cj96i8&*
zq2OwZ=vQ^Kt4x>Oxup#N<aMrL@?+x<wanNt(#2_^w)|YDywn$S*&He(ajRg{sW;R5
zLR5g>IZ_l9ZB5#~zVJmL0oe%HKy<k%okNHZ^iP-6M15$|gX`Zlk?YNY5<J&U&=QAp
z8X37Z#$h`ayx2ES<z!f~#y<=$c{Abw`xw*UrUHdA+q1&$3yGG-C%&mNC_o9QDTZY?
ze0M#YVa<>SvKfo(ENUk}@tzLUT1c7j1&5rm`ug7VH&?d`Ff8N}dA$g98HdSB)EwD1
zGIH-%#`Qk&=fsug0a|sbYt_Q{@pUT+I*g_1f%s8^{$bR;R@Q1ytw7I4I{!6^k*LyY
zAE!Rz(QaKd7{MUi>#(wMxu+w4E6NH=r8Sb4_s`{AL*!C&dcMXf%oF%GqnEnbQ*M)<
zj$%pe)>Hbp+-?okz81tNm9%E2T~iaP!*&OFr1S&p#o|0i#E_Pty+!lojLrD2lVzm*
z2;RTSPf9@fDPU+moMNZJ;<4g`yc<1MXf}e{N$PFdV$%7k!L|Nwj8CFUCp%7cex({(
z9{Cw|_m6W6Z}ysDtT1yglVGjA`6T8Fw2SJ|S0nlwI&-^0Rh*!>BqC>5eb<+pn6L>#
zhM2(*^3=Yezg~iVm*$|}y<&Q89gs)(07i*126OS#-yUrPuXxmaW5<jvNIiH2DBngm
z80FK<S@=RnKL;|@{*vrGuKX?HfS((mV&yn5K_ZBpOAM&JnO2$1&Uk^g)W?TABBnV{
z8O!S7U6L?FS2Sk*u^8%)KdBzBb|RHn<4u9Ae3YLaONF|wzA?3X=TzP4#k2Nn?l|QN
znMTiietg-WNpax%8jPRFsot@X`Z)JwdxWAV8@6XbW}jwK{-uonxwXvysa3X(48i|+
zQMOniJ}BloP&LnbER1bxnQFytE7~g0`N+Vy0dcG_2tne6t^<*f7o28>0)SU8u%N?~
z!E#v@?_9*+fGWH<{`I!f+F-Vw*DSgkNI+Wc9Q(jY+#cbV?V1e)#Q=KX;2DDb!|N9d
z$}4Wtv6z=SbpiRNYt!Kb4F{-l-u|8695E~JcY!4t>!%kr-sL$QDP3*2Ob-5JBzoM(
zo9GgE0{^*Sx=;fRVvc9-A6}1r<c|PzA%qtY)w}HFw}t-sGA``T8*$oo&(^Agnnjn%
zcdxmH|9RxKMB-Q#^rVpl9E`F<wX_ZQ_J2qj`#)dwKF0n)lK;KTRmkn91APhzbABU%
zXAitz=hTHy^tkeD2Z3j!2Jl-}2=y>*^h7m8xg(xUg&L4@pxIE9=!+<s(g95o9!g0?
zXt)juUgGISJ<gUjFnB$E_;fMcneV6D>gOczulQZ?f%BQMwYyK%jjGMwh%dHp0fuyi
zu?})q)x~oS1W1vX%OMe_?ctfgRYX8Cslh--faiMMKcK0Lo{;P8QITnw>Leg|+5>sK
z+f`Lj_EjjBg7&*4r=&Y+pM<-*lgxHrlc_`R*-gCFVPD_XE@V3Sb(Curk)|-9>f&+T
z1T7l;*@PO^4|tn1fVTmDoI|(NFNUwB&wsQ?lXj>R+;V$v*|1LFq5kDZc-?qR@p`WN
z9b*{Zwd*gF!`voTRTwyecShjnxexw!IHL0YeG54r)Q~(^4TJ3w<X!f%z`FOO!9qr3
zs9%e6Y6Lw|9m#6&iCRtO2sbawP*uqffI}3ocC4iNWRa;+*Z8cddAPmwC|g!C@-lZm
zhsgyhPk!l>0ABP!`A4m0JsyykvCw%dK)0YgeO_yMboB(@*uigCx9lddGS|NWEkWJ7
zqe!mbGYbOKo^3Q2w!YIC#!Xot5S^%Mr~)^QF=7*fTujztjAh2raVx+xZjq<)HKO!(
zNTuHT6LM~6Wq&2S_%G5W^1nj8l!0u>>$38?%gw77M_f1e$T+fRuHr1l)x`IoRTSW}
zULdb*F<;G5XNWfWuiXZ+Zj=9h8iC)0cenoNX$wI3+4cGc07*MTa55(UZ*HXdU%{gP
zzQpxE-c;ldoX9)`<16DiL*(y<aH%RDEN^O9=TA&*R!sOfkpNU>rZ^WFoq{t0T}CFJ
z?4(Ah?xGsYSa^0z{fTKb;{+a;a!%^o-6}1j10mBI%5kG%aUeE4zl0!p6=i|k6|PfE
z&qWVq2RH$yDwU_a{`?<#ck|CTMs;+|*D|{CnT}=#LR0rDqZ^|6Kc*H79c=DYL<!6l
ziJoT#i89;~n*(%jSOchRV#RPB%v|Kxa=xG=+8?QOPlBOqU++mUxshvq_-T5fhm5|H
z>nggEKA&sf=mB%{ea2<%z^8Vc7d+hjPs{|gysZxV`L5P)F5y2g>5;{6y?KC#_EM;s
z>R1^9KF&7j$tIgQbp@t@|8^L>7SXxMpZKJbEn21{c>u(1K{L@G_qAtW1`HY*8tC!#
zP>!!pAaI+2Pp5Py)U&@%VRS9HX8e78ik@`Fppm%9T5K>x=wg@#FxTEyi!PDqJ824*
zs>2JAbihp-5!0<mD|o})d*Jb2c4K}ho38`RC`mzDVWcPgo=GxT=#LXVo#3^BE)ToD
zB?I<~V)o*)prbfb$P5#X1BB308;wK(QLVj1;6LPCq@QvxDbvniQNUeH6#%#UJ7uv>
zNG5iy&#GM;7|CWQdEAANk*yk&J)Ld+4b$om#CMYfS*#~IQw=ELf`qcP+J&MzMNiGF
z)14aV!OHwy$^~ny^7W`4?X`HyT6bYzk6!1>Gl9YQe80Pjo(c(GG5lVVq2Qb<AidkX
zm`kveFO3{%;!k`{z-t|Veo2Yf0f73YbKYts%<H;9aSGAQ6TM7!dX*a~4nxeFPGnv8
zfOkhuk}epBl3$CynNE~c1&B&G3tYEq)pGOFDY*VXE(%UBvL3uw8W8nn8DWJX*4-4R
zXvGn+z`*4-afcG4%8{l=rHa0oPFR*s@jQl7c-(35jn`$Q01<&P!Ob*Ks{^JY*}E;D
zo=o6aLxnB)mGr8y0MY6WeS~D|31L@i?LeR2+6({o0vOXECz7`C>s)M4>Y$(z+Eo-J
zW$;M9lfvB)6YKQyv#s1j^a9ix8}*NrdsfhfsM0AEz&3hq=b^d+mt#QX^vUOlP=3tR
zN(!S<?E<kI-(}q@bsiST`D?WvVLZ#&(sQZ*`m=GH74RTE2HjD*`mTWl_Vgsy^{z*I
z?Az=c{f{|g`@Z`ebGOf~d>GkBOw0<^Iq^=9iX=>BG?e927k#SSyWI#nWL|)X!`QwE
z_q!ZTMM>WQtsm@*j<NZk-F<|_H28@VH;en0g1OOgef`-E+!MQ<t@@V235zMGcp}Ev
z&{>~jfp_+V)fQkry<{j%vfF;I$#ZRk{-bYD5B2QI(yk%YimO;My5L%0aQ|3@J5DVP
zKrZ^i8|7eqN44}~K2&~6<_BX;jOuAn6Vgs!u)|vanSh}hQNQK0PGTZMc41o6rn1Y;
zZ8ZT^)5FjPM{0rSHjX^)(KDvC2WW@Qtj}MmW*ilLB?k{vq9#{2GAmxasEnD*)uVE%
zOuRhl-srlH%UK33FM<gtTs_MuwNV#wot-jhblmOi$+i}CF^5%dM5L)4B6Z(tWLYr=
ztY&vfA8|H!CuJV^qA7d+|ND<7X#kJj>_cfY+9ah@YYmPb*$le)_|(<E<z4^rk0T%Q
zE)Xv4>4}MX67%cf3&A)2w>*9RvK*#<=kd1tX1>?T(x3nI!=df3f7`q}^T#9GzHEQ!
zURpaewxmYD2V|QoQ0T>Y4~I!qZedR4bPv9&w{(r`;Q-}Q*BiV3tNeU=5Q{x;M1vly
zJx^mm=oSkdAOmPcSfRt@SBSOw!V{2=<w7k;jAvRI41o7rxRrxDt3Ps<Pw||yecg%2
z47F(($U;IgV#O8<*BHQ!JphrcLR{OT^yiBjBngyk<BJ%lkLSHxmYt(3`xR3M?n4@K
zo&`tZ9Fb>DjImi6Av306nge86z4jNH8+P?qtnyoi;kLmSV~LurGfr;~6B^UUGC--v
zgm<xp>a~|*>t?1GtG?%^)*U_|SAE~kcGv9m(V#Ai$Yz(Nb)uELInFjAmD@!hZ~C8D
zE*z+K9#)+IdZ!Z!y2?F$R4zn_JxljiFA6oGwW@#T9Zw7I=vR%0?-zePgS=ka$RhkP
zLiNU4oIxu?Gsm{4clsSx5BJRA<>p=unR&9lcID38)IF_RV_;t;cO>e-i!3}ZaC}&y
zOW~UVP5`jtaJ91s3iiQ26Y5+?E__yO_iJ#C{>^`FpP^VtP88$EeQf4f>c=kX()7_G
zCrt9$pzSO^$VuHW>Z->wU+D6<%OY`y9J6Wnz{<<zP{?dn$kR`W$%?gWeg;|Pd0cA>
zUH+KxHWq9i5{2E1Jv>w#t_$xynNocdvmX}EVDvhcSR0pG+tjY|PG?Kl=V-HZqmq1g
zR>T#oMP;zZ?73HTqn8nd+eH<e!QYjb-t(O|!R}WmSof@opvLr&$OSwoVjA?7mE69T
z1c587rHqXQo=+hae)xeK6@U%J4(ZUeY+0ccCbtPhwpy48914P~*`}gU=#;OE*wG)F
z^yd<mc8%oP2<J}y*-Z$6+C=I)zYUwL($1w#uu5D`!ahpQGxrk+FFT!8ZuJHuoTHwm
z@{@xn9vAQZU86HkryWmBD>rd$1p#8=sMEBsR_GFNBPQpSak{UUn>`>6?k`Y(b|72d
zE<s<Oo;k?=faguaT$BIFwM_%(^w~wwwJ?xSfS*aycBU-4AAnSj_c_jVQDEhDtAh!Q
z8xy;oz@AmX<4;2N{NC5+3!DN%{uH_<(E2KzYW;l`?y#r6wUDfudiEELqk}}?+pkl=
zYg?)w7Qo6&9ftdu)xYGX9zKwFhM?<}2P0d-Cpt+5SszbzARsx=VNBD5DrRq8S=L~}
zf$}y`bwGV|ovZ1qD$kRJ+(WvS?Bla>#<=>*%GEec-EI;V?$q9=_e-Ov76#RZx>3FC
z)b0caRvGFe$E!2x!JCfnsV~7J9opfyuSqsD7P^2P!H7HBi#sEB6D)61TG}r%7Qp1*
z`0=+M-jAo;KCaD?u~}&gqpgNo0-ya2FUIV$$K61+YfmcVL6NoyX>29uA9mq|AOp@x
zsW+BT?F<k!&Ag0*P1eZm+wSQI)XK&e4<$?e*`Wr;qsu1;VF4b_*07d%XP-SxJx_GK
zD>}3pxVS&Wmo*Mqev?%z$^a=^rqA4>I41*gOJVyiH(w5m2kCr2nVU0))LQmQQOy_|
zq%TB5=$0Y3qQuJ=A+y*snmt@2sdyN~PV-hvAEGCJy`-8trUrcEiOtRZb(m01f@@fj
zvw`#UJJL^GIUG(r-k3A?$5#LFoavkH-TzUZzA8?DPWTo|)*y+8u2-urB6?spSm>V%
z>h&6*W#aY5uH99dxf+6Q6V=~t8YP_B2Jf5Kgfs<<zmak0Yw}Ic3?9YKOb=~?QIdR&
zc<+Gqb+DI3^~vY7FYNJ~tEdZd)xr=i3MKEDiXM4kOxFV`cA4`(JEngKi%+cr!OeMJ
zx}oMFAOFEI0nw&)&y`pDryTLE?p}7jQaPx|TuK9hu_0H4Jn~R#WX(Am3R{2cxAYyh
z^nP)B?a~tn_i6<pbXrgW64<1JLQgmbL)qH;m0ZBgIrbm;BF>-fRmipLs-_O;9`^k_
zd%o|Z%ky>;u|GGQc@rV5QX({WoGHz5Vyx9AfSVUPK$zsQAV{LMl5r4mQBaeto2O0W
zxZ8vbCX4HD4<-OguV-1Ord{W4r)}kF6T&;<<H+5~ic=rR^!4j$G@{+--ox!yP5;b<
zLE97$xRv{hMXy}mbXhzFq+u?;7bQQ>e5T1nMDnwgb*}wC>6h<5r!FD~W!4rE+g)Z%
zLlWwAI{l&9RZmXaF@u=i10DY0z;;(`Xt%|Kot5U>SsDdoZ6t2h9P4enTv?S|xnu)b
zsKpNnHNhXs(t2&RTfs+^1)upKn}J)|>ymi|NM@`?uIwA@1#8o4kV2avshd2|e$H>5
zH<!Nz3aj>s7lYhNv>Wxk5ovc?8Ln6`krN$IAicc!2dK{;cGfCd`}O67bl}or<jMHR
znK)R))i#m)i?OoZ<BrGPA#qE+-cW32(k~QUS{z})ud_bfvK=y&{Q~e`mlhK$@nX@>
z8z$#ku;V5I2TB-MSMycmP^80K{mDec4Z|uWotrNpB~kS=S8I39k&Ogw>@!^xoA&U^
z`5CIQWv%3L#m>`}+10IQ()!Tn;AU?U_*u#P+PaSo9qrA8ald1=w|*N4z@4wIlXke=
zdy>8qjSa<%6=5s&fB_=M5(AA}w-#NUtH4Y0U4ueWy0q})It8nEGVooGRoW*D^+zw4
zoO$Yyn7SETujO;|k2j#3swrc2N>zf7{*f>IwnJ0W2DF*ppF5G@tU}70o!hY>Om@h`
zU>Q^3)J1tClInC3D(yl@{=%Vc<BhgjYN;V%ChcFTj0F$nWau~w#egB0hT0b{KS*`p
zKlK;xR%m0BT+z(`VEP>OJa<_x+y^Pn4q+UyW<J%>vv4;p4DvDeEzISnFC{SPa&HT|
zKP4Ly_N+$X1SOEYdHRT>{-XD@dHvK@`jPh7z(QapOK)H$xxmeoir}5~d(D!EpO1aR
z&zKx28ICNC54K8$0=R?+;F5&^UB|cqe|Ht^7|uaOhd$#sYx;|_U!v#ukxlzg`-)(N
z-14Hqe#J>{!@#+QCEuW=OeBdsae0bQrH#3@`i+XT-F`(HBQHiVxy47@U~wqab*;9^
zW9tt8+sx7~RxX|2b@RK3iXZYB5Zy=b=h6d!uZwWJ1gzf$tnYtY*HM1J++8JS>^(==
z)iu+2TlJ4K?f1x?Cn`jH+fKT6^i+>7JD-Kk#Kq6HyF3%L%L7iP@7B_}A!BTP<8kTN
zbV1^sS~Gq15%jIAhT<s7{_zcu8f=eUn^O4zP9Ky1BCbG;CL1J+E`8`qD&mzawP+!y
z4l}bIvSY7i5Fg7>fZ|a{r%RdTMt}N_a=r(icUzjVdh20qLJP%ZWsLPFw;!ZH(P3|Z
zZ=(PS$$`-@)#{I7sTY+`dm~TA-QmR%zP(!V#Hr)<YU3r9qa^c%KS5>%WUy-Tm>DiB
z^_ln^YGT+$|C}zZ(yqnAMBQig`>ej3MQw*94qJa-namU_Wvx__$nfi?I_qLPTIe@=
zKe~s@Ra%?=N^<gn>bHjZU7vK_X7k~CUpb~}RKwuAM*K^_n1unxj9;~T9j{d?pAYZn
zZrjX3j{U)J4Es~sXXl&8(w<P!t!@oTTSnI$2edR3u$GIcMkMkQfTEUbEYUmHd>`A`
z-ht-kUY4#~?k1^U$8N`AV>@*hAuBCJ$6APpMBQg*hh^g|KYXUvF5QWIyH8ws+pVOu
zy80#}C0H-$%j+AkMBVS9%$($bLN((X9_=Naqi&tc&Vhg#ztbgei#2r8KPhe11b-?^
zdp!QLXYSZc?KY{L+=080-!9tgYc>y^y#dW70t5gCO2t><mhs9p?9p{>+l|e_h7`AK
zg|M>EcuzW|ycw?UeKg+VTmQsC{fMW&C>|vJBV=0#6_=H~;3Jqzw%Dz6b)gu9NgsQy
zIZB5aECPmm^Zr(OyT|6jrywvcWQxCCb9)}?m@p6<p1=Czy+{kxt=CS+gjd^E>I&b4
z@1)*nOHV&=OjrowK?WMwxARj^>bA-<CI408lm8Stz0k{`fz+|k6D;+3zi{)zGZqVp
zn!U!y8wPLh?MGKnpT40*V;7W&D+jr4=0-o$^fXC4#j2qLG5OW6xx3`b7EE(IfAEK5
zPhe-VMuY+mQqlk_O!}pf5NhnDn?3wSfAChl(Q*UE8b<$le+y&aN@l<mwOTFrCWZM?
z0eAj9%>oy#P9x)HtQKB?c$N!GpzzLHt>zPOB|&WGawMgpYt0^OXVk89yYi^k;Pa4#
z!PGGtLs~emDkg%uAWw+~m(f6CdVg;uq*ojy0BC@#%&qEPNoMzHhQ9MPqCjA8X%UE-
z;jmp?Zs{Ph?;q1D`=GG5>B*q$<l)7F{#m@SQEbwk=Acv!VO27><C{y%npY)?mB<S<
z#<^!yu>1fNqo1AZ*)h~0lD=hmC*e7fBl|g<`g>P@-F874U3sHc86>QA3ESdjt(rAf
zVHsv=Y&3q7twDcd*7S=X$gs3>^^3momx|fb)5eg7bFm`Q)rH6O1&g1}HkE1a%8~2n
zW*TACuw!N0#%%~G?7^~U!<v4-3<p0z!yJ@h6{sgu<ASo})7a@F2RyUKR5c+(n{7=~
zd7Pm}J1pDA5c%W&cVWirGglYB(HEc^!leD;F9lVg#z7af19sZChaPH#NwNu%Dpdg~
zhro-d?Q9wVtPLV&w`N!HtPQ8hv>z2dRUN-{_M~ejEyOc}m6GW<TDBv1dX@B41!8Sg
zIeKi7oFIO8X1P{DV9i6+A=^=Rx`|(qDzm+U{<m!J#-8G7oLv!6Qc0^2?Pz+2i#|sM
zwf;gb$r0?mlQW`X&@Gr<Qr{YB#+Mpv2)jWC@-4%b@<BT0A(Yc=L*|(p8p6utr!SV(
zg}(xUuVM5B6?W>FA~xCxh|;wo3%`Rj5~r9%e0A=rFe_{>v5k#**Xv_D+7NARy#Mhr
zH}W1g+V_=1Jrl0xwsYeU?b-8ET}V#)SejOK<n2kRxbpO!0r2i`4IsFxt-uva0Y%;@
zl$dCGcQzOtyOI?2sqqGL)(p1_X-m3<G)_{>7=sfQ%=C)DkRV5s!l`{*Vx!Mf`=;K5
z<Y6yMFZv3jg7m^DiIxlfAUI@zO@b(uetWIyoypSbR8KZGqLB(Me+zdhv^h}lK}0<x
z;e5D5ob(mMLPo2rPtX*@d!^4Hl4CyK2qv1X%+x~5ZTd5M{hS8lSyX8?BP|PYUVpxH
z$usx*-gd1v<Tv02`xj#<NU3><PaAsS`%<EzVv#5+q&bR`OI<Gf-~}55(4;+I1^h?^
zWWqJ^jdDZ3&}<w9X4xN?ORUoaY#Z#)TFoV9{;dFfr1~gL+SZ~|zeX-hbZ@3H&;LYY
zn!P1!C^wdwqAjKLL!ZfRPU9H~sAyjYwDSW1)}`Cyw(!n+-`HRN!cw0$SemS}@_I0O
zZ2#c-dzQm|E_XABdL3(XHewcMi~X&6=kLvphiv<93`7hGtF}$&CO@<g7z%E$WTDC2
z>2?);m#$NlQ6`1^DDrPs%RYfT(czXRUBDg6LP%nEb5u|mIPGju0Pm1(sdQPG{P62r
z(GcSvw(8D@v664)#iFVxZdyhBTuuZfd5fsbsPrl%&9qF!rYiSjF46I*;h5Hf>=7cE
zw7UEc4$$>dPy~KQF{bK1$<ZG(G`6E(aIrBYXr@~|5M0vqJFX{uk8ISe7SgwIJ)Vd3
zb{<t;=EXgJYtp`jSKsGjivvXz?%q-Pg!m@%fuLC_cZkbUrPB1tSdfwWcu7S;7iRp4
zgijJ6&3Zy(li#%G(AP+Q_bPNXTk{CU<2qdvlf-irQf~KILSLwBImNhh4{DfMwuQGz
z(@&&NoMdV`#dn056h0q;?IBkc0O^qAnwqc4z<xpRjEQMkjPkd|b_AoY!*<nN!3Vc-
zk)MxZok#W=I!u5D1XAuG6z__N1|+XC^>Lul@}((IB>G*nw;qyS^G1Bk@7lMq97bqe
z>M!)4-!Z8kDPtEkQ>{z$LI1GsXc_z9R4_E*gdNhL9m&>LG+(frI`*QsTWpJjVKoXs
zT48TMxk1dn#v8QPF6t4JRBc=aK+`klw9A3VI``HOGg%--(%?|`nLB;pr5DPGg3+2Z
z)^$ert@;mDf$o!Q5Y^N(?!T_pEoqdaL$0D?d&R$l6s;kF3g#oGl;h%NZxPbpVHq;&
z1TWID=O<YF!|J9gY0}YK;Dh3?UB=?p^E+^}!dc_|)qX+yC5{k>Pds7wIO<$!cW#w6
zD%|F2v(ab$B!1RCaKGhH81)p5_om*{tRRcXMyVuSUFZhVB@A(eCcidd==6<@(}o1^
zJ9dblm-M~cs)ac<DJ=J`!_G!p<1@Uf<QvMf*k|G^f?m)&H;p_+rMZ=pEwv=f8{o@`
zftu^>&v{#TijGp{<lkn{^R?%wI`x(2bDqgxp+AS^cid!aA-grJA}_WbAYHVk@f)8g
zWLB-_1+Kn7ciY4_dn9|Z&eH$O7M|mV@}!Im8^0>e*4(>4ti2%`2UEw{^w>*pSAv^y
zn*tybq{H%;os!)}7^+Suzsq?hyb`|}(2`8-DhWLEnEMmrXP8O1ipITO8K)jLh*Zx8
zJ$ihu0YBQVbRK=DFEKEIr*`m~@8GoI6uK<ECi}x|@@cr)v2lH4+F*_M`?KC5j;&t`
zOzjv3K^-&t?7cQbRjIG}H_RW|5Ei>H2sl%%Mm}tVv3VCD7xpr^W$j0xv#w*E0j_O6
zU#4p%D`9aC<7&_~jN^7zF!U!nzAeWnUmtV#H)Oz+f=zkOSk~z^WRS!1@@Cas!~-B@
zai$oux8Cj9BbN`3XIvf#%Do5A<BwCo%^HdsVGjfh2O;~Q-EvHFCI8B?3!*-;L_ze&
z(w_azd(<J2?_uq$yvO`qA<Ye@s^yRBM4cl3kpE1t-*AJMrN`?YKMzIo{$+xWru6lu
zBpaj&Ib#HNh>WXoa*%2Q%R4*>-w^v={&Z#GMIo?VDAYs}a~d&RL&_c9Q*Thzwu>V2
z+P|G8(*3i!z+R)Nx@=(ngPhliUb}`G5KX7R{U*~PcZy%FBpAgf<nCUzV=NRwzN+6@
z+;LPDYO|2USi874vxiPfG4luk?;uobcPBj3zj;E_uQ4g)a+EHWXKC0SqRP?XjDGXN
zV8NxcY(GokG&YM_rq)%OVxwj|@s+U<8kc<M6*#g1z5~I}9G^CP)=!Lci(sYIU73>n
zDZuE8oVyV&ZD};x$e1sYh<Y1<1?2jOv2eEQkeZ+4X+s{@UOKmkQIDRjXYW<}B1C#%
z6%&f5GnGv5(S8CuYDqh{bTRSLq7=AcYuKigoGm(Xut>Wq_oR1%B|2L%Ke{+K-zGo$
z>!ERuzi{MbegV^$%7UudEi)MlH5QOU7=_plD*tpPa19B~ZmuW0nxg;CO$@yn#as-~
zg!~a~>Z+A{wqRx}q@k}&N6mU+n7*L9?R-NDYb=Rvt|T8?xhxoFQy<m&SE5bGhbZ!e
z2FdToHJ|2po;&69rSwgf1GO-e$*lFT8(wxG&%XG1R6QWjTa9S7hwKrcIn93yQnL(!
zlr~CI9mZRqsTpfkCeR|`g+}khYL_e&^t%KfE_E9hWaavnFXe3WsjJ%?jMg8Idly;U
zCsYp&Jm572nfu{W3LGSi@DplgH?|gr7f(29Ps8w#Gl4^?RW5HMJ*tLsK^z0F#Omhy
zR@VZKR%;)If*=bF|43D69{ie?LAKJGGQbVp1?}`a9Wm~FV`cQsQjE)dww?N%dE0n*
zpU+}Lcepg|e!jZFbYCc;+${+w9@vIZ=mzU^k4zogqi7BRUeKZ7-TG>NgDQ(}!>~10
zZT%Iw7Lit6kPvoqaK5+?<Hygs=sib&f6_aI#Vj^mlz=s&XU_vKyAV<ud-8^Fjh17Q
zH{(_<{UZBsp(<?~)w?Cvw|eETZ?Ir?yer%Sa@GVNDn+Ju<`c@=GSrVwzj-(K$+q%z
zys4-04K+^(EpP*`JSvMLnSZB&@W5h9XOj+PhMs_({XC)1F7cU~^aZ#cry(rtP=8zi
z8}P2MK1COsV_gF3V6%=|HX*&dvpw6Fsi8s2Ud6Ii6$=E9M*DE9)_y{aZ{4Va?b%4S
zn!eZ|p7-JLc+hn%o2cyzzCC_b!!N&vaw<JEOuB=!NcrKBD|^3CI)r7Qq?wbA;7m2w
zyk#fGf{R^|j!S)CB@`7YsrmZTmEyido-H;8H&mbpYWX=L1bfuD{eXtBHhFEOELk@!
z{0*69M*h@zIf(}8*-KC{cxx}_^wm#o@gpAuqz6B|fZ+{I6q|-hzZjAg%6dQ%n{IdO
zO=VjNmX@@+s7T{s7YM&5+Dz{ka8Px~{ywdW;MG5G%tEznjGlh_Y1Gta7Q&Oy%=8%@
zA8O8W*TSH6vk#5V(AmS9sdXAOCB|r1x~(xEWG?8ur(Wgup|7&qfC}QB9*BM)Y!lV&
zK6FAk4(j|{<*Fwm`|T_kw|W6fE(Bc`yji{KnyY}km67R~d%#3pV}96Q=t$(>tmhR7
zB<MbOjBV>hbV&5`8OsHW>~U~ry_=h(2BY!IuVOh1iw6f{s`;4vE3W#Uy&b*oE?Ux+
zv<eD#wQZ;P{mfcNT5A%JKGD&9`Z8XBz&iVy{~7C>CdJ<_wI&azvucJQ3(p^;GCr7n
zF}5QamyfF5lX$)u^S1M!w17y;>!gX6lO10!BTdANX0O%d{hUavNnRpIao|^z$}@mF
zQ8Ml}X7at2!1U?n*7K$WQ=KSFeS}Apw^<*qRV#y^{2Ru0IZ2$LiLuW(7Qstn8A-<{
z>Z*_NU;JX#`a=GvJ@s;Ld5Z(*2HHZqXK%R?d~KpC!`QmbehyHJ^k~l9k)+DQo+)Gf
zN0PW#7dT6%QmS^Rucz8XKz5^s@2X#$(O1E@<jU2@!sg`d`Pi`q(1AdF_-n4sLOp%K
z#I8j;>p8KSWocT<J2gF!HdE)_Hios*AiG(F2$rx59`Vaj%LLN<2v_|aJ=3SD_U$CA
z%G0;Q3+gAxtXrA5j9cLTgy}EwtrVZ7^p0@zg_&&#`m3&ZRU9q?Q?-g(7m!E~1ACln
zIBc?P5bQh2bAU9|(9p1tCWP@$iQM)wt#ys4<|jY24_|FcP0*%4?6qq-J1hDPYxl)s
z&x|?5h^j$@caj4-nqER0vc}#`DfE@;`nY$58cTU1l3U>PsKZ)g#%I6H=#x}k7e#a7
zH_6=6o;}94dqUvWyo5ne<h=}=oo9=U3>PLD3jt?5ppb<$j>H2SZ9<F34jGP{y_f~r
z1!RlEuP!KSG8cHbp$ZcHa<oYR)O_K0jzo;BKXdG5ze#MQ*7#1EF;Eo2LJwc-x(tz+
z`9=D*DL&BQoG(<>Ssh8<vbNW*<ptVq!eAQ@B!1^xq7fPHC!7PRnJY1CkUQDwV-t{^
z7h~ND(^;1{4)J||A$^@kp}5rmKcRZ|xHvz2+w3OIOHt7v+LQvv%>rIB=j0;+R|9FA
zr}Tx(N|<UR;1y@H$^2*tP`iAs)w7uCVB(kX3z=l++plzyLWp89@`m>k7LqdUGT|j{
zNkIOMjh`uN*GVc7o#TW>M)_SM6(&rRZ%?0jYP7t~>Q`N^44u9nB?K)Ffz;?L-1?j|
z#b19Jy=epizLRVgmCei)x3NLvC1vVsZZ->|r9HW?dnvR4la5*x41IeC;@Ki#SWah_
zVo>7YP5dfhl>XD<VTft%M}(z0mUC%uPd8N|<KEr<(}py3*+7lSovX^RK{lim=-Ef6
z;d+MZmM7Hx5GP@rGJHc{f+lkr`EC21F!zDXF&n&CL$PSOmoXa4l8PC;^1gxt;L)J2
zL$+)!f(T8zD3-I&dbdN4z-t46Q&^yLvF=$5$AosFQ@bnYvXeng>}Q&S6_8H$uSg!m
z@Mt}|lupEa$+fWC!<{rJ5^HKUtCzs@V->Q7!=+hD)%=#^E&Y_%eI@QM0N9v!LV5o@
zzl3X1J0udimH1)WepIxvtkgAW%vd-&Qm?I(3t;GkE{({**pR~ffd-R*sy3o6AUV16
zkMQdL)Zm8XGlm@Um1LoH+nhRIpKY8s6l;VbSuLb*7ndKUt|)~oFGor4Rju}JXUg|4
z1Gd%+xgt(}c`66HFfJZU9{X%;+t9?)AK&Sj!UWPn1<}_fi^=T_l2v-mT#{W2HTvTp
zlh&L%kiZ&poT@i&_8@qBO}lN&ZYr`Z;@yETksv#{@+?Nf=hxy%y`q3aoLej5*ywvL
zT-4F=8QN<*Up&UAP3bw?DpI8(Welb1oy@AVo3+8MPW~a<&*jeus305b5cjqpPw^m-
z-#k(mn!8(ZtK{T!QD2`#m0BqE@gHlBPB)m+8uLr0bCN$W7I8yIX+&(j?xMxvAYXt#
zPK5~pNNe+sd*ns29ePVmFt*XUlAq(Ve*QB#iJz&)KF%*LFWYE(Zv|`9*l+3;XCQ_t
zSua>~3aw6E!YidDq))4|E!sJqtZ`3**7v!+-cc4)ZvAJA1#=TN<maAz&DO`^)kCRw
zisOt7-|))439YlnljvhKE@4^i6JY;=_F8O|OBCc$X7$hkukuykX6!g`x7l__l~h*U
z&O>Ix=Sn%N*>QbggAJh4Gwc1&hw37uwm(~Ro!wCu5mpespI5m)e8yY}U4X1dzK=Ph
zHhq4%!El){{bWfL=DLHs{+ft|uhy|z@zfIb?}gO^N4##B{4{>BT!;1&D69Svi>p7D
zpKAb7(mkiyTB}@;AVdX6wbr5TOzs@Mp7Z<*dB^C?dMBILL-~T#u_E|^0?;Kn5i#HL
z8@b4DUN!4oYt;?1d{uYn%fzec58)=XY`59<2HdidZO0-68nsrL*+29@03u<NJAMo6
zt)wx<#e3^hH6nd1OSYYC9L1jhnKq4$K5{G_32S@k1GilGl>FN%VBG&DKc|ePiZ4;s
VNe0NI@bxW2E?fUr`m5K2{|0$ybMgQH

literal 39727
zcmeFZXH=707%m7RB6@_Q2pk(ARr(PN(nUcCRVmUzr6^r`i3F@DASE<I3qt6<3j|_A
zIw+ll-a-p45J*DE?0C*ub7!qtbMO3^KeO&$EA?x8zvX$K_uc#Z-rY6OI&tjmF(xLa
z6A*0;BPJ%+Kqe-ZM@Nr<e{e}3H^9e{N4i=X;1e|R?Z!~>!Twa+!iS0JLOA2a95cV^
z$iyVT1kq482~1lZ4@%?Op|x%XT!)sQj~vT9^y2M{Lyt~!nsEH`4t!vGvw&w_%Uv_a
zrGPDh&2r<b)$!Uxe0M*Znp6i0NF0hddPw5vA-<zom%K}*Ru^_#1Ae^v`wB#~s$B-1
z5u?R7+TFGLVYGd>kvyj~S$6n$r~dcb|CRudz}<TNWRsbVK<U)PueN(i%uHcAlJYoi
zhHOX=>)~7HZ3BW&jDDMBXJRt3R2VJ&PiUX{52644eiw3biuIrGVLA~^vj6^VVkA|`
z@P`B>-#>?u+z$sbGu?DNl{9eAC;-x`>mptdw?pB9oD&YYxa0#tYFj$dnnhZ?IpTcZ
znBLcdu<0JNActOZevUFL-WPH{9}^#oG8VQGT{3|T3QH$lh4g7aaMpdkNmtE{%pf(w
zCGe}peHdYBNVX~)WLbLY#>y{^g=b~)+Zm`)crJt@{$8%bN>eEhHjq%iW|-g`g~}E-
zO|FLYQQ@}9+gYfcGo@xh$03E%L|e663!h?QgAA`H_=cgz<%TE4<U*5&MY`jwg^urZ
zqqd%TIu(}uGiYiYOzwHa+Ze56;m*ZN&YH)_9<c*gUfX{VDfm9UnNrh~QWIkp)B-n%
z?ySl{y=GrlFf~#?wv&Lm4(AbRlP6u)6g`S?=BA|?7~aKbob7yuh+UnW4noLY>d+NZ
z;5U4yC-C=~;YQTtC9a!Meg*qYcp>;59SOZkgDcisft`-@*v`ud+6~v#Eqd!wsqqdr
zozy18yIP*#YFK^zrZY5F43T-e6eZT*M!zP)s~y}cLbHMwwna(k=c4UP_LtkEru0O+
z8+ANrug^m`DaxEU5kH-*C;`)LpA?s=pFD71d-%@V&;;Q&B^w{>j`R;2*jPP*VR2eF
z2Q`mt>b<t5BvD@fyJ6UHNmm?u2c=B6f%6oq^E<Q(jkEmSjdFg)TT86xPqAL`cDQ4a
zYxUz6gv=h@BK?<wS;70hu}eNU%JS)z5ixbzExGLD{VKezBA3LpflMeTHlp<__$p$y
zI5tS$;&mpX`D-~Py4bf}2`rm^CpPW~OPg&x-_v6Yys|kVwf^6z^Z1f|1Rkb!l`ICy
zeTga83o9)_b=KgeNjAz`^laS&7+-+M4W7COC}cR&Dj%bB7Za)6*8?B0bgK4=M%{M2
zQ?5v8v@jYx?8usvg)~-Up77~cjs|^L(8Vqp`IjAbUJromHg_KQhwZW<PIk9;M77mS
z?kd1t+VrY6n{_8nLRd}>NVYMpm#}wiaZPpqkFr2o7B#VOtT-Gx@$M@8s$L(v49>MZ
zO40XtnqEA6(ksV9Vr-D$ulDq}s0F?q$mytOy%MroPO#yR?4+1BslNwXv1(dIN(g~y
z+`$R!<@*lv^9c*w3Nc|_iB#*FU1(akfa#o%L=NALVwv5k0@`0P1qE5mb%!9~?ba(e
z(*tH(NW*ZBhpo?Xd<Si$=PAVJ4XQtJe_PP=(;P-l9V@_s7CM!X=n^JxyxzU#=E}^_
z;AdEe^xI11%zfE_b~V8zi+Z-}Yg^g@Wm-YDU)mDom>UC;!KioI%d4@u$kv0rPXpbq
z!d1iPb6XowkOhC5fXP2S+D?H#sM32dtZNF%KDEmAipRSw5BI`WtZ~&Y>wABya8Zp`
z(~Cd8Ls<jE#q#Y7nJ4tn@|}(UIojpAlc8oEQT}?Z$udD&4j$_M#+ss+<`X>f#<b1_
zvkE~QP-h5nP9Jqs-talgctff>9O-9dsJO4H(c;?N<TRZEHV(7k1fN1Jh0$`oo}K-s
z&VzVs5=Qp3BKN0+lX1Rqtp+f9dEtL9-6Y>x#klnRC4^NvkU^z$bms~u1S`R{A86S(
zC|BprkD5DZ6_2GpX{(nbRy2?``%IGE$?#?2doXl>jji2m+`{GL;m~bupRjMPtlmh=
z8Ic&Y@RhS0uF3A{r%=+Kqsn=(xz4C4zpeCBvRz5eb&co)`S9UmA~sW%bhQ@+(ZbHj
zt+h_fNwYappV4yU38^xMi6>l9bO6x(i+1G;X+citNNZacz5c#YMc3Dxt$`@l#R_S}
z%@nJRyK=`*<vfb-8Y?hBABv2$ww2w{p53M+hwB5)ovJH`v)}1rXO*`=H&pXrSGPv4
zYdT$Z)ZEJITyb}J5n9pExY}s_4&R#CrJ!o*WSRKbk;eolK(vj)@Qq(J$VwA9d}gY9
z4mdd$IQiY4qZ@~q!Xi8(;K!L-I+CxN_i4#}!MbozKXr3SAU<mfuBg-o>90?HU)e(+
zy07*Lov}<0w8aZ*Iq_MQg`X>9#dlcM_7?ElhK4(yxuj;QB>X;LbVz<}_oEE8{{5la
zdF=*0(MuTZzHGQm0{h*eWQ2?e$?^~Aoau+m;)qM}z*b#=t=?1+`h1*;NupsKuGm2%
zO=~oCL|xT$64^5ee4ndVQ+$CBhrYwI<{Q+MwI5@4Ez)tl2w$BQ)Hc84${oUgUSOB}
za{Lan?n0VjJmTxceCNOAzDTx71+m#)X<2HrxW~Y=SSETt7;4AVV+1QaI&u3|*ZEHc
zH%u35H_fe-NimqFv3J9SZCm25Vmqm1H?_(d7Su*k*!i}y{xtB1OI%6|yxA|1CIFEx
zLH2q>s3<hc=568hC5($jJn{kcqxf9n(ymibbqy0!X4>z_n%I5_5}I%(WazHwpO>}!
zSmb<yf)#|;cGs0j1h|Hc!PW@L^wg5%sWP8UCB(@f7@w{B)75Tpxn_xlwzjt@OrzVm
zCo1$o$41<uUHdbGdYnCVN6yCvZ$ZTlTbF93=oQRYNE;fhoZjjff?jF+$HW-%JyR~C
zO{)B=mec8}LAYgmS9?8Hr2Cf_hAy~U?{Ap2D?QB$r_{UQM0SI$B@5HNIdvMPqhC)E
z5~w>+5Ub_PlTGyegJ?R4duRh8MNDG#ccI>w4hzG6Tk?>AcI&Ff8vGOYx~uAuZRp|j
z^V4yqx)JjZ)TT2URzQaxXP9l7n960z>T8kL6<A^DJ4d58NBrZ*JiozACVbHMO+4_A
z%8l%96r`Y(`igpBuGOuzya|DnSY^mCt64hA4ZdCZZDmkcKLB#YXrlkgz~%_)O>3<I
zAMORIpmQa!GbkD-A=l4`Dimy%H+KJRJ%ayOPmyqX?i{bE%k&oISopAL(45b^uD0(#
zA|{5$ZuWhXW44u#5xdtK@dTd6(jPQbt8rWlV&sRg!plP%ls^>`%rfFlmMcq=x}Nm7
z3SY=yq;J*BJ)hJS4w2?k?yiPf+p2ZV@8D0()pgtB-pP~=$8P(+c=qz@@chnsgh2I$
zC{A4$*(H03en>)m0kDNyU<;r<P$PZn(#D*E*o*8W3}`qBr>KZIYa6LRk}ar;DzFte
zotw|uC}a#dWj^5p*-g?)xuV?RIt3S<6zaYkQ+Xr^WhKhBU+{4;s5hQHY&Vv@xMdBw
ze9H$00=?olEgA)ykl2;|U1)vlRFcJ?QV5C)QUgYod+t#;t90AwV~ywYE??Fau7nlt
zJrXfsIc08Bl)CphyZHYC(&9>su|4)pV_Nm|+QHIca;kCcSAz-`zqG~bZAia;z|Cy?
z&2Z{(VdpHZpm%(uM>ll(-b03Z-4A=9sqtO1B(J>I+DsPoL&%Cz@uY8koxJV;5CrC5
ziJt|rsJT=_G;_`$2Sw<8?sfl|?|_zEx`AMglc;)&B8sTM2@$J!LAicu2m8X;zIu9(
zkoxcmLpjX3x#mB!;@jaK`VZ;8i5(#onqp<Tidqx>hMx-lSnt+wmu6zRB*x&VpPN^?
z5el-y!Xuu^sN;@2Pjsq1i}^*;r3)fa1l47;lZiSFMtyPc1*$eiV}ayeS8o=VCI=A`
zzLtFT%4^>;h+?6&OTtJUd_iR7aRS`#)dnxb-J$s=WDW-56(@da8I_AHq`@Cx#DsT}
zoL%<|+t#}s7|?Q;!@J4`1l+L0rLpw{%F&fycSIKlO`K%fT;%Ew(}kULx=h$Tb%M3}
z-kk1Cah)Hx7JUjW?rIx*>F5zRA;4vBA>dQABPJ)bLefOGpNEDZ6s{S@Zl8mcIP{QZ
z<-VkG%RSEylEcrpx|#U%*WPi0jbi1Vf9G;M;LvK9N~?h^3?0ZjdQ8(Llm_<)FUWmS
zl`oKaL8?Oa$hGc6A$dA3(pM~D2vo9&O3sr9m(Q`7PsBP$QgkTkU6c6@C{ws?!ZzxK
zO<*y4A{Fs3b@*+%|I@eCqFeuF3CH7@h%=!h15ek0AV?4Yr#Z*}^wj@1JFI3~>PS@Z
z#XPQ;Svo7`bKXWS7KyvA<}A^02!e;C2rfxNltfCBx8I;JI*LX{mt1Rz>*@$ht7p~S
zg{3o6T=`NNu_jUlx!-E1BS@z2_-tnSWU6e}(={&eSWz<w6^79$12`YNTD$K$L=BR1
zaY+K=7k^1hr;M)Bqf=$QkmjBMl9GFJt#%Ixy!W^8(g&Ai+8YMo3U)ENmV(ZaUF1Oh
zKK@6`GdU3`N#T$O7kYId*&>6ot(E-{rEYAU%L@vFmfgHFCN2I*MJI8Lts-LCPOkNr
z2n)I1ofw}hsHETLq*->duJtm9b8FjS_FxB8Zh@7!@ouigr7Eu@orfh}3OP=k6SA(2
zxjW<E2J?NV>xx<L(az#ST2e_~qp(*fQ^>$H52PLt*nav#=V3TkB0Zxf^v1i8aXz|E
zmg;NB95Ein!xuD=Ts<V>UV!52{J847GCqdI%f!qc0^JLXYD+vL&J|Z}&>qTEntycT
zNKtqezpqyN;afhAcUBf4irRhk@QDQCrQDYL*abwsTg0)`Dz#{-gfl&N5jPz-le(bU
zwVnP-pHo-!`^?o@1C=Bxd<P~*vJkemsKpcQQOc_7eW4{G=;pC499{Jxq0z=j4RJ4D
zVJJHVH3Wa79W3__ty;ZxHuih7$1%r4J-ltzJEo@zLeX(&RNUEg(<$%DvqF&y@D%f<
zNa69vP0dzDFT*+w>L!e~Q&c`XDltsQLBkBeDHiGIVH~9$EMIi3P<j7wpk#cZT(+kW
zyk|R3)qlWT^E~&2QLaZPFb_6{dHk{ZtC35ERKbFV<(@hw_}R)z^yd>c1Xl>8-@xfC
zt2~S{$#UA=Oi6e|{tUl)kj<YrZ9QDt4rdF&W&B5AxmnK#ZiN$!O9(MZw?~(9RcwFB
z-ehLtwl=7h1WH$Ezy`x^I-SlHPM0dM^)GyR43*raom(c{v?|o3f^})?N^9cQw^|8u
z;^}xM^wRNA;+Ll@<S)fTUvVK3(bsA5T?5RvJe}0e^J+9t-IaQiJ}vf+vP-oRii5X#
z!wJI{y>;zTPof_ij&6z}mc(C3DUDYX9Ty0+)UKlsm~OJ(3FBodFDooqZ0kyPyi+*x
z91UadGe|x&K6-!QddEpQey6%lsT)48NoYb-JPNSJ=cB^T@G(zZOm|~0%F2;PO}sWE
zydy;8iCpA|YjEFeR6W+`VHz`*%3>+X>mI4HRwx&lEPdCv0ud)C6d{+By@Qr&@!fHV
zo;|m+dj|`h&e#hQPt|F#UN~PIudu)^$DH`mx}$!yV`W#aZjcmPFCAQ^cbDuHB-_*9
z9-Q$wXI;?e{ekcjn`B7Ir>ocOqrW(#5G93)y`)ddk2-z(Eu9Qn4IO*FNg!UoITf<x
z9oFSON{<ghy2sa#lf4yW%@a$uj39Nk3)YQ;IX|(@#y#|^y6Wf_+rzH$C<{44JW{q|
z-#X7IxYetyrX){~>We@HIFy!1W1(K(UOG&i^C=0rt{tpnl<HlGOgIRVNjRf!DbXKe
zqVXDj#8S;pyg;gZf1iZ$$DF-CpRzEowW82W=ryjk*+=SP=jDd)L}xLt33PA>x+C=d
zyrI=spt{AzaIb2b`ohpxPJ7!G=cd~GP&ST7qsP(KB3vjh%d|Ot1ZSp@O|6#03tf*O
zJ87;<Pjz;4((ulDS5>|y^7*}MD}I~d22=0-;>y1}?``Mil#PD*SiO>$zIkl_hJwKa
zKG1aRpjCK8O%Ojd&^T0U3(p9E)Y<e9uj~B6l^Z5*XX#RQu+Z-xRLpYCKCh~~BGu{>
zMh7nHoA=qv?3Cj(-PVmJ9%y=A2nbd-WA4zsW)ruAHK?!C)Uu#<d5!odYbl&We0G!A
zx6NDP3lHhuzb9&b&T2yPG8HiWE9$g^vh&Nl--A>~u>rv^Xq5_@-`FGg;&IQ43-(?n
znibMKzkLX{Ua7FFl)J3?(%}W&pUzWM0aq#mvZfp{_rL3GSVamN(mG(caBS_o9KQ~X
zpJ=&S*k|y?%xd-6#1-KSf?N;U5)o!UIcB;N+5aRZlQ($aCR)E(pMbgy^mW(U`_SsX
zxCq$Z!Ch$Rr=4S&q{#LFR9Bl3^kE8C&PTxZLbB*N=83mmi*-qIt!Y9_Pc`YbyGkf&
zPSSoXX;vIE?r`W<d!Wu*>)B4#b*(n*(2Iy!RgGUO!Y~uN=&rXiN`J{|EnwSf_%1l!
z`FUqfIq$J;msf}o*QKi70CUj~RsC34ur)S(o=+-1i?~`kkRi1Cs56TH1W(d-N{xFW
zD*m+1MqV_kVyIRht2FhjF^jq3qFi<oVWpw8Yb*}`xL#RpN%4}`&-GKTNZhP#9e#V?
zNHoyg=GRJLh92~4myn$pthC=ZMu?R1u1#ujK&L00z14y$mEaqZMR50n@Jdi%&VN0i
zy-@5OHYfjKSZ;Tn1)VHG$vApTk+#15fp)zuE!o&%qOqVuBWzbgbLE^}E9o*0{bI0J
z;_LuN;c8~z^(xZnhe!V^VIczc^c_FDtL&2*Ztd!qamWtx^<P%@TQQum5T`<BD0F|h
z-+uzs|3vSb`A)~r&eqnm-X(IM7@^s=cissLK%}wUDB)I-U5du)+|lm4;LVp<ry)8u
zeNF!h=TNg>fBx;}tmg$I;%aAG1{_n;%D&hRk&Fl-&5z3H;TLLkf1T{w%zjG996B9-
z^&*1FN&^}LtLd~}j9pXI#B4lO%u|SnUS2yz43=N1ahDUCh9@p<?W3siiB9>gs)kn7
z?I>tS(hg->eBkm0kKuxZ39s+Ad0g`c&1$;8WN~92ILt3BzLIH$cOWRkZQjS=1#Okd
zQv+&9Jw<=3#<_GPkWi`Ss~4BzOP#z0k!_hfN!?RlINs&3-f(H1$ulm?uGVI$ys0Y7
zZa*-n4Z9xA)X5>?ZmQXfF+(0@Sn>0!JpB(V<t2?-{GVoCa$i^aYw5aKrplIM>e$Ou
zoy8&1PurDX)#k<LibH;UZ(8HINqE$h@nrd3AYj=I>HX(5)imxC3w=MkwClAzWK(&>
zk2`I1Ln<i*x9gw78^zIn*i{hgBV3@;@X34)|F!hC26U2wYYh%*8pGeOW_iT>qX`x}
zRz^68I5Imk>Nvr@8|<g4h2~#0;%z_tOi-?FS$Cny+3;cCsE`d>FBvaCep<4dosT*~
z{=xR%%&IH^E2&9-+Gvoo9X;!|vV%OoRWsk&)zYXx@kK-_mS@uG{wt!}E^DjEi0t*x
zsf#Cl!*+RAu9a!_!xKH|u1dE=r<~~*9`WbEdvvp8=Fdz?$0D>;1-WAVmyg3wY+(B*
z#?Cw#RnIvg9z0=8o;l7G`;bw89vObcogN_o>#=~ONLM}8Za&54aK8cF+!9=?c1elc
z6YPK7x@+swuFVQrBPQh0Xtp@v!5z&7e}m4`HZ>}UmPfYn#J1Wh<KkXX#LApDf*jh|
zc{p2y%Q{3CO2;_FELP<)Zy1@1{;g=?q!T^!p<xZq?(J3ss~dfuspRmY&A`89AFbq(
z8ZsW`J>pcwi-@E{i{rN=yDD0v4N7IWKFh`t-^w<2?FH#U+tFfTRzZ!U4^`-oR0878
z&{WNwew8>lHYj73g3Wt7ZEE>57Z>S!vw`1(VTMj|mD!0m%#+?CS4?!)Z>)Y^(hh&-
zZsWN2Heb{yGO%K2#93ukvDuM;k^W3!^~)f%2ywBJ-3;3f52E>UWSryKw-rJTs6)Z3
zQtgTj?3HvInI%!g$uFiNHSy#_&dFVu^%4gJyD5}J$*Lz<PvIu%C2NIUR;v>Hvmm<r
zYFv*RD+6Zj>+*0tAXz^NlJ(Ec3xS$iDvBkRO`s58g5>HB!1J81QrlSd9_4F{IagNC
zL2%#UntNEq;^i7Yrj|O^Q;>k|AOy+8_}&@th`VaMaG!8;$kk8y+B;k?$LAis*hvdG
zEQvj3Cz(CN<Xu6L%CYsDPrf!K_~iK>TWj|c5=S&`C>Vwlao2X5KJUD)nI#y}V|KPN
ze@I16JxNW1!WwRjKz?tU7!N)u)3tHavg{=Z`uR76ifZ%9TFvLcOOy0|dPa`nn4xoY
zEv(Xq01PV9p;@EhzLP}6DMXl=R!+~lU&@--$Z)2ylKTn|(Z{sN*3{vU6Zx`VwOYT_
z@p71Y`eUUwv)H)<k1tlT{^w%5q_+o4@FTS&s-89Qu5bFWG|%EkhytI|Wak({^R5KH
zpPrd{uKSvVb8}bnQ4jj@{XdC5+%d|jR=tyle~Xkl;Lv%9$$|N|NJU93lQG_W^Ujk=
z6StwgajD|A^F!4c7(=--{u2DleY3p2B~g5wd;g&hHGdB5-sh+b1H^`O@(qY=$9|dL
z`>q*>YYwUoIKLXLugz!TWl&GTh9w_(vY8-bpekm+oJE?SLI6KCuZ8qEg%ipwd-KeD
zOB@&EXeLh0eSsB@KiDosS7czk3nJ4eGU(gJD`epn1=R;>+PR&?_|lvm<!|=<N_%9G
z3%x}>cF4_qBDEB7-xl9)9UrRyQ3h7V2ry<&8pXmTo7$epNuk6*6IX3f?F$+-)Km}g
z)XJ!9N38Ft&}ORWh^$uMm!aMjdt3UA1-x%As!fAVO-E^!AdL|`B1cJW(|mHF!!lcZ
zh^C7RkL#9B+=55f!2HiSujPSI^W(_A#gh|E5`TljRagkb4-#Sz<LnGdcwFpr#ki&^
zZKk4|!$nw$e@1YHtnBFYyppEw_P6NupJ$D(embj0xi+LSL`295F`IRasd~g1adb)@
z5hc`@-?PyyyI04Wv*nO$7mEu0?q2m$-cC~Sgt{`66<QY;Pb|h?aX2umemNd8uiSx^
zAsQ1@zIO7puU!i!SR;OYDC>+8PRz>wqp44!-8Tr<H<}%uzHli~Z@d&z9&<W9fXa#p
z+p!p0smr~~i}@W@M(pl{TwK3t>=)zy&Ln}j-@G%1^(osPG0qmYY$L>eK-#mc;6(H*
zVKDOpRUxNJdJSg3Ywm5|c}Q<Z+H9|5ZjQJ?Y_7&H*qF2W{r0F2b-kT<=A;W6mg2#6
zZ874xEKCl6{kE(*y_KNku6(YtINLgNsx5L_5nCEhJY;DqGVVrGzSfRj=s54g<tY20
zNml%>??HC~)`xG*CE^G%EmxvE-AyHQp<G&c$wQMRyMj2y$44YWuvXfAA#!y_Y9%V3
zkYrSLG2U#xC*#pqcfKc3?2Ae5v!Yy=sNrcbBDGz6R(m2olI5pQM6|jJI=|Q<+C8$Z
z(>hHub&<2lK>F?!KhB$S)Ly_=X<e7mzi0>LuqgZ0xe3@JpxF-%>C@L#UY=IL@QRG|
zLNpb6j~C-LB8zioSy#x1AtlPBDryod7TP?FX**1ciQNu66>8v?v)E=V?nCn|Md_9x
zC%3SdZ(c+wv{5?`|4`}(fo%tpzQ)(J1*Jp-gcF<FchpjJ%!?oL&)?a<6S2gIzn|+`
z<g!cFbRSK!aNC?wgndjpGqmD9%ViN=U5mlT(XC{HMuN18DYYisx7Q!Sd49M>^1r9b
zx?1suZ^=Zr2Yl!ntMI1?BCM{+8eUYZbBFb5zw0e<xTB=m{yseTzqJ6T)3dUa(=Iwk
zbsb$+jEIJxXiv+tg*R6(SKNb6-m=bL4DyiOJ=sq>^sE<9h@>+uyK0Cj9S!J&s5F8#
z0)%0b2OQBa*D8@$k!YtO+GaBNaqONB+6CQoW9%0nwd>yYjk->#aE?uGfAVpy);XUy
zSwe$_x@QHre!kT{dp5b$N3TKhbd%^UIXtlr?vc+lPlgN+V?(RDcK(Eu&+$uKp>LX9
z4*C%tsC;h$tHMZUsn{aXEADNa_frlyc6?`d74`8qgqI9fb~K)Ea@lYFCBs!+6Qg9d
zpz^E`<%Oj-ncwTF8h2VvqUJwq@1kCa+YW@2f26wQObT+j)!@Qo^+I<)Wwqjdh_fJI
zUnd^Nb(!3__Ndk@nLLAcc17}C#=Te!wd&lLhPFj*McbgNZ|2ei#YElr_ZK%+@6M3^
zj*HF0ubs<LEzu~=8pcXN-WLxSNl;YZwgpAx_;!HozLr|7+@n)1#L(*Dj}=+`2`OSD
z!%m@h(O1@X^bQA>#ghg2yaJ1XGq~C^o3tN>r)^d7Zx*Gj$1qQb&4)y<wpwdyG5vr_
zdrY1psK`I$jX~2zmf*lOo1QdHs5=Rl7*n_-Ca#}bzwL_rW>Xt}TBX-k9ry6^{0?zM
zwpOo>o3IYwt#AG*GCs@RS1(<ju(V~QZ>H~b_HbT^T>^sTT2>Q&r|Gh~f`Pk*Aegk=
zYB1<m;1Cb)uJ#?_k^MD!MG#+KC)pQN`?8GiyUyUBI<xbs=VHiny}J`d6OD<1XTxjd
zn7?S?A5>>O-^`>;)<P0o`NMISXy)pN1JAW25_SUKA%A@L&+JO}_h{|UIp4vNHK8D9
zclFNP{%gVClIc0P+kE5o)$x+6xEg$0ArK6%BTBW=O!PsWmDBUYhu(HA%J;&|<RVw2
z;1=4BbzR|Apm^x~9(n3f=pP&R6D_{48X$g|oO9^u_ea#rttSk~sPny+tHa48TWn5n
z{MDj#f8kR=$Kf!fsW0|5uEZA;qgyo|tYWyJJSNGtAse?{s`puXILG#(rdpTM_%SKS
zi4wv&>snk-HOWd~Jt*D2vuk%`T^PYSeZ4a+26SHg6KkP+t8TE46UTrN!soJu=%?9h
zXXX0mb5cs<x-PYK%c-}C%MtErJE5#KoK8CzA3~f=<ZMS{>a1F8&HFCssFw5e_WGst
zcnSNY|8SM8DjzzAAU0|)eB!U_@afFUN_*Vc8`x)$9AWaz3h#g7ZKZ{fy|7AhPSyL{
zFTd+hWc$(1C<A`UD;<sBJMhv7)xw8k2kJYRiwM=#M-VQ@7wfp<*}Xft=}jikXbF-L
zAG2*)t6;LSaR08gJ)z3V$z=U6O|9)CHvWI^tUYlzbTYZl(8Q`4oZa^k-9&c*3)tS(
z{#y|f9)#->yf<A|Woa&sje<8p6|LTB#i8-H;_m+XbL#auX!XD+so_~8g&4QPQ<L}P
z){CY`OOM9By8V68hH=uTnqj;iGRgJVW!jC%^$`=b%?4}6ubDO;qq_*?d4&@v{(P0}
zklXqei3Mvv06HB)Kiy61s@Y8aBN_UMlo4NH`euc(;d5S^n;GK^9MxZfA3P&dSF^Jp
zi7JpgeoMOZ=>^7?{~xxSIVU^(S<C6~Gz8gn3XueW-;5@((tPaot<*}JcO6n-8O>){
zK{M)GrOj^%f>PqR=n6B^yOL4j|J}mW7}E{ETPFPX)YI?piKiJeU%y*EiZQSHyWJE4
z8arx^t96&{?CuWnCvVN0rq@meOooKlcuvBecBfq9Zvz`@Gc%{`-k-g8cC^4a@3?0p
zp;k!VW9$PjGB=30@a@>KV?WAl8fyi{DP(c}CD-B7amVSWfm`l%<Ngl&wYNDG<|t2Z
zD3jlbWjs0S(9Bf%t%!edqKUfxb$VmYK3c))?*4TwrNcec1uyw1JuKo!iEKIb`JR@#
z`j@>s@6V18H3qC-;gPkq9+zAfphOBR$B9=fFvSAKA#jsRRPPDecd5_VP+>lSH~PlR
z+Y1%A>+aYD910RY9ZFlVTi@TCjWNVkI(9zK$;k;45fQo8OkHdIhVMzo;fJg|n{xD1
zuM5o(FI;izG6q`*DI@|kW3nN~SQTC4F;3}VbUg#QrqJb%tgNg|1F!PV+Hzd226~G%
zHprG1b~>c@j$mBV0b6!S*{3J?U6Ye5hfRcSL!Q$P-i0P4B$$B9ty?xxmWz1nJSPwA
zgtVgF=95DIq-p-S)0QBBOLM>y-3r?LSnh6u$=O3!pY3hviYy&a*O4bNB|i9`m(Apb
zRDU2*Je@X4S1EUBhwJ*Ujg5MOA<&w^X(L7TK0MV&s)ihx<{6~>Z8}r8m#U^evvBVF
zPN0JxhmuAg5AF|0r*BP{R96phjJ&F};bj_~ALJCiWo75}tA|BfQ!YduSixg3j%JcQ
zaiN<x>YTiXd5L9BbA*QAM<Au0g)+<m*6WqW?{4QuNq9qT<5rGj&Vb4B!wz3xvA-WK
zu?lb~x?eKk3=E)l#2pzzvZ%??P0o;j*#C&C-vR3XfXmfSC6LMFxc&Wo?RZgr|AT4H
zP;=_n<FaT{yBJb=ErD)#u$2sfUk%)tsxmII`g2}LMK@U{METUa?WXx8E7fj)8>R%#
zGMIox^-kjO!9dTtVe2uJ#AvgCm{^_^X*Vk?tMAK8w$N)n3tc#og5qMSU7&8)*(BBU
z1HranhePfhOu|X2gkwxFY4h^TAF&s2Q%>{p=IxaDMYYxAGpHGpq37?!@X?eY4f|W2
zcJC*zgWlhPpFZ}w<INvuDzSzKx5GJTkM=gETY#LDpx@q{Fg|znNx9@`wR!?46ZfyT
zCxxO@uDe@`L7qqXi%UrX?mza4cmME{CdzY%UqdW6U37GGZZ!q(P{wyBL+xbqm4W0N
z_YsdXf^dddU+N1I0p}?#Az@kP*qOwlMqRD?0q40vNHz#P>7c^I#LXfUc+VL)<MMYh
z5s$0~#_z$bVh}PHrv+QjlUW%q>!t4#dzD__`dF#{@<<3bCIr~YLkQ5LLQ6|a^F#nc
z{@@xI?spou0>=H!bSAUd?!gizOf!y#e~agpGQa!HnM&DNAre~7=;-S19<5GDN_tb;
zxYpnwe!+iaaInyns&(Uhh6xyhmQ}4=(9X|~x0T#RD_gt_N&t4$4LRqf`y0GGa$>Em
zvlH5onfc%u(DfTT?{*O}&yn&ke$O)*yWOwz81E@EE1Osx8ym|5mZP|~@r{!|m`bRt
z^T(?BZ>G+7CYurZayrR1uEWjp^76Z**c#VK=#a(Z9dFCn#fnxwS00XVu`=_DtaxFY
zP}+`=J#WE{jn6Ee6}$TWUT;l04DT1>S@QMxLbiWJCd=3ayW9==vQH-VqGzL(476+b
z-T|FBR+aSLQIaLQuF$GoVc1}7(BpQQOLhJP?28N)XomCP$|$g^a07raFwjd0JzwQ^
zTds=v5^&j#?S4bGJQ$4<+6!>90SG+cuot=@ZL(9QarG5|j(UJ#F`sNOB(m#h<^13#
zZvVirQth0QzgrdJ%45>;jVtPPka$sAdv6d&p=|m5+?>W(ZBD=4VT%|O9KRavwOMMs
z8?2xj4>z&4PV?Cv52#b#{LaNTP+*KNMWfO0SXo(Tfv-Lzw(#1Gjh5IE`;X*W$}>Iv
zdeqj$60^Uhn<0GRCrNuyWofT^OM<*97D5|4E+H-5y&HePa5)or%2nqruZIsGTI`eJ
z4HTVU(tI#5T5!{LpKkxR>GBmd9S;MQodHcEzIUCrTvV2E)v4>l>-OB^S^L_;@YE+>
zEO`WgtRIu4t!x{Ecb20o$~-5Vn<hFEC09zU>$hG3GuDUEc82ZVj!)znA~R&0_hv-A
zM!BC6yX6T0x_)}J!$qW3DT~>goAWyaTpbk*j{X<b(#y;1O9Z#1;<$IGbh@ZP+TIs2
z<TLNk)yZ~SlNm5vWtX<ti+BRIW@Y%^bn10?m#wW%Sx)7-*xSLqh%5Mpk$WMIj*igt
zKEkKiH3j2FCVlKl`k!uS6wZr%>m@Tu#P{{}DMK2_9sVvR!&jUVekPb<25|h(^3s(8
za`!)~-cyT>aI4utc;H1s-J2%;yA7=jmDZ&Ytn)wuUf&r=b<Tfv<Q{IK)^BC#P1WOG
z)jIGcPu3Q_r<3>ksBx3%BYLTswO0!x><m7t&7oO{4HA{WF+pJGgKiL%3>217@ulYV
z-t)8y=kPzy^mzec<ni$Ecm(6q1Nh#{_O8=~sa5W{+IdLd#lgZw*%A%|CCtO)X3l07
z!uVu67=#>IDL{Fl8Obv^!iaM4fqEbOye*YNkbP08Rk+THp}n?Bjo0~YL<41Z7(Q8G
z7N7UzhD&X53rl%O4<f*e-E_6kgGtLek0zDUQt`Uy1w$v8(*AzIn`m2;`+l$-nq1B2
z7p-=^M6oMfY4<L~<yThAu{;9M$5t<hpEj2uWgrr10%$k~;y@koPW1Uvu#aZ6P)^$U
zfHAL0NMFh|S8R?ECbMIA7Q{o3dWNY41qHQaYsEB^Q$3sOpX{!U(`r4&gTFx6o8<T4
zx-voez_Zj^a?dCSZoDIfH^v*Pk}>OOVvi$9P@O+?e>2C-HfUZ2fFVV-x%lJlaQ_dA
ze#`vCt*u(Sp!vjIDS%E>YvYYn_X#xlg%*Fvc7tV&O9;TN<=NofwUB6I8^(TWCIv>0
zou9mB-w;MBvgy$mlqfO$Y6n;rjvEgM04Z1e)+a&&SMzHmOFuo*7e2KF9eEhu9gk94
zNBd~33UUL?#V92DB)X8_p`fZ^9dl{@sZXYYr2B%aRacoN=f#%UjP8wMgVhM=xv~<@
zEF0aNlAQG2buu2wZ&Kydy%R5H$k$-s8hxM?u(rCpTGe}ylb`>@1_FV+kCbUx+~2zj
zqlUJp;Q$P+Gh%)BP>Gf7TMfaG(7oyKm41aI7<@oangTuFwu$nF;a;zpS&sPD*o6{m
zhL@EO_GX8*`_$;<UfkJhE+#Yg{eKR39Av^0m2C!!)v+;8+vv{vd9s&eWO@)cyk@?P
zHwIuJ@Iup~+RehEQp=^pAD*EnHB|P|YWpN!52JS3K@!>^UD2vnjlS>IpJ&Lw1u)R&
z2|v!*P{nWO3mZQ=kV+!#^xT+@y6EAjn{(oihBD^z(3w;L0Vca=n=K#VzM$J>ez?bg
zo!A3~`R)MQfK>silLDl%tmHZ*_5QERw*azP0bkjpH0@4MF+eLGUY)b@7;?80L_%D=
zpaR&&vog*j^Y@zhK_qsSfjkD3<I1p2z&M_?GFW6LOBg8VUjRLA;%%e@;^7U9wOvwp
zX(mz@7C7_$U6p-Zo$Ig%?lz~&_QPiiz*gARNF(;QMV981?G9EvL#a4^g1e@sW)AQ&
za>|vS8}@<VLda(zKv6wL%BOSo>N^03EoD8<V?7C6?-8};ISU)CANb!nPNmgyvFjdV
zfr}q5+gtu|?z&q{sQ2xUcM-z#3k$i|6gxc01}|>#Gr^Pf)MAS}hKBO6J-P>2N+$N2
zn!7aN*|N(}F_{3+Zw)9lxPXRz&1?I~1Gwxi$N3viyRtMR4P>RILpt~z*XrnX+^0{w
z+19#^zHRVZIpQ6)lr{<MoRA^s*x}v;-G%w~p&+5E#I7sJyUT+sRAR4MsD|*V_NC#n
z$q_)ko~E0T)omr)(o85XV$=@ys-NB%)2H}-UnqN7c2?d49rz>a4CnXe&@@!P9m<#!
zv(5?P60aIr1eXE)1m?f*$`BH-jqk5IfLRmyz`az^PTeUSkv!6cznVj+C7aY-?2%lf
zf5MUg6OhIY4S0&YXLGwd5(LP^VqmzXfB-Elg9x-lULGu>D;{zLyycoxZ$`-4W-CAa
zJMv&#Y?urX)!C}j0iu&#@#4~C%$pPE4x}KG_luuobR7Ua{+tGgUvFA;pSA>on;r#;
z*5V7AD+eacTkSULZLq3_r~vV<lK56AI#Bl1yH~je=?%jw&(anBg2hQM6G|+qoG`vC
zLxdm*r8o4z=TW7fj%n;Xo0lq+uq*<w&cu=u!<zKu{hA&18rM;`mEAo50|1}M<<n^m
zQ!kD;Cw6U1Ov0#yGGlu(f$pvXCG8vD{bD0dBjNz$zkkWb3A+hDa^kFSCtxqo7U0O|
zu6a&8JE-barQXlls-mf}??Y;2%RTWiCkhwvc+b$qkKqSrLRT>HzLZGc<>_78bRK5o
zlrOAZLP|=?b+VZTg<lP!__o$w8@&D}Q(wzbTLGp<e}Y5;3b?T7{)5X8K8Ja-{qfg^
zCxmW`frT7wFZG|(|M2%T3eZn_6v$^bMk?&fmOw^k%1~dxrn5a}T3SYiv~!@J_e{;B
zVJY`D$g@V8LE>S|$nLVByK7}TYvWL|#pCoH8;~XVx31Ht!}<9HAzByw2GAx8(P?U-
zuqzNt5ZB(-*VkWg2zd_Z<|=jdmXYs4TcV`dP+Ya>^%xnOhG#QLp}?%wptJAgtAWuZ
zwGWA#sweS(Co{#OO(@SbB&@8EF2Cv7OPArw(V=xi!ZR?wA*H4aB$A)~^)1IZZQ;kQ
z(HAg1mzRJqq(A-2{+!S1Pkg}YNCk1B3*ob!hlFAMS|Yg9j~zcQ56}e4DdO{N^Z<GI
z0M*A^?T+(bm}!Y@)p3#;1yR(LU(t6F0l<jhvsRCvpi@@L?7Wr>@`4S_{?rJa&f|kk
z^1~>{W!3S#>ovo+MLxYMyS}y!zRpx+=mB{On3`Ed-6&XN-JOCpa5i>lVHU870(o6*
za<Z8e1OS@0^TP~=(f`4xyjP^)v!F~R;XLUIAb&A|gZ~Hno#`X>L!hhu2YDicTeK&A
zsP-OCwf&6_fPn^d5H-#jrYr8mu&{BQHwKb`fB@X&HP;qb@@RJw9pn=yJXm5i>~%FP
zl@TJD+V|}(EG;eXT3V)<F<$rYC%LM8t%&5k(QP$c{_ys2+$lD`z$t%-gp5onLZ`{-
zqyt$!jgzUJh~vCb;N~7u_)pj>wCQxR!l=~{0WO!;{S|)eW7DBD5SOe#l^}ou!Heb-
zae&PSk$QnMrNpgDZ~rIZxw*N03Lks;w>XXqif-vw9`~T`msoboNJ@4#ZG1gmX0Y9S
zA`7$eAF?E85+knxqb*el-VS^Q6iCC+52)XCb#w|xTe$<=qSdh`xSLGcydV);qE$bw
z(7B!`pE$MV&b}VDWdgWsnLO~Qp8!N$$=$Pa@rDQF5BAZBiU(g_Ot=meI}@sVL3R_`
z^ga);DromkLbO9iGODstt~K;(00BEs;d}z5S{t(Qh0PG`K^R@?&l^T6_&8P70nh#f
zz~zG4qwjCC^MKrEvtv|)jo=Xx5w$vfKi;3afH@Ih4EP0M$ZH>P^~n&K#Om60481u8
zS9{{zb(2KY*RNl@VOu@E3>jz2oq?_28Z3^RNRQ?ZnUO3N7XJYIoJ6Q?M&p9o?X37s
z8k4$fGyEsgCl4l*;<;8oB?|Pc1MGK+I&)>glDaED`Hc8N+&C9KS?6ij8W&PgNmGM3
zR=eP2DgA8DWj+OPIeI_x$S+>>R)?fv^^;#S-$7>%HUM*}8U%@|st>MCnR>h|7)3nL
zuEDhV!r)h-q*WGC{gmy;5X$&EY`3fv(8X^c8FDW%EgJHG4)`+Cw$y8`_a{xZSi`n7
z!gv$!k2m<$X&Y_Ut(fk+f2GIA8=0FgN*axUn8+<@R;oM=B95AQ-!shoaG|Mdr10x+
z4_jHe8H_&#o`6JR273jMEhQj<gIF6G84<$yVPI`h<J0M{uR43p%50meL+J-A)ZKNA
zZQs~v)nopjAi`E0=apGy=(OO1qVEV6kiTnyf)=XMw)<ywb#;*jr0d<l+=>yG?cXFx
zS$Ly`?fAb>1mV-~!&UvT*MT7j2^To`=h}VBiK&<FPWJ7L;Rcu^@e(LVI#u3Nbuo1P
z**WtJe>yxOlfo<xbq~qK2DMk;E2w2a|59~LHF3VxlWv!>1Htd}@bco*V3ehA;L^u~
zw--0{`g8R${J`6<C0l#9zwJp^vP*pOrBR?PF~kOtoLcR^7^MK`<zcnM@W-~cwqEz{
z-Rlr~^m6eyph6^F5c%kU1{F7Rs_sqk---ImD;?K7KWY~^DD;*jHhPeS-Xgm6B7+tX
z_u;<VzqBw1lk|h#Yk48fpl0DzFd)mlM7qXAGCT}Q1uFX+-+Yz_3aV(W{Gr8XHDC$~
z3Jr5`U2D7&(fcdASTSrq(X1N8>~H%?7+~)k)OF0HDcrL9$+US4C^5*#qCg4H;oYS7
zev%#Vu4|xQ1ym$`AOCiu3A(;BNtCV|^Y$-v%mDOCjhBb#pc+tFMF56D_rf_Y)B=W{
zD7p4&Ho6a_cEcCs9NN6-d#!2{hN5LaX)<)`B)u65comzC-=Jx0a7i^`0XU8db)^gg
zs|TqubZnuXk&82I-5R2ZPxD!5$tyC-(Wwx2XA~2v^@Ebuh2IjHO^$#nL-15VUWQ_!
z)cccW6~6}!u+=Wjr9ptgY*mY;=+zM6b9p74g*L?gp}wAEH4H5@2(r8H4?_Oe_vhrV
ztAXl)TDocorE~h}jjajjdN&26_>CF9eGs!^kj=u%wgFY5HXP8XWp*_#gVKO|<exLi
zuxa$CRp#fnd3}DJoJo1X#{X<1lmQ-8z>Tj#_cvQP$wVNtoPOAEHD)Vg`Rfh@7x&@L
zy^)cTL=ka$`QgpT4<Mh(nE)mbt)B-oc(Lrtw2J)j5;zzzk0n4PRZ{>#Ulrh+ZH+;O
zbcpBeS<?3VbY*QsAb_DdQfFpnnkLM+#0-=_f&L`Z2%e!z!2m#O<lV8`E6I|ePS6FN
zc_)?vsG|3G2KUhE11R8hBayg}>RFqN;!_Fkg5<!|6D9#!2@qZaMJY1ovi*<hOXA|}
zkOk5=P&Qec5z$TZ4Uhm;*@?&7E5qvpz>BVpfb^-17$<GljCSeGQ0c{1*lVTVy<{>3
z_~*Jvfya15;}O6?I3Z^lJ^^TvvMWdrudUWM-Y+)4w^xUu5f&Mdw60=)02C63Gu2=6
zC7}Qk1e$}iFjW3=Pg;t90~lZ$FiBn;D4~YHpnDj_!J6vo>Z!%-nC4mF0|D6}r@!m$
z?EIu7LHs?a76nj2{&(DUuyAM4Z`fux=vf1gwB<7q2yoAp15lGtihid1W^yb2uop<&
zG6B0u{Sm{@udVjC*Ua}(Q2Dc1tX}pL1Z5%<hoX{RlmB?gesvA?krF0wb7mP7X1#Bm
z&)5fP#n3KPPkj?d7xM<Cjk=1M{^s2Hl9)*%l<_l&PTTG6=<S_U1rF3m_|*nP49fxm
ze==mVg;(s4zy8iFG9$xExiPH`vVW;Q+pEl^Jb%X}*28z>>6AQd`J{>6Pe%Eak;a~b
zZ|`F0Az?Tej2h{?@-Hcz5yOB|G7xo15-LWOl0SSxe(Yz@nxVYgNGy1jlYsB^jJFTS
znyT+G(1F29e&*lHhJ(^gk442J&AiRoR{16XA-m?9^(d4un!)&z0eCK}?2gT*7+yLp
z0jT>(J}8TML`~i|GCBoN;+`4gEcmm}WSLik47k-gBOn!HfjxX2wuKTV%bG~o5#KoA
zFm#57c9ApvAs{sF@W@z?_y8@H&f5aV-~B#OxHn*I*hB=*KL`V4PzKohkM+l0A2z9b
zS6k2fbkS$*fB}!8LD)5=19E;PkiiXrVT?`|C_|rr3<NZfQUyxYL+di1re3hgf;W{~
zZbm6(XV7f@X@lc-ifd^QgFx{!m?j4}QHbK{W16=<-n9VL%A_)@y0z=WES&kz<d-r4
z0n#1d6qZbN4-x$*7;7{x<duw@;ewzaGb6l}%0W!lwXi@u;?>Z3jU+0C9_(k`%f4eH
z3t<F)g0xkwRBat7h`8<oyAFV^Pc-qTUv=(7_9_#*=7$J#&`qBbluz-|J9k5#3%}=6
zp^$<1rPTtc^9RQ1`V*AOPE_Ffmt<e$ha-2xCl9{9M>607u)e)+ptXf!P=D-S{FNOZ
z0}hN)2AcU){P5cwSCGNY_QMMvSN?+^f3Ybpzx!`3z?b8P=iZ$22(*RsL02pIHgPhb
z&Q}I5r8<`tDHB``$j$osr=OW8=N1;${&;;W4&)FABgGa~tTgIw=(G8b#N;vHN6~dh
z)VA7$!q>1hMV5ei=K;9;B3^R(f(H5Z>(`E;O4?8W&PfMH4-NZc0ZF3l0BCb;13I1X
z(b)xPqZ-n$FaKV7;e)*s<ASa}-roM<-==LqsrO(j!PtPj4g$ado<U8s_k6)u%5g@m
z!5hGrK~;xjXJ;o4_EVirnlOo>&&r}Vz6$4Ufn<*I17OCDe83tEuepspweav*>q$#X
z>vI__r2PcUDTo)8Aif>vk=n~P#u9s!)@K2p*!`-oZ%uX`$gfa6eJqiio4aJ?S9a?a
z#xS<P>`{Pq7s@!#AXUsTL;1IaOiC<wTD65wNk~c_*Ak3NXx1QFH7EP_u!Ri-?y$6X
zI9VZ={B5^}hw^ZxWM|ji7JnEZ$%De;=Q-9Dr(bcwbZW-7X6op&vY=ATz%<}c6DEM1
z4})S@UfHLah^7}%fRST2z%&S(u=CGM^}6peaPA`IQf`Mke*$}<kpN;=fMk^)()V6|
zA`rGu0_kDqa-0h_-XL`PyCJN-7SEVCc><2*94fP;6B$wfh4vZ1Qe_#C@(qyn<`Pg`
zfSz~@F}oXbB8+DIdass`nyfACU5%>7Un+jfp}3f71>!`&99%?K2H<=*Nq`6_$xF`z
z5La<h)}Nl<1+^X)8<Bv}VaALbh|&6uUb8<=oC760v(Zw{unx&_SXgcI{?DQHCC<>j
zZ{mian9R+{^<O311}_b|4YM5?UTXfRtj0C6D9f~JzYu=wBBkjns68J2*%l{+Oh6Tt
zH7n+jr%wfu=aW}LK=s94(SP+udgv5W=8R4re`bl6Xm`3&-E9Mdo;9GzW(1*uiJG!S
z(R+}MVPg8un4ww(QIfXMCKU6GT2eQ$-1v;VRj59%<h%G&*T=^v02GOK>NB?vGaZ&q
z2fgJ(02+GAvMJav9JrRA$3Xr)NbL&Cs%yu}mFMpd4l(^1Q*Rv>7P8eY76S>EYEuU0
z7Gf4lW@hS$nf!e`9Hge=($Y<T<93)xj`N#{&v!zZnclV@{Xb`6%^gmhsgsrc{X_$>
z^gf}y%`)Y$FW@f4-!1X9P+*)_oHi;K<uY2zSey@9rH3(q;2wXGe}4Wiyfd>uZalPS
zTG}-!BrFb}Z}{&J>#MQ8&8SUylD0$~`!Y5L+|L&4n~qA7Q@8tfmzz8_vD;asKNduZ
z<}wAwJj?&}EOuKfhi~M4sIthFM3#Sd7Pw7$(tDF21|B2OVAChKQZo*hNi?zRy9}2}
z-fkvwY&8q!y8XLvSX90Q7rKU}8n3k4f5iz(|KzSOLNkLN2`ZB)>-cwOnknnR@Ym<n
zCowdSsL`^DZ=~tVI9<m>t^b|F`>OuLb1SQtA82<J+&Ce@LQcrY7bT+qY!2&qQ*Yfl
zc?aTGj0Cp@O)9cOB&uKsmQF5j0xt-MJfSH=`ohANKeSzgd&DJh-L!oO34+TcT~!F%
z?=Y4}5Ur(g-0U|CP$%Jh9sZi&oFx00j(vW#?4CM!%0y9>%}JoIt^37``8W;cosl5_
zbdz_Z&8qpwM5hf1O(RwfG2vItLos*6_hx$*?C+Q7G1MncQ6Hrv|8CRDJ(31~a@LQQ
zeuh1$K@AP{4hp;bjF#zi^`=^r$RZ2)VCNx8?r$PAn=esQ7o?ZGO|v{HsoP3gZ0UoN
zxWNr~;^WSp(ez!%#<So=<<Cf#{DTFiu>_Yr5<Ycum{=B)NN@pLjx$ee?KWpIPs9s%
zKOJ4)`+&sPuW~6J3e-*6(HSI#ZHcpALPoW>cN>2y*O|E>ng3KBR$BxP4Et-aXrb^<
z4cg7@TOHckiNeB^DaigvLloW8b4BUCk!g6yG2!=-WZI-mP)iSM<JIoqf0rEO&mG-J
z!qhqP=*Oc(;i}04#zriV9g%d=B`!#~1vNoC_=`x{!euoKkFVyxhnUFd{knVLue&Vd
z{Bei+1#Y`DLO)gC+Yfc>>ZR*q7z1H6i7SWDhze~ZF$6ilHE=bc00rU0@oF!-($F_P
z6#jSl;-ec*J=T!-!Zw!*kSH#P9{M4OEF{>dkCT1tfhFVFA&iC*{G4im6H$2xrc-}6
z0qK7pEW-Hl|FBZxpPiW`#Q*0HD*1oA2;+b4)Km1)M&jR{J(UxaNQ1|MM2$m-4n2hb
zeLhxQxl1rpKtS%;i%V1Lns@L1;^%A07BrY*W@Ss$ym|UhjU(!D7mpr|`^--K^OV4=
zix++R`qyKce0FsDjs3vd4YR=zyW!?#3)iNVlDx*kzC^&HWSAag9scKuEL<Z0JdWkV
zCFbAHV)?AW{?8&4Q60w3%}h*x-#hdh*uvhO`e$v4UIMtK3$*{QPr>OHZl+~=E@}Mt
z{R~g1PHvQzautQ&S2I>ARCE@zzkc7aw5LR-Os4d@nP=fzg`)d!fH8i$QF+c>E8`w*
z!k|a3DR>&((--{M4}amud6V(b14`;L`{2-P-`|UD^xklzi)O{JL7%L4LW|gXSJYNh
zzl~o|DWwd?QGTCIRPS?Rpq8oZ+4D#nl@dz9vN6#o)HK~v#TmBWvka1b*Aeq^R50#A
zw4F=s_;1WCk7f_#UBBo~haNojBRV}_=QqhST`!3)vQ_$vXw&_5vV=JNIK{np<M|gf
zCkI24=EH~4k-M?#w1MTqFPphel0iitS3;@PPMoH=UrAp^F5tm~C776oE^=B}p>dqc
zSNy$c-;~Z{Lgjr<tYc_0TJP60oviLeZL&P)y7PgBX{d;+&^T%QyLL~hjFmr^)cCu>
z_D+vS!pI^SJAW>w&lI648}th2vMxAJ#D(a9T{XpT6~q4rd+#0ARND28;@HNqFr$wm
zA~5sN2Bk<51O$e$A_z(gHK7P7RlpDkgrKOXGz~~^DpC?46d^!J0-`XXMTHO`B%rh*
zkc1W@2_fGm&hwmkuXDcZyx$++`<`>Iv;WNA`@ZjeueE;bx60n3&!#$Y-c!ZLqWeST
zqRph7=ZUXJ8m}g5;-5W>t!}whKW^s@l)>wR$p<_lm6X=+)U$^hweUYlc_MyV)MA#h
z7NZF-MjJbL`%R3PVZHsG)idIK1z<+i$oBCy8oAF&5fOa9S<2J2ISe{%k$C)*ml`By
zgs_m+Lt1=~mOCv}nEUkFphLI7RUZD~MPlS|gRN_%w$OLe2$9Zu%Icnu+%8pV_#N}T
z@H{jz8sW`*E?=#P?^x>ZTnJj|S|c?O)@UoVqu^_zJNQk#@1*cygI7ZagNuYcJt01%
z{LKX0p!w$@cJ$BlZ$BEEHqbW&^;wM0xM;o-vLrYUwsv&CRQ&surw#98D8-x10(TPS
zK$kSL&t3ZXAQ#x1EeXV*wgA*Ye5M>?#|XF`yTYQ(@)Y~Vi8TdWY)tpYCWZj7+_eQ*
z@wW~FTVjIN?wwacr|HN1)~$v~19j=Ur3jN*==E%h0|m{|N1E1;BwS7{q(pe}h8*V<
zwx&4aIg$WdYIKq=@4p#S95>m{)1<ya_h8f<khBHMw-kC`ep<-dqNLN$Q@;Kl44Uu4
zs1vl=^cM{UK|`oLm?B2sS<q>EBEL_GFCiD!PXR5TJw%nqOrj5=LmeP=a?>~leBHFV
z#SMCc_mRb>&gWIFN_6bUMXmM+D>P2*3r6V2t@TKGCP}b0zT&^w{3W>m-ws0m`BfzG
zlUa#qpTFR$rty0K1fr?q4&&uuFhd>5-P+5x?{}nN=08$}Xl;-!*2XnN^3HHu#-6CG
z$r2VHgLMFa%rV&A@0{f7)$gM~G!G1N`16<ugT!i;$2GSw0}LgCvQCeOK?}g9FO7);
zGOM+{;S~l_)nBz)5BG%r8DJ>EOzW=po)FK1mKt~%55-EQQcmxU!>-9w%|Ur+87HIz
zBH($<apUHZE0a2LKi?kRsM1si=FLXE%GK;NjvYx!_O$0|_bu=7{Ia99r=bdt<o&^F
z@{{%wK4%%P%qKcf@=5*ZxGJ~@bmRno{VnUd5+!>6*(`v9@fYBcyuASCoY$_1^B%b>
zCA4jenP{pRxxz57=6ui?M66B-Zc%$?c~%%1NB?TOQ0<^2C(>$JYc^C(H_j8_gEdml
z73pYB)R&Kpsq#Qgd=?_I-xqX80MbIYtkuPA>-=THbTJ6Ci4nB3)cc(J&B|Ihp1tWa
z*!`Hnfw?Ul_@FUCxKpwYjO0l@yLPc`^{c(DOQf7|p{QTPqHfc!xfu1w=v}rPwa9@M
z*ofv&;}s=nT&eaQ^VYBvq6Tga4dVGwWim$rQV6iIJKr(qn#%<PtX(}JlF#BfYi;A+
z33dZ;2{_uq|K&JY6TXHu2gY8F)+|U^Ykb3{E!1dU_-05A<RkmHZjk!#alM1i+qmP7
zFa@COxpl00R{pm3nHq!9b~JY^IQ8ipD_D3td@{tg8tjayf(P>o_C_g6F4hNsh1aua
z=$>7(3U&qH0*EQWIIM&(QOMsWceeV2Nbd4(j57HA#OPxx7X+!=Y;K`H;(p@`jAJG@
z8SWxC=(r#K^x0P~H8Bmlow)f$F@8|?vvKpS8QNNE|9JieQUShJV8>{NuTP9FQMm?m
z;^(VWQ%uU<1<6dFeJ&|g2OFKZSOt4|d(#(!-U)#Sg9AaZg^nKnhv5>(o!v@h?&W`B
zVbOU8d*O+x6@?%~1snuT3+M<ikig<86^#6%!l$*vcw}>47_4gZmEbmX@&QaT$0-ZU
z;l;wyASg$rZ*7dwH8G0E2ptn0ap=w1+iWMQ8fL!QCQq^{1GRs|^IZXuPID*<X(Vx8
ztORB`l3YDVEp9w4)sgB#J%o{S^6&2o$xr*Xe$Rz?*f}VjWt&$ugt$=e*aR{m2nt!l
zEF-E+qz+{kvs*e<(Kx(FGJHC0@$$-XT2KQ=`?TA0lRFo9ctB%kD?R%u(ya6~j08gB
zPv5MJ=WqB)Uz3A})>j>7x(1IX8sXTX_L4CIM*yKys{<Nc`Dyr>AI1>Af!}n|<LJo=
z1d=z#(qz*E7#`8=M-dXlt5o;d*$R`tC2>hoYo9E7LL>vlBlL!TV5U&*XL%2(5cV`8
zt;!~shI9^As3>Zf7-nSzoP&aSDbtM-lQ@2})3sg5rgA9|8l)XjwvQuBeFo2|+fVI4
z+ZyieHU}euz{pB?+p??V`UCpFtkTB@L*3gEp$dc23Kdz~`@E=mGguk6-&iN>G}YXp
zj58(BL>ub6$p;5Y%*gXi@gg`uV1KfSTb}^0GAn1BV1yKi;z(c9c%?#JM{_+|jO%Fb
z0#S}tN%qRKuJebeP@QsZk9I_sG;81@Yx+06F{jVwkvcPQDrJ8v#9iKnfo_39&({ZQ
zRIiP(-u)CKv3J$2O>VLvKzH(k<p#S_2Yc?$6eb8(@JCnvv=9kcY8b#Uw6JldaO%WZ
z$E7(5oMczle#czd&GP~l_|yXN@iO7~%@DJ4?eX{7T-iZVQ(kkSX*mg5WFk@9q5BD!
za%WAcN;AAZv@~}bVW==DHnP*+o$K|8@FK9<l{m`Y%~ONv(foJu<oRV4hg;6^I#O1)
z-^KThg9Gn3AEiBH%~7vrG5)yB1c`Wcc~VDM0_s3+u&+Ke4`Uw4B_#qAm3Quq5;w57
zaVe)`ejH{-%@oJ=Y%R>pgAoZXaz^;7`5aIj%!|~cWm+IM;?^1tnnO&(r;I{tXMd@z
zb92&mjy$9!SOO&S9>7B9?4mz&V}@-RI45%n=EdKVJvkxjV%g5{Cea`Vab02z5hJK=
zU+TF8Z1xH^SUQRe5wUGLTgwETXv9tEwAReA>Rp?ker2!={GCFv2C1iL(hmG;Gu^lD
z$@8v`i3L%=(~y7i0Y4yG9wEhDaKpB+iv1wAZKKdC^dZt@syr-j&J4r*6w%LaH59w8
zvw<(4c`7C!UW_9M8dyk5+W0k7tboA^G)XpnF@m+<?4B6oI?kqS$?$YAq+;V9tAVOw
zlDv*-+}(;pn>8ghKg57R5${);sa6+r=T-Z@WA-Wab^UR`Xf3;17%$Yqr-;JWPJ$Uj
zKqFP8T-ynwnKy3M0+O3d?BY4l?kyZWX)ttdDB#E<G4%GvUMdKq?GzexL{LcASd@Q=
zSG>uWK9bimfT2+4)6qD`OWad4&-*q*0*-taI!rz*m%DQY6hnPvDp89=`hIQrik2AO
ztVup8gl9_Kj-F@VW^1GIjY5QfS%@32xP7T0FBrSH%4%9~zS^gd8wrM{vA7ufU3_;u
z+@)SqA>ha^EY&ngLQe_6cy3Tf-aFPC)&uHm6WNHljZsaEVlYkESFPe7*|(b_?;?tW
zS^(@2m-hfiVrncPqUvk-%YI16EXe!}31(k^Ep|RYU!vp3n>t4mV3!nw8-M4`^}X%&
znVHoNn0>*8FB<kaF^P?Aq@v@v0g~PO+2nW;;2+p--<;3<@bJkf*vuzCw}Y`2JUI@S
zJ&sAo_^<X!7tsqS`fk*iN!Fpge@f!e?BWYm6TY<SptYYH#<3xGjOvld!-iGWr%9Wy
z{a$d?FnVaL_G<~=O~k8CcoYUx%Vs1YZTw-k6wR%C3cxAifk6l%(0Y~tv6ApMa+V@9
zAbEneQN74Ep$ApbkZv0Z`Tko7y!I*EO@G6k*SKan_6@mr0)Q5?!ouzDngx--A`mpJ
ze)kgzVxD>ln0XNpDpYZ<dz}6>CYf&GowJ+%81kC<=3B{IH1QAQPEHU$7jM4193hcw
zjU0e@kmG}H7jqA7-4V~&0%S(9SwM-AWZ2;pVA!nvte9kdHOY{89j7)SgbL}O&vLqy
ztpDx%srXY)ZEn007L^J`OFQ9Y!@i+)<ZZxpw1%6}o~=x}IruxtIB+pqjGkx(13QVg
zl?r46e&HPETx9s>SJtKyL0U4!uFkQSlF8#8^#QbhbtzZkFXIXNPHi#Mmscbg)no;I
zix2*f{J^omq=)haPNpwg{GoX)*Oiq^`#Z;KjPHPv=+VYvu;jL(lG^ReLl_c<gOl+A
z-kb;mn>WEle-I=mD{uLPe7qfA|GcT=HvcUnSuA7)t_UtrAN~|0S&#DyfZPD|-;EjD
z_}WLsIdp;YBEu*%EZPijKgJ|&P@*VpEx>NXWHs)7<L@9{Nqi&2Cxl%yzf<zp0v-Sx
z+9k~@b8=f-CPwVyF)p&c$#%;Z5@^L{K8b<!$cXXj1VN+{@0*mg032c7yauUFi#Trf
z`!_B$-wEuUN&<ZH2aZY5wIWlyZ=#rg3;Z0ji}%>Xo!*is4ACvORjiQkpLnPj;65}H
z1ls^lKu!?s|NH2~@N4EI<AB?(n8U4Qj^?IEmA<8AobLk5#X695uxS`GXGXY;k94(y
zM}g59Almry>|1WmSq9h^OyR&9;!dbjfg_^X*!$E>74<N+hrW5L5eGt^^8RbdZ?m^?
zXINlr(ymz>rdKawRAIr1(9{BH@O@`i8gi~aexsc#4U(=1`Pig*a!Vwh`;VIFk2#oD
z88^T~pzSuD?n4^G1YchIN=$b2Z%`ZFV^$HGR0(!NRE`Avc}c5EZ|km!_=v@OGom2g
z!utH8pKw`WFsO*ZYou}VFz04?Fu<3uV2Vb7-q>8zUJj9(=19NzFJF0KXX`nT!)(=C
zq0u!49&k|A8=ka%FhfUej2W2G3J-$*xiOlKhB+YhLL~I7ZE%<dT|a;Y8=r{_gvRoe
zs4HjyhrSa)6LhpI4!Bi)i^sPE;nF(CUS0=F!4k18cM^57K+>50LPbRv2EwuB8~t$h
z3I2Fn7|`+kO6=|XMx`@e2?Br2NtjMZ1h1E+IMXE^+&C%`rE?ju<Ky%~ehx#<=l(nU
z75N0X?Oir~H&4DZ)Hh4vqlUYJ&wD<uf4uP2TlX4LT<b{WuYv8fJoZNfr%ui&{<y0M
z3T4&F$&&GCe+~Q|XJ6aUHH~`>6PUh6rYnU~>M3fr;?esWU+1-4rHXH@{TS@5of@#V
zQ8d4mj%lqGJU2~Vf56)9^dgJ8IL%t3?(7M<|K2Snv9dPC@Yo<^q+|HA%=E2ET%FZ8
z{dB^gI_~~c>z<H}pg^?^%m|HDq=kRH{SR@uLc@aU#XDtw<4?h@3l}{Pi(+}2TVWf&
zFCp9oqCguRb>(y&T&yF;`tw9vCtx=z+ql|JU6sFUW2V8>z)Z%DBtrm_n$|*~v!AKK
z7&WI$6pF|O+Ibma{c$>YJOS3D&>2!dIuOt(%?((uWl3XFlzMr3)K{4Li`jeEXcmsR
z*r5TF)%%lKj2<%+J{8Li<cfY90U<8!c9aiGn1|MvnMH3UiloKM5p?*p<Frq&AmSRe
zDsIl-<m;cWGJ)HK8z&(HI~6ystsnCf8I`kSZCf43k>jC^f#K~#CQKNZw7Q|!O*=JD
zv2cW)`TS=gOgLAaG&0o4;Wz39a)}S6(SouVW{c7R1*Pv?QfKqmo0+2Lp&8<ksx64d
zx_|y!ge`=aHjH2|iJf>20FBKZ!0hguPw875Wjx;>EdJ7Z^VwClX9Vx=vzg_<$H#A{
zwtn1ivXK#}jZZ;D{!tq^x4U<e9`*IJJfc2N10WA|UXyo7&G&VVM^DN{{<+kpDY;JP
z5;ywCN-x8WOeOqeu#Njxz?uXh290R8*~v%z(Mc5DpW7^k(#^&q@P|@a<$HFwb}6!C
z)@XUYh<ApLwwMqw0}F>hlOh#Es(0epd7!yMz4EkMjcGI0`}jti3(i+1SUT{g_cGG0
zem4x!G@_6#jRn`fi*xEoT)QnQ?R(4dklj46UN|E`zo8~y?)#-B3(=$3(6EWGL{oQh
zqlKvdf`R1h@voT#^{!G25yNWUyEg76LHZMa^~NedZMmbk$SpL8Z}1-3#=UJjqLelC
z-kWgeUGpXe{-t$u@X?B7ghOu@;`v$$g5=jw9eHunUs3Y*E?xcv;X03>FbUGGkT|Az
z%VU8%x%TLk7@d%F(BGk47C2!A<cK``cj(=VpNVTZS^K)hmdE=yK4vyw=y*U41(i8)
zUH`(u^exv0&|*@JVKrK-T&ub<Wpz`sGeZRc<l3g_e{+U0w{qO{w;n^PM)7}|GEd<>
zZNNLoUCa#xG3zIQS|M<#`T}S#PyI!yui<3Ufv4Yod;hP{|1>cBC4Dz9VF8sQ-A}5A
zBY5ipZoDdh*u_Y9o<*8TSV{b0z$b~ySi7hYfWUf~q6KelIyXb043=--J!Y8$(i!3R
zZ@<>#Vww4`UVz%hn`bJGUm3RuZr4vl`hVt7i4F{$;5X=b-Z=Hy-yM$`+Bghs-aHDp
z$)KFHDwk6m=l*_rv#ofOdw7ih*+L}x`|nJjYmkO}LIY_Q{_k$rB-WXJW$lw`>@`K*
zze{B<L0|@WJs?;r`1>fEjN;86)_p?L>@dq05Onh2Jh<=)Ya<%r&Z}Tquw&^D5-{9?
zG^4OM&OKJ>rGI(sGf|XtYu%1i4@`aTgO)B376W7js?5N_n2_s?*MYlw+|YQ(|1hds
z{o!Uq4D%WzAdXYaGMU8|tl!|pum8nA+5o!d&R$>{PzibL9y|~QH98<64BW^Q@Mo<p
zp|+VFjo8VhHadnDk>bjY>x^4QuX(t8=qi3o0mV6=Z!>vQ<x(6&zBew>pSBjgwZCLu
zi2}H%X%+lDl;Rh&3=WLjEN{=2b4u)=xAmoe3&#)3noOA1j&xA}7uZps!duDBZQx@k
zCm0`sc5=d2CJjO3cJh$m(f6i#7)Tz?u#)p1jKpJ9;X~nd(;C4i@EE_-LiFL^mICm2
z{!)UVf|^Na<>p%;aL?c_R&h<EXRzYfoRqCCklI}c*hkEMpbF8{7;MP*Fe?u=w9^hG
z7da*N27W6d-QK_DNncqY-kbG@ef=IGxvx^r2jJc%>}~8$AWuP;OWe<@-wFpKy5q)7
z_Dx{jf*GF$S$rP}clG?T<zekjZ-R@4PbYNApCiA>+s7J^TyI0ixeO~p#>mb4m3k$V
z&w3CLT&wRjbI+Z8)97m?uYVgwt<xg04*sz<E{=!xqZ<rXgBA;&M5~^?uF_G4ju6++
zrsKxtlwdyQ#g>7_L;V1wJxL99pj4*<e9N>%@TV4YwgW?w&yTqXUD^tfiB2A6BL@3P
z_Jk&abO1I$xOTwsDCzXpBYJjsj=p@sG728Q#P_4R^sRj{{TCC<Gfl1n^6ZMq!(Df0
z23aawv=&LBTqSFt-uoJtve*KruI&e55mND%U+=P(JJ$;XN3eZV+Y}*f`|j5CJktc<
z5eU+Uz|5Z|N?HHK<ATT0FZ{%9`+<O}J*3a6o{1gR^;X=S3)BG0ISz;yEmwJSETkdx
z2i66=KoR)Ukt4HA>gTOWkX#<3NP3<ejGouVKmLh<4b$5$b>zlEe3(7&4QnSg9j%B>
z9rx<>r9uq$-ZM8?7Mec=f}Kg0*nxBkDOBoftoyonP&g__(m|$t-r480RA~AsR!S<c
zyTTUkKE513=l2SN6w4Oy@+go<xf*?#`T8(8hT;bJLQyyy83l9GT-uhMd_knosqb5x
zG=0(H1b`ZxszZH7wQVH6WnhBQakVXuJTg!}%b{`|6E$lk{Mz##pciR3kBliarw0N=
z(Ge2FHoF}Bx*r`f5~LE^r=ZJkW|?GBf83JCDO138%Q$8ALKX@%siCLc-V4X6&|K3J
zj`nEuH3`B3n!2+!aQ&BCNo&ol15|r-74=YVRb=A})2#t&+<bOEDv}!nkUhe5#8nhl
zuU1XOkAUBYhODi6ZCw#x09YMjve?Y8#EAAv+YyFUpfBA0)(?RP;w2$JLBLe%YX%@`
zvwEbkb=>4zXzAY3uGF_uM4iX%cGRxgtZKPg(oDl(L7}cdfetv@?gsWIMwwQ^1EJnf
zC!R-&%+C^tsY$5)ZWz=*J8EoB1oIjLte}3p^=N{cv|NRR<Hw&41vK~t^%oN(Qf-T9
zLlWAwJ^If@bZaUTh#)#H@@w8-0hi}a;3rX1qxrR9&^GLkN4Hky*$ybV*QJ<4-+fz<
z;(^f>$!<#>IRC$1DVA?7;*Y->ZAo8|<9qk^$NHHIC7#mRaLsT+G<Dghy3q?F_wA?9
ze@C3cx_kU{!oQNzN~2lDYc{W7l8f4&jC_k-|94lXC9|o1OZCgU7F_et1=1T(Od<$|
zHgFPqh~_td4@3jsUsaj#xT@x$U7=uf1_tM4vliN$i>l)M6Jr#C3NMkhNqw-FB`Ggt
z|LCS)nHmTJQfZ$<sN(!05_9A05+b6><jyQ>lKRo-ubNI8Q1@vqH4eKS8%76xR&W)0
z08af=d-kjo49oE#+`hdzC7-&rx_IanpzMIF<N%S8Co~8e3%I^Kbc_Q9b08;eeT_9j
z#iMZ`+oH7QQ9$K?kT{Vcoo(DNrZ=vMFY>ghjq6K7Oi?ZkL=qLSk_&oQ`m3AY@`*}o
z--=656Du{DFliQvN#@ZUk@{yg>lwYgFD%Oy!QH;bNay{#LAbzt#qZty?;FJ<>R+@t
z)@yo|hFI}l1grotP@6lZrLQjUD4B+~)yD6U^2DVEt%;^x7oW50dqTeR1d=c^p<mM&
zv#@Z{hI}dosKgc>9mFxWs?@e<McL^7fs2LG!}VqQLW_^COKMaxU^=_A4WWISh*Az7
zjg*wSwFs|9jwA%WhdFS8O1RWXKpd@ycJZE@G!uOjCks-VM|~3nGs3Zt-Gtf^@LRb{
z+4F7~d-MtrnK<XzV-A=s-9KQo+2qTwqcpllx?~}jT64wGO%LrcsjZ*)kKX>{mzZNQ
zZ7pAVW^wCZtOC|%e_H&m?e6>_nyvu5Atw!#fWW{f8nl~V?!}I}Lnn8%w(Z#J4tU8b
z0gB~pA@@LVfN=XzWF(=zp{lR(%9%TryZCQ0GgzJ0V!<41Ua4<)<p-!@6scM)l9t2*
zZ>13>X&bCiAX?ZydW#b0msoJ;OC5dKzi6W)Yi$}Q>Z+pyRh>_Poap&flRGU-Zx4xA
zCJAf#SS|eic*M*vfl2&k3&e0-f5Qv5VtwestoxRpw!OQ`zZ5jEG)|SD<ylgVOk`K4
z)<T2{pSg7S;=ZjbDkFf>dyFlwBpQ(vsj#?71@}W2ip?UBxe^v%N;$GW$#AS#1Qr_6
z`gZZ~YY`I0<oTr%*zz<(dg%++5O7KaoZ|oM6wvm7t7s8jjzCnxSwKYaS5^!tj1^>p
zH1HA|n`rZrmZWa}%NtO>nfQNq8_a)p6$ikP+bf5kB?vyfhDz?yC;-a-^O@8lM@U7Z
zqaxr>jYD=uxNjkq<otYgJdC&D4tSSWRLhkJTvef40mKw;iIAKHWZ)rh?krjhsaCWj
zv<g;Yt+%uwo}g^)-r9jSmp_ht(SodZY^7loAc){N_9ZlEO7bCZsfC>uU%oJ~Z0U<8
zq!F{$&|61XakW6-%`U3kjE};{pwrkiN#&--ZMQc5E_7n|E}lI)38p)<%(9?zohaoB
zF2U6bpkR+X2{E4qeF8b9JDZ9tI5Ym%0zA$4j2z+GBnZYM^?<Z@Z-7<(?mE-bmOA*C
zjZs|@xc)=5HBJF&UjYth7@%OVNucNgPDVOGt5_9%Yg2?e!Q)K1<;_Umbim~I5sZeB
z6U?-<Q<A(+WgwvA^t!i8baa_xmjV6dXLah~zQzz|r$2;u*8}%y-#oGiHrrx405=GU
zeoFgNU|23a(i79@Xj=|8G~b+KH7l)2YDJaXfT2tRuPNg134v}74Aabf^8pLAtRwN7
zGxr|=#xgpw>trh|0!Zh}u1wDA_nS3s4cvC@XTW0k(kwc=Lj(d)-OR{FQn+e!{RKE7
zy`LrIP9D#4f}#5v;=dy7FOrgTKFHJ$3~5kYiG9_A;MEHm-|E(?TS)50TYfep2&hl2
zl8ATsFE5GypT@NRs%HPcMgRXdJV<#$7DMV}WL7{&YaB)Q8w<&_YBMqAmLJHW$weAU
zc#kvv-@N4i#D7cytZz}GsAWhp=qI*u1J2;t(iig3cqiL{{M+j`E4WLk|JFV5TBogJ
z8qj~0mwHyh<|<9TV^Vpw0rPSFVWUS=DnAUMk=0wZF(0(hQBl@Qg0SDZ$7)#yD*`&E
zhaW-2xQa9t`>~smCCwo;jR}VCzZKS#_Jx4BHty+ibxYBt0s$_u#55@nZGIyeDgN|U
zqk^KsAk5uWVh?S(Tb*JQp!}eLku=PCvX_7cDSSD6s+D>6ZERxNDanJ?>;gJfx-b{>
z1LyxLARqGkt8M7Nx@%CP-TzN-8yW=qa^ejffc{1YIgBRN7s%B&s;o)4`tgY!t(eer
z&@NUC252{6^bJdcu+>aw0%^2mk+UVWc=C@xCnOLyR9BO-CPVd*qAR@DtXoubKVM0R
z^wcy8)bo&~jixos-v&A$HrD9{%^^HA>+pJ$WOw%b0P2arsO?LoU<zFrEylpBx1Y0F
z8SC_fnb}ZB(VcoK9u#wfhu_PU5dJe0TZ{!x)!vs{G!S%{yMhseJVp&en`?sOHY-`;
z{w^^xVcy)Haa)Hip#t_>Fr{{YmE}Nk4R-l_+zm5c2|jg(KP6iDR>?cFMKV3Fi3M@}
zygYpNx0HI~mIIq_tJ=+r2515(QiuD}ln8g4-1u!`YMmaKc8Z4n`gVSNIBR^f+80+#
z*?Rf#Nhc(-zZo%6R@hJ+;?y+*ye{|gYuee_=-@L^En=gwJM9ln9uq&H5npJN*z$W>
zeoKwuu=l`Sg64WPu@PZ<`MD^^e4~dF+|fA~X9Iz@?>u=7$uTEZuP~RnTh}`Yj1c59
zbHjDYTonl1@N&uDOh_A|&aN6^1!ct5PMl_W-g|oZ`ZRFgQkj_^a9wboA@=45K~Xq!
zfZ60_!O&pJP#_~+Uk$;re%hP#w5>bvU+bPDV#mb|N%)>Tv!<=Z56K(;G?pMFvU^oG
z)EP3`kP(s<MTGR{f3b~~jPgDYv}W~QyiQG06&VrU+RmamBCMh-sA#}?{0_;!FcpJV
zn&ox+(KQz^UTrOPV!1JMalLWyl##YvH1WdMo7B=It&o8WGTQhoo!C3lG;@eYBXnR!
zNlW}z2K1`vg3ufKQK2*TP0Po_5HsZAQJ1D*Y8U^M9|2*5tZs>&FYTkbDisaP>eGu5
zFf)M|2b=xe?*S#Wk!BG>Vusz7TX&D#&1}#7&UNPt-G6BO;GXf~g6xj-JO06vdU9ys
z!cXTPCeeD7vp(NzQ_}lBD(9ykw`pcvKk@qTO^aVOfv*f{2ah*$n~{}Meg*m+{YI9N
zsFn4zwuSW(b#+6dBP2rlMjhYPG9-2c_I?$0OlDyGa`-wC_-sq(lXt5wvf}8Ola>b{
z&$5|WQ^`8MSF9m-!m68Yj=2rn9hDh?*w(?unFKsYxs;SS^+d;)h?=T~2xqPwuRqqc
z8a+<Zm_;B9ArL=5cWb03`EZs;LntlBJYQoEvAF+_uUss|GQ126sXI6y<A~Dh%2>aG
zisjawTqg8%vN={Su3JM|jCD*y5O`lsO^SE!;o5hkOByLKRioPaSh_M~_;(MS<??j@
za!mS||6b@-?@K5}Tgz*<9dMNI`X2G4)q|@&l`)=*{K;u(`f)QMr}w>~o|$YT1odj>
zLss-x3sl6h3=>`QHa$+y*++BjPU@xF*7YYLPAa8X>*XR@#eqa+qo6fLPEx(z=I(J1
z^&$%=i-Bz7EmUBC<H?AR`lZrWxj$fiVNR$p*}INU=JulU>BVDxs0H&$VsFP`b+VQY
z;Uh;GmyH0;d=XmaZoF(_cnjbzFHhd?`g*Zb+|(-XbL{5CNA=ykJmn%QBj=#bYUMHq
zsA<Rvf`rg`mW%A;cnhk2=0#K4d*;s=ll{@gYksHuog|RZ*!JW8m9XDYn<Eh7vng(R
ztnqX>L9xXBpS2KFg1wfynHKq61h1!wQ!ur?eqQ2?q#7VsWRrprdvO@l+1pHciK8jD
zUR&u^&hoE&$6+c{EM>=zZz1B(kAFEfT6fadoiUj{rt15!Gp{6>7UO~nE$cmigrjWl
zY;uBMmu+47|FPq@y=%71<;q;^@HmteDjzjPNgumG9xZSx*sWq@K<-FyJw=vDU#JQ(
z9K9iS)(C#TsZT$Gp?9?UKy$+yGN%@m#hT;+`=QUt$}%b==~Hi%u~);z8N8q`&k!P6
znDEaXB9Fr>$+C2xr9N+ScR$+Y<$|E(9=XQRS92rJrtW9>@GC5}Y{GA$^wL{Z$XJ!;
zNVfu?Vh_uZ^zh!e3*EJX7)veN@DNm*a`Y9Hn_+nm(F~Hb8C}s6w#`$n$*sE`fq2J`
zRu4Us#N@nToxNo(KW`aw)`H}0{r9zwhVhDb@t~nGc0}crl|T2e+-;X1?-AgCn330O
z?D~@TKCY=3oPojePbf!)rcb%al2Wi&mcRDS=p9HmQR(ATY*mbc&U>u!)?FS_tR7E(
z*VcF&tB*VsjVOiH6kWg%RN8+E;x!x=4urT>Ruc`p8~U_07<ButLG>4B+~st9Vl;>@
z3yD3fvH`a)0(H4gEh_XGsyOF{oO#9b!cU>79b7nSZ~AfL5-p)%L!)C>rE6z=@We#W
z#x>!4Wt>&>`J0!z6UR2|<!oF(M3#BXicqm<$q-c|9r8!Z>X8bVUg(fUW}`RqNN^IB
zI^<MoV^VEn-Mqp5Sg;8(Cv*CZD_^@aqwG)-bzvSMdN2EpUqsRO2<lj)PyQvEi+EIi
zL0t%`C_H)@tsFJ4{Q0$dmT>%MLU61nYO;RGnOJym@0<B5%ff=GLd(?4(G+$FE>PL%
z1X-^>3{OB@{@3oL?v<jq4GfsXBh{xnI)1jrbR*QJ`#e967SLK^&GKUE{c7JF7On&V
z8}-n@2l~{di+XoX1w3TmnIl(f^Q(eM0#O6g=-s*IET0Z+S$Uqai6*(f(&iq&ILNv`
zc~lyvvhM1*)~?5uANYiP&{^XXdk90s;%;3x(>BtQ3feC8og9vR7007Ln<Am>%<-P=
z{s<4{zD$T)tvR>xJ!?5o&nYqIlDjCD+WA1K+wxbiM;;)d%FI&X=Q<-}0?)W*h2&_t
zsF1^i$6_qj(=p3P-HtdNgiI-p9T$`Ygn>k6<AwFssV1rCE(P1R2b-KA<QS52!jE*E
z5~9wMT98FM194SQFQW!oZSUunLA0oK_lDTpfdpq8`f0yxqT`q}Of?$hzpicPR|-*)
zaqJNu%Ya}rNqW=7Q*I!qo~)qSYR54eE=iT%AGYnp!PZJN-k~S-=C#cP>M~Zt86RA=
zx2K{n>L-k~H@>rHle&z2Gn6#_#>3~~oZEZRqBQDw`toE~y&I=TW8-JCze&#}<!0)m
zI-yFmH&lGCp7jrV7+sk*uYoiszjvz)J<R8^Uy>Um+~c3@(8jQasLSg6yOH(W=DdQi
zm?P}Q1}%*;gUJh(x{uk%w9O%!q~^~NHa13j+zsUzyMA}XRg|#QI<n3~<4W(aLQklk
z@bf=S{z=|z+@q%2{PI1q_tQC)JJrQZg`9wLHzXip#L76^oPV$~3&f%@)XL28B~_fB
z@7JeYs_VFZarNb8jD2|wb&ba^nFH1&<s8QCzA?$Ea-626AFugsOPtApEgPdxMA0}+
zrz}Wbt#NPVWPn(Ce0~t=i#m5PqpB-b9!gK2qSdwT;aa|t1&o}PeZ$;+mkBCAx6Vxa
z*y2}oayuP*<I2I?W5lTIsNHV{FI|j@LJ<n+#lif?*0ZKj!2B2LE*E7T?Am$x%RaCZ
zEd@QTsQ>G@d6cl>NI9c%=)v@$U+W`B)mp|EUrln}C;aNFA<F&K1Gx0%Wx+n1h00vt
zM>*^_rkNir*E$SLjmeaf{Og-#ntWe{ew%Q<vbOB?nKv1FYnxtLrrvfYs0G%TfS^Gp
z*r}4oo=BwM7i0q9z~Qy&)wl|LbjR#qeQ@a7zC@QdCKPCx)6{a{$+cNVqq9d`a3||j
zeKKa&5lYgUq%6i>Ly@e*-BIW4J5$}}H%!k??<<c$8`ILqklhHdesE_pyY`qWLt2L6
zrJkjVRcoGqs*8!-#Ra64>*qg6GA5rMol{jh`_ET6Ix|C2tI>OFGwQ!>M*Q=&=G6mV
zaL4T%=QmhJG)QseY_k^1uLoN-Tm++gL)RN*F&(`pstety!qkkVU1eS{6yFhAlujiY
z2ma(!+Q?|^s>`9q4QDneD_+&!quYBzC93Etv&B7k3Wpl|+1K37%E(F_Vo7v<ZgP4$
z@#v8O*Y4@Bm;5KqS_-Ggd6f}ct9b*g=D3WM(-<Cr8bw-htoRHfkB}U3<p0vzBi*Z1
z*7MN)I6nbIU;1)*H1*=ZyIEb=ciD5e0$@4WU2($?cb8RC-di3xem%tTV5^~ZsOg$&
zGx<@SNqTI_3FLBbOxK&^c}$nN`H?gFlrxwXtoF-qAaL0Ka1DC1-Zf;|D^g4pn!6T9
z(p_aT?emuY>6G&h-PMzt(IX`;ju2~(oEcbov+=7Og^A~7%tMrWe$=DiiqS}jW+$#h
z-tKm$Sh^Hhxi0jyo~?9^yNC)+`4wP`T@HM4>=AiyRbs}}2vwA*AIn5@=IQNDjRlk6
zIVeZD0O`5Ry!`2i^9>u+3<&SY>%S{!_fj1Mg?nwi50!Dg_gwly-t`zrRVFApbJ6#4
z4!h3u2&0wX5#565e)_ZJa+<n-^?tl4ir2~&DE%xYb*#wpyoE!kqgdP*4UN3QvC~Ap
zu~@H1Pj}e&SNj{aVqJ;n5|%NoSZqsG2%xLwmlx~MW{#TXtrqJsPCcP+HUD8JI(tr|
zVo#B`8}lL0r=I1oW%^#Br<44KZRnXQevLhA&NqS=5`#x_ZqOdlYwCK|OluUpef7+T
zj)q1=FC4Es`$yy`4b-Q<_1tX+H7Dh|+D!b;kH}m0S9dd`+eZs#TaME1tOIU%1#rV!
zB*435S9MaiS(@2Xm%jAI&2U8ZVKaX^Djf6#)Nnj<R3QnSBD&4wJWH9h3Y}RSZsx-S
z!5QH3JZmEKhCwyAPUQ`*UZw=cDAav97CB6lp}vd-hr3G+s}??IwhJSg1upwMkao{a
z4BgB>P+l^ktCC7a0&W6UIRaSae!wb!c6*FTK;?r?#p^jDnLd%7Uk;}++QJF>d(MTV
zoYBZJg``qo2_F%fn5DS&_|>7w<z$7#m`f;WhiP-&6{e0Rth;l^7-gTjKO~g)uh|b+
zhWo;IFHw}&AFmRFJj|!}zux?D38Ta^F(QQZfQ`E%{T*k2M)_f0048~X-tmY^{oq%5
zpl+neSYM8E1TmyKT3wJm)of{VIo!G1H<_VrZej<<rK4g^<sf;9A+-$O4;QzP+-p?$
z8GS~NKr10n-A_V`7rrK?pZzBpIzU(C+b-8z+K@XDOPm#shTPd-$$IvkRs@UguOAt~
zjhW#&B3qT{XoC=(z22E6VDaOBE&ifSZ|C;)ayng4K<gN<>Lv!Ivio25H|#5X^s0KY
zds~{~cyW=&Lx9VSZgCmf#VsyVNS$cz2%#xl8&`T*DRw-!Nh;Lc&I2O+>{`>zjyL=c
z$J!Hnn99wdT&|Eomvfy{Z|L${_W6^q8;iQK#i#_cuiu4j+cft{tzj{r>yo<<`*ah|
zOauRbyE6nf3boPw=@NhDQ`z)Krv=K(;M$ha(I-@wPHK~7+QSB;{$fgSjGbRmT<?9T
zX1zgL=xMr7ZC`+SiK(Ks<&67q%?9N4#%~?o$1;<m5Gc2jeGvoq5s1bkq7~HScXzT+
zKV?sJSRSxh4z%PHO@*ju1>|Q=nX2nW7B(pV&9&}Xs{1&uwvNlt^W@}C4QFWMcfWRj
z66K1bsIDg}E85D!Lhw2MfK+PEm}TfXbZaZGPiI(R(`+oI5GG_9RIAB!V)2R_OG%D!
zg4|`-Nh7$yyFSd9<mW{Dp^&!A%nWu6_$1**4nUIr|KtB=2UhCU$V_F3`;vjnS-kxh
z&rlT1x|Vr;iFz@wZLQuTZBL-(rjakB=wk@T=~FupqC_K*=xL&qMuU7XOe+34pS*hT
zT1>k8(;KrpC?u=#6~3xb*!gvj0(xBD+=6PuN7YGcEq^j1AmT{vsp@`%QFkkDgJ|j>
zbcR-S`jnR?ICpBrQtJv37uBO$Pm%{vW51-!pUffoj!7HPXW0TXev&0;$R*AqPyW`&
z)C`|Nrm`)1(>#Sgtf(Aqb0vtNz6^8$)YRBm)-hrDl^qo1eEe*Y{>u%fP0oP9z{u5r
zS64eRKHPGnH#mF%mtkKCbBJyD=x2vI&xo|m@y25~ANHA*?#CAtO~LFM^^*K$`3Ze%
z(I!L++dAB)8*Yx7Ccc>)UiF@FqKeCS3Ne=*DG1y(>9)oh8C|K-MdAJ)4-@is|B;{K
zjiP@;Md*#_us>wf#}=JRSJ?I{KVxdKf7yz@aJi?Yt5Q*Qowbie`k5?e+@t;Y_|CS{
zGg052vJIWzK-@-cm&+g_8#aa>1~1qcotrZ_v>J#Ry_wEFXRS?2EKPpqF5SGyQiffz
z{KCmvZjJ@bZU(1s-0B`lsQJE;uH$tHB?HS8>yTk?3s!kUsEtVfbw|s!zVd?EJDUnQ
zQ((OSAp0<UPjHYpiJ683FOCfu`;MoF4~3@xa;!Me@!?J9HwNj`t@;E_Lvp8=3~_iJ
zatI)iPyM>AW<r5I@m+|J<K!~u?{sAfKb7Xa<{KZU@rU1x`%wNI<mIRj0x4N*7tziM
zfu$J=jPl9IbD{_z=-V!)=FP>x;OX~TUkSu))W%hmp1rDxu@X56H5P7dj{7vTWVvbJ
z>;2j)J=Tb9k2<bjoT_NG>~Cq7HHA_hzq0&9xhr{&-iK~fG>^QBf>d;md$kYw+D#H;
zZA^|lRB^){bR+-y_1NHy>lM4jY0G}jS@DYH=2`Oo#^IR;V=+lrE<ICp=oik_<(Xfg
zK-i5y$waco({+aygm&JmA9ji48rg9MWJuY@nLD>;mjYGRXVDwK>}T1c<Uo{L@SW{H
z7g=+m#-`*=xAMTJF2q8&6h`&DYP2;9SF*s(D%%HITFR)s3jD*$p6LTum+|U{J{HjD
z2Ikaj<Fb-T#$m4W%_AbuPfb<qE6W1~Jfsf_TVfsCpf(*PT+Sf3JtXXMW5Buy6l&wK
z^!n5;Rb~NmUN6AA`9id9>qXQh)o3ItDcwE0uITIuf=@pJO;i}KVRHPjC+)p!4A?uk
zlNdp2{_jBFSld6S5UJ{{DJE5P-M`lKmHo_ehW6pBhgv69@6FjhVqacH)-CM~6|>cq
zXt$RQ_*TnnKe5^5PVLGxxdBr8rB(KfW3#G{qIvlVbB%WTP>VI%@*XU=_EggF71g{O
z!JuxLjqAZ?-g|?=fz}Kjo4uVy0HbVAM{y3>qt18id(r_rP%+;Ybe6MWlfbjR^7geb
z-{f?x4e6CY5I%o(NUygNOu6-*6Q^#jq5n9`T*02AcWf{$0M#*5Q<%q)R!yOg;uACG
zNeFcnuQOF<u+s%Mf{*DKVWNV7H)p{nr3?RTRb%R^+%>CA-D`KSlwY+8qwV6U66ymW
zh7+~7)S~7oCy{3!2!Oo5I?HyEW5eC|vg|-~e}9JFwITcdfGd9K6QbMQIajU{7nu=H
zf{7T57@3lM=*pvqB4NcZ!4%zg6D~AoP<apY*1NYF-Y0JrPKYjds=@HMOTl%0RmzV;
zo`yTQ49t?k&x-{#Awr4O9C_uFukGw6OxJiMC&TB1O2P81|H_KfSq!#lKp#VkaIM9g
z^c_Sn=rudIaq9j8gR0q=8JG)x&4mM(7Y!cMT?c@K$Q5^Y|0@Vi0BWMZ$-1BAJUY0?
zu|WEmeIuLyE^nIU?<?Knfzs^{=EtS);CeZ($Lx!W9o@r}pL;(7D!m4jzfN5c?O~Q!
zyMGd)^nMKspJf>_tp4HuY=X_~zZy=;uu`Mh9sHr|hEMpHN_AYc6AG_pR6H=VX&I+O
zDES13Ljr&t(EW^(_o*3E1J@BExy-Y<zV~3vdEE-jgRKLP9=N=7`gFFPPVmT`@^Z|>
z+pDq#IAZv#{yWEI229ZK+~lmL%#`_9UsPA=zN~8`Es<qqjC4il2RP*E)He0URTg{3
z{GEJ}aBHM(dAC{E25UcW8eJIn_@!m<ByTKWfmn$pl5E3+P=S#w`o{`kqq_N;Xyz$=
zvjsi*HsgiD0q&}QmHoK9{g)b>H+?>)Y7A+ELpTp@>*Y)8SQ^y6e~3#=-L1C%S{Z_2
zAx1I;W2ZUUr~0z<skLt^jDLbB>G;xPZQZRxtM7$qFwCbHxD6Rzav?=2!i)SN<#so<
zV(FucUo|?LvB;7I#ZsUuee+}S4z8_}ST5uILfn#(2|>HH{>oxu&S%I!BVYG=k88%f
zQg4WM?Uun>a56E-pX3Yz*EdJLJ_!2&?=@}*qSl<jl0D3-&Mh^{(P)pEd(;wHYVAC%
zDO|qVm}6~r-Cp#n@40N@K4+_Cb4=arjm5OzMDqxn>bOpCk{oCnqE{M(@bgXA3EEw8
z=+=A==gf=xI8)p){3SjWMhZKr|L&QiJfvr0$qFBN!zWh!E?##4OtA!9*E_ayWLa{w
z$q9Abh~-eH{Gn3W^m^k=1Kv8C80O=LTQ7|Io%fY*cTk+LV7+{o7@4OWW&TlJxcN&O
z<)7_t(kXhJ#4|wiK<X})D4LyCI+#N3!kN^Z5I3>Jz!szmzY7a@T)VH{u%50o>Sh%h
z^@OKPQ5Yc2I{Aj4o>+2Givoh=^j!URJk>e-LXb+jN|d5rY2P_?9mwzNl*NF}BC+L!
zIL4=&lNH{`EZ=ci3?Ii>D5Ah`y`A4GtM6fi<cR4tOpEFPT2}(@8i?dV+Jam`C0!=D
zA}~WxId8Ft9>-IeMjA~l-NMc~9csNg8F>&^!6MP)yZoO|6!=MO=)6d<aO)bekN=Ja
zN*njL_Mma+XPb6#8!&Yp)n?fj?%_7~Eq_p_?y1oXiae_$HT;B^p{-@PJg=TL97*+u
z6M{QMO=l+kcZh=;&IZ^uS&nWjKkA~T$F{VX-}Fu&t)MQKTXFoos6)QFwI419sZ1~M
zuWMZnE#()e`@8m^6J0>KA9v50!lH#RMf*4iD$QU4_?X)Cp~Q@6=Z1~3Uwm`_v@PT^
ze)kaht;21UBIiFJDKsptzTRTKj4*$dcG_dMG&v`KpH0Zn=;$T9>SMZPK3LOsrE)3E
z?{NAG(}pK)KAyeUyb@;{dwZ5kR8~B0PXoe$KT#HO)vlXmdkS%m<5iiVK#a64vv7yD
zRB*I?gL_&#|4sk6bXjag(Q8U+?B`?CsDSm{b5>VzeQ*LvuXN!8b-BsPvMd;1)uX)i
zSRxRlpaTeh&BA|Rr$+n+r?1e}EuV&&fi)EYM80KNeRDV~O?myg|N7i^1&CGXa+hLB
zaze8UXpJ#Wc+e8?O>1e^p}#&@u|H^)7nYJ?iARMy@e2FdpZeL$tVUc56#EZZLl+-8
z;mu%F6Wi6w1zV=Nehn2m&6-DsIL3{AtsT(q$<F6Tq7Su>%ew~DL=)8jg74E^aqEZ`
zH~3m9#^k428N0Zn`C0IS&@=yjU?Xj^nn{l>XTwyNV09W7?h<N$73DQatn7Q)hoFWd
zQRU-rgocmVjauoe*py*oMC>zVvLR+VIu<aChOs+-t1IZ~F#jn;;5{NB$@PM1pKxB!
zlh7>PyC6HQB4$>f&}&>Iw@>4A^EV}h=Z|UYmj`BV*4~o7to^JBc_kbZLw97fbgBqO
zhc5-DzYDhO%oKTd2MQLH`IluuEl3f}i6X1Ni>uMAt2#?4VCiwS^8lg7+Mca(HG5@&
zCwKaYe+7yOJq6QV>Ab!xqFig?rNi;hRonOeme-PHu9$_o3BNJBc{r!<HKwLJS5;}g
zq<!>*UA<0{8Tho9A{fX~RC8<L`K-;QcC`j=GSY#6DW$LZxk2vDh`i9Dy48q!K(`W5
z8!>)|&J8p!=(wmIokggSD^D{Fx*U7b^LZxwq4z|ejBxvF29=|>-5f~#Bz(Jsx7;kR
z-yrERmQJYWwsNKOM0xLF)*a!O9D35h_gZCnF2T5vula%?nkD7V@mczuhr;I9RjmlK
zQ)DIM9>qUq5|5M<>RrvEf8ePk@!@M2ZHl7d@pr%S;G0%Jt`bFm^YESX4%;i?jQ-^j
zONHz@MaAs!PEP9TknqD10q##7qsMUXhK|I{0Ej5puwY{0(b5IfYUeLvY=3YeOOH><
ziJ(haUA-q0Z{ShL9Jym_#r?$0!VMHWcS!4jT~1h@^gHPvCJ!V;E**%#21I|dyuVA9
zA02KBHy<85Bd0y9F!MEF-70Tx@F<0~!6*o?h(YB$m~Q5)H`v?0ypv|_Z->7SYZ{nU
znl(kRFeth`md-pS10#2SmO1iKg9L)ARpB+rw#v~lSM2WCcBhr_MrvqRBL-M2FT19I
zKPuN8uWSG(^Ixqp$GJ~2wyZOM5V~Z@{mP_|E}L{RzQGr2C#pO$y4%_HV5`)dD)HWT
zxca3!zs8xj0qe6}8I0#sIKN>TKW<jn*|^)?BS=fjeFe?rNY;J3^ss~TmWLH}OBecA
zJEv_>X{Q$kl+7}kIdH~fd2!_m|BG@_ww;N;^7<X9SU#se=XKH=u>XneUpq7hS91Hu
z<t-IjAHe;5KZ!i`B1>V7^J=<r`Lx88=vXHNcr`mH00Q^9L`(0|%;jaAN7}8W;nUQS
zmvdEsf)dkM+%ePAsKR^x>(#F3yMNwVJJ)LD%t&{{0Oy7q#?KaBA31K+;qM5s%86wa
z|B_aJ9Gp2-^Gg~)Pg$#GVuDtmA6RjQUO?))vEkos{F(nHqkiMzdQ!%o*Qlut<+5Nj
z?3G8(RCK|#Nm;U(LFipK%87L!_Zq6#8G+_ykX7<*LU5T=sdFmR_#<rI0toV8X)x$)
zVC+HdicCnJpU(%5b#x!_mkS1Jr^#_OvcgYEU6Z;3>lwOgv|oa;|Hs)2X=KaTV%N>u
zA-E1$luI(`pyYEDgn3cdX1VVzi7n)~;P(ZX>Ap=Vz;#$Ie)pk~mvP?#w$YZAtkr)X
zsP5=<1P&<t>n!Er=cqgIP?ULgC@uRg5LmdPc9$5scl2k3>6nkMBWcKSZ?__#ErgwH
zCbxKKu7KQv?3UptzRr3&{0#LpCIaq1s7ikIDb~B#l1hF?!em0y=ZsI1Utxqe+vNgf
z?JME<3`NJ5bn7Z8XWW>~eI3+;yc#}0G?rQ7RTey(I!qNwD@XfY`Mow~*NSVmEDC3{
z{7#u<R$Qo;zJcvu?$1!%0U3<8F$I4;ZGUjp762r{)tvF8t?3K9^J)vHObezHP_bux
zgC;pTvHqw$<>-qj%IV68BU@^a|86&Cn%*#!v}Be$Wp2`AxS%nvN6@>?x03xd>0@aV
zbZy)f?(=|jVntkw&?IZ$$)xmtt*362iZ?P=nYMZhN6iPnC>+PKjBcH8CKTv)^nX9<
zL0#eOVk_7`M=s=##`*xzFT;&-@J;lHi)NtHUWLq-!FKWB-A!>x0A!c@gnm%gA4uI|
zr@F>OmVtThl#(o|fM&0H`na#VwHg_bI7q-n#6&>W<x2Ap50xP2Ex|?LFA;-q!|1BS
z^_!49Mdt4wlV|m(t$R!7A>*4-zafH&g;%{{Fcc*yOg<e|B3RtPyAztADxd!zZd0ci
zWDt@j|EaT>K7gK<x%z_QaW!?%z!S2Iyj7lY4Vrt}r@K*97<DIC9;9`3nMM^&?jD4$
zu$C;iViAi!jQNyQ6o&KPSHUfHL?AyEBcx9BPwb4R!n{yLR-p&;E&6TNQ5z%8tB+j1
zdR;j<0qM+$aYtp@yddyP^M7K7f@X)z=O{+%kJs$w21QdDUWbNopW1g7Qeol|y`cFN
z^*uHG<de?LXMFe3EkFhuU*=utdEw2x6`V8Wx%#=YXMgGIU)}KQPK#e@X^q`7Zy?dG
zv%i~R-nYhf;YEM+sjINE1HUTCf6!Y0o|qhQv3siA{OI+WMD>omLHfq0ZPOguI*_QR
z*bb)w(Fdi8UPD{SLQmsthRxa<)qu}-(mP0{`yMP!WoVCsUMr_DpDpiPE6>o2atVn^
z&wsjnVV!HI1tOjB{qmM{MV7yO_*|h$1;Ub(i*kSmcBk!_Ja`*mJxcJdjHP?F+*NL(
zy8o@s>)rS5D1p~#`h(;}AcOKXnQo#zy+A%^?}tYEcFR69zY;A^ESM6h`(!Yi?Kz<+
zcY_k*g&0$z$FnI*%LBHu-^~!zAD1K4&Ceoq$>Ph8U&*AF`$M{$s%e(85I)b6SXfsb
zV|Nflu?;U%Hndu<?$r)!$^o_qT%cRcuDACt#TS@AT~=!2rEmD;R`E52t$*r_IKYxQ
z4D}AQMjg^t_T<-E%T4uZgr{wH?bOuj!_YHz@c!uL7S40|(97#yzD$Mjb>V}I7r|TU
zxK3kZIql%xm%ATdn=Lsm$E1csN?$9mrs9cR2QUiwu6*HhWgL2xWV@HW)iGkl@|{yT
z95NUViGRP`wwfxP*f5q=Wqg(ZmDNvOR?<DYZX%6kzY$e6b#HZ{-TYH^PDS75R<m~7
zmysN%ODiR)S=+7lr0>@p&Jt&7dw1;1m0{uRFt$2jV4f~=ySddr>8u;5PG(SEXE~gC
z(RX0m-gz_iu15sRYG7%*n*D%O$Lh*Mb)Q{o(`R4>89F424c8fG$j*OZ(mh}=h=k`8
zw%XN_Z;!8{j`P^788^QFjnt4~xp9Q2!3^|U3=1A+$Fc83lqcA$es;4B$7c$+dR;V{
zEcX15-P4|YXVF<d#vDgrPk7!I<4Vx!69=wb;k@^G@*X3#Fy?9ZA9~8ods6DTZ_cDM
vd$m#zZ8BG@^zc#wFSrA$9RXm*-2d!1Vq~pcIHN$Pjxl(;`njxgN@xNAHQ|bx

diff --git a/reference/plot-5.png b/reference/plot-5.png
index 173bb7f6ac416fdb220d5ddfd6676c25bee87195..093e548ee7a48c886a18877b9bb92407a1f11ef9 100644
GIT binary patch
literal 39067
zcmeFZXH=72)FvE6MdcA}fJ&7rAfQ1+I;fP;dy9Y~0qG*W1P~iVDWN@~1tHRl)JP2$
zq=WPhDkbz#1EJ+R;d$PfZ`RDLSu;Q0AG79OD+#2W`<%1)zOHNUbDuj*S6lV$nX6|Y
z5Xf1W+5>$E<b)3dLTi2MBzR{u;lnC;Iccq-`T)FwgM7ax2)vwrre@|2fv~@&K4_w5
z)({W~7X<b|$<QZdY1}*RlF`JEHM=Z<o3E~^o<Dy61YcD+P5kFG)(pX=Lan7M;jMX#
zS9RM%PM3+U76sEhycH2nqjz5S!MSrv=X8}qGSt|v{5`)N1xK)G8F}WVrM(~$Qsm`4
z#tr-XJ?E_^t4)p_b>{y){l6IiGoUtMfeM%72;}#l_7!jzDKuRk9(=Y>15vC>h@Gdp
zF~t4?DlYj!JzG>jOB~ay^?@|x*(Od1B+hXd?eZT}$R%~$hvuJu(nGi#=>L76=@O0Q
zzklYWo7$WOe-Bx7X-ZPx3uU2xrpxh~*E6o~eor^bT;1VmUA<Y4A8b;6SEa`U#SEuR
zq&$+NQ<HAY%g@CAK$RA(D<s}l?MXH!|Gq>LFi*f<<h2mWt-%VRW;K$y>}#=w9KO;T
zS9x>uu}P=|jU=IYJc=3nGwpzPE5Rdf>nXQ;!JyjigB}l9vHGsWYv~XaUv4aRgLexh
zB{rb$XVqg0!w3y+3+W*|SH7muSJ*_ZT|+UHrLk%_aOJ+iT0jZQCQwX_H(v*;T#j~G
zL}Pwm(>;>*XoyxwL<qxgUJi>t1(})HkEi2mEcySw9A%FRx8NX}j^>-%*DeU5JOT{S
zo_rneyMMq?>r+mdh3~Pxw^}{rEu#(PzDS4kDe^y>9{dr-WIuHZ;}OW;Mv>b@6}fwd
ztEMpqtY2#0SNvVc*@#*REfH&ZI%hE1?UvwHr+Ro6O7kFFBW|pOp=~KhDaBcRbH~ni
z>3#_o{-ke9Au2%pkCS7yLNCG%d1O%t(~vG7=ch1%;Ao!t+)J%NswFS)VSJ_!6!rPg
zG1Y5*o>(JG3mEHE`$owh_>*h!o^LRYm(Eb0r)?u&jK|l?-QqQW3JpVCp)~y-X*FS$
z*@}ls^{fF4>ivI3NjEjcNNVs$FD6iI6E|~@`+P$gw*}N&!}uE(jqC~<b~QN2@)0q`
zH{^Tg>*bH;F8IvKxsS}Up-hU+30Kf)2X=S98FJqg)2~!P@$vh$TTanc2LZ|<%QD}x
zol&Rd55$6}o*BOL3o*QIZxFH!=MqP}9Q0BMJGt3|T;cCYJ4TKoaV*ska%F}yCoZ5l
z@9vjxHM1t5pL3b#(M){8@`WE{s`)amCN$bfj}z{K7*LYskp)I<{dz8Huu08<|Ds_>
z!j;!>xV{YfQGe~-HcEbbN?h(j`m~Fyf(ri*Q}GCN!}yNIr?j_EoG1}kd5%%}IFB6c
zL-goxcyoLI{Hz5m{-P7Slq34|I)BD{EX^0mMx*MkaUUa;FJ9Wm39s8TMKgG18HpA=
zk%7=yVCEq<auf&g&#PhrSZ!1iz2XdYVy4(pQm)$3-ocxX(Bzahb=cL`8xdU|zEVv`
zk)|kBY3?7nW6mQkEt2pCRTO_ZqdHgcqUqXIGg2Ow7IBPg7@B#aX$Q-w;jp5YIC#o(
zZ!OHoq_RDw>b^CWvF*ks&o}Y%aDJaZk{K2Cs-tHLOUKr01-CgV?$dJIn@UlBA>|m=
zanckYx^aCe*ir+{^`zj*f<X8A<at@|DQ6u%^lO?r(sudXkqdEqawESa-?~L&**VDC
zYt8QA*o#b*a$cfu9R7yN1efY6Lxi4529HnMf_UnRJKIsf7(TP4iQ%J(4??SwAH%v@
zWYpZEbn5ry)^|?$B(}W6MpQNn=$Pu;CCVa^J(yqJm3Z>>T5`muT9oYCm=`85Uv`0^
zZ7gAhG=UKIiXPPArm6G5)U1^YSRH;DH|4Q=Iq)@G#FE~RofuPZdT5Zrn^B=tQyX|G
zCgkiY0|>wew6%yev}nY?-B~(Ot3tH6mg^9X2qNftncAko#o}#_X}XZTnvotUR>8PL
zRk^^37ad#8y$u3gCpdf){IQrnF%!({)|ime@7XT+^f4uQa>!q+>hp5mPbvhg_;(0Q
z1;TArs8nYE@_8|ic>y165Ld&U8UMcX2_7jr^<1>ICCr~SZa2V<G4mdnDWC&Rw0{BU
z*&1<$qga94K0=dg>I(XNszB>lHD?zEvCb#4HFU?Ir&!)MDDig76L?zt!`QH$p{cES
zdEc~Ep92<*ti(ghw#4o73&neJd}zhrj2xrVjm^p7Y-lO{@f&gF69PminKP5?<Ko!+
zj~}p6HnVB(jc<sv6i@znIPX!@v`F#tEmWM?_;o1o_pBPqYu8D`qiE44{-mj~Szwm9
z=Ra^4d}ca;9QAqgs<MoE&u{seJ6kQBUDo!AyVD9ie09Lt@QUkF@}B!GJUW#+9JmuP
z`;qs<G!=gmf5&gjVGh)d<S>4mVLTLG%zoen_7ZfFyQHyyEe9N-a??&9;fr&{=agsr
zVc~3c7Q?8KHqFNM6s!&+grYohz(z{SzjI?=1+)H=?Tf$jJ0#5JxGU&dFA{Vu_|j^=
z5Cn2v%u;u$F*0KYc9nOY9{oszDe<<Yd!V}Q?{w3FU8jxYiEBxd^-OzCd&5&(4=9`j
zZ?;mz>`9Wp&)QX`%g6C>yh&q>LfUO5wZW?7g3Q>bIzKBlt}d1o>h$5q1EZsBRcS^`
z5rM&E<sMmBRNHaxC=}T(9p$C)_P#uV>3dGTtWX;WRT&Vf!L&y_XSsx`>K|J){$*ON
z?x(d@xR7=V-<=lLS21pvJn1|tBWo!pMv2N#nLoJ`DxoiVeP(%#{Tk(wt=ZaD1oA!i
zp80)!?<kLAa$Ks&yb)TEZ7hpdu-LjzEbzr(=^qkW)RhWk&#sGE{RM)HcU}_R7#SIN
zTg8@P?14vOAOAu{hx~k|E0cHcPjJ3+`tDYtp*e)Xn?;=;#u(@Kf12?@x@W`gOLvaj
zY$a^gLMcH9WK^JsFH!*}Qi#{tXx@w454v>ahIqw&<ye*{doNDM84Y0O*FC82@K%$O
z%?N=sbg;pKVz0mk6!~**>h|16C46u8SMS3QlCjGdRN;{u!z3gdxs4t_^(>*ix!Q&!
zkY?48eBx(KV+`J1_bf~?n&5K73cgh(rP||z@cM3J+B42EdeXFuvOcsT+4Q^;>yNCo
z5}SvhyFU$wr{qh?`?jiUVVtW_<^sCLS@OLI-+!I6&d>sFG&;^q^8LbhAQV;pm^?X=
zDkiQR0<X8OqL{8!G$##)XrfO0`BW6wtES0fWG&s30tqpPZkS5M2-KHo$Bqf;K(04l
z)k>YqFb`AP9DCoN)(TaUC_Z4zY(MGi=vVHT-+tW^=bS$?IeQ?t-e~^4AY4Zte}W}e
zinEsamj9?g7X~>(sBBI$lvn6&NjZw`cfU?RAWYp|>z2W}s5ZyI%mbBOryAG<&QL*=
zQsv&pQ#^H3Ele!fP`M{HS3*EEGoW&uu;!P5Rqg$mz{Tsg@}tzkR__)r_Z;thF^a=@
zHl&u7ukQD{9}_HAZhh<;g)6`r<4hzwEl!t-JdKdGRM1;-A2UXs{vnVj8<_P{9{8i;
zUsS24=<D{e{Zyq7%N2*;YrFc1gZw*j?j_hTXy&nHc-&&!@l&qrE!#G1&Np27o8_*j
zIyy(#Jub?F;u>7zJj|YHZEPxFoN0OGM8r9Z4<;ny%>ovu%W*fjQwc7zcVN4*?QFR&
zMbTzHA_ld`*64g|SGLnM4&B8$7uWnGU|rv@OR9;>S#~9yzBjrN^p@8%dh=s@RdP=0
zuBP2C8{H8-Fg3)6Ya(x|>x;p(Y*gZhGa1WlTqt#h6F4YlTJLa1-uD7hcCL(b#y9+A
zOMCo$ylaW(x$GqFCRr2yopA$x#aT^EGq-#0Wn%BF4QJqmIzEMQf=lhPy-;p*_CEZ{
zl6Unhn~<MtwPIpTdX{O}3sL)xP)znQVdr`*2WsF)j^v!+)#@Kr_%-?3tf$efv;UR3
zmQE}|?g>RztaFqkh|H%#7IxJ6pH6?QrSmDX33;k?JhfG*0e;`M&z9R6o+0<rr1LGt
zhPHNI+WVq?*9VjrxzF9=9a1Ne6*)2;;PbxWJ?T-(j1;Fg*@<4dffZHG|AnNLur1Ll
z)&OVzFSMZ94Q7SJ+z9>h;X>5%N9c>bFu}gHlJ<aX8U5=#y<btC@tdYutf=5gUUrcU
zj;1LAG}*Xr_M?cab!ttRDet@wW|_w(%jvq~)RbD8UQf1Lg7?dIYp1oOoKp5L54m$)
zkIhfUdt~irV^;Og%l9g!Q9bqy6}vu3`WVcTHsf#gEXR4&Yp#kJn`c|`ri$i9V4Y#*
z#kGPlr`Oqq?7c3KS(?Y*EK9s~kPhI>t-`umW8qw7R(Nck@|V!<F|F@6$X!bNq3zBG
zh<R1C7x_xj4vXl%g+42q)56+Ux95b=-mgC%XyyLEs2G=b*a_%hwoN>t%R{=;4FdTU
z{ZBe#Dw<gJdiUI7w+esyprNg0lMocQeJEs))@&dmVVp2?%p(i&!qVin<1SHgSJ0!T
zvtEQPs1iyFiqi`EIE33Wd0^GH<SmD;x)l{;R*)axzIJHAf4$6*A97n`_HP>@pWV#<
z%1%^g>}l&eaaCJ;a<DE~Qr6DPS4x6y?vj?SZO0|*n3?w!V59LPp`-`nf)|%IP;=Z*
z@hvIzL8wg@*f?KB!j;E((;il6#Om;iM$Nxme065o=6L3Bp!Euj_(T#nld##BmcBlj
z-_=ZP`d5A&`TYOtNzpeh{wOJXRD7P{(~Uz+QedqW_>upMrGJttY6H=1$7=s=NLT4R
z6><Jg4=(#*lr+rm0pK_|z)|~ftT12yTC=3NehF4|-qrfoJ(Os|W^Vf-bB(Ngm+2xj
zJEJap7!^K!c&MyUX*MtZ`*HqR0YuKBDMz%uRdH~u1|sOCi-xZaC+4C>C0`lkiH$s6
zzeVL)qW}yeuIs>hacjb@{BeCe$pdq{g(T5!E<Lhulj6%ee_i<C0(z=KsYd|yrftc;
zp2t~jjT1N5G<SE@z+l!#PSE}ZwgcKU#SUXpu4vNWgC%P0wvS{ZP%3J9i9f0hTK4kd
zE1$n39VzDv&qA>?sIRv;aB8h#t$S9E@I<JCWAqOpl6+U&zoXb<+C!Fe_CotqT8>+M
zMJ3sOIvY6KTuyBG{}18-45FIy)_nf0uM=n1jslN`?1-;A+p?+6N4alL{DqKO<^JsR
z8kc0wB?(-75NWh65GniNZjZm*A#0`_%J7`36kgrow}FZrEMIOtK~4J3S<mc|m09B?
z{{Yfa3LPEX86I#A&O2`dldw@SL$tg*DWlS(VVsnvM;11}`P2A*%z?b2f8>I!>2aSL
zo6qcPrCq-<;^XHy$>AxkRaaahlAV-COaz11^@k_ZNA)?RqI9l1z@dAT7xDE8O<pn$
zti&As?DS)`xg-f~DJYN8H`KuQ;rd&~)y}Bh)^~~>l^jOA6$!UZdkk*1mLOf?2NgOu
zUC!8qbP`&Q%L%uzMLdMPZF`qi`SPPnrp5j6S_N@liIR1e)_2DkHAeV0cub?gkX!_x
zcMhx$F;M+5)IbC+7DQs9%qiY4_k!YZD`%yfgB}o+M!acjnK~q(#C{F5OK4OA)cGN5
z{!LsA(mCiNf)mqq?0OqVoy>&5d-h*iHbS)Ub2Jm_dr3vcW*dmC)2B3chXm?2=<0Z^
z``C-S3f4R6b7Up^ZI1OkhOtyTDHz2lI=pBj!3Ic8y}I6czEPExj5-<4kl;GQtXVx;
zNP339V$6BPpv0=w-mZWX7o)E;F2%UvZOfTXeLX#}QSh$vs}+3F*FgoY=S8YG(27F_
zOwgwnd>GjHMiUn=s<bU(V%Eh7^PAk=^MQHF_2A0WG<cEc^Gjx$nU%Br=Kho(NH3D_
zpwD-7FA2&Vii#^MgNaG<u57QZqYO;Q=yO7%xu{{wTcp?nStJVc#`Bv+PKG>;Ep&E9
zxZvxIY;PrSFZzbo60|&KMdCbOwzC{Mqij_^%IVw6j}zGulh<-zXjBQ9&5Uf^Nc%X>
z^22_)D%)QjJK<iqZqmHhR)D-gVcGIin;n?(=j|}Exs|+aqoUgAP9Ja|CfUj+L&#7$
zuo$^W^fx!_!Q0HzSFn((?%Qq}n=QD=b?HEZG|(r)mQG;qw7y%ae>g$I)AH^N+l_f=
z^y{R`)-ir0n)GlkFLp~-W7c?96qOe1%Ndw(#mr1xMP@tJqpaQkvlgi9=x8`h#S#LQ
znHTeT=k;NnW@JgYvs;$TaCSlI$fT*Wy+gm0*(_<F8>WE>3Ed-?D{zD@WfoSn+quW|
zC(J+zv6EF(vhv-3e8rqjKzY<O;`YfH7o{zU$^|Ho3E%u#v^)9i;v`aTeQ2;b+B%9u
z)HSdqEtA08X*4bCH_Ai2fOhAB$8dR{^Q4Qx8S<Y>DQuQFN=Bp8pIoX!NW{k%9Lzda
zu#{H;LZ7WX*XI2kBiV!A9?X$-FStFtZgsuzK@VDQhO`ND?P?Mx>vTtJ)&X_(ny>Cx
z>9VHsZ0x)GelN9mcY*{czJC>m#!zB%HrHyi6I=WrW6rKKygAX~ySPOIo5rgiHreK?
z)+>dNJzpV(GW3k%io5|YsHRms=R_om%okl=-p^N+S@xswUp(hE>)Xp`(fj-pKG0ce
zEc-0!o7k^qfo|kqFu$(?2cqcQM`Jt7PYSlb&ie>2PhXygN-5vhMZRC=&M)X<FWxG(
zgcmkPF>9Y?bN>8;M=PV%8YresC6dITeNdzKLpyW(-Q%X-y1o>rkG`T|>qi)g5{)5S
zSKMlR{^#_`kr$<v;qTI=4PzcP5JooWapFV*G;=yb_1O3$XR(AU*Wi!h4NPo1m1Kg1
z6D!&6oc)KN;P;Q!whSa^H=kK&k+Gb#ifQQiBD%Gec>1SAMe8S)GJC#xcHv1!j=k=|
z?lc)2mGu#N`hFA|zn+&PyH=mwYoqe|b-_AA!j)Uh37hGv{vjj*RsUL*m;NP$;(cv?
zU1Ou!p*J=YZGosF&lc~Rc-Ob>PrLlW*?Og+nR#8F*e*|Mk?K*uybEb=iG6@{(PDws
z**RHQoLw1_pK8RHDz@?Ro~eH%oA&@~f>~cq{Fv&o5&JQf(fFCe9}W@7dX9`{f++9B
zF&qm)-ImueWAC#5bQ$j9te>^mZ6kQkb>*VsZY3u?@?8a`yQs2<;eCu~EI_2)tI5ds
z<cO(?W6F`qgBF)#+3g3~*kUi*OcdM1DF<(xDvz*@cQQme2huDOE}eFwGXfKzY-WFl
z*HoSgj}6vAzbUfDUoV4sXKv9fJ6D*;O<%&c9OGR#M(b_FL_Rh=oawA1cp>ziZIsZ4
z`QL5A4ap95T9-~YSHzv3yHRntEODk+M~z=`o}?_T6Qej{bqVh?(cAc(QL(~!T8_~=
z?%|D~{uLhn2qXvHgPBx*VtRF=i*Z^Z^aa`Hws-lOUKMAef8laal;6Sa#Vx`0`igxO
z;f{~;Tanv2gXqrXrgx<iR`|;AsO)At;WT><r<SED&+zhIXSaMOWtGp~VI#K0sfURH
zVJnme!gZtUwA!StiNnXO#Pi6sk5_-4%`1-aQov;p_dl^*+Sql=RqR=e-0y7af+_@)
zweru4jMGfqQ(m#G`ik(kQx1$<-3X0e>4YpY2)QDZCunh9=OK?czp+uFvXh}2E6r&w
zyAq2gijNp8*L(Pl%lp-g;TuNW8AW5!27MhJ1MV#72B&lSh1+!Km=CBcdgOA=n`9<s
z=8v!kVca+z$JL5uQ*`=Z)R{x(Avoe#UU!0NSNx^+<)IQb;*JdO#i0$q{mb#V+^vTK
zoz>5o$V%zB_PIWvA$o_x*el4ZUa*bit)=~xX_%k!tZKCQOx?}?zZRvWb)9vLKIz%+
z(%}43=O^C#)fH?H7K^M6<u>06-)?$sLn_H@kGtZ<fom*OM;wdnNpr{SihN3#JH+AA
z2EU^%*D3FKFI<i?iAKIh629G7u2P)6zDR~v5mjT_8TkusCh+l*&YryEyzZT87Zqg;
z;>CIu`r^=5J0+J|OBI6F0{QiGWx8uSyR>TuA43`}-$BG6kg&3s7Ig7S7A`zy&YbYB
zCO;={)){`~W7mpz;|?<0LvIUiH714>c%$0c>i1fX`wzBie*47~9NXUf^#k-vtyRTd
zXbr2}LMed~a7|^n#dLPfFPB@X(#Pdikm^e2DV?Y?_Mpl%vAENZcI3QNW-4AXVw!I_
z^;;g&6p2FJ4?E+$pH03;x-cgC>pnzDn|F0ijTqT}sRj!ECW~1V`@lDOV@}g~oJzbs
z<+9sbZbBxjjK$`k*A|AAdy9k2a0I%m{Q)|Ls2tArHWf;oWF`}f4OsZ<qXgRa|Guer
z_@aM#V1uYvJlbUUhIGl1k~vI&^~cpld)CY$%*A5P3x7_Zt44~^=M|q8gr;h4*8WD_
zwwT?G6(H6K^KS6;X+bkz2x~Y9h_h^Kqe(ibKJLcKEN)fX?s5g#u5Qopb9|s{N!qf#
zf9()YY9{TU+&*?gO9IJb|1$)V^XSy-F-Y|1#sPP&kCXv5d=<;G^OkI->$cB$TI3^(
zch!UDUHt(Djbb@|sq}?%{M&lLl@SP)!wJEQY<Ys)=e@gWjQk(;EnIfidSmiSTipqp
zHhBH3PYCP;)cuS`56kI3dw-B2L5VXGP+TKR+i@T1YAo@w9K|YRE5$}GXs$#~BSx{p
zT@U9Hi5G5r7hc4B@n?&{wCON~#j;?07*WrjiS(*|tyi45b+}uh49ye^ialLGiamYV
zSbzHNkO6&dtRg&iSXCx!a8vY-|AT||oWbR(jd%?X{DJoqI`W^?pb=r8#U_S?re2*P
z?;CfE83FOCw(SpHtHSik@XEO!uoDBylu^uT)t0uqY<sHd!m&<I^6o)-tZLMgM9Qu|
z-DEVV#IOgMtP7S^ZLv9e_;GvE#Si+XM&U&Ni-+#@ta%G`8Ggz6T~=7VwIAE$ReWBN
z^c1^$YoQXS8s(yCd~R!CVCBn)nrXS}!WZo+^(eFb+>-W0G60{k@jo%!EQ?Y(-EH$f
zwSY$+sHlxHJln714y*nKHQ>69x^fMf(EbodXl^ei7w2p?nRU6mkP?#$A45?JRg=u2
zG-K~kcdGilbF8DP+fk<jq!%k(C%q@aR|e!|EIc4NM^UWWa)bA8k+M&w8fZ?Pd*MrX
zxk<v_>2gUlQg+Pma6&*U5^Fgy8IfU$i_+PY-(AKho)~b?yxS}AjRP^>CmHYSdKDg2
z>{-iUXf^d$^&$6m421w6^>4*bx|M0$#%Q(#9e-9ml=;@bwYJz|S^?@`H|1Jfm08Bi
zZhuhsokt5wowh5hb{`}l5Ndvo`lQu!e37UcKXJHu9OLX2JX3bOt(+E`O~%@%H#cX^
zkxgRb9qO*3&%cT1JAn684J>jtBQGV$H7&)W(mu78v1pgEbELLdi}iU#w%UFvE48I-
zHFoG4{dMtt!j+l*a82FLKv&oI>UL4uo2()%9SlAPT*U6V!a~BFURZ8Bt25meK0fGE
zqc%>>KQdi-@nFlb4LPup3*{+JY}xm*j$&qPxe>t6SNXRIbnj^pX@5OMM7(v^LV1=o
zfxD^6ne%`&*_J)v?l@_fTat|mt%x3_iNvQW2p#VpH0)p5DEIHcEqi!f*cwu}ov`(^
z#|iD*(-pV*zCHD7ptq+Qf4cK_vVb2}N-bt;T`L%9JCpGJbGsTLWRMvP9;s>q21<jv
z&nt%=LOKX5tI+cOkydso^vo-04zY=SSh+|3?kE3XVq+Vu_1OtM7k1CnFZBN0&i1<3
zW)_Lmvz4Ft0i`ceE>pehdtyGR)xUlO4Sf;LuP!>IH^J^K*OU~(rAMmG>*l$=9206u
zf2>-n-7m0BphIuKee+?z7m|fn7t@g@EIm-N2Jg#1av~BVyH$--8_J`Y`-?#_`NKGG
zSyb7J@6q@E<63}1Lac11WX$c(-93!n=+e~Go%au*^z9ubX;JH1@ku5HgeNw;5HV6k
zKqM)JDA8X(Yq;o}-7eAX%3Fg}{kC;$AvA$!{=y=WasR@}8ydDRIs&0D)*_)wYd&L7
z<R-bd?WJ8R(wds<7-1h*4A(~(%G1V~*^X012yc3JduaKm_Rubu5#+>B9+alVuHd#@
z<~n82uP#Dk*nkbul~`3ca(E#yy8V~~sdDaome)k(x>rqnmYS`Ezdu&r6D?NnHSU67
zd*Zy2q`JYS90}9i^1@kCjPyTDZONk34NYT={y4uiFHUTJ*V9^NS<EXw;*pstk5l~h
zI&v8>594Fb#e3-OjZz>8YqJB18YS^r)jCOB0f_!y$u9v->Q@CXUdqpEUd!PY$1ijl
zR~=-mdm2xhS{5}QB3i~60#R7jjP<{8Js3i7ns>qN<xES30li6Gm?yh)M~tsnjmFhN
zIRyo8GqUvw(Pa-81xOqf84)oR%R%8|ew?T)RlAk#c0vW?*(XC)p?gCUF@#IX@)RQk
zvqrh<5Tjdem%O~o-W-l%d8R<N<`VklP{&Q-@z~RG%eT8*@n-x(=EHt+8n%9+0!&i;
z&SPhE9grOXixqT#o;vcV%8{(?3lZ`HatIZ5f>aNo?O~Vv^J&Kms&W`XQWb{=hzpna
z3m9W=)!DZ>p8(~PQl{gXq%dEfW3mL|s|}oS%QX3a;bp9;_JX)M2ygI-uua{%=Ra|h
zRp;iaG`b-ej&_``Z!nhyPStLW2y{M-P@OOYs=N<w!q3H)uorhm%O>RWW3=MuSoVi*
z{s9HeEY8I-X_DWcI&Ow<GF@v(&Q#men3m_v-uRs&PF5jvMt#zJ_Prza*1ED-=VsN`
z?iY?3gy8equ`HWshmU@3JxeYgDw5oNxUNo+pz|<WDYk-F@09<>Llxc)1qldsBjc>`
zVuYIM81B8HuXf3U{=XaR<vmtmPw0HUg&&wzb@Bz(YjTadV!Q=Ow;5VCCH7=2U5j>x
zzL@X1kKKusUPi87MYD^9LR`P)>>f<86z8g5ZE0^>tkALO(e*yJ+-W>b*V@Wqe>5eh
z&$PU=W#tn$FEX`_Y-6-h3B0q~%;I|UQ)PSHaScTM1F@3UEpsEeG{ua<*ml`qM??rR
z0&(o-d*nLy!Y{4ziD)BjQ-9I18IPiP+X^oQQLvf{vumyuOGZTM1m!!)1TT6E2N|Hd
zU((w|QdH25IilTZy>^DLAg%_DET2xd)k=24ziuE@80ER$Wh-0WRi}u}Yd11*vx|tQ
z{&2`&l7K2z#+L70Z;j48>w?qKn003wSfS@vb`&n#>DAA#?=XgAqOZ8IS$N5Asbsfp
zz)YC;Sasl$aZ(ho<{QnMDctTpqnQhJfj`6eCXgP|+C6Ph`o`sGa=-)^@x<i=(yfW@
zukYnrDT0{Woe<Xo)y+^ub|jQ$jSt#npRak-GqnAW@0wb9aY;}#n$wPqB0qeEkRK)8
z3(!KWJiRO?z8jQZ!I*Euyjt_1ChB@5A3KdD{;idjp_%R47hmY$HW9I+|8y=Ec;m~b
z-l~rNvYDkvspFM6wP<EYbPA(QQH2DkMR92p+fvFZz+Y6u1S<eQjt+d=^3d_EZS^%p
zHimPV-qhcvf8_$#jUb*Bv@etAEyvEO^)EsVY#!(^9zoLew^V@z4(ry))T4K(|NLKg
zL}Lp;DR(dJ+1)WU{W?t?SYD$ZSGJMH#sfbzB{R6&T0Ce!>EsE_r)x_7dnwlyT(=(=
z?0@rmoPQ@20#Q7n9L#dcbhOf0tfQsH*QEu;7oS?ZJ=Z-|pnLuHt=$+5MxpZYw>P-0
zmGQke@&>_VOSr~&V|H+sK!~!a^YaWWU8c`qM|`xX@k)Gi??V`F+-vj$+JzqSy)B<J
zntSlqH%5hkN1K&gMQfFG96rC&8Q7)&%CoH7y)Pvt)ipyPP;j7mZ;yq(`TbFsn&qEo
zS?^3|nbUa@2JP6NHP8&c1&u!W@y`CLO%+<7WAu2OWFYcI+`ea0eTMaD;_ev;A_5|I
zF5PYF$1?ue@2@KYDbKzNzh!&g>_w>T>FHSl58cho&!0cHR(md**KG~JS-j?c{>FQc
zxv2^lud7C~kv-hp+~VbtyD70wtS_Icnw5-RePC7y$JKLRI-^xftlwielTphRPpG6(
zduOG<rCj9r`<YJ^<>d*t_miL9o@mGNYrQ#Kw4zimwu#~QH)cDMS>xm4rkPn-OyD?|
z@h{?bow8E{aM!wzTFH05p$eZ^UFz~2DefxW8?jknC>8rl-Ph@&ZraY)iCoL<dEr(u
zFe>x|V3(giKin6K!P0RCJPS8Ts&pRJKKu3?a;YgxE4h<Z&Tq3q!f{|<o{hn7+;6c^
zlCt`Zu?XLcar<#)kyXN>{OLe}S$5FD)}WETy`#`_PN=%N`ck^Oan|UCLRs8dMe9HF
zbhXFb-V?{FHX4lbjVtJ1-;+7q9mLC*Kl&09;k`7}?cEf~j>J<A_vnATXZ7B?VwbWu
zIa1+R49nU_G7Z{8!d4gQ_3N~IP2#LJnIO<GV2S7>OW1ZK-G^5=Z0Xf_Em!(|Z0qb4
z^*pTk^y!n$&vd0pomA;9FPM;sNQdvQ7jz>&GZcaXMM?>E^6XU)KcQu<3U<Wf-(O$r
zy!rN99yj*9Ekm=C7V_u3tHLjVc*p%gs~`&m_;{Spe!4jZ7kNe8);9T$bLGs;%<GNy
z^{-k<w};)jm01b{XW~sJ$P4+!X_{Hc)k?7~v%Q}BV`1xy^dZ%t&xQ{lD$rmxw6j<t
zypEkIQvD|xIRaGl^z_tu%-Fx$VUQ$&7OzSkm3MbFP@*+Ur8rc}<cIrjMP9#t?Rdv^
zVr*`)7(Zdv!-n&?|K=|;aH<c=WwssC$b;Rj*oDDjyf}JS-<b{)NB8Z`S(&AN6RTxj
z!RT)2i4!MARiZc!)S)yZhI=%E6^{FHf(BRB^^J{<=YM^9X~H{t5|X199uZNdEl-{<
z3*4R0u2za42IlAMlHXf;+cLfN?+74}j9VcrOarUGzeT0W`IB<#SwxqZe`fAIiIO8F
z+KiNXEsxZ?)|0agsBJgApvCKWPL`IHeX|^02NT6E?Xkl}^&a;wIeYfUi~W&N3WuL<
zfy;L0!f`91DJdy-LMBDByT4vCay;K##^Fdp`B*IPV)bH?qxVlGIt!zZ>hY9U_dc8k
z?t`pFv?Z9Fy#k#M?MRj+-m;4uw5AD*+xmV{=Qi-Hi;1EZBQR7E{%}_&C8ABjp>K{^
z#u>~uscw5>bbaVa)Up+D7XRn&?o9*$F5^Lz1K0Z1uk<oC72UHBFFoE`=qK0tZAte_
z%Xcv`Gs{2!dRk!9qCUX)g}4s4GwrXHwI)s~0=yo7xj=8*m4;kM^`7w6%ve5^$Eh}R
z75}6uGMe}Gx8F+{85yrAQ6{<iA8&ooeflRw$~~{j8JycW4T%&I6dV>wPivQ$Ac5uv
z_ct(<09#;CVtYpil3zg~$cY;4mH}&xO~qFD3C|Z8o84;!Pd_Sd)_BZ6cPTWlSm^>t
zT4Y>kzK!u3u@_JkyB^o<DLrw*<xio^`4+Y)!|yd}y0r%%Mi0OHYu{ajS9{oh2@^>3
zu?3@B=>)&c3Ov~LK3RefW1G|vtK0k=AaRL#g+r8YDxS3FI9xho)IExl(%JURRC(`k
z$8({to+eOW?#|<{ukZryDNl}I#Celxld0wUV*N42Ve8{!LIsmS6gd-=^kDG^@$KSR
zeKW^O;?Fv(Vtp74W(g%@{1$R)`Ep^g{8r4DF2(&&C)!Tb`u0=ZTn#1dy;A#K%z1ld
zoY0XbSF;U}%yX<chKIm!U{$(2*PE>q1%7zYK{f~GJnZ?XAv6BGO(gY46enfa#0t5U
zzHv7$F3zUHX?Q(}N!ZxKV;1lYd>pt7SO9byz7@eDmbSA}L#+QZwo+-Tn1P5-NN6=v
zxy#mh=Iyu6Ac`CN(kRZgOLD^JiQ=Ywv1MI#hj^E4@9a#X)rz=3X(<SJtRLLts=wYV
zL4z!|^{$}9jW^4qxWQ7K^Kj|MFPrndT`uF*TVWf7F8o(ZC!Ux}nr9~Z`Y2(Tq*b@}
z*~Oh7@2vfP7ZNvr+bxy@KY4|hJ<-iLgsS_&320(*8NWwb_Fo6#E-!WIjPK#2%OY$H
zgzx6*jn4k1gFZ0nsdwUjb)*qT7S*~GyhDGU*VK>qjyM3K%vQitObI`LlhiDK{P^+1
zpr!xvr!Oz*FlFw9PK6c72;h%c>cARk=-7Vx|9E$0aG2-w#VYNlvIZ?~&nDsFshDsd
z=F{p}1rPPjlxOwDiB^GRsm8`eBeqff71fJ!^}q>|B#^tC3L=)ZJFli9WmeX~%*xHR
z%lNGRilk@0F=wf(`)MsRO5RVly56R<7dbvq2zTep)j#la2q5JOCgKA6?!MMgF9i{|
z{puyAWH-dHxL2F%K!Jz{Z4azy(w(R<W4X8x@2OO_D=4S!oMImAGuw`)Q`e7R7D?bw
z!sX;#_ut=Hd+)zF=N8Lrl&g>U7H?u%)h^bhr^;TTjWRBJI4p`L@sCDcyZ?smmVFNv
zKQlY)Qu8NVcm-bTvla{l#MXGZeXlRTpdC*tu{~}KXHuo=4o$mye_|bOCY(uFdUke}
z`TgZve`W#VSbTCEEUJfBI!O^@b>y#jtTnPI=mYn#nzFacKv)ElXN14~eujC;ApJCf
zcieN(;u`>-LW>%bt&H>XNChs%f2Ar@KqpOh2T+RK<OD7o6S$iPn67J*>YoPMQixAh
zdzPS`7ybDrRx)mXzFz~5NW=jbsqd289#f#FrysloXujrG2z{qkmNR5O)z|vs*}K`w
z>QMu9{c6>RhPyAGwpdP42Q`^=$64A0H37JqKF=^0S`EYjVa%<Gy$~n{f^?72Dey%)
zK!F7ZuMc*nqJrju&8qt>rwKq-)J}&B7kw@UT1i1_gLjlss*XIH%wm*hXumPnomo6y
zkMzd_m)~ZU@mi7q;A&duJX%=|G{R+vC~5j#=~T7xwNrn5uo~P4A4JgZUrDpcu9k+T
zrk`ELKD(K?0#K<1vXel-1l7yOBh^Sdoqyk&QlL&UWf?cg(TfkF6p<E*wHw;Y0+@hx
z2iPv2vWFkNddJCh$;kUBp|zf?*w#~GuA6U0)wo%bG%IXub#5A{w2*r4iS<@@D;lo5
z?-*#0tx{XN4g->Ab-~mgzrWt502H1}4<~-*aP5BE;T};Ts5MTI(Fg$P_u_X72lG0~
zytzQWjR4)Tv0u-1ygw4q%iA=cKVjEUn?G1x_ZP9T+PjSt#-^sG&xa9-g|aho25$gz
z?dLKo?0@Ro-CDH55onVo9F5&!(g&Npn7Wnf#rl#B>M5`W+1km{o(r3>+GXv^0&wWV
zT3cGy_Kp0OhDv%ft%PsfxKRbH8z@Uiaep&d2;c6G7dGLz<vLO80Qht0kFg3Mrl5z_
z9`mW4PrMJwgyP{UcftYf$-gd3fiGRuP*+d$ii``*c80X#9_+p_)vx-|l_cS4ldYXv
zWM1`r2II9fq=y_Sw?_h5mjw(g2xvwF2(QUHAiO45hDxSp4M*p5#D6cY1K)H{15n+@
zH~*DhEWiUqT#ZH0XoVwgD@K)rJVrJbI*2y7erZI?t}|s3M249S{?4O@V53wS@A|d$
zmkd|SzzJx9=pFtu;#hnzrP`TZ)Z5ax%$GA2BN|3}+mdoon@lDrGmBZu7HFqRzgT)A
z)Pw_SuEx^m_v=x=?UjR_SEnx?x-H~pi%OBFV}qo($K2miX|*1?7b#8I-x%EK=bWwz
zDZQv;b*}Ho0jyo;gdxY@p08De3=~@h1@lU{P6RxWonM9rr6~2+*48>l$*wn3s>TmF
zJII`$PtY^-9%%S;FZ(Q&G%*0Pn*_Ech}hkwJo(j!g~hT{#l67qXLlWYu(0>bgRHlo
zt|s$}SX7t$mO5*xnuT2l$MVk)-vm&%eb=XdSk8BXP=&eB>~3_*5LH{ov=2cz@=GwC
z3SJlP4s6g78r*qvmX*2KwB%13RrTdjF?1%+DF5(Qo;|Qbf0hm=kkqZpDK|?DqU?3&
zR`w>edy>I~OMNaczn%SjrWG&0)o0*#(445QFx{7HkUf}cmE_!!B(YZqVq8q4Cqk^=
z$EkJ?70R{9umFNE<KQur@X7#SmE~VTpM^gL2Ka9+R6GXSm=V?kbegNwdNYsMWGO=9
z8^DIHz?CY3e5g?nf0qHTSXw<-&f;z4Ynk2f@%U}P@6RrOp+EkJ(3yGyWeEJ~Z>t+4
zmCiDrhx_DAUU8QGTHlR42B6CN(BgJ!Zlqy51uEBCPSp8(PtKo7$yA644@d2?35-Mz
zm)S|iVgY%uC&$LRzbfDi{rdY8(qA{>651We4nzfCVH`HurP_Ywv)fdqi0P+ve-J|E
zn;=_E1<i>`EtmHW^cR@9n{Y2Pl-`g$LW{kXn&OSGujys>Nu#dsy_ZLfS|)6Xqpk76
zj=nRlgGJ-!xIwCFH#0N)2#o3vsJ3Ntk1qY8I+in(FVr!Ba(EE5G>NBdpwg%!ZDP75
zmNk-9a^<s*!og-7Nbi2;=w%kIbZ0ijgAnbkHXKa`*4gM%P*6lM$Si#_TkAadn`)Pj
z8i~cV3v(kCi-W|v?KCPQLDTN=2{l*0l;)U6Jq`N1UFx?-`>m$q)viixlX{sd9Z9#I
zsO%|6Fnd}6k(M1267n8kUklILlGTwZV(Pj2|9ew#NlN0>P?fHe9PW?PmX?+jT!v4-
zzW19a@~(B;yDQ@S<qrK0e)jhEon(NvMg>ywDWmjf&Y;dX@Q*|Sa{u_o=1^Q0s1qyj
zfKwml=1EWF?scA^P4P{>ZC^SC#)i)T926S_H2HymR?;SphW6yU0;BwaR{%pMe45z3
z%foTwN(oGbL6k!aAd$#ax7-8Zr$fgA_^M=E*kMwZwj6|d8qNlRK=4(Bo(x_WiwWdP
z0GYZrNWyP$+<y9VTimwYX9cA2`>I}EUSYgvIpu3j@(>y=7KxJ1BZk*uKzzEfYfbaV
z2R7#_y*!!b-Fn-h?`bkG6BCnB6wV^-ROw23q-r(q2q(Y0_Fbc5OQb54TzlLzKnJ8Y
zW~9kfY0sn!MCVPktWHd=&0dI2QST<x%ABy5$;93n$d|`Jxz=tExb(f5G+@2CHQL#C
zsACAChVzc|Nckkt0}lM~AIYxuQdz)AO^4LsO#+@T1o2F&Fagjpc<83_1gK35Lde-_
zc0gz2{OHEB@`pQ96h3noYH}I~B0|R%sKct3Sb;&n1rB9kxT`rcZHb(6PD7ta#r3-j
zabop5e{xGj+wK6Nb@d{@=FVH*RL=o3O5IXvn>^Kv69A;Il&b#au{f}tV&9v!1@oAs
z!A}0%Bjov2^w}zq|Kwx;sG~yW>73?ke{crvui@DPcYYfH5!LHI(;8nm-V>LQP#st`
zTIHTiNUVQQ+y?SYIIlfO9@D%ZJkY4%ETx*ysJ61u3SVE!%XI0IlX~TTX`W2Zl%6Fo
zm|cV&os0`#=#&hVn|M?sYkwSW?-B7q6ZB%WtM(Xq<U>_S8N|A5VNUo!L9ZmE9QwJ`
zN10fP<@pCz=ej)2Gm2O5S(Vh(6&6E&y@!C50q~+z0@f9GX?|41UsEqG4g>&}`NC5m
z7J8^CvC$zpc{|~@3>pdsPx1!{WCbLSIp!^A;7$hM84E%@2_RpND9qQ_7mhM}B!c#0
zbNhZ?I9n5)0Z^VzL~x$MW=N%BD}12i-qs?{xTk%-H+ygnlq7NhjgnG8?F0)VhkJ#R
z&To(~<%J!W-CHUv<jqCyk%;x1JsQN%AISjEk{U-VZG0-u2ID{{J3u*Lgt#0P_*a2u
zO%UwCxr1PlR3Oyz%*tkMVP{_7tLcbJN=}A@3c$k|5QLrHZIa$AV^>RBBe$yqzMoeu
z2v{t{l|Svy$fVMD7-3*EefL9@{BBM>R@r3~#F$qouY~i+CLFg6N;U?$GUmEXnYC)O
zDQe#S`cn1E%F4qaq5Ja_g+lG8$@$BV0%40$d4JV&tC7V@wg6~<lON{auQ$6RTn7ux
z%D|Q~_YLNQ{k3+*R*-0l2;I1$>2q977x`k)b0n<(D?74rg;ZI8ELiebZO$hS<YxC3
z;Mx-;pbHHdGHREWoGd_|k+#83mYV(hiE%BEhUO*KjY_%YzkdT`)Bq`n3<QNBTWZwN
zP<EOW>fJRY0W9pIJV4@cL+xYzgOOV{&Cz_`lgRBNP^DV-2DKB8c^t}<JCZ70&zw0E
zNY$9j)M~=b7>Fx30%*@%H54Fp;%<ZwNc_@xXQrn=2mba0Zn0SOuxh>8W^`7-cogE3
zeDm?w`&6`k{PClpi0Q#w5SXqt2c%JgK$2KaprSfaB5-k_@B{ctc|LE&({5`VHOuo8
zHYs{&Mxf3Z)|)t?ph~ElNq}qXl*<<{t}~fDEZGEnego7+;He;^;@rYe_6fbFh!g#c
z$o;jZY-%~o^|pPF4Gz9*Qf!$D#1s)D0<%l=oxMS*{8#o^96Zkgv4b_pYr;|Gxa-iT
z556FyV%AENCBN6be(7*JRwqluygX+S2z76ADWZ*IvkmB*QrzNT@#F|ViOEur`5tLd
zpaCW!o}s6gdzo(;GDp8(L`|WnP=>>8F+pl?(SeBi`t>U+hDSB<R^a~5yprsXNOqZn
zR~NO_9JV$zM5}D7c#+%V-t6IkkPjbL*!SAP0UJ)nVnJ$LgEy((o(#gj<lR~tc2_C&
z<Qs_u@wvoy_t~#Z)aG1fl;voqYE+qR``>!wY1z5de2la-{Ce=AyVhG;M%h)X&UK*P
zkm{55$Qu0aLjIPd)6i;Dij79Xjoh((lj2@LSe7!v!ujQ@Q5*__Z*1Bex-%NLQJbKC
zM%n>xM7r$u6BI?6P@BLaDFNTkN|uj;>@|`X;F0_`P?O8gX3=&Nti&}9!-7hh)d4Uc
z?*U7l#d2O&2;AQU<L(5Z?(o%W;pGAycDi_Nswv8KtjMB9gK|I&!eIdPitI`A!&vV)
zHM5J`YW60Gz!|_+8x2|*NHc~m*&PC(K=Q(<MKCL>gw6Q;`K|^OhvxL`(_;|@a^x+%
zuH|9kVqb1q8Q?ui3>I*>#W;0vKt-8!tQaJST9~f_5m$3C43r*9T&EPsWl#YL1oKP`
z0OFlB0Te1g@z$meRG!WPVeP#KI(Wumpn!Y;h-Le|xQ_1Nyv+g$wXpWLLQr5owMq`E
z!~x3{gA05$I!dtFl+Y%Ci(@|~boNpradIsjlYpSAIzVpeXKraZQ3=Rl+%ZZz1r(hB
z2DO61J)n!C<|pw%CivZ0DHGKAVBHr`_hq5$XMD%05V#vmLu<^}8)=GE${Vy7*gdlw
z?$df^!3T1kLe+ig0B0LT;FT#Qzzem(bUXWj9Eh)OeJ=DokLAj6836;Fe|!a$9}9zi
zT(K+gb`cX5?M#w%wKRcMQ)?DkBP0;~ew%Y<tdcGTyMH3Y7?OY~@Ic0r+}j+*S|5SH
zuo$PJvET34EV7F=>#f4X2+ta8A%q2Ts~=Mjk~mrrs=g0;v$QZRt*vM55QuoH(r*F0
z;KF+IQA6JEZ*RLysT%4$kIG-{x2(UrAnrW<`N-|%$+N~m<e9{v$o?M>8Xe$2w`fjT
z>K-TpP5$T4pPwNo=&QwmVfR2>5YVE)J2!!&u}=V#p6whY;wgtxfZM*V1HHoL(;+c9
zh6GP{H(miM*~S21KO}a~@cCO%OQ;IwU=)Sh6aK_nP$b$%fFv_0tkWBKHhy{E8~8yl
zsKM=wQETl3zJ%26Rq%uxt)yx`SFmc3+Kr>3^Gwywa#6_TVDx{Sx(-#=g%Tdz09Bpm
zqFiyIHj%`o;WGNSjGTdWymG4zv^X57cSZSr2fkCa2=a!><vRcEz<{r>PE+oJY$4GU
zmqWaUcIS&nD&Mp|s@bv6{4}}y(`1Lfw1bQCAJ+o>`43A^zhQOpF+))k-?ZE~_a2zQ
zK@Z>#G2VHQ1j|bLQH#D_zdBQ8@;#P@+@6CH6s^TA=`=6Rq}%g#T?&+dUo8TdeGf3>
z%!KLbrDjl)2PM$fE&y(SdjiACOM{#dFV*G;sz8{k`K;uXyZfu(vioxMo_KnBk&1M$
zmzRN}=49%#ucyW8fUKwZ%zb!UADV5^lF$#FMeCw~Hd_x!o1#F?cwYll??8e7EXWKM
z0_V&>Kl{x?OUDrK8HDhpjh$WM^z`(lWnjMzy1y>3&H*Lok`KofEe4euFzJj!;)0Ym
zX>%V=iB(ObIQgj+nh<(XpIV^bIQv0=jI^~oBSEhI3<#$n`+<Vt6i_jht8yAHjUZML
z(&Vx}P;)>~8zyVnrMUeFas=V~GPU?fG5~ITNnP{_gV%u*0J<ADIXVF-KqLF}%5F<a
zdXEMIUHu725}kVB>K8LMczYS8Qr$bHtUA-=_SOMt*Xsc!tDvSV)WrZlps$zKXWEMI
z?#^Xyn||icS@eK<Hldc*Osk$Fn5cq7CJHdK)x|<d3zU>Vk6_Fc+|V$NicHC1QRX>S
zptpl+W_=T*94G>h+<f{o{VlKkuZ9=6yDY8G)tf*%{d<rF>z7*DZSvEESKsnn6RjfI
zL^QClsh*FG0hbuJ&h~ny8}!?|4a6LS#ivJK8i7O}PKcDgD(Moi0qRdfwku;*v@#xZ
z=jOtzAi;gu5yoflbuj!|Nq<>XI2hG*XR2DsfD;qN$I~=x<}xC*eL&cVDF9z>syp0W
zbVXFl-Mp)_%`ktct!Nb^A8_);J9KJ%e50M{39z~Cm<QlTSw5JFg{RTIjc<*M?<FU4
z_CTgxIS(orAf=&$%;*RmKn8u{K7ve?BPKPq&Jj2l(XLvgVS+z(@-!$CKwQAeBu(`+
zO2e4lZ|(zU;OZATWWo(IeW|(iw|`xE4x<{LT5A@Y0}IZ%8Xq}-U5zT$fA}z^!n!e>
z2N*)CgbIjg7sgLG7{U7(SV;?Jo%KF`j06Bs?%I5qM_e8Frhku~D1_^73yJpOl%6ql
zErgGck6>5L-Y{{);@_SCbp2=j6~c5WqToaOaz{kL(IPj5>)MUd1a6go7Nx0csEwyA
z<EozBeQ2Q{|6f;aakl_mUGIJWZzKN+FC>^5xGjUwt9-t3Zb6yg(tD`qd=}U3tsyg@
z-(1KAja^gyOifAbI}wyeEjAVHatdOE+6=?K6d#X<R+{&?p#obx?t=@b-q!HGrVW%e
z&+-So4z}4eUZpS=T#rhiVN-zQI%c+8F+#WI&Nr;leqw9}E7H2x{)+d&g<Sa}bFT-1
zGCr=$41U(C_@3n4w=g0sKK>4Ri<tCb7dftjb~zb*J)TukzsBFC%|pEP`=GZ%x>iJj
zP4yLs(79u^p@Wsdt%3|W)C=?DVhWa=UY`*{R9``G3k!$dItw|56SDx-LQP2;#S`Bs
z;PSVl<9~YBiT`$$``>R1UH>0#kqSN&PQ6O@=rGj%U*FK;KfURk6mV%kE6Nb2kAPi+
z@u4a;b}jVpzFhwIDgfQi^S?y=%}|lieHuMr*Yqyd;`%%S=Bly#P~Uz8{?E3`qw6f-
zmD=%}udqMdvRt3Yxx|zk_r#+tFYx&P<Jyo=DW5j=1Z)Y)GST~)cLWwwU?+K&PYbnK
z>ofW9{Ddk#Hmid7K$`G_uxgc_$Edv4TE^F?1$fu+z~Wo=-R$-`3pgiiJG-v&-(R%K
z9jl$kVX%wrlzJoEOGGtT1g~>%nt|x6!a;n(=BM~Wl_pX?uY{J4`@h{VymZ{B*EM~L
zD8M()pUe9Ns?K*daWfrk0~4(LH!KxTs0K?OXnXA=?ZOdfx39DObFv0`aFNh1`|OUt
zML6PM3B>u)5sU<zhBk%0_Sw}-ZV>ji{KFCdo+{_psnx8>rbs-aR!M<zBtARalzEl1
zH11n#V`o9!)5(^hJ#E8v?eQt`Yy9U=D2uXv<vn$ofeRXThMPl{O<7U#XTHf=`mf-x
zG~ZuxDCwy%hCho@lI1?rT%d${#P#k)^tlVr?4~_cBNvmT6<gwpQ4MLq4{ufM*Kd%Y
zwl#`hDVnI+gX_pqhZP)iakX<2Zug@&k72k;nog%{(!zq;|3{}!`w)np%VXNVMf>08
z5ls>AWsEs<R_-8cKkjZQRUcg{qT<+_!D@PJ&``nj;M?X}YJORMmr-${{Mhs#$HY6Q
zT_lZEO(dN!%*hv3e-oA9G`El-{-91m@Rn9X&7BFj9JZzM%%H{7<;wozg3?aXLP>wk
z$wlg>a>!*7`0avJe4&fJ9Dby>)g5PuH%iq#Aimf;azK^VGZPh_u&sQpdlNFo*(TXW
zxMCMG_5mA>w;TEH`R;i^X%oeFE*;&0gyGq-iN+y)q=O&pOJZ(d#$)4vNk_k+moyI4
zzBK4xTrIuORmdU!tRt4L=*V$3R2$mVWoveuyezp~g7%+zPA*K+<s5Bp)X)MS1?2iQ
zDpt4*^8Ol^)|I1n*VO#j#9Ebq#bfEiU)-!mhGy1ikdY_mGo(dIE;(~kzx3>p%+qe_
zeQCfpSJ&fUR{=P9`2N{6d0EgO7^353kwDy07ldet<~#Rf#KMn;aPxA$(ov)Tj9a?`
zso<C*{eXwsLc<Q#QYj1Cy=&WsCPcfsj^Tf{)ig7ob^Ki?J_Q%eJ5BxKuLho9sd&bY
zcRFUKN50!YquL-7gh{zF>G}A`=ny(K8sa`O&^CamEOB%`HlK$!&WED;9OCS*?CBGa
zY5S-xK^P#%CMwnvX$MB+ABj-kc=X+gx@Q;yxv78b2quGLF8o7R@8W`wPWA}<-;J2&
z2ml+@PXBW|9~Jd~?&b5J+eEHbgiEmAkRj6KTkW-HUm+5YG*?X7tLFFzhNSwLB3!8M
zmhd7tF@7g=L4dBvccEeHk({5$R+h443B-;-1b0G!6r83J6JG0FD0i5GQ~)=$LjHg4
zy?0boTh}*AIf4yPIf_WLf{Fr)fFKYR6%hfcp%)PlkfIPe0R-hJO{I4!QW7Bak^~Y_
zL29Ig7D6JOP(llVgmO3GdCz;k_l|FT<Non}-*fM{42Fii_gZ_dwdVZI-<)&p9hYF!
z(h*_<MLb+&xWmnTI@>=PC34HlbMgzgZ?%6{2ih}%K7I7R72gebNsFY6hETpD={Yru
zSyuHu#R9~pVGC5Cze3Oow*YZh1+E+yFk#u;$xHth)AoN#idljUo(Iko;mX>VXB_kg
z+Ie<>aukmP#}r2sI?|%>v2bZH7@P<;gL@m%EmP%p^*H$2K;<-7!cSQ^iO{i>50*}k
z<}2JTL=vPtcwwS9>bHDp-<_D|NLHs0z5&>>Bs;G<T+9%|f6E&KO`ClqTBtNIXd#R}
z^mz=}jY5&7{L1<vd=D%Wt}3gt=767v?OYGs)WK_LRXYzD6B`)J<WrdLXDF6ITff^i
z)8F%(f!og@&Eg@{Hn={V4**EF<m8nttwz#(55ZTf+F^a*F)^G4HCN;SV^j&S-|Tf-
zX&<|)WwdNWboAS)6c;cg;H#7CP<^b+5<UcbZ!cVz-Tv;Hu`@0e11e86t(YR&#Z&+T
zXAAyP>e$6|C4}Fh2|PEs;q2ubfVXt&=&b*t>RssvvQ){p897orv$`$L*~@YB7qPlU
zbzZ^J^PKY>6`n7R1b`#>+7SSm5-6oJK5A9AiBk%5lS?HYUO?2cT~qy(?mBhin3|$1
z*^iAoo7<3X>dAk|-85F=1j52|7oKK`PuQumutWnfmsh$nUW^!ufBu*)Ji^O&y8w7s
zm22n1WJbkKaq)mYOaLszT|i5tEa3-PvbYrZt-oug9m*eh)m2~gj#)otMJNwc51bYH
z40Jr#1azDOYc>=x!symlGn#H!H7|tDANC0<_3Mzrk%AJN`QY2n_^L#Ksaf0=l^`Vb
zq2A}S5}W2&Q@AT7E{E63Q^<Mrb3OC}Fp<F)Jb@pp#^8Y8S{l(K+VWc2z8F!K-To#n
zcB{Tq1P<0}-tq9;>Gr~477p~RAXdO?a{B=}*dlwL{GQdoub{T~HHumWer|z{<SPvN
zSqs)9l!BC0(F{5TO&O;2;6G{^jj2`)DW`i_(uOI_yc!3?OoZ!=Vh=}JhTM$kZePYV
zZx8xlo@_bAsywBVXy2M`Q|E9@8fB+gTWoPQ`s*4cvIL{B<O09-xS0TJHUfin(nN3N
zGK$5&Qp4c_RV#O03_;!Fqb|FhVUGzZJtvxOWm33PUi2@vi+^2!i0W<itPWJbQV(y^
z`r)#0eOS!=<a(i&(UehrgWsAZ<%R3A|9VLXbI-p&&yaMKhFK0jqYj|t4oD+B9>*FM
z3K&s~7W7@xY^7(v1{rv}EIVTYA?7q<&sYT%p;X5BLYc?=r_R+g2Po4NxBk36K2cAo
z<g&8$r+uWT!*@)#++*j3T@?bi@AMGt@P}X^xRh~d!-<LR85g%sxAOa}+hawGX_mE#
z3J2V&zdE<<5gyNCpRB;~ATYf|zQ_)Et0C}XTi(Y`{i<a&+fc*ksc%O)&|>fsspcP8
zBqG?N$Pnv~5{G*ro|jK8)H`JO2hp&UUzAFUp)4-lDBX<s!exkM^e1C{xzGyFU)huf
zAymy&YLuQah7Iuug}S7H89d1_6<z_$gt=OzE2g7fDzO||u%H?@S_npkZP&Iq5fyHj
zyzx)xGvF(UhGq1RKYfZ?`9ZOfjS;)%p2-q4r^fNKlDdLPF;h~@XrdFD=ch|k$0r);
zu0+U=jjh3N?Oqkk`3unMH(FAk<!9Bjs*QYfs_ev^76wRptUh?3sqI7e4-P-8T98C-
z9~=&}b7s+lV3m`X$y*O;uPMZNf)i22w=KA8ufav20bRI&^)x)2r01_}A=Ytg(&4Jt
z-nO*fne}eqaR#4}7{g|*=Ab7oA_Zc*7X)*T0CLa`q?4nA?2b<X#B0QJvx~CDNn<UH
zJ66ak;%#_mB&qEE%7~mSbl`S9tKTbcvN%SVospo5_baLjvR+y8tlkU(@l<^6112ta
zqWtUwDF3`V$DxS;emN4Iyrj!XW1(y5pMViarwNK7->>jy2wKTM*$b33Z3=?vp|WGK
zMlVNP9GZ5n|MNK2z6n$MekB7ChW^j)6>yPaR_SH0JsL2KndD}KSi#=neUUN1GNULP
zvN0sf`cfq?1rIlK6$F6TwivL5%-=ot1XpEPsT3dyt4q?_ZdS$H#Y2{X-jE23PNp$U
zlXLGK4}id?U(Kq%Ai*@4MKr0%&pp;f$cx9@%7W<Ow-*k;Wu9Tps_GbplwQggd^{@I
zV`8;VA0}bg&pW)Q>v|_&MZ7g}0PAFqL>EM-iDHU~;SH=wE$T*djF^DMds%RQa`>0o
z4c76}2mh5(75dJ9^{=4hQod744b$kbjmo{{A`2>!x3($qc#*ZGfPc}4gFJ$Z+jnWV
zIQwk3YF%i5y&dcx^UtSq^F2AlW*tN<^Lt)p(-l>e<qTIa5V(pwn$Y-`qKgNZ$<I^F
z7qouKH2<fuq#WPCMlY2iqb)<)oBIl{f^TN|y@3487BW#Iz-x>$O+3$)iXNtMjz?R7
zhU-fiQIs6~1U@>Xfj45w3~$R-;yZ+;0dJc5k!b+<ns@tZEodtduCKo=rsGpj5Wl}p
zGv8`HIJxCT%kfySQ&Fn-8_!O?d3)28Mgq=qr0J?ycWGh$c2}}Oc8t#ufCWB-)E~?a
z$_l=T-HBM!a(Tpq3*hagm}nTIESyv_7Om*nRo_m`2jGP2y90(rTY5@giOPZT)-7El
zj<5P(K_<$*{LLI8C1_$ydaRfSg$*HdJG6Qcuf_u&v(ELkYuN}ojSpHIAa<%-*RVMN
z=k2}zuEy9?+M{NpTN5=MD0UHXW_^d}_@e4_`_0@i6nBbje$5$ltp?V=<M!@g2|bxU
zk4V1FwkH6RS3ijW`CDKQIa5l<+`3&d*K6<Bl!-TN6jmS(`G6<Fn529m5>3iu`gvg8
zYP*hwz~c4NG3r((vZa2fC!3Ijl2m2Z&2m^;JN>0%ILlyODjq*~k)<7T`G6@7+OZM1
z_Siqx^6>G+28eyYw-Bd2GZO%?0g*09^8cK&*Ww3Y^XhO=dh`w$vVI%F3IGN|fo@<s
zdRvB&9?BR#ovVlyz+k21c?_nadQ8<Hi)EUpn^@=t)*@fMfru(T0kJycMg#5C4Y;Y3
z>(}t1T#Qq!qwRo_vk;4|@7EJaAGaG%L|Dg-o&%;m6hdMBQF^!fIqSoJQeB>^``=2m
zi$yJn`AB_8=**H(XL}t4^3!uO*{M0rk0t5N(>x-JqGt6ae&mCbBNcx0o|~l<7fw2B
zu<o~o0P`A4E&86$<1I~W+f*<V&}o*2%O4(KMfX^Cw}N1Awb<je>N;W=IMNsLxXO-i
z>P2w|NQ8t$68;G(s2bVNTlZ)mC~(P}R1w)R^~1e;edqx&7ueXoUWl(go<aYTyfpJq
zM5EpUD4G;*exS`4jEkfy|BW%g(B);voY%^lY&ch0Ln*xhARr=1(9QgZFMzU`|HPv`
z1hn<`b!A$1qPE)CIsbVJl8UUV?eQr9YB$$H_GZQSAh61AX@WaY$hYKXf77r2PPE8m
z#eW59yTDvu!04D+p9U89l7AAaknxeyo@|RNlKLl7n$gf+3pxIJ5F=U@WieTiT3AwO
zN$QL!tFQ6f2o7Ye)|EGBI7f={f$+o*;aku|MY@|qsTu7(B?Mp1&SYHy$ijs-G=l-b
zI^6P!MR}?sSnhzAP9fCGZ_h!&D;>2VAn?}ms+VzWpf8_OIj*GMi!~)&GKgUBJ~{k8
z=S2vsvxHXDKhSfjIWT@0j~2(Wn^ZMRm8|Op{rD``aBnFe@eXiJxDI&gar2ac!<7=b
z-DbdPr+rk5l(1Ol>=<XSu^Vskw!M;S4Wmw_onTyF=eI7J0jl%!r=?IN;Paeodkk;a
zDTl*CxeH|PJw%TT=lK2d-0b&HrZ+ao4XeP1bkpTM<_>5Xtu(k7aP3MP{IdN1x6KY$
z_+pHIl1BtZz+M!St(2`%%1p=q#%tPV1l@tm1*@<$^W2TzgCor~<)!PT6x1%qxS_I!
z!b@;bY*moB_Voz=q?L2BV>N~#RND#|3?iN14_#dy$bo@*yH4+pNJe{ifz2m2rwlMw
zDpf7ea*Txqpj@*ZA^_#5+H{6GG+`<eO)<lr!SwLGpd70wbeU{Xd==l55|+tV1mtVZ
zJ~b2Q#VL0zXrZ%OGLR@_Tl@NOeXo+6eL(+~qm!60LB`B)*gE)>^UP0ifmSndD>phq
zKbZDh4KkdaYHZtYlz4SFSg;N>Ho%(2vdx&_CEx_P!B=FSLvs$6s)T1|?^D8Z1?KHL
zZDhx;`WIHY*ax&j*Q!oo%vAizDc&b*N0gPz{q);vz%&9Z9Ox|gxStv=35c?rs=*-L
ztsmLDX_XUhAKBgT`3_An3)sUxJ0<Dt)X<@=pe9vg6>BBc+?LifVzLF#CjJi6ELqyX
z3NFw4WcDv{xDVpg=RP#CN@<!)h>x<UrMB7KUo#KH<1LfLhTc}5(rj>dIxHtfIX6m3
z0q_BJC<evF0@BeJnz9+mnzKWEJ`P~Gs&!07(>x-z$e_gUB`tyS-ePjo<W|sDzM&XN
ztvJ@9i7E>FdfaDYRX$7rj4Nok{-nMRcuJyXPLT9+bQi7>R;VwrB*yRiHSDE2+Y=pp
zGe!!ar(G`X#5OArZQRCuj1&?8SZfiJRdt*LI9Ie_N0ND)_G4zfmO_OK&0n92!YAgB
z2`CKexPygY0v*cRZS4MgVe9iQcIuq^S5R50)TFaI?N@TMw{v-YV-Gwhzq$IxM#02B
ze0}O1)332zQK8V1@GK%cCG4wn-D?&hG7di>xHyuh@d4QLZ~8>c`FA_zfNV@mfu){>
zUb@AWcI@JsLP}VDjMK3-OA8AV3u6^mzl8)!hL%(*OO3CTWv!6|A4#Iv`rlHT@LMou
zr!dL9{?%v8J~+s&e0l9E{-bO&#@3IJ{>{sGbAqxxKfITwGJXmuu=G5GIaAV9EuJ-@
zz(uiBVTM!IDGo5Jl4y(HzEg&{!tJ~vrOduvg%2(hyi6tvBpL<vKJ$MaAu!NvimGmT
z(`%_mY(RQI9znt>Ts>2mq4T{eH7z6G+m1k4BnW=P0PF7*J1=1L)FZauLE7yVJFvkp
zhta;ua!934fE0Hhv2Gye^`AU>|NksEb&7J<*&88$*uYsw_2v{~w;@~3b%2UAP{<)p
z^DSu3XROY2%l;M2Jmjf*P4Ch&8W_p(>ug^Nf{hpjmJR6=VM;kjQhORHvy&yK^>G0E
zck+;Sw3L}KI*`=>vVy|`h6->?!ujdIM>KA{?|(x6Q1<U%6n=aZOb5uedJ8OAPQmef
z24Zkt#CDa^)6c9-99u#o0AIFn+x#&Ju$hs2XZ6f*${*iAs{eFA;Q*fo=(eh&>~_{a
zJqJBQ(9QCPFOVRnpZW)LzU5z5ji3ACKhVBT{^#XlNrI%H<5NTj`%Rtyl=7gDm4fVc
z52Z=+=2QWt3ZUHogG1xNzv)@(!aKmitC=nW@`j+B=^k^d0~hdCe>>KJ)%pCQpOcgf
zyouIbqAje(hydhHGE2M+B*5NO#@FR)$|@!0pOVO#eDv3&tx+mx%0glOkKIrnu8^ix
zbJj8$*%VwoRkHGiqK)55nQKG2D0oyGy1}5ITi#p#X7P2b>d9C8s1Pp$YWfHit(1+_
zt;#~8kx!Lashr>~nHazsMT>_l9QW8(V)d!%Fnx88;~1Y?VR_kUimKMyc>UMabsmSw
zVWiSCrR~SntiYVjI6jMW#5UF3d_F`n$sb3l>RI{*tKk{`7Zq{&dG%DZTlq0>`Qds`
z=@pWJg|Y~ysOA0u>rTd50JGxJG9rtr1a6j4Ch^zs2`a!duYTK}0kag>e@;7fq%(Mp
zAFl>Ol#tQh?U7>F{<-D{WXJN22te?cXy262_cw<jJ0c_gV=n-}4yf(x{3zubTj?na
z71@TBe-a@=dn978`BXU1FV?hRy9aJONtYZF{N?)M6?;|uO;7vHHz9sDK7b#mH63x=
zpLV?-^eWi&%195KTMGG3&dU+V_H5o);3(x#2TPYkTkWQuzTpu-+9{#w!;X<?#8o`i
zhzcBL!@9Fmx#8j3&CNzussAKDjf<jITT>y<Blcv!D@_rn7MMSi0t)<QvQycNL%5A}
z%y;uq4`|Dj(fbOGdh0(*Fm}Z9fixf|-S;Nzb+UJjELkPTk9H8}zudk)&q-@s%+TAq
zAB!Jk&bHvc!F70_MEoEa(2zYkj%q?Dh;0C4M<4QQ1~=%o2|96(RTffKQKBT-OwXZg
ze-nP4fCZ5E;DlK#-KnoL4@OYlE)#*m`2~P>7SPVRz?lxWt3l0d*2I&P@MR%*qE<7;
zYRe9Y7M*aCK03u2*JRbPD5!;Qy~k%$zN8WA{HT9qJExo1*oD8mX9EQ+k<%yG)>=AZ
zKxl5#)QJdJTP<O~#U}Ag(eNtBc#8yNyih_K8C6Fpv-^TtVrO%<D+tV%f<Zl$RFMpy
zTXa(*K98aflXZwzsXzw&4G$j#ID9N`(YsU%mEbLw=x|)SuMR|u#_)m;@6>CpJ^T+`
zI_y&;UssE5vyYzl`!UJ%-U>9g>KY#vBXG^_U2^HL;9}piZx#PHf+wGv%VKeJvAz}?
zs~&i19k+0~!9@CJapoMbBWPEzt=Rwo4hIY6jY)d@E~HRi15qMN-}QmxiALNy%|dJP
zM|Y0|+Z?XqMnvrOSX2gB0}dBiyjMms<^-;$CJBluKG9;eUV92qW-Zw<CXWF>t8qO*
zdAAZNE<H;-t(RE<8C(ajp<=&hv<%7srHI0WYjO7NrEGx|<D5`_Rke;7DVxD`GK1Lf
zdSZg_`0XuL=faBsR*UJ1pi{?$;HbxLtb>Q21Ln*6WUQuEOs?;`y+>GCcI(UyV@(zI
z;JhZ5X*)kW^c%-L#|rF&4F?i~>G*l{=b;P^%QG^&U0~B#k&n?a4pysDF<!=+{$AfP
z|26pkUuWcpDl?}@Swjtgv|t$r?@j^^%IYhjX`2f@#d~8)3E0HEH^p|gdvRLu$DzdI
z=$-1AsWLxMSLeKxW!29IyN!Zr4py&+s6yyNYvVES(0tpyw1T_J-?5w7)ppVW=F5c_
zY(W)HOetKD3&@EzigOY`8A`g!BlXSJQall0mbWc-d$i8|yM$!4SdxAf4+i^o7TY&j
zEtu8p#e)e+K&D%&#C7Od>RVE=WmjwHP{;i6$nS)2Kz6s;fbN!boaCJblofe<$D@i+
zKt@5%>psm}Yh)d`Z}8Sx;I;%q40x-CVu#lOgACGZe&!j?@WGmS%vZEI`#GCts6!h~
zxa%8(;%@7JzG9(Afy_4^k265PM!L@rY`&nu@rU5W5za0@whLPJ5qH^TCtf2;lFT(Z
z6$TSSZ$#Z1|I8U=v!j@3fzOvl!SXP!z|aP)fO6SN7o{2>gn+*E+lk#p7O7H1ybtwX
zOc98-MBUleLs99yy4+&xpij`LB54{SlL4?spaU}7E3$N=sa3TB#sElL63#EGRJ5Gn
z4VNlqrN*qo{y;~(G=e;ejYk{eid3zLwz@nlgBv?Xwn%fqyD6CbU?T8Za6SV>Nwl%G
z)$W92AMW=NpswKQMmmMnV4b1{Jr$WCRn{5H{YU!4=kbzoemEVhZbXI2OO;>RJ!2in
zzgQw|RlH!hWgL5G?;Q+tT|g}iTQi^wgx(I2ntgi_cabf}2yIqK>+YV75&t8n`+v6D
z_rErh|IV^y6;O(iIfyIC=$CQZFRWY-dKqlGJFBI=f1r!L>*9}c_A9RwbXY65)^viW
z==+Yo$jJF|B8kwJF9)jen%^}bY)H#NOCt&;gz`dUFSC0^Me=_}Q~x`M^LOd`->V|&
zV(Q6RG;~yUOj2O4LRRVy07|hw3{)ru^D@{m+R}rpUUo9qv$$5znrh9*Sd<quO9}3$
z2N_-+@HUh#kSc;cyA#Md3smSWgks=O2Wgy`IZz}q+<v^fX2HjgiFcB+@M1V+RgB-0
zSVMG8LB<mc<-i3AxWYJ&1?k4@cSbi=O49`%ph{a*(Nx!C6ezHJf|7tI<a>w`pUELW
ztbDvRLjEc;<ig@NfRPy_QtdnOcr~~HV9BETF2$l&E}7n;lJ5PKcRc(`B#*y$E(F{H
zSrC1@w2I0Qh8RN&)bxWS&~Evj)V{tmXEzc}F~L`h3p`_Xi3c4Ba$*dhRYCd9VdZp0
zYejdps3aO;36!}{jGx1kq>u+Db%2^?O}d~}_3I6sOF5EOxXWIv8ObMvmQ~@5@ZHk3
zs38%-pzrOQnCr+gOyvck&34vv0DhBFOD698iqG76y0N<2y<0J?HtZznsuU~1T2Aoj
z6qY!aL%wC-9a#}tAeO|Y{DC&(hV44pQm~MlyRm}*A}5dzO{v|>ah9Jq|LMFf1-Nl^
zqledx!Iib*o@QKurHr-C?$l%1Zv(PAbVSCO{_rKh0enhV-Tp!8Uv^-Ha*q!jnxfhQ
z`yNV`hl}x{aGl3uAcW1@SJsm3?p)Yl{%l|GWV&xx;p<@@;f^e4fAh(Hpgv2oZ{izj
zJ_R-+fdhSa2rLEQ{S!z=V~^E-W^~Q?tU!A=>>-JiK_-#qDcx`Hjy0M><HR%kVk3%K
zEe5h#|5+FPKljo9pRv~=px}P;O(^`9Lc0)$g2-pq(tH5+JZ$7p-T^r00#uB5*WYs&
z`Uvn?cob(Z(hx8sE0NE;+xggl@;9)l0>et4`#qpVg-~`U72EylBP)~l|C$XZ{~a#J
z3D|e_nFntJWD}bJT51T<s<I8)gR9xJVDEXCf(6qpYuZl=YVA5b7H?%pEl|~S$@KT$
zomlMi{XYGDYH+ZDM2Y)$dR~ncyunnZ*w4dgjg`t74D~L4QDA9NU!@X`N(2jNQ@y9`
z@m5A|KQmcq_2IL7G5WLLX#3b9n1dn7gjm{=`RybAKo2uCuUQA4(e;c56q@zxpD&28
z_}**=K-*k(w}1vyasUru;`3pW%)YAvUXNok4Yy)uHh26dH-J*ON+v7U8(g+)QaT-x
zJEaVo6XCM+3xuU{z0c%8EWKin?u`F|Uh!^fUsqVG=sQGzvX{WR%d*n-&g7+iOq1Dc
zmEQCk2?Lx<lENR+nIoiU!KTim$9I<EM;12@?QXAeA(qW*pON&YdqdGYoNMKl7M}A7
zfl5@lDT`mEjG!efu?R$<j}3F9r`qMEzD7)s1_todZ$t>tZ~{;dvTI+ya}AXsITI;S
zpC76qvM!zN7T~d>nof@nQpTV*r)qeII~blzU-}n-Hw-{2Ag_Tl+}lIpn$n~is#;<?
zL|cqmH^sW9<BdQdQv<a$lelTa4eUZ@-MOT}FS8RhT9Ij%(*LVUV1ckBqPhaIA~p%3
zZGf9+&i5}6=reH4tFO!Gw^9rSaN|0Vf1uT78%D4;mFB>l3}n)OO=?P60PQCuFlEyx
zi~&ZrK`<A&CgS#D=lX}i9f)~_7{q86WSGxuz5)xG?f5n*ci`EYT%2HG1z3?Dhcj<*
z+xaC{=3yjD{nTNGdbZN1SY5GDv?k|CUnwz0_Wybm6r*Y}U;Co1nkUi41V+kPN!i>q
ze^&uFOQ(Nnn;PguR(ALQ3Nj!_V_vo0$=n{++q#1KjP!itfh$>9eY1i{vb{Ci{m4o!
zv#{C~H94dO&fJOjU8@)gsF<~y_HpYh(Z;OJa&M>Bp^Rsor#<jhgqjzMo-LMYV6c_(
z@8Jq~_>1kP3-}8wv(L9ofGgVY$8S};*8l!g|F+s7(*n4{`Ixm=%cG!8kt0ToQw%>E
zO@vS*R`U#z<$|vRYK>Jd$<h!Lbd3RDW;9iAYZlt8RLr2yth>R(=hTbwHw%zzvB7@(
zZ<+euu6|zQ<Zv4Ue3#g`7{BC8V+cWUtz6W?C>`^DL&8WQMPGUr?~8wwXfLcsghtmF
zse=uyOn+>q8mi+86KRw~#hX!BExd-uoSh0179Y-KC}E(GvD+vyWz)j!U6hukTH7jh
z)HyW(VOcnKsw*GC^$HrBxgmLN6%*e~Mv@)Bh_Rzy#!~OMjlVX^=yQF(e9AO$pK<>_
z9mzl*5#l)MUfX!1(-*3+OMz?uIH|Agsedf6Mgm>Lf|i|*gq9y#mg-oxjNb9^zG%wW
zJX2vf6wcSt%Rq#BvRoimRHScwOtF7oMP@;RZM@uqap1GOrb)`;-x=m))%Vp8>BZYN
ziME+=OS8b*bmn&#$K|rL9C)gcH(a!Td`ziA)V$sqy0=eQW;W8v`4;&1LYs>jt)R+v
zcbhd^uu>j_swMTJEXCT}gVrc60KC%{_$heNReF(IVGvATrBsT8KVa-)xBL)}uka)P
z+Ry1``7ob#<^R@yHiPDg{sZUl2Tm_hQPhR<VWT7aKAwIZj(UCM{!#O#2lwvFyno-g
zbn&fq^vSV_dl$}+{36?~`b0>46?%pK9J2rD9pGzovQNLae)5`K7aSLHTF8BnNZ-_z
zb#Qu{Jd=?Oo5{$aPWes_W(30FupkRJZ>@Sc{HOC8|6adNc3G5zKnnYmkIbSB`7~L^
znmRp&;=o)??mrje7G)BnAJWr2tWXno&B=_bh&|(gFvlEw5gU}(oIQ;%jeFB|(@94w
zdY$bGM+|55K2gp&uA+05WjOZC=k<t+eb(I8L3dwl9~sD}1+|6DhO`BH1V@CR)Z2rO
zpHWq353e4v;t3F4mvJA<<^EvOxjycc*ps02ppNkD_$%R_gN=}l(`2&I2<qq%-t7R!
z!Rowueo)-p!{wwkMbhDQ9Wu0QXP%=dU51qQ>ihH?tl+uc-)7h`^@kv>p66<Z!bnv)
zArhP@PC6Tiy@A(!zd6Sybo1NK%aF*FzWh$&+mv63PQe`U)xtA7^}c;f{0E5#S~L2Z
zdO0FISB|5%t;04&P0nKOAOy4mZusU#AH_C=@!r*K5DJMcq>I(Q`p$jVVf^ju00lN&
zMiFCBL~Vl<0>K`7@YA2i9egJvU!S@bE2&yHWOrPz`JzK=(W7Wvq-U72^qBxQ1l%!m
zg}&P2-F#rB{i=GTrSjbjO{_w!h?ZX+;a5Z0S9mrWbA8a}S-jE%ty%r47iwBF;Hmez
z`i$NW^pW8(s9bK0ZY-nsQ}1)gDKgQ1G^gbpBvSP5v~~2cRLo;{;kxnK88L&ixOJLC
ztmwT5Ii7t4M1SH>`r^^$TM-Pe2OdB2HPX9!ueBauxjb<*PgnKyRrVTo!Ug5LxIEuZ
zG0}-K)gjkzHn+i(9kXoI0+;EHbK`??>?7B&IhkfEfrXs(FiPr?DZTk`1L%`^tMD^{
zyMH9)KDc#koon$#BUpEhO`aQid;8E@PWJWA7J~-|3vK@-c~Z}|mk(qt;>-70OE!XE
zk8UOgGj*UBO>(1gC$RHf4Iu7}gD<rH!abG5^h`(NL}SGsols}b6c6|X`rs}K?p7qh
z4~XPfd5Ym0)Ru?eE`-F2RW1W5BX9KumC%Lh%JBHd(d)OX`m1|^IS04H<HnLy)oMGH
z1$~ZWZB?!iA{S{(3bb)>zyDxm=f**$itpRPweqd-1x~c$(?9tZML)nt^*_ORif1%}
zWZeTKcf3Z-*!(#pIK&?MJT5f!bxD7t3MpB?QD~LUS{bzre~(xO{)6fREsDNow>k3l
zrof!e13Tfg!pO9ycU?|Mw>&0~28yFr>Jc-o%-J;RCE>|t$odpEL9M$fNVmZn?bO#~
z<QWvW(0;~IC#u^*W4egu@hEN~F|3nVbn1fYx5r~cM)3yMTH~!m#&710n1Di|Vh&$(
zmmGtv(J3<SGMd155Jnx#S%=EcK}qLxzB^p7nKZsNZx<GlpV#(MB!#95c@ekXu8&bN
zl7Fx=l>fGCp<`tL@wSC2t+lYL?c)vBB#G7?d;1kGMeRthcWaj_9`0!9GWsKRn=eNZ
z-b%e+yY=e(EBipU-v>OSC#u;U6ME`Z2TGH#w(S>TcnzsvfIG^ye$Ri{b1Uc4(>Pg-
z($ANVmrmn3`6o=`UyfC%S6cb6f%&<8vH~I}Uj_@bHcyRTBwB<u{6;_Y6>++oi3AVs
z%7+9epX~6+Jk?4}ovO3qiKSVkjN}{HYt@=)9Lx}M!SD<i7~apDTYHXbzb1X3fO%}5
zh<txbGco?*&fs(A%XhQaT}Tnt+{KwSw|>8CU;~|Nj}v;vzqmHN)zgG9y&Crpht?Fy
z5pPm%zUJ~*HT7|vgJIJ<+}Yob!)$JUKtEMJp!IwwMZ~p!cVJ(io!+wQBC0zf<6H{f
z1yahFlBb}M|3SPC3g&s!O{}Dxnp^&M5$v*F2#F)HrdsTeIhFJCKw2-GZq;sBm|`M)
zEpRwXTJ}~}r_p@^=+uYF56_wW7nadChoF5w<zR`|my*2;ZF|2b<*Vj#1~aRwF`UC6
zPvb5}@n?eB{Ew;%XC|QkmTc;)C)ABiH3fcME*{1s2fVdbUUg*{A;q8LyP%&~uYmKw
zARV^^I!<!?e6hdDHc(i#Wk>Em-uLAo?t=2XKx62cX!hzaD>wQKvFG+j3{nRf7_cnp
zCGzah2<9Hc;U0loyrivC<;;+(|Lv5(?0HSi@r{a%z}d}S(pkGvS*l)h!MkfZFCRyQ
zArKk+15mUeIvXzavnAx3Q-J6n=$xv+KhN-LDQF8Ry_0F%u(uYmNf=NM&gU03>N#&W
z%1<KgaMoV1f;e5mS5*}TQglaU5nGh&*HUU!X*cPUzO!J3x}CEcr%q3$D2c@^L!XYK
z^Bq5(oWEOJD0Lj|%AJv1(9k3A8en;Rp01B{xVY+fowzh4bKZqm%mG!Ky18)cG|@M*
zdaa*>cx~wEXo^wJi-7kxeCtd1%qP<SvGi$Wn_JLUuT6${$8(*WCI`Xa&KS)wiAcKB
z=qYs0_luUH-UH4e?!pxcPk!kPuA`$nmoOEyAj$n0XRFfzhU@l?SK7cmg5O`fj_dEs
zTP?I5`|cphz?YR@bMnhn`cYpuvqeeUN))FTUMSRkWl=hoPb@hXVBut>bt<PLgx<Yl
zkNU&>zOjIlQIt^T{C?SMLrlv<!VetY_HdM{ESf5b{JQBXDUM+DUOm#M;w<*<rCPV;
zi7y0?hsc5AE>*f1CM90*g6jR0Awey{9N`W8*YnMu%Ap8+kj@r}9Dhwaz_R-hQ;5MQ
ze8VN!yZ2<g2-yWQlKQ2uNA^)b=U?6RN$zgQkl#zb5*0+Zu*&{Eaatik{GCn@6YrAq
zy<jGg@+W}jbhyWwRmu>6=S?k;uiLQ~NeUO*YYxVKpRV%+l|cq(zhUhiVakTF-=}W2
z{>a<<Dgy;YlqscaZ-JT?P0Ydf9la%!gEqgDOoX5PS7~p|adscGv2TyiH>&0U7Jyrc
zlRHM_L!KiiI;Uy+B>5`#PFP67L~&pOC*SGzB2!IoGrtF<H2ZHCmp1OjtvzexM6?dC
zfWRNzh+ojv@`XA?Kp`fxtcdbXktxIZ+ArN){V+-nJ6{R|oiv=%gazjIA>IDsdlctp
z*c8>(mb0~R*7H}5L;xPbK5)#KbMy2gZ@~%$S=(;;RdX`^Ff~qC-3Qo=7*ug0AM-_@
z?r{lvx{02>YUgljSa@Eap3GJMAWG+>xYq;y=8F(0<im2(iTxFZ^ywDwcQS{ZPDGu`
z+((9ca-HOI1l(r{DIy;GMt8(Hxnn9i@>FKby%~a)$hNpmac{?dmlqdoqS}0_M~^M0
zt>QD^_x5K2t6{Ub-mZx`)fCgEyjs`{m^1*~kex5@c1M#7jD~Z1!MFqY@@b`QCC<-!
z>Wrg62;$z1&M8zL{$bbK>a(6VLF)OkkaJo3<(iTm+q#P0+D}N1W^5z(^A|F+%+<Fx
zpJ#?XO5pb<R}1HtA3v!8C{wSXmPn5IHAMG~Xh#qd!*NT~`AxJ?=2T@j=}xUSUw0V$
zh+}2e)oIayOSgVL;T~(6a`7akcG|6D*HAf?{jz2iJ|303!b<=cy9(C_KGO@Cm;Bu_
z5}^=KETBs)ZqWAftEyzHM*`;cfV_6(Xt)Tv;U2>xXVtm6z&1V)(gV77c?vGrrr{_^
ztVrz4+l(yse!vtlJi9gN>3z@Px7yPArAys$ozE#JCn9|f^L!t>y>Iok%e$^8q@YUp
zB^arkeR{r#Z&AB~=ZAB5XRF$0K(W#2+sSKP{?Y{dNQTiFfVe!$^y^-4SHt+F^k<pO
z>GSDNjwthOQEbF#FgL#FT-At5WW272#F4ltm^^*KvG3Evz<g=uW>!g5H32g2JTU0I
z1juNoNSr6zM)v8(fc^wtvA&g|%W!@GbCeU`RSwTx<?wEY%goy<-Ml;-yL<hob>&M#
zZk*})9(4b!JP(<l?lphxsU-Y@=ag&zG}gWx+cZ`BoJ6}oe}^D3BY`g`dR3JL;EVqE
zd;n1#t-|e#bu4n*S@?1`cGW877hs)r9~iF#@5Yf($Hu|jfT)MMRAZz*Hq@L$`mH({
z*`HF_N}q|wjU=~f*vTR>qCQ+XI}<^q=R3W#_MX7Ac!xCZ-7%Qe%ndS$+rD}(LC)pU
zsQ$CQTRDZcH=>es%#JsEJ~tT2mrax_)EMLETa0EZUHkfS+~B?tBfJ3Z;2`C!cWJaj
zt1@VieZ;4@9m%&i3Gmcu{rvYju}pkV18;|ECNlCmeNvnbZ%fMExjqZ%aEj0+>48I7
z9$l#a<0LDKNd6r9J!YIqJ5&I9%dFxC+!YYIBIkO^mk~~VGd9u}eG>h;Wgz%hz0sJZ
zTDMdV)0=wDHcsJcAs}i3OVr{d9eu;*)#!rueyuF@%P)WF^l<yYpR2+5^M$9p`Pvq@
zR43l*5dOLnKJBUovCKZ>AOvs@CA)x>Aw<cj(hW_(y|)ghrVb&boIh>1T>+5Wu_PC5
z-F#?G;Wzw>3ox(AU8)#|^%Re`>5SyX_+1v4rm(f|uDa?%E<(fn!6W$0_GzY<`0P!L
zV(YAbSf?Wh@vfVAFA($-;I%Rp09K3SI5q{C!j$sXXQMQ+V%k~lFAa`n&L$O;YA!$R
zWgee1E2Mto(QlqAxQNgZ7^kgWoUh`KOEz1OzcCv~>0NSsit!r)6n0iWQLeSV&T)%U
zE<TTGcgi&VG^yQsXf0XSQaVWnp(H5rpuWO$fi0T5`b&?m**@iiwQ&on3uF3*0guET
z)pR(tF9duTe7`Ut{Lq^_@WA@L*Nn+>5n|AMkjHCfs;03wB7Mp`B)nVj&sq>s>}_K3
z)P;)*;lfLT_9s}AJ)fkbMzK|TyGZ`17Cavk?^y!GS^4%<9eO_{alcLlV(hlB;Z#6^
zXgLtasUOYI4mxS$MX~oBYP#MC*?dmU_pHgXmAImiDD3iF@wa5xyfS9La%3mD_3R>P
z|LonSYp_|hA9+ju@@;_>;U!1Ye?=Lc5I0vnz+|@)0h0wN>s6VdP~9Pfn&u?NP{-0t
zyogzu8{PF=g_+=sud9g9;Stf=7%;!L{=pc$R1|!t?Bwc@-@}Hb_WbOA#a@qJ2bO<G
z(5qZh{uLuIlC*PosNGHMJD5K<-!7ghi-svpRouX)Dm`eH^%G*aC!Etf2Nv?%Pqd1W
z@(Wa+x496{q`&B6_STK|<U%3QC*=xt(pN@?<No!z_*63O(xRS4@$}03t7{v+gQ-K;
zy4KV~Ah8COcQ4s`Udxj8Gixa)JzD>4?4U^abviW|%&vY!>3Bu9)fKM#w~Bl|*WGpQ
zAnC`Te2GnnWrHv8`7W%rbV=o(v5R~K*m_;G;}fgZD~-4D#bXB599qg#g<2In#hlyR
zzki!loHYz6IoIA@pLH)e=>8T{t*qCj;8Gx^+F)0WkS?bE6q9-VnlH5q3RQsHbc_T%
zz0n)WX8(B&dNtdo*6KFV&@lIH!^8E~N&XO!cmU)DUt`Cj0G1xIav(h_RT5?!-^tB;
z+VcjVL_qv=x!=<5Ru=-&=Q5MF_!MFp$9~_DZ9dvij(ocqkAjCB3g**Wc!&Lj3_P-a
z$|evghlPgm-KL*ue^hs3{mi0oBW<%kzE=;j_L58p6MP)=rRS{?e}f)W&Rua4hgH~L
zVLXM8!n%ebK8bNEzmXYZ)`TG*WvbUs;cSBnI#g-yYjAF7y-X!~ecgdAC#LkjSAON+
zE#LERDG#KS*O+hfwEniF*#?5Uv%{b%H{(HmbU5!r*+*$!Y})%8c!otMwuq{ZVqEA$
zwbw7(sw}?ku0lLm@REh=)m-R6>?6;%H_@zzs@b7Be|2mh@4x>k_uUl)lH=3)ODH$?
z7~#bVR7h$FJlHw7EyRt@S^bLb{n_{mx3X-Sn*~$)kSC>9=Csz}O%bjD2o~o@SJ~&&
z7F-#zZ^FRk)V%$PFE2EaHTxQ|qG6yUVLcm*SGPEfIfntlI*RP=a0{tn58@0sI3O@!
z;23pY<5W*MO!BnGr*boG2bltTm0YQ$`}xIFjp4&q93bxKA767W7qLlQO!fkE@hv<$
z^+J^Er$7iFup5bcp{P^}Ld)pG__OO2m!JJ~UaOJaQsYxEP8%x`EXL1uR8ED-X;xXi
z6Xh;-;y?wjKrm-^rA|yWi0y^uG^wg5BL!9d$!YdEnZ0<P4mSCC3Kj2;;PerLswV8N
zJHGb|R&Tb-0f#%WUv{AS++pDij!p4Ln0xD&S6q8wb8M0`y;Ga-XRrV4nE}2Qntyy{
z?qcS*L*3hfack`R9OZ85Rb8Of+?HraG%`;#PdM5Tr90(pZ=oEg?eFvG2jt^<$1B@!
z^giWobfX%`$4c32_tkRT<QX{X;}~au!Ny`FzNg^x_RbKTt>$<x@yd{8VwTh=`<^pl
z&Wczwc+t<pwFhgftF|UDOP<|Ll6Ie7Iy^#DAE3VT#Eoxds&$u~Q+~I}z0Y?<%tz4u
zsEyYk^+0G6n9YHsxl1tauc+&x-s<GHMuB~txXTZ%njVpT$al%nM(H?C%Rh>ozFd->
zef1<w^iRA(^hVS44zqr=QpgW_BC*VQbw?uc=7_`n8E%!&2$x}xgA)XvFq6a>wh`hZ
zO!Q(f_RxXmN{e^OM%{`f9yvRpBR&E)AEu<p5@A(}{toE;52&j@jM(@jHW#4B*1gGV
zeGOpto!dTa;A9Q4(5K!PZNxWdVFMQX(7eV(i5PB<AfAAjQqj36Ea+GtNaTlCn5`0D
zZK2_UT=AIVv!6>Z24Oo~$RKaVmTP)?)@JpcvVcDqy|MUW<^CFqa`eiKuvwSVH^U49
zvJxIUQyFgYU_fUV^KuJMdIt+MhL5i`C>-S)WH|E4TdJH#^#4*RxIPET%m{4bU0k?x
z@`f{Cw5a@f7ZVh_b9gV!s4@6<@}0UnFNf?NZjUvLUiXUF-oa@KuUyk**l?m_)ATR)
zyRt2Co9ksqVyxYT-uTz#*oB2Z;b~ie?1KpXxG|(xr1BHIiu@$=Q2w#oTmt9R;T8`O
zBIkIJ>67r-gRS|7lR}S#adueVz%^3&_lEg?MZs3LS%Eej?@wp=nT^B8#HNxjbc20e
zXMdG^W}ez;{lt8@JDwYIv4<BI9@E1o?l>=<;F15q`PR;I?C_%KV+Z>Y3+%VIq9%&B
z`0aB~;OW|AmoBF7NpkvX+TFT4t@8&e%-a$?nm(XMy;d(YUg@~*tLpnO!%ho+^+zl3
zqSVo+!&KoaTGImhnD5A=r1*e<7Nt2*?&d_;m#3|wxcRWbi82i?AN@GeiRNX=u)*Qb
z<w3uPkGT}D4DBQxn}I9W01vuU+j&Csx9jiuu@d@uPM_E<_qT~u(m_ver(}Q4Tl)r0
z*l&d*at@@)5MG5W+5}3FACh|_Rk8jCt1F}<3Cc;m9KUC&OTito2RNk;h0)yjC>pU(
zpDgUt1vq@cn0j{QH?FByhZnW|w6kuC9`eKu6WP-C4<~kVa?nRdIFmy~<0?P-XTnoW
zA?Czb2lE9Q=dvUmR=w&<HVosw=&EU4ZWAJtRK>GsKt>i6@f~h~Tg{bli}Jm=GnFQG
z=VY#Hz9V0@+aH$NCs)n6t{f{-f0>54p1X;O=q7Td-S#OZFB=V}@<Xi}guXDlgV721
z9UE@twwq7TBPNQ&<X?)t#od)Yx6S!g?NKgbdDw_p@>JkHGZJ;<Ez8H4JXXT`8&&SW
zxpM{O2P!WQ?POnT4gbxF4mz<lr_@^f!?ejZC&2C875-niSL9hwz9)~bU-W(vr_;r#
zSz6}!X3zK{O4fS0JNB4&t%F$d8j1}q`v{e=J^Oi$SKOkF9Flh2Q#!x2XHiWM2CFt`
zdW7Uos5$vbs-z$92^yEK&XbrwR!R*9XuoLfthcJyJ1A6StKY`OjLZDUm!RjFHx6~-
zq(we~OP2j@>k@tkeHO$Y*ByZ$>|TT8Zs1(v?dXizi(B6`a}&=O%C{;%x%26KM~&Eh
zLTJMCllHciTbcZQ7pmFPxX>8d_H}CzIpN+0=KK)!+V2p{tru(=i3RN@A7|6n-s8SX
zPAkte^dDQq1Y6aNfY=65_qLml^sUZKiIStbm@l_)b{kDqS7t1#f2vlG8>ae(U65dG
zfXUun%$n;yrx~u~z%C}Vf~xaZb<EkK3YDMYcO%FAv@d&aNS|+~XxoHzlE;INj^2Vf
zW)PI(MWj2POft@B=(zyNNsUkMzjIor#+2=-VEau85=TW(S3PZ1suGK)G5VMh`*jdv
zH;fgceXJ*6zpiu+L5N>LExbzWfksDFgN#0SaoS+>=a=@)P*1m;i%c#*_n&%Q`K`D9
zss+CbRZ+&USp;jS25tBwK*G<;b3rPinyHdDr(?D=qW8p=pykQc)gSlJ>b%27>O=pA
zv1HiT=91meRJD{H=jP=hsQbHBz$G;;vwWqKw5Uw2bG!2PtwsLEe*2v_G6gT$-LKhn
zw2B?GPmM3LbtbJT!No4LmlAH+6B&b_7V$RwL;sl7oLf<R&wV`g{Dk7X!yzRr>79Mw
z9JHzf&kc<rPR~z-vFF$<L{>L%jBy!|5>D(d^D&jg)$ivkiRkx@k_e15si=B9H=4YP
zx$;m5XE|@7XDxd-@XQrV_x8EY@{FJ?X3|iQ`^A;uVw+cqL2|$O#0$Uo&sy<3mKy*R
zB)xS(3uDU~#amAFr}KqBRlC-7n%l=7kVCMA*tY$lV(QhFE&}`w$AUEOST2Eox}8z>
zl$;<-VU2(bA1!#OjVkq8w0aEbp!3`Z^M`hnhNMzn`a68ZW%-mAMqVa#Yh&MFzdaam
z_;m_hcD*bjNJ8PyT#*w~BUO%Vz0&dv*v-mT%**ea@4shKn@lonQl_f4?dX#Vjwrwv
z!_2b*jXnNOZ23kDXSyq=rACrXHOR(#P1e)?hA3}9#G>b_O<-Kx^cB8Rk;O}mu{|D_
zZuzA7eegYztCWAgwMky|m&wT_m{QLRP56O|0(HURV&H3$Z5NgmPDlu9C_gl@?}I6g
zeqDNrDL$*AcR`pOe_rF;++&~D0fZR-abG_73+`Nt!i|x&q0>dh>%!zOYHL=SCvR@P
zn%xrPociGPK_Nq<TD>JuG_7<qt#x&WOXUajg9gqKw4^xTU=4F6s1phu9z^d#S|YZ(
zcwQ*jfnW4S)$!lnc7isG0H%h2LcSlPBRnbQYgM0G3@o+_Mj=1NWG2cTER@asUF@np
zoOe9TyZGo+u8pOb3#r|QZ~jvG$5Q**v6-U#8*g6+F0e<RzQWG-yJc<XF>)fm?>@x$
zj|tJ!YjLCJ<KOkKqut)E@@1ByUv@eoAfEOdJM2VF`NOZCR|Zb}H8G)QXy&IeOG1T&
zAKTvl$`-DgI-N0(zDld&UAJ&%9_a?PBc@lLEG+9s^w*D6m7BKb`P|-Qz%HNB=)TFC
ztI#5L?e`;?k2jn@@h)3=W_*T%-a9l9)qLE0?-$e6Ii^0kexS=12PLux8GP{KZY&x_
zBCifX@7@_Yj?FxO*}K<cXjZ>#&ErtF6bB+|B*^7^`KuH!Gt*qz)Q!|X5iX3)18r^d
z=YS55+K1{~ZitRIah8K@D7tVokcOhg3<{q5-zW4N7#-61)I?@OoY$aK?MEM3_gf9Z
zux-C=-}K_Je7w|NQyjcyN=Us34dyMrq0S*tIRZMqF6_wVi~Fk@bnu1jY2w+%vOgv!
zDx*7lrho|T*=^)L@_ZQ0EWE{6+g2>HnxvW3a_gs%8SS+UA>b1&TR+vyZ0MeYOMmD|
zXa+CaNZjZ4v=IT9OpQ9o8-W8se-5}{aY0=SZ|V0S{)vmAeCc}xzM{{YCbXpI%%N5%
zVERt7rmt<kGapd3dtYifrJj>X;#7|A?4MAt5?()I6TAe$j(CFJL7f{zho!z$L@zj8
z+WB0_6L#TLr(6BbIr3fcoy)ZT5V5N28cygV;}h8`V{VGSzdlWTLLEdMvA?pNIlXlu
zOmJxaWHH;?K2<(+_C07F&XJ%nQ#6KpFEhOypwuRJ<=o-V={#x2=IMZEYjqrQaeUV)
zreeftb@p&&4UT@+CU9PXjimX+(zTys2US)7&=@+V66S1#wp^XWE@0b2td80T^QFjb
z7hl9AUJnp=i(d9X-W*abeZB0^#j*IkZ>{Q2oL}OuH+6(bT{ygc<)}TaIL1<QA7WNe
znIPNO2`3e`SUig3$Mo@YWj>Y6$;{LVion+CBBifwoTj>lv5#jfk@lg_`Rxp_Z}3Fu
z6UqQ?aixG1o?Ut0xz|;*&I2mDShElE5OA~R%3gmgoXje!*dHpl73Zj4R-e5pk?;`I
zUP<VNUTAf~Xuqo_$)3jO+R|Gt26kQFuk*f}*EGmS@wc~MoL9{~djEp0j@XBWKo{j(
zwi`K3uMEuYZv^GuV_e3$0B_Kl|EfFGA6F25UZZOCFc8yBwq0-h?7)=!i3lD$P|;PA
zTH2m@)c(SD?Y$vjTGEI&A1Dfi*ainV)d!um5ht7vMT0IVf2JgyaqI(93tLqOT9e-r
zE@r$7<g~d>S$>VqgJ_>o?tpre%a1u)X&PHTb8Kf>1M=9-tb0fYHmVM=4nq4~7AE3S
z)3;>F&$(*4aQya<=}uNc{)xUC7Eo>PW6^w#k@O#D9FHr@4Q;n$4FLZXw~Oo@HK>qG
zeo=!pDe}HBh_?41+tN0^Z#Ay6Tb&Px+PU30_lpV?q4_pHlr~U*7ndU_nOc{G4$N9Y
zk+f|Ya@*rIxf$pE&ZvyrNngDcY)&s63PX5N**2U1*wE?09HlT#8-r&aG|mlp9N@fz
z;<sNskvyrmul8MO!dy-W-;vIi2W0OskLAmaYCp8|Ej49V0V`+7oY~GlYR{;)UE4>F
z$8LoLWo2-VZoN2L^dms5k-A|L7P1l*cGL2%u^PkL8r%rH23Uk3-Z(eyaD;2s^>gif
z?iEl?kJ(PiAELUtBK9pU#X%UI^~v`v?)K@tp}nBZ8uOUVXOqx*EeGGX`G)2KETVf}
zgM&Qi$tC4oP%8!T5<l}mVN}8V!rm$T_p|9HXg3&eriv&1&Z2|C-;F5CHyX(ke%5X8
zXZ6(ckBxfpbdCV-VwdL|$Q}v{$0$b7N2<>#pLTn<So-i^ciKJs|Ns7Pn1LIIw#5jh
XmwyB)m0aH4gr#v``(DXi>(~DmTLZEu

literal 39742
zcmeFZcTiK^_b(h2#Rk|AK`BzD$s>qJ4Ls5UNS9tj2t}Io8o-JoQbIFyrS~4BV?nAQ
zL278yLx5022_bif=lRaux%a;Fn>%yg_m6k(9+HrAl5_T6d#%s<eAYfEZ*{a(>Cdp9
zfj}ViFf}DT2;_tx1akcGsgqy}HsRwMcsco4Lsbd9g0^?RJ_Nj+eyV2T34ySMQ6Dr>
zbL(&jgcAZ&QZ(>OSswR|yZmtC$GUwE|6ea}@GGCEy&N|yc+%k0na5XX;1A>Gyp0SD
zEsQKKS3dq)bhhZ&$zi6UQ@2hk@d|LA%Hsroin=_J=eoB@ZN(Muatfp$YWKG6cxt7)
z*0~leE!B0Gx{V9b9QEe^KK)+{01NOCTw$&3jL=xQjfPZof?*MH+3nsT1d?Ii)!}s<
zd?57BX;|k2E~`k@Cfm+4fBQT29=@Jogg`p0mo+8-W5Vd`#~S|qUq|u6)QNxo4?PnO
z5&d_wfsSwmH7u6%?Q^bCw|##{-FGwUZ=|&P(hZz3OoUgWYGRVh@kN#!4?+ZY7N$`Y
z;sz^Ad%>IPIxwKC#|<+v+)Gza;&%*x7<}&)`E3F(jt7>gv2-gxJnI#bPmNX7F<CXO
z2YFIsNiaVriwT(n3sAv)x;*Ncku`ygEN6cYkK8teiSz!9-b%`{(#zw%X@Zo7)hXzS
zqBb9=X6^92kKZbPPA<Cm&~V{acdd@b{8bJ<+$nr*Ox8){6SYwh&xzn0n{587nCmbZ
zv0oDvaXo}P3-^vjxHh28w|HJ_x{tR<T3X#SL811V?en+mA8zFj&#j}Y8^hy&6qazo
z_*LRfj4%gRT~c@ipgng-N7YQvXPPg}@WKWz6>+Q4+a6O1b~#Xsxf{6#Td=P<fZi9y
zN&Dso%=%CAYd`B|yzENS6~^^kB_ShT%Wtz?vuBYEn4P?NNx`d5vx5y^)_utQeI!RI
zDkPyz{<21$h>8Vey<JkM2c1KbvA8m1f7Dl<XY~3TG|7I)PDvrt9(+8gVUoFdr=OcZ
zLJD?7{C=NXl3Bd5q&|AtJ}v6<B<tA`B>RJntImlmie`fh)k~4N?+fA24LeTy#h%W~
z*&KUNC3j+jabtW|->AUO|F@KUWP^#=GxM5*n$KC<ye-!fs#NAlOd4V|mZj1*Ck83_
z7((pTz0PTw)K$FrQGfEL81$cfd0|ZR(is(l${)OKrI)5HXGt?LBGxbW-K<vyh3z%s
z8*ZvZjPjwT`a_Q0V`%%H$FKGZd6$2<Nm)$)uAj?Jtb>B+_<}3fia<2QfpDWKFs-g%
zc1a{=@7XtPv#17ZlmOkQY}P4y4by^QXn5QX#LXlqw;vIC91?o@yZBe&>KVf4w*5jP
zvU0=}2b@v5pR0MRV^153ys12Zc67r~1q|w|MB<F?bF1|N5pg$oKP}$>&JQ9~eF<N_
zavT<>(HURM)>PYVp6WUgV<7bf&5OT*;&kI0Rb#yxq;H;08hdZVi|Q?W(MEj7E64IQ
zwQnL8rN?QC&T_rIVY#$^$d3$O>!{JS^Kw*$ZC{p}xPjW7=kcdgV~j`j))vKOeeAB-
z)k;kCynbY~I2)&`oj0Y`VwwGq9dF_SP@DzHNn+2KN@L)qFli+|2vS7c^l60lep!|s
zySM-QscH`K;<^g>d^Z~_H^SKNV_s$P)`-}bOU)OGx8+6+9pdK_?8C=G4tisD-uw!a
zTRM$-#_o-cqI3!;*wby9cG9xgu<1kJMh<H()LwH76zmW_w^-e5|D!J<Lw2$6WV2L+
zC(p`OyKkLpT0d{<r`=p$|Dnu-x!W5jrJnoxMbuqn`(kD|iStUIIqHAL^UX7Fgz57R
zgk(DzH3D=e6vIhD8*+;=ZK5sp=5{<5RicQEm%QFS9sRxhWEi^(37Re&>>0zp62qT{
zUDfw~uR3mx!eYkd>z!K}HuhmW8HuZ&l4-=*F6ifLPP5Lxl1NppPKu?M<S@)#A?k5T
zRYb?cp(rlBGMWkN+oK;GLTiMZ`r+=t13(K!gbpn>7V<oNP`>OY*U8Y;?TODuYKC@*
zOls9eMQ)y5BW~oix!o??WA|s>ovm%>?mZK=r7wrU{ta8!*Gbs_y}}&l^e0xd9a0)M
z;VEetxB-72V)>=6B1LG#@vUm|;bKhibJhK@W6t_bs%+LU{@vNLVlCI4p4BTIZ-8&7
zYVAldKp=W8*8z}bG<=v_KeR!jJ88wz5?T8E!@G+~>jzeRR(hABTq=3V)3G~}uvl62
zTt~MA>P?jFgw<T^f<V+x2(d%|+gxLizqZi&Yi$$c>C3@{@?!mnhWz#z6!*Z-$FOTb
z8@CcEx6kO+^^6;{s_*OAt&TXfig~W@i}b{6`T8|bd=q!h%*rvYLSHyW@;D~;qLmiv
zv<w|X;qi06()$0xU7o_NILaH1Qr)UdUN)S*>!tLAb>Re`TJ6J33ryhqsqM2oJL~x~
zjO_juh>g!8Z)Sb3tJ@xX9?V$UK-gb4Dp=b4O)|c|$G<nb6TA54r&nry`RL5{FrWBy
zsaV0TdIX(Hw%j-FapXOGXTonwJHZ5IUWD+a15r%cLfMdcwKa^gCID@}&@j|CoT#L-
zmH@goPVJf+O>@C9Na)5iZ>#0<P1CfjFG%^=(`W;C*o?$NuI&|uaCmC(-DVuyr@a-k
z@?Lbh?1c6f#XY#~hMAq~qvkN?(hDyY*Xp+ey|3@hz%IQ69qW+3`<6)S5|&lYj@?%w
zV^`=-cLZK86ET~o`;g8n61|nB$+>YA#X%?N*z0+3R^L!DqOLQu;y^30h8n8(&QsIj
zT&pX}>}R9viOB52tRbe!g4MTc*H%z!7BWHTy>WD7{|tF!gYvl(<r*4g%<cU`Z=z@X
z!Um&V0#m8(;E+H?sRWPrj@nM0_Q(j*G8Xmqi;FsPLvV0mn%Pf8$aNC8;X`%fu#Jr{
z!0tkM$byx_eSOFu?cL9k->f1>l^SbW`4L;i)2^)h&YQ_TH%v`VTx)dhc}ngWp08X9
zy|=+}+2H<kbfl-GNh2@W3`J=^{2K=S+z^tHl`x1Gm)npRqHrj`Zr5DV>6>jG4put`
zkKgvKlT8J|+;XFzf&*uNDz1&8bVTqtab7aG%7eQA)3BM9lUtg^BQQR1Ge!7!ok_PM
z59VG?y5BRhv$YUoY=-z192{F5pKhO&%6rYj+3qQsP+GJ<wiR>762*3#CBZAI4gG9z
zb5a&f`dOYLf(uSxkyMv9w!7nu=300Xshw7#*KcoDk~MfbE<T^&Ws(MZ1KJ~whemb-
zJ~gipmL9O?QEnIG!y4a(F3p&!gi_;GXhNV!#e6kqtnG7l%auYx41X_w)KE&!WI$F3
zCf5apHlHAwwDDVsrw5g*==0a*8FF2e^R=nYt<co@=>%=NS*bXY#J)1hCmufJf@R&S
z+2f1~D!+2Oa5}cv?Mtg|4_&Ep_u)e9f^9mnR-}S2zL(%7_K$CJ`_VuYl(%9Vm>(6)
zZlp~*G{?weT@!Xh2DCdvR>wBl@%PRdPM_s`7~^I1<mcP2o9Ql$ehuloxb-_#yr<r#
z)t4_vn;3Mv2-3p#W3yD_YdHygFt@q}D`kvrl&o(j^pq9W9$PPumELncJDSK&Naxy-
zauw>Jow@Xoy}4hJ3cZ{ssZ=ea;j^h7ty#mna}qm#A*imvOF^Br1{fuj?lYoD=QjM<
zOG(mfpmgNj1j$RY>~THS=+?@=j2@!QrX*o?T%U9N_oI5z&yZ=csHmaC<)n7uCU4VG
zvnw$@o|5dzykteYNCQcu4&jCb0n2B*SJ(+8#5|HR*4-A^VD$jAdApMy;~ce934i{J
zcrbYb#>RuV<+;jNP}J0ql5acGCkiLls<`wyB9Ol|^lVVNaN^=OVH7q*G;yc6J2xOM
zBwIU8iGz`}tm>ckNm0xb9x!Ldb?JM4PW$cN_|w5Vai^oD`uQu`%>{pus-#B3(v{pg
zw0Ed^D@jdoLx6(5N=m&2(zBOrdY6!UTq1w|ckYn#?w$M=^<>ffuq^M}OY{NZuS?ul
z-5MB61z58x_Ox<I*XfS@iv*DgjqbEbZBQ+OYXr!IN;gHHX7v{!&`b!UI8Dzh=2o0p
z8;oYDMyX*Fo)D(uH~;XDK->V}Dvf%6&Kj5B9y@O{*+0i2@8TifpfaTrc&}$8C8{2Q
zKEXCc4>L`EMB?irvCc71iM%6t)%ChVAkoKi9Kfkb;g3;MI&a&EdMJgZ@0XW$)$E%3
zQw8E;9Iass8UbAW^stsvWMuqa#LRkTcTl0_CMH3$9Go{u0H>6`!fl)5eA8)WMy(Qt
zX>(8TjqQHyyq=U-!S=<RE8prEZZgIz@*p>TP47Zezall3IM2{nLLg<LAGkaN_Y1D#
zd|-7te7np-#r?g=9^`Lj43THlXd<qic8?+Pj^x{ecebwIh)MS)*qWk$Yhs3OV?>Z6
zrRn_>pB{Y=T;+Qld9c74tT~T9tk`;?S${BAxXXO&;DO#X6o<uQe`AcYAZcp)97=g0
z_+5-^MAn4ZP_AwK0>MkV2UuV#Iu=LO55^^NwXgR7!uP50Weh3VS+)s^)$AN{Io4{n
z5aeJS>Z8$*EGmmDk~?T!qY_w9Shabd1$r?>q`z3rgOHEIHQPo?RvpW}a;VzdQL!dP
zh4J0%hY$E}R%-G=?x@axuod*%e=&gWLEef!{rGNN?Ka5*CaRuPvisttqCl6Yq$MTx
z^pgM)VWKEZCT{c%QE8m_(()#9k;|dEGv#bZ^p+}YoVPlG#kyGulPvabZRA<2<~dh?
zqxtKLLO64jZqY;D;^?iqEPJNquQs@St;Du}>D-ZH{Z~&4{&Dd~R(O<tfuT(JFg+<a
z2uu)!6#8FkvH$AO|Ev9+jw3)H1!!W9!LU4JF2{nbLf!!&CrtIqvu@$s9#8#^yag0f
z_u-X#S^1yFc(L41h@25*`0U}HG8Aow6aS-INS|w$cWBIxbhIiB?bLvWyl~a<x8+FJ
zH%IeUQfzFS=msp%^!h=Qj5P%EMLc=Jy~_GyJW)9PP6tt<&s2K!z$?X{2X|G7tcRMZ
z*2QSTb~={>o48%n);Vex+ZOL(_4Vid<U|}}vP8t%W?W#2O4V%|yf7p6{qLi>b4V4n
zg2W$n`W>XCc(g|Z@d#QjKK%g1;n&;jHR_#jJ4q4M#TqQt5^6R~f$7Y)Mcyd=KKcIr
zaI(~B6prOdrtR}v*02X+!zZDewxhmk3Uk>N&5AYIvK3Liinp*A$0^^6x4y}t8I2Am
zV{Wmp$jU|f1UY8QVQm5h5f7?JY&ea}GUt={FDXSn+|g7`)47goWbgg%5XHmvUAIRR
znM8`y)yA+!HSi)MweOGTqw7)e^YZEBW7G-Z$*ANCiAD(E?!Y8$RZQR=5hrD|Fd@Zv
z<T5vmsvcz&zvdz#J`>po{PRw&`E)#$nTDr-gTm`>$Zs%7O?rrrU6C9KuPW7p{HN0%
z?CCnc(Y8biLI@!ewc-;hIiZ`arFg<mf5j=q!&ar>HE;3zN`y_37nXNBmgQNJi(G-)
z6A{NZS@t$@Hl*KzZVD;5@yqSBsiM)R0}PQ;S89=waV&B!bQ<F-^{+4Q1=+!#IM0d3
zv7BH}s4|;ZE#t&%Rgde<rWF4vXQK}3e6Fcj$iYa+t|}etr|Q_+MsKTMiih0NW)2kk
zHN!hY9YKbapI-Nas^T1HFq)EC5zB6*<eQ}3po<D7#KrM-dB<gl8<#%I@bgn^C&!1p
zsyj_@ia$^=#;D5UQlX1%Oqr{Gh{y51iVAbJ`Fxk688qsK;Ut!DTD`O8XzdC#6!p4J
z|7T!PHF<((^dw|h75;=>0s;}N3%krhvt^IMN|A*P{-Sxi(ZbHMqoHE<j5EbnuD8QM
z=%BhfEf-$J1h)^tPAZMGEsR4tS?%PYtO_Q$i(Xcq@3#-$WbG6U@v9f$W16zJ&AD)u
z#_vT`(Sl+F_n8w{B#nD(x*{AR?X*YM?NI`P&x>RR8a(0iE983Oc+5T|l$KgI;dDQN
zJZV~5iZn>Fl?p!V@c@mkj;|#X@1k0b!;2O^Zlp=}p=xw655z*&+!F7|2(I*rZQ_C#
zZj!WM^yZy%1A;?o_Uq;=wSQ?j^~#N#ac!r$#W(9sgmjO#Z9sJiVYaRoP1=|s<tvr`
zMs{8XvNbJ|aa)Win+5aV4xt)>(_~E{js4{AppV3_^1huB6M`D!#S5=s^KJr_oH314
z{d}mHaidO|M?8Qj+~*-{+kMP&5vze&eQac|TLPAfsg19Fm&FX14@<XIF&vEO>p9Ll
z&b7(nnpmZX@kEa9&id=bwAKm2>dY}=hKC}CW+^zWO@YE9qNJf&lCif|Laki08b%Do
zIsHt2B}$cx<lrQ-Ievh7(sc&4*+Cd{XHR!n54wUrhPsf&tA2Q(U6ZlTYUYiKDMW7N
zbk`o_Y!ian{g<6=)yh>F6D6T$y?ve+7X&@n$-UeJJ(MT6Sq!J|d2hOy8UwylDaGv)
zM{+tkW9D)#Tp~Wch&=C9&0JNh!sjrLKHpX2kuHfr?Ih;OZWi4c*|54<tb~!$og;3+
z+<M!D_O$z=H5-wqf4t&toUK^7t~?(b(KO)W5OFs|h~j^)G(3h<p0~9glw;H$Xr2Ck
zgW>gwpZ@smFR<BW?ZY-ZlxowL@G*~7;u{7Gwx+~4aSLc?Zx0T5q6lvF>dHZ^s?16N
zMVpUvxm&!I*CN)VtU1_43X@Au{3bfJ!rzBD2Mg%rC%dBZAC2v<*cA1C#VHA`%wENb
zNh#mgLA+nNSXiXZM%b>HFw1O@x}rsY-Q{x+_k&NJkHb%PY$*~YhH#v%zUKC3j{7H#
zeRce`(U^u0N_*5Wg}@R!4y>yMT0N#upB#Nwfew$zkT#Eb)RH?&Vsy2i(1xpYC`ZxO
zb&OgHi~o&o5zH;=PI=*TXn4y-=F2ECye)X|gkNm2q;?F`tf+TGNHo{8?E4l=*Ela_
zI6aQH7PaeF$6yVchUAEu>6voC(PpceuN3f#hs;Un`U5A-?TR>a)?|)NQ2ep5FwQ!P
zNV~!qN%VVva_4cc)n2h?Mo~d`IekY^0-4u>fFv*oO=_X~(m>TD$J<urVLCxA9q%yn
z1l3Z27+dZekttru{rp>Ubo8#3opgAop-iEAoz6Vnt1=?H)M}BWaAlsZP;C@#RsZMr
zXrV6h`++N@AUVw#f`uC2XE)KF_-?g9rJdVZ?Y?fWy0^buIuxL@bi>W9GG7b_ldd{Z
zGA*34*{*O~@EvbZ+?KdYV%=123p^2iU9z<PFFqNJbF>s6e@BpI$IW*T!g_d>R9!0D
zb?m{hK~cer!wdzh85?)2G0vK0K~%ekwjREq^c$bHdBcCzm`D8Q-&F<S!rwiLR43>?
z7{?wyoMmk9VRs2Mj8U+?6KH@M`f3j9WCnPbA~l7QY)u7w)V5ox?uX#N#c0%Ppjn%j
zPiK*J*WWFOTX5|_44jnZH#t>0S~vJtq#jocFStK7n80l?6a?bz=0^A~eTY&OSG~rO
zNOG^896emf+v%;ENEalSby2LdYsYdY*4ekE`)kP`bO%ZJp#<ZN%X_Y^;x2DRP>2S_
z7@s;3*ZAW0Q#-eGvCD`Q0#dY(obHhATW{0S(KLaDYVOH>>a8?5G7(VmhFhr|#OIGK
zp|_aS0=~se?(M?n>HcbVl=ze_(_)s_J}zWb>r5zWkGdGlUWplJdNi&$S6tL?KSh)~
z23fZM@PZi<`h7$((O}_zMB8z(O@s<Ir=26!vL<Tc#t!t+N-bStSGT~@{1trdJIzOT
zPvsAi8oS$dIwJCdwD>+86mY%6@O)B=!J08fjrufb{=(Cp2syj#B1SXdpi#V_erDch
z*;vb~fuVzz*uV}|nsa$9H}tl$#9TS}{Gy1sv;;fxxhWp5lK$EPbMQn?rkUR#X&JqD
zVfMPesHQ|$KqP|!R-efki3)BhwzRMF{WKwpCvQ7x$odF)L`;+2Z=euGg5vPksckOq
zg?gya%&MKS+~BiCymge7;)QDWoWz4>?zgl*W|(ZPY$o^qQVkT1mg)>>`g@h6%d`0c
zCWPvBi?=ajgGqL!R3eT!*cWWT_rsFJHqSz1{x%`*h)xic1ikr_hW5ta?ns}542S)b
zU3|(4m05nz-9-)%W441D+I(tsUG;d*ZzO4tK-(kKV)d+o1lj}mJG%b_W@wiArgq;s
zXGwFfBSQE(-=%Jna$w|VQkbd*@gQBa^`;C<m)wNtL!S04y(05&U5LwnOx)2kw)nlr
zD9Gzc8zTctnccti?W_xl8;noAV^EvE=!O?0*JV$VWi4GRZ+_<XvTTV3{7O+Fm*-i}
znC)Rlxn-N}rubkp0~9gpg0G;5d|i3JvZ&>-GQ1ujU-`p?y&latmOaa?cK2c4%{`ZR
z%AvHk?lj3SsXOZQr8y4caceosmF*@(ke#DjIT4!Fm|<O{n}WU_PL^BWzi}fC@)0`;
z2Qhj>IVbjQnxr|>uH8IjV;152$~O3Aor&F@r*PPc?fmovZ~q|-nUp&`XfWF@oJ6F9
zai~dauMQE42P@@VqL>4-JiQcT<Lh2@;>Xe=IhY|3rgK!Obg|}pKuP}ABr8sG=Tl>G
zS{sp#oq+AXP!y%RBaN?3ax2(9@vzkMV>SP*{Fz@q`Q7c4^|sINOU%hn-;&OF67|OP
zQf6_-+L<xf+xNdWS(UG9|CO&`r)3S>7k(z~!l+TFHecDGHILo}Ce~I>+>$F=2;nvE
z%^%#PW5-rrK5Zbw?2VuIvoNtU@Zv><YNc_tbsjdaU0mt7wHb1I)IQhj`gX7hq14KZ
zM|^+72-Wf=1Qlw{s~q`4uDS(#x=I3tsM_><KzLlK`n&W^z@)sq)#urDY>1>!wCKcM
zZsYTs;N?gDvgDVDw&$Ds=MAhpi@KxOkR+)_eN1!l(0Y%g84sZ1*Wfw5<sr0n(j9km
z1bM_astdDf#oj$vq5K6Wb*$GRwNXEd7K}6dFXhYRHT2+v8oX&BL~B}59Z?%wh#X3l
z)jyH>x);4PxEaNcZB&7bWX3GD<zXk-<?3#mDE>Ax3p^RNny|BoJ}Kt8uWq-Vt0ETC
zZ7(D?y=oZM05ZPfdrPe_R}T*5MajQMeadFGJ9(BEx-_3X4edUK1DvaFg<HINe)1D0
z{gGV#iTQ@vn;sg6lI)I8I%uCt!bX?%CjW%XEs1IHt>KD>nh=xzLUm@OWv@P(jEV`X
zX7qLL%IHVv?yrwU;K8z|1u7`SpmYN7uL)b?x*C2@CjE{SGQgy?If81xKGI?h#qx?t
zFWq;PJPYwAp06pt+rGa&ps{B?802X2#r?`L)k7->7lHsKxb0^EN?DATa-jwHIEsB$
zV6)aIhSI)FA30>{scH|C9t~*x&HX^kn=XEcWzGI0Ag)xeLzY=!Xz|-K>TV$c$lkj$
zEgP`s@KG9+I0AD=$JSPV>!7ehy?P?L`_#8i<l!w`5T3j<Cx50Z&4%a*(>9qKIh#8Y
z8PQ`~&irI4v%+MpsA%L_#lun3-Cd=Za22U$!Ao(KP%QQnW+d|xS*1(4^0?(>SKyrh
zC%jaE!DGQq6|5rJZI;8iydRO@sQN2@`*6Q{jt0MX4iz)h1x!?~`Yz1&ihS%vvu+{a
zV9kNS{yniQaB?KqCcQ??%nUjzm_(Sf!Pi#175pC7hkZ9~UwPE#v=DVhaZBQ1^@8k*
z<)({FYNC=Hk?}oTF6oY$UD}o>SS0k!eLZQxhCJ<nCC>}6JDT3~FmGZgTjktPkKy<`
zMC&gOPzqEI1({;@;31!a$A>J{%k|nW+3gM)N@E%A#noEzOeWFJ$SxnKc=5uwS-B9x
zQ@lT#t41tWa3FvXkIH;n*WFMm+ST2LRkQn2?La)mU&?85$-mb~#*9y=&$#1+OlQ4K
z@q)4bd7jQRBZ+{QIdT{KoD>x#RgHVy_OhgY1VpA4j+PKU(Jobvcq+F^-wl2jaAcp>
z!;dpUi7qC{RU;n1B?)L%vMn(zCD-de*8;egYzGyz5q}_mn3PgjtAEPNyY{Q`RJM%C
z;`gpj8sz&A1juXUFs?ne>RNCl>{$W<*Hf0}+hGo7r~>PIXY6Wbq=OXlR;6V#A@Q$A
zCSqruiHWBpeB(}sx6R1o_Y7;b``webWmQ%YYJ%Rm$RVFM+so)FPAUiCq>+QGWW9o`
z1o`x*ZT>KfKdmP3mW^YHr?BA3w{F3;z2h2n=Fv|`QEOMk&gP9^KdF8g^~ZK%*$k7o
zPy@>=G3o>G!?kL>kI>9Lr{p2oB$3Nfe2N3u@c;@l>{aB>rtNb*Yh}Z?HEgbpR$Suh
zLcIaa$Zm)J2a)?@$DT3Epshs3<z6C+&cfw;g+6V3-$d;rZnYXFEy+7RUwidXyP0;A
zP1G?<Q>Q42t1UCU`=9`7GDnQ+95RWq@z3TWCGvX8?B*j~!#h1o;}4Ie6B}Hz9XYlS
z*CY2|!wT>YPLbXABNiBk6*9RN+sQ2S)G^nSM3YgpGgK;KWr{t_Y%kuq0Tcx#c2Db7
z^}=t+x|$saR%Romq<yEkp!@M#;wjR{TiYXTZ7v*S;-tp2c>5YI&-3*xuGxXo&ni;+
zO!sQqY0ZSp2=*PCjO$fgZCUTlXw-{KO&l6`bgsL|wdh7Q8k;(y2rz9_48}ilYfo&b
zl96qXwN1B|KO9lghRkj+H!J?08{ZzYcSBHk^Tk^^et)=fPj1;*E)JHxYJhbKY#01S
zh`dUjFol%S&V!gMk?U7KHoCod&wthLh32D{;_hk>t4AVf3Xj$7%Eg-RQu?^v1ZgI0
zmx_fhooDDmsK5FlrZ`rn$vM`+Q1V$$UT>Dsr8Fi@vem(9D}0OTMoV(08cAbTo+Eej
zPm1^+#|D($8a4GMIoD?Pon;D6A5Xq7*V&~v>sR}rW9r~b3;xett8xpst=if69w&yy
ziZK9{Uh9tE#KoWy!=;zv7v<H<p^0ZLHq>Ge&a0I_@s+@PIiz>9%8xf#w;q;^O(CIH
ze9@~lz4c6itYNnMNiVJwB=v)q9~G13T(7C766O8gcSl}P3azm=AP1+v8~V*n*WTTR
zuhzD}==h#r=`oz8>+EEAq?!bB`b<ZJ-8Eiu(-LF5$gUl@O7Pvac4oJ~%Fx|$v|YA`
zZ!Dk0<Esk-WS=RS@uU19LmjlFgm&6Ttb4OC-j-yC#v6qxWkk!*UAQ2jpR6nX<`r<2
z*dFAbIlBFNI*s9o4`hg7c*rM~NyprAo$^5JovuYrV{UKWDVhnsaM4GX684-^YF;jM
zMX(2H&ijGYbMIOmj72z`lC+_n^m_@z5hwU_=iDc~x^XvDuZ_8;Cv@)!7RfPdh7THo
zga$W6m=&SrdBvyi)h+uiz1K=yh%FH&N~WQ&i+CQc#F<3nl$Gb#(5eH0<cv!i4Wvb{
z=UGO!SHiIZo8$)A#M!_0S8N*6UtJ4~qg2W}rqE0nM=f6H(qe-jo7R9w_TNQ4TGBza
zZcfKISlLiGEC1@*;N5II)fH5;@@hA!eXQ><OS>(~T_+C1F5xL(6!E(5bq(ob4Z)1f
zO?egF(=X22mJlX8#<G9?;@1}Rrt4dc93=Xwz`-gI1R{1bhEoK>DMjcqcXG0;yP=RW
z5i4cyWM6lKx)%}x@;oOwGP-t<q08%j=)LR0Dg<h^OW~Cwfa=a4#whG&f8*yH(FKyW
zIqh%K*iTWvrNi*=WhLL^*kn#qxBUOKal%Yct`H*h&(mE9Y+Gy`EDBSb?U=8LiAl29
z_?vKH{(kzF;QX|#D=1gmfA)&G#%?PhE5yhDc?*o`acb?Tgb4mUK}~`GG{KwykJss(
zFGIUvEz@FSH>WY#8bUIYgucwS+K)O8kGHs?&=BWuuj$<g<MlhZv&^@OmW+HV?S7W@
z_V#kr+x<*Bu*EVf$#kmM`>fnzeD(Jww`MZ&oA~$@$eTnXD5rAC7gcuu*^EUOMe`XK
zM!7AWcMNRO=SnOa_qnB{q(tWz7NGrQ*571gyqCQGtkg^f@BVmy%~QYlc;E)Ul0klV
z>e~H}zrNqL`EloT#h9i*l*_TsYt2mx>W9(~taQs)v=JvlE5H~}{rc=a!(iIr=e`rG
zC5;>S#vtPy=4s~W=;#9;H}`eT&CTKD{q5q30DSQ~8L!2)?o{82k<P+{7;aU0Bd|By
zZL$f0bg?<Va#P61?8VJOZ~UOqtG_?KWt3f0c*og!R?pw{TIl!P?c;j0bypa|cJ`sh
z=ZAJ5B;TF8<2vRyJb6g0sfSVyHe+j?M?4f@Fqo^myL<IEeuzUlkhomwR=<Ka!&W(p
z%Z^ABRoBgP$@{|fr4MpeIZ0nL;@a-g%)Pa;ieB<gYWj5WsT2|oqxE|Rp}%%_Sqv7i
z`zI_nAlng(Ua5L|Z)_;od7@$Od0(cgl@*u?!q-1f2VH8$eY$ogLkRot4o2+L8~=nJ
zXV~@VNs+QgY!4Vc)N^zaT*-T*uCBhEp>CLiy;v+;L$C078b{Ya>;9fFR=b%oP-s+h
z_SN4ql&xH-T!lm5Ck@}#u@Se0o>X!ZX|?_xm=@m^aA>mT%4qcvpZ?)tIQ~wk((d+&
ze9K&%P^akr83;-V%tZUqOaOQIQ*2tjUuIG7gKfaT?d=n#DHg`Y#$tYJQ-quc$v$B`
z@d*j@vRl9IyEJT2wo5}&Ibkp880CfHi8-T@6=i<w)4AXNJe@RiYuxVAL?4GtUvPs?
z@y9zI7+E16!q=x;$9WxR+hc0pvxwXIB;R#GFU-xo+T7Uq`u>{agntKbVv#=>`{d#D
zJJB?)9K;$Lx@|)0Z#wpN1Aq2;omRh*fw?)9CQCyLT$IM+G|}Kc@cJB!hmWqVt~$2~
z+t&r)Al<ey*bCe$DMBzKbN5!Wj#<L5kKYEre*Ic)hIW>kDlBc1R>R2Fc-;?UAlnU>
zSu1<acS|{eaEV<SDs2`*?d!SFLE`AXg)u^>tA{M{JOa^uVkb_Vz^X>Elb?vuj2e(=
z1gf15e&_37Q`a*zG{i;UxNpdZJqgKE3xD^nQcGr~$}{9(y{%3$egwp5wrIoJSGtbb
z?SDrAfqc6CoSA8`ac3g%V64`&*BC@VO(^?#y5IC$C|`d9aN;=xd3z|eqM|~bj-GYP
zqJWf;n#x8TO-M{+UIn8e{dsy14`x^cf6A=XCuplrRiYkzE7x_rj@!e-BdyfDc4P5A
zqny_wo9|fPXkif&i7dM2`uU^9yDK6k`Fh!%P!ORn3mz8Ak5s_BoL)1q1^iABF(W34
zcRH1aDs=`d<>w~727%O-AcE(CNly69r1rGVG2EL9HCw4tR#qMXejCy?69o-c0Io&o
z`uUSBJv|*t%y_|2HwPwfb$L)F*;DtWgwx>c&e8z>9DcU}IMVJgj6e0aTWdJei5}Uv
zRrI0t{OLg()2;8AeHjZxKgjs5viOdB54pcZbLRzf0=MZ&mAQ|+%n(-jE<F6=A=ENk
zJ^sf_(67z;pM~>i#CV;zKXE%hE6X-2G(c>~539<7FxZ@p)t1i<Chz;s&4Z;G&@Ht4
z%#Uxk8n-Z)B%Oz+>RPnL$kCh9jb1oRr$wEYRI_2RDdYU?Y=d#3VKH5=>}GfWC+5rQ
zv(jvYW0LEGsc&o}RRyOlcy3M{{&ESKmg7&^7BNE?O~vVJN#$BL2JFnv&dORf2b1fc
z4^JvZ66O-Eg3WJUPBI3;#NW_kMcS=)9@$7*bm>URCDrR@sz{{Xbun#*Q1}+_T7P{B
z<@ZdnISNUaEv7A|j+^+VV+tdWX+;H#CWA>LMo8(Q(vO}D1+jW2PQJ^($yUXN0I4j+
z_R<l=k^4OPU~uWomoLZtP$$@Zd46I54X`Yf$9r|mKi_I}b-bQxS64y}K+%@~ID52n
znryLsHExsav3w8qp$mavI`^pa?1e9`@nMAqAMjfRt+#&bnbFbHLk<A{z#EpBkMyD3
zNW>NIL{TeC-@T2wHW8Bw+i4j>!)AeJJ@zrp+k}Uvrh@h?z%zxeGssZLB=0g{61mBs
z&7aTuNDUzC-0g)@f|89a{j&jhc~U0oyzwi2j?2mya<ozdhOH?3L&-kN!@6A)XyD5y
z#qGN9l~SEr*!=UFU|{)srO}fu7GU5dJmVe@Wh9Dbu8D`^vTK?K=+cXZfS+7CoDp~v
z+>)>?arp9**6^d|)uGZ!N4JLcAG10)XZK!M0~}7d<n-)H%}R&m3@>iEvUhcRA75(4
zy6tngG*E~I5L7b$N%>t;2yw*TCiPk@E^HZ{n2_+=GK9R%4R8iyKU8ATJV{gK*q`&m
zt!Zz*<prbs=ba*xO4l;gr~DqNk@nA$m6jrnD%!Z2)`c&|sf8@YElT}4FfVP`=#+15
zZGCthtGB9pNv<hV<$aR4&5sDEut~*i)+Mcbe>&&75~0i8GPdo}kswN!EOm6saNiiA
zL1J}HwmtpiaR4PAy!m?MfG1uPECPu&kAL5LrJ-ICLRzVL`69i1|G7bFzZTVjg5gSC
zN>(%(&QzGO#4p8r>-O&p$n`kHnTGlimq)_X^g#F|@+Q^f<=qTC*j;}gu(jx3$@4H@
z4?Z(sWYst(+Ize0dZi^2#KpiZ6p;@b`SE@jyM!Yqivl8jJb2)tkzAQ=2l83HFJZOD
ze{=q9TF^$vwI_o`d*se|p(q^S9a23(M;H+=WaQKR^QQ>w?Z@9m3XMve9ClX6$!OQ{
zfG^!BaXPC2Ty_-5V}wM%QIvxT@Q%3xkS}YL-(B(K!L8O4*jLTX0j_!13_Cgvl{9W2
zZ1!@<`EShLXg=8JdPQuK+Zpp5y7T0>!yn=b7M~WpkGp>`y3;9CdaeKvmb$l>_!-8_
zZB!|#GQPyX^;Twzsj=~A^ykl?N0pf^yn@ACj!zL%^jV!ArOyk<nbzdRc#-qBj`txO
ze^Bwb`K}|zwuz^4d(e!TY9Fr}*YW)^|Ao}zE5gQ8(ip*0z?bM4*@GI$bfmZZX}gn*
z(1SIPz?gL4><1NvC3Q>BUejMYT<nf@hR)uBcgAT5J}jt$Z!Pu>5r)e%DUob4`%!E%
z#5z`qCq*Moh`@1nxqx$(s;MUssajd9ezfkg7~Yt}UkTk(*2!Y<PTp6qUg6uQd3~_h
zO!QRPH$=!jF87-LNSJLD0eIq}N%fNfdTP|UA3u3+@kuj<h;<tRR>>`m&k7;qt!e-S
zmJJuKX7t9B6)k@*J^7WX(HT_~?Y8{WsHlmv9e)RL0-@Y67ry{d=;>9qleAOGZcS23
zNCvsBUlQe*;KRKI{;<D4x?%{;tA~g8yA<izs-7<W&W|zxaQD450($U=F_|}?YGDxJ
z8wZC9rwZ6W>OC#D{agP&FYc%0<N-E6H*LSNvAC?PY&Kk|#Mm43kI`wcXrz)OXiaev
zP^bp$Ub?&XJt=lbuR#<0#;4!tC4*cR3Qen@z;d-x@A@wNcC>3)(Lxu2rU&cn=vY5^
z7_dBCF8*m!NLX07cJb4@;Klyj-bMf+h@gRjhpHmRWf`Vn3~cDSc-_W;Z4Qv{d=fW@
zE&Tqxa`Ign-JWWBc3kzAaoJQH$d(H!+`Q9{*FrZ$VuCpn3`*7kNnjbt*UxnVF|i#6
zoXId<9uY8!>(6!CUHjA7+dDa0Zqw$=9<=s_;=MfVu2Hb!^&7S3?cbmCK&n@sv>cE0
z0^SFe4?ftHD`^Hv6H6Sni9##|iN*)F3tT?4k|gOi@gC$A;fl#?_nuBI0Z5}{f-tbT
z3#e*)dklB76~LipN;}JMZ)sFrBds^^jK0IaP@Z1}0O8+6@@l*u%Gc+QMrh9M4i=es
z?r4ZMdIb_D8q-t$vi@q-b8jXhJ2%y5G-@F|<Zumu;drT4vo5ox-yhTF{TH%EIzH35
ze@NCZqvf-Jq)+|zocUA>a9@UmEP&rG;rxvVe3W=zQet8axx9^?l!#rS^rcXqnN>OH
zVw$V?F_HXfexF)F&e^1Lt*$+e<GFx?5@eUlzS+J0_NNFI%O_DW>Gmt*ODVF-d8ERw
z11-S@=lztCkx>Qsm^iQF#%#y?225(m;a=?6u`Oovr(YP6wW$YT9KmW&1kXd}j6RV=
z)4_ZI7ZJ9s^_W9Y*_8x;%G0kx4+{;+2!noLx5A$vZqGE>M9KMdr&A6VZ1i1nMNs$+
z>IMfOEwtu3<3s!b$j|J@P^}N9Rm<%j#Q`nhGP(r<ysnW8CJNwXeSKAf3#|L+&BWY#
zOAPBsxugXgCqOE1sw8fIePy6<=*O2AbWkqXi<9(q+l!e|O&<8cV)|qWr@K3?%vM2A
zLo!NMJEp;J|9M79{}$8gq7czwf^-J*#hO<1d?;YqOlo?dFE)qPeE{7Zfl|B9i>l27
z(4ynL`0Jy6cbXh&d9z1`@W*$;f1wlDm84}fb)9TtU=a6v=U$&rcdATHK97i1)4^^^
zN=l|JSpjgR73_<Oto9VMu0+vN5yyC*aR3IJ05WP2eV>%aodya98UU4b127zjL)oX*
zHi5aVzvSo}4X^bF$;1h|)^a?RS=4gu&yZD!OI6^`sygv*;3RPThh0J;KqL&-Hl_n6
z+SA!7NFVlXM8;=X?QjALnbYGUD+mM4NO$h)+P6@e<A)-+Nnnt!WLbZYZ-AwwuC2Fm
zq+6PrvI4OCT`d=|^|?+vT^_IR;wCmUrwt`<J%UM3zu}($F0*4JNRHM|yk*g}R*(sB
z->MPl84&yryZlDu@;LDfOMY1zpUBo?3orZK+t`>Fn@+d~slI2Gum_&MLQM@NR7zt2
zlBnZ+H!7;NGUR9~l#bHm|1=e2V`E$}5WuS4uly@2D?^&${Fl$XijrQ+D+X#U=@($i
zEZN!FQq*9PD4#d*a236IQ%x`r<sd`FLssNoFI7DTgNG~i0h}yy`;-*(xu^3kW1rW1
zsADStP_K2kJ!Hk0bjJ}xp}&6bsVzWEKJaFi1I({|p&ypb)}-&`xvRgb?R(R-wUh4_
zQ=*`UehxsCG6gn&BK{OtNKQ{D_-g>wVW{`c0dkXa5l8p<^fW8sHxT60z#Bs(0gN(3
zcc)%7+XDTjh5<4ID>P7%JzLV1Ea`SDE=$^b>2oBXN31$@_IHNj@m?7?mDaBy4M3Bd
z@ZsfZuX`cQjzc<xeCU??V*orpwPSYk;_r32m8$;v;ZmUb??_Bw7sdV4xcobaCpyf5
zlpO0bTF!6SVS+sWcFNMgk5Gcmdf%LV_tDajMLsz_50K<ZHz0sp02>(8L`Mkd=R`Py
z_v_HZ-I<TRlL+6!Ki|Sa=Hh)orf;6a45MAlhH4+Za8(7!U87;={vt|#e-ZjN0b62G
z?*b%4hbI>866g-lVjJkv!7V_<?%4rZ(Z;|b-#~UMZM?f(*()E2F6ycPSdjVS<>^a@
zT(E_-z*TXoD$J$guPK<?apIe2AmF!AR4`ZCVN=+r4}98GV5H$fjO}ew6D;8o_y9O%
zkJAA)x#MG0*`>UJ>TEOu%xF~PfumzSp2HV}#Ku9UXdm9g+WL<nZ1l5x<^tP=KE0JN
zXD~h+rc#${cb)TuVL(JC$BHx;EdlS1W2VB%$jFySv(wYNAnjy~0*EiIq>v{92^MP@
z4N=5cjhod_-%l;zxIzV=s`1;~+}gS3TDX!~O3A5DqHh+YMf!~VK9&ymHw_v=)>J~7
znG92<z0qnINwarbKL;CgZmO#*Dk|!oJq@tdV`O8lD~bdN?=@IbvL*{Cf{=?n7kVhE
z)S(02w1osyFgX=Z1cocT1@rg!H;XlSB!cp}?)_W05ODMYkc`-b1aOq=)J&fhLOI0m
z?+}``Fv~#9|6T+IiM+kdg`E_T$Fedbr3F_h8GQN)Gd@{z0HV(p^W-B)M8d&NGX;Sa
z`3b5<*gF$w-fx92kOrp9mz_r%{5PLbNNZs&omHenCE7m5VT}L##H=I<C)b!Potsr{
z2YI!%waQc$O{FtIH9?yTy`>ilm;Fk+RN1_L7XXE$VHLbLSI*1J+uP=echMpL0(oOt
z9h2ya&CyN|{=fq$?CiCg6;S=q&zCXPY0GR-n@>^m4b+orqKeww6pzj_ko^zR<N}+1
zWx--O0Hk=YWG7lmHvm%^wV8gu+3pFq8UhMH1X<<OWk}xYTUO|#@>@Y+VNE|;H66sW
zA@9+*O<&m%t!c#SremR!#~Sj=*g-+Sq}pj{;&8JUYQ*rVVR_lv0#M(yO}0I$)z34A
zS|~APA)^xK81-xHh^;<KwF?$a07(e5h09Hs-xUqn>#A|Z&G)35Ss|$<Hs$=^iE1)H
zxYum~rygkpB>Z@3)BaK>*|0+EJJng86cxXS0&LC$r35QxzKc^2vWnE>1({$NkkQRU
zE{F;WcE)C<q+B0@e$LTE>G@Jg5<m7Xv>XU6EC?8O|JB-s$eX~+zbs7-lvo6kKsBNK
zuf8BfP)`deT?Y|(76IxU7QFf3?15YU+e-sxfPEH7Q<JB4W8luAfHa{POpD>CZGVfz
z(z>MrIFR>79aN@%jzw(tL&)J~I!BwJP+l;|p7PRo5}`Sy5@d?NF-$YS-2+e}A;`j{
z7g9Xu@70{}PSwhB6~!$jiu0m8xl;AyngCkVKb`sU{wEc}MESMT4(x7TKGT~b<+%?u
z_{cU8f}cHrT4f~7F>aWT3~du8L&n3Igj_Aq&L*iDoy()u_!_{d)4n_uRopreJmko~
zf5vx<DR6WMl*T5&RVz$}*4EY?AT*)ZfHIEYWVdOHOm)Y=_<5`M_uz>Z=)aLoWFnRU
zxDPC(bhOH`vXScM>KLF)#9M^M0||{oipT)svXszB-9;Bw5THKvtaldOVFAE&rAI|u
zfI|hYz5M`x<K#dA?<>BfzU14Du<IL=_Wr<%@{K@9k6Q(<RPSGtbUi?5Rb*=<8m<ER
zfuc@tYJB{|(M;7S4yOARa0$1G0~uJrO7&1c5QV%G`2ODFU@=x5whz><Ry{5!dDLaJ
zN<bBP*LgTP5IBbKJz(3_sGVJ2K|?IW4-f2-19<F73}XZbH24P?_X2=Ai9gV#7fW<m
zv!&}ZZBcH&0SI?d4tJVs(m@?Vge1)e10CyT6Svch1+1E3vd-J-IE+<3XxG605I{fT
zCXC9`(p4g_k2HM#d{0BH2F2moeVbX-v??#mtg*v95&t{C(y1ksh7y+r>LV6dAQZ)!
z0S)@Ost=B6xCT(8kql&)Z-KaW1z-l$WDCj>gnh7Myeun=rw}~wAW)wSgU-qL5GE{i
zsC8D?&wpN*ruu`@A-{f2qCr&K*H>o?sf8_2D4)icHd~60AkL_ZEhx#l*3Ko|B?gZ!
zcr~oRh`SRWT_P^>AUlbJ>LePl6moFj?>`YN;y(-u4PD5RlR=(ifa28c52Sb3BA1(1
z&w{8z^W+6T0)krnB*XR3(kP$rOK0^OwPgB?ei?n&H`Hl6uCUj3%94{>A{KTXshBH*
zcO`hU%J?|P3YC23!o{nqMqFK2?@g1_wyd;!P(NfDSbRvW41cL@1ZHyr#T^S?9JOST
z@&tRyv2C$0bHRDEDu1a<v{}{<_#QbI<ibgj(#D%FTtMO6d!aXdl4_KVBEnK(X)x#D
zN_c*pH*k*N1FAp<d}=`VLDC(6c_AU86yQdtpoW!ARoMt2h6)LQI+##d)SbuQ-&k|2
zL=0zkpQL9Mb_Dc2i7Ibrja@ViiqI!4I6|jR3@~PSycfN7i$MfTDhZTP>Zm+24M#0v
zmNp;m2L^60Rrl>3QZqFH^vSdw#QFV_`qjEX@FZ=Y_LOo+rtA?yD5T!LIo?2vV1PdI
z=FP!~V!#h}o&%D8=niCNNJNkCY>et*?;gRHbR!p(;O1IEp@A}X_SWaAKJfG?%7vO}
zsfz~npWKc!EJ>$ojtA?>u@k>a&%whpY<u1st7~Y?nJe79&~bgT)^p(sK$%8Kbquv)
zstN`ilCD}r<;0ZDbjnyCsB!S~YkpWu6z{oblkfd*-x4Whq&H$j%WX)l{g3K0AYL6u
zTybJ|`OmcgubMd{=|VT6E;J}8xYprvjCgQB?=GR#rE=2(mU^j~R}*=-9u<<p(MSeR
zea{xul^#m_EZ?gI&i}0BDx0<p--D#B)!g)8>BXvkt-un+7bi79W!J|Ja5{s0y}8`^
zpUJ(oyVLJD(m}eVNOc8(*-C5Pn@=XlZnSgf4(93FJn-=$u7bn~ikhaAX<ir@1pxx+
z5bTZ$x}sf=6e$F{Cz)R><z5w#P8^`fx3>UPA*kcAo(cQbO!-v}%K2?z#<v^*32f@=
z>ABU>(IFtcnDOEY!}WV>>wwHnSk|~&3{h-z1=G+pH!05->GW!USow^=C$-aL{o6r_
zWy=<vU%p5;^T!g9D5+pk><=grQN}<D^(T{dLIMChCr*GV4t#K5S4T&u?s02)GF33!
zQ_D$>sijmn)kKNGsS?<}ZXmf+;t*8%{k;MAyB`Vo)liYNhNq`z4Ts;<vv;H&0%eO@
z;=dtHE%NFEkuIMO%F6L<GCo0-z~S*!e>{8k><}n~ZN6d>GBo#IE^k|{e)>RX2xq$#
z$vZMr4pNvP67YW?knh}^c}(5vcs#YT^tsxo1+#jiQcKCixVTyB0rrGS8$3!m0s??<
zyRS`siBiL4D86v@z7;nY7wLHd{;gD0ZClzUvoxbrEvw<kD@x4|Oryve_pZB&3d~8J
z>B>9~7OMsUHDGU|F5rOGrb;<BZ&1)$OyCIK{rK}>Z<7v)!5hDrJZT{LuxgGe)^vGL
zs$@rllllPMZwdw{o`l!Qp?tvlNy^rkXRn3-4;K4~z?t`w6P;dxkDjKjUc-<jX%Nc$
zYizV)cCLnoS0-yOQ`P-1V9LEB9t+Q(5~qJMGM55et6T*otY0}G&&BTbUWdd%K{?EP
zMmNE(Hw|Gxbt&MZjfprkgp}lU_&~vm2J-Yibuo{c4ENW*F;b?;JClTZYH?jL5$d)0
ztBdNmT1j_sP{l-gh?<2U88YM-7e75cT?9OceW235_bn9>d%OZe5f7v(d>N$>$Y<+d
zRnAA$LbN_IO<i>aaH9rMwz*@F=b(_*BEb&l6%`dV*VFT`&cV_wcVV`{@J>Kl=&85t
z9kq<-k7Fd_Y7zc1;HoQX<9Vq(sQ3L8xc=&><z-y`@=lDIA*@iN0EzSYXCvp#T{s-h
z1h2dB@2CFXe`yI85bCE_c=fb6%ZwLJr(>w5SCaLP_rbXgS;%lA+YQI?EK`)L8cQ-C
z?mFy`rsUBIa%X)C_%R2jzg=LjXcGM!z}m5bFu(ef6r74}iwSarmz;omP3^jZziKG+
z`c*z0`w8*qzAv+cc#6+u2t$TN&pDV{?NqrX;q2nxUMUUvG_7}X^=MHa9E-~mdt5O0
zUWNzcQFBaUYIcFtM@`90O<Mtt?(QRdte<@h?pOb(aUTEQUAX@Div~K>>j#fo#&fQg
zv;S^px=g)7?x^Ku{BIpv5G=C~GtR*Zcpa0spZ4qMallkH&cOD~G4+H0{B8lb-I%Mz
zEa3?(z*NtwEwGZ;;wDa}Eifc@OTl2`Z1F-ZQY(JTDQWcR0tRr;<uU8<*A==(7_k+W
zvG}Z+;vL4SLqs`|VO82YZmT-$iK68Be|oCWdOx(rxj`@=Ju_*>#PTYc-|=}CxO8t$
z%`+<N60djs)`uB#fG&l4LmX&j>0B+z!Nok@9tZU`Sxd+#oe}Nh)E~#-=9x2fjEuXZ
z3GSQXP-A_PT}~gz!gTJRZ#{ylgi4ZoJQ|wJFlNZFgU!%*ulViJ;9v#Ju|y9$hu#ZK
z{B*-A|9lw2be?8n3;)NDoYF;<{B%f;&^FPQvfR<CQ~vh@#M88X{e-7&c!C9*a&?<P
z2<kMQ_d_UQME<=Fp-h_-^s@STsc)UL=-d4oGgd4^8$JP6^RIbY<ex#@_Fdc?dN$N5
zyVj+bV}48+K56XH$kzS$6oT@{8gM(sGv2}BaJaw*%0;VO_&?n<2P?Q`9J}Ti-9fxG
z(y%^@MOfgns!46+kdU79zn4FRo{0o!_!+askKg|2!MGL~RavwYIrL7?@$x^12@Q`D
zV8ytV%y=hW?t1daPfonG;@=Y(JdK!o&|C`7ag5I5))U5GZo``hB>ekBCmGMV!O-e?
zyies7Wg|<fEGf`HUv~QulOfV!KW>%Bmf@KK=lLHB7oTUm;jHv~(?X+cs}uK*%jg!D
znE8pY!h6sBbogGqSh#*Kl=IE;>9Z_Kt*4b<a>no|oT5E-`t*$(r&;Ry#}}d+Nkpyw
zaRcvCi+aNW5;>rFD0pz9cYj;-p^U}AWWbWi0=>Z{YKN~1&=5X1cq@jiz9>k4@<Bw-
z=k>ViIh~`R7?hw9)mYzJdV74RVWwr9`te8O7uG5+LoLYu)$XCD+9m9ksS*kz)IG*S
zv<<?oLj^UA2Kf3U+6F9L!O=ai_=Hg3pjCaB50TKS_9Gt&ZN0b_*$XvH&YhtrB^}La
zkqezj-9Ir&jQZyqlt)>#;O=A4xZ#WwdotEj0e|~b-)3A~D|vZ#)LZ`!^<C%}V|wbZ
zDnb6zGh8bv@+@4TGoJZ<gZ1cGKeSt9LKX~jwc92wEdoQg(Y9SjUE(ymQ}mLtJHo9p
z?+8pnt5v}VInr3tE6Q#i9aVz5!Tx6iq58kyke<#0eX9F_`U!|rRC3YJ$@qbp+?i`9
z^L!T}M_3;!q0mw<HX;A0c;)!ukvFS!U!gzx0yi(XX$v%9@S|V4X;C}<4+^QM{{umP
z=^Z=5pU{|#|6Gt05%)h@;=evb@|AH&=F`n3Yx>RO&-8PmuF>TkofV%Hnwaee-~Rs0
zX~JbHfZCC=)l+^Z;n2Jiw+|0%b_!Na5k8@&M>|SRgB>Ah?DzdlVncV9o-I+W*-|&h
z=S1BN`Tu4l{|Aimf8Y>D_H@_$cAzlzi{{DE@PToX5)Gixr$1#F%o(Yh2H8NIxLf}>
z?%q49scnrH#f{4GSlH^eAOdbh5EW2bq;I!JG-^PpQUWRh(xrqJ+TLtIH%$q>MMYXd
zZ-Ees4Wved1wu%oQX&aSBoG1#N$yHK`<!#{8+W{S-?;aV_bz`p99e75HRt@k@Av(_
zk}NLZGb7Wy3%jebM(OE($%QK4A6&D)WR1H2O&ePbkBNNx{on)I`VL7h|F2Pj|9017
zWfvj8C}J*PUt>~%7J5D%@6-E(K&qVfhMU;^r0ZmCR0Q`Uoh8Uc+H+|@J2u^xM59Q*
zgn8!B50or!1swn$T`i2`udD&|=X6H^?cpI+;>V^D4*iLAE?`VTwj%8ieJep$mK7A&
z4t=!r7oU!t|9mC#1~)TrIT=f{3&*D2<3ygr;NPw+JzZEXw<88LM1`04I%pRmd!+}0
zQU6rb<?NuHYZ!MMWk=|8h-u(kPziId(iWDz9BOli#c%T_&^ASS=rD;+#@GM&ZJ27~
z)l*v;TRqh>c!-2O;GkU)$?}%_C`Ix!!9P&ek#7dqAo6wN$vkW6hc}Zp6PCkqc}s8Q
zZZbY}j7be-{O3*V4gWlaK$C8#MszJ>SDjRX(g_5;c}w2ly_tDS=1RAuXm@KCoP#%<
zx5U6C@EV8b7r01_6f>(XNS=7Ly~U>0i~E^gGf)*2%za6xj4oFL1zQ)SJ$eVLVX{Ev
zRW654#WH09ms2%ZWmlnaWkVS-1ZWtDgLr&)-q%5ITL8qa*B0lu=d0*GqMYnwhQWJM
zQl*`fSkm=PY<c}{N3|<s8=?2tn}74E-J(*VJbBmoK@r5MJ%&3lP}SHG^(&Y1(nvbO
z!uPA@p|o08N4R}Q37&melv2-U(C2|bTj%UZ<~SXPb+(N&y6^T~F?Tlq&Km}7K%phU
z&;rpykR$5)a(dYecacMP$d5L$tYNto*^}$>FvLBSrjk~bnN5+iaCs%D?b#X040Sy_
z_kDAHuiCo7rT+$K+ft2Vn5}Ap<xWDB11hUR#V>{pv^Vo-R}LnqR27rXVCw@RF@yz~
zX35}Hj|*G@EFik8IJ%U-q{fTBld5>~6L}$#&Mxa6!m3oq*5fBvxR)%`2e4EO<tE(d
zzWfgM2q4^A6Zz`9p9%}d(iM^e?wqIG6uy04a7&c9E5Zxz)KL|6k*frR<WE1WrhlZD
zj?Q!d$pwBF>-^J%b>d?Cjxsppq4AGIpWu?#`YKlmYwBS<#SC3in$*ya7=Dg)+<kzs
zZpG)T6E%5nogniH-&jo@{L9>9fR+9_LhM$_Iuj#ISqSprKBw;l-ky4Y;3}?}|LvD%
zWyp1jLB$_8yth1`hG!HVAou+FF?4o!a=>r<T0THUcCa6&jqR)^naw5ni$vrN6hM&o
zYq0t|Bn(aO9F>ajX0QF7E$pfxfTuT^!~0E;8{S1%$=^66F2N9ox|&DUdeu~V_ry!?
z?Z&rQpNe3=zl&f201_Y6D$oXAV=iDuF%v_CFeh%_^kb>IekvH${nP<P6?hB1xRdmC
z;N|E<4QNb8_4qh01jwc@(klTdpk5XNv7|{c<Ba>)`0xt|9z9Oav05;$hP@xozr~FK
zMu6?u?L2GRcA&&-SVi|f8eD~pObKL6nb0e_a{y*PH;k`|^5!N12XbyKZ`YkEP`VzT
ztiQ6l=TwZliRA8ES%*%3>UaT%h^7`^!&>Yk;+hfWKCE-^%j_R*=g+50J!$tQi86R!
zMFIF)X3wenyqszU$zYk)I~DP~V?Z*7*BpmM@aC0d$DMW#SGTC#O0`M4CyibXc0K!n
zBG_r`rD=pSiZK$c(x+sraL1j^q!YB=p188sJ-B9&>?7UkO=P0e%l7)H`OxT#+{ELq
zyccxO(IpjI$c{0h59c%8t8B&wW2IduMU`7S6@0d^aSqyOWp%9?yz`(74=&4Xm@3rQ
z?VNapmp)*;5PbZlp%iLI3WH*-8@uvLN0q^U#VUx`o%Kv2JfkT(HG=8Eh-yj&v!A{+
zy7Z&-^}|NLNcVqh=Rxq01_sv@2U=NEc}tbxQx0{+bUTscs-#es@)4Zmu&%DFrA(W<
zXEgW_>BFnGU)Vy(8BCFP>_HTG^*HPrlWIUW{)}z6;91^MQBDw<>D41Px-Nxw8OAFR
zVyJ^DaRCYwrh%Rtoxep%S=G%0iGPm}`+07-1IM!O5Akfpyuo!9`Tv})nGW$BrrLG1
z8U@IQ1Uhxp@kx2KSR6j$>Gue0`~ggMoS#Zhk>KKiYw5`taYc&*)t(%MW0*M!U&Y7#
zwc_ee)l*KUPou~IMD+C-H<Z6(n0&aK8#ypa3d1r3XYO`8H<w2FAbhy}bVX$Da_WL_
zxvlvPxcPmlZw9yV*jaDTsGL8!5EOwJTUkFv3i<kd=Q=~DJ{56O|M)JP1jVRiiNVXr
z*gyP>c-h}c-rB<+2ITbz<u|iTV@x7IiqzfdUsG(Y)b+{Ceku=e(+*-)0`j(s^Ap3E
zkQnYI;B9iiABfu*xG(50E<ze!nK^eLMqn~^W`n0bnLdM_h`59Js#Aj`M^Am05qfgh
ze)BChx^F7;si5eF@bmM6oAHX6nf&QbJm>Y-^w?#8FFQO8rFir;p~$tvdjxj+T^>-r
zpS)Sdm->Dan`c{F&1ynVY>#j#ck|_>_VsM?i3tQfCrv`(KjKO-mTfa5ru1hx$58E4
zUwG7rfC-oI*JX4yP0dfH7`jG!hfS{vt`M<pX62C;oPrd6ew8l@fBpA!82YCIWs;^c
zC;lR@;b<oZCw`xOs?$|uE_>_24ux+b7p}4FxI6b;J3s3;AEj~CPaUx!yXnT==fl&O
z56qG27jgARUB%@z#1H~<T7dW3_zK69`g(_-l>l?8aZ8g$o3yJcE~Ixws+%qZB?q`)
zbP+8zhHWLt)Ex!&%Zk<WnROf%TP>zyu^1&;p`lbV*Fdi#S{Yn>4aj0OWdW(UZprUD
zR57feJA=O5DwXS*a8S|Jhf>T<ufwFHR&RsAFrYi*FAGRf;Fb#b1gfE~*`25P(i;|E
zgQ^bNg#6*}0fCG_ViRmYT%0EMLVWxM{L&%#_c0l?UJSZQM8JD+>**_-e5I&dS0M4`
zq^9xDqs#5K=nAb`Q8mA355pwvX{>biaRNB5*S3K7ZKEDgkQIJMtHFc8f2rI1>!%{p
z4_AEe-@mG7+l>_df{+fqdDK}N=E(dz7D$|WemlI}J{_xUTjWZ<%iq|o8)AvsRh&k|
zh7DFqp(tM8`)fR}m97cA&OXD71;9Y-l0%&S{qJ_|I|UlVVd~xEEWcLdTeEpF6fqgP
zf$@1A|4*EV1dmTKzpC5RGfG6E+XMB$c!x{K1+L=g5)|l=qf0^N7F>ctR_#Ab>0&S0
zAJF`a4=1Lm=>8{mpuBpBRV|uJc<td7w)uZvN$~3NVy#Z4#khns2iKHA0Lwn?r1V7i
zNJ{EVB{P!;*YLuspszA9RbjpQlYf3O1omPIn74;}=-xn1{^m~(`jfS5rhu$NnN-NP
zb{OomrP0H-G$|Hr&bS)%ZgB1Q-=Z9=i=Blm<zn$9J!^F7C1B1Sf)pB87`aCgDx<D6
z$7sQ&Kwolp?C%u$p_FtIvpHtVlkh@?xcg6C?Mu9xX!mjSeLzY1jQQ7s*JQHrCf8S%
z`xnY?VhcQb(r@-4tO^vme8B+)$1n~<g>KhPvHUzbVId^2f^}UuyRw1C7(*O)cGN?E
z6ybFBW7`6EeUR=H;R!0HzwQjxcaION3Ac|>Zci-EYqXc8umdN0*Q@BWYQM4BkoAMn
ztwv>0y@Q2p?>(Xbv@#7cS^T*~7oj4d6f$)+60YSW91o4Y2I^&I#~|6(w4VQFFoftI
ztXtpwRUj3_U}2ztLk5n%vM|#)wXEDj@|<V6{*w?V;`^LH|D9w@CErE<)(9phUwh6I
zx}xr*{N=*<zo39BU%*r%w9nkeFk|sMGoK;XIAX`}AxaOuDRKR`?jgAfa7T6ahsS1d
z#z`Bzbst<c|89Wtt}_pR?uws&uSyV-!@ysoiNzVplbIU;ti}7I!7UZ+&?DU$Ebkj1
z(O%@%nC{dV64*gi(xm!g%Xhhi1fC**la8aP{u8SY7=7S}+W2kp&9}aye+=+%c-uXY
zKYeCVT$x7pAJzxN0S)rZHd*mHc4VCXej(yQvpa4AviLcgXNb&i&v>>*HE=vjSaOEB
z{O+vp_!jw{Yxb~)?UIz^8V!`gKH~C?qewL!HH^++C`{bG>D>Kg{=UaVyDmM`UH%Q)
z?DMeINjMhCWDS*L*|}-yjDm!rl5k_{Xrbv4yzl--dU@}UuH&=iqi#wS${+>%O8%^l
zo`$iTGmMusd-kE%?uyr6QC&k7WqkXuLmWvt3`{as8z*{2#(=t~(wQ_7PHp)zBB<cL
z%UkMVhF_8hw>!UX&n9*h&r5e^La)tn(o)@_wjfO`SXs(qM#hnyuhmi)h)F)ubl^dC
zFoqGjBR+>l-{hi!b-)W_Wp_#6F;y__GY~qw4lHBYg~~*%nVXVfb;w1oXx{?3PB3-T
zoH&)hD~?$ndbQfyyS1Wz%CA=WM$u%=FTz#b+CXgab-1%>Y1CE3{pMQOqvDUV^ZwGM
z85w{m`PpY#29fx;M-C-cw&i-;0=wLCG?j_FhyYl?-7qY@6j|9=8g-3JX$zHp7b~Uz
z`X+7aR5=z2hBlDuPFHwKQe>BNM>D^kE&@J-0gxP~%ctSPcTQCo&+B!XitS9Y53enr
zsuA85JENG}$CFQ$^>(^^?8M!ZtV8DD=}$2v9hx|riv)DBDz&a3iX9rIhFy2ysw2W!
z-Wls<$HoTO3!Ph%r6X=;U)(~lGse(hz2OzH_kR11d?~|6WhoddP!_oFX&)Jjdn23J
z<9SOwttzQ&iQnxM+T9-M8NK#TMtAVpML7a5PXXQbuMtl+v6&e2JVWvF7Oup~WzJkF
z*os+R@tN5(?_Uw%WcniN+u*V@X5zmhVEq9EG%MH-tLzlx|1XwwF<|8WMXoWRiHUQ)
zr6OH<i5>`5HU)lNbw4>{2EO~ob?FtxFzCc0WdZ3kZ#~-Ic2Vk{WaNJN@8y@qKrL*y
zYQFu{3Ay~ta6+0JJD3GJtGFryd0XGWd8H%LDN_E_l;$gBEPN{V5z>7dUafWlM52k<
z3UIS?s|d5jRV&{xz3Vy5hS8)?uiF8-kT^$jS=7wRh8srR_5kZP>ne6H1_Id@g?1I5
zM~MDSO8rOfUq*N$?jr0_pTev@vn&tTiA(wS5I4C?^l$&>oK7zVf6!YO*1Uo7<1UT<
zMm%@e@1IqwU5&4s?_ewd+7gDAR%}KIj(0juQL#^V3Eg{Y@lUllnvnKfag&VwgP*$`
zl#{DL8^CFTMV4Ew@jN-N9u>D91eoWGJF<!GgP5R$=`m%)`=<M6ypscNZ3?h6Jq;%7
z&Mdu16uU<5D1HpmLi-2c`N$2Y;7-rr6+L_84^|vV<Q3A7?`%Bz`2k>Mk5+iPAN$5p
z%rz#}eO0sXzG}AqfU?q7dm6t}=GH!=Ia*xHF{{p*=cL^B+L)D@B3}N4rsPr&C_KNS
z*H~;$1o@fn%#bYi)weLcNl4`1uEqqOIjTNA`w6l8n{s{R%yVaup;k&l(w7j^uo3@3
z^87L3QDvDbgA2^P+?RPv7eFGP;MpVA`%jna41Um#U)WP)h>uzxTzCFYHy-1Q=mUKR
z!j)UGN?^V!qkkSX?1iD*3H*|OpZ`=s_*Fy~eNpWhs~#}MGJzzlmHuQeR||;22h|a(
z@o@<9zlFMmpzrtuNu$F7?@=1~%QeQPtFyYmv9gKpX1U{n|47~F7GMFmkiR(4?k^wG
zVi#vE%uzcP^`Kp<&4SzS_7RMk6=r8lW1EZ!Mh#Qf;dXG-BB?@lZ^{J|w7!>6zwqdW
z;_uXuG5r3YT&eEYc`$o1Mh^lK@)!G%sD<TAgM)^ZMiEA4+9U(%?577n@*D&Us9CK$
zKG@;LonKfR0o-;@e~%0D4QBW6?1eZ!GFD`{)~Bz>S;GyKx-fmPkJ7<6pMxr}6K4NO
zS=Tf!5P_wC^kKNxv_0deF08$vQ)Ic{_o%gF-#1D*d=oPdIEGEmzE5uV>Pc6q_|DJ}
z5=z>qJL6?f%8no(@ao~I{O6UIx-+`rNdI25n)Wcy==6U};qMWF5Z%rIb6+qT{0;~V
ziRJ*hGpS%S_;~YRKKM27@9zl6TiWuUONqVb89g0P>rd@P{FC2EH#08LXC4T7^(l;E
z1Krq(|CC{1fr8i-@n&$HV*jn!$rS0C_Rqjb0VL4c)v>-tW@Y@Fh<?}k08H`Cm^<@r
zG<%1g{}Bl~b6<rqOF%tXq@MzA>xNL=;10r|_JE$%-{?HKMfd7+c%wG_K&Z6PbpP0e
ztptdze2uIA^7K;sP~^S#-^myU2YGDE&X2vh{uRp3F)jG#d|L!7G&*2_M3sJ{{pL*K
zjtFdvJrTpY-cf;%mJg}%-m_S2EnHd2Z(e*%Hyxd^6XfFR`N?#vg6NH~@EkS4PhHPG
zn+Hnv-~BiLd>itA<KqL7ObX7(-AI%iGl&f03foP?!<tKs{O8-$A&x_WFV7B1!-yX5
zimazec1c$0Wbi!;E-`J~1FZ2>oZVVd$6y<R8=_0A4dB$9RO6jd>Ffb7*SH&q>3Hxr
ziNL>O5|V!r!Cm>(qpYVZdgVHA66Cqz0Bfmf^_*|>#nNm8(UGjAf8`6G{oo3LlG;H=
zJ;CxA2E`S3TctVH+jB!!K$aGa>(q8M%du(LcFSJH{6)oqH}iQ*6f*-J$YecLnupN}
zRK_p)PGv|3^N};=Ken=0mg+Y7Y?3+SCg;#~lk78+T2*IdUwbnYtO;E`3wm`{*cQSi
zJ2#aImeaRMI%{+(2q;D7hI}22V1V4OCev(HM&Oi2v$s0fI^Rc)0!uL4SL5jp2gq-J
z-?)gR-T@H}0BO7srG|WC4|=@bUl0?&cX>N>BQ3a>z$pD09a%n;fMxKkeZ%y>T}%kY
z=@Gp-)OxU}lwPas^u4Gw&v=h{9e})pi+b~VKY8HK)=!#&fs8B%Aoaj)FuCpoIvMfQ
z?EI~CjL3@{4rIv!%I#eh#So>gD(G5=VCXC5eN8;CiSCZ9MC9Zx2@-woZ_~nvCVpwQ
z^xpGr3a21*OLbS<WDuEiTi!8L@zj@BT^kHAE|uv%u>*l>#`M~=0~>a}oCNc2F7YOw
zDt;5SVdN@4iT;i}PpIa92;FE<LvmRG7q}ntmT~eQk4Z#(=GO~b>H-VKr_4;d5U3*|
z&fG_8n`qYder8}iXpd5Y*&B#^S2idx`!^zMR93r#-efq>73jsv8BB7%<N*$46Vrq~
znDTILaa?5<{G}9<s=!GJ=?guA*Q};`JZ<GB(d>q4o5Z_*qtA`bOskQcH@vt7F#B(!
z_baV6(0j2TuT@tA!l`{_Qov+nYW`$DT##Qyh`EFq8(a=AQbsliQk6Q#?uwnlm!$#C
zR#F1*o!af$-;{mHREJ&%VzriY4}u1996<``qyNmA9DMf7{+p}$^&;*kz8dKafq-{M
zq|-C$mH@1*)@@96On439$!&fRDlN)Y`3UxYGpmH3ilge?(q;^$fkDxCg5U>U=<I|;
zY)Q`Dr#4ID_}s=w@?C$8pQZU@8M#{(1y$egef3u%@c+L2^;hj<Dl~qAS~=C3M1yGE
z9xg77ix)~{BU7a)cj#NJ=Tk#t|BqA)=||&=e}&j%qN-2AbRj_+hsSSXT3r_uC4@`Y
z(A_ZkT>77XS0(?SFXpduo}>`ded4g4X~pf>Blmk3W)e5~43Wy{FM-e7S?;AmUvAb#
z$fmk~Kx#XYBe1GEUyQu1^MPrQmeu`TQmUJ<HP^X6G%8mEktbHT)_+yo|7kA(l9_Gs
z$N5-#`+oA99|%vQ`kohn``T~SJz!1f#6u-z+HfrEdQ5D*({k9aKv6mY8g9Z-OJ;en
zTKuRKDm?n4B-pX|@&|_9#@<GregAXkwdw#`+!B4*kVpkUjMS1;v4sDuV!;isceEkD
zFw@wR;if?n`r%MZoq|)=1Cs+}Z*>v)6YNp{z~<HPv2`J&m_+QFr5+%I0<QbB^?zs8
z>;FaV^e^T4OJ4t)!T_vIuP%r&29~|G&Ud9&-c3LD2~HMWYK}D8|GioZ0aJw%g^GXD
z@O!u@AV_9nc<VQHTT(bucuMZNqU6#+u-vv0Qx7MdKKxLd{kd(Y?DyJ}MgLzlVvjBC
z{z)fz)1YsFv98FPO8Cy<>(aJG(AW+1Y%pwI3k0yvQP<l`;Uwc}&$aPvj|$$Ob~BRs
z&-{3sv_XCrH3X(}=rg0Vo>_;2KZcy;&K2udN4D={NQ1rc6W}7ic&>y$On*gRp*I5J
zi3t1a>>c5_o%a`W$D6?1BKUV0WW@dJJo+jSXhn?c;D@5R!<&&oh|8#7_`jq(T=R{+
zJvSwZ7~-3u-R%u6_FdPD>|@HHp9GKS;RTy3By-4IRr>@_X~f!K4qPLmont!j?B|E1
z{;%g!cl$XKCP&Zltze0s4ai|99Fnx_qzS59s+$SPymh)UrX13?^w9>R?I1rulLjXr
z<u-kx*L6hsBkpjufg1o4o0{w=MVg!B%>?YgML-s#uHW{v^t8KO{hdN(qfttLGlpl&
zbG<K}z567%rjE{W)mbU%eLVJ;_5VxS|Kn)$e^HqK9aH#>K3BZ;6IeHt7N=`QdrQDl
zKb8yy;;?B>p~p@w!U1gdIbJ!Ycd$MO_(}(BJ6;FKV7G<ut8lw6TP4C*3;Xx0^k%?K
z3%~p3PD%3yD*q3{1tafIQFVt*1EQ)R^7j@tu><XThrkKw<`}A!9#m~3Rwy@1z^80m
z#Irr$8uZNVI-X6PyI!qQF?{Ih{;IG7OsDuw0rv$-rRyum3>m9RrVDPvm2)xvleS#G
zfYSULQZ0lhP-0(}b_loUWY>1d$n5a40UnuudzWS=9J|QV37?2v|1vCg3p`1+c`YW2
zcbt9;!E`B9j4O=xD#-!~cI>cAho>$CMlMPMDF*nJa<;EZXmW{h)bf-#V`Zck-tiTz
z-`*_Q)kXF<UM&uH3snrktydg7K>nf1$TzM{+Q!p;=zko<|G%LoQdiQTWTq?X`DY?x
z|M1@_S%@p#F3eS|5)fzGbzP}3<xq};gO$9*5^pK({Z><m#tzrSJ_l>3ZS4-)7_G|U
z)~B74tCE(JniQ3qSTB{@z#36&6x>W*@_F~3ZF_0#$Mm?tLbsbmBX{?)tFh`1IWRZS
zXsg%1x940va=EZ8shQDpFGp`Oi5CO=m8|U$hzYRi@HL_Z!R(j$(~_xV1Wn!}JF8^P
z&*{cSApqrh7iUupSPYz|F9AD&bUPA_{Atg0SybrjKZbd^W>IX=-PZl&Wvi}@f3$D4
zl&%B|c)zR8>erTa0a$gXGTkX@^hlsZ4RTlTgwCf|YKpX1atyW=C57UCV@SrXf|C)!
za>`?*oeDg3Z#P}iT0kPE)VjRdpgBM)izn||Q5aaSrjL(#$AOCgSUE9$%5S0D$c}*!
zb<5wl%x84>rO;(LO87`e)x!Z1mrCL^4`9>aq1xT&{uV(C1XE7zieft@^4;Xba)$~1
zN&M{_KeKzwBw0YP9ug+)_NWSyqpsw#)=*Yp;_uX#Deag@ukP)2ssXe5aR-Pg5bdRW
zCBOy~Zb?MLJMMKCOO8s?MFh4V5mVA#dk`dSuf0lcao1Bm5Irots&V`C#!$e+*a8n%
z<OQ(ung`a<3<k|wB^SF79RatQKA6I;SDA35&i33zE0jsI#J8#?y%KSQDa4P&L)41S
zM*fH2a8hzuwGZra={C9_#632;lr3Aa%%v9tVq~|Hl=1lf9v?0WvyC&kUR`U@HYrU6
z#s4!O)bl^Hb?LwBe*Y(;X)~yUXa25;K^>Zx`{9!Ob?N>ucMp6ZVE7AQA<hIW#DRY|
z!zFOoi&@5`%8nV;7-9JQ@0|&^;CsRLx7q?pYZMoZX=MS)4DpBo*tlezjK%*S59EC!
z{XM<T$Gy24Uxu%ls_*`e33is<?HmJJ9!A;Kv;{9Pn=iH#Msiv7W58-#xYQk|B*uq(
zfL4q^eAz=oo0-No<13=<xn7Qw(xBz8JSD5)SyT*ncvYF@Y6sVenMUo!;2Z*nXgei`
zb@_U$wX3bE$Na_@(3HuTWBJj_X_$bsF(&u;8{R-;K^29(umoJCQO-(kucJ#y&^WN&
zbJ*=82t{l=bXDgFB(SZ{oxd>&oGM$63!3NBY}JR#;gb7rotCudjO8u)V%)GTnvFfH
z^tZr(XEAbW)9UvMP9dn-%4c;&L$X!eFMss`J%fR%Kc!aE;My12D#U^-eVBy8(jb!T
zBHD}+9q)AN3xE~{2MRZigH=mbz{h%l<<D2c(Y)xYowBP9PVgw<xDd}urMXSJxkXHN
zldH@~@}H*IF=F+p)?Ji;<S=Q-uf)##-s0%K2|1Q00v{_7b)b}&_Ob()%bLY%{HY1t
z;sk;%O4{B|i;JOwGg#)pgM_hgUaOY~{51^1>V%m~5FiqohR#jWR!7j0BFQ}y@Zbep
zag!W6YTei9>*EVsS)Sa<FlMs=K?cymX?&zSJg!e9Bz-1`MSKIwY_)87Bj2wpRxB#+
zTpc)2i{`yAbtBg@%y^0BtnGo~f#2F4V_E_yyVyxBF0pUH@&0X#zLItoH4tJnfzP8$
zJ-bfJ<_R5o5pvhP+B(~f5TEiVcDMv84_88uG<H23yj;{c*j8Q`4v1n(%<s^&yeM<d
z0be<qkiq&QJFhnOGeKb-7mt+J<hrj^`t)Ww<NRBL8F>D|BI+!IW?g7QUfs}k)$a|n
zFD>m%GK2ef(G{KL`D3(kV4@)zdkW+?h4hu}T7;-HX4RFeG4e$Y<T@sv0f8ew=g=mJ
zKFi#I=#rTj!*aZs>joE?50ZzhsTa`L8fqtk@iSx5G}IsQau2Q8#x!_fLaSB_?RE)E
z1n+Re)KG$6@4Qsi$a_CdZ@gNFw1oXIsO3h_>C(Sl$$nOA??$eV5e$t_BJVkK^DaVO
z_TLm-h3{u80X(Z-UX@v_OtU3c6k;S|(4WX%_ca7lpkt~}m0zW0D?iqp@+a+kUweS2
zzwUWQV^?*6c`sONJcZq!b5{I@{?3rw;8f(MiSX`u2`JG%4)}y3xNkiM&7T>0T6R>~
zA81-p*&KjjnMeltIz`>Pj!34Lh0r~k`FBv_iR?S>DBk-he&-rrEzUt37&<f(=(cnA
zm73df&YiF9tlnE*-<rnUHnn@Bx{}9H$<9$u?a%s<_e?drrxZ*yxu&7lQ0zzJsH>P#
z(d@koh$J<tbL|0A0U;?H|B&@gO>E$7rRB>p`(f+1y|B)EV1jmBB!1A|#{YJ$8hz-6
zvBdIZR_X86x{4chb4?rZ3?1J>mzcX{J=yfSO-N~MVR6q?cyj8fX)9kqE*7|O=jqg`
zW~=FOwXW=tYls0l1(1iVBZ?fU4jtjKOliPyhOryi$#i<qZr<BMPqN1cNuL9@a7`3U
zf4pP(l9f$=3k$d}^;p*@pWnV=AV#mUOs?f)YYwc1Q;u(g{_Xb8O+Wvrbz43D$Gger
zH+$?naeH^G>!#fuzxM}k*}Y}+Zsk9=SGZhstUYq%-eaY^d*5G{dAa%6Zq?0yyL!a0
z_BX!}@i{V%xMP$IknK8#Xv-$TYuv%g5KAEjPhZKiDYu>nI@~h~UYML0IcY3&W6kF(
zJG|5lPxU25nQJ>;hDnzuUG@Jl|77>~JU=DlOMj?30S#_cRaZ6C=u5?Pxk37J4$UJ9
zR8@)_l&xT#LX8QgQ^8p}2{rphm3K8bNwxR*BziU(YW8Gy2x<xAkQcC~5cnH)=&IWK
zlB&FAut2p}&G2z>O2_d&-zav@q(w$a#$oiH0u@;B428XVd_6j26h%1O*Pam__i95P
z`iR&EWqm}(d1l~_M>=MNc#-4N5DMs;w1G%pV+*(nD*63e1E!UsHu~{wSO*~;W?0ji
z#W6&N_eb(atNo#n`3|DIB?k?yu@<s&RcS-HfjRhxBSiJch0Tby`x(Yok7JAHgLe48
zh#qGZ%+^3_(6e7u(NNBBs)1IVC#vSTvARY;Sju=cjLbdTw2MjCa&Ow@Pk$lsUB=+B
zsDL|7TK+!q&0$p40(Vz)o%69c@5j`-3GG3GKKY)p1vD6yx%E|Rv^I>Bdzxq7ihpQj
zedri1rH_}P%0pN4i;RyCnaj#$nB4uHV0A6{bFK**HD?x!|I^B$ckXDDQi)c2-^GPH
z1(pRzi0Ln)H@Vp_Q)t>#KT}J*1{;0hZ@zxsJKL5wd!gDNCcv8|24sAQ)YoG3hFcVh
ze2gs^<7F()L8qKBgu_{<90SA$W^<&{6aW>Rbt*T|?{;!7+eJC%Mad5UAH*otJEQ(+
zD6pkY3BK^<dEBoFCX9*NLHur|{1^3<IH7$)G~3{OZ0#_|z@q(6qLID@DeZ>CS+^Hj
zE#4X0mkXd;mxJf_<0@gx(==QKr?tY#wR{()?Ceyv5&@-r!5nhFnDOByNmaTi`a!4i
zFvJ1LG7ulg&5`i`SX6s>hP+y&XMgpH-s5d98CGS2y{rCM9m>ZW3jW}Uaxd~;W!~8D
zaJ8-3?^xew4cum6Jy5NUzF6?#QOiuoy^KHyM(o)>(+n50<7P<Yy6GwBnUHD8RTPR~
zHkT}_wqBh%udv8IW_`$#=D}E<zWa~jOP;>Hed@?aHhT^k8XK{h977^kjfd_=->s*C
zZ(mU=skzg68SXc#Xg#bO4hv>x&Xl96FEw!K=I+k115ug<6J}KO%M<l(SA)Z{CK|%O
zh3ziEC-Ac2cF~r2qeRQ;Y|)0QJY$YZ6uei3T;^1$YI_G2OtriVVVrELlpJR>mXtPv
zZ>~fI)C@7kYAmPHM~s>)H-(j2y#V*`i`5C3xS;^gSF^Zum+^LG{@4eW6=(7!Q?{&T
z;m$SW4#4eUSMF@xZf}P8L>B_@qm}x)k-OUFkaih-VGp_7`jD@2<drPefJSP&ojx?$
zBCog2|HjmxHyqYA6F>n9D$uvly>@4Oqxo(JiPsj+-7E!Vr}pSZjHx1`!%ZFahW0e`
ziMz0=ygbyTx?OAd0+v!%1KWcpkJZ%Zr;Y^p+o+@91>x@PMtL2=hGB_GeBf>q{M}AO
z^U~LTJo@Hqu1}E~YQ-FXMf^sC-g<dd`2xFQyq)*QTve3ZE33P8ng@138?~Kja*Fy5
z9#&TpI?<~w)j;Uk{5M{Oh`^MV-6dMf&RgMrHe@IwHJjrCz8fgSrP(!ZWx^=zo7#|j
zlcI41YJMs5S{Cb7X3OV*k@?7bN>gJb{ZwLrk3-;uszrMntVpljfIT0E&~X-ckV#{q
zeo9*Qzbtk8tWQF<oNX`8FOq;@ls}~^yK6cao^40IY1DC^-&LI*N0`G8l6tXox0h*f
z^SMWzP|kzQC&8~>vS-@>0n*Z~x%9oNSv#C`)~Po)ydIWgJ3#f-AYRN<Geg=G_Y|pG
zS#k30eVd}kmqJF$)RrbMbBqB2b$Hz11KxM}pi{2_Vsvd0To~#ga~?E_#VJAo3FwPz
zcDs4jDB`xMU*K3*)Qx?P@qx$JZw9VUK?C%TGCNhfZgj+jJ7hWOAl0wALB1BGSl;wZ
zvK>GxXUy*cIKGEw*K2&%z0_+)g1tde)i4iMyAP5mWzK4CR|413sOa(sCI`Ip*EXUu
z6w9IwW9=FGPG*d?wtF_HH5c^+A}oXO9NT}ovL)>q!rul09%O(6<k3h#fDNQWa*SO3
zU+bIJ>C;CJ#Gz+>w^t1uH90fq-35(2^F{+&llyY?raUy5k=eHx_+CKX+kpJC^2ld>
zZR-NtMw5z>9IKV>K&@iNd=J3!-pSc`)q==buk4!9dqfPF0D<@HyuaTlC6nZ!k~NEt
z>S{mNm*813(U7ZWHetyjP&j=WK{vxk4_`>PRG5p7&5+e7dE;6<>#8A-bySCav2mk{
zkM%+D*kNlQ#x%ahpAP-f=u84&cbZ63W1}tw;m++*MI>#R9V2svMsbdFF*(`G#pRB7
zLa+5-M1%}7NKn><bqvjaYR#n6i5)U&^y}^Rc28e|mco;;Nu`WghJs&jR^kg|ebkV!
z`APLzqtN+$EsN2$l*ZxZ2hICRYB<hYM*~JLSQpp9%{|&<V@@!FOkju5rW!b5K$*$y
z=ypV5LU_hOAmm$Gl+tC+`zqH<FD>(XXnhKP;$>tP3C(dtdi7VoqLrsKME|<AD3|ec
zD1?D;s`MRw;{|EL`oi3sSpIYa5H=_^tcJgg57^coJH`AhlT>OCRGr1UWE}9KB{MxU
zbgkzfIN6Q%(E2rwo#iu%i)LT!usG+h+UAs@?(trxdZs0A6+<Lj^b@><{t;gvHkCUp
z1e`evXBGfP4n>{$+jXJQJ&qGS_dvIQw9DhnfPv}h*F+#LV@~}0#2dY($h+FiiN=uL
zmw3cC%R?n)N(A9VvT-GM<Jul{j{Smiaj?IUddbZ4Mpan*S#RDn-qN4m>G-9Q#iVya
z@BG(0sgc0QD6ma%02_@Sxzm|^=4y&^Znc%45;w{*BY{-OaT(f!PAYTs<Gbx(@URE5
zw7b{E4jwBfYIHG8y#|9_v0vCH!y3Rx2aPwMo$^e<zYA0tY=D(?9`P?rNr{Xo$b!d1
zXF_bZD#?W(%J3u`MX0BaXh4heX8*`c%Z}+ltR8QR>VJn>Zs6X;6VnW<6QN(0^G`C}
zt(7By*?e*K*>$aU17bB}tc+D)VAlQ&PKJ1=jJLtaJ<XA168K&_xAA7!&bl!Cx!Zwv
z8C#a7H0Rn+jP`u32ciy?>AkPb4#qMpGG1pC=FXz*@S}}U$8<eS6P0sk<rK&#BJcIT
z-bANXI~9tKB;dO=W>g+7EuD-RU4XpKl94%71O3N&+b3IT4vf=+%Lz=iRN^_t$AkXH
z7XCEcj;ZOg)XWh~um3=}uE$SfC-e2p6rq%y^K!4xFvebz0NR(Qs)4l}Gi~hp^b_dJ
zGUsHBc>J?`>0nmW{r<CI*ZU9WaPPexQkB2g#Sa--jl5ShHP*MXG^xp?-{l`<CK_;?
zCgwr(4`>%Qq)Fs7_I8^fdvdDI2?2urSD&Kf3>V*jOm#ph&ZTiHWBTwEgS2O_Z4MO%
z_B}m|2)I%*o9miCgAMM4TmY@>Sl@P?3W4H>s%N5kpQ62ovTY!rb`_L0Y(L`<YFl~F
zJ<?hF$@yfxbbowg3+0FQD<Kao7144lAL7*KOiTxjLca~q95m8%Hg?Mo(>a~sJ+r*%
z*J041Q3Ae3;AW{X+TQo4zyrPSL67PM!iu*8E@($}NI{f3tab=2w{)N!N!p+Yx8C%H
z7uLDK=i2&lM^<5bOZd0tx_~1>1a^f6yU}|wf8wI}hMggsQCDcd>>D4sT6=YQw==PJ
z+_>#Lf55}{Lg>EEpNJA=D?K|EmV!@Ne?AyeP<$h6xizi-9;s=`P$yydU3)sTovuV!
zHc6x#dOOVhe7*5ad9mx$zNLDhQ`qcJT=*X~Al`c05D%fr?`w)_k@xnI#!B?s4A_Zb
z+!KvWZsVn(My*bn-FEBjXJ?!i7h1xu?Ja@WF{W$I^X-t<zW%NUg!1-tCZ(@~ry8`K
z(-Ry#8WN*~rE88mKTw}ui5ve1C=SON-C-j=35lCH>-I-v;3yN*;7Yn}=%07o%-pd$
z9J<wtMp<Y!RAnA>o=Vdi5*&>B)o%Ql(dlw9;X-@iLry+aV}tGrG&%2>`~f%%(qOuQ
z)Qlt1N%qw+Q%jWZG9HKR%_|i)>;e@8{*1YI^%!Qu_5H801Gn-Ib~HNCdJnyzQhqeO
z!|~A?G|}Qu^pCGiSCj-#1>bL>D6f6ECPIq~Y#DK#=lO2cAIw8uHOyD1g2+lw9cgjb
zOV1^ej<zhM*+tf}TdN$04x#Z0;ZqYOP9M{>G`}3=k75XdaF_9_sfWZT03T)?!D!RT
z=}5p0xJ!6}|68vj60mG0U+q+Yf21}sj{tq!*{cE%fHWr4Zc(7Vn5s&%T~~s*#}3>9
zS6ks!-gkGk_pYzIZ<YlxH1k}H$D}kiPAl0Ysjc7J%8dys!?HzwMcAc8kel_56DiE{
z6M?Q%e-h7OrzJ+Y{O7ufrcXh!L)QANVJ4(na#%`)<a3F;ppoasPKLU+D4-iL(P@WJ
ztB?Im6SE`#Ow>w$hPY>gQ$Qp99kjogG+pthm*u+@Of<vEW2c!pb^$iBizoey>loVv
z6QAv~JH79OcKH;k++8UQK{g=nzCxCR<S;aHgnHTg-9+ljUT3Wm7)T!vOwv4C5|`O_
zkufHvL3ot9{X%E{obc#qShR&BAhET4uR)r}4U#RD(waAWiFSQnZ~tyI(X-hsF!|xg
zs&ide-ds%UZPJoqTR(&A&WQ@hT3uA=Uv!%2eUHIalG2DqEm&HNvQx7G!UhE{xEfq=
z6}Vu3aKT34g54bFxQ`W<ozzC(+!LHAVyi~p%sA!wKEhbF&mUEoU44LTjI&!Z%$qyN
z?^Csctsf1EXz7`^pPc%IdX1C6pH9j;<;92-#MM49sm;`3yP6Zz)!Mwb7X9EbG_L)+
z0IEFpYa9IQQL~b&JMK-)gG0vi%kNhWiZVE#o)}9!U4qUzdH)wC`hqpTj_O$5Iq%hh
zk2g9iVmhzLJAz@QdbvrF=tbs8rJUD&zeT8FIu+7KYv3M?`j#>mR+{X7&#hl`L})@S
zn)Or&tyzR|sGw7=a&M}V-&fE}^UETQ!QXh1rvUgH32MUO1rwEUQ{w8t$(G7Z<5L!D
z$TL^Oh~C6?l}^pt*G^Re0vLX^`#a<MeDf5Y;fF8qV9Or~$L6knX~10CvLpFz-Nf9b
zS?BcVL%b;W?8Z@z1uZi;nlxX@Jc!u0e9;G4pqy1?el=&;y3jMDwmcf@Vv#&W!-6Ou
zmZF^9m;NjV(cr=SN<WBq1<lHo#m!*`*kkdc!s@63Ja(<hrX8Pru-c{oKLA>66Sn=K
zB=T@PiZ$D;oDGPST$?+LH#!zBGBbVF_d$0JT90h;(Y0V-@lJ7lU$;oLT7TX;h&M@0
zY&+dIgPJxiy-|NM>`!pbC(6~@d^3`JUm%0}Y4=0;Cy92>OV9)a{+t%=+0a466ROTv
zpMu2Zi*7|9Zg7XZPqxc2T8ShBqWjlhGQ>|f->U3J?4!*Jbgu9Uw|a=evb#)eeFb1N
zYk+WbUUKXWLr@9B0CuX3<vTM)r~&zdqk9ub8TQ}H6BlgWs7qA^n~&o@KR?;<2c;-@
zU>=^aajn1Fy|>h5M_1;oTL!_fv_44mI~a=uS_ThfCeD+s1CARVoiiU~Uu`Q|tZn4G
z1$c6cGv$U%^yadGy*2@D#=3pZsEx>c)7=L@(upX7xkoI1FKXIkZu|Rv))u9OMYC=w
zg63SbsQJNIhR13SRHWgtd9+C9Tw>bgw$hD3Rh6q82-GZB=T8LA2+~)tfy+Q=%$D0&
zM8}<)vtO{WsabEYHyta7ndXOa?@LGpe~Pe+>BE$^7XBZTUHV_Kk$8{$NBS;8%_eV%
z<hY!!6MY3nC*AFNgHO}K4`+C0oKwo0tpvr<hr<%g@fW5Fjz^x)u(I=T$(;30_3b(c
zSAk$LO!r4*-(!7p4Toq6k;XcG^451kHhyRPAfr2p`wBKA6bbHUkanz-c&I}3Y>KKE
z7>j|a3d6uxI;%Xe+g)>&7pvtf@Hm!W6tDw2s%NQwJd*mj%ioO$GD^^oQqInuo-#=*
zup67Ne<M%2yzudAzxg#*T{k|I$%0y53l7SlX|`$&%sWFtS{{ztu*)b=ZS#Ak|3kb6
z(=l|5O#Co&;HmCC0fPgrDVU`|i*q^0c>~bS+}W2SkxhRSpa{*krx>0QG_5n!0bh?$
z3ud*W28d8j$Chyq$Bqi#aw3#f|L#wj?$e=QXNz&0XU2r;Ixo}mAM>;|)uh#I@mUYI
zMVJDj^~r3u-4xPpKpPtTHggqj&a`Q-IbGKTCdlX=bLOshFJ^y)*wi4PoJ&hWuvIhu
zIKnAoh{D)P616<h`JLIXp_F6=<#105!7R>T?=ZIE!r{#GF%-fl{Em>?9rTED1x{OB
z7LnZZLWnxa1bSb1Aes=T>l;&dd_hkA&iIgJsuAvfdf70<aau27=5zT0mjg1ne~PdF
z(9LRyiG4YwnxndIkzu78X`fMo+6c~?f0`K?DW897%epwER;_P~`v+wgO_i@twYq)q
z7y8>wps{gJ_Bn3yQZ;PHZ6K4YB)?3t!zTSxhiEf{eBAjGM?~E1E&syg(FV$$L-5IP
zgK^R_M?B0gFTC0KM}~u1<h`v$dzzsZ-;|4H3teNhu5cRNKR|-6XCxhuL}sv8=+WSq
z%fXkmVW=B9ufK#cF`bA(u#2{96l;m>Yv}?!TyT7$`yoFz(S9Mx^l5G2R7}2}c|e8^
zoih$~{dhI*$lRvi0<9*?PC?$yJl)a4fC22ltl2FZMJ5N-*01$X7m_X!aL*X-l`ZCd
zn$~9E3qv@8&`z>5FGV#jpCePFmSC3nmX)S)tj`?1r(HM0#ISF-@oW%?fvDLTjpdic
z1+zr!dGn$-SvD;TW2$b<ETnxPl6B?|au)*-XZQ&h7gr{u;Bs@koyl|lsEykhy2wb^
zG3>G)rSN4-YJpe86G50`8n*ZDeUrnwFQdQ%Jab?aOuWop4UQw%mW4JjUr;9_<{uJ@
zbE}I^mbf~6YzY|MMVYZS8sZm~sHa{gjnzYk6>m%gmWBRJZy{50f4RHGtT_{_HS>|q
z>l(jRU{(1co&KrF1Fbfc2I~EljC8#dGZ3APgRt1Ob5khJkC+>gW|7y(YG>2kE63Th
ziafsU74^vzBzK&4pW>z2$Rp0i@8Z0#DJh$lZLIW1J0&m;P5W*bSH;~-KnQ9fVb^1+
zmh~H?pCgsbj-qeVnb95zE6LNif%`7UorzD<eOo2%frCS*l?Wga)gE{~|3ztH(l-2{
zK_qPSC9-{o#XLNB*7F#yD$lnx<+73km3=%ij2jC9gAcqF%Cjib;i|&iR8wJ2+B>XS
z8U>|ur4d>juJpvqX4xp)2PB{nn>&P2GdfAR-9~YCeJJxrpS<tQq?t>ZUD_U)+%nQK
zGjn9F+0iJ1bfT*^Z4PN;5d!u{agN>58H57-a=pu4?_%1&&R_zqwxTQJd>>1?zUF<h
zcTrwk3xDq>W?lG@!tkS;FM8?DwUA~qT(mrz<}CVixV~y_;TaQNoLv+Ywkyumqd&pX
z|HZV(HT>hWcIj)6V;&;X-j-7D5*yafc4p=VWog>AAJXWBjOPjA<1zUu>Ae;$Y1195
zeI*$#8VPcnDQC>5pBOHlhsw<*@c;)T!sL!~F`^BvlHq2PY?SSqJG-PIf1PlrKXa#|
zMv>zswYEzcM0<~pyZ>-Ce#=^hvI=M4?^s<Y+Za^}y!l06bJQaJu9VY?RgpHsmk@<i
z<L4XZRUhDwXLoDJ@1LGHB?#6)=cL;&P;^ymP3`j2(@r#EIpKfKL2S|<ow~bnVnvM}
z_oGYgdHzKf>7t55bGR+znz6p5WiRy3_%4cr1H=6G<@_5(uq0bXm;0X_)QA$H%UZ~6
z^fox)yEh!e={Vw%A78Y1mGhe)^J#9W4eO<y+01-bb@_pV`X6eUyC?>$-a2N=xZ3_U
z)z|6NR8?Z_hvJ+f+Icc1FElJMe0GsIzVK6xVU&%9(^&o3oAZ-X_0eA+h9WwK2gj2(
z05JU<rrQTgd||5UY|ILqQt7pg6Z?e~Cp8CJW#H@=0`V8}Q|avT)OT1c2iMCXq=@8(
zUYOmOi+PvZWDIx}3&Ngw1oDjS_|AHl<z=px^vUj%i6=8h0ZyI9A&a&qClOJBVNJTs
zsZx!bMuIPZEKpy!xVmoM;1nCtFWV6o49$>hww=d(^+5+XuoK*fpP)RFzuLMRv~wI8
z$5n;+JQizcgha8x+J{vw#cG-Oq|?JJTkFcYI+R+iSi^gosi7Xmk%x9VcZh{M*bhaq
z8Ri%YTaPc=4S*TAWk2~4$15p}s9_9)6KCdO8?I=e^R;lJHgnC=2V8w#e@(gPy<m|{
zeCadrrM(BsSu*X@KQY`2XN4Vem&#3k@e!vW=;ntRxF|OD31@|Wy9hB_VeCmUQe#F!
zDHC@l2WpaI@F+Qlfm$#=%E;V>?lew^ii<LzU`wK_oI1yIn@Ua#>O<|DqZ6K0ZtX<P
zrtFRbV+A502okVXd?L$}P(o`q4bqcI;sHC1My&iE#};Z0be(3h*ikR&dgACjUMD=e
z0X2IH;2;jYkc%&^4;<MiBa`h)zJ335X5<DBtO~XHud=O;^eOqXaE%aqk#GOKMzu6n
zH3{v--KTMEQLCUKz}WEg-1z4gp?h4$ZWZC~Mwfpv@(w|>K#dR37F%1S=PwFwHAgR>
z^)}D`a9gjRhne#hwLLj4x;b_E(OXkwB<0N9O9a=XmishaEu_WZ5!^IGG~oVWyu<-#
zrE&lMl^B$c@QN6H4%s5S))HVNR@ntpuG7CVF^A6M$fH`uXpGt&F#Ty09#bc)!&Er3
z^Mh>nhxcHwc}mEP&w7Z>d{97!uWF>k$1QBMhO+@)O{Vh~a~-u>{(es23zJan&@frm
zkl-Y`_8Kwl-L`9>W(Yj_D9g`fR?T9kW|M$7OkU51sRDI!?9I{iQeQRD0~WyQhU*L?
zd|`JS;?%SiP+_)(I3kSnBDUGvc%Eh_YTG*xu@nje@)s25+X8bc7n$orQPVQrE_q<@
z^}+JkccZ7}L-9xYW~?o8mCzr~3KDl%=utHLl5C38%rL3JQCml4T@3r&N=*zqPQi@R
zNvylBTl|@$LHRu`toM@#^L>KmBTp+m(fKnfW0>sG^i}u~v7VD=rSk-jYUr!5+e#l^
z@@Cs_ihm$IiQwu?^>;iWa(kp};j9hRHGg)K#<4G!?`{RWl~Y}x+s#1dd<a_Ob@0ql
zv#H)V6iyi$=JFa*GkRwo?(;#UxcZaewkNsVxRUoWHK}Zh?gIpqjvXs+u5e#~pj_&4
z(Uuv4a+7=XZ<)mY;>_WJ)Xccd(^#We@#FJF1)aP4{r1B}FX)l)YRza34scT^0pS7g
zgG|{|iD}H?Fmubg<O|52Ha(BwabvGD2j)h5szQP?+RLwPdYq|F62qnnV(Guw<v5p5
z%D#z>iq3dYNn0aWC#>Ld>j~bg3t@6P2e)k;n>6xxeI~pr+g$&4B;0YVe&rp7$X0Lj
z?l(U_%mio+eoD;fx2J1mp`9e>&I?m<xztwn1$Yj%C5pmeXjSdUR<eE+Z#+M_NoG`X
zYCA&iWL$D!ql?4lRh8zubRvG|+v&v4lHO{_r$t?23p-GS`Kv~e)c1lm^**aqDAKmS
z;)@63eDlU$cS*4-Su@Lc!HmqR#mvd2LE9mHC=8E{uB!qwOE;$qUf!FR_t=;&Gl#fG
z!ofNmtvGY!QzM4x4x4xKZ{N^@XV1Dt4R90wuE0(NIF8$~TV$@Cm(!N1BU4n((X+Au
zyEAi^ST@Mchbk8@9i#5D3SOpgJQTz-MJpesjr*LDZ1$5`P499PuN2^%$~bJO3XZJx
zc}CDudiQBz8D|yT@$-T~h6%(&G=2j=UEXY7o9$MplM$X<&ZB2#j?6a>9w4_ws$9+S
zID=zsQ|Lek<jpE*W=@uxW3t`yJeU8@hOL)(*Iy8cN-0D|&yDcsTK((~#@IRE(@!_-
z5CWg|#eYfpBT9$&DHUa6=FvIqU>nzUt}or|e*4A?u>PH#xvNKAz3oPe*&`80Lq6D8
zGa)imY%rvvhk*9~v@?*^A+A&nBrf8t<Bs%|BL^HTIc=HVKl6`?R!dE8E*^7ajkH4*
z>eu2hJQb+IGjjTfNEHI*w5WDbj&#-Vys1e#xxKu{nU*=|fm`@QQw^niwO2WrJ{@kk
z&%euJ@Dp13l4_*Yl}pIDI5sTLP2deRqx>2PH#Y7Qvoyg^VrMRD(5j+3zYZL4i_Pd&
zTffr(w{N#gddywscmoQi8MtIl`wCcjvfq9pZXZ}$xEi>=n4-d!(5n!H)0HHmXMaU!
zGG<~vcY>xH-Q-n`p0F%YOZUERDa4;BU9Jqf&gDV8ypSkD<rQA>Af*rKcSVlVYUGwX
z8wm)EclHI^7V?!{=0Xb2as|mJnXQICwYi>xjSbbfGiAH{7e`+>nxt8BinjGfA+C50
zS>_+U)U0T~paQ0HPb`~d2T-0?i5MCHCpmEz;=SnVT&e=u`O3=PJ88(ApgpH++82b&
ztHzNhSo*3l;^{T~t^u@OHp+<5FP_`^K|7eL#c!pzTV}03+6n%C+SRw<&wqY|uf7P4
zT6KFJeZ23rwM9uxSdUKEW1W*rRK*v<EBy}}L&{IkKB$(ft}`ft_7^F43rbPE5DobX
ze$PWaIqQJQSn-az!Pi?9%=ZWiGj~;{r}p`}3iLFr8oOdMMipPgSog0SEwIT3N<j@o
zU*SC5y1+usraPag_04&4I3yj`I5G(aAk-b^7SwE=J5lYTwjhC?wto(_lwIoQW^F-W
zD?Q2nq6}~p6U%;xKVAw#O&E@?zJ8}aq2KlK?9Up@g<xzWF1toNgB?<3TehW&?KMg+
zh}&{_7oj43k63Cux8Ka2=648$CCb1AkAlveW$TjsKX{c6GWicPcSlpL79L6}Rpd*@
z*V7d^=<>L0m28x?(KT(Df|8&tGwms(Jmr%T$Y%7Qo%uRBi|NNBq5WoUdVS$Gt9>&z
z$|qL~Pfv{PAc24o<#=TSo%LU4bZNW%=5n>lm`SVEe(u&uZ~x(^=RLFgCzs~@&*95U
z=ETnuI^MtJjAHF>mFvEhFCJ~k-K~>a@})M&>dU#4Ka!W9{j~eroO|b+C*7%XER9g@
zfBE;%^eNWiz+?#AMw8}$>c#i7Q~J`{b_cRuHojAQ5ONlX$D}*<&3&gAi^WV&{dQ`K
z#9Zm}9pHsZ-bwjvi!0`De6UMrwX*RGmi^~JLjypt;izq}mA<}L(T%3pn|kKW5}Lm`
z>5Cp%CdDjB?q8b7dwy%9r;L@eHTk>2%cMYZBMO8a{LdV7K&vZ2Hu5>h<DRa5F6*2U
FngAqR80i22

diff --git a/reference/plot-6.png b/reference/plot-6.png
index 54ea6e711b0d417e0c9e129ad6d414b91f6790a1..2f1ad96be712534e3798524795b9db6acf525e95 100644
GIT binary patch
literal 38225
zcmeFZcTkhv+b)XzRbIgcSSU*GXy_%xMhRW2NK<JdRUmW%R$f2}gl4EJp@T^8O+`A9
z&<RaxCJ;gmB?R^gzxSK-otblH_Uu3QnK`qc8Pev-^Q?83>%OjgEfQ{^r*Zn!<x@;d
zOsC<RcMX}Cj`=Y$9eMoMaqtNt;o~xRI{sK&<1Tmx$M&7t5b$);L(|-giHR$W@plL{
zyJFA8bd?Ey_m;6=%HnuPU7YP+>&j+|B1|d!E*znGmTr(I0sk|kb)`gX&=k28al5T#
zA@V^-Np9wY7=BoUK-t~Le6Ct?{BcO5bD~-VT!xX?9IX{Gsodv1xw%_|>rxDW@}T^?
z6uoSQf~|(2LtSHQn1u$(lLv$PKM()M0>A=S5h1b0B+oU-xB$*#*0is~B>m3mRvsoM
z<0sW4pBW}H(0hSiHEc^<Kug63Z-4wWFmLc}<pdKG+XKA{vH!B6=IKM$|Gv(_{<VDg
zKd)~JsD*O;`?079yZI6Dn#KFyuklAPNii|y{PO}m3Rki)41~WEV6#9`qRY(j9B5Pc
zjwSxo!af%~!7By3R#-9$&l3`PNZ#jzNAlM{BEwSD10NsbN1(k6v7ga-T01)UHMAgn
zbQYamibbN4BDrs{QUcxRbu3oEsek?=9Lk^SFiz^^T%hoG$F8Sg%>?N0)h{7WYAPAw
z1<*b5M2;&0^?XDpIP(m}E51Ny!|Hv5fzjMW`FQUVgpIzT6<kAeRI1M%mgxVkPQs}H
z3pLMi7mS~GPEut#n4!u>!bzo9MpX#-m$yD>Q=#I?Zb<X@yIl#!B#*$(QR@M%X;ag1
zY}5^!iWdI20wRSs_iD4!=mX6i{vKq8yA)hWr5&<sY$o_{#-z16qW@WyhLTj@ES<AP
zq^Lppn*c6EW%WYG?#*BQQHJo%A5Pk$5zr3j^eNRPkM>42!O)9^MTW|Qk1$jY!TZ^E
zsF0@2)0yZuKSUPP5`!p0_lH)Ix{kl;mk!2i{P<;jK$Bn$)9ugLZ2a)PMFh`<q<Qov
z44v2ZwqF-pU{pxw5^%D3;Xfx@EX(f64~_eMV^~7^g<N0KeS0Cp*3*z%`Nl`;a*rB!
zmQn;Q(r^2p*j`!}7PF$%#wm(CuRDaf`Ppc%mJ^?Se(JRLj{4jNo4)8F>q^M<u|XT3
z_RU8rK^Q;X#7&y?!FY0Jl0@sLZq+f}j_PXb^6tDZE;5<HS;<5>0qKMCKj>k{bmE2t
z%^TCW5wSYUL^YnMZ%)rTR*VpELTth0IgH4av5G*r+y}FXV0p~Wg^s|o&C_WT`jh^W
zvv2H>Q_Fa~fct%ij_3D@$Nj#cO-1)myll{><nSSH|IKGiOwn)dsssFHvisUCiPDeu
zuG2A))o{456oY=yel%Yd?y*1A)&<9W9@HYQQv2***n}$?I!ts-$BNH?R3Jzt_IKJ7
zYSBsB9kJD%dv`I_N~v`cxx(!=nNP7g(ejrh`0362c?zPGhU6Sk2+qtok!+@QdBF=)
zJQ0I2ylNVSE&V-H-!Z$wDiFL7;~v@d2k(P^D&|@D5<<_49Xo>6wVU(mi8D}Kls;cX
zjKH@ZVi@h_G3q-O?v;(yu0Lgd5d!0a=kFp6?+AYREmyK=0vBpKdehTRomp>LlP977
zXQp`N**dCgnu%#tS4y>fE1W06TsSW~UR6WT@3-uy@+j@`JPVp<$J(2ekX>9n?Vq2$
zlCxXHi-{#<LMJ40cH~g~56G<_ey#o5C46!WpFc<!g)kqfDc_Vo+210?TGQX`%rb2W
z542iMrJ(17;EjgA`_Nt9Bl}4T{&ddfK;M)SG*@$S?!P7n6EJA6K6cl1r)>X_B#l)&
zKyT?*#98ibZtwPKwkaz<X|&`Z1f}u_p31elPSu=j&vc_hSN*!x0`j!e?n>6`4@pSc
zhuKSN`vxp|UVybN2w+03{Wr(&l8mlWrrhdcN|DOF8Io?y0SIrnjVMLr9=f+H!`clN
zp}BY5??h{^ZONetow_XP-v5}h2^UKEQ=iOlqU|+lQ@yAxE{!Wp7KI!V%nk~iRZ;2@
zYYP0Vt!N$jT*9Z_XowHTCh6bc4TpUbsF!$uJ9)PRpW#yU!IBRZggow-xk|2G0pmEo
z>%}~1@A-M=iI^qHyIOl^-U^ReFV;IIY5z(9vD`NA7%D$;*th+-pY%qOB!vMa_$JOe
zCZ-Rc{3d5tZlHZSjzZGnFZFJVVYD~TD<+CW_cz%SPN0$NZM0adh$LavelAJphh<{x
zkpGN-|LjU3w||s}U%}0#J}sTK;Y7Q`uWf2wl%@41yk|PPVn}wm*luqBp*GsZ?cBN@
zH<cFjTw53PO1`m!q;*kCbw{6#756?Yto78aD(jN%p0NhH3}<Um;$@Yc*VP(qzbczr
z_%GUt#%Rw%f8$**kf+h3ev6gQHTLeZYu66)?dP%($JLhuj-jQf!qXQLRTR1XQ`qmW
zDzRL{gnk(6mZ0dMd@}PZG^%aSwZU5W8WZg_ToTMC-<k1L5+pHayGD%pH+Q(s$5MwR
ziKhJbL3Y@*>9nk-V2?qX_s?++hmFtWoz}iQQyc=*Se{_dmS}%F)ji`}Q%6%^V$wX)
zn0J^dG~%~Fi_N02X#*$)stG46j1ijCa`V}C>?{$E8Le_fM6SpF<%RvW1Xf9uP$2g_
zg45G(?l`rk`q`CRe@+x>H_G!z!(wER!bJ_qc~p`9R`)=DD7mE2tZQEnrm4A<5$dW4
zfi=0ruZLrcA<x_T?2w!}pN`Nxe%ji+e%6uq4`e&(^OImsCZ@aBnwXiGL?h^s#H3oQ
zQ=B*{f%>fPrU?BvLr-va9i!95-3uk;dP$U7+*;Kq7qg~2bul%_+$X`lRdp{hnBQ_8
zJNgl28-KyAtnl@7#S~6>QHRd2DH#E{8XLub<y4(RM4xlbrwxE&XEHwp-2izNjot4M
z_wmldo`iT!31;MD*>9l800shct70FcT&?>gzjqja>FuV9C#FYOaTB8SuI?8jP52MZ
z_WBwP+`%(<>{ahMq8ku?yBFc_3L8VF(VHUv`@)_tyZTw;b&)A#A^zeboyIINLmof_
z?v(`N!PAso40aE~*G}p<%Jw;7ofR%NJp+Z!?dx(o)$$u8vTzdyg`yijEi18bw7)IT
zo}FW3(oZyFq8A)p^`++X!k0@aKT5|$aqTT=L6KTM!Efj{)h@J`h<(RIvbC4^yyi}A
zD^;1FOGx^%oJLGT(n5@o(NjN{&e(qO@L>A|+0^!bBNLewg*GoAcY2hb$ccCNfL}@2
zoE<*~G2&O46^ma(&ALSvR7<q+V?Kmg&`DJ@?VD}Wa@j;PNn&e2zXV~htv<C}WmR^)
zjl*3AQ4;x7fN!MXN|CA><d$rukDh_g%Q{(0Qn|Lng`&O+_Zh2sTdUO;i|++_8mdLd
zIE;v_ZjtZl1U`Lv)Q+M=iJ(c>khdr!4zSP9GV&U-b8CtDy2&%YF6XjIVU%k~3{7Cb
zb{6XErZ(flxg)ZDEILoCMyj5~Z&%k^al(?DRWqQ9lk_{xj^?HkXvfaxm2~PB`g6>B
zbP31IxF8V`)|#)Cw1l3w_CN6pwLUD@XG_3v6Lu@QW>;+5{i6t?kmfBrlkY=ilZ;V(
zzr~<q#utv*tA7!wY5N&2i7N8(Tl7cKEd`uPx^iyP&dn-84t;I(o4JyBlS?dVewH(?
zr?f(#<hq$GMtiCfetF7fz_R{NF_{&e7K1?zA(t+<i8mmutB1rtsnFbbE3}o=9HNYc
z<lDvT5+vN7Z>dY70-=CfjCDCysUY8D9j6zE^m(dO()iB5s+iwr(RwODG{Q6_7wFVy
zm5%>g+61oa#pJU7&{i@t4948Er~dgC+BMra)Im3#Tau(T_VVeMRQ7U{bJ~n#G#x(c
zR0fIJy-)}f@$6c&doelRcC_tNpHOL=rIMh3zv4i0qMcN`6ezw=f-h@|t_<)0R3J-A
z-NIb;=EZf2om`Z%F>DhE$?aOm{i$VfmFNP$G99<DdEs=U&X@Y|iLtCF(U7%&(HUeH
z^7tatZKcY0o;<|~d_)PJjx9^UCo@@}PWT;x+>(L4(8HWs=DsHVR2oxL*x%fo|0g*S
z5T)4x-`HGzFE|a_Q4Q52baq}vDXC44sZag5oI17l$vtFkc+NLeUYJ<RzaVe5M7d{u
zP@FnzQAe0UWv;6M;=ENY9DkDKwPi(O`%y!o?0Y{fG242ZS;Z(9X6>C+tVW4d4F9f~
zVIXE+;p}8*S0zbK%2n-r5k=4zgN@=QgmvnSL_5Wv(=64+zc{+-o89%;B|NF1E9xN&
zoRoTZr&7R5m_ig9Gk!BvmVOW`R~g8KWSNMrRtdIB@uu-xiJsq$Oq3fng>z_<c%6Jt
zZR9_>4Y}1Yhi1=;4hiqFA9nM~NeIIU$i|h4>eUE9$fFOIWLGsl1<PMrn}wcOxrpi9
zktSMT0{p9O!lf*?VzKNHSj~6o2Y9xQAdeL&Mr{BY5$pB>%MGFE=jOE)5m*0A1Bs&L
zb|5q!R^OXDN6H#3e64e{=y_LNl!?70g?<lz8526GjGogRO|diQxleNwK3@ejaj<iP
zVmedhJCDNI+b!kj)xT{9Z7xY9I{CU{s&D8gninkaW2Wh`ItC8qI!sR*x^A?aF0WhU
zyQK<P@t*%Ko>09Wn1!9^?>7B?>vp4E2}O`J3Av?P`MM=7x=e%k?uq_jFr-;kzFqPK
z)dthx5rOR#K*aa!IJ}~tf){m)e|0>;UV5X-K1+w^j{uPubFW~4KUjn)3)gR-eBIiy
zAZvA&QLz4JkI)F=XfmVUFy+X%INhM2FA<_*1Kz@pDE>#KF)nmf_Nd<hHv~w7=4H6=
zfAz?*JFYDnFC+K7ETj~_S8wUOzP6Ikwel20j+k<k(l89y35oP2xMt$sgcT@x;|#Y~
z-p1ulR;!YwQmH#ui4kq8s*Rq*2~TN4ZFTG{DF3m&0_~YW0YS>Cg%$3Tar>Bf>I(&;
zCx5Dl(_5@QKN-EAfxU!2u9X*m)BIfqNk#JcdaqvTYC)W$wFS^?-i<mm<^u0q0?4t)
z?kJ)AiI*X*&M8;{v`-snWF<dcHBWNIIL12z%UUQ`7$ak8NcI#}POU3?;1v10?4aFo
z&a)Ex<s8jZVN6T8<X}2Hm}wwRXA7frY_w<Ol(i9YI!yxNxwqICrtD*M=z7aeA;hvF
zN{#Vd>WbpvBMVWoyW4Cv;ZZW(Jh81XQX7iX|G?5&PzHtKW#ZTE4{u!L6&bRHg`l*q
z7(RafGYE6lv#w;`ocQu27Eueu+zdW-ei(;B>%A>aA4NAjYv)0GzropOTTtGZCY^mY
zdW_+!lh>Lokbf=n8Yy+Im-CcZon<{1aa47+#F9fuF`~aHf|aJ7U5^~f<c&~OZGP{X
zTQP~m6%xO61M7MlJITO~)KQ&fT{5Bi__GjKmbSMls#f?;(<CoTYOI*FmaI5{7m|Fl
zR;`7hJLX=F;$UGO)&cDny>5J%w$nB`WDkaFBz)eZ;jZ8xbG12z8TeB^>3~s|gqn9g
zr$tve>!orV%26c9yx1c+%^vyJTD}X6<hnV;XIa5e_BX%&wVc3nxUMY@*1lezSPF*!
z&Yn~SA+WVa-zltbFG1nLRLMB*dgXTeKu9{Gc=y!uVBATW(dTo+O+E#t5F-(V?acCY
zoL$z*zqFICIEH8lpR;tkBIL@eT1G{Lv(h}h-s@af5+`aU$~2ntzkl%OOK?OvG$uC(
zEdkt3E+lUXRl76YRO}d3abOHcXaR{db^g`8_tDnW)Hy~m>_K3xJx@ADmF)fnu^+8Z
z6JzCLyW|>>+SPx^S~WJ1X_tLrj|V+bytgDw6h_fyE0*q{Rin&CPCd@%HG+CSgL~B?
zLQq{fbN8unTtn?T_kKB!5NE7}rQIp}#Cc^y9wt$)!=TV>_Sv(WI?a^?=ZtX_V?KZ9
za3hlM`DkObEyFs*0}LOJPZn&golg@5{f32%)p4<0x0E0?(;AB191~~3%XwWDxWljb
zarB(<xoEFGixt$%p|&YI!taeSE=i~I^7=*%ObhxreCOr~$&20?mc7->an*nOzrwae
zi0erkIh4f?36Ohn<;fo-Cd~|q*~mB>?wSXi>6yi-ACQc7^0D-a_O7A8jIo#M8f}(6
zba#wel25xOFZAXKDNjTe0%kL3I46lti}jxfiN0iR&i6ckn~x}oK~`Ac9pE_4r@zp9
zx764d@_304Fhf&r7$nC(aNjhI5zJHfx*C};9VwD)4Mx0cm$^i|g77gqS2AQ{{h?B&
zq_s?)5YGkW-c}(~UYuIlZOlFFwam@S!uqe#dk^WsvDgwBDx#_@#{?c=l_k~aMyG6~
z*)|p(XA4>PP%9az@l8T0=*KjyyC?37+3%=F@!oQSb?C{vV|30aXvA!KFmgyUJl#lU
zn7LBMcX;sTMC34k$)CtzuNuz&o{&hLhaDo5W}a!uH#7t<l1!~N@vkLaKTDp!`>uN}
zLWfCIywpIi?OOLcNm|?h5WCGHP4AytjHT6*BE*k-ztjkJk1!g#af9d{6}u-^jnjTI
zG$7U#Q1p8<-gqaMXO<?hQ?f8^IM(`?Ka3|I$X25nPp@o3<P9QOd#F|`pj!Z^UXA+F
z8M9uguu=EpTDp~62<D-O_l`U#Ue-ed7E9j9)4qaI8kVno=&RCRaS!tRs|Iv+F|mL2
zTDsYlX(&gr(gR|4Ahw-);dHi`r_R`%oo+v+kREhlW4L<Ic2amXL#?3Z9%3t2qvo#t
z<A~$!yMHbuY{y(1EY@1A8clDl4-zM!>c$IXaG75i9ciYmbe*GsxbQW7h46h%Iqc|T
zoqaR3n`O!G7<uubv9_AJh^*O+_NIo?mNq$cu)+}D7<<WyE&7tboZQn!A;mansaI>y
zyS_>)4$>X(ZGVLv`l*7s_ucF+bmC`bVWI^gOvxosd+E>*W5VzCF|`xE^)GtsGpK<@
zU7FT`y=h61wL25%V&@^4P>UlNro?)McTl{d`1uQ7hJgRvJ+LYHf?8Ba-93`t;<i{L
z`ed9*tRnj@46;uH?|Q?3@9FG_*!iuZ!Zt5!K*_0;PxyJYfoCsu9+nsL7WMWO2EP`d
zcVwoaEC?K(Z$qU@Naniu%!u88&Ox=HHDh18>V}1gQ)dyq#1wUceM$Wa>2YIPlIZFV
zOUKbo@@9syda)ou-F$YmXh=!`VPIFB%O~)zvck3R`E!>dxgXAru@;5vFQIrl<tBnz
zjBU*4_`wEAR6v12%=DZO;)UIdDW95dNNZ+n*BWRk9`(Z+U>o!hE?ni~Vh`ylyw6=5
zJE(k=m587@hBIz<K+aClb&W4kIrbza{rgUj#<v|6v^6oZYmTMfKoM-dD%Hl(;>v@4
zx~35qE`2nWaIlEs%{b=nIh@V)PwJFm7T4cZosW_U#ah`C#W*X3+KbD28<n$S=W=Ss
z_^co=AkFHPQa@(drgX9CJNFtUKi`}2pOm6FL8H9dV1y0=fAeZj37&$!1Wo+s%{@fW
z{hsIV8!ZS$Uc(MBdFdIX)Am)d?sCalJx>vNrEwt^0%Y8}sOEcYk>&@2b5iX6+_HNR
zuk=v_;=!1xhQnQ_Mdx<6>BnIzxn&_G@vUSnW|38M$9<+bL?qc3dDM@*3R4o+@ccwG
zU1SrXK7O15UFFb9VlPMiA+SOyR@Q4<>S7cocLYX6w@x)oNo@7otHc|oHMD~uR*T>a
z$sRhxboJZ&mq61vzDB3Tmw~3;L!~tq!QY24{<5}Y!<k5{b%7-6Sg^C*+^qNG6Xvyl
znr<##8l*c9?q!f;wm(TF()B8qq!PWBTlYShkqm`|h-Ct!k08v;DZ)-4bV572FF|f)
zy3bAuWPQvDR@BWf;D(Ir)BA6bC?9kl;>gs(JA20mgA0##bi`f~5QRhS)UyS@vb=Fe
zUkbkLqq%0Ypi13HmLjG@U_UK|H(%#YR4!#48K4>;BiLo}c!&Zs5^kUzGwR(C@b9W>
zQTm?}C$mR?JcXE<3~#5fSBl1-RMI-p6HF>^dLT;Pe~s9;dO@tW=4(ItBlZ!DhuBbQ
zX+MrjJjttm#eJMLI#5~54tZS>KDTYbQC^sUZERa7MD`Up)||3a9~+9s*lfkfY&td`
zKksjaHS#I(&#;jXuRC#sspAr(d!Itrb&%1v;o>|h!CK5`l+j(jg!?C;i$$=G6hpC4
zJ6zbyd~u|YQ$ga~1r*mmIlQ@f->4adv|*`bYrIorVGM7x75u@OY@I-@cZoCHDqda%
zT>=A?&NAtMqvJsDB!n675QRK>4s9j!cOX0Mc{uprHzp%OGIf@}E>z&IHFAZ%7b>k9
zkecD<B=JhmQ%-p9pKT7OC)L_G#1+T-4APU{w}yzUW!y2rbiUUvAXqOr@D%OeCuXF>
zXd0-%S-Nd_>e9>it+m2yWJG>sp{B#=+jdA_Z=A5_-_&*$U*-5M)E%q12Ul>h+qWK-
z)E&tWETE--;x0wuXiE3%sLG06H7NNABZ!&q_rTOD`ajW{9zV%}AL-Lt8AqwV1asQF
z<%`#nwDEzELo-3uHZ6}VMAlRX46^jg(U{1<be$_%!mEnWPSp_RtW;j26}&N?Hs7hY
zFp)-TeFq&?oN#;!v8Tnz2L$@lt3aVT%rH93pypiXpH|4BCY|M^$)6LZ%A^~Cr$Tj~
zQEPi^VB(}3H0EjQ_dK7_KOazib-5dbG`quf#IhDSlR5vuA3OV#o-8*Bi)S?^`3;+e
z&EPu^9E>+EK{8TP)PH7{c>0$ZlCu?89glt>sGd71$kx&2FOJ#Ceq7d7_cPgUF1zf=
zkkN&cw?}&_meMs#-YyN&Yb6OsB97+Sa(F9?ktn<v9<{u-qu#4*iq_Qat%#g;s_H&h
zHqxgi^WU(I>1ylT?>K5gYg-=|jo>^I`1E-tI>$NBwQQ|^5hDsYwcnZ3x;VX7eJ7xZ
zT3h@wD7@<ynZ0h~@rlm!)vqQRAiQ#4+&4QfpImB%2dYh=Qg_y^;ZpZQgrtXD!U4ly
zir!u<4*Bcy``cW7Y;l*iceLTm0;zoSJXtQVyL77-zEtRB{m@?<cAZo{_jOv(C;LN8
z9cK?Ld%?i&@(Wchq_<;U)bg-T6=FZQ-`0nzTrY(_O32VSF`8(q+`WB8-+K!0gdJ}m
zq$`EFy5XI)%U~S^cx0H)PrpyC4HXYI+uxQIib->Pv19kj6IyFg(TF+geFr^kql71B
zyUwT{_PBqJrU>HMny=WkRgGRR7Y@mIZJ%{hf#C}^h}XEaxOD4WdIsL-%TnrLFE>xN
zYW{uZL>XE87nKC>WmZ8SOgCG|jQ#o=CciC{W?hu=$Gf;WU8iy=UoyL0=R_=DY0iCH
z43E=`h_dlC%33NvDOu}^K;OQAQ@uu#C4Bxth*V@im#S*9>-y8iM1etiZ(6RQBdWx0
z3e%w?zfsUA|HFkQL!wB>C;bUsFjYkDHujGqqv~L+<1T3PXrl<&sbP0&+b=J>v_8oQ
zm}sC^|D@ZR#tHt^r}TP!YYDyW3fH3JM_HyECdSg9#|LXjqDWL+V04Cx_v*0235e=j
z025DlfAHB@si_}V!#%3$sDVlR8dV$4ki4U$@G~h}GkQ9opNi45aCylOwWHHRyEL(p
z0`wmH5bAAB4zU$Q7+KM_6&}!^7gleOT&U}k<%!mVZCpP2K36e_d~-yJ%kN~6C}1hY
z*&Rn`7m+eDqVJ$ez0O!mapkFva^A#+)~62R%I~zilf{&{X&PZtGh8mkeG+}me18tA
zl*+^L{Ra;H8<#PgEVV_)?Af8QXp1(ncsZ?@p?tH3$&R-rNDH74$kWsP>P6JR;%v0j
z97YsDH9lt@Sp`3_H+7Dd@zo8Evj~9|%rwGG`<}10)^=BNkt^W|k4i(1cF+8S=fqSG
zNyTluK=1UdDYc54%t+JCB%Lmcc)FM>y6BfLdar54@K{y~VpzedD#Mg#dJP<2&9RKk
zK+gZyUH~=rjgC0NtV-t1d&X8-ccH4d8uz>-^K<WfDiQn7c@qy4_O%_#*FU{iF)0Yv
z!V_6&WgK6M&7dd;l%GZZOx6?4Y>5h|dm*4r6iaP?8&R+jy?4YpFj#<F=Zl7T^|A5G
z!YkX3eKFlgQX+LQxK89R!$-LM%h20>+^>hV!%H<X8i_GK_F}#}vAEWDiJ^s!BD&yQ
zlwm&!Qaq6wFwnC1$gcWZMJTpW?3~KG)S)45QP;RG6wJ`B=JovzwoCN=)|^&gMVWVZ
z^O(CNN|ubaizUt)71H|HFoEOYbk!2g9?Ez~oWG5$D3K>(pKFz0O+9UIv}RIhjhiGJ
zG2U?aca#Fn7Y$Ob`T}OCrtTO&RK$y|MG2Gp$VVt9<P`#Tx2Mnh@A4&~KU26=?+(4n
z3AFbM1f^{1DuYJxFS=ovrmK$PSt{{S-Xp5tMjKjcV3XIn6`U<N66+*vrSDb`X?cZf
zj68y;w_7&2gp9cIJ3Z^K7>>ybDX)lcD>&|sT3583i_ECE$*!rlbxkg8%Ncu&IqUr^
zhad~#`|N42{%sUh`Om0X47SsL&h78cASdtNhyp{`$a>tI(tUkr!ehk~{GZ>BQd}W@
zO2e&HHC^`kM?T@@EAema)GcQ%P-ZbF-P|Kb(~S&pMGa^z*hWSWEZ8l+Px*D7qvmCS
z^B0tLV&)6-x_0wmf2NSb<}veg>S|fglWmqP6IS@t8?$3YTdlt(#JZ(8D^kyz%sqr_
zs13-PWi=w=*Q;29T=%;>&P#bXWqa*B=j{W!q7&jwh>Wld;EB6bzT=JweSH6f{^>LN
zz;!0R%9Gm>bwkFn-WcADRrjcNM;@MRxq$LX?T_*9jl64TTD9g%d)n>9_E|6w^XVDZ
zHyxh-MT7EDgQ0_p_lT-7m`?%$s_THWu&Fp_Dz*mfO8bZGsVghxz5VkVpVVHb*AsI|
zB9*7S@a7!URnK^0XO;R9ACk^2?71i>T<#>`X^;FTf-Wv;h}D0MST?>*j3aB*3#<jb
znGK#j&G6`V`w-&kPJh+LKNbpt<Vjm98<$<G*t|BiQ@JUywu@u=%QvzzS5;Gzgm7t9
zf)O{(r&>ETDh_kxx*S~$l40=;k`Zy6#c3&ORR302#XZmT)ux5}nWOAQOhtB*5*0^W
z^p@TlIV?s{VxjmR6KuNQF~2)nbw%vTGy0k7>hn0CP<gW$A3rW;8oRRm+Ess;<0H(J
zX2G*(tKTKN?DmIyzh`nCQcIJrBwqX!lHyU@(qrzDNEo(HFD72DcEQ;N)|2op87%r8
z;+9YLQw!_}Pa-$#EJ@L=Zqwo1gt0VcDQch=SQTy$8XRAWZoDZNy)-aEkAS^<X*Z!P
z_kG0d{+z~u3Z~kg+<IAQ5f{#t^A35sQs;wCEteZ#X~y>1DTyc%!h-)wQozg;#SnHv
zrKD;iu%Xw5?OW1R(W?v_YHF<~PT08@^M!vp;^-Ec8s{5YnW^)0;}&LsxY;S5=b8Mw
z$P$^=Wf^eA{;-3X-QkNHb&&SA4FLuYcmJ@OLcQ!I-OCsHZ#&raA~D;%wJnPoHys+r
zPq0<L8qwu#6&<Pg&b-Vnx;k4Oubp%plChT1R_2x5_1AoZlHcfCPE5>4N@viaiAMv!
zAegJ=T-T|mmIb}Mn3n|!`Wb7EKtJ6KuY_S=YS?hJz2)ZQTT3A)TtaMPu(TO2&8Jet
zOBlt#I}li!PQuAkYN!u?s}D32@lNeJ^s|G{BLx(lL`t{%p5}LPnOgD0UwXz_zkj#m
zoo*r}M)Eva7b}_FvEEn@p~&MzAeB|nfJt&|j^8;~+X5B{?1^h7X``WQVaTaiqexD0
z$Fi!p=x@J{g9eozUxF*yZi2^D6cV-rrqCf9o8xZau)gkx=^e=&Y}n&l^Jjw!MA2=#
z9N~-mE@C)0wY0|2F4~WHv|zjCp)Z|JTaRPZc6UfkXIrd0_?i|FwD0yj6}*^Zf5Bq5
z|9&8~X6sa}z2n_M&6pt11W6t=0Wb9$vr)9+ytgWKB3YJsl^2NuV+~VBwzj`adO6$G
z^4>hWD3TV{<)g;LbXL5CvEz(s#8zM6Mw2vKbZ~2X7niCQesIzB7}J?|j14wmTLW$$
zEvQwa5!3QJG~&tIuJud4t=fMvwTUx2RZMKSe8`%f8{>L*-%TK1AKY=^C2M1hx!p70
z3bDgX3I+%5_nXHH<4z|1+g@f|_WxgpCj2Uat?8o>Cku~6u203ne<m7QV8Qd((F*(8
zbMfZD3ZZulUE%Latp43WXE!dl@aDp-UG2ZyotQ%V&rBWokclZ&>tK7+fsu?2{~!DE
z@fR30RrF(mgoSl-ax!hKBVH`>6Az5GSSoeu_{&&AnUhz!QNx?lS0+pi43^jBCxeWl
zpN^R18Dq};eO!q3id;diMbeOUV4=_Tiz%GoBX>fDg#18BbQ<G3gVkR16TPVTxVV{_
z*;(D1`Lw_!$9!uxlYG;{&!@rl73E+&SLEHgDkmcyx|2+d(2|Y2t3AyRJywfbxs??N
z8+WMR8zzWiVJwwiIZyaBqFnlG5DUmK9^@9x)5|MeOjy{jq^fFbLK>&Ch7Vk-&fW%7
zS$(|b5rug2i<6n{U{9DRCj7h*cda)O|2b6&ku+N7)CcV)baZrhg1;BPJcd`Kk^MRM
zaB&F<rsRSAp_beP9+oh#Ldaomr^EL4_RS?FB@gpvuLc)BD1V^jK2gUksPq2k)eEPN
zRk#uo0FOsSQYn)*!{9|xsa0dd4<y~LmU}soZf$I8${vk15RS8@>pz@1Gq)a)U9`LF
zpLz$52VeDE7%GBo;X?M-CROR{eQwG=iwa5?PR+(AByd+a^<@e21TEjfeY_LK;?(=8
zWxUv5u~n(eBkFa;8&*-^HB9r%6Pxka-V6<#rkp!24JywQyx!Y6hf5D>UY+f<aUCoe
zaoczPC*tv+pC8w<bd#yHJvt5cvoU0UA3E{n(YM#Ggo<%YOWvVN_be?fFSCRNs=?&^
zS7%0Ih4j->3za@T{#3+y`FH9a#M0O{>GT!3G7uAiMKz?nXGc!3>=wXd1q1oPICZy6
z9dW9p0W%xd2H?gw|81a*C1+#a^Fn$m)LKe|GZGIM>UJ8)8~AKYU1^2wt@y)9Lq(Iv
z_6AwlbU{$~)bFl#h7{N|?qxr}`9T~83-JwO;j%U_d(sOlv8s%CLd0iIfBofAbnVU?
z@lGErrZ_2UN?4lTyg_H8R8bAX!)TeO{W%}c3+ilrP>W=*U0YlGw!OXmYiDDDLZ?$g
z_PhIYjV5<?*Kn<h@y&{ZA76Tj8_T=}In#7U_`<0a-wA&Xm$9ni&o(p{V80{|YrjXP
zqW)p5JjfXS(-*H#bsKj!ZqFq*UR3e(Xy4sllNzq`UyD;hkQTKOHaS}X)Wzy*M_k&s
z5-V1wrjPSI$`qH4A6MK{mWKB7Obcrkh}r4L7N>yMe!#BX?{8$>M<0HEbL6!A*cZ9@
zooD}s?MXhcinhGGSc)4Aq>(G7tiaUFk>l1uD=m9A$Zh*aC5Vx#XSREJCiy*oA3bbu
zW)r-zV@!xkPv>zPuh|FzCVKe&pR*F^Zh##f{ET~Qk-~lhf6va%&O)z%L=9PO7YeJ+
z6qArReSwYb9V^I2n?Q2;=>E=7BWW};oIe1(8+zKhRB6+Qbo|~a|LE(h<Hg%i%1c$s
zFPf)jfb$2u^4t?8t&ooMC@bS{Jy(J|ySsxw2W*gRL5g{8oYz;mH|dm4j3a`bIbBJz
z`3`l{BlUs4xU)JSQ&fM=#OiY!fRxhk0-2m|UOM*@WG9I}5lG>R(MnB;sw5O1+<FdG
z+4exmwa3TCgG8{XaA_}HONfi(T(6&ceuDeS1uz$Rx3Mku>=FT|rLk(+9;JnXNR$#O
z=T~)gHIAK)4LX5^$0jr8CFj*SZIV6gqX^Znu%n@PBL4^wtc&K|XFKB62J+29gfITB
zw*&xS#M<6xVUYY43}-AcF>%x7)~)8gjfEkepaByz#29e+A!cYM?edq*)lthDZ>NDy
z$=b!lRxaPM)MLkv=>rq%=2_KJCwo+Bi;?V-miM6;TfWSpO54qt#f8*k9Q3teTNJ$+
z=aqAenSFPzfwrV9I}*U}$x`l1nfSo}`r9wg?9K0YjVrvw;T?1S2{x1?m|d6d?~3fv
zr__OFn|d_glj@K5c6nwp?r(*kC!W~uqx0m>WE(sj`fLT4db`qZq@Q{f4u-s6_T|eL
z@zels^5{nFYi16r-&(i4^4rU@PoF{j^UaDHhyY9#Tn6$?5d0FlGB)on%Tg<yhn6M}
zu%~vZCckf;*f;5+CGR=Y_Cr8GK=$cCUODvzv*gxZW}>yIp3k+j*)8zf9}TX?AA>Kx
z)=8mmgK+1Rb?ix*Z0WqR=HUUxihym;#MaP35;i<+egP8pclah<v=6l#E-WS%8K^SO
zPGbZj0Oq+J`_2SJI5LP(;kq#yNU7gRRrYQ8v$Igdqv*3Z{2D$e@=ML}_Q#*MS_LO~
zorz_Ngy3f9S`CW>pf(Vm8P2k<4@iaDcf{=-RGte3*7ZAG054J$o$y#z*#7QXZ!yIz
zTt%Pi^=n-vb2J2Rbyq5$S_2IM=8#m`=r__>94*h+1Av+yM9fT_cqR(qEp5JmI_hlJ
zqGAbv^NlG$G?#L_cJz7J-qv)sZKpOCisZI{KOHHV?JGvnm%p*T14uZK6HKGl^MvfK
z5I$GWCGAV77*7Nfw5CT<bvs9xC3hV6_vpZlWA^oNfmP09H?B=KD(fpJ6yYc81J`1^
zliL)H0sP4kLN=GiX>|;w1!?-rt}{<({=VVkbl2itC7fvX=5tT_e+!Q2P(J4ie^@!v
z-%|^(!Zs+8z?01<(cZtqg+A+5LbFqSMg`#yD&4H|?bhU;_CLY!cVncpy-NJSt#%Ul
zyHga`e&g|mt!$rKQ9L0Z`K_L{ut~uUi>&MA-hBII-CGG9V*NOKveZ#OeV7alq>gdc
z+9+!dfLbq7Ok5bq-!w0AJ^A|f^M+s=OB{B0Hwf1v^COBYu-0l2)So~p>$)wH4|%j+
z5)Q0b*CVnO?S`3+fjuzCY$Gj=jmu=Ie$=J$z&f*uH5{yQzQn$>W@cvQ)y^gbwgZYt
zZ4j_pJ#2URn=_aN-Bf{-MP=ttMhKER;)sH0y7jgyQwKrO%*|ai(kklKLv%XWXbyGD
zPmcL?#EH<?R#$x{z58@o3+@;HW~FUXDD}We+Kd4Pg5YnkuJs{1K?BySeo{(0Yxfma
zO6w2eVm8ib&+V9RdJ+Hy3q2wTW#2bkW8~rD=}xb?u4*63M14JQ6M@#J4<iTm>B>V5
zEG>8IjV6q3ju1Hs$4_4lT1{-+ot<D4Gu?f3aQ5Oz-#oc;vZ3MG^bbndw_i=Ez7vX9
zCyHZACM)l$K1C?#B5+IS!NQ!0UXjFf5DcwRT>FF%w_diO*XNSmt?!jT9caZd;Eqzi
zIT2f@-tyxhGFnt{TGZeVyg?PK6R%zPz%GoN0xK;XHYr!(x=AwIg5$xdo*g0tf!wmP
z^)K(P$P3Dzb7%@Z<i$^<Q5xM>^KIy)uM!p&GcBFA3xkD(!Qa1s+h=BGn(+8dJ<lp8
za7aAx9tQI#9DUhb56B6E4mkt;B-q<43r?y=$Hm5a{cKCUdG+Jk-jT6@g~IHhefp*@
zawXEH%Vo5T7-sDRe6VNcaQ))nm2Tq!^C0W386?U0OW@|xtDbhWNU6%I1`QOg7w8Lr
z9c5A4qY7l{4HjCM+0S)h5;gJB*X}HF!H~PVU|{%%*DtyaeIAc$iR6Hd0AwCPdxMH;
z6RS1;3FQkxL<$Ya)ecA`2Vdg?^y)8F5GnH7_=Tdzz4;rqKZ5!hT(J4!b<6sIjh~^1
zjtmCx5VK#tY@TZHoeZutTa-CWY`eQ3KI<50R%C583`pBq5FdG7&Br)Ypa@d`B|Rd8
z1JVHAjtj%hto>)ddCm6(7aL{k5f)q09+W>VckX(BgQxl(UVBzHda0OB$}d`K+?)tZ
zlye>R)<+_dRREw1EGpeBvh`ATUJYcuI=nQpNZ8ueTIYPax4WGY1t10`-~=Kj3_w!t
z&^Q>GezKfvT7h9^M=Yacl4WK!%Q}!z0`~hVVk4W+BbG-x0y#<!v{(H1x$b0CEEdpl
zH*H^=mX?-G>ZEppIGmK!&Zt@hDw&`ki^WJgT6^~2(|{(%#;)C7-*x1$^6tG@xeKU0
zxsl&#cWZ^C#qA2jPLl&p>d);fBMsz-p>xetVDxpP2L9RES+c&b4TH(^fLg2z2s}ls
zsBYCoPfyP<(c`mqea-TxNXea4eo$rIop@b!E4#ecT6cbh@#JY5UcV^*4(#c&ML`Ge
zqFIy|zq|u8-1N+rVTG>$j5JM6F0!cntfjQEZj|RrMZar^{;a|6kL?9m!hBiYZ5Ii$
zu2Ly87m&sYKyrJS!@fNiG0IZtF?t{2vd+^uN}ElzVFzCF`QDSNykPCod`!P_hm^nX
zBjyEMqs!0%kr5HdAX0AjTqfbo-K}7kJ0A@m{`&fQfVNKbs^(AipTqP`4_qSzUxC?#
zr`=)W;7I&zRqOK|w!e+DQ1bq>tOYW0PhJbja1uzxz(&`}2KuXo&$XZHhg26ES>wIL
z+Z)%!VG}1HbcSz456=O{`2js#>2C9ppN)+zv!2&${mEN28jZ!B01SQ~ckAVG35>$C
z-|q6Rqx~|REc36vg{O8-_|K<yhMm4r;q~p!=|Xn#`yPHYDw!N3`5X|}d0zNsCGVW+
zpg7`iiM_TiT<P~ed_I}AMQPAL>k{|LhOf?`4Dqyrf~3EKXRy7H#-*Bt4s2UWwxXgU
zLk0FELF_xEXYXZAZri#78l1;(Qe-`TV`|o+9WAgSkn6uT$5Wk294%i!fp5?{f$ipT
z={9Ry)2MyP`q3S}0XdEQzk;t>F>^?&Sfd9E%)Qjz+}te8U#fqa<NI4PhFS=So+f<Z
z@#gtp@yFHO)9>HyO=|=KOfmMIYI+_rQSIeu1t*PFm(Ck2GxW?ev^QX?IDLDTpT=7V
z7Y4DTF<_$(%7Z{6_m;riRJVUeN;Pm5v5YJ+@`lPuD(RG@QNcstEj%+LD$`Yi16IC=
zpH~*Y|7B_y$hoPlm1%b<khv!qoI3gO8h6C}eRRmYd2Su69j!EeQ_}b-Llk^Kw{>=k
z#b801!v<G-ty|i?e*IeHUD-uBmti!ef##-ZZf;HiTOYD?Fp!@THXxt3#=LO!#0!^n
zdEtEOZ=XB>$HsfxDD%-=qwF#bk=D@~gtG)Z&%D&(fsKlF05S77gO=r(<PVOvatFE~
zdHok#@*cl1{q^vARU;P5zx2H;H;(9t6ao@QDgg_an?lbak^`s(VQ|ClB-#Ci_|IRy
zcqH??j+A6xA5hwn06ysSv045GAQKg>V*$9?E#V6t%&%|z12J1YNDie|cL!et=683q
zcg)z|>YXUIZJnq9!1X&;Psu5YfBac1*UN^zorS}dkV^MSYb!J$eetWPlkKYu!w(`^
z>6AbRYwL+LQIotyz}q%<m(0)Z$RQi>ieaLXl9FT~>2@|JL-wl~iM*4Nk`m279<ooL
zSIUH4z!md{^pqL~^R&%5iczd`gfBLO`gFKq$02cNVh_3d>e=E%?2d_Zx%1Fo0Eq3@
z0;}2z^_q=;($0Sd)UZM7XiReQf?~hj*77eefKKK44!E@7dvJLB0&tBz5PnsfXuuWr
zOC~pBu-(b>JYsP0sIRENaq9J9`7w`g-DnxNv8oV$r4qNr;o?fxi`O5f)}!1T>2e`6
zZ7~wu$gN+5QGgdtKx__y?DIyY+wa6rb^}d)1#Y-D*B$#{y$GnBT7D-$Qo{l>8Ko*J
z8q0@LDf#;L6}-H=w`7E4*APgXakTlCGY}<GSvBc@Y|rM~wnim(CCgJj9P2FU4cUE4
zDGH%4gacj|SPE+2WF4JKNJIdp{zle$@U5qo1*l4?hIV%?1wrJ4px+5W8ygy;r9lhg
zvhUclR(ET^U#}M!f`1e!Kt!WaS_HoG9&%81Bjv?wV)y$JukJ*V`Hcn6JaFTE*S@Uo
zw?Gqb+y~@OI$I{}w_-xvp1-LQ<;cj6%WOR}+et<@NJYkF*dv>t?yHe&{eJ0UnC64)
z7so(-8n17ka~`W&A%U@_G=P8z0Gn=&!cd?*d9)X-UV)lfX2}3+;ow54>k|=dVoEGL
zs=HV(9CS08(L3nC;U@ioMk-jYtpm0AC}72{)BL$$WH4+^I>5@MbwD~~TtG2j&`Y$h
z3AftKK+<;tc>?}?RAXirf8XHo>#NNq2+h>-xoMqpoyJvV2F;x9OiaH9pHB}#8aDUD
z>Z|&HdwWT`ENFYR0-ffiwZ@Q>XHUIe<<A8)50+*1hzHv@_he*|840{cuDK-b@B}~`
zSs;^hS;zj`7f>-^ql7|>%65iVjL_C0^bMyC(tt7<K+Ka6Ac@mdk-J+j)q~1GMHx?a
zZ^#8vS<d?UHqL?f$<$_XIfuFOLP4n@xBpCx#88pVWB>p`SwI>B3>tuUel>pm`jv~p
zA?VW@k--E<@@Tm)e{w6(f*`XOqp=UK|4}Gf_~;WQu<ex=-$T1up=#kzxvh4av2UIg
z5Yw$kAo6`BY#Qn+Y-o!=KYkkmJOm!VJr0OxF!_pm-A9l*a$1!v0D=qn;0#rY_TG%o
zvv9B9C<g{bq+EaWwFMY-%NSkbOW6Yrsi4Utmwd+&X3lWXq8ObsEqsvaO`HNvg9nVz
zZcvqyDw+Y^9bLs7Hi?UWC&2N5{c&;FYgKlw=9KckyCj|Ui&2dkRdlg0Ti<Xk*&19<
zj3FTzh4B4ZK6ROD5Zh)gS(g+%rdrU(zyKyfDIT}OZ8r2Ylw9@h`fnbCjR&oDi!q8@
z2qW+R=2Tej2OO=cXM|LF;Fdt3#w1JjdvG{b1_AnxaZKADes%J^TLb7CnRzb`uY@|C
zb*mv}4Q!74+B^ZgpxmwM*PA}>z{TQY#0tK&Rh0^AP)oAByXup_9MwpK<w+2o@~i3l
zyV=v4L&p7|tpbN^K%)SM?w%h~1aE6!Fzl4cp9%zPx^kvse@`)X9aq}15d1*}cHovf
zz%8K)1ya=~f_uBmfaF1L1D3A_`Y|R8pqi(A{d#+-*L|gKtw*^~fSBUd0}q)9zhH$J
zFuCGZzcC2dx0_1?P<FBWP7FY!i%)})5@9r#Y8}&qsmI}@@!C!1+$E5C&yD~jZ*F>i
zL<6hL>)4qf;m>G@Rscb5qiqP@a?#9c?03u^3Bc2cnW^TN`}*k54Lc;EST1wFuP24#
zyh;7USs>H)e3qx0eF2F0&;0y&2bK>6^Ako3gdtX!K@`#B`433u*1dV}OoD?HhQy2n
zou<Kt{Gx`PUnkECj;#WLJ6Qp8jAN;KKFyp=sGL0e_wjF_J)o$aC|O7a^*C)AFkK(|
zYNr&>dj6uzdiv@Uci`4a8<0>L47Fte*enIiYMQI}c_JXn<l4oOPVPXU;@mF+a$g9V
zqx<tfY&%rCjCh&>u>cfk&2qR<+LKj4=m!0_XA>t^Gg5)Jx|gAzy0y~E!=wDLDYPX!
zEr1lYySuy0a37^^O|KA8DY_e|mm2ePb4yUr0FZA@u!z}_+Z_UVUN~NZ2$UjhXwGmx
z#be<c>hCTOWB@Sc0g8^k07&{`&b^Eu$o4uj{ZyrmKcJDYUe2LiM_a0ORES69q}amu
zQXRMHs?p&%(}`MxUPk-<16mlALBO9@Xh1uvu7M<So09XjR{;X)xxVW5Od{Hw;94oM
zQJE0V3>3X;@J<~_%2yVkZ>N``{%%g*dC;ZOhBgUU+yv-^(+cPzAY&#Nb~%x|RK(D2
zpb!2T=&=*%h8~#!grl?U;=V+aVW~qmf)%#=Wje9RyJMX%qyPZoHlw9N$M5aOXmD@$
z4Hw(8p7I%uOz8qbAN}z9@B+9&Z3gJHEs)954qfl@CAS^)P5)~zfPH61<JRxUJ`EIi
zaO<Dm3|7&F4zZ#j1ttB8tpNv%ik;iu)fInAK<{=Z=<1ojT3v84Sb#ri?4T{TNtxW|
znf~#PW`O1fXul1rWj+;Dy!^=m^U@tgM-XLHO?`Y9*`dBKf}*Ofw(;@QgG8YeJt!x2
zF<yLSu-f=PWYFF3O3_W08%R;~niBw{tP1+^_EKW&QU>@iDv>i=bilS2u`u`*l!3h+
z@G$YL@%hcGL7?{R7J^cJf-8OX4?&KG*k13`pHu;jpevxI1N~6P{{D7L0#MdYPEH=6
z3|J+Ko8vb?ThU|O?CKfeT5<(p3AQ=rRjIHz9j(xc-i6{;*MhGar57U8Z4VJwE!!`E
z{<b({lw#=hKN+aBSduCO`OgDcWmXO}LLX>|B(7UFAuj{QxG!nJ4e&1?NofT26IKTL
zY#T!9L96;;J>wVFTf<r}Md6u_DD5BXaYas+6Q@p{@{xP;^Wn2bBwf7-cqrQFC*L@P
z-oYc`fOyL264qMv$``4iG09$l2xb82^f8MS)SY8vXWx@Q^Vcg73Cr#vpVx;bkTmjw
zkZw}k##tM5h-*|wdVIqfD>vh9#d`$Sr)KLMb_>Nv8k7NvwV%`A3HIIqI%87@q=wlH
z$eHf;_LC-s4>rO;OZVAcyqWd(@+Y;(ooquJsSy%vws&Hr)DZ>NVun?n2MbiETT$+3
zYU!Y}k){;9vwo#VVfw9^bAQeX0+_V3vy%|qb)!|B+?S230+d)u!`LW}RLljjYnunK
zJsHhVA$cGGSbd<N`%wEEKxg3GGz!+>@bkkhvGI<LT6ZB@&G(PjCKQb)8-g3tK=zzA
zvwYSv%pk8lXEivBugS~%x`SxsU}JNIf(9MO2C>g^EJ@b+^W__lUro!L4Z|xY%uxQT
zvAVIw$*gI16?v}7=9kA72O6ISJIBOg(#q-86%9E4=WVor_UEU)pVaUfH-PZ<9jcr}
z5+1MoZZQL_XmoQRHFky3@<i-y&!Yh8BPB5KunF$j0xEy$6|=$z2nXQ{HT*H_2W{^`
z0MGjXtr`n?-~P~T`8YgxpVGL$_lrx(`#ocArdN;o#UZxwck&Z{B#^A`$<mHJ<!`5;
zWto92Y^?M5Z+5UBKm0ts#owsn`U_BewB`WC3D!cpRnI0Ywa*39H-=C<RD!z&2rsvQ
zibg+8JZKq7#$lNys~(=RQ31Pr{k7&fMY(&5ne5IVtp8y^-Ew;}QMX+S1Z_w_p=EW6
zFs2SH_IXW?jg8eCW$Cn&o;H3o5WfE8=Z6H)Jy2A>`1exaa`TDOiZfs(Qb7jmbuc!j
zl5mmB(a&^xnV7;pGgcdb1=d0p`K0RC@y|dqjxD+jfb&0;Omi~Fa~jEDMdS%=V1Y6$
z3y`0nanNVY)rW3e;L`@51$|Xy_xSVZs1ziMv5LevzFdDHuiFLm!heqV3w(Yt&w$H3
z;3lPDx#i%n8?U%|)c{S_`uC*&4Nqa%n_yv9>z66~4*%@dm!c0?6}XvJ(&D#0aB~AB
zNi#`|_{YVJ|62l_B<y4ZR<v)LfPX3K=Li3m^2MDW5nU!rU^~RLtFo(WI6P1IcFC2o
z^lR9AXD|JPX@Z3<PZUq+dbt60lC=b(ObDAkF?A+7nSAPl;YD$$_q&&xl`Zj1aOdD*
z#_wD}rv9-h`w6c+-Q^<-`5g;8J*c1Dfb)@M`YxR3TlU~xl@MW|?Vs6i>Q8AU@gtv)
zhibiIk~&vT$fn2bl!4#eV6xM^Dx}f;RdnRDy86+>$hS^RQ?+-9!NM22eAt+bAu09X
z9LDi~|6z@Tb$rIh2Jo|>03ICw)9cR%XaB$cX2<`hmuCC`$%SZRHNzO}2W&JJibkR@
z^gRAA8yI^W^^=ymnp=qV5}=zJYNN`u1?qW;lW0}6vFTDd<3EzXVc>LTs=L5OJHXhm
z{%Bw27q>h7u5mI3_|C_62b&|nDK}2IXC38-N;oBry{uIh2zDP=7D<p%!!!T(|MwzS
z55LAhbnrZ%_9pp>`e?lbW8FFb9Ld}$M7k|>!V=G8uTB{afCqdTbN>6_u1p`k@-<oP
zMQw*rmsE7{rJpzV10mA<N866`yBs=<jy|d&e&fUl)U#dCQ$_fn7e9`vsolES#1+N-
z$@BM%Dy!f6Dx#7(Cs;~yU}tV!xO?HRlSj{0yo!#Fj^{7k+so;2k8ptaY^n?l;QAL3
zfX-Hus?%#5rLFqL*K%tq*#RqE(}^<XEwsiwue^nwRS6ENUi!YrMt<K4OwMaJEWfrp
z+ln#HhvG-;);6uAH{4C73Vn*6ML`ET^GY4l0_Sc~58~);N~rH1H_T{%@m9}9Niv2J
z<V^Q(AD-B*#pwjM-|9h(bax#fg7~#VlwI=s+)C~l%hL3sD=eOp2X~lZ+#w3Hv;Hz=
zp&zru!}{Mp-@)t*3`h(r;;6)JTJryOaoRN1HG4UfWRn*N1{IqhlGl@>I$=)#b#?q;
zUq(i`Ywv0C=U4JtP27`J8$u9nh({Y51A$4FLF5j>W^x7TJ&8s4@OZX~P4VL%Ayb<a
z-)Y8Zn&t$j#xJ@TrTw(Cc%3X+=3}^V-Z{llf1{ry@e*;cmF8`N#AUgjN#n{QWY%c$
z4=-QSMuSuXdP`IA!JYZ+k5PW?+}<$Ky*&||A7+wmwppN85cQ-a^PAeh_JIF@a`vY4
z>DP>NL+=3N-S9D;*KxO9ZXyw`IJ9hj%igTye0X4)`%e#Bn@+0@7#&Yri+euLh_uj5
zzA1ZIYXkZnn&cVZ>w6j-Iix#Bx(+;{t=rW3G^i$E;HKAj2E3`(`NKA2Mh~4%`nAqC
z4<tCzm(=7A_MwO;g!%?e+;dGIv|y1r!#GKyjH}|$|7h<`pqk3QJz)k*Km|k!MVYh^
zP!R!<c`8LfL_lPcSwv(W1j3MzfF&h`OezX8rT}FM5auw203yg35dugcpbUWk2~!vn
zAbk_6{$1Vuy>ESM_4{7G?$uef%C+u2=iGhv+2^-^d+&2Etl6>Mmtbd^eakJLgI7fj
zy2YE;Lpz@m1-n_s{x&L9GNKZCiuuYh8=G)E?oZ~wY^-@}Ajg7U24$+;lw@9N+2#o&
zQkqE3gS4kODwq0Xq7O?XwnuT#6IM3UXzlvSES-shnKmG=L@heH$dXWPh8yVlOo@8>
zzquf&M3p>=JH#A2VE)Ognw`c5aCbF9xh2Bzm;&&L0pK$C@fE*#U5S7)ZO;A!1AQlV
zhIxn0;P%1$t_t@!fHVrA%U353zCslL=HL@V58fX-aAcBF2N)@Q@xNEaf9McQ6IM8a
zFQzN^ig3sP6O8Zb!kNeUJ$#mB<JdSa4b0)eY3?xFgvp|2*C}-~kuaUn_~s&7mA+~P
z8*y%u`SP$2H@iGyb&j;*wa6BfbzjUG>K9f2psLXwx12Oe$np!{&V{5kq9I$GPi2va
z1-J;%=bbLIk2^2w$m$ZQ9yiO`$CW`qjqgRnNX?=4!6HGS)7jb+3m}S9Ftd5NrNblE
zA<X}5`uh)FML$17OH^6y<pu#jDQpkc1y=k@@Ya)e_W}U$2%(>@ssTTyrjcl*bT1p~
z97#ZAkhy|v3WxD0Ct6N~J5gWkX)!WMBl%Rh;>ePI2gSK^lHwp<!rI*mGWS)A)%J`v
zVBHjd#&<s)(%M<KG%`<~Khy?nK>hlZ#@aXrcUm+fQDrdb+^P&hq8L_A8{MeaEhL*m
zw>DOFt+%`?9X}3}vT>8x-c>=9S_pGgwv=}OhG!2oV~G6LGO9cg&bC?Bd&ZzU)Db1u
zef#8<Q0zv?_2lK#1XU%<2y2^NRtB(K+cO^)QsX+e+Al2|jv#BI89CCYtn59vdPm=`
zv!pS;1xUmHu4obipO$b~-9~f0^WNO$8eh7=eC&gZKK8+!##2|6s5NwT*vA*0&RQ)F
zRj!mKa^f&~0e4hnj`ykN9g4qhivwFsLvs4kAZ$EW<lBQtXKnWZ6JUh+r-0xg)`oW$
z<!}U{PSg@{wOf%c(nz1Ox34j*_CFe%GwwIF!^WqdR3zR!FMV=qL)!l`p>Ey)=&Yg%
z%mG>r{!-oS3;OnA+7KDmgaLX(2(74EFKlstSuLN!$Wes5C6Q0zR7;MZF)o=L*a(}c
z7Cbf4^L(3xp>Ktdzu7zQA7)O6er_rY6N-|bf;v#sg*q{hKTRW%Fv{aOaNC`|>}USI
zxXo)0XCXVkuCrZEnC6=tE;5v;pI1?7cj4OAKM4$A9S8s#Wa7?Vh6!wWLt4fLnLUhA
zMl)(QF&Hw>;JW`>s-7}8(2y-Y8JIS~-0@mzQi+bG<J~N0=zERgF0XN-m1e%{l|m;=
z=<LSkE=dsQo4@X0yEpMXn8m(*>}oyUVYG46h%J=-U0u()Z8E6{N5$FVBy3QHu<vX^
zu%P5P6bq7#dyfzjR-clFNKktCezi0r2(kYj+{!-pZQzjv0d;JgNk-WeZU6?EnPly5
z*=gBnWmCgAnuyK?`%>dcF1XTkhpDAyoJe}f1`CLfuUu()JBWYkF!U7V!R*Xde&9k{
z?*Hv+{wLtoH)F8L(2~D|?3iUKR^Ppzty=(NJ%mqPkE_YhO4mjkl0`gv;L@x;KSymP
z;?!{!oc*kmnk{|8Ui^fQ#i}UzaqR-|BTz&Q<nj0_?jp|EJ)0g&svTq^9UB|snq>?9
z3kfzzYa?C9X%_bsYb#A(LFm|_-)jWX#<AA?Wo5#JESeJaK>=vHkw)V}h}b;ohh#)I
zTKRuIa^QNDPY3=)F(H7Wp4eM!?N6lXWQ!k+uVUE(`FaORec=jmC%t8-=qpjD50hB>
zdvNiX&<Z)dXsb*u<l7x+k5K1h`IgO>Pr<D9x_?CPr>0ZbA-uJyrhmSU-=~UYCF(0q
zDr+B>|NQ(&7z3K$42<iaQG~q@6mgWO;jE73UO>mHQ`U`i;9h2t^FZ_420X$!Lw)o4
zzlL7t4#R*yRWJ(s(}rb~za?*(;E2VBeen?7uLoTF^6ziyvt=VO#i%=rkTSJe6xfH_
zN_r<P8z#~Cuy@NEF8&XtG*-#;`?^E(yM}pnouHv0pPB-&H`NtK=OVEv#RE@ZqGcUc
zxT6KAWn7sw0&+0Jn1o|t?#m8eI$7#advpx+N|~iKmC?JhVUZPM8l`aEFPW@MqAhpX
zDM1-a2>ZXBJ+Dg~i{Jb|c>U*N&r<d9MmW`LfS=`0C;015U0{n!coIl$_v!)g=2ul~
zWa$<AV9CqB%i&b50T(DKvNVlzE)86AOy3og8)RTZZ6a-<fddJmznB(g+f6(iNbvbn
z8@Gr^l4}qcJ(jW{!o9e4lttt=m_+V=(j-E>mWfB=IDYvCo|HCdv95iv;L*U_)B&q_
zNH|q4i0q~WzE7ReSAFuw_5z81a-y9>s~NnJn-SIbK%AXIxfZVKr=7BT^sDf$12vZE
z-nEOnE)mubzdOn{^+3##T58r{h|=6#(ciinO3aM3irgxTLnPV;%U@2&L-;)zub9|(
zajuznQfdD{3A52eHWlYbZd$1|kZKv!>tavZc!CzatLj!Ov0FQ#n1TqgGhYX+I(1es
z!84BJrg^71zs|QdA>TCji<+KKF;tVHw$iwsltqOG(ONcCqN_3vHK`uECc)Nn9nx=G
z5CTt5as-&eRyu~ZZNe_^Qz)5;fy!i2tMyS8=gKsQ;~5+TW%cjg;@_UQYdzo-^SxpN
zo65}Ka5@~aD=GeUSz`62K1wlk1h(4-Tzt^2Kg?QY121veuq2<#ZwH1DbPW)Lrrvw7
zr;pSgz|8*#8aJl$Maz)y+Ch$jxyb?c9L{>e{SP@DgtxVpTV>+5z&VDBu8`yKVjW8~
z8lbvL1xc(P0iQDrTj=v7MiF@z9^d$$mPqOgnr9j9)JxSF{oz_mjP0H;BfQQY6hkt>
zQTWGMUbN+&@YVZ!tt4BeBzYw4y+&2T;zo!8bzB+|>K|xLZDOY%h``+1omLo)_3gJf
zF@$p&!5#_*LnedAV{tw19gKS*`oDH6&~oys1;d1@hwJBzpR_{P(c;pG**bSwoSx0t
zr7&vii4yf_F&d#o`J_a3<@yJ>?2n|;T)ovOZD};bKS75Om`|vAzP{NzWXLzfisb;w
zFHP-j-+}g?>2K`21Ks}@4glIhVTa6|K8BkCeqZH|ENcoq%;)mElO~JF6)%FwmV1QW
z>5*gq9BYK6JqY#&IZ@Hjg_Flr>#eBECbf_1JSQi%u$e3^w_NfO@yJHwMyw<diN&?5
zwq104oD3o;-_;ahYWIW;GO6_%1zwT^eh2_Y?LoGnKx!mH>2Wp&zfr48L1y2FhP3Fg
z8l<${wZAq#6NF2{Nv1FLGzRIqhS)?pKta?$Nx4rCSP_7zWmD)b0!g9(<?mlfB%451
zoix$QSsxDo=>8=D7TuS9oeK|C67`&r%Ubg&-m61L2+k$7ri(=WYci|{axtC3xEH<p
z<U!2g6BSNr?V*V|X5IBIx>8hT=cCDN*YenvpU~%KOr0T3<KE&7i`Vn1;kfBjBdidn
z{2MbWS|Rlf;*k;$#)nDBVoV{q0zO?}>0h#c7Ou)1;_UVB2HV9<<`~1LKz73=TWf87
zCuIs@q4w0=)&>^B8W;n-tO|c=_hVmteGpYrDaqMtqF4jnU<P_bl~wADY;IVN(q_31
z$!ke*C3~hdfb)b+zD)2rk(61a3sQ1z4$p__Q8{H3ot^grlFx2u<YS?(RJ`7`1BNoF
z#X)cvZ?BJe*aBI*1KsP34_~^om&f&Pu@ir4Wq<1+(kdUC6IfaMP>UV1FGkZ(uSccP
zb~$@Nt#_aut=DS!P`>ZvwEfguL`4<~rB8L+OT+ycNQ<aG4`Wax5aYD^m6SOJ11sJ#
zrvU8x&t6#3IWa_%%~r-Rs`LsT`%dyPDGOknA&YUY{FTU>?GL1%II%lIoLE(Uv$Fk?
zSv-QqiyHy(H_8g&EN_@YZdy({?NRhqfw^BM0CUK|KYsvhT{;J$vzoz(M>m2us+;wb
z->TD<8qaK3Jqt!@z)N&&e8nD=*((G2luzt)=_sY*kAC&k^2BkKb_r+@zADt;d9(sS
zYK<fR^nh2~0n}@b@>m>}izB;{%P_D|=O&jC7n5c~77Mb!<`ab}&eko(mhCq*gnW9Z
z>*3r20aN`|l}0WqQSD>A0)(8@(Y)W8q1h+SKGjfpwdM9~2&M6ILqa`$H$hW#mP)Y&
zBD2LcED~}f6g^maa-w4#y{1g0wxu!_bMb(YsJwEc<JR@J3rH4&v=H2+4a!z=&J2OQ
zvsjg}Bvbb_g_P<p&e-|e2F?T27L5~h7l(g)1o@q4*?9+!|2AVICtoB!@Mv;G@Ns`V
zlxk>F8&+r}-1JJ8MY5tyZnZQj>fD9md#CNKF!!K28YtQ)>F>)}6&?tt!e|r%1rk%9
z)ar$LO+?JxjS!~smTxSzHa^)e@9M^5$`aGV_X&geebI^^tM0`}&&iYn95^B3^%Lb4
zZgU|aW2=_5O$x`&0-*JqGy-f^tfLXr%p536;0(~H?CG5CVO5p-mt#oFtrD_xmK{_d
z)U&V(hycPO3C@lcFHM<SHp;}eFe=oWy5tFUqjCYrXpg{~EKYjV|Mmlo>&$2Et0-lW
zOH<GX$wEa|x)smYO$(hAOBprbkze<i&tnr^18BrntP(Y2IDlaPn1q!02jig^rh(<`
z`5e?Nbc5dkwL9RK@(~~?z=DDR(Sama^*<53vv&vrj6z7G&HwXqYX49S@_Q4&>u~?%
zb(7i_lis|<tZNpG^?$-JCaWm&5ie0YG9R}1&+8+7L)b!b%!{CXd#bil664XIEKbS>
zU?Mw32#4*}g1J&FNwxIT5C`gO5(P;1>4UodHG(f^KUE3mS`0WpXDu|emX_pYMs+UM
zM5<AsxFo*Ozdf7RPyV=m(s$rQp;lxksluez_x@?}K8*Thp`N9HlGc~({<uU^WAR|I
zGolRGu8aAdrlrkQ4Ns;H$Z$&AOZ#iR8Ypo8MhJpbxUg=6VthH^*2?KNEt-oB(G9Gj
zo{4}D$Q_%?AOC$SM;WOdmQ*Nyf1**NNF(qqpbpc&7A){NUszHxtPH%VfjxDA$|YZ4
zvQxwmLB+0InJiBdm7zE!-V|fy@8?_xF{OScZF_C?)=eWUic|Zwwt)DmfMpwO)}DZW
z%fapCQ-8-jD-N|xwSqkEaI^-ZOC!+SMm@Y#+`&=tpFVg&iOO%STJ|GzONA#CL3k;2
zka_aHI&*}O(X_}mU0V{i+o%N9(q_%j8nDl;_h~eeQ0Hd<kSr%5?lGy8_aFXqLfL}i
z_++Uvjg}&t*yj|reD0qnBA;D^Dpd<1+<}h2aK*cmB>x+)Prn0Q6zU|XSimcOjH2C1
z2eJDD91t_O%a?>~0r%7_Fu71!5XuI4M`MZiUqb`v4Ff_7hIy7!shL-$3?-u&Yn7CK
zdaL+fb}PHp<A~(9@=qJya(Lq7PaP#a!zr3rujl~KMk&?N{)bXR-JQk9`e}EPOGRK!
zG%{%vFsxxxXYm&Q5ZC(ZJJL7asvq>Bg*|i5-cLWY3ut3Zz%DCsy6;#G1oYP5-;tI`
z+xn`Ntpp2n@PJAAwdcFG;g>_KF+-{Q(lTu2X904Acw&`&cjkAK&B+PeBanQ?q*5_b
zB&@%YUrQoxwa0g9<W=7fXWCcoc6Jp6vb5h0;N&aYq_?=)IKSu*D?gfp7wg?BB!RS`
z&ylzzk3+7^Pgm+-i}yooKvDJCw%SEqDPr-HwZ*!y(IQ{Z9%gQB#38`QzhV1@UH@GX
z;R0VPe$DCa?5(T<`G!>9C&O`sZ@7`A%g%^zYWQOEetbd5j3cEIVAtgI^?u4A5(3>(
zJ<OKz+`qe|qXw73mA*JI2tlCu&pAUnr&G=nG8G%Y|9uvqG}Hk+n`_T@KUGsK@=+3W
zChOEh$8)s^`f!QV1A#=1Stl{j*u^+MSMnx#yk`C+Ta-|WC;S4_z@qeC{Jn98tMos@
z%hsE4VQZOl2a(oHiA>?%b1(Xr1eP(DtNcx@i>M`2(3>@GZ(S$9H6P#kjw6F2v{-F6
zUA5UMx=5EL^5#!X6o<}E7MYlOJbFNp{$EmseVS7fI>a3olS&!Z;w0ofCW!^@9()PW
z*fX1*!rwc@xYh}L_Y(M(zp3qW>Bn1Ri(r9s^^+MN555n2-)oU4Y!akIoXBl(2W1Fh
zBa3N+pa@ZxY<v#@*=%ZQaRrWc+SOzAi3dZqu=jfN6Oyd3Wu_%M0J^axC?6WG`fclt
zS5Kd4V@|_E@PP*sEtQ!<2duEN^lbO5!hL~)D)4K`{C7xX{0~C_=|MKGjb+@h=N{>=
z1ip_B2cd5{6tO&LcaYPL;IY5P5+VML5Rj~IyPl~j(lS{wR`p|>$oJ5XdFuhI&a$xS
zTNR*ig@6sRKm3k`rNS5g(N)CVo%&5VI|v8_l%P8&S!vyt6M`%Kle0Lnbf3W$V;sT`
zdbcqTir36ki||H-_)wLZ+j3?Bjhp_}gzy=>lAAI5V8l8SKa-#fJXY-jvlL`VeL<oZ
zJ0qJ5XcXK}aXwxNusrZsOAsM+YA5Om4Zn$At-1sIvr7a9bP2c%R0Bex)IA&mf$=-x
z1Asvh$qiTbsixKoGdS~`pFKb$_i^YmHZ8opSRSjS#=$2OKg#tYT^Qjukrhb}d!N$x
z>w)E)dcYH=+K;i8v0_w#S2y-Gi)E}N93D6$RyP-Xx!rBBrDdl*bf%84h`19Fc_<0m
z<ZIaKM>u(w7~wVG%anv$eIwP__lhP$qSO@G?|)(&kntp6jC?sOoO%#_s3~ssJ86iS
z|ID_5=F*Dwm08t^_@t=NCm}ZS{*^DbCJ~yJ49h(j2=UWjC9~+L&{Z9C?Lx41O@RiY
zp^i2d!JIc+6zB1?eteMP$ujaiG(w{oY+M6+Wx}$<j0_;M-tnQXknA%YUb5C@>aj17
zK8;921KB(OvVMmEmP{?uKmn_%%;UrwYsW36{_k4-_;<|S7x~8dMVW_Pr@nq3uJ?ex
zv47>CB{NaS39l)26oaUDum%<SoQTzA+$*4d_Y92=)FA#YGNQx0C7NC`<yKQB;gRjg
z*~da3W9(n~y#MT_q<=?c{@XP%CQx~YAkt_Jzk^stdpT36Nn~+|v<2iz(YQ!UT|2R=
z=jzRO9W~Lc`^I-#8lS-4(*mejxaEB81d_Hx`bx?;HN*lYpiT#5psPuz_yZy!R2dv%
zU7gj-+UT8HWQ+|)bA3CP1W<`pLOrdPw6;(|DRj!fvSRV_Bfqup(8o3%g_pld(^r~n
zj0z!7s4=)$oJfIdb5WO<6RXh0HWgJX*YH$oMfWku-D+gXy_bp;1oA7{HrgM?thDpS
zlqiR7zQ>bFp7Uf$XrM8(Y(Y#3cHNr`8W>ENgCk%$4NnFV6e0nTqj#s#7}_m$Xxutt
z!sN>5O*xZ&0ocgK=r8C$!K9X;?5isgOf!-dbKcv`&A9(^%Q~`ZUK*&jQFa0H?u>r1
zD(_X<K>cR2IfJgC?Vl7`)4_o4narZOf=2qg&Kqzx#>Q83?K63E!{07gUgXDXRCDQ~
z&T7#be$ZGCi0d0i)L{NV{%63X)+5XsqzBNclR|4wLjjbK3B-S`3-fs_$|cPwCP6oH
z@uSE8%C@CM9}VxDlv1K@T4h(Ey0TG7xDL#Zy3V=Df;CYNW}Wss5SJ)tq6)x))XjzI
zQ#QI;*wf63DM($;#BB8q$&{^*JK|gsTV@iN_b!{QEE2)T4yXu1xdUZ@G9z699NTpn
zV=X725L0(aX*9*f%;^S_ECMSUagYnid5F&yxzCYmIeE1-RJ2{o#)`ktDd3A3t6R(=
z=4pb`{YQV+>rBo(^kxdc_BSt){a;$Q{SVn}|7HyvuxNGz7YK*}VBHiSXD>@z=cn92
zumTNlph_$e#sahZ8qC852|$Hon0>CnJK3rUF80r32lDx-bD56XsD_7sA0w#$%t}K2
z*K+~?6V;mkf#m#~)A`R=lK+xI`h)b@%e$tL_7J336Z-Vv+(!m*mSfttsJ~F$M!UXY
zlDz|{z4idfUI;=vh{DITPGMelN(cBMwU~4TAsRWkuv~z^TI*V(ugJ0r98o~(!yL#I
zJENO3_(PFJSF#8ctQbNU380z?v;WIK1M+qwK*PP$#>GUNts=jPne_lmP}|0S`NDdE
z4c503yd`Z`1PdpNvAk18Hc%!cJD|hnR*ln3e(X5|1uqbEC*>%l02^6H!!2w}WT@|d
z#7)c%vY4#GN#;&0OQWeGQmp|L>C6UL*Ec1s_WD^mi%b}p0`QUqFN)keO9cPxSWgb%
zT_5m_yXQC0oFz6aJ)X-#`6HZ$6#ThGb<vnTwjkd>Y@i!IoanK}Ks++OJk}Uk@Dc}E
z$zYVqac)-HI)+U5gR-{Lk6u~uztRvf<);GI=6XWTV~{z09e+DDFuNGRizZv7Qu~dO
zXX-Ng7CN*SAyV4=nvAk#Jm21_0U?{^`y=80w3s+>%Lp0<3{cR6Y<l8Igbr3QawPqp
z%p;+7Yw1*|SOe`Nk=iT~G0-yMW2))^{uZg@p{uhdi}~gfBcT(Znt>%RBArLVnPr9#
z;k*-J3$%U8O2s5?ua>Y@!x>t&vsC{C>Rf=tY`>lj=XKoN0cC}Lm)JFe)7BYE%>LP8
zi}Y}h&QoO$=_6kfdyw~okNPMuk*d&7xfB%=aQgESL&Hz)kMLpAIh-eujr{bKm=P1?
zed2S8>YLL=K_hCLLrIQR%@P}iOHDQL^tMDts7q&=dTrH02~~Mx>S&o`!^jseMxxHW
zWi*&bmb0Na6l3y^rbjRw5`qwoPAd!EbEEzF)ng-H3=!HR4yg6=B!@c7$sQod>@YhT
zgrLLLa=nRvHR%MtgWzBH1W!HXsD*{8WFTl?kBUiruE%}!+uhA!JSHDOKzSYSPt>^+
z`#+{GDF;KTT~>+OC~#Y%Z1Y{H3rx&c2WSD!ZwR53Iij2@N51rvrV*kLKNF7L=JGNB
z$e3tc^K%_%D2$S=jj{*slS#Y!s;wPr8>tPK3C=cV>BIbm`+H~SG|;p!)%zJF9xlZZ
zJ5g(>esUC;8)6Urwbmol*ZEh>Wu4)fm{^=zF7O5%+Q-1g=2WT6u46I2w<xub^qW_W
zv67$pL=f}Vh&9~l<F=-CC+k*n>3%|sFAhC7+VgnhleNSd%dER%ss&Ce2s70kRP7o2
zjHc%)3&bBH84;yUrFiAs$>uYk^-Y?I$c`_%vPrEbt%F{XKP}ZsJIAGTNtNo9PJEqF
zuD)}$-0w)XHT{f6ei!y;&&*e^8j7fI5qV(7ebKF=pv&8%CT`wuaE9@?XJ$<rDfxhH
z^4m<tFo85_$2c{<jKlQyQqj+X50Yhl8o6Ca;`q<K&6tL*Geos|Fr`;ivsjXAiFK4j
zILD1<Rjm)Uq}B>y9q;d%Q?oah1yNO9$XQW~i5!h8uwAnANE(n@kz4mZ$dB0qf3>5=
zUx*C$Yee{u&v&q#K%pyw@olE<q&H7UsHMDj;8PY?it0Ye8&`?$YHr|1nED6)v?G|Y
zGy>5}Mr>v~XW5{Gz!=waS*-2P#GwCkem<A%0lq4ln^;VC0t$OoU`r6GcQv^<&RTuM
z#+qX1E}?6Sj>sbR<6lM^s;ZZOZ&G=2dWdAiGS0nt%La+uHv{$2@C1eRZF<p|opvSI
zj{1@$jsuxExiU~R##rN)hix&fWg2*i3A$3}@Ty>&O+rB67`OB<I({ps^#w%P&0Eit
z{**l|<}8?(d-(h%*MK4AN>R(39LF?XzA`sAdT@6B>mPr1h=>hv=MrunKU9Bxr7cZ2
zWNU+*FVTqDBpXt<s;rUrTN}WeG%&{k(g=NN4CJ)PsPf?%6;q2kp3%upuZ7i~sS~d|
zQ+Is(>Pm*<;^gz=aLFhc)INr1n`4D%s-r>k?)|RqHyT%D<U-?bOC%58eFz^u-rtkN
z#pj9J3ut>nm2IPZ`w+dpq3e!MzAC+!hUA1DTRO4lBmW?%4{Ur%AWxU0Uo?-`nLS&>
zV8<xEU9tM+wxi~WFzJ<BQ>YgHDA_3EC?rRy)nr0$U}vGHI%vVQkS83}C9Hg|;Q89f
zTsRhyb0<FiwT1D$JTab<_%Q9Tcp6MMr};Wkw+OB3Hj^mO0*gN6Vu{{jlevnIoVp|+
z!QJ(lSCTYwMAQno^GVEvMrk=Y^}%%rEl?M9GmGL{n*_hNdJ*Jcsz(-nt0i6Vp<M?G
zjn}~3-saFj08@x8G($s%N~)?)D1vu{L1k<<ZupGd+Y)+o0S%-94r+^@xNs>nK0U=E
zRqJ{BYn#*;<`#io7a+cVH=KBPT!-Fg+PyyGo1zgGTEY@=K$4qhPOV~R{TSW+c5K}K
zv>++oInpjv=ExZtTYn58{Vt`dqmUx{82D3fLU3uRyn0v5OLK#k58)j<zg2ULA6d$L
z0uM}|ao-;;Ol-`Xl?JWkcX*g<hIMK`ce-kjWwJ135^FvfNV?Z~H+hY8LecA<Der7q
zpGg<uTx5Lu8<y($9C(^C0%W@hEwwGEi;-<QYGWP0|6cnF(7~ru6Pi4EmqR4S?P?E|
z$c&%(c?83;WEW}k;<FfhISQW(iaa8Ec<I+auz`qXi-klifg1YZ56LJq!RC31o7<uz
zUw4{RkDn;$3#MRUdZh7J<iuou6v=6@IFz5P`5XCjQ{!8c*zJ~JtZ)5nqIuCfGmBU#
z?bvs%^*ayD+Exe4{KdX+t|miB89486?{(IdgAHQQe05ify@xf!jN31er?ks0Kgzrx
zQmn2h*zIdsEv4Z>{#;r|)Y#P|r*&pk`hpg<W`;ie7<}KP!CDu+H1D9~HLuSSdD62(
zud82{ec0up?|O*D{5)o0Wc9H6DLHOoU$4829rp8E?fgLFf;^Jq&ynZ$FP87UtXy?|
zqw8FnrsS$Ufx>2Kzh5#kucsV;T>~SWd`nk9SD#@s-R}O*C=;JAWfOlJr+W1Ek_Dv@
zejSsv{-<BWn6t2|fCk@O(KA(?n&Jzj`^T~^ldGl?!zT<9YkHha=EJ-iP7rg#u|=-H
zFt64~_r2mzDi=IoE$fSWXQQ{b`=Lv{=DhOl1;Nd|T$=x59r>4lz&6#U-RJj^iQSm`
z8zKcoB*l$S9_Wvq<NZycXSEXgo5wZ&?Dc9Oa*3!^x(S`j@lVxOvo|h~l+ww&rhU3k
zAn!G`@3#~5pF{6yD_CR=-c#0r7%tWrMk-f4JN4DI`VX<Dm*Q~2yui>Cfgkl>t!oWM
zXExY)MV!2dB)>h8r{7<6Zh5TfbGY(Qk8^sq1)^Nqq2&Be@-I>*Imb0ipWhkv9SH2!
zLEh}q#g3=g3dtDT$h=`V53ET%^6Po;C@9CDu1k3pEkonjjaInl_Y(4SFqff=0uMgE
zaXaFqBUxBkaZYN})4MvtFkhqK!|jL^9<%Ag+s0E|w)WQ`>D!Q37QnTr(3^}%%?b5;
zgR{V{duLJ5;r?o!^hQ`N(3ID6WKO>ykz>0PHy1C~bWdqRno7KbIA^gUJC#v7tNqlF
z|6=2rFz5!u*jU-C<8qR%j_JIGflP0uZ|-cQ_}w|9fwgcR5KP?;_I*??UGCzlZE(Ho
zQ2RR~p@8$Lqg@Y!dptX*-?R7xoN;JLZ#yu;Yx87Zw)DQ!%$pPNn6Eo%_U%VS9leDP
zop&vQNJHC~1D&#1db2?G#bw&4%0&)jRy?!udd~Tjt0sjZzWwQE{8e80U$mA_wLLqR
zc$jQP^en-%VGQ5(?wgmw(XpRm2Wtk_*m-8*5^@r6>gAF*t37spV|Uw3NWo;^C7OYU
zvt|qS6JMWz>!)fOn8b%CLhYo-o536_HN#lgQBnIm$Et_p+e<u6n3{+~=lD!)W`)7Z
zE^pTRT28iIsHln}3W!?|p1-&ni=^ltg4vd-D_tC^uPIWes;$}%HEBp0#HCo+)T_wb
zIZe#$>c77BYnM8xKY;`T&o#&tnZ|Ga;$UfG(B#MI^s)$@Y^|*0A3sb#)nIsG11vqU
zI;Qb{sRVzxF18=GbnVY^_tXAlq*Q}zwc~P%si9Ydf#+I;OZ`L3;%3{sAh^@*u(puh
zH_O`~p+2?jjs)zbHeZZvv`qY#*ALOA>GliR&q7DNj|PaYkC=Zk^NQI2t$!a*pnW^j
zMj1=xMje^FBkZ;#t&#Q4<mLMK*qclZYbl+$mo}aET!%I?H9BkR7XWYa_pT}u4B4&5
z%SGcq%vntc`yP#Ww|@#RG}Ra#o-=2K+g`dO96R8&r7?9^LozcZY9b2t#pu`Ry3(S_
zjad6%dLhGvnCa(l&>EMv3eU|xMBQ9mvO}j?D47CN^17O?WFSS#_zASR5Ox@j&~00a
zY&ABQ(n0#XMaS-oahWVmiK!YCi8U>c#KcvD13O}|Y3B8*f@LPE3R*e^N|WJ|GukMX
ziv@lNL3ln9=R4hAxS$S7^bQ(aC%xV=wg~bv^2)p?v&0a_K>|C#1v#eiPB*s%?PJh7
z>?J*eGqJ^j@abD|CiFO$T}F63jy_+_usA01i8@iZ^igmz3BIkFlyw;Zoj3W?dFrl~
zxq$lJ;m@Jh?asx=hllrfn6}ofe#<iLY_&N2#?y|AQm3eKCQNlD?1o_vX;=gCl<T;G
zwQoNCJ{UHcKKD^=RbBoP<d^SHZ7z=NViO8OhiA18#6JVq|BS$QB$y`$kwi!4fVoJm
zr{>QMy&h7NG95Jzc0Rt<Ye}iLOc?Oaqms{`pKlcK137Zka;b1kCU!ga?I!dVLXM%i
z>*Br}bv=oW;cVB<K&hcqP4V&%H#il`V!I0xuhpsBxeptj**K#LV4ULVKC!%U0OK<0
z)i;Gp8$!*{veD*u*FDC!FSDl(E<6x^ZzR_A0VY4pk$MvZfGS+`s$WF^i*A&^Sn~@7
z8<IwwVr_~-r<<1Dlb_V2BiChq*$OW-QdhQ2!sgE4?rIyvy|l1FtH|GT%F>MVd}u0X
zlwkQI8hUmj7T1J0k*A#tA|DpN`hMwZfUV^|?ybFsn0jIkH9C4dDEM`e2#-;hQ|VQ%
zoA~-X1Bi?-&o*0DZRGRnn|nVzvN~n_WK5@OkzYqI7M_8dr@x7xW4Xw|^P8TL4gOEF
z3hHklI*9MAckn#Kh3n~GS~X)`Jv19Mo$qO$etaFb-4sLi9@IZZ8Qp(ixe1>0{@Fj)
z6%ZYiwSD=vQ`WSwSD@*H8L1}Re2oMn&B>c|7fBTj+|De=#*#9L_Q&zX?H6F9t@eW5
zx|c7pyo=|(Q+tBB%MMNfn(C#wkd3cDy-ym|(6*!e5xs{0n)L?|>iy7IJ^kTgmj}R~
z;&-a=1j0=dYuBIOz<)0FiU@f>czP#Oz>SE07W%sLu9nPllh&bP(}*7nKix}AB6xpG
z6dKdy{g9ZGKQjcHuHp`-p2zB~zq8;^4)k@3ZUVp40Bk)Fu=S>KnI*AYTJ2SOkj96?
z6M1pDAU>lDy8dQf2_~f6NVn=Nl+d{86~uxLpU$VSSn%$L?V;$kq!-<hktG1mOl-%0
zjec|upsk$|XQa_)F*orVn5mG!B0;$O%|+i2>%n9g@-4fYbDF2_?eq=BjeHM#<b}E{
z2T}*|i^oKx;7BZXlAc&m>Uj}#Oj)X+Ux2wQlXdv}>`k?AcQbK?dI7YSDm?=*jN^gu
za%TbD*3)Bv5nfWH-K*{wJkh-+oh#DeKR0yeM=s-d!}R+64SbiI*aV6zyK6ggXHwpd
zL5p6CJoz?q>m5G5T6Fca8zFgMTrvG-uZ-^*`o@e01b(Hdw1LziL!K(7X`K5Advh(p
zbv|!kGw~8|J+R%q(_?Rlj}TVYYfG7u3qJ;M=6--d{w-$KFSBFgGff)$S-Wlo06y%5
z)y+nYTX@Z(kdYF9Ys=Vym|W03>8i;%@+0qT1Dwf^+{o+I35)NR6N{Fk{J(foVv2?d
z%E4G%9rk4<Vt#)D^6>X%liOw6@mI0T)i=2`mwc@h3XZJq!@O(REbaz$6uM$MEj;#o
zC7>{TzNz;#oMK2_(#c&?36{{S($d%K0_Z*9O17^lBeOfgJ+cEymKOnxn8Ov3X5`m1
zEsVe3=n8L3lv(m`E4}P%^>E`ikE}*v9pd<<2198F>-rCa=4-i_o401B&qH13d}jbI
zCtq1$F8@SFs(A6tjleN%MqVJJV+r=EOAPKZr_4kKqmGDs`88&%%L%eA)6(UAm+}SR
z5{k|k|G_`ZDRQGIg+_kWUNN|2Zi9|?ZrNaN<p^%{vFC>*CQA$IEQk%Kz6VS+#iHO0
zacsQ0NyBPl*UgEkPc=ZF?uH<A^<&4X_qXH0h703-qWt4<)3sXO0EHD$gM5QoA8v)G
zDCn3rr&{ca{$uTl3iUt8hoC>H$?HLkzon5eoAB2;{aM`W<eJ6Z!z;oXSsaaD_uRsM
zQd9XDVthdWm;(#lj5;Gu1X2bEqPdc^ct&~e8xysvZ-#kovIkFEV{U|{?_CagW45RS
zFNi6bO&k!2E*O-!Eu7Vm*k4icB0yaC#P*e{))qFlpIeP?Ubj5ekd$+3WZdtfRALS;
z+CCQ#ayqhmC9D6f+f*p``i&07bX?2}lOJ0?*+HZetDbgFj=vZHz+vo|k@3dH>}q6M
zCo9B>T@{c23e#4v*r#fPeBl+#$*(mHuq0d6S>>KC>sZ(MTVGw*_1jY0ZH1DK2>%>+
z9VzyFNF*uZ47K6qx253U0#`3W{W9K<D_#;>_v}WS$$VjiE@ZRoI<x!z5@D37KS=8(
z0z5i2KGA*GbzV?^^K#O?&M%Vl&D!9h#c?32uv(a`0@ld*Q-M)9C{|ecV!@SgU%%Ub
ziL0zP2jy<Mh8W%m|CB;+f`iR9HSG4!mwzzTE4bhu-+bqmfxpT4rn5lvh5pLdonOvw
zarhs~*1L6SP9Jms7?^k6b}FsK-|!7x;rmv=2XL~?C7Xy__Y2yesPp{gKE2?FXLE_i
zHH!U;0Q~m&;hv2@pOholA|WWAtt=n-iD(#Y-k^HkXMMRBrt@<Tl!+sLJ-`l~!}%s_
z*kHX)CsL-z#)q03O8w%~(=EJTJl;VXy(W9}gt>1p_)QV#l;-cX$z_;v?Q?z~u0Zpg
z`Uq#A<hUYzUPRTbC}A*IG2raEfryjet#f&!F$&J6by-W1R~gQJB${U1v&V^&<CP7s
z0(vH-r`B6KZ$W-3fA1&3xzFzcYe;C>kCy*+OEUg;J>Ry>)Y0hm9r^sPxBDuCo+1Sd
z6tsWuSFC;-V7wzemC-WEVROQu;!3f|(-=WNDcv(+DlY9?NN&{a$drIS=k|!gzD%&%
zI;j<iG*g>ZRL>z*B43?1di{U@``=6hMR2L9BU64;j)T6p6*W0R1vXcsE~50A3;8~+
z>X;ULm`uRMfTIC20op6-Q@kzBgI<~EJqtfZ3EdzPX%|r+-UD6MAuYuVDhHjumGiEE
zr&QWf=gg5NE!QnPi_RCp-5w}?7li_UqU7F~X>ge#HY3oUrKfbBf|tV;c)CW&nFQby
zHl0ToGBYF;W^3=X)kj0o;)biYnSyLEG{gK4JMk_ZDLL0mtQ)c;h=pAW5Sqwpf|%x@
zU%yYZYQgdlXW|ORQ;fooWi5WGDi}Y>vc-I|Rm=Bi`v^l@{rO)#A}e5_tszFQ4IoFd
zg4P7{f#x)J7dS?7`S~s8bFTS|8x|;i?~YzGZlSPC9BStEITwGj`H-5xXm~r#n}?sb
zL8R_NMZ)AC!>1qduH2teZrO?E+8iJDnhbrK#39lZNvDXnD3;QY3AOb++iEK@@nj$D
zz^0pqVlj>OtEDpr>&c^5jms9XTW(BQIg6PvSaS8xBF0~66btaS+{g2PYMqmAd-Q;(
z%Cf1Oh2Q2z4BX^pBFd~5Z%;5RrF5{h4a8^|nZJo+`&xkH_bQrdn>y*|snuW@GEjnU
zb5nQnVg;H%ad@Zq9eoV3XNYQiij(X%UE7v7k6gN`F_McuQG1T17`x4a^$)Zv$!;=7
z#M^=Oo#yN>3xn9PLI=`v=ZL}Lu@gx*#W!huD=qEIiIvVjR3f`q_~Jx;olQ$zM;G<X
zp=kKvnW;F*VO`i~oz3C!{XZ%xlp=`5jjZJnLxUmSob~ch^mQ?Zi@q>7OS0Dk$ApHn
zP=>|ZZLM=y^>eiVq0J0zYA&iVCA%`d4PY79a{AaPe+;Xif06~OO(Lml=IowNVw|9M
zii^L6>b0q`jOAWWT5z)^CgN881h?c73(Y(IqIa>?nqf9}^e32hU;gB=*2WvcuNr+@
zYg3n|(D4IVPnSpF$6{@~xQI?rl32mBE%7$)(d#MPS>)-E0A8>43hial>g5x3cyT*1
zZ87sWO7TNg-QFc!Yh${?k?`LYPLT@}7u=>2t#>ktLQ`9E%rg>AFX(nnV{YzMSVg~T
zmW^%{W{LKd%{UtG&VM%eY7Hi0^42!+CnB=yrrl%%IKFSrO5KS0tTT?vtDO88cpJ0=
zJ02z(aQ6EqdGpz<HM=H947=_NlDgy*{70?y0K^_(uGJ&@_;H~yfgIOR%NUb|T4da?
zwk)6-G0jj8d3KfRF;p#X4oQ83*Uss85zDlx?jFCbHhfPrOkVPiaydtn&#gU-8Bt9~
z-VSq{i}HPdJ|X}^9llt>C<=_sR>$)Ax^KMEP7R1@tqq1r0K;utw-qj!7mL!_WDFOz
zLvDW4%d136xQgsG$rLXN@XX4D@1_=FY<6Q}mIb?wnLDNWc=HW+zIMpGE_hisI`Px>
zY~i;PN3;Tet(ThGC|r6>)=V$8<nn(}6Rmy&58@U1J*9_YfQJ|+fJxQbi94OLC4=N+
z5nrMzds>Kjl@ca}L3g=`gLzjCznngu_O%tFm}UPF>Av#0=cv7#sZ1}?uI8Dl-y(0k
zxRBFBhQ;i@R#3Je+a}p_@_Sy$1@pJA5^WMb_cWi&$97w%`Kz6TFV+G<18beoKZ>px
zfJzReR%kY5m`(__&42wU3_ZFglMCASx%mwj9doXxhcdFhe@!!tJ^N=|jiMejZ%NRX
zGMWyu@`WVw5p3cwU@R;{WcMWal#8DQ@#b&_{H~C+d}2Cug?xMu<IH6~-anZG=JFqJ
ztxu~?L<1&uX^WV)p2@Z{GC-$Dm`|z|hpcco2$gDjTwCZjPs3XIxZ>|wj-<4Mq*>Y>
z88F{DCG#fryeD}U#!-FV$WBXyTavmj`-~X#J6V1Ve#V?=J%t2vXf<|&FLq$nnQPa!
zi&faLY*+mE7^(5FKPE0DdqH$h#fLFYPUQ}-U3IxRS7&-i{EMAVqL&yAb9g_$W*1Ix
zVsw^9s<P{r+|_Nl-lAKb;x82(yjS_qu|gEs24rFyJ@dF3YNc6#YSP^`uqMFS-E`g#
z=HIvcDeJRt*?q%>X-x1Q<BXhcbsO#V`93ktFe#&ZFP`y8ejE$BUv{pSpYAgyVejT-
zynTb<zyD=<e*Ds|($r?OuhVHciY_c!7D%bc?OIRWYinu?9Z1Xl;n#Mnt@e%j6$^B^
zRV1W;2yf>b#<qfr-T_lG2WpenEZS~;HNO&@vUMg%M3a;8p=MXHL9?n81YVpxB{-+x
zXMfn#OOE08sbNcMm(X6njg%c0>Zxbs4ee<K!3ArjcCR05)9d!TUFd(}3g<q$CgL7^
zE0r6AWW)T@Yvf=!-bzPu8Yfr-80pAhrZoR>HhMjmE!On<yr;u5zSRG4^C7LL3gA;y
zE-jIis(!wKKvHsFq=206qg(YK7sxH58@JQqR<B2^dtrXcye+Ivf6yk^;hj4YSZ&&`
z9)`~%_Gs%eMB3)tU9zkP{pc5pvJ!M-Q#zM3ceu|z$4F@flqLELXo#PSkM_mint$2A
zwLK|Bg8s5%(x4kd=XAF&MA-E2Nqk_fO!+yxed~wN<Z>ak(wZjztt|KLvl^0RW<QZj
z>(OCn;wOg+3x-y8V`(UZo{!{9ug(`KE=|2XZv-l3^Uqh}Sp9S?@~)*9mqCR0PT>x8
z<b0FCH@02D?@u3B&8f95)BQh0UVdD^>?@_SHTo3rW3wYKRelM!)EtxKo-~s2huJJn
zCfzON^fhbyjGN?0V&6AhB+9ezm*3X252P?IsOw_Cc6L-lFWbSaun=Ti3bwzzv@S?#
zmfic=8;yM#^T_co?WII6qt|CX@;Mp3e)G|~?G2kR8nxev3Z!J*C;APnC0LzN&exTR
ze}AZsUG2q})2M8Pu|T0L&r2koS=dYLP5k}CA?M=TeRV|_Ej89HIv(dN=Pf1Q_rrRq
zQ%|m2wS<?>0z91XRu7W+%`r-kJMTT7KcDWeOhTtBtU(1`9&MJE!ks^_=q4V!=f#LA
zqKD7v$h3=%C1-w>`h=aoBmd+V7fbEvN$j+JkMl3s>JzKaaN-K(mg)C8BNu4XlR16L
zq*v!X{YG15ja~=F8k&?Yhx;FONk7CrczCJB!z?icqx629xDf2b2jN9<YVdo|cwHXN
z{vK`mUM`xiK5S!Z?;^#it#AS(Gu|;l7NsxhxVe`u?=2Z^?f&^pOV-X5dTS_dAy}>X
zO#md655-ADrA+cQHPq}z+9QiqI7X^dP+!8ghc{d5g-EhBjE@IqPJTbw)hIGZ*XuZ2
zP`&SHyq(9}@(KW+uIjAFq!bD3s<H$56PFjgha{N{;Oh-r<N0!1Pqg@GLGQN#I&x_p
z=99K^ydY$UP{cKCKyl0*?eNY6(R`76gbz>x1$57HUoRGqT$~<InYKsD;5OCfB#`C(
zN3sT9JgX)W96a~%{$2@n{p&ng@yo81AWjlGkGh`^9M0Cv7C(g^@xxbWyP3vzZ)B*d
zl`)h!#{vv2=iafqffu`L{`O4A_qPXNj3EJPLSA>pq_=Vw_PcB;d@rj1<IfP{M46<{
z$cH<F3V#86(D+lHSt;gZyxv<ZG}nONSp|oh?q%+;yXr_?3X*XdBAlfpb`#p66pikQ
z*2bIf9_LPcyXw<V;LHO{15RGN?)QF9@{h1P#mnj%VHCCyiMt^}0p^yQCD9sKE>rhl
zqFELnL8?trEc6Cdr_M8zuWX&(#9w}8tbd}VjK{a{UvjfSwyG(%&~D3DdCyKYXo@o~
z*ujh^4sV9}TW)<6>^5UDFr;zr+Tvdhbm&$Fw{s$}dDuo{$rpvK1^u4sybeGFj~88?
zziw{aGQzCOh+oDvD?@~Glz#k{P0JoBC>s}RVuL3TFuy4zxi?k?pAO^x&i<>cHnKsi
z$(>#Pe6Mc(723{Km-8Fu!J$zOU+i0>$FlRDp(ZYFb7-Kp<OSy*pmPhxpPe8zU9{8j
zyroGBUbzvbU`^jsqBX$*$)_sJ>tz=hF|YsSzrJh^WLLVM$VYmZiBui(8S$E4e43h2
zKMB$Z+nQ=#wRZ`S3AZwfBk5fFo3W*EN1nAk7ymMaNsK&QYJiF*6kX=*_DY+3{Yw6D
zC|{mteIRIstZUFnI4L)>JcV|NUnb}?5-W|W(SBT%*%r50-w2b30F#sp4o%!D#<yzT
zF5`3J4yvf_+03Z@vwgqd(rWmehD^KfZig@x?b*9mHrRUfoZspuqwFzsuOx}2EBm)J
z;%DAMgMRk~xP5BG=k)VNB%;Dpvg;d$w9A!G{D~J(r^C(%fNo^@=LCtYpO4@Q)4x$q
zOeXTIP1AS+*jB1^D1Bf&JB(LLWIIM+*6Gu>Z^Y@G^+q034%n#O{)K0TS3C1781*{X
zabk4iQyGo|sUcO~f{k5WqC=~1D4Vl~945MHo!;N@F?aU*y5j*0xmzpK>l%J0K<K-R
zsXdRGH0GVcRf>QR$&rKauntEA(u%ko9TSay+Pa=p`&PIWzj?MT0zR2AM%8ay9&ZH5
zo_sNa%uS$1Csy(w_p`wyDDcnrMaL+jxzwVob$e5NAQJ*j%UDmL716fOZGEL7e!m0<
zQz2@T<r+5JiXtkxf^*)7<b$zN5Z(zmG<MI->c_ed0%AJv9@^&k6P(LWYS(GvhFWUY
zVXd_9LDr~Q(bh)k;>D0|P_tirZP3ael_qCe>1gYEZ&@EhCL26&q)iH0@~GVoA3haI
zz?4pfSPN*3+i(X3%l~FL7`q(wcR2Rmpj@xqc2{dr^O@-}i~PyL=|T_tdWjj8xPIxS
z#RN5>9M)*}PKI!+#KGOQ`Ewv%313qd;(us|bKo=b#TME(cP#wk4qCa6o*TUk%f?+6
z&<I852x9bPs+WniwV|pmrqq0m*mC$}=Ro6ueBTb5PKS$6@V9$onz8d-)3cR_BHlhu
z`Z4ipg$*q<^(QmxeP486d-*Uk82tKMT}*%Bn9+UqY_%L;lO81Zp!u!W)#Xi4R+!sO
wlUh-HAU|dJw=@UO`M>}F|3L#6kqoZ)F%7@xZ7#Jl4;vZjo8BzD@!+@r0#Pf5RR910

literal 38976
zcmeFZcTiL7+ct`d8<j0=8>lp;3J7ciNDpEG0!SC6t2B`&y%%v~0coMch=4-qCDMDb
zARQ!h0t9I>gb->XgpltE`}dyn&YUvu%=z!kw`NE($zrYNxyyB5_w}r`UK{Fbojh^z
z1PcqxNtpI+V-}X9fh;UX9v%Awe1lE<xCY+-c%-X!8@z*U=T>6`csu@7+ro#1h3_Tv
z?@+?xx+4qAB^KCi4b#B)E7M_3_w4r>>r^Oh%2&b&&LN)7bLZ~mkBv#94w`QYJKvs)
zHk56de|fR{@50M*+VJ#8$KqhGU(0pbz*cn#FW`no?>rLpNtF>1)~<cFq)|(n2dQ$P
zaBOpZJRz*#cC5OLXi1w4LDMJ38l;aO4C{Zt{BH{Y3tS3|NHtyZ+LRp<8gR8Jb{Q!e
z`21p?lZ8d1de7RNX`)W}CsdT&#$w2VuCtv+f!nsy_|v^ZEH`q~5JYAU9Bi0dk=+0J
zSajuZ(|<l1-Z?dU^xw~s5;1p1!N<t3jP!s1txK?t9h@fT6UranpEPW1YyuM*oyQ8h
zr)))|&cUI{TlL$FnzKDhW|*U979?T$#IqF?#xv9%xNSK_pznj)`c1eptU=S*940Ru
zCPA=(C5w>OI)^NbBVg(XQ!5MtzN8&&jhXv%*{2G{57)2tIO!O_9RQz6+Nwbzgz0ZJ
zE@&KwDeGc#;r+=3ZlXx@WdaPwes;wtwJ2t}@$ayY@x9kPqzS^rmS?D4I7f1oc^)oY
zbn{}64JH)U=xvCLN$DGt3*$YQ;qPUsGrq6#yohjz3nbxEy@#zlj#00>-bxnsE>hlA
zH@`^zUR+`f<C~`h{ewz4J?vG4$`&R*R<Xcz9H$VQnlBN4ob5Sg9EOZcvg5-Um&6N&
zVRn$>4Ezt>n%&i_395|sE|aU9N20A%x`n4xKS&X-tc#<=;Iz6CA%-ZDCEG+jH=ra3
zLXy$1&@bd?Bx><=3!gMF9NpyKnYmk0HW7Z;{2NX7V5|jSUP#a*??Mj!6ACkM_{11X
zQM|GhuQkKaE)tbBRzOzhS5gB0K}o@uf^@q|%M-;2&*Tz5>myH9ohwD&^N09Zi=C;`
zQD{rozagI<rZBR5wnx1)Al<+M89bKL+XY)V*~RKTy@6W=US#n!#VA0~=-Zg%Yr(0=
zE1&kWwOXiW7K&eu`PSgF4lxIG<J_1v@+jx&qknBUXgWDre%FGZ2<u)yvDP9cJAJES
z(G6a|7wQ+YO(d8obg^b-a?UEg&;0QI(g?gtzI|6J4O#KowK2=|NbtmJW8rZA{r#L~
zG}S$5sh@g9L2&cP%Pcegpd5$^$G0B2HlEZf>(>!y3s(-!#01`TZcI4B68WdF?3W`f
zEFT2_qy&a$qvjo=ih>|HPdO38mZJB!z2LM~ODFwqy=tRiL~YjPGkZFtKOviD{D?<N
zoWkSb^(b3@>`cnAvGKFs#Wk_c-Vwr*A8f>=#HvBFhc(E=s{(~%vpZ)F2G><2x*1x%
zJ{}&8@;ZdLKt72SKRUMvQ&!QKkyPW4u*1|scdmE6k#-j=%zV_La&^d4xl857q@EKL
zA9K3v3siDW-o|2A@n0u?YZ=@ZYH3NnkddbS8kO!CRp9ZYht;e}Gp$*e5Qt>a&g^~s
z`8AY~1HTxOvM3)l*3xXBnkpviygJKD$bqom*{;IiyI2kOG^_XtMzxlsEmIp!f>Z&<
z=AxRQ?;9;84duxkHyS0o_fe4l4RoPi;<dqR+sVtX`rIhf4n&i?P7iOODf<$y8(0^i
z3Ch3w9=?}xsnu#>SKY9_MBvs5w}emd)9g|&c_s=4lC=%Zii83sm*q1^P>zEM6e*%3
zJ2xUJ>ObrmMzDcS742)?Vz@B=puNLQ#SWU7cB|!NF^R%T-OL#%K_zI|J<@=`wO-p`
zvopEZk&4{S(V8$q_F$$n8&yR(Hg;hm9}uLLbiJ^c1%au%a^BY;i~SyMchx}0^Ama&
z)J1e8EPoI85VcN;kF$_}u=?rAw^^M+6JmbNAB<*}WmZ0ztO=8souZoa)8e~(eTcd5
z^dh^Ya31vu@tf>xnRugk+@l8qK?{ZCWPB}uP|KFKdXG@E)O*eJsEVn4x7H8VXR<;y
z{s_!np-kW27Kb0-4?0Se@Gf)6A5dHNt=HOhR>LH4eA2(e?|56pZ>@{lAyQ%Ra6sW7
z|EFCbZM*<IKU4&c&99fkYkF8AnQ0dWci54-)MO=uIDEL%9vcD=-|C_zqYC-4CmfgF
z>9t$&C!p86Ha~UDr-yCuE^XXTYRXT2`?FG}i}ge+W!&E^stMVNKnjiYordv*ZIr<o
z*G?GM?0N`_z?Zsu)p*c)PSUom?e!G|8U6%@I-(<HQH^s|=(DL7ysE?5s>sJCzgV>`
z?B0T_viX1D&h#>(E8<)3*p*2wk?QRUPob>6uB&POaR&QC)|imE*==@VyE&8Z;`~7y
zp&NBluNDG$1tEttTGP#ECZMElQ?)Gb4$-8DB7<=C!uauCGu&NM0W_8ad8)VG)MjQ|
zMOm68qlO8~bg&45hl|Rd>yd?Xb+R&at33rM?~1QWxV#$Jf6n_k#3!l-1&OK^v>TdO
z1&+LQWUmMmC5c$>l)&<wz-aic?yjNexbat!xUu(Ha0|sNN!w8DUS7Z}{8$Yn%UwNC
zHFG)WJ<h8$8ObwFUTSw`efZa&G~E_)d*1=Wdf6&W!G<(cVDQ5q7L2jCLf0{-!xIym
zv<_i69Ks_ft`h8F^A3lT@_Y6a4e!z@KR*q$#GFaFcLA8Hp<>&Mg=O{zvoM-+g*Zyf
zQyb1ICS~cqD_b!0Gl<4L9x&~mT&(OPSCFRp6U@^#>z3=wA`@;4`8_wD*j?4$VUv}N
z8M{Jcn3R;hge@;8c{B{PYzj9E%SJ!PrU<9r%f`3MtXUdO*$$<a0vKa?*}c)uL{s>_
zWaapv3tY6j_gQ*O8C*X;#4X)m_qT5QbjokH&2<0Ews(&5G`sbA?GVO)R+0*YHw4a@
z-hn5^wWOEv!!u1*2e#Eyw@Q2FwRE36q0=Q3nhZJ_T1iC5JpY0xC(gL3L!-m)ZMil;
z4rZ80OooEfD#Qw(OuPUyvlA_Nnu==GwamOkKI+BrT!UdnUN`uzP1Ia}y_Xt|^Qyb=
z<Y1$$(8>~+w|DrLvshBAkKs9(Mq-#klA~FWhjfyhMLplO3#oEn?6KrhntG5MHQipx
z0D}vy!ATJABL_bP#cYp+W~rXbtr@5}43jb*H!rgtIycdAP)ynmEgwVP!%lNif<BAT
zl@qFrcI;+sgk|qUS+zjw8TVJKJKv2(>A{Z&2ab@n6I7$2K}}0?^ll-#VphZAq(o3{
zWtl<Ccj(UPxIBG7qf%4UWWbq`{02S4zT%8Csn|=N?g_!9#0%}j8WPXW*v|Qc(AQko
zihm{#cz$m8-F-eL=)|CO4fW-Rd&HK&Qa9x@^aa>hSS~zZm0@8ihzU=m9@ZPN=HKKY
z1+)&-sQ1v|%U&B<Dz%UeWe$4k?qO|t;pq$uKRD#GGq#yO;ia(J+vo<?%Ofr6ozloV
z?NfO-6H&z?Y9FSK2Gwc@Pb{uqggXT<)a&kR{QeqN(?^-`PaCNDAhjL1$L*apU-M4y
zZ|J?$b$LEt<|vN;#Ux~@?U#_J+`6P8zEK_Xk~aJyqt5E)I`0H!C4RKr-qA*~{LBj5
zh%?BJPwlJp=G5W7kA+*jEzau|S+f#8`DfXa%uMP8B?M;B)!X5!9uViig;Q21%Exv&
z;qHDngXMSjCM_>%BBRH=+a>?PeVg}c#anM=rSIq^bZ{nZ`9{(IAgCpDY&t~!pzPru
z!rX<!1cw4l?iry8)>M!(U^6`W#@ucB`EfwZh7Fxek!rht3;XPl<u_VV>Ki-uJ=eOD
zm)+kOs7P#{Jqbrj4oTwh5RLb@&Z;aOg?uLaI39NB-zvNcLA>sQ`sq`b#71;CDyIXI
zOAUlzxlo!w=7;Ht(`m<VifuOSNxr6^(}@XOkVy_wJ7?t*E1V(Z5*FqCJTv<z9#*3;
zkv?|zq;Y#wUgh+Eg;yKLB?oUS8S*LDAh<32hc^QbQJS_AA(0BgXKu3#{xUT>H1pL#
z(>>3)c5zZYaIt9z2AEQ5OS(>&rOqVLq+jazWTw=u(B*}upt!a;1<@|Ll4r#B1eb55
z!c{`!S)zi;4B06BztfYy?||%9G)(DYeJRL~?QuL@Xac!1FNNIE4{-jJU>&Qo8;5%7
zZIg6%&)hf!iC4UU>*=jsmX~pNOfDejJt{=SL$O-jdJ~3&qGCx-v8bc4Rq}OY`#4<w
z&N-DRCBedg69hYiZ_-|V)|&A-+aV1KaKm3OSwO%l{?#Pt6SVt|l|a#M&=dWQxKcXg
z1mo6O7IbmGxLxcf2+?RsgLCC2MU?kCj@$YaIDK`7U(~fsx-|U=>F?ej92b@3hP&Gy
zx-+1mYPM9dAG1}e*St5Cv%oFA2g7th)Ek5$ni$V}>z~_e9l7q&#5EdT!-G4U)N_j=
zt$CG$!0M5=!pkH<R6MBHSUSDDG)i(nM%oG?gZNxKt!HRCsC$q@tqQ_@$yL|dD`qMw
z)AvQ6hP><TocaTTQ1MJT4!;VociWW}X(?%yuoN9y4TkvGXI`$nKlU2ZK@&rM=+!~8
z{0K$b!;5DLwPw@Gx(%kHuPg+82vj%NfcCrMh3Efh6n3_xmqhfi$~SXyh3H|V9j|Ar
z-3#bpr8S`%j!i~5?tT%6OCyHw8M7l#QL=P{Eu2n4RX)9q{VY}KxO+ne#@+MgQK>jV
z7d9lK_VEEXf6pjDPo|as$6Kn=m9cYR@3uoi7iU`(4f>#&z&(*iZrC2!=HNKmoQG`x
zbHIY^V{3>1#|Qtv>{#^nBfMKUPFIj*S6UU(^CXUg7v05+Hmff?#t|3<*Kypn%EszT
zhDobF82K0y-)-PfrAO~)e;k3VQux(is!3VjiSDWK#i|=ERX=?^HBWK2fz(QS1*zBa
zlap@mWLdh%=p{-UU@YL@b$0J#IAH2J??hY@Q4O$^kzphJIt&${Jl$Psy%gvU--<_t
zI853(<g!cd%yUJA$aOUgrzzRai%6wa-CerhBuWT~ZxA-Vi#Z9OshzCS!Dz#_D@^@G
zgX}6WW(Ge*nUmA*=7VSJtoHoWmL&Zu8U59^E`XfB6UjZ{kJ7W#UAnHI<(Hz@CL&R2
z#6g^OPST^tbN;uvD1CRdQYLx2EY^Q@Os88QdP`%q)MT`?Idn^_)WR@wh%Lv{+vi2a
zan9-yKB%}W^*0`W)cZ@xXo7s7@D+yIZcxj-9Tt;3K9B&{*Z!0h3~yQQ6iD)QYIAh9
zB!4%1XLNk>piPEdZcA5V4Ky-R?%Apq@U}T6a3|&{^n|xHw?a_N2-=c`)`M!+7|Vrt
z^JhJs0_OE>#gBSTI7N(#s1yy0ce0@AmT{IY0|?)@dg-?yLJ0$jTiK~g)(P~5o;SvE
zI=j-*yLYQFt0}`)PG_HF`W0U;j7AYf)RMlnKtEAN6kb=^#yB4CM|88Q6?gHzJPdPp
z)HJ|;HbxJYJ#5d+2@sL5q8RBeg^EbHpnEwVYNYbrZYJ#qzwPipu<^x1Gb@+dVq-QU
zAYr6-Yx8efCP-!J0lzyEou5Z%OeZ?<^hk<x!c4|WxmxN#L!iddKw>BBMbZtQ&<85E
zuE@f(Q+rdB1No34*4rY@sShGvigQ^*<uxW9nmkEF3=3s(@h{{9UsKFEewXmV`+rxD
zJJL*DLm(zbxt74)SSu_U=7nR4yxKjY>I6n~LyQ<6uJ8JDVE?1NzP_uG7e@^xuNw-j
zJTi$hB<??pq##b_oa1p1F6|vY6b?-dVA)F;rQ<}JAJV6dFsGn2*C*3j!eMU<DpJ4s
zx90`_noC;ZBJS%Wjr!JC#8t{tk=cTs6|!B8hE6jxjQk@3C@71m5^LZgmPDuSt0kB(
z_Oz!#GLK|Ux@4v>*!&eU2%?SyVX=i8ZV)K>ws|H~6zC1Ed^@XfQ+17&WwQpd!x9T`
z5gmV5)yU~*Y6g5soGWn?WA!@WIj(co6gx+q;*)U6tqzMcK#IU$Xa^h6q|XnV(;|XS
z_E^7A)xl`RNa@R3IaMX&L`ePk$)2YotCEDRp-bHZFUm&g`4?7l3VW}Fg?!GJf^2Tj
zTq1uMd<a4KFsz)C^7tSKZO-BSSnCYO=>bH2N_{NK*&&lE;Gk(Xs-K;yrQ2YWmqkjc
zGQya^^(opBS&w4<?j`%i^}0UI*K1{O&sD+Yuf#m@%x;jY=zcH0*<vEGd67@bClr#T
z!;@jz*_4T}+}<(HQxDqa!>_+a^!ofXy($|cm)&c7WWw|+fjWv)(2*E;VE3~7jb$nd
z;kdieGs*}jD^X}q?!VUJG#5=T4XNFE#eSBk%b;|&TIYE#h;uD)WUuILruDEs+dLb>
z3HS|5WEHE@o#)L@b#)Q$aSN@l?m}W)#uaLNG)Q|9DaZBd7il`HKC(+)thbuGW3?MP
zbNZ?sq6*f7_C?M_#&lmzIpYQMdENnatiCqr^_2bZJS-O)UzYYL_K*$P1jln`*w4*+
z_w#W~ga|q4IH_Ux=zX&BTnk)Z{bcsu2PK(C==Hv^H*m&gIYz`FqFq`cpixZ#G1KDP
zT#O>{2aWcG{9}`eY85TOk4W#Vc(Zk~KF=W7dBMgybM|7~&~`SHyThMbf{r$xfmO%B
zkDrCEBs-%~*QIy%Cg1+5e>FC!qdp{dw=Dm$;;nM~Ie9VHig0HV{z!*C-Xb9^XFP#x
zeOYCBEdok_-#cX@r@f?=U(lQI=X$)6cgM)S>gu@%6B-L7r`#aXI67byENu+a+km#n
z9=<9eE7&Xb)Cup$&N{v_8*lfcpF^|S*e%6ax4p$T;sd>Pc*e<HGI@&!nPheundCgr
zOH&)nwGO%bp6bBm-&MJ)?za%z&3c2~LGu)2bUn~Mp~lw3U0}6>Bp<|fe#ku*>x2Ju
zb@ymahzcbH(W`A6GMK3h*}S!XP1?W?8EGYiWI;45#;IYHB+i`mNiJpagwW+)Z9Mmn
zdDNjkc*ReFvX^St#oGO(n>Y58UMoR}uvDiSQNFQ~c6@KlWJL)rDSLvZ5WjUaUb!s!
zc**s9EAqiFs?h}~yTIX1BUhRhL}<3yYP&?70BH}u?G<kvkj9gW<fh#wsb}{i``xQ-
z?$jt4*{qD2__W*N9wKL3=;0~-S4K^-SBkA^+q=0aju@%yes!qhqcu{K3W=n#@3%<-
zKFO)!1qSb|*#c?e{#PN@Q<Gzh@f|VeR6K0W#k56_dE{fS_*g4<soE75y<#CFV@AeG
z<K20&^uwbASGdMGidHUd@aK;^ALt>dQo+Mbt==gQBYu+Sk`#tM*c9qLfY{z`=TdbM
zpw`hvN-DML4en#{-_^oVkA#Mwe0MJ{8-M(n$A;p<_DC!^#f9yNN5I6AUkSuTchARM
zxBSBkE4q7h%+VrgDhv_xN$=AjG1jZ*a8nl(5;!MEV${eXi|VBv<<dKN%b;`-i<t?t
zT|P(-9zHm3)WNpM|7s__nr?}3r})U~&LGk_%Q4pTMyn19-Wdd_|Ag5fX}efg5S*Za
zo~QI0q0b{COD(i9uWc^{GG5B}*0h!D;R|rF42nVdMxc$$<#s4>MWAiZV?FHZD;BiP
zJ{xUOJFe2R-7e{ojOg|6ViD!23-Mu!p6Z=V0Xu#3#1s;Xrxa5B?jH1|vLxl}KUw8w
z4UI>xs=R6%Ij6GkfxgUg<ET9cU_4Xjbb~E1(nzC7WUtEGHzAHoBX4SNmCN||>&lVp
zX=Yu$J%sNZ75;-Q&!%KcX@t@J4F9gsK}1J*{(UN<NA0(L#GvG6L2|m@<ecxT-ovV5
z+82e-eAw{L(=#Mk9SwNx@~vE^*5z!)$84HQqO$TnM-MBd$phE0;OQ_ub~n4^Fw!U+
zK77l`_X%X>!S6qigZV}XIY#yByj^QFeE;(1k-j?{wr`hhh%*-oYVsw<1!d`xR`vb9
z=nl2aSW57S$c2!zD$p+5@GK7=*KX^35Ai-$Q$^OIzpju}sD-%0u7oOv^C&$4mPZYV
zL!CZv5KRwt*q!mt^;5SKef3N3bA!MYvVThV-UILK-p$(Y<)vjP^`0%PE~LacFUCQ0
zYAg+D_xt0YROi+|l7nm<jQxv(GSKM`GtUpPSZFd8ihzjJ3w;;^8k<Jt<#30hA*)e3
zGQMNw!53ZVPRqTkKbEcAIy0Br+><`sUb%5w9wu*HBj7mQ5%G+g46|~(dzO7w2NT8W
zIBD{v=@NMsiLiH&E(|x%%jiGl3tFAGCqWrXSX4W_HXxotf7bz()`LVS5cf|YXQOfM
z3A*7bEbH;Tb7tzv0Z$8Jd*8Q`yJ%Xh3KZ8>ex%WNk4Xz^@f<&+zBhqG-a*=4y4s_$
zG(D_o-##}08bL|m59nfaoK~3*@k$6VYOftDmabWb3_0l~A>;E*%k4jDE!AVo79x0;
zv$rM#TY5Q9m@Ej~pLU#PEClvKq2wnKuP4b%e-WXBSM<BA<&%E-&20<agnZUOlcOmK
zl6T?bFA<*}4NZR=aFvF6_OK?hFNU3a>0aMUGqp!TM=YJBSJfcyZ;Qt9H}3QxEdC~)
zg?Z}iRyV2J)mTv}rs}pUgZ;0eCMMz_aQjIUyIz1F9A>VOte{`_A_h4f4@aK+>=}M5
z#7eEho^qCj=k!WIvtPuk`D--x`O$@<8cydQ9qu#3FGj;84$bIIK1vteY*KTiGd%0r
zKDbj}<#@siKYUGvx1?RT7naxiSgiJxFQLRbv&fg`k{Na3(68zQhbUM(#D`xuZ=Y~p
zNLFU+59E$GscqY|Ju0!rr-asFd^M-hkCE3wNqqEd`S;Q3e*Zlin<cHJCy+xKH{0V8
zVbJ}0q2}g+2(f~!3=i1UeEnmzInY!#Hd-MXBTz_K?Yl=EZJCy{)n}LAdGL@zWp?vo
z;=V92>u<wCp*}G3Sh$RTq6|{0pgF2GeC0t91n~oFuKA6PLJGG~>7v)UpvP(DR#`Jr
z1SKNbbm^T`YSn#ADI`mc!m05bQ(&L>1tMe@A?@-J<+Hf|HHF01fg1_MOl(fm;tUO{
z0gNi+@X1o_EQxoR^lRK)yWHj2?v?Gq41#j6Gxp;soeF}PWjX0M#nm$)o})^p)IWVw
z;gs_%#vL^c8>L@FxZ6TpVuu7A%v@UUi9S~Ca<)q^rI~6@jv|ok_aU)L@`*c-GV{le
zH9QnwkvW6h8miggKcpxaO@B`+=WI<Hud(NgK<j_h0~Pn|F|DpQMJ@N8%CNc)OXGXV
zLhfwD8L7YVB6j7v8?9^FCR(C_jdy5_2agaF#;>((m9qvy+oh+eA$&?h?Q9Ve4b9<x
zN;Xc)Z&iWd^R9bO`;1u$i4vOSi893bPF_Lo%fMX2FblfM1G^!GAWVLLs~tqs!?~=e
zT040<S!&%4NuCm$Q*xj7Z3SvcXF71s;%fboM5p?Mz1H5z@UlI1&Stkni$oJ0)f0-3
zDV;xk95aWcbyOuna^^kJJ2|)D`jz{({7kms_Xo}5@kthmLk9s{jOcZY$ywxE=zO6M
z#jf1=P6KBB@EskxF=FoKkm$oPbZ(SRfQ?Ci=l8oXxc_YQaC;Q5UGAp=5VbslghNDf
zh@+;UjUYjRpH|6zv*C8vz>dqn1r=M&S2MMh=t(#Cd09u8D1F#d_`#jNpRR1(qmOaA
zvqPs+FT7T}D|*G5n)5SWj`HhvYm)c+O61sBj7^yUI@*tXU1HF+?APrT0lt>Rh)?bM
zwWhR$55>PIyCaLX#C-%Lr_8*oDPTNI>T2aLWXj}CTSAplOtUS0gKp`RvQ3QXQ*sj!
zsJ*^hjZ08V)nmt*5-RiIYgXUxPEy$rzXi_u>jaPP(lm1S>E(Hp4D}h;7WaI+{QEEZ
z_D@v_YNY@by*WIo*O`d)&Kgs)MLx<R05=caF1N4z;uzB4=={z+hCbV%)E)}DlgnV;
z^M;;1^3*%*S*zjV?Cm#n)&IH{U`miGezZts88Wi|TV*uNhoqu_9^xCNhs4;NaAU|I
zM=-@5i-k@k6L|mAiTvisxaQ^hWVJc>YUA|m%gHt4PKx`|h~uK9qzmUPa3b`OQOXM)
z=-USg_cu;7$Qy5L4mb%S=yF#`rL@~7f1$o+nvW>m9O922*X^p*%4uCr{=T2|&7H%&
zu@{$Tn0GckS$VL0ojFD<(VUz1GRaXIdlSB&cYjST+}2JV*bt(=uU$^ynv*wm+hPdt
zCSW@{+%LZN<$i1BFrB|?Zw1M-pgLc<PHo_!g*hZm;Tjp2Hd`jGF}T#<Dhsb;;#BFm
zeyv(dYQvsq8^ex%D?Lsji`qF!dy8L3`_)7Xt4aHuYrlvreCVH-7?I+quD3em`)BQ{
z*b~M;hF*7n)ePLX$&Xw!dkK(P7GV+xl4bt4FebhV6Hgh3_Dr^PHMF*g^aZ+FaVIpD
z&dDlHIp)?6=dTo?3>>BHYFbyWCv7F!TkUBNwcf|-IGR1L)!OBi*lZu1L0e7Fe5&cY
z=Vt2hy7yQ^!MuNU@2lcapgmLO#Z)NwY%q%u9|cXv7P*FX6*EFj`;4<L37ua}5~^nt
zE_=E{bwaxEt=L=ZE>(;?i{FwetvZD~Wga~`KjILDwc@4uurD7SF~<<{HBtmn10~+U
z`AJkg7`2DBox^BFsra&N>oVtLtAM}RN`1XXxr@O~2;zAF!q>`LiF#$dJg`q^Qx@Uw
ztlZ5jK{%#mvkBxFb6CO?+!)2KRQ2^?guimFz?B0Sv3TMhVq30D{tC%4V@RDbeDj1+
zc<3}NKdxfg1K)U~ocit^d{^SSM8s2TDD8J$H4{f-N<%}=rN30PmB{k*$h*H&+r?@{
z64<^8F}XEPzOYUvuJ`+)X!o6BxbUIB<Q>Z-0w;BR%C>*!Z!q@!l)H^y_<XG5f}oRq
z95r>hm21v*HRbpDEVy5ZAWLpi>k}V!cw}JG%>?b1UKacwm|Kq7E-avA>0C*!cwSKJ
zkU3DWhi+mj`H}yu$TS<(58&}lcjhtsQXY2wmxxy0tq$tgLo-$mEs<I_9yk}=(NVXD
z$oA@~jq%zZu*z1~%Nw~)V2H>z$V<o;U73R~add>o%+*ZGki|Lo;_o%Mud}b|EMXq0
zv@I>wusVK6|Aw}Uk*s32&$P05-tMA~oJQ;swoIJ&0j=LW=lT*?{>gLQN0u{*;lq`B
zJpLO`)+K|zFM5;&zCP8-Q^qSwoA2U3@67)*CKcZQsBtQfpZ3OJ?3;baotiPUv`y&p
zT3zp#XbP@Sr#i0Y_CSxLbkNH6%-PC5V*Q$ZYkt-GcxJcrw3PHttixeKIBB~0+mNF6
zQnS5HRM;KIa8s#7q}6D6NqNuy)c7+?yldUP(~gs*wTnp7+1rt|!ewr)_;%0bq@0C)
z3pZQ?tF`}M+x;dhY<<6rBbhmINu*z<xo~Dq>$K7lXWQ5e2bDIgj_9x8tls6V5FoeK
zTf8=xR@ZfsZr+9*svK}UeE#Gfr0Y#fgMriSUz}!Yn~u_+)kNQl-p=f1$mSjYSgcl3
zZ)hV`-2Zqb!Xf@%kvr_{td!YGkB@7DT%3a@UMkH6&xJhIPp@KBT?m2*-NL2r9B%3>
zx@CvFRL%D{g?%m0d-KFv-lRdsjt}3gJ8A(dFu0$Cj&;!Fj86^f_wRnwuxE;y-ry9j
zMr@_@zHdH-6fnr^WQ~3=bmeQja-EH`6tYk~dorM0SfSK`E5gzxwZ5;2_!S})pFuOo
zoBHh=4JAlqH+Ky$$|3h_t(NFZ7uuJ&YPHBA^z*6O74C1wG?v&(OU;^RQiJFXQj}j~
z-yO2pWhkkK3<BK@7AyPRzg3iG^wPe1w=WrHiOCw*>z~*@+4Ckd^OCG`WAEfxgaZ`)
z-ehiE{d?%UFZ%<a2{m2WVee}4w7%?8(R+?XrNqA^+2R{Ii^6BLBF1ybwiVmKPy2Ka
zVG+4zj~w_=4N*@^3q%c|RxT}1>#yR$1!Q2w<MO-WjWBVT=r6Ou_lIm3UZ^$yGsYdt
z!p1>UtMxCFJS_Y<bB?fPZO+Q_*H=MT=D#GWP)tuB2{SoVA5hXe^^>YQ`5s%u!t(xK
z;rGUBsHh7ZrE<>dDo4Sa@7;P?URv4zutdfH)e|f*Zv?@dX1cb4o*Q|>E4P>Tmz9sr
zskRQZ1DC}Vk{H9nLP^bHUZ-RD45%x8%+vk<azlxv5Kqj`o{7^;fSbyUZT~yT8~vpx
zqi<Sy+q^Eisy=qEO`|XqC0bv``tPsa9<hG6-fei>94t42?`{PDA6om3a|h-<*zy1I
zLMZ0C%00tkv(mDzfq@98osGqjjD#$oekJagUw?|bV{4kbrR?Uv$9YOiNCa=Bd$x${
z)UG@kDZ2aT%daMyZ_W=+N%n0KhKSK%@1IWtyVInsHio3wkuFnp>wOt20js3YlBy~>
z^oI`*HZlTcCLre9MJ1NC9$|MCc{9J1D?Kf-Yi;=vF7r;-S)UKqu(#2p!aQ*YuTSp}
z>oLyyGmPMTG_Pt?|Ht>53H;NjyXn{IoN8M?TJd<ix{0ajRv--4W#gRTH|iKL6Xe_j
zen0mO|C5(E`$dUMf``czO|K=3-c@$$f{WOw_$|wo25l}izQ=a=^lXB^uY-?=w`KSD
zY2=8al9Cclv~9CAtak6Q+&j<IQyZ`|5;8KJ2n6EgkQ5uzb-H024$gxA^7@R}^_bg&
zAEm5n7O1}l=jWP3s9eksMC&nhMY)}NeHmMnV=H$m_)lT+)2|mS7-!Bay{d1XAxN@8
zTYav;CMz6u!@s^b`Es9N5V1=X%L>H+W4mkJ5lo7zsHnJg-EI8GN;7qas1*8p?IHMi
zgKs@ZsYAK$X?%3|3r-0Z7O*UG>m?-_b<O^Jua3OuK&F}kzu&NtE`A^@;%9|pkL{De
z?Dqay*H_(-ey{x`_rAS0A8_Q4KkEY8A`dY_n!M(}vm2;w50jKiE*f6e(b4J79(*i=
zw>QbtL#jA-r_|RMoskgR?f!guP{|bEpMeHWvmriJY@&5bqIuOH|M*~#F7H~S3kM@L
zR18?160!{@<feg0dcvE9@F{uDj=x{vcK$Qqm**fZ7?gbrZM88?EHiMfX|&XetnDli
z@%yVlW-4l*PP04jMlzhJ@|X_ph?Qyi{qn_0p77HrqPyAI*#rE4{rG7Y%O$lNQbshp
zAZ1bE5Gr?(B=0u<DYw3iJ#uAkJA4i1%Tet%QE^c>?J7Y6M#V)i)_{jv0yetD$XBmk
zeZ$4YrO9*Mt&SGZN}E;~%DWo^u1JOQkj?(U-)H0OFE^a{I|=}iK$5nw@BR+nt}dLu
zyQ@K}yc5e+oEfrOuS8hjQ}SMDhs!;kZ8IN|iddWdZ1*Rha+UA?-VV3NRGrsyk`{lx
z*mT&(4dO&4{(GicNPMTC8Vd_s78d9O+mh%eZ%sp5u~E+Vc&0DyJccBN;lFsFjFwo4
zz|VrIqFeWOM+n0S|1q2%({Paq`B~u&pNZ(!@CmqxZa>E|Wp8tU^Y=!NOsq+1&+ayn
z-Mr+!m)VuG60OTc#iM!Hyf0tAJWjvvz7Ig;R*q(zveL-jN5cYZc=#?MKPCLi3^VF9
zG(Hb8Q?)}NBJ`Dc1Bf=m?d1`%e?Zy|<r|=>0}=a`EzNJWD{2Wt`D3v-PsTodKrh8}
z?%V6QxlO*1mGasbVBcgh1CLoVoU~2D-uHfi)`AxqV?jLtL-Nc@E$u-lhm6=KsEz(`
z&qAhL02i?IB4zXSv*#z8LjrK8^z6UCQQAi(>tDQI>D2dfb8|DR&?LV<EJN9EnNGoa
z3Z&_0OvTrZl}0f3oxkG^syZ!2-TVFQo)WQOb`qa9)6&vbsm-%9A!PT{953_b+$XmZ
zJREf~R-VoGXe*TiEeo%N;?E<qvKYQ#ZUXM3B@?r)dy6tsO&h;Q#9M4U29l*l_RoA1
z3@)r0Bkx$Xga&O}RzFeu3mj}~d4$N@3TgBs`VRuP1_dw;cIVC=0}$y?f2Eq+PJrBr
zqg~xfA-J}s^}G52WRc&ckZ7A=!jziq?CcKq6DLH+ip|Mr{Cl7Nc6M&*lGN_<BnT0^
zPSf7r?vIN79JG+66)v!#G#qu5J=~8v9gvmwL=CR=auV3*J{+WCCN|^|q-atpO?Yub
zRkDEkEN0KG^p(%mOMGv@WfN^36cUzQnD7>Uv4J$1GB8BljG%^oz+?%2<WuoSHU0hl
zjDf0GlQ77WwdA?ExedML!D`pB1a4{T@%a&RJJM4Iof?s%GXo~={`==k0S=4uN9{@Q
zG~sl#KWQ=qTkT3EQ)fcZcv3BH#$~A&iLT4#Q497R!eB6ye#B9mu%FS~;fycrGAXEr
z#8=okVURp2{ZYb{o1z}H(8W~q__qq4GoGgx<3bdh!f2FTfrvdXI!N{ayH5{39|4vc
zZ`4R-Mn(z(A*PyX8%s}3O^u!efisQC)ooN1z=2@>T8j&Bd<fu2re(E(sF}c{;PEiV
zPbYW~sV!WAD~J78V60(Rhtdp#f`SxJzpkq(G)LRw^*}I1g2fLECOcKqJd=qSm7)fj
zd;88=Vb?|X=@LkMSGe?4X1*_=YO%j^hiuV!&&BT4_WTV0$pT<S-ib=*feyRCpV10a
z-76rigFt$;LRNofgZWoy%DEU5+he)2)`0b(7wl{yq~jaoI>rD1Gv7q4yc7t33~}y%
zFG|AJlIg#45@tfTN6Z<XKR>!r-6i9k)i;QoSL@EdXBG}^OnF#{IKyzD&fd5sVw2C^
zs^(^609jg3-V=g1<Wu$?f6SN$Uu-%95SQiU&@z!KmdLP&b%oWmvoEVk>XMIG(EnR-
zTsr=8Od3O$QMx>DW%O_t$BhdiH_wX@{yC$6AL$aJuTI}O39oYMdpBCR<c>jg8N=Qw
zc-rDkH#r2Ld-AY%Y9SO6M@Ppp$=e2R|Nbcm+a-BM(4vGvBDsbE>|Jbf$F<OnRp@0l
zjl17G$xOieO`p^#>d#Oyh%>-_(0FcO;;t)v`uH|+%rjB=92eKFblx=plU6Ggl+|f0
zEhhomP-N5SFQbb=!II1T*r5)VPS-b7QW5Foj*((>9B+hb2z6EMvkdttxAhMn0w&jH
zV`D=Ql&|xf(*Zb}mH_h147ruDKjJ=F6(n^r?gfAN@1N>w^sOPSd=mxydVH(juOAOB
zm1!vu*Gj8t?+I>*eBj!wNxpuD@&~|0@No(=fn<DE#6AspfHKqIN6ZCD-Ixo4-wtqq
z-7S8#VC%EK6BDcI9#L-O?o`QG1Es~3R*TQmVtIGdDetTrKrCmuum!02ul$~C3fe4V
zLK_+QiMqd#Y_K~WI3Gt%OGybOrzuR2-4N}lG0M>tVC)P;v=BE3)EV^E>BbQ9WOeZX
z6W?t>QNqP(=6nR@!u>(Ez0hKdr;y6BzoO0d00BN&8vHy5Bdw0~DTwD&*{@|D35F>~
zx9nms%0E#Jrc5~7d5_ryWc*T)xNdt-xdSeN4>BtvA4&aLnM##jxX8Q|qv#bVt#g4e
zP;({}kgLQL6a5JZ81VB;K*6B7Nq-+<<9IIy1I06}(r#~#n;V$6@RAX~RjtSLbwo<a
zRVhiyVlQ$t^?CxX<?&$lt<f?Y>~&raGCwr54v#p5fA!8mYb+%-by3&Y)^;XbDB$Kt
zR6mXCHFQ@YV}nk`DbOYc!ml?1`bDPYN?p0~+Yb5jsp2HCCP~(*H&7ogn4~=jVklWz
zOgFdJZ6N^EtgJ80>PS)9r-<ZvfMRLlPFa~i=wLoQ{JQ$??}uOZ;Ba`wQ$=3)v9jr!
z1nBOsbwEJ-Q&CnP^^42C%S);=g~L)wzSxy}wbqnqJvVHP)ZW@xPR=wG!Y+Krz`i4%
z{(;E{zx;e!1?pDPvm<O}JHUM}K!sEDY}s)_|8`-87@eYv*(Q=~>b)J;3-dFTpLE3Y
zY1sl`Fwh6(D9x&Y$ph8bznxLg#+);^UY`YJXgd_dTFrQ@S~Zi_jF;Q1uU*VV^t)af
zvZnz6p7sI$l5&}8+9_k!Y%edbAf}xS(yx=Q72ky&o${He^_tb8@IC<)gDMa(<t3nl
z0U^T)IJE~_Wwma;zs4O4wJo)*?f|TI80+4BD!(W^USx4!RdR&-tb1*uJA~Ui?ttHa
z`yR)WkctAYo?X6nA|fJ=6kIH~j6UIAS4$Wz91C79z~w?HE4m4abFZ91s%850NBFO|
zb0=(fNA$^$?U}$u_1-@9+N*i^^@U#&3S?1V!M$QL;nZM}jUfZ|b2`SLNY3a{s{wQR
zvOeE|JJ0blfI+ll1S`wP$mHrOnwMEygn|PyG~pNJ9)A)>);L)@<?YPVfj35k#d$dp
zB09vaPN4+3WYjGVB?mfRz*Kp!RNoO!)wQO3_%zqilEO5Y+Vd2TboxTJjKlKBm;6sE
z01RY<_-Vm{B<}NYxd=GkL44iL8T>I^XkvpG*VB^TH83R6nVgA9ca5;Mp6CcryP!K5
zT^TyIxVPNC<GQ4b%m6d%6AV<>zo{T=E?>|Pz-kMhwyb;luoN1$Yb_09wivy){W|?{
z-=9fN_!KY$4?tDIZio8*dItxe@?J4OR0fYoD?qMWGvPFnU9BfBe6D)T7CQqj6vnaj
zD5ag93NrhPeB>OR=^Tk8OQ4c}h#9YRHYgXqhqhIlKZnf7xu&D5YXTK`s~)kh{^HLI
z6@dUFTW3B!ytN6M67D$B0O=5{d#x1DwMXA5%tB-f%IQZ?Wooq={+R)w6D#5Z_<q@@
zk<%jpDt^L*PhUB(NraYQ%1RIc5Yrd{8_TWChyvH4A2^pZ>57&@Jo3q0T3oyX2!Xuw
z@^GPnV@~gf%?_*9@UWAxqI<<@u5CR%bM3J_I>tR|QtE3uLx4{RY;J5&(hvyHbEvoW
zdv)+pZJer4YBsq07yTJ_*#r<DRed<fD?g|3@cqJyKjIXZg#Lt;Q$W-%KZUu@QRh{;
z)|-~RdhalfXEy_uU&L%I)Ioh|ZV~odotg+J%HV|lp1luKCZLj+@@3f`D@Q5UXz_Y|
zQ%hIyg!X49G<^E>)EP8C0ufB+ZeaS-n(EG5XRP*e85G`HKs>_qF+RjGw9I=YAEz!*
zZj`Uy|1=u~VtnnN<7YgS0Ym%4#=A>|XKs`K4gS9IQ@jPCiF09>37n>XFuB%;m@8mQ
zMS+6l7+PQHBV7RqRh6dYoAcKmtq0)36iS+!ngaH$T|sr>TS!HJ`t)}&XcFlrF>#_v
zD1g=SGEC&$8q|^@fS~-IlQQo<(^Ow3JW^;PmLtP2)3kQ8>q|6y$Z)Auz_w6=DnuQr
zN_lk8OQZO)BJYfqrRBS)kCuG9|Ae%rJNBfdY8#U#t8MTs+ZCW=yd_)+l992kYi@1b
zbO(OjebV&32jBBFkMs=hY3`^`0NlO`52a}f8=rlB`vgE(4M37w{IL09wmt&N33vAT
zidU?+vMx=kfcl&cBG%S>?zLEdG73PLU+0)zgw4XeCD5?B!i=XI{D$_gUB0KmXXU#7
zkr6g<^~#m;d%%@ypop~K)Ff{)QzQA`)Bwd19mb@!L7ROF=$@XQSZ$0Nb;>8xYWMj%
zukMK@Rmo}UGwbl0jhX1~s8gU#7yeo7>0f}8B8%$3ZR@uo*j1Z>ltcqm3<iw6*wxvR
z6aW4xINgcR%dhtKLUA8Og|y<|D}?QCNdkfx;^pE(=xJ|nUpynG-*g`isKVN#AKOW&
zI35LlAs9etJrzan*SBwiInf`$E~<y`;gb0*6qvN+4-VeC?=u~MYg#D=Z~aOZ2wnS}
z&O{4+&{5WxF$+Z0RoQ|)TTom^Z^JEX+>n^;i0UUJlb2yuHEv47GSdd?bl<nae1L_d
zItlB61n73OJEqh3PCh`#=_k5&CYZS6dl2o){wsk56>?K0F3Pd~m%2tZ6#*I()CF0m
zCcyovp0*M6?G_Mf&EX?O_o$7zrT2<Q{l%{fmI<=@xdBGK#}F<Af(jXkDTQIg(%Svy
zdVFT1Kd2J<5rAP*>lO>IhVe{P?!I<DE8Xw*J%v=<qNn0%2#BPL|DGpk%$%hxs|q^a
z$-7$C<tm*YC`a`UR6>FTI!Bx($u<RgO#Ns!2edd?5kf1rduvK>O!0R2m!E5^py4Fz
z%i94|F)srN{N|jbnOtJk-^t3Mpo4g+<CJQLxAr=h%QTlhz|mTD#@=Q;@R90z(`G--
z3B*q+=;&*4!Nk%mHk%nxzrLvN|DG?04+9Jqz)TMStPJ@M@cd$}>)5JeZ4adRo6P<o
zsP)sJ3bbV(W#{U(u6z1Z22|J4e%np2JS!)|o$1?xNk4$z(Vv21m#({%`v4CU%cx?K
z1>mQNLU^W^?k2OP<O1<8TnGR`-O2hVivz|fA25Os?}L{MT>)_C0xDmNNbzrz&4_OE
z9*l^3><J<-kExp6g9Yy_BAn$O|CrqZ6e^o8KW6Ro9e@XgXWehPFuyDa*uC19fT1L5
zFA!pmU1SY&Bi$M8htgJHpbZEt20&SZ1o~D6Ak3=>bj6lCE4r>O5DU26GX3{wt!Jc4
z+vZ@bao?E*B~y^wwJ>8vUjK}-?FT9y@F=B$?uD>R=2@jp0UsgE^}5Iez)ko5_Fm}3
zBBZR$WD3HV8VQjJ9E(A|1B&x+M$k<gF(7-Ug@=@{TGy><!;~rG_T0`5Xy0kyp}Rvg
zDjDYm+Ia*M3eUinXPRm1z%xfU9i~9tau+TH2H^p`FJm<KIZ!KL%}mXrAu1{ggRl)2
zCw)jWQRJ0IpuoHuq`OmGkP`)!!f|{mHS06YA+g2g=zaSvXqfRk+!iP-HsQE1sta+n
zR4d`4e9?qd?No&zv=8(M(n+Y`?d4KM5COW+ivmO;E<TV709kT?r!NX=z8MD%_-GE>
z$&0>|fIX?<-A-D9QvMgId8ML<Ya)UhXgbV(Xt|`aKiC0G=DAGk-o^l6<8=d7#{j#Z
z?`|Zws8smi`x}@kPe@SR=#0|CCTU+!C{?pt2V{uK^Th(Wdp(NUD?9LJAJp-m${2Y*
z(B@#*nK?ORx_Q)(qZ)9;HD;484HJ9+^oz5H3rCI5Rq@Tu61Qefhs}dBah<u)uidr_
zZ^Us=$Bd%wT4fk}cy%IR=ub=ld;@G=QQDPC0;9@_6V3pN5^_K#DUYcNP2W|Rt^%ZK
zTS@__3)#YPyh<CTmwJ9LrF+J_;NY8F1su4=79LDprCT@9n5fkTupGqV2P0&B=R}o@
z$>(2#IaW+ZBH+VC_aw*mQ(cf6qZ1Thdp@Y|uOAFCn7NJL$b4b^RaK^~0bAUfV-i#%
z&<|(IL81?SeaXo<pudYf2y^ln8g~cyyGurxu-ZrtzxqnqSz_oqt+1fwFBIsLR_lS*
z#Q$E=Yfj(*CqWESrT`i#<%8V9GKn;RCr_p(0=lc6c{`vAmI1E47^ab$5xbupN2vj{
zi0B9CFQd+D-eVQCkM5v8w~ky0EVQa!%>-l=y0JB6V5k1@%RlL$$)F{i64LB-A1NA%
z2TcEfgfo?;l^&T^)s1#;yHKfD{!ZR*%y#e$6tH`H0O!94UGg((N<k@ZVET{8v&kr+
zGx2ik1OOeQot>RVnY!7ixb;P|yq36G5NGZ_Alqm9{g@KWJJlfX=QMI_s}^;28b=1n
zF$N0lv{|D+sTm%G&IC2q2q?EiXPLCX4!(e1Z%N_<C6K5p11EOFJ_tgsg2*==nfD+^
zN@Sx@s1lc<JaU<J{YDAMqKc%ksnpk?Ns5L7Uu5ZG`V??Y!sC{rGN7%eZ4ox7zP&!f
zI3K6E`A*IS(h3AfmFJTT0Es8!m6qP-lNd~4rW;_-jBY>#vv(Ut+c7pld#|ua)XOMV
zu_}JZ@H~_TWVDi?wa;uet*lPQPJivpXZT`ZV^TH^TX+hCDW5YyRrF|mkl)<d1(Xe$
zlP|wE^8-oB3Lr!4=nRy}wo8|{YKH&oS^&#x<z*nvD%yjLtBnW6s<oo5ZZ3u`Bgk8%
z;5ycOg!}#C<a@`l0;Bl}!z*Xwu$f{o00dAqUJio`e?Mr$btDKdT7=bhf8}h}x=k2w
zW-<1h8A?7&TTEaSsP!hbzlusZ2oLDik6Qvw>)(0EW%tYHN|?QJHZz^=`bo@^+;o!X
z`Y;km6uCe-YzPG~kLV!h00)&Jc=IKv?V0?44oEzd2JkZK*ZR@$N-#bnV80sBP#RyB
z+m?Gey#YkG7@I++>duRLA3R6z=wXwBDd2etNlA7Y+on1q;JJ-JTWrpxoru1<sDKOI
zR0GGD5k-XYo&_B76W&6jh0}D{+4Tqh{*Am)a|rWBrXKg&X^IRi7!<>Sy8!}BGp~c5
zs&Ej%KJw&6Iqe|n*-LTfugyguq&P3i{mT77wF4Thz$9?##(aYMegrdw7xc7j^?~!<
zlxa`PR(XMr3#3OZkNlG@BcQ`}lmKe*%Ib&E5af9``E0FnHB%~_md5wVBseTBSp!b;
z7G%rROo>HhKul~bgXcta_DlZYU$xHfy}oZTfv}+~SqvZg4RO{woo~kn101K^J>cVp
zL)-MrbdK87LId7{@L6Hf?jok~3qjeB$jr)WRRNuxF>}EBia-C^F}L<=e-0S?#YFuu
z`a%)IA*UHYEuWpKX_a69d!;bYFaEd^P6Ofw)E&r&V_88<NSP6k%|yd1rnZKLpEiLg
zW{b%;$XW-4!Y831Pkh>51&DM5t6-(zA>euMOqeHI2?lt|*gO~sr~2O7^5t7Eu2Llw
zezjyQ6Hl|fyp1;m=t&D^o`XTDZRHDK@>i9WPhUqD@pv*v^vyxQ9zCI;W9Hf>3_0(C
zUZ#v!{z(c^?iAY)XvtQB%nU(Gwli^YL5VA|&~Q%p#;5GTUjxF9su990ye08KRd@($
zm`x9$2zEgra`II#=4d?sqc(y@suha>yxzRpWk_^wB*SE#xi;eU`6%}rrqrKTYE^4H
z0P|iP&At=MW5$%~g-_SZA-4|H@4R%62K=CwKyy9h&G)+<pU0O1$zbLmf!_C4@j+YU
zH4pZvL#fjz6{em}GJ!G^kU#l1vubsY!5pc_K-^7oy}0@D$Xt`S`M;|yOhrNMGAv?m
zUZ64m9d!|52b}|VWvJDIkdgJFx8H(;cG5dZ*aip}COdOr#jrvgu=U%D9fuQjnH8+y
z5pZ>F8R#)Q_wnisLUriQ#&Y2TpK9RK*1f&GY0%&F5uUUHp;ykKGtmqv2v9Mg|I~wF
zd)NF09_68^=-_=YHWu&K;uj5nzRf<w!eI*-au*t?`%oWETmK2id1fRqSC_zI<-HCi
zt|G;}$DM}%-c`k+4>-ks1L)_5z(Ub+%`~uh$@-7a)!Esv$81d%HUD!PQQMbeGk;!V
z151|&o2k*8**np(nmI3Zijs)I|9*K1U-Qq+j~Hw7{||Q_{pa}q(>KK{(O@Cg^tb}-
zqNun`WLUJwIqim<m=qQY8w*=SvT(Ctp?;a9@#iJ&25n=xv2zC(mUK&lRoxq@PwP;Y
zhsc|H;2{-}x0Q9Cyd~-^v_->Xgy|{F6>wlHN3BTiuJaNu|3qE*tYVD00V_T-&dtJm
zc9%Z@rMb6KXKkKy6I^A`(%pTb4m`|)g#|p+BG!TQ=VNupLnJm9j*HPjmq&Uz@eLQx
z38E6;A`e!K;oRR|=`nW(+YOF`8#0+6!4oo=!qLHIYQ&6<gY84i!E-VWKHoe0e|LY^
z|9H*$|Mk$OAR3<jC6QvPh2bDB<=w`J!1a^Qrft1OO^kv?wS!Gtu+1uIS^J_)A!5Fq
zDr_U_QaWF*4r@@5COeMOZ^EWU=nA@i|5+wCjQ;!1t#-wm7#$MNR4Pigv?HNrzx5`K
zEg)kOW_g*A_(Ag6zlZ&>e7Vi)S{_V!YMtTVuKANoC)mu`50;>Wd6PJ7gc%Tt^Ha5z
zS!F&&hq<wdA8wim$VOH2GN_5Z1*l1gkT+F(S=a@IIxKnD3U*7RS%`2K_PkWC2G{fE
z1oNppV0-$PP+NK!xAOjeG0I%zPANk@(KlziHY@^-O0c19)=>C<Vx`)Y{}Z_dQODMt
za7yv5S>6*+p;bml7-jp@Jel8R>_1~}JM@gjlTz)wN3ZUokmvX9h?VHn_*Mg*M$LcE
z$HH-pHLwyLKTn>P#tL~c8gt7@-h0z>q>KM?tm37=X8T&)<6Cd>yHFJO<AYJ<wW(GS
z+)l>g2S?af4+-EGCD@FGFw~I9#DCm`-3}f8=a{ft%pa^t?Te4jSts7n;5ear>2L+_
zp=kWEm`f)Fr7r~@XH%5m|8|uBI^wI~tH{pNHxK{w>5rQ?@87)CrRTJ?lOy3A;{+Mr
zni?4ipc4H6Nv$nfrD1V;=6NAdIuUoW?f3COZt{@q_C1b@u{26}e@l2`Gjl+ZN!Xf|
zL)V{in&sam7Mo{bJFX=Z)btO!()8$E&)*+}|9PcD<hka?;NMj(E;NonyKBy9d#7bi
zfnG!A5!!xFWItS=Q8B?SUJ98G%nQeBP!8;^*?(fDopwLj{bG@aS7P(3vPmoPQpkaw
zgv4fTnleU8*_Qpxw%@vhQEsR)zmH5hy%yh7jM(xbTdP$(tl6p)T!DH=9^C!-sqlCp
zvLmO6jbmza;Tes&dt08+tRsJ`G2N!xFVdE?aMdUSdgCD3#)ny(dgmoaT>n_!et!4x
z%=D3M=AAK-cXiuTptZ#{dc*)3pTEF2;O<k_ruohIC$y@Wiq<0sgNP#~I&w09V`*DH
z_HV*!>M);b!@}~nF$E0#%pa>_Da_lFzy-8q%inq-GBF3?`1ko@jf3fFcAuE3_A{%d
zT?(0Ud!@nLGjjdRn)Hmth*bVI)f~a=(8@Qlaj<VE*Gbo(?y}pjdoCVWZ9I^*DVCav
z+#Sxnd$5C>;^CQgm9RXhyNe0)NGv?@kpb&aH4~hR#jSt8NQf<wnz=JV&);4=vZdk{
z$<O?{?T<_UtG#!DhO&M8hHWaep}30@Dp4vSyX-5)Eupdt*(KS<*iC~mC`w9nM`Sxm
z+00;MH+I7$QFfCUV>?I;V>1|Im@zZ&HPik7ulswyZ>{H9-}k)ldfv6ZYiTvEIXB07
zoX7Dyf5&m2*JZ+48g;Oou*Cnj*6%&%$;nkSudl>Z?x`U_3GcT7X(Qm0R{*kfz$K-`
z&(kCJPm%vw0Rp_)_)j!Z?B6LHbEDP-On9>S5L?{GEEQbi_8Mbhf$h|17e!294M1vv
zM%?}eL%H*1h3q_Z55MSxSHhnVn&k<Sl^K&B-WU=g-LfllTce~{KW}2RlqDUw^Z8#Q
z=YPRa|F<+T4EU+k3lHfTA%XZk-+9CT6WbY?>tql<k$XaH^tWbY_*JOq(TrfON0{2!
z7oR=&mN&)seFa=*R!sXw_PSg*XkxTnU~%>5)))MjCilaCVm|*12FWvt8k=}qQyV9w
zGk{U%NCWfV7;}rXt<eu;4t4}5lbi6R>mdts_;Fhhf@r_!vJuJ^5$i1+Mi{^#C2a{=
z)D0&~P_qN<W5jLRaLEGCR4Rlhjzc#wjS<fFvP)6<y3rBMDkp4E#V$EGX>R?OZv#v9
z8zN@Arl^P$w&<dy`>WyS>+1*B*e~a(+9=uayR@bKORff>NeP~E=W_u!D|0dc&#b6t
zmi%PJk`u{UFjCqsXaO#|Dq?bNWBg4xO9a2?fcjZ(`>F>3KZOonWBnv&;L8LTJ~l*H
z(jH}yWP@IY@En;3deEMJobFc_T-~cCZY8YZaR5-9y81~ncTu~_-t)Y!Tm%4XQ2R9u
z?Fh6xs_Cr3SDw#dzj85LMxE9zRzWCMr!~vm<rR1P#YK$z42CB@54lhYi(oe~c<!C`
z5*Ps+ff-R6t&gw*ckr**n$akD|H5R59qQ0sU9JFbRW-`c7>kJ?WLdmZVRAD{w~}E)
zOUFaAZbvTqSv(r?$A83EXKkxDvWMZG<<iTVs%JlOhZ94yz&2<R?Z%MbYIfS+_FjBX
zo)a4Mg3w~f%CQzaoJmYmJ~YrHjr6l=c3wP>4T0D-J2@j6BM(VD@pvdn!;_;mM8ZKg
zS%F|G`4_pBT(0P(o9zU9r;Cgrt+6i{yYs}11>m#2hnzU)zdNcR;?C!iji$*pb}fGd
zSC$1_8X0(CZzD>5^Cs=NMcHQSjuXJjKrdcW4a5Ox&Bf~SA7F&33iPQ$xF?O?Df{S)
z#PYdhQyY~4%J!e4ZBv=IPX?SprUR|TtmwY?W%ina$=2}l1&4uFFZOCQou=M%ia;FJ
z0C38~i<bK^Vhr@wkSke;&RynulHqh)r>uv?eLeD5&t&W&iRC2RV&;OJHEqdLlsDKj
z=`oN<;thZJfYUnU2)APS$D!vuL;HU~UnsCvhzQapI(P+M$3T=L3ow%0_eB7hmxzDM
z{hv?Xb30{N7dZ@jX%L{*dW3rmyP<q)!k~n~Ca03$lb`C~pg$hXI22SOoGj-lsIxj>
zqx34Kd98e3=BM=HDK^Ot)0@(26EG*JAW;IDtOELj+m4(3!C*0>1i}i<2!!NE;I6^Q
zKMJ^C@M&e|2@s7D+V=KYhKBj|A>eLbLRS!>B*4)iWTvjrzTFBW-8-jF^D)ojje9Wg
z$<8p!^)X+^XawUSSq8ry#=P?7tartgPwI#fOE}aH+(14p*j+)4j3{X8t9bIem)yMd
z3E1*A)*!h;rzhMsC6GRcpU)~;!UVnzA4qwQU|P+03e7?W`FJEYW{=y~{f+ivgs7yE
zik~ZRT-VBkRvF<MDB9=(YD`_5+oqd@G@u%vf+p`Te$ad5*Zh<^b(+DBOdfW)SxcRo
z$Qg@p!#yLMeN!yvx-z`5eK5-Vt;26|9s`3`>FPgCry2Ma7zTXt8}TB`|FbS@;u`GN
zGXhc98ea3W+WH>3k~ey{0OReAm6CQ1lfZYX)<(^k(_plHv<7u}Ug%#v-@1%t%Aa;&
zUI({T85V!bZ3H2jY{ooiY9;q*@JI)?pgg#F6wmmRmgWOneMVTffuJl=N&Xd&=u4-Q
z!tc`R9^T`60pH*sfUY6yIeCjEIPIbONgw=YB+|A48I6d_XJ9V?@2Lc?`-cFLs2dTq
zUvvIYaCi!yM+5mvS{!#YRz5g8H^meDzLc@^-96m$F`8QaJBj1S8q4_;d-{P;6S&0!
zv;~Vyfq~6`)1q?4v}z%hso*KHm-IdJ<Pl4Xm<+J&lt+&s<LwByR}cFw3gV?n`s?@b
zR<=$Dw0r799B9o5YMOy?R!bWBB7RSr!Pi5~yEL+=7(aIA2;jRo#F9}UE^804tZi6A
zkS_HLN7E)&$s6Q%I!Q1eaQv5~%CkAQSmcU$H|ttY8p2cT<8iqn!<vPoe1jWYGLd1?
zq&CDD6V3jdtnKgxI>Uzn<kqVv_opP!5se=FtnhM>h+gfeWDI;r2O&j4O)>OYL_CoW
zt)E$mR}QVAO?;MP`hudEb($>76V1R-d|tbAsUPdBOu9j5=EjfaCX9?LGh&moJ4W*u
zAh291yZr(t$y<EcMeDi|-$X<0v;}HFJ&MLmGib{U+Z@jwL!ZTL#o(Z8v7lk)fZ*!w
z*Q%NtS1Cr}SFpSM$mM=6`O^BcQCt{_q{SAx?pqeXW=h?$vgN9rFU@V==`dHvMaSv7
zX8m7Bc=x1-jtLM=54YC+&B=6zfGh!UxxGK|@e%#0FJ0jGI-u&YkDsEjYnJzlQ0&ec
zZ(i;H1jifJx(=7$LFNGlHXAT56}ciF&EN|;bZWxc#~geWOd_Y@6D(?CH}2E^BKzYV
z@Jriak=zbq_JDwHlkGW`^-B<)rAD$OQd`CCHv!!P`ue=Yzu4tAD`ebYw6y*Kt$;i&
zh~r6LuC)7LiD6Adf7jG5q$@JO$vHYguQVbu1>ayF=1ptmC-KDR8GAC)<vex63L$|Y
z*;0^(+89i9#ApIO#4CxzA|Dd$=GijP;QnRy)-_feISAjwIvgEN>nDS}a-qu?DtS%a
z-wC(`{Y^0kTJ6<C&DFIYhyBy><+6)$hA~t_P3!Tff8PJ>MeY=vXdF|g?fYj>QNaa<
z>wG<Wz6I>o3zhee18m3639xi-SLJL#lqUazCJKKx1eL)k{hU})CgaKqrNxo?@pyVr
z*8q7Ro`f_<fHWNTvu4Pae(H+cimE#R5mA}NoRa$9!=&4VjOQ8csKefAG;#ty9odXz
zzl{KcFVbo=JVZ;`m<S*6SOy6Qi0m+!Z}7hB@ZSj7`ef%$PGtn8is+bQYfu3ie>Az%
zzLf2hqI|Gy5JDGJCxI>}m*qw)pfKh2xGHuZxn}$WLB$4l*qg_2+<*qc=r%?-oHbyL
zm~U5!&k<JkpdxlNIh*{G99^S5%DR_Qdgz`?ZOvbY9at+}Q#cKWYUUt$VJ-yaT|wTQ
z>}%)Pjn$gnYO2<)V-PZAtw0rHJnJe?@Ru$pY{y$<ZmTQo){l;z^LI78KGwka852^X
zZ8StY!dg>|*3v6TcKva@i}i^tcQ0wPSCP5oGMTODq|sQ&csLhAFLr4vFXkFi3>Y+v
zx!v4<_xVFT&7pJ%$uMcimSszmw`l1I5z2MPY<|mNs4eb+_^pztgFdj%Io1?oJ&?Y$
z;a-yS5RWhq#yz?H3HsQ;!tMj0A<P5RFcA}`l1p4aGci?WkIpSNDo-X@xvp%$m~)y?
zb}4GDXwttlfT(J;x3-P9ENMM6Mr2jLiH4)>8xZQlwN9D>CB;{w`G@+5*CCbl#A_Io
zQM|dmK6@Z4qFWX^W@{BX;d0a9{zPt}D3{H<CFZ&sL=73A`DBhTRfY=3yl_)z#RWP%
zu#2~tSB8<u)5^@SNYB&RUddzN<^1kN*Q^pLqV5IMyaoVxp8&w)<7-=LvyFGAlKl;S
zKBYWZm|d*@_2Vq-$0mSjJ0>Rf0Dj>D{oD)ydr1C97*r+kLFD+s`?8fkSDKQB2p_#<
zw!A}_^K<^fD&DJob1J;>%WW-SZ8<)4)W@$*Vmvr<@w3<3UtU{F743Y3*PqmX9iBp-
zumnXmKydx^!S;Ehnx8AM^}cx*bsE&(U?10(%Z~z15IpUoXWd-;?Mp{lU<%o@kAW+o
zNB1|;37CPkt<zg$*9CdLJH@5P5F3)^ygVY=hGYXTGPIK!yQ{e*ft2a<=qb*<Id(4s
zdXqLsF7kn+Y&jK*eLQ=bPveHfOXOU<(6Dq7T!YFe0~|~NZ;Wh4h?cISm3jrUZa4B4
zxWU#EAWoJmvn(YxCzC(}cfkP`XYa0$)BC(kQ($4^=azYJh81@B)bPO2CC5(2NyZ+A
zsSlKEH)xIk({|y-?Cnc?N{Dutrf*kWxg(5uysc5izhV*VyS4f<w#3>si?~i2U2pzP
z;INl|qjuKOzk}^KgTI4pUjXBiiyo-F<?(tx^#l8s>xHGbEn*Lq|6Tb%j>!9K9x@KA
zU6<q5<D1d2!9q7Lz<9sB>ATKP86d0mG5qkSXY?r-@%Ta-T=66il;4a1U()TP&zHiZ
z_(;yk2zC`4M|KwM{_UWXd%%BHLvj5e-54tIob|ZZKcTRptKUlw8xGGbrl@wE<n@*H
z8EDSJiwu&*hNpM+YfF0{;NFk1a4(9X4`xKr`Loep1%~(j*$mZ-j694D2gud)f08R0
z{Tgga@I2*x2E*u|_gSP220?V9@kDn&N8|gM-`%zV-THZvU5l1<+I5T^Sw`x~oQQvR
zg0g8gpl<BJhajftK?^~6bwqSd_|hgm{NEscAAll|Jp>t`2ixkOTYQd>M~va=b_C}j
zA`|H<7sz|D2QZMYF%U0sJNXM<1wgEpwHg%_R8)Ax*?B@fqENHz8O5W3PLO>o*-8IF
zcIlM8^8!{Hae?-ir<ed=$u8q4l>PxdWT8!T<-$e27<WM;LI(dCLDJkbA-Usi?GIDC
z$ts!KK6&lgT5(9UM$GRSr4~J8emtCfYn{(LFo#?QWM*O#gfzG49UjXuK>nuu>~5K5
zm&q=&eIXiYXKDp+E;7S**6Qa)1bi;J8fHRUCQAse-N`x6IuX#92JodFxzIK*D88_%
zYC#P^%-Q}E9ADG1U%xz)KL)ynbA<GmUsRmdrTDOkR{#>*lyM!hu&yy=9xe=|VdBBR
z;y#Ow{lQQ9YXp53x{c2*XE<u@hD^jL9-uod{ze@tKl!l{l^N>^JU<@1{y%4!imxnw
zg5ILBfMkyueqTr~{r&cTSsE}7S!b3d?Tu}&%5N8W)Ay2}B7#4NZ)*<a%`;Y4wO_U|
z-Ubu^s)d>WBqS4GmN8Z4FjfU@UxiqqlHf$1Iq)oA2H|8eZ)IzA9g|=GcGw_fbUVHs
z>1Bh?F{GD}AK>l(X;c4~paV^&IRH<O09W7z-f93@B-JXPmgQ`A9Txj-1$6+1=4x2G
zR{g9tP^Wdo&_^>Evj4Uu0O(u{ttk#G!`szqlc!y>Fnl9o|EBe-HdyB4jEIqEgr3ae
zWT%zk^$f<-e{y-F^VV{8KdaF_{e`7ri>VomlHY^kdg{Vsd_e8bYVEFm9EfstY!NTl
z-MG&9cWnSV*k7L!3~h4MO09e=PEfKCDz=aeouw=P7OrGe1yXHz6XWR!Zv>>rk0JYz
z9$6(580Iq%SqE6aKb<BA=H;z7PqnBC2y+As$rrywh9ky{3{}4$=82Tm28g8J<YEvW
zG2-G(ybJz~V94?`eo9G>Iir?WO1ka(--$c77yn8u`Z_piERV@pJ0pj0<`C|Rd2ma{
zaQrm+DdQ!pjp3t^i?H@P<}`IY#a7#KWw;%2!VYwMK95(7=A(IW(aL@#UiPkF!&O>x
zA43A~f%;WjiuXgp8($GXj+nd%Pug?*62BL31H<I2Y~ynXlN``DV!9qO8p7xar03%g
zp3a5-NlX1yz=JvyKh4u&l>WP?ABHzpVverLAf1sLVIB}%24m4axC@MQ%?jUoH#Y^c
zkdt#UXo%QaTd72*+ewOQ|E6kMNRcqk6kpO9o)|;VL2lfV{*>cI#<_e`6U#1kbud5P
z^RKf2uB?t{1eN04@5hCk#@FiLr7q`MW4Hsup6BM&1I}5y1}n6W!V1_l)>_2yHI_9p
zm&YRq_u5rHN*7dzUaVKf=fVz$%x5qpm~-HsYp~%@yTLI5POO`sw=PVq_c7&n0GU+m
z9T`WK2{^}7tfH-_$fXvDlK5th0!yov9XfNM-ClBG>dohS<Q#y?G{mpqMT5%(S6a#Z
zg7n635Tk8;F$xVHv@8I^%-Bt*$M5Xna~s<WWGIZ#+7lQjTJw5PR|8TGJ`iu0?req{
z!ed<z->u)&&-)hLKENL_*39@wUgIWe%5TNn$^^0I!8uSOc&M@@0k?(s8xHT)CXYzE
z^YN89Jr@l_N7Ie98k<qM8l|q+S;pX%XC5xSfF5V?(Lmc-Jpj`8$AoO$p-BqTbgRv<
z4f72$!hBdp;A^DZcr}F~&yAn5naQBWV*qqWJ-*^{cX2i&qFunKCxT8{WZ}z@_8do<
z>Ys0#iw%uRUBBN&5ntEX;D9O3{FjY*|HV&1b@g+au*sFg#o{Gkxu~(QYi0X_7uM=>
zEY4;=Z~+&RqwNWqI;2B*SFNF+d5Z4Kj%B~GY9Q~*w#Ih*W?KX3OkG|SCc4D%w!z(*
z6<efHNt0ua1Is04dELRHg$VZ-Uw63)tJG~~)XmlDA@yt;2zLUx)9=P|?3Qh$)W4#N
zmRc_9q2)I2rzi_+HP~x9gfqo}!$JECuYs5qt1Y5%P(^epa+8O#$em%JzAZ^Bz2<Me
zeSqDam+o~!`q=@De&B93RUaTrw^<(G%{wMMD{s38c$j`qK*jb?aCDtYd5ucCX5GtS
zIW32kEf~HSPq&G;a^>7fxlWhB3n5TvJb4c^yE!{qV4;1!ov#}o_@t<={;;*G3SaOM
zkAq`?Wem7tf*dWd%;Hal++X-6Vq_{7_<0|10hwv;hyO2I3jYNu=>ND0UY`ANK2lG+
zOKh8EE)jI_E#aL%a_Ocs_*+OxHKzzzFOTxgguWohrx~;!V%pJad`YjkLFoWLkbDmd
zqEP|AnZ~jXO!ne;r5m)0N7gckKw?9+kYH~FxL(>sF+L>S0KlX2NN!SomAvdb&xZ-P
zF;>J_<HH<Sj6+Dvfx}M7fj598MXe0*987c%)6s&{z;E(14k3qOiO56^?sY8~K!+GY
zg1mAUDZYTsr~sXBq;t7?k*uq;#`WgM(1|^$p((36VnzF{S{2ut%B-d(OsA}%o2|>5
z6MCLO7~0SyZ+$zBBY(rOaGuG)M3u;&t>Cdi)tmq6jh_ElrT^Qun^+7Ge!z!S@psa-
z#7KZhTf`w3`y78Ksv@PGG<epSn7SWW2TEhlL$qRy@`f=#X(}?8LENu?XVdG}11bYm
zo63_(HM_s_;z22;e^mAJ@}hka)F(02X(VQk@*!@;7>jGzhA>GxLO_MZXNtXwFZ=BS
zQz#m8K4_y?^y_uXeq<Zh6Worp)O=~ULHp^$YR3x|;$D0MX^CV(L<6CtRir(H`@BOJ
zgKvS9KE#YROV+~I;gykAb{x=@!$sJY+6KRvkz60E5esgY*o)%JWjUM@OGFfev4KV;
zYl}n@8b~(wKH`7MEi69n%Y{2PtnhmE07{nT;8FJ4D8t_4%d9}!mLfm!>@(2F=(fhr
zm0of`xwx<0s>INFEXskm5z03uKjEC~j1S2Ic0b&}i{x=+y1l*g&)d9Oe+q}CQ~K~?
zHp#xhlON;l0K%P#6XSkWE+^1RbBEAgkt6U8h<qg4#wlHgmsT!s5(y)utJpzGWcz<T
zy3Z}lXYV^wAvB@4P|QX|gn&mBa6Bw4@c?FS{<Os<-p)r1tl~c%{rs=o()@p6>A>y^
zpUI>wp0{sTc#V<_?8lWrw2Pvebt8siOFnAbMC+42CYMA-Jgh7+m9)1iHmu_!>EPa|
z@(4%pY=w}6aRV~lhEuz6(am5luxBBpDH0wZ8vBs>DI&Ca&cCwGgDTY6Y%SA_br?X3
z**0Uii~HbSS?4h*H+K*u5|$^vd=74EhbpQO?Vm41^Z|RT^J6s#cq0)H{cc9My?$mF
zI)t7pyH=(?k8P^CkBrz{w3<VVXtB#KqBgs>V`eHPQ&G))e7n7z@U$qhi%dvomNGQ$
zal@}&Byf*wBO=mj4=0^-@J+imGFrBXFb2HPZU-57JJz0L{Svu`bzV&1Tmz*ea2RTJ
z(%hRxX^#01W^?dLg(=_>vGwFVsBwG%49N{WMv@JEhvc#Kl`HAyT+`*dfBpY3DEhaV
z_&crh9WF=q^pD>j<~acN2arUlu`Ff30|F6iSP_Fp9u%Bi!IOW^{hf;dc0ox5M6zA8
zjWdifT8i+pC)tbL{_(fZ0q)a=vu#Gh3BWFbGv*AOmydU|Y-#-h&|i{zGOl!K;O>43
z7#VLPY3a)RLdI`4a&^cTviJB|qVovUy^5N(@R@04acNA&28FOJA*ve8L|NET8Kb;%
z%xeE3!TSP6>efaGMw?+$-TQh7tr5sFvXGrfS0FbLfz`>rHCE_;iA2c)4t4@Fq?+7d
ztL?D9*KdJ}H`1uPpofhT89G4GQm1i-a6wRDv$Y}f_RB>QvJ(+sz1933PB<Pa`$L(x
zEr)FjxkH=bChrSvDX!~#u?+6Xkd%Am=QHQoO87~<N9Mver~_>_O?uT3&A7we)`pZc
zp&5g`^w!{DQt9x6Uw=7IS)yIn&-ndp;cVa@L{1}Z?VZ-oV9yH!`=|td+2+EC+u&;{
z%7<iaormwvKk<Cr$kD{?ncNN>4KW7{6#&5<klCR22dkguDi+iRS{2}&mi_!H*xR?i
z`mOY26{B(CJ-OsO{Cq*OoT~v8o59sp%$^GX;LGI{C+oyeAK24NiCRFufUHf`;SsEY
zxW~`68;&v(gu<4lf#6E)nw(L-`}!x|hLaW__ec$>fZb%99qo{^D+PAv4e!0-F)uE0
z8wC<6H660!B>~nj_Qda3)N4Hh4pg{FoJTP>eK1o;7?GHIFl}5c;uu#JH)Ad#&n2UT
z$h2uiNhh8J|4JF%`d6&=?^7)Q%^ivdn(pS{SnkOYHNiFR2>G}mW>gmCIgzV<u$GtH
zy06QnPp<eOJP>BcxXL)gVE;TT)LDQ&+W0milJ?;tg9{|sg6U&^yr%vukGcHY+5cB6
znafGN&B3?8m#eFXZDGjzs^QAkI__9vz?RsC^%|Q(TYAxw)0nSOd#(%18Q4yN;g=p;
z0hZ0jm-r+G;y>09aRZFeNp7BAThGEvBHL|I-5tEe^$2vi?6oq!6G;G1PcCUAsD*T9
z@FiL%7dm+OE3%W&QHhN2(Kkdz+yp--e^rFX=Og_rC}J6g(Nyw^g&oCZl8vVxFjV7q
zSH8qOrcjT!_L4Qq|8|OKRMb<{Gz1B#EB9h-nIa`ElQ}PdL(JF5+|+*WHF|IZ(fICu
zm9kuiMP00H1CnH;@+N#~pO6lZd8q~i2P+y#*H|U73$*OhbG(Gi{YxWh23W<w=NXK~
z*ah&X*K5vI@itaIZ{&n;heSlb;EyOxkc4gR!Z7+sD$vBo4UxExoJ%v125pYL(~fLU
zO#MVf4pNu$nv_kD#$f^{d<NiSLP1N(oX+@>dJ*Df$+A_0wPBpgcRd`3f$b}?N?&vt
z)0@j}UQ_WOuUQ$t?7GQFvdy6vpy4B>(Lce0R+Wa%8`Yh5U?NMFx-P00I)#F53~Srb
z>EEx&86fFK>q@*b5$x^bthca@LAj<{<Feq_4+|Zl9{|ryB6=D&QsBcHl)TO!*Rf`q
z9(H9qnzn2&rr*t|WLDr=2C#3EJtO**yj@L=2&y6NS@TjQYO|eJpK@!AZmieDsJ5WW
z4hK!zrx^(Nap|ZY0%<v4Dsy|sIVLK}T<jh0AtR4`PmsPfz>QD3GPj*W?(sAscM0mR
z_g6N5tOu=`E|duBEFtyIQh<N16X)l99yY}XKzhDpEg5J~;Jxh#1IfkF>gjhmS!CR7
zwxX*MDd--U6=Fz#u^rfx?Pkg{!m63l<D=nU+YPIWo6>UZVg5ZHxRQX)j1UzUpur!F
zl)Or0C&W2osK&g9)pCsF0BRzlU1!6hdrG1<DpWvQax-PB6zHrq-m?L+)Yzd26?47`
zyT@&1se0<PYiUz`ZNdONeB2n0I!g@MoHh-ppnvZnr-aBt?^y_RHR)2)oA<aA>EF|l
zDwH7%lbp3+P=#c)0=vcj_qRTr?WBw0tt{uA?B(>Ix&Vy$T<Q3&vH2qrGEa>W6d&>H
zV(wN{p}U<ASnE61vc3#iG-bSLcgLIU%Jwv<FVdy+B{jQ%`ybtNK=l;QIA;cVgI5K-
z9FotL8AABl;n!sv-U3t%r@;{uK-+4&Oq`kTMQ0jm6xG{-N4b>@3BNei;rIPlWrweg
zOS%sHqL9O#G5c8S_zOM$tD4cW#?dJK9roL-sO+7CK^E+@!`FKJ*i{eAQ|RCCImUpm
zENcMD8B`pX@K+?+Q`x@&XvkL_cLE(~$ZCwAalQ<(Nr}$#SCrHWm*W@Q_@L-owQj?~
zlQ}J8E*P%@g1k`1@8soa@U0YAT-~uZtP6ji4r<Df)kDbd$mVU-Nab~}A-y|8)5)c$
zbD6wTK_d-TqdkhvX(9K4c%TN4)7%8-I6zRuidx|Px4`uVj3ckEm$f)|``gnh{S1Ep
zQ8REg8J&51@aKg`V>0-V%-a(@j{mme%IAvvpbFHIn7uYAc>AVA)&c?QlY(52`hEB(
zs{N)SZ?)vM{J;B(;WT5Q$!Q-DV)|_0aa(A(bJ<tx$e25qw{8C<{OH+6;ydA_n73}?
z;P3lmlTZma)OH*{<q_DgS#j9rvcPWLmk%%AFmpRH`{U``Hffn&;difuA05#acG0J{
zFXa-));u71BCCiUH9!W>=MsUl`lxvuRs;~P9XEUR-{2=x$-FNhrvLi<LsJ1O;MBb+
zzpNyNb8^Bf0c>z^<LZ|O+1n!D{;dBnop@v9)P&oF0@nKB*h5XM)x-IR<}uG7y4r)*
zTT`EkVb3k^p13t}#7)~xep0I8kMk%R$DwB1!nOtDr`;(r22Ms!dq#zC@477<d2plq
z4Gm=Z6gP?ObL5QkMe=X_5g0NibF$=a<W-sUlr%k)56RzrPJXoV6DCcw9tt{vDJJL3
zqONQhG-L<nvPt)$H{0GDQM+U01V>DbM)uc!xQ9`A{j^t3z$>Zu35pMQIDhN7#ZM{6
zV_Ri1{Q8n%yO*6Ngs`?)PpthzD3W4wqt2thD!YD7tv{}@{%&ICOKamzKWZZhe_heU
z;#;voac>fzok^ptp$W{&vIz8jKG~0Aaj?!~Te;-Xi&C}}7B-=4U9R?OtI(x$!F^97
zwE0a3{Gx(P|6=Qv?+g1P1(w@As{XD=Om(E)s(2$+_iW)&Na9u5l)jsH;7x`mIj#zk
z{BYY8c9+qQLSl~JfP-U#6vj7E*FMItV$mY%LvkKQILAJp-1LqZ@W*RC6N}Dbb6I1H
zZ%FemMM^rFsTeKoqo^laYQ8rumCasgnaebe^b@nr1-H-k#%&A99^7(x!aDh(^-44+
zPIrm`?;lHe)Mhp?f`T0HXEv&l_2P#tOw7L&ntk(Ll6w7YQ{(kuVNlbNQa%XZi05cw
zw&G@nks4yE$-B->rm<Mfv0s!Jl$@8Ie8bCHH_ZADS9Ser{qGy=FDGWES{v8-g;=lp
zewE8tobG?s?;X!?FGx`seO94YzJ1xh170rnv?j<s&;Qp;J(HCyblH}Z&t*i=Y0CWb
z!su;ZXed6t{_)qxg4?~!Cwjcc-~#aiP7*&WM-dd8`l(7N%US7X;6!Dd3WK@Nu)R9e
zkV1=VojXuZ_d*>72N*-zzoDJLC?9--y4c~1kjuoej)KdPZuO*^(ctzXo36s*Rzp})
zU~c%?@?Db~J_Pi^$@P^KC^-x7H}u|+su^mMfZ11j6yZ0Z7iQjia%o}=ZS(oW`+l|1
zK&#D>m?<Y3dY&jAb|z3D(4-C4;h#ww2>)8l)m=DvNlH_>@X0yCjN&x@rICq6N3nv>
zQD>`7iS^B1EzvVoFJ2*9y$!}B`!MmT&VpMfPeDVc(=1K#9w*tCwyfQdM?I&SPewO6
zs(ZER)`Q@B&_9P#-UW{zJ?_V9R6j)zxfHC8YD>VWrkqDxn3qYtMt}~a4i*w`7{x}(
zkuHvHR5hyx90@(#Wi13k1l{?=75BuMl65zGqeLO`uwObR?fXi9s6vl1HP^ZwXy({7
z{$szCvajWyDd#LnHPjQvrg=(;ubFS^j}r?*S7_sHkuFD&t=<IhoK!Q0tK{owr^i~B
z)_9NE=e-f}FY0o_DHp;H<iP4YE@a?CabjBc?{=QLbZPu7^g<0Vs;iMEJ`v|K<xLdk
zv$iX&D=oc`@Gj6T{NNk;AbG$qneBT=NacOI_ddO_qXvd2Os1EP{(AEK7%99+L<fxO
z-#ByAW$d(q$@6S$<KgP?zo@=N>CGAjg?8>1wYSW6x*Sk$7TXxBI&{t*V$!L^Y!p}K
z=!ZDnv&}x^oOPWYeWerkbu`Va;jE*qMl{hw*lKP2hKT$7(Id@*me1Lo7P3W_h|-Ef
zDB$+3Z_)<~EqYhSGRWC!r&b&k^<PL&s63Rr>)*TJ^OJJL5-2A?lwon4LrH&Hq*JAQ
z?^xy>f?w%DTHmSqs-yWHP@WFz$-Qad^@|UduXcaW>W8bBKDqV@6$7eCgYe60zhCg3
zu;}HesNjnZR_fo|JfCNEFh{jhD>;o5ej%gKq?4r3zd7x_`N0G2UGu)xt9Lr-hJ;5h
z6u!Q_2Bgf9543-xTUdNGk}Xj#G}*aQJmjPS&D?<gWqmbL){I2oG12$oka~WwjIl*`
zvGr8t*KqLF!~;5omKZISV3)C~tt%mIqAtY;*SE_KII^J=lGgV-H5wC_t6YV}o}Awq
zrkYduF+g<7(ES{<y(Vhi?!XC4f@vr7cxrS|Rio=n&9&jmchkFeqz<V&vLi0#7|l6A
z(%=let5+irI0F{1HlwrdlM%=yi(m<kMoi_vYcC#jKMR_w+_n5^V0AL?yoU2@k6Ccs
zjUF_=v`BtykATbNuv-=>?^{naHF5TCc-GByy}wNwD46M=YW2E7C8tU$J6bwV4>x*;
zgHx!IW<U58Nc}q62<A}6eC~T)wc*!+H=GZy)Jue!6|7r2;x`%<94W4|vU%U<>q6W8
z`d(I4282x5=`ueq#so{M6GvUmL)*POhm~`Z`Zp4P{Mu{@{!(NEt9(l~#5`J#Tij3@
zS(!hS83fEb+%|3`%3jz?ih^&|32RTdp)W)!Czwo}pF!onh4*i4>Ey7CFtkd|xbbS0
zeF6KMUZ{4gmWJx8WgQ{aRV(R$O8})DMJ0V`E1J^*C;5f+QOU3V<yALNENu9orA5%@
z-N<^iVS$a4ER~wmScnMqQa2K@GL)n$o{w4DgFPB*a$cEVPXJVy64MssWZgU`fxi5P
zUV;&8-=hTew^{mV-0>wKd0;3nLcQ=_HZY|AyBc1JSNpYhkr(<_b{pD9Ck}BQrN6rx
z>C$%!dYYvtnmO=EFCg)zUf2jK`G61YSE2+QFc{Ra+gSm3!Xhobny4mUp#lCkEywIm
z7+T<vBW(#c`a;Nu2{Q#GyaF{Hn44Gq=Ra5ua?}v?Ux_qJ;~XhW;?jv4Q7CNZ;2Eow
z69~)5Bza}6MU^Kj9Fm%y+}l1jPBrom0wlkpL1947Xaypx=Kz4tNec^;khY@Bfckq3
z_b?w-U6MLTMP$Foc?4LDL{3s{q1eg3Dqwl>2>oN(#Vz`hX(xF=7x^%LuZi8*CHlv;
zpG}(G@j*XBTx`}aw+NzcmTjgd6+s53_0d{Ng#k#wF~0)hzqpa|e-mH9a?m`~buZ+b
z4W-KFMX&Tb+S1YEvwGqIU}u3E0nr^zGOrubHl;Ie(4`^{2C95cc{L?0CiFB~3ltP#
zlvCr{IxBSNw&ZIo8J|F>s-BW$jakhA0ORhQ%hWTe129g9?vtSE2&U&o*bC>so$0Lw
zaHH&f-zU{SQ*^`3SuQ2p&pszNJ>HC5`dYi9bNbYH6L{lL%kAQ<eMujy<8;nW^*%d|
z?cK~W+E<4&2G)+eh{yv9s3&AK$GGfzGJt`r<k3xY2`)mv7eBE8o3kvLaeghec(^n~
zZu#j^&-90<->ssMqd(@p2JJ4DKc1cb!>k}c@wh@mO~-<SKWXXEVosI9gmLIFTjz&3
z&HNpB-D=b_8|!cT;iL6+O~ZT*rGwov`8U<z1!fC<#L#g8J*$w%b}w+frK^yAJ$<nn
zd9e`j_U~z-kf!$!&UHOPtc1&r5elA55kImfixysV5l#}t+pnhtlXX`dQX6&K)%t&B
z*Teh$sPBH^S^eFv05>qdng9B{J6r;<gF_#wu}!$KRUQigpvK0Aown0IyTHtO&FX1Q
zi07xpUscbRdd($Y8s3>-^TvFZ=m1@W9MctZeKz0fm0EB-zs|$v+)UrOZ!le*;hwBr
z{_<$Rhn`q^{n}-cnnM>Qn#mfkWLHsF_ZI1{Bos>isbd&{@*J`8rf8(<KFNG#O?ZJj
z_6wh)FV^j0X>hHhI(*+M*`54Lg-7>Rg5l-pB=Sh>0&Xt#-POdi&jxf<^R^ldiZ!*0
zpR@734~PzddUYiQ%<~(&rxeI5=|8O{I*hbVaabQ6b!EU)>Q^OR^^U5YlA-#%Su>Q8
z@}J*&H1h3(Wn`{IDLSF2FQ@|gosUnl-0bp2n>r@OZbvH2qJVYM=STZ@r+j}PMe!iG
zSQ>8p4ooq>eZnxBqSIDW@B!dhsoA=wk(s&nRt$X&kPhvn63<2R`@gvYoYnltrLVA-
zD6q|V{5b#(5UsQ3y}DLrC&#m%mdQ0|SgR*IXUoqf;ih)_pGfbXZ8BKC*2d}Nxb!l#
z6;nBVMO)DJ(Si5VPjM%yxrsALy~pnu`t%JJ7G4=)-k<cx+iDvI34!ngk%Q~`?|lv%
z%O%%9?gIB;%Nvedo-cf`+!o^56Cnip=D}UV%QiH0P`PX2-o#+?AAp#OB)k%!UVwa<
z|7iId-r^z<@Qgfyxd*ER^lK<ynsP3KRTg@}iK>AJ5SL`_dgniiy$`wOFA^DR2{pP}
zy<V0FEo(D)lInbgP9a|0U!$#5_fx$?{{&zO8pUs{epIc`#rA4(A_Yc}rvM!hKk2>j
z@D6GDoHvt4J?9nKB!{o;ds>mz2ix7f`o|uH<UGY+{W?>9{f!ZaNO|EM#nvBgXJuvD
z7a~%cyFvgOy-R^4qL*9VEP}46vQ6j({AI~=BRd2+E1MB`h0EK%J!gv_{VO?TEmj>Q
zUq}m${>$J+L;_XmhBIN`tG+1Wf!9p!d-UhmmNs^)qqxl4;@nKixl-6O5a>34uEs-u
zJGB=ZTTeF`uq>0r2+*gdoFQ1P`_jf?Sv+lMA2{d0YfN67micKwV5nt|o}on-@&rsa
z6P>M#KMzd%G`^TTqe9K(>hoK8i=iH3e!u2?rh@IAe!Z)tvlC$xpF&@uyB`Y1p!#6F
zuzO`stp3dLnAO3W#i^W|pH1qH3OzA<8XJCa*s0?|D5si}x*Hr|{sw|_CTYjC_s#t=
z_;5+(^J%Qw!5XJa3BVYVd1KI>NqGr{Cmqud`&Eoh!aC}b@)TOEE9rU68pi&Xz6Gz3
z`H_zBO?`vA%8*3S6Z$#qy)Co--Lr?Kk;0@E`IzWDrj%~Y%mZ^J0HqX1#mCC1!4o2(
zy7p-g$K|_r9c=fulRKrAFkTtnQ*7Q^=o1c3kkV8tJPY;@xanf>ZOc=Zi-1)MZBW&#
zOj=bdgFx%Awr#7iy1FD~fbtqkC7e0oq>z*+|7UWyq=>7ym#zLOx9ewiU}|J<g7jB?
z`sXj*tLzi$_)@r5=l|+=OrS(J%(=iB|G*U5irilNdRZapfW^Ezyik-ls-~N}lALF?
zf2dObs*G`R0dsx!1}cQQWM}sw8aHE5cy>P=VEYPp`rl{Q|EjK2`di$A-5K<w%RfpS
z`$+qpmZ(wWD~m<mn|;_e-90()veg*pjvmCw2aQBu*?4!p^Qx?I?3QTQu4REsH`P=a
zU+#SOd-EK4RH|9##!`OV_~+MTi`=5yD@WaP#M`Hj|4O`(z_@p@7<MT2d9LwnQ9b6W
zN8#H9cz8gH{u3>M=*wYY1C3wz!{zpw%n?(|yCG`K&Fg3AT<oY<wvWtwV~@5V-!?$$
zfSmw_VofF2)T{aWT9zthPB$x>MZ8s*P<h9R4s+a-aWP#YU?@^+Sxy+8v}jo?#ooPf
zAW-D!P_6$}0IJPnU?K@KRAIDu>4~k!n^#*F?{ZQ$Il<P1@qMxyA%`c^@UbH3QGY%|
zvB*bNCj`vN>mn1Jy)%V+QiEB`+h;Gv-B8lz<7|t37--1(V&hos@ZjvSW{Yq^VV};E
z0f_)5AQ2$3;WXjfa&q7bSiM|&(rz_Bh9qGU$$1utT>BE|$38Y=>_5~0Im2FT08sy0
zb)86f_2%>c21%6v4vC!qvt(eM;kW0f^HVYcte*|-s7)_VW?rjP=8d5{+jBw*>&lld
zh!&*tX$zzafOf2B+f5xeGnUy|vRBuLU{R;6fQc`Mj|<vapp|}CdeZ$+n;#<Hq>&uq
z&$pg+)m*`hbw&`qx2LxdX!wJ_IVoc8of7&AxAgmrz@0ua4H%S1LGLZIAA*gkJ$0K$
ztphrbXPXZaq=WuI@ob9I981@l0Aoe5hgu?&%uA<pV!Q+h-^ac+bpA1X+KhZ_`&M?K
zWz*db|BTf3zB*BZ=nntCxHWyqF1rq!)P8}a+Qx~-txL|+58O{b?o$O=`UxXXp!j>a
zz3ZFOeF0B-{ZMDjLUkp|EKfFX+cI2spBTZKw0KW;#z;I|G%0CLTmJr*8S`9xWaEW*
z&cy*ft8Fe~*;Zk0xSY~;nB>O!K-EnUXYAnldRq>yS4*1@zKtEzo3p4h+;r`PiLI;L
zGx9uLN0~pqYB<Ci2_s0z{z6YZg)Nj)v-f$Tw=F&Gh}O&NS)czX;_o0dI#NmO(Hz-&
zQnc_o4p;5#T+D<cT1i88^z84r*oXFl@a+MLk#-!D^QJih3sxlhDf-7~+cm1c#0YcQ
zI|uio4uu(x4s8&-W$<p{crr(v)^7PeM0r@#U79yb#hxHtSA>e}jR(*PWMVFkZV_h*
zj~XzUz6mmFGIaEM8FqZNoB)Z5R}6rpV#Lv#)=wa}et9#4@5p?1kxL-Yv$6;HTn~R_
zuNbd?ME6ilQ(10SW76W}`^|=0?*fE#;xY4k$P-t6sDAH)2?AO8qFq1eMz#q!iPdb0
zJ4g|kE~WN)C#U&ehU;)S)|Qp{@b2X$?;Jr1!kibfD7R9g!)kRy<wo><bkRbVM9ooN
zhSss?J@o^_*0^KwPpKPkhTVf_Vj>F0J~jLpP8L!KfW85;WBXg4jw<i0!Q2(1>`z?U
zeZQF<_GjZwz4MSoYsz_<M!JLvR<z>sY^WSM*6(^&@|+Lpt$+F;$40>rcbgPf`$8$_
z%c6a;C=nlb<Ll|Tx<FI#H5EY!x?|h~)38l6VK~(0(x#a#M}eGNdMt6x`RM4EBRtV|
z+&VUD*dUgdQp}oW-fKzUyg1(~qmmUPA&gd0*{6GXed3|aYnE)9H6oV&8S4ZfI2wYM
zJA>Xixa0gE8#iol2NOnQXM*CK7RBU8-(ei8x@BV0_vt<`1rMeMFz@x&dnuIlp*%>k
z6Vq6R9dn>&c&j=$SWlr}rzDn&u*=XBZg=zr#vE6?!!E{Nw3zcPG--<Zj)n|fmOX%p
z7Mz6my%cA{Pti#k)a>sMOss}NL?BZ4FOul)Fysr$k;F{d4;>%H0)wlF5~isJ$4@Z}
z)M|Qh%y;#&IoG3JwMQo~pkJcH22bTR@;qhN<mu3v3ypAgKB4K-?5)GU-WDw=PN)fX
zDDxMZdV(e&<_}#3FBjZ0e<NSzOenwMU8jF^nAqUgZ(X<;)Me!0p7X$K;`5GF=N*P}
zuUTQ2a$<GQ!)0FUWcPginkq^(pB+6EB_C_*;xc$DMAzMrfRJenasu61D_Z{dDEP{u
zR!mXpYU2dNVdh@8TgtFnq=QXON95;^8@JKnf6o(TzZF;w;o;0fo5w3)283L;*CbuG
zW7g@V(f(3up?pV~qW<n;=O|Pzy>RH$uI2usvRL(g?GD-A^`v44dwdOPb^=Cwx;kRw
zsol$&yq>Rnp0HP!&t8~1cvdY+h%(U2VS@L5S==%}K$hENve7RGKHA^mSOf1e4#}0^
zW9vq6V&%!wrg%}87{7O5p%;o{XHSLre9@{=z5@2YcH8T>c4hXzHqzp1H$;Ul@m9g?
z$4>_<sbae8L4Bh$q0znUuBW=%{L%YaoD6)XT^BunI<@eVeYI?uXrSjjr}^%h@q$T)
z%?Pv3t(A!ul&nrm7m+{L4nDU0a$q&cX8t=zb6LA|nlnmb8Tqmr_&3}iGx*m9*?HBG
zLV5Y~>HFuOO#^NKHo}dP;=<}5izOC;ZdxX#iOF4`neJU>`UR*gU1kS;(Y-3i`7qBR
zcyIo-e*i$zrNK|9&0gI+d_n5qK<?+@J?>G1Btg#LDe8_E$<-)oe1I9rZW7K9QMgYf
zdxuk2vThHFy9Z1{_|he2_BW;X{IQ?D&qTcDLsw7+`9mpVB&2{i<onq;rdgqj0L3NN
zz*6DjCa;o$9jY4V-;4~3Zm5(_TYVqPFevMD;>eo6`CRLN@O*Lg7BB!}$}&`f^s~9_
zmi-wLJNYJ^+6A*5e6%dIPgqQ;K{Kz(tX5!yKCo&ABf1{jY7*Fbrg|bsCP;|VEP6)M
z@!M2$D2toYl#fy{%Y*_6#aHixszK<cJsaZ7f3(ax$C&bSFgRT&)6QZmEzXsyt*1w)
zMe`d3L%yH(Jlht(Z>ETKAn=s?+QMfMv=l1ArL$L8hcw|2$yK3mZGnXICE~%377dH}
z?;mKfk2}huLuNeUq}XZ8*gD;&E3;v7s^T?^ZkOWwSy)clb;?Do_8j}L?CxxbyfPOZ
z;Ex^D!@ZV5S{UA&P6;%N7R8CGfmK=kz}!jJY+|k9{tf5u#V>tsTLmTtACfp`{mn{_
zvJdPNj+?!37Xp@0gx~fs>70E}+s|!XyiqJ8wNg5rKSOs;Sw7@xuxu44l-Zp*C5)yt
z$Fe`ZnXW;<-Wc^@3YenPT&;$me!sEkoqS|#mu@%}>d1*o^p){$*lSY8J`kqAY~*MZ
zt+Om-duaF-lw<mBGd#^ut6)*0chwI{gnCp(K6v8)B_~Ts?3VQV{uQGH#+2ofJ4FA_
zSN&2v{T|lZSFp`{9z!!~dJV<3>OvCJKxIFQ)K~}Ik1Jp;uz$t%)Pm!B(~z^*tZ&ej
z=&_M!huhAT8@L}2U{2mD{E-1ar?typ&NI0+xZ!eVG5QTkpvO;{^JaOu?C@|%SAf{z
zKcy7LqEyGCkvAw5Vfk_Gy(ag@dl{RLcXOt`9{I2y{f4L3OQU%P-;|thZYB1tiJuTR
z!5eR|^qZ=;6jraD-e+`c@u;Br2PN=UdYKVhrv8J8!K>rld-TE-%x<1tDJrfup!grZ
zmcr*g98-F5(WiG6@+6h1pVQOnj&cWIAn{u?A5AQ2eEB`0>aXudC6i?%Ri{}=s=joJ
z2s#L@*UqlD8glT18Z~@3Fq%Drd!A-3Ck{T7Bie4iH-OSJd3IuJV6`EJP@TpB&D-KX
zVZo)-FG6LTs`m#5JZ4;7<f#63S?Fx&>e5%>y&7s?l}e)t;%slhz{_iF<~e`Tc>c60
zz69C7;#$wH^<cIgqW#GQ!>a28;=1?k98vM>N+A!{*nW&gIVVN^)?(oA6ObQP_d?T;
z*Q_wSbD~E4njztEIyC2x*PK6puFo^>R&{R-%$rpkByFBJT~c|;tLo>G#X4<!N6vbd
zqkI`P^3n+p=3qnU1q=jD99NxSxwrSFyrU2M>lGAsDc#73qV8y?MF(7v?s?jA*x>Co
zkaOL-k?j&routFxB4;#Af$P3&3bN5zhn5ylbs|5|D&@Y1zqvzc909kI>Qj9VDTZ&Q
z7d6{QCXHzSy&Sy=JvD~56RUi-)Kd)ai;n677NMo1iNn&rFgJ#r!Y7<f>-56Xh5N2m
z={Y^=9%=yD;NI(o5%|%4;aKOx$-r1lg(zcKOTmsZfwRv#a$jF3ZDQvVm$r)gJ~doE
zUod4^L=@6~(f0`)1*h|CJ+BFoD>uI66tWnN7=?TFga}}l3>Kj-@N>4mW+xsmCAAwR
zrj5Ix9~uzl@EE6mEk$4ln<(c?;XJ}{$VU*^Qt-s8$N10XK62Nb)S8tSMqh2uITb7W
zNA<QygHsT($xk;Ioht43>B^s-Ev8(7kvqmd?FtN9W821s>yPAo=)}qki}5+mh2s||
z40eSnxwF4@zk{ntm|T)Gg9v@yj@f^$Xi-NuY$WHAN?r(*bIx6K02$F?a3-(EDStZU
zNmah3kV>48NA<W-K8^_#<j<9Q-H^$SKB@GPQyd(ftAi8qm!l{_72O%n)~nRav1z4R
zz<J{7H%#ZkScsRbRP+8FkXQD!lA<N~e>1j(WuaI5TZDah!#rTu5DOV4NHc8@3}vWN
z?)bt;s`V+S?S&{rkE;2c-rzA&VpiMW5@wBZGVAil{DWl|k=uU_wh>MY3`LDuLP%k#
zdYQ)jU*w6$s*-*U_nUooU0sMqh{L_gLN1NAff8?wJGGBebY&X%{yYHUP<#gnxcVY?
zrTE|capA8ULulK<G+<f%7GDAc98sd%4Gl~-LE<wvx0as<qxq8g%Pfkhi=hD?xp5Re
zl;uhKomKsdQMZlw*ZHFcNEio@9v1ZwSkzSCjrtvIet|k38m0Zo3@hf;Dd)BP=ggqS
zx)Fht!ORYn3)~y%cnQ`QcooM9>DfQ}KzsS|z-s3=y=F>@o(8ZXHeUUkJ9(aN(N8Pn
zC+wA-sY+PByJ{{hPnC7fBPvYrO?Y7Gj$q=Ius;X04(fBfof7sn`iseT(KpA6oL!HP
z_F!PhuGn|=<RrkRXHPQsPClUNiBPW-O~R!5m@$H8%+HbEY6vo)M%dYQ{3=Hh&oq9(
z_w0#FDvJ^$N!yWj9=-S3B(x>+1z@FhcTxGwN)=$LuSVwjgK;9Ph0C?b2`W}5ZX7ux
zLaOMCDO8K>A=hNfhY>D=$F9`%5MuKe539brpJK8cg|b~@>>S~RS!Oqr>t*yZm7{WL
zUvlV_GqpKDxJBRJa(L|dL{R7*X3O8<-tppn3w!S$Fv2l<-b#E<ozo_tKR0Z*BvjY^
zu2O^<p>BEQB+qJ6AIm)I{z-Dc$<O9G=2v;@=7(A3V%H0Nq;)^SR#Hcf@k#-!h_Kdk
zxR<7RT+i72Y%ArZh(Ggj>Ef8_8*5Cl<*@}4J!q|rr}CRxyrQHqm&<g)m0=V`o$)EG
z?hL={hoSs1^ill_pzVVoZp`R&%Fe2RpNEe}mI~Do55(<aVil`OeKz;I>+Uprbs!Cm
z;=<=mhvsdD{0lp`y#J0gc@pvZ;#U6ufBq{qFiqp|ozrR1L>|R`;GRh`yJC5{?2_A~
F{{craj-LPk

diff --git a/reference/plot-7.png b/reference/plot-7.png
index 6f2d06b60ef0cb114bac014c0dfc854e103bedfb..dbb4d3209ef39a6862e1457ec2fd8e5c6a52d30c 100644
GIT binary patch
literal 36899
zcmeFa30%#4+b+(wZF`#%5|y$GrBp%_DpaDRG^jLDLbFPPMtj?6P|=8FAxX2OvYOGL
zl4zczL33#yR%>;x?`l8K+5dC?@B6&xywf@7^X|{*dDI$y>$iTt@Atm1>$<P|&PV-(
z(yHYg%NH$LwCdPV1&u|Embxrjw8Z4+pYTXi*yHc`=O+^tB?bJ8|7PT~yztL2myYT=
zELybrCi&muz^)OqMT@p9I;L<)%jLm9%avF9W>mTF{L*6wRZ><)um7X{>W2*V9}_eV
z#$7#?C8)Dz$V6TJH=*B4xAY9})?O2?vqtGhg-d5DP44ZGXT5W1=`xY^W>!0#P71ub
zAbZTy>#}3Sp794&65U&A<70a9@%#C0TMt|b&Pi>vb#mH${qW;8%u{=MBE5Mj^QRX!
zKV~z3*s<*k^O2)F7K@Sx4l4iRvY7m!p`5>h{CivD2P5+D)sVH{e;_|R4Y|rr{@oJ&
zFF6ETyPxr#Np)@Q5o>Gf4-~n)=B``HMH}({jn;8xhKpV(i-h|nB_(-#3#?ymmURB|
z?jk&wf3f4||M^n|3!=k~IIbW5b@}zfTrOXJ>k?Up*Ir$}=AS+>L$w)qS#J05Z=?oa
zRhcB`O#0e&6e$`S8s6fOlXYtIn3}GRk!6#c`^wUB@4`c$!;g18mEFH@pUF@&)oviA
zxM+XtNWjI57rj*_8n()gKV~UZWH($dnm0Fkd-k4~>5)Ib*IbvVmyfsi(9qD`{mwRA
z&dqiy<q}N_^78V>A0CiCabTptr7t#ScJRX2x7Y1HN_Q7<yA80GmzRrq&P`9(7t3xK
z`&RDfE-Uxyx4xRTE8UUod(MAgek2D6M|<S3`vv!Jdni6LW8F&5&QqtSsIr1)4|1mq
zMYlWRih8}Dkei<yvn$yaUhv`G9@8@6jN?XLZi8t$4_w-P#GHqkUFZ{aH=ElU$#)H{
zo(rbTolCUInrG1XGa~mp4{<bgjm@~sjTCo0aQNsml{Zfpa~i0>Xkp<S>D0I*KxVT3
zuB5HetBj1~Vfkb0mtTLH)Y#Z~(bAH0TtZk_SjJ|LR<r^84O9IeaWkGC{LOJP&}%O0
z#YC+>JFm&n`J_C?>>=6%T$jhWxt^bL0}hP7KdhoscGW|bA}eD)-x;j7!N_x_>+LCh
zYw<IA7arIh`IS<^j$8aVH8u6p_-7@SdQaRq!35nDlcODJE+g%4Tiu3bdQ2mv>`cCv
z@Kd-nDADRWIxdfv@beE2=hB7_^&7pqc=BxHD|2~Ix}&3G=(%iPnek8Z$L5=CvIcM4
zP9=NMg{X!S5yG$1(k9HST3QUJXDYmm?n>FUKMG8Yjg8%ft9EGES-|u`MYr2{OJn1{
zi+MsiNdtBfZ$exRHwIX<;=A5n9q`3asVq#`&(Nu1n~`g8bkM|=$%YHXxC=Kg?`==3
zGveGo@IpR&=39h(A8jaWIKVll-!SFk=O>GsJUTeryeV^?{CCQ_+CRy&_{S&by5>&?
z9vD5!W&i%yYpwIcUh}lOd(AZt%zb}%E!{BN#cm+8Kgn)5XKHn0dUdJH33<nP`cyG4
z8yk!4^qG=b19o!LZ*AJMo%ht{W7(I!zWudjC_Hb@?4>)dqLPP)2Sq}%&E0{^u7EWK
zm+=tI(%jtV-ku9Z+B$~f1*K&%)%|ZTS^1GYHNNJ1Qk1mAHw8;eO9ch1SD%mAwK&!l
zK2h|0lA5|_bjH1NYz9lfPsixWwr>>_o|p&r%6lawl2Y>a4`=TYdHv=0&d~y&bse?(
zw*DEdu0nXnWhbYiDmA&yH+ei=D!*YT`(9&_bvbIB!Ke(+U7whkn1Xv(6cs4TfuHYG
zbVudn$aqd=wH4wUhQ6ZDb<6P-^LV*8JJuO~uC87$NAFeZz$NxG5Mieph>#^D)%QFq
zXmZ7do!&~^SI+rQ<={%+m9Rc-fB$#v`od5hqfIJdJAJTC-*=CFuB=>3UP|sAwdK&V
z&3mn4Hs}W12UMxcU^|I<%#L$=(Mol4*Q&|UFJqx7%2ERHSy%?QE>Juql5!>+rM_HU
zQcLrsX=-b;#Y8%twx978O4>Lsfe`iW!@Xbw+1{tYKUvK`oXX}WFL(KRo&5>E6}cGB
z&c*%7dECyeS1t^sH`yF(QuCUvO0jBq>FBbR&s3`Rx`r+DMuhB``nAA3Z7{uQyRkE)
z%$V`g$ivaeX+u#U4`p1^tTbeC-Uh}sp1DWGb&0ll^hwVqHj3*O-sSv}mo@B9|JE8N
zV%XSi*}QK1ae-{cY(G7{qI>MR{A%f~=Cpei?&tjnCtIA`p0>!+2KIb0E$gzs-jI5M
ze=rc6UOZhmRC!~};j=w4EcMnIEkRBlMgBr_W0ZLV+A_n#qPf#18fpmY*rpEolWMXv
z=PEr@%O&(XbSn_%FJWyakIdHCQw_ep=L<YOdtj>Bp{_ptLCnRCNsf<0ns~9yws>&8
z$qG1?pnGR$UdQHP-Q-+u*Ph2NgK2d^Wh5ltxN$=~UGD22>)O9uV>uy0aT}suYc1ZO
zZ^hcin9Se{E*W>DKZ~&8P~!2p9GKVQ(%~;=)BM`A>B8=NQn-h~Wn{VM4L-c`?Vd}|
z<D0y^Po6#7ZiB0|m`7hC!rwB9x_zdUfpwu*$@7WhIJL<9`9t^75`<0upt7k}H(RTW
z7N`E2?%77y{>0!Y)&2YTFO#t@VDbEZ?cB_*Js)*Dbcgfi86&^3xS#Q_OAaeP-$84e
z_q3mJYooQQtMHtBmnITozYrJ$uR3oY#EVNtNrau4)t;ry&vloKo>bb*rf-!}_$Xth
zNHX`%PC0D%5p0`P^$Zo`Sq&{69hUlM)0T6bw%K+AIa94m(nVJXhY9O%XlZHjXf$wc
zaV#0dChzKWPh4V-Ow|!6Cria<nZNR>DMXokr6lUN`{%9{-P$B`LQVa|g-FL!FXs|%
zJuLkP_wC!)t|T{m(tgI9FF>G#E-5L=e`pGkh-35S&D(l2LT*?Z3UsCaj9Yb-XYug9
zeccZng1R)-WW=|tJ>+uu_Q8kj$WJfQGHR426cy&Wy%^oMZBjb|_D{Y(P#^faYUDo0
zPqLCtR;lN%AR1remTsW+yhFB^wMNjO>}2P0JaBg^cPgi36p=xuvnesz-oHv6E7GH6
z^cVgIFFw*k8kJ;6@0^>#9`TcGb%|<o!a7pxw5NJ|*W+cTW95=OuZ9Bx0$z`O+}}~H
zspd~EZwf-L60$t<^W-$%P_ZpzQ?G+0OW~!&717Nb2*By(L-5`|_)4=G36}&E)_Bk9
zzJ%0|zA{tIdx`=!b7Hystvez0>k#hR;=uZy>z9w<_}jv7&N|YpBshl=oPx`+4ce~`
z-n4&pMuIjR{%(4t<EB>e8E%j9&*!dS3j{uU_KajwtYiWsGBYzfjqP-uJMSoM&)^(L
z3Dv+25<spCtlE>^Z#c}6LgPMeYHAwD6Oz^YEMnH$`LiPXwz3OY!B;&tEWbYemBnkL
zY0)ho7LOkJkwIIp{RG?SW?nW&bUmV@qZ8;=xNradx{l8)1HYbTS56Zqkgf7qeirxY
zeLatK)2;NHFTGo3_x{(L<3BUPM2)%SW<Lj-%#Qbtq-W#^dyYl4jW;O`Cu?FQu*@(d
zTP|0fqo$=f=BHoVY?hfjNDHp$4vrG%J9XU#LHcuJBgf$2;OEv>?#Rf<lDzg8B9sdL
z49*gV?_s77Zp2Mlnnn3bkniLhtR^e1m;3$g3YtOQ<=)E9xomB1ZM!eOEn8jRCf)sD
z9fdw{L1=e^q5iuZkr0!G9TR-jS*E6@rf{Gk)wDJH%IBIIHopzRzWTN~;sMg%?mmx;
z^Y!*7$wihi5?E{&ZdltrnX}~Wo8KEvkd#%zI5|1%Mp#!;?yQuP{4u9Eb-FlB@J+}L
z%^;o#H^xl2DZrRa(mbHsy`7XxZ+|(dqmxmT`_N;u0oiLsP#MX;9c0;s8@cW{m1M99
zSq70C0I0L=<NjfTcBQ?SuSHHdZLPgN(Xz0lwtf+QjFqvD|HLiiHmRiS(NdBmRYa&;
zsf@gNT3$!FWE()l@$FR|S}Q65+injDQ7WdS(%xam=RB+lH`*TDYnSu|H~g8>7RhR_
zLOFqqU(3$zmhsd|biR7prol?$gdBambCgZT;Lc8<q`P}AoUos9pwODHdeFyX<W$1~
zrP{q;1Kf4I<6&Gnet++d`}gnjMwCzfqH27lD|Eu+XF5k|VAv|BkeQ>&EBaslZH4T=
zWnp2_{;KMP-ww@ZTfN+XerI2iI2OJ$xwknwXM&LuotWNeu{oa0h&G((^)ma+o8Nbz
z+P&{MV4Pm=XsJ+{?y-5_igz>sR(@&8A>;YkI+uwW9X?)@_5vRd&#f;q+UrVzvZZ@i
zUzCN54%;cvX5XLNebU&NV!&N`r?TR}*oQ~frBsoXj(-oCKMuSs6Db+3j8>r;cujx3
z$zP^pU{`qi_c(`-()@Z4_c>bJ+PvRMCZ3DCn9Je#OZRX0E*w!(QrZ-MEN^}`d0sip
zi`LXODdn5B){5E{Cg#{z?XBzhu%V{Anf`{w^Y*Jv%4hW5FPmFi4?dc5>x~XiQlVOE
zWq;f-|DxsodY;Ja?V&G3R;DjpBc=ST)g)pLq*icitZAyP-H^waNDeNeM=BGn$=pHI
z1Bi-?y>$B;EtCBtY;&cl23(V;?zcEK2}>vDTPEjh;Gy>@-JFXuCrdfmy-Vnwo>3nG
zb~1-Em#miBvO(0ypvZT2-`Iye!Ckf<{raCje`Y0{G$_wwG?>EmDzLp+*FEkgquFDs
zWn?1R%VV>kVJb=JdJN=&=8k2Ru35Ml1bJ<KRq<7qT{-9PryoFo*+w}}cP^*;vvzfc
z&V}R~^b8FJcx!hLxc4V!v;#i-A^ysc*ucs<F)@)+%<VSb8;>|vEUm<Y^jv@T=H_-F
za8=LC!jy{Q6{6W|NEQf8exnw-FHLEqw)yUR$D8fTgzuCmxyAxD8j78L`^W3K(Xx)~
z>_$DT=bQlq+Y9|V!t`x?HtjiI@bp-4`vp0g9#uK{=)L35ip>ugc}&#QBjt8vkA3uG
zH*)z^dfVZGxbMS-?8di{2gPJ@J+>!Te4TvE;vsM)*EVY~o$Q0Px4FRzWn@3-2ESXq
zf2SVfn`GXmn1`+w+4yiEN<Q8v@$o_rJ!gBRhF*8HKf1PBaK;q7g)gX!Tn7@4iuP0-
z2tE*i6h#<Y`}cP&fyibyM?F^8WvZ7h!2ZKaYfrnmx&6vpJKL6hW$dScDeM~kc*geQ
zchwPL8#rhYvL3FLlZ2X#+qK|69iy2B$~b+Rq#7hC$sllATG4=s)?>rfx_(HnH}N~v
zuWKB-`vgD5-M;c0hywSEiv2^cO%sb>#>ZQJI<3-GMPXdd6DO%kKGVb5+4*dDq%-%Z
zDXqC%R;S*scry}F_V>ei^rZ5QJdV{T<#Xp%L~~vhcl{P(Z@4jO;k>y)SC)Yejb!A}
zh0mAY7k@fQKm`HR*SO8y2!C89*}UtiLjX6HM+*2u{kdS(8(Q*I<Z*E<Os+i_K5~s(
z%K~{91E=r1r5#-dy3tPUen{3#PIL5lf5AGnfw2q_L~gmYlDFgH;&4ZnnUJ%6HHh2C
z6>jW#rMkL0!7*~lOo^K3?w)<E_4ON>v<D$aekdaZ9K?EogFF{;UTmI*>tCcQ*|HuS
z@N~0NleHafFr)Y#iyRkdxc%O}dkeDK=tK2x!#SqF+$n9IG)2dWPd8jA2O8{v`HFCd
z+Q~{=x?)2Cp)V;ZV$V)Qa#Y2r1@Z+R*qz>RKH{wBAJG{|w?(!{fVwZw9h;l2%L`b>
z?XrdO{ia+2)@l@RBd*EKdfZ2{ZhWt;-X{P=r8yKN)QB9x={48E(=pE&o^PM+PYxuX
z1sui=dMtMS!`-_FuGkM?V~rr>TuL;$7X6|>DXWOU*yP+<i_whW6Z^~)57!fpvQF&)
zD*-qLjy2jN0KG*)+f+=NU)wRcktc1Colr*8w}1TdZe$G;%x3mJb3v$X2l4R6HIRJh
z#hBT+=lpRJl~;rGN)5bt_aruU$LZ6jYvYDBl2*L?6BGQZ3BjdHgemD<P3vC23P54e
zqJK^fQn8q$4|@e3-=5k!-wM<gN_!mQFGg7ZM#KM63W`1cSY03_iy+5Ei)tV8{hMk^
z<e2}AECpHVVB@Rwbb^PdWgE3LH8m9!khU*cTMIjghZavK=xq=7DJm-R_9i^Aw)WIF
zUqKb{0f00-)MXDqV?-VTM5(T;Q&LdChP!<EatQTFsfMB9W^5r=R)R(Vdd!lZzg!=v
zcHzPW!B$%(4OLZDA_*xdAP0fsg_C#a>vM{Wi?g0}pVidSVXvu)ccM2nHSvX)g_38D
zjd}1fI3Ci;jC<|}HtjH+#{2U+n>niiub_gEhuTNX&CPe<<YTaW5ndHGQW$q5lI~G^
z^L>kpn_ngG{n*0E!4X8Kr)~RUr~;(Iw(cV~AJQx0p61Enqxv#$j+Ko`2fb{t+ARxY
zToe<I=g+w(7}ND-WWgoy!13*-bdG}{ZJ$4%b$5+TN*ZGQw2AW2!qPH$<XG9VQNCEI
zFKP2tI?%NOr$iUKsQLT*%M>XsYSnaba2Q?un`3-3`ONdFCk58uQj`18QkUS;*3kSU
zxt*Fd5ue=d(fw+GmLOYiW+<h&gxth`Yq9YkER6qgk^VbLp8w!1i0a9i6c!ftvc(xU
zLO}s!=4H*D^7B!TA3xqXMfPES&z3LIR=LPYN?2LcGJyz$>_IzZq_C`&<nS6Fc5sk?
z|E*M7a;Sf1NByT<xHuC1gG<iwMyTqDJWO|$+!{LFyuL1^sE&52UxvFVCI&Ftv|)Pu
z9G&BCT}A$_3hV{`h;j~!QMTs|k%;mm2tm%9*rKOq3-52D{I-dbn_z5t>VO1mQH-QR
z)o<1pX|nfz&k0YfY-!nCQ)54(A@%L9>656asAjW}^2sJ!p6-WkHq<h5Z6199b3?p6
zA88{LYoLOSPr}B~?w@L!o4M{C-wp<sU_gD@+%;|~KX3JGcv+z@n^39Y5gt5uKO%z9
zMB5)}p9G6@sSSh=dTaAcKRxTVD+n8gq$J)`Inrqv8O(rz5VLC4D%O-f`Z;;V?RYsv
z4`5^-R#uSm&kYTFBs4*HsjjI}R8RmAxeSGqgc3xTw6wH^P=XCjJ`LfEf8CAR+FC?4
z@;lPy)@63DUcFL~rHDExhDPI~aR$7+CS9eWoO7P;wuoRQcg}{s_A<6HzZ(%&b%fJ;
zJu53jbR>{c164CI$<22Wbt<J~<EPB(u3vQ)?y{$99e=N5`{Ro1hXwmu)@b)RXwIcw
zcb7H3BOV52OnY=YVxJ)6m6&i-*&Qu`^+8wbrpLAC#N&pBY&xnCcvXKe>ZsBgkxalv
zc0c$@1?TY6f2gl-bnzk4__{<~tNdT`-Qtpy)qZIG`0>PI7twgR=767@zIpBy7vDBK
zQWTS1v)JX2k={h9FNxJN4$^GP?&7g_k9V&=<kU{|wEQghlGJJz-9G)Vs%0<_@vkd~
z{MRA=Bay&=O5FN~WwO{ldv<kYXvC-jrMw2bZSRet1h~uc5H*SmdQJ*z1xnk4cR2fy
z<+5no9t*PWKT6RCQakX{p^+&Fo_mSLL||{nc$He9RqY{Wpvv#rg%_8JWbGt0r~Y!4
zY6p?DNcy-_a?WI=z0hu?kevyiLH`W7z!kbg*vO|m+Ipn$YXW$AAOXI-yds%BPY7_;
z($-c4HaZr(omu-rK(l%M^#&75rIGh7iWU?6p%tN0gqIgcIE&CrN<Xw0Q;NqViehpQ
zXZTKYl2_(m+Qhbac(khwk^s1-k!gg_I{qUH1S-q&iZiQ@D>F{Aez!rnft8iiNyO73
zS?KWcwiB(?yP9ClMZ21h6b2?(gY&Vnj-b@U*9zTtqoj>NV1H9%V>{$O4~4n?J)7S*
zT%c?Qq-yIwU-57==v0U6sRMHWPowjFi?S;dlI-L|%g+mqQg?V7AqEP*EV38mru6k$
zkeEapu2^MhVR1`Mw6H@{U%#nicYL~ZJk%(Vi|6&KJMOiQ#3m;PLR#5<O7n`Zu_z)o
z1SFjz3qiG!X;KNXGj^8OJ|K%&1~gQvtJ<}rm9bY+l9OWO+g3418xOrfHJ9E*c`PP5
zSk~-urm!P8jM_Wfc`nN2+g_9f>%q!8z#ySAOY!B-)+85!CgVatRnakUA1N$3aTK+{
zNAwnl3K>hQ4A7ovi?_E+&S_{5-`E;aernDk_y$K=$@Izue7E91Za+kNjEj$7n!RL~
z?2>h!EFbVpdU|^EHm$uKdtNBFNV-E3i$cW>$xjss7llh|v)Rh`IJKe+XTCjKqEa@E
zM3XpXtyKQu3(m@0)cxy<lyfCPQYdn`8q|IIw1&`E1C+s#t&E>7$NfChX^66n{H#R(
zMR5r8L<1-@{3-v%Ch^6#K;?5_SGS<)^ACX>xu9|ug>;0(n<oVgyo0bxZ!gNnvs>y6
z9LhQJoc5wB*{Reb*ifHh3hiIvvAQ?({nUk|YoP;>u9zE!`wK-#g7;L-Yx}O!-8x!&
zzIn5i0PEmlBm+WER{~m9P#}USid*-D;&vjzG6i5}g8h>YAi?4;9w~^c5_0?#`Xj%R
zyvz#OGxHFSPYq>ucDD1{9FW|^z8_5XT3A^f56Cv4+IQW~tx5mY+`>XRz{)7aL=pIo
zoCk0~u<fesiQ3hXtK$CV1<*e+^0^E-HpE>hX6@84pUE{Z)$XwwUk@7zENgFF?GEUI
z+TSb$RYsck{s}7#PMVdRPbI|CdzbUD8b|j~{M1BU;qzZy_)f`OA*ExeD&y24AO45l
z-lV=|_Q|t#=A(1cNG6-msizii^#s-r<m<dpcDM1Z`1RWaQtz^LBwsrG)HQYmtAAwH
z3<+Dd>*`2v{Iul+d1}x>Bz%u-&iZBc<hMFCti7LjZcNm=x&N4LdA=piAau4F6zd#M
zriSIt@OJ8Ts*druA^GqykM0TSHTKu09m7#OLtz|j3i_F>SrRiLKiVtdeRT>Y9A99R
zdhpv0XxeVnGG;6g@Hy$=djo3za0(=2LcN2=<V1{f50C&vO48?0=An;QxpB3#kic;J
zeAM<YxNrWp5dG*zb<p%li2{<V`ycU4p1V;NuZY}jrtD7dHx5Kd;6oWHPZ4AdEP1t<
zb>pkMP;LOMLbI4=j;lc&SgDA9kVFfh9G4mr6Ud@`@A@sC=a_`~%-(+(?*DUG#{ZeA
z??3cfXgN|>klXcWw;=*1iNf}6px-9(u){!!+bK@O@c`(5FPkM-hB8epS3QM|vR_**
zw%vBo%4(<cFS`U{E|Nnm`uDQOkYoQR6R)_;=A}<n!9+n0Lb7fhGTVI*D#-cNl#wFN
zaO!<VA`&G~ymm@Oxdjp+n{mfcA<vfD>gtV1WyLY+>9y128V6*NGfpC=lLSbzXC&l^
zCy-HZ)o4A0dSPXC3(=C9D~n?wM{#g+mXVyuP5Jii8*%<5JR1el*j9$(mY8hLI5&^0
zpi!QnV_VGYqE#n3z7>WVblebGHP*hjTB@>AO45)*XIVUay0m)?`bL>y(WAI{9ho#>
zs?4mcGJ{q0*y`@>!6h#Am0N;Kwgx|Nm$h|wMbIpncA<|WD;vpq;2UjQrw-nM6W=Wh
z#RQdVk_?cDE4uxW_jv>evl*xec-lTS1*)>xRut8jdjj3|(uk3Ei-vOIcWaM&#!_{<
z;;XxhkSNU`xFuHHwELko4IzXLY^_VgR2_#0@_M2!P*55wRAzW0Phx!YJ3@{sRKa`#
z?xW_;re`XR)7eB>3}sXS5lkVW(TIa7ytv&`Q&CYN=LISL*w0XASn>SdsNDV$LJ9v=
zt8npm%i_tuQAA|9-6iHIKjAKr`~$f%_?DWbWjxEzuABBdS?%t%GB+Oq#X|Zk>5tKv
z@{kzsP6+BQG{2i=+au`MdSOWRMPFavxuKetmPp?ba~m6@?k1c1wkon{7abM*_c4r-
zWB(tpBM{|pd_ld!TgTWVZReCBl0Q-Lm^vK^9*zU3O#n4$h0%V}4MqXv09kqVZNPgA
zw_5@CP0xZ9eGQ#kaD-JMH%N#%lFyWQ;Vpoy6OXF5Vg3rO2c%Mj5~JSG?$YxRcYiQC
zD*YcCcm%KHH$hqG6JaLa9;K2cts@=9#X5PjHM%e!#bzyJ>!Wyla&q!D>bR!yiRr%d
zsW!O{J9XCpWmh{h6}=a4gs$YfHJZmLl4Y#Wj1oO@M{JR3b01@tfD$uW1t(gVA7k}G
znfv?4dwcj{0AU3|u{G_hjs>Pi>8$V=f8=`8;sAfs0O{=yUHf7++Jwo%$p0y(bFr-g
z*&|#iMU9|}Qh-9odKhw?2wYPrsL?SdSl@I2#A>A9c)l_4CG*1)qR#%};-`v;kJ@dv
z3v2@&_~Dj$)iXtf0yrAjQqPzBrkEBN)#Xm6p$1TLDVzxzcEzo9%g;KEUCed))1eg9
zJjn%l0F^!E^AS!($S)7z;YsNV)5reW)9#!{GX&ndBgo7=Thfl~{34uAo@8Fi*O$&_
zcgqYPV|bF<+bi=bBJGQzs3KR&yuiDzva+~9MmfNk?tn>4so;-a*167oL2<DP72G0d
zO6`QrkwO9Lzhaf!n5X#kt@qMwLfnQuhTWKF^3ZK)Qy%<*;0xBaZu$h1BbeJ3{JwMr
z5qd`C=Evk%SrIuq_E2VylcEZr_I7f84_d6W%#Xn1EMC*{AMT3_75Q_r^FMSk$)4?t
zXJxg^U%aef3Cn>sD&Zpjq@>RTsorFfCwmN960hM?3J8g_R2h@19gXh$+H<+#rI}s1
zcwNC#c7rvfFwZc8niWIwbbWxTJE;vWrcHwhJlH8WS#SF8<id%>g&z14DeZ8c6cS|^
z>0q=4#2CqgiVTV|=a16YXOwl1ZA&CZyhUgB3SiZtF2rAkLU?z3h~^0&=iIT#{^~ju
z78^7|nHJYweIYm|9Chx4md1YYIVovsR=G}0ps10jpv_z*w`8}mxXgo9Du8}FW{_hq
z8V?e7y!qCU{CM@w$x%KRK3<f!g1R8n2c<C&{H0CV^T%OQCIWv!X6xvQ3gmu8hX-fo
zDcw&rSGUieynE4+#Gqx_4&5JB!_=g{{&A>@2Y9$-6!_HOuP=b3!SZD`nDnYf&u~Mh
zV_~GcsS(cHUb`%CS?I7}J=htDy7#9^PU}}EU(TWE7Lv(DKH}=h_|C<{DC><3e@wmR
zOer}xo5S2Wi<V$xW}(=%tqeKiTKaHbpK=%sH64FFGS*L9#7<Fz*Oxv`f^f?Pcfk!2
zQ{6?5yy(_xT$>B!_d|D5u;Q<!=OGFNcfmdw_ScUlZk^{~#@^nfP@79@8HNnolQ9UQ
z-Z9-!;kkj86>)ULN6r1oUylpDpo4gp>}TKy4T#l@DFXjxXI9l<jMJQJXV3E{Mj<=c
zRQU&!GW+64kt=qAC~QoNyBSqQK4FBIEbK~m#3(RT1#b8NJ2{$+0slr~)jTYul$m#V
zV;Z?%7RJ+W+1nu!4BDM&ZACql4F-hc?lWb^+)2Bc-}p%4S?S-M(*`rzWNlDqyJ%}0
zSm?)IjFKEl=cIlYyj@lKV-0h!=QncJUUg0b$|0%==<}7WL#xSQ&RpAN^=B|Y<MKb5
ztKT`TZUr-%YV-2?5FshbfQ4h5+zW}jB%-}mUSKWSH&E0;>=*#eCye`RkEc4>fmkEL
zL_;F}A1j<7vq-p1Zu(8VRcd*u#yaxp2V=2fJV>~cV|2(piH_bj(*!1CQW~;@=oNig
z{ZPpZNPQJ7TQx9G^z<tM&xv^B!espaYuKowGF|Ie8!*GuMzL*b`-u5@YjX>XwC#^?
za{CIW*FULtu1e;#dHpN#I6hBG3eY?uy=@YvE3yt?wse7nV*&#Yp9ZmOFUmiP%}R?m
zrVHxjA}T5EZ1#ZRubmhsyuC>XlNriDxs?=VrA7+YDLvgl-gWiPZEV98>>|g*u==_+
zob!%IHeZrgP(YNjEI4e&e2qQwSXRv`{cUA{Q_(}Y#>9vTcPc9@&)k<~N}aOI+h3a4
z8FTTjjGL1?@!)!UgA^Cs6*E=#VD}(aUErrptgNu)Deg3Qy^C;77dVTf09u`3W|)4j
zB)c}4UyWPCE2G(71vXgE<R(NWVnh?w8+<1WVFFHDYFUpCQSg2-(~hlB9T^LP(gcC2
z^n9vJn7^7@A<qC4@EQ4fbyh(PM<6n#qF|bGzf^N>b_ci6DX2xnyjE|dvs`XGtB)F6
zU~N3oADxtB<L~g>D(&Hs6px`;mwD=1<2KfBM%T)7B*sU?k~ir_2Lw`S`MzygmAj`-
zQ>;&xOzlP(s^DKd9O>M;i85WlPrm0)uxMUhcu0B1x+?;SldZ%NPA+0DE`rC9lO#h_
z_+39SM6$oXg+auq!%=>fuh1bBP662M!w<<3$&5igChy;+WoT&a{*$_<Cf^?%2a%a^
z-eFm{e9hc{ItA2(%-JOpWuo1;I@{Vr0p7O4JZA|BiLk6ce8C~KhSmz6j?T>$8j(-F
zv$sB5H$Nh=zRqUb(RbNWt57~T{cQ-$q~E;>krSKEw{7m5<VZ@O$Ibvb#&kUluO?Nh
zlEM=$<DY<xSy_|w7_RQ{4EqOq449H2!wb~~6&*fe3}NDrZxOZu0A%9C`+qiZ*`hP@
zdu>~@JDpi2v`9)K>3N6qrWbFd;UDcla1eIhWCmot4z?pj)Pf!z2WAn`d%2Z(2-poS
z9dgHB@dv2cmpfB#TeNr?*BZc<&Evr-zpUGyFyWEJP&R^Z7#l-~80kARNqj)#07@`S
zr~?1AnE@1<C6msT$M_RREcIZPRK>Fij{ba!NGH&<{w!TPOONwWDs(z6cYx9;B>`n1
zAdw=@Hk7(hk|j0a^<ERvSy}sM76oX7n!)TMowFt$k{7>Hw3CxlQXPMN)JY&zdo2eg
zrDBdeYpoNwUz~GewUD%mrlwYTSfLPgM9^+NCMiio`uY)l{Rqvy<0w*7K2T5V>kEyp
zUxn<!Ik!*ZQ)b%Zyk{$}zrEU_>66@hM=RE$N*P{uL3{TPEz3?Fa8@g8zU*<LTYL1X
zbA)wz??_Q2Y=Te-M{nEaiE!4okIi|GNAV11l#lmTb@at22e2Evi=hDY)0}Vf9VKpR
zQ9pr&I6X_lj-&cHLGZfyCe}q<%;lv-SV=@=dkUr%*<%s*v3@61$-=_*$86LD+a1(6
zD7k(8{lQl=;^WJv$4wpcn`&yb@9ZDpbbY-xMey9|D$9(u@-ufNK23*cjx;}lAsf_h
zQ+(_JRL_p(H-S#wIeT_n?cSiDBBrc+97H?z>>A7cO}lUUZWaqlRQntqrY5BQ3!Y1{
zRzQgi?m}<K(>961ZeRO?^&|}K;s}}hx%DQu>+@>E)p59x+fO{$=*KP^&{Y;*3{yPq
z)ec$J-*~n$gVB*|SlQ4(FT`eX1?i=pFNBYg*$%SVxjCg`f;ju(zlUYH-|+-9&s<d&
z6Fl*G4J#8?V|90sC=6qngmeZmJTMV=2hY3|?~`Jd7tD`%+VEUDBrQE%LWJ5GBsEd3
z*+D!iaG&R@MGy;&6X5!8EoN+1cja6AJv}Y05C;sKdpQbZD7kYgl>k`u2(S@oa^QRZ
zl9ACe(c;&39VCm0L1ROkLgkC*h5jMwmHPSm0_)p}s5d_~&oCyYkzt1xi#AA*CM7}J
z03#taCr{1TK_W1LO-Iaaa$us5`T373SE-OYz`bnqW%bc_=a;~l=kF(yDZtB1M0~e_
zk@<$Kv0c)A`@FtT9=h$8U%ka(`&O1;!hij7*Hw-m^|lDuY*8@NJ8P&Y9a5v@zTroM
zQ+8}2%c5RPC*=Qh>Fh6Wee-#DzTdI+!O5uax4VM6e!i_>|MA=qgMP=jam};+d+y1`
zxf&(s3HJ8Isd;6_W#$ei#XdCh4I;O7QQV1Rp63REwLV<WB25gWG2^6W)qEV$kebKk
zS!A?)7l2-z#^)uiihdgk0Uh9?!&10N?hElFkv6Ejv0=FCsOAd<IzOLH=1b1E`<C`q
zz=q{+T|-AuE2j1m4`}@Y^wLUvvMihB!1seTuDIgVUKGBE=OP%-8&ON~Gi0KSgEfM#
z`Lt4@<j!ZnQp+ZqQ841wVS+~W9AED50o*eCBwL!AXyI&KRBd^z6dPAC%|d1i)uKlh
zI0yQto3bGh-0y|iC34!GL1+H@WF-7`HnR-ca9jHv30gL@xDY#?q?uPnJHBV}@JKNa
z4`K@lTurj4_^D*0oU@Ab<|k)ivn9m9+nXRZ(tGmP!&;*QCBi0i2QM#i*dnh65GU|w
z2o4dXS!yH{7D>a5bFbmf`iUN8#r(8)dWJhTxHj7rGdns+)JAI%uj~}HBBy_(d^pVw
zrc=^`qjHj|*5b;{vSo9km&tqtai$1Gl?Tob(c8jgj>dqND%wnVgBO<Ih5qOaBTY+0
zVcuz&xtEledIksmu_46>0=Q^nBhuB!+*xs_k1c8SN0SzDxQf}e7uY8(Kt5f82H^#R
zhJf(jWD+*|hE=3VWPEbcW@4<nJVK|yg86;obg)|B2or&VkTE;+XNmf^9j^KNp-A`i
z_Lk6GP*EZ0LRuwgdBoxV`O_!$0gZ+CpT_%%&GF!vuzvc^kFe2BC&T?p{PE1K4(q}K
zeNaymoaD14JxR^(W94>mp);Lz#haZC;7d>rWiFT7``A{1;~?>n#Dv{SxT@Ful$XxS
z1&W~+doiDrmH0wCpCxAvWtOrrVe0MOY%DI4Im1H$5c+SFnWt76-M-is^14l<%tGDw
zr=<49!_TH#=pcLse}9opS?bCY#>Q<|zv)r!&6-gMu$%3T>1KFUnKKWwT*x)Q335JM
z4c9zd!Lv<1K9K(VGSZ&gu!?XB^fU+&JN)z5SeJ!$8GCYE$ORs|KHNWHDblP$x}!)q
zM%~mI<_Pu$JI&QNo$;$v!|?C<<s4;x;_TOl3*NPV+7K7lBlmLB*=x%Ab5)h*Kw;6`
z%$Q&9aq{k~dvU%rur#6x`Q_;TxzEpI8-Bbi#)k({Xxl>yw9WH%b#=wS<GjHo1t^Pf
z0_;$WWxxN%q5#m5qQYEd&n*;LTzK%sdIkn=5!$LyfOe(zXpkwpp2f-vQ4)NgN&-8v
zw2Qfp_mEzQ>kIvz*VM<aW@KbYu9oh+?ShNiv4m&(;7;8aTl)H1bM7DCzK&^gm&}_{
zC4!0_=_n%yC+=iG6_ao#k5>=1@Xg65TZO8>XO0Gv<@UBkwWhYVh{!Fhtc0hvTwr#E
zo>_x$$v`8>1!k<$f8bRiGxb5W4V&oiHw>}H1EJ8q>UvUZ%X1_qNji+S>{$!TD^7d-
zs&kcFPZF}B-&nGKhKOVfS?qs?)>ByQd;wCtk{)Puw6bG>1SPh0GgqLxE}j$h=vATi
zlBy|b9_xynB7L2NkxUK4+nf5=h<bCglP(wd6I8vXCeCGCmku)fEJ;N&Y^UB@P|0~t
zVhrv`rO>U8!vl*u$H&`l%0ttgt1+f)r!3IV=cn}<Y_ATLp4)AQQz{^F5M4Pspe7VK
zInw7cB~AL#h|B_M(DyI#nlt5Vape$%L>E}wJHVLyp|w0|n|Y>2;RYPCBhgZO(-6$o
zIVqm>S>J>#Dpi`77al&?5w)J)K<QCx^gW-@OPjc+*@^xRyfE>7=AL`U;fql$xRIyP
z)7KYwbaO{>U?9BZk9hk}WD&9h8A$Nu5JZe-7T?M7@lJ+sbn_(mS3RT~9Ba{{=cKua
z>c?4TU6o>v(1Tj(siy%T5YnWJ#5W-#PvBTSXUbW5T91+(N1z<TB>}eyt!5lR<W8vY
zp_-OLBpZn)E6unX{<nV$PoW?J=&TX?61^2&Djmos$(J{=Iet2{>=&1eO6cP^>62B>
z%{$SOeD&A9-rh}<rhZW9esNj%=p4cZ5Gaa(limQ*QC#uNV6}0BFN4pLxn)C?^pd_9
z=6QOMY~Y;y2A=ywu6U+E^W0+F3YXLdE2fM<s)Hk_LFRU+_={u>yd+v6?kZfwHq|wu
z+Z>p=;Al?J(^x=Vf^J+8C)1^DA@zYo%7HMddGu+L{y>e8h27z(Y|qjPSyzmGh}(1e
z>j)OJlB()_{61LA?W<U1#?^O}F6?Aw>|}P~)9XRx-4qm<I}SXg5D<<7;FJC_j~P^#
zE^OT;Bq-gtOe#^Wh}<tZ9Gb-m5clmF1>I~We~ahXY_b4k)Lv95JD=gs=Z)FUMp-}&
z6#Z*%7D~<zim<V=;;ME)51XF>vvzrK0+3-p!bS6CTiapdQz6}_R+0GA3+l4|FPm{n
zo@Z9w#&t`ELH)RI8*0mcebO0`nA%GkLj1-^e+ji07b4}ayNomkkoBlgz|=r<Tqka@
zO*r`7xW0nDsF~^jFUW_xVnpry>tQn>R1nR@+gleIfpk%OPNq^6QRBCHNZzQEI~wZT
z67-dH|Be4C@vgk!7_Hj_Gdw#1C=U=`Q%nkdr(uzwN-CDjs~aN03KsUAiaVGK2B<~n
zyUk^w-$K&zM%)XnSKuLECz>;^;XdMLyi<GApD)~s7ZO*-YqU_3UL;bGMnsc*g2?Iw
zBtqO8QB*25B%TRlnGt&mmiV5Y9&a=R5pTYN0`aN?{+j|T6dG+NN6vp?QYr~~V__};
z;@%XgIG~x$M07#)C|^(K&W8M_Z?i9=e1qEv^K|CCu!=5JJdBJmN<FWd!p<yy=g*VX
zvch=!u+1#4v-W>~I7ojlQI>dlPsmJElZG6>940PW^yEh*F!14`V%f<Q(l6QZ#81Q*
zH@|?{kwuK=@a+d=X1<LljR$^)YstqS)F!J2sx4Fj&$@X-`;u*>^?YT|jOX2jlK2^4
zPe0}+T2vZ^D=eb>;!(Zd@ergF;nwpeQOCDywp#=xLgIm?a8x!)?mA6#M?|hDHh@n;
zN_>2L<u)w?tV7<mi2L{R+--HiKHqcTXF<cmh1(`_ViOa~RVDZC&9-#oZFOXPuCJd?
z^4z8f1{|&O{5ASivS~U{VD7~qdkCqbfXC~|t&OaBfGuJB6^UWBwex+ueTob05w4d`
zC4Obx%Zz4hjM(mAb$|W!qQZ9`ZN5i~>-WZr+t>&+X(FFM?tVc|AK`K_<-p1*79S){
z7@tE$_)@?+*S1lf)(RXvI^>ob`?U5Vt>Mz|!39(2t18ODWzWj#wi$5D?)fD8CSDIG
z*h&}j8P=oLz?I3E=JWPSR$cbs7@dplrNSGJvieuw>o32a;*aefJa+OTtrw8RLA)gR
z#vuPH@gpm(-Rw8W9wp_zh6d?JS8mcI=W}v$Mo`1(^f=(tHW#j`rl$6Wp`{E6ZpHLQ
z0Yq<(*GW#gq&S>rQ4^;eu5O2`>eK8Aa%@`t{3Nm-l&=2T#CY-w=%3^j{dLJ|os(6-
zTHqjf1*jMvO1`96^0GHH5C978NGHGgw#MVbai5wYzKsqUA9JrLO;q<1H1B+Whx)~S
zqOazsfrw4w7Fr_HMrjt>yv5QH^Q%8x3NAmtVo3j;N5oKnzfe78t4&o`NOg+2#`?a%
zv6{{R)&9OdlkuL<tSOI+(k$yvy?!EWX>HxoCwl+p`tRwlUUkYIrO|?WA3l7Tm++pA
zxq%ibia)JR%gW07A{oth<kou`+2-V0W>6N8kQ8Ksg8!Y$eV=dIqtuW4ge)vtBiRvi
z*xj?`$czX-?LW7G(CK^{NVdz-K-;ZIR`_q@#*9Cm0<pguzR7Z*88xY4#{B#(t9E?Z
zjBAn7M_#w+%<bkU%qRY3^E1d>{x#*$xTH#)UkPbfAh-H`CfFen#CUldo0=S|x@yq|
zkJU_<t;J%%{WVLvcny0<7kN}cfpopYfUejFyC3O}K<4i|RWb+|v>%HIksEg!&`JN!
zz9aq|Y$SuprrWe+0(A&FC~}UEk1H6q+<4p(ryc(!IXRivk)Utz3dP!0`Cld`CyV-O
z;)PxgVWWWL_;{BF+94t+=W+ut-yQ=RDn##&py3h4NYsg#EvvM8bnp;m0f#Rc#mENP
z$u_Tf<?usnvuNYoM0(Jp%bq_+OWH2b*Q#MtqHYocqFIuFo(Q74@vg;B-{W-J->wi%
z0Q8tZKdls*&k>Yd{3l`iH=29$uf1>oHq%%BA3F=jP?1Nvu5NBjZy@sZZf1WLnnR<A
z%BFgMJyBXnZzEyHy}Oy)%=Z~F#ERw}Ak=VbZXRViQ(}W96-lDC5jMOujtM3Oa^rq+
zfqKhHhL9YOkPs$a;P71#c0iP6be^(}%#BqP!<xuR<`W>5_1ZH(<wk<V&>J_@35vyv
zxz?eKMtk!3@vm6xaDo()K^S<%2=0yoQp5F^Y<+$?mfV{~iYH+(`xP6I3@-5Yz6g89
zC2{66g<?B@Xhrp;IW!CSJ^62so)n+@GN=Yi8X)9;QU@c_gqr7Qu$W1Kx3KIms)-+H
zx=44`)hqoBvIWNDUTmGbP<0=t(r(H1F{u8g>ad*+?O4*`VSie6e?=IAFWpj}#Y%3b
zA#b_REBcvv!L6~~hQ~CX%cb))RfI`Rl~i1CJKNQm7bo(?1Em~h2^ydVpTWvXPMc{5
zfI`XnX*W^jv6p+NQiy1G9@y|v*UG8QIpBEdz~kA0EcgX}lrvsITULp$*1;F|@v=q9
z6qVDIO0(=@LKu423MPT)3{O@yHlF@w5flR~XzR7me=v%^u5W{C@V1crZk^t+-PQ{x
zTy!Rk-r^7!wDk&_zIW0lN-6MT69oZlw@&Z@IEqTLBCBh(TRu5`S{}&>r(sx1P$#Cm
zh)D>aQ8AtRnv|O>YwLx0Scby@rF9Of<yu)wZTe83la=KbU#A&L`5pOgcy{WgSs9Tq
z#mq|A^B;M77%6uS3@8qfMBKdcDd|CtE;|}cbY1{Lo!;Go7HF-v1G&@5Bz-#q)VLKc
z{E#1*Mo6olUBf|{>WtjTU?e%>=O!hJjOoFyH_LeD9^Q6|`W&UiB6YIjeCjo!+)_w1
zzk1Nr2bWL8AOI6~i?)w*JF0owemF8dG0`<x(U@il21VvCG<q(_!YFT|xKq5|`7qW$
zle<0vrZ-qo1o8djc+4*PjszTJ*!bA$sT3WBuR?h@+`Mk7uBf8CP2cOpGql`a)jwzX
z)CC85=~Fs}`B|}mKg8K>aOurbJ2K;DtU`__P<EEN+m=$C8_dGHJgf#A(^6a~`W7d8
zz4r2+oS0x6sJS$(W@~HP%8>fmX8O^GI*PbuZ3y*#=Z<QMV}ETZe(D_<_|Qaw6`9<t
z>$4pdA9!n%jVT#&z#XChKvk`+4>RNde9V%zU%^?7PR78c{Gn!RMW$mvegR-4zYri|
zbgO;tlDyX_UGW<}7UO-SCOL+T*Yv2Jy<YUpN-9@M@<Z~c`pY;=ax7A7$o5**<#gp;
z`}P$0+8JmV-^a^KbeZLUDyLlUc)$36_h$+d>K-=~^CQa7J4|)8pgJq~CyBDtQq0eS
z)fja`PBQYxtu7}E39<uIMSL(0!z%zCuhLkeWXMnAndpVRt;r_$vKCQ=%qJmI+?8(h
z_xX@H0Z{bIbeXi{U@ti`eX^;TjD~R`^O<5}9{Q5GH$)8B2n!c!Diy=}o(3=7=;)|D
zvJi}TpD6#(%5?s2BXkB7HumxY<uN<SHuWc73HUFE=>OUzGjiwtHAw8gGW!2dyC*XG
z7HiNbWXs2uW={`q5B?ng!}1CK;1Xt(c$EyU1QTlKXUbc&p-#kHJxq^{cd$^`(TR~;
zij9rze1(Pv4SnPZC9ma{7cahVqTJ`G`_`l8sn6lIYHH*<WBvASfrL+!RRF4ZRdM~R
z7jFiP<)t@Bui$x#F5ty1MmK23j(|7a;*#Dy-0_Ysk0c{u>xErR5&|-K*B~Oj8p${y
zvDtJza2oOp5==IIlbDGD`2|PHro$sCLSj~Rbx4LBj!5DRcJ$aJ`gT)DnDS=j8=Wlv
zB2A1Kwq7fL;De?$Hd)Lrz)I@AtsS>Se}3|%-tu*z>YjVIQp^|Yb7ZkNBYFjtUoU?4
zXAneemXr+H`94gF@WCZEq&VOce=I#WH<ySdt;JBfHsOr$UpAffjE&TbuKo%@ZSrN%
z!ht-2U`aA2L_}l+Bn|RRf^i;6f{l&j84P>t9#n(kMZOtgGrltj0r>^Q?Au`Ap^rBz
zp1ad~3D6fWNkz=hKJ;M4A_;e&$YH;=-4!P<4Tv`<@7^mRoB;9pjMt5<!=}#NviJ@~
zL#*hYT+*6{%aSp>!glfS7PHibv-4l2)LqleW@e*ouV?VkcQjMJGP*SWU|1n{)z;N5
z-0bVKdzzR0@iRaPYADEXpD1&;a?%sjy{zQYDTk50_M{6W7|`mzGxjr;h^y<@{nL{H
znXK)9haCP_-2AV&`M)#`vqn4fs);^gMl(j5j7)a~7DMSa9qlZ!t3Ihzh-oStz??%x
zm@?j@i*bTq3^9V@0jdz65&LL)WY`>YDiIlQ)$S)6fJn3a6tg;|en1;SDz;=1@kRoW
z6PKHyP43LM*T4-Oaq&sM=&&n-1#u%v%ZZooG0}&jrugDvR5MwLfOIF&eXA_3q2dVY
zP3WhoH;;*ICo{}o;wggIz5#~K_`h=%HfA#nv7JFpgoSbHfGk+Y^mMTts@!CTho0pE
zkqV9b*+nPuG?|dFz!5yVrKi7KgUpVmBmsS<nQ~FI7P<kMjeXvv^(P8(rtOLo%w68z
zE;C)>Wv7@0rGq<|*H0Hxr^4K}0w(rH_m-ohBEgkgq<Gt_FdGG0!#J&8??NOS`kywc
z8;Xl--=Wy15!8yRb89h_aS{>_(|d=8NQBmesF)$wV3m%btVWbM1}Ydy<QH6rRtEfY
z5+rs5YDY&$|2=SDDDY+_4-?^X@<PW<?WJ_g`2=0Sn@DiH!>0st0*@2<<z&<m<PF>u
z@(X}`cgqP>V@xh))qsn=Nzr*cGJFZ9Da{vhMMKw%hu%S)i>yfc0ny!zlQaF!Z$rj-
zuYS(MxasxHuivb1Op%};?1ykRy?6?>nyytYm{a=G+*cQjC4mi@cJ*805t2jR7;Q#V
z=M~xkuJxJi2NtST<g3FpjMKs3%@@NJFz<zB$nhx!a81%1VD-S4fq9l^l70`?#W#5_
zn}+E3cAY)k${>S@-sQ@nN}|%rAfCqhsS5-3DOYHz0J^Js3vxIXSQi;0cy@l9COq%0
z46aN0i&HRw2lFz{VImz8G8vdB27<I(Cxi=?+NH%CcxK)!5%tI{L4Y*It(fda(WIhf
z(oTv4_v;OV3uMR)f-Mo(kybBW+&I}Si(0c~D+9@SHH|@_?~;$KH|-zZEjjfj`VuKv
z65WURvM{u2YBur$aK0T(RVX}&dd-ymUQTMx4<udYhMe;_$s`-s&&=(R^7V(>M7m#O
z-0R<+nX)LEzSk9bfj&FIn)0=BR(M-CY=<9c^+=Sa=<C-%X?6wU5S@t4KRH<x>orn2
zJXi{Ci%`svn2NBwg$z_*61Go9!?1F$7I`-l!C+X;cB_#3ihjY1L%6j=cbh+d{_4aU
zL8kU$<s2!vQ4x(juv{l(C!hlvuEt9IPt*z<33v`Z8n(P9+FDP~bEvVEm6btRiUmmI
z7-<y$mTj8~dKrf{utM;i<PVP6ByE2VL>4YsoJ<r_FkVsi{A85<l8<EKWWBLZE>$(z
z^Y}a6lx9NAQ8M>|sftGDV!W-F$%De(WSxQ06xdY-kjn%OPQKij#ZK&epw<E2-Y}Qw
zW;t137ixS7I-R)MCBFU09!}?JFyC&OO~i@KXY!6B&I|@x*ANVp0=Xk;MIODC(e#gF
zu=wK3y6s^qC(Ng@J&D_#m)8bUx~2}~g5ONTMZyN}443`?C#vu<jX+>)WK!f^IWNzl
zTuY%-3EpIM4+`<?$Xp*-J!0R6GS%PpO4@VpPZ!+aocAKOK=LXvFUB0+$jIWRV2xws
ztu$L4)3xzvI&S+HfA6~(DrSI5s&;5mW`@Aw?6DK10tGo^lM<Jm!ce#>^UUK8X)n!Y
zWhGbY0a_Huc#cz<Ob6K2pt$>P3(#Yw<o~TB2T0g`MbIsZciNe^gl8M;ayP&vDrQmr
z{PlFZpOE2+Cy*TqK}xYuNr;%MlA~*07g7!b$?u%qb7i!18iSOKzWN4r!6E5OMz-<t
zK2wd@Ks-C-b!4(0V}xg34EC-McUj5IQt~h{S(9O{tgP6k#POi>`pG#x7@*1QLgW+p
z#qOdtfV>o)@}f356Sdynqz%~wsxKR)UNYkIHCocq|3C)XAr~f-4FKJ3Bhf4r6dpL%
z>X9yca$qW28#+kehJpf7H&T#h$-^_~0^q`kK6g9}|2X;9WM?v6Y*@zd#UMv18AhI+
ze3m=nZ%eibnX~lmW2Ans{o3vidn#^0y(5XOV}IKWbfIG**fq`dmtm*zN1>g$CDDo!
z++TsR{bu8tQXR6*vQda90t-wY#2ATAhS*Dr`ls~uvuY|PO7<KDRFJoDq3$%wma0wE
zXGbo!hL1%j^MOKde}7qIK5SQ~y(BO;#h&i-Gri$BcuSI8)DizmN;!f1vwJ+}T<|a$
zQ<9u!%!wLGd4f^SzB&pf$SHV9q@rMI;3W&^Y){4cR=^blFMLXjT*MWOkanQ=_Vj$B
zlw+!)5S4-PM*S7%ja<Gi?Y_BmCmgY40J69D^Z58GN;xb@ds0vX*(hf6N9%Y8>B&dN
zE=08|K`x@<@<5s=-4$mc5m7!7^Z4;0FA2<Gj_fCP%J^J4n}xXiFW}nRI=w##_!D`A
zl(Nv_9V)Wzj_laI3Ism5Ep)yr2a#sOItr4X_Urqdq$HIj2bWpWCGnCyXeT%D!lkAx
zhw_ABpJfvlux_BgmZajccFm?@0;~?+)d2g21N|NvN3J7}Vlj!<QP3Slo|5i)bnOY#
zlR>6~k>fBE8*E;_-m54R*-db=ZX#2e6%=gtw~LYsOB7%-h_*;vD`G$Td`w$19hq{q
z#@b$3>TZFxZAA2rRyp<n=%x7rEnxqU?pKQ-f<35=<9ByGehVH653xPHf%r8HRC~=}
z2uZJ0WM;EnF1bbvy*K}KuPsRTnb*4i0Fbij4b>iyMAs21myohF9A<(WL<}|}1f*cR
zWHD(X(&=;zv7qXYHEYM8DkRGK=O>CIq;f+LE|Mu3xF|K-6O}Qm^EEzNjzGi@k^3{g
z*yo|En|*>^M5QJxQO_xMl44S)SK77OjHjV-kpEb+mnIpjjeIXen!m`{Qqt5<VuaFW
zN3FcPOUA-EoTZ-XKHMu6Q)uDob#m*Y>nAH~uRV^dzHs7nNZ*6R`-ukB-MQbdiz+}Y
zN0K6?dm%#&MX*igXurBVhT{Pgy~*G$QUh@RvV_N*w3`tGsvNGXQMj*Y<)piS@V~I$
z@cm);sti+2vDW#$+!2C~ve|Ym?*{AB(qx2csixEbhkMAc!i|+Zb!Z=HCsrTO^{E3A
z2$Ce268$@G4+mUx3toVPvX;hfSy;M8MCV6EhiB%=Y{*>n$g#|duZ#}U5OKDAn1!0H
z6#8XW)S@$OSs`$U<nuS?Y2*C7?ZnSTy1th7XLbgukh%99U*ZK4v~rpn&B9IQcPK_i
zpB_@5x|7)888kjCiM9mT9p-q^A;RDr9<@b4eI8FMbAC}%ot4<aBKY~*V*#i6%E{TA
zPqdnh?z^h544wXP%ugdSRXY`xfNqMH=K%~SLA@BD1x-b!*W=?JAo@*XqA@EO6y18|
zqg2N&GGD1wSNqDUiH)h^-SXz6Q9N`3QkKaM%zz&r)tJeoOBbXzNBB-KVkYXfV#mII
zbs6ALuDIbkq&w7MurDxd$4jTdMk!=u0=;A>V$}*UCU_0X2qTyqQOq39kB`F|lO%0^
zFNK{2Dp1JwCu1g|sdEwA9~lNohM@GTDS+@0Gd>qgI|QC?lySXGI&fi*J%G6ac9;iR
zgf6#D7=x?%;Bw`$cS&*)vt(E~&-`@pGVQT5p>fXgdQK@*6pb3axULPBJeztZgJ0F<
zeHPAWUQ60jNcD#_6iUIPLpn%YU0qF(JnZ1B$nBP{sm$_DY-1^H!R1w)uN=qa4QXmU
za%}ieN(gNazpAp`$5VsoV7fzQW0;bGhQJ!ynGbv;fP1pBYDmq87&lDOw*j9<CLu}0
zsxd;mhn}-l6lOyL87mWAChYT=+cf=~yMQXGYW>SAT<cih_19}9Ovxn{KU0omVJSA%
z5u1!plyTlkvlCG{)`FDW0H>arD9q(k2S{-x60J2(wF!C+C{blul?k6$CA&QpJtd`{
z{rYVjTJ-4W(Yj^A+Nxx-I`frani5U0QI6J~jO$w6MP-qjyTp8Aeugr?Nh?P`N-Ia`
z+sm7o^C9sc?S-9HXz$NtP`2hW05~s@p0r4D%Ttr6eQ{O0t~jPLJgb>Ne^f8C(bs;`
zHfn1Q<FSC*aAoB+jU5vgPKY<$cSyHL$2uB-RgaQ`39~QB97g8n<<Xn+5-;nqO-Oo;
zNix3|1=GMidE_vZk@*c;;V&{vO0fUQ;nt3t8THdhs^`cgiGc*Y)R)+2jaMl;!o|-_
za^`C;TM5?9yfCeEW9w^B|F~Jm?!g$J<+c!15ZZW2NqhK;JBjJGi^(m1xidpc+}i(Z
zErleQi~x{&8#@MmH4!w6e3!HASfi5Q$!_&<H&_gj-5y9g_|7J}aJcGN6b`&m*NXEx
zc7-l~r`9^KPjeMbQ;ZHy9sseD{Mie89gfu(;1WfF3nlx?r^o0Y9lpO=284kMO6e(`
z`yqV@b11@@q8k-^xVBc}OSg7eN-Tz(n^w88H6BsEGI09EnL~3JFnbFI!j<WrzCtyg
z+CCi*u4epk>Tf)sx@7vB#Lz*t10xE0Vfu0R(~B<kS3H|q%k@5I$xVGP-`Ehx)l=MC
z&3Sfg^+}dPW<mQfTC)(*tFP8cuQBg2jAct*CVw)Pv8`)@Me%foOq`ndfLh^bQyW8q
z%w;D7kg$tlE4#KrDE8^CiotiFpk>apTMvKm;m^q;@j}ANS7bwog^@J9;$mSa_p-Tc
z3n>Y<e!8<&pYdbsry<2js6Q2wKhZ$`bOGu53m{lh-1u;aNnTvF-A5T0m7WSO1}4Rj
z?u#q7zvqsyFE_?GoBw{NwyA_E6x=vu>EJN7p*#5-15sVZ4z@4mWPd`G$k-5q0C3)F
zCv!c7yJ&ZxdOW|q)kaQ#_a~2YTbk6?8qY(SjY6jmFE8oCa6xMXb1*J2uoBobsX`;n
zhfZ-$9IpJ7r6F{l<;D{Yx=Lw3kFWiNNQumrO+UGPJe5f15~K6)&;VwYQ`N7oB8iWT
zJ7tb{XTn;1J0-A5D7(cV>zheGN=Yz3@g55rTC|6Zx(oCIMr334+0|(45OKvF^M-G+
z@*P<@JyUbZO0bAFTp!XFmVQTLb5_8<zUO!G=QqeV9?4(AQqUDn#szCWJMKfaGI3=b
zS~@}|=+8A_OFgn!nAY9_+XXC$KfN?wHQAh^Q7paK_LoGx)a|^C-5Yx=idF$U3L)Jt
z8@IeGuV)i$(a7;GR*q0+W8=9#oxIG#85KR1wX><c$xb40x|1pRq(O#Qb8{yWZQ%iX
zx4~HH*XZVt!LL}@f(iy>Zoe7eTY@AvJxk;$R?fHauqw(Wy>9nyb|Ba6w`JVkWZo62
zlabcpbltKe=DmhH*s`z?eHhz%u@I@Q;ho&-SM(ilok>t71E$FUndHkme8$j|Dw+hK
z@)`{s?I4p^>P&${2^TCPP5^On#u+Dv=zToOapX^BeB9TcfYBOMp{2!Wtj1*HvqNg{
zmOVKgpjzlMzd2%7^0xI;t>Pq<3yBxk6xQimM7v-@Ds-)}kv~{L^uPtaL`Gg`Beb@)
z&yYW7(AwI1sAdf-Sn!_bGs`mna*Z9Gos|^6mSsz}yr9j_{<K$pQ>nd*c2(_05jt3d
zAF0)o_6ySWhX`irm;6{OZKWesKG7TjYJ_F}I}5S9lJtm-N!nlu79<yO8YZZX#2IyS
zyuYXLd8$U4$TO_&nU$A$Hhq{3E~v{JQL7+-(FU&-BE3E%y=q?jQ1c)Lc;c0v#th)K
zq^*c7bh2!OYlEM)hAQuH-L<}J$hgvIUOgn!*}P|QXj)pgRn0{d-<j(TrtVE(HF1}v
zea6wvG)1fX5sP~S@@Nr)+ISLAv=onWX8E-^v$C*4GD8=AGfQSQQtk(+%6l-c^j+(x
z)x}9jnuPB&&E1)q%=u`@%|*no{O0$iCo#K~P|&D=eS)x;R1dSgAb)Cth*SE8?+&hf
zdO_c9NH>-l2K)LXUO9I}G*MJpCYR8|&IynNr*A4Xj**l_<nI<SCmevFjueV|rd%3{
zcwWR9pW@$()iUxq&~q>OiwedV;oX783O{m1j!N>1b~!!#Ghom+eUROKcaYyF*~@ed
ziel``c-${NurJ*~Ehfcfbeso3J8I78BV*4`zX*FZk+fd9=Gs$kFNyF10*{9bIb08R
zt?YV`*hv2P2x+Fi3;pB61L;)6(@Ol&gLQJ4$ZP^ryf-OC6FUuhH;Ds~IG7FK?H$1k
zrb5yOhS-*Lnd+l4F!uN<`71mS={7?v+hawr4VrmLFGR;@B_4nHZnD3Ght@b*ag-u_
zROkJ-;=VMT%D#L15}~4K&XA-OX%Zq+8AD1kWXxD*$rLhFiUt%SLmG??sLV1}WR`iJ
zm3fHFZT{!geLv6fe?PwOmv<lgL-%pFyY{}W^;_#)=UVGrg;rcYB%B1%35%1r9VgF#
zbV#J50)7klG?6DtYJrh^ReIs|XCE~kyGT9O(ikPGF)Tb_E2n7Im$4J@RHM@cO#&Ru
zth9pExob`Tx!2LHOXx5(#_FbDxE;mh7z57A?2GX+%`r*~Vq4!ey6=8-g)Q2#?~W-f
zsc<T^dk7t`cQ?5ZVJoR{g91LZLYV{e02GNiu#p&HCno^P^(vd63(O`pE4BcpX|4n=
z0;UDF>8rY)G~I0P`G%InyJQYs1v!7i4xbyOTiGYMpdcgjw_ThZ{Un>^Fc%DeexrBO
zb6<p&X;RjmoVdR8RyoQjYD26t%$M9rMJlxaRhcGN+mJGU6Mq`6|8w_#>)&pX<8>c}
zjN1cr{ySS!>)5m2eaYMCp+5N6n`%ymd`H^5jhPw!-_>r<Gszwy#1){%e}k6Acy;mZ
zVp2St<jKHv*nZb!QMdP;BC}f(^O6mv42xMm-u(9lsXuf#v5&Bktcz1Vp!h6;wQQv8
z_qk^zY3LE!1r{;_LY?HO$XrEGW9OC&uicJpUP;b%3%LJgc!h2`>eSux7oP(w1{Eqc
zGs{Mwk);yUn|C<1yG}s)fV-mdvFlSGce^ddg=hz!-=Sa;p7Gf<_UG-(o$vRT9XYr~
z`Djiz<Ldez{)*8qjz2%es4FNE^B#$UmW+|d+&rr!mLkIzDkPRNd)azQ+iW*DKffgY
zlCfka(oW3f)924pL;-?ZIA2{Qr)ys^V@ym8L4auycNqL$X!<Lw4bFz~g~uVK4wttd
zGBbst-@0*Wc1+sBf;Z^AE8C1qNkpj$zZjC&l9G}Fw13^FqNWwliqDFQ7;RY*J1%Hq
z&0+T~ODVdhyW}xfNoA$1zWz?H#pM;KcK4#H0jg^^Ltd5EaV`7bcBTL>pQ`LTJ?~B$
z6c!fNMxGd`ettaj?5R^!#0%T5yhA)qT1Q)6Wu*r!D{ygh)1rk+$dBJ5Y0OyB&hCR+
zfOzDN_<iisao3GjYV7Kd);{%E`So>dZhHC)hBDT4dv2OI9;f=6<z3g);~CGQGhZ=|
z_KeO>{~pWm`Lq<ZFO@1QB*j1er&M%}fD1imIA4ClpqzG?;*G(Op}@1hCH?2c>e-$S
zvsNy&_xn<+?Srh{zp4)$O4NAp>ecQW=w8|`aYMMauI_PY=sx9d@9p~J$Q;V|;X{FN
z-G&a6%2uD(5${C$GWlm)YV-y~xUWAu%^k$a!?T8X6ckiv;)3l+d6ZclVkSR0^Of$E
zB9jL{n<b>^!C`H8n;Vy{juQU`AKrGO*35s*xD4(6F^9)zJB16v>|AS)n%v(v%Te&*
zn{Qq*<=cgf6<~Hc!m1;?!C)c#Qo5+)@SaNfH+^H)1N2E2)NaBllpMpQv7V~D0Uqm<
zNqz77UW-7@WsQ(+r`6=kPdS>e)f87OtGN0ZYARE%&yH$EUuwr*2|D8B_3Og&6D$VR
z122D`r01+GZ_9O?<1P<h$|`NdEx91Bv*dfMT2G2T@`U5smX;Q9G<(2D+=L3p3ru{I
z8VBzUztH9Ya%N(W6(7s%6Apta(MzrM#>;;e<oZY>7*B~7t+GEed7=d%i8k!aU2(Tr
z1C$vO5))Sw5Dr|8#|{W24Gxc?v%<J3N$<3RLLr<5hfj!QwIzF^NLs*n%m>>p3FwPs
z`k?duQcO)`Yy7KMt3ZJl01vaapN!AWW?5KRfRNn@q8q+c`r^f>eg}U(wH9b_nhhCK
zjB4~86_K+Vl8j2H5JwCO2%6Qadoa#gfLcP#f=q*jpwmRB-{`0nVRnSs)80bVEi)VD
z^l)}M4(61y7<D|2O62)5iIfgrhfDLeKVnSH%n}5YE0F(Oo$6OGPc?9K6vTB!p)tTl
z9J$tiI-_W))QTe3e=te!(_K)*-I&d+UD~da?;d~dc`@dY{Xs+)c6D*AS+k~gO6Ny=
z|3ixB+sKH~A+9Ph=dtDw)X<#Z$6|$Bj~+2WvuzEE9CC7Uv>P{WWZJ&nOx?xb#4@5~
zsilT}KqTxtNBP;acJq^lG4b)Nx?6Yd^hd#iZh3iGIb^IoYg1TQ80IU4=9Rn?f3!}w
zLhbY6PI2u;owp5&q0)mKd(ejE8xU~(VqUb-uhdx)x7l|B9FNX$9}@{xx_p^?JbUC&
zborRy>dBm0p2L4fpc(Sy_VM#?M0wS*dGFdP3sIeNr{Z76{`+P)-29n!mIC%!=T~8K
z-{X*w#_o@7?ywc>sh4j=(w-%LyD8dQu+!g0(zeaRO*neOMTb@RmT0Ga&Ycw8-L($Z
z+ct0ZMwXH#%9cT14Jtq?=g%8DJcA?Jb?{(f3wPwG__yXMml7QqPmxuv+-o%>5O9oD
zhcjxkN^6$7+NzYt=fxO=C)(3sG{GSuMg?9}HXQx+PZO<w`d0fVNmL8wkFblWI5-FZ
z0NzuM5aN`S<j_pkmyJLB?9tPwzJ<5x+Wx$a6vxfdHlA)7T<Hq$Vhq<=B32@f71v+W
zwDL(QOZ$-qp9Yd{$JF%nc@-6}-d-bU4n*sHavJQ+6{Tfl@lHtC@8d!5q|w%LAw4>P
z<4V!c=(R*~Ijb?rs7#8Xp&|NK_L44QwBysZD^-!FPM@a7)+LWU`}Rdp-j9!2(=~gt
zWxjzKR?JS{g&7`et!is6IIl~I>hoh;2=lXHC%?f5qt#PWQ}5m8Z2rtNT~c|iX4aN|
z5Q5&yoni?h9|qWrCk8mrZDnD(|Lz^%AE@TeBWqF7)qMyh3vxJbus!S8;@m_)p8HaG
z4&SG&=Mmx4%NfCMB{xu4i8>Dj$jq5EriO7zh-PO$x2HJ_xru*Xk3)Oea%BGd(!ak(
zAHM(J*Wsf7<8K<>3dI1~Kd%y{qlHTU{aAnO)9$_h`PA+y)iaYD|8oIm7as2GkkbA4
zm9u%%|JCIZ9tQ?)gvK7;Y$qH_Mn*X2c=-5&XMbhc4_F=grhCawO+2JtRwimlL&PcN
z<Hr{&`zHaUvqd*2r+Kb;;A6ihx;UihoqZs;vc7=)JuZIe&Q!Xj?-&3wUHi8-<#1m1
zw}!Wxj7bN)y|feWY9~6G%-g*6S(eY=5E~bFB3FXqZdDy>X765fe&(X8=K1rF>+j0S
z$~rYP=&Gx!8DJR+!04)Mr?IuMs`p;J*!6q30oB~eRe8&cmhCw%bsdJCwK=gII-3R(
zC!<vL^+|~!sYDHOpOS;K@S&qO=C9&=BBESee4aaDYG-FR*pjl(<IgX7GE_Y7*~t7j
z;s|-S^=0RNsL##g=^u3M081T_6Jn#BO-ZgXYiGZ&dCi0$Q(P|7+)<v(E;Mv>q}(zo
zyLEN6`DlU~FTTkpy7g=YXajx}7<db%5o5GC!_dapFNO3Uq%`aFIy}MhkCOle=n<EW
z5VCG(_pfWHuQvdEQhD2O9g7%Q`BLU`tuU!ecp(9oe%sK>et?-dOLLtw-ANf4lXbWO
z5yx$JA3L@QP6Z+Y#a*=mEPeu0vU4XceE#x9Z%VdRedf`ez3C;x{M1SmBFKd3#mA4e
zuVw^U7=Knq(4}en;Y$dMoXFlHFlU_c@#97irt1j<aB?>O#e!?sV*U%0;xYqO&)BtR
z3vN;~<4oXUoX3xE1M~J?x*Xu8sh1vRJf(;dm{_plUNzn=vlCsm*E*hiEGlG2KDM7_
zejJUZl*~tu9%T&t1Xf1)`s6O&0|#C<Sm1qLUHuLqW*-s&87r%ItX$kv5*T5oO4UB-
zIyVlXA6Qf0MphwA^rNIfbuG&{KO0Jj7*yLp9KqE4WlA5xT$AWU9;GQoRNGlm@g|5J
zJ9cn4p*>~|VSvVJ`gQB<U9DssMwp}wFnLs~w(jxc$HH#2eEj_U-&3xfOSNj*$REal
zH~c?6s7rL;O+swCce3ZpU~AgjhzzfiX-HZs*pFi_`%7g_=3R}qMaUUw3555U3&SMt
zA-d~dUzmrGL!>Gl9uqBj_WIK>aV<g=fPhfZ*SER)tgKAYsy&mLIAYf;^Po)7dEXT9
zr}+X77(w7JOS`(Fv3NHV6O&hzxSP>mK=3gw3L*pRR+i`TYd#puBMNhJa#G=rnDKk+
z%gU}Mp(?4hp~CwFNb4&U0`K9>MYPX?8B}x(k7!EvTv=Axzq!_9(tDo0@cdHK_A9@)
zNc*#k-c3yv0LZ0MjNRzIG%I`ga$F0K;==~VU%j$8BMu{t%8QpWY&yc*bB>6McbK&l
z6&0a#eLZd{HEa(tmVy1mX6Q@deBLR|WEcyDKSwl;*2%D;r>8#&Si<QIOQqSob~TFd
zoJ!$q(P4a3>g7ol6(+QD^11q*_3)6G9c!a|vCKbw>((lglHQt|4y=b3@|;pfwvNlQ
zvp?W<`}_M1Fz_|_{U!CEKYy6EZoP{E4tfrc`Il+|JiJfVS~evW;aMTObl$aV7lEhy
zl;3nMIJj-`HbIG$=Gx`>WPqQxbZcpCZ5B*G`(W;ahK2_6<*TsqvH&;xp?`Sl-m{if
zo1z+%D;5AAk<+guw)30#HvG!!&6TIW2@uu|O$Zq?v;Eo`HhzX*?)IQz>QU!8pY`n6
z>u?iuCbd>BXkfUb7<)_ikUY>?MUw3UTnQ+Qnt%=b3_bzHR9PBG>V+n}d$*aOA;=z*
zHJsjqjfoM&F6`2>nG}4hk+_kN!Fb6XCMncQWq70Cy{qW9Jo{YYVB$1bspDE6-33(U
z3s6-13eOUo&nmf!nz{&`A#AE-$L7PvV?dM;?b_$f)C;|^Z7^!uCd;}wKVi@1oEjnh
zT-UVJq$Dw89I%6gFKX<q-PfGI+WLENgbP`R%i6VNd$MbV2)f6{#K`dJq*s`UCu*l{
z^!)S7r{<|&gJaL<)zPNIl3*JfV$S%<aRJ>LPC24VwR_*bZ?Dq%cz7QBTT@8#@SwL@
zbHHJ}Y?IV8oZbMhPZrw%>6DW!OCY4Uw;>G)!rM!>52M>EI`jCvnIQe>N6)|@&_;)0
z5yRAna6L~Ca`Esez@x@nk<T%F8NUgQL0cQ(GdRwlKVM@aYJIP+-9?JNdQ>w6@-l(M
zF8IF6q!ItQD1bIn_;GvUK5lL~h{oPKb(?k#(Tit${1ZFIayAiQt+>MZQu=c%R56gA
zPV9n&(swffrzcpLG5&>_Ji!gvF{VxwfT&<R)Kq!+iiO%saWL5p{Z);N@O8B7*|4nf
z#HV2`z#0@xEFBhL(7$kv=+xBBDAqyeOej-dOKV49VBqNeqOF}Q`CN0!Zx_ojjYQ4}
zvFhP}-h29VJ5X1vdVnC7gYD{IE8Py?3`%tuZmE@vmX;Q+eBQ8JA0vl^Zg}#whBxZm
z<*ixv@%3G3W3oseFP=%%$yk4qaw8;eHaYF@vB^gR1AS>}X|3AkbQ193@)aQ;Ov|@2
z>=er^9V{!>bvz?@IcY_!4^_Eh_;x*^mDlkz2bA1V@*)go{0ek`b#i&1ympPB1YFTG
zo40P=&BIe_ws6<P)Rc;V;Nz8FmR2>%mm~>@c^!m#j@4(wyzjL?GvtQ$K=4cEoTlVU
zq05?TYV`&b>^eMMURGXyhsmF#a9w?X?;k)185ftV?-pqY&<}3YZMa|cOjK#asw=N!
z+*L|ix(LQy<i~p4TjT8(h@io`<guN^JVp%%i-y2rVk5hSDbtrVX5QL~TkqVt^9oK(
zRSV}&FmtSmrEuiUeB}oxnq={%rpKmQZJIZ3-1rI^oLE=5p07yLc>(xXAL<_as;dW)
z&iK?n2w(yY?NaodK&Px<kqC;}4b|>7@7gKpp$mYiRK8{H9h_Q$PkuLV-t5I(%Qkqp
zP1=d+rHcsKn+TcHr+rJ$n<G!dpKsjAX|XmR#RWl^EX`#s&J+v3t+X2R1YWjKIjg96
ze;!p0S#|X%`2Em7J{$bx$vpt!d*}w-!B&XQ6|JEeU{xbL>s}ZiZjsW!ZECvpr@7du
zd>L7VgsmgqjeTpJ%?}S}c^n+P2jV3M?0#14c%7K4otWuC$(~;rcrJ^tq1Fjk&(LV8
z9Qo5<@7#!H2=C#;p=AqbFRe_P7@mv5MHR}?X2u%nhSsp6o-aPKE6WttuO>D$$;-ct
z%)B$W<R^#cSTAs8-199-`3pt$zo^{Or02vi=U%V4P)&FpC4%Y8UB;m0fkB#N$YyUl
zq<iFI6>1Z)GjV6aj5Ni`TLu(GJF)=Ejpc^jA80x-COHExnLmT2mUN$}Qk=}@^{{`Z
zJlUE;`k%Blozgz*cf5mev<7^?w03e#%-7*;=o4A+x70lK_-unCOxsjrkw%K@aL?KH
zS&KOi2ba38ERGyD@4!uG)s>gL_tCQHP)b{E^Gj);n5O*SwMrWKo!hUZhKW;bNhmP&
z@F7D)`VeSh=9BK9DQMl3YpOF7*nRZqd4fqV+rh3?NUJR%am+IWeqpzeP@~D`>Tuyo
z_D={Ce2z#TQzkYP_u3b^1=w(~SUPhK&pAp--6~qsiNu(y{#=itFW06V-Y1H@BjD*$
z-tz6<eU0O64WgpHE#fHQRZ($fi2pl0NDf*h2roqB_=a4A!d0ZU4Q*(eb=y|>5W)+m
zqgC%5U?RgIrL$*4qUJ`LHlU*MqENw7xS1d}1S!azQkwyE`2I%y08#MVbJ<)|tZ}Mw
zo;}M`uR#-S!CFIcB7O@{YFU{2QQIZzH2VJSA$vG5B=L*{naaA}OF6^+1r&IU`4)+V
z{!KwY;$mZauwzgts|uv=ZMZ0+00b;UQncj*1phsI_B`dQW}>iuyyNYCk>V;H*>E}i
zuQ}d8!xQ0!68bje;~#&pPOrRfumJPPLQH}++$AjBJeYkgiw$S+1o0vvp`>4#N{@6#
z3M(nzx`)X0l^}qwokFkNheNW|&2~_5-MMw^<p#@VlurBUpUV9M1Js0Ez)ruN;;!5I
zqz{F1iHf%MW;%|9hueHRziQR07)m7%i?46aw!a{3hD4Ix-3G`tm7G(m%gd#~JOHZp
z_Vz|<I2#$gD*cg76O=psZ2eBL=0SeS;pDjS3g|O_&vkPq81s*Ox|LBpQ9>DclV@a;
zSB(1DIoD-$aki+3ih!L9jXD=DP}-lZ7^|vyf*pBN|BbjWJ{vL;mVxS45%41q!9xgL
zL{sFxy&llFVVs|zzo-@`At@<2<O1l_kbL~Bmi1-JmAZg^f`VK4!zxTf?jjl}eo&4Q
z+W~M!MMYKnrMh~9hldAn9Nvt9W1302cJo3l<+aOnMCjp5avB<21A~J80z?{`(`~O+
z_Qxz3s`GBaFbq3OyadjDW2Vzs_;0aYy9(Ykomk41&({M&HxK&YFy6icr<1#hYPfpu
z>eWzG!BGj<>tc3TGm3uJ%oqvStQeVBmW-4Fc|Sc$O}vNmB?`d8uX`cEX{gj&teSmT
zws?MNiJCwPqBjFTT|3C%QNl{lGcpQl`5)pmEwA(%?MeJ4dTk~9O>(MjS0{7{b^Xsi
zJ3&R9jS@50)cdKMcSFmyGt2%;%E(CIDMCeE-P9o$%^7vC7B_9$6zg4v!^z6m_Q^R}
z;6(j*#uUDqBt6lgtZ2D=C;ocYZHM)PqvYk}!u`H6QTn5hT`I;(IXb5O2J(Q)^uc-y
z!FmhF+kI_nwRP&>)Qm%B^YMgUS+}J_h?SpwPXF)`N^LFIbs8+vr2Faz%qeB+k(AEp
z6>6F5*E37`e{U*^8}vx9>B`G3az}RJOXeLGTOGKrq+7S$g?lyt#w3OhYdUl5$fby+
z?9?oxz8GpU^L74UPsw$$*U8tlMMnnr>7M!UTb>o;I2BRiti%xrOVYYK0qqlBP?mlL
zDn~<3`<y3@fxdp!1$hG&WAliX?CLvAPN6;T`lCKAe%MQ~MO>&=+tgXoLMdZGt?{X%
z5Nq$~+)hg0m-90>&;~+yp=wwd^2kb6OKZ)Go&XJC89kCYcy+l4b;v+DHpU(NGz8O@
zEq4$fvXAj4N3Z;-(_J+Osg<hrK2|EKsz%qckmg`8fG8OH=ChoT3HmKe?~>={cWI$U
ztkcP!lyxU5u?@&h4tOn=KXROYj3l@2=f@w{MCAP0*1V9om*u|XBpN;QP^d0mGT#Ep
zys~Mkb(@B3p7Vsh?;@+X&hPgosjuVV!)x2K0aNE8w{vyzx4CY<2Rn-&t#+bDYaX~J
z6q!f^{yrh;A7%4Je{sxWynP)(0@BhS=yOzkPHwgwT~{Rqm{7aq4m_@_x{sMzWG8w2
z>#aylYQhVQ53Og=kKgi&f>9}Im$bCPzPZ=Lx%$QLHXHr^Qo7cjQvTlBa9p0Cls~}c
z<O@L~II(?5r>F?vcO9`?-y_iqqA-1NIL@ZV@6kwY?1LKCS}hA`k=ITmyN<}=dAe8Z
zW#z-7X~Z@iaU*5|f&!kWs{w*09%ZtX)?COVxm)}v9RU)Q7Sr1DAd_$1y0t5`ob}J6
zxCqOJ7CTq%{Ev4%RzA$g(_X2`A8JFD@=TH&2-B1Sx{d%9#n{@PJm=rVN+w?g9j^Dk
ze<mq2$hh2?FD;}cw^B8E$$jQYp`$kwW1x1w*2k0-JH*=C<<RLTbI&1L`{SqiWmdRP
z{j_n~wtf5ljw6=HKbupo1k^a9PiC)P*~Fmex9YHCbR;)_yS7%9toRel&YOhXz7`d|
zyp-=j4BOIf;oz{HDmGa3=aB5&!_&`W9oIK7-~-@FB%G6Q$C$fDXwSsNVLykevN9=H
zv$S#Q9YIR7_M-jJ@Xr^5{UpN+DqNWNEct-x*RPkmdi99cT}c&}TmO<f#3XP`A1Wub
zO?4J&mu+q62$Bs@k<1N#yK%&Gg_8064^m)9g=aAE>m(U=K81Pv_U7)|PW%hbKK+h}
ziZKg&q3tYd)%>0cX*@9;bQ|f_7YH%#abL5yx*ik&rrPvb4#w4(T}4d)T3p-<L`)1%
z9I_pcJ9&4oTJ+P^9;qO%T&iv~C<jJuU=g4PLtMMxjgv-EQSk^yNlY$ZUX}3txHHO!
z8sAJ6!DTpv%{}6jR>AQ@a)@lPMKApfxAfVw>yZx=FW$drBCBrbC%BC&snFA7YKa<T
z%7Em#2p{_%tF-O*ngi#|j=5)h3lnH7-+}qvLX3yR%EU3Pdh+B6$}Jp63_sJ{j@}HV
zs6FE6PM<!Bn$-RK_eq6a%BAR<7dbg>5Mf@2W=u1o1@jG-OCJO=(IGUnfJPUxMl(ar
zNmEu<_Ws7gH5vHL+z;VgeZNyZOc^@@7!ZJM{9|}1PJZ|96~YK(j8DF8=*0(5pE>gt
zKwUW`y1@dvNo$D$%nL+ryUK-P0x>+7u^d3AO@Cd@?%fI)x0oa~0g2&!D?m3E#4;?O
znw*)D1$h1d_W(_eO@lSjJ`vG-rByFnK-T>LO#^FBojQfThs|EAp*zK?w>;9<cl*f!
z%~rKM)z`ssf@B#DXb4L?KtkgEC@QMcfU-<kG6qzv?Lu}a4{F$ie@Fi{5#)oc4~_J|
z9BZdpm|n0dMiv3h@)at=+`9vUSE~?+eS$eaDu9dG|3s0P`Bnu%5z;dj6r99n)YpEW
zKYxA{9PB-jztU;u67~J^;y744+R{dNYEE9>waEVOzs8?^A3O-!sOERa$4BXcF;M_4
z#k6C`8c$Ep*Y4V>W;X$vevfysrd+8m2GRd4UAb}A*b+>OdFo~4hp1A-c)$~o92<Nt
za)R|B%MLxLt6O{`=wP>P+cqTy^K(Z{N|+d6eJ3ew*)WL5Rk;!p5`(p|>+)8X-2lm6
zoO>=oFm!!QN=P`Z$S@+eTBjEq<{vHI&hp{R=CFd<TmE9?LoA>E%W}#vqON}-JGkl5
z*RL`-1D*Y`-})tRUDU$v)%-vP{`Dp`-Bq-rx9G}4890c9atRF<L$x;U0GU}1bv(vM
ztlm3~X+yK6_-E#s9T+#iogaTDtoQp=^s84`4!!z;yjU54L!`(i^u2`_{vdB4Si1M<
z?Vev;Y}GA>Reb=hNNex@DJYH7%tEqv1J1K^bKg)_Ah#Q53y}UH<UV<SgR@!pxUNM}
z41qf=aw-l72G;Q8=X;@G;igKr$iP6OnSgWI%Ld~$&0v~iS%<aw?|^b~IrNtsPoP5B
z9qr6zh51Ms8SMrR1bgy0GV&pM`_`gK#uJs1b<REta(MDsj?9kClEepC3%4G?tsB1m
z8-ULPeBTy#u4fYNi{1UDL8q0KW!2PzTVkFE1Z?0xb_^1qYslCR(sT0HuTusFyU6MW
z$QTZQwPLUzrkc8OsTK`u0qkj2JYBMvmE+m=?%z)j@<$5B0R7IJ=tX~tDiF@f9dKr-
zypSlK#Mb*!<N17No!{BLeQT^6n{oVNtl<;4BWLcxF#+MkfY6S{EjiSL1p-?h;V$;!
z1I_8ytVr8^0J;>~wxHq#wLuyjP$^WGv7Mv4e(Xa!hYlAAH2h`=`-qd@8Akvn3d`EX
z#YGK>C4+OTw=;g<>;WY_JjLT@AvpgsBHFwRbvgKqc_a)Z<qe92tkfZcD?;Cz-DLME
zphKk#AAvTr6n22nAcj5Z?VcdGQxUBhwzdrkh9Gdo_zlYwul}uI<eUabM{ImiV@4Kg
z7}$ircW^R4-onev8xxWEOxSMKvlEWj>}487oJOAp*LP(*9zc5}v$+=bALF<Z#E&08
z%sR5u>iU2#$mNMwk<3Fu;rRNnph#ceb|0?4m68OqX@3qEL4^<lir2~7g@#2(wjhRh
z0GpJTa!z5*YLv^*9YYhS_Xu4~`sC7%%zYxT{}3_SmazfK98#a0##r`5;82PFTd1kj
zz=wbcx%E218d`Op_AOBw^6x@UsGIBB(9v_+X}tX&+&?QO>u!QAWLhOfkHA5VwEq+y
zw8!$o6@p}5$b}x=Gr;LQ1i548s#XP@2Q2}G*WdveAUUrK0!%3WoKKmqRXW^*gKjqE
zsj0VoMyBc)qJt4WPMR+C7Kg{L62v7>ilC~hYDLljtOWgkZ9Mi~I>t!$k^YfvrHYCQ
z5q9Qh<8`n&9y!u$$+A+%Mv3KlV{YerIqjgg(WbBF>|>aQpJp^S-eGfYeAP)^T{hvW
z2fhg|J)0THB2~Q=vILBz(CMUG6=D}*JNtTOL1~Z!(l9fUOha_tEiAkp86XDlzCZ==
zCP<!FF)=jY^TyXd@%0Vo`I{mCTk-0T75@KF3;VZ(_WxXZt6!ns%yd{y*Z#KzIc}jK
MdsZe%%HY=j0JYnzzW@LL

literal 37837
zcmeFa2Ut|ux-E*Wt*y4wsEA5xF(OG+f+EnZC?X;X60`^kq7qAT4&642L>m!QL=*%B
z6a*wEMS_BWfW(4Aax8-6{KhQ0_w9S`JMZj$zO&EW-*;Yrdn;D0TD8_(bN>Gr;~)Rz
z_L<Z2YgTPp#lpg}M&X2<3Jc4(b}TGQ^}bt<S7?Dxhw#^OJw<sr{Eh#nj%K>zua(zN
zoVR3Q;l4%wzr?R&*noxQM-~OSpU>Gn>Tj~o`fQyoJ2dggSwHHVWzHKS10C00IJxq7
zMWbh|!Ve5tRjV4!yiCt^&KY<Lsn-Sz=_Dypn)ZJ7id@%Q;C?dc`wvIH-JlRKc0J|6
z)ZANx!z;>`e>~Vc^?1ZdhUf5P*@JSYoWUulps6zBoRN@IGNI)wn3oo<8fdkI`BOjF
z5)tylPbXK}F<((R`DQhF;f~5TI^=J+fOSLPkRP4}xN(rbe~eg`MgC^t-|^*J^7je;
zzvC2nEEBhto%mv6V!~o#_6($VJ$_cQ`Hr_JK7S{`^Vw>aX?5{npPHH)50Cd<BP%ub
z@7=7A_kQFr`#-<rl3QkPOe|k$xx7rMUr$xkF737CI*x7sKM(!$mMD1^=~|7h3v=cb
z$2ba}-s0J^?YOr`Z*T7=X$LDVr=hpQZ&_XTx(wam%~w^HW}kA(DVl#69IQXkm~LLU
z`D#9A^JL-kmoI&O-zHxuTEw+pcdl1Mf9h*Tb{wNS+|L)c^*koVQ+8phoQ<ubre>pM
zSDDZL^27Vb>-7D|=WegxRXEiZ%Bw6hbvbHIP&?y*aL#1w{R4(72M!#_@2&`Ma~^cm
z{TM7Eg6oX$Gi+{-2-4Xi&+BaE&2?~}k+HFUeD=7fpHurb^K$74ISPfgb|O9Lq=C20
z@NMM{y=h&K9UZh65)DdPaizyU-WT0g=)<X@Ik8rH^poVm><GD$;jbkk6B)VO<W^su
z8DVvue8=t3|Jtx>m0yUItyvHQUoEJUB}uN#u1Jc`_U`5yuj%ROI%@7*tM~pg5BrhM
zW2&lEaWeOQb&}D29*YMlPNg@t>5H2-d~Oky3e%(=Ntif_NAc6|9sCN)vU6506HT_|
z@^bO>bJMlC11Y)bmR+63Mn(?(U7uBzOQ{X7ql=~^PlsHv``G3u`&c)}$=+pla=2-H
zF1_4YIJBhW>y(pBb7iH!?A&Norm1W9(_5VqCUu`;hcBdC7|fee9Vve0)YK-M65095
zw(MR@jeEtLwC!5l-N$X4oo)TB<24ibWDSY~bmARfzI=IXbNo0D9`=!ic-Of;$GJ2P
zU8jVhw8X^3+0N47RO70enm{~4*T>DKsZ9<}W@BSxQ@G-B$!5B@xo}Y5CtH1eeZM)g
z#<YZY`VQgu|8~2>2XCY<dwD)-=UT}xZg!a6o|VlUxswI=MfH!zmmSZVpYCf@qB^L)
zprppt&NVwvG$l;X9g95K1u{%+3)nUC$-{VmCCPktxTwg_b+*lnCObRy&b-mQXiRcp
zVXk?>XXW~x`C-Sr985ATI*KKS-YjjSI}S1uOhtD{AJ0y{`1aRLvMx?!h9B#*yvpU!
z{Z!Pd`;$kV#m?c%2t~)SG~M~HLGC?O%Cgc%Mn);dmLsJSMf_2Z)(L3D^(W*i1&bGW
zZ{FW3FFSo!L_k?xG}T>i5D|;TEobW&p`R@~Ki)1ZEcEc$wD0nX#_R9aB<K}*UNbbj
zttHHnt|g3Fz*R20;M8bYE<HT#=Xw|m>kz|ues;>d-XMtGY%qmpW<JA6Et($d+ZI%E
zOi@u$@O<KSnW0};H#8icXtW%DJdqVutD8FiIZB4z$H&KfvgKCMHowE`@bm8_9bwVY
z{5*DFej&H`lwsc$!f`d!*{0FDR{N~3F0bs=2jx~Q7f%y$&UzE^KoMP@s1TbAPv`R7
zSGTp?;vKM{3#h;F;8%^@Ags1mFW)0=AfvC<okPbXB_-v3hed*6RitLx^-EmW-z;%2
z;<o;L*4f7Xm$K~#F|H={iT4j#8{Nuv?%W@Gdxv6RJ|+se1q3S}PKm<ih53mz@^rNa
z9cqQkQ}=gtbdV6kZl>$VNS2n_8CqWS=%D4QRFSkVznal<r%I{5eet<6kL^1jTr)EA
z#Q2$-nv#`SG&?oY_T<LeJ+GzvUL@(2J`|H0J~geJfCn+ad=N4Lqx|_MgJbco&MgAv
zuJa?Iwi%&;fq}D#9;=<XE#7Z!auJ%HX<l%-6;El#AZe$Vx=#J#@m}}(+i%?!SDP4*
z^;XlI?>Y9@B}@hBx};Z)<I%Zdim^Aiv~T0>No>Mk>0Fx_PtDDybp@4P8QFieOz^dA
zoA>?<6Uz4ydyh{!4T|ty|Mc?;_6DC#qI?UOsrp5sR&3HU{YmZ)2!daQgoK(>TrrDR
zGjwMfYHbeI;OQ#6y#4iCZF;VncyMW`LvOUZOzv!lh;6-ikK%#Rf|N5a=6=9T`;_|V
zE#+5nle#naUD`OC)2ikUPky;ET&XC+ZdQ)Kh#;70;#zjFE8mem@;Hwn;yP85{jeNM
ztd-I{t$ummgVTeqrN%nzqe5LAZsj)FwfTtRVV|a5-S=R!SR+Rz%^7pvwqYPT>aphv
zUZ=f$e0u~0+RCH``^Ts5-Md$y>^fbQS34e`Igk-H@1bt%za^aRfLm!xDB=-l%)x?f
zTSK*bCp?xOYl9`6_aG8?E3G5mO2+)sv}NdwR*=55X~S!~E~)1FjyVcB=|s*%b{=EU
zWg;_MD7$&=FL%2vYsa;Q*M{yrg9!anb0woBd#tV^Qx_{SvZzSQynx-k=a|>V0xTOx
zr;kxGW6{r_KkrUanu-6)$}4l2KAw_lP0Mk9^7=~Y!)wOIw7AkW5{+l>&yPmQYNuT>
zw#AUO^(U1JH_lgu&VO#x_uLvS+WRsT@4NSe`^jXy>saYOig=f^*SX`KhE083diue*
z^v;KQ4As*IBX*BauU*@{tSMIgrDtbnXV@sk#5qA|gR$%~JgrfoCDfG}ldWE>t3qen
zcj>q0-xj@E_DD0!&OH8`+LtMhD>&GO=O=P=HT>!kilrI{dgR~o@$FQ8+^8R1n=_v5
z-h%}>YB%1Va+MeB(5$xevEu;$sZ`mKv|YEjZ8R@AeDL3q?a~-`!pPg9FK1>z;8dt(
z*+Ho$<%E#yc`My}qz2Nq>DYJNJ58G#u+8<t;%8&K#p`01HDDdzmoSJczAx+Q;`H@y
zsJCra8~1QVZMJYsY-~8D>APIAeB6shyR3t4<#bI}7c{UEq~NUhhVtt;jhah7`MI`M
zK0lB*cY3x<mY3?>N71i)b&1R<$*xD1dSpgFPJU3{)%Iams9@s&qn1%pT&x%BJkH<f
zGG2ex(diVmY@?unqqQ0*AV$1V&j-XamHUsyO)ro$J3BjnuBkbW#eYsigJV9Kwg0sA
z*yp@9hml$4Q}RLHYx(-U<6yRJZfWK&Yinz6moo#A!DhX$n>2E#tMf+t>yt7W`w?GQ
z0b4d5vbx4)`B8NECDmDAAa`M2Guy%X_3PJi#>U3CTp7u)U-#!F^+=KDr@#38q?b@{
zAL@M`P9n{4aP#a=UkvElmga_J<F<#!akryYqY9s&4R5WXP@4vZX)YldPoF-m9dW@5
zQ@w9yV$z@BtbFz1fYD4@yG455=3q9;uc=58*Gx>jBO@b8Y(s3y%N_qkTR2GIa9nQO
z+u;07V>Ky##do$Ioi?Rso42@gY>X7io&Cxf(8blZOlKi@iaJk^n$2WlVzq_y&RzR(
zGg&G|B-LHJY4HImzoF#eA?kO2d>~4tXI(Qj^<fuK&u64I^YG3O-3rgjI?Tsc6R*p=
z>#?2QY_02@#;qbV&L75iK5sI@jk@<_WMpXDEq9KRUHa)4Gg^YlLfeIiFL#cv<)5u<
z1bou#sf^$rSm+ROJ%3*Y&p8aom*mW2A{QA1X{)Er`Pyb}8%S&OB}rbdt<dN9(kmn#
z$b^c_(vW<;X1yKaC2F%7eWsT*#+gv4dHqnN-1+n8`;i1mp4%0N08^J`Z|Q_6x4Us+
zaAAHh!K^7Gk8x^eRg22%l0c!pYA0Z^TZ&TsnD@t?=S=Q<aOzgyx3XiORk@F()8~yB
z!Yyv7?Y!GF6mCRY{#-#oK)|cqWjx89R;%M^dg;)gNe57|(QIb=gR+ateVL8`RWfVM
z`xA-^e_OdeEGI{%xVSiF^{G(T`6+GZRUy4fcC_IAA7?Bnbrp*dd16@>zuNipn>n<t
z&T=8axaUewcZYK~aGB?`x%b4yX=l7Nb-iW?#Flx+p!p%D_9cgwJolCA{w}Ifr-e@G
z+BR9QRIf}QuWgwtUzjb=OEwR+YrU<RY@{Y9N5+FTcj8M*L;S9!tK|d3{k6%)wKkIB
z&Kij2&yn&Q2TC7QDoc-@i=RGiMCmSd`3`HeoAM1kK<bOz(p6Ql8u0_yn^yov<c%iR
z>d<1J^tO752%l1ZeE8taHJs|d?U^aOB|F=~Tr1&-ZEuY#8Ao}i&s>^L&7Cv7m6WFV
zHqE?E?`!)9wuFu?NtF2XnYlsN+)t4bznIP>DFWa+JQ`Hf&`#dpVG}(!-Y|cQkx@C{
z-#)NCTgWPvm(Zf=K)2NV0}>KN1n%j$Cj?7SeJN(?5!W4QCH$uz?AvkNXNy{zw0@zt
znX6{+bYHw*Ff}LrdZu$7#dGbU?k9N>-|9H@MA!{FHq-iel_&{%$D9B)dP=^kbi7&0
z+W$jkcAxg3=RE<9othQnSIQr2-_QA4EI{st8L693%S^TN%v@XGqUrWN-A_=jmc@r1
zQfCco$%4*9Dwyk8E9;x`vM(-E*erK$TxX2ZZ~FB9%vN0e6Y5Gk#ZQ>o8^h)Oe9tFc
zDbTiUVi(Do)O($rd@Mh(&n8YcS7sn{Fh>%(SfA05%*J+BRdxN{ol3o*lno3FZW;T^
zkSrZ3k<CAlJwea&i|epRx9faxwH1kHU`TB8!`)rB--Vw%yYudCnpvh0X55QHObZQf
zZYlA&oatV2?4jT4kxCN)Y||Jiv{u5X2;3!8`q@d5gAYzczB4$i{_+AlF2qp_!!`VI
zfB6RC+dm}im~}+3Z7bxYdXr4+Zk-g*jWFnL;9SIQn@^C}lAh6?Dk-P?758v^?2)<i
zWAR1102wvGH4wQxJV*>7!0y4-$D8H3t<P12z5^~+x$n|?dzaqyXwNX13j1Su1k%G(
z?RSTNVRibk?C{7(oe3HT@c-f(=PglHdHC?*SGI(A3jm0<2BBCo6>G=DZ2IeFABq`g
zytM579PK{tCp&NFSKfyK6=vcp2b0j!D^j07*VWY-(2%?&b<dwqf2S{g<>P&xzB=}Z
zeaAU;>@GbmZL)1{G7ViAkzGi7*H+ii(4haaz@p~-RqG4y02>|0CXqpB=Vu0+`?_op
zm^#6_n)4V}AKOP(x!7LzR+eJC)+t|ziH+;Mp1G@_VdJ#kViH($btv#Y!1`o~?)<u4
zAyz8!4Fp&KAIF)Mr_2>f<ggLQ>R?@3K_&;7gns+`-?QTm8s6Qd?2AcR2&m#PcR#7@
zkN}T;`|mO@_JsJ#Om|Oq$u4XL#=2e^Vbwc3Qr<j3RZ~;rcG(^$g&02!z$7!??7F~1
zb72_kdd0@)90C-xO)DFi9l9mkZ$1+j8|y`eqfD~Ro4Yp?yi&J+k&T@F-D-&m74XX^
z*erveEFA=6saBvkZ-SJ*c9evtq=;iqgxb+)^o{$keDpxx-M43tgN`@gtT$+;44x1N
zI3q<+D{Zg(3r#j8S5f<~?F8sQ0z3uWa~yrQUofXOt5eLp?`3M?YLToTQX4H4XORc|
zZt*zmR*%!#40Okw_B)jxZXol93&eqNu4jtE=Lx-R1E)JW%b>b?=`KvyCR}gHBjCuS
z;WhuwwcK0Q?>g;$gH=Y74)8MJFeebWl=bjljOKcvtv$1hUsns)J^jHZ--B%!3PJ(F
zkCPRCE*mDAU0t(=@>Vl(2pD49`)z*Sca>!h7W#72IFz>%L<^AM3FY8GT=sZF8c?f#
zeWC%mFmiufz~-XHH7}mW$NPcvF|IHCui3Cc7i^{Lt}s*WapUe<w+0d7|6ArMc`{L(
zJ1@5H!AIc*saB6|{w{lNi{2!k`tZZQRgLz6%7ZJAH(B~6um0P&|1+Y}->XZhZP#X@
zyiQ3u4*FhcU=<6L020inr<jefvr^;SA%Y9T^h!EEfBw7y6tczhq`bDaHqwxXN8M{f
z)x7EeUx)-m$nhYg@tT?0>9nxQvubMWm<3RL8XLKQ<j9!-xx-(Wlw3_piPA7Y8pA~P
z@BlVdQc@ys<M{x9?&0IRaN$B&a<UltCcG686eKSvhpTHJnfgs&4>yDdHZ~Any^+q+
zl^Uvt_UzdMByxz4Yc(}?E@5bqgYM8e+f$bz-7zxd@0wd1+K`)SCD?d&M*q^FkknUt
zq9vo5a%khg^SOlUTj&%hYa4r;&VEB*_j`Gl;=Gc^&b$0vX~`)mflk?T(Q`kWiU*5{
zGstxSs_dy5o<Dc??4^*NBP7O4+%D`?!zH;V7#bU|KQR}IvB*oStF=0(qeE|5dP09B
z1~6$Y?e0%TUgJfM7>Sw(HVuQuP8TcB;^uC(JydaB+7wz`QnKyt2RY%Oq%xCtIgyr#
z2<{09bgOgf>gto%Ytph}=7t|zM~06NW>#Gn%o@AV9@6r6%)x(#TKV@*tbe9v8gn9p
z#YRh2RrPXGy-O$+nhECPku^|6=5&tA$$>!djeN`ErgE>mYrT|A`Q?2Tm6hw**f=H3
zPPJ#BJa+6Dh{eQ=(~>6}zOz&9zA8I&{_t@AdWE3hJ&->pdo^+&T5V=wIir$TZ}Rc6
zv{cW&bt7Q@(gaUDD`9byOOsnlmg+xS82%52IvU#WMXysk*B`z4eUBQ=)AMa+oz3M(
z)2cHDDj-f!Fy0!SRK#SS)%7e9=BE_x&?}kNH_@qfag2$Mz74XsES6sgNyokC=FOYS
z1o(v*sZn3QTF_Lb7_|?Ov!B0saq88>%0$L^00#0!<bnFfSf!3*jU+Fw?K{H{e4v!^
zo1B`udSLr>uV$JhPN1S~qhRPNs70Z0R##WAR9C&w5HC^lK*OF|pZuD8b*gTll+n;m
z_Z`nuSKQ7_e6!+L6{-8a-D#%)xR=lEGosSIxC^CdU-d4HHBrvi59!g`c~?}N@!ECU
zXP1YJ2{Eg(@zI#^zEk`I#>;0`E{{k%)gUl7Jxz(GDl1qBHcH`}>K|tWrs%h5+Y50F
z1$sEi@b=Zb>{Fw?o$W!C^#hRJsa<HZWy_YZ$jF_1eBx$}lFx%GQjYs_ZN`e;k=gIB
za`r6SyIZV&9v<LnV75o|*zfsb881dG!sHf%oT$^}P~LfNoZhmqWq}_|0~+{oIY`iy
zcwOZcH!y^G^>ob2iqD?|t{;maEZIFt5*$pn`(46IFc<GFVhDJN^)G4%Y!GNyUp*!!
zCUy+LE|1+B95~Qw<!vKFL;eqA)}NoB{r$sbzMztOmz@=&U%c?X^zJ55s6ncETj3vJ
z@hpa%jV)N*l+a7^8g%^KzXc)M-U|vU@?hJBsIK$cWp0|hmz<nT1VXkR$&K`TRKq|Q
zCuU0fDe9k@Z2p-s;lHF5^B=6Zzo(k>-*^g=yIJ1+Gy$NKkDA7ea}GN@`&n&mZZ@{k
z(o)n~Y6itf4W<3VUA*_bmY?*vX4dT2k~x{?ahfVnJ5-QS$2CYcAg%JF2#9W#J5ea=
z)(1$|eW8`U50Nhc)MTX{e++?;&GX}_&q_|@L#Dtqd1Ip$#w;TJ=gMCHjRW<M&pS0>
z>4HxU4O^0~l=iC8?w&rxe;Q1IyLSOp!jI}Q65N!M-s&l!Hwb3;)P*?=HU)0q*=@sW
zHi>UwfOJbW+RB6uCM-C~<i49@-fh3<61E|v^g`57YC7gX(tQa%Kp-G>HYw>)6bU4J
zrN`?+Tn;l6jOZFq;~`<qS3mOc`5x@Nk3w2Qj|&22!FA?0@{4|1UxEN9(d=X?_gfN`
zyy&*X;LVCGA`Ki67bh~69v=IN3@&m$x3JAW)P7-<HKto47(ggONU@2IpBm{Z3bCbc
zCZ&Luceje5tZ-IEDf`Vq?+cnC6<n6Ovr7+sF@=D&s1DPIeQo<KTuB-0k^{8!1pJXU
zm@}idFgM|+D4hPRsBeaj8pLo=?rcQW4AF!oAq_dG$=lo84|?&q_4f7M6}}|J&K_@e
z5+N_s>Sfn2k#o0rBhvc)E9W25F_8-+Ly!~ltUy6-F^pds=h8n{SMShNFf_~!<rfhV
z`M@yTt6P-&;>C;YK?*Z%(Fo9_JgTnxu<}*^@?a=N9s3MTO&MKCg3-Ln)~Wr=w-x1S
z8zVQNQr9wmvDPI!p)709nxZ@f!v&p0e7@apt4)XWJ2#iw*-uAVkICh~UBSzR>{{RB
zf{fP+=Ha1mcW1#+%R7SB5T*}9^BE2qbb_STdOHo`gZ_Abebe{|XnLVgYGY-OGm%|C
zK027BF%~ersy+yh8gYH6_VHAN`@6zVw?|y6-w~0O)mUfs_SO#Vq%x~GazjN|UaiO?
zxh*z2S|Q^%|8p@VW_zj1P29?B##!YA_Ut)n;oMZ5aJ?4jclq2jjU6|ZByC;hSQ1B)
z@$8D7nO`q4+~{8O05hH*9+<y|LDLTo7*^W2#)97v-Zzetl;mL6h+ak5u>_;)m`xyr
z!lg{e_#}0?$s1BkL%EQH6s3vqD-&EkIozgS`Ai|fZn#x5@v=hdl0hiET+p)^qd9;O
znz=5{@tyTGH7TmeYnP!=T-)|J6sUi7=rTzE{8$(yk#0SDQx1v;rY)zq$%%|d{uT4F
z`%!^RKn;~-CZGoQ{ogpOR{PTn&>}&lAMVbzXwU($YoTyOq=}q52`G-xCYK*r`yL7T
zH-QHFMHg+933sID)Kpiqmu;e@nd?KuAZI*!YpsumP>ESpB#1_mbWvUiRr$u;SYkv(
z#P$g>Uw5f4%`{_%$W(1zo#gWgdzulneJ8K*4XG2)p0#L7@)I;pHHv7-?uc{R=JaNH
z)<{=5z`^>{l26M;4ELJ1<`eo#BCB*tu%x+O)CA-Gk`EVMmsX-YYqgRVjS*ay1?;~g
zx2jti<8oc;iHa6r(t_A)E#a#s4TiGfco!3XytWBHSeJfUsG9F<z>(W)AH2<aankz1
z>xF4OMa7aQvN;VgbJnvbt?L2Cba&p6UbbhfEn21NF_w*SWxYvF-RmkB6Ry>^pIsKH
zS~}G-BYVc2FS#1aiW}C|_7@wRU*7)h3xaD=HbPK=%q<hz40V@}Pj7Ol#aV{wcyN2U
z{PLTb$u>WEKp7%NibAZB38{@yi*5Z~p69lQhx2%SlyVo-<M4^@_Prf7qbJhC<Gz@&
zdVE7OlzDR~M1?zov=W<~0gt?hz{afWnVAXCW<$T+D0E>1?@V10A785w)n3t?QzGuW
zY9^>2Epy9UKA2(Mhci6(@bGxIR_cX@--iwh$jMUKW@><N6l%7ZS@u|sFmG<T%uGJi
ze%rW<Bucr39Qg7L-F-F3aXBP3u8NkT{WdjNtxVOPBrsApg^27086MO9RDWu-i>P()
zXS<Q$=Ejy4{Nx-g)9>6?+bK)7{D%Lnx9Juokq}M_Tl)o4Ps?Ag?7d$3u(?JF^J;fL
zTw=dw(G2qTr+<n&<X<68623+LJJ}2osqH4G*@??^U}XYG`S^lMcdERDFvPin$L=EE
z$jyQ8m~NTwv!G>%;jaL#x{oFLOwsLh`o9Ek`WHiS|2R1LN6bb4>FL9+!0{#)>8f(a
zvm^YzsxuGqvqFvLD({lm6z<jfBYX6#l1(SXOfH4+J4fW4%CgBV7FFu$GkTz@9wECt
zLPys%F}^26g)3MkcGt=X@#Vhmnd0{gkH4YtA*<_w&SV==)YPhrssrMXs{71O7Jqtr
z^lupviVibDhHqc9dEfS)bth}y|Gtg9%jB9lkzsm6JQix_&IPpZGo(TaR0ulb4-rMt
zq8<nA)IOq@;aCp%)=*v@5C|IPuce#X@cV@04IllMxO=S$LqzL-rg-Aq(W6Hds3i#S
zJG6EE2`7B|bZgJPjAViMjvEtA$8Ue=8c6`t(n&ToHtuUPI$7)Mt?CN)%%4?H%6TT@
z!Qge__z*@10#zN7PGv`c_t&pqnPgE&Y8avB&#cCp2sg-Kl3`+ygA)^lG&J@UIA2o1
zfRK_CUrN?-GkVs+7SEKRk`902t)l5#aocNaaT`a5a^S@HIomrWS?tUozKq{u>q*Y*
z9?-M{SU>{Zksfa@*mw|7KwwP2g}LNToP$X6fni*EUGPx=2!Gy+6HuLYEL=zz*k!fK
zPEiig6xCpzWbS_IPYzP2=c1us{V)U_FL3sBxNLQ8El1AsvqU`rAalRbz|2+zd}X}?
zf!rKyL$do4BET%Fb88r^Mz-x^uVvSC)()sN6;(qtj0_GAUNN@MD1J_ZL(#f^O{cT2
z?M#}=>R+ZQ;=w|owte+_5!2HF0pnL&gL)GcPtH*1h#-lR{#tE9eU)1)R4}oN$Q1f5
zD$b14B=y61Q(%z#QhO@UpZ7d75dU3HyZ`iJ_;>w&d;Eo2JPqM?yZtdWE>0Ljj6{ms
z=OXz+HM<D&7UYYC@{*D&4CdcFI3fh0z`C#I7*i-PfnloI815k{8<TVABwynar-N*_
ze!rV2<99I!NHqbzJF%X9Za??`vVzA0XnmLValQFA+4*-XOrb*MTHa=2^#39|;(z@h
z{a=w3_BgzuRaUC>3p1Hgw_L?idPTT=5l7CDyCw{B37O0>dlC}1A`45xe5xa;h`?Le
zPDnihYpmcgQxSRdL}S!#BFszJ6A#zJgRq=dApWbwOTjG9;GydF*E7H6`wPcd?Ycfb
zSPx|DLC7+xop^ZI^+W_Q$pa!u0jav$ef_Y@OPWGbs@u;|-Akx)atJ}B05LrDj<pCZ
zkVAL2l_MN8ijU7_wvCrb$z}#Jsf`vTLM{Q!3%j^$OyLcUj(T+~j6gn^Q3WV?=@$p^
zv#|}g-&HPD*cGyY_!LE)dlZNBR*Q^UF9MvUCqq|cQ4l=y&&qSNujUZ;Ce<p9oUiwY
zh3$ZtSOGCuViJ472y=*-%Ydur)HagK{mE#If-gmBxOKJe<PqZ5q|bIraLl{ZYTFhB
z@T<ZE!UnesmuxX}d_VcPu-c7GIT7>Z>4O~sWSZaN)e7Eca54ZEAe5q8M?x2zykVIl
zHJN!~W)b8^_GzIn+L<<{P7|5UK2W#{U}LJ8ED&*FV`B?H?&BF7m$8Q!T!=RfD@b&{
zd11ztSr%yB#yfQa#x3qSwVjI>JZktRxTK>M##T>4<Bxl9V(SWZb$M|i8PXelEY7xI
z&~;&km_oEbcZjCv;X%q7WY|P)2O5va5`W-K;wf@Ew{tPwUZ-ncoL`UHv2t5tiLjTL
zam|K#9aMfp=lZX<J+dsjouFT2Ln{I#qTF{Gt&pDy`{Sbm4sWDT?IwlXL$eIGrE5JD
zMY0bNz7M6fUrm-lLxDJ~hLrMI_WrOz`b+jmnbhhk7+B4mFbVuHK*mwi)7|p27hWWi
zgIJb7!t`Cg^OOhkVqrx@@v1o@2j$*D_UJw22)AD_zXsuL<VLBuu8Fz0U-=~J+3s#+
zqW5mzW3o3S_((Oyy$6{lESdT87d5<W+fjV)ER<w0aP#S&sENAytdTN-*RCibdM)~j
z-?*ubx?zmc-Fsj_iYgjMUG>VP>CRxPu+2g8^(;%(vGBkiv-di~95+@skK5jTsu>Tc
zK$vN`zW4?!bq1yQ=)KY=b+346tef{e+dGHS9((4ZXt5*~cOVd-_0_1$K-xC+!{tNH
zg3NO_VL;)e%SqYW)Y#alKLf!lZxnF<uNOD*>fKs_QzF_KuZzYPCW~ZORZ(4MX#d+0
z&+eYyb4nNGQt1>pZc0{Hfe7#Z>*a&!Z6!r9zE)C9A9U)HLZL{?6s6j^=HaB!Il)D{
zT=P7m+4C>sLK1=t%v2m^x@2M@6r{D><ZNZuKH&uQCQIDB?$WISRAjZUO~BK$8|BXn
z{T9rdTmHf`r+bvp4RXOu>nI=JMiCvZsK*XQL5$q-<oJRWvXgIfb~7K?#W%fo-6Z&0
z^?7GBxojKFhwIB-#LaT1I#1IcSyd_!16rMNe723f3#pSjf$;RFl(K7Rv4N~joGvH+
z1#{wiJ<2M*0YiPVA2#%1n8&2(Q)RZt?d_*dPcWr{SNo?0zxa66Ax1H)sem^moRY#T
z21OtCYSBx1zvU%6cx{CVT|AhPP+E2YT7lDmWvG{yu*M{fB(}*u-Gwcfa$W~5JLRmc
z$4*bMlAC@NK7HUzQw((Zou?mdLLIn&#6HAvAe|U<HYS&^;S?ui52m7mj}P|i*St7S
z#7<(#&~lmT7#^)sE|Ne^{=T%M&Dk#I)qV;ITX=t=vbflDA;2t?k%B-b3d{54r&}@`
zAUlD;=;4ZCCe)CFFeP~5^=|ce9qmzjCZw=3c=K&mK_Gl=FnXc7i88;btt*P3E#56N
zgSol7#>~T(ODv(X*2HOZLUUzf6NO3pG>w>y5rq-VCn(Tp@t?EJ8ais7t2YV~uXq73
z=3*Y}i?MbRdxT4Ei66Kt#I_K&XTrl1kYx&C&d`S`1r?s8cXPx+&Bu4#kB1vbC?sVw
z;;5Y5EMjNlR30<;*qjMnmZcaZ>_fC29Za~K?i|X$E6{C6GP8M}JJtsyU+h-1tH5#F
z_`)J0c0d{k`gy1$NSB9H^`j=ZT_#(GQK`?=5My*(ZaM*+>&+v5sAu0v6@&!^KOckI
zWN2g0<Kj+dc>5o?{QeF}B9#UK&(4M)-=UpngEs+X&u)|V?YEHCI9nl-YfSNnY<1FQ
zLDr)E{WHbg3K1FoDE<<#15&9id>8B3B`)$cD$W7z(-~^EC1$UngWU#>e^#<v0csA4
zPK>P4N=1dBJI|pz`O^d8M>?62vmJ7`93VXk*~S_=C0_Gp`b`<u!-1(;JK)1VH%Z%i
zi)-C2E{hYP%Qumr_V!zj{AUVx$%tbrge4@1@;HxHOqSW^fZ`9!X(7XiI*#{q_uBS-
zvC(jx`AH(E#Cr2k=g5?Bx!yo&ed((tVyT9afLdv=y^|OY5X`sr>{IE25m61PbcgnF
zK1lN%#HDaoc<J&i;*3_3XbP~}eET4rTCHDhu%6ENe$&unC@Pw-F8+-3Tmc3li|AR2
z+mb<Mw1DSMA;UXAYhiA1@awyWOcT{N9T)dIjCK=Qb=pY=xFa5pp(ANCHzl&R5+gs+
zHxjNUg+Q=0ok&Hmg5=lt+w@_3^F~q;A^HpK6b(-uQXZQpjUCDg`EVu4y(cj-PQ>^y
za=5Urro10d)6>v_@5lG1rM4ZY1Hcz9>MY>U^#%Z)utYTrZ5O>?w=^hxxV+DO4mLkO
zE#aW+$7mGX1<d@yq;>$cya-(s{=)iFc(m>%Ywoq?eCkt8De2gEzbG=ZHVQ_IHNCY_
zNId8cSW1qgD68+Tu8n$|C4I~)dqJe2)_wkSQ%)!85cxdw5R$YA#xuxjGdEM3WB5(L
z4)}pFvV117xWhtwz&KFw{J!TCV#GO|IU86C@5r6^sk4f2Iq5?;B|GoyFAkRLSgbC4
zBsFWe&}F5q<321}(r`jh3O=8BR1Bd8Q60XjYJ=d?U<tTg_ol@r*>2;5n<k5>riZfQ
zv04ZQ(WyRgKi37NW=HAMH<WDqK9N#PI?ASCZ2lA~raGBlYzYSSrgg8jg4{{mXQktY
zPnw0?_ShujWY=<|2t~=j#w80iweQ{<Va96ntoXk3%Z}hun{??lHLSm<G{6%H8i&Q#
zvTiS27zj5Yo-~wj6f=Iyhs-Gqo$#<Q8|C!-9wU<m*G#Lu4WOd<2o~1r!DK?g=4S4V
zLv~*s^h+b&Lg{C_)>-+8$(#sTF>!I`7g1%+lFgb9@gA`W%hYc%#bW9ojd-3R(`2<v
z2nlp=HXbKO=1hn<6i=X9KxW%+a|-MA1sLzG9c?b>2cF|0vF=GOu#4$}Soc8L6$X{)
zZ63QHiPln3Qx%zgUO!SU+iVyt&tt!xk8iD1|10h1#N*C#u?U|EIcRz1QpUN{O}a2b
zZvCx^G&6K3JUF%UG}Jf`kI7Q1OH$JuaS{SkNJGGsZ1vE7v4Q!m6P`RnDY=CvuG(4-
z7)0|X>)HY|8dbFveM0CUGWT$TpEDjS{cB*Vm4o>dQlG?WRQ}W2{S^-}7D$^Bd<0|_
zA~Wai)>_&{S|>!DT2_<3B^dkm-0oY$jQKa@D_k#|=KZ#EAvD|3&p%vvWX0@w<Np2k
zZ~wmO$2(l#)&6j2)5WIUo7SJH_xVB2pg_&<hh^;Q6T8>dg??fC`MgJK;+`MvepU+j
z_E)d8?|utjwsINA))gC;t+h}(va@~P1ILB=i&e|-KmHgYqSjPCqOn6;du*JhR^2>p
zrDRPoHz@{5!gANvH0Wa651W^}PN^}>5SkfQhUERh!)QBDhKcL?o1&EYReCwRI|=fB
zWJ|X<2YM@NE%4GGZY_wncY?u_ba8plGEoGJ_fKz^(qXLIy7plEok=t%@sKCL^yd;Y
zE`br`L>Q)@LvyQ6ORaGXfnd#KPbh?Ok_r;=$(}<}QpEPoT>r?}B#qGqGFI$|gL$%r
z)pZldf_5W@pO|}@-YXd7$hqa3sGG>Me7^QuR=ZuwkGZ6!rPEz)ZEOk+qe8^nyRIhH
zv%Rz>hI-feSvb+>Uxi8me%{9)HeH-(fe}QlY@?v&UjKE>q_`^P%fw>m+mi#UT)rKI
z=~uP;7!w5Vb^CQi7V+Ud<yc9+@(oMlzpZAf4N(q!e;M;P!G_V$-O~fz8|K064YACz
zdVcNLYP+O*6D@SJn8R6E2z8u3RHq)KWuZXe5F490-M;IXwzk5)tK<vZJ`0?D*ic`;
z88iQKBl?_ZA*tcv+j3wcgj@|k%t3lejw_I3S=gg?PkfO^<CbO100xk>Vt7A%_=|=Z
z2B~qB+qUtn_aaQ(qk;!U_#4_Aet^p#?E#GreJ=^FJci<z+sGg)k?DquZHR9^u^;}D
zjRrxBDzA+~#f}{V>d=kSdvHb1K6Nm^_}mK&3vRhYNjX?tNFwCJ<>ilDX}oHbq$^5K
zOPGWDToVr`)MdJ-(Mn&x?bTyib+y_TBj%^~Xy9s~9yMC&>NYp42Xv{gX=-Xp?}5{m
z<Bt-gr`nL)1oxnwyqUx9RIR#k&t_si{p*{6{-sLIHZ)UO$N~sfi4re}vHK!hc%p|p
z2tf-1ax3a{JyD@NK&!>E0$aXpTvHMx;s=!<uM_KX*`tGh{g5eIvfyQvlaq6FbUYPu
zNR04md1Yl~v&S7JK}DEf;}0qO5d1IK{lQ(&l=gZid?FlJII}--5_Vy3<JveMWtXpa
z<Lzh1CK|F)0B%Ln7d*a5tl49~XbhQIgWMM(?yM*Ejjv^v#8gfgq-4*tyPj%HR{T@J
zo?`Ya3IkqJ^Ra4;qI()Tn@N)x>G!ID=EiKPfDO}2RKIY8<rs5l*<U_iGN`_0%^Ct=
z?}I<{t26o28Fo(_FXmZUJQe?}Kzy5f>>Vl1p<uSnWge$L|K=|bh<C1AzM`sXe{0w3
z#m3f~kzbY!LR;FDot<sZJ2*J#2Zk&|lFSTQxgrooS80>pUY4JZ3D~`HM3tA-FsC|J
zqX^!q`pNi(>3EX9TYF>U;gk6_h#4c#BovQtGbZGe+&y8^q-MwkfQ3p<i5jyn^{3td
zA+U+}m-m@}*byWrmk(&Pf%Nogmn}|jm53KmNAh(X8TW$c;qp9}bA&k>Dv|w522&=Q
z<^WA8g(sP>RYvqLp<cau)vQ7KkK2m-<Di+`g_(Wo%w>N^*qRn<U^hK8bL)UIW&-Kh
z8}3ndJv6aEJI%cAy=hnhkc7wx^>?8&LVz&zBY(Ro7q6R0C#2J*6=hMshYu4M-@3Eq
z+uUC#JO$!Ba&mHh?uv$lK$Huji4adN5ZI9*=K47^yozVYrFDJi?omGG3!B^=`IvX`
z@AnZ$|GMzLK^87&c`B9ql!McYLqvFTAM?|dFYxe0T!y_6q4-DjzFq7<j#nLWvjs!K
zU91OX8HQoLeLfc|bEH!6M&wgs87E7#hz^-b9xCxu#l^*a4T~FHt>fLjy`K8M2SGYW
zDj>CO%N8>^IW+eX11)0g4`jJvt)~qaa=I^m>AN#SZmIF{B7`#*0(t#FsB0UVmu_cd
z)W+?+`yt<DhQUEB?p!u?m&|FVsRaa)qtDWtIXt9$isj7jMys;lfUAnz8sFrd{j!4k
zoo%WbyiFQf=Fm(J!`eHL#AJ7SzsI$@jwgk7L;^^rG))1B4>pdH2Ee~PE(|ptu{FKt
zZ5+KR2L5LWXYj0ze~CA?G{<f;II}WG&~wW#(e&xlneIPgt2&|?7;1ZDJUYJ^Ww};8
zl}kdIU;X9_PW%{-==2`+gY7_njcj|!1gVWGJNK%lyOOICvRaft5EhmUqJNNwck;~&
zKE5yv5KQcBWEHkSDe;A;T9EXm6~HmDju1nASnJ7iV`D?>!%VC6puO_nLN9HB{q?0{
ztd~-;+I-R%Ni5AC9tB<;B&m<cT!k2ufa}DP`d`s+b`{-2!&Q($<O_nENb7UfNa>@4
z`_0lj0w=MCIN?$&SX2@aVsSiir)AAF4f-~tjgz#2+RaaOwGlkz;XxV@kdU~5-Hs-x
zGnxCDVb6_2X0fpCLZgZ&O2f&7L*!|?#heMC93VfjoN?Nb{;Tajo=%;`+^YWc0{qvc
z)+K|(MZBS_ZLgL;<|gVIF?k{)H18cmTZBaw<da)y=y!`rb(;E0Al3OA<Uxxn+I)vL
ze~3+kVFK#efd)-ylt32NvC2$d!~wtQm!fZ0GjQyi4Hy1jQ!;4|LD2*p5P(6$Y#Kc%
z9%R|N3j=?sM5Lxl05z3pAFu!3iq5h@Cz;onWzR9CryO?GY8oAp93X6BVmIQ6Gg@K}
zNoT`fr!Z{n={<Nz9g(SXBVMMaGvP*Xvh)9S0zv`|2}W}oSB+(6M#d^FriT1e#~!;k
zG#Cwo2m1PEXr5miW1ePaN=ZmVtorK`%4y>se6PgX5xAPBGc1Ku|Mg8C$Nq%$9@xZ8
zGe>l7>TxCLB*^(Io*;e+2t^(qlIT@$LprjzKDM+m>=NoG3D+vZQ2mfF(}JWE_16!P
zwwKEv{LzI%rTUSUJJS4(826zx36DjR@w!UKQt>8I`u8*P^~?ztb6#6?qXQII(vY^1
z^l}neYZyIVU&Z`#=XEkk1mObI{NHCfvGp?Ba)@?Dw<pp5Z%rQw#mqB5*F1))8;cGg
zG18brqG1~tsUIefFd|ngS__StJ_#&ry|_gZ6b7UsjjR}!l(ZkJ%3**x*x^5Y`aw1F
z)NRsn?O@G3w;Bl#7%`rZkPvsBMP(Dw+i_?BKCJW}6LCs+0W&cTxgzH9poJ&B2lRA<
z!!YyXv!TB>hqVx$5WGqj<$}3B-6Hg=R~(5C<Aco}UR9pTEKIy(aXag8HbfbzQYgWx
z5?Jp$;&z@#W?z@u^!f8FV<!16J<|e_r9=3s3DnMYQ;$tDo3;<%I@#CPSE7C7ywB$S
zI|pr&7>*jI%W0u0CiN<<M*h&6WvEn~<)oHUA~0Ef=<>aF2af_)-HufVL=|^Nl?PvC
z@7UJ3&%P}?BO|xq0RA06WxGx?^`ooVgVz%=pO<s4mP+MnNVsx9|Ix2hXJ#i8h&9tg
z^6R&&ndKHTy6!qk1rQsK%AAkyWNm2~jc$M=tb?JH%xc7m`^au01~H4=IJ^mdEoZi$
zma|LYMSR0jIwoJ%prY6c6^MTJGnJn|pZnXj$2hwhnV5W}1#fq`5?Fjuzr~1kqqqAA
zr-`5zgQm2uNR{S0;h)A(cYM>ABqgig^2-|WjV{@AI-M;(>Wlmc;YxJ$R~4MU8p2NM
z3a8LvM|yK6zpRkm1j}HRjqFbd8Bs@q0#?n<%_YEpyS0?o)TG^R<S!6hT38~It2MB1
zU36@$0F??evL>#~08S;egh4tBd-+m`Pse%Cf0AcxVj?K>x5S>F9)(8n^<*oJz!@&>
zR5R_?0qf?9in9ajies{~r3X2-g>QZlp$(ispNj^d%dg(9C@(Khr<>5T((#WHNa_Bm
z64g!-My{@|^qg}e<~#YwB*oW5BqLvs+K;_s6<|I7vEz1IHvGg|n_dIW<cBP1%)FF@
zA?uNCX7qUODI+Sid}eb~ZLJ0l)qj;R)Q7$a-$}1ufuT^jba}_=01H_mBBSK9u3e1F
z>}1aV7#%aQ#gP2u79cRmo<;iL|Hi_|9EW`6uCtvSz_RrEBDi%6*iy}&g_w}edyca^
zh&y#|NA1hp>BT5^$$O7A1Cim|tfhu#W@XZkORvZ$?O}dir$}fE^9PlGeDjv*j3Ywb
zq|EjCbC$TsKu^!+(cxdToQ4bB_aJ0L=LlmL{4z&617eC&|L`Aw@AF5td-nNx+!t-a
zntGYvfARit_90(xsgyH|%YN@EvkK-L|HZq>Fj4Nm4<!H9%`es+!Yof7G1X8^?GLpu
zpmE}<BXR-|QBq9!?booe5lhyoovMM>QEHgkq<6#Mye<3!uvUUfLx0;ATpE~lQ`@F~
zN1-3D?$@zzSOO|R&jG#S+xtw>fDP5y!_K;~o<^g5-9jIYlpr|$WRA|o_GMW=sR8%6
zZ~)$l*lspRLV|i8J92g}7t-Esf=4@q!%av7sbv4Fcg5PvS$;Y@*S<@ZpLT3hhd2Zd
zq93J~u-tt6pPzXD>JRBpJ4B3t?GpDyL^M0>KBI?f;V_J^$HA&d2WzBqC=XF#^}&9)
zhZ9lJ7|?uut>VcDY3}xbTI87D$6NrL;yk~z!`3xF5bWDLv_Qt$pd_$>Y}teM^V`JF
z2PxxK5E??m<KwBBBg~Hls2p3C1tx<H9@x<&P15!@gniQ0k&&6%MywKE!Wp|s7o%dJ
z;B6G~F6H+fM4xyY8kt>}2r$|6rgYD=6@ySAe;_2ajeOm3Tai38El6C%;X`^mbLVKe
z5EaO-8VsG=QuiM|^t{I0@9E6e7`_B2(oD$~Pd|PMVbdUvNyVS+jp6&k7#u8Dk`NaU
zOjt)Q*ex&G!*R&0T;ET6BO4pkL{G4LZ@YuUyp0li?rkV-;<y1lBL9Oe*P&+~He-{C
zDb~Y7KamF8r7|gK=q!XO`S7ztF>~r{V5uF#TYpFKW@J1Pdk~ON56Vxcd$-@>5KsWC
z`&_+d_UzsObn?Trlpxz7S~nj+rNnGx=492<(54#<<?8tYM^HpM9d?zVw1<}suU&g3
zyXMEcAKDp;e<bp^g?Zyqvom)SURjp>vT1c!SL421yjJaGcCha1#7`r>=L$k^Tie<e
z9plj6z{ZAcMy8(!jscXkM{30Da1*0D;T>d3fH#-fuv(G3)^eR2!#$13x84kUsQhIA
zgH!PR1ZH~6!TMD~3pV0S1EOH&_eq2S1b39>OEXK+QqH_gX4W?19ZG%ux}Bl)x8z=5
ze;&Cg0-h`?HAZ^Y3<&|}lKF*)Wb`FeXXosM>pVAn++(L2_wg;4PJPjtFm$miFg*QQ
z+&bLaRl&or-j)gJQV)c7usa_hVh90N4K$iQJ<C1;hEwlr2T|%9CfhJwDSNaTbA=R-
zAmx$GCDKrqB0KB&dWqynZWPwi{G!2}t#@<_mS;h^7tZJovm1K5f>bZfD;0M6*qw*$
z=k#s?`%vU(HqQ+ZIh3@y-zMs`4wB7%IEv{VSt#lIK)$qmQ)B~s16nVu?)3IB7~B_H
z*mnn)u1#02js%6kEzhlrE-Nd`%8nk7)kZ=Om?-uEhQyFy?T8GDR{<)J@nPZ(EEGim
zHz0$9gKB!Td7ht=doXJ=OaH(Ming}4bUG~f_b@Mdy1U=gf+23K)40n;2GIFbRaKR~
z;G-gfnq*SFJ$^11inSL!TnADqL?MU}<C%(bXO>2<`Uq@lmL;{ErMjCmF24yby`oP9
zdEBuuQ);dZ$~pI1Hl9>rV3*%dTqkx=&X%vSgW`Gcq9)gH?=KhOW;uG{s@UKrw&mBR
zM#sj;+;IIgIyy?8f9Uq(SsAh`?V6wG<~Gj<6kVKAO%B~|V{MJ2#9VDyQ)JZ~JrM8#
zeye$EFj;A#%kPw4;l44l$wbh^wK!LHGl8KV3D;f9ghu*$dy6^GsE?#~TnufBmv~6)
zJlCkSH|1s~B=oD~3dyq_b#%rx^02WH9Xl*;(a%6(XCE@-9N@9~^fS@ggWBac5upG)
z#@JY3deKOm5_6w&0D65I*~|l*UU-rgXBcqe1GYCh4;OIg7kIL>v2B}YlVC=U-=BL3
z*rl$qjUwv@a>}c`CK4bC{l{vuf2U6>_FC4}YNQ69+bLrXDq)VgeqruxNiI}1bfW7)
z_28NFTGX4uJkx%iK!M*2+ieK&@saj)Qb+t+HbZ(DY*09<oz(?6#1OBUe76kKHc(i5
z3yRC7nIBQ7+=Y9W%<E;I>v$yJH*`~jr23y-)32xHHrAq2f*q9Xnd&}v!m{g)jw0Za
z6!cLvcO_JtbQ3_I2p8fecXv^958sy%Joj1jDr^}Z=_(81#2#^_Gn4tZ*XyG&PPBfu
zcqRpU@@Y>i&!W~;ed15C^UrMbKd=MrU(`GNKlq7M-^*mtQG?XeR^-Q9nFYNbygMDc
z0Nj~5XS#)xb7cGqYBame#XeLvG(1d|Knf>3959vF+Ip$$22j&MTQ_u++owK&JA;|%
z3=Kcff??A|+!X}IKx%ZFIWGo-aS1JGF|<cu&l4&Yjq@bv67WT(qSTAfZt=ZM*{7;1
zRTA;xTE;OH3W@lDu4_T@>gt$u6M-3UI`8BkSre&=e82#74lNJNQ*ufO6O_DWQWNP8
z)ZQ1_KfabmllnU5J^5h6Imp67l$7rc=|~TJ8h5qc^{6HzJC)Lc2L=Ynbwg{mcijJQ
z>9rkoi3W=FFVPQg1mV~$+9?eU4Wbo1e*Bo^tm{viOcZJyx%$zGi7tjBG<_VgaYoez
zFvZ?cU(h6YGYQj$c~fg_%nSuh1P}iZ+B9WtW79deu13@D+QFJ@!mHSZb`rJP*VlJz
zDW&vAgU2R|&=@6MU0pi;+{~@(%*=Lf=1EF;_|Z2~Zu9f=xR&G<Dg+S8JZ~ZwiQ}G#
z>*~hLDboJ9x}Rc_lB(tpxV<gg9E0pfqZzvvhch$jBg!G<4$G3+N0iP~1ZSi?yg)P!
zS96tYS68NLe8=K{@XGlAW7Yp9kNSUTzmAD({B}bFcG7D@LDGu|{uOjO58C>Cw)sl(
zt;Kem0NzUdiOht5GdAoSIw@I@oqoCj7U!D5to5p6)Xdv_BnrRf(E0)7;x<K`<n}iw
z&V3Zx0#$1hu^D5H5tz}6rceV?cVpTHz`L29UMSq|Fk94dx2cIP8H{%si|y{~^RmSz
zPfYhCif(+UAORGBKTaM8*DoZN18|GepBFFfcnq)zOm@Tt=ix#24W-&;Au`f&NAhy{
zsNIL$H(=rj@8jT(eYNp^adB~ITSH%@+sLA4&m3%Z$CbtF2tUiVWDxos7aJSZzJwB%
zl4A45o@jY6zo5vwKFNgKqg%yuLW5ty-0d+*`E=+GXdSA|h%W@8t}*sX?<ejr^Ae%d
z?<ecXPNFZ8%C@K|A;uql7{3k@Em6PIOHMq4D3O(omQ^8=9nd=XH<gw+$o|X@`L=G`
zu)RZ&ZLlGgDngEIY<!d|L6K#Rt*%SZM}B$U=6muS5qU+x1)0gkd-L5?32+wj4-&?K
zh;zzc8l6#9y_+fmiv@X|nVTZf5=lrTj74-h`YQtf`#1MD?z{UT;FbU7==k_@S}?aw
z9U+<}0R50vNo?0I^7WC(?onDQb4Bp*Yp&SbT-W@*Xpf4DnztV>{#=^Esp{&wa7QBU
zh;SwZ%6Yg-)=t*Jjw#;$kQBmDBHmP)buTg}$K{huHY5XqOJW}q;dbw0loH=}%s?rs
zO}IybAJuMU!MTT20$*Ntf4`vlu@8Ie#P?(0*%*3g<f#W3G#Ey&s!c?qP(q~=aR9rk
z>fRPOc@z3&2ZP+28g)N8hEB&OWDzlr`|E5h!N`hG<yUF-^nV&1{XtXG@9lULdZN?u
zHmrDA*~F|DGp%<AFQX!Oj=`}D48E8a47EUGZ2o|zO%j;lxv`*HaC&5GGHcUU?~X0K
zXuHfVy8=Q5T7|fWlh!j;lInODF~Wt36?VlV?9t_8p0{!rfcjXiu55efMvHo)BoC~h
z=}?i2$;O4oC&ZYm?_PLR)YW{~WL-85A|{IS@ezucHG<7pcknIGz3{TGL<W1Lex=_e
zbsSXirP?!!p$u%bO`iiNBQ|e?xZMYV0xVs9hl>T`&oLyjm)gS)%tidLrB^H`UUycv
z9RuH%lLPN7z|<?zI%@&W-8Fx}9#@*qo3Wj!(i2f1utA~4xi_}2za^zD(i6X}wfg4@
z$jd67p8ny08@2{DC^yH9$ISjhK#7E#PO4ec^SJxZw?nrfkcW*80yUAu_h|%hA#9|}
zDh+gZdmv|%7f5|^KqL$e7Q8r&TsQd)J_>X|jGZ0AyF>wVEV~-OcSwzre27TIG#z5K
z1Gy!aZZcELtx&Ff(vU`Bv9h(*VBAYwx*6uk0dZ-=O{-HOS4)0*>A@*z#{F9yOtym^
zLn7IuDsoxVSNj#tFGjIz=j51Gvdn|nuuE3<%VFYk^6<!=$;?&!_($vsN9@5~EX368
z;bDvo=+^jA@lZ%P2C+w~d8#a5kdwrViwD4Wd_0I3k;F52dDu|RFKddrLOj@DjHJX*
z7$zvw<jpQ&N{V1-c_=S*lhbd5n0ogaLH6No#%%HPXA1w^@Rv9jVGf^tSVUY?S09-d
zx|KtJ@*@yScKP0ii(zkrV!^VkMfsF$3CVQGkr+x^bV-E`_3O=OBKR=ZpjR2l{Hnd{
zz-EujdGpH3kdi;_%bUJhb}lkBq2k3`_l(dRc+12$XH5UYT=S2s@c%7hC{Z%AVo=P&
zW?__peapv49}d|z4>e0{-lYc`O6DJS-3u*%3WL(T?qnW^9_+M&mdBV5x_r$0b%?QK
zi{pElkMix%G0~=|JFOxoM=}fcB6kY=$iAb<M}oddqRC2CPLAozN4Oxf7VKPyxPM?8
zBSshm?gxliAkqiPu(Pp|-k(QEJ>((=(1r0wFAVS0d-+yest7J(n0H~Amnp!?<&#}x
z$&S$EB!I4s^RG*UGxJHG0aj)k1VnElWaG;|pOr6=MJrigdRY4;ni9Ck&L47FhsH^V
zj{WMBcZivyqN0M0#Q4?1X-^tEwil9OC23y39uh>wLg)&>$C-OQ2U5)7k|X_Uh;KUN
z%dpFU5B3rl<>SkNtR9&Du${EpV1jPO*S}e^BA@IiNDd?>d(tP)$49)Lq?P=Ez!ohC
zzaF6iUz9vf?Yuj=ek}M(x%!`80J1SRna0?N3{vTOT`E7>Y&o57Wn<G@Dn5^9k3zJO
zqhPM4n^Mu#6hga#0o;{cPxh?4(^rbfHg<&*8yknV!VQ3aepD;7r(_{^q?RJ}b(e_O
zyrcy6m7<aSsRWHwg#G)J#DlAY7m^tBkl%JX*B9a(me~(P^>5Nm+OSFDhq1`aObRt+
z7`sOlAo8^myK0U}I4DhODGGz<sVNBz%{ueRWMaQ5KRj|u?l-&*T`skhFfxZEA2@+K
z9Y$CehFIB~I8(2YfbsYI76CGUpB2H&-b%KH#gv2kWPq$roF1qE`!Y=%0qGAfPm!`D
z@z0_^)FQ}#H)v`(Lz$$=2OwcYhN=y2vZ1~Fhzw8K!-yE~LAJ%(2hoqjR?{o6jFM9m
zqlXri{E4>&2kpxp$xb649vZ1zbzs*C#&AQZB=4c|f)Xb|+QZ3rkR6AKpO!7&*L*UV
z)w%m<1**7`BZq(k-ZPX@+Yzx8`(S}?p<^Ixa#;>*%bLk<1yEq&j%bBM+&LcgQlC>N
z86^dECF(vrG0MQAfohY?e>`MJ8*UZnu~mf@j7ZG=7KyftJt)a0IQfunWny$Sc}p$i
zzcvC(5|CKL>w1{EaWMA9w6e0w|9J)X2HmM*jguE#MT4XpyU0eMJXqtT5r*stLeMi=
zFW5Dp2nHT{9kw1-yx^J;DCOTpCmY<Or1W#pj1Sdm+c+FcY`KvYHJUFvHafWSANMKH
z8oxH~^}C6Lg2P~HGTB$9Co;H|>^ejIcBngT!j?3i1eotUb${=d>B`2`3X_Ql7e@Hm
z?wp98WWVE2X96Q@b-s(3*FtN9cflSt6l5M@e-dQ(aDXCWV6X@}Cyrrb3f3Kglvb>A
zOCkc}l#8CN=i$DdaJob{?$~(jsqc<=+-=W(#?v5oNA|a$Y~x+nL>!B#xEH|x!StPS
zp;ZL_hP_`bV|ygec}&PC6@^*&P*dYFFZik|Y+?;+O$$VqLH)0SxBX!mDQd+|rGyhm
z92UnO4A=yIH99a7o|SO-SPnu-pG0TZ_|1h-{GNbEfNMKqbMKe%3|KM?MQ~Owf7$g%
zacJ#Sd$NDZ1EOUTb^YhQ47hLgL!HMrx5mB~F?1GapI3RY#VfhLVu0galbQcGT|Vp3
zrcBJ-Htcq)K<^-X@t)O~NFBT`@RYi(X+UwVK|cJGvtpGouaBMy)zF^du2Nin?*M<H
z<_i@_oswi1dJrBIC9y*g*_*sXOU)iKbUv6(2S$1qY@fyaQKY|8EidMz{_7(D-@VN%
znVYdU!UAW{ONAR1`{cB*`B^!c>(;6<dK5$RT->m!7<W{$G>>qHxsbE`@x@kR(vAwA
z<%iObu*_@=t339dA<Zx5Fk}^>PlXLuUQg7>0!`Ax?ad(1e1v6@ta~!;$QIn*h}%Dk
zI`hj@;prl8Vyj$kJOFvJkuCHmfTAK|)+1XPzrZhrAf~2WkFFo7cTkNpy%I};Ibl$&
zv7IW}IeJ2=XJ!;djRk8GS10R!Z;+|b>d4E+bfb|?;z`##Ng3t<)WlUdIzC<q$iyo_
zw`=2kth&;fv&TlaxK?IMK{w@s&djw9Ba-aD_t)y2h?v$=2tMLhu%{k0jhpPNPRxgp
zoi7Yn6dS>-jv}wJoTa7ZBkP*;q&@05v>@~gZZ$&>2QwQI-imCxSrpv~7D1FV;nIQL
zm%Z<9M5R{$kwr1T`Ilc-6q5A=;zdlh!0RT=4Rf&}>p?<hiK_<%xAw;xLPbxHWKS4M
zZM<jfL{Tb=w(z^9=%7{Nf08tPCIRA=kOnKNoe6%dC)X*34Y&Kz%y}-cV`E|@F|d}F
zA!IpXOa6ct^LoOWo2;erdnxKs3o($zuXebMCF#YC2oJkp5)Wa%vC!o@e^qmAt;V{U
zaffY9x+l-;M+atS&*@3RhtfQQKGVxxrNKcV5>%aW7%Dc^IIOsPGbdZ;Y0Auzobig?
zYRxJ40?5$zQnu(gin8}vMpS-pE2tg~{(V0Lp6PLaMd1%JBOmuKeqB%Kd~~D1y;6CZ
zufO+a*^eZWt#RG_Lh<_-m<Ny^nR{u8m7HY>&ouQP9RS_>Ncy7|KTTL%U;4f4Tzft{
z>aHvbQ}Lm4N6kmxZ);KEt(|>;VHFliW9nIwpqq#6@Zbi5-Qn!X++HH2uJrEg$1VPK
z!Kv8{)ASB1THvpZaTup7)Llv0b=z6s-m?K^+Wtp#VO(OqHtDrmmP$xyn6Tf@iA(o5
z3q&5t#@%W(`wun9Z}XvX-rK>LIrG$MhSuy$+MG}*)wS%nBvyPSi2xTiHWF+8r1yj+
z_*dUsUa$oL4GZbi!vp--0}$IXyy#NTGk<<&Fk8Q(`TG>@4SkZ<KzD?Z@xt}Zt?<D>
z^`rCi&qZQOsH<Kg;A6WeK0XWHW$~%jx3VxFPbN0%RUhCgc(L_%cKx`{4O(XE6Voe~
z{p(Uy6nf`hOTViZS$;QvLI#!}?EZxcuspU3zf*f~gTf$1l)V>mJAFFvH#|PWM*4F>
z!{%G7S_n=fTet`1j7DJB_&v4<4T8|Ih<&@zTZpZf*GQHZ-xB}|gCASuytabIN72(;
zNEjjw<ZNsRh<&df2amU%d5T}C5>~s#By)F-xe>fY!|!<K_u^M3C>LCn8F`R4Rzp!8
zjyRey{?vl2w(*99yAIkZp>dQ@=>8MOdnvBNLkJ^+A1u7os;+NHy19M46ICxS4-I9b
zBIp_2S@*I^8=Xc<nS13E>jo-aUKr>C>@%j1YvUc0NLA>kL~pltZFu~2fP+Re^Pi;W
zVz~j9VY522;V+4z%qT({P=Pa;s}+;-tIK-X`_Cp`-d{C_pseMrn1`UOGAa}uA98t9
zndXaiP<;zY*QaFnlN%P7maviC?a9`4Ib$!W1?UQ25Fr~~k%n%tO42{Ho>hAE3~2xW
zKvN%3Ss#91|Izl6D@o+nX%vvgM}TkUuROvpIl7hX{hIgIs$sg+#_Wpm6fZrlDAI96
z?Dyn`6F|F}-Gbm$kxE{yPG6Rq1GlUZa9SXqTBQDon}-+FS8!eb$q9?;|7q^K|GECZ
z_aCIFWJJV^qGc5ol`WE;QQ}orktBP|ZivXrib%4Oh>|^$C`1`i*&~}Gdw#D+@Av2X
z{r(A`=gkjwOFSO;an5zFbIx@*r&p@j>7)A#4)mN!L<yh#`)>7%n_f9pj!#YoBU0mD
zeL8q8O7BJN-K2-d_GO+R>$8pQB~df^*H-8~i_Kg8`I&?PqhB-n$>MVoVTcXIF(J*+
z?#a2hFUKb3LCdQ7VH~!+d=&4M8Ug3Xm#|+2q_eVv48h>zW^|yCEm>p&5xe*gIiez8
zuTIB&STBcp`VG(2zrqibOK`zXcRyJA!B^fJT*cowU%tMI>wn*SwaxpG3*SAoWfZ>;
z@tR30Kr;zB0Liu91e=zFSv#T_obWWYdUvz+`4>mjw@cyar+kGxxKRQ*SzAHMr;#%n
zIuZit&+mul`@6KQntzuTRfnXWUNAyZ37pH%@6mg~PR2^uKq*q9>^}-qq?&Y2x7V_j
zi(1rwDndSvbwAI~clr2-#X(X(xIfnCgs+>M+aBZJbszFOFOaqVj&j1WKUp$TdwH*J
zQyx8o+-4l4{Yjuk2JEDo)icrpC1s|AFO;4y{7iNjCxPaG%OoM+>U{U^XhS!1vijT(
z3EGf_=;p0jCh5_7O3IxH(`=(&M_MKZ$x7`Ci~Bn}ExMP|hRLY<Z-YOYwf=S-qt^yd
zcL$k4ULkEg2|)jza{$WRPPe9}d}H1j3yr><0}1;`6L+=y!P*bLmtnwg^<>ouxoxEI
zJE_KH9~~~bUS28@68L;+oq8>nLgA8T@7@@#fI=?8Yq86>V!e9KrCv!jkJVY?J67Kl
zUZ?wNB{}NigUhkz*JJfYD(!1pK6Uao+4Ai;(NV>z=@)i+aAmFM#Juo^*S|Kr9O^$3
z^5JdieB3;OU16670I(F*Xtgde+x0ciIB8Gz`N>X`LN?nE$AX0fI?bI{mz?56?I_XQ
znz!gzIo(7j=05(Nh3$2kVZrP8Ewr@q`uZGweSMnR+IP?dXoAb~t=wB??pJq+j}NhL
z-@cxN^%b7c)=Ud~DobPIJ=>X>IBUCECd+osDHK=J8Okv4{MY{5%#Ld2O8RYj-cEK0
zAU1J@-le)nz;y4Ow>$|Rw`A5=m^j59--3pHLH(<5r+#GC>mxBms|xAbPr(O2(|x%M
z3a|I>-=`fI92A#KEEI}*l(sOscqKq;$TxE~^?ZhoV35}57|%8rwGl^g#CMy}-x`~H
zP*im1y?gfxyw}TSELKn+ez3Yv<LBV@$!{)3mKJJLZ#-S@O4QZ2&BvE~Xtc<gmQQND
zgaRH=SPF7-xAH5e#Pss5NkgcGs28jb6RG@i=@OSV{|+>j`GP{*&c?=unlXxZm6fHO
zSsJ#pSknxH;^P?iLp&J}9)*cV<IHA6jJ}@BbKFu=ovC3#KT|mE2fw{Obo8o5>F+BN
zDVn@ro}U-Uz5aCzf8-Ww`d#nA=1-yIyBDQ6asY^jZ%kiFo6e5r$?_|0%$h1=kV#(O
zvH!%0wsCP^UtdC{Y~`Ey#i|&`&K==W9c;ISB7ztw&CSif<=gDOm~R~fMT;Mj>qe(D
zgc0IBY+)E1YO%ZX-xbu36&^Zmes@+uCO=JxbD97AbERMIv!kZ=?O6uJlte><j8KrZ
zNL6=jePjnhwr{NwgMrJFv^H;2%CdhAaAryRt$fEjh9x9~U=*Cr$JKoKOdWD48{q?*
zj_dew7Fk)@(3&fn{E-;vL~ZCfd;Zzi>ma<o)io~B=^FMggyRskK#~KDtelz}t)O9v
zKUV5OM{3ENQw<#Md8gM+uu4}YcI@0qlXBMFv4b<_ZUx)pqQ9q$vBc}y#W&XpAE-k=
zjMtdNkQc&7+-cNx-~XJkiC2v$<ceK>Dd7H1d9TlVI|s=>_jgJ~&4;LM4`JP1W;LHT
z8QjR)z-r+!>v42o{Kn;gvaaDF>**8|8`r=VnYAhU@DYJXl@U)U3*WkRtM)~I$j?Fk
z$qw=i(JqdbNmM?vO3$B<m;B5*6j}~FC`tmu?OuI4x*GQsSMAiVu2KpDMOA#)+p;Ed
z7D`4?`a!4+=C|Z)r8td$BMaOr9!t50#>MIPN~98P2K@^HF=}^FQO1H@B%e~;Wzy2V
zbov{em;-KRWOlxxYf*gD^*5r<<2zByeXG=co{~5H4|GGBA&uqDec(X#fb*p5$5@`1
z<cV2yvCx$D_48A8_@iHFUo{{e6B9%D<XN@5{oiG(e|5z2PAr%Oq_B$>xzE2B4-XID
z`?H_d=->&Bsjq*OKkpdw<y&$)m!z;QL1HeF|NJ}H_bol%;d9ZcXVdSu3e_9c)$iyi
zCC|w4;`IMplsW?}O7rzMriOC<N9zQ(uhJY;jptr6U83W)uRj)C{#s{ut%bxufQeC9
z`yRznU!EU)@#=o#<CY!>k%pVo=+B-zm*euw&|Lg3=#@T9#8I%ceDR%5XZ2L;xMz&}
z$Jn&LFPU?@jUM&o7$3w$WFvEMv~KIxty5sTD0vruRxynf2^?@Q5Z+`HiOYc?{M}?{
zapQ{%!X+qWq&p_JBeMafMa5_|{zi|_fA0oW!DI<<eRh`!2J`WRtRfPkCs4W-UNbXW
z9?+Jds}Y-^{W+no{=(zG=7i|(b}@6!I5g|)$@AH+O>E#ZLbV_ug@+y^Hp}PvBb(N1
z`~AfnX8s5n7CF|8vo5VJ&u<`5dnV@A<|EuDx~5LUU0>IptjrW%SLYxxFr4#p*eWb(
z_MO2*1Op}7U8*qntr7aupyOHE^Q=zAi#z>Ba^(^<Tpvo_IC?Sn+T~`YukYW>zy8qH
zWC25Vz~oQ$Y<61vG3Vb)>8L%TI~qe<>^$)fIX_r)Dx%=Vp95H4Eq(p_$S*|Q`27KC
zi7&-2HYMw8%YtXxzFQeo#q9LRw44e0f)mQX%Ib$^P>HWJg&CG5T4vLK{y<ICI8MT)
zVYpZP`Wto_Lns%}5>Jp1^bZKI&wd}*E#ndiTiv%f@ae{7o6@N&=RDL0(QMsXxwg8T
z<FROO?xhu^a2tafjWJ;d{QAA}@`y)=OowPRCX0nTw5-=&{c5mPEL^NB3tui=y7*$x
z7Z)n+mf*UNAC=5i9wLL&4`<)>QTENnAPoFrgSn(6X2#k+Ti7k_QG98)Qh^_xjo+hR
z;;OY2N2xM50ekKWq+&Zaeu0Xbdatx}*R}S5FLZ_d-=gR9KE}B9W;tKS^16ao%dzW+
zB)I$~XaM}1XUT@V9>eb4A!ss_m~T2(azko-#QDqt+7DUbMq+L=yjaRJf`P%o)!>}&
z_w-y!TDR#g<3!EBe_){SV%^=O5%J>8i<#9v6dRJuoy6lE^?ZA4q8~iCr5-OHqt^YM
zTxmgrqJ8x|`@(AuHf#%j{5TjxR$>h%EmvA=tDBt;2no^Orlvn$7-VQ^c@PP+z6W}o
z9+@5bH_HC)w-^c+9`fBgTg}@39Zh*$`}bE3N9{Uwd($?4ha-dZKR5j=D4{r3nl|6b
zmL+(?`-h8JK~cwwdAC7Tc!I#%d(JlFpYdg%-o1O5ZU0ln#;<<|L{%_FR0O+RpVeIG
zV3wSm98uiBW7fW1F$?PoWra-V9^Ob5IL6m%5@)r3aO>`N_cjkKvGd$okQV>rwHbYu
zVQD}^yo9?`=vh>k?3%k$tW!2=_3RShMD~@M?NFMa!<i}YTs{s^?04r5mE%}zeXr46
zoN`-?RegP+$%40@SBR}{q3EML;r7v?gq+-t&Z%Mn1I4^;^z<LlUlJM?cJtFGwSj?w
zlbJeDmtw!xl)Smfc_ILREF6FOowct1{7|5TiKEMpxyP)*E&muv&S`0BkxtobWlC|p
ztMngMAw%pj)nkuo<$e42UntF<AF_AI>vA{lj_+;w19b2|3#L2WG89m5|MktzNbla>
zUg*XinVakk!~yGr+>2(q_A|p$alG0=Y3*l{wyB5g=GZ^zo>qX|+sfhs4A*a*3oafW
zYB+7O=2{c*9^*?WtlIOSxZ`}o+OKvDV-eF{+EC2ro=Z_oSl(l!Pw)Q9+JQ<4k??;$
zVF`U4C3xKbe!K!W|F`{3y}-7Yl6lKUd<Aoe_02Da&R;P#RsOI5`BAzw6IFw$D~9p|
z?)<fd65eYbyv$ol76%`7(N)<@wCB@r@udV1^kI0{-pjxk#x~xwf6r6<5!mXcXx-H@
z-1OsC77JCn>qVZ+c{NVH3}3E^;46!^+hQ^FNTpjuT-<nT32jJ@u+dYibb-gU0umB>
z{N?Z_et-CWk@gCffR<C78D{y;*>w4T|J`{p&+;A!t_>)Z*f7~${%hi}z(Mcy4|DG?
zFiM|;6y)LSExgx6*wNKO-9`6dFS<K7_{!ZxWx4XY!<@qlP{r3;U$A+t&gx<WPEBO*
zcE+%+Ik%(z{c8`clFy7GK(EY;(dicPJ&Iq@lk>~<H+b1!1<&^umK1rfOB;HxI^FT}
z>qqcfjV4g=Uz?w4^LLbc?<SETPB>|gwUKcEK)R)pGVT0rM{s$IiTAzcbI8)rW$FZC
zHrh52ntz-{t>=3xHjtN!J!lgcvKNg<&160xOHV=UJYr1cC?4OOgU1`&=q5ox`_<(f
ze<Yx>bW?LP+R~Y+HpQ+lz)?4SWL<TRl2=r89|+7%o9130swsNsHd26&pr-)Zyu7^G
z=AQVq$T`XZFJnQhgM({}r@bawn3;Rva5oXiICj-Fx++|~dVqKWCF*BJ<z=ePlT9gG
z_w3zkw>WKz(0d~?DEC#HdG_oXvLnxTr2EVAHSq|Q{Q%c<6YXYporn_86vc-*%rS;Z
z=odS0gTXm5+Hpo*y*lxfpQffJ5wA`SsPOKc96S&m*{A^cH&o?+Z>0`U|4H-6mm(*N
z_wV1kN^pcAZFP*eH2ftow9a7pn2}&KnKMB3N0MUn*lucn|CJpQuJ`<(b-3eRhCX;e
zNhqnRzAhlu8z>0ylClshZ8zEbG~hJNO(eXP&mDSSUEPPVQTVn~Kogos9-t@|U!+G7
z7iR~At-|{RVEouqQi8N=!=7#(ef@*=g%Zx={|YJgvx&#k8F{ZBBc342x2{RjNRTFc
z&<W88V%|}8m%RLdsPpgbj9R|Gk)xp?zykVXx=;8RGc)rgq?!pI{M7FeS#Nm4%y7Bt
zgpA5)i2{$sqwqnDOiZ^!Lm5OYT4@oh3I7v)Xz^j)7%bER$lcpO$6N;w(oRiHk*T~G
zu^HToDM&Gpdkd8Ak5*y`Yxn>%#|D|BlKHGx>)`Czm&6UsTYMckN;r!%3Pu-V`?HFS
zYk~N&R=2R~rx2*Yj45eo<cprUS6G7JVH0i%GHj~r7Er8-@nc1~N$eR3SU(czW6s4B
zZGKp^n?Nhb5793!F0#y5wb<3v)X0J?V?SYipL_-MmB`Ux3r{9$_TU-w(&I3diV8nD
zJNvMt>+iRzR<x#9u3Y;3Sc*`wPHFh`iDVtFH|L#+6{*0SgHM7kPBDc~1zA~G$Z?Q6
z4__jH!GlyH`MLS|w?JP@M0$P2fltT*XAZ3<H>Ew7dXPq!RZ^lcHZeJ3KcIv$sk^N^
zc@)QTGG{+)dU;8MZM+{5!JKQ;y(=s%jArv@Sp+RmehYx&VGQT75v91fJf`5*LoWGY
zsVf+Z$IH)8NjU!M>g+4(S{i4RyVRCt;0g|ck&W#h+0=v%iv^HDDW99M5~MLiQMpdD
zgx88Fo@u~d4Ccw)$x~5YL1B-eARUo?se&?pKvrH}odF);r>3mzO@fQ?r<YmLq~VrF
zg~vt$393Ee?GTdDCK!;KVU(kR43;Hd5JK6QjzNH*CUHOd-GZ-IdMa)=O{01t0J&IY
z?`SXIyLSU%&cq@@(o3L>Wqtf59tqg+;2nlO2=na`75z5g21CQ7o27pwrW+kT$+I)&
zG0nJT6emdmb!o=pOxm$V1bUg(6T?$ZrWfa0BT+l%zi}(e!}<&?dmrw^D}k3C9r~|F
z*ve24Vszk4rj7ve_7--<Po8k)T&-t+R67lv+f-<^;D*)rWvHHAKs<c4nOV;N>C-*w
zW#B0q`ich0EXr9gu)9vYK~4GwR~uSQOHp$h2ym7$+tXF*ejvZQz%J?Q1Zs`=wD}|T
z=4u+<EHze{<osb+zePYH#Y*1G%PVHpai6;0kIme1FZCv$>9*4Dmewa2KtAiV%~qR*
zT+C#Va+^8)NCQ;U>C2ZBhkv}uAh;fTuieO4hWfZR#mO1?txrcS5=`b6&_G2+Bx>^B
z(aCV)KLm#PP%!Dhwvci<gbzs782zjSqlTtua%R|{+)v?|+tRi9(eS^qs;WwT2-B`9
zY1u_Sj!#2xwhuihZ$TF}q6`QjbNCo)X0}SX&pC?ka$m3*&yp;A{6YW^Rf)07*3LI%
zWhuz;4Fz@L@zIBHAo-;@YB+$b%RHCKv#-<qNXEOYM(gELqbvH{!Ui++iyYIda`SAu
z1;6G)?(IT-yY^$?Mk>vtX(=ftmh`&OF#@CAI4@xl5&O=ZzWfq01xbiPbjWqxi{!k{
zRYz0v$C7EZ7c#u(7C^E!rl_)pG<c8J7X3^&`3=BB>C;J1`RBb^2m__Evho7%QvG0f
zWTY=*iPx;0K?K1hr7SP29ebub0=i@yh)wjnEdLx2zSdnPMLc=-j0W8V4i*4sS9omZ
z52I|O@OC<5iOa99$hGMBc&pqsxS(WHz*IS!wve8UDhj8Np3C1OB&0FyD4y7O?LGX2
z{OZzdic_9-=XDq9)aiix_nEQp+Yy#CiN~umv#<mpGed)EOF>cBzrRW$xDYw+M?D&M
z?!`<1i#-AYsx8mYtE!AaUe<Klp^e5+<Gr<jyTWgA2M>dosJ%}6xwuY3dQho$tl~Cx
z-`krTa7`Po&BT`8SjCDoO(PfDe$g%v)KyXe2Ey|r-7Lu24qqCOoV?GxP%e>S<Hn6T
z^Fksb+Tf&5^Z_l)r8P%h@SYiNr1U|ZQno06CcFuy&u~k6_*c&(KVekQssSX~;@o$f
zzuM696K;b&<tt!<-NNt7TL1pb3s280D9D0(t?h6(42Uy@gm2BmT{Yzax0179`#{>j
zdn-*;;IUH}gNgS5;GKCIbFC)sW8H``<Y7~*pf)K4LWVaoTs@5m>%IeTQ%pWbL>Jft
zwLuGwxV&7ZtY>;zFLd)h*42eKE#la|$oe&cB&CG2Qr+!ax9<Pw#I?1X8P;k{JVl-K
z@I_G1F-aq}px@3vX$&jfOh$r%MW!YHI=jLv&u{C}a4*gO67qSKuN$&k#*knrb(?*#
zHZ)3S=qtx<@8EDI)nVetG4oPPYx)tdF;XIT>Qohw!I`WRE|dC6LLpEA4Xl|}j}zt2
z6h<T7(YnsB6=V0lS($23zZCw^7HKZlRN+4GkuiJ>s@V6CMo<|uD6p-_Dhb{#W1aIl
zNu-jlm<-zW71NsU!O32bEK8aH1t7rkN6K?4H+K>jN-fLe+r3vNALufcjcf5B$s%2D
zV~6~jc<VV$2Q3XI+g>K*s$aYq+qpc0Dm|Jf$(5_v*Q;$nS9`d*WeJ9D>>{@9(%<z$
zCNjPAfC!($d$35XjNfaHa>n$iy2#mD7D)KLSz5d#D6Qc!Hyo0fV&8`UjbL?<jvSJ(
z<;j&T^yl=yS7e+`PtHYQf<amnFkM?8^EP>T?L=gDHW8tZ9}9MFx`^l=V33x8ukOn$
zK^syq=9+vPc!eEL!tW(~Aj(*{?<FYu82u>R^-@HwQs{c(3m>a`|NaTgHsM1a<B^A!
zKVRk)PcOK=$|_kJ&1kyqpt5z#mUmB22PT*2TeS~5dJO`)j&~F?5ns~J@x0C#t-Ep*
zJwtl2I=!gG&3$OCqOxU|_ljNMSWBiJD|U^VK=9Z+AiiXelYY{}qoiu)(-99|lrP>n
zWxms1H%9E-`YuUVAEfB$h~G#e_rR*;S(&ZLz_K9;LP1EcEtmj4KQho2jP6J7VFPi+
z%uLUN>j}?izEgQEGI|h$hUO(Zk!@PXlGgmXn$xL{=|c}ZO4IVQXS~IEPV;7;aY5kB
zfsz3bVvk#0Kf0|@KNySrgCpO|K=s^2fr^rnzvBzB(;FDWY%Ws+t)AzFiB@oR6>Yix
zW@g_q2spV+9TEk>fm+u|aC2Am*?Url3k-@+v}Qi~ZhF_~(jlpMy#wKiNTLw;%SDPG
zl~+&J_K(#R8Cx|}L(x&`7sf4Ur2P>d!qseA#wZ^>ecg0z6;5@<V2&Ko1oH%GPs>_w
zC`1!JIG;Vh$O?4<fq^N(-QZ;Qa&f&)6;aL5PJb{XEhE#NC_-D9@hL9d`|gqbJUpik
zgkMn0$c1xI$-#hoN|luD+}zwv8D~>eo@u9V{~N6NYMCu#M>=0=G-SV7qj(E9dl>N<
zBH~2Q69774bLSE@mHt#d*XC#5v7=C=p{YYFU(${iWbfWm`puhjEc9Hw=XOSoV5=>U
zL}7*ZiiouIiJw%Kcn}k_nNU(w%PlGs7?#LJK3VDk%16K7C4*P(L~@HjX%UAlS`QLr
zLV)r~vhcgc;D7Xn%b8=CI5=nt+!6Jm^FZ0J>t>Q{2(F_?n~cSm==c<O(G2i<2X#h%
zXbX2r0nN?=^?m!63|)G{cJLD$xty?<P0M&1Jp-d|HYx(a_tiFc=!{s^%HS@JYF@}O
z_HBICS?r>kbn1-M;X0jT*IPonij9+>71w@>S#p838Sw<=`1PTR@OVe_H4y~*ni*f4
zGT@*vjqpDasKQWwin@lz<8yZ{Grge^A`4CqvrK7F<Uk=NCPse0S5%j7kV1cxsH%fv
z=XC3l?8ssncUo^BWE=7x-o31tvwvy#bBnLfO&tuN<~n`v@7nYZD>k6EhmDK{F&&d4
zqT~6b`dsjpKk|l;18N?t>lg)g>SW#j&^8+IGV<7^j$Y$?nKD19Hf}`S^Jc;a4wC)r
zcK{CxV$(MEI{=(N*hbcO22*wvyS!{yyc~7aB1X)i#Fs%mr9Z1d%I523z0q#?iInsM
zE0KrDoATCnlu1>__+j7V=UtT!mFE{dR%hD?A4JTRVWAvn5rw^7phg?wwDf<%m2(hH
zFwfP3gQXyX*pJD9qby;I>OQhEZJxPd9u&YNogar|@4JnGbxz`(I9VGBYbixq#j1EI
z_tw#+yL&H9l<sJc^Il)>2BgoF2K(*vpgnZfAuJfUFMZ~xy%_eA`bqL$2c+oKQ--#h
z>csYPWPJbr-Pwj5w?488wt!n@*A}bhx~Q<!GKI8eWrwj%)YSa|O4Wr9L$>pi2G`zP
z1Vk`jN0H!APJu^`_4jw#YXxpa+sxRa(%(3<5^GCiLV<OG0RhS4Q%GQnvBm{$*}665
z^D=@R_k9`|`?u|Hz$h0hYPW~r5)%46Z1XC<S1G;8A&MQ?DC)CkW9mAe6sN2?u5Vb^
zKV5gNge+tzcXk=BeAP9&ps$NG37`q#Q&1rKNHO&yNvxaiQeAC1w8Ur+_i%Xmu(&%W
z463-vT=~clNWbZIHEZpsvudb}is?*Z+3h}lWMmclsm~IfQQ%e^jjF&tyg1<lJv@_-
zq1<E+3+x8eMH}hOmkM>H7}JDW59#e}-L2?#$(E<muPjr)u&J*I4Z1l$jt_g^Im;hO
zcgC-ert*gGqhl6>VUqX!KOX<fzib&nb>xwy_TQVoU-_q!rxNv=^9R}(<#sw<3;T7U
zz?K`%_Oks2JG&!Lgg>xqHNmZ%!X~}%<B!ToIOi1Vt5#q^K|3EUo&<_Y(OWcF9aw-F
zq##g$dK*Tm4?!E{?{dFvu?&(<f%oxwKrM&ZrKYd4f;L|AM$<EskGi#=G*eU}zvSB(
z5&Jncjl3394BDxwsa2EWhCU~RzycRZD!6|?7cyZg8lB}uckvvFT<ZU^2^Q#|sVXuJ
z{QcV&j$*^%HM?5YJHEb&a36$^P1)imklw<DkJZy&FI|!#NTR^!!AOea*L1J7l^Y|g
zDAMZv{}+P~Ms2vY3jwH&-++s;v2pU^{%(&yXI>bVvV#IYsr;b_aq(~T@~Rri)wlp&
z(xM>hfx><BHy1gi+?Wx(R|0cUL`Yul`f>ZFig28RGYX$r6x}wwg<s|^{q^IG04SLh
ztvNXwXn;~|pr(^|a})P@aKiysz*1MOHP@m|y{Nv}eSQ*TjE`L6$(M$u`VY#~4pf3I
zexk`s5SX&zy3p%)#Jp)Ahm2RpwJuHgORTgp2!Y|QQVDjEYnrLewXC%-L_E_(2`Kne
z;@7+fo1W63#!a<l%a&~KbuSQQxu2A(Vua09e)aeFhsDL+2a|@l`{Yu&PR40N!(EU?
zqK5`|<@KR7;qlB5b0n>qJddGk6$rpm#JTRgg`3PqKnl9#qGxt&#^0^jx=K$AHIOO$
zeWq+t=7?c1AzdYXZOl<TPV&a~&6_uWEAuR_a&#2uL{&U3G2C5VzDy~&fA8K6Cu?$!
zuY`eID+&3_dk%!YeS2~R1r8fEr%fH+`cS}6-BdepN>h`89a9|0Fbc(1C-K&$9EW1U
z@dCi2WaNkh#BF>Za=GyL{GF5>3=BTt=)T40olTEOJ%%>Nt+-s9V$?umP=IehS}bW+
z!f_bX{U#;v5TGlN7szXd*8RjyJI-EF1Ug$g{cKfO=W$ga5nz96!u(Dr1cz?}KouSg
z0oVWyDx0oN$t&iKNPr}$xkW^nQKP`0hJPdzSAVf<u1Df0l?=W7EG@q=K!L_*T6@6@
z@MV!~0j|ecp2)=E;cMpCX$feh9|upt$iZ<i@(f-D_>ZK#P+3ZW5Z$hQ?Hd3l!qMc$
zScC#{fLGeopcKHt9kKj&n3<Jzub9~PB)cW!&R4$DgK=>j>8F0^f~(*JD%_}f)Nc~u
zOp5afE-nHF=`FI|w-y#$$>h4v2=zBpGc#4r$|bFeyobVO!P>iDl&UqZUy``?h3nDo
zOUm-{k1Oa5@j&+9Am^Ff?s`U9N$D+K;b51WT2~}C;`?i}M+S!Q=p2%+47eqZysKm#
z<YIzC(oKb=Fzd17GxaCBmFVM-^56l`v+)*B!x>N$D|>qr+o}|}ndl*MZIHJ6A=#$|
zMh`rbE2`k?4*u~yDsX83{*AbIa+;c<r^u-URPFgTCt}CiACbqDB=<zi9c*n6({YO5
zf#z*(|KC+eCD)faWsTxqncRW!%Q%@VX~pIkQGq1uo_Zsz=gs;uLw3mLPOMES8{w5z
ziorwA9G22c4aMqzHYTAVqu4=SUK)tnzK0(O4Gkqy&fWtl0U$*R&wl{xbO(pl#!s0A
zbRmh;aal=v7LELjR8&+wsMdN<7DYh9Mq>7GJX9chz<VpHt1BSA@xpmwBNY{wloV&0
zdOTb_(-(+K<9~7CBw^R8kTkxFTzC(({_I5$SUlHGzlBUU1#jW8&fhoBWg+0bi&~IA
z_&qXvfq45q$p_+jLA=}9*||c{bP9!p+(<NGkiucH`1?W;F?_(s(Q}!gs{HTYmp^%u
zzzJ$Bb$3BI>Q;c8CZ)k9yy{)BIwVv<@Th>8EqOHnE+}M|)M1A~wJTSz8k0nEC#(Bd
zj+C67Tqsxo5RQr9Z)mn{^Mwub@Q_4$%@$~j%(n{IEnV+?wU3uq$<1~Yi&VmK=0Zh9
z1$i&M))viXCOiK*|6E%ZJBV@<RB|2V5O<`(H#9jO1PLS*UX2_(MZ^k2A0JS{1_CjB
zU6xiQSXH*8mwzQ$p(-8({So90VaEXm$e6{T$Z^V9N&br8%8JLxWecpY9A2Y@Bg~Tw
zCY?qhFu562P-v7vsoM^ukO&_TvLNQaPD}wyNJ5~!z-v_;{Z7ALiPgY)I*Hzbq4M|t
z_!eaxTR@oO5IDl8A+r${{~R^4XlbK3>~$?c2C;fI8c_DEcIH{>CH-9T`yhon$Xz2H
z8+}0dkg*CTf!@_J6J}&wq$6P#K8eXDrZ}HX6P>8M@40=)e<fmV1%WI#DjFsxZ1>@~
ze}LBK9h_*{l(Vul6x>vR2Yxss+~5%r&Pfnle0-Zh=L!E<Lym%yKq>A&y8>_g#f>O+
z%{jAg&$L$D)0^Zw@aN`txot&v5#Jwgjm|YS`N=6L=$U|{AWtrU>Cl8NL69jFxA{pc
zr&82(#L0MfSvmN$U+*sS1ZBWP=2?)a!<m0sjWOS;Q|aiL!zTqTaIE7U`==dnyx-wP
zOE~X#K8NNE(rRv{4y=T@^EgfL=DmBSJ^%YKG(P%*iePcFk(>ov*MSAq5(DHHB2O8Z
zwri;PL_H37bRB4|ZKRs>zs1gn1oaDiU~+FrXalV7{qK(=-_8G{#@_@4xvKbtCH&_W
e|L_0Xk~j4YCnKXB=l@PxQ9i9MpCxzc*8c%to2Wnl

diff --git a/reference/plot-8.png b/reference/plot-8.png
index 740b0e96d494be280a0b7676d82bfe965c8efac9..797338ca803e94f1ac970d8af86eae0474dc127c 100644
GIT binary patch
literal 56317
zcmeFZcT`kqlr4^Jn*%B;7{FFR5CkME5{y8hfJn|N5(EJWMGm$tqKKe{fP#QX&H|E?
zih_b<C_u7^WQv@_+t)B}=8sux-dpo~^X9D|t9uDlQTN{O`_4K0?6c3ge^Fj~)B4@(
z>FDS-kz~$ZqN7`7Pe-@%>e|)#O|yU42>w}p^}O_1{EM&IGr4Z~XWdO14Qo0&W)I^3
z6+Ydg26S|P(UH!cQnr6S*lOpjtg^H`YIo>bP0Y5y7x!{GZ*wHv<KnnIvTEn{gth92
zUvkWC861i>)wrSl=8v@;!U>nR++4BYkJ8((n6~V^*!TCN$UArH4);v2@yR~nd*M94
z@28G|S^Ljjmh96l){@ho^X)nWdP00Jd-478<F4rF-ZN_@to-#oo${u2y1%}^r^IT%
z;^+5&$v^H`_4C_X$Ijhm{Pm8n+yB3O^9zdX`SS*u&4~eg#TMC?UBwy(1+(9SVoK^W
zE%Z#?1{#um=9avrg%+Rvyh~-ZVD&Y0?+<zuZB6wm>rO3QCHsdorKoc)7tf!nwV}Iy
z-1JFu^*{g4?f=d3Oz=9zi;urJ#*WsOvU$zVr!3jOE$`R!Zi$u|`L${%pC5R;;n%M%
zJ^!>2%5F91)+^A)BKuTGE;|dE)X9AM^r`gY$BWVO!8WbrhU@)xv0qXR9(eIxsn^id
zjQjlg!b2v$)6v1UftQq&$nVy%$LJNhIu2*|ymp!%e%0UCoS8gmn~VRb$$GpbE79Q6
z&!6i)K0a8VLpF_!it1NzoAVvc>e_7f<@F~Eaji`AdVL@9sEXhd@#d{LxNuc>fL_w<
zcu(1otw+Pf?tZ8K*yuVeUGU9!>tyBR>ieQYleEmU&$T;`KYT846glAa#ASY}FE%=)
z#-S%TdSb%H;Mz6gsu!mM`3*e1_a46#n^XL7k5T%vNV_w`>l=a<;g_GwN8jDF$MAz)
z>EUQ&T3dd7QbRMjLC2_GQoq<s*39V>TY!4Ap`qdGBR#gc>4xRI#itte``hw!cMBT7
zzy*TIRE^zySMPkU3{9p`DE%y+ADHw%V9!;wwf9;Dy?b{$)Qt1sr3P8KP`w|E{bKbl
z<tB^5MMHUs*=q+6Cp55!I&Vv@z*_oJDBDt#29gWgw(s1zIx*g;GDLMYA>l}x)3kYQ
zoJ#zQNr{<`e~O1}_vm{a=He2-Ls(ah^@O?=9OmFy8=s$=mR7!sQG3f+qh`j9>#3=!
z@8Se5wU}qlmPjsb732vjH{=%(kh8Q*scaV?QfUjeYrF2Jk$R2v#znecjC0vxjnzc2
zVrXUOU|OZHwD;av?SI@mJ@&c2nyQYH3wo8=T<BJ)5X8vHsK(J{BU+AEjB%Y^srfav
zwQ^V?_4&<{&v1r9a~^nlo~AkwA7=J$>nBsT-P4DEJo-has(&&)H?xSvq*Y32<=PH;
zst5Z>%*CwUw0pa%PtkO{o1RgKgJEO7Y`_tXmjV^X&NxjCuG1WDG77Et+9mMKD%++n
zGN2zfzE0D%K2Bx#(aR@4E-ue>`H1#K_`bI4E`4N>mX=1YINsCSY*DyLL->-^!`+d%
z(__ZFV1=jtS=~3;py$)*8g9w5$~Pz|elxSEdgz(urNzlw1<6>~#ksBR4YNI=7WKI<
z^R{NKIYJ3T5_7!=O<}Yas<N`O?)=u@KUcrHQuHJ^m^rloySr((pbU1?_UYpiRn}y`
zK#9U1k9xBF;9IS842LdUR8)M-8mpV{IM?wH{cEF27C%3~PeZmi(eYVX>M)afY-4yX
ztw8Jg_3JAJv|bxO4srOtYrv(<pF92X+dsN{h|?dRkZ>VL#DZECb|#S@3wH^(T;v!r
z*XBf1!3A>215x$yYVk2KGUl0DY;0_rDOcS!(@hNg@)xI?g&Zf0xpni@`}+C<g-rc7
z?>+WcKp9&=S!8Rj-N4;F=C4Y5wK6Wmt0u0`qKP|A^}c+-lX}<MxGv_gVa4-U7}Tde
zn^N4vt5+9sQ?=L)GqZ+hg?-GTHXPqlR2o{ct%a<=Ul?#H@n%lH`eA+iL(c~f(oO0)
z$$d5FYEm-1p2&nszrE3xr$Km%42yQ2zQ&#fn6|28<E@))hYt0JI1Q(?DTGRhe-kcd
zl6!jet)ryvVB?GK=5*6&;#8cl9lS^)-N#vmxnj>E&OO)}t6$=++N2mR)z|U%AC+U2
zK!!fk$U~L9KbC*X!Ia_Cdy~JszOFA`lZSmZsaH`|HRR{#PnfF^pKf{K<ErqC|3lB?
z{^WwWQj6m>=_$5nDf%U=_sahzB9i$o{0q0{>!Ti<na8x+hHQgYtX!>bV3FPJf2$iy
zZRj`fCEc`2-#T0Sdw+a#MyU@I-+{|bG90kUhkHaarbLXZ{(_0DEVf;oY)~_f?%!Cw
z<<mGv<CaZ&Zj0$DO*g1>jC#%~n)B-$;Oi1yz6{wasjBXL?X0TmuTpTmHflxlRFFjh
z-}wNZO<8T>3r17ld=*x6?<?EC`=w>#*|CM69z2~v+&(_$#fvwZ5<{=yAR6c;7hbGf
zvss<i17}oMS9h!1B7ahKlGfhtxQtJ@+af*wy?k=4jF)Tw{<pNbLvn$=IM-9N%|@Xv
zQLvO*?$Ae%UPOnwesPpEs@PlDopGb-<v!P$Q<Nu9o<v}!ID2vP!uj*Vxm5jG0iz19
zURI56#Eh2y`ezi%OI-ir{rmS<=m$x-IG*(oxcALr`$sK{{K&R^C$0R`0s;aqj#R1I
zPwb&LCIz{<xN66`%l`2Xg>Oz@fOV`E)8ozlwoS)*^uvk<r$$@|W=EYDX|q4rQe~<w
znB*6D?3Z=jc-)cr@;p!WdrjBza*=qU@dd&iakt+r+GNs}=kU=i#AQmu)S<i7ue7p~
zUUP}ClVDNuZU4Ud_<;15S69yH+<d$0RGAaI7u*p?bgf3%=QaDBFLSrswYywllU7nv
zBCKX$5!-#*TuG&^E58k|?BA!LATLj4P!QXivM4<!##zY}zJ|sAjY-*)C)*Qsa#gYV
zUX2p(I>j?a-`{6g>CeT@UH|%eZNhZX-AxZZE)7r<<CPS|RVYt<eZy;NYVOtTxn7;6
z`qIJmNBqC_<?lZ&b`SxEIyN)fH5o0rNP-Kgg4Lcrq*XRP@x?d7G&x^5!R$+>1#MiS
z?%VZ{QT>0ee|a67?p%G2(S49vqrfh#s59mw_O&3zKi`SjW2~WYsa_L{V%^xR;&10u
zQ^u2fB*AQMYG}`oXBe{`={U8CMNGX?ayc(TKXizis5Kc-xDfe;PtD&hmq$D6q6huH
zDXn1yCjYW-3M+YlDpwvTv_Zq}`t{hI+?o-iT_y2wWG2*vXB1ywggzJD<_xp6jM)2@
z!SM%nH^{!O_-U0FogQJ^(kevHKiJ8A$<Z-~_4@qOkmF3J2f59mCl>D61Wv~sXO>$h
zr_Q2Mm0sUV*zC)-{OJk7jUNotV$GT}sPn-m>|hJ>7AJ#-+@jA&NlB?&-br<wG%=l}
zoaa%*ry?Ht1qQ~|)hV;Fvup9v?zF(^TbMESH^!ARb@^@?4>9I>iaq4J%6ArlFBzC+
z4l$3FgpaSs)01mR?B|XQm&%+!KmP0qZM;%)S__yaB+Y-HV{h0C@@{=Wa=&tYvYy`J
z++=MTZ(%}rSpb)ah?;?cfz`3S61*1prv6x9@BQNRZHePQF;*Q5t9^VJe4MEL$P0<Z
z38hU;N8hlY3JeH{hQY@o)|<3sr4-D3-B3t=;&v?u0O$&>kmP%aYNe>CSd|*)*rl48
zCuyG9-2eD6^ZA4wJ9fmv-NV;&9zLw7q48{TO#Y)o@dLl@>3sHOnJ%wJ<@53Q(t_SH
z&!yj9{ru@u_2Yxm2X<Q<v;rDY$0V0Vebx_HTU#f#)xl=_5eus3Seyp=T5X%n(uFm&
zG^+DdUt0b?nEwDD;^PM3@2Cs2<J~up5wVP0{ng1L5BkhQ12D6O9ctQPpM2TX8Vj5c
z2r0j$1{ql$CG9Wqe&{a4dOtkY+4;kV4_C|>A4XgySB8%jER3Bef@e(%t1cqi1df-K
z*znC@r{Qes9hc@ziw10k3)RWT-FYA}bG6*d<+*`m$M4UK5~gvl4e#7Hq?<PIFpE1X
z^8}nn)GKBhs1G~iv38&0%)4FF!e1I>BYp(~;@Ca>E2uompIa-=ZFwp1xOEgF)a2I(
zyqW{FoPnhE;)fZwZF9b>*;wG>q&{zz+bVJ9#B=AdPxW3BW83gb@%lEvUWFR&mVoIy
zR*$`DUIG=b+B|lbH0rk(xG3H)3Fqulba=R1sOI@`>x7c&4I4H978+fL)hj*}--1gM
zUcyn*WzNR5i79*?!y$EAiPtWM*GU>_h8ksfTWw9``N_<}MLG6h8ww7vL0S_h>xJpz
zR;|`EBV5nFnH>|aG9A;r|9<vo5@SNYEl-i~%2+Pxo)D*`$;?pKx!BX$8+h}oG&c)M
zTzBYZS6Xkk&=_b-K-e-w?gv*`mtef*noHQlcV7%YQP`^2mn7fBX50`CYIB*^dB`HJ
zS(6e{0#~`-wApxs#bdf&O)tH;xb@YQf2^#mSV`Pk83{-KzU<J}Q+<YBe0%D&sjhB_
zg2i;djEu}hSy|7?f)_9T`X;QEabsQlu(}SHiuf;&J#_MR=IZAzQ%zJWb8~a|$ul0C
z)BU3rLRnP#`%_9-()@F6`d$JEDhrhMGD$dRr7u*Sp^tt2TJUbQvf#CkTTEwRfg75d
zYdUZCj+X56u~m0<7xh^n$;ebaIjm$;DLySj(dG%r!Kcs)mnAs)R$G6)&mM;mO7Uh3
z64xJ=N4)1`kbg(bwTo>vr_XMOZK<%e+{%;m2z6UJe$9c__UY~WInCJ8UrT(|2hRA3
zzkh$V^uA48TeY;c6SA#)G-->QB5%Uk#v+}g&ckP|V(yt-oNjL*wtl+pQ`?s)Ad~*a
zlyKI*H-E3(eeCAtM&GERrZj0F88^YA+7FC+33HPJ=S78=M(=Gs=zJ(~%+RZv*{&rF
zrX+o>{jr44AH-ul;4O$@53zqYr{%*U{%$yBFNt1!;!(Po<=3-*{{AMwHq`b!hT*^M
z*$?D<IF1-$JGUx)q=#G4ET9$4J0FtfviSb_ndYm@r_?8<@L;jOT+#cT>)JR8OM3G7
zaoF2`)|ifd{qP0g9@r{E|NfhW1!tG(Ry*W+zGGu!tfa$-5BCG&x#u9gaW3Amh@8L%
zf7}m*oqkBiI=A&pioS=G56jSaj8g!Qj`KG8bh*=~Z+|ZjVh<W>jLongy_#-ZeLA^t
zDF>jg)Au6}7nhQ)Z3f;DUEng`AK@!s<3!76te-)m7$qNUk{>GWl#ydQ6ena#RZls-
zcQf2+th5h{BmBUDoMo91=`gXSnJx+a#3@?4Ua0dJ>Dp%23-HBh74GgE7){>YS*LpY
zH4<P6Nt-|U?ME(~&bl+|Rw1IMBa`CdqrrJOj2k{gKIk$xaeszy;~wG9nr%4Zj?=@5
zIN|Cgop{Uj+C!U|MU@XqdvDBbGuGx3`W>a2_+nloRXZ44lZ@PSP2x1*Ypk*hff(1&
zvusq?s|*oOOx4iP*zaSCO;MfQdQj@l5t>!D^Vh?ioa@zXk-8i@d^onojGE^#{>V}}
zpm|96%-xOaPDBydt0%vCXiAIrFX@^4Bu>P;#XKb8{Yvc<eYNq_n<|1PbsU8ySl5@Y
zGVDZyqhL-~G8>-q>0dxZO`HZ`UaM{wQ~9|I_<pU^vhN|eF^7G!5lMc=t<gUdl%dn~
zZJaVdGrWZhFS(NQ_!Gu9?Gdi~`r*Nusn;%}9~dW*UEdW->IJ+`Cl9C+Iro(hTTFFw
zY!tD3M9wxP94_^+roTQuoT;8~-MV!|iZjt0?sNCZ38$$Wree+go>YhJrM=bRLil-L
zF-9?b0<K3jzM?d%%lic9Lb-V+k>y@73w`=D24<^^lwz&M6f&>|goC7rhzQw|U7wNq
zopv=xdW4L|Ps)o)F*fHQIq`k}FBmKoFQ2gTp4w1zW&?8JBtS6Z&Ufx}xDYZz*`c<4
zt=QODlje*>o~({Ph=?QZIB_vpv{PsjzAf=QZ@%()Ph|sk;`NOte!@<1rT&`82aZ#N
zvA7G}M6FEkv8__NSi=d}t}#4*;0e2=g5@Qr#R0wLOIQq824NC$);$&dwb4Fv6Mgy*
zA8IkctA;rCA8y6L4HPBE5flOP15P%!b2_=UD)<~S@`HHzp{>CSoSHp~95@7u`HquB
zmMcpcE|@nb!kdrSn9SLJ`tQ%JD-?m>{d|4(7tID6Q~YG#34@}MTwX{kSei2>GCj=#
z=j^GW=4fE~Sg<Mm)!`m@H|}}~kao6f3lS}V@w6ouCw!w6LX(iSsv^v)!Eox+j1+Vn
z`yzLX*}p>YQBhY{@0<HKYs~(ZN&hPIpFfTc9o>sDrkB5XHM;*8gJ!AURs2v^MkZ!z
z;N1pZugS1F&DVTC52Ew_e@#REM2evFV*k|lx=-Hn>x#EZ!`J-FONajhbk_fwH>ZD0
z(#gG+*$mK|jx1B%gFy&T<k_=laQiO++YOo13L6qM(ylU_YtMu~KQU@D((yL6d5C~p
z31?y{@ku$dwz)bhS8u%cMdCocl+adFv9Z?{g|3SWNy+B9a?kkB;bprPOKI}EKbIb<
zCaCYvZA}6;{KUjCa1(2@#Y1L9stU+%Vriac`t9Rm(ecj$ejy=ANL+~Hm@`S$n#8G%
zdG+dO$5b&Byy@}1-n+eW40q|*6}q|UxXyOZAtUq)3NppL29$Msl0RB@+KbsC&E76J
zyRVnrTNS46q5Bqq3#e}b*@O@^OgWIR*mD_p`~DZ#1JzPOJBZsp54ggW5O1E_-Q9g1
z2NYP?aqJU2R{}2wM@&t69-!BHvVozY=D_k~vYY#kcHDM?83;MXDdGBA3HoomZnF<|
zl)+ta<>#|5_DC*QBUy?ZZp|II!ytdr#3WAhwQ(2#&PBUca)89rjQ&tdcCGC89PK2|
zbhp_CKQ&#AK6M?Q03vM#u)03cTaCz-hOGYy@&PbBIwCDM|3TbQi>2{^4<dp^<Etw~
z;(}8@iAPgGy0vy-Y2T-(2UHpmG-9kPj!R1}&4j~t_t|O@hjHgWCMO&xVn7CHc||-*
ze*gaLI9y)fyLa!_PvW7AI0O9rcKmbjet|{7?4bnPu{^`iPqz*{>UuY7Kb)YQoqDOq
zv!~lOSD!h@2k~Ajr9AkA2(?pLQ(oSC$Fh&)5|f|H*|>)$2dMVnS_{AzkliQi%`yr6
zD8qkH%4;N7LQ=9&w!unXUfw<DdquETpZfUNSc2Jb-gw0egM*VU!<89k&CVH_O*f)q
zVmK1a9v-K9!^St{E=nwnoYD8<laEf59nxDOHyH%DGsl+zgS?B&y;5}7uqoAG|G){G
z-bdFPl60zaz<h=8esGvVc35($OEoy(WtDw8gMgnMiQX5v3AUCXSr---UX|u*^N24_
z)Dk;B)nw#CO*e0y%W@MWa;HpxwFLDr9-SPH!-qdbUqGgUB+*p#b(XDI$O-r&rO3=a
zfF;1}ms{lO7Xk9AW6z92b`{CQMPU;aB{P57#rpb!`s<lMC;21qHc%q4A}>r<P`5o^
zkeD_q_S!{Zg=M6s@)ImJ(h@a27xG85veMGJ$n%V5ZF$EN8o$Z`tLE6zl0cOWV711z
zqCmkR<Xp71wXMp5r#yg<;7ZCm(9d@+HHk&sk>lXOGfhoRb2y5zON;YrrlENH8T~8w
z?wT|LFo}};zm12!1rY2*<WY5XEdWD>{|Nd^zhtuu4u4L^?G0C%EC-3x{P;)e+?qp<
zf7If~8uYMsTMbZuVmBhzM<#|btXWRus=aRtmlrKeXMu`5udt>wnr+u<8)`;$x<?gv
z7`uk2BUm-y1jmnKneDDl>J6!UQb@-i7$>|vJ3rsjXVVX6&7V~q2#JVAtbJI_b*A%&
zm7>%?wMIm+=8u(f5s1x?!!}!+lY^rQaUklr^>^d<_qNKCNRL@T$gMW(K~&P1Zvt!Z
z#tK1a!@RvX%t+9@<rp^z0fLXaawQCS8&A7_{rcA+DnqTuJh_q{5!j`n%SY0j%??~<
z7!lMXBO{SgeaW>;MqD!RW9Gjm^Jc%`fn7?h1F20n9OwF?*+_P64(yVuh$%0uUN(u(
z*nhXpm4iD;ETMhLFf*MRY+|5h>=C|kl$JLx|KwmoFhRqyJ|keu<y{^{SJJu82rgJ+
zUn^z!C;RIkkU8r4ZF(;r{6yR_l?XP9HV$7hO&gN7CN^~5WXf$dXMLt1xhQz~IBoy#
z)0-Y|krlja9CM#$P3ydGOKUUpKcaCpzdc1?`r{A|x|tt10vGiZ_kr{V-L(ETlrPQ>
zY%b|6@{ogNB{I1#FHWyFSifPz!*W9b$_3;>pUTT8wHnMaTMg?4P~C_r-u^IWX}*0~
zvzwZrq15dH2Cu`%BZ;CyU=%>k3l!yKUGYTSd`<kY(X^Q$Nkm$0l-vtxU((A0KVQRj
zc2JYGGAlG`eIHT@__|M0H~P7ir%?6B2$Jt<`K7PPNx(n@kEK}@fdRpQ^iM0|=wuEc
zy{ZMIN=CJUsOf;vt>0sj7Y1NE)7k)PKfz^jq==ppfkUAD^i3ouL!1g*2)K~L$B%0u
z`ZVY|nN`h6f(GZ3sO(DbW<G9pb^{|%9q@F0x~W>|I#nqY3nI@4sK&9&qq^{e+yHPU
zZVskSMjF;{;Wi(n>og=(=o78l-SVlTf_l(L>?Prmfz3pFo?B0R7O3Rl<>ehz4`<`$
zRamuZ6(s@zRVBCJ`SZPUAz~VM{@VNOAu->+T|-)M0X%gb5gZZ{5^m+kv3_C-$8URy
zXUD0je{pJMWOQ`AQnY-|^3pu0=(t<W%j2QTPgo}hn`+}sKX~rgecUPnC)x%@tKLA<
zq|y28Sx~kB)CY(p7-fhkl(YcUxi;;S5KFki9VmDm-obow?-5XXpzGt2y2Qa^5zN1U
zPIMnb2C7}<XnJOkyJtO9IF_$(D6^d^C(;^06g$8T5QG;h6MMxcs?Ok0YgM@@pCf;f
zqTtvN@VFJ+rReB;27<aGb{~Zi<Buivk;~~8$-4OqN%YeKJhYO1Zp!eWtg*;${Jvxe
z-!Gnaa0tl&qis#xD?y#A(l^5|oaoJvk5)QiH~fT^Jlvu|;A*Z6dsHsY5RQTBRGH!k
z7MGS_`VH<u5zuylI=L`jIj`d_b)h<j>)^qnIp=7(Al08Im7e47r|vA_8;wWf13rK(
z-uYPcjNFrS+aXQUMF61B$d&$(?^T42jDrsQvqfz-$FMw5CCnS_oq9JSayAmu+wup%
zBY(?eY(U1bjmpX@A6?7DpiAG@{~kd}!0_{{Qi54tAxW>`69&e8CO9u1`G11`iRFdy
za$to&Tv=EEtqyT>b6;~oKA5=0G^?iq@Sq%w)JkfwzrP`_x1FDAteNkazM~Qps7ALV
zoYXE6b8Yp|Y7n?Rncjf&f!@p~?zXrtEzIu7m>kYNhKyQCTl)sGKjv5700pbXL*TdC
z1TEUcjQ1kuu03|j$4;Rb*?%Cc^C=LET1?kSXVH#QH?Yquy5csOZI@5LY1=fQ{Z#P!
zrK-v>{<vC{GRDDFXysp9nGd|pa&x(DXdrp$-J;jx=!E|b#DOZS^!zmzf(4cN%*SrN
zu~-cG)CU}rNRxEKO{cqLnztTc(Mxa|*{%N>=qr(lnxvz3Ww9|u-=(1F_O7FsZ>eN}
zZ870H7oP-5iHTHfo+;3@8zJhQ6mq+pxvg`sYc}RR0z)<Dc@syO+U&bF;dG03%pr=B
z`|C*X6B{%dz@IEkog5oh6t?;%V|pO?<lfC5N!j0byTCK=pVrW+e`qu_(n<aE2$=YA
zly7veG=tD5s#1u2zz9BZLJke6Pu7J?S50<r|E&e^c_HpV;1?q0I(P1zN}Iwl9Eu$i
z&$&4{FM-ndW+NKDTl#35{$1PQmh95W7RwT5YF0qlLZ5<L+(;(ddH>#tT7?FrEPJiy
z0clicg6u4+fZhf`+)*3!+^|^$8-7_~Dpo1FAHP%uCaO9{6s^>B9X`-<+TE60f8_NQ
zq60^m#q6u1FI>7rLE-jdSYBb5uZhAQcLq~cRn?D7Y<)?&!=4|nsn(kXm9RKnfX_>;
zKQH`<C@;a-$8#%k2})A$ip#N~ogZO^M@W|9yOiaeLy_w@YfhPSRX$B|cXvnK?cAFo
zGvOdn+d&S}9H^4lh&lI4m`u6Ul3x2S27BP1@+0)S)`i-Cy?<(8uDN~5kXtP}@$`r7
zi8<grIQtskJ0iTsPzmOBWX-mLjn-mgEC;zM`PVsXHz-j^7cL0GR*pJ2IG_?7R8w;)
z4MpkNurq7oFCe2_9FBL^K?3_df4WToynRxY5*bwx2?MZ$*HQ5_#mTZfw$~7q2t(Ax
zsgCezW8>qC!$fS9qGW&d<oYAyObkojW6$VUud4btHATtoQPR{jN!%mu_&S}ahx}2j
ziJy6L2l)l;hP8>}G+{gd0+zY0QK&{GXr`BH+f<)Z)p@|kJEiplje7S18yp2CqUr*x
z-;1qqo*&9I{P<{peg9i7=7G*d!cuy?i#m@I`RsAjvl94GBv^0XQY{SjkIVa}qr|*#
zaIjf@HG=OrGWTaKE!yzdiTV}g<wANclYV{eg@q`Kk2kp@)s!$3zWjzR4Mj-b&`=BF
z=CZX9@$yz4L9t5Px?BjzFYEM1l&~i5@8{#I&YP$?e~6vEBukqIpDBkr97y?xD&}BK
zcl2wZn3`T-Q0D&~G@nSW9WBF~O;WPm86+9?Sg>$VxrG?&Z2pyesEv)oiE54h$wjkp
zF*6Cjm;%#<qbSEYHAF%F0sv^eE9fjkSf1g+%&00eJ|whV^qop;#xpU8)O0f(P(s6j
z5Gjn6!u|Ln-=C!Oy9V;3d;0K7+7$WNUKJA&w>+m0cl!<Wf}BRA2IgCea2Al}Gm#8o
zsynEmmc_fUn}exkx2XbfW1-`nf3IOViai#>DXsVBql(+Z1Wn*>9<o{^bj@&g^?hiA
zFMl+NQgNeb$Vmmmvj?J#>$?|SSZ>@fg;RO62ehGjp=<u64=r~%hwJL3sxXPs_@y5}
zw>40|R=4fYmmR4|2z{%(eux*c9mc=Ua(CJ0mV^08up$`1cB{uvuW?gG?dkXNU46e+
z-)nSNK?f?zo0yF7tO418%ePskK{+M56kt#M+N2FCm~loyJ}*$y+?HMATM$-t`;Hxm
zgl($sMd<=m+Tm~U&SNHTZ?95i{`=6kbrD%vjk2XO{0J5*qTWDhT4dnB#%o4K^W4+G
zrkdSIq&w4+a99Ihl;|D!(u`n!`%s~IR_AI{7Z5O~<@bI&?DlpQqq4eM&=(Hn1V6r;
z9VZWdvVlOPl&qX-HZ|O8YS#Svx>DivO&@@%YR&;#HCbWaw!iKZZA!%~6I7b|{3fB-
z|JdDb@O`myl3-Taa}ES|Jfu!%m%xe=<`%^Rml1+B2k4P$zfOXiX^v(VPsT1jB|b54
zy3J`ta_Hr&&pOE2+6W*LQle8`DkKugogXK|lefx;+6FMG@3#yW{BoO;-~cBlXX;nC
ziE8QiJPT~tLdwyzX9xycvkdUVle7`}CjGH$Ssby-JC|Xcn>8B<5C;n{9Psq?Optct
z&FMX$W7}llTE@o8+KYtxak=f_6OdOXAN6BAWlCyMAdw3cB-NxyHxtCGY42SkJujFa
zj<@|R93%%AA04qQXZtPj^=oCk;XW%-rq4lGkI%2XOcZ4S(>~L3fI9ncZ{T?p@rs4Z
z=kD#>e=tipH#&kM{dV)%?E)grM{YG!r<7@~V>(MDM3GnRJKY%*I^|F(WZty**eltR
zuZs@6Iyr(J;UC<V#zPakfeb^*gyI5un5a$f3n*$(9b46+N04SupK_2~**6gKiuAl|
zpSA@%_Q#&;ntn1Za$N0)p{h#NM#-^#%CQ3|YyQ5xSh#G&ovfXG3H6vuZ&HD%a?|rb
zRjwZpADVYto_2H1Og72w{{CIFER5wDFK^xC;LT$uH|{+(b_-PiT&+p@l!ix8zOsmH
z%$(b)V9g&6v)us%WSZ=&E$N}b0n`#Oa*uh|DS!%Pz}87H>gWEN>*X)*^*%9N1t!)H
zMfDwAsx$c+`5q4-CEK8p+-jcb&%9Y$`KqTOft{&~9{Y)izlCR8o=V3e{RB|`d)B)+
zKzzM(g$v!h)YNJFs3mQ3y~>J)q1N06&4Qtf=G#=?kPve=?S^E%eKx8yah_6Q*rxQQ
zq6KJa$~tdyh>PpMc&@NJ5IKuU>660<nvdkgCzYYvDh0!pOc0|rDSwh@M+NhJuD4`a
z*6$t=+1u^AvfF{OrPHf@?<N(}1^eP76DZ<|m?ji~l_c1yxv6H0Gl!gl<)cFok4Tpg
zJr}(dn7v=VJP^MrId4pskW;NFbM%Qv%4==f)Ok}~U(TW>OA#P~Ab=)i<>ghatWwD#
z^|4ANyF)V;W_8uojoG?aZ)AD_vO&^#p{-k-<mU6GPAcpw_r7T)*koG%bU#Q(Whtq<
zm1L95W+9Z}NHy1^gH<E-<IJ1Ei>mW^F`p2=wyl7u=~&Iq``OLU<x0IXgO_!?Lz0tA
ztjkCz2^Lm9c<_Kwx{zxAp_k~LZqr4|MpVuz696h}n4@(>r&<e;LG0MR-MFtN(h(<C
z5Pk!xh?apruU=BE{E2cJy=S_6^AHstQP7}tdt^j}F_55W_Y<WB|4H-Ao5eBH^8Ksl
zPbG-*oy$!k>O_}5@-+}-D=K~}9l_f7RCr5#6(o-LIzrGjX+Iuvwj>mV&DGjH!5cTQ
zcXqa(iOtG7c5Sv4oBE5BcV3zzC_qp=S3XQ2ZHh&3+bv+|MO0vrAjU^TypI+Mv`bBN
z_IbHDKdn_(AN-MRZ^-ho)gZPHkXEqIufK*fu!CaImVA?8sZCPmbMOhZ?~NDvPwBP!
zGC8mwI>gDvb)E=<fg%=3&jgI()RJ{kp^8P&iVV<mZL&Ds1HhI}8Bq`$JsbJuO^{tB
z7fsiHDS=36rwR%e2-;`%t8K1|vT_7!D+5sLL?NyWh>b6OM(Xu7jh=S@Pi$n{qfw^-
zUP;1e4<5EpV9|3Pb>A&wo)9ALWb*a>eFAaWfMQ)QE-fA>nyp7}E_OPQ#iw74`b)5}
zS@lczN>SR><n()K;JE9sYVao$;BJQPoM_kdvhtntlOK$csK&0LZm?GB7?gmFuW-7%
zSeXa@&d2F^)t{u5nZ#2tbF~#UE65p@Po4TZ!@RZMx<VTSx<rq(S*MLCxm>8h7_~Q;
zEQCF(RkQ;50`+{W#mP&&G-$Y}snOD|5&ChlIoQ`*Hz8*EgT|s%7Qjn?yvRZDPHmY$
zOUR25>70XMqCP^>XR=1~poEd2^^^xOQf-0v#vGpKaOOGPIF~zZE;zl_gv0$Ne8^|b
z&Glu1+reQWG+qZ7EJe{D%br*rF3klgKv#*68cNMVKy9IBc?|cLSYkH^*roQOu&_>(
zDljP1QxWWPH!w#2U97VOA1x=(X=cq=oq`3Qlj*S!Pk-Pf@#arZlCr+8hbGN~Sxbc>
z4``VPbY*|vtr(p`Hm_0E?V&qr&gfPocE=?1a-N4k%x52m`o)4#7RPQBL$8>1EoMU<
z^~OjC)+8>T%@(T?ue!o*AqSLRqLoG7sFdH7A2dj?6gm8KH(f8FY=>2&N1*DZOD`d!
zyI%49IL=lGQqdQ<p7=Lgqvw`)S+B#z?{_+G(VA0_+V@^XR>C`mSZ6HwXkdX){*}(P
zhmjrCm`Rz)vhJ~64XIIsU(&gH9l-%3Ls6lemiW5o0^CFTpv8sCu{?&=)%G_;c8@N=
ztW_!0@z6!c8V2C<Hfv@!4`mcn<w&IJ6STZ=<`cHiU!D9RKxpoNC~Q>m{MMxX@){f9
z#{E9A89AtO-JbfmL8NKeAt4KV#@5A3Gwfeoyc(}uu&4?^JRv2G&_A=1@Iu{r9`{CE
z2eVTNp1-g0>EkvMs~ebSUQ&NUawt@rDX_HCZY%ft@#=BTcKsW(W8D;QoikyMmQDf0
zxpKc_@*|iHH>R8+WV{jj4bye8N|T|>3nl&e11`ail#iF{J&a?_n+HLiYi<_Ojpma=
zI-VM#Uv$deN1Ssp*#+92foa9b%R@Uo?J7S8?yZQ#9#K>6_{EuMmG6ByChk$EXQ5kj
zp-jGYr5hi<B8E5@I<KhG;yhkXP3_qmvk4hReYUj`&g2E6rig^OXleRB`?_J&K<^5T
zmCOrl6m}((^*vQ}pb4Qe@TxE$AT(`mVi3s~gGHx~5yS~N_1&#*v-?+-Y5{hpYX`H~
zw&mxDb)8;)3C98Pom8@Ib#-s~o<4hAF_G^&p%+AHO(S257wHKyzN42H*KFQ<5jM)&
zN7U$vPenu`<i(&KCBzNjr<kdH`KT7|cVcI*%q#gbzdtViCAB#VZ<#~zGtZx9IaHLJ
zX?d(meDzn7^7KFhZ?EOIo*pgntpr*MCAa0Ti*Mc;5+MyuCYMTE`#0?$=F*?7b_mi&
z6#W}e(WnRELsU@Xl%l=U^)j2y<l-6uAHi5A%a$m&W{k?ezuUiS9@04VPv_l=%<aF3
zRAn{4{ldMScGgsG>1emOSoP;;0!6#$x`BT){1-Q=Y<)-@zu2zucUJ4LiBIr=xXn3o
zQl$)0$cH-YN1+kyb&#;x`e)9Q-xrH22;SyZ3w%K$`%Q%Mx)%+WKX#yvf$6SeDiL8u
z{(@$eQP)09=z2L&GntT-EoSv%!6xBXRZW)(4=-%dHfR@I+gC?m`suJk_3J^%l=t_|
zKxAc#sJEg_V&u(ARfPy#NzEZtXonA<l$s9N4_bmJsPZDM=iug++pzNpAs2z97FDR_
zTkHO$o%J?q(R2g%ns}dqeYJMz^XCbsN!e1A*GO++D?*o>x`OSJ2X8Vw?lv$oGKD<h
zR7sCuu`#HB>O6z|vA3F2UOL>QeJ&G<ephjc^kR`seq!VD-hQFiKG!x^bzAijn&9kq
zWZ*g|>FB!`2EgXT&p1u=ZcSyOjV&E&kCQXo&Pl~_Cy5G6n9Y`qiz6o?^k|71X;L*Q
zq~5r=9JAUaofD=GDD1B&TLfI%Eqvo?gudi9KU&jZYXM?;{419j+YOP3w$x+YZIT>P
zS_E(j_74sovSyx7b6s>Cm=|Va`#@7Kdb}io;yvO<0OAYZK6%<a6vYG5A3;AJN^n{8
zHGdJJ7p=sc16N>_L<t*2csPQ+39#yp;s=|%QGrYGheGp8sHJVb_}IsTh%7y>udjMa
z=};_qm%wwWX0u>t7v3@{YoJh_(mW(Zd3+77&;e;eIbiq&$cI&u5)wWS0vtLc=taRK
zq$my@f3M-J%S06;9xo=WA3#OOG%?^BBpS0ImCCWX5BZ9Z1<Mo9Qwv*<zd*2*#lt!c
zNC^I6>G9mb<vcZyB77jS4hYsk4j3Z77^2=rokJPI`rF5?g=9jGB*PE3#^B8&N|W(P
zy95l+a)+RJQ_qRyd~YcEy#J9DD#2O0c7b_KFC`MWBZzf#EkMG@Z+6^zCgGApf>Q5(
z!?=S3NQHLiQbNyh11$wl{QNW~L07*|P)~X1#l-jWG_&7vyVEXhh=d}P&oH*VueAj~
z2MTcw9$Pt!T+EBL7DfreUN8;nHZTErMmXlD5aC;Y*rBFA-`A8DT{(r#7@s|&>pXfc
z&7xfbWic<llB6^c)jxO%h|n}cA7{e(sW&I<<O&<-`LZhrQ!ZS+`ZAr~2kOPS7Cl|Z
zKDN*<a1!5<>JoLg@8F>MD4$W1*e=N8)+7CD3=*o?R|Uf9iZSY_BpQYu8y_Eki0i~+
zJ%ix;#!*pfs!P^u=M*ueCOk6RE<<iUBqGw#!?Fyp_Y?=ov>8XewFN~wiFtKoQtrp{
znhg*sPc_V&X5MVED&v--013)fS<TMQQVWOzBIi(9Gm&nEb`?TSP!1N<9AqHh_eSz#
z&=9%~-8=Ntni8yt8+s#paMoowdku*nu;5Z-N%wUHx9LLE`JTdqyd}1XI8oaf8TY{3
zc^$Xq>FMbSg1;lg)HAQk5fjb~PZQ;oQiN@xLHnY|etrh&rXZ%uv4U~h4Xt+VW*?fs
zYNw$@G9XY1nukckDyIv2G<^&&JWeR<0&$S;{nk2}=yN%}|E-qX9uadv$lN8C!`Anx
zwEjs0ayvbI5Cjk6eVIjzA8BTn{$~WrB8dz*X35Lqk5N895JG^M0kCDmcKe9ZvWg+d
zbl0*LC?WSxTR_h$!Rxk8SKsT|G0UrsB{q47?4=*>?zUb!#Kz|CjLhU?^k&+7ml!po
z?o&~bw8ev6V|PEn#}}52LPVo!fD+klmT>@}hpe@^b{2)iwRB^h&J#*FQHj}a45s<)
z8cbexvw*&Z1}5iGLm*<d(MKj!V=p83H_u;29(g)L@hBkI*t(X>$*VT(oJlOobwNtP
z)oR{3gTyLPR7^5;wkx>9Z#$J7{N%|sqG<i90<w11{+wPE!u>XGWWChhgHlQwb*Q~i
za&YQ%X=!SP6L?-1s*3O-k|An<SB69a*R>IzV=m3DC)jR*N=7F~Eh><&yj|dbgtnn>
z$Ej!Z!Yv4^PPYV(K?q7r`Qyir=ZqHbDdMz9YqCK-Yyh&kM5=4a!#&ZkZ?=v($I1Td
zLtoNWSXL$x+(u>K#UqbUJ$D&-yC!EiXW&3;rSS(Pz<<CzxZm@O1TAeY32uJCvJd>s
z+~@bhqu{Y;nQN;LLPA6Egq2;9e|w=025X%<v8!gE`*fr4+e2()u6}NJ$aof_`g3M@
zpwewA4V8fiXns@P<>1;1`A*ZDH9U;69*v0=vA%{n4UTA2Rz9B;SP_4l!M)=~h%Z#u
zi*HfckZO0C4n_{L?Pv&GFDFrb&<PnsQE%O`YBjU#Ao-^HYNd&K^P4#cSwV!W&U&e6
z2H!s%*`HYs88}gBU)7ocQ!6bkU4QJ!{b(J{O!FbTwa;!!bY0}h8#!%yRfM*#|Ma?^
z9NS}iPn8@D1p_Fw@iYfay#bE&v^*>0ecCuQUK-OW$aLl|NHNNyIU#|s3DQM}&`%AV
z18>*ttHaI4<+;4RGoHOhbQsmXMF>0gv!5i0N}+2XAML(>xQ2{M5HQ_TMzi^bc_v~5
z9ibnA2(TRJqWqyqn=z5)`{MAx)Av<{{j&>N%vm%K{2{?_e4*a)3eukn2(pT?XzzeV
z13?}(^zeN<$=Uo*Ll=?_A$p0K7k$tU5=1qK=qQjT-$B=I8mN9RGue@7A_fU_&*%bN
zleqCB`g{05;i=M2RUS-fg8=avq<@5yg+~{#&20tY)=F@*)T%9duCtNpl_$mR#ewyH
z+%4=$4xpX5(5_v(qEHeuL<&eyt2;7|vpA0I+_6I?HsA|t<^7ojd3j<2z^Sz$@s*Ia
z6Hf@3WC8S`@6V&7*{SH}rkbc}K>Up64x?=h405Q~A&bi21>##H&))J)h!2uw#0>zS
z+f>@(v85mF3$0m};SP|n%OSeSX=(-%w}VAK3PME)59w0X1vN$R<7?(nj65nC)NzF>
zWq(<5&ck>2>p|KQMWqKkIUgH`Y-?i_4_c$36!hT%qgI1WR?#M9DV648eSj)Mh;X97
zrXGST!!F}41&Tk1O19HpF}8^f?TOLh9N)EO{5^vL6X`n`XnOT1XZp6AdRQ}qkBj?2
zw_gYnF5d`Gg_>3iIxA{X2&_dCGVbHHP;>*pLbgPuo;HsCYxQ)49MrFkhU!`0w6i3n
zF0&BE7#vavxj{6_A(6cX$YTr$0V<M@SP`5{A*ANIRc&=kb=PoR-LQgbP&~6J$$S=S
z(AFp34<_LP6pWwSmzV4c6^@=2h?3dYj@}Rhm*u<T%!I1Mo|TCq;=x7}Key%icIutO
zAlj#%eb`HPE6^5L!8A1;sam}e<v3j@G^Zv=<*lr({hmFG{d?t_Vo_Fn!27Ltjq#64
z4a&c!GEb1!OB7erjhZ67mX?>RAo2-aesfFR1D&F`j-4S|K$V+7<ix-U<wGU~&hTPF
z(TcAGxx+zn?0P5yyvo!?eB>4jqHFRNrzzSKg!+ug>|0hX-9wTV23wCMR8|XPW%|sU
z@y@SX^hb)f7XNNF?Rd!YKRYjb|CP?|U;X;uYsmaRqhP~56JP&+U+DkBZNw2mOc4|q
zpaV+Td<MKc@I8eUtqPyItv(!k*-Mg@y@Vji3SGA{svvyc9F8zFsF@ED&7qt;Jl>XP
zt5sm0Buev;>Xj>3yu$A%p#}^|iY&#OMVwRrg4aP$mSKewcG|peQ74+hNccsPWX<AX
zP?o~YDeVgz)~~<1SI%bf@vs8K3us`afKZ}nj?x;8XAic9LT985EJUJ|bzeeb1@YHk
z?A=VNUi^($t}>(VSwdz+6_@v~?eiitQLeE)Fj2ZtjTTtu0d?T7$rRb;dF^2No_*id
z*_fwGOwyX1C7QdAzvZ%Y6V+YZN>gyVQ<=W7*k|wm=+R~7__A)%Bp;E(hx_QQS)AOG
zHhXl@qeEc6hqJz7-k0z0pS*N0s8{Y0?bgKCe|5w1&%5|<bQ{V<!!(X>lC$(P;hvsz
zE|QbXY!p^BH-bEfp(T&6le>0a=H8s^t-y@r2$|dsK2qd;D19qxD*nwHi>^wP2oziO
zG=oJ&<KM1RY{iG2G<Zaqucf|%W!Rw`b9M<u_p*F)Cm#p@$?JV)S@co3U8coDGSgPF
ztfP4TLV$V7W;m2L@3w6EwRrz2rsRo(@$>8b|2=Bg|Fs9q=phCE)&l(e%PrCU??rFf
z`=S_=+sZO<^jg{?uSh6l$#?GDVUl9d0TPfXOAlKN|1hs^Cfsc4lF$aD^q$wBERY(q
z&Gq8r^E#B1SJ{Oaw6|e8T9mvrEmXP~YiOT2JIZ?aFv&JqIEmCvQz%IrTXr3Db;~>K
z#_L^g6vPxhE*f}smbQ~NFzGWxV~6&teRQ@kf&=0mP_z%oOcEwqV%1MjZ6Rnl55<G<
z82E1cz)_Ps<%UWC%=*ky4`Y!TC!C4lLxPdAIjs1mTimWbZ_3j_kuRX<lD}y_T04KR
z^+C2|eM^Cl2%aVVt7a^>W!;l6Rte^rC#d`B=q|2U*Cva8t;a>3_sC2HJB(TeYajTb
zbktf&^70v!Mi640hmT7vTl3B?oyo@ug+GO(%-Jnu!rIp;`NU`M@oinkFXO=`s`5tV
z<>htdtVy0;j0F!VA1zS4^_&lWKxY_KcZ7chj@4g0wzX_t>C~xH7pC@@fpbhPi4lpN
zUhG3<n(uyCR0Qf1`E)+h^Gfi|P(87Im|9Xs_qy+*lrQwaP3aUcvWWef1npJA>K#Y~
z*!XA{vusHrbh`e_gYg%Cgqs)L82ar|S$EtHzH<+zlfRi~&Sy!e(n_jK%Cc1%me!VN
zE(MB*FyytB*yib_wM|ENEs7;^<Dc}NC+IGW-`T?G-D9o(wOt{_yUTuSnbT#nY{rHs
zV+}{ZPtj(W?Kl29h2GZxwX+?5-Nyg#vHyb|0KeAjKh`erpYrCJ<-t}5o9!xX#iP-w
zHliqo{Ut+p>QCu+hgLs2cUk>UvQ+h2&-I(bZ-xI++EHw^cgHH_?aXJHsuWK?Id_uj
za*O)eb^0e2A93H7*?xQQ@4?_<*X0hmphx1d@{vKbp6Ab%Y}8uk<IhJ@#B|6%n>_cO
zd-L-fpa{=fzlU@<Z(s4-na^<i@q0GOh~l5Wp<ze(+TUYJ-bio#J)h&2&w<}ClJ5WN
z4_>9AbL$x-HYkI|LBLK7HShzv!axC=S~-ze5c2#Ri~6?_3^Tso2)Z(ieE;^%7`YlW
z!4`ivFaQFA8AeHA0F<2aNjgUEU&CBR=<(i)r+jCKISFh5+AoP#V<?mPH=Y55LPhUR
z1ZXy*-DfxdwR`oEzb2d9I=t}JiVFU)7d>>3So3GTKFEQvX*&~B%&l8=ga($kVCLn<
zqAFB}{T@HQVwwK)*61#8E?jHxHrK~ax&&TK1^LQpnuoi4EYU?60n#f<*7Wz78H>>e
zx2BOZQzFn$ozO@|f&4ELA?x(3``sne_MLHs#o4oWSo@GyaoYx?G%rKJ^o5ITLciAH
zR_5%7GgO|!1uIew^yTEaiR<U2r5Wud1q76ETq&;fj_0kAT5)0~!N+MrW=rrgsb5Ps
ztep`LN>&WNi)DAOw^v(o*|cesij2%X{19-3DZ~IRrx5>dh>sOrv0{a5Ve;R9{~gke
zh7?Wp`_q=LV+!@%3(7^^uOjp;;x*EuPLBn%$6Z?Lnz<^<D1G*<wqOs$Uq_pUY|r<v
z72jn-!bB1#CUx!twYc-lZ8m(tkio}n#8M5^#fC$f*FR4yY#`LQP$42YmZC(oyUxoI
z)xsXenXk8-7Z6T8b$CJhpE^}<+V}_e+&@+8abK%ktK(%WiX^%0+Ua#^(Gv&j#O{hK
zXYl05zbd)ff7Hul+NE2Lv9`bpH>~PfIXA$E%6h~LlUEkcLl=Dgdf45>cvS=1wQyG|
zkvW6F+Nn8M{PnRcl5BD#D0KG`f?xzStei$iepS^)=wM`*7kVVQa~)R{@Y+q=$%dXN
z@8`d;<0fg*<hSL$xVmttV-r0+(%wm4m!;VrqC0#7x*^UZM=rQ6bnQb`*bcm&D`jHd
zW-}X+=6bsDq5#gW5F(g3?75zve)>*5cn`m#&d|&R*-O|LG`8<25u<br4Wrn|OnrU+
z69aNQ0cAB^*-%YUSfgwE9MoSH#$hvhN_`<Eot-p$i<3HXL8XJ%!;YHn$jD6+At8p0
z>`2l_r`xx0i`71WqzNMi$|<51A>yXkCg_h2Hyz2T;p5~iwH7iZ&oGw+jfI9HsF&Fo
z1tiDu^hA4kZ9G3W83pxRS%KQdqKk=|>0;!Fs3^@#(kijuJ<%JYSN=)&LUbhPmYS$r
zybfBCKr$DerV%}%lnBshPrk^LtT|x8%DI;zK~&2P%==K|Le4dKQsA!;D_<f{jt%Ej
zj<%e>yD)FdH)N`~JjGsbptnf&iZ7d%CC7xtDF^T+uU8$8FZ8w~HzoJu!dXwJcF^4#
z8!IHGcy`!`PC^ZMo`PQ9tCm8)P1F0qfexLF8_yuxu1nAm5V~ITzTfKCi*L5O3Y;r~
zdd+6AkuTk%y-h%G04jvnHhq@}N&Vd`y>Ki~uFN#cP5t@{9#wc2LktH(uim)=Mi!PN
zG)TmNdQ{Qg@#`)2KJ9<zSz21oVSG*);nyS=M*hK!o%)yOHV`uqAVEJe`u6&-cXvD>
z4$a!N7qzvYfBpJ3f#+wRHXU8u`*Wj@em}*C^#3bP|F^Nw{kI8I|8;lF`LX{Gx;K~P
zqyGq5c+il0+z1Z3XvkmjU5??+WwYlk<(iJ!Kf%IfA>f0LGUJYn=E>7HPr1n(?U-Ks
z<Af!=+5S7h{BI5y{&V-?b^_0v29T%j9v)gccQ+P|9Fdli!n7hS^@n!d?F|TH?sxCP
zx5?XQ@gM1Ha{6QC${iZ<{`CeNM~_}iPlzk(tJ`JjI2HHtqs%G|!Km3nqk{(y9El~I
z)VPvLTGI`GmrAKDYwo^==9l5&JGL<yliF9TD0FMHXv)s=)Sj95l`Jbv?(FPD8%J7%
z_bVl7yfp~kIqn0TU2IVhPt-UA9i88)H(K)O$k^;r)X#q{t!evqo25cth;kt1{OXy<
z&cPuA`6T5D6xvNQC*t2O=Qbg<6TW^xlIA0Keqf}Q7K{pGx29keV@N2<(rjd9_k|vI
zkD{;^?d6U8BFEjXH4oX6dfaxxHLG9pP+4@;f{wXm=c+sq=?pK`X9dDIZ@R`gF4^na
zWNZ7oBs1OZoIP4yDjFwiY#h^5<k_E^>>#;e1zn8%TKlq3PywDe(cI6!ean`P*_CWu
zT=ANBD%!4QHjBHx`1b7^hk!sWMbzv0-d&N&-<5Db7_F4cbDXy${q^SPTHc<xPo<@l
zBfD!CdZGsh2OoT2fU@(*2}u?A7cXA?u_9TeJ*~de=#|JdL&MTtm&=<tSXtkv-RQ2o
z6SoCOqhp%gZR5W2J9qEyoLT%7ck}Z;$tNje)BYP)>bfn5Y+AQYv18e7Mnz}J4<P#@
z^Q?Z-FF-}dxa$8wfc?K|F)@F|6WNF#Lx+s&WqFF){MwBhmCciMDBmi|Rc_j5sLfli
zxx*#$I!$f<<m6aiwVq8y=ZML^{rmT?UoW~mV1d(vij3O4=^hoW@&hJ29mPk#S<JB=
zY>jtWvt~`1VH$}7S@yS)u}0x_J{PqU&*y!SCfkXfPzv&nv`?omI=bC<EQS@-?_r#k
z_(jqs=kO^0yf)lZ%tm6DoV70xSEfcLk2*?vrxo%x=d}cIz2aFxJ7?IPEIA+(Wp}1B
zZl~k98;@7e0!ox7>PN$ODt{9f9}v#!UD<YUSDz!zi00a8=-#|rm#65jud9Gs^gVww
zssG#QRq4bn5p)6!9{PQx&K(u+NQ7+X(1oWjh}wIr;IEMX*S^}7ZIA{K?P;hWqk%6U
zwV6ZN+B|8wzXAS(kiHc(bnIZB3o8i?j2EH0Cp!JgpC4BOLKMn9@$18~jGwWLU`EL~
zl#yy7Xx>L2Y*eJ!e0{%;m{S4Obe-PvoEoMXG!L5p`tXjI`i^h7Nbnnk0D2Po8!mM0
zF|f-ktE)d{?L+-s1v<2PbnYgqr`-1VA@RZ0POd^Vwj9ZW6pES@K*LFZqZo8KQX<fm
z&LttCOI!`=x<oKw76HF<DmvE>11l^-&~G$3)T{<sQ4JJAM9Uc0fdi+}*g<^O)vH&5
z6(wCTSOIjtiptJk&o-05xxs$?!TtNych)h0SBq$DRIeN$=G8z5AJyAyj6Qew|9OAw
z;>0@0Xc)~f3nFG9V9-+Go0Sd3Tamp%KOs*D8EtG{w_&bA9M9HY7jZuAw<-?;ylND#
zVo|t3-}<S2&Ld!X0kD5`@YY5vm?EtM?N*DHJT8(|w)SpRH;Jw)6@%ZYW95j+n*por
z38)|xMn^|Iy}hYL^pXkT(mt{jVmt^k$J3Z|hgx0u_8mLeNb5IkswdXUk4w$*ivz|)
z<!K!H{n!zISqM6geIu2JO6u|Ejog+G5$kh+Y=ua3>sHc>y@0$ops^TL*Io_ul*Wsc
z{!Sf34ISTL-l7}8dE6UQ)S9c&<7tDE6z8#HSr>-B=~Z@HJ<~k+<3dXnh;}-s-I?xQ
zA+MwBP`W^Gj{@4Vqd%VhlsNjca?tV1RYz@Kni5GX{qdX~FFS2>QFbvT@7l3#>(+ny
zyFEfC5y)#aF^}M)y}f<p7h+x@N#)0RyE*#F_PF13+lqev(g@N+nN@3)o6<T~ys>!7
zGBVs=7~1@E#$(KCSGg0>(%TAO<#_QwbJNkQPw~*ySxq;yw^nlZ!IodB_*UGNxgB|w
zC(oYsX>8uaJzJYOmhhW7nF;Pw8)1=fR!98@LA4fgjq^IoVIC}F32wbr`_syP8)l(_
z<C|P)Ln_CxmKXcypy((xa)2h%FyMEV?pii+%MRVqA>HxG1vzz-XxZq}z__WzrtV*x
zbgP|TyrZ?iCD$k$-D#0Y`?hZF)L4QR=ra#dSRlR@{9(g=wb5=CVlO7XZz|%j`Y{Lq
zubljZ#fD;KK%=6ff`{zlQPip7?di#%yZ6T*g0a+!T9b!qN@GXZ+1UJYmQbq{E5ig8
zzJL1;9JG*b@EUl>w@<#}We{PD{M&b6NMsr+@~nM0jCD}=@6T-3`IdvyWBu(_8(2wi
z-@YX#PW;=a+JwbJW=@-(#$l~PFEi1)O^iw{Se()#WEaGUAIwwf)SzM5jN-Lx5x@Ta
z)&o$nm(YHNjy|6Q?NHv-Lxr$?-@atn72s4HgwQ#}U`Z&6QR<GV5=Kh^(K3h1IeS2v
zO6M2O8WB$_nuF01h4)#oC85(m5<fuhzTG|_(;K0_!~j=ryY>(1>y#r2J83q{?1LPr
zHrz*olOR%pR@1X+56%%R0<4O~;>k}7<st5?2K|TWH#^^*rUf6fJPj3Y9TW^3@<N~)
zL>CAK5^7V3@nkyadI*``R8)obt0*XwjG@UP24a-ysGXaasz&`76D?$QDm!m(&(_t*
z<W&edslvawzD*1xSMIqkjF$XiJ*LY6he$MQApaju<o~g+Z_a(}voZPnln=88v+>Mo
z9pX?DBY7l7QJS>oq(dW_0R06b0Yq)glCIh~Beh7Nqi@}MS4{$~R7W)8Lax_c;F+1~
zvht04p4BRg5FEhkM6tTGlyI(S{y2b-B?i=hwix?d|I<J&M?r0a@lyK47_*H<93#5u
z=RpVMVNgCG!#KpmTE=xRUVMbj4aY4JMT>J8W=wZcz)yf=T@6Er)j}m)O10Gt=A}L)
z>J_&2Z=*|&q4?a!`6ATaI*>s1Qxk(A<(JR;dCfdS%v7R81exc=Ryh&lFj!*|FIN3Q
z9qUEY9qV;adEH-<_+2mt0-M})BjaiVA>@EYKs8BQqgOn-HWr!&V%8`@H*80?4IZHv
z?c7yRvv`_WLtMBUDvP9?eoo?eK`BEF1;h*m@2i=!ke;Grnx1G{fU`x#J#hkj3?5JE
zgSoF8PYW^d2TgCD_wN%&cy5}Oj27RW>TXzb;*?#u@Prj*iZ=oh2$WFD9e(Ai@x6@u
zd||iB;}p8me@qvD_>)_Ds3li}gPcUVuL#%U-bV0itk)5bceq~E#77gdTJ*4Kg626g
zZtFLc`}(*ZWDXF>wV2z5H9$uiMogGRb4E411&GBk1S?`1gX)bNH^SajcUut?Nzjb$
zhmjy*Xv0Uh;(1Jrsv{y6XtbS<ub!bZ1Y1kYM~2rTUQ`AOLja3}Bvfj0prHZp^Gp!8
z;Aw#XEC%y2h@n_S;R>$cI*vCncMLK;ztdfoodrEEI>%N=KGboT<9<-;wdx|vFY@6{
zGSrbIiVd_TjI&D+=WvtIulkf=$-eFgX3Iv05Gx5Sl`79N`Qm9~1pP$}%=%DVY=Sl=
zbQL^?dm!!$VqK`qb_SMyjSSGOfhYx;jiB3-Gtngk*oX86i;7OG==J3cV*14!37xg)
z!-w_IQNi^eMwJ#r8q1#vNJBhE3@gG&OwU9zl*Kuiu3`h#2P_B^oO=^9+bFEWT+BH*
zW>yk>4(3d#!YbKF7*zZiGbfxEXDi)!8kqdj+f(`VkK9WA>lb(K+6~>lKWqAprqqwq
z;V)kb;x<S%7|FApfgv14EfdJZ93fXD#@z5v)?(pFHOouWh5QYMs_or=BIR!en|@F}
zs{nbAZgjtMCkE~-P}nRG>7e*PbW{}PHd<05AR^hci~sE7$B#iy!yOZ@A?m`jA45vh
z2we~~JK^vZrVx)3eiz0D@(rizE}C?)kB1@FhTPIMB^}diE^(<QTtwB;fa&h(GiS)S
zJz@j~B?65s+tnp`uO$th=__rvAbsAw;l+`>og<>b@;LMIm{_d{d}-6|rxpjXP~^|y
zjdaRV7{|s+%&Ys5B!Cugs43zgmZC%e&6=Y1ItTLu>mo=DSffiIZq4p5YGW!8rIc|b
zu-?vrm~%;yeJ&zWh)!&6$^<c#6fK_IwZee2DD>6fyvJ5mRUK%^hO1{I!9F=Ng2AS3
z-$lg?A!W*I%Py(^!QOjEMVW2eqo}QR8@o@dD2N^v1E8QpL4pafKr#iARgzEyC1+@D
zLmRLu1QaAFlA}b)hE^m?D2iA>OO8s;yt$$Ko^#(D_rCl7dhh+luSbs_Ef!T@ec#?|
zuQlgfbHVi|AU0~`XqsW#$CZcHCx4fRg+a_d0l!7y<WM9DB`~%aoP2>Z%SnRD4#=nS
zm(n+!A82qUP%I7&D!z>Y`pVHqCr5|TxHTA4;<Wg|+7KcQ3h!j%tm&A(0nXHQn>N)E
zw{en_BA(1(E8YuPdtBgB#ri#^dxv@3qeETe-n_3E@#<V%4!IG3W=Nj-Vg4<!qCtE*
zPZTFQT{$HsWuE2aM&Bs2J}M$YW$M{IMBl7bGCr4wpI-^}lBv^juAp)fyMmjC<Y@hX
zA(s5Wpu2=QULrKWeHAB$Ymvs1o-mwQ37_~*j5f;P48285yxQ7{$aVxR3o7VduEC)`
z283Cjj%Bh7iuQ*)gw6qT98d6?o4QU>LyKxjvz)<HuWh!xhxfCZ-oq35ckkZ4(n@k{
zPy~5`Hi=K?gG9ES)JArOo|&4ThwzOwh=nwEs)eK2ezM__`Nm`2ki#UWgRW4ElT6=h
zetfl(=JGMO2wVj+9Y6sZS7*uEMTafIY!$j;NM|CkfYT93o~Pe9Wizh-jQ;K&esUGA
z3PD0<KIo8*|Ml1J;BKS^G~0R948_3mi~t64Ooakm#Hz7Y{mz)%XWeZsc2oS?sb>+%
z5m?y?FRr1X;XB;9IvT*rR_j9E84()x^ihv{w{ecR1ptYC&%4nHsWh=PLhW?{y;H<i
z;>Ey#C9x3F$#Z^%%?*^hnKyp<*=XeFi5rpD%y!Wc8Og)@_C<VhP<nQJPwbTLZ23^r
z(G8Wh*QY<?08p@MMT!pPdL0}tUqawU!`4MT<BH`c)lZto=`WG(2V@VS&yGUu?@IF&
zRqq8KJdUzai0ii4$N{0*<?EGdQ<Rq<IovI!m>PFjKZh92Y2j!lHmk&t8=e60RVpPR
z386h%zJEEhr6wbo(_cbXM}7SepYIkh+9jX=8QbqLC1;|M#@DRuG9$X-3{LyU8e@5h
zXamJrZIC_N58>p?8&4}x2?|h%1vr9+dXyuqe)%XtGF}CQdm54$x$x}xt54<|VJ5$d
zqK2b)>$YuOE>gpBO(jZADlAWhD|HvyOfI7UL6TBwd+AbmLpggtbgZsmqPQu91|ud)
zU{iM7e%{u0NyNJOBAlO7Zrr#K=D(bzY3#%LeylOaNPvpHib(#f(8F2uXt%&MkpY-B
zq{AhA9NwmM`ywu<7`Ot-X8JKbT~@M6COn|FrO=6M9WpsecehImyow<B&=^SHLTadO
z{CY7&2v`%1GYIMl<ga^rCsnj0b_YqL<%wP)^P@F#sL=S|a5NLEaHQ2+pS;_{%PWs{
z=x@Kk+lLmEEl<LZ<M4(2v<i6yI?hxEwp+Cp=#!?Y=t1CYBt7OpYRheo2(`MdGWUin
zER?r~21M+g5BMViiNiZo7H_;)gm#u(5Hv6VLx}f|{hcb+z0CE-NaH5)Q;0prJ$IQC
zCv;JLYN6eg3h~+UQG&aNJw@tmq!_SJc!t*IkSnv=@bKgAg)1$eot6LKEOfmZI0=ZK
z6uHs2FB9An@t5lC{2Gy=YVT}ImQ5IP<pkVDmzfQKco0BH4;`|}UReL|rIe%U7KV2V
z`cP@OV$f5d2q8&VBaVh>abwT<bDZR22m{194vlT<IL1Qf*CX4qv`ip&Cj;s1bYZkb
zz~k~f;*dXn|A!x{fG`}P5W_EGyt}f0u~Wdymz%VQBh!M~1lgBPnyF&%;vWB=EMZe5
zAlpz45ff9hX&f5Ia;Nvg&WapdYHyX7#N=#mK13sh%0UYjNjNHRwvF~9Eg+VL4QXcN
zR>40}^V+o(WR_QqjFt>@A^Fz;@bD_D1Gb@>I9+io^?nhzQ&4XxICJKVKi~$i#{H?K
z{OVZBxZ}}aWA(8vRndrdZ@>xBk=Vs7%rFc4pqJLdi(b5VQ44>2Qno|T%{#{S3cv%2
zWO(-)0>g+{)~kR~&4IrHxv>}&K!xiRU&_PF+eu~sx^oPjLGid#>+n240h81ba~{;7
z3PQZldSyg@jkqq6)_7{JqZQI-VgN*3E0-RLj*O_NCMaN%2yNlwIuc#ObLTxN`T`c|
z>n3$Mgvc@aUY`|_zX2(BEQGX}0|2U1o|pMs(q4S02$JhpPiJ4orVocX6X9sJux3zM
z#UtO;*3!E!8#ycCH1rIV7GH~!2_r`J3<Q(a)8dZ2cI!_&m;vd{dI@b1-!jrGAQSNI
zt);@u#5SkI99tQgqSOV@zx#UU2Bl!*n;G?ewEBt&>#Qgn0b8k&XJdCn1IEgyWBXQ{
zS<?rb*OA}Tx}<MXw@a&Myv0nJ_HNQpSH;)q$WWtJCR>e+lYk#^pvrU|m(BNHy?ftO
zQ0rUv&dYl?wO#9vzNjaq>+%;$Si}E@0e<e0+2XnI@t&bq_1sO0tYv#{(64e=XGHYZ
z=P%6n{_NUy#|mhnerZyFw72_ahd6mK-j5AQ^>L|cIwud{I+9KMwt*cF<>%h@*_IeD
zICxNtcE#Pj`@MSOEOxCu3Q}`Op-B(t1#_W7Vit(b;+bKuMbfnYc5Fi6TzRk<lkoOk
zWjh!N+BM)K!!FPKnob;ZNgnRpz8b>}P6g^aJ~e<6n?yW7Ylpx7QS@Sq*mV~Q9@D;F
z_lxP)EfV=?od}%--k*+sDimcTeF=3@mrr&6_UGP%jDQN6)vvHKI+Lm_r@O^A{qV!L
z{_I<$!@AfDCJx7M-lUER$$My>Jn3!u{JCaed$!bve<(#KEPndvPT<^>s~1MSDraV=
zc^1WsOGf>CY5J`!wPu$++)XkzhG|WM>tf%Tv3CS6Iti6ld|<C_7r1fr=KY;Daqdd8
z)F0NZ<Fz$RloWGSIC=796&U0n*T;P;K>ROV$?CK9yfK`E?qrB1xX72q87@3-_7HUp
zv6g^Ptnz(2+Z*1fMFxcOUsh_-kWiQ-!#80S>}B85t*`0^%9?z8QkaV%Ga~Ddc<zB!
z7e=o=DdtJI!$y?1v?0OxfOw_NNJlY2wG<kDd-48q&AgY)#E-gL?M=@!+BORWmmdgD
z<ekV$8TkFj!u8I;YwXwiY+bo>WkURW<y8it(%beH)s6*=-fLf2l!)tl)N+4z?s2e{
zU!nd%t{;E=r`u0ODN?0{Nngu;-nGkG`;FUWF3oTLe1Dd_H%;3r9<?y_7H7DM@2myG
zr7HN|Z2pH(>#T5&;q{w0XB}?KPx0vsf4%+}6{*#0)>z<ji7*A8NlEBs{Ft6eq%Hs{
zupehSE03}jd=T)=Ez4c^4$X;;wB&I~RW*s-wqyNFWoQgtLAZ}&wdum{=c|R3S<xev
zp<nV11|#BbZQ@A!JXLs6e~q_%iS*G^Ndtxn{O>j1jt{A+3<f9g6ZDJm8FhRlQ7b?=
z_!xkMrF<|@8q%GC$hmd*ZX5YvHkBO+$fhAjOZN#1R;Rg_9?9C0t%O5r9A#D?a5w0<
z_p|sX5X;zSi!Fhj0yEUSf^NK6YuHsjiyX+x`flx7K5#eca`?f1hu3j$n@deG7$b65
zCF`-6Q!FGIL$S}5qDAIiwIO{-y+2jBaqRsl@qbQ@dppeoiYaya_QL_o(Xb$kSASM0
zYnIy$SfOvk_M-i28{pX8CHwfi4orO+R>q=`^)bKhbZ=Vl&U@940-bTUU@`p%-3Q~7
z+7cmbn7ijzzb!8L&6|^4aMP+41@41>F`C6+Uz7A?<QA)ShB@b=(L*-LZ!rLP(X)T7
zVl|;t@)rei2%}g3xAE_$+IJty&d#=doZ8BI%pQJxr;l1utL}z75gg6mS;IHfs=-;l
zaBW^dUAz5^{?P;Ti@R%OADG9Kb~?@K>Q^Y^R|B|;-ezZyWCe%cKOrz>bdft`^U9WO
zEv%<r1`7B#&h6QS0enMwZDa2@vxg{|`Ofw|+S~}Zh@CMFOrSK?J1gf|*vP)N)p`B!
zno7_4?#;pJ53SSK%Asq+I;E}+o}NzLR5ok$H_Yh%)bP7Jy5uM;!5}~9(_|s6^(n*`
zYHsB1-xxf<H1!`}F{P&ub_`W$Gkgj7y_nAffW#TdOo*-4IEG}nbiKhdhoRj~IE(U8
zR_}WAH=j~aMhi^Mfwv}lx+^6|9{`h}_T)<vPaia6b5oF=y5CAp%4o18C*T4qXySdX
zgYiPo9Y}V9drpn<_zM<|vChNAz}4HPwII~|CwV%s5==x<r3+tr!v_6E!Mpj7fBew{
zRI&;PG;v+-!DXug^M|wo4Z~iz<d}C>f1$i59lrQ`JHgE=^ja1;72<4O3q#{<y`<Cq
zC_|dk@=*H9ug<HUKA5;^`_Yp?w_`N^=3P`;o=UGBCNp@D)63IIW=rZ^Fd@hUF8THw
z0!#_*MA{LgPx?E^KT}6)lH2Ad3l|5qJwbJB{ZYmCwqC@!jg=!vgD*LXFTF@For8I|
z)~#hmTmRhCvkj*c_*byG(*Yy{^Oq{cT^u{id0W+f#q_Q?N7QtGq1tUPwr=?`TxXAC
zd?^}Ye0$Y}=RmQ9cK-hRh{p^%h^=h@R+6+8UMRdFhO8Dwc>dhtAxf27b3Q0Ce)seH
zqHT>y5`RIt*S^_yms|_U$hjwYeQoXI2QR`}SFs%eDP@E8PKNbRx}%X$7kd8I-(C18
zF#-DvJb&|{)c3`k)~Jj6vQIneyiTpVmzlGH?W=f{a@CK!cMoeDAdijhUxWen$l=Xs
zEE@O^EshO{EEZZPQ=2N4+oUl?1!z#{aLipE4v4vl|F=9H&<O+5zyA#7a{?9wv_hdP
zg-It8C=>}d7GtObehqf#F)P&t59_4IG;cQf>$!X1f7)yJRi4a3f}ilb!e+^@-l*uF
zBN^T1y!bBL5nqwmG`dE>lWyrB!10D}gUtZ>z(=MIVC{YVgGef25%3u^o${!EFZL-|
z|GW*321N$<{9jnWM9@Wi7Lr3Wg=i3iZglkV2n*K+xBPu6hNBj5f{QSs1m%WB^-BuX
z{%`hxeRZ;8)nA{__LcwN=xN-_qwv5I52;vZvj~(t_~PFRk0}8#i?A!y+H@!4UDMBh
zD?(2;pqeL6cnC2c3gDJRATl7}??!cyrz0nBi2Un=ybXmsHnEUeTL2{c;OPMbNy2mP
zwdd@h80L<gq}RgpsnT)z#irM?^+-FFE80AJhy$ZC(svkq9{!qxQyh?dJoY+RT<Ys#
zh{ixAo+i8)&{n7hi1iA(>h%c`f!og8Jn<n4YY3VD3_7vp^~h`$0>V-#JYQV_+yftk
z6|>Gz!F^f{FC%f6#%4SaT}>p)4ElZrGTMz)7}&%Nq{%?PsQZ^oVwqIf>cGAzOXV(K
z$mUBhKzjZo^XP_rRKvuo9l<3MDR4&feCYojAJA#Nc*Sqhi^@UH5Lc6y0!b^K$Q;Ja
zzPDq1&ZY11o(nVm^p^x<msy;C<o_2>Bm-9$5!15mA~q~NG_mqAGr{Vp0d*SxwC~a5
zSzd$xDFMKyV6=nH^WBJ0G2FF!wLNjjC-N=Rep3(sM)oCLY_o^Ap~MGjMC^_*KF=`8
z3iIL8?YfmvDp)n7$`T)boR0tz{{{9F%TfN{e+wTW^Y(B>h&8(U_n3McX77%qNw#fV
zH{%g-7s0>wo&3_X_bz;L^zsev-l$;fxX%*=d*fCFIH1==j1A~7VS&LTDVe9&ltXa+
z%zx}YD+8lae10N)tUtR!&VqK?x{YGZ;qdvvEA<Fbi6-0Ukj8Ck>Vh6m7~7w)Fa)?q
z`Y?`)hX(fagY_tQtR8TBL}$B|gCh=4u$PQ^12}N6<-nreYqBTNpRg4uEu=Y^VPy!$
z;Yi8?%qYO6qciUig*0uMxntQAOWjNJsb$K#0iLDtdyQ08O`e)f0r?}O0$HNaPQv(A
zeYe-#^;oOG?&F_YTd`Wn3<ZEt8d&b&3WQ7yONEj!-pv;sA0S9N9CO#_dx5=0X0MKu
zcLo-^_nSA{?Bt|=81WXvF`cGY>$SXvPP$-J!BvEtnJ>E+VYQyJF5{;iJ7Q6{64#hI
z;AN$G`XF(*DR5*>fc>j{un_}8)j&Lzs6b<Zt@qzi2baqJU#1RZW&K4fzXGZvfzKRp
z7_s3(>#eADa}3BxRrRO~JgMdPcCK}qCmbUnfGYg>`OUSP@fE?9X<F>&6HEf!tOfo6
zKGzbEKcszLXn_TRgxf>{aqPq}vMr69(;hvHGj(|r?8RyUUw8514@>v=>sr9WbnX`S
z(Q<!_ZnQ4@aTAS!35$$h3*ZLUbOGAx!{02_gfL*ntTE3e4LL3u_5o8k^rR4;1@JCm
zR@N(0NfSBw4v0$x6oUYw(>9w7<N_uMTNL$MT|a~#GrDa6{(~?ckWj$pi4dZ&@qnjO
z1kj;zWKGCXKh#NJ2`zmK+m5?S8YscBI$awIogjS6f>}UNpWu`Vwuk-_7m5FOD_DR6
zIgs|Cq|rwE>9K95x#&_C!9hTnQfLy$j7)Ufb5kI5U_!;Z&Pv_)%ReiL3W0=Jw7xG7
zJi=Qh)=Fy_>mkv_quKJ)PtS2+q4q2uWx*Kx1<+TZippTcy?i}_JS;UtYE~J5o$b@I
zwodZdEt8bRa#gswX5)zE?3-1apZt~Hy#C~lp%nC&plCGXLa^Hu=*Z<3{au2gCohK-
zpDv6N_QM~45IZq4_>zSlXF>w2iEKSMtT_UlCLX6ap!a|!kVq9#pCCujwY$|RV`e8Y
z)1m+eA%)T2eftpPQEM{b_C|&s1nSxTW)_T&PXc%&8rI>o13-5WQgpy&2n29r)<a^e
zhQ)^up1(pvD2ybXxCnKGp1FOy4}%bx;B59&K!<?rGkATm;ZC)GRxAC92<~-%QtlXr
zqY>+75H$ciU<Z&)WG0kq<iP6_3~{dur9EbPfLdnp=Z{s}RyycEE_p!sI4O2Ih==hK
z*jE#x5bf571O?ULP{NaWPUz7_KAg@N<%hyAU~22moe6;YEkI0$Hf<%tY^J81|IT;V
zpW@k2)PU3RF)Bbx@W;BZNaiLwAA%3zl;b9?S!BovVZNbsK8t*@7R8KiY$N~U$<K-O
zuJUr?tslre53^h~z*42@<-of!A#)79`n<xz>7N{|F_n^14LgE+R%UQ-lf9h*MA@I4
zAhGcFGl`3pEE`}ZygJ&1LjAtGl#Nm^4ghxN{Jlk|JV}Pn^VT}F#D@k#Nf-wo8UBR=
zVO&o!4~9Il=gw_wN~RXQ)IJ>cV$VPSd2(^8NG2UCLf-2i%PG-U*exm0EdVdaLX;l6
zkFqsKDi;?pgM5})T;mRqlXl6X-W*W@p7}NS2E0^5&;OpeDJ}Vb%G{)3wQiYqWigsy
z6R_GK`P22^i6<mqy8iXD?aV*}SBlrv``zhqg(TxvKsqxZ@YlLhsLADL`h#HZTeRp0
zNIWG#ILTW<lvVy+d6<533wJXay`48$33RYs6ziGzUJ=J_C?`nVcYuQi6afxIodIIT
zv}Cmn?8vJjR{)xOoD3=;GN_lMPC77Hk07Repx*nn7x7H!FX5QspZzG$o6lxl1^N*;
z%AP&DW!B)rg$HDglD`YBeChe=k~$@s-O1ld*5~G&rKs+$Og^6-UpUYzL1Hr!KtFrW
z(6;J}4i|zxjCoIzDH{!n%Rv3(r!Cf6;H-9Tl8bCCZYp^BH98N^ED_}Lp#ulbf$7#j
z`vh@J?iy5Bx1JL-Z!z+S2H=X=`IE#P^c8V3BOYRaJz+tiuFO?EyuwhsLw|J+ZYlBV
zENjvyo=*TMWeWn?ze1|3^?E+82a7L7hg@^nv(Qt5W_kce#({#kEJ&fNknHO}HmfB_
z94LSHY*_;RCb^@0KlD_^@)>r}#Zf*0uveYlebIk0V0!MdHq2Cfn?Pr#)lQ&UG^t?5
zV##S8(jL(5dmur8Apk3_0)_<pC_34;CQti)?%((0hHfLLtZ7T+YnK~#wziTrmx+&`
zf8YBi!k=lzf4bhL=+DJONFw+wy+T>$I$)AR$BwB&33lbTCT-l+TYt5BP5Bf0h)!6~
zSVzx=X){VS(r4WU`Z^4j%QX|Xkyh<>f71j(9!0iNAPBnvEUkZTAw&@JxOsHRWJ15u
zU&8Y9Do_{`i-W_zP|0v2$c9Sv<w9YMwasOA9)l|XN$G3Mh)0XFWOBE@wswPVN9i&h
z98c{y{xz!PK|E6T@KZPK(NRPm4^q||Scq@s;z|S<?$*`CfA4A0?X7>cop~FQ2^=p|
z^#^t6d4r`te+7dgOI#Q-K;1&VlJ~~{HAE}b5CPSqY@<|@VP$}ow$v}c`PGk`5Z|QH
zzM@ht2RsGZt7GfU4-)v3WCMi@Gx5>N;QB%6ka5w~!<R$trG?=g)Xg2@_0MLUU6NWq
zp9oRHDRLf^1n;$ePYsR7m;}b#J4dZ1;q|D@bu3b1eueyych8>Z^~V}<M@e*4Zi04z
z44x8(eFLQ$<FVE!ggLDq#|g?SGI-8q_6Wt~;}w*Mp=)nbJLmFbV?SM2*@o@!hcpk(
zEhYNOvPI)yG8jM_YO#5V*A)FFzFiME3SWC^NsMMboZ5PCC+F4{Ih+5G6-1&XjsB8M
zFIF3bsk9!Q49LbQ2?A0vOj;iqum-k0j)BAPj~Z{kO*R!y0HR(*ONlF@!aA!(Ty-4U
zc*!&lWT|)|=}^Oo$BR^&*#G;^4>e^eBa70+oGnR@HEY%o<rStVso)44t2cVIwVnub
zhyxi2X_#BEVQb+O#PkGGhmy$}>-8B^IH!oGp1iU$6NpMIPSMH*9F)9Z7|0QHbo`H7
zFanFhsU5p~Dk9q@yu^M=rSxn9vBkJFp9c=}zaVzDa;?v5I)ZYlSNuh}n(vozVGNjg
zH+#|d`aDu*2k?2t;8RgdDgQF<2tT86EMr1BhrXFOy;WS4H|>$B(EJ`6W?%6*hCV6z
zl*>&FZQ0nuxnZsJnX08937DNvN-F>KW;v2A;sz1-?v-|30Z{-yK&^xkJ4lo@8bsWN
zG2eUNA0;h94#O;c<Tq;Y(ZA>3qmFVFdyJT_!ba3h!hI?QBlIGWQuPt<98B+9CWCTD
zD^5TOAxO?iEb4oA@2Vh#E}6)JzkghA%9o-DoE`XBeBu0{4N+l9&khJxo@oWo8jq<o
zC;y!a+U4A~f-pxYJzf#H4Ehn~+c$fuz)0EwW@T<&YDY={J=nkBD0UT*Z3d^e{ZO+w
z-a>&0d2xKMPu$JPNvL$PkBJEm;1NOx{RbBmbk9eYMSTIHm>^c!vm&~(KC5hahhIzV
z^jWE{*dcYCzmTYhAk3&nkqwB=`}F2(LbLTT7PoWrS~o_fG*}u?k`(#V-XVMuwf;Yt
zKRACo*86#ZH!jBFwN19%5NCo5@5>hJ$>vmgXsE$J=NQY>efrgd&8E85Sy``X4FB2b
z7hd8q>#+5G?HAOOL3Zk@|5_94t(v7<lf|CB%SCDCOz`RCJE88B=VPNt>zB0vD=N0E
z=N$=s#*y{ur@9(?L44^n&v83H%Wln!<c(MM^QKL_KAk))?WXf{!D8c$dwI0$%z{+^
zuNsCnkmgRzUG|;)=MFx}yg>!7;tN>`UN+l3WfQFLWhZ>@Pac?8GUSr6I3>%fNwZ${
zaN$h<>Ez_8@q^_uPc;76RuE5d{x!-_eQI<5uyWXEAsNfG@V&!2j`}jIpUnL_mP&f%
z<{;Lh{;6Ic|1(U$JPWFy8EzSC+7e&N<JUYRaQ;*k7RS-Zd~DV8SuOBi7cfXTG4wj3
zxk&(F58Jj5G1Rc~Ot6ah|Ai<zEQDb`gfAf$J=w4YnV#!>A`I;zie}VIXuZ&F%A8+V
zuLObzQ`ULjAH^U6ev~uLEI5AowOEVgE`wUveE(1E%VSla&3vG@K0ew#oPFb`qh!c3
zNw33R3vMZR3(^{(1<7EcsX~1HqYLAIG7mQUSA-p!M0|zr5W}HQ;iv{FDzayp%RVZL
z+y^dXNqf%RzKYF|1Gl=8JS!O5VZKWSn(V@|EjSDI;F`$>Bzo$k&0OB}C!PV2O%QLd
zG4%8CK`I0Ni6)lex}E9Zu@Qby)~R7+Bq6{ccYmdGL4LWrf9^dYFA$Uf`++I?IJh7)
zF(i2*DW{BmD$7+_?3eHUady?u-`_v{BK*)%)gQIbemoQ&@x?X&kdI*B-Sum>XT`5P
z_Z|C~#PJ(@f4s%FO7Gf^r0-W=rk*;x_n$}aUOwnn-8<Bm<7Hg!_j{kEK7$cGGA*eb
z8m;CKFgd7>C7k8yptOJYT-(|-D5JU%XA_MaEPW(SoKTO|7|CJgCsjp$K5Mb->q5st
znH>@$?+fRf3L_J(rcS*}OiY{}aw-hw&PM#yKTq(yn5T7h7@1q?RRQzS^tYpr<s;`N
zvI@&Fv&CqPU*&s|R&{+$OE{A?Nf;od#dqul*LsLwvtIuaq`H08P~qZ&2Cx5V!?Jr_
z)rTvKgVyGu0k!4xpu<C!z6pb>>em6uOR~c<@T?f$wZg{DZT9mZ0(zp;4Ac%AT84Uh
zV*c&#hk?9E*w3O6)*l`NvhKogS;E;aX5qcb7r$fe)wXK)r(w^@+{@AP?{_c!4i?n9
zXK`^%c~N8ey4Zp=%U7}Bm2}+3`8_9{yVF)&z@t}T6yHs%aO#7Apwmz@8Rb!egv-yV
zaJHoZjC4(FYZ$jUgs-DP%)F?&WpGV6aoljV)joguNRoPqcRev0sR>&UrU*iwQHI>8
z-euE?ffS-i<MEfz;J+imH}9x4@;R(8$H!JzH(;Kb9kO<2R-I#eO#h6ai3RW4sniws
zk`gDg%y&#F=rgOTn*tUh`6iVk7Z&VmT^5DwMfb1LpJh03J>Xj9|90-{^Vz<F(4?fK
z=SC?Q<jnN&@Dekz$Q<0MH93xU^{yAVpQ$5P%wb|mO+qqL_Doy|r8AAui+a8AndeNe
zIP|Hva%Dv(D;`_VJ<3UXF=x1_89OUv(z<GO-skUhX1k&iCns`}&8RPR<*N&lexSWd
zN(x-(EVi#xe!tejc>B3PRlBuHjY@CU9}Q{@3;bnJ$;y5!XOu(fIW0Do^A0~a`}yy4
zF`Vzy>JHGg2CbqXXv4~r#IPU=9V4bh1)Sfm7xbK)a!n*&pNAZ{2h}<BSF>SIfwz-`
zuH`FPpz&D)z)d1vN#F(b1JjX*-*jEpSi+(&*;9G_jjtWu(PLxJ!x@z?#lx7>`O2nf
zqp^~O+tCdfnv&OIiI_k1w+}yBV4Yk_)0{57xns(3x3&Ea&X<FH>@U;DJI)2JP&w|f
z-kHx|-gCq+tivvBRu2hUXvQwxPOt>7fJ9z#7qeq&q-X5VSlZ_)d-~{66B83%clY^x
z0*si#G7mhW8-N0(ltLFPoGx#$k<nVa1f<vh=pde5E;ILDX2Y%AJ3DR9lP3WeDMQBc
zQifh8Uhc0A5Zkq4*v4}-Snv9WtrYsrO%jI|hhgZy)Bf`*b1SPviFxbXK~a0%Wvhmi
zc5LKO%q=*RRVmS*a9M6BDfPoP-3=`ZSoJFZzSJQickG!UQ>^TBHF&8Zp5yo92ws%2
z+$a!k&X8;)GQ&I8PL7V&wRzBR#{AX3T#h|C3>D68YYbRiG^jcnZPC-;&zU2IV576#
ztnfJ<*MV%|mor&n9go+?Kbi`W_Ha#HZg#k;BeEIp%oFv`n~0}B^Td4NLVw|=mW4ZB
zQ+NK;8`zZ{>+S24r@MFT+g*%|Un?o5gogvLm0wzg1Rq84`k#O7#1Qj;zvjW--r`4|
zV-eiN7^9R1H-nC~GE=8!W@qn20ew=Eo@?Knd|m$b?)e@$P7hU4EFd=Ta&7E=ZkI2d
zt;g;AZlPsFV%Vk9t?qkgNI^m|GtsPPv2}jP$?lJz<Z74LmrFt-$B#e3H`s^j<*Uvk
zR1nvDdwMQ@F*GwXbHwPMyf0kCpU9I(q>C#})ZlFZypx8pQKr|fUGwYbq->1n%}DmJ
zl8}%XK}3FdRUA2nvYeb;C<f_pP&H2&Ws6=6%Ym?T1bCGU8JfzPu5j9Pq8u8iU}T?_
zF0HdHtz@F$_b#s`Ul=C#VlYLX(0R0R!-kiIg<cQ6JUl$6D;MV~^)N_Fd?4k$ZHKR1
zlpcSwh)t|U3A11#gSe??LwO*UUEo`LG)R*nsun-Pb^oKSRf;qgzn}3PF2_%sfhWLn
zb}yt(D%N@5KI);WdwRmj8kkx@*j&fKr=nImQVQfoik?B(JQ(VH#SzuR0OmowSDKt3
z_LA|J-;aN9-n^-uepR(#GJkkKW#Nm=!amdu28`)V$J@LuVbD6=?X}ST)5AZxC>z-*
zTq{{*b2T6!qypsH)WWQ)^2KdFhWk``YAx4e_JXgsc3=`#q82%pe&?P>a1MefNiaIZ
zQAa+qI;AGjQ*}x$_Ax5NZp`N`h0?c|yBJdGxC$*^f7?d$=uY@46r-d)@j^!|<93zp
zU<NZvEw%%Po9CH+wzzngH*R2>x`Dt|l9rr)S%L*w{tjyh5sGcCs+?8zoQ?YzPCsr?
zb#GGk*=s3|3M`HY1gHDx)PB7qGq>m9vumeu><6IC>68_4Rh7nb>jp27DB+Q<R{^ua
zFFRd2d>bHouc@i=Bi~oN_oW}P$j}Tidu{jCx+fK|*Mz;jeFwsw0{y~ML6e80o1kT9
zoT-_Zoa~0pZm|q*r703N1!ZMrRGC3I+W67)z?4`tK#Y>Z3QI+ANm;O%!0zc!a)Q{S
zV`F0-zn|Gu3?tFejIM?!jh7NE;>TBFKw5yz!na2h%}{%H{Z=|TLu(t29!Uk@NuEgd
z9FMPQY0=Lbw}ka$1M)0eX!Su(hZc)AS*m9_NNGi?6(5xT_S-WIy`VLFVGK`4sM}C6
zCQ}5U)q;nZ8Gkmy0>PHKW}VX;CDKLG3Oi6n-F$}A@}VwWPc7kGNRu=e+?mIjo51K6
z2rQ*N({dhPU+e+pM<t1&A_3E&s5$_<RiYdVBd+;yMoE|v({|X^LRO;-3jM;55*UD$
zqleo-W-r-da%D23^>*zVBWk(aSE4gKlf`~SN2C7(d7=q5pj-R7iy`<Ib=g6bWb_UO
zzAi_!igS{Yk2u`?(5hxVk|P><n*?I<{)Dttl1c%1tw1^|giruERadiJrJ|vs;U*|i
z4{N6yUk!yw<^Y*`IDx;J`}WA|0{(W*+O;)JO~K?oPXlBuc)My`)Kr^93S?uq-*o{(
z*%)H?8q1K7z@KfMuukXj!U{C(gf1*BJP(Dx$_ROasI4jh%4bzHvSwM6UD#({BzSDt
zw8<1rW7BUpd;ZQXjzJu$m)_oZZY~xjx;-8-ne0BU9INd_FmSXHX5e+)#W(~qsz&*B
zGY`Y-_%imD0C%xYgj5&}3sH$qoRvBAlN1v#<ER$LDV<g>+SGxOE}vGc-T6Bb4Wxi%
zNr(e!7%g0!T&w^DVvC8}o6DW>%nwouMni^;5$?~sxw*+lsv+@A!%(u0GNH;c$Z*AC
zJ}PS0#r^K8|I0LFn@_UxI*+)pMneNLGc%uuvZg+Yb(zV`YSTM#6ZOrkY}}ffMh0!X
zPBdBPTH)Pta&ktHqMoqvnr-qkPE;-8)Zu(U74fQ5LN?wb{|JH;_g&azI>`hgymS$a
z7=?ZTY-fH=!EDR$E{RqP8ja@a>N=9-l+VY-#gz?zRubqF>=r^C8+nR9tz<n+Y}YEB
zq2kev#wvSQ)Zec!>{Yapr|UsXab_|x=X@h{O|yzg8M{gwRg#@Q@X=rPW!q~xmGDGs
z<a>?Vahwr~ofdcAjqOPGJ9#K1{Fne(BKv(LN-Up;?8Tb8%pt1JIG<o<R#tM>ovlZX
z#CrCP{%K)jqwJ<!sWUm5krAn9GP9RvWmW!~H$ULSi5jLi`cWby_v=$#t<G{uJ&cRc
zs~Gv1ke!74Qmr#+BT=}&eB#AmPtSR|41++%+>xaA#>U2K%|xbcQ4hPi+518EoSC3+
zTZ8SLoTAe*93IZ<l&;zs7gd1Y$1oYwokwb_s#G(W<6H{cRPp>61}7v$Bj#&H_EV$y
z3qnIf(}jC-c;koJIUEztUrx-~&b%G^^JI2+prYpOr1-Ggw#Na1$<xU>!>QW-$>O4j
zt0Ru@GwgnDNmO<dU5AjD+~VkjvBTiXjx)PwRFd*WN_Kk9eIw_kkV(nohn@mSovESy
z2$n_wEb@q8eHybbpA{4oh`54O7?SArdb{30Wqg6U?;i3k(HAq95@M&TIzhBB8+pKU
z@Bv<G44*EVDUR3G)vcL%w)s*eqxIJnHuw`3BQvM4xv|kwTNQKQ;wBoIb#?YDhU3C2
zg>}yKU#<4eiip@}MO}z0&+)Qox!?*h7sV~Z<GQYH(2;eA{pEXOs%f|{tKwn{(KMN{
zk|pobQp73CV6hAw!df4&cX16(#qM}N(C!l!bgXPw64P`;nxFq{^tsh}xN9HZ9pn2@
zjd)=E-iNDTaelblYwppauW{$<%w3*S?K_cHOlNt`W=SG3o1XMqoOCEqPSh#FEG4mQ
zvMf=EDyIs5)!XX2$!vW6Z7XbN7x2&|;C15wy1aDC7MBQIl9{P`)CJ_M4ChGhDG{cv
zcKj@8yRb@+Av?}yb&>a-qUFwcE6A~H%Ea{mvrVuI3i!oz_DKlvK*`cj568q=1wPG}
z4UUiI=jUBAb&?eVMfH<GHd-V{m@vdz5ZM9l+Fbal({`|uDzpabmP4_rRz({(2<sPu
zc2w}H8_GyaPVQxO%*@QBzAkaJGAuY;zKw4~mKR6y+UQr7=(Xr|R_e*RlG0FcTA!#@
zT{6=r?j((SsPMhOz&fhOu4Il|wHH8;VM&_q+#^CvFPNtJZ^qC8-IU_(gwDM)dldIQ
z($>m?{!%RGJ5d!aEiG3!w|Jj>9!ZQsXR>v$jGl$THmL!NlK9|vfOa+LzLlw&XoMMd
z!Ft0V>ryPZ`(V&TFI=20Y>jaMm$#o?@7k#fRJkP0LJ%n?HQ+PMrJF9%Dxl*W69Dzk
zIc~DQ7%@4J+*Ty6B_QsEJZ8q8dz^~ZkoWTPs_}fjW}oV4WdTD;gQP7-bqq%6fgK=O
z%Y`Z>{lKu;jLiYXEX6O5_GuL^<)I@`FKnKT|CQvWlvIG24`R9=#<rUXxFIUW#V0lP
zcsuzc4x_J48p(x+E!j($f>VqY(C+^2zF`@@DD!s{6xj|GI$o697t8apBv9&TT`h9_
z=~6?3epwP7EmM%@93{oz!l=xm5KjHs14q7u-`rFJNYD?PPYBNB6}hbOq_`R>^sG?m
zV8y)DOIvz4H1+KVF#+w9ne^z>0XXmPGhptyvy*Pzd8pC#2o0z%1!Z192eN9G&gc>C
z)Dict_aQo8;!y?OrEylwSloP-(BK(M`ZF!N48Gmd;--Mb98xqmhfFmK$Ru~Mob-tA
zW#!2f3$F3+o$th7#+!<Nc_2hj*qP{FygxAEI&VCS#cD=bPJS$i-udUVg=3KdoiFb5
zm!J(d=$A!_{0?+@kmDc^drg_X6MKwPqbcezjd7@(00q>=(D=-zgEG^_Bx0TEX7@yb
zBZ$ZC-pOa!5Z);Ifn2HO*%da*%9SPYft&3X{GgnFz9gK8XveL>sesCUpH2k^6g~;e
zA288Qxpc}Cgq&tb7exCC^t=)O<egPHqM5h-lq7g|gK12&@2$=oPqZmVHT)C_EB-~o
zXoCES%yh{6IQ@AMZEBq%!|rB|^_TCYXJtie@J422h@b-m$^$#RZEnZUVN-vsVPx=>
z>NxDl7I1H0&nK{<r7pn7$43v@B883?&TjG~Nl}F7x+%oX3A(Q7k-)-dHXi-D`{wO7
z(L6HVUKD-dorT(=$55oDrN!LF#-@?afFwyql`ybR#X9eXx~2q9b8_hk)O}Y;TuE|x
zUIuWclcWTt1{0}@63pTA7Ki-h#YfA8>;RZ|`i0FIPk?Ss&&(uaB1!T%f|HaNS*xxA
zu#*i(x^cRf1045XoR(QMbHwRLUP~S^DO)hQkff3n-1Ie!be_^i*t8?-dzRO}(dH9!
z2zCBI0>#Kj3f9(;RLZ?yx3vUW4fMSM$eH((YHkE30@909j}|Z9mocOE$8Y?YYMT4z
zIKJ9RCCqK#iBdBg{R*Q2S$QUjMFOweZs=WmySiV$f)C5_@|l9gS+7MKddGdkxjzpu
zF5c%LB@UUjfx|^-*p{RrPF|Bv)47GSxewz;0e&Smq;5i8K+5*_(yY3=08DjRst6cG
z%&o5p-QTY_dHD`kX2mp93pq>0lApG42xf*D<I#vC<o64%OG763SY4?YcmFoO>zdEs
zFQFXay|_JH*zgtDvA>hrRK#!rrBZ<0E*EaY*+yn{^<IM&97Veb)p%8&Bu#=)Gr40O
zCiU6^(~zEeyV;biFqD(JH72Vp4|gwhm<FjK8zO=Zrh9gz8V{iaXa#!SikFuSd{3VG
zVcFVoU7Tt3)#FG8nG&(iUS5k5yOX=HnJp6KmzdbA79#7N3nwy?ANG8s{?(?-`H^Rt
z30Y@xcAs+?@)jM&5={5z9Ea+gT!yADBW_ufDymk#d@~*#iR@OS^dD5R0WxEncgmP8
z`1BIaQ65Lr)0wD`uA;K3$SvKGtAe;(DJiLk{HwfGmuM~T1GVUh==lfR_SF*;xD9M<
ztM@N=(H=Uq>|pt?Z&M;$=bhodmTscZR}l1e!oT&{#(>h|KW{l08fMlD@=P0$z;t!j
zN`p&QUM@$Eq$$PCT5L;jbQ8Y9d@CeyAt!75ttAu02b<0`EPd2E`DHvtMP*qb>3!oL
z%d*EUkC)li@bJHG%YS`Q|NAZe^??58_kvN^v(h3`kG~u7rkrdEC|@R@qM;CZZz{;J
zr6>rB>={DixxghwmWq(#&tE-({(K@uZpKg{00&!O(w#WSN{MZvW$s|+#+aqW89oto
zpe+Q7M(MA=Z0^`E;6i~D!84$KkW@)R^B|7t@3x3}CdhK9S(62UYO%FFwoB{$T!MMU
z+t~`I0wFmr2Mu&n({TwXp3*ZiOwc%37FaMAnVz2B0f@2!ZCT87f$PXxQu!HIm!tq-
zDHH9?+{K8!oO(;r+LKn6+g8|M_kI4<!sS^1{4HZ??bV*Ed3G}^NIsGdC}uATRcmyw
zv&N#tB6D-y@<$VCk8QH`SeBLTx#HvciA>XhLJi*ij2Vk}27Z@kTAsNoj!HiYewEyA
zIg~F-TV#Y5l{eC=oAafZT_cjatPPtV<R1vGbX5FUF*|TEW(C{FxTy8c7~0hS4Ap0>
z2JeoYJ1@|e@Enq05(V4Mfa^#~O~JbK84+~G=lGv@9V!ZA5|1#t`ICl*h8{GT24@Tz
zHZuITZj6ZzC6I-zzk$}+*vkf`uT|C6^dG3MTu%zA+eE@cU7G-xsQ2wC><a0$4Yj%;
z?vR0|vZ(yVQRh>%HNlo^87(a#nY{TE<Bn0yP2M;9V$#xtzQpI7DoFJjHj_W&<ZROD
zbtrwzsiHVfQs!PuEB!A8EL*?)i;Jb2x>i(&rcCMRMbpnUHR>5mJft-m>V_d9Ayl_P
z&xvp34^~!Ij7jCr0{p*MlO-DBKc0MzYK!%KytL8EHy5iPM_)Yz>>}?Qrs4PztPJ=g
z=f$n$@tm|0Y5AT-kSsDMitc}E7~H-snsLn_2*^g~(C9-Occc7$XHgYBdR)qo``+r+
zhi&hDhV&!VVl8#P8Py|&VH5;^;~bEWOl_EyXdW%>0hg}kYF((<NXynU$Yoj@%to6I
zFcxC7CzTT`T`D#S_kPc^&CYAcGZl-T_cQv?#gY-R_|Aq#>;D|Pqi%ACCDxsA=XM^p
zbxFM|S&R&vy#)CqkeNHs?=q6pLVa_Lpq&!kWP<%24@>0dNN(OrblaG}yP1pJ>u_?l
zQ*5%p!^O9nR^yYCX0j+bkI-@qV6PP~6UHuJUD7@eCH94xu+f>rfx)Rvq=ekm%)!?O
z2Alv{^a>=l(98@CYx0Z7$H%EHG8qDfp{BEMC$G&$<CVhUK{L9quU(c1{h1?SyJf+b
z-;6s&^**Og#Ha1J`3Bg&mdCEiagkQ#>Dif?xQQJ1=@Ig%I&EFj8f73&3ctK!7`eio
zHQforLiJY(>c*+Rk}V;!LAqNDq`?SUCZ#F1*onfgmkuiL#`?o6Sue%qZY^!A;H>h!
zZ9sC*ba#4G-8ZOhvsn7EMFh`E7F0ytn8{jZxG)kZQej?)WaQ3n&*Nd!Wo9FgMMTBN
z^R4BwS6Rikn*2^oNYv|v3qSx#iJ`!sZCq~-074LM9uLs|xrJ{@auyR7^}X{!#h}N-
z?%gK<ujtwWOz8$aP(mOlmywPEkOWTwsuTD$Jwrq`cj<B{LELSMboRWq)k|gdz^fwB
zoF!`2TeWJ-@)^%ozw_@?{C^%+|I4HEf4{}QPARR5vev(~0RQEE(a?<`*+ls95`Xz!
z`k60>`n5mT(E|efjp$th`g)V&QeJw>5;_llSsCuUlp|QCn5<eg-D6{8VZTFU(%)lK
z8UL3o{6AYtmAlmP0rtO6mSOdfKm00iJsn+LrkE;kgnC5`Xj1doYNtpIi<2VbA_Jn<
z=1}j`baaE0nB06>w2bcSt1M!(km^5<8`H6P$Fx*XP+%}Eg(f7L7h-p~DXL{K0|L6{
ztaA|f6DxZYGsMOEQ<57@)5Y^m?=&TqPX%#V=Zf}^lD|KKXqmZblW0uPOyjc&Wj0~<
z6~pKHP|0rt@mOKLEhE$P(&N4zM@WtS`nR8%IbP;wW}3n{mVnY#Zlk*DSG9yhl0yt=
zlHhas<W-dqDqpOrRky(?@AI){b3sl4r7oGrI%^rwMAjG#y3AQFom$XOzD}q1X4q)U
zm6UR-sBk&h+iSGQY}Cl9X*CvT1nGVup}K$S?E*P+$a{6$oxb(gk%f1P2UfR%nv<Iw
zKhaoKRpo8b7atK3VUheLbQcqUpuL{2**2fQF(zu^fYP(qj&GWn%y9e|+P{PxD=o45
zm+hi#9}cv&oCognsXDUXXL?O(r)r$(*x1BGlui4)jG^6@2=V}+4<}U9OkDi-%WAuL
z>trB=bKn$3o6Dgc&K0Lzel9TZGsc7`9%@78V5e=6Rr5vEkR?DT2m2M$KF9(((l$tB
zvRG054!EWn*3J89){*UXt~g(`^=5gt7iqEEmYK+PP1NXWDnfW%<(GwpuGtqal9Q7y
zlJoP+*<AxlJIgH=(?MzgZu_7(wNq(<wpg1w^ym{L=7!y0*ia;~9ty*@gmrTyKz?+-
z&F$K?qn*4Sfos+V^B;}_+nIGe_J^CV+Fi@voKz1D&n+yJaj`D!v{j#wIC?b2F`3fH
z>mTK|3+yI7-n4~X%cDG?RFVDbCLmSYuU4og;%o3o9c&x4srGhy&9pQTaxE7%dLpHl
z+<9PbuY+B)jFecL)kgsyx_?uOw%e-kY>~e_JyW!Q{NHuJ|2om?{~N^}iJ5iV4qyBo
zK+xf=W?KbJN(|F?Y}k(+#F@}h01HHOBuReY9b_Ko4Jk|ZQ*k>}5E^#?=!Cl260QzN
zVhKu*P{7!0G?ygGDkl`}mMm(z3D<<QlQq{R){Ts%c&nD4FEAJ}=);T%%TFl3hx{-G
z#<^yS0x2JyGC-NpIIVnMqPnSJF#G{)!HJ6>6Ryu8xRc3n-GH|&?PJMrv58b|Sz!YL
z5&Z+9+%BcMtkk+MK%iV&`V9iPv)gZTp37L~>Rrw6c{{<mNBh+kS-LTDqGXA3FtlOZ
z*+6{d68XuSdAnNN^PU7X392VZm<KW@YP1VXMZ>sVV1)9o7t!ojWTafJdcnQO^{1u~
zA~1Zy3=K;<M^a8*qd#*WDTb#Pb+;SPq#z=)3>iOcW2HEreLo&01(&XMcHKOmghX{K
z;b0OIkAQ<29PTT*hiI>iv5LL1)wJyBg9zrz`44x?NJoZ#qp`I4%_v4CvGIgC(QL@P
zxn4)zJe5lWAoWLTzk`b#Z~n$ZF+Pn=O*Pt)O!-K@oA=3CkddBlT*{m8xLLR<)HxD_
zcJ!!t(SiKVU)E674RM#KSynI^dT`?68N3n0psA?|rHuzUK?XD8<KtH_YPA6CFbv#4
z_4M#GfY7T^<4tryu5ENLHVxMj*R+l8V-6C|*;%b~4^Zm7S4wjYKY<Wh;XS#;eXWV}
zije>oS6x;0YRJ`*C3WOW4pUsQ%HC2e(xUaIy5oh3MyIj$aS@q?4cRlIp?Ugif)kk4
zzgopj=&)?#HwbGdQ>v>(_#?X~P8@$SabO_BBmOt@_*ARe94Dnn4|jj@d+~`hTb=kZ
ziKEuDkJnCKJt;e0BVm0ft|_BgTzr*OIfE8!)gLz-{o9wEwBeWCBH=G)`uYaWyOjnN
z9q_lMA$C8{&F#x<p#>K|Z8k1au57w;KQ3RX$)f-8)l_fG=)?mWgX7b>mJRlmUwEXx
z#1Dt%xCJFKjZK^vo4uX%6k>VYS}dN-*Ysgq$i;H7)nAK59%63))4uWG*0}?OF-XHA
z=vFYCQDc}x9r?@&Dh~=Btc;hT*&DYvE7oq{{2B`EQvA=m`_35<U)@`R$B)-PE<DZ_
zULSPjyJ6Ip{@gBbV!RUqj@Do1DY!>nv)94g=obH$@@RZ)%orR<u!@P5gOk(dhZhY}
zjf+1Y>N2fuXm~m_<iF1~02L97bzru9+(L7)7;DuK(;ge!?)A~Yd{8uZ9fDLd<t?L@
z2`E`SeVAa+L2bDimlF%T;34%b#qf#9O%$$RV>ol#%!KgqrBmPd<h*Q@W}|JhCGB}*
zOfzN{%n$GUf;FsM`MD?0v{lBz!C_;_3ro938Fb6;#qZLt$&Rb@`U?Vr=MFAfFpp2n
z<XER(RI*^sFjHpRt`M}ht;IALEpEyX6s2@CJ^uXdAe|fhi0<%6ok%&@tD-+vjP$ju
zWb5skc=opZ(s<aZjYzs2k|P<O3!1SSK{-r@)uw#uNs*?q6~le`BC|Bd@p<($nMZ?R
zqMOTE@n535(r2!gn0l34ThIR4U0}MxyD#X^to=V9n41(YMCX&1LlB6rBgG{(%bHK&
zn^@cmk!t9j@Z}~HFVhvtMJGXg{kW5X?#umKcoC!cNYC^DnIQrKI6pehEcBQB0Y$bw
z88i-0B4da$N})nyw#hFcJE#FG-UcT~Hp~+Z$1{Wj@>`~rq4^)b5Rjg7Fr+rTk3=Rm
zi)8baEN&tmv_s9`4eY+OT&(pOXdBVofm8(ojSxi>RiI$0ds{_AaqHIuL}B3v0f01N
zvm+FiJ~JjhN__3omwVH7?*AuXV<U(D$tuD$BPdmwz@v@77`;h>+|Z>+)6uk$|7ta(
z3XFzr`z`hZ6d!0O2}83nDaI3Zbzujg5$H?z{(2D?6RW--%$PD=67YU0Gy)B4wA2kj
zlDQIshr1Y5SO_`Gv@~Sc_3c%O;)J`nNP6NGY>xQJdwS0I8+Oad%&5{kh8Gux?LO_f
zBmDZs3?Wc&Pbjb5dF><%z`7WIv}61B?Ts>o1%$<(#ZA7r<i+vA1ud+zKyCu~0cXx@
zU0iHiEAt6D<REUs>Zd}7Bbpg5K`hQjy%s7LDfB#`>6MVWl#pv8jf@b>D05Q`#^ba)
zA#Bja8;1c#c|KnQ?wUvq;@)m$FbSn52^a|-n#K6AnjTyF%h*X@wk?6)PWyn=L}g@T
z;ATQCLc>Yhx}QRV1OQ3$AwXMp_Kj1MU8(AmjjgRRwf!*U4bEY5pUGb+Z=F-DnVbQ}
z!-IZz#Z+6F>auyP`-n45&>v*Qx)JE^j;lvG&7h_>Kk4GDD=|!hD=4<mMp|d1;an%?
zk&J+7v&;SKTW*T3Zqt+F6|sR}AdIgzO^lC=jAwd)J-h8noMG{q<eM1~IZM=#!?@80
zFwDXZ$&?ZJlO6+QV~BfLJ(j=n&H1UBB@gWX0YDy?ShYIEoXA$wGZLHKp$gT%86TSr
zWoIW8B5rgdI=OlcH6vt#&kYQx-m#0m28P5S?r)rWl==K2hvZU(^J;GMKEB$6#UzaY
z8p&M@lDw%6<q`O)CQE}fAbjO2$!<g0X5{TrXg)UpFarRnZx|vSk5Fi4xhb(47Wk-f
z!qz`MdigZnzp~df6MWfbsYgVOMb;)F(x6JRfakaSoO+5Lcx)TT8wbKx(2dc)OG0(c
za4_4Ym-0{!SNH5)iWc?GO3P*o{|%3TO~tmDs1|FCq$nG`w|2;hz>SG(XIg4cU{kqw
z35D%&EI{c7WsOZkxWi89P+XX~ENVPmtRZS5XJ!t)m~KhgT|vz-Y0%EGH_ycP&Koch
zC{>l?^2cEI>4?uCZpTuSiSAGc*&{SYT}033BheQ_WPV0Naqre|JNyX@vwtgc#B3}J
zA+Low%M6Al33a25%mPt-YLRPqA$A|~k1TS~q5E3j7828LKx9h5A`dydx_qv>|9lvG
zgcWzb&zShJ#&c@Gsw<Fu1(R@I2-a2zT492iLpxYObbv&%4cSgaeR&SUwFy&%WrjV5
z-5{nSy4MaOf(YSlb>7!I4!hn@+GZgc6`f(A?Ooc}8(!>B71K`497Jc-)3AlHXyW)e
zid5GWtt(5&8jKkU^zSfq<-MgvvaF;hN3Y|N>Tl|au1DT|Q$NBwanF8EnC^Msaqc^|
zh)4~9-w*k3_!G$<2w1%R0)h0Wo4cjO2Hc5gq9&M?eyaaCn7uSSC>x94MABmO5Ae;-
z*G5bGqu1tAz4;QY5EJ3UVg6L)7~KF+<_OUg5)7G9M0AGked=NI3Z?bi9~2^U&4ac|
zuUnXij)>?(Yd+-|o)6J<Lv2Zu$|Te<Jn@vl9+dZS{pLF%LGS)>m6MXZZ~nx?Oy4>;
z?D1|Sc#M?M324foY@T`Y{YQ&@D_(zjB?y&3%VK)%k<9wNNKvjUT5!esPR!s{5@^Bc
zlIRW-p=mmT?f8kI&6iQ136UqLb7jKUZpeK=su3%zhg^I|=?1t(!qtO1FTX_lPUxiL
zzXeWPdZ&1HXcx*#c&_xWGX8FOdv#-D5NK*MXf7)uul5Dld=%k)#<iOUYz6)j;sall
zrKgR-s!T>|@S5Or6HSVPE!Eu=>FCq$2IGF-$;pXaHkR5hb0jw}WbfNDs9K!}GS`U=
zts_#v!<<N9B%D$`u_ln%nWFV67{ZHg!m@(Geu6p$luz<gd^PKW=`KBVGZ<abP^BXu
zxDX~SMbz4k@HV{g<meuf<@fiO0?hY?d_#!P*%0FH?&KPFF5(#FH^@5<L8>j$jdh6?
zirb*9sYWJ8SQ$ct{9QPSBe-+cwgjE4rU|D0r>AoQFt0o5Tu^{a<U**V_~76mN)nf`
zDmkc<yE~weD8<mW(fnbL<o1XnJT~js?YGG@6Gt4ko9+yJbb2jkl4ic=*PFY``VA&?
zR1@55YG1U%g<F_t{lJNhR6X((CZsv3(V%4@LQ(VvFb+9UTh6;4Y5Z1mK8xn-6LzkV
zR)znLuvGE*jE(2F^-lf3c8+@MSU>bM32+aO7-^{VbUa%+4W*;r(_=>GI-6P-9Ie*H
z-+b5$b%O_uOe6Ovz9xNNh-8!eiY>f->t2^M)_*qWt_(9IzqRx#a?B<cp_fL-<vk}$
zW$EWYl^o(SGl!t%ErC>%m-K1yu3EK<Ch3TDK@*vsDxO&#<R$t!>9)8<TI5GA$UV=+
zH~*xqmCUH^8)tpb*+fh1vijAx7FCiik$hiVx>no)g%I9^kcYhv;5Gaq`-~bvaL>ot
z^+;psjhdQRqVoPe%`>i~)0+=AW-)VMxNJ^3WMmb15<dI+WEg~v2`jeNRh&0SlRfUK
z(=y|FWae8<Umb&%#wC+DoFCEP6DB&5pZcjtnN3B(=!+AjRuNS%0$~96t?dr!(%3>o
zD@7+F8fvum_|GMvJ|5`kkAFpwJU}68V)Q~Ljyq$eFHG1hic&_%BG#ZaY0M6!DFbl2
zj_W@&35oObpS&0qcj{YOq{im*Nd^79+LsdoG+}JV2`3IpKI*&%c<A_X!|pTD#VRB7
zSia{V%}@b)HWo-zF?ZvUs6&mT*Iw2!hvBmuWZdau#wkU&dnxMBwC&rJxqiNA)3=%&
zSF6k~(GK}e!e73rSF!k3TuS)yt7tZ;BV}>~Wj2@wLvNW;)%oBev^@B{KyH#^#VMur
zU7E)!QWe9XZpP_xo<4_^q&%gDC^nXOm<RHT`!Z&-+cjm_n_(fGdga4C?i~^_UP;v5
zk~ZM&Bs4Fcct76w02`-jL1|wsgex*o@*4Vaqrv8kVt?G7jf2Eg(+cNqCgHIzXlXI8
zKGw98b=&1rn==D4XBsA-Pr1b*W|GTDa;>km()|P9WxUa{NV&f+0}rcioK^LpNLkh`
z`8)4d@5G&hn+f*8?J^qNs`p8i%E*JBww$PfpCMhEhE690hoA@$2lCxLC(^<?p+qj>
z&mEw{-6y^((&rP<T0d?y+4ZE<kiAA3!2#={VZjkgWj{e42f-np&xSz_&0P$;*W3AR
zm2rG-$sA9G>NYZILL8K2+1V3T^7&XP%97vC5=|Po=RBfF#hQ>RP55nNZ$?&@7~!Ip
zq&~OgWYeEFjiWS?UAmwux!uG=H5EqHohk1(mEJcPdvQ9yC@H=bD(0x<WC2Pl&i_sl
zT*y<0kQ(i(QZB^`26SjsHk?>zpU_b2ap9*&VRg73EbDltskmq3?~^{J5}v$$Zu{9D
zY+cDZ0ORk}W{k{S>RE|FQCa~F%Lr))AhLfYiQbnYyZX_r0S#kVgpY(pncfZ;b*QzK
zD0Cc!|AdyX5_uZanbc{dbA!IP5H1)1W^kkat%ZHivU5Bluye7O*Y~lejJ2;J2*rK4
zEc5BXYVznFykx$Z4-t)G5h9NCB=Gu|d_JEB5xO)f<?ndvNCsG4O>RY31rcCA@)$6R
zpz4%cl{tE}{j&D9wG5)N3y#!L$Xa-j!#GLLHdICdR8PvNdp9$qFEVqT2&l;VS?UmZ
zh5S|zLh5Yf`*t{gx};E+#MI`+iaP98$D+bR(Z+IO(tID02oTYOMdd{nm9gdSx5xGp
z*p6<DBaMrr{PSTVQIFgA6N>vF+>7uZyC3O>VcT~Sy#d`A(gIXCa%!;}_?M^yyHTwp
zj8N#PO@&iy$2oTHEF-de(2`~dx(%Rjna+9G9mP3b(z!Eh=?t$R@w$X$rm5gkENFb}
zTG~0nQOO|v6DS6_TnipiIUD<%v+eBA6w&qT&q|+wU5J!W>ptF|XavE&*`w#oG&)nl
z;C?MhB=abCL&!Zu7tALlogqX?5urE#vFUeDt@-9z6l3KmUi_fLlOWX?CNtdAvn}2~
z9qly}&Ak-=h>9sfXYu3qV(F->MarBtv?|;wJjLBIR%LE-LOW%)j_3b_?IXuN=iqwM
zJHgE-K(D@lY}&9xw{=F7B&|e{1)ZWD(RyI{k@|g_={3)6hS!cb+>nI;S)2<zu@~o0
znatv-OgHj`(mT>)&qa2DdDSD$LEW6KQy-s551Sw?13`R>IWt)#86;UpqKKkyQ;B|6
z+@<G11TJw)@ZoR#-5~e_IVfAr)%#jdnA+h?JD@$?90JWrh0Nj{dj3v`v7C(xzCE;g
z5UZ*YZ+SHt$>4N#V8LVb|C4U9?VY?dBcn`OMvXF2_M`d0!4b*vvup2u$c7o|C?4^n
zhWm7@tA+8Qfk^C#INA<fMjNH-aA=c89_^g5#Vn`pQ;H#OyWbS9_(4JM<h58%YgrZ5
zS3`&79X`k3(4o1Rx5O!B=tOA^9ZI~I`?~+C{ztc1gGrB_uXuIxnY!!=cNO01C$F<U
zw0GUzjpxr-%&zqtT|+soNx#`zdBOB_g<WW;<eiR=z;4OPus_d#hVic!Wxo9KpxcAT
zNnvH?@wLh1zZ&@O{J`%s<9-@4e81hj`^?wQqr|V=*u<nASr#1j=@$>b*MQml#Wd56
zY?p9YVUE|Y!NHuyf;+aXTMeu18<4nezzgc(+jx^kle%^KmoTq|9l(#yz_B&kF$osS
zdR#hgCtjre^xX<rr57P<tV+}sLq>6CSnqaYl^4u4*NpP=@~%{wF!{JcU_#M~=5R?-
zH`4K$rK%w?QdszGftcn9Y*fE~Z9nr&+M`iPB=ecLRm&@*weXTY3R9ryA(=ClF1tkG
zSF?eQ*1g(6v@1Oe-f@49!a6A5{N4NaE7&H7Tb*)L9qT3%|8)xnwPForRz!I?YTW5R
zcqG<c6C;Vl`Fz?EqhP?lj_vM)2ljpU#qC-Oy>_2$khDeEa;+H~YT?8J`~&OZsK<;w
zWzBB;?3|n{ZEt?re*D^{TUPK-W%DLR91a=0k@JF%@bQ9ZbT#Que(SrhvA}&|;OX1x
z_E2e$b!=B*H8Rg@wa2cJ*P$+*YEe{NH|}3-yj{Zn5Rd^MKmy^gq!dj^bSSfmpQxL|
zXKL0*<ufMmK(`;e@*P_nlJ3*6l&~_qzP|p8q$MM6E5F`rZ*~EL`j~)BBWpK@=q3!<
zN@5AGyLH+f^IBGliHS8)>(^!W=*H^FJZ;kCF_h76OjgVHboF~xxe2$U_e)ur|Jk!=
zE6Q97wf#QST8O~AfbC>zRt3ikE*|3ng*%SHLKQ-$3Kkh07=f{ZZLE(``Zj|{d9w84
z`SaiZ`Q^()PgP(V+t?2ZrneQt!iJ4a%5^No<5uD&Yu(7QpiKF};|=iz6;lPqin<I7
zhg)|Xtrc1ZE8ZE*2R(iI1DleQZtng;psI3UZdc4L-k{m2@%ndGpID_kmZ*^wc6e#w
z4t$g8FJmg--rn~!zQT?#7rOuX(@(w{N8jjfgg@O6m_dIPUX)c-hsg6MvfAN^v%&LQ
zZIb)o@bIv3gz~^;*dVCz`d`J!oSFxHCXX=Vos&vAdrITMs*-{SFg@A;2b!}mj5~(<
zT)yx@v9aLUbLUpFLHMJ7*-cgTCp_Wr!YzOGO-p&1sAjUXUI(a#r+)k+dre4ZosB|M
z4lFKr9=~>S_>3Fp>(kGFG_<=tdB|;?2LIXZC$C3+Sea;^>^P)tl`{H&G<PQ6Sa$Co
zzX^GfC?Z2-N<#FOdCn9n31x~%By*I^k;qu7Obv#}5UI>#rY1?IC^H#SGDVW%eDB`h
zd)7Jsz**;6Eo)Vt=eh5F?|tp>b?v=B--CcX5P<+*MVt$iyOFzOOxJn%c9Btd=i!B=
z`<@@Z?${sccV2sb={39E@*@F0z8jP@UO6e1K0hf5NE80`o%IXL%ggm<Z-FRv{rTO(
z&EvS6n<Umy)~vv9C$hDEKei~pf(6&K{Cs_L3c208H-ePd0Gb7F>}w`AwlNmV`oOid
zJ*0&%pt{50bxZ$h>;edCd+cjh@NT~Klx`Lj6eI#cVXS}oGOeJ11#Rq>NFDhIq2zd*
zaTfQEvlB^iaiQQP58@#I&@cL%QFj17+lKis7{0%-^x_p2eS6}dL_+0~=5PPcqEoto
zo=#%I!q0(Ta>c`Nr{BuT#>OuwNR1<NtVA-VHhZ{qSWLKxpZyJtaaE?tGa>)Al?#sD
zMF;QH9ZfeFggQH3?95HvGz)Axg5fX!dp>rb)2&bQv4txl>0fu8RhEBnenp_LS%;60
zFYDT0Wj_sW>?glOPR?}MEUhK1xNPD?`->MZQV-u(@}3jM#l%b65I1uvaWM7FOAfPl
ziAAGhWBfuwG~k-h%uRI{?*`rN?oe%SV$nV2fNi+Oj-<zGDbI1-^{&H@*XU*Sva+^&
z5?W+uffXd#CbxYi-`v_278BE%)Ysq71NH8i$oe?fDMxIzKPP;jQ{jS)(LS_YQj*!3
z=ejBSRyerD=(5AAx~gT=3<!I$3F?GA3vcgpYHDtN33f@;C=WY(7)F&`lLvLtcsHyK
z_@$(ZdOR4)VD>S|a!JMP?n{Fb|EEQ{24(;LY_JPO(0k<c7(e0Gk$q!$DksgIp~)!o
zciEG8GOQ3cd#{W{S|0K+`DBb;0FGVx6zG*Q{>w60fLxbua21p@ei<2dP)*dpAnBcO
z`b)Qa3Hvq&QB$hB&adS<KVekizrq3f{&?HNjR?7Sh2oQAcxg4q`r14Dup;T$Q^E|&
znD&7KHGnt1hu;mNOme{5>LK~rwi`v1AJ(engVLP}&s%CqAWQT2*Vfj4j$(n^>heXH
zb*5%!(gIFWhwqC30UY??x}DBv0%F^jUT};SbzmJ0omxXjhYl!_(6?{(SlHOofCaPf
zuTsRtw7?%dbbUR;lL8l5&0PjncL<benTxXm@Oz`>;o+%39gH0~o1@FxGeT$I+3d7X
zrnp^54#GfNr(3P_v0_T{4?I>*MJ(vdEMcyE)h81ahqnCZrJX9XemC>Kuj}fP&vkKg
z|GWf_Fic}!`OoVB%esnx|3_VYQv>mT@U|`9(*qQr-DUAd+_K7XZn>?swSM{8)2EL2
zss(8nxoAtxqhWzlQY&>XI#e^Q24Hz+R@M-Bs)YRp4ll#JY-q?Dr*UZzb2M=tuim4(
z*roVP`6Jt@bE<TXp3eI7vDdB<_!QK0Wy?eu-2i_A{SYpyYD`pG$3n?Q%1+^k&Lfzw
zSHkq8wzKotloWm+Uy%%&AT1r8nwOUhV3e0g!;QqpytMjRhDCXKeam+Rg_8}k@JAoJ
zbWSE^z1+`4#js6*9sHf#{Dac{Fc|{{j)1*N*0n=vE%7Gjen0(L%1d1&Bi(lz{2evy
zCm{wf2JHb62tIp?^VhFmi*Q>=G0vI6GL2lB9AgW}Qn2r4Mx<9YFxUi?8n=ZYLIz*<
zY4REO(R~_dONxO!+zg7FjOze_1;t3!V452AIp9iOy?W*9QJ9mC0Q+^r_o_34wISZY
z<?0>RrD*dEvhIwo=QcZDV9$(+6h59-)1gJhHCR@oAh3=Y(zc=kw3@nl>q}<z3U4k2
zFD5u|)#K#H43?Tygkp`fho`12b15Z1?3wra)?0qe*B{7#QcwUo#@d=|QND$EU*cv1
zS;T?!bHNc2=T^mEpR1ACcE7j{dg}=oDTE3vK7!8<AIEGEeE&WVSpTlT_o5ZMT8zm1
zOm(Q2t=_qr`QvLWW^AVoT6}N6S9s@6RcB{$xVuLnqpR)cFw(;)iNVn>+58tB%@{xg
zk&==!4&#@;fjrY(P5d%3fTNw9aD@3@P-DT@>Vn~lPa6M_%L(zuWx*Zl?&em5Ewlt7
zDJi*J6HIms$MF8!SI2WxIV-4%1U(walf|W_R3NU7S9nRz&dtqWQ@4@c-!Q5{3^4XI
z%E`TPV-ul*IK+_AvcbPS*R1oqCm&z8h?p4bSkGPHGjXR}FckZXz=L@X`qALPCngNO
zBc8PwYb~4(A0Ax=x04s<p}q&@XLUM(%i)b{+#c8H_G{L*@**n3-@1!8VrLfAnP5+E
z?-BS5T)upH0Mx^mpy$m1=4NWt51v-|e7uYsU%Nx0#xL5SKr9|^my_ebJ@3a5VZ!+7
zEx(X-^Wl?Wx0NMNw{BQ$F%sH(dMuVcbMO}0{#_nR9q!$TO$|;MPHdKsA4Q`<p}I*j
zZr|jGAGdan1sR_{Ekv3odQA0k(}hqfDJel^^5R5t0Njk9k5^%($yydBs6-&_U@<rI
zV=Q2kz<Adae(WrXSzh){yO>aSZ|sV(swxE|k5VKIP$Agp5niW%{7_d>A+X6Tj08T(
zO&sZ;!Mwsq64cZ1oXH6noVR?0Rl2$4Ei5d5#3r~<Df+^&N)AKQGKYkO2yGKo$uhJC
zoQGZ3T>#ZqZZB_dJ_!jXG)M!o+WGHuKfWAAGyq2EkS{vydDhh(P>D{)8RC8~MgRVL
zGpLL9oq5~}ii*rEET?8A-^-mFja;;O7f7-0tw?{L-)QDseRK0+bM3?O)Eme!di@}+
zx_U<sx;HgJNo*GqdhvM$ULp-E@L#zM5#-)I)my&9xf*>xWQ9lBUlg7v`g%6w%)tE?
zFJtlvKZB^BDcyuhRsCLkeUN6FWT{`-iE4kbNOs9uEAIVjYWN`Q?ZBZCyjU|^&pIn{
zULo&9rRf(piTM<t3RFz^s!o`iIut|!wzip|1@bd1zv)v|_BV4TDpmcQj#?BxBS)u3
zM}=@e@TC=JpTZ6ZX@=2}kr6@jYX9DGNy(7P<_%6;Gk*AiLKzYiL>U{?3{l1~N}5s3
z+$r_=a${g{Fh%+<_R~#6?C8X_q5o0u-n~0*J|;4f<))5p>550cU8ExJ+0i&7#b#lk
zX5C4o1FW-HZ_r4e3}{0ghl&WQuC8wJh#vo2>)sCJ6f6WSV6V8u3?6-Q`1A3TVeVBR
zf-yuI1CiWfPs+&HpR80AAl9ouv06-IwAf1k9EGf%p2!C^3H7kUQ`W8-?11rsHf-nW
zV`|C)`x<?7bH^jA@80(LrDH8m-K}QlenSyfI0S`|V7kP9EW}EJ>lWONniw<%jQ0$l
zea&u6cozjjKKM^GKlr7KJ{HlErp4Lg4>0&LbZk9n)b9b-51z+Ll`H~u)a}BPbu>`q
zYFUOH2QN$ysQ#GhuddD1*X>Gs3t|~IXXn*^z1@BRElXH^u(me(XcsN=43h=%CL_D_
z!qmM3o>0;V@eJg2tjPc)FJFIDQ(}KMzI*oq^jZo6R(d6_gOo6WO=+=5o9G)FUPfFx
z31TxG`+`k8MGzukqvsVdg^QIu(<<<6_B}i{B4I>A2%FIgZ{JRF@#4iHN)M!jWDs0M
zK@9@8A$1SDfOd#GKHT7n-j>=EbfGK;E~OE_kuB%-6p;k89%H|6ACH*=N8SJtSzkTY
zloSg3Z)S%>rlH6(j<D~#kQcR0v8>gs3cnMD&$GduzG`m9^nFPuUCrBDuFvnM1<uPI
zVnm%%I%0ysu&FeKb?ervm~KglE-WIlDJJ0L$?c#Jx4?3Uu%#FQfYd0lAC;uRv9VAv
zi7UM4b-p#?xrNa$AjyZ56`fA{Ce*y^aJaNy>42{8ejKSI2&9|!;Ec`Rj=gm&1dKgO
zqN1|$32c-U{Fm9WIwd-X32&&K4}{<m%0;mC0(ogm&QB&T;<`IUmJj3j@vGCe9H1Xi
zdR@FoHn6oaeUR08-lxgQ1ey>}a81u>K7qgS$IqW^_s?xRK|Z>t3EA8ddg_MrqIXkO
znWzS#=Z30aY$jUV)a5i*?9#ubxVO@$Gu8WRQtBYi9H;>#S#LJI;oy3!Xkd23M(zNK
z=#q#In1VL6meX~v>jW))Uwr6o+~u5UwSQ%eM^Sug%@#i+lkUPcHiC(CG?LyJrOA)2
zY6tX+VHH4k#-sT!ctxJFv-{fg6~ztfGN@_Ob|KZwrE_)cg{ES+ZN__A6qQb#IH3mm
zai0fi1bV?|B>;f7$}i4+6=w>RsZ^Q3OxsN``TF`^uBcGJ@D2-OB4}|8Fe`rrE?Cwk
z(#|~+@iAhJESG0rG6Y_`e*I*D<5BZc_w-hqoX5-A6Mt*n%)&xjLjj(QRN`%NW_@MI
zRimqZ>T+CM++sy$=Bv*u@W-G-MTK~dFz;v(hYU9v37a-xHXyUPef=O7p>@*%Tet;w
z>{v&T{&pU)+HjG>Tb8ko2qQT=+nB0We2p7?BM23s${G4zh{e9nN2=@AJ^=R$$G!bH
zUP=<hy^CRf$b-H^MZn3)%-qFJP8#8vY4hfFgbb`8)4zb~L4{pWmE9g%x<4@`VS=pc
z^Pr%h$h0VzB5rb?%)u#|eA~t?#B-dZ8l0STDp<wwUJ9b8%(HQ*fpya4w4)=sj{V6a
zl^)>Jg*8LjpPKbIYO#wJ2c+fbGS3*x22x#}+C?hxtts-=Fd}>S`gdu0xeYoQ5eVZa
z+#)MFjk<$_2vR!d^NQpo3CF?#jA?tAO`^ho354+YyUj`4Fq0^);Us5d#s)gNpwQ6J
z4qG`+v!5MF9x*crw2>J`!YtOrA`X3MjwwZf(3f}&6_LQFJT#(%VdsXC%aADzpo^ep
z>tdEv6OW77IBA}R?uPVQb8Z5bwlz*=6qOL;T~=}ldRGux*9r3!w1Yi+wMz?%ks5V3
zOq30w<>m6wCJjqx$9~X|d3oBrbp1VBAShc?<th)zE3UKZ`+eHzN5bDXvo_Fl`}Dbx
zL&n>u-PMB{g}#LEzTu<MjuALlhf$FaS}sbk)NJDBOvS&JmaO3(6c1PRnj`ULI5H=y
zr0h0yx#ft@s26Hiix6<5nr&}R?eQ3YUn8Do&fRp|Z(gX^=Fwfw&iHHBn7;K_qgs~f
z7NUl!OG^7xnAAYFan8Y92U#OOXB^2t#^vNdcT0!5)ZE$C2ew!Y&TY}jRD`m!a@t5q
zdHK5c)$ik-r_Iw1RMQQ%Ht8O-rEu8)&EzzSL1NjlxrQ3|W%nnLPgT9>1u2>}1q21J
zHk%bX*e<Lh`Rpoj<A)j9wS<JLU_L_|&>(WfEBZ)*RT_pMbu6(N%dib&_|JVMH_A(?
zR3&y*>IpqNP#UdoGSFb`XDim5d_!{KdqlQ^G-+OB?Apna@!@5nw;6{*@fF3!_CrS2
zVvxc!rLsr6|GApomQ_>)G{*bW7s*7gr8|lO5o(>gyL)}<Q44c(QMzdd)Cg12aO?_R
z5@cy0Znvd1R!NCK>=5OL&Dr=WB(b#xnY+R|`BsurtpSwe=KKBC0sZ!-s!XmUZ&-60
z3j}+Ub!{nnp!H&B3yL21J&>Q>4L`}&A7$r86VLgS=NfgCVz#O;^;A?)$UoC2)Kh+8
zBSab|dnj=xDvBUpUP;N8)IHzQfqxyE!@L?kzjx&18+&KFoo$J7rg9qEo<@d-0#(P1
zr1sqVCybDT=gW3lwbF}Pq>*A@&{=wMaq+OIDAu)A>;V?(eF(1&r1h5~BIvO*=sn82
zm^t2Ldyk6;KCmcxeGT%qTOiX>w~U|Kvcl`6L@ySM#2ELQv>q$-aPfKUDESmx%gy@=
ziUhG*bD#Db-Q|SOh_I+A6@hBc20Zy-EQmn3|HZ}@=dS8&m$Xg&!nSXa;GaY-ZIq3>
za`envbBAF%!gYM}Sem?+3krAK$2XH*KKl^+fFPfDut8Qm7Sdc7r%%oll0bBFEk>Cv
zZlx8Mex<3`vv7Qflu{;ORl(fC!fo=?KEO~-DtbFNL3RI$V&6U$(qomoH3?a!6_%5>
z#M$gFo8v=K=&%ciD$_Jtg5z!73BPnw;E8*HDk*sf1}Rpb;MF;^Wf{S-=aIW(ZuYwk
zy|SmG#M&27%oa5(dOPI)t){MS9gp7+W`Y-z0cDphW8`NjNf+tIi8U6mp&sLQZyIV>
zzC`Ms#)ZAU7_zw0|GvA_;(MBD==u~u@y-C&|Gcx44Md$y#n@rWgi_|-UCrojd<qI&
z5Z@ZeaA7~*Kn%h6lgxM+;L4)s@=iMseUD#Jk=wnL3v;JtC?ofqTvL}kDENrx^7E77
z_@FTU;0_1!^vfl59$8!7oxrc(k@f)0wyW@LoQ$&DnKL^vqg^FQapb?$D3Brs>%~m>
z5iD&$G=)N0ufHYGAN2^Ol^;hRnHJI!1EZr?;N_fX5uIz)P?{poS`SeFwL5o2-*t=7
zQX(ivLyqxFNW6bU-H`nTY>N6Zm}JK*`N@G996}1G$2lDipU1|Akv1c1eA1^<2*teU
zi}eaktq0xNdOjpEnizmBhmmRCGu;CRDD)SUoxj)K{S!v6NT68batkH({bW2w5{e1W
z%g2XbK!6H9z<#CFZ>!c;ed-$;Ow9YRl@9(ISHVZWTAbwL<&_N0q<!!pwSH0fZxl?M
z-V{S$mAH@4Ra8{CuC4l^p2{yR-I*%4@U?Rzl2%H6sYG|!HfI{;Y{4oDD5IAk`T1mJ
zx8k10`zp&dY`b*f*8#f{WkQ&~9hkYgwzkcC5*U#0qfAnZX=w(&<f({XnsZN&SyHIj
z+Y5sZ-%wq>G_h-OaS=s>nuZ2y>>)$7Fto%EqX!de(Z`W4Q=>bac)GC6pwO4PrFr}~
zJ1(-`W*A}*3zjLU>Oy)Jn{+!i^!HcyY*fSfA{8quUIhgO)QRhDMuvxj(c**f6?uVL
z$F9$5$OE~!7?MSWC%%5APtX&pI`*Yc!zyRb<N=>5yVIw`l}|I(^CY1x>GVuvl8hx`
z7>lXJ(U|Xet}t-yrA2+F7W>%jS|+{#y`rk7rdHaWH=ku$t%Nuta`53{<fllw!eR2V
zeb+8}u*B<diB0dcgklE)53RYjeLq9S8O+j{_pFa7PCB97Jj6n~gy(7nPZS!Lwa4LA
zlz|8g;SpE24oysigH=2X5Lsa+gIP}YIUB53Te}|R*|>2dM9MG_Da9oWJ|JRqftYXX
ze8^t+5hQu-*-t-3Cfm7-#M@4I|NOq8)SQtRqP*@>4&56TA?y&)j$#7zC^d~2Dj7m?
zjV&PclQpU*Po8M&=+q+NoJOPZ@$x<&^0lzAkVGD(5U|RHQB@np%s((ZypD~Ht-$f)
zru)9Le=SV)#~>1=z?6AQTwAIJy?Och4aoany?(8VcU-%5%l5nywm!;uP4kk{p3F{3
z#e~O%GRGxY67ymdqXw|0v+W*Sh+U!81cZcefs_bkkfEq@vO`ydS_Z7J!p%&gB*19?
z7EZmA(-I=}FfLUSvISvqaAYI|1~!k(OE&=uUxyWEYqzZn`mAGD9zNWGCzKCQpv$45
zb&ZYm=vU~#$E$p0v9J}MoXpEv_)2N%=Tr=+<XlR=>=-5*kX#L`IBfh9kByWZ(BF*k
z=x9ySLhj;*j1zmdxFJYGPz~=z+(RvhOgB|N-rP)uJD?=MNxuSf7MT($a^M=?eMM!H
z^M<VLFq@znqGIkiiTfg#bb`-*mf?t^nW~s$#3Y;_u;#C>p&?tQ^XF|*u2g?&t{=@&
zr;&isBQe5u#fKArp_7%BweQMLY1w)BPj3~iAq58XBO8*C%wvzYp@v7sBiL)mmFX~I
zC~ka^k-;Y^$;_`A>FVK0z9}<tkoKSSgdQRREJjK~!e_y8edh~F;Iqjjmn`1FkmkaF
zexGCLpWi3D5Fg*w|NS@X!2eleCTFsLUpIu&+x}c7`9mO_R2=`luKvGyTjtuj;!64n
TpYCmcT<;EO98%9yvkLkzi1S`6

literal 54976
zcmeFZcT`nt@Fj@)d_HqlM8Kz@2ndRRWKaS1A~|OSBqt?j3{O!MQ6xx4kemfXvWfx{
zL<BAwL^78kS-6DWM}6JXGd*kl{^_2cnIB6R>2l9G-&bGNu3fw8zP#+kt()jJ(a_Lr
zC0&wGq@h{wOhdEI;IBXNllGwJ-|^{BgUc5s@EIQq;)P!LwDH;{4Lced25;j38o&NY
zBO02&X-E?1l%2yzJDmddsI086HqV?AxgWlB&viA)9e4I#UoWvk^v$hXJJ&Fs+q2&9
zit5q`8|N|kw={npKlbqJ-(UUrtT8&LPQN24y07T{fn$!ZOT~UTSj|f(gbYW<dk^-8
zizb8?I8b!*k_$qdx(oQ;(i;Bp^Ok66?g_n8-|+iun&S++ihh5+BjM8bwZFbT8-C>N
z=HEZQ?(@gV-(S9G{h#^bvjS|#k3a6T&eJWYE$zSXkXAoXqsaMsWA6w#EiAXxfkKw_
z@Y*Zm67~Cb{G_tB(eO9$(?5D_q|F(u!YRLt-=BWlMfK}%OQ%Hje%&+U%-8k5zPiCL
zd29dg2l=*VqwZH89?vD`1BO>0Dg<-t7%*)6^*dQ5X6H4(zWiJE$^XqCchTAwc51$|
z3}N*Ap|5lO!`@_t*t`BupQ;o(TIHHIN#%7qh8>d$eNh|6S53QHHDdkx^;MOXpWobE
z=diLc$j-~F!fQcRo*(a=ovJ=*fzSF)4QX0@tz(Y(m!_2`>)&TD82IGL^K-ZVOuF7%
zE+r$=6tyzLBJ%ysy0+KXW4m2nS+>TQM7mtSi&gup0*MRjcrDL{a+^Hruy%6Zs`8>_
zzpnGS&H@Le+ECuW(9q<~oUhN$ci8#uJE?mjp+V!DAd}JR%Cc+Eo&EL;{lV-aB09Mi
z&8ib!#k|+QNks5pkCAZjrR92OzWU+8{tX-leJRIj6B?3MmZ@5k5pLu8ZFx3&A(UCi
zcB?#%S-A+oT#0sFyINlIs{;oPtf|iLv`*74)~pkrekf=^6m8y=%!&)_*K^PMa~pl4
zfZf1xF|pEAZv(D!_3L=#{{H?u9miN$Don!s?===Hb~XRnspE%lKl`yf-(4#(7;eaX
zXLj-1gOlgUAy1y@D=I3UCp%Eb^1{Ny!=oJ>MjAh|MTLZzIZkw0(eaw^$?0N=bbj}`
z)7tPM*PT0e2F42~wrQ^Tu&1ADZEe-hZSE>|s|{4sJuuZmcgE86G&gryGPh!fb>2dS
z*vd{G&ahhJ)2B~M>*_|<mAbX1B=(efYZ>k1)TX`G{iNWLPvpc|*+}7GJ4Vj@zFl_T
z-rx7<Rj2h_9A>dNBooTB(XH_IhV6?vF1ot9S*K+a8r&C$6XNyD?jCN(GIw6Rdi9?U
z8~(xSF-K}+L|E9tmt9X;<Q6S=Kf2V#UjHNf*BN{wxxI^)-?r}_afz|ETy_J8M|8YW
z#cuQ4QYv~X4tb?M;4C;ksvEa?KWF2e{kn-FZgYQd%zwFj(rlzL$u?iRV6M$#_U(p4
ze{huA_Dju<wsQBac&#j$M0m`#YGxToR=#wbA8(2a)=i!$T@}6Bdg*|$b7rLLNK&*B
z*1>gtJT0%=Q^<hoTkf!@=DE0cV~pfxitx-(y?E);)PrQzG`dL-!t_;(+w*LigE+L_
zwT)-jiDm~)lu)hXUcA`D&TTg!Jv-5@hwE(B(36#YM7-&Ix0hH=r6Ifjyp)UHuR|Jb
zf9ZSqn`c~x0byb6q-4c7AJK)r-D9oU7qN3VX!uuEUENUPLCtZVG!U8jEG~8V@@Dn!
zrG@EP7=-4;!84YL`F4YB?Ch7V^R)0sZ8>I77iTFZfvvd~!LBnyJIPE<e!^4tZ0+ot
z(shK=G;^i$^Ye-Kt*dLE>aT7}RA5ROg`s5}7Qbuy_SSkSIl1PU;Rc5v-}UpgIq`3-
zt60ma<GQzs=kS*}&3s#<Hy#tXK{XwRK;Ce1UpihMt2Umo?ovJ31SQ;qfPjEzfqfFO
zcNT@|I)x)c^|6Qj(o&6UL*vXE;x#6;URfsfR|jiZ1q25t1hT6o%Y>crm(4YLA+ad9
z$+#h2MsRg$I@g2hNJ{uLjg8RyroZl8;In6m-iJI}T*Zv40v@;18uA#|&{CE&^~-Jr
z*^pC1L|1+oj<sZoFDxt&%O)5h=sJ@)P#2Yf-O)7Ku$?iL>Efe+Z<ng%UQ7f|6_xyS
zb7v2{FW5X8l1O@bjLcL^A*Zn`>0k-t9mm>KJ%V){H9lV~WswaZn!Ysa)a@~t7e3EK
z^{>G-*KT9EHuU+qfuA{_>E}1}BCd@#E_v-%u5+VifyIN7Zfk=qn$sgx(yiKGo%5^h
zw+#uiDQRUByY}_X4I`%KnVFv(lU1tQ^x$!P8-};gwvXj?>!wCjot6-1&WODt&T~RD
zr?SQJjK#7=MzLzV#~q8oPZ4C%F~>sI6DPK4igI%|u<7MlciylngjHl;{pf##BH|O7
zJs9OBdZkr;d;Jbyx1;{Q9mzdL*YD+L9UWigy2AknC#6SuE|R>rA9~eQ7s7opDJf}9
zb+_9@@ko8F_bgrzwLRYt_CuL%)>Auw{#N%a{7ZeOQ}@`kjh@GBpm}3rPo6t|alwz#
zsyIr(F236~jL(KFC$`K?l9H18f`!^YgL@AXUHUFg$y&meOWOOV#$X?eXGf$-r22#?
z&*b;--`~iR2|0Z<rtE;kl;Ebm;`uHm#G+K)=WwE;A{Md3;dY<0TtoNm+h^YT(&${Z
zTsVKdrsuc&ENgW$nzikG(@Pdd@YJ|am&d#gWm#yVXt(uHKPMdym-g?&HA);V-ezq>
zj#BD)p;4&IN`stOZqUT*-fc}8dSZQNP8QGj=N1`!*koj6w4P(NlF2VoF;41Swf%TU
zt7f`xaY1^~R8@3;@$L&3AJIQ)7(Sso@KjDTE9j8NOns(*EEbRM^woQ_o^Vo!^H@11
zCUuG5JoZaqVPT=<4@N#{Sz&Tv*lYB#zSmF8I@d@_%7>h)5vyD5DrtGB=R0G&^Jq)f
zn(DoK_LxrfeI!#6VlG}?#hD<x3`Ve!1h0L)v1!w$BZ@XJBztx556u3G=SRH%u-PI!
zUBgYDs(ivUn;^DKGAw^sKhl&UeoX7Z)J)sc7g{#Oys1{9d^Y3LqK$oKk&}kEleF^E
zbKRR%)b5NjXyiCOFY7t3YCQSv1No&>Mz8$JVsoixb=VoJO>Tw$Q{xJ*oes@+a%Es-
zM_#R7(!JRAh+ZH@)MIf7k>iQ|NQZUnOG&SVYP~9YJCaKtrO0L4ezb+Fw0|FmCUbE0
zQIa|AA2+oB<@l{zYipy#^l<!?y|*zaXXuI?Wnrnd&Z8E+vT8TBQex~C48FiK9%!ob
zYuEmMN$lE({d%bj(}P58_RoPY5SeXMDp;DTR!P(3h07A3?{dosI-&6`&m_g0>%u`k
z>zpn(SGv0f*{zK^W=fRhPZ2`5gSIE|Mc2-iUQWV+*8i}xDp@5ZwcjE=|HAO_Fx;G)
zxp}gpl2TxJxMgwCZd<sT!d#t1Lv{|shjQm@++y;td=jLj-utj4iISK&-dRXV$tdw>
z=Cx{5h6}52HHl)#dVTo_2S=@mVo65nN}El7u%2hDrsvd0mfK{rhxIQ=PnC1cRU9U|
zbnxo}oPc<7?`=t$neyAb%Le<?GBY!`T-+^E|5`1^!Q&_Jx>0%L?Lj7;LdT{jOc!VR
zgY}Y4>LNuqe(A07vw(phx;+J+h_fkKD7RsdJQR|yop0Mh%}`2slpBs{nq!&R_1cJI
z!moYomFrchgk2VJ^;NaCDxRJtQ`6Hb>guM%gGNpo9F?@%(iLNM$g)Vu=HthYJAIjU
zH7jJ&Zl~vu-pwK_!871bC+hw>cgfFdDYj)1cdb#Jw0rmNrnt+&(X%2jy#j<f+4iee
zB*|&r`{n-{<^vcec9${`W<w4au<N_VpJP(TSQ{avw(id@na3zqRaIZM@^wUS+<k0M
zdx_~0Uga2an2GHv(&36nzIQG$-;Yf)b$4-b(YM;~`@%pYBQ~aFc}{C~yi@B-60>f$
zacvHu@VyF#^lHw+n$S!e>fBh{OQQ#Mt`k|0C*VS&Ni#r&BQTzvE~lZ-=cWg08xVr*
zr}{`lEbFvBV3?}*U?0a3cZr_OCLQgj-Rw_Fe#e5VPri!Cz;W?fw#bXP&V0@>Yajwt
zv#wjM=IYnm+xJmOA&(z_<!*d8H`ZR(7Ti8Icc85YUW(Ol=1DN|8`bXvwP7Cq);%Rf
zECCPf-GM@%&x$tkmorl5C;X&@8RPOF`4Di~_*1x<NJ-Swr?C%CmZ(#jGyKd)Z{pG-
zD?fV4R92;U_3Cn3-viv`u448>pQ9aQqC`72$Gb~QVev7g%VRcz)Y0s~$Vgx{)f4&!
zHr*vJ8E@(JFx!+3-_(tqmts!;l_%`bV0M;MB9Tb0KYF|!T8)A=R_CfumhNG1F7a@)
z5cvG#h2-7{Y1WQO!|L{*Zt|o~0ngnhKbip)EEWnUN;X@B-PyeV0y}-_yW&SaFIz1a
zzn5+2y;`}0l;FykXWqn?Y8Cs|jlPSo+r5GApwsf=Ea9@4lK}WW9NTfCiYn-e!yrEA
zDdM^GTFz$v<)urP<lzKoMTLZf`pzJ5Y)cte?_`fF{=Er(kH3o4>ezlfN}dAl@=2R$
z&WOqtM##_fS0E5|Zb!V#L6sEMw1)~8DsHS<m)g$~<*tYvgX>}ZYoH`eJl>LRWmnKP
zZ}B=&s%1{u6nmpXpBw_#G1+heL8$xp+2%LmU6z0J`YGJ!dY1i3@Um4~&J%mK*3koY
zPC&G(A=h@j>MFiG=IB<r{OFKa2~W?TeIAUS%d^do`-|OJHteRj#qs<bUbpNj>Q9Z1
zJ{x<%cN6>0Fqn)+wz0;<^47R(aJEURX_{mzAom7_!C3?Wa!m+#+I-i?t_GRvAdaS&
zMwdxnfUuiV)G{(zWZJV${21LvvrO+Mz}INvK?Cj0mwIom+ps9D*<VW=yMfX9Y{esn
z2bCpE9t`XKA3u(Ueah5{%!kj~FbFwrDXg$%7Fp<fN}g)TGE|Y5kN)_SMQe2+;@bB2
zLOX{=8gGjMGe2}bUjn~Eo{IGo9pM(xQ~>5`=*YJ#OXmB6==s|ZNB@kTFwn%dT#FRB
zC{fMKD>t_>3Lj5sU>#OIater3Z0Y-L&0O<1xTnkhNJ|=#b{jYxJ$iKEA^Rdi?QqNk
z&M!c{HZlbRj)l2~72CERIQ@Q5Vg8I&+Yjb&S-y=MH-?J1y|R3z6g+%u{pQB#bL)zi
z=i1w{487%!6v9ywIDND=y9pU00p1sfV*O(1qB^ac;agMZxs7Y&+h1Aby3U%jpYbkx
zUQ;9OFxsL3PoOI?f9NCScz{Wi2iYXGiBZIL2v2ga=H@?1cuR8bDVr`~;($p#b{zil
zVbJ^0*~OV*z=Xw-6gmOh7ep#`bbw)-H*WL=k%$7$?G(F9WPsH;u4+IkIWE)26n=WV
z#JVHVb9vG1bM!g==7YX&al#qDPM`drfA+J9iFIFMo3!{8E^v<Gfm3){S?~6rTWjFn
z*OHr)lvq+Mjg5^fdo^EQd#>X7_07%0)rH!eQO-c?>w<LhZR3Ec*sg~WXyq!sQNLrM
zOm~S#*&{RLBBB%E3%Xr_<g5cVUSHGCntf98=$%OS(_=DINj6mhtZ^2v73q-JboYje
zd3mb03q{B_#7I8KY_|Y(jdz(IAX8y7KhpRb7p5F57@YnoUY+c%pcZXEsyHu|Bbx9F
zBKOtb&I>1eI>KXvFJBj}>H^}r1rmkBZfzw<v=))am(i)^z(NRLY)(!+pt>cCj1xB2
zS*S)NZEj(2Z*Q<@N>)*LI1=#BKYw_@Cm>N(u6&6N%q-95NHNv9_<YNO(-Oq@UE3Lj
z)e+&0Lq<;AhrLI)lp;+A3S~_lLkJ=cQL^NNeTS<{rmEOokp>3_1So&wza1jzU|u;L
z6ciK>{A7-$Jen+o2TA?y3*~JC4H({pB;vUj7bzJ;dIO3=uG?ciLN!(Wd1s*$!A&3)
zX#&DY!huaOtay~H%v#i7KV8d5X|u>^LPX<no3rH5DNuHs8&%NM3`MdPD;ps=JlAfc
z)?4ly>;BIZwFFrP5Bx=2saGkH@*MJ7QdkAJ%5j>|#mOL!gd#GHrd$g(hq1OMx`TPb
z@chN!-)$}crr|aF!dwejj<k;OlWni8Qmi`*e!hQ%pu-Wt1(lriSoy`du@p9y<RRQt
zATyB^3c5_ah(r>8ukla~k=7Cb9*hgQbnC%0sS>0XtoBf|o>vpLe`bX`VF5%<+#kUF
zb3mgcJn2Y#UIrbH=?-6Uc|}G4l9fe^W$bI{X(OMK)fG3Z?h+k1Bb5Z%2>Y?z=49+O
zfuCe$W$#n`8jE+OP<~Nn0n)d)%HIqA^@~KJIs1`IV%_hr|6>H&r@x3NKY#vwh~8Lx
zp5N^A@F3G)u<%C9-~U5iF6j@$hxZ+J{JzQ!|JV)xYbd+l7yOSghkM@xg<Q>RH_B_z
z#eS-L@8(6Oj7$edDH#7v7_v)=q}!0eTAN=fJ;J#$LGBP?^}}C|lAi~($?$bD7j~vc
zinv{fTe<W~A;-{HE%MBGS8-wYtdUjT{oO28)_Ihh8yJsYe)i^o*}_!+%l0t>f<NTS
z+C~tbT<34i^IZS-ext|IWCiy5F=xThk+_6}6x;qP^Ui|YakxyvYO6ke-1xef>jJ{(
zHt$&aSWdli+F9@(FrH!piZKY<R|*<?oeZwtOL^RTUb4vX5u*ql&%&W02e>44?{UMf
zA{SeJ`bCP~Djh{$>I1DILm8mO?m!QTWZx<#vU9&#@HPg)Jz8pHM<IZMyIT()gXc!(
zTGFyOIy$P@S&d}<gsR$w3wLu@^i~(u)F;8ny=yame{ZM0jZ)CW^x2iE;8OK0_=^|s
z+b@6dTA4mX9G{WT&u_!|BsDfF^O}A>3-f8dy<If1PHa_M$Z0%h*B#E_6y-6!8HZk9
zz94?p;OaP>e+#&MB8Ah;vra>pBV53K?Q1v3ks;PbiWEw8>tLUNB9*`wsvvd2l2J0e
zmQ%_f9@tGD^kO#jQPv@@L>#&(uN4iuftrnl99VGqx3upY5qxV!<~u;&xgR}tEL0)(
zLI@~3gIOefWo*GAAqQ?V-7f*h=-nh6+1!|<WXNEvop`VLlh0muDf={MUF$p{@^h_6
z3_`{qK$@nidn>VR*hZiEs0YjS$a(pRWvpohT}Dy6bA62D2Xb(3C!^QWb*7J7==ncS
zET*QW5{tQw{<vy$sz$aHJq6x9&Fb#<LyS3=FG}i`TVGj))y<s=tL+;YxSN~CmC%-j
z*r=b^jRf8NAy@gZeNgi9gOc>Z@q$dlSz7*USJWNUGITpn03=@Zxah~o3wm|4W;0@}
zsx_D7OU}AgKY~%z=2WYEg(W!qL5XxPghT7q5Il*Rs;a7bzYb?Gcmob>c(AVPM-v_R
zO!lQ%7d@}#+}tAf1>0P+h6{kJqDGrGZ$?_C-SzxKu8;E=^1hQtyW)+igQPB9x_6!@
zF57{kYOw%U>Z8vbhkGhc)YbaE8s~GbYqW6yoMe<NCNmFDRvbF1b0gvYCC?}-x5J1s
z$-mQDO<(^xc)o#85h>th1o~cq^D%FT_eHSZqiQ)h@ME%<FeV_kIKascn~<U+;at=D
z^H`m&nraBZIK~cTTlpkJ;xCb#vJ5YRSkoeqirDIc98OEDG!+GhvrGE-?$Qc4e~$)4
z>YuLodT%Gw3?-xVH&q9_LZU+;osu8lHtV?b2XZ~+pIe!ZTD{~COH6=Y-g|jm%D=Y!
z=vK3j{s6>)iAE1ME@*=99$h=v+r7Gym+L;)YEp5^zhS@C9*-_7?NZO>dt?#)cYh$&
zA=VPMe6Df|2+T`;{w3Fi*^#CPrm1fwsML;O`w=ia!OSAaBu3hDQ<#U5G;Oh<!j))#
z?0oTpxp=btAaQqr#~t&vt3G`qgDOoA;Wi;6s}za!gc%n7r_~^AN{iZxl>3cswn^PK
zs<Q~(PTEeU3#M=c#NXT6+5&L*ITi*+M5KYKT-1Kb*KzGO*1x+T(qm48J-;2Oj{xID
z38a0D3>44f{QXLbB^G+!w&y!PK0BfjTx;Bbbv;Td^WHvK!A3)KgIj^8a6_3GNH>t|
zS42FUaSOPC$jnzdrJltL$k$@%dxn#cN?-8L$D^zZy3S9pT6kKbEF?uLknMth5{RBu
zan@Www*#bj>~+?*{v64Jl2Hl1fRqR8U4j0x+Q%;VFTnWL1x+)?9B$mP@wtTIy}MIC
zMCTbJO;Nir?s<3TCyM%~qXe}I)di%dclK(%?sBDYq>RJ#C342E(F-}&D5q&Q`SkdS
ztsGY+xPC-@rjIXPym*GpdLfNcLLJW@2@!U&RW|gwptHI>;gx2Kgn)Ba6s*9GsG)J%
zb?mCCpTERiK1xzaR;~w+(FhhY^HuSWZx0-rb)5E6=kcT(PeW2c^0X|XnxRP%DOM-Y
zE0E?$hh1InF}ed{p6;JN>Mb>86MV|@OoMq>Q9k&Ob)sy=#7~H<{+kbbKxAY(@Is<i
zp0(>>gp)mjMrpfc$LspG?w=%IsDPbu)<$h9?&q3j-v}Rq;tz2kC~0|rrmYe*__t|c
zU9Cn~5)Xm0=>-%)gU*IrF#<x?e0i00-}PHxfB!I!mNM+semsAWO+Y}yB*GzRWiGFD
zI4!Shit21`mL37@I5M0NMP9#OI~rbH$8|W)b@Ic0hov8rnTEbW$U4}CgtYt{@w(H^
zPG8@wk$HCN9DrOi-Yl-K?<$fiRA(H%Y(7~OT~kwYqd1xQBW)~xO2NCT5@Zy}Bq9g`
z+PIEpRpg*pP};tVBN)I;R8^8q5J-t&Ntkpfuf<4^mi46Dr?uAwBY>z&?ru2%4^(go
zEFgf?lRvl6?jUFG!yi5YFn8UyZ_l2gvh8BZpwN^-niJJ6z0wl(1#m<Hro{>32k-ba
z(Z*tFhC#k#4?E*7bLLC%nm5Y3x)yL2&nOak8~~tJ<#K?8S^EbqR1u78o;?>De=SZd
z7Iw}7t6|ZYsBrj@TJTD9d4!PDT%l-(opvLFUh2Dd=Shl4RHSmohMDQQ2PIwF=3Z8F
zDj`p`pKVgp60z*|T3wEA7mSb{>&RE~NAhL?FLxxh<(niN#q4Nyo#uo{#mE?v=FIV@
zC}1hz*(SA`*)xj1ISJ5lNyetbQE3f2ftiZyVu8p1ro828wMi<GCKaCmKbvx|@ql?u
zDq@#9#c8a~=$Kq2{k8LcFyGK_PipOirw^IiV{yiyozLvcdy|8~)kch<PotmSV@3)&
z_F=Z&rt}W)#`_J!Jmvp1-_AQRNo!bxFqvk12(`yI(>=pnjoBu0rB9tep#I}vsiuAX
zj==SA|8y@qS65b^GBYzfOc8RKx|*e4R_sWmbOSXZyEDgga(J?FSRZFyXdnndXYj|J
zip{;Y`8Dv+?*uOrS#7r<s*DCGa~`mzqGb2Oa<J3lI>Pp`lPBx!0m{D40TgU@5f)qd
z5u2n}>iL-;#XZ_<w-_fPAA+Vj4QAsEs-bME6<LNAK7o2D=Dv9?>wRVu3mL_RI}RKV
z4~dC3CjE688{3X(ZawS2bp~i#>djbjdy5|Rj@zT<$(bM=yX&8A6Wq3UnYu^03Az8s
z>|PXk+5nr?>h@ZBt<7mcMVycnE>WNV%3J;nxs3)FVtsteA{dwjcklHLSf3P2M@Pp-
z10Pi#u*6*c4?C?*Uh)zybc={{bqG8z;yv4N<1;f*30C<P-#-aWm{vYMyr$X2$S4U%
z1DS%?XIIcCLwWNG^^8WyUtb>kvhjV-wILjcdf4-U9Bt+R-pDoU{#4(c*#YXh4g6A;
zRiXXxk-T<PoXm&e7T6p5blBC>l|f(Jp6m0VzIdPrWdBPGFqYR;=w#DBFc9P_*7Ho%
z!}YVp89qKWq^AK5!w=2r-#YspXal*R*gXAa-FEd}-Mdp@y^~r>IkaEP6M*d}H`C5%
z)z&yz>?HS@$bUvsGRVkx)>?ZJo@wlZC{imOkJ%<LRA)c)$IFDp^L06wO%z}Y%QSTn
zG&oCs7%&LfzE6-w1_aAcO?9vDo#xkRJ07mi&CM-dew?&j^v9JDmTb1mh0X;3UNB46
zO4EILa|<%opH}10Wz_*H+<;PMmUmWkb;*w8L-`n8)k}2;U<A>w<x>8z_T$HT)ZNxu
z+kmV7$^XEuzJU9d6fRfS$}+f<J31i<lz!-F1fATE)a*~2G@H9u=J+h~Pgw0`i#Kg*
zf=?hN93!^_d4$X%@w&mko3dp(q}=Uc&ZW6{R?<mn(lIWsdg%zkCVDZ?4pf4b<mIoZ
zX6RaJ=9uaS4wKWgDqX*P`BHQ7kjGV^%YnS$5kOA&DnCY%HhLg@7*_8!{u&V0(kM}-
z%{mr#UNtgW5Ge;^Pe&TKd(ir?mTk{nzh7XB3=gMI;kydXLHgXeo4MAo8}b~;lC88B
z_&$HUfKmf{tO0p0gM#w)!p`zB$FR{+%WSw>JJ4eq4jk&4Z)`*ma;F924_d!|d)3%j
zb5<Zi)~>H|=QKQH81O()(uNHCWbb+6py&vJJYPZvKd>}imseF2B_{Uu`b8~(g*5(m
z!waKzNZr!}>G-TI5mklkhCUzewHHh?6ty3Eynsr$G@el!_^)mbiRO2+Y@}47;0r=i
zQ&03d7W!8ApRVvb#0P4QJFmm`!N=<A=~ho<`Jz-gX=xt7Rc-+4Q=Gxo{1LKGQF9OF
zF*68kFLKH5Hq<C_&sQNz-2-4K&J;RLyn1w$oxOSqj47Ev;!IeYx^Ow|beG%20{zok
zWA2QiDWAPcnNus|C|RpLY^sJ251hJk!v(e~ZEPGbfYhkT6S&kE6t{6-<r7r~Khed+
zZozj7WJj*@XCTnk+gXkt4FUcNL;RylXfT5iL;&n-(>i5;GsL6rI-7|zj{Nj-=6qg7
zZXfQB7<mcKfAuBL=X<x0o!LsqbIQL44609BDUv5&W;+yo)~A`wjkbz5ml4$}6simX
z-m2&gQ{BEt3cGxHk&tkZG|=OHXilrV;XyH2&chTfaDooPHzRBANl4cxS5v9NEiGh3
zf<)&_--CeC$r`H*p5NbYU{bXqJ+;4iOcMo6o?va;`zqETna@#xAGAKd7IYZ78W;g0
zu=})iUOP@x3)?&>6)MO6`y}#_1Ag=0cdpy8ji;P8s%Nt<P{57rcdJoUMIbsobbWrf
zp`vZ@_4Qt<B0qm^A=oNC|23Et(#V{uPK3ClkC+q@p!GjIdG^fI-{1dyiO;bNfPago
zou=m_&rVHErM`H`{Pf8ag>Qzm*n?aTxU3qO(Q*(K_0Tli>fn<nUxBf14~?$SJJQyU
z_;&kPDUl;ucm%SkoR_8VWA*9}RNJTJB$%s^sD3#HDai%@;m^;-lV15r6pps%)wPu%
z@BbiLR@@2qsH)-Rm+sc~8a~D|@1#{BfI(NAP2zKgqTNN2e;6gIMTvSWk@pV&VUtr*
zCqhowv1po@s9)MHw)9!k3wd_513~(Tjt#jW(|toY+yPLzo1C|=-(CGj25cDKg!fC*
zp$rs#9s~lesJgFs=5U%Ltg9}77C*tpC7GSx(V@-0f}AwawHrHjPi#xQ{3lc!Q~QDb
z-ZS5YH~%Bt^e8LqN0alJ>o@QFBh>_UX#V8|>CG(4O61s5LIHs6P_VRr*REYN<p*sl
zjfETpWJ7sa`?vxwyy!IpzAX1UbaJ>cb_|H5h}Rx)mth7RZjgX+SZzEKn#+sbS1)$q
zsxwGGF8L$iCV4ZuCe~253?QXeEOwn;N>2f%MIBa(w24wbWm<_;1Ti&ro-_FJHgBe(
z6wtHD%1QomA~?pcf>x>Bt3k)_s_A(&(RKBK0FXy^DCJJyHRy^YYRw^bBEz!eKz(+<
zmKY=iDEuaYO@u@VyqDq|4|0Z{-u?Uc{rj9=W}^P6RSmwp5evM3hE}+LS>}_&?;XZ&
z`d{^M3{Yln>t9_iT{YpzP|rG#RM_#&OXORnxkX4u3@9R2OJ1w<UO#u4;7&BR%~rZA
zJRdjlE>o};e~(Pe{oOws{bgk$L64>wAU#}hwP>9d*-?ov(*c|k;Y>wWOT1P+3HG?4
z_mL2gzqkWxTczOT{)qA8G<?YD{B;f7=vh`)R!umeZfd(*WnxZF&g0p(F-MEmo@)|E
z<4wsBLYaH4oFWLhHz9Zauo0ME*}e#nZm_E?!l~<k{j%Q5)P9RrH{pgD>w@9<=vl&S
zHA_(EyA>oOCzrP?9kk_U0d99Q38qN6ISsE<Vn`lA_7GIyg$oy2NRg{6^QEECPZ4UD
z=}$s(fW{!A$P^srV0*T6I`+ac6NYqL1`;9Vi(4<&_nlRUWR^&r42zB9xxcaQ*_|!`
zN)um)mLeBBIH*eis2-J9Ga7~)e<pvx@>4<=9FD{KRH>cLy}kuVf7S)fGAiXEixZ`Q
zjOQiKfKmF1>*M1!Gmr#;y4Gseh?5FT<uZSuI{|fys$x3!hDdd8G2V7^k^9o!Yi}Ma
zpS91|4JP8+_vB(D;0tp4_Ce9y_A!D3WgbSbIXTHC8KZ+El}3we>^r?tFGZEZB7bNw
z(CHwx@Zviw_*t)iNHQ`U^{*11ntDbJ_V=41cKE*_^jH%nZtxWZuSfcVr@8&8fiq&!
zItqEj%k1pjs~>k211}SF;FpGmw9^Pc4e&h^^BX=i+`$TdeS4eGra@a|3ax=4#B9q!
zv(|an$`j{hNB*RqOFh9QS(pwJl2WYXYDU&5pY`}Fhe_AQyXv#H!h_*<x6<=kEmbr4
zCP?-^<}I1}pIwWd>h~}U7r7lL6lf>(6zlJ?96o$5%6;m7T`55YCPSs5&P6b5$vA*_
zw=pEQW}8?b96>lVKkPdYVaeVWJA@k}+iI}bZuB19UU3#jh?#ZhAH5anaQ-aymo?PA
z*6+Hh8}1`kd<>_%du*uMZ5NZ@`}Yz?#>OLr<O3B$)YEw!#yd0+EL4!2%pkN=Wri#}
z3!0?fiQz$yny=eFp{v#<a$;Gd&@nAno5v*|^bf@qXySKmdzS6Q31tLzhX|LbYy^`Z
zjr}4|zB2g<@0y}5s@@+FPO&#<Vs%bs>~^2_B?{=^?9G7Yp-qdjhf^~UxhNvVov+8-
z_QCDQYZM;uo|uR*wfY==vrcg0%-sC@i~M8z%zn`*GoV7poZKd^>b)*@FP?Z1Ln33V
zy-<fBPg&)4?#t{z7Qq}ba<dp`By$86`j?QZn2StRG7(M&Ivivc-|T9&-Ntf7n=6Lj
zfr%ktG*NCw?E-mfbT<)IUb^-#QsQ(Q>tipb8OixAU8+#lb->1ctvP=yFWhDR8GNNi
z<$+JJhr@LvdjckfKQXYzd87(xzVjV~TxZrr3^j_(S7D+a1$DiRaXp=e>}|zPvH5=T
z;;jEzK*>e6P1KEl-ZJL673dWO>Sk0KbCCa`L?;1|^BK|-m10*1aD3G!2Pdw^lwM3O
z>xnpCF!SZ|?V#B$0$+$?Uzv2k(H`ZTyk|~2T_Q{CCOP$HyrUbEe9wPiBLOWn5XF8F
zk(s^hGPn44jlJ|-cC`>_`7Xdn2<dXQ?T7YGI8O4_h$lL3E_dU<?Z5O)jXXg=@my`&
zAyInrnXbWNWDla0m<5mV;aUz7#Acg*^s2!K(`+Y-re%}n0#O2;t`pP4caL)QKug=U
zcuxgIMP)z$Vu5^*kkrAaXFvk_cb_9sk!OY?N#?MdfKBVm51QL}=oOd^e2jG>Ey&&5
zH3{VMS~lZh+krR6*&2Sz1*pYc=cuj*dw(n4sjw3{ND9c@_k7QY%(r@_eC9-zkp2$e
z3dh);b*MZW95oa18kGYL0g=Hb%{=HZ%E>a&JZ(7S9*u0~IQR<0Er6U6-!tHfZ_GNc
zt|>s;_PD~n!1e3R4Y%ehH}kcQyQIE`neJTfeT73f(vhD{C~CoXq#%I$%WmENI4a5}
zaGLSRJ8IUTzdC&W3#DF3SC+?1Am|=36D7_MWETUHv~)mq|E83|*g=(?ik6o~)yxqE
z-sfk(&2e@kGcq7G{oJVn)MZ5gQ~hN-iQ?f;LOo?Zecoe)#C$pKV9a6co86$Sg+QZo
zL^*Bo$|41~u(3yEE^(&xjCEU1QuoEC+qqiDyF{3(?f8Q)_|j=qcWs=#QdIYVMPX=X
z+Qc-7iA840?PZ#Q&N62J2+^pEao6WNowTYWExy`64h)P#N<!Eqd``g`%a$E;t8&7m
zYr)n1+^J8*x&}|R{Ae=rWz}?mtJ07w3UItfRG8kg>?-0qW!ZAdVgV>b5yhzd@zSBk
zYb7B8`J~BdC3pH`o?5VpcI8?4Y$%Ek4=ca>o37Y}i9t?PHHi0^6`?1wXy#059s-A!
z0D;mUsjJ_6%0PAoF%xx?0!n&e<Lm2&D(Tu9pve;wM&V%J3C2V1z<qV%g-?x}^ye_^
z0#@^4UnI7vr6BIeZWH>ai`))+b9cpxMKU{pBfQNhj>|P|o=i?jXM5FE$fvK-{_ZJI
zT<pdBRn#!THzD}Ain0^MO^92G+}j+hO4KsIRBBLxXvr^p2=@rLAmuLo#B~3Jgk@r6
zmY)0Moxq|QzR|l0zUzDo8B#mXPs-*54Q^NJD%*`pCP(UXy)J}Mi`H)Wz4bptx6dx`
zxz|3%Io*=qC9W1QC-^W2V%=nzUt6aBZGz<TJ;--gy2N#Q<@zA>2b<K#`#wG;@8$;$
zsQa1vI+aT@g>z!#7IBeIEdLE3fQT(QHr-vJIRj7|6pSRNyz|tyN9bCdX^^YVSw%fl
z4vMm=!cW8Y=HI`*B~#^}ny-Hv6l6SWubpH11ZtLDnWIFmF)M*0%%!Ax4P8(?_6;(8
z!{Fehq@^3*-Ps%nuSh6dj~<nTxDztPi*Nq8<#f7&+d54QSr!?WUY9N>D@*3c>o`Kv
zEOyPsVcC;uDLL55F4Q4$Re@mUAs4vys1BMef<BrDuF44#F;u(!g{WP8Ti(BCkGf&l
zU8!&vmhvT;(*wg+L$>)dNItzg=25?Wj>=AcOX=X?pq7ZZkmD%rOU8+*m1Et45pBnn
zQ?c~{_U7(wF@A$?NSr&Nr6g|Rh0@c{ffqE|B?V{2pH|>G*8R*Tnn0$I5<HpN+6r3>
zecMq5wxr6B?UMpDPrF`K>?Qy36{t>%kQEYd(fKSfV6N;E8zn`>rANH<!xMJUp@X|3
z2{svuhIh>a&5->bp9FECPTlt2jS5**s<eaTJLKtv435wdqXOJm?tAco?|z1=pBf)A
zDCtCdM_t_z{SaB|mQ6qG@hxEP)?ET$eZoP6$OXjz<jO+5+Ay!(mzn7!*lKR`#^WH(
zE<6njvj}8I4hI*^4Gu4D7|!X*Rn(m(4Q8RgElXzS=FV<e{7Ly8Jy6(bExJ6TWC#5f
z#ORQNgP;DCW8K-t)_^Sq#Ox{->buUVSJGipijsf4faB;hu5wzi`i|orW{dL^HfeHF
zQm3K8{jQ}}=s5O}*$&maKRcqzdNM~sQSfj4<^rgacADGd(~L&mwVv}9ouHa1e4n5?
zOpzw?IFROP)8meXwa7MV16Y-$QMQ*Wik$8rLp+~nZNPpI52gfdToc4U8?#Y{;)YPy
zz#*WoZKJ~{2tUo3L+m~Yu$bnX64ccFbQv$tA3YnGJ~pOlHA_bdw?d#&0X_gv2m?I^
zac;-8vaMuK0Fl1zWo(7}rw`Ea8qZC1+aO2h8ff%z1X(?eC>;Xasxeq;2r`lU3KhPM
zbd-NK?nW|-Otopk3aVexsFR4J(*lejM<Ky92;$T+x6be1$MlgXihUTFeDtw<c4z7m
zlxGjp#C{qi6u5bE;Tjqm<<FGn8<8tXqn5frq&-lsn+F0BxK^H-N=O|uc*uo(Y--`*
zD)f5NpqF!(VeR^;5RPX@p@#6MRWQ6r;OowJ*P$??CB=ifJXej3NrMV?pmWk({}@q(
zs+%N;<N*{nPJx=CwHqnn2MytZje1yXoLyB6>FpZI!@l|aLGDZb2l%YDTPpg^<h-K1
zpt|BBs&pEVi?`<4M1gJLMrg!4Xnv}yIt`WAX(;<=%)(&9|8z`1(`pph4aTfx@-7or
z*}NHc9Tt1hFQ_0LNn@o?Hj-K64?cUz0+7u;&R<=jdX&tI%)9a!`drmvB(%N`TO#XR
zVc_8hpfUXn6fX^~z3z~5Pf=CqR|e!Il^)C})FORepT^R`tcm)>JJDBoGX5(fPcD7G
za3pe;(yT?<u!Z)k(;<+7(JIF1K=G{Zz?vVPx5;bw_!M0FM+R5<Lk6KUqlU?e8@nKV
zp=y_+sCifqJk4BEnb7q^BZ2<@26Ip~p4cY$lBY2R_x<4&p|?nzMT^Eczr0`k0ZjMJ
zX$U8e*PB!mYPcrQ{d(#Yk&o}L6jj3;Q90}ia=<sNF4TG5eVBzb))=xMG8N~N<Lbfn
zib0N($3x$2oeLFmO79jdYUe+BGUNT&zDKC!btRWgGlhwDZPX>{cQ)hhAW0NhL!m!o
zseXU_0iv<i$2Vt>%zA(YakA*dGn84^L0x502=_}(WjB-duYta#tj&gJcM;(>Ci4l2
z<PzBdCtV4vmifp7jA#EYC1whnrb+Z_7#2PHn*j=<2x}qRATxztn>%&tOqh(H$lNnv
z29@~bN3>k$ZHgu@yqP76Tqw9miTtUp07dl^-skFnBP(C*dn#v-t{cg#QT0A7Acz4h
zg6z$Mh%|Pw(-VlE-1`N6Khq)iI}Jgddsf)bTmt$+Ry{K9Z1y)oeB;9d+)J`|?c={Q
zx}9!$A<>l)<Cls1k;iSQS9&aCDakM^2eO9AUak51i-(df2Xh{#eBZMFTP?T5d2rt-
z=Jelar!&mC@^&pLAwA<P!p&8gwR@$3on}z*Nknq7#t=Eyb5N}3$^ER|2tGG<dqi-8
z<^z{gID*r*?X@2qgE@>x)G#o}$e`+F&Vvd>G6#Z%>m<0Ms+yWD`~mk9bU<Z}I{g)L
z?bG$+P#WYNbDWNh<_x$tZsA?F(_VOrD8QEe{m<zuZ)iC5N`(6)Y@hrP6+`pGtN<DM
zvZ#+k=gsP4?(iO?5_KEy1x=F3<on&BC^jbL`2}73<QCm4i;fSQ(&c@&Yu|%nlJ}s_
zaRfg*qSH*I9v}55paaeHL*_xVSK{IBnjfnKM=l+9ruHZAR5bmG8|G7Pofih__cM@2
z&k&A|d}X>_9+19&05G{0G?)z5P1?X9CV%v0wL7EuTmp}Xv&bv!PV-3TZyQmCVJ93O
zmP;A}qZ-uY50GQ;KN)$e)#i*kab52M!pp_ai}RzchP!s}PGkHh@}fa8IAU(Y@+}Q`
zNCHxfIu?R(yAA&m&dc*2Vl|5~Zu#xHejs+akzqEZsGU?o<(#+>kd9S>{jfp#BL<6C
zHr=|GVLqR4^YQWJDHk`EEKOZ5on-)RE*;AA(VjxCRZdd;fO=F2JZu<FVd&AzK|ee?
zN)rjznD`zduMlLkPa`9(p|`h2RnTDH3H7gegM?T2W#)GN{x#acP0Xj%vi0TTEX$V6
zx59|P@xXJ(ARQ;%4Y6=Y7DM2CxrQcrEXXyNP9yP^t6X*tJ_KA;`7+Bo_L_l1VW%-j
z*#Y3l)4+tN`;~Q|bY%=F9$AE8{Mx!6Hkrab1eMSLxgbuV2l223LyhF!9Jx@hlk*0f
z$TQm-IgbidycNbJP#XsgvNnjd?KWRWGZyWj?J5Eu7n-upz+0Vxx8noyg=oK%Xo*<r
zJ+yiXR6Tps^}spm61rAiebdXla_;^-eEh^>@qk>Uu-VFNhF1vq>1Uux!%$Zb0jY5i
zO=aK)q_HA0@D4=bVNVWUu2_HTZN6}|#0d}3*Ch)B2kojk@}A-KVGtk?W-&cqy4pFh
zdrSR8)-M%+lM@=<r9JK!VT{oRq*KQ(@$FZpB{-+FjY_ERjd4E^prPp>dw+j7`Kkr#
z*Rvs}+s^)g389D^jns*iiAfxkqL0HRSo3j{E%o?RrGq+M>R|<4C@^R*u6v&Wi96IE
z;>jr1qMzpg<r-eJV;#{Mc~)8&M~8r=z<3D=JmrG)e{&MY$^V5@m&-+XD6U6DH*D5f
zqTTYn1k%-1l32Ci&EwaO5zL%wx^@zLD+LsXp94Q$cyDL<R}t}3fBu%N$xnX1{ondD
zMgCheX8r%+#~XF=hs4Ld|46&$|IRN~@o}Ir@rSKd4cnLV+{Gb^i;E+nkJTFqn<1SX
zk4loFq(31YdHQsBuW1YmnnBLACv}^HF*Br>nSp@fI4dj3pXi-K=HGiSh6&$-1@(Uc
z__uf8zH<JUq0ClG@RPyJa2LoPKj0?<N}><oYXY7<J3ibvAHj93e5d3^TiciLAk3^M
zPo5m;rqnAYDISfBkC*a?5D7Bs9eD3v>BSStU~|BAUwv2)X_p~`Y~zdgcrXk~Uf=rq
z`YOj9D~JoWk4eeO1~K;!4p#SEdyk)dUpXPDv*HLTcqsnZfB_~Vit-2(?s;15kKMa=
zrHZ{_*mkj|_x`?#UY>I0mfiq&zuY5-5|}Ccoz_lwM99bkBX%~Y&x6YUw8<^}OVS^T
zP_*OC*k-P~dhN^CPTv%!Op=uqWfFY=4_SAw?nqdz<Ard!;l`{s%U7E`MB~0iN$#E9
zpkLVOc|p4{p|_i}oE9C;HyXBy^ZYU=n*T>SpMPKbKPIF6-|fY09|Um>4=&_?3F?k1
z*qqmy{w`n-$)8<JkL|?6k(HT*2QOyW>N|gRoZq9vdhbY&^)?Fo;g>l6j&=A&Gu2eg
zxW}{a=x|ZILf0<|?Y(_>O@BY<|G91Z_mBTyfA0UUt>tefm#|2`v;cTYqDTGzyAS*S
zy9fL!yk~~S3$B^V_pLEiPgV?$8X*6^K2JXr7gyH#Lnc6nx!O<svK8Z2J+u)AK8`sC
zyKNbtvF{J0>c$d%fUjt^iG~rft>o&7DS8Wt#P5j8PSnLz1+rt(K$&Sw1vUFP1ia{H
z<9c|^wP>~Uad`NsohSP)yvS!|^$vG`b|sY&wXBTHD9Nt*t7!ilb#&Vjdq0wU(gtx?
z>NcukXmS$uy7d0m{0bbi`$~iIlk4G=6FILP*{@K`lQ|xE?o;ivXx5Sx{S-5Anp!#$
z^MU%BZE9gg^p(%j>Yavfg>m8Gtj+0sXwA~!U1U;~>lRNBZIqGZtvq@JppOU%Ja++a
zQ2UkfS5{X~MEon~i8LjlGYWhKGYR}K_>OzmCF+$xzo+C$;Zk@+Es?KwwzdX#Cyh+h
zUSGFD4?gRMuLVh{d?rIFNJ1G7yd~#6ZPjJGOTgpDe;Z2QDY*z~TRbjCQiKFZ+O;*<
zduGO-h--qg8n`ws5i$h?T1Qxe!I*b+bkJVh!+?|w>`edy=BG^_egK>eQqHP<y{VeH
z$xUIrKM8DhB4UC^K@?>sp&AF}CUL*l1y{ztE!3b!VXs(kyZ84AzE=J}7ViH~9jHO`
zeKpHzuty=#X|+O(<!OlJj<wIvoe|%uyz89NZi(m<FLN9YzhpJosUdOmd=^`ES*+wu
zHV2nP({m|jcS>liAG!N?=-+GN*00$p&%E#5zQb4Rt{QuKeXo9YDTriytXH}#gHqMs
zQzJ0HEW%<^{?TMSfBVm;y%BZf-?14qVv=wEog?DubK_rFx3p)?zx@e6Sl9mR<-RNZ
z@$V>-uL*zsi~HWl?fiEt$$!4_e=Y@)g5%>qt>S;$0lDR&b3+3ZEvIf#BDf+#;f;|7
zs4P9QMn4)FLfT``5WfRAIs*A}BYI;o$br4nlR7rinw@ZB--BSkUz<cj!^U!DZ5QZE
zQxI!vsZN3sjAN@vm`6UcM4iZ5My=Hz955JA5^`cCbTydG{yTukVZHPli!61p%Y2=-
z)f_};0wG!<1oez#VId(&!wm`5zbYzpg7%4sgZ2Y82Z$zX^kg&<VrRU-ZQ=OuJ9%Tb
zX7_i3<^X%-v`R&n5#vN57;gdkZA54KcH!?g+?G|;bmAa)u|SheTfSYwr$~{MXU}Mr
zC`2}kj~mI!vwRwM`PyJai<!;PKd2_m$jF$E$B^=e&T*P9ZR@XB(o`u?)^$DDe-fRK
zdj5?N|0(9>_XlY)lR)1mXBGT@RrHZu(XWWa!OTRv^}YvjjaJ~fPLLMsyjGM9i8?p&
zaaMAz@wTpHa5erf4vBYs`RC3Zl0U>k=qs<<a%=OZO*v4%o^BsT{{k9M)P2oUGMvZW
zzI{7xxcTb2bLZB0gr7Sn<|(_ovf=>!Qg5{ix{vRBHSbX~P26N&q&Bf><3@$Y+tb6o
zHK%<r*f?a-d}_<Q*SZD%2dlE;;^O_b`R?kz^LxC;vRW;TN?5)-eei2A&;4^WS8HY|
zVD0Mi`ANgAeZ41E!nbVQ8rU#AqtDwl-OwEKE#vLY7e6MrKX=2?%QN6PAtLeT^rkmr
zT`5PkKWL#M91W~!cdfECLF0~(uWy<`+`#5-+vZ4@R2y#Hy0vHL&K}BXa|tVfPoF=_
zN6k?F+PwMo4Zag6q~D5`SesW{Jkh7k9T1>nWE`jLGXEz-_knq6lX+m1`K-eMU6U+z
z^AC18XNvbV1)Vy@%>1IG)Tk&fUbLKjgr&t?<=WPweFydmGbSFQqoG;S`noEqb2CQ%
zxhZ4U7c{fZ+eUi|{+tFCS>?26WX?CmUFU9+u~U&u9-j^F3FYw|%|qYG5Z3$Kqjl<Z
z-pAV7Kzo5LoD(U}2rgG_#W}=}&%E&x$`2~3jr1Q%+tBt_z4g_y4%9o$Ix7JpXn&|^
za+Y&;eoei-K~GPwYtOD--x$vYg@tK-yB!?*ZPOddaZtN=u`$unf6pJUgODA-smXaO
zZ`@FBWxp*elz7BDsH;Dtu08=_zD7t=e6l$PT{_757hfNl_-orXM?ZPa<HzOCos0JH
z>UsGsRs-!ER1v+ueeT_RtWUdURdWv=-3a5GCtwybV>ztOgkg{fb9eE+ej$sM;%9ld
zpvn)=f>-XB*VBB}GxvCNkb!}NB<M7*9WqUc6aaAs>29@c`%BF<oI%qNKa;Che+a)n
zF6tLq*7My(q|1Qz!u=b3@_rav;VrH3<{)8$^rPEUV7(m;DUFFsOE(I+jWCy??>6Na
zKYz>e2F1Ti_mPf@2c8xE^!V|P`Bm}h>FIT6l(W=N9MyfWmiNb&jT^6TD7v|HSbEYd
zeC_h`d90utV;5c?^BGss?0c~NAB*$y@{g(N9=xVZJJ#tIcIx&_-v;#fZnwu&Lo!ZM
zQZm1r9{Z5oXoaSYqa+;^UjF+d$-70I81=(EjN(-Bw@F9@t-6Xd{0Y*%$<*rCsicvQ
zgbhf2!Am&GP7%X7(zNrxEIU+B57rTq3qp(ok+%cny$i1~Chq6Q4}~{1Z;9r3P-o4{
z6EXR#M2{&%UX{fw+r56=E<m}_pxbqJWH`hmvK~$Hxljn>eP6!s&C1H^?-KskzqlX1
zvR0R5)Ftu!$KuQJkxmFmix&pM&=r-2nqd+;1I_^eD}rT&)+$QTrsTH^qbb>QYK@Jl
zX(IZy)zi+z#K!VEj;i}I2$5eT|GvjJZqNQJ&-R}<?SCy~O}e57h<qbMeQJ)iGO(vf
zbd%R#!TPiq=Jj%5z&ZD1LjQi-mh@7C;t!tM=kBb|T6d?*@6|lv|Ke*nJw|(E%=RnZ
z+f*j#mgceKZYg4?=<?`%My?I*-FGL$1DO%(aG+h%PLj-Z@*>mI4)!;RV$bENJAkjv
zIV`&NzuZGVX@2NVh!|&kQQK2x+P0FJ8+l)Eq_%1mx8-pw*{-Y_rKq|2qZ@f`m!?7g
zeI}{8dFvs~r+0Nae_{K0L!W;Q?SBoJm)`D-09a$a>$maBZ)#ZAg^DIY^b_situp_1
zUi)x~e67V0F-&-9O4Z;drl~;0@EBb+g$IBCapElAE<q;jSXk{b5_*opz<ej6C^w8=
z_<9iHHRHcW1Y)&t87M|rxw(~4M=XI$JV6rlS}7vNYY@j5W7ir{FRUHk_xrug85-8<
zl8D(MV>VtXD6O(0M~C!A5&nyr==M@{cQ5+Z+l$6%LF=l27g41z@J8Ni)Le+s3B&+F
zbRiKlcrN>61Vti-2oTL(X!uh_8k%?cH(t1L<J;_wyi3=vWugHj0eY(;=vQ0^LQK$v
zr2`8v!+Sx%d>_Js3{<Jkqs2MC>No77DOE9CV{;ud><I6J0&UFe*ZlK~P~BfbOPLxW
zR75x1f4jl{#K{}Y{kCRxks`z_9O#64ckyXc(2|V^9srbffZLdu3*m~XAr=L{hhoxv
z-^{!3yKa%Q0`y^uC>TPH!U8X+=)Z@7A#Igfy4nCtnFB!<s_es1Ck7F`HJp?xF*Ggd
z^uH;9jWh382f+wp^a3G(Bidb1s%!%8J4!-BRXt=a@mL%}tnK6D<Ijvn0y8N437Jn}
zgxK=1T-S-+zqe;eF_VuDNURz0Yz94FY#7s5EXu>9EGInq57gTksD=i&m!sO-Sq-_(
z+=Y<efB3Z-HZxH`;k4>_o%Ox|NQ_usI{s_Xsj4X#$M$qX^%JVe^z+p>KlR%#6#T=+
zwWX~2D9sH$Smg4c*y^xu<SG4I@zNnN&_}$IvLaMy#(_VFT%AqpvCR(%4D6?zPJV%M
zXbI;UnkAp%H8z0Dycohjh!%J5+}UJKX;RbUO+rg3KFp)s6U37=LP|Kxm^elxs_2vr
z=WlJeaYNtrjoZwSLW%6p^?OtI#w+{uEVZu=;O1gbCs}T*c$vG-pEN%h8pP<BI{qD+
z8LGedmo5nsQ-_n@cLG<3wTxc<{uRwq<;>0^7P&}e*zmiuGBoWaZp!n5a=4>C3eD=H
zwm)wNjOLXP#_!fB`4tO$F8#nuhMs$OR729uTS))=C4Z^MZzw{$nB&QA2%q-CujvTQ
zPoeduhVvJ1OhdCaXm}0eKyIDYPzj}6qe6ID5WGs1*>wIrmVcbUv4m88sl{3TL+!!4
z3L_=I-~YxGZlV1B``5w16YL#b)_H}&u`x0K{kz+sPq3pJ^xR%+FO2b;pTe;;cSJGm
z=f{pr>@?W0j%r92lde%A-6;qrc0RlMzaBgzEHP$?9Eaif&!A8@OmxYk6FjM%Q{$xs
zIw*pfHPTdx@h|`V;@tK2rXVeHTy=x35=uv67zaclQbbQUQ7_}vDKJGTe|)UVeOgBH
z!iCV^&zu++E}KBi-#`aX(4sTczo@Jwz%gKihJ?PpK45hddhcUVt{p-_P;C?qe)cFY
z4x#!U)G(ZCYo#)LFb?u60{OvkmBt;Hsq<(wR?^heygy4!1j5&lwZ~C8Q)Hr#t#^y9
zN2|dw+7iA%M#M~lytW<^F};B~V*Czfw)Xh`0y}3ph|WI`D1tF-^21)g2r(~R2o=bv
z)L%}OlaWyY?+6_LI|-f3kJBOepYOe^KSaDQRy`RKyb%;r)9rOs#tz0oY8B9FopDVF
zSZ>5Ia$GOu%+1iNi+^<;A=HKr&@S(?n_5vuF$jX$RI!ywzb>|4e!mgkO<XBKRt1mf
z0F6|zb4|Z(lG8+&AX<xvxgvxL+r$KkBr!Syv4POGqB%b;I+{K9DONoZqU}YrBI^w+
z6g7<<r17j`XL5d!gAuO~Dk-3w3lwA$dMOcob%6DVW@5MW--H&o6~@CsWZwkM!I834
zQo=#-r&!)<<7_jCngGJDiS47OPer^+#x0G&!zNiBy!#xMHG(M?pNSEH==*ZjR&$_U
zX!3wk4d?&+ri?#}B+rYBJJj+v4~1H!C*2<>?6WlMN6WcoiubhcSeZfA>tG;#HL6cW
z^I1P#x7%t|8XCD8Y_I<eMp7*LR6s;^gfxQFbpJ-~Y4oRYlD;5GW!w8*HNhsKVVLoR
zn!LRH$eE1dxlpvLrb5`$tYf$n6AK76BcV|Pat;JrN{o?%Hs>=jV*-8F0c`_FhG+6h
zmt_dSiflOlb2v^5G|SV8c@{wip*A8)sLxUBe*xjpSv02>41`+nV3rm_4hcZ`xI+})
zX9yw?#MJOlQDPZHLJoI_p=pX}Vu3E;1ksgTyo@kN3`CmWvyl*aa*en^^0HWK<Jr67
zgfSJlR_$lzxdI4D=H59i4Hbd?XN?*!{p2E}?e}k*3JePFrJR;-;6Kqp_+oIlIp{7~
z9#Jb*bp8>TahYgfW*+-F&NEv|>9E9w3(1%dgC`(56ZSGNjMaNKjTOc$=wh8wGS%j6
z-b=w*NWw_RU6lEW?hNcR1-%PuuCA{4-_(PsfG7#`jr8w(V3t-oR7%jJND6u^=Ah50
z&l6TToK?Zt0Nz60APQ|>LkKm5VhMFj%vPviH$NG=*$Iu<5Hcv<uOOx^;fR<+^bmT+
zN;7G&tmj(5kH4oA2BTvZY}p$!Sd#5HZ&Y15{fltjA@4Zaa+pN)%}9AH#fMq@Go#N;
z6*KOXam)i351_l7c^IRizB?bvUQAC#0;`TPzR!aP4FEBy{QeEWB@#;pVP|>B#tRMD
z9$>tuEIe%hMiL-o20&Mgm!RH^-i#rTJ4HvLbur9I*STl?hYueJYexhDJ)jH`9_A0H
z;*}UktAza6h%AVfRH7dYO2GhlGj!V#-4B=jF#?Qh8RqIww4tLQP|ff-QqVyPUo20z
zcdxus9IR~c6fr8#rx8B)n`B;F1!WO4X>xKhPLy%)-hReFw3B2cL$OB)u3(A@P<Ln%
zLdwJ_D37H4389Oh1$W9sRa>!J-ivA_esmyQP)$*}tACuCSpxpA9ux&S^gZV1FsLRJ
zeFV&`sNoQE9Isw|v8C*BlR4pA2voHEZGY*tiKozUCn+Vc2?}Zw<B<?jkYlrzo!WEY
zKoT}`1c6!wR9Y9<veOp6etyk}V}!i=z+Fs4Jw<f1xni~uGYL+MBg;dfQoA$ki^{9+
zsb>zHG;+=yUmf`A2_F?N8<7m3KZ4;$#P!*ie#M}~M?dQvmX?+w?dU#HKow}DA;FJ%
z7!VLs2kyf`KgZ!aE-I>v(BhE4yo4z-0m}I|no~>IQ%pa#LiXg6vy5?aM@YnBialsk
zR3GbswK|6VMF-D$1eG{zJ2?AG1;VrEG=NRj%+-Y;j3s@+M8LqXFp7dqpuTabam3~~
zyLC4@L$uq7MyA=Zb~QqK2t$01#T$a~d+*Axz^YsUFK$ChzNXtjOp(H9Q3Y5DS`=ph
z><Vq3Ie!0oj%f8FBsX@eaF$Yvais+|7rFz1`u<L7N`~$&*=u#h6%)@0xiXx2P=SZS
z8|^*kU1LlGzT*v9QHL6lQ~2x-{q^Z~*3j~A2_OtR_#A|A04p3^s%kuI1^3@zkuLqH
ziECrDbq3mV=L;~SClQJnP-I+%LO<{J#x8V9GLuwOnqtS8n3#SKuu?(!N);kX+*~|#
z_vR3<3j&@cF$q0rgJLk%Hce%$@Fk(YA!b;DG9q*^qKiXJBt_)n1oR_J=Gd|F;$=90
z=A`#q8`%{1ctYoJ`gZS;4>ot_l%SO2n9hRA&J<0)x*>Vwe{Xravz|-;UZ>aX(1c<d
z3H0abr+=q3Hx%#Oy~}p;q?}`6u@v><#fuj3AO!S>4<iKSX#dvD(ovxHufN?jQh1{O
z&K<Z?OyjF2#w-(|n;2#5fAlhs*NVFc_)SbaQGl?$)8UfXpT&{KL(7~1#fZT{71U*A
z$opgd3w!SYR8`h(jbfX+RkRHl0JYU)00ayKkz}i=2Sg-^WEGJlS#ng`Owfaf1VJTd
zm7GBo1Oz1KppucCIfOUXq5He{`)|GaU)5jl)vZ^TvZ}Q?Z1!Gztr^A~bIdnyBpsp;
z9CLf{Al!`3UmmC2^~=y-J@S0u#|aN~z;}3<ELx<h@HawQm6erIO=pJv?sv4eKT9it
zq2KE@SM3;27g&>*sdoAD<=!lG<ix$51OC^Hu#hyR5dksM?oN~qp@eAXhfOC%L$^em
zX){_2pHOgQ3x7CB%GZeGLJ)DF=TOE|L7)1+?_`NF<izY!yNzgzTaP~kQ7A2#7{XLH
zP`%Q;A9qU5MG#d_8VQpWQUi;|47c7xVz$>y%-8^X1Jq-co_XYWdn2xgnq!TmXe8vq
zF0rY)0KA1lC0%Pc>743kpCWkhIv$gY!sT8nQDP@xl|y-WWABB=i}jAhS~aj;2+JFh
zkWRk;bnS4u&Eh6AvlyOui8yMJ3xKvTx%wbwD*!v<v)|T1Rv;aHJxbU3euAj@3L7H=
zN@TQP(C{L0fI^bws~oj|Y3ZGSey1+A0v$|fdgSaG5s3p`oyZFp`9J>--PUS!yN`jo
zT-ywfuYhn2_Hlnt!9}GscHj9P87JDU>3b%Ka!ft;p@I51Bqfkk%U@e{KRo;Z(Xy@R
zkgX#6EQiHS5eMO@1mg{Iad1R@F(+?{Xva5OqW_)5ui*AlX&Uy!pEfjZaeJkac1zDI
ztRq}9yW?=58dJa_(Kfi2w|1$=JzW>$HU$ZEs8gs=8RQ)wo}INP5-+4J@Y=O&*ArE=
zx87Tmck$M(1aN;yl8N8lT_V_ekiplMq#3363wRhr8MSWQcm5)H<B7(tVxRK!iw><(
zKDe25Od|67is)6ce-e!@X<$fK!$MgFZhkBQl#SFnK)N2Q)AI1D)4?ON9=+iTt`$Gz
zcqC4r{(NZ7@|7#2;J|%R*I?PB0luOsj*T=RSitWucJJBKT(D*H=1?TgP%O>-qQ^_o
zgP%qRmlwJFt@lW&0)l%~8no*4;MyWSPGr-Y2PstK6(rh5;*MZkz_>+im^YYp?$SqB
z^Ci|F#+)agp50-}>x2f_8-k04){C(?!M$*nO5hF9&kTJcJ{3}kHAo~wkpz&3)=w<D
z5zoQHa{+thEeas9;AkDmra3{rgEU6q%p5qZV<ZvTXayu0>_k4WNr^zj`^yK@fG9HN
z6Tp3=5lb;*4rQOq=w+!O;T{@gz40Mr)^e~&i8t$yYzO205!(YCJ0jK8KvX>KhyFwv
z{XA9{y~v3mLkA(qB~0(V6NlHFTD|!o(f6C5DiDu^1Prc5nk<i7{tPFchWIXg+NVqR
z%ZtM^NLa|Kalo$vVka>tv{+uF8B_C}gPNK@+{G<4=tKf*00{u?w!q8+W+fw=j3vGt
zgJoZ%q#b9u4!qMpNn-#E)iWARE@DgCiRb8ekBM9LB3D0=^m@{GoVLG88?BsGV{sVa
zP!F)4|NiN*SnOvz{KzJD_JchIzs)a|MXW-+dg1-D5c!Bzwl~a5Ci^5x3p%B^<Kl)L
zU0ht6N3VnVM*qpS^YxZ3g>ohz_dD2~x~gl}an?QKS|+!hConaKi%+eNahDgl1$203
z?b*G1)8@_ldPa6yVEx1*@*0VQvRYbJSU6lCPCH!K=oJvy<(ZXvwXQmbPh_G<JZ-^V
zH!e%WDSsu4%~|>k^SHR+tubor)2B~?GSPxbaAvpP#%VL^BWoQn-vHsd<`4dM;q9ye
zQ>Jc{ebVxA>9V5NBm;F4&w-e{Y18$YV;pfNkhy|9@jIz4{2bFqHNAg4)lMFl&-;34
za=|6i0Qe740&218+RnWFc-1q3$3&`QARCc0YI9W(QaEp%EkLC7Acz-<`d3=~Y9^MW
za|`DY>65&cXkDoT_#wN2h;0*&DT(_Ke;3XD9m2#CZ6DIG0|bgolor1mTo9shipaBB
zu<{os&EEvlbL;BrHtgwxFXlt^=rK9@!TB1)bY3jJd~h?d7DT`l%>_~L4}LY4AT~lN
zXq@nKOTvwqZa-Gq#rXK|Pl)CpHt&16rDdGo%~JUw8-|FLW7n?S1j{9_BG2#4^#gy{
z(sR*ac-?q+nMi!gH}b7HMUwLf!(UEVyx1{hiJau;zQrf_z0IBdH-EN2mhwO3Kz)hv
z^>6j+BMy)5RX}g97Xu8iRcXNhI%-ZQiwl#C{lSAFJ?48?Q@l}*!KSmnEM4;U@<CMb
zHb4H9$^N-OdA2lxWGBTPk;AP1%3Hh?e`MM!!MkV==UR-K+i-J!S@k?BXTQ4LT^N(g
z99<Q%TX*Xuty?uhLnSFt{pcsn$GfrHurEB1XT(gI^8u{@y?MXIvIg}+l>DSJEn_Z4
zt&1Gq5mntA-=#Y|DS=HTW|Mt!<0ElF06nNLUBXThT4j(SW4wCZx^>-?l}ye#9f=Gm
z5UsM9ArXec?rp9eTqB6#xVX8cX=7iGmK`{ja^{Fmpvm!<VosjhHf?Hm{Lu$hG?QcY
zDjtF?+0TC=RmWW@R4R+y#D_4yfM3JqC{r1F-=Eo=sNK6ddr;%C{haU3r1z!TueOJ^
zr`M(j<{8LJPo-vP{+eKroFsDA!KP%{^5v<4VUR^=D>XEg*cBI7YV}9f;H~2?S#~JB
zau{01^y?Z8s{H84NEI034p94NG4g{7HFWFBXu(K$h~{a_fgYV*kgXMcRIdai558wV
z6|btOXjQ`S18)TDs7_J6TkWA+OKNQoA3ZX=Uw_-)A8*F=J~KMfvTS&?byhZI2*5AU
zP{nI&yE6IUM0)c;yn$fVw<jUrOJ?sugwGN0=hDSjCs=oO-#YHqA7rp^_wEm(ay+R0
zEnmKbZ&}6*QU(jJfDc5JG!^WAVs#gI!BP&HTnE=gKYapBQ_N1?!`1cH!opt2N&j)`
zT+hh4$~TivU?ibOJ#LtF<mGKEBRnl<h9w)H?!{Bppe6~$U1x!coYnnwFu@u9f1UeZ
z0y8z`g^YGHTgTtK_QZ)Jz$lSIC0xy0L6w6~9z${$jtcwUtTP%-iM1Mi8vFjm^(pfa
zlgL9rVKq5I^4M?e5@a=aoq)UC@Mie+6EQ5R`{fq8TUu+ittmyDzxQom%Hahx2i4ZF
zfsUyu>q)a=Kiabcuj<_1BF54A8-1%%$^G+B{ognAlH#kz^_fk~M6niu+&-m%kxwOy
z#}1?rO&_s4f}EU^sCfZ1MkV*x=J%oc2OKAR>gq24jnloFFk>k)(HOB{*<rf8+S9dS
zuyrZZ0Y8AM&|)F*JJmZ(jeu>bjazmOHv(e#*AKoAD>S<i5EnIc?&=SnkhYmDo~2B)
z?uc(G6iSLWB+gX6O*qjTTbqipwu1i-Zo<UM>2`Pg)&#&b+SS#yc)QmTiBr&6A~`Zu
z4wkhVstEs%C9<tw{~8QADvd`i<rSI;^w1oPO*mi(ZwI><yg~j5A*59ZYA;4jOwJ8o
z#)Pc*_Mj8Ef~Y0A?G)GODhsR)mkp8>nXgQ>^oDdgT%=9VroZ1XfLD(;?juG`$3Ted
zg(@zuxgR12R1MBUCu{i9w!c63``e5ocaqNmh)G0iAdy8RW}EQu01A;B2{y?kL=b}M
zf8({z&YjiH$q!(H0P<sW%wyl~e_&eu<#E!a>45Py#Pgr{U!gMPhj1%G?CzX{3y@NI
zarvKu=Q18ZyU8uKQb=Wr=o|mV2-5*5OS+|Clb%nfKqCW*)UEkho5?i9U-dTy;{T&6
za>F(!-EPvzBT3k9A{r8FvXEY|Ll?};=e(M+ZC5IbbIYC$2O5WDsKrfO^>79EkA3a7
z`g)E2Vip!|{?vvj2L$9)%P{%Y>$7duVz3Gy%#Q4(qT7*ZLFhZxRy|Y*_F6|@!qjPg
z{N*DL52f?xUBw^{vcbb`hp5T|qMR{AG5TPa42;94q3$e;@E8hlT+5d$_D@LQEZZ*3
zO_Bw6z(l4rlW%trF`{?zEc4bwC$K~0k=G}>$0c<GuSKUv3`$QL=&s;2Pe+%D0rF!K
zq?1l5jaCRxlXr;74gAS*&T1=V!<nM8m>shsQwL?;9zG;<GKiiws>G5=2`UgsA~cPY
zJSlCf^Uif};YT&kk;mM2bCJD=FUEfRk=YCuU)puvuYp<h1UDnWh5~{P2NVqcU?LYG
zZLmPCO+RVjF-ZJ%{N>&nfSHgurQ*Fs5y%QXROuCS0sk8$ct$c=vvJd0Ea$c4Myck~
z$~mse(74&A-rTZN)nfOKJiNNq7OS(DO2$vn2eSu@%@`Z$gtN&pc67r=5*1r?Po>Jy
zp=vGxcT_p(v_R+jrR@<KlS$nV+Ez+fEHX?7Sw2cjP$dL3eF42P)xag9M2>G|dNexC
zRmiY!ju4}=S0b(UOiaISWz4*Y*WpJpCh4SFcW4b^96{iPG<$O;lJpV{uDp=-!3BG3
zRE-sp@*!72OpoLs9Dr*d)WZ)vefVmIv;?DN!8su9l>qx5&a$p0#=|yN;s6D9URtci
z{qhMB&|YdbdWoVE7NCu|mx^}4OCb}&m<q+vH$bouUX_K3LlD+#Vk^&v5IKTB6u9zO
zJg|E+k#@5}%ZUIF4<7sq!qx>qdnrhl6mIwtbqk<E7O2btUq6rj#VW`rMFIfwN-aZk
zf6&<-HmC7_!H|7nl=5u_(aN0pcK`h#%U5hJ94+nZ*9lI`Dr^}IRPxQ|&*#v#r>@jg
zs|UsyZiCVP0bP?S2gkqjnQL_HQ=s1*+}tr=SVel0-$$D9L`Fty9dtB;Mr8=vNw@?A
zE}^1Day_xBHkVb6v0p4MW@IBn*F|XrLvTWHEz&br^zKq;2FXW|4Ul^-?nwJS3|=p(
zi0<08YX+g7r07~>H8%cFSXm^fcBu)A8rn=Jw1Y!J^Z*jiRL41n3=Iu&CawoM2Mst_
z19kMtOj>8dx}BrpRciM1Y!80abs4Z5Hnr0A0{|Y7_f;Wr9ES*4FIw867F~|#8izOz
z7Z1<Cqbpy4_CgIZ?b|)J1T<rB7qh<%ky}!6Ah<UWHCdffe~xz^#T^wu8><L+1284|
zKH^zIh$CZO^ifZo_{lNnxJ1JI8+yalaL6i%91@BR(2dbYUP}UMq5`dED&}bWQ$k!^
zbS2Bn^rEr8hrRxfBO`SKz9IMOhGDKD0s@!-2bnseVGej1kld)GVLWH;pR!I6RlNus
zJyx4NuZW}J-E8EY_bt5U@THCnEXgG@1q2AkcoA2enyEcHyuwfx30Bguk>FNINcn#3
zOO}AXZ`sn8@1p|{e2o!{UK}&H><;YDIU4lA-1QTW>VEx$T7iV^+pw5m^DR$G54y!6
zk#sFJh*~lRl|Qb-hh<GoO^-t-m@wNA3V|d8Sq4Zz=qa679ENtQ9#m$rt04H|gUM|8
z2pR0~?AazF5UTWLV+K~5$n+4<8j%BlNG>3juC8miu}6?n5o+T5_wS3MEwGQ$a4-;?
zaFBMW_V(^Y4d977Eo3C~d#Pl=4ET@8Ll01im&4!bU8rdohLk=Ho3kx)HNTpKR_k*_
z+67W0<Zk`^qCgOkq!DRSq&*t%WE5jvb`!BW_{I>tGW;f#h|ozGr&4gyYgB*hJu(6b
z*e|J016MN@pYYC}l|U0|FD9Jqu<d>=N9UtAgzKR$dLb<SLm>EH#73csH;uHWw^%{{
z_3x;PN#6&A0xAtCRaEr_Shl@XO~>hw0{UqQ39@RmV5D1$D6q(aaKH!uN~TM|Rh&-L
z=aec}D%7;==O;SJ|BYbpl*|7Cdw;P6u&Ylvf)5{p^S6qbxq9h3kymK8l%b)0?eaBx
zq}s|)1Ym}lZzY5)McdfE3Wcr=F!ahqpNx^Y1mKwAG{-?%L=DLdq$w<X_<d~*r|ux`
z0|a|;vs9`$p8xRS!^ED^`&JRS4h6;f#ZcH;WgmJqXq(vBRAVe1G4V+<QZ0vzN`OP8
zmH>43Pzl|HOs0YAb2!i;`2SjnB&o+VI7W7ds&<t4sW$yTg4Jn+nsq}Mkro$!^mcyz
zXB0i)b|{~Whlds&ir0)Uy<3lMCfhsnMkoXkxym&M?6vP0+{Yn*r+Ig^XdJOmh=a(9
z$K;3{QD19Z?2)VM!FWwgb<Z2a)0>#V3!Q0Qn9~I664Ma)k>T8!W{GMXMdIvPrKpz-
znB6NYpc&K*GO1!w8jhynIIT@qns)0yK>4Uk4xjc?D4+Ec^)WVvY+qEqMI8{yXqPTk
z+jMBlUG0Datb1qCw*EY&UU@k1&8uk$W@#tM^SOPJx%<~&;n=;j;L0!=J2mgHFF$Le
zalQa_KTFHf9kV3U6~+})*FG}98}XXpdc3V`95cl#iC7I0F$R+tB`{xLeo1EZ@oIj(
z=U3v{)F7~Y*ONo_;AX@)ny^zQPKJxmn6pMg@K&5r%f$pIq;6h~4_sXpVDt%&FC8GF
zjFDIb#Djy0#2~<KSgFu8)&`KkB1Jn8O9+5Y#;<_G89ELKkq=_(pFk@}7Du&`LSW7v
zld_vkSfq2614iDz#`%6eeHjcF2*ilReNi=F)J5Wz4?dTx_2w^1g8emx>z1T@eR3UT
zMJX87(_Xk18c*3qwe{p>5spanprg(|0K|^f%*=}LW@y<-Y~X0f&KL@N4;CMZ8A-{X
zjP#O{k_S{G+LE2|_AOMNh`}T!H}tk&f_WiTATkjUDxw;oIuMVVzP6{pxoo3E&<Q9m
z#NfHDGg@Upz2V^GjI1hn^h?%*2M;)tH8;-rTJYG%kbAyyq3jPIa}7^V&vDF~OkEJQ
zpE7}ba(vS|IeQCf-@8KV8LNHb1c$E_pQvc2O20pXKDm0$*4W7Jg3+AwUen*NDg*6^
zpp$`4A0_}hSP;P*K%C_Wk`iIe5x)>I?g2woV|b~Av{PU~rdiS8GxvE+a!4zWE`wxE
zN?2YBY95i*_mk=TeQHxGim^+LBL{3yFs=X|MNtoM{0=Q&a!luEyTrZI1LI<;@r3e*
zFK6cpym)E_sUTIC0vX&-O#@9kQdRCZ=;c`OZYkN%slL|w2Lt}k*8Mm5pJBD*(qT&X
zQc;1c1pF?dAJ%<O@qfYpXU6Ghl9!}mFN6*anM}^SdFoX?_sCwG&h4Sx^`SP>Y`e9*
zMQIeG0layOZy%Nua2){{g9HLnlL27Ufz(tft<J=6tN-qh`QsHj(UoaBLF&cw2~I%!
zNw`TEqy*tL?<)1$`j8G423?#PM*WYF)gw_-d^m^PotsL)G2mf))dM_k0le*n#)ePj
z1rg*bAZy&6haE_x11}*{XTj*A%x&$YdY`H!lqnid>+eR0sRznGA`(I+^(*GVNZMP7
zBkKn9)%%vsvoQp3QeR~J;lWWA(VL&02Bgk8%1#F1>^b9VlB^ELjU@qHNR}2%M#6ra
zkk}KBEJP(nPmr_G*apRG;D^0gS1(JKmZ|!}ya!wcNf(hHIBS|cwvo0Pt<aVyq+FPe
z>YWQyXQ^_)WXBMZNv5&y=z@fDgRx?)TjY))!T)&GL1))dE3lwZ)ukxp@1>F<y#@64
zuC6{PilDncbJNC+d!njQtVJq>Lq$ksWS9~*9Vic-EOa7ihO&DNNEz@1T=*Q&Kq$O$
z?%sV;KJ+|CVk`3gJ|xjfFu2VQDhD?Mf#-zdAhDa4hv=nifn;_7;A}EV05*_i{rX)f
z4ddV=GSme(P03Z?9-3Q34G^>x14tCYZr|Fei5UF*_wRf_Xg0{p%vPZ$4GIb;EDy>N
zu%O*p^Z`!_iO><d$Up3VJTS?pQ_7AY9kmKVH^Kd|ES!uiH<pOB<v~0{%tzM)0V#Nn
zN0^_?xl>EAv=93~3~Co#zypz4IzF7XM35AW8WxGx2686CBFzjHy0(_wn31kI<Ib+!
zDRQ`4mXERsalR5EwL?Twaf_51rJl}nB(X%1x(Y{QgL&trU~plML%kc-<WRyWB$G5z
zu-cn<i1d$;0V`NOB_t10nLSV<VpJnYT^)K0Uy&M+!L7)4B~jJ+3Q%6E-wJaZiM1w?
z6xuq-*b)@O6v4V4hd#D077y{_-ihB<ts+Itv7x+meT2!07~p4Ck1A?)Wd1W@t$h@`
zca;o%B_tK%!U;76!nuUkMwDI0dn(UDCc?vxr@8{dDGb63s6r(E=L7*1bwk`iJUUg9
zxsp5{KSsryMl3AEUe&hns6EO1_N2IDq+Lm_!;wp_+FX`T64XX_6g#{IYHz}`WkkI1
zsy0gYexd)SJKyvZ3I555XDC(20F2Z$T`CwK=jMAOg_C|W+_~h&sHB;pnU5Hvm~W#B
zt^ZUl))~YN%<?O0f1$gO>>Y)I+-j{?YIz0p;6c>umao*Dj}Gl#!E~Dlvmk`>YR~Jc
zh)`HAdNj3@KE4|=9U;$aYpt_M--t~DK^W~jLigR(P@_oYt`8jRXTJNo-)pDP$fNP3
zpVIGd7?1xc(ef?fG?$?5bD0_U2M;ddeFYagjX{IH%9^=n+J@CLBQu{q9=eeFI;f%6
z*!t7V-!%-EM;Tg-8b(qzOW*%(4P#*FO}EFw34&4wtUQEO2F${*aVo3w^|yyRai1-G
z<7sTwdqRQI@#%hj)s+5r!9PVUw%BQq#Xhd>=%~HA``J}&;#|vX2{bOPXZ-J_i-Za~
zQK}^xwet|WNi%Nvt5@$omn|MP=ngccV#-4(Y3z}7TYG={7m#lpmKg))Lo){<KOxRa
zsa1`+^r@hr_|O_uzg~UZc^U;Zla+#t!A7+O$bjJxH6ho5Bnn7iA}xe2ODy_&S7#p(
z;G&RQ(La5@IJFW07s4?PbPSOaRdDe}zihy4113sovnOq!;7tgyaNsDo5wzx48wTp>
z%z=I@6jmk3gbDa8MZ}7tErOt^0F<zWy5QW6DuLNk2!9FA1VUPf+|J`n9f#)>i=bSe
z)M!*mL>Yky96$z!ktC-cKCU^mhH!RpjEJ&(B2-2pOj_SnxmdY(&M`$e9*HS5Ncw37
zbYLoE-~^I4Or;sRW)bd&!WCwn@Ihc+)B6t7HK1-cN?0eW){xZ2&gg3e3N+kcL(&N0
z$|!h|>U>^nv91CFgKdV#)vb)-WXOci4E{2-Iy74@=JLA_ne01vYJQu*kcgLd(_l*q
z`~$Ggu3;B4I}Kh?obipjIU5et27@Vzx=(X)hg%ExwRe}BiUS=ceEtsQ(NL8GR69{6
zW}pMAMv5s8U@q9z--!QTc%&Hfn&J(Zxp`GGMjJRp(Ep)G7wOpM2%}6iIRXzGjnn@;
zwV&W6FrDcOa|jOqA!jl%F$k%Irh^ECfhVFAt$~*kNX7yaf(0>$Vi?*?=DO=67ANW(
zdO6NZQ20##*ZszI^6UM>1vrrtImM&v1qVe2{t|g$AW}~$ggwor6noG-5WYztd;Q3o
zynm;dN_rbVPeSB``GGoQ93{Y@Sh?iBx_3dK@Py%Ee;;5x;1vObJuDjhm9>i2`5Sur
zRso;4+1uvD<Iz4x&=Sad%7L{-(qhm>_fV0O$s)cb)N*5s#j5lgzw3s*ec&Q%v?qeS
zetf|rQ+S<c6wm1L`Is@^0m`ypf8EDQS)zPbciDFKUzC2AP+hX^Oo4Wj$(g1VTWU<%
z)<3!Jyh=m+%&m*3JMQFsT3^8R=GSvf5?lFPWH<eO^74DD<C)cSdo2B)^d4+hS9jnH
zEE{cq9gaJ4=<|=9sZN%eD-EXBgQ64<lA8OcJe-ppfihn0B}vR$8yIn)7C5>4=jN!!
zGBHy1N2H~xdR1l1*Ik^<r?jcZ-;fTlA1NFgi>6<!$J;OXeiawE;&;h$YO-g}d$Kmo
zmAhgp&O0n2??NKa(pM&tn}?nkcc`IcKHa`w+y{uHQ&8gy`vLR7Vz_*iA^M`@E9$ym
zU1J2C+_GMLiBVBpan_%>(AJoI)3Uy_wA6kgK2Vy*4uK~hVJjnkNyeK97gqFX>SQ*y
z&byLghpK<qe(`DQzVqR;7kM#rcqK20lqJ;%7;yV59yc(Lv9Y?K)+t3}2YfK?v@p2P
z@%7X?X~fo_I^e&`a*G$Cc4uzE-X(+D-s%F@Hi*tn?MM~A0u;i<n^5oV5*F#q;i^G9
zhFZY7aq-4=TXTy;<RZS0^aU#PKinU%wSN(F?X3x4nc*~*w{rz=azet*Y6qlJ!bK=B
z;j1c67Tpx^HrA<eaf7_;_&zEyH#axCcmw<rYFJFGt77mO&6x`CwHhrnjx9Cf-zT4(
zTD$E(UmX^-sjXw@T=!W&_4#6u4%#{dGrlngEfSzlH0w9b?pEyrSwq^uz#uIxZRGYk
z`#-jC-(HW5kn=*h33|4)@sLy+EQT0axU(=DSJ>W}e5#lYyziu0U7)M0dk$+v3r<cJ
zoSU0dbjVoOZ*ii5^^8Lbj8oN9*@gVCEiD1Y4t=UZoiDWBWAe$D08wEiP>vvXuJBIn
zPii!S@O>vn(eKC@P;H&5xfJ+}ndwT-`+<R`xv|c$`<%3v`T5}2HHui5ANAof<xePa
zcFlb&!ZfUL6i1ViGYwsw$)nf*(KMIrL{HB6&Jq`Xh65kZ5s1vr7DvCB70zjLx#6I7
zfpA4rQ$}t!hCKd+0k^62Yk5Z2hXYDFwGh@d$D{$W#(QQY%FgL;l{&lKLc!P1Zxn0f
zrYm}%-RvCs7e-Ba$Y}@Zh}5p|llO8Kq_)frSarR=zoW>nb+&Vtw-AuKk@VI%o<ZB%
z^hiZwrr)~F)Ffwlp*N%R!)o59?xdEMma(z1n?rHw>B3Hs#To@;@aS1~)6*K$MM|M@
zamGRP=aM06x5_1uvD=veX<nC}^|b2H^A-AR5w{%+f`--DZeFPVrG;WsY98PTvV5O%
zx}_mlBe}Cbb;OHh97jA4s-+xy`SN8d5Yl)+K1%TfUcACqRa@%~VxJJk#GVC5=V-f`
zCcU9nj>lV`$Gft%HIRktQahLCv?Q%Pd%iE*3{!s<Gg_rIMra7W_w1Z)TX|N5cfrJf
z>0IRRLs@Ohc|Ql(4fu!x0vt-~?Cd1#D%Aeulo>h|IuRc@qOa#z!#YxodP12lTbM07
zsQjKnbnYcXDxMU_ILS@PMLa`{+O>Vq`mET*JCD6onEZ@KlU!bsLP)DdaS%H|yk(V*
z$&0xf-Gp<6*HsS?!$4)_#d@3~GSHaNS_J^bvi2*Ig5J%iN6SQxQq9K7&myZJ8-_+9
z-yQk2`L_1_bl`%`Wsk$G{Iioz3sx77_XPh$7T^O=6?j*+eXo3A5r)sIn@(qCW!a-B
zS&HQ-`uR3*t)8)Q*=miUJN{-x9MgDX^21`MN^;Xf`Uomo+0^8ZF$WZCs7zp1Zbn`!
zy=8KRcYjY$A+pQ7**x*tQxh;H3CYQX8f8-;-11ZttZ6^{tO=k#e1d{xT9gg$c$Az&
z2$G(+v$I=^u`o^GU9mOm80fnUN17%mrQlt50d2LQS$Mh|_r_hv^D+hXg9BX*qwAfw
zR`{Typ`oIkKjuJRM<kXC?(#^Lyo@&NL3D$bC`u=#XT?UIV)BWTOCQpe`6kG3lBG6B
zz2*jf!X<fpd|Vst;;D#Y1XIe$W${aS7iQuXe8U24IfbzpE0UFbU91dh69M4Q%m}<t
zvYy*m=m3LOx+QDqE_2N^d2dmgbNX4R6?9_Eb)jC^%S*#T+g_ZV1h8I;12Vw8;|I!m
zr68dBLv>Xcto@lYbB0vILmF-~>oW@2&A+sDU^}`_^pc28pa(O1poSk5q*d3K0_r`D
za(}yJ-3s{wB9(Z0Kgx7{nWMnZ0@e%6no}RP9C4bTML&{QDsTp%x4vVOlVpWcp+8>P
z-24(fXxd<AxlB%fTj%tG%)7@5$T)&F9fmUrYu3}-TSU&4J)WuM`_l2G8|u7{!;f)F
zR_1j=fbNz_DO!yDYco3eUHTkaMgzQ!QNdQmq$Xn9?9xzCs)X^wP7+0re9k@tyDs5Y
zA1e^nY>=mtlZF~YyZHPMaT-O(-}DTaECMM%YpPcKsK%xqwC@sL$t&!-9S^?M06n#5
zY1c_e)k}vGOD9|F)EO~g3i}JsoV63HMBW@onZ{|$s`lV-Vnw~%i=1$<fwZtpu^H`q
zd8x4Rk|A;+%+fZ>h#X#^!^z#km59k|n;QVllv3!OH5T#{rCmLJeaQ#~pkY#EXZkzM
zPuGKUogAM3E!yCZ;1-1|WI}z{UmGucjt>}*<`WQDJ2944o5=$L!=xt#Wy>Bs><_lq
z7i7Ka!B3ax^r~oR@J-GdkC{%-rl(WtyTgBQ$1vwd$+j9GWS`7EDhegXhc+-8XXv}g
zhQ3EyhW8R#(bRfv_=V)PrO6Fnzdo6mn8@hhHl~`Jo5w;inppd~_PM~xjIO=glylM(
z`DalqzTo8KbOG7mE}3g&bgmecVL&wmO=t<k9n>XW(o$FLedV%NlJ>~FCw9>FXlc0h
z+>ANvDba1?&XeRQkt6SKn!l~*=g%)NlIGy$5TQgHL=(gv7>?}3P3D|i<L_!9)%9`v
z3oXmJjXs&<F~-eTSc_gm-jbVY2CDa(po(wRhfKzPV)G~E{+3&_AozRETL1kVRCl}`
zK7RfVhe10{_v5|cvw;hvP9w;)*V+7%EWNG7LbQ^x``Y*HEL^gZ{Rx=(%oA1EP!#19
zlW+S57hvYozmG3HyUEJZ(mmzOR+%%RZ7(rf59TKT+um-77$sihC?)~)rmjw$jfs5=
z<Q%!4R#H-;1xG~a#TPsF8)&lm8z;hn!#)<liTOHV-bfh=OWF0FH<?B9!N9$*K3G%p
z)_V9mh3e$AaOKeK7pJBBSE(-ibrpu-6!AIal@vP7)jD+;&vzP+G<AttnHV*qb?T;R
zNl<F+xC61Nu(5tbMjzY(W2ESrg#ny;C?HtRJul^5BcXMTAfK;d6OxklDO)N0?2H!g
z(noNClk0`T-(gG<H2|cLRuZ78+jbbOH6lN4laub<-Xohm`f~85$;r2p3xp17WYP+>
zxeMf}GL(Er5ceFxydWx0W1PR;K&lPm#g}BGs;W)u#&S_H`{cI$h-ct=oR2JUNpFCE
z>2j7I(($*ftc<H?uBetDYv79JljSGx`?64*^HMVy()Nh3fT9b+{R!2RXxO`k@iIm1
zmUUNc8XH@lV<2nTyLV=PjR3aaM_r4vzrH$ypFg8pf>)A8q@AbzvZwv7#$+cZ@}tUd
zg?z&QRs}T`+`CbTQHo<a-zA>(pYMI6`(Pd~(A2EI-DL?2wFc8CIg+RDlB;bF9UT+a
z2}-}=rrv(iKp5DG{qz}dUcpb4-t$xn$eTp1=Md2WC3i>OP((`8&iSGHltT2_iZq!e
zr`@~l8LRF%-7$@I3jkW>Hua7;97>=2o0yt3G)nkVloRz8amaNHZ)Jl|vv-@Vz8l`*
zm5+(c+UAM5);Abk%dcYDZ+-ofN`sRyuIoGCB{_}TdqJ7bSt)j?{nomr9<pxER^hDV
zf=Dg|3)6zU7%%P6N)v2F$5Fr5c6i1TjK2`Dp3@N<^-(kZ#9{-^dPQTS-}PpZtaYMe
z7fF=0pXx3$@|io*@K_(~v7%{WJUPVzmp1kX?VQuaAjp8+jY$Lr66#N=9EpR!QdMX)
zxfv_4wd~BMp`_&GbpeHMX)P@+xlUL(CarHI$fuD>8hcdAq!3M$cT@xx{|K5RGru3H
zRWp~SwQKX*)j!yQ{c)`0nfwU6#W8TVOIzprTZvpUhnFP&FoFj#!~H?Wg2`adAd${O
zJ7NU$fKmT095#*+ISyuKW*?kTQgI=1@XqPaXOqHXzeV>AF3b;lQUam)N1}-Q{CtE1
z>q-yXf8KS!9rsuQlo<hmKlp~h3Y^-g>`vqK`(fVW^<bH<Cjv@rt~z^GS=WjSYwd;a
zhy8AN6VISRxZcBI&_Od=5qblCQT6fARbP7c>pT$Y$}{_?fmus1JOrMbwMH#_PsD2l
z&JL90%dmHzcsPy))gv~jgxy7iri0Kx2#XtkCHKy3+`@SFidu8DGm>#`pAmjdhz#14
zN#Vqj*SyF5*lrB=vjM?%9ubeRtaP4oEf_tXjYjF*aSr_k@$kxFadEt&qM``rTtpFt
zix=(nR-?hk2?D45jOrAL?zxGznE$qO{wiNU=_AII28l67bf1WM2~~9=1fHXrgATm=
z{Y^fcNk;XyBNfW#g6RP+YmZ|T0#>$l!H<zj-c$UcTlKbJhh00oT`}BJa{V~0O(&9b
z3k^hK#)>adVXq92=?md?&?B~Hm$C89n_sB=Uq17^a6ICBzuzh~LQ*ptdFOHL`vd6~
zCvpU|*OI2iR|B_h-MWr9BZSIJl-Z^mh_bfn_&>$+uL~Gk^J+7r{BWWf7Vq=jEgCOS
z=j=e)x+6T!iMSOwKC^O(E!rQJ4X?T=+;SUNbWR(~7tA^g=8s(q?3G8aEoPP>%$U3m
zNT$%VV7p*s--<ewP6mmvR}KsBIGNt+He)LlA_u>#={jS(<X+zTMP0Dvdl$Ke2f}6j
z-h6{$YSEP&4hRU4ZqX>jc+^8Gdx>XYs!EhyZOxn3{bqf$*ono?u(#Uh7a3<4FYY;h
zXOg6_F~`Ygnd&65=aTV4%Oe>iI_DTZeRBp%@I$Icxw3NTsky#-{&Sz7e;jfC#;7Hn
z$kc!N;y1gUmw|DF?`8;@Rrw(Nhf`PaUXrtQ@k85v4_!SOBgJ%O&9By;O-S{9#GU5%
zc?-dmjiL_a<jToN^6NyF7}F4dAxJL)n-E`z0)Dlw#R6sQkF%|g(g(o`Upbo(?<%wX
zBE#TTY<hT_(YOBU)!)^i<=Sgo#*x#Ae}+=<9Bj)TA4~<9K-$i3`f+_dDt~gEUi#`g
z7*|@cETc~uBW~I{;MuOjQA`heIQgS*N<47t<9?D_7SgS(th#7YJljSlNMPu5SSvrg
zTA01B>}XS6-3vUYZ&f+})ssd1HtoH-H*cOdcMB*UPu7b`>bk6}ug{v%)X<PtU#rFc
ztg)ejztclS9d+_Af3f}){LztlfQwCkG)1uj7s{6`)3&P2uVtx&+&|~Q(U>R|gNxD@
zaN}W_dU=!S{LJH%OQUOQY92Kvw9MzUK!@dB*}Z!+w!HfAxb+Cw%R121EYDM0`Cycn
zm2F{!KQ<&p+ht)V7qdgA*8Gd=nu-d{G}UA3^+tlLs;b&DnKh{m13;DsapZAfVRJMM
zki@-|qzA;Wlkk0CEn1U2xnfhUeQsQbJP=cHcbtlQrFLOq<Kz2{`J4L?<m{*DMT}^9
z?KAeS_?YAtI~Z_imxH3?&v#XLFq9K((p*ht^DgV^MN9;!Dr-tfH80QL=H}Lme%t!Y
zF5rCRtj-Iwvb2Q@=PFeCWrFTaJll73RwKdk!(X|RA8o(FRCTUujMvfD>g_SGMigss
zSIl7eexSaAp<&6#PUhB8mA+n?;64~wrP(!6$?!|VCq-9e{J46)qCv&UX)Gf6(x5}g
z@io@>ZFyBRot#A7*qOq&Akju`u(>-8uaG!;A5l9?k~lUYFeV|tCDP<xmWozy?LoR<
zZ%p=zhE}^9DxH~;HQG$75q(x+`{tSxd9<qd`bR?f28N2T-La*DF65*`=Hbg{)I`jI
z&T4~l;<v_HRYipu14A=)5RA6Y<n|85wV|7+uwj+x<al-EaC%>8S9fDoQp_6?6wWs}
zc+!<}rTveYn)u#>iLbrBlQT{QyGPj&j_N|h2gl0GJYfOueto^Yl1_KU*lg|kdT$27
z^7cf2?fNUxKwhR`<;3Kql6`jH&!5qM@>fGUr|6k)jghr_tuL#hyeLovmSnxmxeP}P
z4`ZSK?2m~%e8t$<xFnwfcjHpYLb$Y`hu+lF+cqmviMR`Gaz{J)qx;d+VgG(0wW%pf
z7_8gFkt>*z{GF{<fAQt#vTC+aLLX0$G*2yFym#hL?NcpT_R}M`tc<@uNXeR6#Yz)*
zx*GA-JfieN(ER-Tn4x~-rRjGoe`%2(&|F^I)FiTX2ydgN{V|3x^bYVhR94Cl^Q#!|
zT<hTA&=c`h$Kd7Nv&iFET37ng>3y7S+(3Eg(aBE^Do<v$%(*rv>>G4atZ8giHTA1e
z&1tNyReD!uyLuPiJL~E`nc}awp4Cd0HJ6=An_p{)SJ$ZDUt$~+AjPyb!nT+*@;id4
z^EAvzP0aTq)`4mEuCvuq&;=Gj01|JqDlyE`(3VE~oOC>y8g|Ka-p=_ai3STt3e*w$
z7-i2**blkjLK#DMdB4O5&iz#JB0(L~+o!gEH%y~I&LiPTDlT_l?FRAV5cLqdr^v9@
zH(LaD4gn_QN6Mu~E_Lwo+doi&y8<u|lbX}7<9`*S)P~lP`u!ntqAxeBA(swciTm-R
zAi$Jz2X4a-ASjWCp-ge*vEk^V1!vmiwW#0oAC~eT4{~5pfbztjzb)!au994I6c;c4
zjgj72go>FqJ^P<a{Lfl2{h#cM$agi%Pl$3k^c8b7&uA(-xU%%A$IfWp3^>X)7v`T_
zUL6wH`mBP*TVedQ@WQO|iA1~pg(k(qWll?%G9{Hd@j4w3%or?H@je{M6F{%64@r!H
zJ!U%f`_M^#FS=(|mWtA0+nM{_A!@O4VoR9rMW|hvDe54$`Q|D107m%me{%Q#ZypQ<
zt(ety&l3_8LtekW+P!?nHvZ<%qHP;dP?8*7D}3|TTv2}hSoNy_eYB5JRqu)ktEyC}
zyVypCynA=plXI-Txh0^KwMt%^Wbj9>=4Ia=kI@M5;*ShdArMjis>WOWo*}_%E_Wh>
zV`8|O8<py;l=wr{&hl0O<V{ej3&?bc=}}cD-^UF!8;ot+7Z;Ok_2xQ&qB6@8ZZ@^r
z<k0yUf6NK_WO)4QNr&x^51D@d_{c$kpTGK*Z!dC`$hxk}$Q50@Net;*btoh|d7p=>
zG;kkvOWnYXTnjW))^=g|iGI@HFFEIawJx{_p9661p2n-SE2+eP4fZy4&%igZD#(ix
zs~`DQM^jVuQ(a$@>L)S5M9nP<N=mh7mKdj|yVG*S`vwLs7~eHiiF|wW>G;@KaM;Pf
zp24^%jr+E4p~=ayGY5%-_!*m5+YORSWwmBYcbYArLUmKW=fxId-l5TKt1tD&x8zHl
z%G%;~8%2cNrJQN$=>{WBHT`z7dH0+igcmp`hlT0H(~S%a`nCd!R=toTd=H-yWE-lf
zHRW`g-_Vdc{Pax7@zsj9c6OEW5oP$>44q!798oqfkk)&&FikAbroGOW-(r%rzqdDX
ziq(+IyHDS5Vr)#o-YscjQfFg!)B%6wu+cGJb<B;8dwZsGumaI=c%mx;;i>g*HXJ&w
z9G@hRtIQvxo}To*ODc1D23CtWKk;8D$Hx_anja*n-HHrE6%mEzs!=BCzVI0p)2^~#
z8|G&kj6GksKCao{w)~1nWODRkano<t-x<VzGyBh9lLnvmYF;$OR(r?gchQj^<!K50
zZf<>9-+^z2W@l&XdsH_a+I4?WBvZd{B~zUoaZ|5)9jC`OPS5Pz5pJ<9=!TiRCw$e`
zE&ob&{>PR5|IV%NC_0k)4;SFSt5yFm5mWW$zF+b^K^f_QUQr>$ZATBPr}06WtrUDu
zAJi~l{$JO0EQW(8a_Bl}Uj72C`8iBNZXZEkNO30>{S;=ULS1Oy2)W0?IL|jfZ(^oG
zU%-ddClDnI%}@ORj%vRjX^1*c=2!(O<RRIW1s_YZZ&5f-;Ey(Gf}|7NhJd{<381fM
zXeb?_Pz1b^MzB3VT#SMX(qk3xRV3Uzr0ciN8qh^-=0pRf@VEW`Z_E3UHP}=~X?RhH
zv~PZb0QsD=bbaU27Cfppk_;*hd69xzCx(Jupfv&P(7MDR(d2aA99=Rfk73;uAISHx
zqLrK{9%DB5Q60fx_fS?RS7P$3#IordVw4+oe#7@mN8orURAlBeGc)(r+(}2N8;QI9
z=kW|w4$DA5yT=n6Cm5CVs&hBN@q9zi*LTm9-n%zeOZ=yi(FLiyVzmN-VPPxA6$rq!
zPq8~bERo;9;Gzt_w9k>fK5xIZ=FBLam(+3Vjd+fngioO^)IsJs&5U_fBn?^k`RJ;y
zqN2eriE7Md9L@~S4ioCA=06ZFx$pdow*&k$YYbm<k^CJzY9V=Fl!0Q?qaw~!E65=6
z{$!{E1mdFfI0kYn{EUD1F6&;qo0}U8{idN|401KpRyZf>TjY&{-dqP2!KXq%&!sPI
z#@0YVdK@}7@4gExcOH(-I^&u5wKAT^(Eur$na}vrW^9mMOIrY*kc#T5*e+DHWz5Y-
zzkV9y57uiH@{35h>>JkaABvpwOM~!Szb9u?&<o$tvgi~;dRW={UR}Qnb>l)T^n=oN
zmuC9H%dV^IX3ORX>zUd1#*}f$S6;m8XPMmZWtQqVFH&CjUjCDqU4y06!e2ALJz?D^
zw%?6q=BHsZzeB%W?W;Gv2l$ONhck5xCMLf4OhmIPD2N(z$LJX~9Qta=HCd}3D4dX}
z*c3|dPmzBf7ZdpQX8tn{7P`Nv#r^03@=uR`tLVC}`28{wQ4YzO5fRq{8)f`2D>>|=
z+DY}D$$U;{?Tsya+0ZCB=fK^UweFW3Yk5xZVvAd@H8ttLtVbhc95@O41juulf*Kjg
z$DjsKrU$IDg|FwNL$l-yB=$ZR%n)3g0E_JsNbL@F!gC+J`awXvau?H&F9J@>1}z&6
zAyk)PJ^Z8?`)XfdTA&{@%fP-q#|m<|bUrttht(hbE^Ff}%FB`V0#@Bm1((gQwA7ZK
zJAE7=F}TLk?*~5j-i|odTMnZ9ipgS?LCxx_ni>J?;5n3IDpk*(JsuMm5<;+EYE9<k
zEenh4lsCO#V{D!M?K<}PrMTFj>7@Zz5sS&ZA6Wfuq@&nC4cj3=#AZmR6JmOCjeGn_
zVSei9C{TUo`3>PM07SwvGery2IKo%tpB%q|vGOijxqt|xRTPaqwdX#ON5fdIU^O0{
z`uEz2JYo8z(;!rQ=Xln&PmjjN#~JrvXt>?~j1k0bdIkn!O(m+!tE!$+J!|HAjWg`6
zwpo`kIS*flJwQRTfKo^*k?pf-MD>|=op5E^)5wV^)J9*a#whQdzJ)}z{?zurvO;~j
zHx+x#X=##|7#-<+QtkMuceVrOs&;N`$5aO$)^_*xMKwCt+Q~ZDbgrxKO)S%i>=Fx{
z)=-GcG~ybRXe_dVgO4zrPu`0K-tMo{1HsFflrP`|(<r<)g;M#^Jj8T3mk=uiOw!%m
zol*!{^ThIgg1rF#%A^z)YfQX9yeL(EMLua7(3m@jEzcxFn!qSZ9Vy~k+4YuC#LS@?
zijYzem{AEVqudWkhJ~KL<`?K9s4OTuudMUZi%=BM45m%WGt5STC=6T>>UhSg$lxVi
z^l_dno4{a9`|&7E=+&utf|?*IBR+TQMp?j1CDc7_&`YB++-^Ybnkf<dt1^^;UXUe)
z1jx0R#qQm@ga737|HZZZH_hh}&p8`XL47FdFq1Zzg66BAhkg4VDvhvFN>TXE_pOoV
zMmQ^kxoMshf}R0qm;Lc5vMV~iw20JDD231lo#qp$=_;Oi#1;FQls+iaU+;@OgXl>u
zPD%=R4d$O%lqifUEJ1qtW5bW{K*h;^ENG`RjZp>?Zk;Y=RZ<WgM1_`snrH~=(46nk
z)K|Yy4eo?E>ZOu2Qc@&*DSb6r3wyxtC4}oiDYOGl{}axaT$W(*?X3%Qt)3LZ8qgT^
zt*yd6kZRt_g4LuRP2hcUTX_5O?|~B`t0Og-I13@gQIsM$NC|}2zA<p>G^xaqW0nGX
zt2sRJe(L=E;DQ(_^15+Fx}%maIQ?Nu))R^l7#e0De%p`Vbp6A!f^$m_%~$Dc;Je^<
zzbytFIusswJt<|l%?fxVtX+^A&$@|J*txX+qtwkjYR9%lB15P#jDz;gP@4eBL>k3F
zN<UuLh5pChq%s(WTrqNr$q$gq8_K0Rh#g}3#I|s&@TEwj3eh|<gHk#3L@Fe3()!I|
zR$UxQeU641(bb$Xz5<g@cGy=4zJVW*<KxI&Bm2a5qL`d(*Z?dpIa3TT*u?=_cJC}2
zyMQUKpf`aQ*qbE7w3Wljk%8wQ_}?cZ`q36kTw`8ZwFo&)S~+=BY;sp?T>POQsY48$
z!$3mi1^(F3G<QgfiJ%>lS~IR5w-)`gC|d1TPTpA?g|aB~KstF%Zcz~d=#gJLK`2=@
zDZah7d2B6Dkcpl5ITBJ6qEL;HOem!+DJhA36YUBY5O2`P4h=WuuO1~u@gaWOoFyx(
z@NGQ<1Gb-#E%G71T>~ry9oS6d>Jb(kijc(1$gS-}i!rg<KT!d4p$}k_U241*sq3w7
zx$WmDSo+bX{7i=&y>LuYYa|#(;O%(tq=`8BtMhRrZ{#okb%6+^a>%U1ObE?3#e}g!
z#&8lMUPXO9ij$q~=oy%LGT8^-5{cC$JWTPDQ9QOO*7XuOnAdMUM{mVXFjzCFUjIRA
zp&)GeZ^`VI5JH0&iN@Uj+@g9T!Io$p#G8EkK$tfKiiE`lL7@{ROt(L`_$5O+W)`ZE
zMX>uX$<D<XUp)k!>Ez%D^@az%C;Ptqcx-B??=0#*WuyoSVL)~qQy)QN4a9!=uO64M
zQ3LlhZ^^GXH^c7caP=T_GKpz$wd_Keb~6yJJMn9!wY0Pdk>J!iQ9d+uNFmVKYIQWB
zyoCom<`Qz!G3XuxJ2@cnSsSG=U9*iEnA~J0h2S^4a6FLk1~5WHyg}PIvAiKb>iNM!
zr}-|YPCWM)^hdm}ydc~G3SuFN$+6Q?i_~wnn9vV4q#W2bEx=t=r<*XtKKSEJ`IPH{
z4=K77hs}Cw%b2tx6hORA<hk=S6-13u$cEVl^%3Gyr)S`7`{Enu!~JmEx)M);Gd^S@
z#m<t~e^j})5A*|Hln|LyzmOVuC#cgq^n8M@Q8F!2e+pcf4kYXTC^>s9gtvrz_P34t
zc1#P9EgQkg*mxF`dc6>uUhdDHe2-81TQ=zR3=Xz-C&5B?fviQ9k}3|b5?0&OZ%(0q
zxXelo40^}w8uGNt?%UlhodpnzeKKhPHe8q3WUA?Un%jgWs<=WwT#uTed2v6LL<YvF
z>j%m8opVhnBSu*W%>aTn3xtybK)d!qFMC9JT>$nWI&3X?vS&wj)tbW31;2Y|S+LGE
zxa^JF<1=Z}kB<nj>IF({+p>4h0$IER+my+_mgHPEUuL`=5f3Wl>@<jK9U~`{<N)OE
z>wnJq`uZ|RKQ?r{ppjUsOfH00IB(lZX!o^KV0X~Z;)4|o0lG!lR}2oGfB+f)OtPgB
z_#I(FuN{FoJw%{#FX8%(r(-jBdF^+R91Gl!XGcqq?LjGD74<MYpm+x<D}yT=fb!Ry
z&a*qbBtzKEKJOBODD_c<5GWP!qp*Dr@fj((6IzurW}hO3GVYKzwyiufshMh~eL;L~
z4CjS}<7GI1Pk=IsAT=ZOym;O6H^lM4TG}$F(H}pZ5Taqny9Jj$6+5eCNEs)_Y`VZ{
zwt(FvXGuM>Kp6LDI1Qw%$sm`&YP91s#Y$NtUcNhJ1sWQWei;>_f*GjgF0`*!!>)hp
zt+(1|qRPOh5+xZL|2;3`m*w4~kVY&L%o=usQ|Jtw?+F}1Abcz)CZ?yqzXaL`zHCM*
zS6$N^>dwtz*Xss1CLGWTdOD%}%vAQs`?3dbTp!b(j^khJnOswkSipP^a9G{C^-O&D
zp^U4pD7XX3#ULJc5WZNDeBFUYU$KP=<AtQA@^aZM&=)yd92@k)yo8S*FG6GR+yNz_
z<4Fm%2&12q|3!Y1ggilwXu?z{j3(8A?(PF%7^O*8ySt-~A4M*-_>KPl=I#k&`yXr_
z2=GP-380)*$#`~}e>u$fUq3v=#Wr`WZS0(}4=uNK@JNj5H%}N)U7Z(`92FHc3!Ymn
z<7yy+MP2^ZUFR#N6sx8z1{y+fAb3_qgsPGn6cjXz;=QRW=XRfx@o60BV8*k+AR1h3
z?ygr0ggW}iwl2bRzvQy&Y{9t}nS6Rmw~s)rL3zQMr2^GDqHd1`Cb!A*{&*8Jckp0u
z%CAgkRQsJCe@ubZFvmfm6sCyn){}zW0?f6K3hSn5>T^3#ITmtxUwR|&wIZmX(qLOf
z(bC%3Jps2gTdg^#NNb0_!;Z>^q#6h%zqsB!p^ACbE0R%Y%H6}nRpMQTJR_yG1!Z@|
z*jv}hjldR4*ty?RH3lIN?bA;w%IE=C)Mt}ct?ZK6qW&y2G&BRuso3eKg{o1y^i~tY
z*s`eDG|s}bRGor6UiEthDUI<De!MAhaIYz@)0KCqsZ7z84_rUa$HUp6vx~`f%P$(7
zGsI}&Np65#MF@8W>ZK15SATgaEJz&z3UEp7#+8fNkV<h=R<C{w*Fh;X$9nJb_Q5!M
zT07Vpte(F24CbbP1PEz1fx`11g7TDYvm1uaFV#Fh2rUIp#bd|+?QvveWXQ4IOC<~)
zS6lTULn->~Ctk;=VDYvSLXnE9YQdWXS;d4o;}rZP7#)NWLm_5fDAd9&>6=m6ZuiFm
z)dr$&ZUTZD=X$l&5+ceT*s^Y6>5u=NDSx&3kX$*4$`~GtBfQ!wL2)mkb()iI1JJ;~
z6oBqb3gqB~oYT?K$$}zxms0kOB8l)(R8Ou6asP}Uz?0&E6a1uD1m2ZO18vqyORmy{
z*?)~TnxOz#d|#1FI8Rg>B2;FZBd=~Bby~-sc~rwNvds1fP3-XmyP;tw3@u5s2(p7z
ztpoffhlYlRNcGMKhSWfHb#(@z2+n!UJ*q@}NaN^A@u@!<H-v{RL}z3?ls!8i>~a5$
zg16FxvU2J1R7R~9lq^#F28C^DDw>H$!1(3t@9!r(Ib^tp+n>JrQE1XC^XM2)gIe79
z5rGDU!0|&o4Kys%)-5dKjAdHF%SLFHj4)jYGQI|CCEYLZTC*k+<2q2tEanLFf1hhe
zE{l-R929Af$43u%d?Zv4N+AT2NMpfGL>O#MSvUtx$W*EGBX@6z^bQQ{5aF6zDK>Q5
z%}5hmCt9|>a>VsEDUH9upxF=dQht5$8pPj-o>f&DB>XskG_ep)(%HZgFx~@as=`({
z8HofK>ID*qP*Gj&wa%gYl$K&cc!TepG1L`Yyde$+H}kw5j?t8nw0++gcn%a*MT6}R
zOU8vvHnpSmdIWpw0Gf7(+YGVbsXd{7W@y~*z}75oY?(+p9AR_p9^FyyqiOl`F_m>%
zK_%nLRi@=Nj%PMms40w<on+c7lRx;t&6f~;11N|uOWU5V8*jr4im<NwfYxE+AWX#z
znx4M^G`99wn=^%QuAf72;{aYi{y<-&6ytGxz?z}Ja>r;#oa!AMECX-tC5&lkP|zOY
zn$HxYHGxt;R%TGU@csRKnP9<V?w<G^f3K0Mv8HD03VJ7rdk{I~&e>%&REVKl^M#*L
z8pr;Zx8z6+cR1FpJt=|2!Wqb)ifi#I8Fg%UK1RdGshu+y(Mw?t?r+DP)jV5&^d>hw
z9}^m?93;5_7Ri(()`SL_iXRyvz$D4TJSl{dM^q%-_2yLdDTDhZ*tQr-$4Ts9!#0-K
zvBj`N=k(J835mIb%bbVv*Js>p2Q$r*X0acNmEu#m>&y!GdS3@|r4*Lm8=*ZZhmjr$
z=yi^E@Hz=W<l2s$5mMK$>2Uu{)^DBTkc$n@=?EYIW0ywYCNBtCXc{r8I8WCHRE<b%
zGx}I_b~kAeX&H~TQdEn5XWFb<d!qXy70cDuF>E<j{(M6D)}Eet-Li7PPFSN3$dAgr
zH_~(<oPUte_z4)`2!3h@6d`9*j-~bbU<r|E*>@fdEQC!QeWa9e%{7WWHKsnmD>OhC
z@z>S++n<w=E!guy5eYrOJ@rWU^u%6WO1}mcG)ZMLerzAynh^uGDd}ec^H$WFubYtc
z4@WpjxsA;QpM#I-N&Ku86w^cObj+OVf!>tx@W8uFhjzGm$XMmOk^XhE1mHM{49G;j
z3qiGrEG301Mz1d;yaY*kd3nS^4ULVXi0O}$#G(=>1uTT<{AzbK<nvj`IlI8rGbUXS
z%rmp3StmFC+`8GDrWpski$U^oWIQ}**+pl?XUcbV39%nzH9@EHsaRw5%~NX}dbY`E
zu1yLp+l`<fF6oSlG0<3Iz1y{R(l3+iiXhk`Z2*@(J-V-BFhlYHpN?YhE-<{e);7k{
z%9|G8!VYg`TK8q+agCeOfoMM8mNDB<o0ata2u8$M)7m}IkCSqI#3;Bi{y!F`IaFf%
z7Unvbt=%4vS8VDac8lxm(EHn@A%;prEMY1%#pX^1C{Sxk_>&Q|TvF=<b5xnp{y-WR
zE{ILHe^|butO^vRAot^(co|h^lA8gVQ)yc=+Lmjn*F0H~6+MSmxI)4Q0zP0o(oMVF
zKlO2=%o-t&CPXFy6w+81B|moPreUB2Kf}1Y-N-~}8)s8uKsp|p;BSx}wH#0qwpVTJ
z$|)O@0Zqxxh;52vAW|{P3@>pXl_z891Ht!$G^Z{_=FbZvIwe16gI{?zqUdR3gII0g
zH7zt(gr}ehh2GXNFfahFx|>FB9v^FC`~mEd{={&tpl?Q%2-7+1t8`Aw7D#xxb`c|0
zmOq$$BVP@Z*`R%OkHXO|qksR138g$V>&2QTfq+g*)IEYaqp1a$&P-Hxq$z)2^n$h_
z`mP9fQjosa7OnU$`wz1A1|NXV?Kv9hU)a`s=f2)Cht1_A!ZcTKvn}{x_x0S&&%VCK
z?$#W8@4i;C9SQ~ucIe>pyxuhX(czdwQbNLY=*v*&%|0aR^#1(WbY)tF&8;6{Xt{|k
z_xHMR*0}Ov_@!sBlO)y`NcbJmm=Iz*uwe<Wiz6_%5Wsg3R%vZlwtjr$N@*T6y{>=e
z4PB~JfbngeDaTHRsKlZ%n1n1)ANbL!n@Tuv;?spPW=QcFS@dQHWi&DMba$VlsX<(a
zt(kZy`$4-_srLiF2CJ|c1xg%cyh6pG7PC~5V_UviPjgI}&@;N<JSNGD(yZW6JmEOy
z_UX?#D#Xkg<1o0qF0wvGZ9}^I!pZWFA^T8Oqtw0BBS?&Mr%xDYCnV{t&zH#SPt?^4
z($73o(1=h=V0@cwf@yiEYXRQRfnV@|<jxtjn2SFo&(y*<t#ER;M2kZwX-{ceuSEg^
z(iRhE-@!%g4VnZvE>8A#JcwbrM<sYsgCd+GBm~CD<~z_`v|UiM#&M=H@CNd~GPGM3
z#>~98{BpQpc41;b<iMk&b4#bJPOP{w<m`O%{BFrLs~$WWKJ)A8)#@7$<)<ibh*RWZ
z-N?zMsxOd|nvwX0lfz26Io$fTHusr7gH(<9uASyvk)f^l2WR-NMORl`f6>#rb2ilA
ziO<yw_XJvHsudC|jk5<U=L8OkjZV-{?(_TxakX<YGG|YnTFUh5&6{7KhYYgiN61FJ
z%nE-R)5XD(<R4ZQ`!sP_%zo;34719C0>MW*i!LiwNlxw#P}WVDbq9H~6AB8?_Q>QO
zbno5LJh($=VQs~`4iTgQ?`%eIJbU(xPqisLD{BYzLZ^^{GciG_@+3qUwr|Kzz1d#|
zbG{r(ULO&6J-~k-jM_w2>$8j6Zh{W<FU~hszZG&39c-MKPyPJd+^a%ok1Ab(Gw|`v
zIksJ1WfF39)pMs$Q&^7txu8s?1<%abLMijXLXCdn_dRcCb~<~~XuogUruWvpw^tv|
ziseM5e)+1qA8xN#EqFc}9T|D@+O^%0QBiI+3s4{XgM*{6XXnt8#?o=Pk;~Ar$+ZQ7
zis>?sEDuX|pyB)btp5?8FYWBM5Vk?L!4{PaC&;N#_U~sC+4sjEOfV3pGm&*k0b!z!
zS&etNyYxKlUUMt68Dp8E3V9JpM{8s@^mP4tELQW@I3^XW$F$D(Qqf6ov0Ranhak$~
zIX>CnxCPLO=}f}%iSDxZ?~hRS?&bG$|FacE4*!5P3AGMfcgrM_0-_Ye*y?Qq<fhfG
zdt|Sdn^L>pXCv8R4sAPG)gQYJWPZ~!-`bmP%<1hkJ7vlw?O~W$u<)__vR#0NhDKe6
z%~6cOFu}AYwQR@joL)qY>J%nbL!tdXM11dmGGsO=8}IPe%tsI6J*cdFgCK_W?9|~q
zE-sL=dx)u}Vf(kOS-&i|UBo|spc#`TkZdgX@$vawQt}D9YG2c>j6de*UmNQ#?>E{M
zp4g?=S7xOeKOtf$TC?ro!`j-~Ezl1*X3@I|2F>OB_iI(v)vwVpZVjsZ@9Wp!{+4%N
zcy8G8RB#P%&HFKt%#4h;7^VtI<L_X+AK>9R<KQ4VJ2zJjg-J|A`2zzu)$L8g%Npi?
zwqyz?-K@U@4Z1dXDzatU`up9$vfl<+L3fMh`R@3REU%)j-P;XH6(0q<MGMJ9*z>$E
zX#JIg{KrPJe{l`le${}A@!ww$zq4nY{@2%rPs@0*&Wm49Pan>e`q#H8vge03{PV5#
z)J+@zKlm}B&n13>yS$6>#}vw>=`}9{19@xIRaEqA(_+Z@MNIR|KqJA5Nk2Q$1Ql*<
z<oi&<otmD0SU@5;<y4#-D3>n@I^%W{==Dc4VXJ|JKAZaeEma$sm^N>vp8ivz=;`Eb
zg}T0$S79>x`kd`%LI|0b>fHa%2Z<hMHJ-DlPcK{cr-|h;vJ#X(xBG8rTL1KDbxqBO
zf`WoJu~fCS;^N|CeYNYL|MB4A!(1p4VdCAE_}<OSmgpxo1bkzSPS2z)tJ3GkA67Ot
z<^jPj+h6ZEW17<se3pBnr<UGbz6Z+7-ypunU8I+&vU-oz!LuzZ<*s_z{YZ{}`}TLp
zJux{0b$W$q1sB{ui$z984uRKsGN`-_V}x&69=mW9V?@?$J;a3a;%Q4u0Vv-1Z)dzM
z>YB4d8_JCXc&5kN`v9Iu$jYvVoSO&AepjK?J2WzK(%xPK${7CJC**se;km*yU4}>*
z<+k&bSDy1`Qi`hX?_9mz?sBTxUOrZ4H00@xJx*$UgbOTTY5}>xa&j-kc-F5^bYjPL
zx&Asj`rvhK?W?E}PNDhg7oYPt-m0BAkt6Tr`p!$J_6Kl@<P?XIcIuiPB3q4&jJS(1
z|7|_f5Q4XFprqptR;sBrbXh&mSf^58FxH5;(glr@cw5{m?d`h$y#H5oXZ{Xl+s5%*
zNhpPE*{P(mq=>|%5@qRWBSeG;4<%zHWh+J2QI8f;vXqjoWb9jIERU2)qwGuB(kLZ7
zvb^8B<L!s{KX~Wp=xCX7%zfY2bza}|yw2<M)zy`Reo$6bWde?~5gZ!V%fAMx@Egj!
zwwd8aZWMSg%JcS_X0lULQn*A#MajvCJq=zo+&&5L_TGg3){*M)yJX>pi@;|cz?H>i
zOUCfv&BS?9><&Rxmzs|XUp<a`lNN?n*fN<&#1GfYAAHo*)WB3)N62evT($SZoEEye
zduqF*V(R>ZyJd@rTV_1k+S*f7Qx3rBSTWp1$)|OB`^*j%9GqDoA}(Hd`r#khVPQPP
z`MY=TvNlae#JVP(t?AVex*DjpWlJP&RL$yfRXr<T4qGA%2oX`yUL2VB_163~0N0SS
z&^j3yoc9b5aYrX7=A=(rPLj{}0dq_S`~ohl%V8zMhBW0+R8Zi$aN&a2nKQ;1{erTx
zbd=PW141zc+E6xKTVLNU`Zx$YO>UZ&>{YxAfNG-yVeG?c6SXVx*@1xpR_;mPJ2g4A
z5Yf!Z;F&RF!obBPeX1)?9rW_C_ei0%+Qk8X8f}N|^Hh+BhLNG6f!a+c>}(h{ShXJ+
z=vb@^Cdw2l*^$7xJZo-VfgKZxZN4gVIO>*GQquPE2>>;Y+t8Xqnn@kRnzKq-nU_Cw
z0h|h|P{`SDVex04nyJpWuBIb)b}<OSitE<#!3pOQ+E7IJ7r`!ZBdo2Y0Uu-^hz-kO
z0Tnrh4ZxMSa!^)Rfdqf$>Q$Db>{~3AGpOsnxT3JDXLvXQypKLiA4Bv}SPwotnDLl4
zxDR^(e6J}#Rq%7CCpb}Pu<6B$$rD?A=8G&s1I)villblEj2XUXJHzhKyUd~@3Fr%6
z0fEq+DF&d`S`X%aLDi=3=2l>!pXl%yPu$x4MF?`3s-fSh`Rgefx(J1b2fc82cjqP+
z5DFR^tj`}tyUI7n4)*ma;(UIgGDt{@H@3nqIBFI+xe#=*S=GGXps1M2d;%1d=wx@v
z=>~^r?Bt6#;EOD=$!_`ly?JtK%;`8lf<_;JmKXmtG7^f_jO+YY93qs=s(t^X2;MZA
z@2Wa(&M`=j&Z!_Lr?h&SG(5lwgLvS7pUoDGTX;-fkmn6CN)r-Ov2w`s#85sCi%O%{
zz4iWzFiv)}LzY(*@NZtdhvPEiZmDTbeDnN^Fo6{i8;uo4&{7+1-a&pbe-0pt3Audv
z@-uG=g|gGy`d0l2{214u<1_9_EtAQ&{`#X<>U5>6Svh95^E+PwyIk~G@M8~5mHq_~
z+j^Qdd3+uBM_xXeop-X+^;L<n4?xKZgdiw6$t<^*rOD)+7*DJf!eV6k_51f-hYyPo
z2AS+WEcaqE>bwh3A-f3I$u|8h*_Khz?L9abjqcvId_HXaXq8CVdf+5!G^UDVCnjSo
z77yJ1qZYybgLM^eZfSYkDC)VU;m(kROHmDIG&b4ls;UAcj)yf1ZNXx(peyrrECV^5
zuDXVXT`*R${(jRF0S$SjM#($^JdRe*UBI$K1{tH*DS3Iq0R9+_v_hyLN+%!8Fsp&_
zRVWZRg%YCfs{VzE2?>!nHCE`?o!|#=I{`vWeRYdv;6T;{;Q+rrA|X8!B28mN;@1kU
z<QEa1r3t1E^(XjjVln_3+1XYEtRw`*#KLeOhmXNvG`W+%9%g3l+Pjwzm^(U->?hhG
zcV38ZP+jZ4T#gcrcz0AJu>zdi&)t=B2F;2FP%(Z}UsH+*J2;_};cp%V4~QVfqZqgf
zQIBu4^LD~uYZNPM4%QEvvC{KJp}BG54*V-W(X?s~1m35C6MLew#A0R=TX%5$TNY!q
z5P=D0&fvyT2Ji&=({+=OU#w!9E7XmYg@pya=l)E#va)iOsd_m#p{%Z63)0jnYMJgy
z>ZzfqsHhiU98zKE1XUIBuCky&418daD7l-i9j17H+>`kOfFy3L4|T6z)ub86R#$Yu
zOr^-J8&yI<Il1N6O+tb1>B9|htOULe?~o<Vqn)k~<ulbba#2Cs4){CAj_olu-DPdP
z@~u1LeHU&HGh??mjh49P>+H;oJnsU4d{<YT0aRXW`wGy5@;yq!RO~CHP3{Y~7oHOT
zX)VYd6?cWrX5$Vj5LPqa--rbcyqqB9<>d`J2K0VOC+C6!nT=+KZ!4^}?Z$fb901E|
zr+2yb-Hw$RwXbsRN|i=SsUO0aRH=m2l=O5X2~e`8cq^U^6Dkm@>k4So<9}WJ6N(}f
z+|=;?tiYxAg4_!5Kya1`k>_=1*klcY<*i}!>ewO8_iabA?-Y7YFCd=d(gj*l*zTdY
zsHlF}KQ*OB&*?*9g<_saW{u$fIu;}DSqD&bPX?aKH%eoLpIqr-JTHl3t|_Uh&mD^4
zFrw*SJ%<`t?lW)fxoEYn#U{5P!HdZL93VRL8d)&@2tg#@&5rZn6;}J^*cLnH%la2)
z2A31ONE)&WIujsh^3U1DFq^~zTUt2!d+#5N=m!9}!~N{9k-eiwL;$lI{cU}|c6N7m
z*H(a0>~;F|BH}hBux-GK1XaM{K}1BPs=Heb=yb~%CH8}Z8CT-s77~6yS!{$i;>CVj
zJG(I)q;E(sXxr>Rd7Xk0fTzBIfZI?ErA9Tb{;_ALF7<5>I!6A8`+@H%926A9GYK4?
z0Fa9WfuC<BbH=|^+t$|hN_;#oq2n{OKeHd&flp3O?&8mJW3yQ4t-`q#(~q8c0}eaX
zQM{SZl=^dtrg_E_SSb=!XkF;(@Beet1esS7z`eOOKaZrlYhx7yU_MV*?asGv-qcde
zTrruEAqvgcpGe-XTz!|ek7Yo{w*kkHo8fgP)3l@OMfjuWr_Y?Jh0x_9`1trFHaYXQ
z<l4uUmFdAn%;xYrVDDHkL+Gdolmg1T$h)6EDR}N|)TfR2va-xN=CHT#mUqI-Yonf?
z-U-jA`gyMQ`g`XkU*FmG&e<ASoCa3_baou=E{-54WNpyXlQw7;U)bW+Qcj(p3%r+}
z?uf1l-la<~?M#6*7Pl|?_n^gkQS8K<wP?XIEA8ia+&P??EMR$Wy0sK6t%Xf`R6b3+
zqjqxT@QV66K8_Cx+M}8TNh0p_u5nm^faFqg(q<mu>`TzB{}ewyobF1f%$E=Ux)Hi1
zmmaSgoQ1Q8V(J6a#jcAD3|CuBe_v;_IZqYZ2B}arCN6oKXF!qfqu_~Phg1#|dW){`
zArj@&HvvO2Gy40d)v%RhauCB4R5rxbH&q4)m&SUXRR7FA^2eLXnv!CwIp6Z-wa^5F
zW{l+I__(IkzMJx!jBa|d-82Wn+M+j)#-PF<o@U;dVws8Q5;OV*uxnOeiO@BoXJo`9
zPX>DmgsQky^B+l>Z1;z3_qZQJ9;#bUMy9m|qCqB$UVls)YnW#&n6Tk>HowI3eNgnN
zKf%z<e?*7P37Ki4ffiX{4Wa=?TR8F;m1AWRXx2nL+H745966H%8Q(c%GI~Rp`&sHY
zr0r@P-HTfz#Qn#wXOG93r0bNZw@r89{ZEyPJ(kg&^0xST#0?gBA1*EV%j85qhokCw
zRF@Hx_VZ;cXZY>gw>Y{sJIk^8mH6qG$M>vJ%-ebPY_ZOnM~Js<zGE`b&Eub2SHOVJ
z*u;b%s^u}TbVL<^j{9wGPmI5>t~S)Tfm)dpmZ!$_*vFP&Sur^{ip_Mk-XVxhf<=k#
z`D<tInR@VbK;b<dVcgG6y0`sX?!$)<+25vV12)rsrTUEia)c#j@o9ZMy~jZ3p}vxg
z_zqQWlPwk^Zy?C+?BZh6NiWCLH1C*0{!=Z{c=p!jgwk?`hj~EDKA~@#D9x-0wr6b7
zO(Jjdp38j5beHgjG@a;Tp`SQBwx<o3v;-a?)xp7Nj#O%Zv)?LhZE;BYy4SC3VW~8R
zTrAPC$)4C-=oY7e3wdgKur+Din4jYJwaTsdpMOjeh0SkFT&K*|b{#z$omEkB>~@lZ
ziptB+tTKAjjY*^3yBE28cyJM9RSEG=NKo)RSn$u8%=^}gmHOsFsoR(P!tb#2(@9PP
zzcIr@eR>QI9J(5RPwWj&>f&0+qoW~A#=pOX$)#Nd0%0R<z)Twcp#kb!x3>133!3}a
z6=L`0$F$Muy&5#J_LY<X9gOsacuck>K71%b3CsOpggtn$7M_({L|t876|51L-e`7b
z#OwPPusJ%Bb7gf1H(FLkg4_Yv$W|Jm8rly-nNhE1LRj}ezZo^C+2rpDn3+R=*5*<H
zW48wXUBSz&4@EIhP+5X{1|vh&|J&EERd9&#Ck&7|qwJEEW14X|vOQb%?VqoGWu7%O
znBHDH1E;2a^z>PloX~cF4c8j&BxBma=O{E><-?Q3B1tay*z)1R>?P$wN2Mc^pPPrr
z#`cuCxd41T$UyGw>I&ECoo4cspcx4mv((0GI8}cepnrrzgCM~7@+c8-+O)>MbXT@M
z`f-CqHy7#Sb0^vh%%xXmvE01+{}DAbHZCk(EleQUj`$uHgjz9fj^N;0PZS4naCQt#
zqGj+Z#qBt3KaBO<wu2rKu>)fsDIB4>CK-KM5x~`mLw^wjlrb<bjj3CtQ?f?|W{2eg
zUZF!jQAaIz2=2GGjsW?V2mT5Sw;fLk9-sT+PTjVCJwHgl#>bB<$Zii(smNuyA-M^~
zMxFymL_BeCA(Z<jP^CAc?<sUGrEfa>&6%h|mfMzPo&n{xsA-($+1Pi7yn*BG)wqMK
z`JdQCLNsFDG*h~W#=f$$GBV8rK((xOfy>?CxviwQK9q>0VYjWVG+fr#Q#?m|doN(1
z$*Zd`H)u8)g$Ybp>*)!UFtCev{$NHmNQEJ&dmTP}*h<vi$43)ldU5h!tNSsWS%8|?
zIdAeAYU0BBQdeKU1Bx5Oa~BIK`kRzpi{Vo!P9zBbz}mE5S>#H+vlorF3+oNsrK90x
zvIIf+6oX<sE=uOz@(Kz&W+u@T$&GVe_^CxjMG!~?N{7Oerw|H3W-fS$p_l2u3mGNW
zduZS0@W{xJgBc>ZvB>_gQ65uMV}y|3tv2YQ&c(&mSRn`#6B*=gq`MY==9tY{e}5-1
zoTt!HbHLKFB~=#d+@;V^E;p0N>8U9LrMQU7%%p(Gs$(48$k8BmH8ruym&r;c>bG$a
z&ap6*Lq?LJ;aYOM$}((JE239wdrI>!Su%!gQ*=U{b9P=0AatVsxs!VUIK6WBZnt~!
zTG%F#g~g$_87sh15|WgR#C)@seqg5b0$Yqx=(K5cy9M=v<g2bvqWw7;*VhRyjfjca
zjo?skJTKFEgm@hI)0e8C;RFfu1i5J$TGhqgec?TM_Ef+R_7TUBW<gvd^hpn#aTysh
z#@I90g+29~6Z_mekm6)8{Y$znN;0-dvvO8NOKS0Z7fTb>ixe~d%JJ&l8CjyPMP6F?
z%V*@J3E@96YV>Mi<ziuki|O_OT4D;lB2ZY)hdOg|a^g3;E?d801Ms;Qa7_Psd%G0E
zCd5EBaBUYc(0idu{P6s<-P0fni+qNK%gW0k`{_s*uHCp{V;c*w7K|jmqTlEPm|upl
z*y+Vkgu&E_uCkT5Wf(G+%po^ag>=r1E5mtDNJ?r69v32$S^P#W+(IU%-(@gY<FnFK
zr~hHIMKKkNd^wUN3G~wC%P;UR(BSYQu&NBw2OvEbt{b(Fre*G9iiYmI057n64<4*i
zQsTk8aK#4>9GC)(%<D^+KKJ6q?Y+^`PN?e^`A@1Xlhq4HKSc^MFvocwZtflus{^e;
zh3d|-Eq>!5gQWKbkk%W6=K?NWx>VKJm~Gy6nj298?E`BuQg0_Kp=wN=m(@S#0Q1~^
z^f2;n-!oK-x6%6b$GTU@nVC#fqe{b|y0>jr9DL)>@B?L(ylJ?h3KU9Ls{&bDyL!nB
z4+$>@>1Xc%OaPIf&OdqdG%DcNZr*&+-QE2$e=Qjo48wlEvlw=ksR-04?mW!Oszwjt
zhtF4TyG(uUB{NkQ7bR?D4}JC`ztkQ_9Y{>P+HPal3s~L7gjJc}lejc$68IBjoIuqD
zrc!0S|9yYRf8S4jCVWro|Nf0s5Wio4E0e3(@7L-`azXz6iXe6E@7JEx|C^6}nkU|u
XypWRciTpse(C*#6&oF1FL&$#sn4Qd9

diff --git a/reference/plot-9.png b/reference/plot-9.png
index e659895db99c695d3f0d966566b431bfdaa173a7..0a557019c7cbf1f74f556f578927245b725648cb 100644
GIT binary patch
literal 26319
zcmeIbXIPZ!wk=v}w{{yqR76Ff#fS<t20)?#BPt3KBq}Hdl1P-?ZKGst6;Y8Oh)4#3
zA_tX%7DPZYMG%mjb0~^B<1M<^UVH7k&pvlQYyUX+E}pd-8mhkf!u!rS<``qnc0YIa
z_==?)mQpB`6(>(9C{rlk+fpct^nX~4-_W1D9KyH7`ijRD@Eu>%M>3u9?Z;auE?Q71
zeD}%!7x=ahU!_ofqMTGXbiwvTU!(mC)vMX^LxVxmJcmR!>^vc4x96zviv9Wa8oC@;
z^TlYRBc{*nPL2BiR!@68q8YS%zo<@@pGWKP$d}5M`?*v06hD?ZwY2s7Uw^qIVn5N8
zD=*o%_!;kB`&yYHr(E4pJ6Zecq@Zz~r0SnPTnl2xoPK$3$9L?L`xv>yW&!&rOJ5fr
z^21N(7wVGlE($-|vj4Jb>(}qeFHSuEXS|?#ksh;0J?!=CZ8vY;Z2kQ>zmUy=kE7${
zY{b{9wu?~Q{%F7bdx_y@!O(L%9;ZJao3>kszws{H`ybDydXc*BovUk>y6#xB)V%D_
z62Hui<V06(`p-|ect>z)VVkc!|Fu9XwZ6ncezEIiA#Y-1y<Z-=UvON0rd)ESE3ECg
zQJgyty>+SUVgCZ-n>Rhy?={RHE))=;o22TDbysX(%*nqoc&0L<mC?*{%9`#7(Am)W
z^)9E+^XJdsL`J&HGrN_zxXQnLS+&>jliTXElADhCY+Ua+Gv;oR+9;kg+b&wDD4Jc_
zA!*U^$$j**w5WBn<78KJuJdv}seN*z&r0*NC!2Vu9deBH-b{Miy!)Of|J@RSjdz!D
z`p7xX<WJDe1hxlSD$9)gu^Auow%TCgf>2zWdhSeBYYhYU^v0w{zmESBe%qhU$}`7m
zFW=`2)ys7{ucETLRE}Z%@$+z3n6C)`<V<h8UbG{p<X4y09GvL&R6V(1-_9U=k<ZeD
zS+&=K9reHF{ZbyUms@)yBCvI;&DYm{Fk4~+FR#7b&ZDk}UuvkIIdf*;zI~P%r6cXd
z>hy@{Q+Jvt3UYbz5Dvay`j{3SpQBl8*BiTxt32FSk2O;h=ySlJ!0WJ%j!uNZnIM_;
z1c&Jnj>39p7SofdXWQcXKEN#J;yO78+xu-n7M~BeI>_na*}8UgbiBv2qF-joPSl1a
z7}vcOam?;04c4nQiqDpkO^v12M-9DSCTe-(lk$!#D;efkg{Py_Xh3taeb%I&f4W8I
zT5A2xXmQ{1u?i*sKAB*Lk&mru0yAazGqRd-ttt)ip`oE=Wn~G+f}cEj@?JQ#;mg3C
z<hibzc)iO7Uh4z-Q+Mf=I>_bL*X~k_>9TBao*NC0?yq>J+?<*{JV^Ha1M$7K#h1!M
zk0#=I7V?^9oqsD<Dm&Tm^ykZm{S76XEGy0=e&CQ+aCCI^FPJMab6U-sFk`J9?I`I@
zXr9cO%ubt|>D}yKOvA%kE6=DamFi=C+FP3c@;-lk_ptM1W;4x=YjbO4L{Lxi;Oz9M
zfxnKm`*8us<cb{GD&87%lLp+xMCJs&5PzgM=<aCgE5Xg$ym<M#m0Vo$xpQ`(p6!iL
zWHegSO=uIinY>n3Rz_pb<Q(lbT2-F!4?1pC>@Vv3<LYhs-V#l<w4&mO%1M*-K?z*j
zCFYi|!gp^}yry|@?-CT$e{@FN9S`b2M@axrNlD4?rJb9DOOGEpawKcKT5I@^&A$2S
zIU{~u^i;FVHrc7Kcg<T|dDiNgrBtbzW1Z8!ge#KQTUc0R&5jfgyNWuztnI{yx*g#-
z@Jeyh*P5J(6pcjvqh5T{;)bO`e7NOq4srtC-rmFctCjMHT0VF>D#?ylN=|=!)Q0=x
z;l!MwmEw_Tq}{sw?RGi>$Z$u1S%FyLMwLE!qv{yjj%U~EWhb)kjOsU}nbX=gE?%)=
zjYPw(BfB*ce$v#`6hutG0ye0Qxk#QK&m^zBlf!JA0IO@P!7j8CH}}l5JzJj#1Q=xY
zQ$6qV+wJJ-?IoA+@|@e@mn-cD(yx8=QN4I^Jqaqq<5o2~HQjQqhc~@G6QJhcSbrnJ
zs+P4`VERM@7J-<}K*M!oV=r8gu(0s3uk-9?eutrVwRjV*N@h4;Bl-GyiO*LWySy3H
zhDoxO5`uR2&bD}0-j^GD*{b!1H5MU1em#cliL#eRJlp!IbW^^Zs@b0Cc-?;C22Pow
zg8@uU(eGDsxmKK&j!m0=&&XyBWEy4dckmRZ?jYB7J;_-vSahRZ*GpOs2_%`!0v|rD
zzDai_htLle#qGCU-B)j4%Mfs$9qykHc2(9b9N1ls<B<pSpv2JLvM+81kxy5~6anC6
zdV2bYInk`4!-*{1_ND>mD3-t)!_P131}0Q*r)ysx`Sy_}mOC0am`qQ7p}23X+EJ^B
zu>x0Cd+X^tt;NMpgm+O>>86?d-s9gMDHXhTUFI1-hzQtK5uudHR65Z9Sn}J0BOdYO
z5SDgcmp|O2ajR={Jv;rnq(8ufdU2zDUt+Z5fRFTm+o8LQQ|ja&eayGXWi+<-c2`8C
z)(!fp>$-0bcGx2*7!@7e_RA9fuAzpVJ9oD7<W3zmU+=<en)dP)XS-c4xz0CnaXwmR
z+54lSqN+a*Q=9C1Ta7DluWe_C3#I#<$E(zN=$$Vt&Sp-QE?Ba0C2p))CS5)9%^SDi
z*>BrvHS%-AzL}acQdL_2e)lZmkPNAv`>5pfB`ihREWQ1SKI5r@k2|i#Dx;L_e|-k_
zwnw<4zjZCkNROczv8fejs$p!F(fvBHM%Uh|HrMK4%JuTl>o;y(3@a^>Xx26kcATiA
z?Y|`bB|<5f>;}(x*3f-<%M2wOzY!_xLig=Kwc+t6g&f;>n|Dw}GyC3JGxqP_PfMxM
z)pBsGJb&Ep+Z2;A>1#r*+a@U3<izN|e)Hzek7?nR|8Vly6!Eokqo4K~AOU)lKwwcS
zTXUm!#wprx=`n@bLg(4z{u6cPg?#GvjddR?5Hc&epCUxuNt88hNIQGYAjkQbfp~yU
zSm|b88D-<tAghLF)kdW`*#A0BW+v>jMTTqWEws)3z$u?qo5Px87!0@4OeXB7TJ9q*
z9#zP%O*Cj*BrtU_!axESahFqW-L;@QhJ8t;a>KuHI{b9g$Oy2)FvS-)D>hBZEIz4$
zFWaj53Bzd-mRhya!lpg!JciHlLd3uUd*gHYo2LpSTCpW;mv5B(nZ$*N7q?G+dT}7B
z<XLPqQjcwSxW7lddWmu0>7z%FI!t{K5XqUt+Hbndiu-gh=FL=1>^{q`GLfqCXLU)}
zc<4(u-a0teTO&F%-pfN0KJvAKiHXT@m=#6x&d9e`r@%lhrN=!|)-`HcCaNQ1(iN#@
z%~kvlZ8`&OsC9z`PbA7-EqcsRxEr9RWPeS*%YsF%D#0@sw9RSU!$`t~nS(jJB<z+L
zsxz*~V)re%Rv~TIn<G5QB$+5C_`9sDdz@ycNF-^%LpASuc|UIL1Cfhwx5Q;n)Yl?W
z82s^Illf$$P3nOHMssLmt}{zSz&WWzd>2(cMx*?4^Jl}hiDYN3k!c6>#n<zTelkPk
zPt>P*kjPa~P;lMURKzKngEET0=Qe5Il?dHelb8uWcS=fEJ<w^Un>KNjM<=;p!lv0V
zHBHX!>eZ_oEz1t^`Pekw>7-%X(Z=`0=xAj-Ha{8tx2F>Y7>2l0K(J4pu{g;tI7PjU
zHVx+I5nQ>r6#YfKOPwZ?hMQT;W}`mV+)pV<A=H$ko@=@3j*N-^j`d?f%D?6Jo>Gc8
zxQRTM+PY{=*O@u~bnms#H|b^w-ujHkDrep6>+7uxXXwpyYk72SFAtB)G5S_dHak0K
z4HxhZBa!Sy(E2ty4dg-dEe|{HKjoDXmt<vDLvzebY&63yK3Mo&R<FB<hez$r=-Ac=
zM>yOOLpE*Lu%Y#fqNuQ`e4E$a(3~8n6vsW!KHXFl&O&O}ky4Wj)-$<rKQ^@~<9?OD
z?zTr4O=7<i0Gsk4K3X7FU`MKmWvA5Z*P)?;IdkLjJbHRIjaD>k<QQx?ZawF2MZKO|
zF~O|aPTIuz<9yt>C@&@FnF=xed^ZAAE?l?}!}UA|DOgt4Rotrm<<-EFAM|P_`wMR6
z5+KjFdMGY}1i+Z2&mMpQu~X@Qc-G!d0ChHrjZJoM1}Ep1NUji&%L-7Ph+_w=p#4T_
z>vwhM#OW4RChOjxye~g{8Bl{q&q0iY3pb7QV?zvqu1TlZ_}<4tDpG+9GOv7mSY;SI
zsj%&ldqze^Ywy+KCx~#n;<LWo2)^Bv%G<+Uq{&KonL+eBoq?YHSR*#x{d!aHc|7`i
z<1*tETWauobz|T4d$%p-*jW2vr+p!bEXGPC2|s^cq;aOy(wa{tsr`vo!Ba5<LH%~A
zr0D8~?3tcuPsfZ^wbUS;dcXay@mV891CQx()iv$NvIY@Mt<tlmr8BphO|P@lYMI=E
zL8<D>$~8c|rvAUy-n(}%4WI83PuDzk88|`g${!C}djW_nrxKz9Of!UDD+TL1G)nd9
zH1}on#wFsl#}x9BtlG$O%$zMtzBAfEV=<gr@ijMhja!{A#~tzLFBZw%jk9j8H;NZ_
z8bD_3v-GMybfq_(zkVd3d3IaQbcvaD*p~@Dl8q<ot_5e;FZ$9nc#qfA4ap_GLd?D`
z$BO*``?-dmymRHzU3cU@hxf@x+h|8PW!DU5jh;<TPFBb-vO4H5qO&2F*>BbsCcwPD
z8{1t_u&1X-pKKz782nUKE#^4#al65NK5I7u9jD4t07EP~KYKq?lDm_VT8&$7nBrpO
z_~_%6)*$-<tZ={7Zt^Kw#)(I@t*TTBda3%g5Bcz^yt7jSvVi%}yCsDLnfm9>UX8C-
zFY0|7s^r+CLNl^pF((U?Z&Y|J=svWBFS%ZTzkctHFR%0&4;4k+_m;}+ZE_eb`J;1`
ziwlvgt=(VGhZIT$z5;q97Lq-0!aVxPGUJfy3bAeXQ}^g3uL}3q^$>MvS!VwJ$L#?7
zO&Mkq6Ko`LT}w56S?$wC67CrNsWy>=d^Qb<^>!~~$$d4izIcsx)n8{VkZ|^d=0@AE
zzwr5_($;F_FXEIb>(=TjHpzG68m?4PqBYqM@*(&<*?n<UM4+|i3+wtD?IN*nF4Tza
z2Vgb_3gEehrB81bF_mWYC1vg_*mQs6s<7j}KICi#1>@3MJ@CI>_5G}HQAZ)elIPsc
z)5Usr=caSLHtgT&bD-m?{u?ROeO3J0Q%+?2zc4RYALv65z(%!WKWCG@cWwBh5e(&7
z)1~J5T*oaVS+4_3H*m_1or~COBAPw+B@IA7Gufy6)yYTtpI;mhvmN>>QgzN0wUzty
zXlLPXKd#QmDn<HVmvpUkAmzDTuhi>~V!gSM4Z+bUPnna=xrz*RHMIf*U)i-d_krX=
z8js#absa0!3+n3eR)Ku!2wBqEK8UK`NV3~}<maYDe1Y1k=XY=6awJo1$~IJrUare{
z3UEjPf;?r$D^&>iJ{BzJ*!n?W?p7bbhS=rzztx)MGDD-HjQnr3=DVAtB&CrsKiOcR
z^y&HjT_o0%&k{2z$e&{j3Ow4b<n#OH;}aw6pEMZ;n5-o+f`Ih_Y&=_(?XBGr!9KXs
z<9H^02_HBTu~iDEhT9Bgr-sEY<+<p_N2bOZoU*RF>c39hSR)I!i&h$lXKBR!o@2wl
z9dlEK@&y1I8zq`-4P@q~+7d6l`*q#E>*q+#f$}<65~Z~P;BuF@iW_!L8W2z$_NF&B
zy$HYKSh+28yv88UWkDivN+BuP9&J0ru0v2q)ZFY-Zb}^>l~aiDv%}z8Y`E|<GPA7W
zKK2h=PUS5lKRnp6K$Ltx82Vin`A%_PHT3rU6rR*7fZIX=5}DJL!WG4-qlAK~)%ZtB
z=ECc9JJuBG%yT(LrOW>(nHzF`|3(g}`enL!f5g>>g@=bXT%|N#0J~6CRR!9kvho{a
zy^HC`D|^a;ZQKZ<Q(jxE(cwWkp^D1?f|}Yf1qD=#NU?j=zq3@wQVD(i`n48gscp?m
zl;3|CCbf$!>UvGclqk*VQo|!h?ham~WQ3zepBjC2ZpYM}g$Gl|f$gXE;={KhTR+>i
zFe92urP3Lip={FX-%j)&Z`psJ#qtvZ9=y$ym<R;!j{4xXKl`I%j=!xl#<sCB(!0?n
zRoT$65tZuSE&$uj&5b~&8#jb3j#6Ijc=S;r*NG`8C<si8n}9R_NfoP@=6+?q&eiMi
za2e<^P2=74RVM;RzLHdj53*DNhDr=9F${~0jP$CaJct7N(9a7f?L323Mprv?(A^E-
z-9uYMz2K%xP}j%Ix!8CA=^7)98s&et2>)3xh>B|XKB1+EXKA8Ljq<>rkSn+AI<CiQ
zPunCq8wP}>Z`JDX2vJzd6>ve_Ka=pO8He%|<1f}f^ll4sO2(=xbKjI=W#0IdS)@at
zZQ~_(^6h_$n<R(+pIA8mR08#1C;5LuMPC3M*x{!w!sE>B)iaprs~e7xX9}U3k9`vr
z<w00j0<~(9S5Py){vby3J=g}{h+rqFwW7Kk!;X1-C^?NhN*v5#9J_k8T}o;-x$!P>
z9}xo%r+e;j-4&N6NN@l(GaKCMFmm0`;>`}D;;FePYRx|%=u`mSH=w^cAEsZQeB->9
z7Cmf3FKDBHl8NhHk9U6*FEm$@*BsbG>B@glpOI$z$q6w-d;>Q(H_7IRnubZ|_4E)8
zC?~2=0(v~EBj=T_9ruZQL1Psvwl~qyz12CqpO!b3h|_oHOwmLOL^AtU5kdsf=(vc#
zC&8n>PGe!Hf6l%DoobGxb)3{4%>d;zpi@G8<-4yo`10x`PLP*iNo~vWqr;$*3INFX
zRbHPKs;HZfayRZ?ylVp{$NY~?_w!M^a)U|u{o@tn^qq23?>GwxFvZCy-fDRdY&f@p
z(FAn(dvQCV+=hc$)4}J})p?$s-ga*V@7iWY(`4w|w|j!@dLnHBPm6CElDkVWp<i0q
z<WpH)T>z4Av!MR;NPD!&F4Vzz&2fc%pq=Vkq?DZDZY5_aK|y}-Q@U|$$U8%N#XVdk
z0!r3i8}L~trk`S>_++;`o~)aj{tvTG;D?SYD9C`o$ky0OUY=K9cd7cTi6V+Cl%(59
zSxi{N^ioHWnTh^P&0y4&APB&(g}r_Iw#1xTtMBRNX4{`qW0!h~9Ka<d;obLH1Ukn%
zjYpr~u?DyDcz)5d^yayVRD&8F8=Wu~;W=CNHkoS8jCHT(;vyw`aeMuWUjtALpiVTg
zc|l0aL=<c`)7r}ZCZ;=Wexz6)Lg6&WWcX(;uf3k^^cA&p_@F!`Bi2feWK-0nS7R1;
z0hteoCX-X(;!4*xO{u{$H6?6nVw;cju`_2%ZqkuD6k@a^Qe|UV?>=>o_Akx?-)N3A
zOOgJ(U4HswEugY=tn-oc0o_@gly-kS%DA|=hO2qUB11#pPYO`BmY<JX5W`Zt`nWL>
zA0#mQbx9j33f%k-4T2%#CeWz?8;VWJf?`Y8JgB9bGNPDpldp-I%;9DK@HHV`D38A^
z<{6@@p@QFh%*zcxO7t@dZn7r9cCIEHY%PP3FY^qPb>WTc*WKLwF5j|Gve``P7g9Ny
z*f5@GnXVrnA2+h!@KN)o`(l?ZfDhh1ovR;fftN9U`*9mr;t1a*aM+?G%|>CBoY&Fe
z<KiOhqKN8`uOhY&_SA<gYEs?v?DR(K+RNtC?f!*WqN$pB(x~+CbU``R>*!4e+B6|$
zgA;rGp$%B2pipii(K@xJre^YbhSg2b#YH*`DLTnwOov}@8!>$n4!``$;B+xH%I+{#
zR4m@0sJ5`X>*JnXyd`#v`kCBD6=x)b<BA#8T4pJA*AR%fxDrutPMkF-_lDA#aQ?e2
zNGWL|gJ-4tlk2Icx2?V};AE?yK$sh&K6+W%N>aZmDD(j@XKM?QHyx}oS-D`amFC%o
zvcN;4*<mlZY0uzN!z5ClNwQ`~+km<~QGOE<r@EH4H+cH=l|9d%9<VSZPmCtERz!Q9
zO2k=jpsiZR$wq_Pgv-5sFUYYeQjdg^brZIpU&bTi1)(hGgB){a+|yGuNAj50y7G<*
zQs%rq8(7~#1wb#@>aYDJjOMdhJZHbH|CNBYv<LxVoAne+{SziS+7gDjfG)h=fGX=`
zY;P&Vym;_+(|w9%4T)#PXGL_gYByv(NWf~hk+yI6iT|xQn6xyM@ofa&<J83odvhJ@
zfkZga+?ng7t&RKAJA=-vR?T($@XJb>g0p!F4TD{G5HkIk_Xh5^LSJ7Lb_pf-<Jqz6
zam8Y>yAs@nLkkn+_T1&E7KWC%gL|*-<qzeL)@SkNZ<q()yqo_c8vkbjq5low|JO%g
z)uHhD|LuL4{4w*=UtR#*ioY)g|GW1jsz@iV;FVG^J7?VXPyGDt`G#T=wjO-ELPT9Q
z)If<@8y6Kd!d!ANRaH%GEj_^a?Mc9!J!*@_6qItDzt8GD2Mp8CGqWO4U^k^3Tur;k
z0`U#8&H~`3b6AuvYV`s$x!_6GtrHqbdyarks|1}^XH0Fl8nc)6N!&m4J4!~#xgGg$
zuNDKq8}EbYqCfQY9T=bDb_dpiGLuD%m%E|Nb92+kakvBNj$IG3=9rn;@%#Uy-jAE}
zFMR&ruV4RFhOo22f9+>c9dSv8tWtS|z5UAWJzSDSDA!1physY~in8-0PV8fuuO`q#
zJVi2g+~XABC&~}uvLKp7a<Y+6Liw&cdG_EQk3uF@P?()a&GkmMm5>|yg)?7OU56Wj
zhVXa`S=JPB&8?ia5oZF{0<U-iEwkLgg(=MQ%gGgIJ%3rWqyU5)57<BDNKSTTpHMDz
zCy$ql*gC-IY7lq}0mCdG`H`29X>M-8%)V;`5f(riT?aM6|NdL{EwEIH|1K-md!3k|
zNZQw5-^9oJE)j6}xxky3hl`7Rz(%l+Vz<8L5h!8s?$__Lbx3he$y*#=0{{i;L!a<$
zP}T_x>;P|q_ZjiJEii_({klxV4ep6O9CA}%ZCl;9gXM^geoNj=d6@EfVN*4=;db#;
zDXW`sBW#x&`Q3MoJge*oCoRpqO}{MUkeEsRKF+J`o7Z))DnsrP0D5Pzvz!Qusx$y)
zb-Fn8L|Z~)*S)<u>}}?-`7=xwX&ujvTHy`ovuxO^_#}UsXx7S7d6vWMc)YVW&6B4v
z@0UdeV_oHJu9`!-uPj^)Tt2^&JkxTwZk8m03`D#&fH}dtsHn&^crQ8MgJypq7{1St
zEPJ?Bu@&&seVItwPek@;?YzHy{i^2K4v99R;hvFb+()z@!fTtsbwZOPh;8HTKQ{II
zWLtKBc`9?~_WeSEy@sbxKid=D7&1Y)Zj@u&N2X^t(8;G)yguUzQR?&Aq$7a1AiC}M
z9Xs{pzk*W=poZ}5*m(CQxJa@PxVSudM5*7lZi#Vb&7tC|iFLHMT8tp=3w5%Pki1w1
zH8<%TGDGuE7ogY2!^1gtO*zq!$@4~u;0@ISYtJTUG>~Ia6CkNUp^rBxUU@2XqguEa
z!XQ!sbGBirdBVxGkJvO)8?CiAf*LjI%Y{Mb>7J{nfY6^xn(Lo_zE23^Y#RaAWV7fx
zj#s6jRxv1gEVOl|h}>(+n0EZ9uR0JcXQ9fw;Q{`<R#@}GtONK$2UPIBDrXODB}EuV
zA?jjU?qSsn7sk5c&ylC>fFj%n=ZNxM&tUB!gz=3qLdBE1(;P*9Jk<o^rTJL-aZ(Z!
z{+5*KrZtxri&A<w0|Yh#61pgh-Q^MADEsW4*2w*sGf#isbdQ5?1Cf`-8XBQSfmmOk
zh(|e9otjg1BMqAlCuW?QV*I|II5#%yx6kBa<7$~`VZlP5l@=7-cIJ6<K@Qo6M5N>5
zBGT>T8xC@@F3LNnSFIp)c_NdD1Tf3Q6H`}nY$7S+pS*fqy<nJ8Q?B#&%E^8E_oEO+
zIZSVG_LZG*BMz*fI~~ua8an0FA3i6Cqu51#TQEp8nAy=%Unr=@Krq_vt0w%#!^*Ld
zVo_A4lvJRBXcMjd#kO5#FZ<<OOsc%vh*JKc4f0VwxbTL72{7bBL~?7-P*Hy*Wb-}6
z^60il-NSbkeu*o-GB>WMeDtU*yBHnc>kYNnZkFSEh=V4}CyjcFe<%mQU3TZ2O0q6c
z-Xi?${VZwV-A`0ox2{`tZmKVD!SjPGZ+-VGN^?n&|8&02LisuK%%tBW6zX30e3o8t
z&Kewnc-@spq;d!^DmvBdOnI!Jw7qUYd)1>(Yd?n-P2)lhC7q+@<wtpFqy`%L!0F5B
zJoUk7?BY1B_j-py@4*_q59GeMj351YZRnT+ENW}$gL<o8Zg;FXh6hAetP_jTTu2-R
z2ph&pda6}LqVJ-tZ0TQSgdWE>&kZ?&%Qi0(ib&3M#Qh@L_vcg1m-g*TW$pj|5)%c#
zcvP^`Ia6S$DSI;!|K6d=bCj+VQ2Nc4H4O~HPTqKspt}BQ>V)uR)SzO{bF-~`z9Sj|
zaX<1+$U`P+yC%=LsG#sEP+9`+z`C{#AeOY9rrX)|G<3~YI2%lD42Prkn>QoqSQlz>
zA68dYP05rwl3z4#dRD6Y6}v1oyTJOz^pAP4bue#PuNvxMv9Gv8^9bz#SmqBmS68|u
zj}12G(iu-2-0wl=TSMn7G1O`QZS~n5RP6kwwzl}CHUc0@*!3WGCg0}_zCBk?C@5r2
zHre;j9hrjEgP0&rH?C-#A$ON@DjdrW`Apq-5VB0*L^E5?Wen!#9xpWI8vyYnKys$F
zWSh94KFVNkHqx{0jZLlZ+iO43=jK+6`rH1306Ew}AwQX~Ot5I@jN>)uLN><+Z<xi>
zNTe4Ega3h!LnB%hEG&vIoad$k?`3lBsyQe<I|Q1j6<bHoz#e3}STf|h>`a~cBSzwg
zI$5^Exr+xc-S|yaGv1qS*PN2Lvmp?wwik-WobgyQE1?FR_J634%Nw$8_tz3xt1?mr
z`o>mb&m=lhYR`OXTESLz+Fdpu_wfP^vRP2=vr{bSxCCeM0AZ2ee+HibFItPHfJIZ*
z9rK>Zh-3Lhd1+ynri*sPdvR?(7Bf8kw=!Ce97Ith{Z)lU_i4BT5!Cs;e}A~Ou0wL5
z`*<;U@4$7+T0Ax0b@7CpA(5B3Pq}tE^ThpK@TZ-=3cC#d+r>Zj!bh5#RQRy;t4a3R
z{uc)<r21L8EJiMEV!Pb1JHJ5gxg823{zj8w*)sMdDYkh_6tvtI;3p7=SQ@a_+6dwx
zgpVx8ygT?*Y*ghUexQQkUOg6=Hv${PYf?=5Lp?=yQn#OeS{7@-As{C+fP`S$Pp^Nl
z=}7CVM`t}Aot26#G+<+nF)GeT77xrbNoO#v&1b6I*Qs(KrY?AHEMgdn*PrgJ(O{NC
zWHI|4wU_V!`{5!4WDus+fSR@Qf+xT<XS&07Zo0E=GMD8@=nTTA6nxwstleirt_9@6
zDIIp4&08G(O>v)sg2O~ous6A!VZV5Xt%8DJvC>IW&SZ+_OtlinuYDMsMRZxAhJX<_
zqQ@H78&1t-3j0X5x>+*_92&->%LirLs0H6PzKj#>t}Y(jNqAxyNcRH!7|hL16B!W{
zotSZL0$4}|^H{bZN2%70Uz`<PSye>?iNOmVqd!BEZB@=Y_Oj;5b@l;6Z2nQHx)2}x
zE&v2-$ERoJNYe#_&MZdjqH3v8oLOw@DK<E*4H-L?Cw=Yn3!<;;6R0L8!#-U3vIS;X
zO%8nq0-o)~{yg%;U`N9zuT4ow377lx)1$G20Yp`o+oaYR2C#7zsGxAU<>VN7$Kt<n
zUSw3oJE<Bs1AD&LA-{FeRUUD%f#^(|=qe9Wl%4-LRs@bjoSFRqP|BQ~?Dw;PPo>RU
z^Y!fk*24Mu*>7j5jJQlfX&0sn!1ws?UJ4^i8iZWzXxIRK5O(4#;g-kOPl8dWWWWCU
z{WASePsNCvlx$1`1QH)?oGk>)tdqQT2@Ds<WV61f@F|^D<Xw4-BXLrH{Jt5S`&vB-
zaq$AsN=@y|Wv+)K73c5XPks*biV~&T8_ScpBNSz~kT+9IcHGHhz@M4*R~fMQAH~}@
z4@Jw%p1?Lje5cs9h-c8Mt7(_nt5^Jb_S&JfOI_L0u~zep8eHGb7Y*n;<!4(s38)4n
zXdHBsfY0z`2m5|M$kIKj!i$9ja81yHO}!0}%P@1$SsrlW?2B~(7WQV3*<x?PyKcYz
zw!UzH>!)QB4VpwpZf+BSp1ehzyQx?Zb-eBD>o9(R+$;xRhkC*brwCfD72Dkh*1_#N
zckQD0<w6|iq5o<6k0TY!hZPcQ=>B?6cQW_dsCOfrBr-eYS?QI39x#C%5SxZJfwDrw
z_}ZRl;*3<MH}wd;>OHsFA1bbaYNqpZpq6n>b#+`-4(gw+act@C(g##mHiQ(VTBJAR
za#Vg+UIAvDHi74)_;1^G!Jw{vzpAm#)sL>#dz}j5PW}5M`(j(_6Qg@~GHZX0wu-U9
zoo~N~i!33Zed#VfU@|F~X^i~_=(PUY3od}_U7VE#t5(1iI@k(8<m*P9qBLT#{QKiF
zVA>-vRzcyfx`0?P$ns&#4%p;+Rw&6krfgl0T|`ZB+CjXzl)QqND2c^^aCvK6l<X&n
zfo%z@HSpCjVK8dy(Fx$Z0fgkBH~K{Ig*y}cF0%;XYNJ`!@Uhb{!8ghspLL!XkU1R}
z^;v)wVW$`&z4GwWgD(#1du>{`YTLRWfB0?dy2@wEJ^y$k8S+7}OLAR9*(Y_wV-Nbb
zFWf8Wd6{efrN^6g?@U{%;CArm#h+F#{$bsg2aY$s1P=5>F&KAG)@{nRu~Ijk>>Zb3
z%B1!p`gN)WNA);$erv!sBZ=s<RBuevPIhh!Y3}h`pGEJ-S|di9!iIDUgQ_T1A_*M>
zeg+9GP5cpr&ov8T@8}S{-YOTHOjL#IP~sp$zZN~qeiA?bG*-Wg*n9!+MgF8#PjNfC
z-y^jTMEg|VU}+muu4wjl>B{xsA0ql3s-H~9toc@x5DWa0AI`z@hK7cYIhd8A)nYxY
zdaJql?Q1fdxK&kEX(Hc~4+zoQWtYc5*szXje7@hPm1Oi;m^^$wKH6T`pW4jN&3#mq
zeO4jOJL}F=gUjYZw})>lGLfhBK-%WBk}bcTc=+nV{2G6C_T$1PH#bxjHQE-Wbcg5K
z8|ypu@t=P`b#f8@KHOHwLp94Dul~Z#jwcWHVA*TMWirqU@+5&Bgj_5U1T#(O)c4ds
z87-;!Zwt(dt!#)0_O};BcBP%HLA`V~r7q3ffLLAR#v_%u`OVVVH}D_>H$n}no_Ik2
zh&d4mUZ916HoxL=MJOlW4`4%LV%NHQb?f}a{<Pmi?(QT}3A9COOan$nMhJ`{S(F1^
zA8%q}c3ZC}w~xZqEnn0GydG8ymJnZMON|7{cgm~3_@?kbEh<8P(MXY@%~$#bSi=Hg
z;7V#63t+GJXxdKRbMQI0?AL54J!I!(YRy0TJgqgd?EH^k9y2g7zz$0rvc*}SejzCa
zO=h<imH6bAGMbnJHpJJHs5rkcYH;atV`WF+Az8OQ$W~uLft1!n={Sr+?Ds7vW#Gdi
zl^#0=5~;5NvhLw|D~!kvyFBF3R=3SQZiETQY-SGFq81Db)i10-!muUFC>ItyeTa0!
z(R$3C90$HVumxm;KKZtGEBh426tB_-h9H`qynN%{pwncgv}>lYpTB=0D*rWHT%|Ij
zURKuZS7wBCEg0l<8oK*_0=lZSaV|nL4;96Uz}orVBp0V>yaJ}dW%T}%rpCCetgHkk
zDj1%>`?Fc`e#=zjx-XX*z?NYNI#}g>^I>%+HgriAI(2p!mj=t{ejxT*o9M#%2bP0B
z!9%QjnE_j#H)xRLx(VWYoUM>&s<bdl9Xj^@+j_CfvxohgMvRLPMzOEqrj~@x<x7KZ
zvXV4{08@!L4SVY4BWLoH!o^semy3%)kT%3NVe13rK~tD&g*JzJL$OarJ4=0m_Jo{f
zDuQ8)B)t~Ez9#$@4d#WkMw@0n!Zy!uo-wVX!S8s7J4(I`Aj;UnolF#R6KVixA$Ivs
z$S7E`D|y4&AHsfprVez`Fkd+--2P@7`fIpID5#27hb~M?UlTKXtv;ZuY%4qRCKspp
znuSeI?t!NvY7jQ+B(0l$w8g*aUYz#`xir;m-)qaeVS|2Sh84mN1n0imL`QSY`2)n_
z09#JBlE*$v&t+<1ff`3R(sdB#hapKKwGcXmo7?f>0e0kkr5pb$l1?@8e75&m0c`GH
zF4JdbW(d&%KtpWDsD&nuon)T`^K5*~JI3$64zE@Y@LPNm8^#hie(_>&#B(u&W0&n)
z-n(X>XG7S7xfjOPXQA8W0*MKNf`qrq1(FEE)-5V7Mia_lC9K}VuKlE3;mH|t)%Q;>
zCLRZZ!~DyyZ3rk*#Fh>O@lQ-vl~?mzpxQ5`W8>*MQ!KUaOzX`J@FSW>r!RZJVRFW&
z-wO)~nxe&JMpSfMPeR(JBlp%&S%{@;GhgVOI(n4GVV1*e3^`qBLfMgxCyzooTx8MW
zSJ3n0<-3lQh>G~$8=P~-?>x3?^(+kWf9z|oUisqAp~&Jc75EqEg==NMGC|Gh)CPea
zx}4d5+LdqVb#s-J6r&pUXRxcFMV<XND%8lzt(3AKryb<Pjcd>K?75V;W7jTEFn)Ul
z3IAk(_NlFLKP-NbViejJ&Jwobrda-@uCtoHxVCx6k$cO#Cs?zhGaIr*b7yZ~wg<nc
zBSlS2O#GvY{Se0Vj&j;gVl}_FE{>#`2v?O=j`?2<f*(@kZ_67|5nWp`360OT@@RgZ
zV%IP8DCJ<T>X^$UGLDEbt4BSzCxN*_qTyWa+#ko~l>dIalKz^Ovw5r$QI>Mr4Fw~`
zeKHfZ2If_&>R3Sump|x(TKfBqsRbhj9Pikc#tms=gp(zR1n}~3Kq0^VZaK7u4J2&&
z0DEhBd%!%MyZj1wc6s-Y+h43CO-&9xD#0X2(nz_-H<4=<+eqBYq#x(sZK%croiA4J
zQjhaOlxQ=d9w6ORSkYcdpQWNx=UKU~R8r(vlO`7;N0XSVk#bWt3rr7jb`b6m;87Iy
zXhT2*JG*v~Xni(F<^a`%zV_t9{LxZ*0WK~?FfqeVPYFIqRGP;ImyjYHQN<Zx$Iu4W
zvbS974m>MRjl#y;Pb&8fup{b}JRTD1i+Vo+e$As%mi_2h5s0GCt_59WH;Q=v?YHVr
zu0I8)P*8XQc$;{;y+}Wp9UWb|TmxcY@-P~no6MEZ0X<kCku&VQPS(!S0ls<<PRFhz
zVz<Bj@#f8S)?*apyRHA+r^;9WXaPXpZEQ&-mLKBpJ<B&(V9Y*`K$Wqr8`wW}@gk@(
z&{w%OQ<41(&GT3uvV(V&5}|_OD}?*cLhnQ*f63R_*jV9)bFq<;HzJsTzs?8FA1&X$
zj2%aoUza_llT>HC>8lA~^O?)e54Xr3;AS7w?DC)fx5t0VrT=+$7WxZt{aIBiM}=ze
zl?2I37Zq85^2FgY8Cs)gLrl{6GshVnU1l2(4v)XT`Ru$qwd}y(pRrD+wMk+R`!qs4
z?bZx&@JS_WSh4@T?C4)F{12b{m+r0nXMOSCIPrfS;^3*j9^yaYUPOgfe!oWX;g&>n
zm9S|Plp<avvY@AtF!IAG@s6=7j>h%LLd0!7g&LKISHjfGysdx+#F|5_`JsR<{_*o`
z!D!}8UZ(AE>(oq5ZcarTnwC`xMfGxIM6!n7^VN$2)nVVRC5ni)U3WNXw+^jh%U5M8
z%xzzVMMZtVJ<Fg~axD?iVl)y3MPP70%cljqnBH`eI`OCpMZ8!Q5oC9BIjq}i@w$BM
zrY#uG+@j+$b`th{Y($lPHkP`%KiYCady+)k>9XcrxYz^bCWvbZR>0%@cdooZbCPS}
zB#4}}zPH7#gy(|Qi-wW`<OA2ySawYplDT;HO!dPp?tmv?^3S5zG;pG(vNC@Olsg!O
zzWsiDCRv<(pv%PaDO9ts&k%6R#RWF#W=aWq9s~tj(Jnril)*kLsV`<vu6M<a_tpTc
zpswX^Z*PyKu0L@5ih=?zIJ7YbnqiDqYFr7k$;q+)FE0R6^m#S$TYJWTv5ckM=#=H1
z`K+a9rt4gGKdXtN{9*7!pv2cjO~P7Kg?zok4b{u}Wh9XmpFfA@ma_gkiGBO>m&i}O
z6KAC3Ig%!&?n5a;6=|`R+{manHlfX)WGr9z04zZETnOh?8@h1MDR{~GqGDpa8W-0N
zo`953FXWio;lOw#fd?l}PhM_`p0D^Cc0?;%zsPB^*-=`6(z^*OTdhaM?MvzXXE;TX
zp#gQM>AAog$8R{)FMnn9{fVS4C$p{{5h%K{$F=#;qb=@eAz7vV-J<(7ya%P0=jWb(
zxTSj{agp3tJ}JxV;GFT`OsH%pn8b&#)F;>6Y%PTDqhBwlgc%@V=2H?NVUzS_EV5YK
zFXKCk)TWaU7mQDT7hZk);^U4EL%<M4t<)K_7>dx(E1i#T0F9mM%QqBk^5H%wDu2L?
zfuB`U!{@;xGyq172>W6BkcUY`7Syt^Bp}m8n*>3{baRtL{qgs&l0b)P%*7=1LWA^^
z?l*%)3A{IG8bTP##j<O*5LsM~x0@vR{LOedFuws1ae3ufM}1;%b*$$Biw*_oA*TbS
z_7gAaDs{HTI>f{5*k(jvByn!K4&rvB{6y9w=sI#}>U$pTl~~B%I0_Mf_lbbNBu=_d
z0TQC<p-BBOhh$agpEDM&8#7;=_hNhUa+x%3iEVE?`7pWO5MEF7V&T+$9h*jO&$YrH
zD|p58iTVnbkuXF%L`4Vvp3fIE(aqmw5g7!1>|<|yTRz+`#Ch_Orm^3n*lD#(w)*S$
z<kp?|SKz1otuX%Az4*WHUPSG%TCnKkojZ3T6}wcpPv(%a<D{RTU%1GE#a?gU=6*{2
z<H{ZqdLMdt45=^8i!=La&gb#RD;bV4E~%WVU}lce^6nH_c+*djYU>>ARM1m|t=9ki
z6QpWe<{^Qi>gr=Uk)D*0Bg7?5r!e@00!pkIwZA+PA6N+cKqzsXTpfE>QukWfpK@?J
z$e>zKL6OBS3&PsvqxMNi9M=g<`*G$}>-gdaOY4lS^O)YsDk>HI2H$5nVyX$$?Oj&u
z9Swid*>$k~PU*dzM_WE}(8(!}+>r=faKinU32EixX0FVlYwRTVPX!hK1YGj3L;Qd6
zi4d?!p;*3pJJ+(KcrLQ?>cR6M-L6N)d$^I29(Ui?0R+$<#U9u;;>Q3Op{zRxnlVo#
zem6t;!afn~pL6@tO`Pi{mK|W8v>1QKh0#7PIamJsRnUJ}Wn|-LK0Fg3P9q7C=mYv~
z1>R!BWdwqj=Qy9$g~$H>{uykU%Z2X;TNash(}rO)7~!F33#ZG~MEoNSHg;m__lB(C
zmvER3C-^RgZeknQcj-+NFN|dSW0h9S7&=d=9AaE1^)OKKGC~IUWt^UW(+{?r*}b=a
z2Uv-b9j*w15(sJq`j&w^W)1vTLROLFU6k(uHO@TTGLXX<09b*!z@}agZXkiFyd{95
zL@22Mti)ISUO+}%?NKnW3JT~*jj9qS?jtw1LILNj(w_OW{)Y>vEjr3kx!d=rsN?!m
z>kYsC@jI;R@IlB$v*CNlX6|s2kV>j?-6}5UAI-J)vb$F1d(dhOS8D6&36KWb04C`u
z5kuoI|AhdNlWkOXaC_|MM+5h9O6OSSbKWSyW{sYmlrGF9I1+07M;znXmn^zzVoK#v
zO4&;&(r+4RtYbn{2f5~cgC!1m0c@rYWDWr0`mT=AY4Jsbr$YzAjig{ePI2FU-<wfU
zt&eR^@34Xu{nCl6?QyK>WO}ng&h1OgUza>M)?Q_Qye@9`+1r|?^UPm3{WF$Qq|VJz
znbyqQ^B$-3=!>|y&E&qP*R+_NK~y#N_e;r*I(nS3<YB!>k)-oTrLzBmgYxHc3dh!I
z<TfoR<1ISw<MCW6NUvuPCFIRwhdgQc*ik2--3D$6IQY5D?!D`0_8x*gg!DX^3^Zrm
zu^@myz;9u=8W<mqx8Z2MXmnn;(1l9w4JwxPTxN4-Zvk}u(*!ABZlZwlWy4Y=g*Fb@
zIV{%$)}lYby0><Le52*mPzxT9b$`8h^AGAMk+`@(r1bw)fb79jC!>>w;&niqqDGmx
zn2tF%*MqCr@U86k1p-5cXb^xg0*;hmdFKe`iWMu&(ZP+1h3ojn@`w~RBuu`Rw*)OG
zgoejHCb}m<o}}gwBqXXBbVtmF@F7k~^mwSWo?^diPVmu|lgd4U*589FKTYNkRXLK5
zX$%F}gMkG0mITieY2&=W!S1w=8z{7|+l(k{JOg45u}Bxb=`~;Oqj6hPV5wS@+HhO3
z0hX&oOhSQFeZ-4bLIl(n94(*RAa5x9|3H>`!lJ#lj0fwp9+<-Pe{MPX$8N)+!z|+W
z|Gyrx?mVTFcTgEL;mL=OGnR)05Yxrfbg45x7Z<_i#AKMyz2LzyQnh0^3M$x%W@i@h
z_9<#}QEpg4-pwbyNrJ6p&J3BK0uHq+4tLK~VAt1v;FBQJ6G=6C&a$K{j*E-vlvrp_
z*z1td36zvxx|)*F4;!P1!)pK&#_3-c6#c36{U4xU#0|<%!lbc(s<u!LJ^3h`cbe~~
zyix_-)iQboW*cGhuXUKT)<$@J1qIASOU|#Ngg-p_aEp-Dd^fda;Gfi+@_z{Gf3ag1
zjz%t{)cUpGPA6VeebDNO7&um&VP!-Htr2b&Qo}9Wu&vMo&-d(EaN-#Tiiz`MWB|L1
zhKxzGIzV}qKT+!Y1R51-Ju%N)uq2;2aY>K*>1`^ZOMg*bIkYhOGW>tTcnWeLD6&7a
z8P&vjqtGk}J?e=F3?jwzeAqF+Pz8$ePBi{PaoKY66kN4JZ<(WQu^2qH8qwSx!k*;o
z)6Z7%=vbbA>^H4M|M}bxwhJ_&aS^*LVLr&VAyUpTyu`AI2ZSA|j@4q1Pk;h2Q-ijm
z5GBU}i(pSU0>lNIX6aW^Op<|b1?UOlC2etf5Lw6|1OK#BA@St+i8rgFrYeHx)&QBB
zW7fhksBf3`0EYXJPsA{_hL~l3j7HJFIP}S*)3_0YYk>Hlrjc!D)d1TU=_~uu_A*6G
zPauSw2s3VO@F5PY96&zliz4I>d-B5bt1g!)T)0{K_HP)F;TbftTWha^-qIAa?yH48
z0fA8)O+SgCn*a?UMCKqd$-w_`=J_|>O+UM6+~o=3hJ|G~Qps_rX<Ey@sk%}p_P{iK
zgg`N?o=VA~yhUv;i#VVP9eYf&stcJ~Ls%XdP%%Y@4ES;1wQ%O43s1-jXGW?sFHwjF
z9S7}+!&4*I$q{~%MZ@q>!0v_{z{{h3>rhr3-{1~&=uvqGM`Fz!cae@k^k{aDx?XK3
zqojy!iEO;b?F$@F=PfJqA>P?xh#aznR%<Wv8-_QtaJ7;Qdx#C0El4c0{@S-s!W|n~
z8IJq3=!A$ry*rUSHV)abvQ-xrJtn8P8b(X~_rLu}hA5EuOk6}{`W3NNlG!3TEasqA
z8@Pk6)xnI0&Q|Cd-fj|bF<ngB7MI@f+!g~mh)yyLA5T^D_Mcr4U=K<VsmvU61r-z&
zh?BK8;Uz)_&f#eB5EarAff`ej&Mda;jXfU$4BslXC1d*+h#r*a$6aylM^pPMHJtZy
zOVInnG*Krq{Q?BCn*S}z%y#m+Sa4ej*@R{yTDS{Y5(S`J!s6mY$Z)>L85=`<+3OFR
zlF;_V!JdewRld3LOuU9*9M()cYXcWDkhubyTK%IgkmJ}|bl-z>P(n};DC$^}?PZr+
zkM_H$K_k&fxO52UDx}dGAkGuwL#{7jDy}zUA_lt=6}T;*DCC8FHrg-&**(J@=Ek7J
zOAejV&F*B>1&MjEh3UuW<;r2Ddu=?hhi#T710gWFV&E*$PoFYzonvB6&Ps_!OBLdJ
zK7W4G+%I#x=Mx=CL6j~jqxqhu{}&|ve;UdDA659Sydu9{VQ9cbARrSl5UaQnjjAhE
zu*-$CD=>YrJ`4|Jy4zQN$>PNZJd_zur~+l3#GHRP;TC$7$EK%)VTOCp{wD{0`^i<9
zeS*$WfeSSUGWE~MR*gJIz}3{tj$GFn86CaLtB?%2O3bLXvYM^13b*sgyxlZ6#lMiU
z$PbQ<E)~)|fWb4bR_-RYR#de!$@laZyPsQ5FEoHjcHCk;D?9!|X=1Q2W%+562Po?_
zIz9(NS;iW|;D|L)`UW7H6R3Pj`y&0AFMoEi>sFjf=BiT8<Wi&Wa1H3*bCIjSoQ39@
z>Qn?*co03Hxk7bDH==UUTiknPMMxN9&xl1IP1L}##60K#IU5cr;=dx@;E|8RvEpB0
zk5Rhz61Nj*N5Fp{#AzCtuLS0ci;GZYmbSC#09Y!q(hk$#kTt8+^}Ipe<&$|M=w>35
zM``%vRRQ8A_1#m1Rm8=>)sQ$;3lqRHM^n~w%xdB&w6aW{uI{meeT^M1$fyybPm{KD
z;y^(+07s!|Q`P}uOQqR2jRujqq+}qYGX|`YZJJqn^!WaiN&rftwiAAkt*T*cNmjp!
znJ1^i*G0p`y6E~`I^(s!uALA#z16F?pY?iocS#|p)g@GzlLs`L%bH~U*_6)v;ob^Q
zw0X+KWe#MJ;G1bhHALGri4FNMA%{|_>}Zq*?aTnIWj}w-v(9TIoFHH9BQ{XmLHlN2
zQYMg`fayH~#5KQLJMEVLv}m6!AA_q=fJLvWsVOA3h^eysa%+g;m7EdwWGjwhDFfwE
zCoVU8xKfib;Nv>r(>|bWrWDi`<W)HEB6Zi`CfPeWJO+IWDSRg=l$pE?tKNrhCj<qj
zVb0UGorQJu_A0KEfYx7N5;7GaTKP*~5@FL(lPzt|9goJaSv1s42lM$LvjCDekMxpZ
zI2?u95a(ST5lQ<K;)u1uWWtdQ_=&UV{t|u?Niez}jXgmznki8wouOgRsagmxgmY=x
zpNmc#6Wt2zzen&@nnV~hq3@fgzVmkaH&4A;{mf2yYffWAX>(-oAbAlC3yCE;#7F#%
zm@-m>gAqQ@db>h|*$P5?V7T<9Ec^vRW5Y;i)GBe@xRYO)!@*ll-iFF*E$M?nLVlGs
zH8vW~*9ug`3J<H7Ha_a@AFybs7_JQ*wKnWq%dl!}Ok74uCR1QSlz_|Q6PWKfoe~lp
zNe7ZbK7k2vj+#U;U|*xR4$ch>);D0nfB;58Spvn`gw+pZ;<DPvG`s+Y0EQ$@eYVM2
z&7PQqhUr9@nAGU82#YwEsxZwQOqwc$=zLCNZCGX;q!vkxJ+rpUYB&ByraQ%9{FXK2
zqhZo;3#YRrxfLx3;<3miF+H)qAr}(}NQ+1o))n7G)oNe)Ia?A&Ge4bfa?2555Ca05
zsiHraTN3Ll981>E!{^ij*DDEgTkN*%XrSdZ>G$*wYxLEO$IaxdphT+o{I;Ib#e$Nu
z2SV-^!H1;%LAoEvm$__jYkkG-Z5p%9pR$Qrw=VgH%EQvmN5<j-hy~6knx;S7tgR<m
zUwS+V#r*p@GPF#?S=|uL18>nJv6aYIBj~N#g7^eg;sh=y7<C%AVdNRm_wH`rFv-jC
zEvm0A{>57nLNB6o<1JkK+%tAarJ1S~7@TVTrW=;%Q%^*6o}(dweI!%Uv(@o>!LyLg
z&XQ)RWa+y$_9dy!PWEqsf40EfQD%*iveL=fQ>~tl_8V2NiR(sEc7B9OSuYcE5&1zs
zDBdqM09M-rasGX2YGR_;#VlL%Jt(*j2ax`4tx_e_`g;H`zvaRO{s=oGd?*Wa#4DuO
zJ6P_I;8l5BRtN`BZS1J!G4*Rh6Ic4SpR6fhky&$x>12v*I#$d>)o3+b8}(;uFvd1~
zL+6uFaweL~q+;f`ZjhI2+>1<&8hX{_Q+@BkxEHBmiFB>_-XJd>N{AKo-;f$%q=upU
z3>78Wl!`fmxLldM;>OpLf}b2ZgqS&kfyAlxrsF+TuGYjBZd1=fbz;3Pgj(t6l8Rk?
zG1XKjnn@adnl^P!5kPY@lbD<9$*%^~&Jd08G7E<0s+Rp!n=@R$6LqbGD*Pc1NiL#F
z98d2+Z%k5sc3f)EC=#Y=N<0XIE0}8GY7HkuL*yB;Uu(2Q{K<TPlL}ifGxT<}$tkYC
z-4Noaz{<kV&aEh}jFWUk{1s7rK2uP53!_)6mh<tp$dn1$^~-b)*d)fKMh}VwmOmS=
z^&7R`XKmkR)mTCH=Vw$(2jdx~tl3iFUDO-;P+g__<v|QAqZ3b}R8=RLRR+7EO*DfT
z6-jp=L?A5HuAAwyw@EVutkznMHkg98hDv;d1!Ow%%}m&w3gM|jA&6q6_x1`5B695<
zHk<1(YqbbwX!|p+casJ^M1lU;foQb-ky*A7tzaV-_xA(CZH^3g{9;`|u2a*k4=ehE
zMjr*wULgpz$`NEZ@qfIZguHs`eoYx4Bt#Od#03SNFb#RK=s-qTe1VgAfH!%t$ebu7
z3i$2&$_?po(oNOZ<e&zClBAs}A!lSJlk)nh!OLum$?Ea7ih4eUO?EniQG;~K18cHS
z)b~TYB#m5LTx3EcsD{9LHew~M6l~vBL*)2YVsajs>pyhcEWUh3jSR51&@28rDKOU}
zP;ZQR7OjBr$oJSbmg)Dfc)6+9N`o4EESk8<<Yy_XI5PdA(Fv_-%MO*p+S@o#A5L&W
zrXwGm>8}0Fthvd4s!3^micuR@rZ0Ouoev)`8N&_4^}c3e{4plFkcmw6PNCO18yF;1
zwp_EskjtaUM@WciL;IndlEGpv>CZ8yprsbZoRm5<`?kpaw2jO912a?OQg>PV4cB6$
z=!`q^Qoa!L#aI;ankJCZ!6|j7?4c3E#DT4nq?THG%R~{WNkIXPRG%MT+=pPU6~LgD
z-uAS$5Vx==BTTtWnr)+Gqt)X@jFq1L{Ia+(w~D}m)O54{`V`lGQko#<-d=2jmYINl
zV&}DH2tl<)%t4;OsE68?J6fZpcp<Bgm<q|HzhTguG}w9sVd~7$lw%<jXmtuvaoNI0
zsBj0uWKB}Udvz5R6?Cno%xI_Z$WbMNG*vz&mNli@_u5Gtsc-Pj9?xh}ZBAYAQ$LvA
zgYg-NY|H3i0O~J`YZk|E_K^%NBfbMn#SZ#>s$V!THd><B?7*Uob)7<xCd~!tDa+I8
z70)v4Z)1v&wN^`RZNwQpZ)Vfdx(ulxj{|G#rEP?c(DwNjy0zxSEpUlj4G^B)fgU^+
zQeL<Y!gbD(RIcfivRs{%kF``2Eum8bJeqOl)40m<o^;L63c8p+eZOBTF7^OOO>ugx
zcKX{!Cu9~Ga46{JLZ!-4%BVI-jlZf1YBsgW&WOxjAp>sGwMFo{EoMz#lH@8x#v6mZ
z)`^AAdpv_4eRi-itiE<_yhG!9<b|5dUF?Owh?0GTJoM+pTG}Wj5?nf2cP2I?>5ylv
z97=9Q^4|#f?tNTbyYrD;G`dQqyfzp6Tvc9bkHVfboVd9?-FHJdGieS0OCXtEgQcuf
zYuaDn*iYi+ybB(^GE9=6_0jP|C^gvV=$D_gpdc*|&#8EwJuH8-^38iPB6}wEg&O<(
zurk9YpEhmqmAzxu8(XuVQYP&%gL?^~>OfpZPZY{9aSed_TWcEtEta+9ky#){DOEu6
z)J%)jNji-ohwidx0J81$X&<ENlM004F;pQAMgy=hCRFB#f3Eh^NJrEn$@D?ur-k{{
z%t{Z!_zSD*i>`yx8RivQDcYHqjOW3zcMwxrNvidqIeYiB4-3;_-j{G<xcLn6WY}d>
ztH;QleOg2JLk{vO)Xz>GukPJI>EdHY6?OwQJeh88Q*i9nM_$yy3?p+42S1h{@a`MQ
zcDj)!U=dvVi$!x~;5aPX)hQH?Zo%XPM>4n;Q}EZ40s5OxpL)235Z}IXGuL0B88Z>P
z+BCSAw|VN=W%gKS!Xlv>xFA^y@W<|^BEJz7gw>)ABj^Vcn(uN*?SNvh{ze!x-+`Cr
zTe!j8V|_t}C(bng9%gjzO!WH+(!zjNj}t8g=U}PBWMPAWhIGOQ=yVj^q*eM2JA)Be
zL)!TGG4IibSa;Enw9FT1v=&f@;A=ANX7bdICM|;&80fQg?)Z2f;P;$vs@94(qJ&Jb
zw<58sE~69DKEjvL={(o@ega!et@1gQ45P%rQ3MAvv53s)M@W9Zq8ar?#jehN#X;Lb
zY3m<?oZxdV$ZQ&qBmPr3Ly;lGz=XpRvAGp9AqUFSIpk-Drn-*HYfjCPUR5Mg?$3Me
z#=54E+cavOi7x^9tI0H&TnAD!n;?Xd(;Y`6ld-@>X#m|QWZn4?qh*>NUOcXb767nv
zs33c5;(aj_@Hm#(%O=n>yGU09VWUy9+N85|bkqx2=vZpQBpzW0GRT`0AfXu<QmFD<
zI`@DBAydX%iLyhIMM_iC#${%zF}?jo7TTYNH9k#Jn{0Ld+^cIEF~(}CQ5W&<N;hP^
z*$jvD&KQ<0jn&-57rk%Q(aRLM%jfp#Z+gYGhL_hwLAmzF^V07$cPCRHY6wkHR_%Ke
zduj8k;JhN;mHQ?H)qWKe&pAldP^;D95g)iR{(e&R!}4?s!`p@)!M~_PTN%G)wzRaE
zF`9U%p1ehvy}oZlIjYlP3qApX+!Y=(k9HTge*5+<ej)2-$_9ITduN%Z=4JtPb#*Zr
znFi}vF0OGqrtlB;O87#Fl>h0|r~B2cp89SUa=N6vyzei+{K8UgQj%(1mRr<oM^7)j
zGhq-kNX-hy(%4Iu#=u!6rDm#xgam!Y1pTuxFGAgLboBQ0^wc(DT*lDwfq{Wg&Dese
zsVV0l56ORMZPkZGEWf<`{O;Ym6(TQq>@E(yu#?u%pxrkxP{3q5j*X8qEAG7A?Rod^
z-L&j%02S}2FJ5@zWg5GWg)6%=nM_+JCm)P=%+-v?1d;lB&3yqS8ag`O@7}%p<L&OE
z_S=1Zefb|g965dZv_o1GzOIW0lwaQ$svN11sNse4c^VYtW0%d3ixv|XpJ*A+&9G)T
zTU(3s3kbCJ_3eJ*?{8pfIo8kOTfg3YdV2az)lKs|ch=MC^z`cbZe3d?{u=sc+0RJ=
zqYkO<OzlOK!1LFwZpZ9FdqV&kFT=D&j^|Id=p%&&gH_L~X<s(qaqwUNXH&Q}W7T?-
sJlP~sh-1#54w}Chp8vuB{7R)nb>6_6O=~O^$Y-BCdR8Is@TFh>7ef<-TmS$7

literal 26304
zcmeIb2UL{lmM&asw{{yFm7EksR0Ko>lxP4EQBhGqNeUv8Maj9_MoSP-P*IVfn2;nn
zhgO1!2q?Kof&_u0Kr%)6pSL*YOwY_Zch1Z|=l=KpYh0@vgsS?!?|t{X_p_h<?Cp(X
zN7Ys=<ylIhP*$iPR5?MR{OC-fEHeISF@8e3_jnLr78`4*so*RAOzzM2!k3>f9Xx%7
zLgBwo{#y{(Ib=$qtfQ!_>^<rHsK43m{warC<-v;Za|7>GkL}%is4AG-LXAhdkoTI4
zU;Cw9&#ODc#MWq<hHtDkGWG4EpFeG3n5FA{LVcH^fY{H+7fBd=*tt>bgt+gz<v%Tw
zN*<q``EstPV7b(CxBA!zb$u>fE_rSVjH&pFhp88?b(cGN>1>Lq=w3wb&%1id7RLqT
zJBs~HZ%*=c-LoHZ$XCi1;kF;i*MnOYNRY344*l%Rdg+Nn1<S|}Zk<?YNWOaCSv|Or
zeDn0qKkyOfmJD`Ec<p{)Ru+|$qafhcpJ*Hs?3x#W_wRA4imLyS!q#9V!^6wFK}aZ~
zf;02s$neY$_+{2Isega@`UOqS9sai~x;I2rlq8l2==EPFH*)ajzkkauLhm~-4;8M_
zEcD?t<hssx`QQkhCcAa()+b(bvqN82dF?tXPfy9{yr<XR8DbRRuGAVYS(jiW`1yrq
zpj3r|)L4UA#LHK&e8Zetb}P*e1(ww481dWY3?0ZW-aU}f@dOWrXX~i&n!Tc;vQt{R
zXyn`Hj@aanzU%j2Q#p0&RDbSx%TSSor=+3lw`UwB50t$;_3@pg`@~>RL$cWjqg7dH
zvQ)Ep(JF;sGWFv<T3;S1&Yu2W){)T>;72a{>eVabR*!N23Xg#+L-i(ss#;o~wF5Kb
zmfG>>Pj^a)v@%Kr++u4?QXLHhJSV=~-(_dqpWf<uTuW<BXJ_Y7e{uy!Kc6O^@oNTt
z%+#j4eUL2K$UGXMlw0GOsV^SxHjtSy@=2qEx*>qtlIx~+<j4{Cp8bNp<mm;R+kVwe
zw`oobKZM;8akv{2qUPb@5z34`o&3B(iGJ!GGfm3VmTbb7doMN{x^&*1#s@wKq&j-c
zd=JUDy7J-M=NH|gqM|fD%QwIOJSlBiYh@Q36{sZlZEkwFqPrFQIUTw8YTB-WB2J@6
z6`hwS-IXG2FJ62X;W_n9uixw4`s-hH5)7N;8Ff!o{k~u4chn8-PQxRAjqsYCbo4*{
zlTTK_8j+)ir>3Xs@@+<)Lk&ZIT*mQr981L!DD5=R^jlcBmZsv}o6Onq{QPES?r5!E
zsi&~8@Z{9gRQVLPtkY}A&nU%JfY+<0y87!2&4`vRJKFHfhtA98#fI6A)}bAF%z^Ck
zF>{T_4BE$uTyiR&hH~eqzILDdzN^i9QTu3}kwpFd5dF*QH@T&r8%XgnvijodZS!ZI
z#K*@Qn9SkM0=y<eyl(g`<FrX^J*8v7j=gX@pWLwP+tc9o66M(;4yN+V$Y;Cu8zN~g
z)2%ZDPLj@pZTF?jj)r=0ik(@zM8Ns%hex}U%kyZjq~bejoqHZ%XPJenA4h72qESIZ
zD9g5cYea>F4BhCd_hD$+W7)Xz;IVHnA_VT<y&F3EK*svaBiG*OxbTwV+St=;Op0&b
zkZ0s1hu!7W#IqT<lASCFP%qH?LF@V98>yCc2UH4iKGrJFO;(tEdE--6SqUo@znrOG
zT~}AqUgXz-Q|Kq*@lE5nfkAVxbD+ZagZg$w?4^B*WAz&Z+z0>AO|>}n^>XILix;Ub
z!(Bx$lxMy@t>{b07Z7=LX<zoff&|aem_$c<BbTJHio);*Df0ch&dZ55%~{UhOGQj7
zBloJe4u6!F__(|Kk@HBETGaFBn>@b<M-(QRmI;NHACL+4mu+$0pfvoTV&jZiML55v
z@{D~<iDAa2b2s^R?>PPOv2AOfT?xNaVUV!Klj!IzxOrIbrVDuK6241&l3IJJqB?NW
z%!ixOR39gF)IQv4eq!g&orOxw{xyM0Qx~giYE;ET{M?lUVVf%zM=F2gk4Z_{DV{U<
z=If|+dUI`;5`OXg@PnWnB^Y&j{oGZ->9b7^bq0xN|M(5Z$ABz=g@vzEi;IYW%h%hx
zdLpj|<(WlzIBqk_%UNWW<Y8azq1Vq`fz_|y%kD6HNp=**syzAAXvExfw>3}9<Hze;
z^S$QI=UiQ-<m@LXoj=(X8tU;o^UHNX*i*5_0u_~694F0tM)lR7o@vN3FHRKvx@ee@
zGknx<=1QjiEF9qBDbIl`5tgZ~RJIL4o`N$yYU$24@V&}5O&L$;9+-tUShVij{MDiV
z-Rc!=x0S#AzUI5Xzdy~se{2c{dYdmDuCBGR@^#T{h4P&HC$BmKC+pE!m;S_(@5vX+
zEgYDO$%mbL^ZWS^wjO<Yabsd#t5<|Mv~qm+B*7<ZrIfSZ+0ot_b+-tQv4-b~;V?wq
zG^^9!r+!@`K!uyrW=6ml*}eH$WMe}9Xq;`T%gqIg78kCNZTjWG;pav4?EWN;NAL>e
zE!pEOZc*4)v9XHtJBH}CUh*!A){Q9~%v^ZRp=vEnRTY)fr%x+P55Cn?NDm4Mn)s&a
z^>EvwOE81ABaih%x8gCWNl8if<s2+Vda6va`D`l`#}8i!mBGHR(Nst*nw4#Jzw#+>
zqTNp~*DGLm*Zp1J-)+!q&fBZ5u0B0@UHP!#T-y@mi?-irr_7qui}G6Wh~E6c-swM)
z7eAeOD>!>8wD!;pT>tG9Wf*6n_ku-@P2I0z;tw@m>H2WvRE)ND;+#(YRE^C3!sAf~
zgy~8iQ-$ZQ^QRTf@-8`979tV&{Q2|psp;u%Wz9xT1N-Aii~H}LJawuF2O&6TwnK2P
zzDtS!)VscVHeyQIc_Ka|qX}M$=0;A<4sm08`JNt4u6=Q(eeiy%>q;1iHvOq}hHPv@
zU7@zcQ=@&$cG#?UsQsJaN&f8Y*Y-(6;z*;><a-@sM(%jP7Om%nS1J_iF4Sj5uaNq2
zgV1b;@@$j=vp;`sw%jm%bTFl{u~DXkn0oNoyW1ORkNh*g-7LnR@+pO}dJ}cGj?*R9
z4bJoioc&a{{5aO#ViWXV2%2b#M7Ur6<VhS^kuSU07_;2ga}7*LNa(;#F1BoXnqH_$
zf>FK_IWZIOb@EoL@!6^Lr_pSVA3x59&{m#j=rLMzKH{UHS>^`0J{ZFcL1q2-f5=fC
ze7wqIGkN37=;#|%YMr5*Sl;YtLW!Ev_uD<q*-iuld{i87x-V_1?I)!t`>uO<2#+qD
zAp60}N&{Q$-nK~apy3=@WaGK94|}$4ne2|M#u0R^sk&zt?y|{T@X7~C5@e;NrH`LF
z#g0&q`?~FJ%||(UfBX7|gt#j-4umHDRK%*a?jO=l>gdS29c=L!Z>}@Wk4earGuMQp
z@iXZfo+Rkw34+|vP@tEBO~#jN&Ikj>-#$Gf?iOdTJWr+;2XBSh=iUG2Id`~@^yucf
zyEI{!NbHbVc2Fl?pF6$9)soL+q^b(*moYcX)Z;Vx9C&fOzahD~q}4RUAZV;H)iS+4
zJ+2{x)|f90kN#i*&yeA*bU0sKM7&tNbn)6aJ<b&?R+QEiFE}e6qA}L@LE3r4(kuM(
zuX1v7B0Ey+3U90l9=oe!nAtG)Oe17d-|)SA_lgk?vWteqb4NZ+z;5&RUrW`CNk(L8
z`CDXBVP|KTgv$Z4Sn?z>QIbPkpKF!U#Mwu7#oWiwoZ(?(i_wnr)%57q8p>sO*e1`&
zt~fzkY9X73VEfbnQRWY+9tEGDZls4;=LVQx8T@03$f`;NygK9A>B;gmK&57NCf38>
z*Vk9OWQx{0%b}xhr}}-0;G63LuA2?LW=5UIo1Hcwc(B}hg!>9!nb-oeYESDpw`|1$
z+JIv|iSc@y+M4&?xpSuwsFjU`t0shz<3>h;FemGznctR)Q?s(NE-=sUcyK{OEN86I
zk}jt$9%7l6@|J)q{~AuiO~K}A+Jj{h`AyrtS~BX2SKXlr$X(|D{QT+Djd^3K3Bn1s
zF!ZNk72PK9?`$dUlW_mCOpmWmM0ryElhSClmI<P?-SkjNN!uS+N#Hwl=#b2^Bb*Y3
zIdLy4pNuJ_#Kv)dp)vF5E5~_p$FEHnw(y^X=hJuo;$ugahM~ypPYxZGhbIhnwCsCq
zWAS;(t`$5xUtT@s7;h4=dy{!ZxMDW-uD!lnf=Q!Q&Ps+;KC}6}brYwd^ZFL|;c}|8
zt$*7Q!JhPJ|AfA$>cNeV7Gz)Ue19RiB3*S;@QwHH-+zTqkD)bn13ud%Yf3U`@vf}p
zi(4}|(6$oz=xMI~w@>A1UQ?eVjy9$@JL+Y>NzjnU-DzG|TYG@flAE6R{v$TuY$IJg
zcvBG^lb>#Rnt7kx^YVdghCpg+D%((tTrzKMQ!b)juoC@eE7@>^#&BsL!0_ULJG58+
z31tzpBQIo_whHo@((-RSXf*?}SdK`Cg)MZenW<5`QsIykQEFU5LZH!1uTE*-y?ZCP
zc3(a}(pM+pqIluMeKDoj-uUbRU-Qq;;R9B>Iqh7+Z-0!>zH%=cTcTA%(nO(%Qq{oq
z=VJO9+h_aoXJbBFh>kcMj=~KK)BEDH#cPo=kW=@)Wy_04pSrksm)z!+7_AI40`?o4
zn{A!z+w&|=9(hRcm@211b^ikM(5#LC`Sw4S2m&L2%&=`H2V{>WeAlHSb{&<u*%_1R
ziJ_sMsK8=9+gx^la<U4M<ZQIgj-|6Q7i}DMHZ~wTl1-EsZxt1_Obhr1chAnGryBt-
zO1bo$fr$eT7b0kU?vEP9YL+jI=Rbn2<CeOhqF(Bj{talHXVH?CH$!c*ws36It=#s`
z251eyvIuClo#Y{ZTwPL9;W?IkG%n#*ouog>gGB1O9$y#mMTFS6;2TaotzTK-jFji}
z#8Z!Q>AFIlyzh4b?PY~R$`Ff9OiVt6%1V5c>x<=5bhZDZ;tOK*kw%G}!F_zl2#3Cx
zNr-e;)z@=L<c^$hhn)l@f0T<cFmbH)pfxjCTWPB3Yp}=35mCAje*1HL9w2~i^5{NU
zN4ULWlG_1~7^tY^O!dY{T2#Lj3y{6kR^UAG<vMNpCy&Gx0t&mjK0H`+UC`5cr;JST
z`@5nY08D|y70UVb&xDsc;7leZ?f3`?dcKP;n?G58o<=q*Uh?R!FTZoiSm^@oEn{P|
zd%HrGAd*UpIdWDd-NyQzhl)7UAAk4ak+Z+(-X#^GzOUwV@&#$POJAPbz(6zFep}Ya
zmoCMi4a}blF{!Ig@-Z)8Qc3zI>DXWIILbh_sW8<OW&JTF7jC2j?!&xJ?s-Q^VBq9%
zcgaV2MpHbGZ(LfM3<q)npmy_dB@*)qU=GvPGBYSinQZ6G&uDN%T(kp7PPd%<^y!l`
zJcmjB>vPs)GasGu*2p&7Yu&kf*V-XW?=lP|-Gx6UCZ+?)K>$*{<mL{J?|BaMCs*=n
z`cGr6UUM0YJf?9&lIc+8{#8Y9S1I!m;6l(g&|3Q<!HGS5j`imxaej97zKnXJ7C2_`
z+^(azNL?gs?J9-AJs<8%ZXhsw8K?No-rnAqadG}6^V@Xz{xAElE&ujaYFmzhV}tMj
z(1dQ%dG+aDoqXRCK`(`_k72xi9AdrzXe5a;o*4Whi9kn8X9T|Hvt@5=-~CM_C0fq4
zeI4;qUvsgMUNQUX^E{Zv#1~8uFaf-6rhqe-c)m2Khn8-8lS@)4K(6=YuFgAJ#%%?^
zhS@DWuC2|1SYV_8H)%(+PA~fKKnk(V(9bZ}wWvx>kY6Os{=`i|WhDy>3*+*K(t6U4
z>lu11XImL`SP6_p_D?vt6iQmSFc0gS{}o*lV)F%A?#;uSlFN;VB_?V<GsvP%5;nzN
z=ijm`CkbuiXF$jh#G;Dj{{`~pzslc43lxb*%EO9}AU$T!ULJXs@Hers+k}MR=osDH
z-YZMb??B4O&qmlAKn0zzzLbM8hz6U*#QdpLq}E8{RO5f@0eA9hvxEerG7r8OXlx6p
z9zTP{m3v{SRZ%5w`7(WdeKQJ+D%T?=FKrEWS7I=JrtoW@I(2vYh&hrbD;d47zTN?^
zUcT%Z%)57ywHp7;9Mykynf`m3vj5;NP6irt?y0+5)@^bmExO)x&mZS`d7nHU$(`eL
zOHW+S^N`0+pKa|yCF2)KNya+(tUXJ9a{jh6<{?kV%}gn*IK{e0=QwwIjlik?9azL3
zipEaXTK+>U-hXg!f0qbk8Pc(&2CHdgCjJCB&jJ<_;vh;bP#_ULyo61Sk4;U$<@}wH
z5L>&OcSUuIQ_Mdb4>V;aA}!z|KDFOO&~HPa!j3~48tI=Oux>g<bN+CstZ%yXcEu1t
zURn(uNPMW7;VJ9b>`=#%UV(rkj{FUF7;4Rn&pG^HhcI}*wCG}>wu@F)P0uAioi{bv
z|47p5LSh*ua>dNntsQBNQN9L??RjC0iC`VnSg{KP0DGno<<l!*^wRTb?4sH#GNEFZ
zRrjck_BTi&?8>LuhCKKqyG%U0up3m#uEByuCLsonH{ihDT}V#6^ySS2@_E7G?utM^
ziM(Al`7>kh&hIE6GstyyIQ(!Yp(Jkd%8C~U3JL-p57p|~76DjuC**uTqz|+zY5wV{
zP#8aX@`A3c4?H<*HXWv}Il5~-QmjB6uE4{a)+oA;P{#q7LB8myAc5JYm$nVTBBdcu
z>cR)Al??9&wSb!>h95tDn)|`wO^cUv{i0*waOw^~`=i}gNVcK6ONv~=`<}xCZzl~b
zl`+T{;GYZS4=>QZPr5gG&CRf}Ng~FVkHy8u2Xq7~D+vjOBUw2bzm~i+awbc)fL33B
z|3eeMg7c+hYf+u}o1=YoYAPGo4?bVH`|B+#)p_dM3;D!DtP90`Hmz;5R#%D$1auO$
z0W*iy8nT@mvn6a&Y{mD^vJFCnr$t`S*uINk6e?B6$iu;}#L~*@@P$R`PZ1IU7}KR+
z+_GR7evl@=;FvwQg13H?i}Y+ex(Rxpm|PV3_Ryi(-L?r&o;)d9QnKjV>u*wT(+-3z
zbLQNp`-{=+_Yly@BKh@;SMaQDo$iwDh`hS8F?R0NsTiU5i1jua@L)nhPe8%Ij$`&-
z+P{ClJ`&HkfML))>#i;5{xon!J^R|I!NAzUo}e8M4v!$u!U0V`dFD)S_bTt->h1UO
z-V#S1$KR5!AzpQ>{6gqVLJepdla?G8G0!NO9G&CGt9qSzmt@V#E+;Eff80KE%RPo$
zE7Q36CO6xVVP&@SP<sXp(xkUKdgyDgW-&;w`fac2RUNsue_V5L)(a}X5Ij~a=v7bP
zzx!y6k+lQU2DwGU{+6ty)D>}FnhWafz79{?jE?{8D;8Y3F*z2GgG4X>9s7b?+5nO2
z#mH@JPw+ggzjiZeKa=Bi0RK^QbMxguP9&ep=y~EtQY_ZhZ>tGB82N@o8h{I+JT5>B
zX%QR4BT7#%e7z7M#gFdpyrZ37S5qTw;;^KThu7C&A%%XcqC2~$Rb+D-D4C6I<(-#3
zXDL0eaY{D6AT(L>&lY>KtjdxM3@+cecEohY1Hz693AJZ-hg+suzujNa;>o0Id$Hw#
z!i8NT4RbKQOV*2`_d@T79JaWGFdFDvaw4eIB0tXb`fku#$p81RQcStx%PN8Nc-ycI
zBIiDD(6Y*-XMcGbxy<C(;0;3UKwS-1tq5Jt$ei%^!MCdzUk|ZdUt@yC4>_XRvDEB=
zEYTJK+lv<`y0a3nr-b6m=uawZM_s@l@o!f<b%P9TE;wTPJn}-qFB}e&ljb%7ijs8s
z{*};xU*29X0U4A=+s*py6ye~C?%^VFV?8mPS%N^t#-c%6Fx<Q42?@-Ro)73r-prA{
zf_ult_{^?{FJohyp3C+1_9BC}3oSkveAj=4U2)TcBJoAuG9xiBZ_+FRw>olHT9fn@
z@R5&=apd63m>AK^s+6av5)5;LOht5Jb-%2)yk)Ei40~y;KB^#ftt!%v4zNQ3nOC}t
zlPi>X6LQDS5T;i=yMHwhk|se=gaHL*I{KL(sJO|cJ4_PP8)2$*V4srqJ(UEf-Q<zp
z>atas>`g(y6O9jTM@T)Vp6$UO%V;6oIh3`&+&PsFR%Odu#1j`wkeBUo+W1c?K>b%k
z*Z<bw{&xfD|J=ntt1$V0v|aQb?_Zb|j1&$qp-9{$dyAiYq6Q^03^3f!V4*!P@0{EA
z;L<;ZHehqWBR}00uf@`YrPdDGsKKLGMX8NX-jj_p(&=AKxp*B;x2GmXC$Y@iCK~7q
zzIQV<T+xjq`-ii<$cY`DTL*$=1}MFKeNpf~^`=&`4*n~O#20uwl7bA-m~qI0<^#YM
zBLmIyLP8H8J~RgP1CZ~X(hG7Ksimq)A&Huy<s6wpkx_`7K@r_?!fnj~066JWrnIn+
z?Ca>$AFt6xA}VApnTX6$GP9uwT{B01wRyk4miPh6|0;p{-%_&vCtAkcR#6B8=CuI-
zi6Z(x@s9rIF8)ihhW`(Cqy}P%weJaWHQ5~z*g7{mK2(=KE3F-?%a-dl9&qmMwIcA-
zoP_$zF20XS?}spXS@PTc*H`)ndi0yveZ8%Az})<s<1Ut-!+Wf6^#TUYYkP9UO#cN2
zk`kIE2%h`9uUx3Ett|%GduD}2cX=o$r;)oIN|;}B@r|UR`%n?#?u|iMqvBCz-px9-
zuT!&B3PMZI8y8a92m@8p;>O_jm>RhOuS1Hz-QjNH@gTRHyB?UegVzoCd{o{#c?KC3
zfAFRwzWU;v9mW2BLmee*s;a6v0C;wtcXf(I6LMD98F_giNs9i-YzetiWfBkrgA}EW
zn2mK$<`V$UXV0G9E<F!`&ng~~O1z57Gz17Ytz@zrX8++7h{mjDJ<XXK;e{<}^ZYO5
zCMNK6<!PO$)S#HMLC6@)Y$#n1^at1~cNG=FF@@=GA@AJ7bnx?b>Tqz7HBfWve1A95
zb7qQ4<=T1im>*N{^1Jn@zKwj=bUNX~x{O`|VC!&KxgT|WVH4ct1=>9cBLOzH8Rod{
z=mM+1B|NEXVpud#y_`Y&dP}`eC<~Dqgo=v(r9XZQwKhVHU1eIT(7N>6v5Y_GDeg!i
zEFB(cy0@>1`?z|*mxm{7n*L*@Fpw#sVhBLQw@(e`6P1;;T`Z}KyOL3%g}3$b6Q71$
zG7RK?E$h6@+6-TI(RQRB0jp3P3mrALvbsqv53#AQFV5eN5_8M~ThP1!yQwvH2LkxG
z30!n5)6AU;I!p_rY|aAd)gYqpO^<r|w6H>u@+0!l)BUTxtzWN?>ZgiltL#S_Xqk{J
zGmGLXY-mF}lq)ugMu7qh(<a{9FV^ZZp+_2NLC;wze(i~nM}LG?bazbkB?O|5xWmHI
zvg3)LxW(A<4F6G9cp|i*c1a8<f9m*~w%QAf13BaQrXVj(VrWZN@Z8z<a}|HA%|*qX
zOU{<uF6+!<<t0d@p_I{@SMs1n22O=ye#*cg?6AHYXu?p%^8yD$#Nxy&?}>8`+Wh1s
z=rujWrR44m`!x4UwqcI;ak8<2vUH5;>-(21#d@e7_Bm7)=$TSOcW`h(S+6qubI<BD
zQ;XdcnvT;H^M|6eq5LDmlQ|K}6gjI7Q*N+ip&kpl4~BgI{(U8b_N<n-epk~BmWD4_
zM6;#+CXGr(xp-r1!M{y&UjN8iAgin5Ye<@tF_6{QK2#zY2z}9Zp!g)2x6RaXB_Sth
zE7Vj7m7d%%_ODVN39BlWZPFr<^6<WCMr1E}eeP{LZ|lT?>^IFTh+63Y$_HQvi>jlw
zf&)uQ+OkPAoDVe$Qi$N%es+&p7)v2mpk0QP(>>9zUYl^hM8+Z15_&uPnY0tB-Eb*5
z55n*KHM<$--f{k*{*`j+^4hd-q_k#}Do%f2d~KJ>zz0B&J-kz=P8M6Is)3N~kwGQQ
zxI4@#fI42Q5&Q2Fn{z7+4<-WJIPP-m4_bAa_DLe8_Ip2Zkq~-te|~<%Z}*k1LP%fM
z5a$S-RPyq8RGP(s?c~u5#wvv`3_kZkn$l1G(B?xg1NXYLXt`mJT$<@(+YsHWEEp0g
z|DVyp{i6Y6slXsK2y0yrvNqw&u|e;25FjM`(@nW}{PA^C;-;M4@Z&1yIuvMi3|&l@
z^X%MAGza(bxbV{Z1X(YMq=`BgxP9^AJmBKu0$(_mp6^dcG)Iu!8Q-3V8rQr!<)g$$
zK5b9>sX=cixbsBU(cX#HxtUhN)KjUZW%r5@Y6MAik@~o615vQ;6XYOoiKK0DF5qQ5
zZfGb#2yz8Tmxgc@ON2x8SJ%|kz{{a>zKfI)>OmTHK;>}vdJ=01?2o;GS@D7%()XO~
zJg%d|Ni;)5sRP{-F2E)4XhrZPu~kwOFbiQ>Qspyy*MjW5fdY!g&})#g3t0|#CapCf
z%&~C`DOQIVdAjsNsbz;UZBekM5_f}@quX7Urt#Jpnpj(NJt-&R_ymxe$`a*?KfcbW
z33}`#&dP&1=8saA^JY>-r4(>jjeE;NVu-3b=ZkPxi{*T~UN<bNBd;XHAXz3zx&+9(
zXg1l_ZXv81z^$dYib3XO(`hI}sLf8TiclK_7UGbA#WKqGv_n0t7*5o9tiNFh_fkyC
zOjIhs^-yMohq!=i&tv+jP2>jlSlC+>gqC#@8kAIsNb$lQBDI?krAR>^;m^Y!s66Yu
z%^+*%rlXIzNSLJ(1q~r0jHgDvmF{Yts!f+mK1@E$`($qw_f>JDJOxiw){5D6^w}UT
z(QHYGjlG%RLASIU$m}kLS}1*2F&sri3Q^~L+`NXobzKe2F@RfY6G}W){ke-)?pi0F
zKmC2z>_i8u0kH-hR!tHiW$Y;jSl5Y<Y+JxUmFQ7Q{-BRUVMyM{vwEji5BZ(7gcRL3
zzZI38YZclEJE-s2U`liV2t*JAc}~0)<aoJt{&Qa7b4cU|lUMncwf(Pe1npb3xrw!z
z^-4>XuF48M$;(qR*MagPmPH>>=1vZB=a8xqsWgF|{H&>*TRsaHVfblIaBf2FaT&}0
zdXn%+5I-uK6S0x?m~vlia?ltk=cNWK$<_CS;4qA%EPJ?-lz>BLR*?$!3<_ZES*+9I
zEgpm0!zY$J1^>m6VKP!aA5~{+dQEBl`4aKEiR}?rLsAsop#iWnA|Fjji^V%pW`39g
zg=y=BIp}1bHiNL*7sB${m8R?pZ6H_n2aiop4%7PQ#`EVC&AmpV1jX!kvp&E;`;SE}
zi6$kR=#UiTl+Tjm|4BgV!r?z(Io$nwDIs~;*hq=geU8~02vw_bD^Yw60qUWM1D>j#
zobzRWdgk=3EICiu*v14Am=x;7L&Fhs3Z8g-i6CM!QA+W_LhYc#+c+}-u7~83f4i=$
zeQ{*ORP~GY{5fWRhlbJA3BaQ9rYn-rgK0Cpy5(DM0Pw|0&C_Yv1f{D^SLdcH=5FTC
z&~3|WzcyFbCz^B+39g@b*30Dgtmo}Xk~3Y*SWJ90gp3m8l#?A6*0`qvv_QmR&_x8N
zy0Uh*-ZhM8(B>GP+>MdzM0B^bj!UeMY2NojY(A*%>Hc><Th4k#3+Qo3*nCk@Tu0!?
z##OqOWu(gfaqG|I10prP-SKt;_i0ysT&)N)LOBzt!13qFnuRThQxkPwGj+PCmVIx5
z;qWaHbiZ`+<jJ*Df4Mr@G*Vmt*=fAdGQqhw`h{_U_W~a!7S+2aU1#um>`cYnwB{#L
z)Aq?`eR9}Sm<p^Qcnq<3siFewhjZj$Kr9>N2wwK_bru|Mn<M8*)<*vmDwYm^{-Gk&
ze?epL`6qh5uoh@S8Bt@&DgnOnRxd9Vl}A@T?j9PW*>X<(!uoU-mB4+gGEgcd-d{96
zLx{w5oDnk;l1WLO2&VuS#Rim7S>G4JLZp?#uvvb@Z4d~X5=cmb7T0QgcG5ksQkZpB
zd-WfUp0K_H_G^=Jj)3fM-zwI+?pcPj==pVn;FghFtXoJaSWPsLe-fid|0YpY83cer
zl!CYh^r%GLs<@Js!c;zUI8#7iAl$y6t$PRWP`jUmO`7#phUa)Tsrpi>69|0#imp~6
zAGpZ}uN##UK4Ji_`KExP94TGMFyjrfW#aRudI8h1jLQX;a-<HioKDYWInxy_T1R&a
z|Lg=EXb&l;1HE?c_XoLYUhz;mM(RE5!Fq!59J8qK1VZc#R7FZ!aP79Bf&-`^aX6Ta
zY(}2C-n@>!(i7XjfUM%F$INJ5y4)3~t3WE7=tK_SBhK2?$g-`@1@g$np5`Lq5TPI5
z^x1gMU+~o!*{(mkq2GR77UZa^TBJ?SMxwD$XWoxEU{C0f6ny%4A$d;Wn5c#{<g6R%
zP^7Q@^P8bHyq7{t{`#g^%2Vwo*YO^fn4Xdq``eNnlahcVje&||x}h_+nVt8Zdc5EA
z;$OY_h0<s=SZEYvmWgMqgU@Y|KekL`=k$P6z8~bhC=5-F(Rrf|_;3BQ?*eC(fs>3B
z3X(s<6;G6EdaeeIt{%bCJlnMwUeMUl1Pzzo%rP0VVcr9=YG%vj5P(=3eIo24xCE+&
z7Axj+OZse&nzAndoYMhT{zZX{G#j+J1TR%cRK}>3T}-VYu7%+>=k^GpE$kEvAMFXL
z*&^jE3kZ5?y5CIMk7k>%$RT0KNBj%i0g)f}qwWA{U(JL0lh*S|PP(l*619z%@w~Z;
zmavk#Q?-+e=34rX9MagL6|H3*_iU|3+1je#_U!dlz3}|4&<+d!%5!Y?eA@zk8+-Bb
z<~o|j+6yWiW$oIp-yh>(*WWC3GE#S$<K{&i+fMWx2)!m=TAtfIu11%B)^H^_G&rX<
zLB}v5*e!hc5hK@SAV@P@!Hkp%<0X!=jAZ-fk;cCqml5&5HbAg@+_;8wEkX#lzzAr-
z*<x5G%9Y_OFxYarOzd{~g=~+U`NoaNEBGN1X;(EhHFeEG;A~kNdjn#)wKi@vS_=m>
zjYZ<Dn0t1QsA~apq9f4hRdbd@U;CPf2^FG(y&0|bqSz^KIPB%i&93t?YLRxSc#;g<
z#l#=0Jbxit&n93_B2GLIwDH+i)~&B|IK(k{Kn2bu19BadS|BjCBfI`=+x+iO9pb_7
z4?o(K_}ZgPEd5SA%SCzL+2T?_yWHH&WaQ`nK41BHs!_VAg<sxrZCczP^FF~vc$KqW
zd^R)QDL3YCFH$Wzl7*77)2s65M?#IOo~RBb271I^ax1eYMn-AW8Szesz78d^kU)8y
z+x9zJN4Gfs^@*w$wZx;$>&KG(*tX<s78RZJWy^g9#Sj=-4TA#_(c)!yvVNe*tq(3$
zK^_!c=Dl}A@MM|UQ@o@?nUWP}8gK$N&FHyTi>F@Pi(t!s)w6(s8XgyVKAL5qg^&bs
zLi`UOxD{4vykqJa5FOUl<#~(QL!KoS9zPyTMt+K5DCWSueKT4y+-4UXTZ>5jOngDl
zuLH5v*BVu8GJw>h>J3(M>80Dyt5%6x%b0~8LhUUKwKtQu*H%0eU$oet2y37p5;E>y
zLb@PU>-@0i47Pn6E+`~qjP!{AXvU(cgva}@JG!mzFECugvZ1q-HGhvSJT>AMJM&q2
zMr)_6EN3=N_x0JmRZLcZIGFroNzPxI9gLks=Sw`!VfZ1D^P&R+mH3;`k8;=$JX#to
zqK4d(RM@q&w9d7nus_CPD&`OOqBGbD5~YzIcRUR~>Pw{(<CFB7o!*zh%XWLCI>|)r
z(6dv5xVM_%0HTcDH!qzL-|R|2b^E&wf#izC<im+TEb58z_-ELnGqHK-u@gwq6-a1W
zsAck_Q!(V=L}OPZ&Wc%Q_iPn)yskV|6}VJG%DqpowQ)m}bu^p;(R!i0jp!bmJa33U
zs;+X*M@^nRO++)i=^PXAIr8<)48tqGzLRBj%XRSzh&lD^ZEVK|#9;+KbbyD~fBv;z
z{Nrpmyp^<k2*Z5n*dgP2w7C5&yJA}yxVm$0Xw2YG%SU#tr^w3AyvOh>68@LcK)cyM
z3J_bKmOnSc=!lq`j9Av{h4Z`l&&EwuS+idRXV(h}!Ex|`ry3#xYUC(+y2xjU%#4K`
zkD^EA{tnYa*fu;W$R%Ego2?S(ku}$AxxA%kI8jg4MeoHUpiov4C?o_;;V;WLwp|>)
z55=Q6fsU-I2J57sE!aA>yoDOZsgaFaZ6}=oh@t5X0|4Cqpe4=h=4Qs#z?s<IVZ~%T
zwZ~$HI0OtN<z=b7NR5&-bkxQh@UpQX;`qwu4f&Jm@M!Hfmf<eWF<j=XNA!8{D3ZvS
z>N#JqA|=;aSJNA;a6oZ2iulmhoaf<YRsWh4`c+h*`pT0y%G%29k)yyF8`Y;tu<@E3
z_X>oC_9xng5FNK6@>nW01Dyg<Po8M*Fe6**UEOzgr$b2qza%^=>D7_5%C@GZWuQF)
z-VWkNe^Qc`oyQqmmt27}2&?9EX&eF;CxwZ&tH-r#r=l->d~~|rFvr=>_73ZQx39y-
zdJu6qJQ$=HPy$X&R(K%;_&^0wq)pQ#9#d@okoDx?kP*$_IVPG8EUt77h!fvo1>!hg
z;?KKJ6c9di96io7sRxH+=z4}Hts$B%n#Us8A-MiG%OuvOK`xkWZv~d`_Md{v0D!g+
zU0-}WWKC+~$^GQmy7kv5{`uW*IAok@^2uNKm2u~jWB)gcLHr57{C<lM-DtX<6E-|M
z)whf$I8m^~cRn*I@IE!-Jx)kRAP0as0<>QyB(%Cb(Y|-l8GLp-9t~cAZNq^=DEIvS
z^se;ycyS_tpi=8o%(V_flm8ciiH{6n9Nf`D)MTxG4f%Uq8K>#IIegga8uc0HT{0eb
zGErZm#K9|LMGbWSx*?nHHFGALu!kRj`()?S7_Qg8NMk}sywwJeP0}Qq)fFJ6Lh|h{
zWR|WmERgTLAV%lH;K29ivbkH}uNZ|u_9jphlAZ(7S|pqEWyMgJZ2oSdCJBAPIvHG*
zSe&EK4j}($Qx7U6<#;wWgk+L5lSq-M$$H)Pi^L}2@&MWRiw5Q$K;4!po*c+WC9Fi$
zPxKG4PQe86#DuLm=T>%4tY|=hWvI#s>~7%XInvPZ(PHehiu|-7V)Xs$6-2H?rQ*8s
zcshfAE%F=6FS(a)r-EwP-NI}cFD8jSt2YA|_b2M2p}g^2i35QG{Os)Xh|8dA{>5#&
z7RcjKpzz6Vc7#Z&5JW^(bcexx7UBmK$x~r%0>vY$N6J|ct&GM_^I3u@79y{MpRw67
zgmnukZ~mGk)I@RTz&H3Tdj;(mJuyEsb5cU&)#j=5=g14a_r|G3TSBSzLrz?DT%1_H
zX3$fS7c4i@=CEx(A^fj2wVqlV69s|9fzu5GE_O1Z)=plQd59VuF&kM|T_6^`QT<c%
z)tFbW9GBVoJzml|;x;-us_K<9m0aHNe4@wJ^K|bHN>9PN-iH&l@_}0r%`c*OT15KI
z*yKf2Ah-z0fZWUi(p}P8!p0UVV~q-lPP?!70P$kg)z$WWx_{O0oeaEpQ5VfViM_1V
ziS%<_JGc^AjIIOg@0F_mhl?g(J*g%bb5BHl((ZOIFTLKakr$KDJbNNhs!=`7#{XTn
z29%AZuR*MbYWHqEv7e+-1#N@xBcAlr>h5GM-Tbgv*^A!Zn!>$(<#gz~WzO>DR|Ltk
zulr~8Hb?uO;5@bs2ePX?v;)n-{zS1%T8-+{to06u%82Dn6iGO~3M>zm1^8`ZC4vM}
z5hldB!mVWuI7fSk9ml^bvi7Iv;es`T;$ZUfkpD64+>|01)k8!$2Oi{N`WO)%A=nV6
zeocs>t2x?;IOFE=OgPW>1-4*!`RoeWB*6i)WQU-2?Y=z=aqO+XcJ10kQ@0W)dJ~T-
zj#lrYr+j__j)#Ov(%?l@Remw?SzDFHGb={F=g!|u4sJ#O@!t-8w`=pfP=k~6=r?d`
zW=D?@OF9jFwJe<hKxfxr8d5}*gQY>jq+63q+T!H#K2|X8iQnsWJ9VRaJCsLA5J{yk
za0WP)wDzf}6e9Fhzer{Iq!hEtB{`w8wgI5Rkbi^8im`sK8G#ZQX}pZ6VI?1xxAzJT
z!s$s035|hOg}lo)wHyj0WRZAU4{a73zejB`gptjuz)I8!4Jz#+vRxGwf+E3*%Uo?k
zia<KR>n|vGKe}?1G_WbYlrgw`#2?_<`zQd3Bm)15kOfy!+t^|iLcsN2!S^*aMPny8
z7wowXm~Zm3;$WCe&mzJWv9W>WwoWtW?m>-3W>E{um#dVgFNMw^2#ElrWt}#kI=N}`
zL<nV%2$1F8(b*qn)K8y&&@DLf*s3UUj-3mUye<aLc3umxxWnwJ0k^5s@+o1St+UgM
z^DX&XYH{Ol98Whydc7li<Lzl&IX8J3T6nPQ??n?*8ZI!$!sZIKP=oF2Z>EN6>?UF?
z>wyGl$Bu-`I3#}>iLQ{j%gRb3DptK37ulQ&;Qz*~va72LCE3k(s@t76hTBr2p-5cP
z%-9S~KI!MN;g`ol-rk@Ft_9jkn!b?}y)kuO`02<bX%KKnN@jjuUY^?LxX;f!KbTRb
zWD^=Hoq{$tSks1AO&wEWwCXN6@y6`wN8S;JHG$#hjs&9hJEgIU^b1p|Z&%94R`kxZ
zEbk&$IRkfm2v>xt1l?d6C9`x|dI_QtmYFDnBWhVzRT&O5IH2;#{*yXNy~acBMMQgd
z(V{WavH#i%USo(Uk;n3(#p@zzfES+Eq_#;AyFlcjuJRnb>cc=e>Mzw0ln62}F@NOL
z|3!`8q1vVdK2w1RhVRST8gA2ly$-PTHEkAbYq6O!v%xTy6)z+E79TF)tr}}D6SK8-
zIqr84ZNIBYt0?IWBaD;tXpN2uI^7BIBbD?RP9s)W+x!eCtG2qj5QnKIN{N&bNCyXD
zBvfB5B^w+${+GhiKgDhR-zFqGsTvJ8-*a$N1J7;Stq$DB);@T;EyyZqIJB$l-Pg1`
zY3nvWPkMa&{8kNvA1TYXqIn{+HKs9X`&OQikgVmKAM*FjB^l^t?TGAgT&^s2xn{}T
ztmPE0lm9Qm{(s9j43^jX|FgpB?=b}boarL}+2uTSym#T^V8W}sdIh8McphCkxbWar
z&?<nD&%~oV^hAYtG|+RyPZYQ>>G_N;nGYXc-0Hwav44pq|JulS>v3O{zL>+8gfDr#
zgy2L?IW{Hw@b|xlk(t?5x5`aTzZm=&IY*kjl02uwKk1*|()Q!QUw2LioUod7ANT5D
z8ytI#d{7nOl-z|<U(}jCJSdfuR3*CXqK<=B@G3FNmO<1DRK;n5ty(-hv06XfT3B9Q
zJ~Qid$C&gpoYdBK?9*k;6IlPG=`H`+_5D9%m;dK3{wIWBL<<QaJ(@DMEqqQ*c4}zs
z$S1g{==Y!3v@0@PG)aRz1Pq3~-%0ePIBsa0Nha+_X!~4?^3^38Db=G)VMlsSpM@Cm
z0P+dPvWV!jPWLWSss9FGv-oaOKH#;<SYPbV%Zc~t>pRq(dM3^)rk|Bv*h0-fvoLyM
zi;k=Dv%iS&bVVws0>Ts0I|-tAAgv3iZWe-LKV-0#+}55y0FQz<k})l){F7Nlieu=T
zF8*2M(JyRls}x6${TUwFwB+n&%~CQ(?`2%t10@ev)M3$C`Y$NiqaYhSnqWmxn#V|{
zoEjOlVg*pCm`5>s+JIaV&Tq5Bf@f)e4@$#v5#Zn0-%aYgXsdd*q~^KCr;Mm-VM^uC
zrlzKZ%RUiO72icab=!8E13Sh3d{5=$<1#68c`tS{Qgy7vSpF1Zz22!w#^$1XXbbV^
z$8#nV-VGT}dc$+mNYwRc%gLidb(mQ02?D55!ExQIxL3Yft#Z-Trj*KGAK$$@GdE+N
zkblFyvu(<I$*lvO(zev3+3D~k2Je%u-^W9;mQv)7%@)g!&%tjWE}$)9XO|cJ&7f~E
zZ4-nGX=U#ljcT4m&0JMCP&Iv|JX(nipn!5LZ~P{gz956rv!XMqM1`(aA>qJHId<}@
zQX4<SUg&xG{$A8NtpRMIO8@e!G-lsk3??80FMz%wI0Kb#pL`;+8db5S8fmD#r7*9r
zr(Dz^iZ{?HY>C79rBGQTt)-YtBke#i0*3|Lq|5AGaWDk5`vI(CdI0~(=ObzWifn9s
zbqTh^K9~N6!<AxKykz7C+)^{}^)fH|8PuO+tR2hWEB3#BI~6NVHqtv_`INV8aA_er
zl8`NdCwA*^#a%byE$C$ie>P@5A3x~aBMWR*3Q6ZKxK&aJ17l0Y01_C=>vQ`__x8ik
z&<?`N!d4Rs@3OG_wCX1Hpr_TUBTF<DM^EBK2{j&s34(ZI2O4Hw?E_F<0OO<ByJ#~%
z=jla}T>9r%cpKZ@mgd@ZZ6$vry+85EyVR$(ceZG?leQE2fs76Jww+#`kT+#P7&~;H
zu}hhKya{ge#JtAlHLsL2^A>l`Et?C23y&=)|J!z9@J#_`sO8ko^Pd0rHivFKWKeMS
z1QLAppgUR1BSWFxizkz7FcX913LqEa3el`}fY3pNmJ<>p;}v#c<`B!298gX!VfD<l
zqj<rZ0w#<O+<2^>ji6{7eLp+9fX%^Vh(?6(iRp2$u@UARDB>QAY^r0bySQYIuc2ho
zktc7?d4W=no93^3K?D+0`bXL@*q@10)`_iDnrNG-ysosCjSc+t7CUKl99dgif0_Au
z#MV{oM$CeB<*4Sek#aq368Wrf{Nl}b4+m{jkM?6-DYEZBM(J28${w$KsOFG_5+cYF
z2%}B<YU79k@&5L6`$!RkG$s*RBD(B{b*7|kis+WxN!vdrUp%kwq}*Da-J*Qv{rMe<
z6-vxP6d$-qy^=I+p^fjx)*lY-Em&504f@7HGPeqoQRp`5WF!rl_MmZZ8$?$`v5IPu
zmhb8X2cy9PfF=prxW!=$<>|Zl@xVG1;SA7YCr*m2M3U|PO~c4HX~$g3imN`}oRRFH
zk#byyjd8At%!^E!V6$~8(|ZDRiiS(8<}7JLO!CmpaZbz+KpKgmC=pX9$;brw5T_8r
zX^^h`I{hn0NWUle*N7r$xQyDj{+cJ$_T$B(htihqfnL)lkfRimj#AL1J|3jn2(LpF
zJw&ei`zf5|tH;aKH{s-ifL=}3AQqws(xwWTg8UCT+o|^xR#o~Ug9m-{wKUjinG=xV
zRLs2G0a_$0?sZ%$7$g{1&)%B{J*N^EL5?%`$TN~D2CR;7qD3W47>p9xt_NXwR8$Z?
zic<HT{RLfMdqm+d+f4+Sx}@oK2rYCQS%bbXScv6#uCA2Zyi#GX;4fQBp-{mZ5shFI
z+5+LuP<n$YM@k@3YaDd)8h4U}oPeeOAj6dWd1Z@HVdf;={_x=6j@bGV<w6UDa`!S$
zKvTJWvav3YgRG^B3ZVF#q|2li7spQyC1dUP-@TPKVM$A7nG8WvF)^W~Sra9oGpKjg
z6tvE=kP>wFa$V{E=&vE3xe?63iQW?nKtpc~DWlubV5q!geBIBl793KCUHuG3jCA(i
z$G9;<e(><{wEK$2Q_1IGMh^!OM8w&F0UNnNrs3FO(AI&%kK8#haz9dcB4ZO!3kk&N
z!C_D3U-uTO)>5+0;Y_ohOGt=(9-0!x>{LOQo~_!EBL?b*01Yz4X#<(DM0Nlg!j#`@
z7I+-N9UVb^Sky{ZM&{n@)mV_%V6c5FFwz2q6WX_PYlQi{e<gQ*1XD=1S~1{)gkw?U
zU1$9LYbj|92B}0P^HrXSFX`E^(9l~uRzGt`S4D&%i4I`38Dn(}fF{<ghy1zmIka|?
zS}Y>_iMyaceqoajvDpRD7)oT<cx|@(aW4KDLE|E_B!4oE1oQtItz|)@5|76uVnOe*
zBj}zc^CSq?f@v%w;?KKT8zVzt1ZV6j_bw?SB1@L$ip;UNt~|Y7#-@o2mQIQktRXKB
z)yE;PJ+JcuOFeZL<zm@cdh4thspszMx^MF2$-e1Di%!o6I+lN`boggSn#y0Hty4p-
zhm89IPj$NYGWwuvtF=(L5p8+_9ynSJEyx{Gzj&=&zOq=HvYd|)AQk*@dOl~rK-u+e
zcvu-#TOZc{`O`FmHln79vaQm~_$yN;M-*$mD+#NgNXc{6lKl9&vho;LAk0?G*dea3
zcj86gp;0cU&YVR<(mzlZi$Ypb`63*{7KsFFy)GFnXw{mRt7*CU!mXc*URx@3UCuOA
z4jF1?;%&@^g#~RVk!4f7|1gDOj*X2}FrbJ)7exnJLj1`vvckKm)+iCqh;REAC_O47
zAb2sN`zJgDqB+Imd1mHrG8zfJWJEzqI%v`7aJf|Y**0LFb*b<&dm<)l5<J;)06`@}
z=c!1B|G_g6)z<`s$GY!7VWUpKR4F45;GGnNgj%5HE4eRe(vE>T^R>hb^exLPc)}`t
zmi>hOW(`<5%5g=+AGa6YkUanH)-KdxJAyRCZ-C2Z*iEA!06lG6A&b+`u!hO|C^>oH
zH@4{=a#@Y;mJXokudw_D>EkDwMNHT!#C$-GNq5h56O6g&ury+x$w4KHh}+4rpYHaW
zHDlpJUHg+-8c_KLVnSpw(I%4$ACPbfWcS6GK(mG=tXwATWFJAcf^d|F!xc!qa5eN0
zZ2~2VI1@uY67K5>eGW2%U~r<-?Er<~4;1FuXH`ymhse|_;D1#BRx-TBjtuL8u9Bu0
zFBPbX(Vo*2CCULT$2c1AR0LfeFQJ8RtPv?jD>b(tr^JBl+?$rqiGo!#L-}QC*0gqX
zsT<}nJQ#jZVU^rkzu)-NQ+3uPGXXS5h}X5YI9tSdIF;;kD!J@5V5=$65q`5|;8D70
z!g@s)Lr#<ag%o~>-KPq`;RaC;3JFbOD64M93@Xltg@mGGVl)6eY4na8BH^1yh`w(V
zmRa))v(BrgwssTLrgPb}Au=fe9XXx`h?d#><D^<WCWhIHZ?p24&5X2$aS|0XB8cu8
zxb%#*?B%cT&Z7Wpt;E4!lTrrH5`;;1D;dLx=e1oPXCS4#+!vQVVD~|<<@>#TOnvbX
zGTO&{oDWKn(l<WK<VT0e@P^A62b9uK2aRSBX~=5!bVv3jFU^5X2#3QPpXja(2YgsN
zHStwMxxpedJYZ(yx7i6C$4toJ<oVQ+%_@#!5o^!QgmG&Y@hvk@bkZEKbrS3d4<L&q
zWs+WB(KirafOyF|9maqB_M;Cye}<MXW)<O3dm3%<4t=!~aL>)(W=Vm20t>>F8MmdS
zi4ldwMH`!e1F6kUWNZ<f-xrzjR^)v{n2sYwbPKyM7mU=6<I-pub|#2I*=ni4Wvx^)
z1M&5?15RM89ms61eml3ahIbg?aX}w5Ug=}O<rg}jWbxXjpYi(b6(Y$b!r+ulFL)>d
zyPPLGL*)BoL<Epz6E8Ydez=92C&(mv1ag_TcJ>IwB`BAS-+wmiiia0tzp~A~tEnh2
zzo@#dBN2~1JC(J960OtwJ2!=E0&s{7yW1!f6zDk;<<_r^xvNX1+8aM#-lRM2($zvw
zZw<FX_FLLLOge?&30j3A6Z3jpj-a2eri?n;=6<6@W7X@UPH5s#*@*SGy^OH2k)Yt9
zitb<(9YoNjau_9$rODN#%N-XZ<4H?V1qp@)z<r*FyC@CCkcfRoWXx!~#hFx#8XM^_
zh+Rs7yjh=tdYie8%~6Dz`=kTyu+reKt5W2zI_Z?RLQWKfG*6f~gfsxihB!KzdJBXY
ze<@;?F*hr*8?9u^m<YT<FdO@cUH3vlL{Nv9n0Dvo<qalt_Ar=rOUiDX?CjAABDy6O
zGz&i>;(|F;%K|l&A~X^CgGgt?ZcJrb>OsbKG|Oq4**h$@)hzZ5vbUa|1FG4YLK4Sd
z3>T9ogMQG2yUc`%Lw2wQxP!B?8KOP@+WEt)S-el@qd_c_R#SK1*uNzHQF>G&O|POa
z{3h(ufkd7<+->ZjACs6($*ipxljbu+lDN>Bl;ul7w+12Ucvj<RSr;#s!i0y(E13oR
zk@c36`Yis38~~wGoc=TPZsP51_LfLMh^|eG)6Yz*>>_<f=@xRRUM^)OWc9vU$uMyn
z-y#$Qz9O|D&9ok~C!JCoq3shf3v<xU9`76N#%_q{(PPlz_5c|7aWiH{jbGHd*(M!Q
zCQQaIt!67FQ`#&-PyCRh$jwy$lsYtbJJ5aO4eEJxo|OXbHCly~bp~NwgxPNMT`E{W
zuWhX&ZtTx1@v-NFbN_o6d7kXtp`3wlm}Gs%3}T|lx*4ccbW~LOp`Ic~L2)bsB`Y7g
zAlgF0dWVzB#94ZexB*_ICVbF2An;_j&cw%bj=dwe4})5)99ppxy7iuQ*)8luViiLt
zeI9^k2zaOl+h<+_^nKGYA?r0PI~1+y@v6)t#r}^UISYxq(jEsxBSuCyQ>kPySEIhR
z5I6udi;iv<rA-bEqf^Ir{1NE~AX5k924bMRLr)B69uOr{K4(=knTi!L{Z#}&42h3<
z!lNkpDT{uy<OUX+W@96L2Si|RoklPv*)2T72dRn_w=c<K#afoWyEz)=oot(1jlY!*
z)x%O)N7-Bi3A$^|7@gMfJk$n^2P)i~cRctYU=3+o0;x{}5W>L^R8IwwiLy>}@#`|v
z>n?iaK9Dj?%S<pGWCqSn1X`z+o!>#A9S{O|vMl|#$a0p_fM2XfB^kbC2u_$>9je<j
z8)YI6iR>vAiLi2_e<B?r&3R-D&6_b|qK>pQGcp_y<ARE?+*~A4Ays4Gt}m8#uI~xH
z00UwZ@!~$79(^xmJ`q(Yv2v2|3V85F2j7r-yg&>h{n~(L5GA2AX|myGv_2$Owq&~X
z%{r=jaR=s(=71KWQEoYsqoUIchvY*?|5-|d4f=bqa#-VNtz>Pd@=MklfJ#U|E@ytc
zb9yJds!k}=vHY@M{qE3AMbcPRHRki8F&Sez-;AL@H_LsxZ)VhJ&LNbEl+>uc1xFoT
zw{!UboEb!PaPwEPXNa~0q$d`4mDj}n>)qDnA<&wWEb0*^q}k#86k&RrAgPgJ*w%!_
z<OFuwChSE$o;rPb1AwCy><Rhl@d*S^Uo45XV9eN?l7F?+AA2=B64S%$W=0)&DW8rK
z==BQOP{wOAUa|Q?RO+-G2IwxMlOEueO!~Lj>XuIpS+2>m_oO2I?83oO2#hCcl-<f!
z42#Yd8K+|glGwDLN8?CMJtOW`TuevweUrzzS3-82JUr}tbMwG352Z(rKvT<E_>*G5
z%2N|c$g^a4<2rT9E_IT|P~^vVo_t;KxRWQOLSguDLU>H);ji!;4)uARjSqoq%#(?4
zppkI|CCFw_Z-xyp26GaW9qZ0KN3v`O@p0iYiJV_B2^CGEn1QaAG;CamTCbCRG~?Iv
z)i00FOEw4Z+jqrCB`e9t$d>HWc$SqvW2Z1yOKy^%<sXSsw71p{ymE!OMNOFSFH_m~
z=B|07SnOnRq{G;uL*9ZyS*$?*jetinQ4!+-{PKU%_?f=H<7hVHK{|QU6VU3K^t!px
zhuN5nW=4{4QK<y=k`P@8mAeVyS+%v(XxrYxZNzGLyg1_4;RP<(hmIkTBdWXOddm|l
zPvB$*7@D|RDvW(ijl-r<_Amwquw%YZ24wWUih(fL>b1Uj-Ir|{aeC<-Z+=BS`?Ss?
z1|ljer*5GOGX}8y90*F0*dr!6I-4@X(KRBbZ`BJ$n9DZ9oQ(1`Ob|VH?)exQJZY0p
zlyk@ilWIIr!m_J9ZN{F*=y`J_q3$yMlYymYS{Ip%M}n<Eulx!*`B_T~i=~{(Ii!0P
zV<vk?8_#?WHF^BZxTQ5dr+DoZ1&+SI-uN#_8gkp=+#HCN3JED;RJoIdwhkz#M=o6t
z*b=4gPk)Y>trku7=i8n1+5^A@UBP*cqTO4bVG3!=YmXL}Zo+4`qo+XpcXd!QV8_}q
zS(}VSluEN{ZlquF=oB^DVui`5i~!5{%uT2%=<lk4>6m<cw3|R^C{4iFlHt_+V{Vup
zRD#BgrKz2lGfC!21_=d<ggXlf2|>`w4ZKA^k?S?8<8`WDspF;;dBCmuTwB$H>Invm
zP*&b_<YBd~c&zqe1MWF8yY`$LC?-javM0^+nD~=;$qk}GA~3=TE&<Z_nDBdht~7^X
zg6?>_XrP^BiHW2U&9%>E1!Zjnr2akZ<TdBqaI;}b14gr*MoVdASm|-g#%EAT5(xtv
z8wf5<ldtb?LtC+w(;aDzVZx(yiCoO#ZWeQ%BIC<!(G)<KDR5)Nr3`*~+d<NIv^GVn
zb;}XaJehm`g$ZY(40_@CE>_<Kvvtn%++4YAD<8s_WqJis&Ow#K`X>em(~ar}CiN0B
zinKEdIT~*70~I`QITvo2v?fA@f?^7oMDF8ydU`K`UdR109aI!qfeGBF!9ad~-}?!8
zFRLcBH~26R<q}HZ8=pYVk30R+y#tw$GaAsi$qa4s?-slq9qZC{&NXgsjaMix;tMQt
zx9;=rmZnsK>7wkZ%0)|pkF@=qmz&dvPltGX7EJuUw~Fd>>%cK9tF<Z{eZqc8T@zch
z&r<Zp-QSe={I)oi-Abih;&l?|5B|B-yOC6XuL8YoycyYsW5r?mGi@%fZf$RU^kBDC
zQQ0l6=#!p2h9gFsHf=gHH>Vp@BPY`^+tbry)atQwP|Oq%uj=B?CuAxoQ*QTe^A)~R
zcej<bkBp3@FPyVT<zX_J`O~@i`O5JL2`0|Y8T2z7gnCC^MSo%*)YQ~$YH2C%@9%$6
zJ2%kyZ4SXABO`<Q>#x5mpK8&RYhE^Yr*0_iO2BY`i9&?6ODoR2*-y?3yqm(p!cvuN
zt*uj2tsftw(&=<4yWQOU%F4?0Et#~D5&NdrR<+bK{zF4U%Bz3#^g$=PvxkR&M@NUQ
zzW&V<(Q8lNQ;k09J2^R7Pow!=zka=^ua9ZOEKS<Ba@DGifdO$DSy>Yci>*o9{EQR1
z?j90expHNDXQwcbt(Rr)zQ?~HF|M+bF|oE5TfAh+hO(s1A!Ui#*}Q>)fs(s-PkwWC
zb90MousRS`MLqOvb&;`TR(7_@g$tYT;0nshCH3|7FY55b^tsH;OlMbD-{Ik5-P5OU
zR8>{gj`DMJ-|+GAd0As&=itCDFE5{2+xX3J;-EkY?c?r`$%4b~X`LR>=Y$=1W_;B(
z1)(I<+|;C!sUJYizvc&@??K43))3kGe~M)FUkl5B9oKXmz8!zORsNz4S$)dc%gbx7
qSBS+EU5xmL-}fJW@PGJ%(M9)f-PX4%z2Zu)t*&}hC4S%8-~JyVmq3O9

diff --git a/reference/plot.html b/reference/plot.html
index 4516c019..a513e29b 100644
--- a/reference/plot.html
+++ b/reference/plot.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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/proportion.html b/reference/proportion.html
index da32396e..ea49fe5c 100644
--- a/reference/proportion.html
+++ b/reference/proportion.html
@@ -12,7 +12,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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">
@@ -162,7 +162,8 @@ resistance() should be used to calculate resistance, susceptibility() should be
 <span>  as_percent <span class="op">=</span> <span class="cn">FALSE</span>,</span>
 <span>  only_all_tested <span class="op">=</span> <span class="cn">FALSE</span>,</span>
 <span>  confidence_level <span class="op">=</span> <span class="fl">0.95</span>,</span>
-<span>  side <span class="op">=</span> <span class="st">"both"</span></span>
+<span>  side <span class="op">=</span> <span class="st">"both"</span>,</span>
+<span>  collapse <span class="op">=</span> <span class="cn">FALSE</span></span>
 <span><span class="op">)</span></span>
 <span></span>
 <span><span class="fu">proportion_R</span><span class="op">(</span><span class="va">...</span>, minimum <span class="op">=</span> <span class="fl">30</span>, as_percent <span class="op">=</span> <span class="cn">FALSE</span>, only_all_tested <span class="op">=</span> <span class="cn">FALSE</span><span class="op">)</span></span>
@@ -230,6 +231,10 @@ resistance() should be used to calculate resistance, susceptibility() should be
 <dd><p>the side of the confidence interval to return. The default is <code>"both"</code> for a length 2 vector, but can also be (abbreviated as) <code>"min"</code>/<code>"left"</code>/<code>"lower"</code>/<code>"less"</code> or <code>"max"</code>/<code>"right"</code>/<code>"higher"</code>/<code>"greater"</code>.</p></dd>
 
 
+<dt>collapse</dt>
+<dd><p>a <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> to indicate whether the output values should be 'collapsed', i.e. be merged together into one value, or a character value to use for collapsing</p></dd>
+
+
 <dt>data</dt>
 <dd><p>a <a href="https://rdrr.io/r/base/data.frame.html" class="external-link">data.frame</a> containing columns with class <code><a href="as.sir.html">sir</a></code> (see <code><a href="as.sir.html">as.sir()</a></code>)</p></dd>
 
@@ -339,11 +344,16 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-in"><span><span class="fu">resistance</span><span class="op">(</span><span class="va">example_isolates</span><span class="op">$</span><span class="va">AMX</span><span class="op">)</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.5955556</span>
 <span class="r-in"><span><span class="fu">sir_confidence_interval</span><span class="op">(</span><span class="va">example_isolates</span><span class="op">$</span><span class="va">AMX</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.5688204 0.6218738</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.569 0.622</span>
 <span class="r-in"><span><span class="fu">sir_confidence_interval</span><span class="op">(</span><span class="va">example_isolates</span><span class="op">$</span><span class="va">AMX</span>,</span></span>
 <span class="r-in"><span>  confidence_level <span class="op">=</span> <span class="fl">0.975</span></span></span>
 <span class="r-in"><span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.5650148 0.6255670</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.565 0.626</span>
+<span class="r-in"><span><span class="fu">sir_confidence_interval</span><span class="op">(</span><span class="va">example_isolates</span><span class="op">$</span><span class="va">AMX</span>,</span></span>
+<span class="r-in"><span>  confidence_level <span class="op">=</span> <span class="fl">0.975</span>,</span></span>
+<span class="r-in"><span>  collapse <span class="op">=</span> <span class="st">", "</span></span></span>
+<span class="r-in"><span><span class="op">)</span></span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "0.565, 0.626"</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># determines %S+I:</span></span></span>
 <span class="r-in"><span><span class="fu">susceptibility</span><span class="op">(</span><span class="va">example_isolates</span><span class="op">$</span><span class="va">AMX</span><span class="op">)</span></span></span>
@@ -351,7 +361,7 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-in"><span><span class="fu">sir_confidence_interval</span><span class="op">(</span><span class="va">example_isolates</span><span class="op">$</span><span class="va">AMX</span>,</span></span>
 <span class="r-in"><span>  ab_result <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="st">"S"</span>, <span class="st">"I"</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.3781262 0.4311796</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.378 0.431</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># be more specific</span></span></span>
 <span class="r-in"><span><span class="fu">proportion_S</span><span class="op">(</span><span class="va">example_isolates</span><span class="op">$</span><span class="va">AMX</span><span class="op">)</span></span></span>
@@ -393,9 +403,9 @@ 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: 3 × 4</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   ward       cipro_R ci_min ci_max</span>
 <span class="r-out co"><span class="r-pr">#&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 style="color: #949494; font-style: italic;">&lt;dbl&gt;</span>  <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> Clinical     0.147 0.124   0.173</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> ICU          0.190 0.155   0.230</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> Outpatient   0.161 0.093<span style="text-decoration: underline;">2</span>  0.252</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> Clinical     0.147  0.124  0.173</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> ICU          0.190  0.155  0.23 </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> Outpatient   0.161  0.093  0.252</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://dplyr.tidyverse.org" class="external-link">"dplyr"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
 <span class="r-in"><span>  <span class="co"># scoped dplyr verbs with antibiotic selectors</span></span></span>
 <span class="r-in"><span>  <span class="co"># (you could also use across() of course)</span></span></span>
diff --git a/reference/random.html b/reference/random.html
index 8833a6f0..ce3f78f5 100644
--- a/reference/random.html
+++ b/reference/random.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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">
@@ -193,42 +193,42 @@
     <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="fu">random_mic</span><span class="op">(</span><span class="fl">25</span><span class="op">)</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'mic'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 32    2     1     2     32    0.005 8     64    128   128   256   16   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [13] 0.005 0.01  16    0.5   4     0.001 2     64    0.001 0.002 16    0.01 </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [25] 128  </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 16     0.001  0.001  0.5    0.002  0.001  2      0.5    64     2     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [11] 0.0625 0.25   128    0.025  128    128    8      0.001  32     64    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [21] 64     16     0.01   0.125  64    </span>
 <span class="r-in"><span><span class="fu">random_disk</span><span class="op">(</span><span class="fl">25</span><span class="op">)</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'disk'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 48 19 44 26 24 40 49  9 50 47 12 47 34 17 37 13 47 21 36 20 29  6 30 49 43</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 41 30  7 30 50 25  9 50 38 41 12 20 13 16 40 25 25 23 32 46 47 37 20 13 44</span>
 <span class="r-in"><span><span class="fu">random_sir</span><span class="op">(</span><span class="fl">25</span><span class="op">)</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'sir'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] S I S S S I I S S R I I R R S I I S I S S R I R I</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] S S R R S S I S I R I S R S I R R S R S R S R I S</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># \donttest{</span></span></span>
 <span class="r-in"><span><span class="co"># make the random generation more realistic by setting a bug and/or drug:</span></span></span>
 <span class="r-in"><span><span class="fu">random_mic</span><span class="op">(</span><span class="fl">25</span>, <span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span> <span class="co"># range 0.0625-64</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'mic'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 32      64      8       0.5     0.25    8       0.0625  32      16     </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [10] 0.0625  &lt;=0.001 0.25    2       0.005   0.125   0.01    0.025   0.025  </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [19] 0.5     32      0.025   16      32      &gt;=128   2      </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 0.25   128    2      0.001  0.01   0.5    32     8      64     1     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [11] 64     1      0.5    0.0625 1      0.025  0.5    0.002  2      0.5   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [21] 4      0.025  0.5    0.125  32    </span>
 <span class="r-in"><span><span class="fu">random_mic</span><span class="op">(</span><span class="fl">25</span>, <span class="st">"Klebsiella pneumoniae"</span>, <span class="st">"meropenem"</span><span class="op">)</span> <span class="co"># range 0.0625-16</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'mic'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 8    0.5  2    16   1    8    1    0.25 0.5  2    8    8    1    4    8   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [16] 1    2    16   16   2    16   2    0.5  4    8   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 16  2   16  8   2   4   32  16  2   &lt;=1 16  8   8   &lt;=1 8   &lt;=1 &lt;=1 2   8  </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [20] 32  8   2   32  32  32 </span>
 <span class="r-in"><span><span class="fu">random_mic</span><span class="op">(</span><span class="fl">25</span>, <span class="st">"Streptococcus pneumoniae"</span>, <span class="st">"meropenem"</span><span class="op">)</span> <span class="co"># range 0.0625-4</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'mic'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 0.5   &gt;=8   1     0.25  1     2     &gt;=8   0.125 0.25  0.125 0.25  1    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [13] 0.125 0.25  0.25  0.25  &gt;=8   0.125 0.5   0.25  0.125 0.25  1     0.5  </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [25] 0.125</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 2      2      &gt;=8    0.0625 4      1      4      0.25   0.125  4     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [11] &gt;=8    0.125  0.25   0.125  0.5    0.5    4      1      0.5    0.5   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [21] 0.0625 1      4      4      0.5   </span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu">random_disk</span><span class="op">(</span><span class="fl">25</span>, <span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span> <span class="co"># range 8-50</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'disk'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 41 35 31 49 20 49 19 45 43 17 45 47 40 28 19 48 11 40 13 28 48 39 20 17 23</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 46 49 42 41 41 17 46 32 45 13 47 43 47 34 43 20 28 40 15 46 26 14 45 41 23</span>
 <span class="r-in"><span><span class="fu">random_disk</span><span class="op">(</span><span class="fl">25</span>, <span class="st">"Klebsiella pneumoniae"</span>, <span class="st">"ampicillin"</span><span class="op">)</span> <span class="co"># range 11-17</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'disk'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 11 11 15 15 14 17 12 16 17 14 12 11 11 16 13 14 14 12 17 14 14 11 12 14 13</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 12 16 14 17 14 17 12 14 17 12 11 16 16 11 12 14 15 11 17 17 13 13 13 16 13</span>
 <span class="r-in"><span><span class="fu">random_disk</span><span class="op">(</span><span class="fl">25</span>, <span class="st">"Streptococcus pneumoniae"</span>, <span class="st">"ampicillin"</span><span class="op">)</span> <span class="co"># range 12-27</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'disk'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 21 23 27 25 16 16 20 20 23 23 18 19 15 23 15 24 22 25 21 17 25 15 16 18 22</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 22 25 16 23 20 25 24 17 23 18 26 16 21 16 25 17 23 23 20 20 27 20 18 24 15</span>
 <span class="r-in"><span><span class="co"># }</span></span></span>
 </code></pre></div>
     </div>
diff --git a/reference/resistance_predict.html b/reference/resistance_predict.html
index 3cd881b9..530bebed 100644
--- a/reference/resistance_predict.html
+++ b/reference/resistance_predict.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 d333530f..0e7dfdcf 100644
--- a/reference/skewness.html
+++ b/reference/skewness.html
@@ -12,7 +12,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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">
@@ -181,7 +181,7 @@ When negative ('left-skewed'): the left tail is longer; the mass of the distribu
     <div class="section level2">
     <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="fu">skewness</span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/stats/Uniform.html" class="external-link">runif</a></span><span class="op">(</span><span class="fl">1000</span><span class="op">)</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] -0.0009699827</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] -0.0006463751</span>
 </code></pre></div>
     </div>
   </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
diff --git a/reference/translate.html b/reference/translate.html
index d8467b85..639ee23d 100644
--- a/reference/translate.html
+++ b/reference/translate.html
@@ -10,7 +10,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="">1.8.2.9148</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.8.2.9150</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 84c3dcbe..8bfda6f2 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. 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     #> # … with 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 11 Dec 2022. 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) #>              Based on input \"E coli\" #> Also matched: Enterobacter cowanii (0.600), Eubacterium combesii #>               (0.600), Eggerthia catenaformis (0.591), Eubacterium callanderi #>               (0.591), Enterocloster citroniae (0.587), Eubacterium cylindroides #>               (0.583), Enterococcus casseliflavus (0.577), Enterobacter cloacae #>               cloacae (0.571), Ehrlichia canis (0.567), and Enterobacter cloacae #>               dissolvens (0.565) #> -------------------------------------------------------------------------------- #> \"K. pneumoniae\" -> Klebsiella pneumoniae (B_KLBSL_PNMN, 0.786) #>                    Based on input \"K pneumoniae\" #> 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), Kosakonia pseudosacchari (0.361), Kaistella #>               palustris (0.333), Kocuria palustris (0.333), and Kocuria pelophila #>               (0.333) #> -------------------------------------------------------------------------------- #> \"S. aureus\" -> Staphylococcus aureus (B_STPHY_AURS, 0.690) #>                Based on input \"S aureus\" #> Also matched: Staphylococcus aureus aureus (0.643), Staphylococcus #>               argenteus (0.625), Staphylococcus aureus anaerobius (0.625), #>               Streptomyces argenteolus (0.483), Streptomyces aureus (0.474), #>               Streptomyces azureus (0.467), Streptomyces aureorectus (0.444), #>               Streptomyces auratus (0.433), Streptomyces aurantiogriseus (0.429), and #>               Streptomyces aureocirculatus (0.429) #> -------------------------------------------------------------------------------- #> \"S. pneumoniae\" -> Streptococcus pneumoniae (B_STRPT_PNMN, 0.750) #>                    Based on input \"S pneumoniae\" #> Also matched: Streptococcus pseudopneumoniae (0.700), Serratia #>               proteamaculans quinovora (0.545), Streptococcus pseudoporcinus (0.536), #>               Staphylococcus pseudintermedius (0.532), Serratia proteamaculans #>               proteamaculans (0.526), Salmonella Portanigra (0.524), Sphingomonas #>               paucimobilis (0.520), Streptococcus pluranimalium (0.519), #>               Streptococcus constellatus pharyngis (0.514), and Salmonella Pakistan #>               (0.500) #>  #> 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     #> # … with 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: 88% suitable resistance analysis! can now filter filter() function, also dplyr package: future use, two syntaxes can shortened: end 2 626 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 #> Including isolates from ICU. #> => Found 2,626 'phenotype-based' first isolates (87.6% within scope and #>    87.5% 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,626 × 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 P10        A        2015-12-10 B_ESCHR_COLI S     I     S     S     TRUE  #>  4 B7         A        2015-03-02 B_ESCHR_COLI S     S     S     S     TRUE  #>  5 W3         A        2018-03-31 B_STPHY_AURS R     S     R     S     TRUE  #>  6 J8         A        2016-06-14 B_ESCHR_COLI R     S     S     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  #> # … with 2,616 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:2626        Length:2626        Min.   :2011-01-01   #>  Class :character   Class :character   1st Qu.:2013-04-14   #>  Mode  :character   Mode  :character   Median :2015-06-05   #>                                        Mean   :2015-06-15   #>                                        3rd Qu.:2017-08-23   #>                                        Max.   :2020-01-01   #>    bacteria               AMX                    AMC                 #>  Class :mo             Class:sir              Class:sir              #>  <NA>  :0              %R   :43.2% (n=1134)   %R   :36.1% (n=947)    #>  Unique:4              %SI  :56.8% (n=1492)   %SI  :63.9% (n=1679)   #>  #1    :B_ESCHR_COLI   - %S :41.1% (n=1080)   - %S :52.7% (n=1383)   #>  #2    :B_STPHY_AURS   - %I :15.7% (n=412)    - %I :11.3% (n=296)    #>  #3    :B_STRPT_PNMN                                                 #>     CIP                    GEN                  first         #>  Class:sir              Class:sir              Mode:logical   #>  %R   :42.0% (n=1102)   %R   :37.0% (n=971)    TRUE:2626      #>  %SI  :58.0% (n=1524)   %SI  :63.0% (n=1655)                  #>  - %S :51.9% (n=1362)   - %S :59.9% (n=1574)                  #>  - %I : 6.2% (n=162)    - %I : 3.1% (n=81)                    #>   glimpse(our_data_1st) #> Rows: 2,626 #> Columns: 9 #> $ patient_id <chr> \"J3\", \"R7\", \"P10\", \"B7\", \"W3\", \"J8\", \"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, 2015-12-10, 2015-03-02, 2018-03-31… #> $ bacteria   <mo> \"B_ESCHR_COLI\", \"B_KLBSL_PNMN\", \"B_ESCHR_COLI\", \"B_ESCHR_COL… #> $ AMX        <sir> R, R, S, S, R, R, R, S, S, S, S, R, S, S, R, R, R, R, I, S,… #> $ AMC        <sir> I, I, I, S, S, S, S, S, S, S, S, S, S, S, S, S, S, R, S, R,… #> $ CIP        <sir> S, S, S, S, R, S, 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       1808          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          1250 #> 2 Staphylococcus aureus      661 #> 3 Streptococcus pneumoniae   399 #> 4 Klebsiella pneumoniae      316"},{"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,626 × 2 #>    date       GEN   #>    <date>     <sir> #>  1 2012-11-21 S     #>  2 2018-04-03 S     #>  3 2015-12-10 S     #>  4 2015-03-02 S     #>  5 2018-03-31 S     #>  6 2016-06-14 S     #>  7 2015-10-25 S     #>  8 2019-06-19 S     #>  9 2015-04-27 S     #> 10 2011-06-21 S     #> # … with 2,616 more rows  our_data_1st %>%   select(bacteria, betalactams()) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 2,626 × 3 #>    bacteria     AMX   AMC   #>    <mo>         <sir> <sir> #>  1 B_ESCHR_COLI R     I     #>  2 B_KLBSL_PNMN R     I     #>  3 B_ESCHR_COLI S     I     #>  4 B_ESCHR_COLI S     S     #>  5 B_STPHY_AURS R     S     #>  6 B_ESCHR_COLI 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     #> # … with 2,616 more rows  our_data_1st %>%   select(bacteria, where(is.sir)) #> # A tibble: 2,626 × 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 S     I     S     S     #>  4 B_ESCHR_COLI S     S     S     S     #>  5 B_STPHY_AURS R     S     R     S     #>  6 B_ESCHR_COLI R     S     S     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     #> # … with 2,616 more rows  # filtering using AB selectors is also possible: our_data_1st %>%   filter(any(aminoglycosides() == \"R\")) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) #> # A tibble: 971 × 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  #> # … with 961 more rows  our_data_1st %>%   filter(all(betalactams() == \"R\")) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 471 × 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 I7         A        2015-08-19 B_ESCHR_COLI R     R     S     S     TRUE  #>  6 N3         A        2014-12-29 B_STRPT_PNMN R     R     R     S     TRUE  #>  7 Q2         A        2019-09-22 B_ESCHR_COLI R     R     S     S     TRUE  #>  8 X7         A        2011-03-20 B_ESCHR_COLI R     R     S     R     TRUE  #>  9 C5         A        2015-08-30 B_KLBSL_PNMN R     R     S     R     TRUE  #> 10 W9         A        2013-10-02 B_ESCHR_COLI R     R     S     S     TRUE  #> # … with 461 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: 471 × 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 I7         A        2015-08-19 B_ESCHR_COLI R     R     S     S     TRUE  #>  6 N3         A        2014-12-29 B_STRPT_PNMN R     R     R     S     TRUE  #>  7 Q2         A        2019-09-22 B_ESCHR_COLI R     R     S     S     TRUE  #>  8 X7         A        2011-03-20 B_ESCHR_COLI R     R     S     R     TRUE  #>  9 C5         A        2015-08-30 B_KLBSL_PNMN R     R     S     R     TRUE  #> 10 W9         A        2013-10-02 B_ESCHR_COLI R     R     S     S     TRUE  #> # … with 461 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":"package comes antibiogram(), function automatically generates traditional, combined, syndromic, even weighted-incidence syndromic combination antibiograms (WISCA). R Markdown (page) automatically prints right table format. suggestions generate different antibiograms: Antibiograms can plotted using autoplot() ggplot2 packages, since package provides extension function:  calculate antimicrobial resistance sensible way, also correcting results, use resistance() susceptibility() functions.","code":"# traditional: antibiogram(our_data_1st) antibiogram(our_data_1st,   ab_transform = \"name\" ) antibiogram(our_data_1st,   ab_transform = \"name\",   language = \"es\" ) # support for 20 languages # combined: antibiogram(our_data_1st,   antibiotics = c(\"AMC\", \"AMC+CIP\", \"AMC+GEN\") ) # for a syndromic antibiogram, we must fake some clinical conditions: our_data_1st$condition <- sample(c(\"Cardial\", \"Respiratory\", \"Rheumatic\"),   size = nrow(our_data_1st),   replace = TRUE )  # syndromic: antibiogram(our_data_1st,   syndromic_group = \"condition\" ) antibiogram(our_data_1st,   # you can use AB selectors here as well:   antibiotics = c(penicillins(), aminoglycosides()),   syndromic_group = \"condition\",   mo_transform = \"gramstain\" ) #> ℹ For penicillins() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) # WISCA: # (we lack some details, but it could contain a filter on e.g. >65 year-old males) wisca <- antibiogram(our_data_1st,   antibiotics = c(\"AMC\", \"AMC+CIP\", \"AMC+GEN\"),   syndromic_group = \"condition\",   mo_transform = \"gramstain\" ) wisca 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.4318355 our_data_1st %>%   group_by(hospital) %>%   summarise(amoxicillin = resistance(AMX)) #> # A tibble: 3 × 2 #>   hospital amoxicillin #>   <chr>          <dbl> #> 1 A              0.343 #> 2 B              0.569 #> 3 C              0.375"},{"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.3, 2021). 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: (16 isolates test results) Frequency table Class: factor > ordered (numeric) Length: 2,000 Levels: 4: Negative < Multi-drug-resistant (MDR) < Extensively drug-resistant … Available: 1,729 (86.45%, NA: 271 = 13.55%) 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          R         I            S          R            S            I #> 2          I         I            R          S            S            S #> 3          R         R            I          R            R            S #> 4          S         S            I          R            I            R #> 5          R         S            S          I            S            S #> 6          S         I            S          R            S            S #>   kanamycin #> 1         S #> 2         I #> 3         S #> 4         R #> 5         R #> 6         R 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) 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 9.577e-17 #> 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/SPSS.html","id":"spss-sas-stata","dir":"Articles","previous_headings":"","what":"SPSS / SAS / Stata","title":"How to import data from SPSS / SAS / Stata","text":"SPSS (Statistical Package Social Sciences) probably well-known software package statistical analysis. SPSS easier learn R, SPSS click menu run parts analysis. user-friendliness, taught universities particularly useful students new statistics. experience, guess pretty much (bio)medical students know time graduate. SAS Stata comparable statistical packages popular big industries.","code":""},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"compared-to-r","dir":"Articles","previous_headings":"","what":"Compared to R","title":"How to import data from SPSS / SAS / Stata","text":"said, SPSS easier learn R. SPSS, SAS Stata come major downsides comparing R: R highly modular. official R network (CRAN) features 16,000 packages time writing, AMR package one . packages peer-reviewed publication. Aside official channel, also developers choose submit CRAN, rather keep public repository, like GitHub. may even lot 14,000 packages . Bottom line , can really extend ask somebody . Take example AMR package. Among things, adds reliable reference data R help data cleaning analysis. SPSS, SAS Stata never know valid MIC value Gram stain E. coli . species Klebiella resistant amoxicillin Floxapen® trade name flucloxacillin. facts properties often needed clean existing data, inconvenient software package without reliable reference data. See demonstration. R extremely flexible. write syntax , can anything want. flexibility transforming, arranging, grouping summarising data, drawing plots, endless - SPSS, SAS Stata bound algorithms format styles. may bit flexible, can probably never create specific publication-ready plot without using (paid) software. sometimes write syntaxes SPSS run complete analysis ‘automate’ work, lot less time R. notice writing syntaxes R lot nifty clever SPSS. Still, working statistical package, knowledge (statistically) willing accomplish. R can easily automated. last years, R Markdown really made interesting development. R Markdown, can easily produce reports, whether format Word, PowerPoint, website, PDF document just raw data Excel. even allows use reference file containing layout style (e.g. fonts colours) organisation. use lot generate weekly monthly reports automatically. Just write code enjoy automatically updated reports interval like. even professional environment, create Shiny apps: live manipulation data using custom made website. webdesign knowledge needed (JavaScript, CSS, HTML) almost zero. R huge community. Many R users just ask questions websites like StackOverflow.com, largest online community programmers. time writing, 483 254 R-related questions already asked platform (covers questions answers programming language). experience, questions answered within couple minutes. R understands data type, including SPSS/SAS/Stata. ’s vice versa ’m afraid. can import data source R. example SPSS, SAS Stata (link), Minitab, Epi Info EpiData (link), Excel (link), flat files like CSV, TXT TSV (link), directly databases datawarehouses anywhere world (link). can even scrape websites download tables live internet (link) get results API call transform data one command (link). best part - can export R data formats well. can import SPSS file, analysis neatly R export resulting tables Excel files sharing. R completely free open-source. strings attached. created maintained volunteers believe (data) science open publicly available everybody. SPSS, SAS Stata quite expensive. IBM SPSS Staticstics comes subscriptions nowadays, varying USD 1,300 USD 8,500 per user per year. SAS Analytics Pro costs around USD 10,000 per computer. Stata also business model subscription fees, varying USD 600 USD 2,800 per computer per year, lower prices come limitation number variables can work . still offer benefits R. working midsized small company, can save tens thousands dollars using R instead e.g. SPSS - gaining even functions flexibility. R enthousiasts can much PR want (like ), nobody officially associated affiliated R. really free. R (nowadays) preferred analysis software academic papers. present, R among world powerful statistical languages, generally popular science (Bollmann et al., 2017). reasons, number references R analysis method academic papers rising continuously even surpassed SPSS academic use (Muenchen, 2014). believe thing SPSS , always great user interface easy learn use. Back developed , little competition, let alone R. R didn’t even professional user interface last decade (called RStudio, see ). people used R nineties 2010 almost completely incomparable R used now. language restyled completely volunteers dedicated professionals field data science. SPSS great nothing else compete. now 2023, don’t see reason SPSS better use R. demonstrate first point:","code":"# not all values are valid MIC values: as.mic(0.125) #> Class 'mic' #> [1] 0.125 as.mic(\"testvalue\") #> Class 'mic' #> [1] <NA>  # the Gram stain is available for all bacteria: mo_gramstain(\"E. coli\") #> [1] \"Gram-negative\"  # Klebsiella is intrinsic resistant to amoxicillin, according to EUCAST: klebsiella_test <- data.frame(   mo = \"klebsiella\",   amox = \"S\",   stringsAsFactors = FALSE ) klebsiella_test # (our original data) #>           mo amox #> 1 klebsiella    S eucast_rules(klebsiella_test, info = FALSE) # (the edited data by EUCAST rules) #>           mo amox #> 1 klebsiella    R  # hundreds of trade names can be translated to a name, trade name or an ATC code: ab_name(\"floxapen\") #> [1] \"Flucloxacillin\" ab_tradenames(\"floxapen\") #>  [1] \"culpen\"               \"floxacillin\"          \"floxacillin sodium\"   #>  [4] \"floxapen\"             \"floxapen sodium salt\" \"fluclox\"              #>  [7] \"flucloxacilina\"       \"flucloxacillin\"       \"flucloxacilline\"      #> [10] \"flucloxacillinum\"     \"fluorochloroxacillin\" \"staphylex\" ab_atc(\"floxapen\") #> [1] \"J01CF05\""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"rstudio","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata","what":"RStudio","title":"How to import data from SPSS / SAS / Stata","text":"work R, probably best option use RStudio. open-source free desktop environment allows run R code, also supports project management, version management, package management convenient import menus work data sources. can also install RStudio Server private corporate server, brings nothing less complete RStudio software website (home work). import data file, just click Import Dataset Environment tab:  additional packages needed, RStudio ask installed beforehand. window opens, can define options (parameters) used import ’re ready go:  want named variables imported factors resembles SPSS , use as_factor(). difference :","code":"SPSS_data # # A tibble: 4,203 x 4 #     v001 sex       status    statusage #    <dbl> <dbl+lbl> <dbl+lbl>     <dbl> #  1 10002 1         1              76.6 #  2 10004 0         1              59.1 #  3 10005 1         1              54.5 #  4 10006 1         1              54.1 #  5 10007 1         1              57.7 #  6 10008 1         1              62.8 #  7 10010 0         1              63.7 #  8 10011 1         1              73.1 #  9 10017 1         1              56.7 # 10 10018 0         1              66.6 # # ... with 4,193 more rows  as_factor(SPSS_data) # # A tibble: 4,203 x 4 #     v001 sex    status statusage #    <dbl> <fct>  <fct>      <dbl> #  1 10002 Male   alive       76.6 #  2 10004 Female alive       59.1 #  3 10005 Male   alive       54.5 #  4 10006 Male   alive       54.1 #  5 10007 Male   alive       57.7 #  6 10008 Male   alive       62.8 #  7 10010 Female alive       63.7 #  8 10011 Male   alive       73.1 #  9 10017 Male   alive       56.7 # 10 10018 Female alive       66.6 # # ... with 4,193 more rows"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"base-r","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata","what":"Base R","title":"How to import data from SPSS / SAS / Stata","text":"import data SPSS, SAS Stata, can use great haven package : can now import files follows:","code":"# download and install the latest version: install.packages(\"haven\") # load the package you just installed: library(haven)"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"spss","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata > Base R","what":"SPSS","title":"How to import data from SPSS / SAS / Stata","text":"read files SPSS R: forget as_factor(), mentioned . export R objects SPSS file format:","code":"# read any SPSS file based on file extension (best way): read_spss(file = \"path/to/file\")  # read .sav or .zsav file: read_sav(file = \"path/to/file\")  # read .por file: read_por(file = \"path/to/file\") # save as .sav file: write_sav(data = yourdata, path = \"path/to/file\")  # save as compressed .zsav file: write_sav(data = yourdata, path = \"path/to/file\", compress = TRUE)"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"sas","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata > Base R","what":"SAS","title":"How to import data from SPSS / SAS / Stata","text":"read files SAS R: export R objects SAS file format:","code":"# read .sas7bdat + .sas7bcat files: read_sas(data_file = \"path/to/file\", catalog_file = NULL)  # read SAS transport files (version 5 and version 8): read_xpt(file = \"path/to/file\") # save as regular SAS file: write_sas(data = yourdata, path = \"path/to/file\")  # the SAS transport format is an open format # (required for submission of the data to the FDA) write_xpt(data = yourdata, path = \"path/to/file\", version = 8)"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"stata","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata > Base R","what":"Stata","title":"How to import data from SPSS / SAS / Stata","text":"read files Stata R: export R objects Stata file format:","code":"# read .dta file: read_stata(file = \"/path/to/file\")  # works exactly the same: read_dta(file = \"/path/to/file\") # save as .dta file, Stata version 14: # (supports Stata v8 until v15 at the time of writing) write_dta(data = yourdata, path = \"/path/to/file\", version = 14)"},{"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: 3: S < < R 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 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 52 142 rows 22 columns, containing following column names:mo, fullname, status, kingdom, phylum, class, order, family, genus, species, subspecies, rank, ref, source, lpsn, lpsn_parent, lpsn_renamed_to, gbif, gbif_parent, gbif_renamed_to, prevalence, snomed. data set R available microorganisms, load AMR package. last updated 26 February 2023 20:26:58 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (1.2 MB) Download tab-separated text file (11.3 MB) Download Microsoft Excel workbook (5 MB) Download Apache Feather file (5.4 MB) Download Apache Parquet file (2.6 MB) Download SAS data file (50.9 MB) Download IBM SPSS Statistics data file (16.9 MB) Download Stata DTA file (47.1 MB) NOTE: exported files SAS, SPSS Stata contain first 50 SNOMED codes per record, file size otherwise exceed 100 MB; file size limit GitHub. Advice? Use R instead. 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 five kingdoms List Prokaryotic names Standing Nomenclature (LPSN) 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 11 December, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset . Accessed https://www.gbif.org 11 December, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name ‘Microoganism’, 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 483 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 22 February 2023 13:38:57 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (39 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (66 kB) Download Apache Feather file (0.1 MB) Download Apache Parquet file (97 kB) Download SAS data file (1.9 MB) Download IBM SPSS Statistics data file (0.3 MB) Download Stata DTA file (0.4 MB) tab-separated text file Microsoft Excel workbook, SAS, 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 13 November 2022 07:46:10 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (5 kB) Download tab-separated text file (16 kB) Download Microsoft Excel workbook (16 kB) Download Apache Feather file (15 kB) Download Apache Parquet file (13 kB) Download SAS data file (84 kB) Download IBM SPSS Statistics data file (30 kB) Download Stata DTA file (73 kB) tab-separated text file Microsoft Excel workbook, SAS, 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 18 308 rows 11 columns, containing following column names:guideline, method, site, mo, rank_index, ab, ref_tbl, disk_dose, breakpoint_S, breakpoint_R, uti. data set R available clinical_breakpoints, load AMR package. last updated 21 January 2023 22:47:20 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (42 kB) Download tab-separated text file (1.9 MB) Download Microsoft Excel workbook (0.8 MB) Download Apache Feather file (0.7 MB) Download Apache Parquet file (87 kB) Download SAS data file (3.6 MB) Download IBM SPSS Statistics data file (2.3 MB) Download Stata DTA file (3.4 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 (2013-2022) EUCAST (2013-2022).","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 134 634 rows 2 columns, containing following column names:mo ab. data set R available intrinsic_resistant, load AMR package. last updated 16 December 2022 15:10:43 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (78 kB) Download tab-separated text file (5.1 MB) Download Microsoft Excel workbook (1.3 MB) Download Apache Feather file (1.2 MB) Download Apache Parquet file (0.2 MB) Download SAS data file (9.8 MB) Download IBM SPSS Statistics data file (7.4 MB) Download Stata DTA file (9.5 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 336 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 14 November 2022 14:20:39 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (3 kB) Download tab-separated text file (29 kB) Download Microsoft Excel workbook (19 kB) Download Apache Feather file (16 kB) Download Apache Parquet file (8 kB) Download SAS data file (92 kB) Download IBM SPSS Statistics data file (43 kB) Download Stata DTA file (82 kB)","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 21 January 2023 22:47:20 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/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) 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: 32 × 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  #> # … with 22 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. Christian F. Luz. Author, contributor. Dennis Souverein. Author, contributor. Erwin E. . Hassing. Author, contributor. Casper J. Albers. Thesis advisor. Peter Dutey-Magni. Contributor. Judith M. Fonville. Contributor. Alex W. Friedrich. Thesis advisor. Corinna Glasner. Thesis advisor. Eric H. L. C. M. Hazenberg. Contributor. Gwen Knight. Contributor. Annick Lenglet. Contributor. Bart C. Meijer. Contributor. Dmytro Mykhailenko. Contributor. Anton Mymrikov. Contributor. Andrew P. Norgan. Contributor. Sofia Ny. Contributor. Jonas Salm. Contributor. Rogier P. Schade. Contributor. Bhanu N. M. Sinha. Thesis advisor. Anthony Underwood. Contributor. Anita Williams. Contributor.","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":"Generates antibiograms - traditional, combined, syndromic, even WISCA Provides full microbiological taxonomy data antimicrobial drugs Applies recent CLSI EUCAST clinical breakpoints MICs disk zones Corrects duplicate isolates, calculates predicts AMR per antibiotic class Integrates WHONET, ATC, EARS-Net, PubChem, LOINC SNOMED CT Works Windows, macOS Linux versions R since R-3.0 completely dependency-free, highly suitable places limited resources 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 breakpoint guidelines CLSI EUCAST included last 10 years. 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-translated-into-20-languages","dir":"","previous_headings":"Introduction","what":"Used in over 175 countries, translated into 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":"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 snippet work version R since April 2013 (R-3.0).","code":"# AMR works great with dplyr, but it's not required or neccesary library(AMR) library(dplyr)  example_isolates %>%   mutate(bacteria = mo_fullname()) %>%   filter(mo_is_gram_negative(),          mo_is_intrinsic_resistant(ab = \"cefotax\")) %>%   select(bacteria,          aminoglycosides(),          carbapenems()) 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())]"},{"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:","code":"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 last 10 years (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-deprecated.html","id":null,"dir":"Reference","previous_headings":"","what":"Deprecated Functions — AMR-deprecated","title":"Deprecated Functions — AMR-deprecated","text":"functions -called 'Deprecated'. removed future release. Using functions give warning name function replaced (one).","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-deprecated.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Deprecated Functions — AMR-deprecated","text":"","code":"NA_rsi_  as.rsi(x, ...)  facet_rsi(...)  geom_rsi(...)  ggplot_rsi(...)  ggplot_rsi_predict(...)  is.rsi(...)  is.rsi.eligible(...)  labels_rsi_count(...)  n_rsi(...)  random_rsi(...)  rsi_df(...)  rsi_predict(...)  scale_rsi_colours(...)  theme_rsi(...)"},{"path":"https://msberends.github.io/AMR/reference/AMR-deprecated.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Deprecated Functions — AMR-deprecated","text":"object class rsi (inherits ordered, factor) length 1.","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_custom_ab  Allows use custom antimicrobial drugs package. explained add_custom_antimicrobials(). AMR_custom_mo  Allows use custom microorganisms package. explained add_custom_microorganisms(). AMR_eucastrules  Used setting default types rules eucast_rules() function, must one : \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). AMR_guideline  Used setting 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 2022\". Supported guideline currently EUCAST (2013-2022) CLSI (2013-2022). 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_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_locale  language use 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). 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. 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 ~52 000 (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 breakpoint guidelines CLSI EUCAST included last 10 years. 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. AMR package available English, Chinese, Danish, Dutch, French, German, Greek, Italian, Japanese, Polish, Portuguese, 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, SAS, 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.berends@certe.nl (ORCID) Authors: Christian F. Luz (ORCID) [contributor] Dennis Souverein (ORCID) [contributor] Erwin E. . Hassing [contributor] contributors: Casper J. Albers (ORCID) [thesis advisor] Peter Dutey-Magni (ORCID) [contributor] Judith M. Fonville [contributor] Alex W. Friedrich (ORCID) [thesis advisor] Corinna Glasner (ORCID) [thesis advisor] Eric H. L. C. M. Hazenberg [contributor] Gwen Knight (ORCID) [contributor] Annick Lenglet (ORCID) [contributor] Bart C. Meijer [contributor] Dmytro Mykhailenko [contributor] Anton Mymrikov [contributor] Andrew P. Norgan (ORCID) [contributor] Sofia Ny (ORCID) [contributor] Jonas Salm [contributor] Rogier P. Schade [contributor] Bhanu N. M. Sinha (ORCID) [thesis advisor] Anthony Underwood (ORCID) [contributor] Anita Williams (ORCID) [contributor]","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://www.whocc.) 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://www.whocc./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, SAS, 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 #>    Identif…¹ Speci…² Organ…³ Country Labor…⁴ Last …⁵ First…⁶ Sex     Age Age c…⁷ #>    <chr>       <int> <chr>   <chr>   <chr>   <chr>   <chr>   <chr> <dbl> <chr>   #>  1 fe41d7ba…    1748 SPN     Belgium Nation… Abel    B.      F        68 55-74   #>  2 91f175ec…    1767 eco     The Ne… Nation… Delacr… F.      M        89 75+     #>  3 cc401505…    1343 eco     The Ne… Nation… Steens… F.      M        85 75+     #>  4 e864b692…    1894 MAP     Denmark Nation… Beyers… L.      M        62 55-74   #>  5 3d051fe3…    1739 PVU     Belgium Nation… Hummel  W.      M        86 75+     #>  6 c80762a0…    1846 103     The Ne… Nation… Eikenb… J.      F        53 25-54   #>  7 8022d372…    1628 103     Denmark Nation… Leclerc S.      F        77 75+     #>  8 f3dc5f55…    1493 eco     The Ne… Nation… Delacr… W.      M        53 25-54   #>  9 15add38f…    1847 eco     France  Nation… Van La… S.      F        63 55-74   #> 10 fd41248d…    1458 eco     Germany Nation… Moulin  O.      F        75 75+     #> # … with 490 more rows, 43 more variables: `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>, #> #   `Inducible clindamycin resistance` <lgl>, Comment <chr>, #> #   `Date of data entry` <date>, AMP_ND10 <sir>, AMC_ED20 <sir>, …"},{"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_c…¹ abx_d…² abx_a…³ abx_c…⁴ abx_c…⁵ abx_c…⁶ abx_c…⁷ #>   <chr>                  <list>  <list>  <list>  <chr>   <chr>   <chr>   <chr>   #> 1 given 400mg cipro and… <ab>    <dbl>   <chr>   CIP|AMX Ciprof… 400|500 NA      #> 2 started on doxy iv to… <ab>    <dbl>   <chr>   DOX     Doxycy… NA      iv      #> # … with abbreviated variable names ¹​abx_codes, ²​abx_doses, ³​abx_admin, #> #   ⁴​abx_coll, ⁵​abx_coll_names, ⁶​abx_coll_doses, ⁷​abx_coll_admin # }"},{"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://www.whocc./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, SAS, 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://www.whocc.no/atc_ddd_index/?code=J01CA04&showdescription=no\"   # smart lowercase tranformation 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] \"16365-9\" \"25274-2\" \"3344-9\"  \"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] \"21066-6\" \"3355-5\"  \"33562-0\" \"33919-2\" \"43883-8\" \"43884-6\" \"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 automate process: 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. important downside requires AMR package installed else method fail. 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://www.whocc.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 automate process: 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. important downside requires AMR package installed else method fail. use method: Edit .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"). Add text like save file:   Use clear_custom_microorganisms() clear previously added antimicrobials.","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 only \"Enterobacter asburiae\": 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_ENTRBC_A_C  # 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_ENTRBC_A_C\" #>  #> $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\" #>  #> $url #> [1] \"\" #>  #> $ref #> [1] \"Self-added, 2023\" #>  #> $snomed #> [1] NA #>    # 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, although 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  1974-07-07  48  48.67671         25 #> 2  1995-07-06  27  27.67945          4 #> 3  1965-04-10  57  57.91781         34 #> 4  1954-02-22  69  69.04658         45 #> 5  1944-08-18  78  78.56164         55 #> 6  1989-07-26  33  33.62466         10 #> 7  1983-05-30  39  39.78082         16 #> 8  1965-08-11  57  57.58082         34 #> 9  1971-01-15  52  52.15068         28 #> 10 1948-11-17  74  74.31233         51"},{"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 Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"Generate antibiogram, communicate results plots tables. functions follow logic Klinker et al. Barbieri et al. (see Source), allow reporting e.g. R Markdown Quarto well.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"","code":"antibiogram(   x,   antibiotics = where(is.sir),   mo_transform = \"shortname\",   ab_transform = NULL,   syndromic_group = NULL,   add_total_n = TRUE,   only_all_tested = FALSE,   digits = 0,   col_mo = NULL,   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   sep = \" + \",   info = interactive() )  # S3 method for antibiogram plot(x, ...)  # S3 method for antibiogram autoplot(object, ...)  # S3 method for 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 Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"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 Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — 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\", \"gramstain\", one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_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: \"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 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 , 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 Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — 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. types antibiograms listed can plotted (using ggplot2::autoplot() base R plot()/barplot()). antibiogram object 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":"antibiogram-types","dir":"Reference","previous_headings":"","what":"Antibiogram Types","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"four antibiogram types, proposed Klinker et al. (2021, doi:10.1177/20499361211011373 ), supported antibiogram(): 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) Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) male patients age >=65 years heart failure Code example:   Note combination antibiograms, 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":"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\")) --------------------------------------------------------------------                     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":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — 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    #> # … with 1,990 more rows, and 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>  # \\donttest{ # Traditional antibiogram ----------------------------------------------  antibiogram(example_isolates,   antibiotics = c(aminoglycosides(), carbapenems()) ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 10 × 7 #>    `Pathogen (N min-max)`   AMK   GEN   IPM   KAN   MEM   TOB #>  * <chr>                  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #>  1 CoNS (43-309)              0    86    52     0    52    22 #>  2 E. coli (0-462)          100    98   100    NA   100    97 #>  3 E. faecalis (0-39)         0     0   100     0    NA     0 #>  4 K. pneumoniae (0-58)      NA    90   100    NA   100    90 #>  5 P. aeruginosa (17-30)     NA   100    NA     0    NA   100 #>  6 P. mirabilis (0-34)       NA    94    94    NA    NA    94 #>  7 S. aureus (2-233)         NA    99    NA    NA    NA    98 #>  8 S. epidermidis (8-163)     0    79    NA     0    NA    51 #>  9 S. hominis (3-80)         NA    92    NA    NA    NA    85 #> 10 S. pneumoniae (11-117)     0     0    NA     0    NA     0  antibiogram(example_isolates,   antibiotics = aminoglycosides(),   ab_transform = \"atc\",   mo_transform = \"gramstain\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2 × 5 #>   `Pathogen (N min-max)`   J01GB01 J01GB03 J01GB04 J01GB06 #> * <chr>                      <dbl>   <dbl>   <dbl>   <dbl> #> 1 Gram-negative (35-686)        96      96       0      98 #> 2 Gram-positive (436-1170)      34      63       0       0  antibiogram(example_isolates,   antibiotics = carbapenems(),   ab_transform = \"name\",   mo_transform = \"name\" ) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 5 × 3 #>   `Pathogen (N min-max)`                           Imipenem Meropenem #> * <chr>                                               <dbl>     <dbl> #> 1 Coagulase-negative Staphylococcus (CoNS) (48-48)       52        52 #> 2 Enterococcus faecalis (0-38)                          100        NA #> 3 Escherichia coli (418-422)                            100       100 #> 4 Klebsiella pneumoniae (51-53)                         100       100 #> 5 Proteus mirabilis (27-32)                              94        NA   # Combined antibiogram -------------------------------------------------  # combined antibiotics yield higher empiric coverage antibiogram(example_isolates,   antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),   mo_transform = \"gramstain\" ) #> # A tibble: 2 × 4 #>   `Pathogen (N min-max)`     TZP `TZP + GEN` `TZP + TOB` #> * <chr>                    <dbl>       <dbl>       <dbl> #> 1 Gram-negative (641-693)     88          99          98 #> 2 Gram-positive (345-1044)    86          98          95  # 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 = \" & \" ) #> # A tibble: 2 × 3 #>   `Pathogen (N min-max)`  Ciprofloxacin `Ciprofloxacin & Gentamicin` #> * <chr>                           <dbl>                        <dbl> #> 1 Gram-negative (684-694)            91                           99 #> 2 Gram-positive (724-847)            77                           93   # Syndromic antibiogram ------------------------------------------------  # the data set could contain a filter for e.g. respiratory specimens antibiogram(example_isolates,   antibiotics = c(aminoglycosides(), carbapenems()),   syndromic_group = \"ward\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 14 × 8 #>    `Syndromic Group` `Pathogen (N min-max)`   AMK   GEN   IPM   KAN   MEM   TOB #>  * <chr>             <chr>                  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #>  1 Clinical          CoNS (23-205)             NA    89    57    NA    57    26 #>  2 ICU               CoNS (10-73)              NA    79    NA    NA    NA    NA #>  3 Outpatient        CoNS (3-31)               NA    84    NA    NA    NA    NA #>  4 Clinical          E. coli (0-299)          100    98   100    NA   100    98 #>  5 ICU               E. coli (0-137)          100    99   100    NA   100    96 #>  6 Clinical          K. pneumoniae (0-51)      NA    92   100    NA   100    92 #>  7 Clinical          P. mirabilis (0-30)       NA   100    NA    NA    NA   100 #>  8 Clinical          S. aureus (2-150)         NA    99    NA    NA    NA    97 #>  9 ICU               S. aureus (0-66)          NA   100    NA    NA    NA    NA #> 10 Clinical          S. epidermidis (4-79)     NA    82    NA    NA    NA    55 #> 11 ICU               S. epidermidis (4-75)     NA    72    NA    NA    NA    41 #> 12 Clinical          S. hominis (1-45)         NA    96    NA    NA    NA    94 #> 13 Clinical          S. pneumoniae (5-78)       0     0    NA     0    NA     0 #> 14 ICU               S. pneumoniae (5-30)       0     0    NA     0    NA     0  # 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\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2 × 5 #>   `Grupo sindrómico` `Patógeno (N min-max)` Amikacina Gentamicina Tobramicina #> * <chr>              <chr>                      <dbl>       <dbl>       <dbl> #> 1 No UCI             E. coli (0-325)              100          98          98 #> 2 UCI                E. coli (0-137)              100          99          96   # 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\"   ) ) #> # A tibble: 4 × 6 #>   `Syndromic Group` `Pathogen (N min-max)`    AMC `AMC + CIP`   TZP `TZP + TOB` #> * <chr>             <chr>                   <dbl>       <dbl> <dbl>       <dbl> #> 1 WISCA Group 1     Gram-negative (261-285)    76          95    89          99 #> 2 WISCA Group 2     Gram-negative (380-442)    76          98    88          98 #> 3 WISCA Group 1     Gram-positive (123-406)    76          89    81          95 #> 4 WISCA Group 2     Gram-positive (222-732)    76          89    88          95   # Print the output for R Markdown / Quarto -----------------------------  ureido <- antibiogram(example_isolates,   antibiotics = ureidopenicillins(),   ab_transform = \"name\" ) #> ℹ For ureidopenicillins() using column 'TZP' (piperacillin/tazobactam)  # in an Rmd file, you would just need to return `ureido` in a chunk, # but to be explicit here: if (requireNamespace(\"knitr\")) {   knitr::knit_print(ureido) } #> [1] \"\\n\\n|Pathogen (N)          | Piperacillin/tazobactam|\\n|:---------------------|-----------------------:|\\n|CoNS (33)             |                      30|\\n|*E. coli* (416)       |                      94|\\n|*K. pneumoniae* (53)  |                      89|\\n|*S. pneumoniae* (112) |                     100|\" #> attr(,\"class\") #> [1] \"knit_asis\" #> attr(,\"knit_cacheable\") #> [1] NA   # 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, without need define columns antibiotic abbreviations. short, column name resembles antimicrobial drug, picked functions matches pharmaceutical class: \"cefazolin\", \"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, ...)  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, ...)  lipoglycopeptides(only_sir_columns = FALSE, ...)  macrolides(only_sir_columns = FALSE, ...)  oxazolidinones(only_sir_columns = FALSE, ...)  penicillins(only_sir_columns = FALSE, ...)  polymyxins(only_sir_columns = FALSE, only_treatable = TRUE, ...)  streptogramins(only_sir_columns = FALSE, ...)  quinolones(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 either \"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":"(internally) character vector column names, additional class \"ab_selector\"","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. heavily inspired Tidyverse selection helpers everything(), also work base R 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), amphotericin B-high (AMH), 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:  amphotericin B (AMB), 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), 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) 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), 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), 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) 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), 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) 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, SAS, 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    #> # … with 1,990 more rows, and 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>  # 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    #> # … with 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    #> # … with 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    #> # … with 1,990 more rows, and 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    #> # … with 45 more rows, and 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> 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    #> # … with 45 more rows, and 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>  # 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     #> # … with 952 more rows, and 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> 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    #> # … with 746 more rows, and 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>  # 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     #> # … with 16 more rows, and 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>  # filter + select in one go: get penicillins in carbapenems-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     #> # … with 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    #> # … with 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    #> # … with 1,990 more rows  # dplyr ------------------------------------------------------------------- # \\donttest{ if (require(\"dplyr\")) {   # get AMR for all aminoglycosides e.g., per ward:   example_isolates %>%     group_by(ward) %>%     summarise(across(aminoglycosides(), resistance)) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> Warning: There was 1 warning in `summarise()`. #> ℹ In argument: `across(aminoglycosides(), resistance)`. #> ℹ 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 × 5 #>   ward         GEN   TOB   AMK   KAN #>   <chr>      <dbl> <dbl> <dbl> <dbl> #> 1 Clinical   0.229 0.315 0.626     1 #> 2 ICU        0.290 0.400 0.662     1 #> 3 Outpatient 0.2   0.368 0.605    NA if (require(\"dplyr\")) {   # You can combine selectors with '&' to be more specific:   example_isolates %>%     select(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    #> # … with 1,990 more rows if (require(\"dplyr\")) {   # get AMR for only drugs that matter - no intrinsic resistance:   example_isolates %>%     filter(mo_genus() %in% c(\"Escherichia\", \"Klebsiella\")) %>%     group_by(ward) %>%     summarise(across(not_intrinsic_resistant(), resistance)) } #> ℹ Using column 'mo' as input for mo_genus() #> ℹ For not_intrinsic_resistant() removing columns 'PEN' #>   (benzylpenicillin), 'LNZ' (linezolid), 'VAN' (vancomycin), 'TEC' #>   (teicoplanin), 'ERY' (erythromycin), 'CLI' (clindamycin), 'AZM' #>   (azithromycin), and 'RIF' (rifampicin) #> Warning: There were 52 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `across(not_intrinsic_resistant(), resistance)`. #> ℹ In group 1: `ward = \"Clinical\"`. #> Caused by warning: #> ! Introducing NA: no results available for OXA in group: ward = \"Clinical\" #> (minimum = 30). #> ℹ Run `dplyr::last_dplyr_warnings()` to see the 51 remaining warnings. #> # A tibble: 3 × 33 #>   ward    OXA   FLC    AMX    AMC    AMP     TZP     CZO     FEP     CXM     FOX #>   <chr> <dbl> <dbl>  <dbl>  <dbl>  <dbl>   <dbl>   <dbl>   <dbl>   <dbl>   <dbl> #> 1 Clin…    NA    NA  0.606  0.121  0.606  0.0504  0.0656  0.0159  0.0622  0.0648 #> 2 ICU      NA    NA  0.535  0.172  0.535  0.119  NA       0.0722  0.0828  0.0992 #> 3 Outp…    NA    NA NA     NA     NA     NA      NA      NA      NA      NA      #> # … with 22 more variables: CTX <dbl>, CAZ <dbl>, CRO <dbl>, GEN <dbl>, #> #   TOB <dbl>, AMK <dbl>, KAN <dbl>, TMP <dbl>, SXT <dbl>, NIT <dbl>, #> #   FOS <dbl>, CIP <dbl>, MFX <dbl>, TCY <dbl>, TGC <dbl>, DOX <dbl>, #> #   IPM <dbl>, MEM <dbl>, MTR <dbl>, CHL <dbl>, COL <dbl>, MUP <dbl> if (require(\"dplyr\")) {   # get susceptibility for antibiotics whose name contains \"trim\":   example_isolates %>%     filter(first_isolate()) %>%     group_by(ward) %>%     summarise(across(ab_selector(name %like% \"trim\"), susceptibility)) } #> ℹ For ab_selector(name %like% \"trim\") using columns 'TMP' (trimethoprim) #>   and 'SXT' (trimethoprim/sulfamethoxazole) #> # A tibble: 3 × 3 #>   ward         TMP   SXT #>   <chr>      <dbl> <dbl> #> 1 Clinical   0.627 0.808 #> 2 ICU        0.549 0.778 #> 3 Outpatient 0.667 0.821 if (require(\"dplyr\")) {   # this will select columns 'IPM' (imipenem) and 'MEM' (meropenem):   example_isolates %>%     select(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    #> # … with 1,990 more rows if (require(\"dplyr\")) {   # this will select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB':   example_isolates %>%     select(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    #> # … with 1,990 more rows if (require(\"dplyr\")) {   # any() and all() work in dplyr's filter() too:   example_isolates %>%     filter(       any(aminoglycosides() == \"R\"),       all(cephalosporins_2nd() == \"R\")     ) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For cephalosporins_2nd() using columns 'CXM' (cefuroxime) and 'FOX' #>   (cefoxitin) #> # A tibble: 112 × 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      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  2 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG R     NA    NA    R     #>  3 2002-04-08 130252     78 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  4 2002-06-23 798871     82 M      Clinical B_ENTRC_FCLS NA    NA    NA    NA    #>  5 2002-06-23 798871     82 M      Clinical B_ENTRC_FCLS NA    NA    NA    NA    #>  6 2002-07-21 955940     82 F      Clinical B_PSDMN_AERG R     NA    NA    R     #>  7 2002-07-21 955940     82 F      Clinical B_PSDMN_AERG 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_FCLS NA    NA    NA    NA    #> 10 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #> # … with 102 more rows, and 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> if (require(\"dplyr\")) {   # also works with c():   example_isolates %>%     filter(any(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: 531 × 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      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  2 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG R     NA    NA    R     #>  3 2002-03-17 B30560     78 M      Clinical B_STPHY_CONS R     NA    R     R     #>  4 2002-04-04 E61143     67 M      Clinical B_STRPT_SNGN S     NA    NA    S     #>  5 2002-04-08 130252     78 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  6 2002-04-14 F30196     73 M      Outpati… B_STRPT_GRPB S     NA    S     S     #>  7 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  8 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  9 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #> 10 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #> # … with 521 more rows, and 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> if (require(\"dplyr\")) {   # not setting any/all will automatically apply all():   example_isolates %>%     filter(aminoglycosides() == \"R\") } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ Assuming a filter on all 4 aminoglycosides. Wrap around all() or #>   any() to prevent this note. #> # A tibble: 427 × 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      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  2 2002-03-17 B30560     78 M      Clinical B_STPHY_CONS R     NA    R     R     #>  3 2002-04-04 E61143     67 M      Clinical B_STRPT_SNGN S     NA    NA    S     #>  4 2002-04-08 130252     78 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  5 2002-04-14 F30196     73 M      Outpati… B_STRPT_GRPB S     NA    S     S     #>  6 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  7 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  8 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #>  9 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #> 10 2002-05-16 D25302     65 F      ICU      B_STRPT_ANGN S     NA    NA    S     #> # … with 417 more rows, and 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> if (require(\"dplyr\")) {   # this will select columns 'mo' and all antimycobacterial drugs ('RIF'):   example_isolates %>%     select(mo, ab_class(\"mycobact\")) } #> ℹ For ab_class(\"mycobact\") using column 'RIF' (rifampicin) #> # A tibble: 2,000 × 2 #>    mo           RIF   #>    <mo>         <sir> #>  1 B_ESCHR_COLI R     #>  2 B_ESCHR_COLI R     #>  3 B_STPHY_EPDR NA    #>  4 B_STPHY_EPDR NA    #>  5 B_STPHY_EPDR NA    #>  6 B_STPHY_EPDR NA    #>  7 B_STPHY_AURS NA    #>  8 B_STPHY_AURS NA    #>  9 B_STPHY_EPDR NA    #> 10 B_STPHY_EPDR NA    #> # … with 1,990 more rows if (require(\"dplyr\")) {   # get bug/drug combinations for only glycopeptides in Gram-positives:   example_isolates %>%     filter(mo_is_gram_positive()) %>%     select(mo, glycopeptides()) %>%     bug_drug_combinations() %>%     format() } #> ℹ Using column 'mo' as input for mo_is_gram_positive() #> ℹ For glycopeptides() using columns 'VAN' (vancomycin) and 'TEC' #>   (teicoplanin) #> # A tibble: 2 × 8 #>   Group           Drug             CoNS  E. fa…¹ S. au…² S. ep…³ S. ho…⁴ S. pn…⁵ #>   <chr>           <chr>            <chr> <chr>   <chr>   <chr>   <chr>   <chr>   #> 1 \"Glycopeptides\" Teicoplanin (TE… \"\"    \"\"      \" 0.0%… \"64.1%… \" 6.8%… \"\"      #> 2 \"\"              Vancomycin (VAN… \" 0.… \" 0.0%… \" 0.0%… \" 0.0%… \" 0.0%… \" 0.0%… #> # … with abbreviated variable names ¹​`E. faecalis`, ²​`S. aureus`, #> #   ³​`S. epidermidis`, ⁴​`S. hominis`, ⁵​`S. pneumoniae` if (require(\"dplyr\")) {   data.frame(     some_column = \"some_value\",     J01CA01 = \"S\"   ) %>% # ATC code of ampicillin     select(penicillins()) # only the 'J01CA01' column will be selected } #> ℹ For penicillins() using column 'J01CA01' (ampicillin) #>   J01CA01 #> 1       S if (require(\"dplyr\")) {   # 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) } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Assuming a filter on all 2 carbapenems. Wrap around all() or any() to #>   prevent this note. #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Assuming a filter on all 2 carbapenems. Wrap around all() or any() to #>   prevent this note. #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> [1] TRUE # }"},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Sets with 603 Antimicrobial Drugs — antibiotics","title":"Data Sets with 603 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 603 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 603 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 483 observations and 14 variables:","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"ab Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available cid Compound ID found PubChem name Official name used WHONET/EARS-Net 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 174 drugs oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral (intravenous) treatment, currently available 146 drugs iv_units Units iv_ddd loinc LOINC codes (Logical Observation Identifiers Names Codes) associated name antimicrobial drug. 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 603 Antimicrobial Drugs — antibiotics","text":"av Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available name Official name used WHONET/EARS-Net atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC cid Compound ID found PubChem 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 LOINC codes (Logical Observation Identifiers Names Codes) associated name antimicrobial drug.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology (WHOCC): https://www.whocc./atc_ddd_index/ Logical Observation Identifiers Names Codes (LOINC), Version 2.73 (8 August, 2022). Accessed https://loinc.org 30 October, 2022. 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 603 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 603 Antimicrobial Drugs — antibiotics","text":"Like data sets package, data sets publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, 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 603 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://www.whocc.) 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://www.whocc./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 603 Antimicrobial Drugs — antibiotics","text":"","code":"antibiotics #> # A tibble: 483 × 14 #>    ab        cid name        group atc   atc_g…¹ atc_g…² abbre…³ synon…⁴ oral_…⁵ #>    <ab>    <dbl> <chr>       <chr> <lis> <chr>   <chr>   <list>  <named>   <dbl> #>  1 AMA      4649 4-aminosal… Anti… <chr> Drugs … Aminos… <chr>   <chr>     12    #>  2 ACM   6450012 Acetylmide… Macr… <chr> NA      NA      <chr>   <chr>     NA    #>  3 ASP  49787020 Acetylspir… Macr… <chr> NA      NA      <chr>   <chr>     NA    #>  4 ALS      8954 Aldesulfon… Othe… <chr> Drugs … Drugs … <chr>   <chr>      0.33 #>  5 AMK     37768 Amikacin    Amin… <chr> Aminog… Other … <chr>   <chr>     NA    #>  6 AKF        NA Amikacin/f… Amin… <chr> NA      NA      <chr>   <chr>     NA    #>  7 AMX     33613 Amoxicillin Beta… <chr> Beta-l… Penici… <chr>   <chr>      1.5  #>  8 AMC  23665637 Amoxicilli… Beta… <chr> Beta-l… Combin… <chr>   <chr>      1.5  #>  9 AXS    465441 Amoxicilli… Beta… <chr> NA      NA      <chr>   <chr>     NA    #> 10 AMB   5280965 Amphoteric… Anti… <chr> Antimy… Antibi… <chr>   <chr>     40    #> # … with 473 more rows, 4 more variables: oral_units <chr>, iv_ddd <dbl>, #> #   iv_units <chr>, loinc <list>, and abbreviated variable names ¹​atc_group1, #> #   ²​atc_group2, ³​abbreviations, ⁴​synonyms, ⁵​oral_ddd antivirals #> # A tibble: 120 × 11 #>    av    name  atc      cid atc_g…¹ synon…² oral_…³ oral_…⁴ iv_ddd iv_un…⁵ loinc #>    <av>  <chr> <chr>  <dbl> <chr>   <list>    <dbl> <chr>    <dbl> <chr>   <lis> #>  1 ABA   Abac… J05A… 4.41e5 Nucleo… <chr>       0.6 g           NA NA      <chr> #>  2 ACI   Acic… J05A… 1.35e8 Nucleo… <chr>       4   g            4 g       <chr> #>  3 ADD   Adef… J05A… 6.09e4 Nucleo… <chr>      10   mg          NA NA      <chr> #>  4 AME   Amen… J05A… 1.14e7 Other … <chr>       0.4 g           NA NA      <chr> #>  5 AMP   Ampr… J05A… 6.50e4 Protea… <chr>       1.2 g           NA NA      <chr> #>  6 ASU   Asun… J05A… 1.61e7 Antivi… <chr>       0.2 g           NA NA      <chr> #>  7 ATA   Ataz… J05A… 1.48e5 Protea… <chr>       0.3 g           NA NA      <chr> #>  8 ATA+… Ataz… J05A… 8.66e7 Antivi… <chr>      NA   NA          NA NA      <chr> #>  9 ATA+… Ataz… J05A… 2.51e7 Antivi… <chr>       0.3 g           NA NA      <chr> #> 10 BAM   Balo… J05A… 1.24e8 Other … <chr>      40   mg          NA NA      <chr> #> # … with 110 more rows, and abbreviated variable names ¹​atc_group, ²​synonyms, #> #   ³​oral_ddd, ⁴​oral_units, ⁵​iv_units"},{"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://www.whocc./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://www.whocc.) 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://www.whocc./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, SAS, 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       #> # … with 1,990 more rows, and 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>, #> #   J01FA01 <sir>, J01FF01 <sir>, J01FA10 <sir>, J01DH51 <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://www.whocc./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://www.whocc.) 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://www.whocc./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, SAS, 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 6 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 6 50 millimetres. Values higher 50 lower 100 maximised 50. others input values outside 6-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\" ) #> => Interpreting disk diffusion zones of 'ampicillin' (AMP) according to #>    EUCAST 2022... #>  OK. #> Class 'sir' #> [1] R  # interpret whole data set, pretend to be all from urinary tract infections: as.sir(df, uti = TRUE) #> => Interpreting disk diffusion zones of column 'AMP' (ampicillin) according #>    to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of column 'CIP' (ciprofloxacin) #>    according to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of column 'GEN' (gentamicin) according #>    to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of column 'TOB' (tobramycin) according #>    to EUCAST 2022... #>  OK. #>      microorganism AMP CIP GEN TOB #> 1 Escherichia coli   S   R   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)  NA_mic_  is.mic(x)  # S3 method for 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 .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 decimal numbers. Bare 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 (2013-2022) CLSI (2013-2022). 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.:   following generic functions implemented MIC class: !, !=, %%, %/%, &, *, +, -, /, <, <=, ==, >, >=, ^, |, abs(), acos(), acosh(), (), (), asin(), asinh(), atan(), atanh(), ceiling(), cos(), cosh(), cospi(), cummax(), cummin(), cumprod(), cumsum(), digamma(), exp(), expm1(), floor(), gamma(), lgamma(), log(), log1p(), log2(), log10(), max(), mean(), min(), prod(), range(), round(), sign(), signif(), sin(), sinh(), sinpi(), sqrt(), sum(), tan(), tanh(), tanpi(), trigamma() trunc(). functions stats package also implemented: median(), quantile(), mad(), IQR(), fivenum(). Also, boxplot.stats() supported. 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. 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  # interpret MIC values as.sir(   x = as.mic(2),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #> => Interpreting MIC values of 'AMX' (amoxicillin) according to EUCAST #>    2022... #>  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\" ) #> => Interpreting MIC values of 'AMX' (amoxicillin) according to EUCAST #>    2022... #>  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 }  if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\", language = \"uk\") # Ukrainian }"},{"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, 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()),   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. language language translate text like \"growth\", defaults system language (see get_AMR_locale()) info logical indicate progress bar printed 25 items coerced - 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' returned MO code UNKNOWN warning. Use mo_* functions get properties based returned code, see Examples. .mo() function uses novel matching score algorithm (see Matching Score Microorganisms ) match input available microbial taxonomy package. lead effect e.g. \"E. coli\" (microorganism highly prevalent humans) return microbial ID Escherichia coli Entamoeba coli (microorganism less prevalent humans), although latter alphabetically come first. Becker = TRUE, following 85 staphylococci converted coagulase-negative group: S. argensis, S. arlettae, S. auricularis, S. borealis, 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. 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. 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. following 16 staphylococci converted coagulase-positive group: 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. Lancefield = TRUE, following streptococci converted corresponding Lancefield group: S. agalactiae (Group B), S. anginosus anginosus (Group F), S. anginosus whileyi (Group F), S. anginosus (Group F), S. canis (Group G), S. dysgalactiae dysgalactiae (Group C), S. dysgalactiae equisimilis (Group C), S. dysgalactiae (Group C), S. equi equi (Group C), S. equi ruminatorum (Group C), S. equi zooepidemicus (Group C), S. equi (Group C), S. pyogenes (Group ), S. salivarius salivarius (Group K), S. salivarius thermophilus (Group K), S. salivarius (Group K), S. sanguinis (Group H).","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   \\----> taxonomic kingdom: A (Archaea), AN (Animalia), B (Bacteria),                             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 evaluate results mo_uncertainties(), returns data.frame specifications. increase quality matching, cleaning_regex argument can used clean input (.e., x). 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":"microbial-prevalence-of-pathogens-in-humans","dir":"Reference","previous_headings":"","what":"Microbial Prevalence of Pathogens in Humans","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"coercion rules consider prevalence microorganisms humans, available prevalence column microorganisms data set. grouping human pathogenic prevalence explained section Matching Score Microorganisms .","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 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 Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571 Berends MS et al. (2022). Trends Occurrence Phenotypic Resistance Coagulase-Negative Staphylococci (CoNS) Found Human Blood Northern Netherlands 2013 2019 Microorganisms 10(9), 1801; doi:10.3390/microorganisms10091801 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 11 December, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org 11 December, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microoganism', 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 = 2, Protozoa = 3, Archaea = 4, others = 5. 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.0 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, genus present established list also prevalence = 1.0 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.5 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chrysonilia, Cladophialophora, Cladosporium, Conidiobolus, Contracaecum, Cordylobia, Cryptococcus, Curvularia, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Giardia, Haloarcula, Halobacterium, Halococcus, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hymenolepis, Hypomyces, Hysterothylacium, Leishmania, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Mortierella, Mucor, Mycocentrospora, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Pediculus, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoterranova, Pulex, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Sarcoptes, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Stachybotrys, Strongyloides, Syngamus, Taenia, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Wuchereria; 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.159\\), 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, SAS, 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  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":"Interpret minimum inhibitory concentration (MIC) values disk diffusion diameters according EUCAST CLSI, clean existing SIR values. transforms input new class sir, ordered factor levels S < < R. breakpoints used interpretation publicly 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)  # S3 method for 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),   ... )  # S3 method for 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),   ... )  # S3 method for 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) )  sir_interpretation_history(clean = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"object class sir (inherits ordered, factor) length 1.","code":""},{"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: M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 2013-2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. M100 Performance Standard Antimicrobial Susceptibility Testing, 2013-2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m100/. Breakpoint tables interpretation MICs zone diameters, 2013-2022, European Committee Antimicrobial Susceptibility Testing (EUCAST). https://www.eucast.org/clinical_breakpoints.","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 mo (vector ) text can coerced valid microorganism codes .mo(), can left empty determine automatically ab (vector ) text can coerced valid antimicrobial drug code .ab() guideline defaults EUCAST 2022 (latest implemented EUCAST guideline clinical_breakpoints data set), can set package option AMR_guideline. Currently supports EUCAST (2013-2022) CLSI (2013-2022), see Details. uti (Urinary Tract Infection) vector 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. 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":"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 works four ways: cleaning raw / untransformed data. data cleaned contain values S, R try best determine 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 unclear. 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.disk, as.sir) your_data %>% mutate(across(where(is.disk), as.sir))"},{"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 EUCAST (2013-2022) CLSI (2013-2022). Thus, guideline argument must set e.g., \"EUCAST 2022\" \"CLSI 2022\". 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), :","code":"options(AMR_guideline = \"CLSI\")   options(AMR_guideline = \"CLSI 2018\")   options(AMR_guideline = \"EUCAST 2020\")   # or to reset:   options(AMR_guideline = NULL)"},{"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.","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 18 308 rows 11 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. function is_sir_eligible() returns TRUE columns contains 5% invalid antimicrobial interpretations (S //R), 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, SAS, 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    #> # … with 1,990 more rows, and 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> 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              %R   :73.7% (n=1201)   #>  Mode  :character   Unique:90             %SI  :26.3% (n=428)    #>                     #1    :B_ESCHR_COLI   - %S :25.6% (n=417)    #>                     #2    :B_STPHY_CONS   - %I : 0.7% (n=11)     #>                     #3    :B_STPHY_AURS                          #>     OXA                   FLC                   AMX                #>  Class:sir             Class:sir             Class:sir             #>  %R   :31.2% (n=114)   %R   :29.5% (n=278)   %R   :59.6% (n=804)   #>  %SI  :68.8% (n=251)   %SI  :70.5% (n=665)   %SI  :40.4% (n=546)   #>  - %S :68.8% (n=251)   - %S :70.5% (n=665)   - %S :40.2% (n=543)   #>  - %I : 0.0% (n=0)     - %I : 0.0% (n=0)     - %I : 0.2% (n=3)     #>                                                                    #>     AMC                    AMP                   TZP                #>  Class:sir              Class:sir             Class:sir             #>  %R   :23.7% (n=446)    %R   :59.6% (n=804)   %R   :12.6% (n=126)   #>  %SI  :76.3% (n=1433)   %SI  :40.4% (n=546)   %SI  :87.4% (n=875)   #>  - %S :71.4% (n=1342)   - %S :40.2% (n=543)   - %S :86.1% (n=862)   #>  - %I : 4.8% (n=91)     - %I : 0.2% (n=3)     - %I : 1.3% (n=13)    #>                                                                     #>     CZO                   FEP                   CXM                 #>  Class:sir             Class:sir             Class:sir              #>  %R   :44.6% (n=199)   %R   :14.2% (n=103)   %R   :26.3% (n=470)    #>  %SI  :55.4% (n=247)   %SI  :85.8% (n=621)   %SI  :73.7% (n=1319)   #>  - %S :54.9% (n=245)   - %S :85.6% (n=620)   - %S :72.5% (n=1297)   #>  - %I : 0.4% (n=2)     - %I : 0.1% (n=1)     - %I : 1.2% (n=22)     #>                                                                     #>     FOX                   CTX                   CAZ                 #>  Class:sir             Class:sir             Class:sir              #>  %R   :27.4% (n=224)   %R   :15.5% (n=146)   %R   :66.5% (n=1204)   #>  %SI  :72.6% (n=594)   %SI  :84.5% (n=797)   %SI  :33.5% (n=607)    #>  - %S :71.6% (n=586)   - %S :84.4% (n=796)   - %S :33.5% (n=607)    #>  - %I : 1.0% (n=8)     - %I : 0.1% (n=1)     - %I : 0.0% (n=0)      #>                                                                     #>     CRO                   GEN                    TOB                #>  Class:sir             Class:sir              Class:sir             #>  %R   :15.5% (n=146)   %R   :24.6% (n=456)    %R   :34.4% (n=465)   #>  %SI  :84.5% (n=797)   %SI  :75.4% (n=1399)   %SI  :65.6% (n=886)   #>  - %S :84.4% (n=796)   - %S :74.0% (n=1372)   - %S :65.1% (n=879)   #>  - %I : 0.1% (n=1)     - %I : 1.5% (n=27)     - %I : 0.5% (n=7)     #>                                                                     #>     AMK                   KAN                    TMP                #>  Class:sir             Class:sir              Class:sir             #>  %R   :63.7% (n=441)   %R   :100.0% (n=471)   %R   :38.1% (n=571)   #>  %SI  :36.3% (n=251)   %SI  : 0.0% (n=0)      %SI  :61.9% (n=928)   #>  - %S :36.3% (n=251)   - %S : 0.0% (n=0)      - %S :61.2% (n=918)   #>  - %I : 0.0% (n=0)     - %I : 0.0% (n=0)      - %I : 0.7% (n=10)    #>                                                                     #>     SXT                    NIT                   FOS                #>  Class:sir              Class:sir             Class:sir             #>  %R   :20.5% (n=361)    %R   :17.1% (n=127)   %R   :42.2% (n=148)   #>  %SI  :79.5% (n=1398)   %SI  :82.9% (n=616)   %SI  :57.8% (n=203)   #>  - %S :79.1% (n=1392)   - %S :76.0% (n=565)   - %S :57.8% (n=203)   #>  - %I : 0.3% (n=6)      - %I : 6.9% (n=51)    - %I : 0.0% (n=0)     #>                                                                     #>     LNZ                   CIP                    MFX                #>  Class:sir             Class:sir              Class:sir             #>  %R   :69.3% (n=709)   %R   :16.2% (n=228)    %R   :33.6% (n=71)    #>  %SI  :30.7% (n=314)   %SI  :83.8% (n=1181)   %SI  :66.4% (n=140)   #>  - %S :30.7% (n=314)   - %S :78.9% (n=1112)   - %S :64.5% (n=136)   #>  - %I : 0.0% (n=0)     - %I : 4.9% (n=69)     - %I : 1.9% (n=4)     #>                                                                     #>     VAN                    TEC                   TCY                #>  Class:sir              Class:sir             Class:sir             #>  %R   :38.3% (n=712)    %R   :75.7% (n=739)   %R   :29.8% (n=357)   #>  %SI  :61.7% (n=1149)   %SI  :24.3% (n=237)   %SI  :70.3% (n=843)   #>  - %S :61.7% (n=1149)   - %S :24.3% (n=237)   - %S :68.3% (n=820)   #>  - %I : 0.0% (n=0)      - %I : 0.0% (n=0)     - %I : 1.9% (n=23)    #>                                                                     #>     TGC                   DOX                   ERY                 #>  Class:sir             Class:sir             Class:sir              #>  %R   :12.7% (n=101)   %R   :27.7% (n=315)   %R   :57.2% (n=1084)   #>  %SI  :87.3% (n=697)   %SI  :72.3% (n=821)   %SI  :42.8% (n=810)    #>  - %S :87.3% (n=697)   - %S :71.7% (n=814)   - %S :42.3% (n=801)    #>  - %I : 0.0% (n=0)     - %I : 0.6% (n=7)     - %I : 0.5% (n=9)      #>                                                                     #>     CLI                   AZM                    IPM                #>  Class:sir             Class:sir              Class:sir             #>  %R   :61.2% (n=930)   %R   :57.2% (n=1084)   %R   : 6.2% (n=55)    #>  %SI  :38.8% (n=590)   %SI  :42.8% (n=810)    %SI  :93.8% (n=834)   #>  - %S :38.6% (n=586)   - %S :42.3% (n=801)    - %S :92.7% (n=824)   #>  - %I : 0.3% (n=4)     - %I : 0.5% (n=9)      - %I : 1.1% (n=10)    #>                                                                     #>     MEM                   MTR                  CHL                #>  Class:sir             Class:sir            Class:sir             #>  %R   : 5.9% (n=49)    %R   :14.7% (n=5)    %R   :21.4% (n=33)    #>  %SI  :94.1% (n=780)   %SI  :85.3% (n=29)   %SI  :78.6% (n=121)   #>  - %S :94.1% (n=780)   - %S :85.3% (n=29)   - %S :78.6% (n=121)   #>  - %I : 0.0% (n=0)     - %I : 0.0% (n=0)    - %I : 0.0% (n=0)     #>                                                                   #>     COL                    MUP                   RIF                #>  Class:sir              Class:sir             Class:sir             #>  %R   :81.2% (n=1331)   %R   : 5.9% (n=16)    %R   :69.6% (n=698)   #>  %SI  :18.8% (n=309)    %SI  :94.1% (n=254)   %SI  :30.4% (n=305)   #>  - %S :18.8% (n=309)    - %S :93.0% (n=251)   - %S :30.2% (n=303)   #>  - %I : 0.0% (n=0)      - %I : 1.1% (n=3)     - %I : 0.2% (n=2)     #>                                                                      # For INTERPRETING disk diffusion and MIC values -----------------------  # a whole data set, even with combined MIC values and disk zones df <- data.frame(   microorganism = \"Escherichia coli\",   AMP = as.mic(8),   CIP = as.mic(0.256),   GEN = as.disk(18),   TOB = as.disk(16),   ERY = \"R\" ) as.sir(df) #> => Interpreting MIC values of column 'AMP' (ampicillin) according to EUCAST #>    2022... #>  OK. #> => Interpreting MIC values of column 'CIP' (ciprofloxacin) according to #>    EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of column 'GEN' (gentamicin) according #>    to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of column 'TOB' (tobramycin) according #>    to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Assigning class 'sir' to already clean column 'ERY' (erythromycin)... #>  OK. #>      microorganism AMP CIP GEN TOB ERY #> 1 Escherichia coli   S   I   S   S   R  # return a 'logbook' about the results: sir_interpretation_history() #> # A tibble: 50 × 17 #>    datetime            index ab_input ab_guid…¹ mo_in…² mo_guideline     guide…³ #>    <dttm>              <int> <chr>    <ab>      <chr>   <mo>             <chr>   #>  1 2023-03-11 13:29:32     1 TOB      TOB       Escher… B_[ORD]_ENTRBCTR EUCAST… #>  2 2023-03-11 13:29:32     1 GEN      GEN       Escher… B_[ORD]_ENTRBCTR EUCAST… #>  3 2023-03-11 13:29:32     1 CIP      CIP       Escher… B_[ORD]_ENTRBCTR EUCAST… #>  4 2023-03-11 13:29:31     1 AMP      AMP       Escher… B_[ORD]_ENTRBCTR EUCAST… #>  5 2023-03-11 13:29:26     1 CIP      CIP       B_ESCH… B_[ORD]_ENTRBCTR EUCAST… #>  6 2023-03-11 13:29:26     2 CIP      CIP       B_ESCH… B_[ORD]_ENTRBCTR EUCAST… #>  7 2023-03-11 13:29:26     3 CIP      CIP       B_ESCH… B_[ORD]_ENTRBCTR EUCAST… #>  8 2023-03-11 13:29:26     4 CIP      CIP       B_ESCH… B_[ORD]_ENTRBCTR EUCAST… #>  9 2023-03-11 13:29:26     5 CIP      CIP       B_ESCH… B_[ORD]_ENTRBCTR EUCAST… #> 10 2023-03-11 13:29:26     6 CIP      CIP       B_ESCH… B_[ORD]_ENTRBCTR EUCAST… #> # … with 40 more rows, 10 more variables: ref_table <chr>, method <chr>, #> #   input <dbl>, outcome <sir>, breakpoint_S_R <chr>, ab_considered <lgl>, #> #   mo_considered <lgl>, breakpoint_S <lgl>, breakpoint_R <lgl>, #> #   interpretation <lgl>, and abbreviated variable names ¹​ab_guideline, #> #   ²​mo_input, ³​guideline  # for single values as.sir(   x = as.mic(2),   mo = as.mo(\"S. pneumoniae\"),   ab = \"AMP\",   guideline = \"EUCAST\" ) #> => Interpreting MIC values of 'AMP' (ampicillin) according to EUCAST #>    2022... #>  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\" ) #> => Interpreting disk diffusion zones of 'ampicillin' (AMP) according to #>    EUCAST 2022... #>  OK. #> Class 'sir' #> [1] R  # \\donttest{ # the dplyr way if (require(\"dplyr\")) {   df %>% mutate_if(is.mic, as.sir)   df %>% mutate_if(function(x) is.mic(x) | is.disk(x), as.sir)   df %>% mutate(across(where(is.mic), as.sir))   df %>% mutate_at(vars(AMP:TOB), as.sir)   df %>% mutate(across(AMP:TOB, as.sir))    df %>%     mutate_at(vars(AMP:TOB), as.sir, mo = .$microorganism)    # to include information about urinary tract infections (UTI)   data.frame(     mo = \"E. coli\",     NIT = c(\"<= 2\", 32),     from_the_bladder = c(TRUE, FALSE)   ) %>%     as.sir(uti = \"from_the_bladder\")    data.frame(     mo = \"E. coli\",     NIT = c(\"<= 2\", 32),     specimen = c(\"urine\", \"blood\")   ) %>%     as.sir() # automatically determines urine isolates    df %>%     mutate_at(vars(AMP:TOB), as.sir, mo = \"E. coli\", uti = TRUE) } #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'AMP' (ampicillin) according to EUCAST #>    2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) according to EUCAST #>    2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) according to #>    EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) according to #>    EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of column 'NIT' (nitrofurantoin) according to #>    EUCAST 2022... #> Warning: in as.sir(): interpretation of nitrofurantoin (NIT) is only available for #> (uncomplicated) urinary tract infections (UTI) for some microorganisms, #> thus assuming uti = TRUE. See ?as.sir. #>  * WARNING * #> ℹ Assuming value \"urine\" in column 'specimen' reflects a urinary tract #>   infection. #>   Use as.sir(uti = FALSE) to prevent this. #> => Interpreting MIC values of column 'NIT' (nitrofurantoin) according to #>    EUCAST 2022... #> Warning: in as.sir(): interpretation of nitrofurantoin (NIT) is only available for #> (uncomplicated) urinary tract infections (UTI) for some microorganisms, #> thus assuming uti = TRUE. See ?as.sir. #>  * WARNING * #> => Interpreting MIC values of 'AMP' (ampicillin) according to EUCAST #>    2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) according to EUCAST #>    2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) according to #>    EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) according to #>    EUCAST 2022... #>  OK. #>      microorganism AMP CIP GEN TOB ERY #> 1 Escherichia coli   S   I   S   S   R  # For CLEANING existing SIR values ------------------------------------  as.sir(c(\"S\", \"I\", \"R\", \"A\", \"B\", \"C\")) #> Warning: in as.sir(): 3 results in column '24' truncated (50%) that were invalid #> antimicrobial interpretations: \"A\", \"B\", and \"C\" #> Class 'sir' #> [1] S    I    R    <NA> <NA> <NA> as.sir(\"<= 0.002; S\") # will return \"S\" #> Class 'sir' #> [1] 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   # 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    #> # … with 1,990 more rows, and 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> # }"},{"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://www.whocc.no/atc_ddd_index/?code=%s&showdescription=no\",   url_vet = \"https://www.whocc.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://www.whocc./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://www.whocc./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, SAS, 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://www.whocc.no/atc_ddd_index/?code=J05AB01&showdescription=no\"   # smart lowercase tranformation 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\" \"78772-1\" \"78773-9\" \"79134-3\" \"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 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 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\", \"\", \"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    #> # … with 1,990 more rows, and 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>  # \\donttest{ x <- bug_drug_combinations(example_isolates) head(x) #> # A tibble: 6 × 6 #>   mo                ab        S     I     R total #>   <chr>             <chr> <int> <int> <int> <int> #> 1 (unknown species) AMC      15     0     0    15 #> 2 (unknown species) AMK       0     0     0     0 #> 3 (unknown species) AMP      15     0     1    16 #> 4 (unknown species) AMX      15     0     1    16 #> 5 (unknown species) AZM       3     0     3     6 #> 6 (unknown species) CAZ       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. co…¹ E. fa…² K. pn…³ P. ae…⁴ P. mi…⁵ S. au…⁶ S. ep…⁷ #>    <chr>     <chr> <chr> <chr>   <chr>   <chr>   <chr>   <chr>   <chr>   <chr>   #>  1 \"Aminogl… Amik… \"100… \"  0.0… \"100.0… \"\"      \"\"      \"\"      \"\"      \"100.0… #>  2 \"\"        Gent… \" 13… \"  2.0… \"100.0… \" 10.3… \"  0.0… \"  5.9… \"  0.9… \" 21.5… #>  3 \"\"        Kana… \"100… \"\"      \"100.0… \"\"      \"100.0… \"\"      \"\"      \"100.0… #>  4 \"\"        Tobr… \" 78… \"  2.6… \"100.0… \" 10.3… \"  0.0… \"  5.9… \"  2.3… \" 49.4… #>  5 \"Ampheni… Chlo… \"\"    \"\"      \"\"      \"\"      \"100.0… \"\"      \"  0.0… \"  3.1… #>  6 \"Antimyc… Rifa… \"\"    \"100.0… \"\"      \"100.0… \"100.0… \"100.0… \"  0.0… \"  2.7… #>  7 \"Beta-la… Amox… \" 93… \" 50.0… \"\"      \"100.0… \"100.0… \"\"      \" 93.9… \" 98.9… #>  8 \"\"        Amox… \" 42… \" 13.1… \"\"      \" 10.3… \"100.0… \"  2.8… \"  0.4… \" 54.5… #>  9 \"\"        Ampi… \" 93… \" 50.0… \"\"      \"100.0… \"100.0… \"\"      \" 93.9… \" 98.9… #> 10 \"\"        Benz… \" 77… \"100.0… \"\"      \"100.0… \"100.0… \"100.0… \" 80.9… \" 89.4… #> # … with 29 more rows, 2 more variables: `S. hominis` <chr>, #> #   `S. pneumoniae` <chr>, and abbreviated variable names ¹​`E. coli`, #> #   ²​`E. faecalis`, ³​`K. pneumoniae`, ⁴​`P. aeruginosa`, ⁵​`P. mirabilis`, #> #   ⁶​`S. aureus`, ⁷​`S. epidermidis`  # Use FUN to change to transformation of microorganism codes bug_drug_combinations(example_isolates,   FUN = mo_gramstain ) #> # A tibble: 80 × 6 #>    mo            ab        S     I     R total #>  * <chr>         <chr> <int> <int> <int> <int> #>  1 Gram-negative AMC     463    89   174   726 #>  2 Gram-negative AMK     251     0     5   256 #>  3 Gram-negative AMP     226     0   405   631 #>  4 Gram-negative AMX     226     0   405   631 #>  5 Gram-negative AZM       1     2   696   699 #>  6 Gram-negative CAZ     607     0    27   634 #>  7 Gram-negative CHL       1     0    30    31 #>  8 Gram-negative CIP     610    11    63   684 #>  9 Gram-negative CLI      18     1   709   728 #> 10 Gram-negative COL     309     0    78   387 #> # … with 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 × 6 #>    mo      ab        S     I     R total #>  * <chr>   <chr> <int> <int> <int> <int> #>  1 E. coli AMC     332    74    61   467 #>  2 E. coli AMK     171     0     0   171 #>  3 E. coli AMP     196     0   196   392 #>  4 E. coli AMX     196     0   196   392 #>  5 E. coli AZM       0     0   467   467 #>  6 E. coli CAZ     449     0    11   460 #>  7 E. coli CHL       0     0     0     0 #>  8 E. coli CIP     398     1    57   456 #>  9 E. coli CLI       0     0   467   467 #> 10 E. coli COL     240     0     0   240 #> # … with 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. Currently implemented guidelines EUCAST (2013-2022) CLSI (2013-2022). 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 18 308 observations 11 variables: guideline Name guideline method Either \"DISK\" \"MIC\" site Body site, e.g. \"Oral\" \"Respiratory\" mo Microbial ID, see .mo() rank_index Taxonomic rank index mo 1 (subspecies/infraspecies) 5 (unknown microorganism) ab Antibiotic ID, 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)","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","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, SAS, 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":[]},{"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: 18,308 × 11 #>    guideline method site  mo               rank_…¹ ab   ref_tbl  disk_…² break…³ #>    <chr>     <chr>  <chr> <mo>               <dbl> <ab> <chr>    <chr>     <dbl> #>  1 EUCAST 2… MIC    NA    F_ASPRG_MGTS           2 AMB  Aspergi… NA            1 #>  2 EUCAST 2… MIC    NA    F_ASPRG_NIGR           2 AMB  Aspergi… NA            1 #>  3 EUCAST 2… MIC    NA    F_CANDD_ALBC           2 AMB  Candida  NA            1 #>  4 EUCAST 2… MIC    NA    F_CANDD_DBLN           2 AMB  Candida  NA            1 #>  5 EUCAST 2… MIC    NA    F_CANDD_GLBR           2 AMB  Candida  NA            1 #>  6 EUCAST 2… MIC    NA    F_CANDD_KRUS           2 AMB  Candida  NA            1 #>  7 EUCAST 2… MIC    NA    F_CANDD_PRPS           2 AMB  Candida  NA            1 #>  8 EUCAST 2… MIC    NA    F_CANDD_TRPC           2 AMB  Candida  NA            1 #>  9 EUCAST 2… MIC    NA    F_CRYPT_NFRM           2 AMB  Candida  NA            1 #> 10 EUCAST 2… DISK   NA    B_[ORD]_ENTRBCTR       5 AMC  Enterob… 20ug/1…      19 #> # … with 18,298 more rows, 2 more variables: breakpoint_R <dbl>, uti <lgl>, and #> #   abbreviated variable names ¹​rank_index, ²​disk_dose, ³​breakpoint_S"},{"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_R(..., only_all_tested = FALSE)  count_IR(..., only_all_tested = FALSE)  count_I(..., only_all_tested = FALSE)  count_SI(..., only_all_tested = FALSE)  count_S(..., 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 must merged one, output consists S+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\" being susceptible. This note will be shown once for this #> session. #> [1] 543 count_SI(example_isolates$AMX) #> [1] 546 count_I(example_isolates$AMX) #> [1] 3 count_IR(example_isolates$AMX) #> Using count_IR() is discouraged; use count_resistant() instead to not #> consider \"I\" 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 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\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_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-antibiotic-group-names","dir":"Reference","previous_headings":"","what":"Usage of antibiotic group names","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"possible define antibiotic groups instead single antibiotics rule consequence, part tilde. examples, antibiotic group aminopenicillins used include ampicillin amoxicillin. following groups allowed (case-insensitive). Within parentheses drugs matched running rule. \"aminoglycosides\"(amikacin, amikacin/fosfomycin, amphotericin B-high, 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\"(amphotericin B, 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, 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) \"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, 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, 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, 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) \"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, 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) \"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":""},{"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_…¹ rule_…² rule_…³ #>   <int> <chr> <chr>                 <ord> <chr> <chr>    <chr>   <chr>   <chr>   #> 1    33 AMP   Klebsiella pneumoniae R     I     \"report… Custom… Custom… Object… #> 2    33 AMX   Klebsiella pneumoniae R     I     \"report… Custom… Custom… Object… #> 3    34 AMP   Klebsiella pneumoniae R     I     \"report… Custom… Custom… Object… #> 4    34 AMX   Klebsiella pneumoniae R     I     \"report… Custom… Custom… Object… #> 5   531 AMP   Klebsiella pneumoniae R     I     \"report… Custom… Custom… Object… #> 6   531 AMX   Klebsiella pneumoniae R     I     \"report… Custom… Custom… Object… #> 7  1485 AMP   Klebsiella oxytoca    R     I     \"report… Custom… Custom… Object… #> 8  1485 AMX   Klebsiella oxytoca    R     I     \"report… Custom… Custom… Object… #> # … with abbreviated variable names ¹​rule_group, ²​rule_name, ³​rule_source  # 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 336 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","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":"data set based 'EUCAST Clinical Breakpoint Tables' v12.0 (2022) 'EUCAST Clinical Breakpoint Tables' v11.0 (2021).","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","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, SAS, 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: 336 × 9 #>    ab   name                   type  dose  dose_…¹ admin…² notes origi…³ eucas…⁴ #>    <ab> <chr>                  <chr> <chr>   <int> <chr>   <chr> <chr>     <dbl> #>  1 AMK  Amikacin               stan… 25-3…       1 iv      \"\"    25-30 …      12 #>  2 AMX  Amoxicillin            high… 2 g         6 iv      \"\"    2 g x …      12 #>  3 AMX  Amoxicillin            stan… 1 g         3 iv      \"\"    1 g x …      12 #>  4 AMX  Amoxicillin            high… 0.75…       3 oral    \"\"    0.75-1…      12 #>  5 AMX  Amoxicillin            stan… 0.5 g       3 oral    \"\"    0.5 g …      12 #>  6 AMX  Amoxicillin            unco… 0.5 g       3 oral    \"\"    0.5 g …      12 #>  7 AMC  Amoxicillin/clavulani… high… 2 g …       3 iv      \"\"    (2 g a…      12 #>  8 AMC  Amoxicillin/clavulani… stan… 1 g …       3 iv      \"\"    (1 g a…      12 #>  9 AMC  Amoxicillin/clavulani… high… 0.87…       3 oral    \"\"    (0.875…      12 #> 10 AMC  Amoxicillin/clavulani… stan… 0.5 …       3 oral    \"\"    (0.5 g…      12 #> # … with 326 more rows, and abbreviated variable names ¹​dose_times, #> #   ²​administration, ³​original_txt, ⁴​eucast_version"},{"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 either \"12.0\", \"11.0\", \"10.0\". version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can either \"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 11 December, 2022, 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, S01AE08), amoxicillin (AMX, J01MA02), amoxicillin/clavulanic acid (AMC, J01MA23), ampicillin (AMP, J01MA04), ampicillin/sulbactam (SAM, J01MA08), arbekacin (ARB, J01MA19), aspoxicillin (APX, J01MA16), azidocillin (AZD, J01MA15), azithromycin (AZM, J01MA11), azlocillin (AZL, J01MA25), aztreonam (ATM, J01MA12), bacampicillin (BAM, J01MA24), bekanamycin (BEK, J01MA07), benzathine benzylpenicillin (BNB, J01MA14), benzathine phenoxymethylpenicillin (BNP, D10AF05), benzylpenicillin (PEN, J01MA06), besifloxacin (BES, J01MA01), biapenem (BIA, J01MA18), carbenicillin (CRB, J01MA03), carindacillin (CRN, J01MA17), cefacetrile (CAC, J01MA10), cefaclor (CEC, J01MA21), cefadroxil (CFR, J01MA09), cefalexin (LEX, J01MA05), cefaloridine (RID, P01AA05), cefalotin (CEP, J01MA22), cefamandole (MAN, J01MA13), cefapirin (HAP, J01CA01), cefatrizine (CTZ, J01CA04), cefazedone (CZD, J01CA12), cefazolin (CZO, J01CR05), cefcapene (CCP, J01CA13), cefdinir (CDR, J01AA02), cefditoren (DIT, J01FA10), cefepime (FEP, J01FA09), cefetamet (CAT, J01CR02), cefixime (CFM, J01AA08), cefmenoxime (CMX, J01FA06), cefmetazole (CMZ, J01CF04), cefodizime (DIZ, J01CF05), cefonicid (CID, J01CR01), cefoperazone (CFP, J01CA19), cefoperazone/sulbactam (CSL, J01CE04), ceforanide (CND, J01CA09), cefotaxime (CTX, J01DF01), cefotaxime/clavulanic acid (CTC, J01CA06), cefotetan (CTT, J01CE08), cefotiam (CTF, J01CE10), cefoxitin (FOX, J01CE01), cefozopran (ZOP, J01CA03), cefpiramide (CPM, J01CA05), cefpirome (CPO, J01CE07), cefpodoxime (CPD, J01CF02), cefprozil (CPR, J01CF01), cefroxadine (CRD, J01CA07), cefsulodin (CFS, J01CA18), ceftaroline (CPT, J01CA11), ceftazidime (CAZ, J01CA14), ceftazidime/clavulanic acid (CCV, J01CF03), cefteram (CEM, J01CA10), ceftezole (CTL, J01CF06), ceftibuten (CTB, J01CE06), ceftizoxime (CZX, J01CE05), ceftobiprole medocaril (CFM1, J01CE02), ceftolozane/tazobactam (CZT, J01CA02), ceftriaxone (CRO, J01CA08), ceftriaxone/beta-lactamase inhibitor (CEB, J01CE09), cefuroxime (CXM, J01CE03), cephradine (CED, J01CG01), chloramphenicol (CHL, J01CA16), ciprofloxacin (CIP, J01CR04), clarithromycin (CLR, J01CA15), clindamycin (CLI, J01CG02), clometocillin (CLM, J01CA17), cloxacillin (CLO, J01CR03), colistin (COL, J01DB10), cycloserine (CYC, J01DC04), dalbavancin (DAL, J01DB05), daptomycin (DAP, J01DB01), delafloxacin (DFX, J01DB02), dibekacin (DKB, J01DB03), dicloxacillin (DIC, J01DC03), dirithromycin (DIR, J01DB08), doripenem (DOR, J01DB07), doxycycline (DOX, J01DB06), enoxacin (ENX, J01DB04), epicillin (EPC, J01DD17), ertapenem (ETP, J01DD15), erythromycin (ERY, J01DD16), fleroxacin (FLE, J01DE01), flucloxacillin (FLC, J01DD10), flurithromycin (FLR1, J01DD08), fosfomycin (FOS, J01DD05), framycetin (FRM, J01DC09), fusidic acid (FUS, J01DD09), garenoxacin (GRN, J01DC06), gatifloxacin (GAT, J01DD12), gemifloxacin (GEM, J01DD62), gentamicin (GEN, J01DC11), grepafloxacin (GRX, J01DD01), hetacillin (HET, J01DD51), imipenem (IPM, J01DC05), imipenem/relebactam (IMR, J01DC07), isepamicin (ISE, J01DC01), josamycin (JOS, J01DE03), kanamycin (KAN, J01DD11), lascufloxacin (LSC, J01DE02), latamoxef (LTM, J01DD13), levofloxacin (LVX, J01DC10), levonadifloxacin (LND, J01DB11), lincomycin (LIN, J01DD03), linezolid (LNZ, J01DI02), lomefloxacin (LOM, J01DD02), loracarbef (LOR, J01DD52), mecillinam (MEC, J01DD18), meropenem (MEM, J01DB12), meropenem/vaborbactam (MEV, J01DD14), metampicillin (MTM, J01DD07), meticillin (MET, J01DI01), mezlocillin (MEZ, J01DI54), micronomicin (MCR, J01DD04), midecamycin (MID, J01DD63), minocycline (MNO, J01DC02), miocamycin (MCM, J01DB09), moxifloxacin (MFX, J01DD06), nadifloxacin (NAD, J01DC08), nafcillin (NAF, J01DH05), nalidixic acid (NAL, J01DH04), neomycin (NEO, J01DH03), netilmicin (NET, J01DH51), nitrofurantoin (NIT, J01DH56), norfloxacin (, J01DH02), ofloxacin (OFX, J01DH52), oleandomycin (OLE, J01DH55), oritavancin (ORI, J01DH06), oxacillin (OXA, J01XA02), panipenem (PAN, J01XA01), pazufloxacin (PAZ, J01XC01), pefloxacin (PEF, J01FA13), penamecillin (PNM, J01FA01), pheneticillin (PHE, J01FA14), phenoxymethylpenicillin (PHN, J01FA07), piperacillin (PIP, J01FA03), piperacillin/tazobactam (TZP, J01FA11), pivampicillin (PVM, J01FA05), pivmecillinam (PME, J01FA12), plazomicin (PLZ, J01FA16), polymyxin B (PLB, J01FA02), pristinamycin (PRI, J01FA15), procaine benzylpenicillin (PRB, J01FA08), propicillin (PRP, J01FF02), prulifloxacin (PRU, J01FG01), quinupristin/dalfopristin (QDA, J01FG02), ribostamycin (RST, J04AB02), rifampicin (RIF, J01XX09), rokitamycin (ROK, J01XX08), roxithromycin (RXT, J01AA07), rufloxacin (RFL, J01XB01), sisomicin (SIS, J01XB02), sitafloxacin (SIT, J01XE01), solithromycin (SOL, J01AA12), sparfloxacin (SPX, J01EA01), spiramycin (SPI, J01XX01), streptoduocin (STR, J01BA01), streptomycin (STR1, J01GB06), sulbactam (SUL, J01GB12), sulbenicillin (SBC, J01GB13), sulfadiazine (SDI, J01GB09), sulfadiazine/trimethoprim (SLT1, D09AA01), sulfadimethoxine (SUD, J01GB03), sulfadimidine (SDM, J01GB11), sulfadimidine/trimethoprim (SLT2, J01GB04), sulfafurazole (SLF, S01AA22), sulfaisodimidine (SLF1, J01GB05), sulfalene (SLF2, J01GB07), sulfamazone (SZO, J01GB14), sulfamerazine (SLF3, J01GB10), sulfamerazine/trimethoprim (SLT3, J01GB08), sulfamethizole (SLF4, J01GA02), sulfamethoxazole (SMX, J01GA01), sulfamethoxypyridazine (SLF5, J01GB01), sulfametomidine (SLF6, J01EE01), sulfametoxydiazine (SLF7, J01MB02), sulfametrole/trimethoprim (SLT4, J01FF01), sulfamoxole (SLF8, J01XA04), sulfamoxole/trimethoprim (SLT5, J01XA05), sulfanilamide (SLF9, J01XA03), sulfaperin (SLF10, J04AB01), sulfaphenazole (SLF11, J01XX11), sulfapyridine (SLF12, J01EC02), sulfathiazole (SUT, J01ED01), sulfathiourea (SLF13, J01EB03), sultamicillin (SLT6, J01EB05), talampicillin (TAL, J01EB01), tazobactam (TAZ, J01ED02), tebipenem (TBP, J01ED09), tedizolid (TZD, J01ED07), teicoplanin (TEC, J01EB02), telavancin (TLV, J01EC01), telithromycin (TLT, J01ED05), temafloxacin (TMX, J01ED03), temocillin (TEM, J01ED04), tetracycline (TCY, J01EC03), ticarcillin (TIC, J01EB06), ticarcillin/clavulanic acid (TCC, J01ED06), tigecycline (TGC, J01ED08), tilbroquinol (TBQ, J01EB04), tobramycin (TOB, J01EB07), tosufloxacin (TFX, J01EB08), trimethoprim (TMP, J01EE02), trimethoprim/sulfamethoxazole (SXT, J01EE05), troleandomycin (TRL, J01EE07), trovafloxacin (TVA, J01EE03), vancomycin (VAN, J01EE04)","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, SAS, 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(CXM:AMX) #>   - 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   -   S   R   S   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(CXM:AMX) #>   - 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 AMX Staphylococcus aureus   -   S       Breakpoints #> 2   1 CXM Staphylococcus aureus   -   S       Breakpoints #> 3   1 CAZ Staphylococcus aureus   R   S      Expert Rules #> 4   1 CAZ Staphylococcus aureus   -   R      Expert Rules #> 5   1 COL Staphylococcus aureus   -   R      Expert Rules #> 6   2 CAZ Enterococcus faecalis   -   R      Expert Rules #>                                                 rule_name #> 1                                          Staphylococcus #> 2                                          Staphylococcus #> 3                          Expert Rules on Staphylococcus #> 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 Clinical Breakpoint Tables' v12.0, 2022 #> 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, SAS, 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    #> # … with 1,990 more rows, and 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>"},{"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, SAS, 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     #> # … with 2,990 more rows"},{"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 #> Including isolates from ICU. #> ℹ Excluded 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,379 'phenotype-based' first isolates (69.0% of total where a #>    microbial ID was available) #> # A tibble: 1,379 × 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-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # … with 1,369 more rows, and 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> # \\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: 437 × 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    #> # … with 427 more rows, and 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>  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 #> Including isolates from ICU. #> ℹ Excluded 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,379 'phenotype-based' first isolates (69.0% of total where a #>    microbial ID was available) #> # A tibble: 1,379 × 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-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # … with 1,369 more rows, and 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> if (require(\"dplyr\")) {   # short-hand version:   example_isolates %>%     filter_first_isolate(info = FALSE) } #> # A tibble: 1,379 × 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-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # … with 1,369 more rows, and 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> 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 #> Including isolates from ICU. #>  #> Group: ward = \"Clinical\" #> ℹ Excluded 9 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 861 'phenotype-based' first isolates (69.8% of total where a #>    microbial ID was available) #> Including isolates from ICU. #>  #> Group: ward = \"ICU\" #> ℹ Excluded 6 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 449 'phenotype-based' first isolates (69.6% within scope and 69.5% #>    of total where a microbial ID was available) #> Including isolates from ICU. #>  #> Group: ward = \"Outpatient\" #> ℹ Excluded 1 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 98 'phenotype-based' first isolates (82.4% within scope and 81.7% #>    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 FALSE #> 10 ICU      2002-01-17 858515  B_STPHY_EPDR TRUE  #> # … with 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 returns TRUE every new get_episode() index, thus equal !duplicated(get_episode(...)). 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]  8 36 16 50 29 40 17  1 46 26 52 49 35 37  3 37 52 40 21 51 38 22 29  5 21 #>  [26] 37 31 17 49 13 20 44 35 29  9 49  8 11 30  6  8  5 41 27 44 12 39 12 21  3 #>  [51] 33 44 25 14  8 49 30  7 50 11 34 10 47 21  6 15  3 39 19  7  2 51  5 38 28 #>  [76] 32 29 22 43 33 49 45  4 31 30 18 44 48  9 47 29 44  2 42 23 42  7 24 19  7 is_new_episode(df$date, episode_days = 60) # TRUE/FALSE #>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE #>  [13]  TRUE  TRUE  TRUE FALSE FALSE FALSE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE #>  [25] FALSE FALSE  TRUE FALSE FALSE  TRUE  TRUE  TRUE FALSE FALSE  TRUE FALSE #>  [37] FALSE  TRUE  TRUE  TRUE FALSE FALSE  TRUE  TRUE FALSE  TRUE  TRUE FALSE #>  [49] FALSE FALSE  TRUE FALSE  TRUE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE #>  [61]  TRUE  TRUE  TRUE FALSE FALSE  TRUE FALSE FALSE  TRUE FALSE  TRUE FALSE #>  [73] FALSE FALSE  TRUE  TRUE FALSE FALSE  TRUE FALSE FALSE  TRUE  TRUE FALSE #>  [85] FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE #>  [97] FALSE  TRUE 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: 3 × 46 #>   date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>   <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #> 1 2002-12-14 144280     76 F      Clinical B_STPHY_AURS R     NA    S     R     #> 2 2002-11-16 762305     87 F      Clinical B_PROTS_MRBL R     NA    NA    NA    #> 3 2002-11-16 762305     87 F      Clinical B_BCTRD_FRGL R     NA    NA    R     #> # … with 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 [98] #>    patient date       condition new_episode #>    <chr>   <date>     <chr>     <lgl>       #>  1 074321  2015-09-20 A         TRUE        #>  2 088256  2003-01-25 B         TRUE        #>  3 097186  2015-10-28 C         TRUE        #>  4 0D7D34  2011-03-19 B         TRUE        #>  5 0E2483  2008-07-22 C         TRUE        #>  6 105248  2005-06-16 A         TRUE        #>  7 107DD1  2012-09-03 A         TRUE        #>  8 114570  2003-04-08 C         TRUE        #>  9 136315  2004-02-02 B         TRUE        #> 10 144280  2002-12-14 B         TRUE        #> # … with 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 ICU      2015-09-20 074321          1 TRUE        #>  2 ICU      2003-01-25 088256          1 TRUE        #>  3 Clinical 2015-10-28 097186          1 TRUE        #>  4 ICU      2011-03-19 0D7D34          1 TRUE        #>  5 Clinical 2008-07-22 0E2483          1 TRUE        #>  6 Clinical 2005-06-16 105248          1 TRUE        #>  7 Clinical 2012-09-03 107DD1          1 TRUE        #>  8 ICU      2003-04-08 114570          1 TRUE        #>  9 Clinical 2004-02-02 136315          1 TRUE        #> 10 Clinical 2002-12-14 144280          1 TRUE        #> # … with 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           64             14            44            54 #> 2 ICU                29             10            22            24 #> 3 Outpatient          1              1             1             1  # 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 E32B78  B_GEMLL_HMLY ICU      TRUE         #>  2 672020  B_STPHY_EPDR Clinical TRUE         #>  3 578848  B_STPHY_CONS Clinical TRUE         #>  4 844790  B_STPHY_LGDN ICU      TRUE         #>  5 409788  B_STPHY_CONS Clinical TRUE         #>  6 789292  B_STRPT_SLVR Clinical TRUE         #>  7 94BB11  B_ESCHR_COLI Clinical TRUE         #>  8 495616  B_STPHY_EPDR Clinical TRUE         #>  9 329C35  B_ESCHR_COLI Clinical TRUE         #> 10 D19627  B_ESCHR_COLI Clinical TRUE         #> # … with 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)    # new ggplot2 plotting method using this package:   if (require(\"ggplot2\")) {     ggplot_pca(pca_result)      # still extendible with any ggplot2 function     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\"`, `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,   ... )  facet_sir(facet = c(\"interpretation\", \"antibiotic\"), nrow = NULL)  scale_y_percent(breaks = seq(0, 1, 0.1), limits = NULL)  scale_sir_colours(..., aesthetics = \"fill\")  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/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 must merged one, output consists S+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().","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"the-functions","dir":"Reference","previous_headings":"","what":"The Functions","title":"AMR Plots with ggplot2 — ggplot_sir","text":"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. 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 (`position_stack()`). #> Warning: Removed 6 rows containing missing values (`position_stack()`).  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 134 634 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, SAS, 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: 134,634 × 2 #>    mo      ab    #>    <mo>    <chr> #>  1 B_GRAMP ATM   #>  2 B_GRAMP COL   #>  3 B_GRAMP NAL   #>  4 B_GRAMP PLB   #>  5 B_GRAMP TEM   #>  6 B_ABTRP ATM   #>  7 B_ABTRP COL   #>  8 B_ABTRP NAL   #>  9 B_ABTRP PLB   #> 10 B_ABTRP TEM   #> # … with 134,624 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\"))  italicize_taxonomy(string, type = c(\"markdown\", \"ansi\"))"},{"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\" \"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 ANSI colours adding \\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 × 22 #>   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… #> # … with 12 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   source <chr>, lpsn <chr>, lpsn_parent <chr>, lpsn_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 × 22 #>   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… #> # … with 12 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   source <chr>, lpsn <chr>, lpsn_parent <chr>, lpsn_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\"        \"status\"          #>  [5] \"kingdom\"         \"phylum\"          \"class\"           \"order\"           #>  [9] \"family\"          \"genus\"           \"species\"         \"subspecies\"      #> [13] \"rank\"            \"ref\"             \"source\"          \"lpsn\"            #> [17] \"lpsn_parent\"     \"lpsn_renamed_to\" \"gbif\"            \"gbif_parent\"     #> [21] \"gbif_renamed_to\" \"prevalence\"      \"snomed\"           # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     left_join_microorganisms() %>%     colnames() } #> Joining, by = \"mo\" #>  [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\"             \"NIT\"             \"FOS\"             #> [29] \"LNZ\"             \"CIP\"             \"MFX\"             \"VAN\"             #> [33] \"TEC\"             \"TCY\"             \"TGC\"             \"DOX\"             #> [37] \"ERY\"             \"CLI\"             \"AZM\"             \"IPM\"             #> [41] \"MEM\"             \"MTR\"             \"CHL\"             \"COL\"             #> [45] \"MUP\"             \"RIF\"             \"fullname\"        \"status\"          #> [49] \"kingdom\"         \"phylum\"          \"class\"           \"order\"           #> [53] \"family\"          \"genus\"           \"species\"         \"subspecies\"      #> [57] \"rank\"            \"ref\"             \"source\"          \"lpsn\"            #> [61] \"lpsn_parent\"     \"lpsn_renamed_to\" \"gbif\"            \"gbif_parent\"     #> [65] \"gbif_renamed_to\" \"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] 1395 # }"},{"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)  # S3 method for default kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for matrix kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for 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] 2.983707 kurtosis(rnorm(10000), excess = TRUE) #> [1] 0.0116776"},{"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":"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     #> # … with 96 more rows, and 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>  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     #> # … with 96 more rows, and 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> # }"},{"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,   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, ...)  mdr_tb(x = NULL, only_sir_columns = FALSE, ...)  mdr_cmi2012(x = NULL, only_sir_columns = FALSE, ...)  eucast_exceptional_phenotypes(x = NULL, only_sir_columns = 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(). 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) (link) 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 - 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/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, S01AE08), amoxicillin (AMX, J01MA02), amoxicillin/clavulanic acid (AMC, J01MA23), ampicillin (AMP, J01MA04), ampicillin/sulbactam (SAM, J01MA08), arbekacin (ARB, J01MA19), aspoxicillin (APX, J01MA16), azidocillin (AZD, J01MA15), azithromycin (AZM, J01MA11), azlocillin (AZL, J01MA25), aztreonam (ATM, J01MA12), bacampicillin (BAM, J01MA24), bekanamycin (BEK, J01MA07), benzathine benzylpenicillin (BNB, J01MA14), benzathine phenoxymethylpenicillin (BNP, D10AF05), benzylpenicillin (PEN, J01MA06), besifloxacin (BES, J01MA01), biapenem (BIA, J01MA18), carbenicillin (CRB, J01MA03), carindacillin (CRN, J01MA17), cefacetrile (CAC, J01MA10), cefaclor (CEC, J01MA21), cefadroxil (CFR, J01MA09), cefalexin (LEX, J01MA05), cefaloridine (RID, P01AA05), cefalotin (CEP, J01MA22), cefamandole (MAN, J01MA13), cefapirin (HAP, J01CA01), cefatrizine (CTZ, J01CA04), cefazedone (CZD, J01CA12), cefazolin (CZO, J01CR05), cefcapene (CCP, J01CA13), cefdinir (CDR, J01AA02), cefditoren (DIT, J01FA10), cefepime (FEP, J01FA09), cefetamet (CAT, J01CR02), cefixime (CFM, J01AA08), cefmenoxime (CMX, J01FA06), cefmetazole (CMZ, J01CF04), cefodizime (DIZ, J01CF05), cefonicid (CID, J01CR01), cefoperazone (CFP, J01CA19), cefoperazone/sulbactam (CSL, J01CE04), ceforanide (CND, J01CA09), cefotaxime (CTX, J01DF01), cefotaxime/clavulanic acid (CTC, J01CA06), cefotetan (CTT, J01CE08), cefotiam (CTF, J01CE10), cefoxitin (FOX, J01CE01), cefozopran (ZOP, J01CA03), cefpiramide (CPM, J01CA05), cefpirome (CPO, J01CE07), cefpodoxime (CPD, J01CF02), cefprozil (CPR, J01CF01), cefroxadine (CRD, J01CA07), cefsulodin (CFS, J01CA18), ceftaroline (CPT, J01CA11), ceftazidime (CAZ, J01CA14), ceftazidime/clavulanic acid (CCV, J01CF03), cefteram (CEM, J01CA10), ceftezole (CTL, J01CF06), ceftibuten (CTB, J01CE06), ceftizoxime (CZX, J01CE05), ceftobiprole medocaril (CFM1, J01CE02), ceftolozane/tazobactam (CZT, J01CA02), ceftriaxone (CRO, J01CA08), ceftriaxone/beta-lactamase inhibitor (CEB, J01CE09), cefuroxime (CXM, J01CE03), cephradine (CED, J01CG01), chloramphenicol (CHL, J01CA16), ciprofloxacin (CIP, J01CR04), clarithromycin (CLR, J01CA15), clindamycin (CLI, J01CG02), clometocillin (CLM, J01CA17), cloxacillin (CLO, J01CR03), colistin (COL, J01DB10), cycloserine (CYC, J01DC04), dalbavancin (DAL, J01DB05), daptomycin (DAP, J01DB01), delafloxacin (DFX, J01DB02), dibekacin (DKB, J01DB03), dicloxacillin (DIC, J01DC03), dirithromycin (DIR, J01DB08), doripenem (DOR, J01DB07), doxycycline (DOX, J01DB06), enoxacin (ENX, J01DB04), epicillin (EPC, J01DD17), ertapenem (ETP, J01DD15), erythromycin (ERY, J01DD16), fleroxacin (FLE, J01DE01), flucloxacillin (FLC, J01DD10), flurithromycin (FLR1, J01DD08), fosfomycin (FOS, J01DD05), framycetin (FRM, J01DC09), fusidic acid (FUS, J01DD09), garenoxacin (GRN, J01DC06), gatifloxacin (GAT, J01DD12), gemifloxacin (GEM, J01DD62), gentamicin (GEN, J01DC11), grepafloxacin (GRX, J01DD01), hetacillin (HET, J01DD51), imipenem (IPM, J01DC05), imipenem/relebactam (IMR, J01DC07), isepamicin (ISE, J01DC01), josamycin (JOS, J01DE03), kanamycin (KAN, J01DD11), lascufloxacin (LSC, J01DE02), latamoxef (LTM, J01DD13), levofloxacin (LVX, J01DC10), levonadifloxacin (LND, J01DB11), lincomycin (LIN, J01DD03), linezolid (LNZ, J01DI02), lomefloxacin (LOM, J01DD02), loracarbef (LOR, J01DD52), mecillinam (MEC, J01DD18), meropenem (MEM, J01DB12), meropenem/vaborbactam (MEV, J01DD14), metampicillin (MTM, J01DD07), meticillin (MET, J01DI01), mezlocillin (MEZ, J01DI54), micronomicin (MCR, J01DD04), midecamycin (MID, J01DD63), minocycline (MNO, J01DC02), miocamycin (MCM, J01DB09), moxifloxacin (MFX, J01DD06), nadifloxacin (NAD, J01DC08), nafcillin (NAF, J01DH05), nalidixic acid (NAL, J01DH04), neomycin (NEO, J01DH03), netilmicin (NET, J01DH51), nitrofurantoin (NIT, J01DH56), norfloxacin (, J01DH02), ofloxacin (OFX, J01DH52), oleandomycin (OLE, J01DH55), oritavancin (ORI, J01DH06), oxacillin (OXA, J01XA02), panipenem (PAN, J01XA01), pazufloxacin (PAZ, J01XC01), pefloxacin (PEF, J01FA13), penamecillin (PNM, J01FA01), pheneticillin (PHE, J01FA14), phenoxymethylpenicillin (PHN, J01FA07), piperacillin (PIP, J01FA03), piperacillin/tazobactam (TZP, J01FA11), pivampicillin (PVM, J01FA05), pivmecillinam (PME, J01FA12), plazomicin (PLZ, J01FA16), polymyxin B (PLB, J01FA02), pristinamycin (PRI, J01FA15), procaine benzylpenicillin (PRB, J01FA08), propicillin (PRP, J01FF02), prulifloxacin (PRU, J01FG01), quinupristin/dalfopristin (QDA, J01FG02), ribostamycin (RST, J04AB02), rifampicin (RIF, J01XX09), rokitamycin (ROK, J01XX08), roxithromycin (RXT, J01AA07), rufloxacin (RFL, J01XB01), sisomicin (SIS, J01XB02), sitafloxacin (SIT, J01XE01), solithromycin (SOL, J01AA12), sparfloxacin (SPX, J01EA01), spiramycin (SPI, J01XX01), streptoduocin (STR, J01BA01), streptomycin (STR1, J01GB06), sulbactam (SUL, J01GB12), sulbenicillin (SBC, J01GB13), sulfadiazine (SDI, J01GB09), sulfadiazine/trimethoprim (SLT1, D09AA01), sulfadimethoxine (SUD, J01GB03), sulfadimidine (SDM, J01GB11), sulfadimidine/trimethoprim (SLT2, J01GB04), sulfafurazole (SLF, S01AA22), sulfaisodimidine (SLF1, J01GB05), sulfalene (SLF2, J01GB07), sulfamazone (SZO, J01GB14), sulfamerazine (SLF3, J01GB10), sulfamerazine/trimethoprim (SLT3, J01GB08), sulfamethizole (SLF4, J01GA02), sulfamethoxazole (SMX, J01GA01), sulfamethoxypyridazine (SLF5, J01GB01), sulfametomidine (SLF6, J01EE01), sulfametoxydiazine (SLF7, J01MB02), sulfametrole/trimethoprim (SLT4, J01FF01), sulfamoxole (SLF8, J01XA04), sulfamoxole/trimethoprim (SLT5, J01XA05), sulfanilamide (SLF9, J01XA03), sulfaperin (SLF10, J04AB01), sulfaphenazole (SLF11, J01XX11), sulfapyridine (SLF12, J01EC02), sulfathiazole (SUT, J01ED01), sulfathiourea (SLF13, J01EB03), sultamicillin (SLT6, J01EB05), talampicillin (TAL, J01EB01), tazobactam (TAZ, J01ED02), tebipenem (TBP, J01ED09), tedizolid (TZD, J01ED07), teicoplanin (TEC, J01EB02), telavancin (TLV, J01EC01), telithromycin (TLT, J01ED05), temafloxacin (TMX, J01ED03), temocillin (TEM, J01ED04), tetracycline (TCY, J01EC03), ticarcillin (TIC, J01EB06), ticarcillin/clavulanic acid (TCC, J01ED06), tigecycline (TGC, J01ED08), tilbroquinol (TBQ, J01EB04), tobramycin (TOB, J01EB07), tosufloxacin (TFX, J01EB08), trimethoprim (TMP, J01EE02), trimethoprim/sulfamethoxazole (SXT, J01EE05), troleandomycin (TRL, J01EE07), trovafloxacin (TVA, J01EE03), vancomycin (VAN, J01EE04)","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\") #>  (16 isolates had no test results) 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  #>                  1978                     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() } #>  (16 isolates had no test results) #> Warning: in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) #>  (16 isolates had no test results) #> 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)  #>                             1601                              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 sir mean_amr_distance(x, ..., combine_SI = TRUE)  # S3 method for 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 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] R I I I I S R S I R mean_amr_distance(sir) #>  [1]  1.449138 -0.621059 -0.621059 -0.621059 -0.621059 -0.621059  1.449138 #>  [8] -0.621059 -0.621059  1.449138  mic <- random_mic(10) mic #> Class 'mic' #>  [1] 0.25    1       8       <=0.005 <=0.005 2       0.01    >=256   16      #> [10] 8       mean_amr_distance(mic) #>  [1] -0.27951091  0.09147782  0.64796092 -1.32641444 -1.32641444  0.27697218 #>  [7] -1.14092007  1.57543274  0.83345528  0.64796092 # equal to the Z-score of their log2: (log2(mic) - mean(log2(mic))) / sd(log2(mic)) #>  [1] -0.27951091  0.09147782  0.64796092 -1.32641444 -1.32641444  0.27697218 #>  [7] -1.14092007  1.57543274  0.83345528  0.64796092  disk <- random_disk(10) disk #> Class 'disk' #>  [1] 42 21 38 40 46 49 41 15 29 48 mean_amr_distance(disk) #>  [1]  0.44150742 -1.37646431  0.09522709  0.26836726  0.78778775  1.04749800 #>  [7]  0.35493734 -1.89588481 -0.68390365  0.96092792  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   17  0.5    0.5 #> 2   B    I   22    4    >=8 #> 3   C    R   31    1      2 #> 4   D    R   23    1      1 #> 5   E    R   29    1      1 #> 6   F    I   21    1    >=8 #> 7   G    R   19  0.5    0.5 #> 8   H    S   20  0.5      1 #> 9   I    R   22    2 <=0.25 #> 10  J    S   19    2    0.5 mean_amr_distance(y) #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>  [1] -0.55862477  0.58537655  0.77602663  0.17820212  0.51539668  0.02637631 #>  [7] -0.44622659 -0.72591865  0.07694007 -0.42754836 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    R   31    1      2   0.77602663  0.0000000 #> 2   B    I   22    4    >=8   0.58537655  0.1906501 #> 3   E    R   29    1      1   0.51539668  0.2606300 #> 4   D    R   23    1      1   0.17820212  0.5978245 #> 5   I    R   22    2 <=0.25   0.07694007  0.6990866 #> 6   F    I   21    1    >=8   0.02637631  0.7496503 #> 7   J    S   19    2    0.5  -0.42754836  1.2035750 #> 8   G    R   19  0.5    0.5  -0.44622659  1.2222532 #> 9   A    R   17  0.5    0.5  -0.55862477  1.3346514 #> 10  H    S   20  0.5      1  -0.72591865  1.5019453 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 #> # … with 53 more rows"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 5 910 Common Microorganism Codes — microorganisms.codes","title":"Data Set with 5 910 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 5 910 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 5 910 Common Microorganism Codes — microorganisms.codes","text":"tibble 5 910 observations 2 variables: code Commonly used code microorganism 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 5 910 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, SAS, 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 5 910 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes #> # A tibble: 5,910 × 2 #>    code    mo        #>    <chr>   <mo>      #>  1 _FAM_A- B_GRAMN   #>  2 _FAM_A+ B_GRAMP   #>  3 _FAM_AC B_GRAMP   #>  4 _FAM_AE B_GRAMN   #>  5 _FAM_AN B_GRAMN   #>  6 _FAM_AO B_GRAMP   #>  7 _FAM_AP   UNKNOWN #>  8 _FAM_AS F_FUNGUS  #>  9 _FAM_AT   UNKNOWN #> 10 _FAM_AV   UNKNOWN #> # … with 5,900 more rows"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 52 142 Microorganisms — microorganisms","title":"Data Set with 52 142 Microorganisms — microorganisms","text":"data set containing full microbial taxonomy (last updated: 11 December, 2022) five kingdoms List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF). data set backbone AMR package. MO codes can looked using .mo().","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 52 142 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 52 142 Microorganisms — microorganisms","text":"tibble 52 142 observations 22 variables: mo ID microorganism used package fullname Full name, like \"Escherichia coli\". taxonomic ranks genus, species subspecies, 'pasted' text genus, species, subspecies. taxonomic ranks higher genus, name taxon. status  Status taxon, either \"accepted\" \"synonym\" kingdom, phylum, class, order, family, genus, species, subspecies Taxonomic rank microorganism 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, e.g. \"Váňová\" becomes \"Vanova\". 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. lpsn_parent LPSN identifier parent taxon lpsn_renamed_to LPSN identifier currently valid taxon gbif Identifier ('taxonID') Global Biodiversity Information Facility (GBIF) gbif_parent GBIF identifier parent taxon gbif_renamed_to GBIF identifier currently valid taxon source Either \"GBIF\", \"LPSN\", \"manually added\" (see Source) prevalence Prevalence microorganism according Bartlett et al. (2022, doi:10.1099/mic.0.001269 ), see mo_matching_score() full explanation snomed Systematized Nomenclature Medicine (SNOMED) code microorganism, version 1 July, 2021 (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 52 142 Microorganisms — microorganisms","text":"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 11 December, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org 11 December, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov 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 52 142 Microorganisms — microorganisms","text":"Please note entries based List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (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 52 142 Microorganisms — microorganisms","text":"Included taxonomic data : ~36 000 (sub)species kingdoms Archaea Bacteria ~7 900 (sub)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). ~5 100 (sub)species kingdom Protozoa ~1 400 (sub)species ~40 relevant genera kingdom Animalia (Strongyloides Taenia) ~9 800 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 52 142 Microorganisms — microorganisms","text":"convenience, entries added manually: ~1 500 entries city-like serovars Salmonellae 11 entries Streptococcus (beta-haemolytic: groups , B, C, D, F, G, H, K unspecified; : viridans, milleri) 2 entries Staphylococcus (coagulase-negative (CoNS) coagulase-positive (CoPS)) 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 6 'undefined' entries (unknown, unknown Gram negatives, unknown Gram positives, unknown yeast, unknown fungus, unknown anaerobic bacteria) syntax used transform original data cleansed R format, can found : https://github.com/msberends/AMR/blob/main/data-raw/reproduction_of_microorganisms.R.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Set with 52 142 Microorganisms — microorganisms","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"about-the-records-from-lpsn-see-source-","dir":"Reference","previous_headings":"","what":"About the Records from LPSN (see Source)","title":"Data Set with 52 142 Microorganisms — microorganisms","text":"LPSN main source bacteriological taxonomy AMR package. List Prokaryotic names Standing Nomenclature (LPSN) provides comprehensive information nomenclature prokaryotes. LPSN free use service founded Jean P. Euzeby 1997 later maintained Aidan C. Parte.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 52 142 Microorganisms — microorganisms","text":"","code":"microorganisms #> # A tibble: 52,142 × 22 #>    mo               fullname      status kingdom phylum class order family genus #>    <mo>             <chr>         <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> #>  1 B_GRAMN          (unknown Gra… accep… Bacter… (unkn… \"(un… \"(un… \"(unk… \"(un… #>  2 B_GRAMP          (unknown Gra… accep… Bacter… (unkn… \"(un… \"(un… \"(unk… \"(un… #>  3 B_ANAER          (unknown ana… accep… Bacter… (unkn… \"(un… \"(un… \"(unk… \"(un… #>  4 F_FUNGUS         (unknown fun… accep… Fungi   (unkn… \"(un… \"(un… \"(unk… \"(un… #>  5   UNKNOWN        (unknown nam… accep… (unkno… (unkn… \"(un… \"(un… \"(unk… \"(un… #>  6 F_YEAST          (unknown yea… accep… Fungi   (unkn… \"(un… \"(un… \"(unk… \"(un… #>  7 B_[FAM]_ABDTBCTR Abditibacter… accep… Bacter… Abdit… \"Abd… \"Abd… \"Abdi… \"\"    #>  8 B_[ORD]_ABDTBCTR Abditibacter… accep… Bacter… Abdit… \"Abd… \"Abd… \"\"     \"\"    #>  9 B_[CLS]_ADTBCTRA Abditibacter… accep… Bacter… Abdit… \"Abd… \"\"    \"\"     \"\"    #> 10 B_[PHL]_ABDTBCTR Abditibacter… accep… Bacter… Abdit… \"\"    \"\"    \"\"     \"\"    #> # … with 52,132 more rows, and 13 more variables: species <chr>, #> #   subspecies <chr>, rank <chr>, ref <chr>, source <chr>, lpsn <chr>, #> #   lpsn_parent <chr>, lpsn_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 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.","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 = 2, Protozoa = 3, Archaea = 4, others = 5. 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.0 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, genus present established list also prevalence = 1.0 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.5 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chrysonilia, Cladophialophora, Cladosporium, Conidiobolus, Contracaecum, Cordylobia, Cryptococcus, Curvularia, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Giardia, Haloarcula, Halobacterium, Halococcus, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hymenolepis, Hypomyces, Hysterothylacium, Leishmania, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Mortierella, Mucor, Mycocentrospora, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Pediculus, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoterranova, Pulex, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Sarcoptes, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Stachybotrys, Strongyloides, Syngamus, Taenia, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Wuchereria; 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.159\\), 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, SAS, 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":"author","dir":"Reference","previous_headings":"","what":"Author","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"Dr. Matthijs Berends, 2018","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) #>              Based on input \"E coli\" #> Also matched: Enterobacter cowanii (0.600), Eubacterium combesii #>               (0.600), Eggerthia catenaformis (0.591), Eubacterium callanderi #>               (0.591), Enterocloster citroniae (0.587), Eubacterium cylindroides #>               (0.583), Enterococcus casseliflavus (0.577), Enterobacter cloacae #>               cloacae (0.571), Ehrlichia canis (0.567), 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.1587302"},{"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_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_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_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\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_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() named character case 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) mo_ref(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Hormaeche et al., 1960\" (warning) 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 fungi phylum Ascomycota, class Saccharomycetes (also called Hemiascomycetes). True yeasts aggregated underlying order Saccharomycetales. Thus, microorganisms member taxonomic class Saccharomycetes, 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). function mo_url() return direct URL online database entry, also shows scientific reference concerned species. SNOMED codes (mo_snomed()) version 1 July, 2021. 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 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 Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571 Berends MS et al. (2022). Trends Occurrence Phenotypic Resistance Coagulase-Negative Staphylococci (CoNS) Found Human Blood Northern Netherlands 2013 2019 Microorganisms 10(9), 1801; doi:10.3390/microorganisms10091801 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 11 December, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org 11 December, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microoganism', 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, SAS, 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   # 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_lpsn(\"Klebsiella aerogenes\") #> [1] \"777146\" mo_gbif(\"Klebsiella aerogenes\") #> [1] \"9281703\" mo_synonyms(\"Klebsiella aerogenes\") #>   Hormaeche et al., 1960     Bascomb et al., 1971  #> \"Enterobacter aerogenes\"     \"Klebsiella mobilis\"    # 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\" #>  #> $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\" #>  #> $url #> [1] \"https://lpsn.dsmz.de/species/klebsiella-pneumoniae\" #>  #> $ref #> [1] \"Trevisan, 1887\" #>  #> $snomed #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\"        #>  # }"},{"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\"`, `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 for Classes sir, mic and disk — plot","title":"Plotting for Classes sir, mic and disk — plot","text":"Functions plot classes sir, mic disk, support base R ggplot2.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Plotting for Classes sir, mic and disk — plot","text":"","code":"# S3 method for 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,   ... )  # S3 method for 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,   ... )  # S3 method for mic fortify(object, ...)  # S3 method for 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,   ... )  # S3 method for 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,   ... )  # S3 method for disk fortify(object, ...)  # S3 method for 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 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 sir fortify(object, ...)"},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Plotting for Classes sir, mic and disk — plot","text":"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. ... arguments passed methods","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Plotting for Classes sir, mic and disk — 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 for Classes sir, mic and disk — 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 2022\", \"EUCAST 2021\", \"EUCAST 2020\", \"EUCAST 2019\", \"EUCAST 2018\", \"EUCAST 2017\", \"EUCAST 2016\", \"EUCAST 2015\", \"EUCAST 2014\", \"EUCAST 2013\", \"CLSI 2022\", \"CLSI 2021\", \"CLSI 2020\", \"CLSI 2019\", \"CLSI 2018\", \"CLSI 2017\", \"CLSI 2016\", \"CLSI 2015\", \"CLSI 2014\", \"CLSI 2013\". Simply using \"CLSI\" \"EUCAST\" input automatically select latest version guideline.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Plotting for Classes sir, mic and disk — 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 = \"uk\")   # \\donttest{ 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\" )  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\", \"\", \"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\". 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 must merged one, output consists S+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":"function resistance() equal function proportion_R(). function susceptibility() equal function proportion_SI(). 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. Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine data set one four available algorithms. 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    #> # … with 1,990 more rows, and 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>   # 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  # 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) #> [1] 0.4044444 proportion_I(example_isolates$AMX) #> [1] 0.002222222 proportion_IR(example_isolates$AMX) #> [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 2022 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] 32    2     1     2     32    0.005 8     64    128   128   256   16    #> [13] 0.005 0.01  16    0.5   4     0.001 2     64    0.001 0.002 16    0.01  #> [25] 128   random_disk(25) #> Class 'disk' #>  [1] 48 19 44 26 24 40 49  9 50 47 12 47 34 17 37 13 47 21 36 20 29  6 30 49 43 random_sir(25) #> Class 'sir' #>  [1] S I S S S I I S S R I I R R S I I S I S S R I R I  # \\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] 32      64      8       0.5     0.25    8       0.0625  32      16      #> [10] 0.0625  <=0.001 0.25    2       0.005   0.125   0.01    0.025   0.025   #> [19] 0.5     32      0.025   16      32      >=128   2       random_mic(25, \"Klebsiella pneumoniae\", \"meropenem\") # range 0.0625-16 #> Class 'mic' #>  [1] 8    0.5  2    16   1    8    1    0.25 0.5  2    8    8    1    4    8    #> [16] 1    2    16   16   2    16   2    0.5  4    8    random_mic(25, \"Streptococcus pneumoniae\", \"meropenem\") # range 0.0625-4 #> Class 'mic' #>  [1] 0.5   >=8   1     0.25  1     2     >=8   0.125 0.25  0.125 0.25  1     #> [13] 0.125 0.25  0.25  0.25  >=8   0.125 0.5   0.25  0.125 0.25  1     0.5   #> [25] 0.125  random_disk(25, \"Klebsiella pneumoniae\") # range 8-50 #> Class 'disk' #>  [1] 41 35 31 49 20 49 19 45 43 17 45 47 40 28 19 48 11 40 13 28 48 39 20 17 23 random_disk(25, \"Klebsiella pneumoniae\", \"ampicillin\") # range 11-17 #> Class 'disk' #>  [1] 11 11 15 15 14 17 12 16 17 14 12 11 11 16 13 14 14 12 17 14 14 11 12 14 13 random_disk(25, \"Streptococcus pneumoniae\", \"ampicillin\") # range 12-27 #> Class 'disk' #>  [1] 21 23 27 25 16 16 20 20 23 23 18 19 15 23 15 24 22 25 21 17 25 15 16 18 22 # }"},{"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 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 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) #>  #> Deviance Residuals:  #>     Min       1Q   Median       3Q      Max   #> -1.4150  -0.1855   0.0000   0.4096   0.9277   #>  #> Coefficients: #>             Estimate Std. Error z value Pr(>|z|) #> (Intercept) 47.02915   72.98739   0.644    0.519 #> year        -0.02280    0.03637  -0.627    0.531 #>  #> (Dispersion parameter for binomial family taken to be 1) #>  #>     Null deviance: 5.9620  on 11  degrees of freedom #> Residual deviance: 5.5701  on 10  degrees of freedom #> AIC: 50.533 #>  #> 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)  # S3 method for default skewness(x, na.rm = FALSE)  # S3 method for matrix skewness(x, na.rm = FALSE)  # S3 method for 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.0009699827"},{"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(\"Spanish\") #> ℹ Using Spanish (Español) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacina\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Staphylococcus coagulasa negativo (SCN)\"  # setting yet another language set_AMR_locale(\"Greek\") #> ℹ Using Greek (Ελληνικά) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Σιπροφλοξασίνη\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Σταφυλόκοκκος με αρνητική πηκτικότητα (CoNS)\"  # setting yet another language set_AMR_locale(\"Ukrainian\") #> ℹ Using Ukrainian (Українська) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ципрофлоксацин\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Коагулазонегативний стафілокок (КНС)\"  # 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-1829148","dir":"Changelog","previous_headings":"","what":"AMR 1.8.2.9148","title":"AMR 1.8.2.9148","text":"(beta version eventually become v2.0! ’re happy reach new major milestone soon!) new major release AMR package, great new additions also breaking changes current users. listed . TL;DR functions arguments ‘rsi’ replaced ‘sir’, interpretation MIC values (now .sir() instead .rsi()) - old functions still work now Many new interesting functions, antibiogram() (generating traditional/combined/syndromic/WISCA antibiograms), sir_confidence_interval() mean_amr_distance(), add_custom_microorganisms() add custom microorganisms package Clinical breakpoints added EUCAST 2022 CLSI 2022 Microbiological taxonomy (microorganisms data set) updated 2022 now based LPSN GBIF Much increased algorithms translate user input valid taxonomy, e.g. using recent scientific work per-species human pathogenicity 20 new antibiotics added updated DDDs ATC codes Extended support antiviral agents (antivirals data set), many new functions Now available 20 languages Many small bug fixes","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/news/index.html","id":"sir-vs-rsi-1-8-2-9148","dir":"Changelog","previous_headings":"New","what":"SIR vs. RSI","title":"AMR 1.8.2.9148","text":"milestone version, replaced mentions RSI SIR, comply actually commonly used field clinical microbiology comes tri-form regarding AMR. existing functions .rsi(), rsi_df() ggplot_rsi() still work, replacements .sir(), sir_df(), ggplot_sir() now current functions AMR data analysis. warning thrown session remind users . data set rsi_translation now called clinical_breakpoints better reflect content. ‘RSI functions’ removed future version, late 2023 / early 2024.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"new-antibiogram-function-1-8-2-9148","dir":"Changelog","previous_headings":"New","what":"New antibiogram function","title":"AMR 1.8.2.9148","text":"new antibiogram() function, users can now generate traditional, combined, syndromic, even weighted-incidence syndromic combination antibiograms (WISCA). , follow logic previously described work Klinker et al. (2021, DOI 10.1177/20499361211011373) Barbieri et al. (2021, DOI 10.1186/s13756-021-00939-2). help page antibiogram() extensively elaborates use cases, antibiogram() also supports printing R Markdown Quarto, support 20 languages. Furthermore, different plotting methods implemented allow graphical visualisations well.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"interpretation-of-mic-and-disk-diffusion-values-1-8-2-9148","dir":"Changelog","previous_headings":"New","what":"Interpretation of MIC and disk diffusion values","title":"AMR 1.8.2.9148","text":"clinical breakpoints intrinsic resistance EUCAST 2022 CLSI 2022 added .sir(). EUCAST 2022 (v12.0) now new default guideline MIC disks diffusion interpretations, eucast_rules() apply EUCAST Expert Rules. default guideline (EUCAST) can now changed new AMR_guideline option, : options(AMR_guideline = \"CLSI 2020\"). new arguments include_PKPD (default: TRUE) include_screening (default: FALSE), users can now specify whether breakpoints screening PK/PD table included interpreting MICs disks diffusion values. options can set globally, can read new manual. Interpretation guidelines older 10 years removed, oldest now included guidelines EUCAST CLSI 2013.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"supported-languages-1-8-2-9148","dir":"Changelog","previous_headings":"New","what":"Supported languages","title":"AMR 1.8.2.9148","text":"added support following ten languages: Chinese (simplified), Czech, Finnish, Greek, Japanese, Norwegian (bokmål), Polish, Romanian, Turkish Ukrainian. antibiotic names now available languages, AMR package automatically determine supported language based user’s system language. grateful valuable input colleagues countries. AMR package now available 20 languages total, according download stats used almost countries world!","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"microbiological-taxonomy-1-8-2-9148","dir":"Changelog","previous_headings":"New","what":"Microbiological taxonomy","title":"AMR 1.8.2.9148","text":"microorganisms data set longer relies Catalogue Life, List Prokaryotic names Standing Nomenclature (LPSN) supplemented ‘backbone taxonomy’ Global Biodiversity Information Facility (GBIF). structure data set changed include separate LPSN GBIF identifiers. Almost previous MO codes retained. contains 1,400 taxonomic names 2022. previously relied experience categorise species pathogenic groups, happy encounter recent work Bartlett et al. (2022, DOI 10.1099/mic.0.001269) extensively studied medical-scientific literature categorise bacterial species groups. See mo_matching_score() work incorporated prevalence column microorganisms data set. Using results, .mo() mo_*() functions now much better capable converting user input valid taxonomic records. new function add_custom_microorganisms() allows users add custom microorganisms AMR package. also made following changes regarding included taxonomy microorganisms functions: Updated full microbiological taxonomy according latest daily LPSN data set (December 2022) latest yearly GBIF taxonomy backbone (November 2022) Support 1,516 city-like serovars Salmonella, Salmonella Goldcoast. Formally, serovars belonging S. enterica species, reported name genus city. reason, serovars subspecies column microorganisms data set “enterica” species column, full name contain species name (enterica). new argument keep_synonyms allows correct updated taxonomy, favour now deleted argument allow_uncertain increased tremendously speed returns generally consequent results Sequential coercion now extremely fast results stored package environment, although coercion unknown values must run per session. Previous results can reset/removed new mo_reset_session() function. Support microorganism codes ASIan Antimicrobial Resistance Surveillance Network (ASIARS-Net) MO matching score algorithm (mo_matching_score()) now counts deletions substitutions 2 instead 1, impacts outcome .mo() mo_*() function CRAN allows packages around 5 MB maximum, packages exempted package one Chromista relevant comes antimicrobial resistance, thus lacking primary scope package Chromista almost never clinically relevant, thus lacking secondary scope package microorganisms.old data set removed, previously accepted names now included microorganisms data set. new column status contains \"accepted\" currently accepted names \"synonym\" taxonomic synonyms; currently invalid names. previously accepted names now microorganisms ID - available - LPSN, GBIF SNOMED CT identifier.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"antibiotic-agents-and-selectors-1-8-2-9148","dir":"Changelog","previous_headings":"New","what":"Antibiotic agents and selectors","title":"AMR 1.8.2.9148","text":"new function add_custom_antimicrobials() allows users add custom antimicrobial codes names AMR package. antibiotics data set greatly updated: following 20 antibiotics added (also includes new J01RA ATC group): azithromycin/fluconazole/secnidazole (AFC), cefepime/amikacin (CFA), cefixime/ornidazole (CEO), ceftriaxone/beta-lactamase inhibitor (CEB), ciprofloxacin/metronidazole (CIM), ciprofloxacin/ornidazole (CIO), ciprofloxacin/tinidazole (CIT), furazidin (FUR), isoniazid/sulfamethoxazole/trimethoprim/pyridoxine (IST), lascufloxacin (LSC), levofloxacin/ornidazole (LEO), nemonoxacin (NEM), norfloxacin/metronidazole (NME), norfloxacin/tinidazole (NTI), ofloxacin/ornidazole (OOR), oteseconazole (OTE), rifampicin/ethambutol/isoniazid (REI), sarecycline (SRC), tetracycline/oleandomycin (TOL), thioacetazone (TAT) Added missing ATC codes Updated DDDs PubChem Compound IDs Updated antibiotic name spelling, now used WHOCC (cephalexin -> cefalexin, phenethicillin -> pheneticillin) Antibiotic code “CEI” ceftolozane/tazobactam replaced “CZT” comply EARS-Net WHONET 2022. old code still work cases using .ab() ab_*() functions. Support antimicrobial interpretation anaerobic bacteria, adding ‘placeholder’ code B_ANAER microorganisms data set adding breakpoints anaerobics clinical_breakpoints data set, used .sir() interpretion MIC disk diffusion values Also, added support using antibiotic selectors scoped dplyr verbs (without using vars()), : ... %>% summarise_at(aminoglycosides(), resistance), please see resistance() examples.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"antiviral-agents-1-8-2-9148","dir":"Changelog","previous_headings":"New","what":"Antiviral agents","title":"AMR 1.8.2.9148","text":"now added extensive support antiviral agents! first time, AMR package extensive support antiviral drugs work names, codes data way. antivirals data set extended 18 new drugs (also new J05AJ ATC group) now also contains antiviral identifiers LOINC codes new data type av (antivirals) added, functionally similar ab antibiotics Functions .av(), av_name(), av_atc(), av_synonyms(), av_from_text() added siblings ab_*() equivalents","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"other-new-functions-1-8-2-9148","dir":"Changelog","previous_headings":"New","what":"Other new functions","title":"AMR 1.8.2.9148","text":"Function sir_confidence_interval() add confidence intervals AMR calculation. now also included sir_df() proportion_df(). Function mean_amr_distance() calculate mean AMR distance. mean AMR distance normalised numeric value compare AMR test results can help identify similar isolates, without comparing antibiograms hand. Function sir_interpretation_history() view history previous runs .sir() (previously .rsi()). returns ‘logbook’ selected guideline, reference table specific interpretation row data set .sir() run. Function mo_current() get currently valid taxonomic name microorganism Function add_custom_antimicrobials() add custom antimicrobial codes names AMR package","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"changes-1-8-2-9148","dir":"Changelog","previous_headings":"","what":"Changes","title":"AMR 1.8.2.9148","text":"Gained argument new_after_days determine episodes based epidemic periods Fix working NA values Fix unsorted dates length 2 Now returns class integer instead numeric since always whole numbers Argument combine_IR removed package (affecting functions count_df(), proportion_df(), sir_df() plotting functions), since replaced combine_SI three years ago Using units ab_ddd(..., units = \"...\") deprecated time now supported anymore. Use ab_ddd_units() instead. Support data.frame-enhancing R packages, specifically: data.table::data.table, janitor::tabyl, tibble::tibble, tsibble::tsibble. AMR package functions data set output (sir_df() bug_drug_combinations()), now return data type input. data sets package now tibble, instead base R data.frames. Older R versions still supported, even support tibbles. data sets now also continually exported Apache Feather Apache Parquet formats. can find info article website. Fixed certain EUCAST breakpoints MIC values Allow NA values (e.g. .sir(.disk(NA), ...)) Fix bug-drug combinations multiple breakpoints different body sites Interpretation MIC disk zones now informative availability breakpoints robust Removed .integer() method MIC values, since MIC integer values running table() MIC values consequently failed able retrieve level position (’s normally .integer() factors work) Fixed determination Gram stains (mo_gramstain()), since taxonomic phyla Actinobacteria, Chloroflexi, Firmicutes, Tenericutes renamed respectively Actinomycetota, Chloroflexota, Bacillota, Mycoplasmatota 2021 droplevels() MIC now return common factor default lose mic class. Use droplevels(..., .mic = TRUE) keep mic class. Small fix using ab_from_text() Fixes reading text files using set_mo_source(), now also allows source file contain valid taxonomic names instead valid microorganism ID package Fixed bug mdro() using similar column names Magiorakos guideline Using random_*() function (random_mic()) now possible directly calling package without loading first: AMR::random_mic(10) Extended support vctrs package, used internally tidyverse. allows change values class mic, disk, sir, mo ab tibbles, use antibiotic selectors selecting/filtering, e.g. df[carbapenems() == \"R\", ] Fix using info = FALSE mdro() interpretation guidelines using .sir() amoxicillin, rules ampicillin used amoxicillin rules available Fix using ab_atc() non-existing ATC codes Black white message texts now reversed colour using RStudio dark theme mo_snomed() now returns class character, numeric anymore (make long SNOMED codes readable) Fix using .ab() NA values Updated support WHONET 2022 microorganism codes Antimicrobial interpretation ‘SDD’ (susceptible dose-dependent, coined CLSI) interpreted ‘’ comply EUCAST’s ‘’ .sir() Fix mo_shortname() case higher taxonomic ranks (order, class, phylum) Cleaning columns .sir(), .mic(), .disk() now show column name warning invalid results Fix using g.test() zeroes 2x2 table mo_synonyns() now contains scientific reference names","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"other-1-8-2-9148","dir":"Changelog","previous_headings":"","what":"Other","title":"AMR 1.8.2.9148","text":"Added Peter Dutey-Magni, Dmytro Mykhailenko, Anton Mymrikov, Andrew Norgan, Jonas Salm, Anita Williams contributors, thank valuable input New website make use new Bootstrap 5 pkgdown 2.0. website now contains results examples automatically regenerated every change repository, using GitHub Actions R Rmd files project now styled using styler package Set scalar conditional expressions (&& ||) possible comply upcoming R 4.3 enormous lot code cleaning, fixing small bugs along way changelog contains changes AMR v2.0 later. prior versions, please see 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. 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     #> # … with 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 11 Dec 2022. 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) #>              Based on input \"E coli\" #> Also matched: Enterobacter cowanii (0.600), Eubacterium combesii #>               (0.600), Eggerthia catenaformis (0.591), Eubacterium callanderi #>               (0.591), Enterocloster citroniae (0.587), Eubacterium cylindroides #>               (0.583), Enterococcus casseliflavus (0.577), Enterobacter cloacae #>               cloacae (0.571), Ehrlichia canis (0.567), and Enterobacter cloacae #>               dissolvens (0.565) #> -------------------------------------------------------------------------------- #> \"K. pneumoniae\" -> Klebsiella pneumoniae (B_KLBSL_PNMN, 0.786) #>                    Based on input \"K pneumoniae\" #> 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), Kosakonia pseudosacchari (0.361), Kaistella #>               palustris (0.333), Kocuria palustris (0.333), and Kocuria pelophila #>               (0.333) #> -------------------------------------------------------------------------------- #> \"S. aureus\" -> Staphylococcus aureus (B_STPHY_AURS, 0.690) #>                Based on input \"S aureus\" #> Also matched: Staphylococcus aureus aureus (0.643), Staphylococcus #>               argenteus (0.625), Staphylococcus aureus anaerobius (0.625), #>               Streptomyces argenteolus (0.483), Streptomyces aureus (0.474), #>               Streptomyces azureus (0.467), Streptomyces aureorectus (0.444), #>               Streptomyces auratus (0.433), Streptomyces aurantiogriseus (0.429), and #>               Streptomyces aureocirculatus (0.429) #> -------------------------------------------------------------------------------- #> \"S. pneumoniae\" -> Streptococcus pneumoniae (B_STRPT_PNMN, 0.750) #>                    Based on input \"S pneumoniae\" #> Also matched: Streptococcus pseudopneumoniae (0.700), Serratia #>               proteamaculans quinovora (0.545), Streptococcus pseudoporcinus (0.536), #>               Staphylococcus pseudintermedius (0.532), Serratia proteamaculans #>               proteamaculans (0.526), Salmonella Portanigra (0.524), Sphingomonas #>               paucimobilis (0.520), Streptococcus pluranimalium (0.519), #>               Streptococcus constellatus pharyngis (0.514), and Salmonella Pakistan #>               (0.500) #>  #> 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     #> # … with 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: 88% suitable resistance analysis! can now filter filter() function, also dplyr package: future use, two syntaxes can shortened: end 2 626 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 #> Including isolates from ICU. #> => Found 2,626 'phenotype-based' first isolates (87.6% within scope and #>    87.5% 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,626 × 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 P10        A        2015-12-10 B_ESCHR_COLI S     I     S     S     TRUE  #>  4 B7         A        2015-03-02 B_ESCHR_COLI S     S     S     S     TRUE  #>  5 W3         A        2018-03-31 B_STPHY_AURS R     S     R     S     TRUE  #>  6 J8         A        2016-06-14 B_ESCHR_COLI R     S     S     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  #> # … with 2,616 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:2626        Length:2626        Min.   :2011-01-01   #>  Class :character   Class :character   1st Qu.:2013-04-14   #>  Mode  :character   Mode  :character   Median :2015-06-05   #>                                        Mean   :2015-06-15   #>                                        3rd Qu.:2017-08-23   #>                                        Max.   :2020-01-01   #>    bacteria               AMX                    AMC                 #>  Class :mo             Class:sir              Class:sir              #>  <NA>  :0              %R   :43.2% (n=1134)   %R   :36.1% (n=947)    #>  Unique:4              %SI  :56.8% (n=1492)   %SI  :63.9% (n=1679)   #>  #1    :B_ESCHR_COLI   - %S :41.1% (n=1080)   - %S :52.7% (n=1383)   #>  #2    :B_STPHY_AURS   - %I :15.7% (n=412)    - %I :11.3% (n=296)    #>  #3    :B_STRPT_PNMN                                                 #>     CIP                    GEN                  first         #>  Class:sir              Class:sir              Mode:logical   #>  %R   :42.0% (n=1102)   %R   :37.0% (n=971)    TRUE:2626      #>  %SI  :58.0% (n=1524)   %SI  :63.0% (n=1655)                  #>  - %S :51.9% (n=1362)   - %S :59.9% (n=1574)                  #>  - %I : 6.2% (n=162)    - %I : 3.1% (n=81)                    #>   glimpse(our_data_1st) #> Rows: 2,626 #> Columns: 9 #> $ patient_id <chr> \"J3\", \"R7\", \"P10\", \"B7\", \"W3\", \"J8\", \"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, 2015-12-10, 2015-03-02, 2018-03-31… #> $ bacteria   <mo> \"B_ESCHR_COLI\", \"B_KLBSL_PNMN\", \"B_ESCHR_COLI\", \"B_ESCHR_COL… #> $ AMX        <sir> R, R, S, S, R, R, R, S, S, S, S, R, S, S, R, R, R, R, I, S,… #> $ AMC        <sir> I, I, I, S, S, S, S, S, S, S, S, S, S, S, S, S, S, R, S, R,… #> $ CIP        <sir> S, S, S, S, R, S, 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       1808          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          1250 #> 2 Staphylococcus aureus      661 #> 3 Streptococcus pneumoniae   399 #> 4 Klebsiella pneumoniae      316"},{"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,626 × 2 #>    date       GEN   #>    <date>     <sir> #>  1 2012-11-21 S     #>  2 2018-04-03 S     #>  3 2015-12-10 S     #>  4 2015-03-02 S     #>  5 2018-03-31 S     #>  6 2016-06-14 S     #>  7 2015-10-25 S     #>  8 2019-06-19 S     #>  9 2015-04-27 S     #> 10 2011-06-21 S     #> # … with 2,616 more rows  our_data_1st %>%   select(bacteria, betalactams()) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 2,626 × 3 #>    bacteria     AMX   AMC   #>    <mo>         <sir> <sir> #>  1 B_ESCHR_COLI R     I     #>  2 B_KLBSL_PNMN R     I     #>  3 B_ESCHR_COLI S     I     #>  4 B_ESCHR_COLI S     S     #>  5 B_STPHY_AURS R     S     #>  6 B_ESCHR_COLI 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     #> # … with 2,616 more rows  our_data_1st %>%   select(bacteria, where(is.sir)) #> # A tibble: 2,626 × 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 S     I     S     S     #>  4 B_ESCHR_COLI S     S     S     S     #>  5 B_STPHY_AURS R     S     R     S     #>  6 B_ESCHR_COLI R     S     S     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     #> # … with 2,616 more rows  # filtering using AB selectors is also possible: our_data_1st %>%   filter(any(aminoglycosides() == \"R\")) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) #> # A tibble: 971 × 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  #> # … with 961 more rows  our_data_1st %>%   filter(all(betalactams() == \"R\")) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 471 × 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 I7         A        2015-08-19 B_ESCHR_COLI R     R     S     S     TRUE  #>  6 N3         A        2014-12-29 B_STRPT_PNMN R     R     R     S     TRUE  #>  7 Q2         A        2019-09-22 B_ESCHR_COLI R     R     S     S     TRUE  #>  8 X7         A        2011-03-20 B_ESCHR_COLI R     R     S     R     TRUE  #>  9 C5         A        2015-08-30 B_KLBSL_PNMN R     R     S     R     TRUE  #> 10 W9         A        2013-10-02 B_ESCHR_COLI R     R     S     S     TRUE  #> # … with 461 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: 471 × 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 I7         A        2015-08-19 B_ESCHR_COLI R     R     S     S     TRUE  #>  6 N3         A        2014-12-29 B_STRPT_PNMN R     R     R     S     TRUE  #>  7 Q2         A        2019-09-22 B_ESCHR_COLI R     R     S     S     TRUE  #>  8 X7         A        2011-03-20 B_ESCHR_COLI R     R     S     R     TRUE  #>  9 C5         A        2015-08-30 B_KLBSL_PNMN R     R     S     R     TRUE  #> 10 W9         A        2013-10-02 B_ESCHR_COLI R     R     S     S     TRUE  #> # … with 461 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":"package comes antibiogram(), function automatically generates traditional, combined, syndromic, even weighted-incidence syndromic combination antibiograms (WISCA). R Markdown (page) automatically prints right table format. suggestions generate different antibiograms: Antibiograms can plotted using autoplot() ggplot2 packages, since package provides extension function:  calculate antimicrobial resistance sensible way, also correcting results, use resistance() susceptibility() functions.","code":"# traditional: antibiogram(our_data_1st) antibiogram(our_data_1st,   ab_transform = \"name\" ) antibiogram(our_data_1st,   ab_transform = \"name\",   language = \"es\" ) # support for 20 languages # combined: antibiogram(our_data_1st,   antibiotics = c(\"AMC\", \"AMC+CIP\", \"AMC+GEN\") ) # for a syndromic antibiogram, we must fake some clinical conditions: our_data_1st$condition <- sample(c(\"Cardial\", \"Respiratory\", \"Rheumatic\"),   size = nrow(our_data_1st),   replace = TRUE )  # syndromic: antibiogram(our_data_1st,   syndromic_group = \"condition\" ) antibiogram(our_data_1st,   # you can use AB selectors here as well:   antibiotics = c(penicillins(), aminoglycosides()),   syndromic_group = \"condition\",   mo_transform = \"gramstain\" ) #> ℹ For penicillins() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) # WISCA: # (we lack some details, but it could contain a filter on e.g. >65 year-old males) wisca <- antibiogram(our_data_1st,   antibiotics = c(\"AMC\", \"AMC+CIP\", \"AMC+GEN\"),   syndromic_group = \"condition\",   mo_transform = \"gramstain\" ) wisca 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.4318355 our_data_1st %>%   group_by(hospital) %>%   summarise(amoxicillin = resistance(AMX)) #> # A tibble: 3 × 2 #>   hospital amoxicillin #>   <chr>          <dbl> #> 1 A              0.343 #> 2 B              0.569 #> 3 C              0.375"},{"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.3, 2021). 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: (16 isolates test results) Frequency table Class: factor > ordered (numeric) Length: 2,000 Levels: 4: Negative < Multi-drug-resistant (MDR) < Extensively drug-resistant … Available: 1,729 (86.45%, NA: 271 = 13.55%) 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            I          S            S            I #> 2          S         S            S          I            I            I #> 3          I         R            S          I            I            I #> 4          I         I            R          I            S            R #> 5          R         I            I          S            R            R #> 6          R         I            S          R            I            R #>   kanamycin #> 1         I #> 2         S #> 3         R #> 4         S #> 5         I #> 6         S 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) 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 9.577e-17 #> 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/SPSS.html","id":"spss-sas-stata","dir":"Articles","previous_headings":"","what":"SPSS / SAS / Stata","title":"How to import data from SPSS / SAS / Stata","text":"SPSS (Statistical Package Social Sciences) probably well-known software package statistical analysis. SPSS easier learn R, SPSS click menu run parts analysis. user-friendliness, taught universities particularly useful students new statistics. experience, guess pretty much (bio)medical students know time graduate. SAS Stata comparable statistical packages popular big industries.","code":""},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"compared-to-r","dir":"Articles","previous_headings":"","what":"Compared to R","title":"How to import data from SPSS / SAS / Stata","text":"said, SPSS easier learn R. SPSS, SAS Stata come major downsides comparing R: R highly modular. official R network (CRAN) features 16,000 packages time writing, AMR package one . packages peer-reviewed publication. Aside official channel, also developers choose submit CRAN, rather keep public repository, like GitHub. may even lot 14,000 packages . Bottom line , can really extend ask somebody . Take example AMR package. Among things, adds reliable reference data R help data cleaning analysis. SPSS, SAS Stata never know valid MIC value Gram stain E. coli . species Klebiella resistant amoxicillin Floxapen® trade name flucloxacillin. facts properties often needed clean existing data, inconvenient software package without reliable reference data. See demonstration. R extremely flexible. write syntax , can anything want. flexibility transforming, arranging, grouping summarising data, drawing plots, endless - SPSS, SAS Stata bound algorithms format styles. may bit flexible, can probably never create specific publication-ready plot without using (paid) software. sometimes write syntaxes SPSS run complete analysis ‘automate’ work, lot less time R. notice writing syntaxes R lot nifty clever SPSS. Still, working statistical package, knowledge (statistically) willing accomplish. R can easily automated. last years, R Markdown really made interesting development. R Markdown, can easily produce reports, whether format Word, PowerPoint, website, PDF document just raw data Excel. even allows use reference file containing layout style (e.g. fonts colours) organisation. use lot generate weekly monthly reports automatically. Just write code enjoy automatically updated reports interval like. even professional environment, create Shiny apps: live manipulation data using custom made website. webdesign knowledge needed (JavaScript, CSS, HTML) almost zero. R huge community. Many R users just ask questions websites like StackOverflow.com, largest online community programmers. time writing, 483 254 R-related questions already asked platform (covers questions answers programming language). experience, questions answered within couple minutes. R understands data type, including SPSS/SAS/Stata. ’s vice versa ’m afraid. can import data source R. example SPSS, SAS Stata (link), Minitab, Epi Info EpiData (link), Excel (link), flat files like CSV, TXT TSV (link), directly databases datawarehouses anywhere world (link). can even scrape websites download tables live internet (link) get results API call transform data one command (link). best part - can export R data formats well. can import SPSS file, analysis neatly R export resulting tables Excel files sharing. R completely free open-source. strings attached. created maintained volunteers believe (data) science open publicly available everybody. SPSS, SAS Stata quite expensive. IBM SPSS Staticstics comes subscriptions nowadays, varying USD 1,300 USD 8,500 per user per year. SAS Analytics Pro costs around USD 10,000 per computer. Stata also business model subscription fees, varying USD 600 USD 2,800 per computer per year, lower prices come limitation number variables can work . still offer benefits R. working midsized small company, can save tens thousands dollars using R instead e.g. SPSS - gaining even functions flexibility. R enthousiasts can much PR want (like ), nobody officially associated affiliated R. really free. R (nowadays) preferred analysis software academic papers. present, R among world powerful statistical languages, generally popular science (Bollmann et al., 2017). reasons, number references R analysis method academic papers rising continuously even surpassed SPSS academic use (Muenchen, 2014). believe thing SPSS , always great user interface easy learn use. Back developed , little competition, let alone R. R didn’t even professional user interface last decade (called RStudio, see ). people used R nineties 2010 almost completely incomparable R used now. language restyled completely volunteers dedicated professionals field data science. SPSS great nothing else compete. now 2023, don’t see reason SPSS better use R. demonstrate first point:","code":"# not all values are valid MIC values: as.mic(0.125) #> Class 'mic' #> [1] 0.125 as.mic(\"testvalue\") #> Class 'mic' #> [1] <NA>  # the Gram stain is available for all bacteria: mo_gramstain(\"E. coli\") #> [1] \"Gram-negative\"  # Klebsiella is intrinsic resistant to amoxicillin, according to EUCAST: klebsiella_test <- data.frame(   mo = \"klebsiella\",   amox = \"S\",   stringsAsFactors = FALSE ) klebsiella_test # (our original data) #>           mo amox #> 1 klebsiella    S eucast_rules(klebsiella_test, info = FALSE) # (the edited data by EUCAST rules) #>           mo amox #> 1 klebsiella    R  # hundreds of trade names can be translated to a name, trade name or an ATC code: ab_name(\"floxapen\") #> [1] \"Flucloxacillin\" ab_tradenames(\"floxapen\") #>  [1] \"culpen\"               \"floxacillin\"          \"floxacillin sodium\"   #>  [4] \"floxapen\"             \"floxapen sodium salt\" \"fluclox\"              #>  [7] \"flucloxacilina\"       \"flucloxacillin\"       \"flucloxacilline\"      #> [10] \"flucloxacillinum\"     \"fluorochloroxacillin\" \"staphylex\" ab_atc(\"floxapen\") #> [1] \"J01CF05\""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"rstudio","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata","what":"RStudio","title":"How to import data from SPSS / SAS / Stata","text":"work R, probably best option use RStudio. open-source free desktop environment allows run R code, also supports project management, version management, package management convenient import menus work data sources. can also install RStudio Server private corporate server, brings nothing less complete RStudio software website (home work). import data file, just click Import Dataset Environment tab:  additional packages needed, RStudio ask installed beforehand. window opens, can define options (parameters) used import ’re ready go:  want named variables imported factors resembles SPSS , use as_factor(). difference :","code":"SPSS_data # # A tibble: 4,203 x 4 #     v001 sex       status    statusage #    <dbl> <dbl+lbl> <dbl+lbl>     <dbl> #  1 10002 1         1              76.6 #  2 10004 0         1              59.1 #  3 10005 1         1              54.5 #  4 10006 1         1              54.1 #  5 10007 1         1              57.7 #  6 10008 1         1              62.8 #  7 10010 0         1              63.7 #  8 10011 1         1              73.1 #  9 10017 1         1              56.7 # 10 10018 0         1              66.6 # # ... with 4,193 more rows  as_factor(SPSS_data) # # A tibble: 4,203 x 4 #     v001 sex    status statusage #    <dbl> <fct>  <fct>      <dbl> #  1 10002 Male   alive       76.6 #  2 10004 Female alive       59.1 #  3 10005 Male   alive       54.5 #  4 10006 Male   alive       54.1 #  5 10007 Male   alive       57.7 #  6 10008 Male   alive       62.8 #  7 10010 Female alive       63.7 #  8 10011 Male   alive       73.1 #  9 10017 Male   alive       56.7 # 10 10018 Female alive       66.6 # # ... with 4,193 more rows"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"base-r","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata","what":"Base R","title":"How to import data from SPSS / SAS / Stata","text":"import data SPSS, SAS Stata, can use great haven package : can now import files follows:","code":"# download and install the latest version: install.packages(\"haven\") # load the package you just installed: library(haven)"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"spss","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata > Base R","what":"SPSS","title":"How to import data from SPSS / SAS / Stata","text":"read files SPSS R: forget as_factor(), mentioned . export R objects SPSS file format:","code":"# read any SPSS file based on file extension (best way): read_spss(file = \"path/to/file\")  # read .sav or .zsav file: read_sav(file = \"path/to/file\")  # read .por file: read_por(file = \"path/to/file\") # save as .sav file: write_sav(data = yourdata, path = \"path/to/file\")  # save as compressed .zsav file: write_sav(data = yourdata, path = \"path/to/file\", compress = TRUE)"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"sas","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata > Base R","what":"SAS","title":"How to import data from SPSS / SAS / Stata","text":"read files SAS R: export R objects SAS file format:","code":"# read .sas7bdat + .sas7bcat files: read_sas(data_file = \"path/to/file\", catalog_file = NULL)  # read SAS transport files (version 5 and version 8): read_xpt(file = \"path/to/file\") # save as regular SAS file: write_sas(data = yourdata, path = \"path/to/file\")  # the SAS transport format is an open format # (required for submission of the data to the FDA) write_xpt(data = yourdata, path = \"path/to/file\", version = 8)"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"stata","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata > Base R","what":"Stata","title":"How to import data from SPSS / SAS / Stata","text":"read files Stata R: export R objects Stata file format:","code":"# read .dta file: read_stata(file = \"/path/to/file\")  # works exactly the same: read_dta(file = \"/path/to/file\") # save as .dta file, Stata version 14: # (supports Stata v8 until v15 at the time of writing) write_dta(data = yourdata, path = \"/path/to/file\", version = 14)"},{"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: 3: S < < R 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 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 52 142 rows 22 columns, containing following column names:mo, fullname, status, kingdom, phylum, class, order, family, genus, species, subspecies, rank, ref, source, lpsn, lpsn_parent, lpsn_renamed_to, gbif, gbif_parent, gbif_renamed_to, prevalence, snomed. data set R available microorganisms, load AMR package. last updated 26 February 2023 20:26:58 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (1.2 MB) Download tab-separated text file (11.3 MB) Download Microsoft Excel workbook (5 MB) Download Apache Feather file (5.4 MB) Download Apache Parquet file (2.6 MB) Download SAS data file (50.9 MB) Download IBM SPSS Statistics data file (16.9 MB) Download Stata DTA file (47.1 MB) NOTE: exported files SAS, SPSS Stata contain first 50 SNOMED codes per record, file size otherwise exceed 100 MB; file size limit GitHub. Advice? Use R instead. 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 five kingdoms List Prokaryotic names Standing Nomenclature (LPSN) 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 11 December, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset . Accessed https://www.gbif.org 11 December, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name ‘Microoganism’, 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 483 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 22 February 2023 13:38:57 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (39 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (66 kB) Download Apache Feather file (0.1 MB) Download Apache Parquet file (97 kB) Download SAS data file (1.9 MB) Download IBM SPSS Statistics data file (0.3 MB) Download Stata DTA file (0.4 MB) tab-separated text file Microsoft Excel workbook, SAS, 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 13 November 2022 07:46:10 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (5 kB) Download tab-separated text file (16 kB) Download Microsoft Excel workbook (16 kB) Download Apache Feather file (15 kB) Download Apache Parquet file (13 kB) Download SAS data file (84 kB) Download IBM SPSS Statistics data file (30 kB) Download Stata DTA file (73 kB) tab-separated text file Microsoft Excel workbook, SAS, 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 18 308 rows 11 columns, containing following column names:guideline, method, site, mo, rank_index, ab, ref_tbl, disk_dose, breakpoint_S, breakpoint_R, uti. data set R available clinical_breakpoints, load AMR package. last updated 21 January 2023 22:47:20 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (42 kB) Download tab-separated text file (1.9 MB) Download Microsoft Excel workbook (0.8 MB) Download Apache Feather file (0.7 MB) Download Apache Parquet file (87 kB) Download SAS data file (3.6 MB) Download IBM SPSS Statistics data file (2.3 MB) Download Stata DTA file (3.4 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 (2013-2022) EUCAST (2013-2022).","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 134 634 rows 2 columns, containing following column names:mo ab. data set R available intrinsic_resistant, load AMR package. last updated 16 December 2022 15:10:43 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (78 kB) Download tab-separated text file (5.1 MB) Download Microsoft Excel workbook (1.3 MB) Download Apache Feather file (1.2 MB) Download Apache Parquet file (0.2 MB) Download SAS data file (9.8 MB) Download IBM SPSS Statistics data file (7.4 MB) Download Stata DTA file (9.5 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 336 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 14 November 2022 14:20:39 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (3 kB) Download tab-separated text file (29 kB) Download Microsoft Excel workbook (19 kB) Download Apache Feather file (16 kB) Download Apache Parquet file (8 kB) Download SAS data file (92 kB) Download IBM SPSS Statistics data file (43 kB) Download Stata DTA file (82 kB)","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 21 January 2023 22:47:20 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/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) 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: 32 × 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  #> # … with 22 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. Christian F. Luz. Author, contributor. Dennis Souverein. Author, contributor. Erwin E. . Hassing. Author, contributor. Casper J. Albers. Thesis advisor. Peter Dutey-Magni. Contributor. Judith M. Fonville. Contributor. Alex W. Friedrich. Thesis advisor. Corinna Glasner. Thesis advisor. Eric H. L. C. M. Hazenberg. Contributor. Gwen Knight. Contributor. Annick Lenglet. Contributor. Bart C. Meijer. Contributor. Dmytro Mykhailenko. Contributor. Anton Mymrikov. Contributor. Andrew P. Norgan. Contributor. Sofia Ny. Contributor. Jonas Salm. Contributor. Rogier P. Schade. Contributor. Bhanu N. M. Sinha. Thesis advisor. Anthony Underwood. Contributor. Anita Williams. Contributor.","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":"Generates antibiograms - traditional, combined, syndromic, even WISCA Provides full microbiological taxonomy data antimicrobial drugs Applies recent CLSI EUCAST clinical breakpoints MICs disk zones Corrects duplicate isolates, calculates predicts AMR per antibiotic class Integrates WHONET, ATC, EARS-Net, PubChem, LOINC SNOMED CT Works Windows, macOS Linux versions R since R-3.0 completely dependency-free, highly suitable places limited resources 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 breakpoint guidelines CLSI EUCAST included last 10 years. 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-translated-into-20-languages","dir":"","previous_headings":"Introduction","what":"Used in over 175 countries, translated into 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 last 10 years (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-deprecated.html","id":null,"dir":"Reference","previous_headings":"","what":"Deprecated Functions — AMR-deprecated","title":"Deprecated Functions — AMR-deprecated","text":"functions -called 'Deprecated'. removed future release. Using functions give warning name function replaced (one).","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-deprecated.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Deprecated Functions — AMR-deprecated","text":"","code":"NA_rsi_  as.rsi(x, ...)  facet_rsi(...)  geom_rsi(...)  ggplot_rsi(...)  ggplot_rsi_predict(...)  is.rsi(...)  is.rsi.eligible(...)  labels_rsi_count(...)  n_rsi(...)  random_rsi(...)  rsi_df(...)  rsi_predict(...)  scale_rsi_colours(...)  theme_rsi(...)"},{"path":"https://msberends.github.io/AMR/reference/AMR-deprecated.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Deprecated Functions — AMR-deprecated","text":"object class rsi (inherits ordered, factor) length 1.","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_custom_ab  Allows use custom antimicrobial drugs package. explained add_custom_antimicrobials(). AMR_custom_mo  Allows use custom microorganisms package. explained add_custom_microorganisms(). AMR_eucastrules  Used setting default types rules eucast_rules() function, must one : \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). AMR_guideline  Used setting 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 2022\". Supported guideline currently EUCAST (2013-2022) CLSI (2013-2022). 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_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_locale  language use 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). 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. 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 ~52 000 (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 breakpoint guidelines CLSI EUCAST included last 10 years. 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. AMR package available English, Chinese, Danish, Dutch, French, German, Greek, Italian, Japanese, Polish, Portuguese, 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, SAS, 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.berends@certe.nl (ORCID) Authors: Christian F. Luz (ORCID) [contributor] Dennis Souverein (ORCID) [contributor] Erwin E. . Hassing [contributor] contributors: Casper J. Albers (ORCID) [thesis advisor] Peter Dutey-Magni (ORCID) [contributor] Judith M. Fonville [contributor] Alex W. Friedrich (ORCID) [thesis advisor] Corinna Glasner (ORCID) [thesis advisor] Eric H. L. C. M. Hazenberg [contributor] Gwen Knight (ORCID) [contributor] Annick Lenglet (ORCID) [contributor] Bart C. Meijer [contributor] Dmytro Mykhailenko [contributor] Anton Mymrikov [contributor] Andrew P. Norgan (ORCID) [contributor] Sofia Ny (ORCID) [contributor] Jonas Salm [contributor] Rogier P. Schade [contributor] Bhanu N. M. Sinha (ORCID) [thesis advisor] Anthony Underwood (ORCID) [contributor] Anita Williams (ORCID) [contributor]","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://www.whocc.) 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://www.whocc./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, SAS, 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 #>    Identif…¹ Speci…² Organ…³ Country Labor…⁴ Last …⁵ First…⁶ Sex     Age Age c…⁷ #>    <chr>       <int> <chr>   <chr>   <chr>   <chr>   <chr>   <chr> <dbl> <chr>   #>  1 fe41d7ba…    1748 SPN     Belgium Nation… Abel    B.      F        68 55-74   #>  2 91f175ec…    1767 eco     The Ne… Nation… Delacr… F.      M        89 75+     #>  3 cc401505…    1343 eco     The Ne… Nation… Steens… F.      M        85 75+     #>  4 e864b692…    1894 MAP     Denmark Nation… Beyers… L.      M        62 55-74   #>  5 3d051fe3…    1739 PVU     Belgium Nation… Hummel  W.      M        86 75+     #>  6 c80762a0…    1846 103     The Ne… Nation… Eikenb… J.      F        53 25-54   #>  7 8022d372…    1628 103     Denmark Nation… Leclerc S.      F        77 75+     #>  8 f3dc5f55…    1493 eco     The Ne… Nation… Delacr… W.      M        53 25-54   #>  9 15add38f…    1847 eco     France  Nation… Van La… S.      F        63 55-74   #> 10 fd41248d…    1458 eco     Germany Nation… Moulin  O.      F        75 75+     #> # … with 490 more rows, 43 more variables: `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>, #> #   `Inducible clindamycin resistance` <lgl>, Comment <chr>, #> #   `Date of data entry` <date>, AMP_ND10 <sir>, AMC_ED20 <sir>, …"},{"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_c…¹ abx_d…² abx_a…³ abx_c…⁴ abx_c…⁵ abx_c…⁶ abx_c…⁷ #>   <chr>                  <list>  <list>  <list>  <chr>   <chr>   <chr>   <chr>   #> 1 given 400mg cipro and… <ab>    <dbl>   <chr>   CIP|AMX Ciprof… 400|500 NA      #> 2 started on doxy iv to… <ab>    <dbl>   <chr>   DOX     Doxycy… NA      iv      #> # … with abbreviated variable names ¹​abx_codes, ²​abx_doses, ³​abx_admin, #> #   ⁴​abx_coll, ⁵​abx_coll_names, ⁶​abx_coll_doses, ⁷​abx_coll_admin # }"},{"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://www.whocc./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, SAS, 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://www.whocc.no/atc_ddd_index/?code=J01CA04&showdescription=no\"   # smart lowercase tranformation 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] \"16365-9\" \"25274-2\" \"3344-9\"  \"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] \"21066-6\" \"3355-5\"  \"33562-0\" \"33919-2\" \"43883-8\" \"43884-6\" \"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 automate process: 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. important downside requires AMR package installed else method fail. 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://www.whocc.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 automate process: 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. important downside requires AMR package installed else method fail. use method: Edit .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"). Add text like save file:   Use clear_custom_microorganisms() clear previously added antimicrobials.","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 only \"Enterobacter asburiae\": 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_ENTRBC_A_C  # 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_ENTRBC_A_C\" #>  #> $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\" #>  #> $url #> [1] \"\" #>  #> $ref #> [1] \"Self-added, 2023\" #>  #> $snomed #> [1] NA #>    # 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, although 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  1988-09-10  34  34.49863         11 #> 2  1940-03-15  82  82.98904         59 #> 3  1951-03-09  72  72.00548         48 #> 4  1963-09-14  59  59.48767         36 #> 5  1975-08-04  47  47.60000         24 #> 6  1932-09-11  90  90.49589         67 #> 7  1980-12-22  42  42.21644         19 #> 8  1987-03-31  35  35.94521         12 #> 9  1945-12-08  77  77.25479         54 #> 10 1971-03-24  51  51.96438         28"},{"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 Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"Generate antibiogram, communicate results plots tables. functions follow logic Klinker et al. Barbieri et al. (see Source), allow reporting e.g. R Markdown Quarto well.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"","code":"antibiogram(   x,   antibiotics = where(is.sir),   mo_transform = \"shortname\",   ab_transform = NULL,   syndromic_group = NULL,   add_total_n = TRUE,   only_all_tested = FALSE,   digits = 0,   col_mo = NULL,   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   sep = \" + \",   info = interactive() )  # S3 method for antibiogram plot(x, ...)  # S3 method for antibiogram autoplot(object, ...)  # S3 method for 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 Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"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 Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — 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\", \"gramstain\", one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_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: \"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 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 , 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 Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — 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. types antibiograms listed can plotted (using ggplot2::autoplot() base R plot()/barplot()). antibiogram object 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":"antibiogram-types","dir":"Reference","previous_headings":"","what":"Antibiogram Types","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"four antibiogram types, proposed Klinker et al. (2021, doi:10.1177/20499361211011373 ), supported antibiogram(): 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) Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) male patients age >=65 years heart failure Code example:   Note combination antibiograms, 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":"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\")) --------------------------------------------------------------------                     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":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — 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    #> # … with 1,990 more rows, and 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>  # \\donttest{ # Traditional antibiogram ----------------------------------------------  antibiogram(example_isolates,   antibiotics = c(aminoglycosides(), carbapenems()) ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 10 × 7 #>    `Pathogen (N min-max)`   AMK   GEN   IPM   KAN   MEM   TOB #>  * <chr>                  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #>  1 CoNS (43-309)              0    86    52     0    52    22 #>  2 E. coli (0-462)          100    98   100    NA   100    97 #>  3 E. faecalis (0-39)         0     0   100     0    NA     0 #>  4 K. pneumoniae (0-58)      NA    90   100    NA   100    90 #>  5 P. aeruginosa (17-30)     NA   100    NA     0    NA   100 #>  6 P. mirabilis (0-34)       NA    94    94    NA    NA    94 #>  7 S. aureus (2-233)         NA    99    NA    NA    NA    98 #>  8 S. epidermidis (8-163)     0    79    NA     0    NA    51 #>  9 S. hominis (3-80)         NA    92    NA    NA    NA    85 #> 10 S. pneumoniae (11-117)     0     0    NA     0    NA     0  antibiogram(example_isolates,   antibiotics = aminoglycosides(),   ab_transform = \"atc\",   mo_transform = \"gramstain\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2 × 5 #>   `Pathogen (N min-max)`   J01GB01 J01GB03 J01GB04 J01GB06 #> * <chr>                      <dbl>   <dbl>   <dbl>   <dbl> #> 1 Gram-negative (35-686)        96      96       0      98 #> 2 Gram-positive (436-1170)      34      63       0       0  antibiogram(example_isolates,   antibiotics = carbapenems(),   ab_transform = \"name\",   mo_transform = \"name\" ) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 5 × 3 #>   `Pathogen (N min-max)`                           Imipenem Meropenem #> * <chr>                                               <dbl>     <dbl> #> 1 Coagulase-negative Staphylococcus (CoNS) (48-48)       52        52 #> 2 Enterococcus faecalis (0-38)                          100        NA #> 3 Escherichia coli (418-422)                            100       100 #> 4 Klebsiella pneumoniae (51-53)                         100       100 #> 5 Proteus mirabilis (27-32)                              94        NA   # Combined antibiogram -------------------------------------------------  # combined antibiotics yield higher empiric coverage antibiogram(example_isolates,   antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),   mo_transform = \"gramstain\" ) #> # A tibble: 2 × 4 #>   `Pathogen (N min-max)`     TZP `TZP + GEN` `TZP + TOB` #> * <chr>                    <dbl>       <dbl>       <dbl> #> 1 Gram-negative (641-693)     88          99          98 #> 2 Gram-positive (345-1044)    86          98          95  # 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 = \" & \" ) #> # A tibble: 2 × 3 #>   `Pathogen (N min-max)`  Ciprofloxacin `Ciprofloxacin & Gentamicin` #> * <chr>                           <dbl>                        <dbl> #> 1 Gram-negative (684-694)            91                           99 #> 2 Gram-positive (724-847)            77                           93   # Syndromic antibiogram ------------------------------------------------  # the data set could contain a filter for e.g. respiratory specimens antibiogram(example_isolates,   antibiotics = c(aminoglycosides(), carbapenems()),   syndromic_group = \"ward\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 14 × 8 #>    `Syndromic Group` `Pathogen (N min-max)`   AMK   GEN   IPM   KAN   MEM   TOB #>  * <chr>             <chr>                  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #>  1 Clinical          CoNS (23-205)             NA    89    57    NA    57    26 #>  2 ICU               CoNS (10-73)              NA    79    NA    NA    NA    NA #>  3 Outpatient        CoNS (3-31)               NA    84    NA    NA    NA    NA #>  4 Clinical          E. coli (0-299)          100    98   100    NA   100    98 #>  5 ICU               E. coli (0-137)          100    99   100    NA   100    96 #>  6 Clinical          K. pneumoniae (0-51)      NA    92   100    NA   100    92 #>  7 Clinical          P. mirabilis (0-30)       NA   100    NA    NA    NA   100 #>  8 Clinical          S. aureus (2-150)         NA    99    NA    NA    NA    97 #>  9 ICU               S. aureus (0-66)          NA   100    NA    NA    NA    NA #> 10 Clinical          S. epidermidis (4-79)     NA    82    NA    NA    NA    55 #> 11 ICU               S. epidermidis (4-75)     NA    72    NA    NA    NA    41 #> 12 Clinical          S. hominis (1-45)         NA    96    NA    NA    NA    94 #> 13 Clinical          S. pneumoniae (5-78)       0     0    NA     0    NA     0 #> 14 ICU               S. pneumoniae (5-30)       0     0    NA     0    NA     0  # 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\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2 × 5 #>   `Grupo sindrómico` `Patógeno (N min-max)` Amikacina Gentamicina Tobramicina #> * <chr>              <chr>                      <dbl>       <dbl>       <dbl> #> 1 No UCI             E. coli (0-325)              100          98          98 #> 2 UCI                E. coli (0-137)              100          99          96   # 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\"   ) ) #> # A tibble: 4 × 6 #>   `Syndromic Group` `Pathogen (N min-max)`    AMC `AMC + CIP`   TZP `TZP + TOB` #> * <chr>             <chr>                   <dbl>       <dbl> <dbl>       <dbl> #> 1 WISCA Group 1     Gram-negative (261-285)    76          95    89          99 #> 2 WISCA Group 2     Gram-negative (380-442)    76          98    88          98 #> 3 WISCA Group 1     Gram-positive (123-406)    76          89    81          95 #> 4 WISCA Group 2     Gram-positive (222-732)    76          89    88          95   # Print the output for R Markdown / Quarto -----------------------------  ureido <- antibiogram(example_isolates,   antibiotics = ureidopenicillins(),   ab_transform = \"name\" ) #> ℹ For ureidopenicillins() using column 'TZP' (piperacillin/tazobactam)  # in an Rmd file, you would just need to return `ureido` in a chunk, # but to be explicit here: if (requireNamespace(\"knitr\")) {   knitr::knit_print(ureido) } #> [1] \"\\n\\n|Pathogen (N)          | Piperacillin/tazobactam|\\n|:---------------------|-----------------------:|\\n|CoNS (33)             |                      30|\\n|*E. coli* (416)       |                      94|\\n|*K. pneumoniae* (53)  |                      89|\\n|*S. pneumoniae* (112) |                     100|\" #> attr(,\"class\") #> [1] \"knit_asis\" #> attr(,\"knit_cacheable\") #> [1] NA   # 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, ...)  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, ...)  lipoglycopeptides(only_sir_columns = FALSE, ...)  macrolides(only_sir_columns = FALSE, ...)  oxazolidinones(only_sir_columns = FALSE, ...)  penicillins(only_sir_columns = FALSE, ...)  polymyxins(only_sir_columns = FALSE, only_treatable = TRUE, ...)  streptogramins(only_sir_columns = FALSE, ...)  quinolones(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 either \"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":"(internally) character vector column names, additional class \"ab_selector\"","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), amphotericin B-high (AMH), 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:  amphotericin B (AMB), 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), 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) 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), 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), 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) 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), 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) 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, SAS, 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    #> # … with 1,990 more rows, and 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>   # Examples sections below are split into 'base R', 'dplyr', and 'data.table':   # 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    #> # … with 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    #> # … with 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    #> # … with 1,990 more rows, and 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    #> # … with 45 more rows, and 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> 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    #> # … with 45 more rows, and 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>  # 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     #> # … with 952 more rows, and 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> 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    #> # … with 746 more rows, and 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>  # 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     #> # … with 16 more rows, and 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>  # 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     #> # … with 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    #> # … with 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    #> # … with 1,990 more rows  # \\donttest{ # dplyr -------------------------------------------------------------------  if (require(\"dplyr\")) {   tibble(kefzol = random_sir(5)) %>%     select(cephalosporins()) } #> ℹ For cephalosporins() using column 'kefzol' (cefazolin) #> # A tibble: 5 × 1 #>   kefzol #>   <sir>  #> 1 I      #> 2 S      #> 3 R      #> 4 I      #> 5 S       if (require(\"dplyr\")) {   # get AMR for all aminoglycosides e.g., per ward:   example_isolates %>%     group_by(ward) %>%     summarise(across(aminoglycosides(), resistance)) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> Warning: There was 1 warning in `summarise()`. #> ℹ In argument: `across(aminoglycosides(), resistance)`. #> ℹ 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 × 5 #>   ward         GEN   TOB   AMK   KAN #>   <chr>      <dbl> <dbl> <dbl> <dbl> #> 1 Clinical   0.229 0.315 0.626     1 #> 2 ICU        0.290 0.400 0.662     1 #> 3 Outpatient 0.2   0.368 0.605    NA if (require(\"dplyr\")) {   # You can combine selectors with '&' to be more specific:   example_isolates %>%     select(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    #> # … with 1,990 more rows if (require(\"dplyr\")) {   # get AMR for only drugs that matter - no intrinsic resistance:   example_isolates %>%     filter(mo_genus() %in% c(\"Escherichia\", \"Klebsiella\")) %>%     group_by(ward) %>%     summarise(across(not_intrinsic_resistant(), resistance)) } #> ℹ Using column 'mo' as input for mo_genus() #> ℹ For not_intrinsic_resistant() removing columns 'PEN' #>   (benzylpenicillin), 'LNZ' (linezolid), 'VAN' (vancomycin), 'TEC' #>   (teicoplanin), 'ERY' (erythromycin), 'CLI' (clindamycin), 'AZM' #>   (azithromycin), and 'RIF' (rifampicin) #> Warning: There were 52 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `across(not_intrinsic_resistant(), resistance)`. #> ℹ In group 1: `ward = \"Clinical\"`. #> Caused by warning: #> ! Introducing NA: no results available for OXA in group: ward = \"Clinical\" #> (minimum = 30). #> ℹ Run `dplyr::last_dplyr_warnings()` to see the 51 remaining warnings. #> # A tibble: 3 × 33 #>   ward    OXA   FLC    AMX    AMC    AMP     TZP     CZO     FEP     CXM     FOX #>   <chr> <dbl> <dbl>  <dbl>  <dbl>  <dbl>   <dbl>   <dbl>   <dbl>   <dbl>   <dbl> #> 1 Clin…    NA    NA  0.606  0.121  0.606  0.0504  0.0656  0.0159  0.0622  0.0648 #> 2 ICU      NA    NA  0.535  0.172  0.535  0.119  NA       0.0722  0.0828  0.0992 #> 3 Outp…    NA    NA NA     NA     NA     NA      NA      NA      NA      NA      #> # … with 22 more variables: CTX <dbl>, CAZ <dbl>, CRO <dbl>, GEN <dbl>, #> #   TOB <dbl>, AMK <dbl>, KAN <dbl>, TMP <dbl>, SXT <dbl>, NIT <dbl>, #> #   FOS <dbl>, CIP <dbl>, MFX <dbl>, TCY <dbl>, TGC <dbl>, DOX <dbl>, #> #   IPM <dbl>, MEM <dbl>, MTR <dbl>, CHL <dbl>, COL <dbl>, MUP <dbl> if (require(\"dplyr\")) {   # get susceptibility for antibiotics whose name contains \"trim\":   example_isolates %>%     filter(first_isolate()) %>%     group_by(ward) %>%     summarise(across(ab_selector(name %like% \"trim\"), susceptibility)) } #> ℹ For ab_selector(name %like% \"trim\") using columns 'TMP' (trimethoprim) #>   and 'SXT' (trimethoprim/sulfamethoxazole) #> # A tibble: 3 × 3 #>   ward         TMP   SXT #>   <chr>      <dbl> <dbl> #> 1 Clinical   0.627 0.808 #> 2 ICU        0.549 0.778 #> 3 Outpatient 0.667 0.821 if (require(\"dplyr\")) {   # this will select columns 'IPM' (imipenem) and 'MEM' (meropenem):   example_isolates %>%     select(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    #> # … with 1,990 more rows if (require(\"dplyr\")) {   # this will select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB':   example_isolates %>%     select(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    #> # … with 1,990 more rows if (require(\"dplyr\")) {   # any() and all() work in dplyr's filter() too:   example_isolates %>%     filter(       any(aminoglycosides() == \"R\"),       all(cephalosporins_2nd() == \"R\")     ) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For cephalosporins_2nd() using columns 'CXM' (cefuroxime) and 'FOX' #>   (cefoxitin) #> # A tibble: 112 × 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      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  2 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG R     NA    NA    R     #>  3 2002-04-08 130252     78 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  4 2002-06-23 798871     82 M      Clinical B_ENTRC_FCLS NA    NA    NA    NA    #>  5 2002-06-23 798871     82 M      Clinical B_ENTRC_FCLS NA    NA    NA    NA    #>  6 2002-07-21 955940     82 F      Clinical B_PSDMN_AERG R     NA    NA    R     #>  7 2002-07-21 955940     82 F      Clinical B_PSDMN_AERG 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_FCLS NA    NA    NA    NA    #> 10 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #> # … with 102 more rows, and 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> if (require(\"dplyr\")) {   # also works with c():   example_isolates %>%     filter(any(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: 531 × 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      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  2 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG R     NA    NA    R     #>  3 2002-03-17 B30560     78 M      Clinical B_STPHY_CONS R     NA    R     R     #>  4 2002-04-04 E61143     67 M      Clinical B_STRPT_SNGN S     NA    NA    S     #>  5 2002-04-08 130252     78 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  6 2002-04-14 F30196     73 M      Outpati… B_STRPT_GRPB S     NA    S     S     #>  7 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  8 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  9 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #> 10 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #> # … with 521 more rows, and 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> if (require(\"dplyr\")) {   # not setting any/all will automatically apply all():   example_isolates %>%     filter(aminoglycosides() == \"R\") } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ Assuming a filter on all 4 aminoglycosides. Wrap around all() or #>   any() to prevent this note. #> # A tibble: 427 × 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      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  2 2002-03-17 B30560     78 M      Clinical B_STPHY_CONS R     NA    R     R     #>  3 2002-04-04 E61143     67 M      Clinical B_STRPT_SNGN S     NA    NA    S     #>  4 2002-04-08 130252     78 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  5 2002-04-14 F30196     73 M      Outpati… B_STRPT_GRPB S     NA    S     S     #>  6 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  7 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  8 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #>  9 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #> 10 2002-05-16 D25302     65 F      ICU      B_STRPT_ANGN S     NA    NA    S     #> # … with 417 more rows, and 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> if (require(\"dplyr\")) {   # this will select columns 'mo' and all antimycobacterial drugs ('RIF'):   example_isolates %>%     select(mo, ab_class(\"mycobact\")) } #> ℹ For ab_class(\"mycobact\") using column 'RIF' (rifampicin) #> # A tibble: 2,000 × 2 #>    mo           RIF   #>    <mo>         <sir> #>  1 B_ESCHR_COLI R     #>  2 B_ESCHR_COLI R     #>  3 B_STPHY_EPDR NA    #>  4 B_STPHY_EPDR NA    #>  5 B_STPHY_EPDR NA    #>  6 B_STPHY_EPDR NA    #>  7 B_STPHY_AURS NA    #>  8 B_STPHY_AURS NA    #>  9 B_STPHY_EPDR NA    #> 10 B_STPHY_EPDR NA    #> # … with 1,990 more rows if (require(\"dplyr\")) {   # get bug/drug combinations for only glycopeptides in Gram-positives:   example_isolates %>%     filter(mo_is_gram_positive()) %>%     select(mo, glycopeptides()) %>%     bug_drug_combinations() %>%     format() } #> ℹ Using column 'mo' as input for mo_is_gram_positive() #> ℹ For glycopeptides() using columns 'VAN' (vancomycin) and 'TEC' #>   (teicoplanin) #> # A tibble: 2 × 8 #>   Group           Drug             CoNS  E. fa…¹ S. au…² S. ep…³ S. ho…⁴ S. pn…⁵ #>   <chr>           <chr>            <chr> <chr>   <chr>   <chr>   <chr>   <chr>   #> 1 \"Glycopeptides\" Teicoplanin (TE… \"\"    \"\"      \" 0.0%… \"64.1%… \" 6.8%… \"\"      #> 2 \"\"              Vancomycin (VAN… \" 0.… \" 0.0%… \" 0.0%… \" 0.0%… \" 0.0%… \" 0.0%… #> # … with abbreviated variable names ¹​`E. faecalis`, ²​`S. aureus`, #> #   ³​`S. epidermidis`, ⁴​`S. hominis`, ⁵​`S. pneumoniae` if (require(\"dplyr\")) {   data.frame(     some_column = \"some_value\",     J01CA01 = \"S\"   ) %>% # ATC code of ampicillin     select(penicillins()) # only the 'J01CA01' column will be selected } #> ℹ For penicillins() using column 'J01CA01' (ampicillin) #>   J01CA01 #> 1       S if (require(\"dplyr\")) {   # 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) } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Assuming a filter on all 2 carbapenems. Wrap around all() or any() to #>   prevent this note. #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Assuming a filter on all 2 carbapenems. Wrap around all() or any() to #>   prevent this note. #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> [1] TRUE   # 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)    print(     dt[, carbapenems()] # incorrect, returns column *names*   )   print(     dt[, carbapenems(), with = FALSE] # so `with = FALSE` is required   )      # for multiple selections or AB selectors, `with = FALSE` is not needed:   print(     dt[, c(\"mo\", aminoglycosides())]   )   print(     dt[, c(carbapenems(), aminoglycosides())]   )      # row filters are also supported:   print(dt[any(carbapenems() == \"S\"), ])   print(dt[any(carbapenems() == \"S\"), penicillins(), with = FALSE]) } #> 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) #> [1] \"IPM\" \"MEM\" #> attr(,\"class\") #> [1] \"ab_selector\" \"character\"   #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #>        IPM  MEM #>    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 aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #>                 mo  GEN  TOB  AMK  KAN #>    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> #> ℹ 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 #>    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> #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #>            date patient age gender       ward           mo PEN  OXA  FLC  AMX #>   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 #>  ---                                                                          #> 905: 2005-04-12  D71461  70      M        ICU B_ESCHR_COLI   R <NA> <NA>    S #> 906: 2009-11-12  650870  69      F Outpatient B_ESCHR_COLI   R <NA> <NA>    S #> 907: 2012-06-14  8CBCF2  41      F   Clinical B_STPHY_CONS   R    S    S <NA> #> 908: 2012-10-11  175532  78      M   Clinical B_ESCHR_COLI   R <NA> <NA>    R #> 909: 2013-11-23  A97263  77      M   Clinical B_KLBSL_PNMN   R <NA> <NA>    R #>      AMC  AMP  TZP  CZO  FEP CXM  FOX  CTX  CAZ  CRO  GEN  TOB  AMK  KAN  TMP #>   1:   I <NA> <NA> <NA> <NA>   S <NA>    S <NA>    S <NA>    S <NA> <NA>    S #>   2:   I <NA> <NA> <NA> <NA>   S <NA>    S <NA>    S <NA>    S <NA> <NA>    S #>   3:   I <NA> <NA> <NA> <NA>   S <NA>    S    S    S <NA> <NA> <NA> <NA>    S #>   4:   I <NA> <NA> <NA> <NA>   S <NA>    S    S    S <NA> <NA> <NA> <NA>    S #>   5:   R    R <NA>    R <NA>   R    R <NA> <NA> <NA> <NA> <NA> <NA> <NA>    S #>  ---                                                                          #> 905:   S    S    S <NA>    S   S    S    S    S    S    S    S    S <NA> <NA> #> 906:   S    S    S    S    S   S    S    S    S    S    S    S    S <NA>    S #> 907:   S <NA> <NA>    S    S   S    S    S    R    S    S <NA> <NA> <NA>    S #> 908:   S    R    S <NA>    S   R    R    S    S    S    S    S <NA> <NA>    R #> 909:   S    R    S <NA>    S   S    S    S    S    S    S    S <NA> <NA>    S #>      SXT  NIT  FOS  LNZ  CIP  MFX VAN  TEC  TCY  TGC  DOX ERY CLI AZM IPM  MEM #>   1:   S <NA> <NA>    R <NA> <NA>   R    R <NA> <NA> <NA>   R   R   R   S <NA> #>   2:   S <NA> <NA>    R <NA> <NA>   R    R <NA> <NA> <NA>   R   R   R   S <NA> #>   3:   S    R <NA>    R    S <NA>   R    R    R    R    R   R   R   R   S <NA> #>   4:   S    R <NA>    R    S <NA>   R    R    R    R    R   R   R   R   S <NA> #>   5:   S    R <NA>    R    S <NA>   R    R    R    R    R   R   R   R   S <NA> #>  ---                                                                           #> 905:   S    S <NA>    R    S <NA>   R    R <NA> <NA> <NA>   R   R   R   S    S #> 906:   S    S <NA>    R    S <NA>   R    R <NA> <NA> <NA>   R   R   R   S    S #> 907:   S <NA> <NA> <NA>    S <NA>   S <NA> <NA> <NA> <NA>   S   S   S   S    S #> 908:   R    R <NA>    R    R    R   R    R <NA> <NA> <NA>   R   R   R   S    S #> 909:   S    S <NA>    R    S <NA>   R    R <NA> <NA> <NA>   R   R   R   S    S #>       MTR  CHL  COL  MUP  RIF #>   1: <NA> <NA> <NA> <NA>    R #>   2: <NA> <NA> <NA> <NA>    R #>   3: <NA> <NA>    R <NA>    R #>   4: <NA> <NA>    R <NA>    R #>   5: <NA> <NA>    R <NA>    R #>  ---                          #> 905: <NA> <NA> <NA> <NA>    R #> 906: <NA> <NA> <NA> <NA>    R #> 907: <NA> <NA>    R <NA> <NA> #> 908: <NA> <NA>    S <NA>    R #> 909: <NA> <NA>    S <NA>    R #> ℹ 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 #>   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 603 Antimicrobial Drugs — antibiotics","title":"Data Sets with 603 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 603 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 603 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 483 observations and 14 variables:","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"ab Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available cid Compound ID found PubChem name Official name used WHONET/EARS-Net 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 174 drugs oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral (intravenous) treatment, currently available 146 drugs iv_units Units iv_ddd loinc LOINC codes (Logical Observation Identifiers Names Codes) associated name antimicrobial drug. 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 603 Antimicrobial Drugs — antibiotics","text":"av Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available name Official name used WHONET/EARS-Net atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC cid Compound ID found PubChem 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 LOINC codes (Logical Observation Identifiers Names Codes) associated name antimicrobial drug.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology (WHOCC): https://www.whocc./atc_ddd_index/ Logical Observation Identifiers Names Codes (LOINC), Version 2.73 (8 August, 2022). Accessed https://loinc.org 30 October, 2022. 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 603 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 603 Antimicrobial Drugs — antibiotics","text":"Like data sets package, data sets publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, 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 603 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://www.whocc.) 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://www.whocc./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 603 Antimicrobial Drugs — antibiotics","text":"","code":"antibiotics #> # A tibble: 483 × 14 #>    ab        cid name        group atc   atc_g…¹ atc_g…² abbre…³ synon…⁴ oral_…⁵ #>    <ab>    <dbl> <chr>       <chr> <lis> <chr>   <chr>   <list>  <named>   <dbl> #>  1 AMA      4649 4-aminosal… Anti… <chr> Drugs … Aminos… <chr>   <chr>     12    #>  2 ACM   6450012 Acetylmide… Macr… <chr> NA      NA      <chr>   <chr>     NA    #>  3 ASP  49787020 Acetylspir… Macr… <chr> NA      NA      <chr>   <chr>     NA    #>  4 ALS      8954 Aldesulfon… Othe… <chr> Drugs … Drugs … <chr>   <chr>      0.33 #>  5 AMK     37768 Amikacin    Amin… <chr> Aminog… Other … <chr>   <chr>     NA    #>  6 AKF        NA Amikacin/f… Amin… <chr> NA      NA      <chr>   <chr>     NA    #>  7 AMX     33613 Amoxicillin Beta… <chr> Beta-l… Penici… <chr>   <chr>      1.5  #>  8 AMC  23665637 Amoxicilli… Beta… <chr> Beta-l… Combin… <chr>   <chr>      1.5  #>  9 AXS    465441 Amoxicilli… Beta… <chr> NA      NA      <chr>   <chr>     NA    #> 10 AMB   5280965 Amphoteric… Anti… <chr> Antimy… Antibi… <chr>   <chr>     40    #> # … with 473 more rows, 4 more variables: oral_units <chr>, iv_ddd <dbl>, #> #   iv_units <chr>, loinc <list>, and abbreviated variable names ¹​atc_group1, #> #   ²​atc_group2, ³​abbreviations, ⁴​synonyms, ⁵​oral_ddd antivirals #> # A tibble: 120 × 11 #>    av    name  atc      cid atc_g…¹ synon…² oral_…³ oral_…⁴ iv_ddd iv_un…⁵ loinc #>    <av>  <chr> <chr>  <dbl> <chr>   <list>    <dbl> <chr>    <dbl> <chr>   <lis> #>  1 ABA   Abac… J05A… 4.41e5 Nucleo… <chr>       0.6 g           NA NA      <chr> #>  2 ACI   Acic… J05A… 1.35e8 Nucleo… <chr>       4   g            4 g       <chr> #>  3 ADD   Adef… J05A… 6.09e4 Nucleo… <chr>      10   mg          NA NA      <chr> #>  4 AME   Amen… J05A… 1.14e7 Other … <chr>       0.4 g           NA NA      <chr> #>  5 AMP   Ampr… J05A… 6.50e4 Protea… <chr>       1.2 g           NA NA      <chr> #>  6 ASU   Asun… J05A… 1.61e7 Antivi… <chr>       0.2 g           NA NA      <chr> #>  7 ATA   Ataz… J05A… 1.48e5 Protea… <chr>       0.3 g           NA NA      <chr> #>  8 ATA+… Ataz… J05A… 8.66e7 Antivi… <chr>      NA   NA          NA NA      <chr> #>  9 ATA+… Ataz… J05A… 2.51e7 Antivi… <chr>       0.3 g           NA NA      <chr> #> 10 BAM   Balo… J05A… 1.24e8 Other … <chr>      40   mg          NA NA      <chr> #> # … with 110 more rows, and abbreviated variable names ¹​atc_group, ²​synonyms, #> #   ³​oral_ddd, ⁴​oral_units, ⁵​iv_units"},{"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://www.whocc./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://www.whocc.) 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://www.whocc./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, SAS, 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       #> # … with 1,990 more rows, and 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>, #> #   J01FA01 <sir>, J01FF01 <sir>, J01FA10 <sir>, J01DH51 <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://www.whocc./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://www.whocc.) 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://www.whocc./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, SAS, 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 6 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 6 50 millimetres. Values higher 50 lower 100 maximised 50. others input values outside 6-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\" ) #> => Interpreting disk diffusion zones of 'ampicillin' (AMP) according to #>    EUCAST 2022... #>  OK. #> Class 'sir' #> [1] R  # interpret whole data set, pretend to be all from urinary tract infections: as.sir(df, uti = TRUE) #> => Interpreting disk diffusion zones of column 'AMP' (ampicillin) according #>    to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of column 'CIP' (ciprofloxacin) #>    according to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of column 'GEN' (gentamicin) according #>    to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of column 'TOB' (tobramycin) according #>    to EUCAST 2022... #>  OK. #>      microorganism AMP CIP GEN TOB #> 1 Escherichia coli   S   R   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)  NA_mic_  is.mic(x)  # S3 method for 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 .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 decimal numbers. Bare 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 (2013-2022) CLSI (2013-2022). 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.:   following generic functions implemented MIC class: !, !=, %%, %/%, &, *, +, -, /, <, <=, ==, >, >=, ^, |, abs(), acos(), acosh(), (), (), asin(), asinh(), atan(), atanh(), ceiling(), cos(), cosh(), cospi(), cummax(), cummin(), cumprod(), cumsum(), digamma(), exp(), expm1(), floor(), gamma(), lgamma(), log(), log1p(), log2(), log10(), max(), mean(), min(), prod(), range(), round(), sign(), signif(), sin(), sinh(), sinpi(), sqrt(), sum(), tan(), tanh(), tanpi(), trigamma() trunc(). functions stats package also implemented: median(), quantile(), mad(), IQR(), fivenum(). Also, boxplot.stats() supported. 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. 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  # interpret MIC values as.sir(   x = as.mic(2),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #> => Interpreting MIC values of 'AMX' (amoxicillin) according to EUCAST #>    2022... #>  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\" ) #> => Interpreting MIC values of 'AMX' (amoxicillin) according to EUCAST #>    2022... #>  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 }  if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\", language = \"uk\") # Ukrainian }"},{"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, 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()),   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. language language translate text like \"growth\", defaults system language (see get_AMR_locale()) info logical indicate progress bar printed 25 items coerced - 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' returned MO code UNKNOWN warning. Use mo_* functions get properties based returned code, see Examples. .mo() function uses novel matching score algorithm (see Matching Score Microorganisms ) match input available microbial taxonomy package. lead effect e.g. \"E. coli\" (microorganism highly prevalent humans) return microbial ID Escherichia coli Entamoeba coli (microorganism less prevalent humans), although latter alphabetically come first. Becker = TRUE, following 85 staphylococci converted coagulase-negative group: S. argensis, S. arlettae, S. auricularis, S. borealis, 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. 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. 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. following 16 staphylococci converted coagulase-positive group: 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. Lancefield = TRUE, following streptococci converted corresponding Lancefield group: S. agalactiae (Group B), S. anginosus anginosus (Group F), S. anginosus whileyi (Group F), S. anginosus (Group F), S. canis (Group G), S. dysgalactiae dysgalactiae (Group C), S. dysgalactiae equisimilis (Group C), S. dysgalactiae (Group C), S. equi equi (Group C), S. equi ruminatorum (Group C), S. equi zooepidemicus (Group C), S. equi (Group C), S. pyogenes (Group ), S. salivarius salivarius (Group K), S. salivarius thermophilus (Group K), S. salivarius (Group K), S. sanguinis (Group H).","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   \\----> taxonomic kingdom: A (Archaea), AN (Animalia), B (Bacteria),                             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 evaluate results mo_uncertainties(), returns data.frame specifications. increase quality matching, cleaning_regex argument can used clean input (.e., x). 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":"microbial-prevalence-of-pathogens-in-humans","dir":"Reference","previous_headings":"","what":"Microbial Prevalence of Pathogens in Humans","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"coercion rules consider prevalence microorganisms humans, available prevalence column microorganisms data set. grouping human pathogenic prevalence explained section Matching Score Microorganisms .","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 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 Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571 Berends MS et al. (2022). Trends Occurrence Phenotypic Resistance Coagulase-Negative Staphylococci (CoNS) Found Human Blood Northern Netherlands 2013 2019 Microorganisms 10(9), 1801; doi:10.3390/microorganisms10091801 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 11 December, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org 11 December, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microoganism', 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 = 2, Protozoa = 3, Archaea = 4, others = 5. 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.0 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, genus present established list also prevalence = 1.0 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.5 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chrysonilia, Cladophialophora, Cladosporium, Conidiobolus, Contracaecum, Cordylobia, Cryptococcus, Curvularia, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Giardia, Haloarcula, Halobacterium, Halococcus, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hymenolepis, Hypomyces, Hysterothylacium, Leishmania, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Mortierella, Mucor, Mycocentrospora, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Pediculus, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoterranova, Pulex, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Sarcoptes, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Stachybotrys, Strongyloides, Syngamus, Taenia, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Wuchereria; 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.159\\), 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, SAS, 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  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":"Interpret minimum inhibitory concentration (MIC) values disk diffusion diameters according EUCAST CLSI, clean existing SIR values. transforms input new class sir, ordered factor levels S < < R. breakpoints used interpretation publicly 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)  # S3 method for 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),   ... )  # S3 method for 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),   ... )  # S3 method for 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) )  sir_interpretation_history(clean = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"object class sir (inherits ordered, factor) length 1.","code":""},{"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: M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 2013-2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. M100 Performance Standard Antimicrobial Susceptibility Testing, 2013-2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m100/. Breakpoint tables interpretation MICs zone diameters, 2013-2022, European Committee Antimicrobial Susceptibility Testing (EUCAST). https://www.eucast.org/clinical_breakpoints.","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 mo (vector ) text can coerced valid microorganism codes .mo(), can left empty determine automatically ab (vector ) text can coerced valid antimicrobial drug code .ab() guideline defaults EUCAST 2022 (latest implemented EUCAST guideline clinical_breakpoints data set), can set package option AMR_guideline. Currently supports EUCAST (2013-2022) CLSI (2013-2022), see Details. uti (Urinary Tract Infection) vector 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. 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":"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 works four ways: cleaning raw / untransformed data. data cleaned contain values S, R try best determine 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 unclear. 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.disk, as.sir) your_data %>% mutate(across(where(is.disk), as.sir))"},{"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 EUCAST (2013-2022) CLSI (2013-2022). Thus, guideline argument must set e.g., \"EUCAST 2022\" \"CLSI 2022\". 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), :","code":"options(AMR_guideline = \"CLSI\")   options(AMR_guideline = \"CLSI 2018\")   options(AMR_guideline = \"EUCAST 2020\")   # or to reset:   options(AMR_guideline = NULL)"},{"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.","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 18 308 rows 11 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. function is_sir_eligible() returns TRUE columns contains 5% invalid antimicrobial interpretations (S //R), 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, SAS, 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    #> # … with 1,990 more rows, and 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> 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              %R   :73.7% (n=1201)   #>  Mode  :character   Unique:90             %SI  :26.3% (n=428)    #>                     #1    :B_ESCHR_COLI   - %S :25.6% (n=417)    #>                     #2    :B_STPHY_CONS   - %I : 0.7% (n=11)     #>                     #3    :B_STPHY_AURS                          #>     OXA                   FLC                   AMX                #>  Class:sir             Class:sir             Class:sir             #>  %R   :31.2% (n=114)   %R   :29.5% (n=278)   %R   :59.6% (n=804)   #>  %SI  :68.8% (n=251)   %SI  :70.5% (n=665)   %SI  :40.4% (n=546)   #>  - %S :68.8% (n=251)   - %S :70.5% (n=665)   - %S :40.2% (n=543)   #>  - %I : 0.0% (n=0)     - %I : 0.0% (n=0)     - %I : 0.2% (n=3)     #>                                                                    #>     AMC                    AMP                   TZP                #>  Class:sir              Class:sir             Class:sir             #>  %R   :23.7% (n=446)    %R   :59.6% (n=804)   %R   :12.6% (n=126)   #>  %SI  :76.3% (n=1433)   %SI  :40.4% (n=546)   %SI  :87.4% (n=875)   #>  - %S :71.4% (n=1342)   - %S :40.2% (n=543)   - %S :86.1% (n=862)   #>  - %I : 4.8% (n=91)     - %I : 0.2% (n=3)     - %I : 1.3% (n=13)    #>                                                                     #>     CZO                   FEP                   CXM                 #>  Class:sir             Class:sir             Class:sir              #>  %R   :44.6% (n=199)   %R   :14.2% (n=103)   %R   :26.3% (n=470)    #>  %SI  :55.4% (n=247)   %SI  :85.8% (n=621)   %SI  :73.7% (n=1319)   #>  - %S :54.9% (n=245)   - %S :85.6% (n=620)   - %S :72.5% (n=1297)   #>  - %I : 0.4% (n=2)     - %I : 0.1% (n=1)     - %I : 1.2% (n=22)     #>                                                                     #>     FOX                   CTX                   CAZ                 #>  Class:sir             Class:sir             Class:sir              #>  %R   :27.4% (n=224)   %R   :15.5% (n=146)   %R   :66.5% (n=1204)   #>  %SI  :72.6% (n=594)   %SI  :84.5% (n=797)   %SI  :33.5% (n=607)    #>  - %S :71.6% (n=586)   - %S :84.4% (n=796)   - %S :33.5% (n=607)    #>  - %I : 1.0% (n=8)     - %I : 0.1% (n=1)     - %I : 0.0% (n=0)      #>                                                                     #>     CRO                   GEN                    TOB                #>  Class:sir             Class:sir              Class:sir             #>  %R   :15.5% (n=146)   %R   :24.6% (n=456)    %R   :34.4% (n=465)   #>  %SI  :84.5% (n=797)   %SI  :75.4% (n=1399)   %SI  :65.6% (n=886)   #>  - %S :84.4% (n=796)   - %S :74.0% (n=1372)   - %S :65.1% (n=879)   #>  - %I : 0.1% (n=1)     - %I : 1.5% (n=27)     - %I : 0.5% (n=7)     #>                                                                     #>     AMK                   KAN                    TMP                #>  Class:sir             Class:sir              Class:sir             #>  %R   :63.7% (n=441)   %R   :100.0% (n=471)   %R   :38.1% (n=571)   #>  %SI  :36.3% (n=251)   %SI  : 0.0% (n=0)      %SI  :61.9% (n=928)   #>  - %S :36.3% (n=251)   - %S : 0.0% (n=0)      - %S :61.2% (n=918)   #>  - %I : 0.0% (n=0)     - %I : 0.0% (n=0)      - %I : 0.7% (n=10)    #>                                                                     #>     SXT                    NIT                   FOS                #>  Class:sir              Class:sir             Class:sir             #>  %R   :20.5% (n=361)    %R   :17.1% (n=127)   %R   :42.2% (n=148)   #>  %SI  :79.5% (n=1398)   %SI  :82.9% (n=616)   %SI  :57.8% (n=203)   #>  - %S :79.1% (n=1392)   - %S :76.0% (n=565)   - %S :57.8% (n=203)   #>  - %I : 0.3% (n=6)      - %I : 6.9% (n=51)    - %I : 0.0% (n=0)     #>                                                                     #>     LNZ                   CIP                    MFX                #>  Class:sir             Class:sir              Class:sir             #>  %R   :69.3% (n=709)   %R   :16.2% (n=228)    %R   :33.6% (n=71)    #>  %SI  :30.7% (n=314)   %SI  :83.8% (n=1181)   %SI  :66.4% (n=140)   #>  - %S :30.7% (n=314)   - %S :78.9% (n=1112)   - %S :64.5% (n=136)   #>  - %I : 0.0% (n=0)     - %I : 4.9% (n=69)     - %I : 1.9% (n=4)     #>                                                                     #>     VAN                    TEC                   TCY                #>  Class:sir              Class:sir             Class:sir             #>  %R   :38.3% (n=712)    %R   :75.7% (n=739)   %R   :29.8% (n=357)   #>  %SI  :61.7% (n=1149)   %SI  :24.3% (n=237)   %SI  :70.3% (n=843)   #>  - %S :61.7% (n=1149)   - %S :24.3% (n=237)   - %S :68.3% (n=820)   #>  - %I : 0.0% (n=0)      - %I : 0.0% (n=0)     - %I : 1.9% (n=23)    #>                                                                     #>     TGC                   DOX                   ERY                 #>  Class:sir             Class:sir             Class:sir              #>  %R   :12.7% (n=101)   %R   :27.7% (n=315)   %R   :57.2% (n=1084)   #>  %SI  :87.3% (n=697)   %SI  :72.3% (n=821)   %SI  :42.8% (n=810)    #>  - %S :87.3% (n=697)   - %S :71.7% (n=814)   - %S :42.3% (n=801)    #>  - %I : 0.0% (n=0)     - %I : 0.6% (n=7)     - %I : 0.5% (n=9)      #>                                                                     #>     CLI                   AZM                    IPM                #>  Class:sir             Class:sir              Class:sir             #>  %R   :61.2% (n=930)   %R   :57.2% (n=1084)   %R   : 6.2% (n=55)    #>  %SI  :38.8% (n=590)   %SI  :42.8% (n=810)    %SI  :93.8% (n=834)   #>  - %S :38.6% (n=586)   - %S :42.3% (n=801)    - %S :92.7% (n=824)   #>  - %I : 0.3% (n=4)     - %I : 0.5% (n=9)      - %I : 1.1% (n=10)    #>                                                                     #>     MEM                   MTR                  CHL                #>  Class:sir             Class:sir            Class:sir             #>  %R   : 5.9% (n=49)    %R   :14.7% (n=5)    %R   :21.4% (n=33)    #>  %SI  :94.1% (n=780)   %SI  :85.3% (n=29)   %SI  :78.6% (n=121)   #>  - %S :94.1% (n=780)   - %S :85.3% (n=29)   - %S :78.6% (n=121)   #>  - %I : 0.0% (n=0)     - %I : 0.0% (n=0)    - %I : 0.0% (n=0)     #>                                                                   #>     COL                    MUP                   RIF                #>  Class:sir              Class:sir             Class:sir             #>  %R   :81.2% (n=1331)   %R   : 5.9% (n=16)    %R   :69.6% (n=698)   #>  %SI  :18.8% (n=309)    %SI  :94.1% (n=254)   %SI  :30.4% (n=305)   #>  - %S :18.8% (n=309)    - %S :93.0% (n=251)   - %S :30.2% (n=303)   #>  - %I : 0.0% (n=0)      - %I : 1.1% (n=3)     - %I : 0.2% (n=2)     #>                                                                      # For INTERPRETING disk diffusion and MIC values -----------------------  # a whole data set, even with combined MIC values and disk zones df <- data.frame(   microorganism = \"Escherichia coli\",   AMP = as.mic(8),   CIP = as.mic(0.256),   GEN = as.disk(18),   TOB = as.disk(16),   ERY = \"R\" ) as.sir(df) #> => Interpreting MIC values of column 'AMP' (ampicillin) according to EUCAST #>    2022... #>  OK. #> => Interpreting MIC values of column 'CIP' (ciprofloxacin) according to #>    EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of column 'GEN' (gentamicin) according #>    to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of column 'TOB' (tobramycin) according #>    to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Assigning class 'sir' to already clean column 'ERY' (erythromycin)... #>  OK. #>      microorganism AMP CIP GEN TOB ERY #> 1 Escherichia coli   S   I   S   S   R  # return a 'logbook' about the results: sir_interpretation_history() #> # A tibble: 50 × 17 #>    datetime            index ab_input ab_guid…¹ mo_in…² mo_guideline     guide…³ #>    <dttm>              <int> <chr>    <ab>      <chr>   <mo>             <chr>   #>  1 2023-03-11 15:59:39     1 TOB      TOB       Escher… B_[ORD]_ENTRBCTR EUCAST… #>  2 2023-03-11 15:59:39     1 GEN      GEN       Escher… B_[ORD]_ENTRBCTR EUCAST… #>  3 2023-03-11 15:59:38     1 CIP      CIP       Escher… B_[ORD]_ENTRBCTR EUCAST… #>  4 2023-03-11 15:59:38     1 AMP      AMP       Escher… B_[ORD]_ENTRBCTR EUCAST… #>  5 2023-03-11 15:59:33     1 CIP      CIP       B_ESCH… B_[ORD]_ENTRBCTR EUCAST… #>  6 2023-03-11 15:59:33     2 CIP      CIP       B_ESCH… B_[ORD]_ENTRBCTR EUCAST… #>  7 2023-03-11 15:59:33     3 CIP      CIP       B_ESCH… B_[ORD]_ENTRBCTR EUCAST… #>  8 2023-03-11 15:59:33     4 CIP      CIP       B_ESCH… B_[ORD]_ENTRBCTR EUCAST… #>  9 2023-03-11 15:59:33     5 CIP      CIP       B_ESCH… B_[ORD]_ENTRBCTR EUCAST… #> 10 2023-03-11 15:59:33     6 CIP      CIP       B_ESCH… B_[ORD]_ENTRBCTR EUCAST… #> # … with 40 more rows, 10 more variables: ref_table <chr>, method <chr>, #> #   input <dbl>, outcome <sir>, breakpoint_S_R <chr>, ab_considered <lgl>, #> #   mo_considered <lgl>, breakpoint_S <lgl>, breakpoint_R <lgl>, #> #   interpretation <lgl>, and abbreviated variable names ¹​ab_guideline, #> #   ²​mo_input, ³​guideline  # for single values as.sir(   x = as.mic(2),   mo = as.mo(\"S. pneumoniae\"),   ab = \"AMP\",   guideline = \"EUCAST\" ) #> => Interpreting MIC values of 'AMP' (ampicillin) according to EUCAST #>    2022... #>  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\" ) #> => Interpreting disk diffusion zones of 'ampicillin' (AMP) according to #>    EUCAST 2022... #>  OK. #> Class 'sir' #> [1] R  # \\donttest{ # the dplyr way if (require(\"dplyr\")) {   df %>% mutate_if(is.mic, as.sir)   df %>% mutate_if(function(x) is.mic(x) | is.disk(x), as.sir)   df %>% mutate(across(where(is.mic), as.sir))   df %>% mutate_at(vars(AMP:TOB), as.sir)   df %>% mutate(across(AMP:TOB, as.sir))    df %>%     mutate_at(vars(AMP:TOB), as.sir, mo = .$microorganism)    # to include information about urinary tract infections (UTI)   data.frame(     mo = \"E. coli\",     NIT = c(\"<= 2\", 32),     from_the_bladder = c(TRUE, FALSE)   ) %>%     as.sir(uti = \"from_the_bladder\")    data.frame(     mo = \"E. coli\",     NIT = c(\"<= 2\", 32),     specimen = c(\"urine\", \"blood\")   ) %>%     as.sir() # automatically determines urine isolates    df %>%     mutate_at(vars(AMP:TOB), as.sir, mo = \"E. coli\", uti = TRUE) } #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'AMP' (ampicillin) according to EUCAST #>    2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) according to EUCAST #>    2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) according to #>    EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) according to #>    EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of column 'NIT' (nitrofurantoin) according to #>    EUCAST 2022... #> Warning: in as.sir(): interpretation of nitrofurantoin (NIT) is only available for #> (uncomplicated) urinary tract infections (UTI) for some microorganisms, #> thus assuming uti = TRUE. See ?as.sir. #>  * WARNING * #> ℹ Assuming value \"urine\" in column 'specimen' reflects a urinary tract #>   infection. #>   Use as.sir(uti = FALSE) to prevent this. #> => Interpreting MIC values of column 'NIT' (nitrofurantoin) according to #>    EUCAST 2022... #> Warning: in as.sir(): interpretation of nitrofurantoin (NIT) is only available for #> (uncomplicated) urinary tract infections (UTI) for some microorganisms, #> thus assuming uti = TRUE. See ?as.sir. #>  * WARNING * #> => Interpreting MIC values of 'AMP' (ampicillin) according to EUCAST #>    2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) according to EUCAST #>    2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) according to #>    EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) according to #>    EUCAST 2022... #>  OK. #>      microorganism AMP CIP GEN TOB ERY #> 1 Escherichia coli   S   I   S   S   R  # For CLEANING existing SIR values ------------------------------------  as.sir(c(\"S\", \"I\", \"R\", \"A\", \"B\", \"C\")) #> Warning: in as.sir(): 3 results in column '24' truncated (50%) that were invalid #> antimicrobial interpretations: \"A\", \"B\", and \"C\" #> Class 'sir' #> [1] S    I    R    <NA> <NA> <NA> as.sir(\"<= 0.002; S\") # will return \"S\" #> Class 'sir' #> [1] 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   # 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    #> # … with 1,990 more rows, and 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> # }"},{"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://www.whocc.no/atc_ddd_index/?code=%s&showdescription=no\",   url_vet = \"https://www.whocc.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://www.whocc./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://www.whocc./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, SAS, 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://www.whocc.no/atc_ddd_index/?code=J05AB01&showdescription=no\"   # smart lowercase tranformation 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\" \"78772-1\" \"78773-9\" \"79134-3\" \"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 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 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\", \"\", \"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    #> # … with 1,990 more rows, and 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>  # \\donttest{ x <- bug_drug_combinations(example_isolates) head(x) #> # A tibble: 6 × 6 #>   mo                ab        S     I     R total #>   <chr>             <chr> <int> <int> <int> <int> #> 1 (unknown species) AMC      15     0     0    15 #> 2 (unknown species) AMK       0     0     0     0 #> 3 (unknown species) AMP      15     0     1    16 #> 4 (unknown species) AMX      15     0     1    16 #> 5 (unknown species) AZM       3     0     3     6 #> 6 (unknown species) CAZ       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. co…¹ E. fa…² K. pn…³ P. ae…⁴ P. mi…⁵ S. au…⁶ S. ep…⁷ #>    <chr>     <chr> <chr> <chr>   <chr>   <chr>   <chr>   <chr>   <chr>   <chr>   #>  1 \"Aminogl… Amik… \"100… \"  0.0… \"100.0… \"\"      \"\"      \"\"      \"\"      \"100.0… #>  2 \"\"        Gent… \" 13… \"  2.0… \"100.0… \" 10.3… \"  0.0… \"  5.9… \"  0.9… \" 21.5… #>  3 \"\"        Kana… \"100… \"\"      \"100.0… \"\"      \"100.0… \"\"      \"\"      \"100.0… #>  4 \"\"        Tobr… \" 78… \"  2.6… \"100.0… \" 10.3… \"  0.0… \"  5.9… \"  2.3… \" 49.4… #>  5 \"Ampheni… Chlo… \"\"    \"\"      \"\"      \"\"      \"100.0… \"\"      \"  0.0… \"  3.1… #>  6 \"Antimyc… Rifa… \"\"    \"100.0… \"\"      \"100.0… \"100.0… \"100.0… \"  0.0… \"  2.7… #>  7 \"Beta-la… Amox… \" 93… \" 50.0… \"\"      \"100.0… \"100.0… \"\"      \" 93.9… \" 98.9… #>  8 \"\"        Amox… \" 42… \" 13.1… \"\"      \" 10.3… \"100.0… \"  2.8… \"  0.4… \" 54.5… #>  9 \"\"        Ampi… \" 93… \" 50.0… \"\"      \"100.0… \"100.0… \"\"      \" 93.9… \" 98.9… #> 10 \"\"        Benz… \" 77… \"100.0… \"\"      \"100.0… \"100.0… \"100.0… \" 80.9… \" 89.4… #> # … with 29 more rows, 2 more variables: `S. hominis` <chr>, #> #   `S. pneumoniae` <chr>, and abbreviated variable names ¹​`E. coli`, #> #   ²​`E. faecalis`, ³​`K. pneumoniae`, ⁴​`P. aeruginosa`, ⁵​`P. mirabilis`, #> #   ⁶​`S. aureus`, ⁷​`S. epidermidis`  # Use FUN to change to transformation of microorganism codes bug_drug_combinations(example_isolates,   FUN = mo_gramstain ) #> # A tibble: 80 × 6 #>    mo            ab        S     I     R total #>  * <chr>         <chr> <int> <int> <int> <int> #>  1 Gram-negative AMC     463    89   174   726 #>  2 Gram-negative AMK     251     0     5   256 #>  3 Gram-negative AMP     226     0   405   631 #>  4 Gram-negative AMX     226     0   405   631 #>  5 Gram-negative AZM       1     2   696   699 #>  6 Gram-negative CAZ     607     0    27   634 #>  7 Gram-negative CHL       1     0    30    31 #>  8 Gram-negative CIP     610    11    63   684 #>  9 Gram-negative CLI      18     1   709   728 #> 10 Gram-negative COL     309     0    78   387 #> # … with 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 × 6 #>    mo      ab        S     I     R total #>  * <chr>   <chr> <int> <int> <int> <int> #>  1 E. coli AMC     332    74    61   467 #>  2 E. coli AMK     171     0     0   171 #>  3 E. coli AMP     196     0   196   392 #>  4 E. coli AMX     196     0   196   392 #>  5 E. coli AZM       0     0   467   467 #>  6 E. coli CAZ     449     0    11   460 #>  7 E. coli CHL       0     0     0     0 #>  8 E. coli CIP     398     1    57   456 #>  9 E. coli CLI       0     0   467   467 #> 10 E. coli COL     240     0     0   240 #> # … with 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. Currently implemented guidelines EUCAST (2013-2022) CLSI (2013-2022). 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 18 308 observations 11 variables: guideline Name guideline method Either \"DISK\" \"MIC\" site Body site, e.g. \"Oral\" \"Respiratory\" mo Microbial ID, see .mo() rank_index Taxonomic rank index mo 1 (subspecies/infraspecies) 5 (unknown microorganism) ab Antibiotic ID, 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)","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","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, SAS, 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":[]},{"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: 18,308 × 11 #>    guideline method site  mo               rank_…¹ ab   ref_tbl  disk_…² break…³ #>    <chr>     <chr>  <chr> <mo>               <dbl> <ab> <chr>    <chr>     <dbl> #>  1 EUCAST 2… MIC    NA    F_ASPRG_MGTS           2 AMB  Aspergi… NA            1 #>  2 EUCAST 2… MIC    NA    F_ASPRG_NIGR           2 AMB  Aspergi… NA            1 #>  3 EUCAST 2… MIC    NA    F_CANDD_ALBC           2 AMB  Candida  NA            1 #>  4 EUCAST 2… MIC    NA    F_CANDD_DBLN           2 AMB  Candida  NA            1 #>  5 EUCAST 2… MIC    NA    F_CANDD_GLBR           2 AMB  Candida  NA            1 #>  6 EUCAST 2… MIC    NA    F_CANDD_KRUS           2 AMB  Candida  NA            1 #>  7 EUCAST 2… MIC    NA    F_CANDD_PRPS           2 AMB  Candida  NA            1 #>  8 EUCAST 2… MIC    NA    F_CANDD_TRPC           2 AMB  Candida  NA            1 #>  9 EUCAST 2… MIC    NA    F_CRYPT_NFRM           2 AMB  Candida  NA            1 #> 10 EUCAST 2… DISK   NA    B_[ORD]_ENTRBCTR       5 AMC  Enterob… 20ug/1…      19 #> # … with 18,298 more rows, 2 more variables: breakpoint_R <dbl>, uti <lgl>, and #> #   abbreviated variable names ¹​rank_index, ²​disk_dose, ³​breakpoint_S"},{"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_R(..., only_all_tested = FALSE)  count_IR(..., only_all_tested = FALSE)  count_I(..., only_all_tested = FALSE)  count_SI(..., only_all_tested = FALSE)  count_S(..., 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 must merged one, output consists S+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\" being susceptible. This note will be shown once for this #> session. #> [1] 543 count_SI(example_isolates$AMX) #> [1] 546 count_I(example_isolates$AMX) #> [1] 3 count_IR(example_isolates$AMX) #> Using count_IR() is discouraged; use count_resistant() instead to not #> consider \"I\" 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 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\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_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-antibiotic-group-names","dir":"Reference","previous_headings":"","what":"Usage of antibiotic group names","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"possible define antibiotic groups instead single antibiotics rule consequence, part tilde. examples, antibiotic group aminopenicillins used include ampicillin amoxicillin. following groups allowed (case-insensitive). Within parentheses drugs matched running rule. \"aminoglycosides\"(amikacin, amikacin/fosfomycin, amphotericin B-high, 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\"(amphotericin B, 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, 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) \"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, 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, 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, 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) \"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, 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) \"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":""},{"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_…¹ rule_…² rule_…³ #>   <int> <chr> <chr>                 <ord> <chr> <chr>    <chr>   <chr>   <chr>   #> 1    33 AMP   Klebsiella pneumoniae R     I     \"report… Custom… Custom… Object… #> 2    33 AMX   Klebsiella pneumoniae R     I     \"report… Custom… Custom… Object… #> 3    34 AMP   Klebsiella pneumoniae R     I     \"report… Custom… Custom… Object… #> 4    34 AMX   Klebsiella pneumoniae R     I     \"report… Custom… Custom… Object… #> 5   531 AMP   Klebsiella pneumoniae R     I     \"report… Custom… Custom… Object… #> 6   531 AMX   Klebsiella pneumoniae R     I     \"report… Custom… Custom… Object… #> 7  1485 AMP   Klebsiella oxytoca    R     I     \"report… Custom… Custom… Object… #> 8  1485 AMX   Klebsiella oxytoca    R     I     \"report… Custom… Custom… Object… #> # … with abbreviated variable names ¹​rule_group, ²​rule_name, ³​rule_source  # 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 336 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","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":"data set based 'EUCAST Clinical Breakpoint Tables' v12.0 (2022) 'EUCAST Clinical Breakpoint Tables' v11.0 (2021).","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","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, SAS, 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: 336 × 9 #>    ab   name                   type  dose  dose_…¹ admin…² notes origi…³ eucas…⁴ #>    <ab> <chr>                  <chr> <chr>   <int> <chr>   <chr> <chr>     <dbl> #>  1 AMK  Amikacin               stan… 25-3…       1 iv      \"\"    25-30 …      12 #>  2 AMX  Amoxicillin            high… 2 g         6 iv      \"\"    2 g x …      12 #>  3 AMX  Amoxicillin            stan… 1 g         3 iv      \"\"    1 g x …      12 #>  4 AMX  Amoxicillin            high… 0.75…       3 oral    \"\"    0.75-1…      12 #>  5 AMX  Amoxicillin            stan… 0.5 g       3 oral    \"\"    0.5 g …      12 #>  6 AMX  Amoxicillin            unco… 0.5 g       3 oral    \"\"    0.5 g …      12 #>  7 AMC  Amoxicillin/clavulani… high… 2 g …       3 iv      \"\"    (2 g a…      12 #>  8 AMC  Amoxicillin/clavulani… stan… 1 g …       3 iv      \"\"    (1 g a…      12 #>  9 AMC  Amoxicillin/clavulani… high… 0.87…       3 oral    \"\"    (0.875…      12 #> 10 AMC  Amoxicillin/clavulani… stan… 0.5 …       3 oral    \"\"    (0.5 g…      12 #> # … with 326 more rows, and abbreviated variable names ¹​dose_times, #> #   ²​administration, ³​original_txt, ⁴​eucast_version"},{"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 either \"12.0\", \"11.0\", \"10.0\". version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can either \"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 11 December, 2022, 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, S01AE08), amoxicillin (AMX, J01MA02), amoxicillin/clavulanic acid (AMC, J01MA23), ampicillin (AMP, J01MA04), ampicillin/sulbactam (SAM, J01MA08), arbekacin (ARB, J01MA19), aspoxicillin (APX, J01MA16), azidocillin (AZD, J01MA15), azithromycin (AZM, J01MA11), azlocillin (AZL, J01MA25), aztreonam (ATM, J01MA12), bacampicillin (BAM, J01MA24), bekanamycin (BEK, J01MA07), benzathine benzylpenicillin (BNB, J01MA14), benzathine phenoxymethylpenicillin (BNP, D10AF05), benzylpenicillin (PEN, J01MA06), besifloxacin (BES, J01MA01), biapenem (BIA, J01MA18), carbenicillin (CRB, J01MA03), carindacillin (CRN, J01MA17), cefacetrile (CAC, J01MA10), cefaclor (CEC, J01MA21), cefadroxil (CFR, J01MA09), cefalexin (LEX, J01MA05), cefaloridine (RID, P01AA05), cefalotin (CEP, J01MA22), cefamandole (MAN, J01MA13), cefapirin (HAP, J01CA01), cefatrizine (CTZ, J01CA04), cefazedone (CZD, J01CA12), cefazolin (CZO, J01CR05), cefcapene (CCP, J01CA13), cefdinir (CDR, J01AA02), cefditoren (DIT, J01FA10), cefepime (FEP, J01FA09), cefetamet (CAT, J01CR02), cefixime (CFM, J01AA08), cefmenoxime (CMX, J01FA06), cefmetazole (CMZ, J01CF04), cefodizime (DIZ, J01CF05), cefonicid (CID, J01CR01), cefoperazone (CFP, J01CA19), cefoperazone/sulbactam (CSL, J01CE04), ceforanide (CND, J01CA09), cefotaxime (CTX, J01DF01), cefotaxime/clavulanic acid (CTC, J01CA06), cefotetan (CTT, J01CE08), cefotiam (CTF, J01CE10), cefoxitin (FOX, J01CE01), cefozopran (ZOP, J01CA03), cefpiramide (CPM, J01CA05), cefpirome (CPO, J01CE07), cefpodoxime (CPD, J01CF02), cefprozil (CPR, J01CF01), cefroxadine (CRD, J01CA07), cefsulodin (CFS, J01CA18), ceftaroline (CPT, J01CA11), ceftazidime (CAZ, J01CA14), ceftazidime/clavulanic acid (CCV, J01CF03), cefteram (CEM, J01CA10), ceftezole (CTL, J01CF06), ceftibuten (CTB, J01CE06), ceftizoxime (CZX, J01CE05), ceftobiprole medocaril (CFM1, J01CE02), ceftolozane/tazobactam (CZT, J01CA02), ceftriaxone (CRO, J01CA08), ceftriaxone/beta-lactamase inhibitor (CEB, J01CE09), cefuroxime (CXM, J01CE03), cephradine (CED, J01CG01), chloramphenicol (CHL, J01CA16), ciprofloxacin (CIP, J01CR04), clarithromycin (CLR, J01CA15), clindamycin (CLI, J01CG02), clometocillin (CLM, J01CA17), cloxacillin (CLO, J01CR03), colistin (COL, J01DB10), cycloserine (CYC, J01DC04), dalbavancin (DAL, J01DB05), daptomycin (DAP, J01DB01), delafloxacin (DFX, J01DB02), dibekacin (DKB, J01DB03), dicloxacillin (DIC, J01DC03), dirithromycin (DIR, J01DB08), doripenem (DOR, J01DB07), doxycycline (DOX, J01DB06), enoxacin (ENX, J01DB04), epicillin (EPC, J01DD17), ertapenem (ETP, J01DD15), erythromycin (ERY, J01DD16), fleroxacin (FLE, J01DE01), flucloxacillin (FLC, J01DD10), flurithromycin (FLR1, J01DD08), fosfomycin (FOS, J01DD05), framycetin (FRM, J01DC09), fusidic acid (FUS, J01DD09), garenoxacin (GRN, J01DC06), gatifloxacin (GAT, J01DD12), gemifloxacin (GEM, J01DD62), gentamicin (GEN, J01DC11), grepafloxacin (GRX, J01DD01), hetacillin (HET, J01DD51), imipenem (IPM, J01DC05), imipenem/relebactam (IMR, J01DC07), isepamicin (ISE, J01DC01), josamycin (JOS, J01DE03), kanamycin (KAN, J01DD11), lascufloxacin (LSC, J01DE02), latamoxef (LTM, J01DD13), levofloxacin (LVX, J01DC10), levonadifloxacin (LND, J01DB11), lincomycin (LIN, J01DD03), linezolid (LNZ, J01DI02), lomefloxacin (LOM, J01DD02), loracarbef (LOR, J01DD52), mecillinam (MEC, J01DD18), meropenem (MEM, J01DB12), meropenem/vaborbactam (MEV, J01DD14), metampicillin (MTM, J01DD07), meticillin (MET, J01DI01), mezlocillin (MEZ, J01DI54), micronomicin (MCR, J01DD04), midecamycin (MID, J01DD63), minocycline (MNO, J01DC02), miocamycin (MCM, J01DB09), moxifloxacin (MFX, J01DD06), nadifloxacin (NAD, J01DC08), nafcillin (NAF, J01DH05), nalidixic acid (NAL, J01DH04), neomycin (NEO, J01DH03), netilmicin (NET, J01DH51), nitrofurantoin (NIT, J01DH56), norfloxacin (, J01DH02), ofloxacin (OFX, J01DH52), oleandomycin (OLE, J01DH55), oritavancin (ORI, J01DH06), oxacillin (OXA, J01XA02), panipenem (PAN, J01XA01), pazufloxacin (PAZ, J01XC01), pefloxacin (PEF, J01FA13), penamecillin (PNM, J01FA01), pheneticillin (PHE, J01FA14), phenoxymethylpenicillin (PHN, J01FA07), piperacillin (PIP, J01FA03), piperacillin/tazobactam (TZP, J01FA11), pivampicillin (PVM, J01FA05), pivmecillinam (PME, J01FA12), plazomicin (PLZ, J01FA16), polymyxin B (PLB, J01FA02), pristinamycin (PRI, J01FA15), procaine benzylpenicillin (PRB, J01FA08), propicillin (PRP, J01FF02), prulifloxacin (PRU, J01FG01), quinupristin/dalfopristin (QDA, J01FG02), ribostamycin (RST, J04AB02), rifampicin (RIF, J01XX09), rokitamycin (ROK, J01XX08), roxithromycin (RXT, J01AA07), rufloxacin (RFL, J01XB01), sisomicin (SIS, J01XB02), sitafloxacin (SIT, J01XE01), solithromycin (SOL, J01AA12), sparfloxacin (SPX, J01EA01), spiramycin (SPI, J01XX01), streptoduocin (STR, J01BA01), streptomycin (STR1, J01GB06), sulbactam (SUL, J01GB12), sulbenicillin (SBC, J01GB13), sulfadiazine (SDI, J01GB09), sulfadiazine/trimethoprim (SLT1, D09AA01), sulfadimethoxine (SUD, J01GB03), sulfadimidine (SDM, J01GB11), sulfadimidine/trimethoprim (SLT2, J01GB04), sulfafurazole (SLF, S01AA22), sulfaisodimidine (SLF1, J01GB05), sulfalene (SLF2, J01GB07), sulfamazone (SZO, J01GB14), sulfamerazine (SLF3, J01GB10), sulfamerazine/trimethoprim (SLT3, J01GB08), sulfamethizole (SLF4, J01GA02), sulfamethoxazole (SMX, J01GA01), sulfamethoxypyridazine (SLF5, J01GB01), sulfametomidine (SLF6, J01EE01), sulfametoxydiazine (SLF7, J01MB02), sulfametrole/trimethoprim (SLT4, J01FF01), sulfamoxole (SLF8, J01XA04), sulfamoxole/trimethoprim (SLT5, J01XA05), sulfanilamide (SLF9, J01XA03), sulfaperin (SLF10, J04AB01), sulfaphenazole (SLF11, J01XX11), sulfapyridine (SLF12, J01EC02), sulfathiazole (SUT, J01ED01), sulfathiourea (SLF13, J01EB03), sultamicillin (SLT6, J01EB05), talampicillin (TAL, J01EB01), tazobactam (TAZ, J01ED02), tebipenem (TBP, J01ED09), tedizolid (TZD, J01ED07), teicoplanin (TEC, J01EB02), telavancin (TLV, J01EC01), telithromycin (TLT, J01ED05), temafloxacin (TMX, J01ED03), temocillin (TEM, J01ED04), tetracycline (TCY, J01EC03), ticarcillin (TIC, J01EB06), ticarcillin/clavulanic acid (TCC, J01ED06), tigecycline (TGC, J01ED08), tilbroquinol (TBQ, J01EB04), tobramycin (TOB, J01EB07), tosufloxacin (TFX, J01EB08), trimethoprim (TMP, J01EE02), trimethoprim/sulfamethoxazole (SXT, J01EE05), troleandomycin (TRL, J01EE07), trovafloxacin (TVA, J01EE03), vancomycin (VAN, J01EE04)","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, SAS, 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(CXM:AMX) #>   - 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   -   S   R   S   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(CXM:AMX) #>   - 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 AMX Staphylococcus aureus   -   S       Breakpoints #> 2   1 CXM Staphylococcus aureus   -   S       Breakpoints #> 3   1 CAZ Staphylococcus aureus   R   S      Expert Rules #> 4   1 CAZ Staphylococcus aureus   -   R      Expert Rules #> 5   1 COL Staphylococcus aureus   -   R      Expert Rules #> 6   2 CAZ Enterococcus faecalis   -   R      Expert Rules #>                                                 rule_name #> 1                                          Staphylococcus #> 2                                          Staphylococcus #> 3                          Expert Rules on Staphylococcus #> 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 Clinical Breakpoint Tables' v12.0, 2022 #> 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, SAS, 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    #> # … with 1,990 more rows, and 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>"},{"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, SAS, 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     #> # … with 2,990 more rows"},{"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 #> Including isolates from ICU. #> ℹ Excluded 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,379 'phenotype-based' first isolates (69.0% of total where a #>    microbial ID was available) #> # A tibble: 1,379 × 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-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # … with 1,369 more rows, and 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> # \\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: 437 × 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    #> # … with 427 more rows, and 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>  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 #> Including isolates from ICU. #> ℹ Excluded 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,379 'phenotype-based' first isolates (69.0% of total where a #>    microbial ID was available) #> # A tibble: 1,379 × 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-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # … with 1,369 more rows, and 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> if (require(\"dplyr\")) {   # short-hand version:   example_isolates %>%     filter_first_isolate(info = FALSE) } #> # A tibble: 1,379 × 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-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # … with 1,369 more rows, and 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> 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 #> Including isolates from ICU. #>  #> Group: ward = \"Clinical\" #> ℹ Excluded 9 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 861 'phenotype-based' first isolates (69.8% of total where a #>    microbial ID was available) #> Including isolates from ICU. #>  #> Group: ward = \"ICU\" #> ℹ Excluded 6 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 449 'phenotype-based' first isolates (69.6% within scope and 69.5% #>    of total where a microbial ID was available) #> Including isolates from ICU. #>  #> Group: ward = \"Outpatient\" #> ℹ Excluded 1 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 98 'phenotype-based' first isolates (82.4% within scope and 81.7% #>    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 FALSE #> 10 ICU      2002-01-17 858515  B_STPHY_EPDR TRUE  #> # … with 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  9  6 37 14  5 39 36 47 13 45 19 26 35 24 42 46 29  1 38 31 27 20 23 11 #>  [26] 23 46  3  6 33 44 22 32 21 20 18  7  1 22 21 17 38 28 30 33 40 12  8 32 12 #>  [51] 47 34 43 24 48 46  9 47  4 47 34 47 26 30 25 44  1  1 10 10 33 20 15 20 45 #>  [76] 46 14 47  6 30 38  5 31 40 21  4 22  9  4 40  7  2 12  3 43 16 24 15 32  7 is_new_episode(df$date, episode_days = 60) # TRUE/FALSE #>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE #>  [13]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE #>  [25]  TRUE FALSE FALSE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE #>  [37]  TRUE FALSE FALSE FALSE  TRUE FALSE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE #>  [49] FALSE FALSE FALSE  TRUE  TRUE FALSE  TRUE FALSE FALSE FALSE  TRUE FALSE #>  [61] FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE #>  [73]  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE #>  [85] FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE #>  [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: 2 × 46 #>   date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>   <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #> 1 2003-01-06 894506     83 M      ICU      B_CRYNB      S     NA    NA    NA    #> 2 2002-11-18 956065     89 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #> # … with 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 [98] #>    patient date       condition new_episode #>    <chr>   <date>     <chr>     <lgl>       #>  1 04C169  2012-07-18 A         TRUE        #>  2 051150  2007-01-02 C         TRUE        #>  3 05C73F  2006-01-12 A         TRUE        #>  4 092034  2016-08-07 B         TRUE        #>  5 0C0688  2014-09-05 B         TRUE        #>  6 0D7D34  2011-03-17 A         TRUE        #>  7 0D7D34  2011-03-16 C         TRUE        #>  8 0DBB93  2003-10-02 C         TRUE        #>  9 114570  2003-04-22 A         TRUE        #> 10 146120  2011-09-23 B         TRUE        #> # … with 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 [95] #>    ward     date       patient new_index new_logical #>    <chr>    <date>     <chr>       <int> <lgl>       #>  1 Clinical 2012-07-18 04C169          1 TRUE        #>  2 ICU      2007-01-02 051150          1 TRUE        #>  3 Clinical 2006-01-12 05C73F          1 TRUE        #>  4 Clinical 2016-08-07 092034          1 TRUE        #>  5 Clinical 2014-09-05 0C0688          1 TRUE        #>  6 ICU      2011-03-16 0D7D34          1 FALSE       #>  7 ICU      2011-03-17 0D7D34          1 TRUE        #>  8 ICU      2003-10-02 0DBB93          1 TRUE        #>  9 ICU      2003-04-22 114570          1 TRUE        #> 10 Clinical 2011-09-23 146120          1 TRUE        #> # … with 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           62             13            35            48 #> 2 ICU                27              9            22            23 #> 3 Outpatient          6              4             6             6  # 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 [99] #>    patient mo            ward       flag_episode #>    <chr>   <mo>          <chr>      <lgl>        #>  1 310665  B_STPHY_CPTS  Outpatient TRUE         #>  2 B95551  B_STPHY_CONS  Outpatient TRUE         #>  3 F35553  B_ENTRC       ICU        TRUE         #>  4 919B60  B_STPHY_AURS  Clinical   TRUE         #>  5 911753  B_STPHY_AURS  Clinical   TRUE         #>  6 CBC201  B_STPHY_CONS  Clinical   TRUE         #>  7 DC47C6  B_PSDMN_AERG  Clinical   TRUE         #>  8 287666  B_ESCHR_COLI  Clinical   TRUE         #>  9 594103  B_MCRCCC_LUTS Clinical   TRUE         #> 10 B12221  B_STPHY_AURS  Clinical   TRUE         #> # … with 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)    # new ggplot2 plotting method using this package:   if (require(\"ggplot2\")) {     ggplot_pca(pca_result)      # still extendible with any ggplot2 function     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\"`, `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,   ... )  facet_sir(facet = c(\"interpretation\", \"antibiotic\"), nrow = NULL)  scale_y_percent(breaks = seq(0, 1, 0.1), limits = NULL)  scale_sir_colours(..., aesthetics = \"fill\")  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/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 must merged one, output consists S+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().","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"the-functions","dir":"Reference","previous_headings":"","what":"The Functions","title":"AMR Plots with ggplot2 — ggplot_sir","text":"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. 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 (`position_stack()`). #> Warning: Removed 6 rows containing missing values (`position_stack()`).  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 134 634 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, SAS, 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: 134,634 × 2 #>    mo      ab    #>    <mo>    <chr> #>  1 B_GRAMP ATM   #>  2 B_GRAMP COL   #>  3 B_GRAMP NAL   #>  4 B_GRAMP PLB   #>  5 B_GRAMP TEM   #>  6 B_ABTRP ATM   #>  7 B_ABTRP COL   #>  8 B_ABTRP NAL   #>  9 B_ABTRP PLB   #> 10 B_ABTRP TEM   #> # … with 134,624 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\"))  italicize_taxonomy(string, type = c(\"markdown\", \"ansi\"))"},{"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\" \"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 ANSI colours adding \\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 × 22 #>   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… #> # … with 12 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   source <chr>, lpsn <chr>, lpsn_parent <chr>, lpsn_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 × 22 #>   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… #> # … with 12 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   source <chr>, lpsn <chr>, lpsn_parent <chr>, lpsn_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\"        \"status\"          #>  [5] \"kingdom\"         \"phylum\"          \"class\"           \"order\"           #>  [9] \"family\"          \"genus\"           \"species\"         \"subspecies\"      #> [13] \"rank\"            \"ref\"             \"source\"          \"lpsn\"            #> [17] \"lpsn_parent\"     \"lpsn_renamed_to\" \"gbif\"            \"gbif_parent\"     #> [21] \"gbif_renamed_to\" \"prevalence\"      \"snomed\"           # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     left_join_microorganisms() %>%     colnames() } #> Joining, by = \"mo\" #>  [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\"             \"NIT\"             \"FOS\"             #> [29] \"LNZ\"             \"CIP\"             \"MFX\"             \"VAN\"             #> [33] \"TEC\"             \"TCY\"             \"TGC\"             \"DOX\"             #> [37] \"ERY\"             \"CLI\"             \"AZM\"             \"IPM\"             #> [41] \"MEM\"             \"MTR\"             \"CHL\"             \"COL\"             #> [45] \"MUP\"             \"RIF\"             \"fullname\"        \"status\"          #> [49] \"kingdom\"         \"phylum\"          \"class\"           \"order\"           #> [53] \"family\"          \"genus\"           \"species\"         \"subspecies\"      #> [57] \"rank\"            \"ref\"             \"source\"          \"lpsn\"            #> [61] \"lpsn_parent\"     \"lpsn_renamed_to\" \"gbif\"            \"gbif_parent\"     #> [65] \"gbif_renamed_to\" \"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] 1395 # }"},{"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)  # S3 method for default kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for matrix kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for 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.019054 kurtosis(rnorm(10000), excess = TRUE) #> [1] 0.0782188"},{"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":"a <- \"This is a test\" b <- \"TEST\" a %like% b #> [1] FALSE 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 #> Warning: argument 'pattern' has length > 1 and only the first element will be used #> [1]  TRUE FALSE FALSE a %unlike% b #> [1] FALSE FALSE FALSE  a[1] %like% b #> Warning: argument 'pattern' has length > 1 and only the first element will be used #> [1] TRUE 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: 0 × 46 #> # … with 46 variables: date <date>, patient <chr>, age <dbl>, gender <chr>, #> #   ward <chr>, mo <mo>, PEN <sir>, OXA <sir>, FLC <sir>, AMX <sir>, 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>, …  if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_name() %like% \"^ent\") } #> ℹ Using column 'mo' as input for mo_name() #> # A tibble: 0 × 46 #> # … with 46 variables: date <date>, patient <chr>, age <dbl>, gender <chr>, #> #   ward <chr>, mo <mo>, PEN <sir>, OXA <sir>, FLC <sir>, AMX <sir>, 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>, … # }"},{"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,   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, ...)  mdr_tb(x = NULL, only_sir_columns = FALSE, ...)  mdr_cmi2012(x = NULL, only_sir_columns = FALSE, ...)  eucast_exceptional_phenotypes(x = NULL, only_sir_columns = 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(). 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) (link) 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 - 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/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, S01AE08), amoxicillin (AMX, J01MA02), amoxicillin/clavulanic acid (AMC, J01MA23), ampicillin (AMP, J01MA04), ampicillin/sulbactam (SAM, J01MA08), arbekacin (ARB, J01MA19), aspoxicillin (APX, J01MA16), azidocillin (AZD, J01MA15), azithromycin (AZM, J01MA11), azlocillin (AZL, J01MA25), aztreonam (ATM, J01MA12), bacampicillin (BAM, J01MA24), bekanamycin (BEK, J01MA07), benzathine benzylpenicillin (BNB, J01MA14), benzathine phenoxymethylpenicillin (BNP, D10AF05), benzylpenicillin (PEN, J01MA06), besifloxacin (BES, J01MA01), biapenem (BIA, J01MA18), carbenicillin (CRB, J01MA03), carindacillin (CRN, J01MA17), cefacetrile (CAC, J01MA10), cefaclor (CEC, J01MA21), cefadroxil (CFR, J01MA09), cefalexin (LEX, J01MA05), cefaloridine (RID, P01AA05), cefalotin (CEP, J01MA22), cefamandole (MAN, J01MA13), cefapirin (HAP, J01CA01), cefatrizine (CTZ, J01CA04), cefazedone (CZD, J01CA12), cefazolin (CZO, J01CR05), cefcapene (CCP, J01CA13), cefdinir (CDR, J01AA02), cefditoren (DIT, J01FA10), cefepime (FEP, J01FA09), cefetamet (CAT, J01CR02), cefixime (CFM, J01AA08), cefmenoxime (CMX, J01FA06), cefmetazole (CMZ, J01CF04), cefodizime (DIZ, J01CF05), cefonicid (CID, J01CR01), cefoperazone (CFP, J01CA19), cefoperazone/sulbactam (CSL, J01CE04), ceforanide (CND, J01CA09), cefotaxime (CTX, J01DF01), cefotaxime/clavulanic acid (CTC, J01CA06), cefotetan (CTT, J01CE08), cefotiam (CTF, J01CE10), cefoxitin (FOX, J01CE01), cefozopran (ZOP, J01CA03), cefpiramide (CPM, J01CA05), cefpirome (CPO, J01CE07), cefpodoxime (CPD, J01CF02), cefprozil (CPR, J01CF01), cefroxadine (CRD, J01CA07), cefsulodin (CFS, J01CA18), ceftaroline (CPT, J01CA11), ceftazidime (CAZ, J01CA14), ceftazidime/clavulanic acid (CCV, J01CF03), cefteram (CEM, J01CA10), ceftezole (CTL, J01CF06), ceftibuten (CTB, J01CE06), ceftizoxime (CZX, J01CE05), ceftobiprole medocaril (CFM1, J01CE02), ceftolozane/tazobactam (CZT, J01CA02), ceftriaxone (CRO, J01CA08), ceftriaxone/beta-lactamase inhibitor (CEB, J01CE09), cefuroxime (CXM, J01CE03), cephradine (CED, J01CG01), chloramphenicol (CHL, J01CA16), ciprofloxacin (CIP, J01CR04), clarithromycin (CLR, J01CA15), clindamycin (CLI, J01CG02), clometocillin (CLM, J01CA17), cloxacillin (CLO, J01CR03), colistin (COL, J01DB10), cycloserine (CYC, J01DC04), dalbavancin (DAL, J01DB05), daptomycin (DAP, J01DB01), delafloxacin (DFX, J01DB02), dibekacin (DKB, J01DB03), dicloxacillin (DIC, J01DC03), dirithromycin (DIR, J01DB08), doripenem (DOR, J01DB07), doxycycline (DOX, J01DB06), enoxacin (ENX, J01DB04), epicillin (EPC, J01DD17), ertapenem (ETP, J01DD15), erythromycin (ERY, J01DD16), fleroxacin (FLE, J01DE01), flucloxacillin (FLC, J01DD10), flurithromycin (FLR1, J01DD08), fosfomycin (FOS, J01DD05), framycetin (FRM, J01DC09), fusidic acid (FUS, J01DD09), garenoxacin (GRN, J01DC06), gatifloxacin (GAT, J01DD12), gemifloxacin (GEM, J01DD62), gentamicin (GEN, J01DC11), grepafloxacin (GRX, J01DD01), hetacillin (HET, J01DD51), imipenem (IPM, J01DC05), imipenem/relebactam (IMR, J01DC07), isepamicin (ISE, J01DC01), josamycin (JOS, J01DE03), kanamycin (KAN, J01DD11), lascufloxacin (LSC, J01DE02), latamoxef (LTM, J01DD13), levofloxacin (LVX, J01DC10), levonadifloxacin (LND, J01DB11), lincomycin (LIN, J01DD03), linezolid (LNZ, J01DI02), lomefloxacin (LOM, J01DD02), loracarbef (LOR, J01DD52), mecillinam (MEC, J01DD18), meropenem (MEM, J01DB12), meropenem/vaborbactam (MEV, J01DD14), metampicillin (MTM, J01DD07), meticillin (MET, J01DI01), mezlocillin (MEZ, J01DI54), micronomicin (MCR, J01DD04), midecamycin (MID, J01DD63), minocycline (MNO, J01DC02), miocamycin (MCM, J01DB09), moxifloxacin (MFX, J01DD06), nadifloxacin (NAD, J01DC08), nafcillin (NAF, J01DH05), nalidixic acid (NAL, J01DH04), neomycin (NEO, J01DH03), netilmicin (NET, J01DH51), nitrofurantoin (NIT, J01DH56), norfloxacin (, J01DH02), ofloxacin (OFX, J01DH52), oleandomycin (OLE, J01DH55), oritavancin (ORI, J01DH06), oxacillin (OXA, J01XA02), panipenem (PAN, J01XA01), pazufloxacin (PAZ, J01XC01), pefloxacin (PEF, J01FA13), penamecillin (PNM, J01FA01), pheneticillin (PHE, J01FA14), phenoxymethylpenicillin (PHN, J01FA07), piperacillin (PIP, J01FA03), piperacillin/tazobactam (TZP, J01FA11), pivampicillin (PVM, J01FA05), pivmecillinam (PME, J01FA12), plazomicin (PLZ, J01FA16), polymyxin B (PLB, J01FA02), pristinamycin (PRI, J01FA15), procaine benzylpenicillin (PRB, J01FA08), propicillin (PRP, J01FF02), prulifloxacin (PRU, J01FG01), quinupristin/dalfopristin (QDA, J01FG02), ribostamycin (RST, J04AB02), rifampicin (RIF, J01XX09), rokitamycin (ROK, J01XX08), roxithromycin (RXT, J01AA07), rufloxacin (RFL, J01XB01), sisomicin (SIS, J01XB02), sitafloxacin (SIT, J01XE01), solithromycin (SOL, J01AA12), sparfloxacin (SPX, J01EA01), spiramycin (SPI, J01XX01), streptoduocin (STR, J01BA01), streptomycin (STR1, J01GB06), sulbactam (SUL, J01GB12), sulbenicillin (SBC, J01GB13), sulfadiazine (SDI, J01GB09), sulfadiazine/trimethoprim (SLT1, D09AA01), sulfadimethoxine (SUD, J01GB03), sulfadimidine (SDM, J01GB11), sulfadimidine/trimethoprim (SLT2, J01GB04), sulfafurazole (SLF, S01AA22), sulfaisodimidine (SLF1, J01GB05), sulfalene (SLF2, J01GB07), sulfamazone (SZO, J01GB14), sulfamerazine (SLF3, J01GB10), sulfamerazine/trimethoprim (SLT3, J01GB08), sulfamethizole (SLF4, J01GA02), sulfamethoxazole (SMX, J01GA01), sulfamethoxypyridazine (SLF5, J01GB01), sulfametomidine (SLF6, J01EE01), sulfametoxydiazine (SLF7, J01MB02), sulfametrole/trimethoprim (SLT4, J01FF01), sulfamoxole (SLF8, J01XA04), sulfamoxole/trimethoprim (SLT5, J01XA05), sulfanilamide (SLF9, J01XA03), sulfaperin (SLF10, J04AB01), sulfaphenazole (SLF11, J01XX11), sulfapyridine (SLF12, J01EC02), sulfathiazole (SUT, J01ED01), sulfathiourea (SLF13, J01EB03), sultamicillin (SLT6, J01EB05), talampicillin (TAL, J01EB01), tazobactam (TAZ, J01ED02), tebipenem (TBP, J01ED09), tedizolid (TZD, J01ED07), teicoplanin (TEC, J01EB02), telavancin (TLV, J01EC01), telithromycin (TLT, J01ED05), temafloxacin (TMX, J01ED03), temocillin (TEM, J01ED04), tetracycline (TCY, J01EC03), ticarcillin (TIC, J01EB06), ticarcillin/clavulanic acid (TCC, J01ED06), tigecycline (TGC, J01ED08), tilbroquinol (TBQ, J01EB04), tobramycin (TOB, J01EB07), tosufloxacin (TFX, J01EB08), trimethoprim (TMP, J01EE02), trimethoprim/sulfamethoxazole (SXT, J01EE05), troleandomycin (TRL, J01EE07), trovafloxacin (TVA, J01EE03), vancomycin (VAN, J01EE04)","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\") #>  (16 isolates had no test results) 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  #>                  1978                     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() } #>  (16 isolates had no test results) #> Warning: in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) #>  (16 isolates had no test results) #> 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)  #>                             1601                              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 sir mean_amr_distance(x, ..., combine_SI = TRUE)  # S3 method for 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 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] S I S R I I S I R I mean_amr_distance(sir) #>  [1] -0.4743416 -0.4743416 -0.4743416  1.8973666 -0.4743416 -0.4743416 #>  [7] -0.4743416 -0.4743416  1.8973666 -0.4743416  mic <- random_mic(10) mic #> Class 'mic' #>  [1] 0.0625  <=0.001 0.0625  128     0.0625  64      256     8       0.0625  #> [10] 0.002   mean_amr_distance(mic) #>  [1] -0.4417215 -1.3482772 -0.4417215  1.2298295 -0.4417215  1.0778703 #>  [7]  1.3817887  0.6219928 -0.4417215 -1.1963180 # equal to the Z-score of their log2: (log2(mic) - mean(log2(mic))) / sd(log2(mic)) #>  [1] -0.4417215 -1.3482772 -0.4417215  1.2298295 -0.4417215  1.0778703 #>  [7]  1.3817887  0.6219928 -0.4417215 -1.1963180  disk <- random_disk(10) disk #> Class 'disk' #>  [1]  8 43 46 31 33 33 37 43 45 27 mean_amr_distance(disk) #>  [1] -2.3345712  0.7372330  1.0005305 -0.3159570 -0.1404253 -0.1404253 #>  [7]  0.2106380  0.7372330  0.9127647 -0.6670203  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  >=8 <=0.25 #> 2   B    S   31    1      4 #> 3   C    S   27  >=8      2 #> 4   D    R   25    2 <=0.25 #> 5   E    R   27  0.5      1 #> 6   F    I   22  0.5      1 #> 7   G    R   22  0.5     16 #> 8   H    I   23    4      8 #> 9   I    S   27  0.5      1 #> 10  J    R   20    4      4 mean_amr_distance(y) #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>  [1]  0.487327335  0.218326088  0.247132119 -0.092191622  0.008553263 #>  [6] -0.823174446  0.153968346  0.065818788 -0.465788386  0.200028515 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    S   27  >=8      2  0.247132119 0.00000000 #> 2   B    S   31    1      4  0.218326088 0.02880603 #> 3   J    R   20    4      4  0.200028515 0.04710360 #> 4   G    R   22  0.5     16  0.153968346 0.09316377 #> 5   H    I   23    4      8  0.065818788 0.18131333 #> 6   E    R   27  0.5      1  0.008553263 0.23857886 #> 7   A    R   29  >=8 <=0.25  0.487327335 0.24019522 #> 8   D    R   25    2 <=0.25 -0.092191622 0.33932374 #> 9   I    S   27  0.5      1 -0.465788386 0.71292051 #> 10  F    I   22  0.5      1 -0.823174446 1.07030656 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 #> # … with 53 more rows"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 5 910 Common Microorganism Codes — microorganisms.codes","title":"Data Set with 5 910 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 5 910 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 5 910 Common Microorganism Codes — microorganisms.codes","text":"tibble 5 910 observations 2 variables: code Commonly used code microorganism 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 5 910 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, SAS, 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 5 910 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes #> # A tibble: 5,910 × 2 #>    code    mo        #>    <chr>   <mo>      #>  1 _FAM_A- B_GRAMN   #>  2 _FAM_A+ B_GRAMP   #>  3 _FAM_AC B_GRAMP   #>  4 _FAM_AE B_GRAMN   #>  5 _FAM_AN B_GRAMN   #>  6 _FAM_AO B_GRAMP   #>  7 _FAM_AP   UNKNOWN #>  8 _FAM_AS F_FUNGUS  #>  9 _FAM_AT   UNKNOWN #> 10 _FAM_AV   UNKNOWN #> # … with 5,900 more rows"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 52 142 Microorganisms — microorganisms","title":"Data Set with 52 142 Microorganisms — microorganisms","text":"data set containing full microbial taxonomy (last updated: 11 December, 2022) five kingdoms List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF). data set backbone AMR package. MO codes can looked using .mo().","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 52 142 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 52 142 Microorganisms — microorganisms","text":"tibble 52 142 observations 22 variables: mo ID microorganism used package fullname Full name, like \"Escherichia coli\". taxonomic ranks genus, species subspecies, 'pasted' text genus, species, subspecies. taxonomic ranks higher genus, name taxon. status  Status taxon, either \"accepted\" \"synonym\" kingdom, phylum, class, order, family, genus, species, subspecies Taxonomic rank microorganism 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, e.g. \"Váňová\" becomes \"Vanova\". 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. lpsn_parent LPSN identifier parent taxon lpsn_renamed_to LPSN identifier currently valid taxon gbif Identifier ('taxonID') Global Biodiversity Information Facility (GBIF) gbif_parent GBIF identifier parent taxon gbif_renamed_to GBIF identifier currently valid taxon source Either \"GBIF\", \"LPSN\", \"manually added\" (see Source) prevalence Prevalence microorganism according Bartlett et al. (2022, doi:10.1099/mic.0.001269 ), see mo_matching_score() full explanation snomed Systematized Nomenclature Medicine (SNOMED) code microorganism, version 1 July, 2021 (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 52 142 Microorganisms — microorganisms","text":"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 11 December, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org 11 December, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov 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 52 142 Microorganisms — microorganisms","text":"Please note entries based List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (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 52 142 Microorganisms — microorganisms","text":"Included taxonomic data : ~36 000 (sub)species kingdoms Archaea Bacteria ~7 900 (sub)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). ~5 100 (sub)species kingdom Protozoa ~1 400 (sub)species ~40 relevant genera kingdom Animalia (Strongyloides Taenia) ~9 800 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 52 142 Microorganisms — microorganisms","text":"convenience, entries added manually: ~1 500 entries city-like serovars Salmonellae 11 entries Streptococcus (beta-haemolytic: groups , B, C, D, F, G, H, K unspecified; : viridans, milleri) 2 entries Staphylococcus (coagulase-negative (CoNS) coagulase-positive (CoPS)) 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 6 'undefined' entries (unknown, unknown Gram negatives, unknown Gram positives, unknown yeast, unknown fungus, unknown anaerobic bacteria) syntax used transform original data cleansed R format, can found : https://github.com/msberends/AMR/blob/main/data-raw/reproduction_of_microorganisms.R.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Set with 52 142 Microorganisms — microorganisms","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"about-the-records-from-lpsn-see-source-","dir":"Reference","previous_headings":"","what":"About the Records from LPSN (see Source)","title":"Data Set with 52 142 Microorganisms — microorganisms","text":"LPSN main source bacteriological taxonomy AMR package. List Prokaryotic names Standing Nomenclature (LPSN) provides comprehensive information nomenclature prokaryotes. LPSN free use service founded Jean P. Euzeby 1997 later maintained Aidan C. Parte.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 52 142 Microorganisms — microorganisms","text":"","code":"microorganisms #> # A tibble: 52,142 × 22 #>    mo               fullname      status kingdom phylum class order family genus #>    <mo>             <chr>         <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> #>  1 B_GRAMN          (unknown Gra… accep… Bacter… (unkn… \"(un… \"(un… \"(unk… \"(un… #>  2 B_GRAMP          (unknown Gra… accep… Bacter… (unkn… \"(un… \"(un… \"(unk… \"(un… #>  3 B_ANAER          (unknown ana… accep… Bacter… (unkn… \"(un… \"(un… \"(unk… \"(un… #>  4 F_FUNGUS         (unknown fun… accep… Fungi   (unkn… \"(un… \"(un… \"(unk… \"(un… #>  5   UNKNOWN        (unknown nam… accep… (unkno… (unkn… \"(un… \"(un… \"(unk… \"(un… #>  6 F_YEAST          (unknown yea… accep… Fungi   (unkn… \"(un… \"(un… \"(unk… \"(un… #>  7 B_[FAM]_ABDTBCTR Abditibacter… accep… Bacter… Abdit… \"Abd… \"Abd… \"Abdi… \"\"    #>  8 B_[ORD]_ABDTBCTR Abditibacter… accep… Bacter… Abdit… \"Abd… \"Abd… \"\"     \"\"    #>  9 B_[CLS]_ADTBCTRA Abditibacter… accep… Bacter… Abdit… \"Abd… \"\"    \"\"     \"\"    #> 10 B_[PHL]_ABDTBCTR Abditibacter… accep… Bacter… Abdit… \"\"    \"\"    \"\"     \"\"    #> # … with 52,132 more rows, and 13 more variables: species <chr>, #> #   subspecies <chr>, rank <chr>, ref <chr>, source <chr>, lpsn <chr>, #> #   lpsn_parent <chr>, lpsn_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 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.","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 = 2, Protozoa = 3, Archaea = 4, others = 5. 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.0 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, genus present established list also prevalence = 1.0 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.5 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chrysonilia, Cladophialophora, Cladosporium, Conidiobolus, Contracaecum, Cordylobia, Cryptococcus, Curvularia, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Giardia, Haloarcula, Halobacterium, Halococcus, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hymenolepis, Hypomyces, Hysterothylacium, Leishmania, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Mortierella, Mucor, Mycocentrospora, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Pediculus, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoterranova, Pulex, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Sarcoptes, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Stachybotrys, Strongyloides, Syngamus, Taenia, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Wuchereria; 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.159\\), 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, SAS, 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":"author","dir":"Reference","previous_headings":"","what":"Author","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"Dr. Matthijs Berends, 2018","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) #>              Based on input \"E coli\" #> Also matched: Enterobacter cowanii (0.600), Eubacterium combesii #>               (0.600), Eggerthia catenaformis (0.591), Eubacterium callanderi #>               (0.591), Enterocloster citroniae (0.587), Eubacterium cylindroides #>               (0.583), Enterococcus casseliflavus (0.577), Enterobacter cloacae #>               cloacae (0.571), Ehrlichia canis (0.567), 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.1587302"},{"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_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_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_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\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_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() named character case 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) mo_ref(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Hormaeche et al., 1960\" (warning) 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 fungi phylum Ascomycota, class Saccharomycetes (also called Hemiascomycetes). True yeasts aggregated underlying order Saccharomycetales. Thus, microorganisms member taxonomic class Saccharomycetes, 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). function mo_url() return direct URL online database entry, also shows scientific reference concerned species. SNOMED codes (mo_snomed()) version 1 July, 2021. 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 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 Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571 Berends MS et al. (2022). Trends Occurrence Phenotypic Resistance Coagulase-Negative Staphylococci (CoNS) Found Human Blood Northern Netherlands 2013 2019 Microorganisms 10(9), 1801; doi:10.3390/microorganisms10091801 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 11 December, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org 11 December, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microoganism', 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, SAS, 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   # 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_lpsn(\"Klebsiella aerogenes\") #> [1] \"777146\" mo_gbif(\"Klebsiella aerogenes\") #> [1] \"9281703\" mo_synonyms(\"Klebsiella aerogenes\") #>   Hormaeche et al., 1960     Bascomb et al., 1971  #> \"Enterobacter aerogenes\"     \"Klebsiella mobilis\"    # 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\" #>  #> $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\" #>  #> $url #> [1] \"https://lpsn.dsmz.de/species/klebsiella-pneumoniae\" #>  #> $ref #> [1] \"Trevisan, 1887\" #>  #> $snomed #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\"        #>  # }"},{"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\"`, `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 for Classes sir, mic and disk — plot","title":"Plotting for Classes sir, mic and disk — plot","text":"Functions plot classes sir, mic disk, support base R ggplot2.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Plotting for Classes sir, mic and disk — plot","text":"","code":"# S3 method for 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,   ... )  # S3 method for 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,   ... )  # S3 method for mic fortify(object, ...)  # S3 method for 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,   ... )  # S3 method for 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,   ... )  # S3 method for disk fortify(object, ...)  # S3 method for 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 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 sir fortify(object, ...)"},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Plotting for Classes sir, mic and disk — plot","text":"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. ... arguments passed methods","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Plotting for Classes sir, mic and disk — 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 for Classes sir, mic and disk — 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 2022\", \"EUCAST 2021\", \"EUCAST 2020\", \"EUCAST 2019\", \"EUCAST 2018\", \"EUCAST 2017\", \"EUCAST 2016\", \"EUCAST 2015\", \"EUCAST 2014\", \"EUCAST 2013\", \"CLSI 2022\", \"CLSI 2021\", \"CLSI 2020\", \"CLSI 2019\", \"CLSI 2018\", \"CLSI 2017\", \"CLSI 2016\", \"CLSI 2015\", \"CLSI 2014\", \"CLSI 2013\". Simply using \"CLSI\" \"EUCAST\" input automatically select latest version guideline.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Plotting for Classes sir, mic and disk — 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 = \"uk\")   # \\donttest{ 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\", \"\", \"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 must merged one, output consists S+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":"function resistance() equal function proportion_R(). function susceptibility() equal function proportion_SI(). 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. Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine data set one four available algorithms. 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    #> # … with 1,990 more rows, and 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>   # base R ------------------------------------------------------------ # determines %R resistance(example_isolates$AMX) #> [1] 0.5955556 sir_confidence_interval(example_isolates$AMX) #> [1] 0.569 0.622 sir_confidence_interval(example_isolates$AMX,   confidence_level = 0.975 ) #> [1] 0.565 0.626 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.378 0.431  # be more specific proportion_S(example_isolates$AMX) #> [1] 0.4022222 proportion_SI(example_isolates$AMX) #> [1] 0.4044444 proportion_I(example_isolates$AMX) #> [1] 0.002222222 proportion_IR(example_isolates$AMX) #> [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.23  #> 3 Outpatient   0.161  0.093  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 2022 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] 16     0.001  0.001  0.5    0.002  0.001  2      0.5    64     2      #> [11] 0.0625 0.25   128    0.025  128    128    8      0.001  32     64     #> [21] 64     16     0.01   0.125  64     random_disk(25) #> Class 'disk' #>  [1] 41 30  7 30 50 25  9 50 38 41 12 20 13 16 40 25 25 23 32 46 47 37 20 13 44 random_sir(25) #> Class 'sir' #>  [1] S S R R S S I S I R I S R S I R R S R S R S R I 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.25   128    2      0.001  0.01   0.5    32     8      64     1      #> [11] 64     1      0.5    0.0625 1      0.025  0.5    0.002  2      0.5    #> [21] 4      0.025  0.5    0.125  32     random_mic(25, \"Klebsiella pneumoniae\", \"meropenem\") # range 0.0625-16 #> Class 'mic' #>  [1] 16  2   16  8   2   4   32  16  2   <=1 16  8   8   <=1 8   <=1 <=1 2   8   #> [20] 32  8   2   32  32  32  random_mic(25, \"Streptococcus pneumoniae\", \"meropenem\") # range 0.0625-4 #> Class 'mic' #>  [1] 2      2      >=8    0.0625 4      1      4      0.25   0.125  4      #> [11] >=8    0.125  0.25   0.125  0.5    0.5    4      1      0.5    0.5    #> [21] 0.0625 1      4      4      0.5     random_disk(25, \"Klebsiella pneumoniae\") # range 8-50 #> Class 'disk' #>  [1] 46 49 42 41 41 17 46 32 45 13 47 43 47 34 43 20 28 40 15 46 26 14 45 41 23 random_disk(25, \"Klebsiella pneumoniae\", \"ampicillin\") # range 11-17 #> Class 'disk' #>  [1] 12 16 14 17 14 17 12 14 17 12 11 16 16 11 12 14 15 11 17 17 13 13 13 16 13 random_disk(25, \"Streptococcus pneumoniae\", \"ampicillin\") # range 12-27 #> Class 'disk' #>  [1] 22 25 16 23 20 25 24 17 23 18 26 16 21 16 25 17 23 23 20 20 27 20 18 24 15 # }"},{"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 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 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) #>  #> Deviance Residuals:  #>     Min       1Q   Median       3Q      Max   #> -1.4150  -0.1855   0.0000   0.4096   0.9277   #>  #> Coefficients: #>             Estimate Std. Error z value Pr(>|z|) #> (Intercept) 47.02915   72.98739   0.644    0.519 #> year        -0.02280    0.03637  -0.627    0.531 #>  #> (Dispersion parameter for binomial family taken to be 1) #>  #>     Null deviance: 5.9620  on 11  degrees of freedom #> Residual deviance: 5.5701  on 10  degrees of freedom #> AIC: 50.533 #>  #> 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)  # S3 method for default skewness(x, na.rm = FALSE)  # S3 method for matrix skewness(x, na.rm = FALSE)  # S3 method for 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.0006463751"},{"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(\"Spanish\") #> ℹ Using Spanish (Español) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacina\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Staphylococcus coagulasa negativo (SCN)\"  # setting yet another language set_AMR_locale(\"Greek\") #> ℹ Using Greek (Ελληνικά) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Σιπροφλοξασίνη\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Σταφυλόκοκκος με αρνητική πηκτικότητα (CoNS)\"  # setting yet another language set_AMR_locale(\"Ukrainian\") #> ℹ Using Ukrainian (Українська) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ципрофлоксацин\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Коагулазонегативний стафілокок (КНС)\"  # 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-1829150","dir":"Changelog","previous_headings":"","what":"AMR 1.8.2.9150","title":"AMR 1.8.2.9150","text":"(beta version eventually become v2.0! ’re happy reach new major milestone soon!) new major release AMR package, great new additions also breaking changes current users. listed . TL;DR functions arguments ‘rsi’ replaced ‘sir’, interpretation MIC values (now .sir() instead .rsi()) - old functions still work now Many new interesting functions, antibiogram() (generating traditional/combined/syndromic/WISCA antibiograms), sir_confidence_interval() mean_amr_distance(), add_custom_microorganisms() add custom microorganisms package Clinical breakpoints added EUCAST 2022 CLSI 2022 Microbiological taxonomy (microorganisms data set) updated 2022 now based LPSN GBIF Much increased algorithms translate user input valid taxonomy, e.g. using recent scientific work per-species human pathogenicity 20 new antibiotics added updated DDDs ATC codes Extended support antiviral agents (antivirals data set), many new functions Now available 20 languages Many small bug fixes","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/news/index.html","id":"sir-vs-rsi-1-8-2-9150","dir":"Changelog","previous_headings":"New","what":"SIR vs. RSI","title":"AMR 1.8.2.9150","text":"milestone version, replaced mentions RSI SIR, comply actually commonly used field clinical microbiology comes tri-form regarding AMR. existing functions .rsi(), rsi_df() ggplot_rsi() still work, replacements .sir(), sir_df(), ggplot_sir() now current functions AMR data analysis. warning thrown session remind users . data set rsi_translation now called clinical_breakpoints better reflect content. ‘RSI functions’ removed future version, late 2023 / early 2024.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"new-antibiogram-function-1-8-2-9150","dir":"Changelog","previous_headings":"New","what":"New antibiogram function","title":"AMR 1.8.2.9150","text":"new antibiogram() function, users can now generate traditional, combined, syndromic, even weighted-incidence syndromic combination antibiograms (WISCA). , follow logic previously described work Klinker et al. (2021, DOI 10.1177/20499361211011373) Barbieri et al. (2021, DOI 10.1186/s13756-021-00939-2). help page antibiogram() extensively elaborates use cases, antibiogram() also supports printing R Markdown Quarto, support 20 languages. Furthermore, different plotting methods implemented allow graphical visualisations well.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"interpretation-of-mic-and-disk-diffusion-values-1-8-2-9150","dir":"Changelog","previous_headings":"New","what":"Interpretation of MIC and disk diffusion values","title":"AMR 1.8.2.9150","text":"clinical breakpoints intrinsic resistance EUCAST 2022 CLSI 2022 added .sir(). EUCAST 2022 (v12.0) now new default guideline MIC disks diffusion interpretations, eucast_rules() apply EUCAST Expert Rules. default guideline (EUCAST) can now changed new AMR_guideline option, : options(AMR_guideline = \"CLSI 2020\"). new arguments include_PKPD (default: TRUE) include_screening (default: FALSE), users can now specify whether breakpoints screening PK/PD table included interpreting MICs disks diffusion values. options can set globally, can read new manual. Interpretation guidelines older 10 years removed, oldest now included guidelines EUCAST CLSI 2013.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"supported-languages-1-8-2-9150","dir":"Changelog","previous_headings":"New","what":"Supported languages","title":"AMR 1.8.2.9150","text":"added support following ten languages: Chinese (simplified), Czech, Finnish, Greek, Japanese, Norwegian (bokmål), Polish, Romanian, Turkish Ukrainian. antibiotic names now available languages, AMR package automatically determine supported language based user’s system language. grateful valuable input colleagues countries. AMR package now available 20 languages total, according download stats used almost countries world!","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"outbreak-management-1-8-2-9150","dir":"Changelog","previous_headings":"New","what":"Outbreak management","title":"AMR 1.8.2.9150","text":"analysis outbreak management, updated get_episode() is_new_episode() functions: now contain argument case_free_days. argument can used quantify duration case-free days (inter-epidemic interval), new episode start. common requirement outbreak management, e.g. determining number norovirus outbreaks hospital. case-free period 14 28 days, new norovirus cases time considered different (new) episode.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"microbiological-taxonomy-1-8-2-9150","dir":"Changelog","previous_headings":"New","what":"Microbiological taxonomy","title":"AMR 1.8.2.9150","text":"microorganisms data set longer relies Catalogue Life, List Prokaryotic names Standing Nomenclature (LPSN) supplemented ‘backbone taxonomy’ Global Biodiversity Information Facility (GBIF). structure data set changed include separate LPSN GBIF identifiers. Almost previous MO codes retained. contains 1,400 taxonomic names 2022. previously relied experience categorise species pathogenic groups, happy encounter recent work Bartlett et al. (2022, DOI 10.1099/mic.0.001269) extensively studied medical-scientific literature categorise bacterial species groups. See mo_matching_score() work incorporated prevalence column microorganisms data set. Using results, .mo() mo_*() functions now much better capable converting user input valid taxonomic records. new function add_custom_microorganisms() allows users add custom microorganisms AMR package. also made following changes regarding included taxonomy microorganisms functions: Updated full microbiological taxonomy according latest daily LPSN data set (December 2022) latest yearly GBIF taxonomy backbone (November 2022) Added function mo_current() get currently valid taxonomic name microorganism Support 1,516 city-like serovars Salmonella, Salmonella Goldcoast. Formally, serovars belonging S. enterica species, reported name genus city. reason, serovars subspecies column microorganisms data set “enterica” species column, full name contain species name (enterica). new argument keep_synonyms allows correct updated taxonomy, favour now deleted argument allow_uncertain increased tremendously speed returns generally consequent results Sequential coercion now extremely fast results stored package environment, although coercion unknown values must run per session. Previous results can reset/removed new mo_reset_session() function. Support microorganism codes ASIan Antimicrobial Resistance Surveillance Network (ASIARS-Net) MO matching score algorithm (mo_matching_score()) now counts deletions substitutions 2 instead 1, impacts outcome .mo() mo_*() function CRAN allows packages around 5 MB maximum, packages exempted package one Chromista relevant comes antimicrobial resistance, thus lacking primary scope package Chromista almost never clinically relevant, thus lacking secondary scope package microorganisms.old data set removed, previously accepted names now included microorganisms data set. new column status contains \"accepted\" currently accepted names \"synonym\" taxonomic synonyms; currently invalid names. previously accepted names now microorganisms ID - available - LPSN, GBIF SNOMED CT identifier.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"antibiotic-agents-and-selectors-1-8-2-9150","dir":"Changelog","previous_headings":"New","what":"Antibiotic agents and selectors","title":"AMR 1.8.2.9150","text":"new function add_custom_antimicrobials() allows users add custom antimicrobial codes names AMR package. antibiotics data set greatly updated: following 20 antibiotics added (also includes new J01RA ATC group): azithromycin/fluconazole/secnidazole (AFC), cefepime/amikacin (CFA), cefixime/ornidazole (CEO), ceftriaxone/beta-lactamase inhibitor (CEB), ciprofloxacin/metronidazole (CIM), ciprofloxacin/ornidazole (CIO), ciprofloxacin/tinidazole (CIT), furazidin (FUR), isoniazid/sulfamethoxazole/trimethoprim/pyridoxine (IST), lascufloxacin (LSC), levofloxacin/ornidazole (LEO), nemonoxacin (NEM), norfloxacin/metronidazole (NME), norfloxacin/tinidazole (NTI), ofloxacin/ornidazole (OOR), oteseconazole (OTE), rifampicin/ethambutol/isoniazid (REI), sarecycline (SRC), tetracycline/oleandomycin (TOL), thioacetazone (TAT) Added missing ATC codes Updated DDDs PubChem Compound IDs Updated antibiotic name spelling, now used WHOCC (cephalexin -> cefalexin, phenethicillin -> pheneticillin) Antibiotic code “CEI” ceftolozane/tazobactam replaced “CZT” comply EARS-Net WHONET 2022. old code still work cases using .ab() ab_*() functions. Support antimicrobial interpretation anaerobic bacteria, adding ‘placeholder’ code B_ANAER microorganisms data set adding breakpoints anaerobics clinical_breakpoints data set, used .sir() interpretion MIC disk diffusion values Also, added support using antibiotic selectors scoped dplyr verbs (without using vars()), : ... %>% summarise_at(aminoglycosides(), resistance), please see resistance() examples.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"antiviral-agents-1-8-2-9150","dir":"Changelog","previous_headings":"New","what":"Antiviral agents","title":"AMR 1.8.2.9150","text":"now added extensive support antiviral agents! first time, AMR package extensive support antiviral drugs work names, codes data way. antivirals data set extended 18 new drugs (also new J05AJ ATC group) now also contains antiviral identifiers LOINC codes new data type av (antivirals) added, functionally similar ab antibiotics Functions .av(), av_name(), av_atc(), av_synonyms(), av_from_text() added siblings ab_*() equivalents","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"other-new-functions-1-8-2-9150","dir":"Changelog","previous_headings":"New","what":"Other new functions","title":"AMR 1.8.2.9150","text":"Function sir_confidence_interval() add confidence intervals AMR calculation. now also included sir_df() proportion_df(). Function mean_amr_distance() calculate mean AMR distance. mean AMR distance normalised numeric value compare AMR test results can help identify similar isolates, without comparing antibiograms hand. Function sir_interpretation_history() view history previous runs .sir() (previously .rsi()). returns ‘logbook’ selected guideline, reference table specific interpretation row data set .sir() run.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"changes-1-8-2-9150","dir":"Changelog","previous_headings":"","what":"Changes","title":"AMR 1.8.2.9150","text":"Fix working NA values Fix unsorted dates length 2 Now returns class integer instead numeric since always whole numbers Argument combine_IR removed package (affecting functions count_df(), proportion_df(), sir_df() plotting functions), since replaced combine_SI three years ago Using units ab_ddd(..., units = \"...\") deprecated time now supported anymore. Use ab_ddd_units() instead. Support data.frame-enhancing R packages, specifically: data.table::data.table, janitor::tabyl, tibble::tibble, tsibble::tsibble. AMR package functions data set output (sir_df() bug_drug_combinations()), now return data type input. data sets package now tibble, instead base R data.frames. Older R versions still supported, even support tibbles. data sets now also continually exported Apache Feather Apache Parquet formats. can find info article website. Fixed certain EUCAST breakpoints MIC values Allow NA values (e.g. .sir(.disk(NA), ...)) Fix bug-drug combinations multiple breakpoints different body sites Interpretation MIC disk zones now informative availability breakpoints robust Removed .integer() method MIC values, since MIC integer values running table() MIC values consequently failed able retrieve level position (’s normally .integer() factors work) Fixed determination Gram stains (mo_gramstain()), since taxonomic phyla Actinobacteria, Chloroflexi, Firmicutes, Tenericutes renamed respectively Actinomycetota, Chloroflexota, Bacillota, Mycoplasmatota 2021 droplevels() MIC now return common factor default lose mic class. Use droplevels(..., .mic = TRUE) keep mic class. Small fix using ab_from_text() Fixes reading text files using set_mo_source(), now also allows source file contain valid taxonomic names instead valid microorganism ID package Fixed bug mdro() using similar column names Magiorakos guideline Using random_*() function (random_mic()) now possible directly calling package without loading first: AMR::random_mic(10) Extended support vctrs package, used internally tidyverse. allows change values class mic, disk, sir, mo ab tibbles, use antibiotic selectors selecting/filtering, e.g. df[carbapenems() == \"R\", ] Fix using info = FALSE mdro() interpretation guidelines using .sir() amoxicillin, rules ampicillin used amoxicillin rules available Fix using ab_atc() non-existing ATC codes Black white message texts now reversed colour using RStudio dark theme mo_snomed() now returns class character, numeric anymore (make long SNOMED codes readable) Fix using .ab() NA values Updated support WHONET 2022 microorganism codes Antimicrobial interpretation ‘SDD’ (susceptible dose-dependent, coined CLSI) interpreted ‘’ comply EUCAST’s ‘’ .sir() Fix mo_shortname() case higher taxonomic ranks (order, class, phylum) Cleaning columns .sir(), .mic(), .disk() now show column name warning invalid results Fix using g.test() zeroes 2x2 table mo_synonyns() now contains scientific reference names","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"other-1-8-2-9150","dir":"Changelog","previous_headings":"","what":"Other","title":"AMR 1.8.2.9150","text":"Added Peter Dutey-Magni, Dmytro Mykhailenko, Anton Mymrikov, Andrew Norgan, Jonas Salm, Anita Williams contributors, thank valuable input New website make use new Bootstrap 5 pkgdown 2.0. website now contains results examples automatically regenerated every change repository, using GitHub Actions R Rmd files project now styled using styler package Set scalar conditional expressions (&& ||) possible comply upcoming R 4.3 enormous lot code cleaning, fixing small bugs along way changelog contains changes AMR v2.0 later. prior versions, please see archive.","code":""}]